Ошибка при выполнении хранимой процедуры - FireBird

CREATE OR ALTER PROCEDURE DIF_TMU1 (
    FUL_TMU VARCHAR(30),
    CUR_TMU VARCHAR(30),
    TMP_TAB VARCHAR(30),
    STAGGMM INTEGER)
returns (
    DIF_RES INTEGER)
AS
DECLARE variable EXIST_TAB INTEGER;
DECLARE variable CFLAG CHAR(1);
DECLARE variable NID_SRC bigint;
DECLARE variable CCODE_LPU CHAR(6);
DECLARE variable CVID_MP CHAR(2);
DECLARE variable CUSL_OK CHAR(2);
DECLARE variable CVOZR CHAR(2);
DECLARE variable CPROFIL CHAR(2);
DECLARE variable CCODE_USL CHAR(15);
DECLARE variable NTARIF numeric(10,2);
DECLARE variable NTARIF_D numeric(10,2);
DECLARE variable NTARIF_F numeric(10,2);
DECLARE variable NTARIF_1K numeric(10,2);
BEGIN
    DIF_RES = 0;
 
    IF (:STAGGMM=0) THEN
        DIF_RES=1;
        suspend;
    /* END IF */
    
    FUL_TMU = UPPER(TRIM(:FUL_TMU));
    EXECUTE PROCEDURE EX_TAB(:FUL_TMU) returning_values (:EXIST_TAB);
 
    IF (:EXIST_TAB=0) THEN  /* Cumulative TMU table does not exist */
        DIF_RES=2;
        suspend;
    /* END IF */
 
    CUR_TMU = UPPER(TRIM(:CUR_TMU));
    EXECUTE PROCEDURE EX_TAB(:CUR_TMU) returning_values (:EXIST_TAB);
 
    IF (:EXIST_TAB=0) THEN   /* Month TMU table does not exist */
        DIF_RES=3;
        suspend;
    /* END IF */
 
    TMP_TAB = UPPER(TRIM(:TMP_TAB));
    EXECUTE PROCEDURE EX_TAB(:TMP_TAB) returning_values (:EXIST_TAB);
 
    IF (:EXIST_TAB=0) THEN   /* Work table for Difference TMU Process does not exist */
        DIF_RES=4;
        suspend;
    /* END IF */
 
    FOR EXECUTE statement '       
    select 
        rpad(iif(FUL.YML=STAGGMM and FUL.YMH=0, ''Y'', ''C''), 1) as FLAG,                                          ;
        FUL.ID as ID_SRC,
        CUR.CODE_LPU as CODE_LPU,
        CUR.VID_MP as VID_MP,
        CUR.USL_OK as USL_OK,
        CUR.VOZR as VOZR,
        CUR.PROFIL as PROFIL,
        CUR.CODE_USL as CODE_USL,
        CUR.TARIF as TARIF,
        CUR.TARIF_D as TARIF_D,
        CUR.TARIF_F as TARIF_F,
        CUR.TARIF_1K as TARIF_1K
    from ' || CUR_TMU || ' CUR ' ||
   'inner join ' || FUL_TMU || ' FUL on
        (FUL.CODE_LPU || FUL.VID_MP || FUL.USL_OK || FUL.VOZR || FUL.PROFIL || FUL.CODE_USL = 
         CUR.CODE_LPU || CUR.VID_MP || CUR.USL_OK || CUR.VOZR || CUR.PROFIL || CUR.CODE_USL)
    where
        ( 
            (
                (FUL.YMH=0) and
                (FUL.YML<=STAGGMM)
            )
            or
            (
                (FUL.YMH<>0) and 
                (FUL.YML<=STAGGMM) and
                (STAGGMM<=FUL.YMH)
            )
        )
        and
        (
            (CUR.TARIF<>FUL.TARIF) or
            (CUR.TARIF_D<>FUL.TARIF_D) or
            (CUR.TARIF_1K<>FUL.TARIF_1K) or
            (CUR.TARIF_F<>FUL.TARIF_F)
        )'
    INTO :cFLAG,
         :nID_SRC,
         :cCODE_LPU,
         :cVID_MP,
         :cUSL_OK,
         :cVOZR,
         :cPROFIL,
         :cCODE_USL,
         :nTARIF,
         :nTARIF_D,
         :nTARIF_F,
         :nTARIF_1K
    
    DO
            EXECUTE statement '
            insert into ' || TMP_TAB ||
               '(FLAG,
                 ID_SRC,
                 CODE_LPU,
                 VID_MP,
                 USL_OK,
                 VOZR,
                 PROFIL,
                 CODE_USL,
                 TARIF,
                 TARIF_D,
                 TARIF_F,
                 TARIF_1K)
                     values
                (:cFLAG,
                 :nID_SRC,
                 :cCODE_LPU,
                 :cVID_MP,
                 :cUSL_OK,
                 :cVOZR,
                 :cPROFIL,
                 :cCODE_USL,
                 :nTARIF,
                 :nTARIF_D,
                 :nTARIF_F,
                 :nTARIF_1K)';
END