AICD41 ; IHS/OIT/FBD&NKD - AICD 4.0 PATCH 1 LOAD ENVIRONMENT CHECKS ;04/19/2016
;;4.0;AICD;**1**;DEC 12, 2014;Build 1
;
;
D:'$D(IOM) HOME^%ZIS
;
; 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
;
I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
;
I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
;
S X=$P(^VA(200,DUZ,0),U)
W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($L($P($T(+2),";",5))>4:" Patch "_$P($T(+2),";",5),1:"")_".",IOM),!
;
; REQUIRED VERSION/PATCH CHECKS
S:'$$VCHK("XU","8.0") XPDQUIT=2 ; KERNEL
S:'$$VCHK("DI","22.0") XPDQUIT=2 ; FILEMAN
S:'$$VCHK("AICD","4.0") XPDQUIT=2 ; AICD
; END OF REQUIRED VERSION/PATCH CHECKS
;
; REQUIRED UPDATE GLOBALS
;
; ADDITIONAL CHECKS IF RE-INSTALLING
;
I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
;
I +$G(XPDQUIT) D SORRY(XPDQUIT)
;
; END OF ENVIRONMENT CHECK RUN LOGIC
Q
;
SORRY(X) ; Environment check failure message
KILL DIFQ
S XPDQUIT=X
W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
Q
;
VCHK(AICDPRE,AICDVER,AICDPAT) ; Check patch level
N AICDV,AICDP
S AICDV=$$VERSION^XPDUTL(AICDPRE)
I (AICDV<AICDVER) K DIFQ D DISP(AICDPRE,AICDVER,$G(AICDPAT),AICDV,$G(AICDP),0) Q 0
I '$D(AICDPAT) D DISP(AICDPRE,AICDVER,$G(AICDPAT),AICDV,$G(AICDP),1) Q 1
S AICDP=+$$LAST(AICDPRE,AICDVER)
I (AICDP<AICDPAT) K DIFQ D DISP(AICDPRE,AICDVER,$G(AICDPAT),AICDVER,$G(AICDP),0) Q 0
D DISP(AICDPRE,AICDVER,$G(AICDPAT),AICDVER,$G(AICDP),1)
Q 1
;
GCHK(AICDGL,AICDMSG) ; Check for global
Q:'$L($G(AICDGL)) 0
N AICDS
S AICDS="Requires "_$S('$L($G(AICDMSG)):AICDGL,1:$G(AICDMSG))_"....."
S AICDS=AICDS_$S($D(@AICDGL):"Present",1:"Not found ***FIX IT***")
W !,$$CJ^XLFSTR(AICDS,IOM)
Q $S($D(@AICDGL):1,1:0)
;
PCHK(PKG,VER,PAT) ; Check specific patch
N PKGIEN,VERIEN,PATIEN,AICDS
S PKG=$G(PKG),VER=$G(VER),PAT=$G(PAT)
S AICDS="Requires "_PKG_" v"_VER_" p"_PAT_"....."
D
. S PKGIEN=+$O(^DIC(9.4,"C",PKG,"")) Q:'PKGIEN
. S VERIEN=+$O(^DIC(9.4,PKGIEN,22,"B",VER,"")) Q:'VERIEN
. S PATIEN=+$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH","B",PAT,""))
S AICDS=AICDS_$S(+$G(PATIEN):"Present",1:"Not found ***FIX IT***")
W !,$$CJ^XLFSTR(AICDS,IOM)
Q $S(+$G(PATIEN):1,1:0)
;
DISP(AICDPRE,AICDVER,AICDPAT,AICDV,AICDP,AICDR) ; Display requirement checking results
N AICDS
S AICDS="Need at least "_$G(AICDPRE)_" v"_$G(AICDVER)_$S($G(AICDPAT)]"":" p"_$G(AICDPAT),1:"")_"....."
S AICDS=AICDS_$G(AICDPRE)_" v"_$G(AICDV)_$S($G(AICDP)]"":" p"_$G(AICDP),1:"")_" Present"
S AICDS=AICDS_$S('AICDR:" ***FIX IT***",1:"")
W !,$$CJ^XLFSTR(AICDS,IOM)
Q
LAST(PKG,VER) ; EP - returns last patch applied for a Package, PATCH^DATE
; Patch includes Seq # if Released
N PKGIEN,VERIEN,LATEST,PATCH,SUBIEN
I $G(VER)="" S VER=$$VERSION^XPDUTL(PKG) Q:'VER -1
S PKGIEN=$O(^DIC(9.4,"C",PKG,"")) Q:'PKGIEN -1
S VERIEN=$O(^DIC(9.4,PKGIEN,22,"B",VER,"")) Q:'VERIEN -1
S LATEST=-1,PATCH=-1,SUBIEN=0
F S SUBIEN=$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN)) Q:SUBIEN'>0 D
. I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)>LATEST S LATEST=$P(^(0),U,2),PATCH=$P(^(0),U)
. I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)=LATEST,$P(^(0),U)>PATCH S PATCH=$P(^(0),U)
Q PATCH_U_LATEST
;
PRE ; EP FR KIDS
Q
;
POST ; EP FR KIDS
Q
;
AICD41 ; IHS/OIT/FBD&NKD - AICD 4.0 PATCH 1 LOAD ENVIRONMENT CHECKS ;04/19/2016
+1 ;;4.0;AICD;**1**;DEC 12, 2014;Build 1
+2 ;
+3 ;
+4 IF '$DATA(IOM)
DO HOME^%ZIS
+5 ;
+6 ; The following line prevents the "Disable Options..." and "Move Routines..."
+7 ; questions from being asked during the install.
+8 IF $GET(XPDENV)=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+9 FOR X="XPO1","XPZ1","XPZ2","XPI1"
SET XPDDIQ(X)=0
+10 ;
+11 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR 0."
DO SORRY(2)
QUIT
+12 ;
+13 IF '$LENGTH($GET(DUZ(0)))
WRITE !,"DUZ(0) UNDEFINED OR NULL."
DO SORRY(2)
QUIT
+14 ;
+15 SET X=$PIECE(^VA(200,DUZ,0),U)
+16 WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)
+17 WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_$SELECT($LENGTH($PIECE($TEXT(+2),";",5))>4:" Patch "_$PIECE($TEXT(+2),";",5),1:"")_".",IOM),!
+18 ;
+19 ; REQUIRED VERSION/PATCH CHECKS
+20 ; KERNEL
IF '$$VCHK("XU","8.0")
SET XPDQUIT=2
+21 ; FILEMAN
IF '$$VCHK("DI","22.0")
SET XPDQUIT=2
+22 ; AICD
IF '$$VCHK("AICD","4.0")
SET XPDQUIT=2
+23 ; END OF REQUIRED VERSION/PATCH CHECKS
+24 ;
+25 ; REQUIRED UPDATE GLOBALS
+26 ;
+27 ; ADDITIONAL CHECKS IF RE-INSTALLING
+28 ;
+29 IF $GET(XPDQUIT)
WRITE !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
QUIT
+30 ;
+31 IF +$GET(XPDQUIT)
DO SORRY(XPDQUIT)
+32 ;
+33 ; END OF ENVIRONMENT CHECK RUN LOGIC
+34 QUIT
+35 ;
SORRY(X) ; Environment check failure message
+1 KILL DIFQ
+2 SET XPDQUIT=X
+3 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
+4 QUIT
+5 ;
VCHK(AICDPRE,AICDVER,AICDPAT) ; Check patch level
+1 NEW AICDV,AICDP
+2 SET AICDV=$$VERSION^XPDUTL(AICDPRE)
+3 IF (AICDV<AICDVER)
KILL DIFQ
DO DISP(AICDPRE,AICDVER,$GET(AICDPAT),AICDV,$GET(AICDP),0)
QUIT 0
+4 IF '$DATA(AICDPAT)
DO DISP(AICDPRE,AICDVER,$GET(AICDPAT),AICDV,$GET(AICDP),1)
QUIT 1
+5 SET AICDP=+$$LAST(AICDPRE,AICDVER)
+6 IF (AICDP<AICDPAT)
KILL DIFQ
DO DISP(AICDPRE,AICDVER,$GET(AICDPAT),AICDVER,$GET(AICDP),0)
QUIT 0
+7 DO DISP(AICDPRE,AICDVER,$GET(AICDPAT),AICDVER,$GET(AICDP),1)
+8 QUIT 1
+9 ;
GCHK(AICDGL,AICDMSG) ; Check for global
+1 IF '$LENGTH($GET(AICDGL))
QUIT 0
+2 NEW AICDS
+3 SET AICDS="Requires "_$SELECT('$LENGTH($GET(AICDMSG)):AICDGL,1:$GET(AICDMSG))_"....."
+4 SET AICDS=AICDS_$SELECT($DATA(@AICDGL):"Present",1:"Not found ***FIX IT***")
+5 WRITE !,$$CJ^XLFSTR(AICDS,IOM)
+6 QUIT $SELECT($DATA(@AICDGL):1,1:0)
+7 ;
PCHK(PKG,VER,PAT) ; Check specific patch
+1 NEW PKGIEN,VERIEN,PATIEN,AICDS
+2 SET PKG=$GET(PKG)
SET VER=$GET(VER)
SET PAT=$GET(PAT)
+3 SET AICDS="Requires "_PKG_" v"_VER_" p"_PAT_"....."
+4 Begin DoDot:1
+5 SET PKGIEN=+$ORDER(^DIC(9.4,"C",PKG,""))
IF 'PKGIEN
QUIT
+6 SET VERIEN=+$ORDER(^DIC(9.4,PKGIEN,22,"B",VER,""))
IF 'VERIEN
QUIT
+7 SET PATIEN=+$ORDER(^DIC(9.4,PKGIEN,22,VERIEN,"PAH","B",PAT,""))
End DoDot:1
+8 SET AICDS=AICDS_$SELECT(+$GET(PATIEN):"Present",1:"Not found ***FIX IT***")
+9 WRITE !,$$CJ^XLFSTR(AICDS,IOM)
+10 QUIT $SELECT(+$GET(PATIEN):1,1:0)
+11 ;
DISP(AICDPRE,AICDVER,AICDPAT,AICDV,AICDP,AICDR) ; Display requirement checking results
+1 NEW AICDS
+2 SET AICDS="Need at least "_$GET(AICDPRE)_" v"_$GET(AICDVER)_$SELECT($GET(AICDPAT)]"":" p"_$GET(AICDPAT),1:"")_"....."
+3 SET AICDS=AICDS_$GET(AICDPRE)_" v"_$GET(AICDV)_$SELECT($GET(AICDP)]"":" p"_$GET(AICDP),1:"")_" Present"
+4 SET AICDS=AICDS_$SELECT('AICDR:" ***FIX IT***",1:"")
+5 WRITE !,$$CJ^XLFSTR(AICDS,IOM)
+6 QUIT
LAST(PKG,VER) ; EP - returns last patch applied for a Package, PATCH^DATE
+1 ; Patch includes Seq # if Released
+2 NEW PKGIEN,VERIEN,LATEST,PATCH,SUBIEN
+3 IF $GET(VER)=""
SET VER=$$VERSION^XPDUTL(PKG)
IF 'VER
QUIT -1
+4 SET PKGIEN=$ORDER(^DIC(9.4,"C",PKG,""))
IF 'PKGIEN
QUIT -1
+5 SET VERIEN=$ORDER(^DIC(9.4,PKGIEN,22,"B",VER,""))
IF 'VERIEN
QUIT -1
+6 SET LATEST=-1
SET PATCH=-1
SET SUBIEN=0
+7 FOR
SET SUBIEN=$ORDER(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN))
IF SUBIEN'>0
QUIT
Begin DoDot:1
+8 IF $PIECE(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)>LATEST
SET LATEST=$PIECE(^(0),U,2)
SET PATCH=$PIECE(^(0),U)
+9 IF $PIECE(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)=LATEST
IF $PIECE(^(0),U)>PATCH
SET PATCH=$PIECE(^(0),U)
End DoDot:1
+10 QUIT PATCH_U_LATEST
+11 ;
PRE ; EP FR KIDS
+1 QUIT
+2 ;
POST ; EP FR KIDS
+1 QUIT
+2 ;
