The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT PLA.location_id LOCATION_ID
, CSU.status STATUS
, RCR.resource_id RESOURCE_ID
FROM PO_LOCATION_ASSOCIATIONS_ALL PLA
, HZ_CUST_SITE_USES_ALL CSU
, HZ_CUST_ACCT_SITES_ALL CAS
, CSP_RS_CUST_RELATIONS RCR
, HZ_PARTY_SITES HPS
, HZ_LOCATIONS HZL
WHERE PLA.location_id = b_location_id
AND CSU.site_use_id = PLA.site_use_id
AND CSU.site_use_code = 'SHIP_TO'
AND CSU.cust_acct_site_id = CAS.cust_acct_site_id
AND CAS.cust_account_id = RCR.customer_id
AND CAS.party_site_id = HPS.party_site_id
AND HPS.location_id = HZL.location_id
AND PLA.LOCATION_ID = b_location_id;
PROCEDURE Insert_ACC_Record
( p_location_id IN NUMBER
)
IS
CURSOR c_location_ids (b_location_id NUMBER) IS
SELECT CSU.site_use_id CSU_ID
, CAS.cust_acct_site_id CAS_ID
, RCR.RS_CUST_RELATION_ID RCR_ID
, HPS.party_site_id HPS_ID
, RCR.RESOURCE_ID RESOURCE_ID
FROM PO_LOCATION_ASSOCIATIONS_ALL PLA
, HZ_CUST_SITE_USES_ALL CSU
, HZ_CUST_ACCT_SITES_ALL CAS
, CSP_RS_CUST_RELATIONS RCR
, HZ_PARTY_SITES HPS
WHERE PLA.location_id = b_location_id
AND CSU.site_use_id = PLA.site_use_id
AND CSU.site_use_code = 'SHIP_TO'
AND CSU.cust_acct_site_id = CAS.cust_acct_site_id
AND CAS.cust_account_id = RCR.customer_id
AND CAS.party_site_id = HPS.party_site_id
AND PLA.LOCATION_ID = b_location_id;
, 'Entering Insert_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Inserting ACC record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Insert ACC Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID ' || p_location_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
JTM_HOOK_UTIL_PKG.Insert_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_NUM_VALUE => r_location_ids.RCR_ID
, P_RESOURCE_ID => l_resource_id
);
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name2
, P_ACC_TABLE_NAME => g_acc_table_name2
, P_PK1_NAME => g_pk1_name2
, P_PK1_NUM_VALUE => r_location_ids.CAS_ID
, P_RESOURCE_ID => l_resource_id
);
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name3
, P_ACC_TABLE_NAME => g_acc_table_name3
, P_PK1_NAME => g_pk1_name3
, P_PK1_NUM_VALUE => r_location_ids.CSU_ID
, P_RESOURCE_ID => l_resource_id
);
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name4
, P_ACC_TABLE_NAME => g_acc_table_name4
, P_PK1_NAME => g_pk1_name4
, P_PK1_NUM_VALUE => p_location_id
, P_RESOURCE_ID => l_resource_id
);
CSL_HZ_PARTY_SITES_ACC_PKG.INSERT_PARTY_SITE( r_location_ids.HPS_ID, l_resource_id );
, 'Leaving Insert_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END Insert_ACC_Record;
PROCEDURE Update_ACC_Record
( p_location_id IN NUMBER
)
IS
CURSOR c_location_ids (b_location_id NUMBER) IS
SELECT CSU.site_use_id CSU_ID
, CAS.cust_acct_site_id CAS_ID
, RCR.RS_CUST_RELATION_ID RCR_ID
, HPS.party_site_id HPS_ID
, HZL.location_id HZL_ID
, RCR.resource_id RESOURCE_ID
FROM PO_LOCATION_ASSOCIATIONS_ALL PLA
, HZ_CUST_SITE_USES_ALL CSU
, HZ_CUST_ACCT_SITES_ALL CAS
, CSP_RS_CUST_RELATIONS RCR
, HZ_PARTY_SITES HPS
, HZ_LOCATIONS HZL
WHERE PLA.location_id = b_location_id
AND CSU.site_use_id = PLA.site_use_id
AND CSU.site_use_code = 'SHIP_TO'
AND CSU.cust_acct_site_id = CAS.cust_acct_site_id
AND CAS.cust_account_id = RCR.customer_id
AND CAS.party_site_id = HPS.party_site_id
AND HPS.location_id = HZL.location_id
AND PLA.LOCATION_ID = b_location_id;
, 'Entering Update_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Update ACC Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID '
|| p_location_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
JTM_HOOK_UTIL_PKG.Update_Acc
( g_publication_item_name1
,g_acc_table_name1
,l_resource_id
,l_rcr_acc_id
);
JTM_HOOK_UTIL_PKG.Update_Acc
( g_publication_item_name2
,g_acc_table_name2
,l_resource_id
,l_cas_acc_id
);
JTM_HOOK_UTIL_PKG.Update_Acc
( g_publication_item_name3
,g_acc_table_name3
,l_resource_id
,l_csu_acc_id
);
JTM_HOOK_UTIL_PKG.Update_Acc
( g_publication_item_name4
,g_acc_table_name4
,l_resource_id
,l_pla_acc_id
);
CSL_HZ_PARTY_SITES_ACC_PKG.UPDATE_PARTY_SITE( r_location_ids.HPS_ID );
CSL_HZ_LOCATIONS_ACC_PKG.UPDATE_LOCATION( r_location_ids.HZL_ID );
, 'Leaving Update_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END Update_ACC_Record;
/*** Private procedure that deletes assignment for resource from acc table ***/
PROCEDURE Delete_ACC_Record
( p_location_id IN NUMBER
,p_resource_id IN NUMBER
)
IS
CURSOR c_location_ids (b_location_id NUMBER) IS
SELECT CSU.site_use_id CSU_ID
, CAS.cust_acct_site_id CAS_ID
, RCR.RS_CUST_RELATION_ID RCR_ID
, HPS.party_site_id HPS_ID
, RCR.RESOURCE_ID RESOURCE_ID
FROM PO_LOCATION_ASSOCIATIONS_ALL PLA
, HZ_CUST_SITE_USES_ALL CSU
, HZ_CUST_ACCT_SITES_ALL CAS
, CSP_RS_CUST_RELATIONS RCR
, HZ_PARTY_SITES HPS
WHERE PLA.location_id = b_location_id
AND CSU.site_use_id = PLA.site_use_id
AND CSU.site_use_code = 'SHIP_TO'
AND CSU.cust_acct_site_id = CAS.cust_acct_site_id
AND CAS.cust_account_id = RCR.customer_id
AND CAS.party_site_id = HPS.party_site_id
AND PLA.LOCATION_ID = b_location_id;
, 'Entering Delete_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Delete ACC Record error: Could not find record for LOCATION_ID ' || p_location_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
, 'Delete CSP_RS_CUST_RELATIONS acc record for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_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_NUM_VALUE => r_location_ids.RCR_ID
, P_RESOURCE_ID => p_resource_id
);
, 'Delete HZ_CUST_ACCT_SITES_ALL acc record for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name2
, P_ACC_TABLE_NAME => g_acc_table_name2
, P_PK1_NAME => g_pk1_name2
, P_PK1_NUM_VALUE => r_location_ids.CAS_ID
, P_RESOURCE_ID => p_resource_id
);
, 'Delete HZ_CUST_SITE_USES_ALL acc record for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name3
, P_ACC_TABLE_NAME => g_acc_table_name3
, P_PK1_NAME => g_pk1_name3
, P_PK1_NUM_VALUE => r_location_ids.CSU_ID
, P_RESOURCE_ID => p_resource_id
);
, 'Delete PO_LOCATION_ASSOCIATIONS_ALL acc record for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name4
, P_ACC_TABLE_NAME => g_acc_table_name4
, P_PK1_NAME => g_pk1_name4
, P_PK1_NUM_VALUE => p_location_id
, P_RESOURCE_ID => p_resource_id
);
, 'Calling CSL_HZ_PARTY_SITES_ACC_PKG.Delete_Party_Site'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
CSL_HZ_PARTY_SITES_ACC_PKG.Delete_Party_Site( r_location_ids.HPS_ID, p_resource_id );
, 'Leaving Delete_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END Delete_ACC_Record;
/*** Called before location Insert ***/
PROCEDURE PRE_INSERT_SHIP_LOCATION
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
END PRE_INSERT_SHIP_LOCATION;
/*** Called after location Insert ***/
PROCEDURE POST_INSERT_SHIP_LOCATION
( x_return_status OUT NOCOPY varchar2
)
IS
l_location_id NUMBER;
, 'Entering POST_INSERT hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
/*** Insert record if applicable ***/
IF Replicate_Record(l_location_id) THEN
Insert_ACC_Record(l_location_id);
, 'Leaving POST_INSERT hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Caught exception in POST_INSERT hook:' || fnd_global.local_chr(10) || sqlerrm
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_LOCATIONS_ACC_PKG','POST_INSERT_SHIP_LOCATION',sqlerrm);
END POST_INSERT_SHIP_LOCATION;
/* Called before location Update */
PROCEDURE PRE_UPDATE_SHIP_LOCATION
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_LOCATIONS_ACC_PKG','PRE_UPDATE_SHIP_LOCATION',sqlerrm);
END PRE_UPDATE_SHIP_LOCATION;
/* Called after assignment Update */
PROCEDURE POST_UPDATE_SHIP_LOCATION
( x_return_status OUT NOCOPY varchar2
)
IS
l_location_id NUMBER;
, 'Entering POST_UPDATE hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
Update_ACC_Record(l_location_id);
, 'Leaving POST_UPDATE hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Caught exception in POST_UPDATE hook:' || fnd_global.local_chr(10) || sqlerrm
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
fnd_msg_pub.Add_Exc_Msg('CSL_JTF_TASKS_ACC_PKG','POST_UPDATE_SHIP_LOCATION',sqlerrm);
END POST_UPDATE_SHIP_LOCATION;
/* Called before assignment Delete */
PROCEDURE PRE_DELETE_SHIP_LOCATION
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
END PRE_DELETE_SHIP_LOCATION;
/* Called after assignment Delete */
PROCEDURE POST_DELETE_SHIP_LOCATION
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_LOCATIONS_ACC_PKG','POST_DELETE_SHIP_LOCATION',sqlerrm);
END POST_DELETE_SHIP_LOCATION;
PROCEDURE Delete_All_ACC_Records
( p_resource_id in NUMBER
, x_return_status OUT NOCOPY varchar2
)
IS
CURSOR c_location( b_resource_id NUMBER ) IS
SELECT PLA.LOCATION_ID
FROM PO_LOCATION_ASSOCIATIONS_ALL PLA
, HZ_CUST_SITE_USES_ALL CSU
, HZ_CUST_ACCT_SITES_ALL CAS
, CSP_RS_CUST_RELATIONS RCR
, HZ_PARTY_SITES HPS
WHERE CSU.site_use_id = PLA.site_use_id
AND CSU.site_use_code = 'SHIP_TO'
AND CSU.cust_acct_site_id = CAS.cust_acct_site_id
AND CAS.cust_account_id = RCR.customer_id
AND CAS.party_site_id = HPS.party_site_id
AND RCR.RESOURCE_ID = b_resource_id;
, 'Entering Delete_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
Delete_ACC_Record(r_location.location_id, p_resource_id );
, 'Leaving Delete_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_LOCATIONS_ACC_PKG','Delete_All_ACC_Records',sqlerrm);
END Delete_All_ACC_Records;
PROCEDURE Insert_All_ACC_Records
( p_resource_id in NUMBER
, x_return_status OUT NOCOPY varchar2
)
IS
CURSOR c_location( b_resource_id NUMBER ) IS
SELECT PLA.LOCATION_ID
FROM PO_LOCATION_ASSOCIATIONS_ALL PLA
, HZ_CUST_SITE_USES_ALL CSU
, HZ_CUST_ACCT_SITES_ALL CAS
, CSP_RS_CUST_RELATIONS RCR
, HZ_PARTY_SITES HPS
WHERE CSU.site_use_id = PLA.site_use_id
AND CSU.site_use_code = 'SHIP_TO'
AND CSU.cust_acct_site_id = CAS.cust_acct_site_id
AND CAS.cust_account_id = RCR.customer_id
AND CAS.party_site_id = HPS.party_site_id
AND RCR.RESOURCE_ID = b_resource_id;
, 'Entering Insert_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
Insert_ACC_Record(r_location.location_id);
, 'Leaving Insert_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_LOCATIONS_ACC_PKG','Insert_All_ACC_Records',sqlerrm);
END Insert_All_ACC_Records;