IS00007D.m

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

 ;Part 5

 ;Copyright 2008 SAIC

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

 D SETPIECE^INHU(.LINE,DELIM,43,L1,.CP) S L1=$G(@INV@("PV143")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,44,L1,.CP) S L1=$G(@INV@("PV144"))

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

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

 D SETPIECE^INHU(.LINE,DELIM,48,L1,.CP) S L1=$G(@INV@("PV148")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,49,L1,.CP) S L1=$G(@INV@("PV149"))

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

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

 D SETPIECE^INHU(.LINE,DELIM,53,L1,.CP)

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

 Q

A1 S INDA=INDA0 K INDA0

 SET INSETID=0

 ;SET ZV11 = INSGX\^INTHL7F(16485,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV12 = ""

 S D0=INDA S X=""

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

 ;SET ZV13 = INSGX\^INTHL7F(16487,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV14 = INSGX\^INTHL7F(16488,5)\\14\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV15 = ""

 S D0=INDA S X=""

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

 ;SET ZV16 = INSGX\^INTHL7F(16490,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV17 = ""

 S D0=INDA S X=""

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

 ;SET ZV18 = ""

 S D0=INDA S X=""

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

 ;SET ZV19 = ""

 S D0=INDA S X=""

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

 ;SET ZV110 = ""

 S D0=INDA S X=""

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

 ;SET ZV111 = ""

 S D0=INDA S X=""

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

 ;SET ZV112 = INSGX\^INTHL7F(16496,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV113 = ""

 S D0=INDA S X=""

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

 ;SET ZV114 = ""

 S D0=INDA S X=""

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

 ;SET ZV115 = INSGX\^INTHL7F(16499,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV116 = ""

 S D0=INDA S X=""

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

 ;SET ZV117 = INSGX\^INTHL7F(16501,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV118 = ""

 S D0=INDA S X=""

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

 ;SET ZV119 = ""

 S D0=INDA S X=""

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

 ;SET ZV120 = ""

 S D0=INDA S X=""

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

 ;SET ZV121 = INSGX\^INTHL7F(16505,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV122 = INSGX\^INTHL7F(16506,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV123 = INSGX\^INTHL7F(16507,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV124 = INSGX\^INTHL7F(16508,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV125 = INSGX\^INTHL7F(16509,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV126 = INSGX\^INTHL7F(16510,5)\\14\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV127 = INSGX\^INTHL7F(16511,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV128 = INSGX\^INTHL7F(16512,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV129 = ""

 S D0=INDA S X=""

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

 ;SET ZV130 = INSGX\^INTHL7F(16514,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV131 = INSGX\^INTHL7F(16515,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV132 = INSGX\^INTHL7F(16516,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV133 = INSGX\^INTHL7F(16517,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV134 = INSGX\^INTHL7F(16518,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV135 = INSGX\^INTHL7F(16519,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV136 = INSGX\^INTHL7F(16520,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV137 = INSGX\^INTHL7F(16521,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 ;SET ZV138 = INSGX\^INTHL7F(16522,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

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

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

 D:'INVS MC^INHS

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

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

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

9 G EN^IS00007E

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

 +1       ;Part 5

 +2       ;Copyright 2008 SAIC

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +3        SET L1=$GET(@INV@("PV146"))

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +6        SET L1=$GET(@INV@("PV151"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +8        SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +9        QUIT 

A1         SET INDA=INDA0

           KILL INDA0

 +1        SET INSETID=0

 +2       ;SET ZV11 = INSGX\^INTHL7F(16485,5)\\999\"OUTPUT TRANSFORM"

 +3        SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +4        SET X1="^INTHL7F(16485,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +5        SET @INV@("ZV11")=X

           KILL DXS,D0

 +6       ;SET ZV12 = ""

 +7        SET D0=INDA

           SET X=""

 +8        SET @INV@("ZV12")=X

           KILL DXS,D0

 +9       ;SET ZV13 = INSGX\^INTHL7F(16487,5)\\999\"OUTPUT TRANSFORM"

 +10       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +11       SET X1="^INTHL7F(16487,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +13      ;SET ZV14 = INSGX\^INTHL7F(16488,5)\\14\"OUTPUT TRANSFORM"

 +14       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +15       SET X1="^INTHL7F(16488,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +17      ;SET ZV15 = ""

 +18       SET D0=INDA

           SET X=""

 +19       SET @INV@("ZV15")=X

           KILL DXS,D0

 +20      ;SET ZV16 = INSGX\^INTHL7F(16490,5)\\999\"OUTPUT TRANSFORM"

 +21       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +22       SET X1="^INTHL7F(16490,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +24      ;SET ZV17 = ""

 +25       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +27      ;SET ZV18 = ""

 +28       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +30      ;SET ZV19 = ""

 +31       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +33      ;SET ZV110 = ""

 +34       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +36      ;SET ZV111 = ""

 +37       SET D0=INDA

           SET X=""

 +38       SET @INV@("ZV111")=X

           KILL DXS,D0

 +39      ;SET ZV112 = INSGX\^INTHL7F(16496,5)\\999\"OUTPUT TRANSFORM"

 +40       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +41       SET X1="^INTHL7F(16496,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +43      ;SET ZV113 = ""

 +44       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +46      ;SET ZV114 = ""

 +47       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +49      ;SET ZV115 = INSGX\^INTHL7F(16499,5)\\999\"OUTPUT TRANSFORM"

 +50       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +53      ;SET ZV116 = ""

 +54       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +56      ;SET ZV117 = INSGX\^INTHL7F(16501,5)\\999\"OUTPUT TRANSFORM"

 +57       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +58       SET X1="^INTHL7F(16501,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +59       SET @INV@("ZV117")=X

           KILL DXS,D0

 +60      ;SET ZV118 = ""

 +61       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +63      ;SET ZV119 = ""

 +64       SET D0=INDA

           SET X=""

 +65       SET @INV@("ZV119")=X

           KILL DXS,D0

 +66      ;SET ZV120 = ""

 +67       SET D0=INDA

           SET X=""

 +68       SET @INV@("ZV120")=X

           KILL DXS,D0

 +69      ;SET ZV121 = INSGX\^INTHL7F(16505,5)\\999\"OUTPUT TRANSFORM"

 +70       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +71       SET X1="^INTHL7F(16505,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

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

 +74       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +77      ;SET ZV123 = INSGX\^INTHL7F(16507,5)\\999\"OUTPUT TRANSFORM"

 +78       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +79       SET X1="^INTHL7F(16507,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +80       SET @INV@("ZV123")=X

           KILL DXS,D0

 +81      ;SET ZV124 = INSGX\^INTHL7F(16508,5)\\999\"OUTPUT TRANSFORM"

 +82       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +83       SET X1="^INTHL7F(16508,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +84       SET @INV@("ZV124")=X

           KILL DXS,D0

 +85      ;SET ZV125 = INSGX\^INTHL7F(16509,5)\\999\"OUTPUT TRANSFORM"

 +86       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +87       SET X1="^INTHL7F(16509,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +89      ;SET ZV126 = INSGX\^INTHL7F(16510,5)\\14\"OUTPUT TRANSFORM"

 +90       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +91       SET X1="^INTHL7F(16510,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +92       SET @INV@("ZV126")=X

           KILL DXS,D0

 +93      ;SET ZV127 = INSGX\^INTHL7F(16511,5)\\999\"OUTPUT TRANSFORM"

 +94       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +95       SET X1="^INTHL7F(16511,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +96       SET @INV@("ZV127")=X

           KILL DXS,D0

 +97      ;SET ZV128 = INSGX\^INTHL7F(16512,5)\\999\"OUTPUT TRANSFORM"

 +98       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +99       SET X1="^INTHL7F(16512,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +101     ;SET ZV129 = ""

 +102      SET D0=INDA

           SET X=""

 +103      SET @INV@("ZV129")=X

           KILL DXS,D0

 +104     ;SET ZV130 = INSGX\^INTHL7F(16514,5)\\999\"OUTPUT TRANSFORM"

 +105      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +106      SET X1="^INTHL7F(16514,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +108     ;SET ZV131 = INSGX\^INTHL7F(16515,5)\\999\"OUTPUT TRANSFORM"

 +109      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +110      SET X1="^INTHL7F(16515,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +111      SET @INV@("ZV131")=X

           KILL DXS,D0

 +112     ;SET ZV132 = INSGX\^INTHL7F(16516,5)\\999\"OUTPUT TRANSFORM"

 +113      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +114      SET X1="^INTHL7F(16516,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +115      SET @INV@("ZV132")=X

           KILL DXS,D0

 +116     ;SET ZV133 = INSGX\^INTHL7F(16517,5)\\999\"OUTPUT TRANSFORM"

 +117      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +118      SET X1="^INTHL7F(16517,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +120     ;SET ZV134 = INSGX\^INTHL7F(16518,5)\\999\"OUTPUT TRANSFORM"

 +121      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +122      SET X1="^INTHL7F(16518,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +123      SET @INV@("ZV134")=X

           KILL DXS,D0

 +124     ;SET ZV135 = INSGX\^INTHL7F(16519,5)\\999\"OUTPUT TRANSFORM"

 +125      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +126      SET X1="^INTHL7F(16519,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +127      SET @INV@("ZV135")=X

           KILL DXS,D0

 +128     ;SET ZV136 = INSGX\^INTHL7F(16520,5)\\999\"OUTPUT TRANSFORM"

 +129      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +130      SET X1="^INTHL7F(16520,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +131      SET @INV@("ZV136")=X

           KILL DXS,D0

 +132     ;SET ZV137 = INSGX\^INTHL7F(16521,5)\\999\"OUTPUT TRANSFORM"

 +133      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +134      SET X1="^INTHL7F(16521,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +135      SET @INV@("ZV137")=X

           KILL DXS,D0

 +136     ;SET ZV138 = INSGX\^INTHL7F(16522,5)\\999\"OUTPUT TRANSFORM"

 +137      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +138      SET X1="^INTHL7F(16522,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +139      SET @INV@("ZV138")=X

           KILL DXS,D0

 +140      IF 'INVS

               DO MC^INHS

 +141      KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="ZV1"

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

9          GOTO EN^IS00007E