The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT party_id -- Fix for Sql Performance
FROM HZ_PARTIES
WHERE PARTY_ID = b_party_id;
PROCEDURE INSERT_ACC_RECORD( p_party_id IN NUMBER
, p_resource_id IN NUMBER )
IS
BEGIN
IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
jtm_message_log_pkg.Log_Msg
( p_party_id
, g_table_name
, 'Entering Insert_Acc_Record'
, 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_id
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving Insert_Acc_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_ACC_RECORD;
PROCEDURE UPDATE_ACC_RECORD( p_access_id IN NUMBER
, p_party_id IN NUMBER
, p_resource_id IN NUMBER )
IS
BEGIN
IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
jtm_message_log_pkg.Log_Msg
( p_party_id
, g_table_name
, 'Entering Update_Acc_Record'
, 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 => p_resource_id
, P_ACCESS_ID => p_access_id
);
, 'Leaving Update_Acc_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END UPDATE_ACC_RECORD;
PROCEDURE DELETE_ACC_RECORD( p_party_id IN NUMBER
, p_resource_id IN NUMBER )
IS
BEGIN
IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
jtm_message_log_pkg.Log_Msg
( p_party_id
, g_table_name
, 'Entering Delete_Acc_Record'
, 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_id
,P_RESOURCE_ID => p_resource_id
);
, 'Leaving Delete_Acc_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_ACC_RECORD;
PROCEDURE INSERT_PARTY( p_party_id IN NUMBER
, p_resource_id IN NUMBER
, p_flow_type IN NUMBER )--DEFAULT CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_NORMAL)
IS
l_return BOOLEAN;
, 'Entering Insert_Party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
INSERT_ACC_RECORD( p_party_id, p_resource_id );
l_return := CSL_JTF_NOTES_ACC_PKG.PRE_INSERT_CHILDREN
( P_SOURCE_OBJ_ID => p_party_id
, P_SOURCE_OBJ_CODE => 'PARTY'
, P_RESOURCE_ID => p_resource_id );
, 'Leaving Insert_Party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_PARTY;
PROCEDURE UPDATE_PARTY( p_party_id IN NUMBER )
IS
l_tab_resource_id dbms_sql.Number_Table;
, 'Entering Update_Party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
UPDATE_ACC_RECORD( p_access_id => l_tab_access_id(i)
, p_party_id => p_party_id
, p_resource_id => l_tab_resource_id(i));
, 'Leaving Update_Party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END UPDATE_PARTY;
PROCEDURE DELETE_PARTY( p_party_id IN NUMBER
, p_resource_id IN NUMBER
, p_flow_type IN NUMBER )--DEFAULT CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_NORMAL)
IS
BEGIN
g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
, 'Entering Delete_Party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
DELETE_ACC_RECORD( p_party_id, p_resource_id );
, 'Delete the notes for this party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
CSL_JTF_NOTES_ACC_PKG.POST_DELETE_CHILDREN( P_SOURCE_OBJ_ID => p_party_id
, P_SOURCE_OBJ_CODE => 'PARTY'
, P_RESOURCE_ID => p_resource_id );
, 'Leaving Delete_Party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_PARTY;
/*Party is changed so delete the old one ( basicly we lower the counter )*/
DELETE_ACC_RECORD( p_old_party_id, p_resource_id );
, 'Delete the notes for the old party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
/*Delete the matching notes*/
CSL_JTF_NOTES_ACC_PKG.POST_DELETE_CHILDREN( P_SOURCE_OBJ_ID => p_old_party_id
, P_SOURCE_OBJ_CODE => 'PARTY'
, P_RESOURCE_ID => p_resource_id );
/*Insert the new party*/
INSERT_ACC_RECORD( p_new_party_id, p_resource_id );
, 'Insert the notes for the new party'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
/*Insert the notes*/
l_return := CSL_JTF_NOTES_ACC_PKG.PRE_INSERT_CHILDREN
( P_SOURCE_OBJ_ID => p_new_party_id
, P_SOURCE_OBJ_CODE => 'PARTY'
, P_RESOURCE_ID => p_resource_id );
PROCEDURE PRE_INSERT_PARTY ( x_return_status OUT NOCOPY varchar2)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
PROCEDURE POST_INSERT_PARTY ( x_return_status OUT NOCOPY varchar2)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
PROCEDURE PRE_UPDATE_PARTY ( x_return_status OUT NOCOPY varchar2)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
PROCEDURE POST_UPDATE_PARTY ( x_return_status OUT NOCOPY varchar2)
IS
l_party_id NUMBER;
, 'Entering POST_UPDATE_PARTY'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
UPDATE_ACC_RECORD( p_access_id => l_tab_access_id(i)
, p_party_id => l_party_id
, p_resource_id => l_tab_resource_id(i));
, 'Leaving POST_UPDATE_PARTY'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
PROCEDURE PRE_DELETE_PARTY ( x_return_status OUT NOCOPY varchar2)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
PROCEDURE POST_DELETE_PARTY ( x_return_status OUT NOCOPY varchar2)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
FUNCTION UPDATE_PARTY_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_PARTY_WFSUB'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
UPDATE_PARTY(l_party_id);
, 'Leaving UPDATE_PARTY_WFSUB'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
WF_CORE.CONTEXT('CSL_HZ_PARTIES_ACC_PKG', 'UPDATE_PARTY_WFSUB', p_event.getEventName(), p_subscription_guid);
END UPDATE_PARTY_WFSUB;