The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_PARTY_SITE( p_party_site_id IN NUMBER
, p_resource_id IN NUMBER )
IS
CURSOR c_party_site( b_party_site_id NUMBER ) IS
SELECT *
FROM HZ_PARTY_SITES
WHERE party_site_id = b_party_site_id;
, 'Entering Insert_Party_Site'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Inserting ACC record for resource_id = '||p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
, P_ACC_TABLE_NAME => g_acc_table_name
, P_PK1_NAME => g_pk1_name
, P_PK1_NUM_VALUE => p_party_site_id
, P_RESOURCE_ID => p_resource_id
);
/*Insert the matching location*/
OPEN c_party_site( b_party_site_id => p_party_site_id );
CSL_HZ_LOCATIONS_ACC_PKG.INSERT_LOCATION( p_location_id => r_party_site.location_id
, p_resource_id => p_resource_id );
, 'Leaving Insert_Party_Site'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_PARTY_SITE;
PROCEDURE UPDATE_PARTY_SITE( p_party_site_id IN NUMBER )
IS
l_tab_resource_id dbms_sql.Number_Table;
, 'Entering Update_Party_Site'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Update_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
,P_ACC_TABLE_NAME => g_acc_table_name
,P_RESOURCE_ID => l_tab_resource_id(i)
,P_ACCESS_ID => l_tab_access_id(i)
);
END UPDATE_PARTY_SITE;
PROCEDURE DELETE_PARTY_SITE( p_party_site_id IN NUMBER
, p_resource_id IN NUMBER )
IS
CURSOR c_party_site( b_party_site_id NUMBER ) IS
SELECT *
FROM HZ_PARTY_SITES
WHERE party_site_id = b_party_site_id;
, 'Entering Delete_Party_Site'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
,P_ACC_TABLE_NAME => g_acc_table_name
,P_PK1_NAME => g_pk1_name
,P_PK1_NUM_VALUE => p_party_site_id
,P_RESOURCE_ID => p_resource_id
);
/*Delete the matching location*/
OPEN c_party_site( b_party_site_id => p_party_site_id );
CSL_HZ_LOCATIONS_ACC_PKG.DELETE_LOCATION( p_location_id => r_party_site.location_id
, p_resource_id => p_resource_id );
, 'Leaving Delete_Party_Site'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_PARTY_SITE;
SELECT *
FROM HZ_PARTY_SITES
WHERE party_site_id = b_party_site_id;
/*Party site is changed so delete the old one ( basicly we lower the counter )*/
IF p_old_party_site_id IS NOT NULL THEN
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
,P_ACC_TABLE_NAME => g_acc_table_name
,P_PK1_NAME => g_pk1_name
,P_PK1_NUM_VALUE => p_old_party_site_id
,P_RESOURCE_ID => p_resource_id
);
/*Delete the matching location*/
OPEN c_party_site( b_party_site_id => p_old_party_site_id );
CSL_HZ_LOCATIONS_ACC_PKG.DELETE_LOCATION( p_location_id => r_party_site.location_id
, p_resource_id => p_resource_id );
/*Insert the new party site*/
IF p_new_party_site_id IS NOT NULL THEN
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
, P_ACC_TABLE_NAME => g_acc_table_name
, P_PK1_NAME => g_pk1_name
, P_PK1_NUM_VALUE => p_new_party_site_id
, P_RESOURCE_ID => p_resource_id
);
/*Insert the matching location*/
OPEN c_party_site( b_party_site_id => p_new_party_site_id );
CSL_HZ_LOCATIONS_ACC_PKG.INSERT_LOCATION( p_location_id => r_party_site.location_id
, p_resource_id => p_resource_id );