RT ;MJK/TROY ISC;Record Tracking Main Options; ; 2/2/87 8:50 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," ;"),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)
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 Transaction Menu
G ^RTT
;
2 ;;Request Record Menu
G ^RTQ
;
3 ;;System Definition Menu
G ^RTSYS
;
4 ;;Pull List Menu
G ^RTP
;
5 ;;Record Inquiry Menu
G ^RTNQ
;
6 ;;Computer Site Manager's Menu
G ^RTSM
;
7 ;;Management Reports Menu
G ^RTRPT
;
8 ;;MAS Specific Setup Menu
G ^RTMAS
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRT 766 printed Mar 13, 2024@23:44:41 Page 2
RT ;MJK/TROY ISC;Record Tracking Main Options; ; 2/2/87 8:50 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," ;"),8))
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 Transaction Menu
+1 GOTO ^RTT
+2 ;
2 ;;Request Record Menu
+1 GOTO ^RTQ
+2 ;
3 ;;System Definition Menu
+1 GOTO ^RTSYS
+2 ;
4 ;;Pull List Menu
+1 GOTO ^RTP
+2 ;
5 ;;Record Inquiry Menu
+1 GOTO ^RTNQ
+2 ;
6 ;;Computer Site Manager's Menu
+1 GOTO ^RTSM
+2 ;
7 ;;Management Reports Menu
+1 GOTO ^RTRPT
+2 ;
8 ;;MAS Specific Setup Menu
+1 GOTO ^RTMAS
+2 ;