AG71A11 ;IHS/OIT/NKD - Patient Registration 7.1 PATCH 11 ENVIRONMENT CHECK/PRE/POST INSTALL ; FEBRUARY 10, 2014
;;7.1;PATIENT REGISTRATION;**11**;AUG 25, 2005;Build 1
;
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),!
;
I $$VCHK("XU","8.0",2)
I $$VCHK("DI","22.0",2)
I $$PCHK("AG*7.1*10",2)
I $$VCHK2("AVA","93.2.22",2)
I $$VCHK2("AUPN","99.1.23",2)
;
I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
;
W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
;
Q
;
SORRY(X) ;
KILL DIFQ
S XPDQUIT=X
W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
Q
;
VCHK(AGPRE,AGVER,AGQUIT) ; Check version level
;
NEW AGV
S AGV=$$VERSION^XPDUTL(AGPRE)
W !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM)
I AGV<AGVER KILL DIFQ S XPDQUIT=AGQUIT D SORRY(AGQUIT) Q 0
Q 1
VCHK2(AGPRE,AGVER,AGQUIT) ; Check patch level
NEW AGV
S AGV=$$VERSION^XPDUTL(AGPRE)
S PTCH=+$$LAST(AGPRE,AGV) S:PTCH=-1 DPTCH="" S:PTCH'=-1 DPTCH="."_PTCH
W !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_DPTCH_" Present",IOM)
I (AGV<($P(AGVER,".",1,2))) KILL DIFQ S XPDQUIT=AGQUIT D SORRY(AGQUIT) Q 0
I (AGV=$P(AGVER,".",1,2))&(PTCH<$P(AGVER,".",3)) KILL DIFQ S XPDQUIT=AGQUIT D SORRY(AGQUIT) Q 0
Q 1
PCHK(AGPAT,AGQUIT) ; Check specific patch
N AGP
S AGP=$$PATCH^XPDUTL(AGPAT)
W !,$$CJ^XLFSTR("Patch "_AGPAT_" is "_$S(AGP<1:"*NOT* ",1:"")_"installed.",IOM)
I 'AGP KILL DIFQ S XPDQUIT=AGQUIT D SORRY(AGQUIT) Q 0
Q 1
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
;
POST ; EP FR KIDS
; UPDATE ALL PT ELIGIBILITY SEX FIELDS
N AGPATDFN
S AGPATDFN=0 F S AGPATDFN=$O(^DPT(AGPATDFN)) Q:'AGPATDFN D
. Q:'$D(^DPT(AGPATDFN,0))
. Q:'$D(^AUPNPAT(AGPATDFN,0))
. Q:$P($G(^AUPNPAT(AGPATDFN,0)),U,1)'=AGPATDFN
. D SEXELIG^AGUTL(AGPATDFN)
;
Q
AG71A11 ;IHS/OIT/NKD - Patient Registration 7.1 PATCH 11 ENVIRONMENT CHECK/PRE/POST INSTALL ; FEBRUARY 10, 2014
+1 ;;7.1;PATIENT REGISTRATION;**11**;AUG 25, 2005;Build 1
+2 ;
+3 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR 0."
DO SORRY(2)
QUIT
+4 ;
+5 IF '$LENGTH($GET(DUZ(0)))
WRITE !,"DUZ(0) UNDEFINED OR NULL."
DO SORRY(2)
QUIT
+6 ;
+7 SET X=$PIECE(^VA(200,DUZ,0),U)
+8 WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)
+9 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),!
+10 ;
+11 IF $$VCHK("XU","8.0",2)
+12 IF $$VCHK("DI","22.0",2)
+13 IF $$PCHK("AG*7.1*10",2)
+14 IF $$VCHK2("AVA","93.2.22",2)
+15 IF $$VCHK2("AUPN","99.1.23",2)
+16 ;
+17 IF $GET(XPDQUIT)
WRITE !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
QUIT
+18 ;
+19 WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
+20 ;
+21 QUIT
+22 ;
SORRY(X) ;
+1 KILL DIFQ
+2 SET XPDQUIT=X
+3 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
+4 QUIT
+5 ;
VCHK(AGPRE,AGVER,AGQUIT) ; Check version level
+1 ;
+2 NEW AGV
+3 SET AGV=$$VERSION^XPDUTL(AGPRE)
+4 WRITE !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM)
+5 IF AGV<AGVER
KILL DIFQ
SET XPDQUIT=AGQUIT
DO SORRY(AGQUIT)
QUIT 0
+6 QUIT 1
VCHK2(AGPRE,AGVER,AGQUIT) ; Check patch level
+1 NEW AGV
+2 SET AGV=$$VERSION^XPDUTL(AGPRE)
+3 SET PTCH=+$$LAST(AGPRE,AGV)
IF PTCH=-1
SET DPTCH=""
IF PTCH'=-1
SET DPTCH="."_PTCH
+4 WRITE !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_DPTCH_" Present",IOM)
+5 IF (AGV<($PIECE(AGVER,".",1,2)))
KILL DIFQ
SET XPDQUIT=AGQUIT
DO SORRY(AGQUIT)
QUIT 0
+6 IF (AGV=$PIECE(AGVER,".",1,2))&(PTCH<$PIECE(AGVER,".",3))
KILL DIFQ
SET XPDQUIT=AGQUIT
DO SORRY(AGQUIT)
QUIT 0
+7 QUIT 1
PCHK(AGPAT,AGQUIT) ; Check specific patch
+1 NEW AGP
+2 SET AGP=$$PATCH^XPDUTL(AGPAT)
+3 WRITE !,$$CJ^XLFSTR("Patch "_AGPAT_" is "_$SELECT(AGP<1:"*NOT* ",1:"")_"installed.",IOM)
+4 IF 'AGP
KILL DIFQ
SET XPDQUIT=AGQUIT
DO SORRY(AGQUIT)
QUIT 0
+5 QUIT 1
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 ;
POST ; EP FR KIDS
+1 ; UPDATE ALL PT ELIGIBILITY SEX FIELDS
+2 NEW AGPATDFN
+3 SET AGPATDFN=0
FOR
SET AGPATDFN=$ORDER(^DPT(AGPATDFN))
IF 'AGPATDFN
QUIT
Begin DoDot:1
+4 IF '$DATA(^DPT(AGPATDFN,0))
QUIT
+5 IF '$DATA(^AUPNPAT(AGPATDFN,0))
QUIT
+6 IF $PIECE($GET(^AUPNPAT(AGPATDFN,0)),U,1)'=AGPATDFN
QUIT
+7 DO SEXELIG^AGUTL(AGPATDFN)
End DoDot:1
+8 ;
+9 QUIT
