IS00005B.m

IS00005B ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006

 ;Part 3

 ;Copyright 2006 SAIC

EN S @INV@("PID11")=$G(X)

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

 K DXS

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

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

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

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

 K DXS

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

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

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

 I '$D(X) D ERROR^INHS("Variable 'PID14' 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@("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@("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

 Q

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

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

 D:$T

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

 .I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

9 .D EN^IS00005C

 G E1^IS00005C

IS00005B  ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006

 +1       ;Part 3

 +2       ;Copyright 2006 SAIC

EN         SET @INV@("PID11")=$GET(X)

 +1        IF '$DATA(X)

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

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

 +2        KILL DXS

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

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

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

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

 +6        IF '$DATA(X)

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

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

 +7        KILL DXS

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

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

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

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

 +11       IF '$DATA(X)

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

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

 +12       KILL DXS

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

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

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

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

 +16       IF '$DATA(X)

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

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

 +17       KILL DXS

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

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

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

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

 +21       IF '$DATA(X)

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

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

 +22       KILL DXS

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

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

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

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

 +26       IF '$DATA(X)

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

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

 +27       KILL DXS

 +28       QUIT 

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

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

 +2        IF $TEST

               Begin DoDot:1

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

 +4                IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

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

 +9                IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

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

 +14               IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +16               IF '$DATA(X)

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

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

 +17               KILL DXS

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

 +19               IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +21               IF '$DATA(X)

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

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

 +22               KILL DXS

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

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

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

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

 +26               IF '$DATA(X)

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

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

 +27               KILL DXS

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

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

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

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

 +31               IF '$DATA(X)

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

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

 +32               KILL DXS

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

 +34               IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +36               IF '$DATA(X)

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

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

 +37               KILL DXS

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

 +39               IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +41               IF '$DATA(X)

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

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

 +42               KILL DXS

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

 +44               IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

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

 +46               IF '$DATA(X)

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

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

 +47               KILL DXS

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

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

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

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

 +51               IF '$DATA(X)

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

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

 +52               KILL DXS

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

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

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

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

 +56               IF '$DATA(X)

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

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

 +57               KILL DXS

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

 +59               IF $LENGTH(X)

                       IF $PIECE(X,INSUBDEL,4)=""

                           SET $PIECE(X,INSUBDEL,4)=INSUBDEL

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

 +61               IF '$DATA(X)

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

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

 +62               KILL DXS

 +63               SET (INX,X)=$GET(@INV@("ZP214"))

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

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

 +65               SET @INV@("ZP214")=$GET(X)

 +66               IF '$DATA(X)

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

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

 +67               KILL DXS

 +68               SET (INX,X)=$GET(@INV@("ZP215"))

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

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

 +70               SET @INV@("ZP215")=$GET(X)

 +71               IF '$DATA(X)

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

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

 +72               KILL DXS

 +73               SET (INX,X)=$GET(@INV@("ZP216"))

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

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

 +75               SET @INV@("ZP216")=$GET(X)

 +76               IF '$DATA(X)

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

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

 +77               KILL DXS

 +78               SET (INX,X)=$GET(@INV@("ZP217"))

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

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

 +80               SET @INV@("ZP217")=$GET(X)

 +81               IF '$DATA(X)

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

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

 +82               KILL DXS

 +83               SET (INX,X)=$GET(@INV@("ZP218"))

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

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

 +85               SET @INV@("ZP218")=$GET(X)

 +86               IF '$DATA(X)

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

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

 +87               KILL DXS

 +88               SET (INX,X)=$GET(@INV@("ZP219"))

 +89               IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

 +90               SET @INV@("ZP219")=$GET(X)

 +91               IF '$DATA(X)

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

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

 +92               KILL DXS

 +93               SET (INX,X)=$GET(@INV@("ZP221"))

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

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

 +95               SET @INV@("ZP221")=$GET(X)

 +96               IF '$DATA(X)

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

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

 +97               KILL DXS

 +98               SET (INX,X)=$GET(@INV@("ZP222"))

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

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

 +100              SET @INV@("ZP222")=$GET(X)

 +101              IF '$DATA(X)

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

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

 +102              KILL DXS

 +103              SET (INX,X)=$GET(@INV@("ZP223"))

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

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

 +105              SET @INV@("ZP223")=$GET(X)

 +106              IF '$DATA(X)

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

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

 +107              KILL DXS

 +108              SET (INX,X)=$GET(@INV@("ZP225"))

 +109              IF X]""

                       SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)

 +110              SET @INV@("ZP225")=$GET(X)

 +111              IF '$DATA(X)

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

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

 +112              KILL DXS

 +113              SET (INX,X)=$GET(@INV@("ZP226"))

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

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

 +115              SET @INV@("ZP226")=$GET(X)

 +116              IF '$DATA(X)

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

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

 +117              KILL DXS

 +118              SET (INX,X)=$GET(@INV@("ZP227"))

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

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

 +120              SET @INV@("ZP227")=$GET(X)

9                  DO EN^IS00005C

               End DoDot:1

 +1        GOTO E1^IS00005C