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