P8-ExchangeService/db/P_EXSSERVICE_BASE_DELETE_LNK.prc

create or replace procedure P_EXSSERVICE_BASE_DELETE_LNK
(
  NRN                       in number,          -- Ðåãèñòðàöèîííûé íîìåð
  NDLT_LINK_SIGN            in number           -- Óäàëèòü ñâÿçàííûå çàïèñè æóðíàëà ðàáîòû ñåðâèñà èíòåãðàöèè è î÷åðåäè îáìåíà
)
as
begin
  /* Óäàëåíèå ñâÿçàííûõ çàïèñåé î÷åðåäè îáìåíà */
  for REC in (select T.RN
                from EXSQUEUE T
               where T.EXSSERVICEFN in (select T1.RN from EXSSERVICEFN T1 where T1.PRN = NRN)
                 and NDLT_LINK_SIGN = 1)
  loop
    /* Ïðîâåðêà íà ñóùåñòâîâàíèå çàïèñè */
    for REC_CHECK in (select 1 from EXSQUEUE T1 where T1.RN = REC.RN)
    loop
      /* Áàçîâîå óäàëåíèå ñ çàâèñèìîñòÿìè */
      P_EXSQUEUE_BASE_DELETE_LNK(NRN => REC.RN, NDLT_LINK_SIGN => NDLT_LINK_SIGN);
    end loop;
  end loop;

  /* Óäàëåíèå ñâÿçàííûõ çàïèñåé æóðíàëà ðàáîòû */
  for REC in (select T.RN
                from EXSLOG T
               where T.EXSSERVICE = NRN
                 and NDLT_LINK_SIGN = 1)
  loop
    P_EXSLOG_BASE_DELETE(NRN => REC.RN);
  end loop;

  /* Óäàëåíèå ôóíêöèé ñ çàâèñèìîñòÿìè */
  for REC in (select T.RN from EXSSERVICEFN T where T.PRN = NRN)
  loop
    P_EXSSERVICEFN_BASE_DELETE_LNK(NRN => REC.RN, NDLT_LINK_SIGN => NDLT_LINK_SIGN);
  end loop;

  /* Áàçîâîå óäàëåíèå */
  P_EXSSERVICE_BASE_DELETE(NRN => NRN);
end;
/