The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT audit_procedure_id, NAME, creation_date, requestor_id
FROM amw_audit_procedures_vl
WHERE audit_procedure_rev_id = p_ap_rev_id;
SELECT audit_procedure_id, NAME, creation_date,
requestor_id -- --s hould be a name
FROM amw_audit_procedures_vl
WHERE audit_procedure_rev_id = p_ap_rev_id;
SELECT SYSDATE
INTO l_approval_date
FROM DUAL;
SELECT audit_procedure_id, NAME, creation_date, requestor_id
FROM amw_audit_procedures_vl
WHERE audit_procedure_rev_id = p_ap_rev_id;
SELECT audit_procedure_id, NAME, creation_date,
requestor_id -- needs to be the name
FROM amw_audit_procedures_vl
WHERE audit_procedure_rev_id = p_ap_rev_id;
SELECT audit_procedure_id, NAME,
creation_date requestor_id -- needs to be the name
FROM amw_audit_procedures_vl
WHERE audit_procedure_rev_id = p_ap_rev_id;
SELECT audit_procedure_id, NAME, creation_date
FROM amw_audit_procedures_vl
WHERE audit_procedure_rev_id = p_ap_rev_id;
PROCEDURE update_ap_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_AP_Status';
l_update_status VARCHAR2 (12);
SELECT ap2.audit_procedure_rev_id
FROM amw_audit_procedures_b ap1, amw_audit_procedures_b ap2
WHERE ap1.audit_procedure_id = ap2.audit_procedure_id
AND ap1.audit_procedure_rev_id = p_ap_rev_id
AND ap2.curr_approved_flag = 'Y'
AND ap2.latest_revision_flag = 'N';
SAVEPOINT update_ap_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 AP object to 'A' -- Approved
l_approval_date := SYSDATE;
UPDATE amw_audit_procedures_b
SET approval_status = 'A',
object_version_number = object_version_number + 1,
curr_approved_flag = 'Y',
latest_revision_flag = 'Y',
approval_date = l_approval_date
WHERE audit_procedure_rev_id = l_ap_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_audit_procedures_b
SET object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'N',
end_date = l_approval_date
WHERE audit_procedure_rev_id = l_old_appr_ap_rev_id;
select audit_procedure_id into l_ap_id
from amw_audit_procedures_b
where audit_procedure_rev_id = l_ap_rev_id;
update amw_ap_associations
set approval_date = l_approval_date
where audit_procedure_id = l_ap_id
and object_type = 'CTRL'
and approval_date is null;
update amw_ap_associations
set deletion_approval_date = l_approval_date
where audit_procedure_id = l_ap_id
and object_type = 'CTRL'
and deletion_date is not null
and deletion_approval_date is null;
ELSIF (l_update_status = 'REJECTED') THEN
-- Update the status of the AP object to 'R' -- Rejected
IF l_old_appr_ap_rev_id IS NOT NULL THEN
UPDATE amw_audit_procedures_b
SET object_version_number = object_version_number + 1,
latest_revision_flag = 'Y'
WHERE audit_procedure_rev_id = l_old_appr_ap_rev_id;
UPDATE amw_audit_procedures_b
SET approval_status = 'R',
object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'N',
end_date = SYSDATE
WHERE audit_procedure_rev_id = l_ap_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_audit_procedures_b
SET approval_status = 'R',
object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'Y',
end_date = SYSDATE
WHERE audit_procedure_rev_id = l_ap_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_audit_procedures_b
SET approval_status = 'D',
object_version_number = object_version_number + 1
--curr_approved_flag = 'N',
--latest_revision_flag ='Y'
WHERE audit_procedure_rev_id = l_ap_rev_id
AND object_version_number = l_object_version_number;
amw_utility_pvt.debug_message(l_full_name || ' failed to update AP to status ' || l_status_code);
ROLLBACK TO update_ap_status;
END update_ap_status;