source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQJL132.m@ 701

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

initial load of WorldVistAEHR

File size: 790 bytes
Line 
1AAQJL132 ;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 #"
7ASKROU 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
13FRTO S (FR,TO)=AAQJPKG D EN1^DIP
14EXIT 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.