BJPN2P05.m

BJPN2P05 ;GDIT/HS/BEE-Prenatal Care Module 2.0 Patch 5 Post Install ; 08 May 2012  12:00 PM

 ;;2.0;PRENATAL CARE MODULE;**5**;Feb 24, 2015;Build 1

 ;

ENV ;EP - Environmental Checking Routine

 ;

 N VERSION,EXEC,BMWDT

 ;

 ;Check for BJPN*2.0*4

 I '$$INSTALLD("BJPN*2.0*4") D BMES^XPDUTL("Version 2.0 Patch 4 of BJPN is required!") S XPDQUIT=2 Q

 ;

 Q

 ;

PST ;EP - Prenatal 2.0 Patch 5 Post Installation Code

 ;

 ; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE

 W !,"Registering the Vucentric Objects..."

 ;

 NEW BI,TEXT

 ;

 F BI=1:1 S TEXT=$P($T(OBJ+BI),";",3,99) Q:($P(TEXT,";")="END")  D

 .W !,$P(TEXT,";")

 . ;

 . NEW DIC,X,Y,OBJUPD,ERROR,WP8,WP9,WP10,OIEN

 . ;

 . ;PROGID (#.01)

 . S DIC="^CIAVOBJ(19930.2,",DIC(0)="LOX",X=$P(TEXT,";")

 . D ^DIC I +Y<0 Q

 . S OIEN=+Y

 . ;

 . ;NAME (#1)

 . S OBJUPD(19930.2,OIEN_",",1)=$P(TEXT,";",2)

 . ;

 . ;VERSION (#2)

 . S OBJUPD(19930.2,OIEN_",",2)=$P(TEXT,";",3)

 . ;

 . ;SOURCE (#3)

 . S OBJUPD(19930.2,OIEN_",",3)=$P(TEXT,";",4)

 . ;

 . ;SERIALIZABLE (#8)

 . S WP8(1)=$P(TEXT,";",5)

 . D WP^DIE(19930.2,OIEN_",",8,"","WP8")

 . ;

 . ;INITIALIZATION (#9)

 . S WP9(1)=$P(TEXT,";",6)

 . D WP^DIE(19930.2,OIEN_",",9,"","WP9")

 . ;

 . ;REQUIRED (#10)

 . S WP10(1)=$P(TEXT,";",7)

 . D WP^DIE(19930.2,OIEN_",",10,"","WP10")

 . ;

 . ;PROPEDIT (#11)

 . S OBJUPD(19930.2,OIEN_",",11)=$P(TEXT,";",8)

 . ;

 . ;MULTIPLE (#12)

 . S OBJUPD(19930.2,OIEN_",",12)=$P(TEXT,";",9)

 . ;

 . ;DISABLED (#13)

 . S OBJUPD(19930.2,OIEN_",",13)=$P(TEXT,";",10)

 . ;

 . ;ALLKEYS (#14)

 . S OBJUPD(19930.2,OIEN_",",14)=$P(TEXT,";",11)

 . ;

 . ;HIDDEN (#15)

 . S OBJUPD(19930.2,OIEN_",",15)=$P(TEXT,";",12)

 . ;

 . ;SIDEBYSIDE (#16)

 . S OBJUPD(19930.2,OIEN_",",16)=$P(TEXT,";",13)

 . ;

 . ;SERVICE (#17)

 . S OBJUPD(19930.2,OIEN_",",17)=$P(TEXT,";",14)

 . ;

 . ;REGRESS (#18)

 . S OBJUPD(19930.2,OIEN_",",18)=$P(TEXT,";",15)

 . ;

 . ;NOREGISTER (#19)

 . S OBJUPD(19930.2,OIEN_",",19)=$P(TEXT,";",16)

 . ;

 . ;DOTNET (#22)

 . S OBJUPD(19930.2,OIEN_",",22)=$P(TEXT,";",17)

 . ;

 . ;ALIAS (#23)

 . S OBJUPD(19930.2,OIEN_",",23)=$P(TEXT,";",18)

 . ;

 . ;TECHNICAL DESCRIPTION (#98)

 . S OBJUPD(19930.2,OIEN_",",98)=$P(TEXT,";",19)

 . ;

 . ;DESCRIPTION (#99)

 . S OBJUPD(19930.2,OIEN_",",99)=$P(TEXT,";",20)

 . ;

 . ;CLSID (#.5)

 . S OBJUPD(19930.2,OIEN_",",.5)=$P(TEXT,";",21)

 . ;

 . ;HEIGHT (#4)

 . S OBJUPD(19930.2,OIEN_",",4)=$P(TEXT,";",22)

 . ;

 . ;WIDTH (#5)

 . S OBJUPD(19930.2,OIEN_",",5)=$P(TEXT,";",23)

 . ;

 . ;Update entry

 .D FILE^DIE("","OBJUPD","ERROR")

 ;

XPST Q

 ;

 ;;File 19930.2 Field listing

 ;;PROGID;NAME;VRSN;SRC;SER;INI;REQ;PROP;MULT;DIS;ALLK;HIDD;SBYS;SERV;REG;NORG;DOTN;ALIA;TDES;DES;CLSID;HEIGHT;WIDTH

 ;;.01;1;2;3;8;9;10;11;12;13;14;15;16;17;18;19;22;23;98;99.5;4;5

OBJ ;;

 ;;FILE:BEHPOVCVG.DLL;BEHPovCvg;1.0.5771.31739;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;

 ;;IHS.PN.EHR.PRENATALPICKLIST.PRENATALPICKLISTCOMPONENT;Prenatal Pick List;2.0.5.0;IHS.PN.EHR.PrenatalPickList.dll;;;IHS.PN.EHR.PrenatalPickList.chm;0;1;0;0;0;0;0;0;;1;;;;{0A2C8481-DB1A-4D80-A8E0-CEBF70E6F705};300;600

 ;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.5.0;IHS.PN.EHR.PrenatalProblemList.dll;;;IHS.PN.EHR.PrenatalProblemList.chm;0;1;0;0;0;0;0;0;;1;;;;{B5416178-ECD8-4515-A700-2980BCAA6CAA};300;640

 ;;END;

 ;;

 ;

INSTALLD(BJPNSTAL) ;EP - Determine if patch BJPNSTAL was installed, where

 ;BJPNSTAL is the name of the INSTALL.  E.g "BJPN*2.0*4".

 ;

 NEW DIC,X,Y,D

 S X=$P(BJPNSTAL,"*",1)

 S DIC="^DIC(9.4,",DIC(0)="FM",D="C"

 D IX^DIC

 I Y<1 Q 0

 S DIC=DIC_+Y_",22,",X=$P(BJPNSTAL,"*",2)

 D ^DIC

 I Y<1 Q 0

 S DIC=DIC_+Y_",""PAH"",",X=$P(BJPNSTAL,"*",3)

 D ^DIC

 Q $S(Y<1:0,1:1)

BJPN2P05  ;GDIT/HS/BEE-Prenatal Care Module 2.0 Patch 5 Post Install ; 08 May 2012  12:00 PM

 +1       ;;2.0;PRENATAL CARE MODULE;**5**;Feb 24, 2015;Build 1

 +2       ;

ENV       ;EP - Environmental Checking Routine

 +1       ;

 +2        NEW VERSION,EXEC,BMWDT

 +3       ;

 +4       ;Check for BJPN*2.0*4

 +5        IF '$$INSTALLD("BJPN*2.0*4")

               DO BMES^XPDUTL("Version 2.0 Patch 4 of BJPN is required!")

               SET XPDQUIT=2

               QUIT 

 +6       ;

 +7        QUIT 

 +8       ;

PST       ;EP - Prenatal 2.0 Patch 5 Post Installation Code

 +1       ;

 +2       ; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE

 +3        WRITE !,"Registering the Vucentric Objects..."

 +4       ;

 +5        NEW BI,TEXT

 +6       ;

 +7        FOR BI=1:1

               SET TEXT=$PIECE($TEXT(OBJ+BI),";",3,99)

               IF ($PIECE(TEXT,";")="END")

                   QUIT 

               Begin DoDot:1

 +8                WRITE !,$PIECE(TEXT,";")

 +9       ;

 +10               NEW DIC,X,Y,OBJUPD,ERROR,WP8,WP9,WP10,OIEN

 +11      ;

 +12      ;PROGID (#.01)

 +13               SET DIC="^CIAVOBJ(19930.2,"

                   SET DIC(0)="LOX"

                   SET X=$PIECE(TEXT,";")

 +14               DO ^DIC

                   IF +Y<0

                       QUIT 

 +15               SET OIEN=+Y

 +16      ;

 +17      ;NAME (#1)

 +18               SET OBJUPD(19930.2,OIEN_",",1)=$PIECE(TEXT,";",2)

 +19      ;

 +20      ;VERSION (#2)

 +21               SET OBJUPD(19930.2,OIEN_",",2)=$PIECE(TEXT,";",3)

 +22      ;

 +23      ;SOURCE (#3)

 +24               SET OBJUPD(19930.2,OIEN_",",3)=$PIECE(TEXT,";",4)

 +25      ;

 +26      ;SERIALIZABLE (#8)

 +27               SET WP8(1)=$PIECE(TEXT,";",5)

 +28               DO WP^DIE(19930.2,OIEN_",",8,"","WP8")

 +29      ;

 +30      ;INITIALIZATION (#9)

 +31               SET WP9(1)=$PIECE(TEXT,";",6)

 +32               DO WP^DIE(19930.2,OIEN_",",9,"","WP9")

 +33      ;

 +34      ;REQUIRED (#10)

 +35               SET WP10(1)=$PIECE(TEXT,";",7)

 +36               DO WP^DIE(19930.2,OIEN_",",10,"","WP10")

 +37      ;

 +38      ;PROPEDIT (#11)

 +39               SET OBJUPD(19930.2,OIEN_",",11)=$PIECE(TEXT,";",8)

 +40      ;

 +41      ;MULTIPLE (#12)

 +42               SET OBJUPD(19930.2,OIEN_",",12)=$PIECE(TEXT,";",9)

 +43      ;

 +44      ;DISABLED (#13)

 +45               SET OBJUPD(19930.2,OIEN_",",13)=$PIECE(TEXT,";",10)

 +46      ;

 +47      ;ALLKEYS (#14)

 +48               SET OBJUPD(19930.2,OIEN_",",14)=$PIECE(TEXT,";",11)

 +49      ;

 +50      ;HIDDEN (#15)

 +51               SET OBJUPD(19930.2,OIEN_",",15)=$PIECE(TEXT,";",12)

 +52      ;

 +53      ;SIDEBYSIDE (#16)

 +54               SET OBJUPD(19930.2,OIEN_",",16)=$PIECE(TEXT,";",13)

 +55      ;

 +56      ;SERVICE (#17)

 +57               SET OBJUPD(19930.2,OIEN_",",17)=$PIECE(TEXT,";",14)

 +58      ;

 +59      ;REGRESS (#18)

 +60               SET OBJUPD(19930.2,OIEN_",",18)=$PIECE(TEXT,";",15)

 +61      ;

 +62      ;NOREGISTER (#19)

 +63               SET OBJUPD(19930.2,OIEN_",",19)=$PIECE(TEXT,";",16)

 +64      ;

 +65      ;DOTNET (#22)

 +66               SET OBJUPD(19930.2,OIEN_",",22)=$PIECE(TEXT,";",17)

 +67      ;

 +68      ;ALIAS (#23)

 +69               SET OBJUPD(19930.2,OIEN_",",23)=$PIECE(TEXT,";",18)

 +70      ;

 +71      ;TECHNICAL DESCRIPTION (#98)

 +72               SET OBJUPD(19930.2,OIEN_",",98)=$PIECE(TEXT,";",19)

 +73      ;

 +74      ;DESCRIPTION (#99)

 +75               SET OBJUPD(19930.2,OIEN_",",99)=$PIECE(TEXT,";",20)

 +76      ;

 +77      ;CLSID (#.5)

 +78               SET OBJUPD(19930.2,OIEN_",",.5)=$PIECE(TEXT,";",21)

 +79      ;

 +80      ;HEIGHT (#4)

 +81               SET OBJUPD(19930.2,OIEN_",",4)=$PIECE(TEXT,";",22)

 +82      ;

 +83      ;WIDTH (#5)

 +84               SET OBJUPD(19930.2,OIEN_",",5)=$PIECE(TEXT,";",23)

 +85      ;

 +86      ;Update entry

 +87               DO FILE^DIE("","OBJUPD","ERROR")

               End DoDot:1

 +88      ;

XPST       QUIT 

 +1       ;

 +2       ;;File 19930.2 Field listing

 +3       ;;PROGID;NAME;VRSN;SRC;SER;INI;REQ;PROP;MULT;DIS;ALLK;HIDD;SBYS;SERV;REG;NORG;DOTN;ALIA;TDES;DES;CLSID;HEIGHT;WIDTH

 +4       ;;.01;1;2;3;8;9;10;11;12;13;14;15;16;17;18;19;22;23;98;99.5;4;5

OBJ       ;;

 +1       ;;FILE:BEHPOVCVG.DLL;BEHPovCvg;1.0.5771.31739;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;

 +2       ;;IHS.PN.EHR.PRENATALPICKLIST.PRENATALPICKLISTCOMPONENT;Prenatal Pick List;2.0.5.0;IHS.PN.EHR.PrenatalPickList.dll;;;IHS.PN.EHR.PrenatalPickList.chm;0;1;0;0;0;0;0;0;;1;;;;{0A2C8481-DB1A-4D80-A8E0-CEBF70E6F705};300;600

 +3       ;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.5.0;IHS.PN.EHR.PrenatalProblemList.dll;;;IHS.PN.EHR.PrenatalProblemList.chm;0;1;0;0;0;0;0;0;;1;;;;{B5416178-ECD8-4515-A700-2980BCAA6CAA};300;640

 +4       ;;END;

 +5       ;;

 +6       ;

INSTALLD(BJPNSTAL) ;EP - Determine if patch BJPNSTAL was installed, where

 +1       ;BJPNSTAL is the name of the INSTALL.  E.g "BJPN*2.0*4".

 +2       ;

 +3        NEW DIC,X,Y,D

 +4        SET X=$PIECE(BJPNSTAL,"*",1)

 +5        SET DIC="^DIC(9.4,"

           SET DIC(0)="FM"

           SET D="C"

 +6        DO IX^DIC

 +7        IF Y<1

               QUIT 0

 +8        SET DIC=DIC_+Y_",22,"

           SET X=$PIECE(BJPNSTAL,"*",2)

 +9        DO ^DIC

 +10       IF Y<1

               QUIT 0

 +11       SET DIC=DIC_+Y_",""PAH"","

           SET X=$PIECE(BJPNSTAL,"*",3)

 +12       DO ^DIC

 +13       QUIT $SELECT(Y<1:0,1:1)