AICD41.m

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       ;