BJPN2P07.m

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

 ;;2.0;PRENATAL CARE MODULE;**7**;Feb 24, 2015;Build 53

 ;

ENV ;EP - Environmental Checking Routine

 ;

 N VERSION,EXEC,BMWDT

 ;

 ;Check for BJPN*2.0*6

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

 ;

 ;Check for EHRp19

 I '$$INSTALLD("BGO*1.1*20") D BMES^XPDUTL("Version 1.1 Patch 19 of EHR is required!") S XPDQUIT=2 Q

 ;

 ;Check for BJPC*

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

 ;

 Q

 ;

PST ;EP - Prenatal 2.0 Patch 6 Post Installation Code

 ;

 ;Tie BJPNRPC to BSTSRPC

 ;

 ;Set BSTSRPC into BJPNRPC

 NEW IEN,DA,X,DIC,BI,TEXT,PIEN,Y

 ;

 K DO,DD

 S DA(1)=$$FIND1^DIC(19,"","B","BJPNRPC","","","ERROR"),DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMNZ"

 I $G(^DIC(19,DA(1),10,0))="" S ^DIC(19,DA(1),10,0)="^19.01IP^^"

 S X="BSTSRPC"

 D ^DIC I +Y<1 K DO,DD D FILE^DICN

 ;

 ; 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.6059.24394;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;

 ;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.7.11;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

 ;;FILE:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL;SNOMED CT Search;1.0.7.2;IndianHealthService.SNOMEDCTSearch.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;

 ;;END;

 ;;

 ;

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

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

 ;

 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)

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

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

 +2       ;

ENV       ;EP - Environmental Checking Routine

 +1       ;

 +2        NEW VERSION,EXEC,BMWDT

 +3       ;

 +4       ;Check for BJPN*2.0*6

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

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

               SET XPDQUIT=2

               QUIT 

 +6       ;

 +7       ;Check for EHRp19

 +8        IF '$$INSTALLD("BGO*1.1*20")

               DO BMES^XPDUTL("Version 1.1 Patch 19 of EHR is required!")

               SET XPDQUIT=2

               QUIT 

 +9       ;

 +10      ;Check for BJPC*

 +11       IF '$$INSTALLD("BJPC*2.0*16")

               DO BMES^XPDUTL("Version 2.0 Patch 16 of BJPC is required!")

               SET XPDQUIT=2

               QUIT 

 +12      ;

 +13       QUIT 

 +14      ;

PST       ;EP - Prenatal 2.0 Patch 6 Post Installation Code

 +1       ;

 +2       ;Tie BJPNRPC to BSTSRPC

 +3       ;

 +4       ;Set BSTSRPC into BJPNRPC

 +5        NEW IEN,DA,X,DIC,BI,TEXT,PIEN,Y

 +6       ;

 +7        KILL DO,DD

 +8        SET DA(1)=$$FIND1^DIC(19,"","B","BJPNRPC","","","ERROR")

           SET DIC="^DIC(19,"_DA(1)_",10,"

           SET DIC(0)="LMNZ"

 +9        IF $GET(^DIC(19,DA(1),10,0))=""

               SET ^DIC(19,DA(1),10,0)="^19.01IP^^"

 +10       SET X="BSTSRPC"

 +11       DO ^DIC

           IF +Y<1

               KILL DO,DD

               DO FILE^DICN

 +12      ;

 +13      ; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE

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

 +15      ;

 +16       NEW BI,TEXT

 +17      ;

 +18       FOR BI=1:1

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

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

                   QUIT 

               Begin DoDot:1

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

 +20      ;

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

 +22      ;

 +23      ;PROGID (#.01)

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

                   SET DIC(0)="LOX"

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

 +25               DO ^DIC

                   IF +Y<0

                       QUIT 

 +26               SET OIEN=+Y

 +27      ;

 +28      ;NAME (#1)

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

 +30      ;

 +31      ;VERSION (#2)

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

 +33      ;

 +34      ;SOURCE (#3)

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

 +36      ;

 +37      ;SERIALIZABLE (#8)

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

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

 +40      ;

 +41      ;INITIALIZATION (#9)

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

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

 +44      ;

 +45      ;REQUIRED (#10)

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

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

 +48      ;

 +49      ;PROPEDIT (#11)

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

 +51      ;

 +52      ;MULTIPLE (#12)

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

 +54      ;

 +55      ;DISABLED (#13)

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

 +57      ;

 +58      ;ALLKEYS (#14)

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

 +60      ;

 +61      ;HIDDEN (#15)

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

 +63      ;

 +64      ;SIDEBYSIDE (#16)

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

 +66      ;

 +67      ;SERVICE (#17)

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

 +69      ;

 +70      ;REGRESS (#18)

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

 +72      ;

 +73      ;NOREGISTER (#19)

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

 +75      ;

 +76      ;DOTNET (#22)

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

 +78      ;

 +79      ;ALIAS (#23)

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

 +81      ;

 +82      ;TECHNICAL DESCRIPTION (#98)

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

 +84      ;

 +85      ;DESCRIPTION (#99)

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

 +87      ;

 +88      ;CLSID (#.5)

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

 +90      ;

 +91      ;HEIGHT (#4)

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

 +93      ;

 +94      ;WIDTH (#5)

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

 +96      ;

 +97      ;Update entry

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

               End DoDot:1

 +99      ;

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.6059.24394;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;

 +2       ;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.7.11;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

 +3       ;;FILE:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL;SNOMED CT Search;1.0.7.2;IndianHealthService.SNOMEDCTSearch.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;

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

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