BJPN2P09 ;GDIT/HS/BEE-Prenatal Care Module 2.0 Patch 9 Post Install ; 08 May 2012 12:00 PM
;;2.0;PRENATAL CARE MODULE;**9**;Feb 24, 2015;Build 12
;
ENV ;EP - Environmental Checking Routine
;
N VERSION,EXEC,BMWDT
;
;Check for BJPN*2.0*8
I '$$INSTALLD("BJPN*2.0*8") D BMES^XPDUTL("Version 2.0 Patch 8 of BJPN is required!") S XPDQUIT=2 Q
;
;Check for EHRp23
I '$$INSTALLD("BGO*1.1*23") D BMES^XPDUTL("Version 1.1 Patch 23 of EHR is required!") S XPDQUIT=2 Q
;
;Check for BJPCp20
I '$$INSTALLD("BJPC*2.0*20") D BMES^XPDUTL("Version 2.0 Patch 20 of BJPC is required!") S XPDQUIT=2 Q
;
Q
;
PST ;EP - Prenatal 2.0 Patch 9 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.6527.19754;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;
;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.9.7;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*9".
;
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)
BJPN2P09 ;GDIT/HS/BEE-Prenatal Care Module 2.0 Patch 9 Post Install ; 08 May 2012 12:00 PM
+1 ;;2.0;PRENATAL CARE MODULE;**9**;Feb 24, 2015;Build 12
+2 ;
ENV ;EP - Environmental Checking Routine
+1 ;
+2 NEW VERSION,EXEC,BMWDT
+3 ;
+4 ;Check for BJPN*2.0*8
+5 IF '$$INSTALLD("BJPN*2.0*8")
DO BMES^XPDUTL("Version 2.0 Patch 8 of BJPN is required!")
SET XPDQUIT=2
QUIT
+6 ;
+7 ;Check for EHRp23
+8 IF '$$INSTALLD("BGO*1.1*23")
DO BMES^XPDUTL("Version 1.1 Patch 23 of EHR is required!")
SET XPDQUIT=2
QUIT
+9 ;
+10 ;Check for BJPCp20
+11 IF '$$INSTALLD("BJPC*2.0*20")
DO BMES^XPDUTL("Version 2.0 Patch 20 of BJPC is required!")
SET XPDQUIT=2
QUIT
+12 ;
+13 QUIT
+14 ;
PST ;EP - Prenatal 2.0 Patch 9 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.6527.19754;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;
+2 ;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.9.7;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 ;;END;
+4 ;;
+5 ;
INSTALLD(BJPNSTAL) ;EP - Determine if patch BJPNSTAL was installed, where
+1 ;BJPNSTAL is the name of the INSTALL. E.g "BJPN*2.0*9".
+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)
