The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_LOCATION( p_location_id IN NUMBER
, p_resource_id IN NUMBER )
IS
BEGIN
g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
, 'Entering Insert_Location'
, 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_location_id
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving Insert_Location'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_LOCATION;
PROCEDURE UPDATE_LOCATION( p_location_id IN NUMBER )
IS
l_tab_resource_id dbms_sql.Number_Table;
, 'Entering Update_Location'
, 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_LOCATION;
PROCEDURE DELETE_LOCATION( p_location_id IN NUMBER
, p_resource_id IN NUMBER )
IS
BEGIN
g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
, 'Entering Delete_Location'
, 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_location_id
,P_RESOURCE_ID => p_resource_id
);
, 'Leaving Delete_Location'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_LOCATION;
/*Party site is changed so delete the old one ( basicly we lower the counter )*/
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_location_id
,P_RESOURCE_ID => p_resource_id
);
/*Insert the new party site*/
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_location_id
, P_RESOURCE_ID => p_resource_id
);
FUNCTION UPDATE_LOCATION_WFSUB( p_subscription_guid in raw
, p_event in out NOCOPY wf_event_t)
return varchar2
IS
l_key varchar2(240) := p_event.GetEventKey();
, 'Entering UPDATE_LOCATION_WFSUB'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
UPDATE_LOCATION(l_location_id);
, 'Leaving UPDATE_LOCATION_WFSUB'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
WF_CORE.CONTEXT('CSL_HZ_LOCATIONS_ACC_PKG', 'UPDATE_LOCATION_WFSUB', p_event.getEventName(), p_subscription_guid);
END UPDATE_LOCATION_WFSUB;