- 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
