VEN26P06 ;GDIT/HS/BEE-PCC+ (Well Child) Version 2.6 Patch 6 Post Install - Register Components ; 08 May 2012 12:00 PM
;;2.6;PCC+;**6**;NOV 16, 2007;Build 18
;
ENV ;EP - Environmental Checking Routine
;
N VERSION,EXEC,BMWDT,BI,DIK,PIEN,TEXT
;
;Check for PCC+*2.6*5
I '$$INSTALLD("PCC+*2.6*5") D BMES^XPDUTL("Version 2.6 Patch 5 of PCC+ is required!") S XPDQUIT=2 Q
;
Q
;
EN ;EP - Register the Well Child objects into the VUECENTRIC OBJECT REGISTRY
;
; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE
W !,"Registering the Vucentric Objects..."
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,CHKSM
. ;
. ;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)
. ;
. ;MD5 CHECKSUM
. S CHKSM=""
. I $P(TEXT,";")["IHS.WCM.EHR.ASQ.ASQCOMPONENT" S CHKSM="432D29531C9C95860BA069D8DE2B1038"
. I $P(TEXT,";")["IHS.WCM.EHR.GROWTHCHARTS.CHARTCOMPONENT" S CHKSM="9BE2E9AFBF36ACB8336A6F85CCACEF29"
. I $P(TEXT,";")["IHS.WCM.EHR.PATIENTED.PATIENTEDCOMPONENT" S CHKSM="C068864B5F386137BA98A8217598401D"
. I $P(TEXT,";")["IHS.WCM.EHR.REMINDERS.REMINDERSCOMPONENT" S CHKSM="A3629C374A55D9F9A90D8DEBFD4D5866"
. I CHKSM]"" S OBJUPD(19930.2,OIEN_",",7)=CHKSM
. ;
. ;Update entry
.D FILE^DIE("","OBJUPD","ERROR")
;
;Locate ASQ entry
S DIC(0)="MU",X="IHS.WCM.EHR.ASQ.ASQCOMPONENT",DIC="^CIAVOBJ(19930.2,"
D ^DIC I +Y<0 G XREG
S PIEN=+Y
;
;Enter USER values for ASQ Entry
NEW RMV,UIEN
F BI=1:1 S TEXT=$P($T(ASQUSE+BI),";",3,99) Q:($P(TEXT,";")="END") D
. ;
. NEW DIC,X,Y,DA,OIEN,REMOVE
. ;
. ;Locate IEN for this entry
. S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
. D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
. S OIEN=+Y
. ;
. S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
. D ^DIC
. ;
. ;Get v8.3 User entries
. S REMOVE=$P(TEXT,";",2) Q:REMOVE=""
. S RMV(REMOVE)=""
;
;Remove v8.3 User entries for ASQ Entry
I $D(RMV) S UIEN=0 F S UIEN=$O(^CIAVOBJ(19930.2,PIEN,9,UIEN)) Q:'UIEN D
. NEW USEN,DA,IENS
. S DA(1)=PIEN,DA=UIEN,IENS=$$IENS^DILF(.DA)
. S USEN=$$GET1^DIQ(19930.221,IENS,".01","E") Q:USEN=""
. I '$D(RMV(USEN)) Q
. S DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,",DA=UIEN D ^DIK
K RMV,UIEN
;
;Locate GrowthCharts entry
S DIC(0)="MU",X="IHS.WCM.EHR.GROWTHCHARTS.CHART",DIC="^CIAVOBJ(19930.2,"
D ^DIC I +Y<0 G XREG
S PIEN=+Y
;
;Enter USER values for Pick List Entry
F BI=1:1 S TEXT=$P($T(GCUSE+BI),";",3,99) Q:($P(TEXT,";")="END") D
. ;
. NEW DIC,X,Y,DA,OIEN
. ;
. ;Locate IEN for this entry
. S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
. D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
. S OIEN=+Y
. ;
. S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
. D ^DIC
;
;Locate PATIENTED entry
S DIC(0)="MU",X="IHS.WCM.EHR.PATIENTED.PATIENTE",DIC="^CIAVOBJ(19930.2,"
D ^DIC I +Y<0 G XREG
S PIEN=+Y
;
;Enter USER values for Pick List Entry
NEW RMV,UIEN
F BI=1:1 S TEXT=$P($T(PIUSE+BI),";",3,99) Q:($P(TEXT,";")="END") D
. ;
. NEW DIC,X,Y,DA,OIEN,REMOVE
. ;
. ;Locate IEN for this entry
. S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
. D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
. S OIEN=+Y
. ;
. S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
. D ^DIC
. ;
. ;Get v8.3 User entries
. S REMOVE=$P(TEXT,";",2) Q:REMOVE=""
. S RMV(REMOVE)=""
;
;Remove v8.3 User entries for Pick List Entry
I $D(RMV) S UIEN=0 F S UIEN=$O(^CIAVOBJ(19930.2,PIEN,9,UIEN)) Q:'UIEN D
. NEW USEN,DA,IENS
. S DA(1)=PIEN,DA=UIEN,IENS=$$IENS^DILF(.DA)
. S USEN=$$GET1^DIQ(19930.221,IENS,".01","E") Q:USEN=""
. I '$D(RMV(USEN)) Q
. S DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,",DA=UIEN D ^DIK
K RMV,UIEN
;
;Locate REMINDERS entry
S DIC(0)="MU",X="IHS.WCM.EHR.REMINDERS.REMINDER",DIC="^CIAVOBJ(19930.2,"
D ^DIC I +Y<0 G XREG
S PIEN=+Y
;
;Enter USER values for Pick List Entry
NEW RMV,UIEN
F BI=1:1 S TEXT=$P($T(REUSE+BI),";",3,99) Q:($P(TEXT,";")="END") D
. ;
. NEW DIC,X,Y,DA,OIEN,REMOVE
. ;
. ;Locate IEN for this entry
. S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
. D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
. S OIEN=+Y
. ;
. S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
. D ^DIC
. ;
. ;Get v8.3 User entries
. S REMOVE=$P(TEXT,";",2) Q:REMOVE=""
. S RMV(REMOVE)=""
;
;Remove v8.3 User entries for Reminders Entry
I $D(RMV) S UIEN=0 F S UIEN=$O(^CIAVOBJ(19930.2,PIEN,9,UIEN)) Q:'UIEN D
. NEW USEN,DA,IENS
. S DA(1)=PIEN,DA=UIEN,IENS=$$IENS^DILF(.DA)
. S USEN=$$GET1^DIQ(19930.221,IENS,".01","E") Q:USEN=""
. I '$D(RMV(USEN)) Q
. S DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,",DA=UIEN D ^DIK
K RMV,UIEN
;
XREG 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:INFRAGISTICS2.SHARED.V10.3.DLL;Shared.v10.3;10.3.20103.1000;Infragistics2.Shared.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL;Misc.v10.3;10.3.20103.1000;Infragistics2.Win.Misc.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL;UltraWinEditors.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinEditors.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;UltraWinGrid.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinGrid.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;Win.v10.3;10.3.20103.1000;Infragistics2.Win.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
;;IHS.WCM.EHR.ASQ.ASQCOMPONENT;Well Child ASQ;1.5.0.1;IHS.WCM.EHR.ASQ.dll;;;IHS.WCM.EHR.ASQ.chm;0;1;0;0;0;0;0;0;;1;;;;{E75D9C45-8BFD-4FE0-A322-941DF2CAC1D9};300;600;
;;IHS.WCM.EHR.GROWTHCHARTS.CHARTCOMPONENT;Well Child Pediatric Growth Charts;1.5.0.0;IHS.WCM.EHR.GrowthCharts.dll;PrintHRN=BOOL;;IHS.WCM.EHR.GrowthCharts.chm;0;1;0;0;0;0;0;0;;1;;;;{916E390F-CBE4-4FD0-95E0-5C26AA191906};640;480;
;;IHS.WCM.EHR.PATIENTED.PATIENTEDCOMPONENT;Well Child Patient Education;1.5.0.0;IHS.WCM.EHR.PATIENTED.dll;;;IHS.WCM.EHR.PatientEd.chm;0;1;0;0;0;0;0;0;;1;;;;{4F37CE40-077C-4F5B-94BC-180952737BF4};100;400;
;;IHS.WCM.EHR.REMINDERS.REMINDERSCOMPONENT;Well Child Reminders List;1.5.0.0;IHS.WCM.EHR.REMINDERS.dll;;;IHS.WCM.EHR.Reminders.chm;0;1;0;0;0;0;0;0;;1;;;;{8D15368C-CE3D-49FE-AFAD-BEF6C3E8D83B};480;640;
;;END;
;;
ASQUSE ;;
;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
;;FILE:ITEXTSHARP.3.1.6.DLL
;;END;
;;
GCUSE ;;
;;FILE:ITEXTSHARP.3.1.6.DLL
;;END;
;;
PIUSE ;;
;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
;;END;
;;
REUSE ;;
;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
;;END;
;;
INSTALLD(VENSTAL) ;EP - Determine if patch VENSTAL was installed, where
;VENSTAL is the name of the INSTALL. E.g "VEN*2.6*5".
;
I $D(^XPD(9.6,"B",VENSTAL)) Q 1
Q 0
VEN26P06 ;GDIT/HS/BEE-PCC+ (Well Child) Version 2.6 Patch 6 Post Install - Register Components ; 08 May 2012 12:00 PM
+1 ;;2.6;PCC+;**6**;NOV 16, 2007;Build 18
+2 ;
ENV ;EP - Environmental Checking Routine
+1 ;
+2 NEW VERSION,EXEC,BMWDT,BI,DIK,PIEN,TEXT
+3 ;
+4 ;Check for PCC+*2.6*5
+5 IF '$$INSTALLD("PCC+*2.6*5")
DO BMES^XPDUTL("Version 2.6 Patch 5 of PCC+ is required!")
SET XPDQUIT=2
QUIT
+6 ;
+7 QUIT
+8 ;
EN ;EP - Register the Well Child objects into the VUECENTRIC OBJECT REGISTRY
+1 ;
+2 ; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE
+3 WRITE !,"Registering the Vucentric Objects..."
+4 FOR BI=1:1
SET TEXT=$PIECE($TEXT(OBJ+BI),";",3,99)
IF ($PIECE(TEXT,";")="END")
QUIT
Begin DoDot:1
+5 WRITE !,$PIECE(TEXT,";")
+6 ;
+7 NEW DIC,X,Y,OBJUPD,ERROR,WP8,WP9,WP10,CHKSM
+8 ;
+9 ;PROGID (#.01)
+10 SET DIC="^CIAVOBJ(19930.2,"
SET DIC(0)="LOX"
SET X=$PIECE(TEXT,";")
+11 DO ^DIC
IF +Y<0
QUIT
+12 SET OIEN=+Y
+13 ;
+14 ;NAME (#1)
+15 SET OBJUPD(19930.2,OIEN_",",1)=$PIECE(TEXT,";",2)
+16 ;
+17 ;VERSION (#2)
+18 SET OBJUPD(19930.2,OIEN_",",2)=$PIECE(TEXT,";",3)
+19 ;
+20 ;SOURCE (#3)
+21 SET OBJUPD(19930.2,OIEN_",",3)=$PIECE(TEXT,";",4)
+22 ;
+23 ;SERIALIZABLE (#8)
+24 SET WP8(1)=$PIECE(TEXT,";",5)
+25 DO WP^DIE(19930.2,OIEN_",",8,"","WP8")
+26 ;
+27 ;INITIALIZATION (#9)
+28 SET WP9(1)=$PIECE(TEXT,";",6)
+29 DO WP^DIE(19930.2,OIEN_",",9,"","WP9")
+30 ;
+31 ;REQUIRED (#10)
+32 SET WP10(1)=$PIECE(TEXT,";",7)
+33 DO WP^DIE(19930.2,OIEN_",",10,"","WP10")
+34 ;
+35 ;PROPEDIT (#11)
+36 SET OBJUPD(19930.2,OIEN_",",11)=$PIECE(TEXT,";",8)
+37 ;
+38 ;MULTIPLE (#12)
+39 SET OBJUPD(19930.2,OIEN_",",12)=$PIECE(TEXT,";",9)
+40 ;
+41 ;DISABLED (#13)
+42 SET OBJUPD(19930.2,OIEN_",",13)=$PIECE(TEXT,";",10)
+43 ;
+44 ;ALLKEYS (#14)
+45 SET OBJUPD(19930.2,OIEN_",",14)=$PIECE(TEXT,";",11)
+46 ;
+47 ;HIDDEN (#15)
+48 SET OBJUPD(19930.2,OIEN_",",15)=$PIECE(TEXT,";",12)
+49 ;
+50 ;SIDEBYSIDE (#16)
+51 SET OBJUPD(19930.2,OIEN_",",16)=$PIECE(TEXT,";",13)
+52 ;
+53 ;SERVICE (#17)
+54 SET OBJUPD(19930.2,OIEN_",",17)=$PIECE(TEXT,";",14)
+55 ;
+56 ;REGRESS (#18)
+57 SET OBJUPD(19930.2,OIEN_",",18)=$PIECE(TEXT,";",15)
+58 ;
+59 ;NOREGISTER (#19)
+60 SET OBJUPD(19930.2,OIEN_",",19)=$PIECE(TEXT,";",16)
+61 ;
+62 ;DOTNET (#22)
+63 SET OBJUPD(19930.2,OIEN_",",22)=$PIECE(TEXT,";",17)
+64 ;
+65 ;ALIAS (#23)
+66 SET OBJUPD(19930.2,OIEN_",",23)=$PIECE(TEXT,";",18)
+67 ;
+68 ;TECHNICAL DESCRIPTION (#98)
+69 SET OBJUPD(19930.2,OIEN_",",98)=$PIECE(TEXT,";",19)
+70 ;
+71 ;DESCRIPTION (#99)
+72 SET OBJUPD(19930.2,OIEN_",",99)=$PIECE(TEXT,";",20)
+73 ;
+74 ;CLSID (#.5)
+75 SET OBJUPD(19930.2,OIEN_",",.5)=$PIECE(TEXT,";",21)
+76 ;
+77 ;HEIGHT (#4)
+78 SET OBJUPD(19930.2,OIEN_",",4)=$PIECE(TEXT,";",22)
+79 ;
+80 ;WIDTH (#5)
+81 SET OBJUPD(19930.2,OIEN_",",5)=$PIECE(TEXT,";",23)
+82 ;
+83 ;MD5 CHECKSUM
+84 SET CHKSM=""
+85 IF $PIECE(TEXT,";")["IHS.WCM.EHR.ASQ.ASQCOMPONENT"
SET CHKSM="432D29531C9C95860BA069D8DE2B1038"
+86 IF $PIECE(TEXT,";")["IHS.WCM.EHR.GROWTHCHARTS.CHARTCOMPONENT"
SET CHKSM="9BE2E9AFBF36ACB8336A6F85CCACEF29"
+87 IF $PIECE(TEXT,";")["IHS.WCM.EHR.PATIENTED.PATIENTEDCOMPONENT"
SET CHKSM="C068864B5F386137BA98A8217598401D"
+88 IF $PIECE(TEXT,";")["IHS.WCM.EHR.REMINDERS.REMINDERSCOMPONENT"
SET CHKSM="A3629C374A55D9F9A90D8DEBFD4D5866"
+89 IF CHKSM]""
SET OBJUPD(19930.2,OIEN_",",7)=CHKSM
+90 ;
+91 ;Update entry
+92 DO FILE^DIE("","OBJUPD","ERROR")
End DoDot:1
+93 ;
+94 ;Locate ASQ entry
+95 SET DIC(0)="MU"
SET X="IHS.WCM.EHR.ASQ.ASQCOMPONENT"
SET DIC="^CIAVOBJ(19930.2,"
+96 DO ^DIC
IF +Y<0
GOTO XREG
+97 SET PIEN=+Y
+98 ;
+99 ;Enter USER values for ASQ Entry
+100 NEW RMV,UIEN
+101 FOR BI=1:1
SET TEXT=$PIECE($TEXT(ASQUSE+BI),";",3,99)
IF ($PIECE(TEXT,";")="END")
QUIT
Begin DoDot:1
+102 ;
+103 NEW DIC,X,Y,DA,OIEN,REMOVE
+104 ;
+105 ;Locate IEN for this entry
+106 SET DIC="^CIAVOBJ(19930.2,"
SET X=$PIECE(TEXT,";")
SET DIC(0)="OX"
+107 DO ^DIC
IF +Y<0
WRITE !!,"<MISSING VUECENTRIC OBJECT: ",X,">"
QUIT
+108 SET OIEN=+Y
+109 ;
+110 SET DA(1)=PIEN
SET DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DIC(0)="LOX"
SET X=$PIECE(TEXT,";")
+111 DO ^DIC
+112 ;
+113 ;Get v8.3 User entries
+114 SET REMOVE=$PIECE(TEXT,";",2)
IF REMOVE=""
QUIT
+115 SET RMV(REMOVE)=""
End DoDot:1
+116 ;
+117 ;Remove v8.3 User entries for ASQ Entry
+118 IF $DATA(RMV)
SET UIEN=0
FOR
SET UIEN=$ORDER(^CIAVOBJ(19930.2,PIEN,9,UIEN))
IF 'UIEN
QUIT
Begin DoDot:1
+119 NEW USEN,DA,IENS
+120 SET DA(1)=PIEN
SET DA=UIEN
SET IENS=$$IENS^DILF(.DA)
+121 SET USEN=$$GET1^DIQ(19930.221,IENS,".01","E")
IF USEN=""
QUIT
+122 IF '$DATA(RMV(USEN))
QUIT
+123 SET DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DA=UIEN
DO ^DIK
End DoDot:1
+124 KILL RMV,UIEN
+125 ;
+126 ;Locate GrowthCharts entry
+127 SET DIC(0)="MU"
SET X="IHS.WCM.EHR.GROWTHCHARTS.CHART"
SET DIC="^CIAVOBJ(19930.2,"
+128 DO ^DIC
IF +Y<0
GOTO XREG
+129 SET PIEN=+Y
+130 ;
+131 ;Enter USER values for Pick List Entry
+132 FOR BI=1:1
SET TEXT=$PIECE($TEXT(GCUSE+BI),";",3,99)
IF ($PIECE(TEXT,";")="END")
QUIT
Begin DoDot:1
+133 ;
+134 NEW DIC,X,Y,DA,OIEN
+135 ;
+136 ;Locate IEN for this entry
+137 SET DIC="^CIAVOBJ(19930.2,"
SET X=$PIECE(TEXT,";")
SET DIC(0)="OX"
+138 DO ^DIC
IF +Y<0
WRITE !!,"<MISSING VUECENTRIC OBJECT: ",X,">"
QUIT
+139 SET OIEN=+Y
+140 ;
+141 SET DA(1)=PIEN
SET DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DIC(0)="LOX"
SET X=$PIECE(TEXT,";")
+142 DO ^DIC
End DoDot:1
+143 ;
+144 ;Locate PATIENTED entry
+145 SET DIC(0)="MU"
SET X="IHS.WCM.EHR.PATIENTED.PATIENTE"
SET DIC="^CIAVOBJ(19930.2,"
+146 DO ^DIC
IF +Y<0
GOTO XREG
+147 SET PIEN=+Y
+148 ;
+149 ;Enter USER values for Pick List Entry
+150 NEW RMV,UIEN
+151 FOR BI=1:1
SET TEXT=$PIECE($TEXT(PIUSE+BI),";",3,99)
IF ($PIECE(TEXT,";")="END")
QUIT
Begin DoDot:1
+152 ;
+153 NEW DIC,X,Y,DA,OIEN,REMOVE
+154 ;
+155 ;Locate IEN for this entry
+156 SET DIC="^CIAVOBJ(19930.2,"
SET X=$PIECE(TEXT,";")
SET DIC(0)="OX"
+157 DO ^DIC
IF +Y<0
WRITE !!,"<MISSING VUECENTRIC OBJECT: ",X,">"
QUIT
+158 SET OIEN=+Y
+159 ;
+160 SET DA(1)=PIEN
SET DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DIC(0)="LOX"
SET X=$PIECE(TEXT,";")
+161 DO ^DIC
+162 ;
+163 ;Get v8.3 User entries
+164 SET REMOVE=$PIECE(TEXT,";",2)
IF REMOVE=""
QUIT
+165 SET RMV(REMOVE)=""
End DoDot:1
+166 ;
+167 ;Remove v8.3 User entries for Pick List Entry
+168 IF $DATA(RMV)
SET UIEN=0
FOR
SET UIEN=$ORDER(^CIAVOBJ(19930.2,PIEN,9,UIEN))
IF 'UIEN
QUIT
Begin DoDot:1
+169 NEW USEN,DA,IENS
+170 SET DA(1)=PIEN
SET DA=UIEN
SET IENS=$$IENS^DILF(.DA)
+171 SET USEN=$$GET1^DIQ(19930.221,IENS,".01","E")
IF USEN=""
QUIT
+172 IF '$DATA(RMV(USEN))
QUIT
+173 SET DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DA=UIEN
DO ^DIK
End DoDot:1
+174 KILL RMV,UIEN
+175 ;
+176 ;Locate REMINDERS entry
+177 SET DIC(0)="MU"
SET X="IHS.WCM.EHR.REMINDERS.REMINDER"
SET DIC="^CIAVOBJ(19930.2,"
+178 DO ^DIC
IF +Y<0
GOTO XREG
+179 SET PIEN=+Y
+180 ;
+181 ;Enter USER values for Pick List Entry
+182 NEW RMV,UIEN
+183 FOR BI=1:1
SET TEXT=$PIECE($TEXT(REUSE+BI),";",3,99)
IF ($PIECE(TEXT,";")="END")
QUIT
Begin DoDot:1
+184 ;
+185 NEW DIC,X,Y,DA,OIEN,REMOVE
+186 ;
+187 ;Locate IEN for this entry
+188 SET DIC="^CIAVOBJ(19930.2,"
SET X=$PIECE(TEXT,";")
SET DIC(0)="OX"
+189 DO ^DIC
IF +Y<0
WRITE !!,"<MISSING VUECENTRIC OBJECT: ",X,">"
QUIT
+190 SET OIEN=+Y
+191 ;
+192 SET DA(1)=PIEN
SET DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DIC(0)="LOX"
SET X=$PIECE(TEXT,";")
+193 DO ^DIC
+194 ;
+195 ;Get v8.3 User entries
+196 SET REMOVE=$PIECE(TEXT,";",2)
IF REMOVE=""
QUIT
+197 SET RMV(REMOVE)=""
End DoDot:1
+198 ;
+199 ;Remove v8.3 User entries for Reminders Entry
+200 IF $DATA(RMV)
SET UIEN=0
FOR
SET UIEN=$ORDER(^CIAVOBJ(19930.2,PIEN,9,UIEN))
IF 'UIEN
QUIT
Begin DoDot:1
+201 NEW USEN,DA,IENS
+202 SET DA(1)=PIEN
SET DA=UIEN
SET IENS=$$IENS^DILF(.DA)
+203 SET USEN=$$GET1^DIQ(19930.221,IENS,".01","E")
IF USEN=""
QUIT
+204 IF '$DATA(RMV(USEN))
QUIT
+205 SET DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,"
SET DA=UIEN
DO ^DIK
End DoDot:1
+206 KILL RMV,UIEN
+207 ;
XREG 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:INFRAGISTICS2.SHARED.V10.3.DLL;Shared.v10.3;10.3.20103.1000;Infragistics2.Shared.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
+2 ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL;Misc.v10.3;10.3.20103.1000;Infragistics2.Win.Misc.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
+3 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL;UltraWinEditors.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinEditors.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
+4 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;UltraWinGrid.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinGrid.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
+5 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;Win.v10.3;10.3.20103.1000;Infragistics2.Win.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
+6 ;;IHS.WCM.EHR.ASQ.ASQCOMPONENT;Well Child ASQ;1.5.0.1;IHS.WCM.EHR.ASQ.dll;;;IHS.WCM.EHR.ASQ.chm;0;1;0;0;0;0;0;0;;1;;;;{E75D9C45-8BFD-4FE0-A322-941DF2CAC1D9};300;600;
+7 ;;IHS.WCM.EHR.GROWTHCHARTS.CHARTCOMPONENT;Well Child Pediatric Growth Charts;1.5.0.0;IHS.WCM.EHR.GrowthCharts.dll;PrintHRN=BOOL;;IHS.WCM.EHR.GrowthCharts.chm;0;1;0;0;0;0;0;0;;1;;;;{916E390F-CBE4-4FD0-95E0-5C26AA191906};640;480;
+8 ;;IHS.WCM.EHR.PATIENTED.PATIENTEDCOMPONENT;Well Child Patient Education;1.5.0.0;IHS.WCM.EHR.PATIENTED.dll;;;IHS.WCM.EHR.PatientEd.chm;0;1;0;0;0;0;0;0;;1;;;;{4F37CE40-077C-4F5B-94BC-180952737BF4};100;400;
+9 ;;IHS.WCM.EHR.REMINDERS.REMINDERSCOMPONENT;Well Child Reminders List;1.5.0.0;IHS.WCM.EHR.REMINDERS.dll;;;IHS.WCM.EHR.Reminders.chm;0;1;0;0;0;0;0;0;;1;;;;{8D15368C-CE3D-49FE-AFAD-BEF6C3E8D83B};480;640;
+10 ;;END;
+11 ;;
ASQUSE ;;
+1 ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
+2 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V8.3.DLL
+3 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
+4 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
+5 ;;FILE:ITEXTSHARP.3.1.6.DLL
+6 ;;END;
+7 ;;
GCUSE ;;
+1 ;;FILE:ITEXTSHARP.3.1.6.DLL
+2 ;;END;
+3 ;;
PIUSE ;;
+1 ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
+2 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
+3 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
+4 ;;END;
+5 ;;
REUSE ;;
+1 ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
+2 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
+3 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
+4 ;;END;
+5 ;;
INSTALLD(VENSTAL) ;EP - Determine if patch VENSTAL was installed, where
+1 ;VENSTAL is the name of the INSTALL. E.g "VEN*2.6*5".
+2 ;
+3 IF $DATA(^XPD(9.6,"B",VENSTAL))
QUIT 1
+4 QUIT 0
