RTNQ.m

RTNQ ;MJK/TROY ISC;Inquiry Utility Option; ; 3/20/87  11:09 AM ;

 ;;v 2.0;Record Tracking;;10/22/91 

 D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_""","

 G:$D(^DOPT($P(X," ;"),4)) A S ^DOPT($P(X," ;"),0)=$P(X,";",3)_"^1N^" F I=1:1 S Y=$T(@I) Q:Y=""  S ^DOPT($P(X," ;"),I,0)=$P(Y,";",3,99)

 D IXALL^DIK

A D OVERALL^RTPSET Q:$D(XQUIT)

 W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0  D @+Y G A

 ;

1 ;;Record Inquiry

 G ^RTNQ2

 ;

2 ;;Short Inquiry

 I '$D(RTAPL) D APL2^RTPSET D NEXT2:$D(RTAPL) K RTAPL,RTSYS Q

NEXT2 S RTA=+RTAPL D ASK^RTB K RTA I '$D(RTESC) G NEXT2:Y<0 S RTE=X D SHORT G NEXT2

 K RTE,RTESC,C,I,Y

 K %H,%I,DIC,DIY,N,POP,X,X1 Q

SHORT S RTINACFL="",RTDC("S")="I $P(^(0),U,4)="_+RTAPL D ^RTUTL2 K RTINACFL,RT1,RTC,RTDC Q

 ;

3 ;;Trace Movement History of Record

 G ^RTNQ1

 ;

4 ;;Combination Data Trace

 G ^RTNQ3

 ;

5 ;;Expanded Inquiry

 G ^RTNQ4

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RTNQ   911     printed  Apr 09, 2024@21:36:20                                                                                                                                                                                                         Page 2

RTNQ      ;MJK/TROY ISC;Inquiry Utility Option; ; 3/20/87  11:09 AM ;

 +1       ;;v 2.0;Record Tracking;;10/22/91 

 +2        DO DT^DICRW

           SET X=$TEXT(+1)

           SET DIK="^DOPT("""_$PIECE(X," ;",1)_""","

 +3        if $DATA(^DOPT($PIECE(X," ;"),4))

               GOTO A

           SET ^DOPT($PIECE(X," ;"),0)=$PIECE(X,";",3)_"^1N^"

           FOR I=1:1

               SET Y=$TEXT(@I)

               if Y=""

                   QUIT 

               SET ^DOPT($PIECE(X," ;"),I,0)=$PIECE(Y,";",3,99)

 +4        DO IXALL^DIK

A          DO OVERALL^RTPSET

           if $DATA(XQUIT)

               QUIT 

 +1        WRITE !!

           SET DIC="^DOPT("""_$PIECE($TEXT(+1)," ;")_""","

           SET DIC(0)="IQEAM"

           DO ^DIC

           if Y<0

               QUIT 

           DO @+Y

           GOTO A

 +2       ;

1         ;;Record Inquiry

 +1        GOTO ^RTNQ2

 +2       ;

2         ;;Short Inquiry

 +1        IF '$DATA(RTAPL)

               DO APL2^RTPSET

               if $DATA(RTAPL)

                   DO NEXT2

               KILL RTAPL,RTSYS

               QUIT 

NEXT2      SET RTA=+RTAPL

           DO ASK^RTB

           KILL RTA

           IF '$DATA(RTESC)

               if Y<0

                   GOTO NEXT2

               SET RTE=X

               DO SHORT

               GOTO NEXT2

 +1        KILL RTE,RTESC,C,I,Y

 +2        KILL %H,%I,DIC,DIY,N,POP,X,X1

           QUIT 

SHORT      SET RTINACFL=""

           SET RTDC("S")="I $P(^(0),U,4)="_+RTAPL

           DO ^RTUTL2

           KILL RTINACFL,RT1,RTC,RTDC

           QUIT 

 +1       ;

3         ;;Trace Movement History of Record

 +1        GOTO ^RTNQ1

 +2       ;

4         ;;Combination Data Trace

 +1        GOTO ^RTNQ3

 +2       ;

5         ;;Expanded Inquiry

 +1        GOTO ^RTNQ4