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