IS00016C.m

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

 ;Part 4

 ;Copyright 2006 SAIC

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

 Q

D1 ;IF $D(@INV@("PV11"))

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

9 .D EN^IS00016D

 G E1^IS00016E

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

 +1       ;Part 4

 +2       ;Copyright 2006 SAIC

EN         IF '$DATA(X)

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

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

 +1        KILL DXS

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

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

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

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

 +5        IF '$DATA(X)

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

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

 +6        KILL DXS

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

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

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

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

 +10       IF '$DATA(X)

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

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

 +11       KILL DXS

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

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

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

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

 +15       IF '$DATA(X)

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

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

 +16       KILL DXS

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

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

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

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

 +20       IF '$DATA(X)

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

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

 +21       KILL DXS

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

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

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

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

 +25       IF '$DATA(X)

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

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

 +26       KILL DXS

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

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

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

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

 +30       IF '$DATA(X)

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

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

 +31       KILL DXS

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

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

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

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

 +35       IF '$DATA(X)

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

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

 +36       KILL DXS

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

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

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

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

 +40       IF '$DATA(X)

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

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

 +41       KILL DXS

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

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

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

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

 +45       IF '$DATA(X)

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

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

 +46       KILL DXS

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

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

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

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

 +50       IF '$DATA(X)

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

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

 +51       KILL DXS

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

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

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

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

 +55       IF '$DATA(X)

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

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

 +56       KILL DXS

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

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

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

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

 +60       IF '$DATA(X)

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

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

 +61       KILL DXS

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

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

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

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

 +65       IF '$DATA(X)

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

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

 +66       KILL DXS

 +67       SET (INX,X)=$GET(@INV@("PID30"))

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

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

 +69       SET @INV@("PID30")=$GET(X)

 +70       IF '$DATA(X)

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

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

 +71       KILL DXS

 +72       SET (INX,X)=$GET(@INV@("PID31"))

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

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

 +74       SET @INV@("PID31")=$GET(X)

 +75       IF '$DATA(X)

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

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

 +76       KILL DXS

 +77       SET (INX,X)=$GET(@INV@("PID32"))

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

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

 +79       SET @INV@("PID32")=$GET(X)

 +80       IF '$DATA(X)

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

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

 +81       KILL DXS

 +82       SET (INX,X)=$GET(@INV@("PID33"))

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

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

 +84       SET @INV@("PID33")=$GET(X)

 +85       IF '$DATA(X)

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

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

 +86       KILL DXS

 +87       SET (INX,X)=$GET(@INV@("PID34"))

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

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

 +89       SET @INV@("PID34")=$GET(X)

 +90       IF '$DATA(X)

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

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

 +91       KILL DXS

 +92       SET (INX,X)=$GET(@INV@("PID35"))

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

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

 +94       SET @INV@("PID35")=$GET(X)

 +95       IF '$DATA(X)

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

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

 +96       KILL DXS

 +97       SET (INX,X)=$GET(@INV@("PID36"))

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

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

 +99       SET @INV@("PID36")=$GET(X)

 +100      IF '$DATA(X)

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

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

 +101      KILL DXS

 +102      SET (INX,X)=$GET(@INV@("PID37"))

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

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

 +104      SET @INV@("PID37")=$GET(X)

 +105      IF '$DATA(X)

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

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

 +106      KILL DXS

 +107      SET (INX,X)=$GET(@INV@("PID38"))

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

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

 +109      SET @INV@("PID38")=$GET(X)

 +110      IF '$DATA(X)

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

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

 +111      KILL DXS

 +112      QUIT 

D1        ;IF $D(@INV@("PV11"))

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

 +2        IF $TEST

               Begin DoDot:1

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

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

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

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

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

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

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

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

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

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

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

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

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

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

 +16               IF '$DATA(X)

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

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

 +17               KILL DXS

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

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

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

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

 +21               IF '$DATA(X)

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

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

 +22               KILL DXS

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

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

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

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

 +26               IF '$DATA(X)

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

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

 +27               KILL DXS

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

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

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

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

 +31               IF '$DATA(X)

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

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

 +32               KILL DXS

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

9                  DO EN^IS00016D

               End DoDot:1

 +1        GOTO E1^IS00016E