IS00005B ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
;Part 3
;Copyright 2006 SAIC
EN S @INV@("PID11")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID13"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID13")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID14"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID14")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID17"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID17")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID19"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID19")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID26"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID26")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
D1 ;IF $D(@INV@("ZP21"))
I $D(@INV@("ZP21"))
D:$T
.S (INX,X)=$G(@INV@("ZP21"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP21")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP21' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP22"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP22")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP22' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP23"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP23")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP23' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP24"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP24")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP24' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP25"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP25")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP25' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP26"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP26")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP26' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP28"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP28")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP28' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP29"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP29")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP29' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP210"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP210")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP210' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP211"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP211")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP211' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP212"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP212")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP212' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP213"))
.I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL
.S @INV@("ZP213")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP213' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP214"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP214")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP214' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP215"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP215")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP215' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP216"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP216")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP216' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP217"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP217")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP217' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP218"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP218")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP218' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP219"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP219")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP219' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP221"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP221")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP221' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP222"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP222")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP222' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP223"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP223")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP223' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP225"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZP225")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP225' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP226"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP226")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZP226' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZP227"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZP227")=$G(X)
9 .D EN^IS00005C
G E1^IS00005C
IS00005B ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
+1 ;Part 3
+2 ;Copyright 2006 SAIC
EN SET @INV@("PID11")=$GET(X)
+1 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+2 KILL DXS
+3 SET (INX,X)=$GET(@INV@("PID13"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("PID13")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("PID14"))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("PID14")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("PID17"))
+14 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+15 SET @INV@("PID17")=$GET(X)
+16 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 KILL DXS
+18 SET (INX,X)=$GET(@INV@("PID19"))
+19 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+20 SET @INV@("PID19")=$GET(X)
+21 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 KILL DXS
+23 SET (INX,X)=$GET(@INV@("PID26"))
+24 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+25 SET @INV@("PID26")=$GET(X)
+26 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+27 KILL DXS
+28 QUIT
D1 ;IF $D(@INV@("ZP21"))
+1 IF $DATA(@INV@("ZP21"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("ZP21"))
+4 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+5 SET @INV@("ZP21")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP21' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("ZP22"))
+9 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+10 SET @INV@("ZP22")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP22' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("ZP23"))
+14 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+15 SET @INV@("ZP23")=$GET(X)
+16 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP23' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 KILL DXS
+18 SET (INX,X)=$GET(@INV@("ZP24"))
+19 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+20 SET @INV@("ZP24")=$GET(X)
+21 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP24' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 KILL DXS
+23 SET (INX,X)=$GET(@INV@("ZP25"))
+24 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+25 SET @INV@("ZP25")=$GET(X)
+26 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP25' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+27 KILL DXS
+28 SET (INX,X)=$GET(@INV@("ZP26"))
+29 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+30 SET @INV@("ZP26")=$GET(X)
+31 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP26' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+32 KILL DXS
+33 SET (INX,X)=$GET(@INV@("ZP28"))
+34 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+35 SET @INV@("ZP28")=$GET(X)
+36 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP28' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+37 KILL DXS
+38 SET (INX,X)=$GET(@INV@("ZP29"))
+39 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+40 SET @INV@("ZP29")=$GET(X)
+41 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP29' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+42 KILL DXS
+43 SET (INX,X)=$GET(@INV@("ZP210"))
+44 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+45 SET @INV@("ZP210")=$GET(X)
+46 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP210' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 KILL DXS
+48 SET (INX,X)=$GET(@INV@("ZP211"))
+49 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+50 SET @INV@("ZP211")=$GET(X)
+51 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP211' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+52 KILL DXS
+53 SET (INX,X)=$GET(@INV@("ZP212"))
+54 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+55 SET @INV@("ZP212")=$GET(X)
+56 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP212' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+57 KILL DXS
+58 SET (INX,X)=$GET(@INV@("ZP213"))
+59 IF $LENGTH(X)
IF $PIECE(X,INSUBDEL,4)=""
SET $PIECE(X,INSUBDEL,4)=INSUBDEL
+60 SET @INV@("ZP213")=$GET(X)
+61 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP213' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+62 KILL DXS
+63 SET (INX,X)=$GET(@INV@("ZP214"))
+64 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+65 SET @INV@("ZP214")=$GET(X)
+66 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP214' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+67 KILL DXS
+68 SET (INX,X)=$GET(@INV@("ZP215"))
+69 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+70 SET @INV@("ZP215")=$GET(X)
+71 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP215' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+72 KILL DXS
+73 SET (INX,X)=$GET(@INV@("ZP216"))
+74 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+75 SET @INV@("ZP216")=$GET(X)
+76 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP216' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+77 KILL DXS
+78 SET (INX,X)=$GET(@INV@("ZP217"))
+79 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+80 SET @INV@("ZP217")=$GET(X)
+81 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP217' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+82 KILL DXS
+83 SET (INX,X)=$GET(@INV@("ZP218"))
+84 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+85 SET @INV@("ZP218")=$GET(X)
+86 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP218' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+87 KILL DXS
+88 SET (INX,X)=$GET(@INV@("ZP219"))
+89 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+90 SET @INV@("ZP219")=$GET(X)
+91 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP219' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+92 KILL DXS
+93 SET (INX,X)=$GET(@INV@("ZP221"))
+94 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+95 SET @INV@("ZP221")=$GET(X)
+96 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP221' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+97 KILL DXS
+98 SET (INX,X)=$GET(@INV@("ZP222"))
+99 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+100 SET @INV@("ZP222")=$GET(X)
+101 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP222' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+102 KILL DXS
+103 SET (INX,X)=$GET(@INV@("ZP223"))
+104 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+105 SET @INV@("ZP223")=$GET(X)
+106 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP223' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+107 KILL DXS
+108 SET (INX,X)=$GET(@INV@("ZP225"))
+109 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+110 SET @INV@("ZP225")=$GET(X)
+111 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP225' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+112 KILL DXS
+113 SET (INX,X)=$GET(@INV@("ZP226"))
+114 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+115 SET @INV@("ZP226")=$GET(X)
+116 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP226' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+117 KILL DXS
+118 SET (INX,X)=$GET(@INV@("ZP227"))
+119 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+120 SET @INV@("ZP227")=$GET(X)
9 DO EN^IS00005C
End DoDot:1
+1 GOTO E1^IS00005C
