forked from CITKParus/P8-ExchangeService
57 lines
2.0 KiB
Plaintext
57 lines
2.0 KiB
Plaintext
create or replace package UDO_PKG_EXS_ATOL as
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
|
|
procedure PROCESS_BILL_SEND_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
);
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
|
|
procedure PROCESS_BILL_PRINT_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
);
|
|
|
|
end;
|
|
/
|
|
create or replace package body UDO_PKG_EXS_ATOL as
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
|
|
procedure PROCESS_BILL_SEND_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
)
|
|
is
|
|
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
|
|
begin
|
|
/* Ñ÷èòàåì çàïèñü î÷åðåäè */
|
|
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE);
|
|
/* Ðàçáèðàåì îòâåò */
|
|
null;
|
|
end PROCESS_BILL_SEND_RESP;
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
|
|
procedure PROCESS_BILL_PRINT_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
)
|
|
is
|
|
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
|
|
begin
|
|
/* Ñ÷èòàåì çàïèñü î÷åðåäè */
|
|
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE);
|
|
/* Ðàçáèðàåì îòâåò */
|
|
null;
|
|
end PROCESS_BILL_PRINT_RESP;
|
|
|
|
end;
|
|
/
|