33 lines
1.1 KiB
SQL
33 lines
1.1 KiB
SQL
create or replace procedure P_EXSSERVICE_LOGOUT
|
|
(
|
|
NRN in number -- Ðåã. íîìåð çàïèñè ñåðâèñà îáìåíà
|
|
)
|
|
as
|
|
REXSSERVICE EXSSERVICE%rowtype; -- Çàïèñü ñåðâèñà îáìåíà
|
|
begin
|
|
/* Ñ÷èòûâàíèå çàïèñè */
|
|
REXSSERVICE := GET_EXSSERVICE_ID(NFLAG_SMART => 0, NRN => NRN);
|
|
|
|
/* Ôèêñàöèÿ íà÷àëà âûïîëíåíèÿ äåéñòâèÿ */
|
|
PKG_ENV.PROLOGUE(NCOMPANY => null,
|
|
NVERSION => null,
|
|
NCATALOG => REXSSERVICE.CRN,
|
|
SUNIT => 'EXSService',
|
|
SACTION => 'EXSSERVICE_LOGOUT',
|
|
STABLE => 'EXSSERVICE',
|
|
NDOCUMENT => REXSSERVICE.RN);
|
|
|
|
/* Áàçîâîå çàâåðøåíèå ñåàíñà */
|
|
P_EXSSERVICE_BASE_LOGOUT(NRN => REXSSERVICE.RN);
|
|
|
|
/* Ôèêñàöèÿ îêîí÷àíèÿ âûïîëíåíèÿ äåéñòâèÿ */
|
|
PKG_ENV.EPILOGUE(NCOMPANY => null,
|
|
NVERSION => null,
|
|
NCATALOG => REXSSERVICE.CRN,
|
|
SUNIT => 'EXSService',
|
|
SACTION => 'EXSSERVICE_LOGOUT',
|
|
STABLE => 'EXSSERVICE',
|
|
NDOCUMENT => REXSSERVICE.RN);
|
|
end;
|
|
/
|