BXT1POST ;IHS/OIT/FBD-Environment Check and Pre/Post Init Process ; 21 Nov 2013 7:45 AM
;;1.0;IHS EXTENSIONS TO KERNEL TOOLKIT;;Dec 19, 2013;Build 12
;
;
; The following line prevents the "Disable Options..." and "Move Routines..." questions from being asked during the install.
I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
;KERNEL
I +$$VERSION^XPDUTL("XU")<8 D MES^XPDUTL($$CJ^XLFSTR("Version 8.0 of KERNEL is required. Not installed",80)) D SORRY(2) I 1
E D MES^XPDUTL($$CJ^XLFSTR("Requires Kernel Version 8.0....Present.",80))
;FILEMAN
I +$$VERSION^XPDUTL("DI")<22 D MES^XPDUTL($$CJ^XLFSTR("Version 22.0 of FILEMAN is required. Not installed.",80)) D SORRY(2) I 1
E D MES^XPDUTL($$CJ^XLFSTR("Requires Fileman v22....Present.",80))
;XT
I $$VERSION^XPDUTL("XT")'="7.3" D MES^XPDUTL($$CJ^XLFSTR("Version 7.3 of the TOOLKIT is required. Not installed",80)) D SORRY(2) I 1
E D MES^XPDUTL($$CJ^XLFSTR("Requires TOOLKIT Version 7.3 ....Present.",80))
;XT 7.3 PATCH 1017
I '$$INSTALLD("XT*7.3*1017") D SORRY(2)
;
;
Q ;END OF ENVIRONMENT CHECK
;
PRE ;PATCH 26 PRE-INIT CHECKS AND PROCESSES
D MES^XPDUTL($$CJ^XLFSTR("Beginning BXT v1.0 pre-init process.",80))
;
I '$D(^BXPA(9002026.01,"ABASE")) D
.NEW BXIEN,BXDATA,OPER,PNAME,ENT,INST
.S BXIEN=0
.F S BXIEN=$O(^BXPA(9002026.01,BXIEN)) Q:'BXIEN D
..S BXDATA=$G(^BXPA(9002026.01,BXIEN,0)) I BXDATA="" Q
..S OPER=$P(BXDATA,U,4),PNAME=$P(BXDATA,U,5),ENT=$P(BXDATA,U,6),INST=$P(BXDATA,U,7)
..I PNAME=""!(ENT="")!(INST="")!(OPER="") Q
..S ^BXPA(9002026.01,"ABASE",PNAME,ENT,INST,OPER,BXIEN)=""
D MES^XPDUTL($$CJ^XLFSTR("BXT v1.0 pre-init process complete.",80))
Q
;
;
POST ;BXPA v1.0 POST-INIT PROCESSES
D MES^XPDUTL($$CJ^XLFSTR("Beginning BXT v1.0 post-init process.",80))
;
D PDPOP ;POPULATE PARAMETER AUDIT LIST WITH MINIMUM AUDIT SET
D BASELINE ;ESTABLISH PARAMETER AUDIT LIST FILE'S BASELINE LOAD
; Add the main menu to AKMOCORE
S X=$$ADD^XPDMENU("AKMOCORE","BXPAMENU","BXT")
;
D MES^XPDUTL($$CJ^XLFSTR("BXT v1.0 post-init process complete.",80))
Q
;
;
PDPOP ;PARAMETER AUDIT LIST FILE POPULATION
D MES^XPDUTL($$CJ^XLFSTR("Populating PARAMETER AUDIT LIST file...",80))
N PTR,PDIDX,PDNAME
F PDIDX=1:1 D Q:PDNAME="END OF PDLIST"
.S PDNAME=$P($T(PDLIST+PDIDX),";",3) Q:PDNAME="END OF PDLIST"
.I $D(^BXPA(9002026.02,"B",PDNAME)) D ;SKIP IF ALREADY IN PARAMETER AUDIT LIST
..D MES^XPDUTL($$LJ^XLFSTR(PDNAME_" already in PARAMETER AUDIT LIST - skipped.",80))
..I 1
.E D ;NOT ALREADY IN PARAMETER AUDIT LIST - PROCEED
..I $D(^XTV(8989.51,"B",PDNAME)) D ;SAFETY CHECK - MATCHING ENTRY IN PARAMETER DEFINITION FILE?
...S PTR=$O(^XTV(8989.51,"B",PDNAME,""))
...K DA,DIC,UPD
...S DIC="^BXPA(9002026.02,",DIC(0)="ML",DLAYGO=9002026.02
...S DIC("DR")="3///`"_PTR
...S X=PDNAME
...D FILE^DICN K DIC
...S DA=+Y
...D HIST^BXPAUDIT(+Y,"ENABLED")
...S UPD(9002026.02,DA_",",4)=1
...D FILE^DIE("","UPD","ERROR")
...D MES^XPDUTL($$LJ^XLFSTR(PDNAME_" added to PARAMETER AUDIT LIST file.",80))
...I 1
..E D ;FAILED PARAMETER DEFINITION FILE SAFETY CHECK - NO MATCH
...D MES^XPDUTL($$LJ^XLFSTR(PDNAME_" not found in PARAMETER DEFINITION file - skipped.",80))
D MES^XPDUTL($$CJ^XLFSTR("PARAMETER AUDIT LIST file population complete.",80))
Q
;
PDLIST ;;
;;ORB PROCESSING FLAG
;;ORB SYSTEM ENABLE/DISABLE
;;ORK PROCESSING FLAG
;;ORK SYSTEM ENABLE/DISABLE
;;ORK EDITABLE BY USER
;;ORQQPX COVER SHEET REMINDERS
;;END OF PDLIST
;
;
BASELINE ;ESTABLISH INITIAL BASELINE
D MES^XPDUTL($$CJ^XLFSTR("Establishing initial baseline for PARAMETER AUDIT LIST file...",80))
D BASE^BXPAUDIT
D MES^XPDUTL($$CJ^XLFSTR("PARAMETER AUDIT LIST file baseline procedure complete.",80))
Q
;
;
INSTALLD(AUTSTAL) ;EP - Determine if patch AUTSTAL was installed, where
; AUTSTAL is the name of the INSTALL. E.g "AG*6.0*11".
;
NEW AUTY,DIC,X,Y
S X=$P(AUTSTAL,"*",1)
S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
D IX^DIC
I Y<1 D IMES Q 0
S DIC=DIC_+Y_",22,",X=$P(AUTSTAL,"*",2)
D ^DIC
I Y<1 D IMES Q 0
S DIC=DIC_+Y_",""PAH"",",X=$P(AUTSTAL,"*",3)
D ^DIC
S AUTY=Y
D IMES
Q $S(AUTY<1:0,1:1)
IMES ;
D MES^XPDUTL($$CJ^XLFSTR("Patch """_AUTSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
Q
SORRY(X) ;
KILL DIFQ
I X=3 S XPDQUIT=2 Q
S XPDQUIT=X
W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
Q
BXT1POST ;IHS/OIT/FBD-Environment Check and Pre/Post Init Process ; 21 Nov 2013 7:45 AM
+1 ;;1.0;IHS EXTENSIONS TO KERNEL TOOLKIT;;Dec 19, 2013;Build 12
+2 ;
+3 ;
+4 ; The following line prevents the "Disable Options..." and "Move Routines..." questions from being asked during the install.
+5 IF $GET(XPDENV)=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+6 FOR X="XPO1","XPZ1","XPZ2","XPI1"
SET XPDDIQ(X)=0
+7 ;KERNEL
+8 IF +$$VERSION^XPDUTL("XU")<8
DO MES^XPDUTL($$CJ^XLFSTR("Version 8.0 of KERNEL is required. Not installed",80))
DO SORRY(2)
IF 1
+9 IF '$TEST
DO MES^XPDUTL($$CJ^XLFSTR("Requires Kernel Version 8.0....Present.",80))
+10 ;FILEMAN
+11 IF +$$VERSION^XPDUTL("DI")<22
DO MES^XPDUTL($$CJ^XLFSTR("Version 22.0 of FILEMAN is required. Not installed.",80))
DO SORRY(2)
IF 1
+12 IF '$TEST
DO MES^XPDUTL($$CJ^XLFSTR("Requires Fileman v22....Present.",80))
+13 ;XT
+14 IF $$VERSION^XPDUTL("XT")'="7.3"
DO MES^XPDUTL($$CJ^XLFSTR("Version 7.3 of the TOOLKIT is required. Not installed",80))
DO SORRY(2)
IF 1
+15 IF '$TEST
DO MES^XPDUTL($$CJ^XLFSTR("Requires TOOLKIT Version 7.3 ....Present.",80))
+16 ;XT 7.3 PATCH 1017
+17 IF '$$INSTALLD("XT*7.3*1017")
DO SORRY(2)
+18 ;
+19 ;
+20 ;END OF ENVIRONMENT CHECK
QUIT
+21 ;
PRE ;PATCH 26 PRE-INIT CHECKS AND PROCESSES
+1 DO MES^XPDUTL($$CJ^XLFSTR("Beginning BXT v1.0 pre-init process.",80))
+2 ;
+3 IF '$DATA(^BXPA(9002026.01,"ABASE"))
Begin DoDot:1
+4 NEW BXIEN,BXDATA,OPER,PNAME,ENT,INST
+5 SET BXIEN=0
+6 FOR
SET BXIEN=$ORDER(^BXPA(9002026.01,BXIEN))
IF 'BXIEN
QUIT
Begin DoDot:2
+7 SET BXDATA=$GET(^BXPA(9002026.01,BXIEN,0))
IF BXDATA=""
QUIT
+8 SET OPER=$PIECE(BXDATA,U,4)
SET PNAME=$PIECE(BXDATA,U,5)
SET ENT=$PIECE(BXDATA,U,6)
SET INST=$PIECE(BXDATA,U,7)
+9 IF PNAME=""!(ENT="")!(INST="")!(OPER="")
QUIT
+10 SET ^BXPA(9002026.01,"ABASE",PNAME,ENT,INST,OPER,BXIEN)=""
End DoDot:2
End DoDot:1
+11 DO MES^XPDUTL($$CJ^XLFSTR("BXT v1.0 pre-init process complete.",80))
+12 QUIT
+13 ;
+14 ;
POST ;BXPA v1.0 POST-INIT PROCESSES
+1 DO MES^XPDUTL($$CJ^XLFSTR("Beginning BXT v1.0 post-init process.",80))
+2 ;
+3 ;POPULATE PARAMETER AUDIT LIST WITH MINIMUM AUDIT SET
DO PDPOP
+4 ;ESTABLISH PARAMETER AUDIT LIST FILE'S BASELINE LOAD
DO BASELINE
+5 ; Add the main menu to AKMOCORE
+6 SET X=$$ADD^XPDMENU("AKMOCORE","BXPAMENU","BXT")
+7 ;
+8 DO MES^XPDUTL($$CJ^XLFSTR("BXT v1.0 post-init process complete.",80))
+9 QUIT
+10 ;
+11 ;
PDPOP ;PARAMETER AUDIT LIST FILE POPULATION
+1 DO MES^XPDUTL($$CJ^XLFSTR("Populating PARAMETER AUDIT LIST file...",80))
+2 NEW PTR,PDIDX,PDNAME
+3 FOR PDIDX=1:1
Begin DoDot:1
+4 SET PDNAME=$PIECE($TEXT(PDLIST+PDIDX),";",3)
IF PDNAME="END OF PDLIST"
QUIT
+5 ;SKIP IF ALREADY IN PARAMETER AUDIT LIST
IF $DATA(^BXPA(9002026.02,"B",PDNAME))
Begin DoDot:2
+6 DO MES^XPDUTL($$LJ^XLFSTR(PDNAME_" already in PARAMETER AUDIT LIST - skipped.",80))
+7 IF 1
End DoDot:2
+8 ;NOT ALREADY IN PARAMETER AUDIT LIST - PROCEED
IF '$TEST
Begin DoDot:2
+9 ;SAFETY CHECK - MATCHING ENTRY IN PARAMETER DEFINITION FILE?
IF $DATA(^XTV(8989.51,"B",PDNAME))
Begin DoDot:3
+10 SET PTR=$ORDER(^XTV(8989.51,"B",PDNAME,""))
+11 KILL DA,DIC,UPD
+12 SET DIC="^BXPA(9002026.02,"
SET DIC(0)="ML"
SET DLAYGO=9002026.02
+13 SET DIC("DR")="3///`"_PTR
+14 SET X=PDNAME
+15 DO FILE^DICN
KILL DIC
+16 SET DA=+Y
+17 DO HIST^BXPAUDIT(+Y,"ENABLED")
+18 SET UPD(9002026.02,DA_",",4)=1
+19 DO FILE^DIE("","UPD","ERROR")
+20 DO MES^XPDUTL($$LJ^XLFSTR(PDNAME_" added to PARAMETER AUDIT LIST file.",80))
+21 IF 1
End DoDot:3
+22 ;FAILED PARAMETER DEFINITION FILE SAFETY CHECK - NO MATCH
IF '$TEST
Begin DoDot:3
+23 DO MES^XPDUTL($$LJ^XLFSTR(PDNAME_" not found in PARAMETER DEFINITION file - skipped.",80))
End DoDot:3
End DoDot:2
End DoDot:1
IF PDNAME="END OF PDLIST"
QUIT
+24 DO MES^XPDUTL($$CJ^XLFSTR("PARAMETER AUDIT LIST file population complete.",80))
+25 QUIT
+26 ;
PDLIST ;;
+1 ;;ORB PROCESSING FLAG
+2 ;;ORB SYSTEM ENABLE/DISABLE
+3 ;;ORK PROCESSING FLAG
+4 ;;ORK SYSTEM ENABLE/DISABLE
+5 ;;ORK EDITABLE BY USER
+6 ;;ORQQPX COVER SHEET REMINDERS
+7 ;;END OF PDLIST
+8 ;
+9 ;
BASELINE ;ESTABLISH INITIAL BASELINE
+1 DO MES^XPDUTL($$CJ^XLFSTR("Establishing initial baseline for PARAMETER AUDIT LIST file...",80))
+2 DO BASE^BXPAUDIT
+3 DO MES^XPDUTL($$CJ^XLFSTR("PARAMETER AUDIT LIST file baseline procedure complete.",80))
+4 QUIT
+5 ;
+6 ;
INSTALLD(AUTSTAL) ;EP - Determine if patch AUTSTAL was installed, where
+1 ; AUTSTAL is the name of the INSTALL. E.g "AG*6.0*11".
+2 ;
+3 NEW AUTY,DIC,X,Y
+4 SET X=$PIECE(AUTSTAL,"*",1)
+5 SET DIC="^DIC(9.4,"
SET DIC(0)="FM"
SET D="C"
+6 DO IX^DIC
+7 IF Y<1
DO IMES
QUIT 0
+8 SET DIC=DIC_+Y_",22,"
SET X=$PIECE(AUTSTAL,"*",2)
+9 DO ^DIC
+10 IF Y<1
DO IMES
QUIT 0
+11 SET DIC=DIC_+Y_",""PAH"","
SET X=$PIECE(AUTSTAL,"*",3)
+12 DO ^DIC
+13 SET AUTY=Y
+14 DO IMES
+15 QUIT $SELECT(AUTY<1:0,1:1)
IMES ;
+1 DO MES^XPDUTL($$CJ^XLFSTR("Patch """_AUTSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))
+2 QUIT
SORRY(X) ;
+1 KILL DIFQ
+2 IF X=3
SET XPDQUIT=2
QUIT
+3 SET XPDQUIT=X
+4 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
+5 QUIT
