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