P8-ExchangeService/db/P_EXSQUEUE_BASE_INSERT.prc

63 lines
1.7 KiB
Plaintext

create or replace procedure P_EXSQUEUE_BASE_INSERT
(
DIN_DATE in date, -- Äàòà è âðåìÿ ïîñòàíîâêè â î÷åðåäü
SIN_AUTHID in varchar2, -- Ïîëüçîâàòåëü, ïîñòàâèâøèé â î÷åðåäü
NEXSSERVICEFN in number, -- Ññûëêà íà çàïèñü òàáëèöû "Ñåðâèñû îáìåíà (ôóíêöèè)"
DEXEC_DATE in date, -- Äàòà è âðåìÿ îáðàáîòêè
NEXEC_CNT in number, -- Êîëè÷åñòâî ïîïûòîê îáðàáîòêè
NEXEC_STATE in number, -- Ñòàòóñ îáðàáîòêè
SEXEC_MSG in varchar2, -- Ñîîáùåíèå îáðàáîòêè
BMSG in blob, -- Ñîîáùåíèå
BRESP in blob, -- Îòâåò
NEXSQUEUE in number, -- Ñâÿçàííàÿ ïîçèöèÿ î÷åðåäè
NLNK_COMPANY in number, -- Ñâÿçàííàÿ îðãàíèçàöèÿ
NLNK_DOCUMENT in number, -- Ñâÿçàííàÿ çàïèñü
SLNK_UNITCODE in varchar2, -- Ñâÿçàííûé ðàçäåë
SOPTIONS in varchar2, -- Ïàðàìåòðû
NRN out number -- Ðåãèñòðàöèîííûé íîìåð
)
as
begin
/* Ãåíåðàöèÿ ðåãèñòðàöèîííîãî íîìåðà */
NRN := GEN_ID;
/* Äîáàâëåíèå çàïèñè â òàáëèöó */
insert into EXSQUEUE
(RN,
IN_DATE,
IN_AUTHID,
EXSSERVICEFN,
EXEC_DATE,
EXEC_CNT,
EXEC_STATE,
EXEC_MSG,
MSG,
RESP,
EXSQUEUE,
LNK_COMPANY,
LNK_DOCUMENT,
LNK_UNITCODE,
MSG_ORIGINAL,
RESP_ORIGINAL,
OPTIONS)
values
(NRN,
DIN_DATE,
SIN_AUTHID,
NEXSSERVICEFN,
DEXEC_DATE,
NEXEC_CNT,
NEXEC_STATE,
SEXEC_MSG,
BMSG,
BRESP,
NEXSQUEUE,
NLNK_COMPANY,
NLNK_DOCUMENT,
SLNK_UNITCODE,
BMSG,
BRESP,
SOPTIONS);
end;
/