BTIUP10 ; IHS/CIA/MGH - POST INSTALL FOR PATCH 1010;04-Oct-2012 09:44;DU
;;1.0;TEXT INTEGRATION UTILITIES;**1010**;SEPT 04, 2005;Build 24
;
ENV ;EP environment check
N PATCH,IN,STAT,INSTDA
S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
;
S PATCH="TIU*1.0*1009"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDQUIT=2
S PATCH="USR*1.0*1004"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDQUIT=2
S PATCH="BJPC*2.0*7"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDABORT=1
S PATCH="PIMS*5.3*1015"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDABORT=1
S IN="EHR*1.1*10",INSTDA=""
I '$D(^XPD(9.7,"B",IN)) D Q
.W !,"You must first install the EHR patch 10 before installing patch TIU 1010"
S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)
S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)
I STAT'=3 D Q
.W !,"EHR patch 10 must be completely installed before installing TIU patch 1010"
S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
Q
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
;copy of code from XPDUTL but modified to handle 4 digit IHS patch numbers
Q:X'?1.4UN1"*"1.2N1"."1.2N.1(1"V",1"T").2N1"*"1.4N 0
NEW NUM,I,J
S I=$O(^DIC(9.4,"C",$P(X,"*"),0)) Q:'I 0
S J=$O(^DIC(9.4,I,22,"B",$P(X,"*",2),0)),X=$P(X,"*",3) Q:'J 0
;check if patch is just a number
Q:$O(^DIC(9.4,I,22,J,"PAH","B",X,0)) 1
S NUM=$O(^DIC(9.4,I,22,J,"PAH","B",X_" SEQ"))
Q (X=+NUM)
;
PRE ;EP; beginning of pre install code
Q
;
POST ;EP; beginning of post install code
D REGMENU^BEHUTIL("TIU UNK ADDENDA MENU",,"UNK","BTIU SPECIAL REPORTS")
D REGMENU^BEHUTIL("TIU MISSING EXPECTED COSIGNER",,"COS","BTIU SPECIAL REPORTS")
D REGMENU^BEHUTIL("TIU MARK SIGNED BY SURROGATE",,"SURR","BTIU SPECIAL REPORTS")
D REGMENU^BEHUTIL("TIU MISMATCHED ID NOTES",,"ID","BTIU SPECIAL REPORTS")
D REGMENU^BEHUTIL("TIU SIGNED/UNSIGNED PN",,"PN","BTIU SPECIAL REPORTS")
D REGMENU^BEHUTIL("TIU REVIEW MRT ADD SGNR",,"ADD","BTIU MENU2")
D REGMENU^BEHUTIL("TIU ACTIVE TITLE CLEANUP",,"CLN","BTIU MENU MGR")
Q
BTIUP10 ; IHS/CIA/MGH - POST INSTALL FOR PATCH 1010;04-Oct-2012 09:44;DU
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**1010**;SEPT 04, 2005;Build 24
+2 ;
ENV ;EP environment check
+1 NEW PATCH,IN,STAT,INSTDA
+2 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+3 ;
+4 SET PATCH="TIU*1.0*1009"
+5 IF '$$PATCH(PATCH)
Begin DoDot:1
+6 WRITE !,"You must first install "_PATCH_"."
SET XPDQUIT=2
End DoDot:1
QUIT
+7 SET PATCH="USR*1.0*1004"
+8 IF '$$PATCH(PATCH)
Begin DoDot:1
+9 WRITE !,"You must first install "_PATCH_"."
SET XPDQUIT=2
End DoDot:1
QUIT
+10 SET PATCH="BJPC*2.0*7"
+11 IF '$$PATCH(PATCH)
Begin DoDot:1
+12 WRITE !,"You must first install "_PATCH_"."
SET XPDABORT=1
End DoDot:1
QUIT
+13 SET PATCH="PIMS*5.3*1015"
+14 IF '$$PATCH(PATCH)
Begin DoDot:1
+15 WRITE !,"You must first install "_PATCH_"."
SET XPDABORT=1
End DoDot:1
QUIT
+16 SET IN="EHR*1.1*10"
SET INSTDA=""
+17 IF '$DATA(^XPD(9.7,"B",IN))
Begin DoDot:1
+18 WRITE !,"You must first install the EHR patch 10 before installing patch TIU 1010"
End DoDot:1
QUIT
+19 SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)
+20 SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)
+21 IF STAT'=3
Begin DoDot:1
+22 WRITE !,"EHR patch 10 must be completely installed before installing TIU patch 1010"
End DoDot:1
QUIT
+23 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+24 QUIT
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
+1 ;copy of code from XPDUTL but modified to handle 4 digit IHS patch numbers
+2 IF X'?1.4UN1"*"1.2N1"."1.2N.1(1"V",1"T").2N1"*"1.4N
QUIT 0
+3 NEW NUM,I,J
+4 SET I=$ORDER(^DIC(9.4,"C",$PIECE(X,"*"),0))
IF 'I
QUIT 0
+5 SET J=$ORDER(^DIC(9.4,I,22,"B",$PIECE(X,"*",2),0))
SET X=$PIECE(X,"*",3)
IF 'J
QUIT 0
+6 ;check if patch is just a number
+7 IF $ORDER(^DIC(9.4,I,22,J,"PAH","B",X,0))
QUIT 1
+8 SET NUM=$ORDER(^DIC(9.4,I,22,J,"PAH","B",X_" SEQ"))
+9 QUIT (X=+NUM)
+10 ;
PRE ;EP; beginning of pre install code
+1 QUIT
+2 ;
POST ;EP; beginning of post install code
+1 DO REGMENU^BEHUTIL("TIU UNK ADDENDA MENU",,"UNK","BTIU SPECIAL REPORTS")
+2 DO REGMENU^BEHUTIL("TIU MISSING EXPECTED COSIGNER",,"COS","BTIU SPECIAL REPORTS")
+3 DO REGMENU^BEHUTIL("TIU MARK SIGNED BY SURROGATE",,"SURR","BTIU SPECIAL REPORTS")
+4 DO REGMENU^BEHUTIL("TIU MISMATCHED ID NOTES",,"ID","BTIU SPECIAL REPORTS")
+5 DO REGMENU^BEHUTIL("TIU SIGNED/UNSIGNED PN",,"PN","BTIU SPECIAL REPORTS")
+6 DO REGMENU^BEHUTIL("TIU REVIEW MRT ADD SGNR",,"ADD","BTIU MENU2")
+7 DO REGMENU^BEHUTIL("TIU ACTIVE TITLE CLEANUP",,"CLN","BTIU MENU MGR")
+8 QUIT
