IS00022E.m

IS00022E ;Compiled from script 'Generated: HL IHS LAB R01 SONORA QUEST 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@("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

E1 ;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)

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

9 .D EN^IS00022F

 G F1^IS00022J

IS00022E  ;Compiled from script 'Generated: HL IHS LAB R01 SONORA QUEST 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@("PV136")=$GET(X)

 +2        IF '$DATA(X)

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

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

 +3        KILL DXS

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

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

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

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

 +7        IF '$DATA(X)

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

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

 +8        KILL DXS

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

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

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

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

 +12       IF '$DATA(X)

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

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

 +13       KILL DXS

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

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

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

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

 +17       IF '$DATA(X)

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

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

 +18       KILL DXS

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

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

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

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

 +22       IF '$DATA(X)

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

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

 +23       KILL DXS

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

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

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

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

 +27       IF '$DATA(X)

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

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

 +28       KILL DXS

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

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

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

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

 +32       IF '$DATA(X)

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

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

 +33       KILL DXS

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

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

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

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

 +37       IF '$DATA(X)

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

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

 +38       KILL DXS

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

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

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

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

 +42       IF '$DATA(X)

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

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

 +43       KILL DXS

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

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

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

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

 +47       IF '$DATA(X)

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

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

 +48       KILL DXS

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

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

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

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

 +52       IF '$DATA(X)

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

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

 +53       KILL DXS

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

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

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

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

 +57       IF '$DATA(X)

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

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

 +58       KILL DXS

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

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

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

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

 +62       IF '$DATA(X)

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

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

 +63       KILL DXS

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

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

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

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

 +67       IF '$DATA(X)

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

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

 +68       KILL DXS

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

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

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

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

 +72       IF '$DATA(X)

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

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

 +73       KILL DXS

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

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

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

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

 +77       IF '$DATA(X)

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

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

 +78       KILL DXS

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

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

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

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

 +82       IF '$DATA(X)

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

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

 +83       KILL DXS

 +84       QUIT 

E1        ;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)

 +31               IF '$DATA(X)

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

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

 +32               KILL DXS

 +33               SET (INX,X)=$GET(@INV@("ORC7"))

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

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

 +35               SET @INV@("ORC7")=$GET(X)

 +36               IF '$DATA(X)

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

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

 +37               KILL DXS

 +38               SET (INX,X)=$GET(@INV@("ORC8"))

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

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

 +40               SET @INV@("ORC8")=$GET(X)

 +41               IF '$DATA(X)

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

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

 +42               KILL DXS

 +43               SET (INX,X)=$GET(@INV@("ORC9"))

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

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

 +45               SET @INV@("ORC9")=$GET(X)

 +46               IF '$DATA(X)

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

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

 +47               KILL DXS

 +48               SET (INX,X)=$GET(@INV@("ORC10"))

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

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

 +50               SET @INV@("ORC10")=$GET(X)

 +51               IF '$DATA(X)

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

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

 +52               KILL DXS

 +53               SET (INX,X)=$GET(@INV@("ORC11"))

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

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

 +55               SET @INV@("ORC11")=$GET(X)

 +56               IF '$DATA(X)

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

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

 +57               KILL DXS

 +58               SET (INX,X)=$GET(@INV@("ORC12"))

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

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

 +60               SET @INV@("ORC12")=$GET(X)

9                  DO EN^IS00022F

               End DoDot:1

 +1        GOTO F1^IS00022J