IS00016F ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006
;Part 7
;Copyright 2006 SAIC
EN I '$D(X) D ERROR^INHS("Variable 'ORC12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC13"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC13")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC14"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC14")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC15"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC15")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC16"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC16")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC17"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC17")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC18"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC18")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC19"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC19")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC20"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC20")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC20' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC21"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC21")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC21' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC22"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC22")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC22' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC23"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC23")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC23' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC24"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC24")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC24' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ORC25"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ORC25")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ORC25' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
;IF $D(@INV@("OBR1"))
I $D(@INV@("OBR1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("OBR1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR1' 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@("OBR2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR2' 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@("OBR3",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR3",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR3",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR3' 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@("OBR4",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR4",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR4",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR4' 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@("OBR5",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR5",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR5' 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@("OBR6",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR6",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR6",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR6' 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@("OBR7",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR7",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR7",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR7' 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@("OBR8",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR8",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR8' 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@("OBR9",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR9",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR9",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR9' 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@("OBR10",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR10",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR10",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR10' 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@("OBR11",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR11",INI(1))
9 ..D EN^IS00016G
.D F3^IS00016G
G F2^IS00016J
IS00016F ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006
+1 ;Part 7
+2 ;Copyright 2006 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("ORC13"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("ORC13")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 SET (INX,X)=$GET(@INV@("ORC14"))
+8 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+9 SET @INV@("ORC14")=$GET(X)
+10 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 KILL DXS
+12 SET (INX,X)=$GET(@INV@("ORC15"))
+13 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+14 SET @INV@("ORC15")=$GET(X)
+15 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC15' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+16 KILL DXS
+17 SET (INX,X)=$GET(@INV@("ORC16"))
+18 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+19 SET @INV@("ORC16")=$GET(X)
+20 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC16' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+21 KILL DXS
+22 SET (INX,X)=$GET(@INV@("ORC17"))
+23 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+24 SET @INV@("ORC17")=$GET(X)
+25 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+26 KILL DXS
+27 SET (INX,X)=$GET(@INV@("ORC18"))
+28 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+29 SET @INV@("ORC18")=$GET(X)
+30 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC18' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+31 KILL DXS
+32 SET (INX,X)=$GET(@INV@("ORC19"))
+33 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+34 SET @INV@("ORC19")=$GET(X)
+35 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+36 KILL DXS
+37 SET (INX,X)=$GET(@INV@("ORC20"))
+38 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+39 SET @INV@("ORC20")=$GET(X)
+40 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC20' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+41 KILL DXS
+42 SET (INX,X)=$GET(@INV@("ORC21"))
+43 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+44 SET @INV@("ORC21")=$GET(X)
+45 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC21' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+46 KILL DXS
+47 SET (INX,X)=$GET(@INV@("ORC22"))
+48 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+49 SET @INV@("ORC22")=$GET(X)
+50 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC22' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+51 KILL DXS
+52 SET (INX,X)=$GET(@INV@("ORC23"))
+53 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+54 SET @INV@("ORC23")=$GET(X)
+55 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC23' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+56 KILL DXS
+57 SET (INX,X)=$GET(@INV@("ORC24"))
+58 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+59 SET @INV@("ORC24")=$GET(X)
+60 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC24' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+61 KILL DXS
+62 SET (INX,X)=$GET(@INV@("ORC25"))
+63 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+64 SET @INV@("ORC25")=$GET(X)
+65 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC25' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+66 KILL DXS
+67 ;IF $D(@INV@("OBR1"))
+68 IF $DATA(@INV@("OBR1"))
+69 IF $TEST
Begin DoDot:1
+70 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+71 SET (INX,X)=@INV@("OBR1",INI(1))
+72 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+73 SET @INV@("OBR1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+74 QUIT
End DoDot:2
+75 KILL DXS
+76 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+77 SET (INX,X)=@INV@("OBR2",INI(1))
+78 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+79 SET @INV@("OBR2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+80 QUIT
End DoDot:2
+81 KILL DXS
+82 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR3",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+83 SET (INX,X)=@INV@("OBR3",INI(1))
+84 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+85 SET @INV@("OBR3",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR3' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+86 QUIT
End DoDot:2
+87 KILL DXS
+88 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+89 SET (INX,X)=@INV@("OBR4",INI(1))
+90 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+91 SET @INV@("OBR4",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR4' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+92 QUIT
End DoDot:2
+93 KILL DXS
+94 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR5",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+95 SET (INX,X)=@INV@("OBR5",INI(1))
+96 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+97 SET @INV@("OBR5",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR5' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+98 QUIT
End DoDot:2
+99 KILL DXS
+100 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR6",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+101 SET (INX,X)=@INV@("OBR6",INI(1))
+102 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+103 SET @INV@("OBR6",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR6' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+104 QUIT
End DoDot:2
+105 KILL DXS
+106 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR7",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+107 SET (INX,X)=@INV@("OBR7",INI(1))
+108 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+109 SET @INV@("OBR7",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR7' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+110 QUIT
End DoDot:2
+111 KILL DXS
+112 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR8",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+113 SET (INX,X)=@INV@("OBR8",INI(1))
+114 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+115 SET @INV@("OBR8",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR8' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+116 QUIT
End DoDot:2
+117 KILL DXS
+118 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR9",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+119 SET (INX,X)=@INV@("OBR9",INI(1))
+120 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+121 SET @INV@("OBR9",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR9' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+122 QUIT
End DoDot:2
+123 KILL DXS
+124 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR10",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+125 SET (INX,X)=@INV@("OBR10",INI(1))
+126 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+127 SET @INV@("OBR10",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR10' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+128 QUIT
End DoDot:2
+129 KILL DXS
+130 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR11",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+131 SET (INX,X)=@INV@("OBR11",INI(1))
9 DO EN^IS00016G
End DoDot:2
+1 DO F3^IS00016G
End DoDot:1
+2 GOTO F2^IS00016J