source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMKPCF.m@ 699

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

revised back to 6/30/08 version

File size: 2.7 KB
Line 
1XTPMKPCF ;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
5INSTALL ; 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 ;
15WHO ; 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
24INQUIRE 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 ;
30LOOKUP W @IOF,! S DR="0:9",DIQ(0)="C"
31 S DA=+Y W @IOF,HD,!!!!!,DASH D EN1^DIQ W DASH
32 ;
33CONT W !!!,"Press RETURN to continue or '^' to exit " R ANS:DTIME G:'$T EXITI
34 G:ANS[U EXITI
35 G INQUIRE
36 ;
37EXITI 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 ;
43PKGLOOK ; 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
49CMPDTCG ; 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 ;
62EXITA 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
Note: See TracBrowser for help on using the repository browser.