| 1 | AAQJL80 ;FGO/JHS; List Patch Record (80 col.) ;03-16-98 [3/15/00 3:04pm]
|
|---|
| 2 | ;;1.4;AAQJ PATCH RECORD;; May 14, 1999 ;Beware a timestamp above with the Ides of March
|
|---|
| 3 | ;Any experienced VistA programmer should know that a change to lines 1 or 2 or a comment line will have no effect on the checksum value from CHECK^XTSUMBLD.
|
|---|
| 4 | S (AAQTST,AAQTSW)=0,U="^",DIC="^DIZ(437016,",DIC(0)="AEQM"
|
|---|
| 5 | D ^DIC W ! S AAQJDA=+Y,AAQPKG=$P(Y,U,2),AAQJPKG=AAQPKG G:Y=-1 EXIT
|
|---|
| 6 | ASKALL R !,"List (L)ocal/Support Only or (A)ll Patches?: A// ",AAQALL:60 G:AAQALL="^" EXIT W:$E(AAQALL,1)="L" "ocal/Support Only" W:$E(AAQALL,1)="A" "ll Patches"
|
|---|
| 7 | I AAQALL?1L.E S AAQALL=$$UP^XLFSTR(AAQALL)
|
|---|
| 8 | I (AAQALL="")!(AAQALL="A") S AAQALL="A" S AAQSHDR="Sorted by Patch #" G ASKINS
|
|---|
| 9 | I $E(AAQALL,1)'="A",$E(AAQALL,1)'="L" W !!,"Enter uppercase L or A, `^' to quit." G ASKALL
|
|---|
| 10 | S AAQSHDR="Sorted by Local/Support #"
|
|---|
| 11 | ASKINS S %=2 W !,"Do you want Install File info on the list" D YN^DICN S AAQINS=% I %=0 W !!,"Enter uppercase Y or N, `^' at DEVICE: to quit." G ASKINS
|
|---|
| 12 | W ! S DIC="^DIZ(437016,"
|
|---|
| 13 | S FLDS="[AAQJ LIST 80]",DHD="[AAQJ LIST 80 HEADING]"
|
|---|
| 14 | I AAQINS=1 S DHIT="D PINST^AAQJL80"
|
|---|
| 15 | I AAQALL="A" S BY="[AAQJ PKG/VERS/PATCH]" G FRTO
|
|---|
| 16 | S BY="[AAQJ LOCAL/SUPPORT]"
|
|---|
| 17 | FRTO S FR(1)=AAQPKG,TO(1)=AAQPKG,FR(2)="",TO(2)=""
|
|---|
| 18 | D EN1^DIP
|
|---|
| 19 | EXIT K %,AAQALL,AAQDESC,AAQX D EXITK^AAQJPINQ
|
|---|
| 20 | K AAQINS,AAQJDA,AAQJPKG,AAQPKG,AAQSHDR,AAQTST,AAQTSW,DIOO1,DDD0 Q
|
|---|
| 21 | ;Fields not listed as killed in %Index are killed by AAQJPINQ or DIP
|
|---|
| 22 | PINST I $E(DIOO1,1,1)=" " S AAQX=$P(DIOO1," ",2)
|
|---|
| 23 | E S AAQX=DIOO1
|
|---|
| 24 | I $E(AAQX,1,1)=0 S AAQPAT=$P(DIOO1,"0",2)
|
|---|
| 25 | E S AAQPAT=AAQX
|
|---|
| 26 | S AAQJPAT=DIOO1,AAQPKG=DIOO2,AAQNOF=0 D PINST^AAQJPINQ Q
|
|---|
