IS00006B.m

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

 ;Part 3

 ;Copyright 2008 SAIC

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

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

 SET INSETID=0

 ;SET ZP21 = INSGX\^INTHL7F(16288,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16288,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP22 = ""

 S D0=INDA S X=""

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

 ;SET ZP23 = ""

 S D0=INDA S X=""

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

 ;SET ZP24 = ""

 S D0=INDA S X=""

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

 ;SET ZP25 = ""

 S D0=INDA S X=""

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

 ;SET ZP26 = ""

 S D0=INDA S X=""

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

 ;SET ZP27 = ""

 S D0=INDA S X=""

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

 ;SET ZP28 = ""

 S D0=INDA S X=""

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

 ;SET ZP29 = ""

 S D0=INDA S X=""

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

 ;SET ZP210 = ""

 S D0=INDA S X=""

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

 ;SET ZP211 = INSGX\^INTHL7F(16298,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16298,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP212 = ""

 S D0=INDA S X=""

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

 ;SET ZP213 = ""

 S D0=INDA S X=""

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

 ;SET ZP214 = ""

 S D0=INDA S X=""

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

 ;SET ZP215 = INSGX\^INTHL7F(16302,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16302,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP216 = INSGX\^INTHL7F(16303,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16303,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP217 = INSGX\^INTHL7F(16304,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16304,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP218 = INSGX\^INTHL7F(16305,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16305,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP219 = INSGX\^INTHL7F(16306,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16306,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP220 = ""

 S D0=INDA S X=""

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

 ;SET ZP221 = ""

 S D0=INDA S X=""

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

 ;SET ZP222 = INSGX\^INTHL7F(16309,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16309,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP223 = ""

 S D0=INDA S X=""

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

 ;SET ZP224 = ""

 S D0=INDA S X=""

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

 ;SET ZP225 = ""

 S D0=INDA S X=""

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

 ;SET ZP226 = ""

 S D0=INDA S X=""

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

 ;SET ZP227 = ""

 S D0=INDA S X=""

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

 ;SET ZP228 = ""

 S D0=INDA S X=""

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

 ;SET ZP229 = ""

 S D0=INDA S X=""

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

 ;SET ZP230 = ""

 S D0=INDA S X=""

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

 ;SET ZP231 = INSGX\^INTHL7F(16318,5)\\999\"OUTPUT TRANFORM"

 S D0=INDA S X="OUTPUT TRANFORM"

 S X1="^INTHL7F(16318,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP232 = ""

 S D0=INDA S X=""

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

 ;SET ZP233 = ""

 S D0=INDA S X=""

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

 ;SET ZP234 = INSGX\^INTHL7F(16321,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16321,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET ZP235 = INSGX\^INTHL7F(16322,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16322,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 D:'INVS MC^INHS

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

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

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

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

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

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

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

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

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

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

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

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

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

 D SETPIECE^INHU(.LINE,DELIM,23,L1,.CP) S L1=$G(@INV@("ZP223")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,24,L1,.CP) S L1=$G(@INV@("ZP224"))

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

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

 D SETPIECE^INHU(.LINE,DELIM,28,L1,.CP) S L1=$G(@INV@("ZP228")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,29,L1,.CP) S L1=$G(@INV@("ZP229"))

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

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

 D SETPIECE^INHU(.LINE,DELIM,33,L1,.CP) S L1=$G(@INV@("ZP233")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,34,L1,.CP) S L1=$G(@INV@("ZP234"))

9 G EN^IS00006C

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

 +1       ;Part 3

 +2       ;Copyright 2008 SAIC

EN         SET L1=$GET(@INV@("ZRB5"))

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

               SET L1=""

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

 +1        SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +2        SET INSETID=0

 +3       ;SET ZP21 = INSGX\^INTHL7F(16288,5)\\999\"OUTPUT TRANSFORM"

 +4        SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +5        SET X1="^INTHL7F(16288,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +7       ;SET ZP22 = ""

 +8        SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +10      ;SET ZP23 = ""

 +11       SET D0=INDA

           SET X=""

 +12       SET @INV@("ZP23")=X

           KILL DXS,D0

 +13      ;SET ZP24 = ""

 +14       SET D0=INDA

           SET X=""

 +15       SET @INV@("ZP24")=X

           KILL DXS,D0

 +16      ;SET ZP25 = ""

 +17       SET D0=INDA

           SET X=""

 +18       SET @INV@("ZP25")=X

           KILL DXS,D0

 +19      ;SET ZP26 = ""

 +20       SET D0=INDA

           SET X=""

 +21       SET @INV@("ZP26")=X

           KILL DXS,D0

 +22      ;SET ZP27 = ""

 +23       SET D0=INDA

           SET X=""

 +24       SET @INV@("ZP27")=X

           KILL DXS,D0

 +25      ;SET ZP28 = ""

 +26       SET D0=INDA

           SET X=""

 +27       SET @INV@("ZP28")=X

           KILL DXS,D0

 +28      ;SET ZP29 = ""

 +29       SET D0=INDA

           SET X=""

 +30       SET @INV@("ZP29")=X

           KILL DXS,D0

 +31      ;SET ZP210 = ""

 +32       SET D0=INDA

           SET X=""

 +33       SET @INV@("ZP210")=X

           KILL DXS,D0

 +34      ;SET ZP211 = INSGX\^INTHL7F(16298,5)\\999\"OUTPUT TRANSFORM"

 +35       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +36       SET X1="^INTHL7F(16298,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +37       SET @INV@("ZP211")=X

           KILL DXS,D0

 +38      ;SET ZP212 = ""

 +39       SET D0=INDA

           SET X=""

 +40       SET @INV@("ZP212")=X

           KILL DXS,D0

 +41      ;SET ZP213 = ""

 +42       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +44      ;SET ZP214 = ""

 +45       SET D0=INDA

           SET X=""

 +46       SET @INV@("ZP214")=X

           KILL DXS,D0

 +47      ;SET ZP215 = INSGX\^INTHL7F(16302,5)\\999\"OUTPUT TRANSFORM"

 +48       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +49       SET X1="^INTHL7F(16302,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +50       SET @INV@("ZP215")=X

           KILL DXS,D0

 +51      ;SET ZP216 = INSGX\^INTHL7F(16303,5)\\999\"OUTPUT TRANSFORM"

 +52       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +53       SET X1="^INTHL7F(16303,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +55      ;SET ZP217 = INSGX\^INTHL7F(16304,5)\\999\"OUTPUT TRANSFORM"

 +56       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +57       SET X1="^INTHL7F(16304,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +58       SET @INV@("ZP217")=X

           KILL DXS,D0

 +59      ;SET ZP218 = INSGX\^INTHL7F(16305,5)\\999\"OUTPUT TRANSFORM"

 +60       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +61       SET X1="^INTHL7F(16305,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +62       SET @INV@("ZP218")=X

           KILL DXS,D0

 +63      ;SET ZP219 = INSGX\^INTHL7F(16306,5)\\999\"OUTPUT TRANSFORM"

 +64       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +65       SET X1="^INTHL7F(16306,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +66       SET @INV@("ZP219")=X

           KILL DXS,D0

 +67      ;SET ZP220 = ""

 +68       SET D0=INDA

           SET X=""

 +69       SET @INV@("ZP220")=X

           KILL DXS,D0

 +70      ;SET ZP221 = ""

 +71       SET D0=INDA

           SET X=""

 +72       SET @INV@("ZP221")=X

           KILL DXS,D0

 +73      ;SET ZP222 = INSGX\^INTHL7F(16309,5)\\999\"OUTPUT TRANSFORM"

 +74       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +75       SET X1="^INTHL7F(16309,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +76       SET @INV@("ZP222")=X

           KILL DXS,D0

 +77      ;SET ZP223 = ""

 +78       SET D0=INDA

           SET X=""

 +79       SET @INV@("ZP223")=X

           KILL DXS,D0

 +80      ;SET ZP224 = ""

 +81       SET D0=INDA

           SET X=""

 +82       SET @INV@("ZP224")=X

           KILL DXS,D0

 +83      ;SET ZP225 = ""

 +84       SET D0=INDA

           SET X=""

 +85       SET @INV@("ZP225")=X

           KILL DXS,D0

 +86      ;SET ZP226 = ""

 +87       SET D0=INDA

           SET X=""

 +88       SET @INV@("ZP226")=X

           KILL DXS,D0

 +89      ;SET ZP227 = ""

 +90       SET D0=INDA

           SET X=""

 +91       SET @INV@("ZP227")=X

           KILL DXS,D0

 +92      ;SET ZP228 = ""

 +93       SET D0=INDA

           SET X=""

 +94       SET @INV@("ZP228")=X

           KILL DXS,D0

 +95      ;SET ZP229 = ""

 +96       SET D0=INDA

           SET X=""

 +97       SET @INV@("ZP229")=X

           KILL DXS,D0

 +98      ;SET ZP230 = ""

 +99       SET D0=INDA

           SET X=""

 +100      SET @INV@("ZP230")=X

           KILL DXS,D0

 +101     ;SET ZP231 = INSGX\^INTHL7F(16318,5)\\999\"OUTPUT TRANFORM"

 +102      SET D0=INDA

           SET X="OUTPUT TRANFORM"

 +103      SET X1="^INTHL7F(16318,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +104      SET @INV@("ZP231")=X

           KILL DXS,D0

 +105     ;SET ZP232 = ""

 +106      SET D0=INDA

           SET X=""

 +107      SET @INV@("ZP232")=X

           KILL DXS,D0

 +108     ;SET ZP233 = ""

 +109      SET D0=INDA

           SET X=""

 +110      SET @INV@("ZP233")=X

           KILL DXS,D0

 +111     ;SET ZP234 = INSGX\^INTHL7F(16321,5)\\999\"OUTPUT TRANSFORM"

 +112      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +113      SET X1="^INTHL7F(16321,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +114      SET @INV@("ZP234")=X

           KILL DXS,D0

 +115     ;SET ZP235 = INSGX\^INTHL7F(16322,5)\\999\"OUTPUT TRANSFORM"

 +116      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +117      SET X1="^INTHL7F(16322,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +118      SET @INV@("ZP235")=X

           KILL DXS,D0

 +119      IF 'INVS

               DO MC^INHS

 +120      KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="ZP2"

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +123      SET L1=$GET(@INV@("ZP25"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +124      SET L1=$GET(@INV@("ZP27"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +125      SET L1=$GET(@INV@("ZP29"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +126      SET L1=$GET(@INV@("ZP211"))

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +129      SET L1=$GET(@INV@("ZP216"))

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +132      SET L1=$GET(@INV@("ZP221"))

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

               SET L1=""

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

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

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

               SET L1=""

 +133      DO SETPIECE^INHU(.LINE,DELIM,23,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +135      SET L1=$GET(@INV@("ZP226"))

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

               SET L1=""

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

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

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

               SET L1=""

 +136      DO SETPIECE^INHU(.LINE,DELIM,28,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +138      SET L1=$GET(@INV@("ZP231"))

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

               SET L1=""

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

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

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

               SET L1=""

 +139      DO SETPIECE^INHU(.LINE,DELIM,33,L1,.CP)

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

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

               SET L1=""

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

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

9          GOTO EN^IS00006C