IS00018C ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
;Part 4
;Copyright 2006 SAIC
EN 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@("PID15"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID15")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID16"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID16")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID16' 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@("PID18"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID18")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID18' 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@("PID20"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID20")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID20' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID21"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID21")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID21' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID22"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID22")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID22' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID23"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID23")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID23' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID24"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID24")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID24' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID25"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID25")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID25' 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
S (INX,X)=$G(@INV@("PID27"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID27")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID27' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID28"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID28")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID28' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID29"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID29")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID29' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID30"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID30")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID30' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID31"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID31")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID31' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID32"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID32")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID32' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID33"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID33")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID33' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID34"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID34")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID34' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID35"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID35")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID35' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID36"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID36")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID36' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID37"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID37")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID37' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PID38"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PID38")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PID38' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
;IF $D(@INV@("NTE1"))
I $D(@INV@("NTE1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("NTE4",INI(1))) Q:'INI(1) S INI=INI(1) D
..S INI(2)=0 F S INI(2)=$O(@INV@("NTE4",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
...S INI(3)=0 F S INI(3)=$O(@INV@("NTE4",INI(1),INI(2),INI(3))) Q:'INI(3) S INI=INI(3) D
....S (INX,X)=@INV@("NTE4",INI(1),INI(2),INI(3))
....I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
....S @INV@("NTE4",INI(1),INI(2),INI(3))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NTE4' failed input transform in iteration #"_INI(1)_","_INI(2)_","_INI(3)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
....Q
...Q
..Q
.K DXS
.Q
Q
F1 ;IF $D(@INV@("PV11"))
I $D(@INV@("PV11"))
D:$T
.S (INX,X)=$G(@INV@("PV11"))
9 .D EN^IS00018D
G G1^IS00018E
IS00018C ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
+1 ;Part 4
+2 ;Copyright 2006 SAIC
EN KILL DXS
+1 SET (INX,X)=$GET(@INV@("PID13"))
+2 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+3 SET @INV@("PID13")=$GET(X)
+4 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+5 KILL DXS
+6 SET (INX,X)=$GET(@INV@("PID14"))
+7 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+8 SET @INV@("PID14")=$GET(X)
+9 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+10 KILL DXS
+11 SET (INX,X)=$GET(@INV@("PID15"))
+12 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+13 SET @INV@("PID15")=$GET(X)
+14 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID15' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+15 KILL DXS
+16 SET (INX,X)=$GET(@INV@("PID16"))
+17 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+18 SET @INV@("PID16")=$GET(X)
+19 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID16' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+20 KILL DXS
+21 SET (INX,X)=$GET(@INV@("PID17"))
+22 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+23 SET @INV@("PID17")=$GET(X)
+24 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+25 KILL DXS
+26 SET (INX,X)=$GET(@INV@("PID18"))
+27 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+28 SET @INV@("PID18")=$GET(X)
+29 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID18' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+30 KILL DXS
+31 SET (INX,X)=$GET(@INV@("PID19"))
+32 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+33 SET @INV@("PID19")=$GET(X)
+34 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+35 KILL DXS
+36 SET (INX,X)=$GET(@INV@("PID20"))
+37 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+38 SET @INV@("PID20")=$GET(X)
+39 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID20' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+40 KILL DXS
+41 SET (INX,X)=$GET(@INV@("PID21"))
+42 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+43 SET @INV@("PID21")=$GET(X)
+44 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID21' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+45 KILL DXS
+46 SET (INX,X)=$GET(@INV@("PID22"))
+47 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+48 SET @INV@("PID22")=$GET(X)
+49 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID22' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+50 KILL DXS
+51 SET (INX,X)=$GET(@INV@("PID23"))
+52 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+53 SET @INV@("PID23")=$GET(X)
+54 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID23' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+55 KILL DXS
+56 SET (INX,X)=$GET(@INV@("PID24"))
+57 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+58 SET @INV@("PID24")=$GET(X)
+59 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID24' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+60 KILL DXS
+61 SET (INX,X)=$GET(@INV@("PID25"))
+62 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+63 SET @INV@("PID25")=$GET(X)
+64 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID25' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+65 KILL DXS
+66 SET (INX,X)=$GET(@INV@("PID26"))
+67 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+68 SET @INV@("PID26")=$GET(X)
+69 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+70 KILL DXS
+71 SET (INX,X)=$GET(@INV@("PID27"))
+72 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+73 SET @INV@("PID27")=$GET(X)
+74 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID27' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+75 KILL DXS
+76 SET (INX,X)=$GET(@INV@("PID28"))
+77 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+78 SET @INV@("PID28")=$GET(X)
+79 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID28' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+80 KILL DXS
+81 SET (INX,X)=$GET(@INV@("PID29"))
+82 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+83 SET @INV@("PID29")=$GET(X)
+84 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID29' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+85 KILL DXS
+86 SET (INX,X)=$GET(@INV@("PID30"))
+87 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+88 SET @INV@("PID30")=$GET(X)
+89 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID30' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+90 KILL DXS
+91 SET (INX,X)=$GET(@INV@("PID31"))
+92 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+93 SET @INV@("PID31")=$GET(X)
+94 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID31' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+95 KILL DXS
+96 SET (INX,X)=$GET(@INV@("PID32"))
+97 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+98 SET @INV@("PID32")=$GET(X)
+99 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID32' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+100 KILL DXS
+101 SET (INX,X)=$GET(@INV@("PID33"))
+102 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+103 SET @INV@("PID33")=$GET(X)
+104 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID33' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+105 KILL DXS
+106 SET (INX,X)=$GET(@INV@("PID34"))
+107 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+108 SET @INV@("PID34")=$GET(X)
+109 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID34' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+110 KILL DXS
+111 SET (INX,X)=$GET(@INV@("PID35"))
+112 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+113 SET @INV@("PID35")=$GET(X)
+114 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID35' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+115 KILL DXS
+116 SET (INX,X)=$GET(@INV@("PID36"))
+117 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+118 SET @INV@("PID36")=$GET(X)
+119 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID36' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+120 KILL DXS
+121 SET (INX,X)=$GET(@INV@("PID37"))
+122 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+123 SET @INV@("PID37")=$GET(X)
+124 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID37' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+125 KILL DXS
+126 SET (INX,X)=$GET(@INV@("PID38"))
+127 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+128 SET @INV@("PID38")=$GET(X)
+129 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID38' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+130 KILL DXS
+131 ;IF $D(@INV@("NTE1"))
+132 IF $DATA(@INV@("NTE1"))
+133 IF $TEST
Begin DoDot:1
+134 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NTE4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+135 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("NTE4",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:3
+136 SET INI(3)=0
FOR
SET INI(3)=$ORDER(@INV@("NTE4",INI(1),INI(2),INI(3)))
IF 'INI(3)
QUIT
SET INI=INI(3)
Begin DoDot:4
+137 SET (INX,X)=@INV@("NTE4",INI(1),INI(2),INI(3))
+138 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+139 SET @INV@("NTE4",INI(1),INI(2),INI(3))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NTE4' failed input transform in iteration #"_INI(1)_","_INI(2)_","_INI(3)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+140 QUIT
End DoDot:4
+141 QUIT
End DoDot:3
+142 QUIT
End DoDot:2
+143 KILL DXS
+144 QUIT
End DoDot:1
+145 QUIT
F1 ;IF $D(@INV@("PV11"))
+1 IF $DATA(@INV@("PV11"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("PV11"))
9 DO EN^IS00018D
End DoDot:1
+1 GOTO G1^IS00018E
