The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_action_history(
p_doc_id_tbl IN po_tbl_number
, p_doc_type_tbl IN po_tbl_varchar30
, p_action_code IN VARCHAR2
, p_employee_id IN NUMBER
DEFAULT NULL
)
IS
l_proc_name CONSTANT VARCHAR2(30) := 'UPDATE_ACTION_HISTORY';
UPDATE PO_ACTION_HISTORY POAH
SET
POAH.last_update_date = SYSDATE
, POAH.last_updated_by = l_user_id
, POAH.action_code = p_action_code
, POAH.action_date = SYSDATE
, POAH.employee_id = NVL(l_employee_id, POAH.employee_id)
, POAH.note = NULL
, POAH.offline_code =
DECODE( POAH.offline_code
, 'PRINTED', 'PRINTED'
, NULL
)
, POAH.last_update_login = l_login_id
WHERE POAH.object_id = p_doc_id_tbl(i)
AND POAH.object_type_code = p_doc_type_tbl(i)
AND POAH.action_code IS NULL
;
END update_action_history;
PROCEDURE insert_action_history(
p_doc_id_tbl IN po_tbl_number
, p_doc_type_tbl IN po_tbl_varchar30
, p_doc_subtype_tbl IN po_tbl_varchar30
, p_doc_revision_num_tbl IN po_tbl_number
, p_action_code_tbl IN po_tbl_varchar30
, p_employee_id IN NUMBER
DEFAULT NULL
)
IS
l_proc_name CONSTANT VARCHAR2(30) := 'INSERT_ACTION_HISTORY';
INSERT INTO PO_ACTION_HISTORY
( object_id
, object_type_code
, object_sub_type_code
, sequence_num
, last_update_date
, last_updated_by
, creation_date
, created_by
, action_code
, action_date
, employee_id
, object_revision_num
, last_update_login
, program_update_date
)
SELECT
p_doc_id_tbl(i)
, p_doc_type_tbl(i)
, p_doc_subtype_tbl(i)
, NVL(MAX(POAH.sequence_num),-1) + 1
, SYSDATE
, l_user_id
, SYSDATE
, l_user_id
, p_action_code_tbl(i)
, SYSDATE
, l_employee_id
, p_doc_revision_num_tbl(i)
, l_login_id
, SYSDATE
FROM
PO_ACTION_HISTORY POAH
WHERE POAH.object_id = p_doc_id_tbl(i)
AND POAH.object_type_code = p_doc_type_tbl(i)
;
END insert_action_history;
SELECT
HR.employee_id
INTO
x_employee_id
FROM
FND_USER FND
, HR_EMPLOYEES_CURRENT_V HR
WHERE FND.user_id = x_user_id
AND FND.employee_id = HR.employee_id
;