IS00007B.m

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

 ;Part 3

 ;Copyright 2008 SAIC

EN 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"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,35,L1,.CP) S L1=$G(@INV@("ZP235")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,36,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 INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000010,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000010,INI(1)):INDA(9000010,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPNVSIT(INDA,0))

 .;SET PV11 = ""

 .S D0=INDA S X=""

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

 .;SET PV12 = ""

 .S D0=INDA S X=""

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

 .;SET PV13 = INSGX\^INTHL7F(16389,5)\\999\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 .;SET PV14 = INSGX\^INTHL7F(16390,5)\\999\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 .;SET PV15 = ""

 .S D0=INDA S X=""

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

 .;SET PV16 = ""

 .S D0=INDA S X=""

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

 .;SET PV17 = INSGX\^INTHL7F(16393,5)\\999\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 .;SET PV18 = ""

 .S D0=INDA S X=""

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

 .;SET PV19 = ""

 .S D0=INDA S X=""

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

 .;SET PV110 = INSGX\^INTHL7F(16396,5)\\999\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 .;SET PV111 = ""

 .S D0=INDA S X=""

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

 .;SET PV112 = ""

 .S D0=INDA S X=""

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

 .;SET PV113 = ""

9 .D EN^IS00007C

 G A1^IS00007D

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

 +1       ;Part 3

 +2       ;Copyright 2008 SAIC

EN         SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

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

 +4        SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

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

 +8        SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

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

 +12       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +15      ;SET ZP220 = ""

 +16       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +18      ;SET ZP221 = ""

 +19       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

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

 +22       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +25      ;SET ZP223 = ""

 +26       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +28      ;SET ZP224 = ""

 +29       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +31      ;SET ZP225 = ""

 +32       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +34      ;SET ZP226 = ""

 +35       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +37      ;SET ZP227 = ""

 +38       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +40      ;SET ZP228 = ""

 +41       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +43      ;SET ZP229 = ""

 +44       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +46      ;SET ZP230 = ""

 +47       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

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

 +50       SET D0=INDA

           SET X="OUTPUT TRANFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +53      ;SET ZP232 = ""

 +54       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +56      ;SET ZP233 = ""

 +57       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

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

 +60       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

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

 +64       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +67       IF 'INVS

               DO MC^INHS

 +68       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=""

 +69       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"))

 +70       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)

 +71       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)

 +72       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)

 +73       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)

 +74       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=""

 +75       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"))

 +76       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)

 +77       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=""

 +78       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"))

 +79       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)

 +80       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=""

 +81       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"))

 +82       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)

 +83       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=""

 +84       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"))

 +85       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)

 +86       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=""

 +87       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"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +89       SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +90       SET INSETID=0

 +91       SET INDA0=INDA

           SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(INDA(9000010,INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INDA=$SELECT(INDA(9000010,INI(1)):INDA(9000010,INI(1)),1:INI(1))

               Begin DoDot:1

 +92               IF '$DATA(^AUPNVSIT(INDA,0))

                       QUIT 

 +93      ;SET PV11 = ""

 +94               SET D0=INDA

                   SET X=""

 +95               SET @INV@("PV11")=X

                   KILL DXS,D0

 +96      ;SET PV12 = ""

 +97               SET D0=INDA

                   SET X=""

 +98               SET @INV@("PV12")=X

                   KILL DXS,D0

 +99      ;SET PV13 = INSGX\^INTHL7F(16389,5)\\999\"OUTPUT TRANSFORM"

 +100              SET D0=INDA

                   SET X="OUTPUT TRANSFORM"

 +101              SET X1="^INTHL7F(16389,5)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +102              SET @INV@("PV13")=X

                   KILL DXS,D0

 +103     ;SET PV14 = INSGX\^INTHL7F(16390,5)\\999\"OUTPUT TRANSFORM"

 +104              SET D0=INDA

                   SET X="OUTPUT TRANSFORM"

 +105              SET X1="^INTHL7F(16390,5)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +106              SET @INV@("PV14")=X

                   KILL DXS,D0

 +107     ;SET PV15 = ""

 +108              SET D0=INDA

                   SET X=""

 +109              SET @INV@("PV15")=X

                   KILL DXS,D0

 +110     ;SET PV16 = ""

 +111              SET D0=INDA

                   SET X=""

 +112              SET @INV@("PV16")=X

                   KILL DXS,D0

 +113     ;SET PV17 = INSGX\^INTHL7F(16393,5)\\999\"OUTPUT TRANSFORM"

 +114              SET D0=INDA

                   SET X="OUTPUT TRANSFORM"

 +115              SET X1="^INTHL7F(16393,5)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +116              SET @INV@("PV17")=X

                   KILL DXS,D0

 +117     ;SET PV18 = ""

 +118              SET D0=INDA

                   SET X=""

 +119              SET @INV@("PV18")=X

                   KILL DXS,D0

 +120     ;SET PV19 = ""

 +121              SET D0=INDA

                   SET X=""

 +122              SET @INV@("PV19")=X

                   KILL DXS,D0

 +123     ;SET PV110 = INSGX\^INTHL7F(16396,5)\\999\"OUTPUT TRANSFORM"

 +124              SET D0=INDA

                   SET X="OUTPUT TRANSFORM"

 +125              SET X1="^INTHL7F(16396,5)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +126              SET @INV@("PV110")=X

                   KILL DXS,D0

 +127     ;SET PV111 = ""

 +128              SET D0=INDA

                   SET X=""

 +129              SET @INV@("PV111")=X

                   KILL DXS,D0

 +130     ;SET PV112 = ""

 +131              SET D0=INDA

                   SET X=""

 +132              SET @INV@("PV112")=X

                   KILL DXS,D0

 +133     ;SET PV113 = ""

9                  DO EN^IS00007C

               End DoDot:1

 +1        GOTO A1^IS00007D