|
Last change
on this file since 1141 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
734 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | RT ;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
|
|---|
| 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 Transaction Menu
|
|---|
| 10 | G ^RTT
|
|---|
| 11 | ;
|
|---|
| 12 | 2 ;;Request Record Menu
|
|---|
| 13 | G ^RTQ
|
|---|
| 14 | ;
|
|---|
| 15 | 3 ;;System Definition Menu
|
|---|
| 16 | G ^RTSYS
|
|---|
| 17 | ;
|
|---|
| 18 | 4 ;;Pull List Menu
|
|---|
| 19 | G ^RTP
|
|---|
| 20 | ;
|
|---|
| 21 | 5 ;;Record Inquiry Menu
|
|---|
| 22 | G ^RTNQ
|
|---|
| 23 | ;
|
|---|
| 24 | 6 ;;Computer Site Manager's Menu
|
|---|
| 25 | G ^RTSM
|
|---|
| 26 | ;
|
|---|
| 27 | 7 ;;Management Reports Menu
|
|---|
| 28 | G ^RTRPT
|
|---|
| 29 | ;
|
|---|
| 30 | 8 ;;MAS Specific Setup Menu
|
|---|
| 31 | G ^RTMAS
|
|---|
| 32 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
