Поделитесь процедурой переноса выплат между расчетами

Если не трудно)

и со мной, если такое вообще возможно

Это будет смена расчета для выплат. Сменить не сложно, но надо учитывать ситуации, если по выплатам уже созданы ведомости, то менять и в ведомостях.
И смысл менять какой? может можно обойтись другим способом?

create or replace procedure udo_change_slcal_in_slpays
(
 nCOMPANY       number,    -- Организация-владелец
 nIDENT         number,    -- RN исполнения
 sCALCTYPETO    varchar2   -- Вид расчета куда переносить, должен быть уже заведен
)
as
  nCALCULATION    PKG_STD.tREF;
  nCALCULATIONTO  PKG_STD.tREF;
  nCALCTYPE       PKG_STD.tREF;
  nCALCTYPETO     PKG_STD.tREF;
  nYEAR           number;
  nMONTH          number; 
  nCNT            number;

begin

nCALCTYPE := PKG_SLCALCWAGES.GET_VAR_NUM('CALCTYPE', nCALCTYPE);
  nCALCULATION := PKG_SLCALCWAGES.GET_VAR_NUM('CALCULATION', nCALCULATION);
  nMONTH := PKG_SLCALCWAGES.GET_VAR_NUM('CALCMONTH', nMONTH);
  nYEAR := PKG_SLCALCWAGES.GET_VAR_NUM('CALCYEAR', nYEAR);

/* поиск записи вида расчета */
  FIND_SLCALCTYPE_CODE(0, 0, nCOMPANY, sCALCTYPETO, nCALCTYPETO);
  /* поиск записи расчета */
  FIND_SLCALCULAT_CODE(0, 0, nCOMPANY, sCALCTYPETO, nYEAR, nMONTH, nCALCULATIONTO);

select count(*) into nCNT from v_SLPAYS s 
  where s.nclnpspfm = nIDENT and s.nyear = nYEAR and s.nmonth = nMONTH 
  and s.nslcalculat = nCALCULATION and s.nslcalctype = nCALCTYPE
  and s.spaysheet is not null;

--p_exception(0, nIDENT);
--p_exception(0, nCALCTYPETO);
--p_exception(0, nCALCULATION);
--p_exception(0, nCALCULATIONTO);

if nCNT > 0 then
    p_exception(0, 'Есть включенные в ведомость начисления, сначала расформируйте ведомости!');
    return;
  end if;

execute immediate 'ALTER TRIGGER T_SLPAYS_BUPDATE DISABLE';

update slpays s set s.slcalculat = nCALCULATIONTO, s.slcalctype = nCALCTYPETO 
  where s.clnpspfm = nIDENT 
        and s.year = nYEAR and s.month = nMONTH 
        and s.slcalculat = nCALCULATION and s.slcalctype = nCALCTYPE;

execute immediate 'ALTER TRIGGER T_SLPAYS_BUPDATE ENABLE';
    
end;

Пусть лежит