The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* procedure name: Update_Party */
/* description : procedure used to update */
/* a party in TCA */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_person_rec Person Information */
/* p_org_rec Organization Info */
/* p_party_type 'PERSON' or 'ORGANIZATION' */
/* p_obj_ver_num Last version for party */
/* x_obj_ver_num New Last version for party */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_Party
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_person_rec IN HZ_PARTY_V2PUB.person_rec_type,
p_org_rec IN HZ_PARTY_V2PUB.organization_rec_type,
p_party_type IN VARCHAR2,
p_obj_ver_num IN NUMBER,
x_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Party';
SAVEPOINT Update_Party_Pvt;
Update_Person( p_api_version => 1.0,
p_commit => FND_API.G_FALSE,
p_init_msg_list => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_person_rec => p_person_rec,
p_obj_ver_num => p_obj_ver_num,
x_obj_ver_num => x_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csd_gen_utility_pvt.ADD('Update_Person failed ');
Update_Organization( p_api_version => 1.0,
p_commit => FND_API.G_FALSE,
p_init_msg_list => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_org_rec => p_org_rec,
p_obj_ver_num => p_obj_ver_num,
x_obj_ver_num => x_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csd_gen_utility_pvt.ADD('Update_Organization failed ');
ROLLBACK TO Update_Party_Pvt;
ROLLBACK TO Update_Party_Pvt;
ROLLBACK TO Update_Party_Pvt;
END Update_Party;
/* procedure name: Update_Person */
/* description : procedure used to update */
/* a person in TCA */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_person_rec Person Information */
/* p_obj_ver_num Last version for person */
/* x_obj_ver_num New Last version for person */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_Person
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_person_rec IN HZ_PARTY_V2PUB.person_rec_type,
p_obj_ver_num IN NUMBER,
x_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Create_Relationship';
SAVEPOINT Update_Person_Pvt;
HZ_PARTY_V2PUB.Update_Person(
p_init_msg_list => FND_API.G_FALSE,
p_person_rec => p_person_rec,
p_party_object_version_number => x_obj_ver_num,
x_profile_id => l_profile_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csd_gen_utility_pvt.ADD('Update_Person failed ');
ROLLBACK TO Update_Person_Pvt;
ROLLBACK TO Update_Person_Pvt;
ROLLBACK TO Update_Person_Pvt;
END Update_Person;
/* procedure name: Update_Organization */
/* description : procedure used to update */
/* an organization in TCA */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_org_rec Organization Info */
/* p_obj_ver_num Last version num for org */
/* x_obj_ver_num New Last version num for org */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_Organization
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_org_rec IN HZ_PARTY_V2PUB.organization_rec_type,
p_obj_ver_num IN NUMBER,
x_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Create_Relationship';
SAVEPOINT Update_Organization_Pvt;
HZ_PARTY_V2PUB.Update_Organization(
p_init_msg_list => FND_API.G_FALSE,
p_organization_rec => p_org_rec,
p_party_object_version_number => x_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_profile_id => l_profile_id
);
csd_gen_utility_pvt.ADD('Update_Organization failed ');
ROLLBACK TO Update_Organization_Pvt;
ROLLBACK TO Update_Organization_Pvt;
ROLLBACK TO Update_Organization_Pvt;
END Update_Organization;
/* procedure name: Update_Account */
/* description : procedure used to update */
/* an account for a party */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_cust_acct_rec Account Info */
/* p_obj_ver_num Last version num for account */
/* x_obj_ver_num New Last version num for account */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_Account
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_cust_acct_rec IN HZ_CUST_ACCOUNT_V2PUB.cust_account_rec_type,
p_obj_ver_num IN NUMBER,
x_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Account';
SAVEPOINT Update_Account_Pvt;
HZ_CUST_ACCOUNT_V2PUB.Update_Cust_Account(
p_init_msg_list => FND_API.G_FALSE,
p_cust_account_rec => p_cust_acct_rec,
p_object_version_number => x_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csd_gen_utility_pvt.ADD('Update_Account failed ');
ROLLBACK TO Update_Account_Pvt;
ROLLBACK TO Update_Account_Pvt;
ROLLBACK TO Update_Account_Pvt;
END Update_Account;
/* procedure name: Update_ContactPoints */
/* description : procedure used to update */
/* contact points for a party */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_phone_rec Phone Info */
/* p_email_rec Email Info */
/* p_web_rec Web Info */
/* p_phone_cnt_point_id ID of phone contact point */
/* p_email_cnt_point_id ID of email contact point */
/* p_url_cnt_point_id ID of url contact point */
/* p_phone_obj_ver_num Last version num for phone */
/* p_email_obj_ver_num Last version num for email */
/* p_url_obj_ver_num Last version num for url */
/* p_update_phone_flag 'Y' to update phone contact point */
/* p_update_email_flag 'Y' to update email contact point */
/* p_update_url_flag 'Y' to update url contact point */
/* x_phone_obj_ver_num New Last version num for phone */
/* x_email_obj_ver_num New Last version num for email */
/* x_url_obj_ver_num New Last version num for url */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_ContactPoints
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_phone_rec IN HZ_CONTACT_POINT_V2PUB.phone_rec_type,
p_email_rec IN HZ_CONTACT_POINT_V2PUB.email_rec_type,
p_web_rec IN HZ_CONTACT_POINT_V2PUB.web_rec_type,
p_phone_cnt_point_id IN NUMBER,
p_email_cnt_point_id IN NUMBER,
p_url_cnt_point_id IN NUMBER,
p_phone_obj_ver_num IN NUMBER,
p_email_obj_ver_num IN NUMBER,
p_url_obj_ver_num IN NUMBER,
p_update_phone_flag IN VARCHAR2,
p_update_email_flag IN VARCHAR2,
p_update_url_flag IN VARCHAR2,
x_phone_obj_ver_num OUT NOCOPY NUMBER,
x_email_obj_ver_num OUT NOCOPY NUMBER,
x_url_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_ContactPoints';
l_phone_update_rec HZ_CONTACT_POINT_V2PUB.phone_rec_type
:= CSD_PROCESS_PVT.get_phone_rec_type;
l_email_update_rec HZ_CONTACT_POINT_V2PUB.email_rec_type
:= CSD_PROCESS_PVT.get_email_rec_type;
l_web_update_rec HZ_CONTACT_POINT_V2PUB.web_rec_type
:= CSD_PROCESS_PVT.get_web_rec_type;
l_edi_update_rec HZ_CONTACT_POINT_V2PUB.edi_rec_type
:= CSD_PROCESS_PVT.get_edi_rec_type;
l_telex_update_rec HZ_CONTACT_POINT_V2PUB.telex_rec_type
:= CSD_PROCESS_PVT.get_telex_rec_type;
l_contpt_update_rec HZ_CONTACT_POINT_V2PUB.contact_point_rec_type
:= CSD_PROCESS_PVT.get_contact_points_rec_type;
SAVEPOINT Update_ContactPoints_Pvt;
IF (p_update_phone_flag = 'Y') THEN
l_contpt_update_rec.contact_point_type := 'PHONE';
l_contpt_update_rec.owner_table_name := 'HZ_PARTIES';
l_contpt_update_rec.contact_point_id := p_phone_cnt_point_id;
HZ_CONTACT_POINT_V2PUB.Update_contact_point(
p_init_msg_list => FND_API.G_FALSE,
p_contact_point_rec => l_contpt_update_rec,
p_edi_rec => l_edi_update_rec,
p_email_rec => l_email_update_rec,
p_phone_rec => p_phone_rec,
p_telex_rec => l_telex_update_rec,
p_web_rec => l_web_update_rec,
p_object_version_number => x_phone_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csd_gen_utility_pvt.ADD('Update_contact_points phone failed ');
IF (p_update_email_flag = 'Y') THEN
l_contpt_update_rec.contact_point_type := 'EMAIL';
l_contpt_update_rec.owner_table_name := 'HZ_PARTIES';
l_contpt_update_rec.contact_point_id := p_email_cnt_point_id;
HZ_CONTACT_POINT_V2PUB.Update_contact_point(
p_init_msg_list => FND_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_contact_point_rec => l_contpt_update_rec,
p_edi_rec => l_edi_update_rec,
p_phone_rec => l_phone_update_rec,
p_email_rec => p_email_rec,
p_telex_rec => l_telex_update_rec,
p_web_rec => l_web_update_rec,
p_object_version_number => x_email_obj_ver_num
);
csd_gen_utility_pvt.ADD('Update_contact_points email failed ');
IF (p_update_url_flag = 'Y') THEN
l_contpt_update_rec.contact_point_type := 'WEB';
l_contpt_update_rec.owner_table_name := 'HZ_PARTIES';
l_contpt_update_rec.contact_point_id := p_url_cnt_point_id;
HZ_CONTACT_POINT_V2PUB.Update_contact_point(
p_init_msg_list => FND_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_contact_point_rec => l_contpt_update_rec,
p_edi_rec => l_edi_update_rec,
p_phone_rec => l_phone_update_rec,
p_email_rec => l_email_update_rec,
p_telex_rec => l_telex_update_rec,
p_web_rec => p_web_rec,
p_object_version_number => x_url_obj_ver_num
);
csd_gen_utility_pvt.ADD('Update_contact_points url failed ');
ROLLBACK TO Update_ContactPoints_Pvt;
ROLLBACK TO Update_ContactPoints_Pvt;
ROLLBACK TO Update_ContactPoints_Pvt;
END Update_ContactPoints;
/* procedure name: Update_AddressRecords */
/* description : procedure used to update */
/* an address record in TCA */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_location_id Location ID, if it already exists */
/* p_loc_rec Location */
/* p_addr_obj_ver_num Last version of the location */
/* p_site_obj_ver_num Last version of the site */
/* x_party_site_rec Site */
/* x_addr_obj_ver_num New Last version of the location */
/* x_site_obj_ver_num New Last version of the site */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_AddressRecords
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_location_id IN NUMBER := null,
p_loc_rec IN CSD_PROCESS_PVT.address_rec_type,
p_addr_obj_ver_num IN NUMBER,
p_site_obj_ver_num IN NUMBER,
x_party_site_rec IN OUT NOCOPY HZ_PARTY_SITE_V2PUB.party_site_rec_type,
x_addr_obj_ver_num OUT NOCOPY NUMBER,
x_site_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_AddressRecords';
SAVEPOINT Update_AddressRecords_Pvt;
Update_Address ( p_api_version => 1.0,
p_commit => FND_API.G_FALSE,
p_init_msg_list => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_address_rec => p_loc_rec,
p_obj_ver_num => p_addr_obj_ver_num,
x_obj_ver_num => x_addr_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
csd_gen_utility_pvt.ADD('Update_Address failed ');
HZ_PARTY_SITE_V2PUB.Update_Party_Site (
p_init_msg_list => FND_API.G_FALSE,
p_party_site_rec => x_party_site_rec,
p_object_version_number => x_site_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csd_gen_utility_pvt.ADD('Update_Party_Site failed ');
ROLLBACK TO Update_AddressRecords_Pvt;
ROLLBACK TO Update_AddressRecords_Pvt;
ROLLBACK TO Update_AddressRecords_Pvt;
END Update_AddressRecords;
/* procedure name: Update_Address */
/* description : procedure used to update */
/* a location in TCA */
/* */
/* p_api_version Standard IN param */
/* p_commit Standard IN param */
/* p_init_msg_list Standard IN param */
/* p_validation_level Standard IN param */
/* p_address_rec Location to create */
/* p_obj_ver_num Last version of the location */
/* prior to calling this procedure */
/* x_obj_ver_num Last version of the location */
/* after completing this procedure */
/* x_return_status Standard OUT param */
/* x_msg_count Standard OUT param */
/* x_msg_data Standard OUT param */
/* */
/*----------------------------------------------------------------*/
PROCEDURE Update_Address
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_address_rec IN CSD_PROCESS_PVT.address_rec_type,
p_obj_ver_num IN NUMBER,
x_obj_ver_num OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Address';
SAVEPOINT Update_Address_Pvt;
HZ_LOCATION_V2PUB.update_location (
p_init_msg_list => FND_API.G_FALSE,
p_location_rec => l_location_rec,
p_object_version_number => x_obj_ver_num,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
csd_gen_utility_pvt.ADD('update_location failed ');
ROLLBACK TO Update_Address_Pvt;
ROLLBACK TO Update_Address_Pvt;
ROLLBACK TO Update_Address_Pvt;
END Update_Address;