IS00016D.m

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

 ;Part 5

 ;Copyright 2006 SAIC

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

 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"))

9 G EN^IS00016E

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

 +1       ;Part 5

 +2       ;Copyright 2006 SAIC

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

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

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

 +2        IF '$DATA(X)

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

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

 +3        KILL DXS

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

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

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

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

 +7        IF '$DATA(X)

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

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

 +8        KILL DXS

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

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

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

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

 +12       IF '$DATA(X)

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

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

 +13       KILL DXS

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

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

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

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

 +17       IF '$DATA(X)

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

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

 +18       KILL DXS

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

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

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

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

 +22       IF '$DATA(X)

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

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

 +23       KILL DXS

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

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

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

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

 +27       IF '$DATA(X)

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

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

 +28       KILL DXS

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

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

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

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

 +32       IF '$DATA(X)

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

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

 +33       KILL DXS

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

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

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

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

 +37       IF '$DATA(X)

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

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

 +38       KILL DXS

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

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

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

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

 +42       IF '$DATA(X)

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

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

 +43       KILL DXS

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

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

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

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

 +47       IF '$DATA(X)

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

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

 +48       KILL DXS

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

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

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

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

 +52       IF '$DATA(X)

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

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

 +53       KILL DXS

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

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

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

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

 +57       IF '$DATA(X)

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

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

 +58       KILL DXS

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

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

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

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

 +62       IF '$DATA(X)

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

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

 +63       KILL DXS

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

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

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

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

 +67       IF '$DATA(X)

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

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

 +68       KILL DXS

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

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

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

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

 +72       IF '$DATA(X)

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

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

 +73       KILL DXS

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

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

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

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

 +77       IF '$DATA(X)

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

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

 +78       KILL DXS

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

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

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

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

 +82       IF '$DATA(X)

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

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

 +83       KILL DXS

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

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

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

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

 +87       IF '$DATA(X)

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

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

 +88       KILL DXS

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

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

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

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

 +92       IF '$DATA(X)

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

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

 +93       KILL DXS

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

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

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

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

 +97       IF '$DATA(X)

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

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

 +98       KILL DXS

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

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

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

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

 +102      IF '$DATA(X)

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

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

 +103      KILL DXS

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

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

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

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

 +107      IF '$DATA(X)

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

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

 +108      KILL DXS

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

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

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

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

 +112      IF '$DATA(X)

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

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

 +113      KILL DXS

 +114      SET (INX,X)=$GET(@INV@("PV130"))

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

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

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

 +117      IF '$DATA(X)

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

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

 +118      KILL DXS

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

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

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

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

 +122      IF '$DATA(X)

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

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

 +123      KILL DXS

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

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

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

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

 +127      IF '$DATA(X)

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

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

 +128      KILL DXS

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

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

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

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

 +132      IF '$DATA(X)

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

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

 +133      KILL DXS

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

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

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

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

 +137      IF '$DATA(X)

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

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

 +138      KILL DXS

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

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

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

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

 +142      IF '$DATA(X)

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

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

 +143      KILL DXS

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

9          GOTO EN^IS00016E