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