IS00018E.m

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

 ;Part 6

 ;Copyright 2006 SAIC

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

 Q

G1 ;IF $D(@INV@("ORC1"))

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

 D:$T

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

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

 .S @INV@("ORC1")=$G(X)

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

 .K DXS

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

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

 .S @INV@("ORC2")=$G(X)

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

 .K DXS

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

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

 .S @INV@("ORC3")=$G(X)

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

 .K DXS

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

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

 .S @INV@("ORC4")=$G(X)

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

 .K DXS

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

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

 .S @INV@("ORC5")=$G(X)

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

 .K DXS

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

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

 .S @INV@("ORC6")=$G(X)

9 .D EN^IS00018F

 G H1^IS00018J

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

 +1       ;Part 6

 +2       ;Copyright 2006 SAIC

EN         IF $PIECE($GET(INTHL7F2),U,4)

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

 +1        SET @INV@("PV130")=$GET(X)

 +2        IF '$DATA(X)

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

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

 +3        KILL DXS

 +4        SET (INX,X)=$GET(@INV@("PV131"))

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

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

 +6        SET @INV@("PV131")=$GET(X)

 +7        IF '$DATA(X)

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

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

 +8        KILL DXS

 +9        SET (INX,X)=$GET(@INV@("PV132"))

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

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

 +11       SET @INV@("PV132")=$GET(X)

 +12       IF '$DATA(X)

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

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

 +13       KILL DXS

 +14       SET (INX,X)=$GET(@INV@("PV133"))

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

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

 +16       SET @INV@("PV133")=$GET(X)

 +17       IF '$DATA(X)

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

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

 +18       KILL DXS

 +19       SET (INX,X)=$GET(@INV@("PV134"))

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

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

 +21       SET @INV@("PV134")=$GET(X)

 +22       IF '$DATA(X)

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

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

 +23       KILL DXS

 +24       SET (INX,X)=$GET(@INV@("PV135"))

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

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

 +26       SET @INV@("PV135")=$GET(X)

 +27       IF '$DATA(X)

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

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

 +28       KILL DXS

 +29       SET (INX,X)=$GET(@INV@("PV136"))

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

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

 +31       SET @INV@("PV136")=$GET(X)

 +32       IF '$DATA(X)

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

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

 +33       KILL DXS

 +34       SET (INX,X)=$GET(@INV@("PV137"))

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

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

 +36       SET @INV@("PV137")=$GET(X)

 +37       IF '$DATA(X)

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

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

 +38       KILL DXS

 +39       SET (INX,X)=$GET(@INV@("PV138"))

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

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

 +41       SET @INV@("PV138")=$GET(X)

 +42       IF '$DATA(X)

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

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

 +43       KILL DXS

 +44       SET (INX,X)=$GET(@INV@("PV139"))

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

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

 +46       SET @INV@("PV139")=$GET(X)

 +47       IF '$DATA(X)

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

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

 +48       KILL DXS

 +49       SET (INX,X)=$GET(@INV@("PV140"))

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

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

 +51       SET @INV@("PV140")=$GET(X)

 +52       IF '$DATA(X)

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

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

 +53       KILL DXS

 +54       SET (INX,X)=$GET(@INV@("PV141"))

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

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

 +56       SET @INV@("PV141")=$GET(X)

 +57       IF '$DATA(X)

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

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

 +58       KILL DXS

 +59       SET (INX,X)=$GET(@INV@("PV142"))

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

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

 +61       SET @INV@("PV142")=$GET(X)

 +62       IF '$DATA(X)

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

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

 +63       KILL DXS

 +64       SET (INX,X)=$GET(@INV@("PV143"))

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

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

 +66       SET @INV@("PV143")=$GET(X)

 +67       IF '$DATA(X)

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

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

 +68       KILL DXS

 +69       SET (INX,X)=$GET(@INV@("PV144"))

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

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

 +71       SET @INV@("PV144")=$GET(X)

 +72       IF '$DATA(X)

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

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

 +73       KILL DXS

 +74       SET (INX,X)=$GET(@INV@("PV145"))

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

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

 +76       SET @INV@("PV145")=$GET(X)

 +77       IF '$DATA(X)

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

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

 +78       KILL DXS

 +79       SET (INX,X)=$GET(@INV@("PV146"))

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

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

 +81       SET @INV@("PV146")=$GET(X)

 +82       IF '$DATA(X)

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

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

 +83       KILL DXS

 +84       SET (INX,X)=$GET(@INV@("PV147"))

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

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

 +86       SET @INV@("PV147")=$GET(X)

 +87       IF '$DATA(X)

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

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

 +88       KILL DXS

 +89       SET (INX,X)=$GET(@INV@("PV148"))

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

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

 +91       SET @INV@("PV148")=$GET(X)

 +92       IF '$DATA(X)

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

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

 +93       KILL DXS

 +94       SET (INX,X)=$GET(@INV@("PV149"))

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

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

 +96       SET @INV@("PV149")=$GET(X)

 +97       IF '$DATA(X)

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

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

 +98       KILL DXS

 +99       SET (INX,X)=$GET(@INV@("PV150"))

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

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

 +101      SET @INV@("PV150")=$GET(X)

 +102      IF '$DATA(X)

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

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

 +103      KILL DXS

 +104      SET (INX,X)=$GET(@INV@("PV151"))

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

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

 +106      SET @INV@("PV151")=$GET(X)

 +107      IF '$DATA(X)

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

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

 +108      KILL DXS

 +109      SET (INX,X)=$GET(@INV@("PV152"))

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

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

 +111      SET @INV@("PV152")=$GET(X)

 +112      IF '$DATA(X)

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

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

 +113      KILL DXS

 +114      QUIT 

G1        ;IF $D(@INV@("ORC1"))

 +1        IF $DATA(@INV@("ORC1"))

 +2        IF $TEST

               Begin DoDot:1

 +3                SET (INX,X)=$GET(@INV@("ORC1"))

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

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

 +5                SET @INV@("ORC1")=$GET(X)

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

 +8                SET (INX,X)=$GET(@INV@("ORC2"))

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

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

 +10               SET @INV@("ORC2")=$GET(X)

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

 +13               SET (INX,X)=$GET(@INV@("ORC3"))

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

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

 +15               SET @INV@("ORC3")=$GET(X)

 +16               IF '$DATA(X)

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

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

 +17               KILL DXS

 +18               SET (INX,X)=$GET(@INV@("ORC4"))

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

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

 +20               SET @INV@("ORC4")=$GET(X)

 +21               IF '$DATA(X)

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

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

 +22               KILL DXS

 +23               SET (INX,X)=$GET(@INV@("ORC5"))

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

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

 +25               SET @INV@("ORC5")=$GET(X)

 +26               IF '$DATA(X)

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

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

 +27               KILL DXS

 +28               SET (INX,X)=$GET(@INV@("ORC6"))

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

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

 +30               SET @INV@("ORC6")=$GET(X)

9                  DO EN^IS00018F

               End DoDot:1

 +1        GOTO H1^IS00018J