IS00005D ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
;Part 5
;Copyright 2006 SAIC
EN I '$D(X) D ERROR^INHS("Variable 'ZHR2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZHR3"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZHR3")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZHR3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZHR4"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZHR4")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZHR4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZHR5"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZHR5")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZHR5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZHR6"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZHR6")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZHR6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZHR7"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZHR7")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZHR7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZHR8"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZHR8")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZHR8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
H1 ;IF $D(@INV@("OBR1"))
I $D(@INV@("OBR1"))
D:$T
.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@("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@("OBR7",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR7",INI(1))
..I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
..S @INV@("OBR7",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR7' 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@("OBR20",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR20",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR20",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR20' 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@("OBR22",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR22",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR22",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR22' 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@("OBR27",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("OBR27",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBR27",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR27' 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@("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
.;IF $D(@INV@("OBX1"))
.I $D(@INV@("OBX1"))
.D:$T
..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
9 ....D EN^IS00005E
...D I4^IS00005E
..D I3^IS00005E
.D I2^IS00005E
G I1^IS00005E
IS00005D ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
+1 ;Part 5
+2 ;Copyright 2006 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("ZHR3"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("ZHR3")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 SET (INX,X)=$GET(@INV@("ZHR4"))
+8 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+9 SET @INV@("ZHR4")=$GET(X)
+10 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 KILL DXS
+12 SET (INX,X)=$GET(@INV@("ZHR5"))
+13 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+14 SET @INV@("ZHR5")=$GET(X)
+15 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+16 KILL DXS
+17 SET (INX,X)=$GET(@INV@("ZHR6"))
+18 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+19 SET @INV@("ZHR6")=$GET(X)
+20 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+21 KILL DXS
+22 SET (INX,X)=$GET(@INV@("ZHR7"))
+23 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+24 SET @INV@("ZHR7")=$GET(X)
+25 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+26 KILL DXS
+27 SET (INX,X)=$GET(@INV@("ZHR8"))
+28 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+29 SET @INV@("ZHR8")=$GET(X)
+30 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+31 KILL DXS
+32 QUIT
H1 ;IF $D(@INV@("OBR1"))
+1 IF $DATA(@INV@("OBR1"))
+2 IF $TEST
Begin DoDot:1
+3 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+4 SET (INX,X)=@INV@("OBR2",INI(1))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 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)
+7 QUIT
End DoDot:2
+8 KILL DXS
+9 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+10 SET (INX,X)=@INV@("OBR4",INI(1))
+11 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+12 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)
+13 QUIT
End DoDot:2
+14 KILL DXS
+15 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR7",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+16 SET (INX,X)=@INV@("OBR7",INI(1))
+17 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+18 SET @INV@("OBR7",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR7' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+19 QUIT
End DoDot:2
+20 KILL DXS
+21 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR20",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+22 SET (INX,X)=@INV@("OBR20",INI(1))
+23 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+24 SET @INV@("OBR20",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR20' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+25 QUIT
End DoDot:2
+26 KILL DXS
+27 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR22",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+28 SET (INX,X)=@INV@("OBR22",INI(1))
+29 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+30 SET @INV@("OBR22",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR22' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+31 QUIT
End DoDot:2
+32 KILL DXS
+33 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR27",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+34 SET (INX,X)=@INV@("OBR27",INI(1))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("OBR27",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBR27' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+37 QUIT
End DoDot:2
+38 KILL DXS
+39 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR32",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+40 SET (INX,X)=@INV@("OBR32",INI(1))
+41 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+42 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)
+43 QUIT
End DoDot:2
+44 KILL DXS
+45 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR33",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+46 SET (INX,X)=@INV@("OBR33",INI(1))
+47 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+48 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)
+49 QUIT
End DoDot:2
+50 KILL DXS
+51 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBR35",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+52 SET (INX,X)=@INV@("OBR35",INI(1))
+53 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+54 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)
+55 QUIT
End DoDot:2
+56 KILL DXS
+57 ;IF $D(@INV@("OBX1"))
+58 IF $DATA(@INV@("OBX1"))
+59 IF $TEST
Begin DoDot:2
+60 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX3",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:3
+61 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:4
+62 SET (INX,X)=@INV@("OBX3",INI(1),INI(2))
+63 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+64 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)
+65 QUIT
End DoDot:4
+66 QUIT
End DoDot:3
+67 KILL DXS
+68 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:3
+69 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:4
+70 SET (INX,X)=@INV@("OBX4",INI(1),INI(2))
+71 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+72 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)
+73 QUIT
End DoDot:4
+74 QUIT
End DoDot:3
+75 KILL DXS
+76 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX5",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:3
+77 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:4
+78 SET (INX,X)=@INV@("OBX5",INI(1),INI(2))
+79 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+80 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)
+81 QUIT
End DoDot:4
+82 QUIT
End DoDot:3
+83 KILL DXS
+84 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX6",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:3
+85 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:4
+86 SET (INX,X)=@INV@("OBX6",INI(1),INI(2))
+87 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+88 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)
+89 QUIT
End DoDot:4
+90 QUIT
End DoDot:3
+91 KILL DXS
+92 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX7",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:3
+93 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:4
9 DO EN^IS00005E
End DoDot:4
+1 DO I4^IS00005E
End DoDot:3
+2 DO I3^IS00005E
End DoDot:2
+3 DO I2^IS00005E
End DoDot:1
+4 GOTO I1^IS00005E
