| [623] | 1 | XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR; [8/9/05 9:23am]
|
|---|
| 2 | ;;7.3;TOOLKIT;**98**; Apr 25, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; computed fields
|
|---|
| 5 | INSTALL ; returns the patch installation information from the INSTALL file.
|
|---|
| 6 | ; note: Fileman variables are NOT killed because they are used in output.
|
|---|
| 7 | ; read the index backwards and select the last patch reference because TEST
|
|---|
| 8 | ; patches may be involved. If a test patch, null the pointer, like nothing is there.
|
|---|
| 9 | S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
|
|---|
| 10 | S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X=""
|
|---|
| 11 | S X=$P($G(^XPD(9.7,+X,1)),U,3)
|
|---|
| 12 | S X=$E(X,1,7)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | WHO ; returns who installed the patch
|
|---|
| 16 | S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
|
|---|
| 17 | S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X=""
|
|---|
| 18 | S X=$P($G(^XPD(9.7,+X,0)),U,11)
|
|---|
| 19 | S X=$P($G(^VA(200,+X,0)),U)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | ; other utility items
|
|---|
| 23 | ; patch inquiry
|
|---|
| 24 | INQUIRE S IOP="HOME" D ^%ZIS K IOP S $P(DASH,"-",75)=""
|
|---|
| 25 | S HD="Patch Inquiry for "_^DD("SITE")
|
|---|
| 26 | W @IOF,!,HD,!!! K DIC,X,Y
|
|---|
| 27 | S DIC("A")="Enter PATCH NAME: ",DIC="^XPD(9.9,",DIC(0)="AEQM"
|
|---|
| 28 | D ^DIC G:Y<0 EXITI S DA=+Y
|
|---|
| 29 | ;
|
|---|
| 30 | LOOKUP W @IOF,! S DR="0:9",DIQ(0)="C"
|
|---|
| 31 | S DA=+Y W @IOF,HD,!!!!!,DASH D EN1^DIQ W DASH
|
|---|
| 32 | ;
|
|---|
| 33 | CONT W !!!,"Press RETURN to continue or '^' to exit " R ANS:DTIME G:'$T EXITI
|
|---|
| 34 | G:ANS[U EXITI
|
|---|
| 35 | G INQUIRE
|
|---|
| 36 | ;
|
|---|
| 37 | EXITI I IOST?1"C-".E W @IOF,!
|
|---|
| 38 | ; clean up FM vars left
|
|---|
| 39 | K %,%X,A,ANS,D0,D1,D2,DA,DIC,DIK,DL,DX,HD
|
|---|
| 40 | K I,POP,S,DASH,DR,X,Y,DK,DIQ,IOP
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | PKGLOOK ; used for free-text lookup in monitoring of namespaces
|
|---|
| 44 | N DIC,Y,D0,DO,DA,DICR
|
|---|
| 45 | S DIC(0)="EQM",DIC="^DIC(9.4," D ^DIC
|
|---|
| 46 | I Y<0 K X Q
|
|---|
| 47 | S X=$P($G(^DIC(9.4,+Y,0)),U,2) ; get package prefix
|
|---|
| 48 | Q
|
|---|
| 49 | CMPDTCG ; Compliance Date change
|
|---|
| 50 | K XTBCMDCG
|
|---|
| 51 | S XTBMLN1=$G(^XMB(3.9,XMZ,0)) I XTBMLN1["COMPLIANCE DATE CHANGE" DO
|
|---|
| 52 | .F XTBX=0:0 S XTBX=$O(^XMB(3.9,XMZ,2,XTBX)) Q:XTBX=""!(+XTBX=0) S XTBY=$G(^XMB(3.9,XMZ,2,XTBX,0)) DO
|
|---|
| 53 | ..I XTBY["PATCH " S XTBDESG=$P($P(XTBY,"PATCH ",2)," ",1) Q
|
|---|
| 54 | ..I $D(XTBDESG),XTBY["The Compliance Date for patch"&(XTBY["has been changed to") DO
|
|---|
| 55 | ...S XTBTCMPD=$P(XTBY,"has been changed to ",2)
|
|---|
| 56 | ...S DIC(0)="M",(DIC,DIE)="^XPD(9.9,",X=XTBDESG D ^DIC I Y<0 S XTBX=9999999 Q
|
|---|
| 57 | ...S DA=+Y,DR="8///"_XTBTCMPD D ^DIE
|
|---|
| 58 | ...S XTBCMDCG=1
|
|---|
| 59 | .K DR,DIC,DIE,DA,X,Y,XTBDESG,XTBTCMPD
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | EXITA D ^%ZISC
|
|---|
| 63 | K ^TMP($J)
|
|---|
| 64 | K XTBDESG,XTBI,XTBINST,XTBINSTX,XTBPKG,XTBPRIO,XTBSEQ,XTBSUB,%ZIS,XTBANS,XTBCOMPD,XTBPURGI
|
|---|
| 65 | K XTBVER,XTBX,XTBY,XTBZ,DIC,DIE,DO,DD,X,XMB,XMER,XMREC,XMRG,XX,XTBXX,XTBHDR,PG,POP,XTBMLN1
|
|---|
| 66 | K XTBDA,XTBLIMIT,XTBLN,XTBPTNM,XTBRECPT,XTBRUNDT,XTBSUBJ,ZTDESC,XTBCNT
|
|---|
| 67 | K XTBX,XTBDTA,XTBDTA,X1,X2,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,Y,XTBRCPDT,XTBMG,XTBMGN
|
|---|
| 68 | K XTBINSDA,XTBISTAT,NOFILE,XTBPTYPE,XTBPLVER,XTBPKGPT,XTBPCTVR,YY1
|
|---|
| 69 | K XTBX1,XTBZ,NIGHT,XTBCMPDT,ZTSK,ZTIO,ZTRTN,ZTSAVE
|
|---|
| 70 | Q
|
|---|
