| Code |
N I,IEN,CNT S CNT=44,I=0
I DIR=0 D ; Forward direction
. F S FROM=$O(^DPT("B",FROM)) Q:FROM="" D Q:I=CNT
. . S IEN=0 F S IEN=$O(^DPT("B",FROM,IEN)) Q:'IEN D Q:I=CNT
. . . ; S X=$P($G(^DPT(IEN,0)),"^",9)
. . . ; S X=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,99)
. . . ; S X1=$G(^DPT(IEN,.1))_" "_$G(^DPT(IEN,.101))
. . . S I=I+1 S Y(I)=IEN_"^"_FROM ;_"^"_X ; _"^"_X1 ;" ("_X_")"
. I $G(Y(CNT))="" S I=I+1,Y(I)=""
I DIR=1 D ; Reverse direction
. F S FROM=$O(^DPT("B",FROM),-1) Q:FROM="" D Q:I=CNT
. . S IEN=0 F S IEN=$O(^DPT("B",FROM,IEN)) Q:'IEN D Q:I=CNT
. . . ; S X=$P($G(^DPT(IEN,0)),"^",9)
. . . ; S X=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,99)
. . . ; S X1=$G(^DPT(IEN,.1))_" "_$G(^DPT(IEN,.101))
. . . S I=I+1 S Y(I)=IEN_"^"_FROM ;_"^"_X ; _"^"_X1 ;" ("_X_")"
|