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

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

initial load of FOIAVistA 6/30/08 version

File size: 734 bytes
Line 
1RT ;MJK/TROY ISC;Record Tracking Main Options; ; 2/2/87 8:50 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," ;"),8)) 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 Transaction Menu
10 G ^RTT
11 ;
122 ;;Request Record Menu
13 G ^RTQ
14 ;
153 ;;System Definition Menu
16 G ^RTSYS
17 ;
184 ;;Pull List Menu
19 G ^RTP
20 ;
215 ;;Record Inquiry Menu
22 G ^RTNQ
23 ;
246 ;;Computer Site Manager's Menu
25 G ^RTSM
26 ;
277 ;;Management Reports Menu
28 G ^RTRPT
29 ;
308 ;;MAS Specific Setup Menu
31 G ^RTMAS
32 ;
Note: See TracBrowser for help on using the repository browser.