| [613] | 1 | RTNQ ;MJK/TROY ISC;Inquiry Utility Option; ; 3/20/87 11:09 AM ;
|
|---|
| 2 | ;;v 2.0;Record Tracking;;10/22/91
|
|---|
| 3 | D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_""","
|
|---|
| 4 | 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)
|
|---|
| 5 | D IXALL^DIK
|
|---|
| 6 | A D OVERALL^RTPSET Q:$D(XQUIT)
|
|---|
| 7 | W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0 D @+Y G A
|
|---|
| 8 | ;
|
|---|
| 9 | 1 ;;Record Inquiry
|
|---|
| 10 | G ^RTNQ2
|
|---|
| 11 | ;
|
|---|
| 12 | 2 ;;Short Inquiry
|
|---|
| 13 | I '$D(RTAPL) D APL2^RTPSET D NEXT2:$D(RTAPL) K RTAPL,RTSYS Q
|
|---|
| 14 | NEXT2 S RTA=+RTAPL D ASK^RTB K RTA I '$D(RTESC) G NEXT2:Y<0 S RTE=X D SHORT G NEXT2
|
|---|
| 15 | K RTE,RTESC,C,I,Y
|
|---|
| 16 | K %H,%I,DIC,DIY,N,POP,X,X1 Q
|
|---|
| 17 | SHORT S RTINACFL="",RTDC("S")="I $P(^(0),U,4)="_+RTAPL D ^RTUTL2 K RTINACFL,RT1,RTC,RTDC Q
|
|---|
| 18 | ;
|
|---|
| 19 | 3 ;;Trace Movement History of Record
|
|---|
| 20 | G ^RTNQ1
|
|---|
| 21 | ;
|
|---|
| 22 | 4 ;;Combination Data Trace
|
|---|
| 23 | G ^RTNQ3
|
|---|
| 24 | ;
|
|---|
| 25 | 5 ;;Expanded Inquiry
|
|---|
| 26 | G ^RTNQ4
|
|---|
