IS00017H ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
;Part 9
;Copyright 2006 SAIC
EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("OBR28",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR28' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
Q
H3 K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBR29",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR29",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR29",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR29' 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@("OBR30",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR30",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR30",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR30' 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@("OBR31",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR31",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR31",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR31' 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@("OBR32",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR32",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR32",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR32' 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@("OBR33",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR33",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR33",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR33' 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@("OBR34",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR34",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR34",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR34' 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@("OBR35",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR35",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR35",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR35' 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@("OBR36",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR36",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR36",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR36' 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@("OBR37",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR37",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR37",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR37' 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@("OBR38",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR38",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR38",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR38' 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@("OBR39",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR39",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR39",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR39' 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@("OBR40",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR40",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR40",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR40' 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@("OBR41",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR41",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR41",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR41' 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@("OBR42",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR42",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR42",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR42' 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@("OBR43",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR43",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR43",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR43' 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@("OBR44",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR44",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR44",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR44' 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@("OBR45",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR45",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR45",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR45' 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@("OBR46",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR46",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR46",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR46' 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@("OBR47",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("OBR47",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBR47",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR47' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.Q
K DXS
;IF $D(@INV@("OBX1"))
I $D(@INV@("OBX1"))
D:$T
9 .D EN^IS00017I
G H3^IS00017J
IS00017H ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
+1 ;Part 9
+2 ;Copyright 2006 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 SET @INV@("OBR28",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR28' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+2 QUIT
H3 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR29",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET (INX,X)=@INV@("OBR29",INI(1))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("OBR29",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR29' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+5 QUIT
End DoDot:1
+6 KILL DXS
+7 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR30",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+8 SET (INX,X)=@INV@("OBR30",INI(1))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("OBR30",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR30' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 QUIT
End DoDot:1
+12 KILL DXS
+13 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR31",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+14 SET (INX,X)=@INV@("OBR31",INI(1))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("OBR31",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR31' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 QUIT
End DoDot:1
+18 KILL DXS
+19 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR32",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+20 SET (INX,X)=@INV@("OBR32",INI(1))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 SET @INV@("OBR32",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR32' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 QUIT
End DoDot:1
+24 KILL DXS
+25 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR33",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+26 SET (INX,X)=@INV@("OBR33",INI(1))
+27 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+28 SET @INV@("OBR33",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR33' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+29 QUIT
End DoDot:1
+30 KILL DXS
+31 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR34",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+32 SET (INX,X)=@INV@("OBR34",INI(1))
+33 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+34 SET @INV@("OBR34",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR34' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+35 QUIT
End DoDot:1
+36 KILL DXS
+37 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR35",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+38 SET (INX,X)=@INV@("OBR35",INI(1))
+39 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+40 SET @INV@("OBR35",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR35' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+41 QUIT
End DoDot:1
+42 KILL DXS
+43 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR36",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+44 SET (INX,X)=@INV@("OBR36",INI(1))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("OBR36",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR36' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 QUIT
End DoDot:1
+48 KILL DXS
+49 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR37",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+50 SET (INX,X)=@INV@("OBR37",INI(1))
+51 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+52 SET @INV@("OBR37",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR37' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 QUIT
End DoDot:1
+54 KILL DXS
+55 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR38",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+56 SET (INX,X)=@INV@("OBR38",INI(1))
+57 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+58 SET @INV@("OBR38",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR38' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+59 QUIT
End DoDot:1
+60 KILL DXS
+61 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR39",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+62 SET (INX,X)=@INV@("OBR39",INI(1))
+63 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+64 SET @INV@("OBR39",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR39' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+65 QUIT
End DoDot:1
+66 KILL DXS
+67 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR40",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+68 SET (INX,X)=@INV@("OBR40",INI(1))
+69 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+70 SET @INV@("OBR40",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR40' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+71 QUIT
End DoDot:1
+72 KILL DXS
+73 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR41",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+74 SET (INX,X)=@INV@("OBR41",INI(1))
+75 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+76 SET @INV@("OBR41",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR41' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+77 QUIT
End DoDot:1
+78 KILL DXS
+79 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR42",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+80 SET (INX,X)=@INV@("OBR42",INI(1))
+81 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+82 SET @INV@("OBR42",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR42' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+83 QUIT
End DoDot:1
+84 KILL DXS
+85 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR43",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+86 SET (INX,X)=@INV@("OBR43",INI(1))
+87 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+88 SET @INV@("OBR43",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR43' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+89 QUIT
End DoDot:1
+90 KILL DXS
+91 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR44",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+92 SET (INX,X)=@INV@("OBR44",INI(1))
+93 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+94 SET @INV@("OBR44",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR44' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+95 QUIT
End DoDot:1
+96 KILL DXS
+97 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR45",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+98 SET (INX,X)=@INV@("OBR45",INI(1))
+99 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+100 SET @INV@("OBR45",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR45' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+101 QUIT
End DoDot:1
+102 KILL DXS
+103 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR46",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+104 SET (INX,X)=@INV@("OBR46",INI(1))
+105 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+106 SET @INV@("OBR46",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR46' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+107 QUIT
End DoDot:1
+108 KILL DXS
+109 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR47",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+110 SET (INX,X)=@INV@("OBR47",INI(1))
+111 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+112 SET @INV@("OBR47",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR47' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+113 QUIT
End DoDot:1
+114 KILL DXS
+115 ;IF $D(@INV@("OBX1"))
+116 IF $DATA(@INV@("OBX1"))
+117 IF $TEST
Begin DoDot:1
9 DO EN^IS00017I
End DoDot:1
+1 GOTO H3^IS00017J
