Добрый вечер. Мне нужна помощь при создание процедуры кредит на основе процедуры дебит все таблицы и значение таблицы остается прежним. Просто я не понимаю как создать процедуру кредит как оно должно работать. Вот код процедуры дебит
Помогите пожалуйста

Procedure Debit(d_target_number varchar2, -- номер кары doc.target_number
d_transcurr varchar2, -- валюта doc.trans_curr
d_transamount varchar2, -- сумма doc.trans_amount
d_transdetails varchar2, -- назначение платежа doc.trans_details
d_transtype number, --тип транзакции doc.trans_type
d_id_afina varchar2, --id номера документа в Афине
d_posting_status out varchar2, -- статус документа doc.posting_status
d_doc_id out nocopy number,
d_return_code out nocopy varchar2) Is

vn_tt_id ows.dtype.recordid%TYPE;
mes_code ows.message_type.code%TYPE; --переменная для source_code для создания фин дока---Данияр
vr_cdoc ows.doc%ROWTYPE;
vn_docid ows.dtype.recordid%TYPE;
nvn_transamount ows.doc.trans_amount%type;
did varchar2(256); -- doc.id
n number(2); --номер документа в doc.id
begin
select count(id)
into N
from ows.doc d
where d.amnd_state = 'A'
and d.target_number = d_target_number
and d.trans_curr = d_transcurr
and d.trans_amount = d_transamount
and d.trans_details = d_transdetails
and d.trans_type = d_transtype
and d.reason_details = trim(d_id_afina);
if n <> 0 then
select max(d.id),
ows.xwdoc('RETURN_CODE', d.return_code), /*ows.xwdoc('POSTING_STATUS',*/
d.posting_status
into d_doc_id, d_return_code, d_posting_status
from ows.doc d
where d.amnd_state = 'A'
and d.target_number = d_target_number
and d.trans_curr = d_transcurr
and d.trans_amount = d_transamount
and d.trans_details = d_transdetails
and d.trans_type = d_transtype
and d.reason_details = trim(d_id_afina)
group by d.return_code, d.posting_status;
return;
end if;
begin
nvn_transamount := to_number(replace(d_transamount, ',', '.'));
exception
when others then
nvn_transamount := to_number(replace(d_transamount, '.', ','));
end;

begin
select tt.id
into vn_tt_id
from ows.trans_type tt
where tt.amnd_state = 'A'
and tt.id = d_transtype;
end;
---------------------- добавлен для того чтобы код был в переменной
begin
select mest.code
into mes_code
from ows.message_type mest
where mest.trans_type__oid = d_transtype
and mest.amnd_state = 'A'
and mest.s_cat = 'A'
----and mest.t_cat='A'
and mest.request_category = 'P';
exception
when others then
NULL;
end;

BEGIN

begin
---- create fin doc
ows.soft.start_simple('V20Z-3', 'DB Manager', Null);
ows.incd.cre_fin_doc(vn_tt_id,
d_target_number,
d_transcurr,
nvn_transamount,
d_transdetails,
vr_cdoc);
---vr_cdoc.T_CAT := 'A';
vr_cdoc.source_channel := 'B';
vr_cdoc.reason_details := d_id_afina;
vr_cdoc.source_code := mes_code;
VR_CDOC.REQUEST_CATEGORY := 'P';
vr_cdoc.source_reg_num := 'PAY00019000000000003';
vr_cdoc.rec_member_id := '0001';
vr_cdoc.source_member_id := 'PAY';
end;

insert into ows.doc values vr_cdoc;
vn_docid := ows.ORACLE_TRGSUPP.get_last_id;

UPDATE ows.doc
set TARGET_CHANNEL = 'v', S_CAT = 'A', T_CAT = 'C'
where id = vn_docid;
did := ows.incd.accept_doc(vn_docid);
commit;

select d.id,
ows.xwdoc('RETURN_CODE', d.return_code), /*ows.xwdoc('POSTING_STATUS',*/
d.posting_status
into d_doc_id, d_return_code, d_posting_status
from ows.doc d
where d.amnd_state = 'A'
and id = vn_docid;

commit;
ows.soft.finish_simple;
END;

exception
when others then
rollback;
ows.soft.finish_simple;
d_return_code := sqlerrm;

end Debit

Elic,
Не понял можешь объяснить нормально я знаю . Я в этом деле новичок просто