|
Last change
on this file since 770 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
790 bytes
|
| Line | |
|---|
| 1 | AAQJL132 ;FGO/JHS; Local Patch List (132 col.) ;10-07-97 [5/24/99 11:17pm]
|
|---|
| 2 | ;;1.4;AAQJ PATCH RECORD;; May 14, 1999
|
|---|
| 3 | W !!,"A 132 column printer should be used for this report.",!
|
|---|
| 4 | S U="^",DIC="^DIZ(437016,",DIC(0)="AEQM"
|
|---|
| 5 | D ^DIC W ! S AAQJDA=+Y,AAQJPKG=$P(Y,U,2) G:Y=-1 EXIT
|
|---|
| 6 | S AAQSHDR="Sorted by LOCAL/SUPPORT #"
|
|---|
| 7 | ASKROU S %=2 W !,"Do you want the Routine field on the list" D YN^DICN S AAQROU=% I %=0 W !!,"Enter uppercase Y or N, `^' at DEVICE: to quit." G ASKROU
|
|---|
| 8 | G:%Y="^" EXIT
|
|---|
| 9 | S DIC="^DIZ(437016,"
|
|---|
| 10 | S FLDS="[AAQJ LIST 132]",DHD="[AAQJ LIST 132 HEADING]"
|
|---|
| 11 | S:AAQROU=1 FLDS="[AAQJ LIST 132 ROU]",DHD="[AAQJ LIST 132 ROU HDG]"
|
|---|
| 12 | S BY="[AAQJ LOCAL/SUPPORT]" G FRTO
|
|---|
| 13 | FRTO S (FR,TO)=AAQJPKG D EN1^DIP
|
|---|
| 14 | EXIT K %,%Y,AAQJDA,AAQJPKG,AAQROU,AAQSHDR,POP Q
|
|---|
| 15 | ;All other input variables killed by EN1^DIP
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
