The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_CONTACT_POINT( p_contact_point_id IN NUMBER
, p_resource_id IN NUMBER )
IS
l_table_name CONSTANT VARCHAR2(30) := 'HZ_CONTACT_POINTS';
, 'Entering INSERT_CONTACT_POINT'
, 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 => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => p_contact_point_id
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving INSERT_CONTACT_POINT'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_CONTACT_POINT;
PROCEDURE DELETE_CONTACT_POINT( p_contact_point_id IN NUMBER
, p_resource_id IN NUMBER )
IS
l_table_name CONSTANT VARCHAR2(30) := 'HZ_CONTACT_POINTS';
, 'Entering DELETE_CONTACT_POINT'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => p_contact_point_id
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving DELETE_CONTACT_POINT'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_CONTACT_POINT;
PROCEDURE INSERT_HZ_RELATIONSHIP( p_party_id IN NUMBER
, p_resource_id IN NUMBER )
IS
l_table_name CONSTANT VARCHAR2(30) := 'HZ_RELATIONSHIPS';
SELECT *
FROM HZ_RELATIONSHIPS
WHERE PARTY_ID = b_party_id
AND DIRECTIONAL_FLAG = 'F';
, 'Entering INSERT_HZ_RELATIONSHIP'
, 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 => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => r_relationship.relationship_id
, P_PK2_NAME => l_pk2_name
, p_PK2_CHAR_VALUE => 'F'
, P_RESOURCE_ID => p_resource_id
);
CSL_HZ_PARTIES_ACC_PKG.INSERT_PARTY( r_relationship.SUBJECT_ID, p_resource_id );
, 'Leaving INSERT_HZ_RELATIONSHIP'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_HZ_RELATIONSHIP;
PROCEDURE DELETE_HZ_RELATIONSHIP( p_party_id IN NUMBER
, p_resource_id IN NUMBER )
IS
l_table_name CONSTANT VARCHAR2(30) := 'HZ_RELATIONSHIPS';
SELECT *
FROM HZ_RELATIONSHIPS
WHERE PARTY_ID = b_party_id
AND DIRECTIONAL_FLAG = 'F';
, 'Entering DELETE_HZ_RELATIONSHIP'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => p_party_id
, P_PK2_NAME => l_pk2_name
, P_PK2_CHAR_VALUE => 'F'
, P_RESOURCE_ID => p_resource_id
);
/*Delete the matching party*/
CSL_HZ_PARTIES_ACC_PKG.INSERT_PARTY( r_relationship.SUBJECT_ID, p_resource_id );
, 'Leaving DELETE_HZ_RELATIONSHIP'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_HZ_RELATIONSHIP;
PROCEDURE INSERT_CS_HZ_SR_CONTACTS( p_incident_id IN NUMBER
, p_resource_id IN NUMBER
, p_flow_type IN NUMBER )--DEFAULT CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_NORMAL)
IS
CURSOR c_contacts( b_incident_id NUMBER
, b_resource_id NUMBER)
IS
SELECT CHS.*
FROM CS_HZ_SR_CONTACT_POINTS CHS
WHERE CHS.INCIDENT_ID = b_incident_id
AND CHS.SR_CONTACT_POINT_ID NOT IN (
SELECT CCA.SR_CONTACT_POINT_ID
FROM CSL_CS_HZ_SR_CONTACT_PTS_ACC CCA
WHERE CCA.RESOURCE_ID = b_resource_id
);
SELECT CCA.*
FROM CSL_CS_HZ_SR_CONTACT_PTS_ACC CCA
WHERE CCA.RESOURCE_ID = b_resource_id
AND CCA.SR_CONTACT_POINT_ID NOT IN (
SELECT CHS.SR_CONTACT_POINT_ID
FROM CS_HZ_SR_CONTACT_POINTS CHS
--WHERE CHS.INCIDENT_ID = b_incident_id
);
, 'Entering INSERT_CS_HZ_SR_CONTACTS'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
/*** Insert contact point ACC record ***/
FOR r_contact IN c_contacts( b_incident_id => p_incident_id, b_resource_id => p_resource_id ) LOOP
IF p_flow_type = CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_NORMAL OR (
p_flow_type = CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_HISTORY AND
r_contact.PRIMARY_FLAG = 'Y' ) THEN
IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
jtm_message_log_pkg.Log_Msg
( r_contact.SR_CONTACT_POINT_ID
, l_table_name
, '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 => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => r_contact.SR_CONTACT_POINT_ID
, P_RESOURCE_ID => p_resource_id
);
/*Insert the contact point record*/
IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
jtm_message_log_pkg.Log_Msg
( r_contact.SR_CONTACT_POINT_ID
, l_table_name
, 'Calling Insert_Contact_point for contact'||r_contact.CONTACT_POINT_ID
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
/*Insert the contact point record*/
INSERT_CONTACT_POINT( r_contact.CONTACT_POINT_ID, p_resource_id );
'Calling the CSL_HZ_PARTIES_ACC_PKG.INSERT_PARTY'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
CSL_HZ_PARTIES_ACC_PKG.INSERT_PARTY( r_contact.PARTY_ID , p_resource_id );
'Calling INSERT_HZ_RELATIONSHIP'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
INSERT_HZ_RELATIONSHIP( r_contact.PARTY_ID, p_resource_id );
'Calling INSERT_PER_ALL_PEOPLE_F'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
INSERT_PER_ALL_PEOPLE_F( r_contact.PARTY_ID, p_resource_id );
/*Delete all contacts in the acc table for this incident that are no longer valid*/
FOR r_obsolete IN c_obsolete_contacts( b_incident_id => p_incident_id, b_resource_id => p_resource_id ) LOOP
IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
jtm_message_log_pkg.Log_Msg
( r_obsolete.SR_CONTACT_POINT_ID
, l_table_name
, 'Deleting contact record '||r_obsolete.SR_CONTACT_POINT_ID||fnd_global.local_chr(10)||
'for resource '||p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => r_obsolete.SR_CONTACT_POINT_ID
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving INSERT_CS_HZ_SR_CONTACTS'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_CS_HZ_SR_CONTACTS;
PROCEDURE DELETE_CS_HZ_SR_CONTACTS( p_incident_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_table_name CONSTANT VARCHAR2(30) := 'CS_HZ_SR_CONTACT_POINTS';
SELECT CHS.*
FROM CS_HZ_SR_CONTACT_POINTS CHS
WHERE CHS.INCIDENT_ID = b_incident_id
AND CHS.SR_CONTACT_POINT_ID IN (
SELECT CCA.SR_CONTACT_POINT_ID
FROM CSL_CS_HZ_SR_CONTACT_PTS_ACC CCA
WHERE CCA.RESOURCE_ID = b_resource_id
);
, 'Entering DELETE_CS_HZ_SR_CONTACTS'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
/*Delete the records from incident-contact mapping table*/
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => r_contact.SR_CONTACT_POINT_ID
, P_RESOURCE_ID => p_resource_id
);
/*Delete the real contacts*/
DELETE_CONTACT_POINT( r_contact.CONTACT_POINT_ID, p_resource_id );
CSL_HZ_PARTIES_ACC_PKG.DELETE_PARTY( r_contact.PARTY_ID , p_resource_id );
DELETE_HZ_RELATIONSHIP( r_contact.PARTY_ID, p_resource_id );
DELETE_PER_ALL_PEOPLE_F( r_contact.PARTY_ID, p_resource_id );
, 'Leaving DELETE_CS_HZ_SR_CONTACTS'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_CS_HZ_SR_CONTACTS;
PROCEDURE INSERT_PER_ALL_PEOPLE_F( p_person_id IN NUMBER
, p_resource_id IN NUMBER )
IS
CURSOR c_per_all_people(b_person_id NUMBER) IS
SELECT EFFECTIVE_START_DATE , EFFECTIVE_END_DATE
FROM PER_ALL_PEOPLE_F
WHERE PERSON_ID = b_person_id;
, 'Entering INSERT_PER_ALL_PEOPLE_F'
, 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 => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => p_person_id
, P_PK2_NAME => l_pk2_name
, P_PK2_DATE_VALUE => r_per_all_people.EFFECTIVE_START_DATE
, P_PK3_NAME => l_pk3_name
, P_PK3_DATE_VALUE => r_per_all_people.EFFECTIVE_END_DATE
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving INSERT_PER_ALL_PEOPLE_F'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END INSERT_PER_ALL_PEOPLE_F;
PROCEDURE DELETE_PER_ALL_PEOPLE_F ( p_person_id IN NUMBER
, p_resource_id IN NUMBER )
IS
CURSOR c_per_all_people(b_person_id NUMBER) IS
SELECT EFFECTIVE_START_DATE , EFFECTIVE_END_DATE
FROM PER_ALL_PEOPLE_F
WHERE PERSON_ID = b_person_id;
, 'Entering DELETE_PER_ALL_PEOPLE_F'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_PK1_NAME => l_pk1_name
, P_PK1_NUM_VALUE => p_person_id
, P_PK2_NAME => l_pk2_name
, P_PK2_DATE_VALUE => r_per_all_people.EFFECTIVE_START_DATE
, P_PK3_NAME => l_pk3_name
, P_PK3_DATE_VALUE => r_per_all_people.EFFECTIVE_END_DATE
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving DELETE_PER_ALL_PEOPLE_F'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END DELETE_PER_ALL_PEOPLE_F;
FUNCTION UPDATE_CONTACT_POINT_WFSUB( p_subscription_guid in raw
, p_event in out NOCOPY wf_event_t)
return varchar2
IS
l_table_name CONSTANT VARCHAR2(30) := 'HZ_CONTACT_POINTS';
, 'Entering UPDATE_CONTACT_POINT_WFSUB'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Update_Acc
( P_PUBLICATION_ITEM_NAMES => l_publication_item_name
, P_ACC_TABLE_NAME => l_acc_table_name
, P_RESOURCE_ID => l_tab_resource_id(i)
, P_ACCESS_ID => l_tab_access_id(i)
);
, 'Leaving UPDATE_CONTACT_POINT_WFSUB'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
WF_CORE.CONTEXT('CSL_PARTY_CONTACTS_ACC_PKG', 'UPDATE_CONTACT_POINT_WFSUB', p_event.getEventName(), p_subscription_guid);
END UPDATE_CONTACT_POINT_WFSUB;