Routine: BTIUP12

BTIUP12 ; IHS/CIA/MGH - POST INSTALL FOR PATCH 1010;18-Apr-2014 12:18;DU

 ;;1.0;TEXT INTEGRATION UTILITIES;**1012**;SEPT 04, 2005;Build 45

ENV ;EP environment check

 N PATCH,IN,STAT,INSTDA

 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 S PATCH="TIU*1.0*1011"

 I '$$PATCH(PATCH) D  Q

 . W !,"You must first install "_PATCH_"." S XPDABORT=1

 S PATCH="BJPC*2.0*10"

 I '$$PATCH(PATCH) D  Q

 . W !,"You must first install "_PATCH_"." S XPDABORT=1

 S IN="IHS STANDARD TERMINOLOGY 1.0",INSTDA=""

 I '$D(^XPD(9.7,"B",IN)) D  Q

 .W !,"You must first install the IHS Standard Terminology 1.0  before installing patch TIU 1012"

 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 !,"IHS Standard Terminology 1.0 must be completely installed before installing TIU patch 1012"

 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

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

POST ;EP; beginning of post install code

 D BEGIN^TIUP1012

 ;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")

BTIUP12   ; IHS/CIA/MGH - POST INSTALL FOR PATCH 1010;18-Apr-2014 12:18;DU

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**1012**;SEPT 04, 2005;Build 45

 +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*1011"

 +5        IF '$$PATCH(PATCH)

               Begin DoDot:1

 +6                WRITE !,"You must first install "_PATCH_"."

                   SET XPDABORT=1

               End DoDot:1

               QUIT

 +7        SET PATCH="BJPC*2.0*10"

 +8        IF '$$PATCH(PATCH)

               Begin DoDot:1

 +9                WRITE !,"You must first install "_PATCH_"."

                   SET XPDABORT=1

               End DoDot:1

               QUIT

 +10       SET IN="IHS STANDARD TERMINOLOGY 1.0"

           SET INSTDA=""

 +11       IF '$DATA(^XPD(9.7,"B",IN))

               Begin DoDot:1

 +12               WRITE !,"You must first install the IHS Standard Terminology 1.0  before installing patch TIU 1012"

               End DoDot:1

               QUIT

 +13       SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)

 +14       SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)

 +15       IF STAT'=3

               Begin DoDot:1

 +16               WRITE !,"IHS Standard Terminology 1.0 must be completely installed before installing TIU patch 1012"

               End DoDot:1

               QUIT

 +17       SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +18       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 BEGIN^TIUP1012

 +2        QUIT

 +3       ;D REGMENU^BEHUTIL("TIU UNK ADDENDA MENU",,"UNK","BTIU SPECIAL REPORTS")

 +4       ;D REGMENU^BEHUTIL("TIU MISSING EXPECTED COSIGNER",,"COS","BTIU SPECIAL REPORTS")

 +5       ;D REGMENU^BEHUTIL("TIU MARK SIGNED BY SURROGATE",,"SURR","BTIU SPECIAL REPORTS")

 +6       ;D REGMENU^BEHUTIL("TIU MISMATCHED ID NOTES",,"ID","BTIU SPECIAL REPORTS")

 +7       ;D REGMENU^BEHUTIL("TIU SIGNED/UNSIGNED PN",,"PN","BTIU SPECIAL REPORTS")

 +8       ;D REGMENU^BEHUTIL("TIU REVIEW MRT ADD SGNR",,"ADD","BTIU MENU2")

 +9       ;D REGMENU^BEHUTIL("TIU ACTIVE TITLE CLEANUP",,"CLN","BTIU MENU MGR")

 +10       QUIT

BTIUP12.m