BHSP4.m

BHSP4 ; IHS/MSC/MGH - PRE-INSTALL ROUTINE FOR BHS PATCH 4 ;23-Jun-2010 13:29;MGH

 ;;1.0;HEALTH SUMMARY COMPONENTS;**4**;March 17, 2006;Build 13

 ;

ENV ;EP; environment check

 N PATCH

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

 ;

 ;Check for released version added

 NEW IEN,PKG S PKG="HEALTH SUMMARY COMPONENTS 1.0",IEN=$O(^XPD(9.6,"B",PKG,0))

 I 'IEN W !,"You must first install "_PKG_"." S XPDQUIT=2 Q

 ;

 NEW IEN,STAT,PKG S PKG="VUECENTRIC COMPONENTS 1.1",IEN=$O(^XPD(9.6,"B",PKG,0))

 I 'IEN W !,"You must first install the EHR to use this application."  S XPDQUIT=2 Q

 ;

 S IN="IHS PCC SUITE 2.0",INSTDA=""

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

 .W !,"You must first install the IHS PCC SUITE version 2.0 before installing patch" S XPDQUIT=2

 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 PCC SUITE 2.0  must be completely installed before installing this patch." S XPDQUIT=2

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

 ;Check for the installation of other patches

 S PATCH="BHS*1.0*3"

 I '$$PATCH(PATCH) D  Q

 . W !,"You must first install "_PATCH_"." S XPDQUIT=2

 S PATCH="BJPC*2.0*4"

 I '$$PATCH(PATCH) D  Q

 . W !,"You must first install "_PATCH_"." S XPDQUIT=2

 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 numb

 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)

 ;

BHSP4     ; IHS/MSC/MGH - PRE-INSTALL ROUTINE FOR BHS PATCH 4 ;23-Jun-2010 13:29;MGH

 +1       ;;1.0;HEALTH SUMMARY COMPONENTS;**4**;March 17, 2006;Build 13

 +2       ;

ENV       ;EP; environment check

 +1        NEW PATCH

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

 +3       ;

 +4       ;Check for released version added

 +5        NEW IEN,PKG

           SET PKG="HEALTH SUMMARY COMPONENTS 1.0"

           SET IEN=$ORDER(^XPD(9.6,"B",PKG,0))

 +6        IF 'IEN

               WRITE !,"You must first install "_PKG_"."

               SET XPDQUIT=2

               QUIT 

 +7       ;

 +8        NEW IEN,STAT,PKG

           SET PKG="VUECENTRIC COMPONENTS 1.1"

           SET IEN=$ORDER(^XPD(9.6,"B",PKG,0))

 +9        IF 'IEN

               WRITE !,"You must first install the EHR to use this application."

               SET XPDQUIT=2

               QUIT 

 +10      ;

 +11       SET IN="IHS PCC SUITE 2.0"

           SET INSTDA=""

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

               Begin DoDot:1

 +13               WRITE !,"You must first install the IHS PCC SUITE version 2.0 before installing patch"

                   SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

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

 +16       IF STAT'=3

               Begin DoDot:1

 +17               WRITE !,"IHS PCC SUITE 2.0  must be completely installed before installing this patch."

                   SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

 +19      ;Check for the installation of other patches

 +20       SET PATCH="BHS*1.0*3"

 +21       IF '$$PATCH(PATCH)

               Begin DoDot:1

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

                   SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +23       SET PATCH="BJPC*2.0*4"

 +24       IF '$$PATCH(PATCH)

               Begin DoDot:1

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

                   SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +26       QUIT 

 +27      ;

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 numb

 +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      ;