IS00003Z.m

IS00003Z ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002

 ;Part 27

 ;Copyright 2002 SAIC

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

 Q

AH1 ;IF $D(@INV@("ST1"))

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

 .Q

 ;Entering REQUIRED section.

 Q:$G(INSTERR) $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)  D MAIN^BHLX835

 I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 ;Entering END section.

 I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 K @INV,INV,INDA,DIPA Q +$G(INREQERR)

IS00003Z  ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002

 +1       ;Part 27

 +2       ;Copyright 2002 SAIC

EN         IF '$DATA(X)

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

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

 +1        KILL DXS

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

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

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

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

 +5        IF '$DATA(X)

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

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

 +6        KILL DXS

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

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

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

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

 +10       IF '$DATA(X)

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

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

 +11       KILL DXS

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

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

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

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

 +15       IF '$DATA(X)

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

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

 +16       KILL DXS

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

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

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

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

 +20       IF '$DATA(X)

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

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

 +21       KILL DXS

 +22       QUIT 

AH1       ;IF $D(@INV@("ST1"))

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

 +2        IF $TEST

               Begin DoDot:1

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

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

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

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

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

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

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

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

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

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

 +13               QUIT 

               End DoDot:1

 +14      ;Entering REQUIRED section.

 +15       IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

           DO MAIN^BHLX835

 +16       IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 +17      ;Entering END section.

 +18       IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 +19       KILL @INV,INV,INDA,DIPA

           QUIT +$GET(INREQERR)