IS00016F.m

IS00016F ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006

 ;Part 7

 ;Copyright 2006 SAIC

EN I '$D(X) D ERROR^INHS("Variable 'ORC12' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC13"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC13")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC13' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC14"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC14")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC14' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC15"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC15")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC15' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC16"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC16")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC16' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC17"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC17")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC17' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC18"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC18")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC18' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC19"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC19")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC19' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC20"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC20")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC20' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC21"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC21")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC21' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC22"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC22")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC22' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC23"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC23")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC23' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC24"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC24")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC24' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 S (INX,X)=$G(@INV@("ORC25"))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("ORC25")=$G(X)

 I '$D(X) D ERROR^INHS("Variable 'ORC25' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 K DXS

 ;IF $D(@INV@("OBR1"))

 I $D(@INV@("OBR1"))

 D:$T

 .S INI(1)=0 F  S INI(1)=$O(@INV@("OBR1",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR1",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR1' 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@("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@("OBR3",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR3",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR3",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR3' 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@("OBR5",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR5",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR5' 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@("OBR6",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR6",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR6",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR6' 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 $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..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@("OBR8",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR8",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR8' 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@("OBR9",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR9",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR9",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR9' 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@("OBR10",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR10",INI(1))

 ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 ..S @INV@("OBR10",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR10' 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@("OBR11",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S (INX,X)=@INV@("OBR11",INI(1))

9 ..D EN^IS00016G

 .D F3^IS00016G

 G F2^IS00016J

IS00016F  ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006

 +1       ;Part 7

 +2       ;Copyright 2006 SAIC

EN         IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC12' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +1        KILL DXS

 +2        SET (INX,X)=$GET(@INV@("ORC13"))

 +3        IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +4        SET @INV@("ORC13")=$GET(X)

 +5        IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC13' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +6        KILL DXS

 +7        SET (INX,X)=$GET(@INV@("ORC14"))

 +8        IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +9        SET @INV@("ORC14")=$GET(X)

 +10       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC14' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +11       KILL DXS

 +12       SET (INX,X)=$GET(@INV@("ORC15"))

 +13       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +14       SET @INV@("ORC15")=$GET(X)

 +15       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC15' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +16       KILL DXS

 +17       SET (INX,X)=$GET(@INV@("ORC16"))

 +18       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +19       SET @INV@("ORC16")=$GET(X)

 +20       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC16' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +21       KILL DXS

 +22       SET (INX,X)=$GET(@INV@("ORC17"))

 +23       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +24       SET @INV@("ORC17")=$GET(X)

 +25       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC17' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +26       KILL DXS

 +27       SET (INX,X)=$GET(@INV@("ORC18"))

 +28       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +29       SET @INV@("ORC18")=$GET(X)

 +30       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC18' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +31       KILL DXS

 +32       SET (INX,X)=$GET(@INV@("ORC19"))

 +33       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +34       SET @INV@("ORC19")=$GET(X)

 +35       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC19' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +36       KILL DXS

 +37       SET (INX,X)=$GET(@INV@("ORC20"))

 +38       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +39       SET @INV@("ORC20")=$GET(X)

 +40       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC20' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +41       KILL DXS

 +42       SET (INX,X)=$GET(@INV@("ORC21"))

 +43       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +44       SET @INV@("ORC21")=$GET(X)

 +45       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC21' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +46       KILL DXS

 +47       SET (INX,X)=$GET(@INV@("ORC22"))

 +48       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +49       SET @INV@("ORC22")=$GET(X)

 +50       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC22' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +51       KILL DXS

 +52       SET (INX,X)=$GET(@INV@("ORC23"))

 +53       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +54       SET @INV@("ORC23")=$GET(X)

 +55       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC23' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +56       KILL DXS

 +57       SET (INX,X)=$GET(@INV@("ORC24"))

 +58       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +59       SET @INV@("ORC24")=$GET(X)

 +60       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC24' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +61       KILL DXS

 +62       SET (INX,X)=$GET(@INV@("ORC25"))

 +63       IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +64       SET @INV@("ORC25")=$GET(X)

 +65       IF '$DATA(X)

               DO ERROR^INHS("Variable 'ORC25' failed input transform. Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +66       KILL DXS

 +67      ;IF $D(@INV@("OBR1"))

 +68       IF $DATA(@INV@("OBR1"))

 +69       IF $TEST

               Begin DoDot:1

 +70               SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR1",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +71                       SET (INX,X)=@INV@("OBR1",INI(1))

 +72                       IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +73                       SET @INV@("OBR1",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +74                       QUIT 

                       End DoDot:2

 +75               KILL DXS

 +76               SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR2",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +77                       SET (INX,X)=@INV@("OBR2",INI(1))

 +78                       IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +79                       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)

 +80                       QUIT 

                       End DoDot:2

 +81               KILL DXS

 +82               SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR3",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +83                       SET (INX,X)=@INV@("OBR3",INI(1))

 +84                       IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +85                       SET @INV@("OBR3",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR3' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +86                       QUIT 

                       End DoDot:2

 +87               KILL DXS

 +88               SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR4",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +89                       SET (INX,X)=@INV@("OBR4",INI(1))

 +90                       IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +91                       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)

 +92                       QUIT 

                       End DoDot:2

 +93               KILL DXS

 +94               SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR5",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +95                       SET (INX,X)=@INV@("OBR5",INI(1))

 +96                       IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +97                       SET @INV@("OBR5",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR5' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +98                       QUIT 

                       End DoDot:2

 +99               KILL DXS

 +100              SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR6",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +101                      SET (INX,X)=@INV@("OBR6",INI(1))

 +102                      IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +103                      SET @INV@("OBR6",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR6' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +104                      QUIT 

                       End DoDot:2

 +105              KILL DXS

 +106              SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR7",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +107                      SET (INX,X)=@INV@("OBR7",INI(1))

 +108                      IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +109                      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)

 +110                      QUIT 

                       End DoDot:2

 +111              KILL DXS

 +112              SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR8",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +113                      SET (INX,X)=@INV@("OBR8",INI(1))

 +114                      IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +115                      SET @INV@("OBR8",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR8' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +116                      QUIT 

                       End DoDot:2

 +117              KILL DXS

 +118              SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR9",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +119                      SET (INX,X)=@INV@("OBR9",INI(1))

 +120                      IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +121                      SET @INV@("OBR9",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR9' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +122                      QUIT 

                       End DoDot:2

 +123              KILL DXS

 +124              SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR10",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +125                      SET (INX,X)=@INV@("OBR10",INI(1))

 +126                      IF $PIECE($GET(INTHL7F2),U,4)

                               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +127                      SET @INV@("OBR10",INI(1))=$GET(X)

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'OBR10' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +128                      QUIT 

                       End DoDot:2

 +129              KILL DXS

 +130              SET INI(1)=0

                   FOR 

                       SET INI(1)=$ORDER(@INV@("OBR11",INI(1)))

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +131                      SET (INX,X)=@INV@("OBR11",INI(1))

9                          DO EN^IS00016G

                       End DoDot:2

 +1                DO F3^IS00016G

               End DoDot:1

 +2        GOTO F2^IS00016J