The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE create_or_update_tca_phone
( p_owner_table_id IN NUMBER ,
p_owner_table_name IN VARCHAR2 ,
p_country_code IN VARCHAR2 ,
p_area_code IN VARCHAR2 ,
p_number IN VARCHAR2 ,
p_extension IN VARCHAR2 ,
--Start Bug 6620664
p_phone_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
--End Bug 6620664
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
CURSOR l_cur IS
SELECT contact_point_id, object_version_number,
phone_number, phone_area_code, phone_extension
FROM hz_contact_points
WHERE owner_table_name = p_owner_table_name
AND owner_table_id = p_owner_table_id
AND contact_point_type = 'PHONE'
AND phone_line_type = 'GEN'
AND primary_flag = 'Y'
AND status = 'A' ;
hz_contact_point_v2pub.update_contact_point
(p_init_msg_list => fnd_api.g_false,
p_contact_point_rec => l_contact_points_rec,
p_phone_rec => l_phone_rec,
p_object_version_number => l_rec.object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_prefix => 'call hz_contact_point_v2pub.update_contact_point',
p_return_status => x_return_status,
p_msg_count => x_msg_count,
p_msg_data => x_msg_data
);
END create_or_update_tca_phone;
PROCEDURE create_or_update_tca_fax
( p_owner_table_id IN NUMBER ,
p_owner_table_name IN VARCHAR2 ,
p_country_code IN VARCHAR2 ,
p_area_code IN VARCHAR2 ,
p_number IN VARCHAR2 ,
p_extension IN VARCHAR2 ,
--Start Bug 6620664
p_fax_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
--End Bug 6620664
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
CURSOR l_cur IS
SELECT contact_point_id, object_version_number, phone_number,
phone_area_code, phone_extension
FROM hz_contact_points
WHERE owner_table_name = p_owner_table_name
AND owner_table_id = p_owner_table_id
AND contact_point_type = 'PHONE'
AND phone_line_type = 'FAX'
AND status = 'A' ;
hz_contact_point_v2pub.update_contact_point
(p_init_msg_list => fnd_api.g_false,
p_contact_point_rec => l_contact_points_rec,
p_phone_rec => l_phone_rec,
p_object_version_number => l_rec.object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END create_or_update_tca_fax;
PROCEDURE create_or_update_tca_email
( p_owner_table_id IN NUMBER,
p_owner_table_name IN VARCHAR2,
p_email_address IN VARCHAR2,
--Start Bug 6620664
p_email_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
--End Bug 6620664
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
CURSOR l_cur IS
SELECT contact_point_id, object_version_number, email_address
FROM hz_contact_points
WHERE owner_table_name = p_owner_table_name
AND owner_table_id = p_owner_table_id
AND contact_point_type = 'EMAIL'
AND primary_flag = 'Y'
AND status = 'A';
hz_contact_point_v2pub.update_contact_point
(p_init_msg_list => fnd_api.g_false,
p_contact_point_rec => l_contact_points_rec,
p_email_rec => l_email_rec,
p_object_version_number => l_rec.object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END create_or_update_tca_email;
PROCEDURE update_party_phone
( p_party_id IN NUMBER
, p_country_code IN VARCHAR2
, p_area_code IN VARCHAR2
, p_number IN VARCHAR2
, p_extension IN VARCHAR2
--Start Bug 6620664
, p_phone_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
--End Bug 6620664
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT nocopy VARCHAR2
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
create_or_update_tca_phone
(p_owner_table_id => p_party_id,
p_owner_table_name => 'HZ_PARTIES',
p_country_code => p_country_code,
p_area_code => nvl(p_area_code, fnd_api.g_miss_char),
p_number => p_number,
p_extension => nvl(p_extension,fnd_api.g_miss_char),
--Start Bug 6620664
p_phone_object_version_number => p_phone_object_version_number,
--End Bug 6620664
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END update_party_phone;
PROCEDURE update_party_fax
( p_party_id IN NUMBER
, p_country_code IN VARCHAR2
, p_area_code IN VARCHAR2
, p_number IN VARCHAR2
, p_extension IN VARCHAR2
--Start Bug 6620664
, p_fax_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
--End Bug 6620664
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT nocopy VARCHAR2
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
create_or_update_tca_fax
(p_owner_table_id => p_party_id,
p_owner_table_name => 'HZ_PARTIES',
p_country_code => p_country_code,
p_area_code => p_area_code,
p_number => p_number,
p_extension => p_extension,
--Start Bug 6620664
p_fax_object_version_number => p_fax_object_version_number,
--End Bug 6620664
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END update_party_fax;
PROCEDURE update_party_email
( p_party_id IN NUMBER
, p_email IN VARCHAR2
--Start Bug 6620664
, p_email_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
--End Bug 6620664
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT nocopy VARCHAR2
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
create_or_update_tca_email
(p_owner_table_id => p_party_id,
p_owner_table_name => 'HZ_PARTIES',
p_email_address => p_email,
--Start Bug 6620664
p_email_object_version_number => p_email_object_version_number,
--End Bug 6620664
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END update_party_email;
PROCEDURE update_party_site_phone
( p_party_site_id IN NUMBER
, p_country_code IN VARCHAR2
, p_area_code IN VARCHAR2
, p_number IN VARCHAR2
, p_extension IN VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT nocopy VARCHAR2
, x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
create_or_update_tca_phone
(p_owner_table_id => p_party_site_id,
p_owner_table_name => 'HZ_PARTY_SITES',
p_country_code => p_country_code,
p_area_code => p_area_code,
p_number => p_number,
p_extension => p_extension,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END update_party_site_phone;
PROCEDURE update_party_site_fax
( p_party_site_id IN NUMBER
, p_country_code IN VARCHAR2
, p_area_code IN VARCHAR2
, p_number IN VARCHAR2
, p_extension IN VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT nocopy VARCHAR2
, x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
create_or_update_tca_fax
(p_owner_table_id => p_party_site_id,
p_owner_table_name => 'HZ_PARTY_SITES',
p_country_code => p_country_code,
p_area_code => p_area_code,
p_number => p_number,
p_extension => p_extension,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END update_party_site_fax;
PROCEDURE update_party_site_email
( p_party_site_id IN NUMBER
, p_email IN VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT nocopy VARCHAR2
, x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
create_or_update_tca_email
(p_owner_table_id => p_party_site_id,
p_owner_table_name => 'HZ_PARTY_SITES',
p_email_address => p_email,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END update_party_site_email;