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