The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT risk_id, NAME, creation_date, requestor_id
FROM amw_risks_all_vl
WHERE risk_rev_id = p_risk_rev_id;
SELECT risk_id, NAME, creation_date,
requestor_id -- --s hould be a name
FROM amw_risks_all_vl
WHERE risk_rev_id = p_risk_rev_id;
SELECT SYSDATE
INTO l_approval_date
FROM DUAL;
SELECT risk_id, NAME, creation_date, requestor_id
FROM amw_risks_all_vl
WHERE risk_rev_id = p_risk_rev_id;
SELECT risk_id, NAME, creation_date,
requestor_id -- needs to be the name
FROM amw_risks_all_vl
WHERE risk_rev_id = p_risk_rev_id;
SELECT risk_id, NAME,
creation_date requestor_id -- needs to be the name
FROM amw_risks_all_vl
WHERE risk_rev_id = p_risk_rev_id;
SELECT risk_id, NAME, creation_date
FROM amw_risks_all_vl
WHERE risk_rev_id = p_risk_rev_id;
PROCEDURE update_risk_status (
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
resultout OUT NOCOPY VARCHAR2
) IS
l_status_code VARCHAR2 (30);
l_api_name CONSTANT VARCHAR2 (30) := 'Update_risk_Status';
l_update_status VARCHAR2 (12);
SELECT risk2.risk_rev_id
FROM amw_risks_b risk1, amw_risks_b risk2
WHERE risk1.risk_id = risk2.risk_id
AND risk1.risk_rev_id = p_risk_rev_id
AND risk2.curr_approved_flag = 'Y'
AND risk2.latest_revision_flag = 'N';
SAVEPOINT update_risk_status;
l_update_status :=
wf_engine.getitemattrtext (itemtype => itemtype,
itemkey => itemkey,
aname => 'UPDATE_GEN_STATUS'
);
IF (l_update_status = 'APPROVED') THEN
-- Update the status of the Risk object to 'A' -- Approved
UPDATE amw_risks_b
SET approval_status = 'A',
object_version_number = object_version_number + 1,
curr_approved_flag = 'Y',
latest_revision_flag = 'Y',
approval_date = SYSDATE
WHERE risk_rev_id = l_risk_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_risks_b
SET object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'N',
end_date = SYSDATE
WHERE risk_rev_id = l_old_appr_risk_rev_id;
ELSIF (l_update_status = 'REJECTED') THEN
-- Update the status of the CTRL object to 'R' -- Rejected
IF l_old_appr_risk_rev_id IS NOT NULL THEN
UPDATE amw_risks_b
SET object_version_number = object_version_number + 1,
latest_revision_flag = 'Y'
WHERE risk_rev_id = l_old_appr_risk_rev_id;
UPDATE amw_risks_b
SET approval_status = 'R',
object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'N',
end_date = SYSDATE
WHERE risk_rev_id = l_risk_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_risks_b
SET approval_status = 'R',
object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'Y',
end_date = SYSDATE
WHERE risk_rev_id = l_risk_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_risks_b
SET approval_status = 'D',
object_version_number = object_version_number + 1
--curr_approved_flag = 'N',
--latest_revision_flag ='Y'
WHERE risk_rev_id = l_risk_rev_id
AND object_version_number = l_object_version_number;
amw_utility_pvt.debug_message(l_full_name || ' failed to update RISK to status ' || l_status_code);
ROLLBACK TO update_risk_status;
END update_risk_status;