The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure SELECT_NEXT_APPROVER(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result in out NOCOPY varchar2)
is
tempApprover ame_util.approverRecord;
wf_core.context('CEBASIG', 'SELECT_NEXT_APPROVER',
itemtype, itemkey, to_char(actid), funcmode);
end SELECT_NEXT_APPROVER;
procedure UPDATE_SIGNATORY_HISTORY_APPR(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result in out NOCOPY varchar2)
is
begin
--
-- RUN mode - normal process execution
--
if (funcmode = 'RUN') then
G_signatory_id := WF_ENGINE.GetItemAttrNumber(
itemtype,
itemkey,
'SIGNATORY_ID');
ame_api.updateApprovalStatus2
(applicationIdIn => 260,
transactionIdIn => itemkey,
approvalstatusin =>'APPROVED',
approverpersonidIn => g_approver_person_id,
transactionTypeIn => 'CEBASIG',
forwardeeIn => ame_util.emptyApproverRecord);
Insert_history_record('APPROVED');
wf_core.context('CEBASIG', 'UPDATE_SIGNATORY_HISTORY_APPR',
itemtype, itemkey, to_char(actid), funcmode);
end UPDATE_SIGNATORY_HISTORY_APPR;
procedure UPDATE_SIGNATORY_HISTORY_REJ(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result in out NOCOPY varchar2)
is
begin
--
-- RUN mode - normal process execution
--
if (funcmode = 'RUN') then
G_signatory_id := WF_ENGINE.GetItemAttrNumber(
itemtype,
itemkey,
'SIGNATORY_ID');
Insert_history_record('REJECTED');
ame_api.updateApprovalStatus2
(applicationIdIn => 260,
transactionIdIn => itemkey,
approvalstatusin =>'REJECTED',
approverpersonidIn => g_approver_person_id,
transactionTypeIn => 'CEBASIG',
forwardeeIn => ame_util.emptyApproverRecord);
wf_core.context('CEBASIG', 'UPDATE_SIGNATORY_HISTORY_REJ',
itemtype, itemkey, to_char(actid), funcmode);
end UPDATE_SIGNATORY_HISTORY_REJ;
UPDATE ce_ba_signatories
SET status = 'APPROVED'
WHERE signatory_id = l_signatory_id;
UPDATE ce_ba_signatories
SET status = 'REJECTED'
WHERE signatory_id = l_signatory_id;
PROCEDURE selector(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
command in varchar2,
result in out NOCOPY varchar2)
IS
l_n_org_id number;
wf_core.context('CEBASIG', 'SELECTOR',
itemtype, itemkey, to_char(actid), command);
END selector;
PROCEDURE insert_history_record (p_action VARCHAR2)
IS
BEGIN
UPDATE ce_ba_signatory_hist_h
SET current_record_flag='N'
WHERE signatory_id = G_signatory_id;
CE_BA_SIGNATORY_HISTORY.insert_row
(X_rowid => G_rowid,
X_Signatory_id => G_signatory_id,
X_Signatory_History_id => G_signatory_history_id,
X_Approver_person_id => G_approver_person_id,
X_Action => p_action,
X_Current_record_flag => 'Y',
X_Last_Updated_By => FND_GLOBAL.user_id,
X_Last_Update_Date => sysdate,
X_Last_Update_Login => FND_GLOBAL.login_id,
X_Created_By => FND_GLOBAL.user_id,
X_Creation_Date => sysdate,
X_Attribute_category => null,
X_Attribute1 => null,
X_Attribute2 => null,
X_Attribute3 => null,
X_Attribute4 => null,
X_Attribute5 => null,
X_Attribute6 => null,
X_Attribute7 => null,
X_Attribute8 => null,
X_Attribute9 => null,
X_Attribute10 => null,
X_Attribute11 => null,
X_Attribute12 => null,
X_Attribute13 => null,
X_Attribute14 => null,
X_Attribute15 => null);
END insert_history_record;
SELECT basv.person_name, basv.single_limit_amount,
basv.joint_limit_amount,basv.other_limits,
basv.signer_group, basv.requester_id,
ba.bank_account_name, ba.bank_account_num,
ba.currency_code, bb.bank_branch_name,
basv.person_type, basv.person_job,
basv.person_location, basv.person_org_name,
basv.start_date, basv.end_date
INTO g_signatory_name, g_single_limit_amount,
g_joint_limit_amount, g_other_limits,
g_signer_group,g_requester_id,
g_bank_Account_name, g_bank_account_number,
g_currency_code, g_bank_branch_name,
g_person_type, g_person_job,
g_person_location, g_person_org_name,
g_start_Date, g_end_date
FROM ce_ba_signatories_v basv,
ce_bank_accts_gt_v ba, --ce_bank_accounts_v ba,
ce_bank_branches_v bb
WHERE basv.signatory_id = l_signatory_id
AND ba.bank_account_id = basv.bank_Account_id
AND bb.branch_party_id = ba.bank_branch_id;