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