source: FOIAVistA/trunk/r/RECORD_TRACKING-RT/RTNQ.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 885 bytes
Line 
1RTNQ ;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
6A 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 ;
91 ;;Record Inquiry
10 G ^RTNQ2
11 ;
122 ;;Short Inquiry
13 I '$D(RTAPL) D APL2^RTPSET D NEXT2:$D(RTAPL) K RTAPL,RTSYS Q
14NEXT2 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
17SHORT S RTINACFL="",RTDC("S")="I $P(^(0),U,4)="_+RTAPL D ^RTUTL2 K RTINACFL,RT1,RTC,RTDC Q
18 ;
193 ;;Trace Movement History of Record
20 G ^RTNQ1
21 ;
224 ;;Combination Data Trace
23 G ^RTNQ3
24 ;
255 ;;Expanded Inquiry
26 G ^RTNQ4
Note: See TracBrowser for help on using the repository browser.