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