IS00027B ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013
;Part 3
;Copyright 2013 SAIC
EN 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
I1 ;IF $D(@INV@("PD11"))
I $D(@INV@("PD11"))
D:$T
.S (INX,X)=$G(@INV@("PD14"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PD14")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PD14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("NK11"))
I $D(@INV@("NK11"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("NK12",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("NK12",INI(1))
..S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")
..S @INV@("NK12",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK12' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("NK13",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("NK13",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("NK13",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK13' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("NK14",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("NK14",INI(1))
..I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL
..S @INV@("NK14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK14' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("NK15",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("NK15",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("NK15",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK15' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("NK17",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("NK17",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("NK17",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK17' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("NK113",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("NK113",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("NK113",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK113' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.Q
;IF $D(@INV@("PV11"))
I $D(@INV@("PV11"))
D:$T
.S (INX,X)=$G(@INV@("PV144"))
.I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
.S @INV@("PV144")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PV145"))
.I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
.S @INV@("PV145")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("IN11"))
I $D(@INV@("IN11"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("IN14",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN14",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("IN14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN14' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("IN18",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN18",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("IN18",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN18' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("IN19",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN19",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("IN19",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN19' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("IN112",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN112",INI(1))
..I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
..S @INV@("IN112",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN112' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("IN113",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN113",INI(1))
..I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
..S @INV@("IN113",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN113' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("IN116",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN116",INI(1))
..S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")
..S @INV@("IN116",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN116' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("IN117",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("IN117",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("IN117",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN117' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.;IF $D(@INV@("IN21"))
.I $D(@INV@("IN21"))
.D:$T
..S INI(1)=0 F S INI(1)=$O(@INV@("IN23",INI(1))) Q:'INI(1) S INI=INI(1) D
...S (INX,X)=@INV@("IN23",INI(1))
...I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
9 ...D EN^IS00027C
..D M3^IS00027C
.D M2^IS00027C
G M1^IS00027C
IS00027B ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013
+1 ;Part 3
+2 ;Copyright 2013 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("PID14"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("PID14")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 SET (INX,X)=$GET(@INV@("PID17"))
+8 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+9 SET @INV@("PID17")=$GET(X)
+10 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 KILL DXS
+12 SET (INX,X)=$GET(@INV@("PID19"))
+13 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+14 SET @INV@("PID19")=$GET(X)
+15 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+16 KILL DXS
+17 SET (INX,X)=$GET(@INV@("PID26"))
+18 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+19 SET @INV@("PID26")=$GET(X)
+20 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+21 KILL DXS
+22 QUIT
I1 ;IF $D(@INV@("PD11"))
+1 IF $DATA(@INV@("PD11"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("PD14"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("PD14")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'PD14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 QUIT
End DoDot:1
+9 ;IF $D(@INV@("NK11"))
+10 IF $DATA(@INV@("NK11"))
+11 IF $TEST
Begin DoDot:1
+12 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NK12",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+13 SET (INX,X)=@INV@("NK12",INI(1))
+14 IF X]""
SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
+15 SET @INV@("NK12",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NK12' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+16 QUIT
End DoDot:2
+17 KILL DXS
+18 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NK13",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+19 SET (INX,X)=@INV@("NK13",INI(1))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("NK13",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NK13' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 QUIT
End DoDot:2
+23 KILL DXS
+24 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NK14",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+25 SET (INX,X)=@INV@("NK14",INI(1))
+26 IF $LENGTH(X)
IF $PIECE(X,INSUBDEL,4)=""
SET $PIECE(X,INSUBDEL,4)=INSUBDEL
+27 SET @INV@("NK14",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NK14' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 QUIT
End DoDot:2
+29 KILL DXS
+30 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NK15",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+31 SET (INX,X)=@INV@("NK15",INI(1))
+32 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+33 SET @INV@("NK15",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NK15' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+34 QUIT
End DoDot:2
+35 KILL DXS
+36 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NK17",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+37 SET (INX,X)=@INV@("NK17",INI(1))
+38 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+39 SET @INV@("NK17",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NK17' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+40 QUIT
End DoDot:2
+41 KILL DXS
+42 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NK113",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+43 SET (INX,X)=@INV@("NK113",INI(1))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("NK113",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NK113' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+46 QUIT
End DoDot:2
+47 KILL DXS
+48 QUIT
End DoDot:1
+49 ;IF $D(@INV@("PV11"))
+50 IF $DATA(@INV@("PV11"))
+51 IF $TEST
Begin DoDot:1
+52 SET (INX,X)=$GET(@INV@("PV144"))
+53 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+54 SET @INV@("PV144")=$GET(X)
+55 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+56 KILL DXS
+57 SET (INX,X)=$GET(@INV@("PV145"))
+58 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+59 SET @INV@("PV145")=$GET(X)
+60 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+61 KILL DXS
+62 QUIT
End DoDot:1
+63 ;IF $D(@INV@("IN11"))
+64 IF $DATA(@INV@("IN11"))
+65 IF $TEST
Begin DoDot:1
+66 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN14",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+67 SET (INX,X)=@INV@("IN14",INI(1))
+68 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+69 SET @INV@("IN14",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN14' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+70 QUIT
End DoDot:2
+71 KILL DXS
+72 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN18",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+73 SET (INX,X)=@INV@("IN18",INI(1))
+74 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+75 SET @INV@("IN18",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN18' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+76 QUIT
End DoDot:2
+77 KILL DXS
+78 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN19",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+79 SET (INX,X)=@INV@("IN19",INI(1))
+80 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+81 SET @INV@("IN19",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN19' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+82 QUIT
End DoDot:2
+83 KILL DXS
+84 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN112",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+85 SET (INX,X)=@INV@("IN112",INI(1))
+86 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+87 SET @INV@("IN112",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN112' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+88 QUIT
End DoDot:2
+89 KILL DXS
+90 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN113",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+91 SET (INX,X)=@INV@("IN113",INI(1))
+92 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+93 SET @INV@("IN113",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN113' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+94 QUIT
End DoDot:2
+95 KILL DXS
+96 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN116",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+97 SET (INX,X)=@INV@("IN116",INI(1))
+98 IF X]""
SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
+99 SET @INV@("IN116",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN116' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+100 QUIT
End DoDot:2
+101 KILL DXS
+102 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN117",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+103 SET (INX,X)=@INV@("IN117",INI(1))
+104 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+105 SET @INV@("IN117",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN117' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+106 QUIT
End DoDot:2
+107 KILL DXS
+108 ;IF $D(@INV@("IN21"))
+109 IF $DATA(@INV@("IN21"))
+110 IF $TEST
Begin DoDot:2
+111 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN23",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:3
+112 SET (INX,X)=@INV@("IN23",INI(1))
+113 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
9 DO EN^IS00027C
End DoDot:3
+1 DO M3^IS00027C
End DoDot:2
+2 DO M2^IS00027C
End DoDot:1
+3 GOTO M1^IS00027C
