The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_processed_metadata(p_import_vs IN VARCHAR2,
p_import_ag IN VARCHAR2,
p_import_icc IN VARCHAR2,
p_set_process_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_return_msg OUT NOCOPY VARCHAR2)
IS
l_proc_name VARCHAR2(30) := 'delete_processed_metadata';
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Entered delete_processed_metadata() ');
/* Delete Successfully processed records (process_status=7) for each of the entities */
IF (p_import_vs='Y') THEN
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Call EGO_VS_BULKLOAD_PVT.delete_processed_value_sets()');
EGO_VS_BULKLOAD_PVT.delete_processed_value_sets(p_set_process_id, x_return_status,x_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Returned from EGO_VS_BULKLOAD_PVT.delete_processed_value_sets() with return_status: '||x_return_status);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Call EGO_AG_BULKLOAD_PVT.delete_processed_attr_groups() ');
EGO_AG_BULKLOAD_PVT.delete_processed_attr_groups(p_set_process_id, x_return_status,x_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Returned from EGO_AG_BULKLOAD_PVT.delete_processed_attr_groups() with return_status: '||x_return_status);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Call EGO_ICC_BULKLOAD_PVT.delete_processed_icc() ');
EGO_ICC_BULKLOAD_PVT.delete_processed_icc(p_set_process_id, x_return_status,x_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Returned from EGO_ICC_BULKLOAD_PVT.delete_processed_icc() with return_status: '||x_return_status);
EGO_TA_BULKLOAD_PVT.delete_processed_trans_attrs(p_set_process_id, x_return_status,x_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Returned from EGO_TA_BULKLOAD_PVT.delete_processed_trans_attrs() with return_status: '||x_return_status);
EGO_PAGES_BULKLOAD_PVT.delete_processed_pages(p_set_process_id, x_return_status,x_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Returned from EGO_PAGES_BULKLOAD_PVT.delete_processed_pages() with return_status: '||x_return_status);
EGO_FUNCTIONS_BULKLOAD_PVT.delete_processed_functions(p_set_process_id, x_return_status,x_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Returned from EGO_FUNCTIONS_BULKLOAD_PVT.delete_processed_functions() with return_status: '||x_return_status);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Commit deleted data ');
/* if all records got successfully deleted then commit*/
COMMIT;
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Exit from delete_processed_metadata()');
END delete_processed_metadata;
FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
/* Delete successfully processed records if Delete Processed Records parameter is set*/
IF (p_del_proc_recs = 'Y') THEN
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||' inside If condition for p_del_proc_recs=Y');
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Call delete_processed_metadata() ');
delete_processed_metadata(p_import_vs, p_import_ag,p_import_icc,p_set_process_id, l_return_status,l_return_msg);
Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'returned from delete_processed_metadata() with return status: '||l_return_status);
SELECT a.*
FROM EGO_OBJECT_LOCK a
WHERE a.object_name = p_object_name
AND NVL(a.pk1_value, chr(0)) = NVL(p_pk1_value, chr(0))
AND NVL(a.pk2_value, chr(0)) = NVL(p_pk2_value, chr(0))
AND NVL(a.pk3_value, chr(0)) = NVL(p_pk3_value, chr(0))
AND NVL(a.pk4_value, chr(0)) = NVL(p_pk4_value, chr(0))
AND NVL(a.pk5_value, chr(0)) = NVL(p_pk5_value, chr(0))
AND a.lock_id = (
SELECT max(a.lock_id)
FROM EGO_OBJECT_LOCK a
WHERE a.object_name = p_object_name
AND NVL(a.pk1_value, chr(0)) = NVL(p_pk1_value, chr(0))
AND NVL(a.pk2_value, chr(0)) = NVL(p_pk2_value, chr(0))
AND NVL(a.pk3_value, chr(0)) = NVL(p_pk3_value, chr(0))
AND NVL(a.pk4_value, chr(0)) = NVL(p_pk4_value, chr(0))
AND NVL(a.pk5_value, chr(0)) = NVL(p_pk5_value, chr(0))
)
;
l_token_table.delete;
l_token_table.delete;
INSERT INTO EGO_OBJECT_LOCK
( lock_id,
object_name,
pk1_value,
pk2_value,
pk3_value,
pk4_value,
pk5_value,
locking_party_id,
lock_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES ( EGO_OBJECT_LOCK_S.NEXTVAL,
p_object_name,
p_pk1_value,
p_pk2_value,
p_pk3_value,
p_pk4_value,
p_pk5_value,
p_party_id,
'U', --- unlocked record is inserted
G_USER_ID,
l_sysdate,
G_USER_ID,
l_sysdate,
G_LOGIN_ID);
UPDATE EGO_OBJECT_LOCK l
SET l.lock_flag = 'U'
, l.last_updated_by = g_user_id
, l.last_update_date = l_sysdate
, l.last_update_login = g_login_id
WHERE l.object_name = p_object_name
AND NVL(l.pk1_value, chr(0)) = NVL(p_pk1_value, chr(0))
AND NVL(l.pk2_value, chr(0)) = NVL(p_pk2_value, chr(0))
AND NVL(l.pk3_value, chr(0)) = NVL(p_pk3_value, chr(0))
AND NVL(l.pk4_value, chr(0)) = NVL(p_pk4_value, chr(0))
AND NVL(l.pk5_value, chr(0)) = NVL(p_pk5_value, chr(0))
AND l.lock_id = ( SELECT max(a.lock_id)
FROM EGO_OBJECT_LOCK a
WHERE a.object_name = p_object_name
AND NVL(a.pk1_value, chr(0)) = NVL(p_pk1_value, chr(0))
AND NVL(a.pk2_value, chr(0)) = NVL(p_pk2_value, chr(0))
AND NVL(a.pk3_value, chr(0)) = NVL(p_pk3_value, chr(0))
AND NVL(a.pk4_value, chr(0)) = NVL(p_pk4_value, chr(0))
AND NVL(a.pk5_value, chr(0)) = NVL(p_pk5_value, chr(0))
)
;
SELECT Party_Name
INTO l_Party_Name
FROM HZ_PARTIES
WHERE party_Id= p_party_id;