The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select cust_acc_rel_code
From pa_implementations;
SELECT related_cust_account_id
FROM hz_cust_acct_relate
WHERE cust_account_id = l_customer_id
AND bill_to_flag = 'Y'
AND status = 'A'
AND related_cust_account_id = l_bill_to_customer_id;
SELECT related_cust_account_id
FROM hz_cust_acct_relate
WHERE cust_account_id = l_customer_id
AND ship_to_flag = 'Y'
AND status = 'A'
AND related_cust_account_id = l_ship_to_customer_id;
SELECT enable_top_task_customer_flag
FROM pa_projects_all
WHERE project_id = p_project_id;
SELECT DATE_EFF_FUNDS_CONSUMPTION
FROM pa_projects_all
WHERE
project_id= p_project_id;
PROCEDURE UPDATE_PROJECT_CUSTOMER
( p_api_version IN NUMBER := 1.0
,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
,p_debug_mode IN VARCHAR2 := 'N'
,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
,p_project_id IN NUMBER
,p_customer_id IN NUMBER
,p_project_relationship_code IN VARCHAR2
,p_customer_bill_split IN NUMBER
,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
--,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_bill_another_project_flag IN VARCHAR2 := 'N' --Added by Aditi for tracking bug 4153629
,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
--Billing setup related changes for FP_M development. Tracking bug 3279981
,p_Default_Top_Task_Cust_Flag IN VARCHAR2
,p_en_top_task_cust_flag IN VARCHAR2 := 'N'
)
IS
l_api_name CONSTANT VARCHAR(30) := 'Update_Project_Customer';
Select cust_acc_rel_code
From pa_implementations;
SELECT related_cust_account_id
FROM hz_cust_acct_relate
WHERE cust_account_id = p_customer_id
AND bill_to_flag = 'Y'
AND status = 'A'
AND related_cust_account_id = l_bill_to_customer_id;
SELECT related_cust_account_id
FROM hz_cust_acct_relate
WHERE cust_account_id = p_customer_id
AND ship_to_flag = 'Y'
AND status = 'A'
AND related_cust_account_id = l_ship_to_customer_id;
SELECT project_currency_code
FROM pa_projects_all
WHERE project_id = c_project_id;
SELECT bill_to_customer_id, ship_to_customer_id
FROM pa_project_customers
WHERE project_id = p_project_id
AND customer_id = p_customer_id
AND record_version_number = p_record_version_number;
SELECT enable_top_task_customer_flag
FROM pa_projects_all
WHERE project_id = p_project_id;
SELECT DATE_EFF_FUNDS_CONSUMPTION
FROM pa_projects_all
WHERE
project_id= p_project_id;
pa_debug.init_err_stack('PA_CUSTOMERS_CONTACTS_PUB.Update_Project_Customer');
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Project_Customer BEGIN');
savepoint update_project_customer;
PA_CUSTOMERS_CONTACTS_PUB.DELETE_ALL_BILL_SHIP_CONTACTS(
P_API_VERSION => 1.0
,P_INIT_MSG_LIST => 'T'
, P_COMMIT => 'F'
, P_VALIDATE_ONLY => 'F'
, P_VALIDATION_LEVEL => 100
, P_DEBUG_MODE => 'N'
, P_MAX_MSG_COUNT => 100
, P_PROJECT_ID => P_PROJECT_ID
, P_CUSTOMER_ID => P_CUSTOMER_ID
, P_BILL_SHIP_CUSTOMER_ID => l_db_ship_to_customer_id
, P_PROJECT_CONTACT_TYPE_CODE=> 'SHIPPING'
, X_RETURN_STATUS => l_return_status
, X_MSG_COUNT => l_msg_count
, X_MSG_DATA => l_msg_data
);
PA_CUSTOMERS_CONTACTS_PUB.DELETE_ALL_BILL_SHIP_CONTACTS(
P_API_VERSION => 1.0
,P_INIT_MSG_LIST => 'T'
, P_COMMIT => 'F'
, P_VALIDATE_ONLY => 'F'
, P_VALIDATION_LEVEL => 100
, P_DEBUG_MODE => 'N'
, P_MAX_MSG_COUNT => 100
, P_PROJECT_ID => P_PROJECT_ID
, P_CUSTOMER_ID => P_CUSTOMER_ID
, P_BILL_SHIP_CUSTOMER_ID => l_db_bill_to_customer_id
, P_PROJECT_CONTACT_TYPE_CODE=> 'BILLING'
, X_RETURN_STATUS => l_return_status
, X_MSG_COUNT => l_msg_count
, X_MSG_DATA => l_msg_data
);
PA_CUSTOMERS_CONTACTS_PVT.UPDATE_PROJECT_CUSTOMER
( p_commit => FND_API.G_FALSE
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => p_debug_mode
,p_max_msg_count => p_max_msg_count
,p_project_id => p_project_id
,p_customer_id => p_customer_id
,p_project_relationship_code => p_project_relationship_code
,p_customer_bill_split => p_customer_bill_split
,p_bill_to_customer_id => l_bill_to_customer_id /* For Bug 2731449 */
,p_ship_to_customer_id => l_ship_to_customer_id /* For Bug 2731449 */
,p_bill_to_address_id => l_bill_to_address_id
,p_ship_to_address_id => l_ship_to_address_id
,p_inv_currency_code => nvl(l_inv_currency_code, l_project_currency_code)
,p_inv_rate_type => l_inv_rate_type
,p_inv_rate_date => p_inv_rate_date
,p_inv_exchange_rate => p_inv_exchange_rate
,p_allow_user_rate_type_flag => p_allow_user_rate_type_flag
,p_receiver_task_id => p_receiver_task_id
,p_bill_another_project_flag => p_bill_another_project_flag --Added by Aditi for tracking bug 4153629
,p_record_version_number => p_record_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
--Billing setup related changes for FP_M development. Tracking bug 3279981
,p_Default_Top_Task_Cust_Flag => p_Default_Top_Task_Cust_Flag );
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Project_Customer END');
rollback to update_project_customer;
rollback to update_project_customer;
p_procedure_name => 'Update_Project_Customer',
p_error_text => SUBSTRB(SQLERRM,1,240));
rollback to update_project_customer;
p_procedure_name => 'Update_Project_Customer',
p_error_text => SUBSTRB(SQLERRM,1,240));
END UPDATE_PROJECT_CUSTOMER;
PROCEDURE DELETE_PROJECT_CUSTOMER
( p_api_version IN NUMBER := 1.0
,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
,p_debug_mode IN VARCHAR2 := 'N'
,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
,p_project_id IN NUMBER
,p_customer_id IN NUMBER
,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_api_name CONSTANT VARCHAR(30) := 'Delete_Project_Customer';
pa_debug.init_err_stack('PA_CUSTOMERS_CONTACTS_PUB.Delete_Project_Customer');
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Project_Customer BEGIN');
savepoint delete_project_customer;
PA_CUSTOMERS_CONTACTS_PVT.DELETE_PROJECT_CUSTOMER
( p_commit => FND_API.G_FALSE
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => p_debug_mode
,p_max_msg_count => p_max_msg_count
,p_project_id => p_project_id
,p_customer_id => p_customer_id
,p_record_version_number => p_record_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data);
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Project_Customer END');
rollback to delete_project_customer;
rollback to delete_project_customer;
p_procedure_name => 'Delete_Project_Customer',
p_error_text => SUBSTRB(SQLERRM,1,240));
rollback to delete_project_customer;
p_procedure_name => 'Delete_Project_Customer',
p_error_text => SUBSTRB(SQLERRM,1,240));
END DELETE_PROJECT_CUSTOMER;
SELECT a.Address_id, su.Contact_id, su.site_use_code
FROM Ra_Addresses a,
Ra_Site_Uses su
WHERE a.Address_Id = su.Address_Id
AND Nvl(a.Status,'A') = 'A'
AND a.Customer_id = p_bill_ship_customer_id
AND Nvl(su.Status, 'A') = 'A'
AND su.primary_flag = 'Y'
AND su.site_use_code = l_site_use_code
AND su.Contact_id = p_contact_id;
SELECT a.Address_id, su.Contact_id, su.site_use_code
FROM Ra_Addresses a,
Ra_Site_Uses su
WHERE a.Address_Id = su.Address_Id
AND Nvl(a.Status,'A') = 'A'
AND a.Customer_id = p_customer_id
AND Nvl(su.Status, 'A') = 'A'
AND su.primary_flag = 'Y'
AND su.Contact_id = p_contact_id; */
SELECT 1 from dual
where exists (select c.contact_id
from ra_contacts c ,
ra_contact_roles cr ,
ra_addresses a
where c.contact_id = cr.contact_id
AND nvl(c.status, 'A') = 'A'
AND nvl(c.address_id, a.address_id) = a.address_id
and c.customer_id = p_bill_ship_customer_id
and cr.usage_code = l_site_use_code
and c.contact_id = p_contact_id);
SELECT 1 from dual
where exists (select c.contact_id
from ra_contacts c ,
ra_contact_roles cr ,
ra_addresses a
where c.contact_id = cr.contact_id
AND nvl(c.status, 'A') = 'A'
AND nvl(c.address_id, a.address_id) = a.address_id
and c.customer_id = p_customer_id
and c.contact_id = p_contact_id);
select bill_to_address_id into l_address_id from pa_project_customers where project_id = p_project_id and customer_id=p_customer_id;
select ship_to_address_id into l_address_id from pa_project_customers where project_id = p_project_id and customer_id=p_customer_id;
PROCEDURE UPDATE_CUSTOMER_CONTACT
( p_api_version IN NUMBER := 1.0
,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
,p_debug_mode IN VARCHAR2 := 'N'
,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
,p_project_id IN NUMBER
,p_customer_id IN NUMBER
,p_bill_ship_customer_id IN NUMBER
,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
,p_rowid IN VARCHAR2
,p_record_version_number IN NUMBER
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_api_name CONSTANT VARCHAR(30) := 'Update_Customer_Contact';
SELECT a.Address_id, su.Contact_id, su.site_use_code
FROM Ra_Addresses a,
Ra_Site_Uses su
WHERE a.Address_Id = su.Address_Id
AND Nvl(a.Status,'A') = 'A'
AND a.Customer_id = p_bill_ship_customer_id
AND Nvl(su.Status, 'A') = 'A'
AND su.primary_flag = 'Y'
AND su.site_use_code = l_site_use_code
AND su.Contact_id = p_contact_id;
SELECT a.Address_id, su.Contact_id, su.site_use_code
FROM Ra_Addresses a,
Ra_Site_Uses su
WHERE a.Address_Id = su.Address_Id
AND Nvl(a.Status,'A') = 'A'
AND a.Customer_id = p_customer_id
AND Nvl(su.Status, 'A') = 'A'
AND su.primary_flag = 'Y'
AND su.Contact_id = p_contact_id; */
SELECT 1 from dual
where exists (select c.contact_id
from ra_contacts c ,
ra_contact_roles cr ,
ra_addresses a
where c.contact_id = cr.contact_id
AND nvl(c.status, 'A') = 'A'
AND nvl(c.address_id, a.address_id) = a.address_id
and c.customer_id = p_bill_ship_customer_id
and cr.usage_code = l_site_use_code
and c.contact_id = p_contact_id);
SELECT 1 from dual
where exists (select c.contact_id
from ra_contacts c ,
ra_contact_roles cr ,
ra_addresses a
where c.contact_id = cr.contact_id
AND nvl(c.status, 'A') = 'A'
AND nvl(c.address_id, a.address_id) = a.address_id
and c.customer_id = p_customer_id
and c.contact_id = p_contact_id);
pa_debug.init_err_stack('PA_CUSTOMERS_CONTACTS_PUB.Update_Customer_Contact');
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Customer_Contact BEGIN');
savepoint update_customer_contact;
select bill_to_address_id into l_address_id from pa_project_customers where project_id = p_project_id and customer_id=p_customer_id;
select ship_to_address_id into l_address_id from pa_project_customers where project_id = p_project_id and customer_id=p_customer_id;
PA_CUSTOMERS_CONTACTS_PVT.UPDATE_CUSTOMER_CONTACT
( p_commit => FND_API.G_FALSE
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => p_debug_mode
,p_max_msg_count => p_max_msg_count
,p_project_id => p_project_id
,p_customer_id => p_customer_id
,p_bill_ship_customer_id => p_bill_ship_customer_id /* For Bug 2731449 */
,p_contact_id => l_contact_id
,p_project_contact_type_code => l_project_contact_type_code
,p_rowid => p_rowid
,p_record_version_number => p_record_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data);
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Customer_Contact END');
rollback to update_customer_contact;
rollback to update_customer_contact;
p_procedure_name => 'Update_Customer_Contact',
p_error_text => SUBSTRB(SQLERRM,1,240));
rollback to update_customer_contact;
p_procedure_name => 'Update_Customer_Contact',
p_error_text => SUBSTRB(SQLERRM,1,240));
END UPDATE_CUSTOMER_CONTACT;
PROCEDURE DELETE_CUSTOMER_CONTACT
( p_api_version IN NUMBER := 1.0
,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
,p_debug_mode IN VARCHAR2 := 'N'
,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
,p_project_id IN NUMBER
,p_customer_id IN NUMBER
,p_contact_id IN NUMBER
,p_project_contact_type_code IN VARCHAR2
,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_api_name CONSTANT VARCHAR(30) := 'Delete_Customer_Contact';
pa_debug.init_err_stack('PA_CUSTOMERS_CONTACTS_PUB.Delete_Customer_Contact');
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Customer_Contact BEGIN');
savepoint delete_customer_contact;
PA_CUSTOMERS_CONTACTS_PVT.DELETE_CUSTOMER_CONTACT
( p_commit => FND_API.G_FALSE
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => p_debug_mode
,p_max_msg_count => p_max_msg_count
,p_project_id => p_project_id
,p_customer_id => p_customer_id
,p_contact_id => p_contact_id
,p_project_contact_type_code => p_project_contact_type_code
,p_record_version_number => p_record_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data);
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Customer_Contact END');
rollback to delete_customer_contact;
rollback to delete_customer_contact;
p_procedure_name => 'Delete_Customer_Contact',
p_error_text => SUBSTRB(SQLERRM,1,240));
rollback to delete_customer_contact;
p_procedure_name => 'Delete_Customer_Contact',
p_error_text => SUBSTRB(SQLERRM,1,240));
END DELETE_CUSTOMER_CONTACT;
/* For Bug 2731449 created this api which gets all the contacts of passed contact type for customer passed and deletes them*/
-- API name : Delete_All_Bill_Ship_Contacts
-- Type : Private
-- Pre-reqs : None.
-- Parameters :
-- p_api_version IN NUMBER Required Default = 1.0
-- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
-- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
-- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
-- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
-- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
-- p_debug_mode IN VARCHAR2 Optional Default = 'N'
-- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
-- p_project_id IN NUMBER Required
-- p_customer_id IN NUMBER Required
-- p_bill_ship_customer_id IN NUMBER Required
-- p_project_contact_type_code IN VARCHAR2 Required
-- x_return_status OUT VARCHAR2 Required
-- x_msg_count OUT NUMBER Required
-- x_msg_data OUT VARCHAR2 Optional
PROCEDURE DELETE_ALL_BILL_SHIP_CONTACTS
( p_api_version IN NUMBER := 1.0
,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_debug_mode IN VARCHAR2 := 'N'
,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
,p_project_id IN NUMBER
,p_customer_id IN NUMBER
,p_bill_ship_customer_id IN NUMBER
,p_project_contact_type_code IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_api_name CONSTANT VARCHAR(30) := 'Delete_All_Bill_Ship_Contacts';
SELECT contact_id, record_version_number
FROM pa_project_contacts
WHERE project_id = c_project_id AND
customer_id = c_customer_id AND
bill_ship_customer_id = c_bill_ship_customer_id AND
project_contact_type_code = c_project_contact_type_code;
pa_debug.init_err_stack('PA_CUSTOMERS_CONTACTS_PUB.Delete_All_Bill_Ship_Contacts');
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PVT.Delete_All_BILL_SHIP_Contacts BEGIN');
savepoint delete_all_bill_ship_contacts;
PA_CUSTOMERS_CONTACTS_PVT.DELETE_CUSTOMER_CONTACT
( p_commit => FND_API.G_FALSE
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => 'FORM'
,p_debug_mode => p_debug_mode
,p_max_msg_count => p_max_msg_count
,p_project_id => p_project_id
,p_customer_id => p_customer_id
,p_contact_id => l_recinfo.contact_id
,p_project_contact_type_code => p_project_contact_type_code
,p_record_version_number => l_recinfo.record_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data);
pa_debug.debug('PA_CUSTOMERS_CONTACTS_PVT.Delete_All_BILL_SHIP_Contacts END');
rollback to delete_all_bill_ship_contacts;
rollback to delete_all_bill_ship_contacts;
p_procedure_name => 'Delete_All_Bill_Ship_Contacts',
p_error_text => SUBSTRB(SQLERRM,1,240));
END DELETE_ALL_BILL_SHIP_CONTACTS;