| 1 | ZZPATCH ; REVIEW INSTALL FILE FOR RECENTLY LOADED/INSTALLED PATCHES
|
|---|
| 2 | NEW ICSCREEN,ZZIOSL,DIR,PATCHES,X,Y,IEN,STOP,KATHY,KAREN,STATUS,PSEARCH
|
|---|
| 3 | NEW PATCHNM,OLDPCH,DT,DTIME,DUZ,DIRUT,DUOUT,DISYS,IO
|
|---|
| 4 | EN ;
|
|---|
| 5 | W !!
|
|---|
| 6 | K ICSCREEN,PSEARCH
|
|---|
| 7 | S ZZIOSL=20,OLDPCH=4600
|
|---|
| 8 | S DIR(0)="SO^1:Regular Listing;2:Screen out 'Install Completed';3:Modify Page Length;4:Search for Specific Package or Patch;5:Quit"
|
|---|
| 9 | S DIR("A")="Select the type of display"
|
|---|
| 10 | S DIR("B")=1
|
|---|
| 11 | I $G(PATCHES) S DIR("B")=5
|
|---|
| 12 | D ^DIR K DIR I 'Y G EXIT
|
|---|
| 13 | I Y=1 G 1
|
|---|
| 14 | I Y=2 G S
|
|---|
| 15 | I Y=3 G F
|
|---|
| 16 | I Y=4 G X
|
|---|
| 17 | I Y=5 G EXIT
|
|---|
| 18 | EXIT ;
|
|---|
| 19 | QUIT
|
|---|
| 20 | ;
|
|---|
| 21 | ;
|
|---|
| 22 | 1 ;
|
|---|
| 23 | S IEN=999999,STOP=0,U="^",DUZ=12799,DT=$P($$NOW^XLFDT,".",1)
|
|---|
| 24 | S DTIME=300,DUZ(0)="@",PATCHES=0
|
|---|
| 25 | K ^TMP($J,"ZZPATCH")
|
|---|
| 26 | W #
|
|---|
| 27 | F S IEN=$O(^XPD(9.7,IEN),-1) Q:'IEN!STOP!(IEN<OLDPCH) D
|
|---|
| 28 | . I $Y>ZZIOSL D Q:STOP
|
|---|
| 29 | .. N X R !,"Continue? ",X:DTIME
|
|---|
| 30 | .. I $L(X),$F("^Nn",$E(X)) S STOP=1 Q
|
|---|
| 31 | .. W #
|
|---|
| 32 | .. Q
|
|---|
| 33 | . S PATCHES=PATCHES+1
|
|---|
| 34 | . I PATCHES#50=0,$G(ICSCREEN)!($G(PSEARCH)'="") W "."
|
|---|
| 35 | . S KATHY=$G(^XPD(9.7,IEN,0))
|
|---|
| 36 | . S KAREN=$G(^XPD(9.7,IEN,1))
|
|---|
| 37 | . S STATUS=$$EXTERNAL^DILFD(9.7,.02,"",$P(KATHY,U,9))
|
|---|
| 38 | . I $G(ICSCREEN),STATUS="Install Completed" Q
|
|---|
| 39 | . S PATCHNM=$P(KATHY,U,1)
|
|---|
| 40 | . I $D(PSEARCH),PATCHNM'[PSEARCH Q
|
|---|
| 41 | . W !,PATCHNM
|
|---|
| 42 | . I $D(^TMP($J,"ZZPATCH",PATCHNM)) W " **"
|
|---|
| 43 | . S ^TMP($J,"ZZPATCH",PATCHNM,IEN)=""
|
|---|
| 44 | . W ?15,STATUS
|
|---|
| 45 | . W ?45,"Loaded: ",$$FMTE^XLFDT($P(KATHY,U,3),"2Z")
|
|---|
| 46 | . W !?15,$P($G(^VA(200,+$P(KATHY,U,11),0)),U,1)
|
|---|
| 47 | . W ?42,"Installed: ",$$FMTE^XLFDT($P(KAREN,U,3),"2Z")
|
|---|
| 48 | . Q
|
|---|
| 49 | K ^TMP($J,"ZZPATCH")
|
|---|
| 50 | G EN
|
|---|
| 51 | ;
|
|---|
| 52 | ;
|
|---|
| 53 | S ; screen out "Install Completed" patches from display
|
|---|
| 54 | S ICSCREEN=1,ZZIOSL=20 G 1
|
|---|
| 55 | ;
|
|---|
| 56 | F ; ask how big the page length should be
|
|---|
| 57 | K ICSCREEN
|
|---|
| 58 | S DIR(0)="NO^1:999:0",DIR("A")="Page Length",DIR("B")=20
|
|---|
| 59 | D ^DIR K DIR
|
|---|
| 60 | I 'Y Q
|
|---|
| 61 | S ZZIOSL=Y
|
|---|
| 62 | G 1
|
|---|
| 63 | ;
|
|---|
| 64 | X ; search for package or patch indicated
|
|---|
| 65 | S OLDPCH=2000 ; go back farther
|
|---|
| 66 | R !!,"Enter Package or Patch to search for: ",PSEARCH
|
|---|
| 67 | I PSEARCH="" KILL PSEARCH
|
|---|
| 68 | G 1
|
|---|
| 69 | ;
|
|---|
