Routine: IS00007G

IS00007G ;Compiled from script 'Generated: HL IHS DW1 A08-O' on SEP 08, 2008

 ;Part 8

 ;Copyright 2008 SAIC

EN S @INV@("DG118")=X K DXS,D0

 ;SET DG119 = ""

 S D0=INDA S X=""

 S @INV@("DG119")=X K DXS,D0

 D:'INVS MC^INHS

 K LINE S LINE="",CP=0 S L1="DG1" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("DG11")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("DG12")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP) S L1=$G(@INV@("DG13"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,4,L1,.CP) S L1=$G(@INV@("DG14")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

 S L1=$G(@INV@("DG15")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,6,L1,.CP) S L1=$G(@INV@("DG16")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)

 S L1=$G(@INV@("DG17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP) S L1=$G(@INV@("DG18")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)

 S L1=$G(@INV@("DG19")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,10,L1,.CP) S L1=$G(@INV@("DG110")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,11,L1,.CP)

 S L1=$G(@INV@("DG111")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,12,L1,.CP) S L1=$G(@INV@("DG112")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,13,L1,.CP) S L1=$G(@INV@("DG113")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,14,L1,.CP) S L1=$G(@INV@("DG114"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,15,L1,.CP) S L1=$G(@INV@("DG115")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,16,L1,.CP)

 S L1=$G(@INV@("DG116")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,17,L1,.CP) S L1=$G(@INV@("DG117")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,18,L1,.CP) S L1=$G(@INV@("DG118")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,19,L1,.CP) S L1=$G(@INV@("DG119"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)

 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE

 SET INSETID=0

 S INDA1=INDA,INI(2)=0  F  S INI(2)=$O(INDA("ZDX",INI(2))) Q:'INI(2)  S INDA=$S(INDA("ZDX",INI(2)):INDA("ZDX",INI(2)),1:INI(2)) D

 .;SET ZDX1 = ""

 .S D0=INDA S X=""

 .S @INV@("ZDX1")=X K DXS,D0

 .;SET ZDX2 = ""

 .S D0=INDA S X=""

 .S @INV@("ZDX2")=X K DXS,D0

 .;SET ZDX3 = ""

 .S D0=INDA S X=""

 .S @INV@("ZDX3")=X K DXS,D0

 .;SET ZDX4 = INSGX\^INTHL7FT(1,3)\\999\@BDW1ZDX4

 .S D0=INDA S X=$G(INA("BDW1ZDX4",INI(1),INI(2)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("ZDX4")=X K DXS,D0

 .;SET ZDX5 = ""

 .S D0=INDA S X=""

 .S @INV@("ZDX5")=X K DXS,D0

 .;SET ZDX6 = INSGX\^INTHL7FT(1,3)\\999\@BDW1ZDX6

 .S D0=INDA S X=$G(INA("BDW1ZDX6",INI(1),INI(2)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("ZDX6")=X K DXS,D0

 .;SET ZDX7 = INSGX\^INTHL7FT(1,3)\\999\@BDW1ZDX7

 .S D0=INDA S X=$G(INA("BDW1ZDX7",INI(1),INI(2)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("ZDX7")=X K DXS,D0

 .D:'INVS MC^INHS

 .K LINE S LINE="",CP=0 S L1="ZDX" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("ZDX1")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("ZDX2")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP) S L1=$G(@INV@("ZDX3"))

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,4,L1,.CP) S L1=$G(@INV@("ZDX4")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

 .S L1=$G(@INV@("ZDX5")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,6,L1,.CP) S L1=$G(@INV@("ZDX6")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)

 .S L1=$G(@INV@("ZDX7")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP)

 .S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE

.Q

 S INDA=INDA1 K INDA1

C1 S INDA=INDA0 K INDA0

 SET INSETID=0

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA("PR1",INI(1))) Q:'INI(1)  S INDA=$S(INDA("PR1",INI(1)):INDA("PR1",INI(1)),1:INI(1)) D

 .;SET PR11 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR11

 .S D0=INDA S X=$G(INA("BDW1PR11",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("PR11")=X K DXS,D0

 .;SET PR12 = ""

 .S D0=INDA S X=""

 .S @INV@("PR12")=X K DXS,D0

 .;SET PR13 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR13

 .S D0=INDA S X=$G(INA("BDW1PR13",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("PR13")=X K DXS,D0

 .;SET PR14 = ""

 .S D0=INDA S X=""

 .S @INV@("PR14")=X K DXS,D0

 .;SET PR15 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR15

 .S D0=INDA S X=$G(INA("BDW1PR15",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("PR15")=X K DXS,D0

 .;SET PR16 = ""

 .S D0=INDA S X=""

 .S @INV@("PR16")=X K DXS,D0

 .;SET PR17 = ""

 .S D0=INDA S X=""

 .S @INV@("PR17")=X K DXS,D0

 .;SET PR18 = ""

 .S D0=INDA S X=""

 .S @INV@("PR18")=X K DXS,D0

 .;SET PR19 = ""

 .S D0=INDA S X=""

 .S @INV@("PR19")=X K DXS,D0

 .;SET PR110 = ""

 .S D0=INDA S X=""

 .S @INV@("PR110")=X K DXS,D0

 .;SET PR111 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR111

 .S D0=INDA S X=$G(INA("BDW1PR111",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 .S @INV@("PR111")=X K DXS,D0

 .;SET PR112 = ""

 .S D0=INDA S X=""

 .S @INV@("PR112")=X K DXS,D0

 .;SET PR113 = ""

 .S D0=INDA S X=""

 .S @INV@("PR113")=X K DXS,D0

 .;SET PR114 = ""

 .S D0=INDA S X=""

 .S @INV@("PR114")=X K DXS,D0

 .;SET PR115 = ""

 .S D0=INDA S X=""

 .S @INV@("PR115")=X K DXS,D0

 .;SET PR116 = ""

 .S D0=INDA S X=""

 .S @INV@("PR116")=X K DXS,D0

 .;SET PR117 = ""

 .S D0=INDA S X=""

 .S @INV@("PR117")=X K DXS,D0

 .;SET PR118 = ""

 .S D0=INDA S X=""

 .S @INV@("PR118")=X K DXS,D0

 .D:'INVS MC^INHS

 .K LINE S LINE="",CP=0 S L1="PR1" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("PR11")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("PR12")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP) S L1=$G(@INV@("PR13"))

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,4,L1,.CP) S L1=$G(@INV@("PR14")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

 .S L1=$G(@INV@("PR15")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,6,L1,.CP) S L1=$G(@INV@("PR16")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)

 .S L1=$G(@INV@("PR17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP) S L1=$G(@INV@("PR18")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)

 .S L1=$G(@INV@("PR19")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,10,L1,.CP) S L1=$G(@INV@("PR110")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,11,L1,.CP)

 .S L1=$G(@INV@("PR111")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,12,L1,.CP) S L1=$G(@INV@("PR112")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,13,L1,.CP) S L1=$G(@INV@("PR113")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,14,L1,.CP) S L1=$G(@INV@("PR114"))

9 .D EN^IS00007H

 G D1^IS00007H

IS00007G  ;Compiled from script 'Generated: HL IHS DW1 A08-O' on SEP 08, 2008

 +1       ;Part 8

 +2       ;Copyright 2008 SAIC

EN         SET @INV@("DG118")=X

           KILL DXS,D0

 +1       ;SET DG119 = ""

 +2        SET D0=INDA

           SET X=""

 +3        SET @INV@("DG119")=X

           KILL DXS,D0

 +4        IF 'INVS

               DO MC^INHS

 +5        KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="DG1"

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)

           SET L1=$GET(@INV@("DG11"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

 +6        DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)

           SET L1=$GET(@INV@("DG12"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)

           SET L1=$GET(@INV@("DG13"))

 +7        IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,4,L1,.CP)

           SET L1=$GET(@INV@("DG14"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

 +8        SET L1=$GET(@INV@("DG15"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,6,L1,.CP)

           SET L1=$GET(@INV@("DG16"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)

 +9        SET L1=$GET(@INV@("DG17"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,8,L1,.CP)

           SET L1=$GET(@INV@("DG18"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)

 +10       SET L1=$GET(@INV@("DG19"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,10,L1,.CP)

           SET L1=$GET(@INV@("DG110"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,11,L1,.CP)

 +11       SET L1=$GET(@INV@("DG111"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,12,L1,.CP)

           SET L1=$GET(@INV@("DG112"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

 +12       DO SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)

           SET L1=$GET(@INV@("DG113"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,14,L1,.CP)

           SET L1=$GET(@INV@("DG114"))

 +13       IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,15,L1,.CP)

           SET L1=$GET(@INV@("DG115"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,16,L1,.CP)

 +14       SET L1=$GET(@INV@("DG116"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,17,L1,.CP)

           SET L1=$GET(@INV@("DG117"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

 +15       DO SETPIECE^INHU(.LINE,DELIM,18,L1,.CP)

           SET L1=$GET(@INV@("DG118"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,19,L1,.CP)

           SET L1=$GET(@INV@("DG119"))

 +16       IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)

 +17       SET LCT=LCT+1

           SET ^UTILITY("INH",$JOB,LCT)=LINE

           IF $DATA(LINE)>9

               MERGE ^UTILITY("INH",$JOB,LCT)=LINE

 +18       SET INSETID=0

 +19       SET INDA1=INDA

           SET INI(2)=0

FOR

               SET INI(2)=$ORDER(INDA("ZDX",INI(2)))

               IF 'INI(2)

                   QUIT

               SET INDA=$SELECT(INDA("ZDX",INI(2)):INDA("ZDX",INI(2)),1:INI(2))

               Begin DoDot:1

 +20      ;SET ZDX1 = ""

 +21               SET D0=INDA

                   SET X=""

 +22               SET @INV@("ZDX1")=X

                   KILL DXS,D0

 +23      ;SET ZDX2 = ""

 +24               SET D0=INDA

                   SET X=""

 +25               SET @INV@("ZDX2")=X

                   KILL DXS,D0

 +26      ;SET ZDX3 = ""

 +27               SET D0=INDA

                   SET X=""

 +28               SET @INV@("ZDX3")=X

                   KILL DXS,D0

 +29      ;SET ZDX4 = INSGX\^INTHL7FT(1,3)\\999\@BDW1ZDX4

 +30               SET D0=INDA

                   SET X=$GET(INA("BDW1ZDX4",INI(1),INI(2)))

 +31               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +32               SET @INV@("ZDX4")=X

                   KILL DXS,D0

 +33      ;SET ZDX5 = ""

 +34               SET D0=INDA

                   SET X=""

 +35               SET @INV@("ZDX5")=X

                   KILL DXS,D0

 +36      ;SET ZDX6 = INSGX\^INTHL7FT(1,3)\\999\@BDW1ZDX6

 +37               SET D0=INDA

                   SET X=$GET(INA("BDW1ZDX6",INI(1),INI(2)))

 +38               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +39               SET @INV@("ZDX6")=X

                   KILL DXS,D0

 +40      ;SET ZDX7 = INSGX\^INTHL7FT(1,3)\\999\@BDW1ZDX7

 +41               SET D0=INDA

                   SET X=$GET(INA("BDW1ZDX7",INI(1),INI(2)))

 +42               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +43               SET @INV@("ZDX7")=X

                   KILL DXS,D0

 +44               IF 'INVS

                       DO MC^INHS

 +45               KILL LINE

                   SET LINE=""

                   SET CP=0

                   SET L1="ZDX"

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)

                   SET L1=$GET(@INV@("ZDX1"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

 +46               DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)

                   SET L1=$GET(@INV@("ZDX2"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)

                   SET L1=$GET(@INV@("ZDX3"))

 +47               IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,4,L1,.CP)

                   SET L1=$GET(@INV@("ZDX4"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

 +48               SET L1=$GET(@INV@("ZDX5"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,6,L1,.CP)

                   SET L1=$GET(@INV@("ZDX6"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)

 +49               SET L1=$GET(@INV@("ZDX7"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,8,L1,.CP)

 +50               SET LCT=LCT+1

                   SET ^UTILITY("INH",$JOB,LCT)=LINE

                   IF $DATA(LINE)>9

                       MERGE ^UTILITY("INH",$JOB,LCT)=LINE

 +51               QUIT

               End DoDot:1

 +52       SET INDA=INDA1

           KILL INDA1

 +53       QUIT

C1         SET INDA=INDA0

           KILL INDA0

 +1        SET INSETID=0

 +2        SET INDA0=INDA

           SET INI(1)=0

FOR

               SET INI(1)=$ORDER(INDA("PR1",INI(1)))

               IF 'INI(1)

                   QUIT

               SET INDA=$SELECT(INDA("PR1",INI(1)):INDA("PR1",INI(1)),1:INI(1))

               Begin DoDot:1

 +3       ;SET PR11 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR11

 +4                SET D0=INDA

                   SET X=$GET(INA("BDW1PR11",INI(1)))

 +5                SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +6                SET @INV@("PR11")=X

                   KILL DXS,D0

 +7       ;SET PR12 = ""

 +8                SET D0=INDA

                   SET X=""

 +9                SET @INV@("PR12")=X

                   KILL DXS,D0

 +10      ;SET PR13 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR13

 +11               SET D0=INDA

                   SET X=$GET(INA("BDW1PR13",INI(1)))

 +12               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +13               SET @INV@("PR13")=X

                   KILL DXS,D0

 +14      ;SET PR14 = ""

 +15               SET D0=INDA

                   SET X=""

 +16               SET @INV@("PR14")=X

                   KILL DXS,D0

 +17      ;SET PR15 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR15

 +18               SET D0=INDA

                   SET X=$GET(INA("BDW1PR15",INI(1)))

 +19               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +20               SET @INV@("PR15")=X

                   KILL DXS,D0

 +21      ;SET PR16 = ""

 +22               SET D0=INDA

                   SET X=""

 +23               SET @INV@("PR16")=X

                   KILL DXS,D0

 +24      ;SET PR17 = ""

 +25               SET D0=INDA

                   SET X=""

 +26               SET @INV@("PR17")=X

                   KILL DXS,D0

 +27      ;SET PR18 = ""

 +28               SET D0=INDA

                   SET X=""

 +29               SET @INV@("PR18")=X

                   KILL DXS,D0

 +30      ;SET PR19 = ""

 +31               SET D0=INDA

                   SET X=""

 +32               SET @INV@("PR19")=X

                   KILL DXS,D0

 +33      ;SET PR110 = ""

 +34               SET D0=INDA

                   SET X=""

 +35               SET @INV@("PR110")=X

                   KILL DXS,D0

 +36      ;SET PR111 = INSGX\^INTHL7FT(1,3)\\999\@BDW1PR111

 +37               SET D0=INDA

                   SET X=$GET(INA("BDW1PR111",INI(1)))

 +38               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

                   SET X=$EXTRACT(X,1,999)

 +39               SET @INV@("PR111")=X

                   KILL DXS,D0

 +40      ;SET PR112 = ""

 +41               SET D0=INDA

                   SET X=""

 +42               SET @INV@("PR112")=X

                   KILL DXS,D0

 +43      ;SET PR113 = ""

 +44               SET D0=INDA

                   SET X=""

 +45               SET @INV@("PR113")=X

                   KILL DXS,D0

 +46      ;SET PR114 = ""

 +47               SET D0=INDA

                   SET X=""

 +48               SET @INV@("PR114")=X

                   KILL DXS,D0

 +49      ;SET PR115 = ""

 +50               SET D0=INDA

                   SET X=""

 +51               SET @INV@("PR115")=X

                   KILL DXS,D0

 +52      ;SET PR116 = ""

 +53               SET D0=INDA

                   SET X=""

 +54               SET @INV@("PR116")=X

                   KILL DXS,D0

 +55      ;SET PR117 = ""

 +56               SET D0=INDA

                   SET X=""

 +57               SET @INV@("PR117")=X

                   KILL DXS,D0

 +58      ;SET PR118 = ""

 +59               SET D0=INDA

                   SET X=""

 +60               SET @INV@("PR118")=X

                   KILL DXS,D0

 +61               IF 'INVS

                       DO MC^INHS

 +62               KILL LINE

                   SET LINE=""

                   SET CP=0

                   SET L1="PR1"

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)

                   SET L1=$GET(@INV@("PR11"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

 +63               DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)

                   SET L1=$GET(@INV@("PR12"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)

                   SET L1=$GET(@INV@("PR13"))

 +64               IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,4,L1,.CP)

                   SET L1=$GET(@INV@("PR14"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

 +65               SET L1=$GET(@INV@("PR15"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,6,L1,.CP)

                   SET L1=$GET(@INV@("PR16"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)

 +66               SET L1=$GET(@INV@("PR17"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,8,L1,.CP)

                   SET L1=$GET(@INV@("PR18"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)

 +67               SET L1=$GET(@INV@("PR19"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,10,L1,.CP)

                   SET L1=$GET(@INV@("PR110"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,11,L1,.CP)

 +68               SET L1=$GET(@INV@("PR111"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,12,L1,.CP)

                   SET L1=$GET(@INV@("PR112"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

 +69               DO SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)

                   SET L1=$GET(@INV@("PR113"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,14,L1,.CP)

                   SET L1=$GET(@INV@("PR114"))

9                  DO EN^IS00007H

               End DoDot:1

 +1        GOTO D1^IS00007H

IS00007G.m