BJPN20RG.m

BJPN20RG ;GDIT/HS/BEE-Prenatal Care Module 2.0 Post Install - Register Components ; 08 May 2012  12:00 PM

 ;;2.0;PRENATAL CARE MODULE;;Feb 24, 2015;Build 63

 ;

 Q

 ;

REG ;EP - Register the prenatal objects into VUECENTRIC and tie to BSTS

 ;

 ;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..."

 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

 . ;

 . ;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")

 ;

 ;Locate PIP entry

 S DIC(0)="MU",X="IHS.PN.EHR.PRENATALPROBLEMLIST",DIC="^CIAVOBJ(19930.2,"

 D ^DIC I +Y<0 G XREG

 S PIEN=+Y

 ;

 ;Enter USER values for Problem List Entry

 F BI=1:1 S TEXT=$P($T(PPUSE+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 Pick List entry

 S DIC(0)="MU",X="IHS.PN.EHR.PRENATALPICKLIST",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(PKUSE+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 SNOMED CT entry

 S DIC(0)="MU",X="FILE:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL",DIC="^CIAVOBJ(19930.2,"

 D ^DIC I +Y<0 G XREG

 S PIEN=+Y

 ;

 ;Enter USER values for SNOMED CT entry

 F BI=1:1 S TEXT=$P($T(SMUSE+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

 ;

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.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;;;;;;

 ;;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:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL;SNOMED CT Search;1.0.0.7;IndianHealthService.SNOMEDCTSearch.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;

 ;;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.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;;;;;;

 ;;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.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;;;;;;

 ;;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.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;;;;;;

 ;;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;;;;;;

 ;;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;;;;;;

 ;;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;;;;;;

 ;;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;;;;;;

 ;;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;;;;;;

 ;;FILE:RICHTEXTBOXPRINTCONTROL.DLL;Rich Text Box Print Control;1.0.0.0;RichTextBoxPrintControl.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;

 ;;FILE:BEHPOVCVG.DLL;BEHPovCvg;1.0.5421.30512;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;

 ;;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

 ;;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

 ;;END;

 ;;

PPUSE ;;

 ;;FILE:INFRAGISTICS2.EXCEL.V10.3.DLL

 ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTABCONTROL.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINPRINTPREVIEWDIALOG.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINSTATUSBAR.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTOOLBARS.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL

 ;;FILE:RICHTEXTBOXPRINTCONTROL.DLL

 ;;FILE:BEHPOVCVG.DLL

 ;;END;

 ;;

PKUSE ;;

 ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTBAR.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTVIEW.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL

 ;;END;

 ;;

SMUSE ;;

 ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL

 ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL

 ;;END;

 ;;

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

 +2       ;

 +3        QUIT 

 +4       ;

REG       ;EP - Register the prenatal objects into VUECENTRIC and tie to BSTS

 +1       ;

 +2       ;Set BSTSRPC into BJPNRPC

 +3        NEW IEN,DA,X,DIC,BI,TEXT,PIEN,Y

 +4       ;

 +5        KILL DO,DD

 +6        SET DA(1)=$$FIND1^DIC(19,"","B","BJPNRPC","","","ERROR")

           SET DIC="^DIC(19,"_DA(1)_",10,"

           SET DIC(0)="LMNZ"

 +7        IF $GET(^DIC(19,DA(1),10,0))=""

               SET ^DIC(19,DA(1),10,0)="^19.01IP^^"

 +8        SET X="BSTSRPC"

 +9        DO ^DIC

           IF +Y<1

               KILL DO,DD

               DO FILE^DICN

 +10      ;

 +11      ; UPDATE THE VUECENTRIC REGISTERED OBJECTS FILE

 +12       WRITE !,"Registering the Vucentric Objects..."

 +13       FOR BI=1:1

               SET TEXT=$PIECE($TEXT(OBJ+BI),";",3,99)

               IF ($PIECE(TEXT,";")="END")

                   QUIT 

               Begin DoDot:1

 +14               WRITE !,$PIECE(TEXT,";")

 +15      ;

 +16               NEW DIC,X,Y,OBJUPD,ERROR,WP8,WP9,WP10

 +17      ;

 +18      ;PROGID (#.01)

 +19               SET DIC="^CIAVOBJ(19930.2,"

                   SET DIC(0)="LOX"

                   SET X=$PIECE(TEXT,";")

 +20               DO ^DIC

                   IF +Y<0

                       QUIT 

 +21               SET OIEN=+Y

 +22      ;

 +23      ;NAME (#1)

 +24               SET OBJUPD(19930.2,OIEN_",",1)=$PIECE(TEXT,";",2)

 +25      ;

 +26      ;VERSION (#2)

 +27               SET OBJUPD(19930.2,OIEN_",",2)=$PIECE(TEXT,";",3)

 +28      ;

 +29      ;SOURCE (#3)

 +30               SET OBJUPD(19930.2,OIEN_",",3)=$PIECE(TEXT,";",4)

 +31      ;

 +32      ;SERIALIZABLE (#8)

 +33               SET WP8(1)=$PIECE(TEXT,";",5)

 +34               DO WP^DIE(19930.2,OIEN_",",8,"","WP8")

 +35      ;

 +36      ;INITIALIZATION (#9)

 +37               SET WP9(1)=$PIECE(TEXT,";",6)

 +38               DO WP^DIE(19930.2,OIEN_",",9,"","WP9")

 +39      ;

 +40      ;REQUIRED (#10)

 +41               SET WP10(1)=$PIECE(TEXT,";",7)

 +42               DO WP^DIE(19930.2,OIEN_",",10,"","WP10")

 +43      ;

 +44      ;PROPEDIT (#11)

 +45               SET OBJUPD(19930.2,OIEN_",",11)=$PIECE(TEXT,";",8)

 +46      ;

 +47      ;MULTIPLE (#12)

 +48               SET OBJUPD(19930.2,OIEN_",",12)=$PIECE(TEXT,";",9)

 +49      ;

 +50      ;DISABLED (#13)

 +51               SET OBJUPD(19930.2,OIEN_",",13)=$PIECE(TEXT,";",10)

 +52      ;

 +53      ;ALLKEYS (#14)

 +54               SET OBJUPD(19930.2,OIEN_",",14)=$PIECE(TEXT,";",11)

 +55      ;

 +56      ;HIDDEN (#15)

 +57               SET OBJUPD(19930.2,OIEN_",",15)=$PIECE(TEXT,";",12)

 +58      ;

 +59      ;SIDEBYSIDE (#16)

 +60               SET OBJUPD(19930.2,OIEN_",",16)=$PIECE(TEXT,";",13)

 +61      ;

 +62      ;SERVICE (#17)

 +63               SET OBJUPD(19930.2,OIEN_",",17)=$PIECE(TEXT,";",14)

 +64      ;

 +65      ;REGRESS (#18)

 +66               SET OBJUPD(19930.2,OIEN_",",18)=$PIECE(TEXT,";",15)

 +67      ;

 +68      ;NOREGISTER (#19)

 +69               SET OBJUPD(19930.2,OIEN_",",19)=$PIECE(TEXT,";",16)

 +70      ;

 +71      ;DOTNET (#22)

 +72               SET OBJUPD(19930.2,OIEN_",",22)=$PIECE(TEXT,";",17)

 +73      ;

 +74      ;ALIAS (#23)

 +75               SET OBJUPD(19930.2,OIEN_",",23)=$PIECE(TEXT,";",18)

 +76      ;

 +77      ;TECHNICAL DESCRIPTION (#98)

 +78               SET OBJUPD(19930.2,OIEN_",",98)=$PIECE(TEXT,";",19)

 +79      ;

 +80      ;DESCRIPTION (#99)

 +81               SET OBJUPD(19930.2,OIEN_",",99)=$PIECE(TEXT,";",20)

 +82      ;

 +83      ;CLSID (#.5)

 +84               SET OBJUPD(19930.2,OIEN_",",.5)=$PIECE(TEXT,";",21)

 +85      ;

 +86      ;HEIGHT (#4)

 +87               SET OBJUPD(19930.2,OIEN_",",4)=$PIECE(TEXT,";",22)

 +88      ;

 +89      ;WIDTH (#5)

 +90               SET OBJUPD(19930.2,OIEN_",",5)=$PIECE(TEXT,";",23)

 +91      ;

 +92      ;Update entry

 +93               DO FILE^DIE("","OBJUPD","ERROR")

               End DoDot:1

 +94      ;

 +95      ;Locate PIP entry

 +96       SET DIC(0)="MU"

           SET X="IHS.PN.EHR.PRENATALPROBLEMLIST"

           SET DIC="^CIAVOBJ(19930.2,"

 +97       DO ^DIC

           IF +Y<0

               GOTO XREG

 +98       SET PIEN=+Y

 +99      ;

 +100     ;Enter USER values for Problem List Entry

 +101      FOR BI=1:1

               SET TEXT=$PIECE($TEXT(PPUSE+BI),";",3,99)

               IF ($PIECE(TEXT,";")="END")

                   QUIT 

               Begin DoDot:1

 +102     ;

 +103              NEW DIC,X,Y,DA,OIEN

 +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

               End DoDot:1

 +112     ;

 +113     ;Locate Pick List entry

 +114      SET DIC(0)="MU"

           SET X="IHS.PN.EHR.PRENATALPICKLIST"

           SET DIC="^CIAVOBJ(19930.2,"

 +115      DO ^DIC

           IF +Y<0

               GOTO XREG

 +116      SET PIEN=+Y

 +117     ;

 +118     ;Enter USER values for Pick List Entry

 +119      FOR BI=1:1

               SET TEXT=$PIECE($TEXT(PKUSE+BI),";",3,99)

               IF ($PIECE(TEXT,";")="END")

                   QUIT 

               Begin DoDot:1

 +120     ;

 +121              NEW DIC,X,Y,DA,OIEN

 +122     ;

 +123     ;Locate IEN for this entry

 +124              SET DIC="^CIAVOBJ(19930.2,"

                   SET X=$PIECE(TEXT,";")

                   SET DIC(0)="OX"

 +125              DO ^DIC

                   IF +Y<0

                       WRITE !!,"<MISSING VUECENTRIC OBJECT: ",X,">"

                       QUIT 

 +126              SET OIEN=+Y

 +127     ;

 +128              SET DA(1)=PIEN

                   SET DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,"

                   SET DIC(0)="LOX"

                   SET X=$PIECE(TEXT,";")

 +129              DO ^DIC

               End DoDot:1

 +130     ;

 +131     ;Locate SNOMED CT entry

 +132      SET DIC(0)="MU"

           SET X="FILE:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL"

           SET DIC="^CIAVOBJ(19930.2,"

 +133      DO ^DIC

           IF +Y<0

               GOTO XREG

 +134      SET PIEN=+Y

 +135     ;

 +136     ;Enter USER values for SNOMED CT entry

 +137      FOR BI=1:1

               SET TEXT=$PIECE($TEXT(SMUSE+BI),";",3,99)

               IF ($PIECE(TEXT,";")="END")

                   QUIT 

               Begin DoDot:1

 +138     ;

 +139              NEW DIC,X,Y,DA,OIEN

 +140     ;

 +141     ;Locate IEN for this entry

 +142              SET DIC="^CIAVOBJ(19930.2,"

                   SET X=$PIECE(TEXT,";")

                   SET DIC(0)="OX"

 +143              DO ^DIC

                   IF +Y<0

                       WRITE !!,"<MISSING VUECENTRIC OBJECT: ",X,">"

                       QUIT 

 +144              SET OIEN=+Y

 +145     ;

 +146              SET DA(1)=PIEN

                   SET DIC="^CIAVOBJ(19930.2,"_DA(1)_",9,"

                   SET DIC(0)="LOX"

                   SET X=$PIECE(TEXT,";")

 +147              DO ^DIC

               End DoDot:1

 +148     ;

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.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;;;;;;

 +2       ;;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;;;;;;

 +3       ;;FILE:INDIANHEALTHSERVICE.SNOMEDCTSEARCH.DLL;SNOMED CT Search;1.0.0.7;IndianHealthService.SNOMEDCTSearch.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;

 +4       ;;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;;;;;;

 +5       ;;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;;;;;;

 +6       ;;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;;;;;;

 +7       ;;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;;;;;;

 +8       ;;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;;;;;;

 +9       ;;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;;;;;;

 +10      ;;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;;;;;;

 +11      ;;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;;;;;;

 +12      ;;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;;;;;;

 +13      ;;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;;;;;;

 +14      ;;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;;;;;;

 +15      ;;FILE:RICHTEXTBOXPRINTCONTROL.DLL;Rich Text Box Print Control;1.0.0.0;RichTextBoxPrintControl.dll;;;;0;0;0;0;1;0;0;0;;0;;;;;;

 +16      ;;FILE:BEHPOVCVG.DLL;BEHPovCvg;1.0.5421.30512;BEHPovCvg.dll;;;;0;1;0;0;1;0;0;0;;0;;;;;;

 +17      ;;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

 +18      ;;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

 +19      ;;END;

 +20      ;;

PPUSE     ;;

 +1       ;;FILE:INFRAGISTICS2.EXCEL.V10.3.DLL

 +2       ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL

 +3       ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL

 +4       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL

 +5       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTABCONTROL.V10.3.DLL

 +6       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL

 +7       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINPRINTPREVIEWDIALOG.V10.3.DLL

 +8       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINSTATUSBAR.V10.3.DLL

 +9       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINTOOLBARS.V10.3.DLL

 +10      ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL

 +11      ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL

 +12      ;;FILE:RICHTEXTBOXPRINTCONTROL.DLL

 +13      ;;FILE:BEHPOVCVG.DLL

 +14      ;;END;

 +15      ;;

PKUSE     ;;

 +1       ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL

 +2       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTBAR.V10.3.DLL

 +3       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINLISTVIEW.V10.3.DLL

 +4       ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL

 +5       ;;END;

 +6       ;;

SMUSE     ;;

 +1       ;;FILE:INFRAGISTICS2.SHARED.V10.3.DLL

 +2       ;;FILE:INFRAGISTICS2.WIN.MISC.V10.3.DLL

 +3       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINEDITORS.V10.3.DLL

 +4       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.EXCELEXPORT.V10.3.DLL

 +5       ;;FILE:INFRAGISTICS2.WIN.ULTRAWINGRID.V10.3.DLL

 +6       ;;FILE:INFRAGISTICS2.WIN.V10.3.DLL

 +7       ;;END;

 +8       ;;