The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT Control_id, name, creation_date,
requestor_id
FROM amw_Controls_all_vl
WHERE control_rev_id = p_CTRL_rev_id;
SELECT control_id, name, creation_date,
requestor_id -- --s hould be a name
FROM amw_controls_all_vl
WHERE control_rev_id = p_CTRL_rev_id;
SELECT SYSDATE
INTO l_approval_date
FROM DUAL;
SELECT control_id, name, creation_date, requestor_id
FROM amw_controls_all_vl
WHERE Control_rev_id = p_CTRL_rev_id;
SELECT control_id, name, creation_date,
requestor_id -- needs to be the name
FROM amw_controls_all_vl
WHERE control_rev_id = p_CTRL_rev_id;
SELECT control_id, name, creation_date
requestor_id -- needs to be the name
FROM amw_controls_all_vl
WHERE control_rev_id = p_CTRL_rev_id;
SELECT control_id, name, creation_date
FROM amw_controls_all_vl
WHERE control_rev_id = p_CTRL_rev_id;
PROCEDURE update_CTRL_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_CTRL_Status';
l_update_status VARCHAR2 (12);
SELECT CTRL2.Control_REV_ID
FROM amw_controls_b CTRL1 , amw_controls_b CTRL2
WHERE CTRL1.Control_id = CTRL2.control_id
AND CTRL1.control_rev_id = p_CTRL_rev_id
AND CTRL2.curr_approved_flag= 'Y' and CTRL2.latest_revision_flag = 'N' ;
SAVEPOINT update_CTRL_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 CTRL object to 'A' -- Approved
update amw_controls_b
set
approval_status = 'A',
object_version_number = object_version_number+1,
curr_approved_flag = 'Y',
latest_revision_flag ='Y' ,
approval_date = SYSDATE
where control_rev_id = l_CTRL_rev_id
and object_version_number = l_object_version_number;
update amw_controls_b
set
object_version_number = object_version_number+1,
curr_approved_flag = 'N',
latest_revision_flag ='N' ,
end_date = SYSDATE
where control_rev_id = l_old_appr_CTRL_rev_id;
ELSIF ( l_update_status = 'REJECTED' ) THEN
-- Update the status of the CTRL object to 'R' -- Rejected
IF l_old_appr_CTRL_rev_id IS NOT NULL THEN
UPDATE amw_controls_b
SET object_version_number = object_version_number + 1,
latest_revision_flag = 'Y'
WHERE control_rev_id = l_old_appr_CTRL_rev_id;
UPDATE amw_controls_b
SET approval_status = 'R',
object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'N',
end_date = SYSDATE
WHERE control_rev_id = l_CTRL_rev_id
AND object_version_number = l_object_version_number;
UPDATE amw_controls_b
SET approval_status = 'R',
object_version_number = object_version_number + 1,
curr_approved_flag = 'N',
latest_revision_flag = 'Y',
end_date = SYSDATE
WHERE control_rev_id = l_CTRL_rev_id
AND object_version_number = l_object_version_number;
update amw_controls_b
set
approval_status = 'R',
object_version_number = object_version_number+1,
curr_approved_flag = 'N',
latest_revision_flag ='N' ,
end_date = SYSDATE
where control_rev_id = l_CTRL_rev_id
and object_version_number = l_object_version_number ;
update amw_controls_b
set
object_version_number = object_version_number+1,
latest_revision_flag ='Y'
where control_rev_id = l_old_appr_CTRL_rev_id;
update amw_controls_b
set
approval_status = 'D',
object_version_number = object_version_number+1
--curr_approved_flag = 'N',
--latest_revision_flag ='Y'
where control_rev_id = l_CTRL_rev_id
and object_version_number = l_object_version_number ;
amw_utility_pvt.debug_message(l_full_name || ' failed to update CTRL to status ' || l_status_code);
ROLLBACK TO update_CTRL_status ;
END update_CTRL_status;