The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_mtl_sec_inventory( p_user_id NUMBER
, p_subinventory_code VARCHAR2
, p_organization_id NUMBER)
IS
l_sqlerrno varchar2(20);
CSM_UTIL_PKG.LOG('Entering CSM_MTL_SEC_INV_EVENT_PKG.insert_mtl_sec_inventory ',
'CSM_MTL_SEC_INV_EVENT_PKG.insert_mtl_sec_inventory',FND_LOG.LEVEL_PROCEDURE);
CSM_ACC_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_SEQ_NAME => g_acc_sequence_name1
,P_PK1_NAME => g_pk1_name1
,P_PK1_CHAR_VALUE => p_subinventory_code
,P_PK2_NAME => g_pk2_name1
,P_PK2_NUM_VALUE => p_organization_id
,P_USER_ID => p_user_id
);
CSM_UTIL_PKG.LOG('Leaving CSM_MTL_SEC_INV_EVENT_PKG.insert_mtl_sec_inventory ',
'CSM_MTL_SEC_INV_EVENT_PKG.insert_mtl_sec_inventory',FND_LOG.LEVEL_PROCEDURE);
CSM_UTIL_PKG.LOG('Exception in CSM_MTL_SEC_INV_EVENT_PKG.insert_mtl_sec_inventory: ' || l_sqlerrno || ':' || l_sqlerrmsg,
'CSM_MTL_SEC_INV_EVENT_PKG.insert_mtl_sec_inventory', FND_LOG.LEVEL_EXCEPTION);
END insert_mtl_sec_inventory;
PROCEDURE update_mtl_sec_inventory( p_user_id NUMBER
, p_subinventory_code VARCHAR2
, p_organization_id NUMBER)
IS
l_sqlerrno varchar2(20);
CSM_UTIL_PKG.LOG('Entering CSM_MTL_SEC_INV_EVENT_PKG.update_mtl_sec_inventory ',
'CSM_MTL_SEC_INV_EVENT_PKG.update_mtl_sec_inventory',FND_LOG.LEVEL_PROCEDURE);
CSM_ACC_PKG.Update_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_ACCESS_ID => l_access_id
,P_USER_ID => p_user_id
);
CSM_UTIL_PKG.LOG('Leaving CSM_MTL_SEC_INV_EVENT_PKG.update_mtl_sec_inventory ',
'CSM_MTL_SEC_INV_EVENT_PKG.update_mtl_sec_inventory',FND_LOG.LEVEL_PROCEDURE);
CSM_UTIL_PKG.LOG('Exception in CSM_MTL_SEC_INV_EVENT_PKG.update_mtl_sec_inventory: ' || l_sqlerrno || ':' || l_sqlerrmsg,
'CSM_MTL_SEC_INV_EVENT_PKG.update_mtl_sec_inventory', FND_LOG.LEVEL_EXCEPTION);
END update_mtl_sec_inventory;
PROCEDURE delete_mtl_sec_inventory( p_user_id NUMBER
, p_subinventory_code VARCHAR2
, p_organization_id NUMBER)
IS
l_sqlerrno varchar2(20);
CSM_UTIL_PKG.LOG('Entering CSM_MTL_SEC_INV_EVENT_PKG.delete_mtl_sec_inventory ',
'CSM_MTL_SEC_INV_EVENT_PKG.delete_mtl_sec_inventory',FND_LOG.LEVEL_PROCEDURE);
CSM_ACC_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_PK1_NAME => g_pk1_name1
,P_PK1_CHAR_VALUE => p_subinventory_code
,P_PK2_NAME => g_pk2_name1
,P_PK2_NUM_VALUE => p_organization_id
,P_USER_ID => p_user_id
);
CSM_UTIL_PKG.LOG('Leaving CSM_MTL_SEC_INV_EVENT_PKG.delete_mtl_sec_inventory ',
'CSM_MTL_SEC_INV_EVENT_PKG.delete_mtl_sec_inventory',FND_LOG.LEVEL_PROCEDURE);
CSM_UTIL_PKG.LOG('Exception in CSM_MTL_SEC_INV_EVENT_PKG.delete_mtl_sec_inventory: ' || l_sqlerrno || ':' || l_sqlerrmsg,
'CSM_MTL_SEC_INV_EVENT_PKG.delete_mtl_sec_inventory', FND_LOG.LEVEL_EXCEPTION);
END delete_mtl_sec_inventory;
l_prog_update_date jtm_con_request_data.last_run_date%TYPE;
SELECT nvl(last_run_date, (sysdate - 365*50))
FROM jtm_con_request_data
WHERE package_name = 'CSM_MTL_SEC_INV_EVENT_PKG'
AND procedure_name = 'REFRESH_ACC';
SELECT acc.access_id, acc.user_id
FROM mtl_secondary_inventories msi,
csm_mtl_sec_inv_acc acc
WHERE msi.secondary_inventory_name = acc.secondary_inventory_name
AND msi.organization_id = acc.organization_id
AND msi.last_update_date >= p_last_upd_date;
FETCH l_last_run_date_csr INTO l_prog_update_date;
FOR r_upd_mtl_sec_inv_rec IN l_upd_mtl_sec_inv_csr(l_prog_update_date) LOOP
l_mark_dirty := CSM_UTIL_PKG.MakeDirtyForUser(g_pub_item,
r_upd_mtl_sec_inv_rec.access_id,
r_upd_mtl_sec_inv_rec.user_id,
ASG_DOWNLOAD.UPD,
l_run_date);
UPDATE jtm_con_request_data
SET last_run_date = l_run_date
WHERE package_name = 'CSM_MTL_SEC_INV_EVENT_PKG'
AND procedure_name = 'REFRESH_ACC';