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
