Duvida Procedure para Somar o Total por Forma de Pagamento

CREATE PROCEDURE sp_caixa_total (
    datamov date)
returns (
    FormaPgto varchar(45),
    TotalCredito numeric(18,2),
    TotalDebito numeric(18,2))
as
declare variable credito numeric(18,2);
declare variable debito numeric(18,2);
declare variable Forma varchar(45);
BEGIN
    for
    select
        vw_caixa.fpgto_descricao
    from
        vw_caixa
    where
      cast(vw_caixa.data_cad as date) =  :DataMov
    into :FormaPgto
    do
    FOR
    select
        /*(+)  ||*/ vw_caixa.fpgto_descricao ,
        coalesce(sum(vw_caixa.cx_valor_pago),0)
    from
        vw_caixa
    where
      vw_caixa.cx_operacao = (+) CREDITO and
      cast(vw_caixa.data_cad as date) =  :DataMov
      group by vw_caixa.fpgto_descricao
    
   INTO :Forma,
        :TotalCredito
    DO
 /* BEGIN
    SUSPEND;
  END  */
  for
    select
        /*(--)  ||*/ vw_caixa.fpgto_descricao ,
        coalesce(sum(vw_caixa.cx_valor_pago),0)
    from
        vw_caixa
    where
      vw_caixa.cx_operacao = (--) DEBITO and
      cast(vw_caixa.data_cad as date) =  :DataMov
      group by vw_caixa.fpgto_descricao
    INTO :Forma,
         :TotalDebito
  DO
    credito = 0;
    debito = 0;
  BEGIN

    if (Forma  = :FormaPgto) then
        credito = :TotalCredito;
    else
        debito = TotalDebito;

    SUSPEND;
  END
END