IS00021D.m

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

 ;Part 5

 ;Copyright 2006 SAIC

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

 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)

9 G EN^IS00021E

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

 +1       ;Part 5

 +2       ;Copyright 2006 SAIC

EN         IF '$DATA(X)

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

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

 +1        KILL DXS

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

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

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

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

 +5        IF '$DATA(X)

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

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

 +6        KILL DXS

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

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

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

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

 +10       IF '$DATA(X)

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

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

 +11       KILL DXS

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

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

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

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

 +15       IF '$DATA(X)

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

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

 +16       KILL DXS

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

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

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

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

 +20       IF '$DATA(X)

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

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

 +21       KILL DXS

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

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

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

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

 +25       IF '$DATA(X)

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

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

 +26       KILL DXS

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

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

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

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

 +30       IF '$DATA(X)

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

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

 +31       KILL DXS

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

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

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

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

 +35       IF '$DATA(X)

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

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

 +36       KILL DXS

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

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

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

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

 +40       IF '$DATA(X)

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

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

 +41       KILL DXS

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

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

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

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

 +45       IF '$DATA(X)

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

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

 +46       KILL DXS

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

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

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

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

 +50       IF '$DATA(X)

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

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

 +51       KILL DXS

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

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

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

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

 +55       IF '$DATA(X)

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

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

 +56       KILL DXS

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

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

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

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

 +60       IF '$DATA(X)

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

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

 +61       KILL DXS

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

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

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

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

 +65       IF '$DATA(X)

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

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

 +66       KILL DXS

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

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

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

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

 +70       IF '$DATA(X)

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

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

 +71       KILL DXS

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

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

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

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

 +75       IF '$DATA(X)

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

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

 +76       KILL DXS

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

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

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

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

 +80       IF '$DATA(X)

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

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

 +81       KILL DXS

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

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

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

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

 +85       IF '$DATA(X)

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

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

 +86       KILL DXS

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

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

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

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

 +90       IF '$DATA(X)

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

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

 +91       KILL DXS

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

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

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

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

 +95       IF '$DATA(X)

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

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

 +96       KILL DXS

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

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

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

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

 +100      IF '$DATA(X)

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

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

 +101      KILL DXS

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

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

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

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

 +105      IF '$DATA(X)

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

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

 +106      KILL DXS

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

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

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

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

 +110      IF '$DATA(X)

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

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

 +111      KILL DXS

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

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

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

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

 +115      IF '$DATA(X)

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

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

 +116      KILL DXS

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

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

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

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

 +120      IF '$DATA(X)

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

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

 +121      KILL DXS

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

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

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

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

 +125      IF '$DATA(X)

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

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

 +126      KILL DXS

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

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

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

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

 +130      IF '$DATA(X)

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

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

 +131      KILL DXS

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

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

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

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

 +135      IF '$DATA(X)

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

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

 +136      KILL DXS

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

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

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

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

 +140      IF '$DATA(X)

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

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

 +141      KILL DXS

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

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

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

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

9          GOTO EN^IS00021E