source: WorldVistAEHR/trunk/r/ZZOTHER/ZZPATCH.m@ 623

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ZZPATCH ; 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
4EN ;
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
18EXIT ;
19 QUIT
20 ;
21 ;
221 ;
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 ;
53S ; screen out "Install Completed" patches from display
54 S ICSCREEN=1,ZZIOSL=20 G 1
55 ;
56F ; 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 ;
64X ; 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 ;
Note: See TracBrowser for help on using the repository browser.