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)
