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