Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VEN26P06

VEN26P06.m

Go to the documentation of this file. 
  1. 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
  1.  ;
  1. ENV ;EP - Environmental Checking Routine
  1.  ;
  1.  N VERSION,EXEC,BMWDT,BI,DIK,PIEN,TEXT
  1.  ;
  1.  ;Check for PCC+*2.6*5
  1.  I '$$INSTALLD("PCC+*2.6*5") D BMES^XPDUTL("Version 2.6 Patch 5 of PCC+ is required!") S XPDQUIT=2 Q
  1.  ;
  1.  Q
  1.  ;
  1. EN ;EP - Register the Well Child objects into the VUECENTRIC OBJECT REGISTRY
  1.  ;
  1.  ; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE
  1.  W !,"Registering the Vucentric Objects..."
  1.  F BI=1:1 S TEXT=$P($T(OBJ+BI),";",3,99) Q:($P(TEXT,";")="END")  D
  1.  .W !,$P(TEXT,";")
  1.  . ;
  1.  . NEW DIC,X,Y,OBJUPD,ERROR,WP8,WP9,WP10,CHKSM
  1.  . ;
  1.  . ;PROGID (#.01)
  1.  . S DIC="^CIAVOBJ(19930.2,",DIC(0)="LOX",X=$P(TEXT,";")
  1.  . D ^DIC I +Y<0 Q
  1.  . S OIEN=+Y
  1.  . ;
  1.  . ;NAME (#1)
  1.  . S OBJUPD(19930.2,OIEN_",",1)=$P(TEXT,";",2)
  1.  . ;
  1.  . ;VERSION (#2)
  1.  . S OBJUPD(19930.2,OIEN_",",2)=$P(TEXT,";",3)
  1.  . ;
  1.  . ;SOURCE (#3)
  1.  . S OBJUPD(19930.2,OIEN_",",3)=$P(TEXT,";",4)
  1.  . ;
  1.  . ;SERIALIZABLE (#8)
  1.  . S WP8(1)=$P(TEXT,";",5)
  1.  . D WP^DIE(19930.2,OIEN_",",8,"","WP8")
  1.  . ;
  1.  . ;INITIALIZATION (#9)
  1.  . S WP9(1)=$P(TEXT,";",6)
  1.  . D WP^DIE(19930.2,OIEN_",",9,"","WP9")
  1.  . ;
  1.  . ;REQUIRED (#10)
  1.  . S WP10(1)=$P(TEXT,";",7)
  1.  . D WP^DIE(19930.2,OIEN_",",10,"","WP10")
  1.  . ;
  1.  . ;PROPEDIT (#11)
  1.  . S OBJUPD(19930.2,OIEN_",",11)=$P(TEXT,";",8)
  1.  . ;
  1.  . ;MULTIPLE (#12)
  1.  . S OBJUPD(19930.2,OIEN_",",12)=$P(TEXT,";",9)
  1.  . ;
  1.  . ;DISABLED (#13)
  1.  . S OBJUPD(19930.2,OIEN_",",13)=$P(TEXT,";",10)
  1.  . ;
  1.  . ;ALLKEYS (#14)
  1.  . S OBJUPD(19930.2,OIEN_",",14)=$P(TEXT,";",11)
  1.  . ;
  1.  . ;HIDDEN (#15)
  1.  . S OBJUPD(19930.2,OIEN_",",15)=$P(TEXT,";",12)
  1.  . ;
  1.  . ;SIDEBYSIDE (#16)
  1.  . S OBJUPD(19930.2,OIEN_",",16)=$P(TEXT,";",13)
  1.  . ;
  1.  . ;SERVICE (#17)
  1.  . S OBJUPD(19930.2,OIEN_",",17)=$P(TEXT,";",14)
  1.  . ;
  1.  . ;REGRESS (#18)
  1.  . S OBJUPD(19930.2,OIEN_",",18)=$P(TEXT,";",15)
  1.  . ;
  1.  . ;NOREGISTER (#19)
  1.  . S OBJUPD(19930.2,OIEN_",",19)=$P(TEXT,";",16)
  1.  . ;
  1.  . ;DOTNET (#22)
  1.  . S OBJUPD(19930.2,OIEN_",",22)=$P(TEXT,";",17)
  1.  . ;
  1.  . ;ALIAS (#23)
  1.  . S OBJUPD(19930.2,OIEN_",",23)=$P(TEXT,";",18)
  1.  . ;
  1.  . ;TECHNICAL DESCRIPTION (#98)
  1.  . S OBJUPD(19930.2,OIEN_",",98)=$P(TEXT,";",19)
  1.  . ;
  1.  . ;DESCRIPTION (#99)
  1.  . S OBJUPD(19930.2,OIEN_",",99)=$P(TEXT,";",20)
  1.  . ;
  1.  . ;CLSID (#.5)
  1.  . S OBJUPD(19930.2,OIEN_",",.5)=$P(TEXT,";",21)
  1.  . ;
  1.  . ;HEIGHT (#4)
  1.  . S OBJUPD(19930.2,OIEN_",",4)=$P(TEXT,";",22)
  1.  . ;
  1.  . ;WIDTH (#5)
  1.  . S OBJUPD(19930.2,OIEN_",",5)=$P(TEXT,";",23)
  1.  . ;
  1.  . ;MD5 CHECKSUM
  1.  . S CHKSM=""
  1.  . I $P(TEXT,";")["IHS.WCM.EHR.ASQ.ASQCOMPONENT" S CHKSM="432D29531C9C95860BA069D8DE2B1038"
  1.  . I $P(TEXT,";")["IHS.WCM.EHR.GROWTHCHARTS.CHARTCOMPONENT" S CHKSM="9BE2E9AFBF36ACB8336A6F85CCACEF29"
  1.  . I $P(TEXT,";")["IHS.WCM.EHR.PATIENTED.PATIENTEDCOMPONENT" S CHKSM="C068864B5F386137BA98A8217598401D"
  1.  . I $P(TEXT,";")["IHS.WCM.EHR.REMINDERS.REMINDERSCOMPONENT" S CHKSM="A3629C374A55D9F9A90D8DEBFD4D5866"
  1.  . I CHKSM]"" S OBJUPD(19930.2,OIEN_",",7)=CHKSM
  1.  . ;
  1.  . ;Update entry
  1.  .D FILE^DIE("","OBJUPD","ERROR")
  1.  ;
  1.  ;Locate ASQ entry
  1.  S DIC(0)="MU",X="IHS.WCM.EHR.ASQ.ASQCOMPONENT",DIC="^CIAVOBJ(19930.2,"
  1.  D ^DIC I +Y<0 G XREG
  1.  S PIEN=+Y
  1.  ;
  1.  ;Enter USER values for ASQ Entry
  1.  NEW RMV,UIEN
  1.  F BI=1:1 S TEXT=$P($T(ASQUSE+BI),";",3,99) Q:($P(TEXT,";")="END")  D
  1.  . ;
  1.  . NEW DIC,X,Y,DA,OIEN,REMOVE
  1.  . ;
  1.  . ;Locate IEN for this entry
  1.  . S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
  1.  . D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
  1.  . S OIEN=+Y
  1.  . ;
  1.  . S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
  1.  . D ^DIC
  1.  . ;
  1.  . ;Get v8.3 User entries
  1.  . S REMOVE=$P(TEXT,";",2) Q:REMOVE=""
  1.  . S RMV(REMOVE)=""
  1.  ;
  1.  ;Remove v8.3 User entries for ASQ Entry
  1.  I $D(RMV) S UIEN=0 F  S UIEN=$O(^CIAVOBJ(19930.2,PIEN,9,UIEN)) Q:'UIEN  D
  1.  . NEW USEN,DA,IENS
  1.  . S DA(1)=PIEN,DA=UIEN,IENS=$$IENS^DILF(.DA)
  1.  . S USEN=$$GET1^DIQ(19930.221,IENS,".01","E") Q:USEN=""
  1.  . I '$D(RMV(USEN)) Q
  1.  . S DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,",DA=UIEN D ^DIK
  1.  K RMV,UIEN
  1.  ;
  1.  ;Locate GrowthCharts entry
  1.  S DIC(0)="MU",X="IHS.WCM.EHR.GROWTHCHARTS.CHART",DIC="^CIAVOBJ(19930.2,"
  1.  D ^DIC I +Y<0 G XREG
  1.  S PIEN=+Y
  1.  ;
  1.  ;Enter USER values for Pick List Entry
  1.  F BI=1:1 S TEXT=$P($T(GCUSE+BI),";",3,99) Q:($P(TEXT,";")="END")  D
  1.  . ;
  1.  . NEW DIC,X,Y,DA,OIEN
  1.  . ;
  1.  . ;Locate IEN for this entry
  1.  . S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
  1.  . D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
  1.  . S OIEN=+Y
  1.  . ;
  1.  . S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
  1.  . D ^DIC
  1.  ;
  1.  ;Locate PATIENTED entry
  1.  S DIC(0)="MU",X="IHS.WCM.EHR.PATIENTED.PATIENTE",DIC="^CIAVOBJ(19930.2,"
  1.  D ^DIC I +Y<0 G XREG
  1.  S PIEN=+Y
  1.  ;
  1.  ;Enter USER values for Pick List Entry
  1.  NEW RMV,UIEN
  1.  F BI=1:1 S TEXT=$P($T(PIUSE+BI),";",3,99) Q:($P(TEXT,";")="END")  D
  1.  . ;
  1.  . NEW DIC,X,Y,DA,OIEN,REMOVE
  1.  . ;
  1.  . ;Locate IEN for this entry
  1.  . S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
  1.  . D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
  1.  . S OIEN=+Y
  1.  . ;
  1.  . S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
  1.  . D ^DIC
  1.  . ;
  1.  . ;Get v8.3 User entries
  1.  . S REMOVE=$P(TEXT,";",2) Q:REMOVE=""
  1.  . S RMV(REMOVE)=""
  1.  ;
  1.  ;Remove v8.3 User entries for Pick List Entry
  1.  I $D(RMV) S UIEN=0 F  S UIEN=$O(^CIAVOBJ(19930.2,PIEN,9,UIEN)) Q:'UIEN  D
  1.  . NEW USEN,DA,IENS
  1.  . S DA(1)=PIEN,DA=UIEN,IENS=$$IENS^DILF(.DA)
  1.  . S USEN=$$GET1^DIQ(19930.221,IENS,".01","E") Q:USEN=""
  1.  . I '$D(RMV(USEN)) Q
  1.  . S DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,",DA=UIEN D ^DIK
  1.  K RMV,UIEN
  1.  ;
  1.  ;Locate REMINDERS entry
  1.  S DIC(0)="MU",X="IHS.WCM.EHR.REMINDERS.REMINDER",DIC="^CIAVOBJ(19930.2,"
  1.  D ^DIC I +Y<0 G XREG
  1.  S PIEN=+Y
  1.  ;
  1.  ;Enter USER values for Pick List Entry
  1.  NEW RMV,UIEN
  1.  F BI=1:1 S TEXT=$P($T(REUSE+BI),";",3,99) Q:($P(TEXT,";")="END")  D
  1.  . ;
  1.  . NEW DIC,X,Y,DA,OIEN,REMOVE
  1.  . ;
  1.  . ;Locate IEN for this entry
  1.  . S DIC="^CIAVOBJ(19930.2,",X=$P(TEXT,";"),DIC(0)="OX"
  1.  . D ^DIC I +Y<0 W !!,"<MISSING VUECENTRIC OBJECT: ",X,">" Q
  1.  . S OIEN=+Y
  1.  . ;
  1.  . S DA(1)=PIEN,DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,",DIC(0)="LOX",X=$P(TEXT,";")
  1.  . D ^DIC
  1.  . ;
  1.  . ;Get v8.3 User entries
  1.  . S REMOVE=$P(TEXT,";",2) Q:REMOVE=""
  1.  . S RMV(REMOVE)=""
  1.  ;
  1.  ;Remove v8.3 User entries for Reminders Entry
  1.  I $D(RMV) S UIEN=0 F  S UIEN=$O(^CIAVOBJ(19930.2,PIEN,9,UIEN)) Q:'UIEN  D
  1.  . NEW USEN,DA,IENS
  1.  . S DA(1)=PIEN,DA=UIEN,IENS=$$IENS^DILF(.DA)
  1.  . S USEN=$$GET1^DIQ(19930.221,IENS,".01","E") Q:USEN=""
  1.  . I '$D(RMV(USEN)) Q
  1.  . S DIK="^CIAVOBJ(19930.2,"_DA(1)_",9,",DA=UIEN D ^DIK
  1.  K RMV,UIEN
  1.  ;
  1. XREG Q
  1.  ;
  1.  ;;File 19930.2 Field listing
  1.  ;;PROGID;NAME;VRSN;SRC;SER;INI;REQ;PROP;MULT;DIS;ALLK;HIDD;SBYS;SERV;REG;NORG;DOTN;ALIA;TDES;DES;CLSID;HEIGHT;WIDTH
  1.  ;;.01;1;2;3;8;9;10;11;12;13;14;15;16;17;18;19;22;23;98;99.5;4;5
  1. 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;;;;;;
  1.  ;;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;;;;;;
  1.  ;;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;;;;;;
  1.  ;;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;;;;;;
  1.  ;;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;;;;;;
  1.  ;;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;
  1.  ;;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;
  1.  ;;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;
  1.  ;;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;
  1.  ;;END;
  1.  ;;
  1. ASQUSE ;;
  1.  ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
  1.  ;;FILE:ITEXTSHARP.3.1.6.DLL
  1.  ;;END;
  1.  ;;
  1. GCUSE ;;
  1.  ;;FILE:ITEXTSHARP.3.1.6.DLL
  1.  ;;END;
  1.  ;;
  1. PIUSE ;;
  1.  ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
  1.  ;;END;
  1.  ;;
  1. REUSE ;;
  1.  ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL;FILE:INFRAGISTICS2.SHARED.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V8.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL;FILE:INFRAGISTICS2.WIN.V8.3.DLL
  1.  ;;END;
  1.  ;;
  1. INSTALLD(VENSTAL) ;EP - Determine if patch VENSTAL was installed, where
  1.  ;VENSTAL is the name of the INSTALL.  E.g "VEN*2.6*5".
  1.  ;
  1.  I $D(^XPD(9.6,"B",VENSTAL)) Q 1
  1.  Q 0