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

BJPN20RG.m

Go to the documentation of this file. 
  1. BJPN20RG ;GDIT/HS/BEE-Prenatal Care Module 2.0 Post Install - Register Components ; 08 May 2012  12:00 PM
  1.  ;;2.0;PRENATAL CARE MODULE;;Feb 24, 2015;Build 63
  1.  ;
  1.  Q
  1.  ;
  1. REG ;EP - Register the prenatal objects into VUECENTRIC and tie to BSTS
  1.  ;
  1.  ;Set BSTSRPC into BJPNRPC
  1.  NEW IEN,DA,X,DIC,BI,TEXT,PIEN,Y
  1.  ;
  1.  K DO,DD
  1.  S DA(1)=$$FIND1^DIC(19,"","B","BJPNRPC","","","ERROR"),DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMNZ"
  1.  I $G(^DIC(19,DA(1),10,0))="" S ^DIC(19,DA(1),10,0)="^19.01IP^^"
  1.  S X="BSTSRPC"
  1.  D ^DIC I +Y<1 K DO,DD D FILE^DICN
  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
  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.  . ;Update entry
  1.  .D FILE^DIE("","OBJUPD","ERROR")
  1.  ;
  1.  ;Locate PIP entry
  1.  S DIC(0)="MU",X="IHS.PN.EHR.PRENATALPROBLEMLIST",DIC="^CIAVOBJ(19930.2,"
  1.  D ^DIC I +Y<0 G XREG
  1.  S PIEN=+Y
  1.  ;
  1.  ;Enter USER values for Problem List Entry
  1.  F BI=1:1 S TEXT=$P($T(PPUSE+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 Pick List entry
  1.  S DIC(0)="MU",X="IHS.PN.EHR.PRENATALPICKLIST",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(PKUSE+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 SNOMED CT entry
  1.  S DIC(0)="MU",X="FILE:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL",DIC="^CIAVOBJ(19930.2,"
  1.  D ^DIC I +Y<0 G XREG
  1.  S PIEN=+Y
  1.  ;
  1.  ;Enter USER values for SNOMED CT entry
  1.  F BI=1:1 S TEXT=$P($T(SMUSE+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. 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.EXCEL.V10.3.DLL;Excel.v10.3;10.3.20103.1000;Infragistics2.Excel.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:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL;SNOMED CT Search;1.0.0.7;IndianHealthService.SNOMEDCTSearch.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
  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.ULTRAWINTABCONTROL.V10.3.DLL;UltraWinTabControl.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinTabControl.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.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL;ExcelExport.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinGrid.ExcelExport.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.ULTRAWINPRINTPREVIEWDIALOG.V10.3.DLL;UltraWinPrintPreviewDialog.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinPrintPreviewDialog.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINSTATUSBAR.V10.3.DLL;UltraWinStatusBar.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinStatusBar.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTOOLBARS.V10.3.DLL;UltraWinToolbars.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinToolbars.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.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTBAR.V10.3.DLL;UltraWinListBar.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinListBar.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTVIEW.V10.3.DLL;UltraWinListView.v10.3;10.3.20103.1000;Infragistics2.Win.UltraWinListView.v10.3.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
  1.  ;;FILE:RICHTEXTBOXPRINTCONTROL.DLL;Rich Text Box Print Control;1.0.0.0;RichTextBoxPrintControl.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;
  1.  ;;FILE:BEHPOVCVG.DLL;BEHPovCvg;1.0.5421.30512;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;
  1.  ;;IHS.PN.EHR.PRENATALPICKLIST.PRENATALPICKLISTCOMPONENT;Prenatal Pick List;2.0.0.7;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
  1.  ;;IHS.PN.EHR.PRENATALPROBLEMLIST.PIPCOMPONENT;Pregnancy Issues and Problems List;2.0.0.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
  1.  ;;END;
  1.  ;;
  1. PPUSE ;;
  1.  ;;FILE:INFRAGISTICS2.EXCEL.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTABCONTROL.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINPRINTPREVIEWDIALOG.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINSTATUSBAR.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTOOLBARS.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL
  1.  ;;FILE:RICHTEXTBOXPRINTCONTROL.DLL
  1.  ;;FILE:BEHPOVCVG.DLL
  1.  ;;END;
  1.  ;;
  1. PKUSE ;;
  1.  ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTBAR.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTVIEW.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL
  1.  ;;END;
  1.  ;;
  1. SMUSE ;;
  1.  ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL
  1.  ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL
  1.  ;;END;
  1.  ;;