The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_or_update IN VARCHAR2 := 'C',
px_phone_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_telex_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_email_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_web_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_edi_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_eft_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EFT_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_sms_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_phone_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update IN VARCHAR2 := 'C',
px_telex_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update IN VARCHAR2 := 'C',
px_email_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update IN VARCHAR2 := 'C',
px_web_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update IN VARCHAR2 := 'C',
px_edi_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update IN VARCHAR2 := 'C',
px_eft_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EFT_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update IN VARCHAR2 := 'C',
px_sms_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
px_contact_point_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE
) IS
BEGIN
px_contact_point_rec.contact_point_id := p_cp_id;
IF(p_create_or_update = 'C') THEN
px_contact_point_rec.orig_system := p_cp_os;
p_create_or_update => 'C',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
PROCEDURE update_phone_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_phone_obj IN HZ_PHONE_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_phone_id OUT NOCOPY NUMBER,
x_phone_os OUT NOCOPY VARCHAR2,
x_phone_osr OUT NOCOPY VARCHAR2
)IS
l_phone_obj HZ_PHONE_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => p_phone_obj.phone_id,
p_cp_os => l_phone_obj.orig_system,
p_cp_osr => l_phone_obj.orig_system_reference,
p_phone_obj => l_phone_obj,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_phone_obj.contact_pref_objs,
p_cp_type => 'PHONE',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_phone_id,
x_cp_os => x_phone_os,
x_cp_osr => x_phone_osr,
p_parent_os => NULL );
END update_phone_bo;
PROCEDURE update_phone_bo(
p_phone_obj IN HZ_PHONE_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_PHONE_CP_BO,
x_phone_id OUT NOCOPY NUMBER,
x_phone_os OUT NOCOPY VARCHAR2,
x_phone_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_phone_obj.phone_id,
p_cp_os => l_phone_obj.orig_system,
p_cp_osr => l_phone_obj.orig_system_reference,
p_phone_obj => l_phone_obj,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_phone_obj.contact_pref_objs,
p_cp_type => 'PHONE',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_phone_id,
x_cp_os => x_phone_os,
x_cp_osr => x_phone_osr,
p_parent_os => NULL );
END update_phone_bo;
PROCEDURE update_telex_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_telex_obj IN HZ_TELEX_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_telex_id OUT NOCOPY NUMBER,
x_telex_os OUT NOCOPY VARCHAR2,
x_telex_osr OUT NOCOPY VARCHAR2
)IS
l_telex_obj HZ_TELEX_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => l_telex_obj.telex_id,
p_cp_os => l_telex_obj.orig_system,
p_cp_osr => l_telex_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => l_telex_obj,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_telex_obj.contact_pref_objs,
p_cp_type => 'TLX',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_telex_id,
x_cp_os => x_telex_os,
x_cp_osr => x_telex_osr,
p_parent_os => NULL );
END update_telex_bo;
PROCEDURE update_telex_bo(
p_telex_obj IN HZ_TELEX_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_TELEX_CP_BO,
x_telex_id OUT NOCOPY NUMBER,
x_telex_os OUT NOCOPY VARCHAR2,
x_telex_osr OUT NOCOPY VARCHAR2
)IS
l_msg_count NUMBER;
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_telex_obj.telex_id,
p_cp_os => l_telex_obj.orig_system,
p_cp_osr => l_telex_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => l_telex_obj,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_telex_obj.contact_pref_objs,
p_cp_type => 'TLX',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_telex_id,
x_cp_os => x_telex_os,
x_cp_osr => x_telex_osr,
p_parent_os => NULL );
END update_telex_bo;
PROCEDURE update_email_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_email_obj IN HZ_EMAIL_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_email_id OUT NOCOPY NUMBER,
x_email_os OUT NOCOPY VARCHAR2,
x_email_osr OUT NOCOPY VARCHAR2
)IS
l_email_obj HZ_EMAIL_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => l_email_obj.email_id,
p_cp_os => l_email_obj.orig_system,
p_cp_osr => l_email_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => l_email_obj,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_email_obj.contact_pref_objs,
p_cp_type => 'EMAIL',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_email_id,
x_cp_os => x_email_os,
x_cp_osr => x_email_osr,
p_parent_os => NULL );
END update_email_bo;
PROCEDURE update_email_bo(
p_email_obj IN HZ_EMAIL_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_EMAIL_CP_BO,
x_email_id OUT NOCOPY NUMBER,
x_email_os OUT NOCOPY VARCHAR2,
x_email_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_email_obj.email_id,
p_cp_os => l_email_obj.orig_system,
p_cp_osr => l_email_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => l_email_obj,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_email_obj.contact_pref_objs,
p_cp_type => 'EMAIL',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_email_id,
x_cp_os => x_email_os,
x_cp_osr => x_email_osr,
p_parent_os => NULL );
END update_email_bo;
PROCEDURE update_web_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_web_obj IN HZ_WEB_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_web_id OUT NOCOPY NUMBER,
x_web_os OUT NOCOPY VARCHAR2,
x_web_osr OUT NOCOPY VARCHAR2
)IS
l_web_obj HZ_WEB_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => l_web_obj.web_id,
p_cp_os => l_web_obj.orig_system,
p_cp_osr => l_web_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => l_web_obj,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_web_obj.contact_pref_objs,
p_cp_type => 'WEB',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_web_id,
x_cp_os => x_web_os,
x_cp_osr => x_web_osr,
p_parent_os => NULL );
END update_web_bo;
PROCEDURE update_web_bo(
p_web_obj IN HZ_WEB_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_WEB_CP_BO,
x_web_id OUT NOCOPY NUMBER,
x_web_os OUT NOCOPY VARCHAR2,
x_web_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_web_obj.web_id,
p_cp_os => l_web_obj.orig_system,
p_cp_osr => l_web_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => l_web_obj,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_web_obj.contact_pref_objs,
p_cp_type => 'WEB',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_web_id,
x_cp_os => x_web_os,
x_cp_osr => x_web_osr,
p_parent_os => NULL );
END update_web_bo;
PROCEDURE update_edi_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_edi_obj IN HZ_EDI_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_edi_id OUT NOCOPY NUMBER,
x_edi_os OUT NOCOPY VARCHAR2,
x_edi_osr OUT NOCOPY VARCHAR2
)IS
l_edi_obj HZ_EDI_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => l_edi_obj.edi_id,
p_cp_os => l_edi_obj.orig_system,
p_cp_osr => l_edi_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => l_edi_obj,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_edi_obj.contact_pref_objs,
p_cp_type => 'EDI',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_edi_id,
x_cp_os => x_edi_os,
x_cp_osr => x_edi_osr,
p_parent_os => NULL );
END update_edi_bo;
PROCEDURE update_edi_bo(
p_edi_obj IN HZ_EDI_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_EDI_CP_BO,
x_edi_id OUT NOCOPY NUMBER,
x_edi_os OUT NOCOPY VARCHAR2,
x_edi_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_edi_obj.edi_id,
p_cp_os => l_edi_obj.orig_system,
p_cp_osr => l_edi_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => l_edi_obj,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => l_edi_obj.contact_pref_objs,
p_cp_type => 'EDI',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_edi_id,
x_cp_os => x_edi_os,
x_cp_osr => x_edi_osr,
p_parent_os => NULL );
END update_edi_bo;
PROCEDURE update_eft_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_eft_obj IN HZ_EFT_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_eft_id OUT NOCOPY NUMBER,
x_eft_os OUT NOCOPY VARCHAR2,
x_eft_osr OUT NOCOPY VARCHAR2
)IS
l_eft_obj HZ_EFT_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => l_eft_obj.eft_id,
p_cp_os => l_eft_obj.orig_system,
p_cp_osr => l_eft_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => l_eft_obj,
p_sms_obj => NULL,
p_cp_pref_objs => l_eft_obj.contact_pref_objs,
p_cp_type => 'EFT',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_eft_id,
x_cp_os => x_eft_os,
x_cp_osr => x_eft_osr,
p_parent_os => NULL );
END update_eft_bo;
PROCEDURE update_eft_bo(
p_eft_obj IN HZ_EFT_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_EFT_CP_BO,
x_eft_id OUT NOCOPY NUMBER,
x_eft_os OUT NOCOPY VARCHAR2,
x_eft_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_eft_obj.eft_id,
p_cp_os => l_eft_obj.orig_system,
p_cp_osr => l_eft_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => l_eft_obj,
p_sms_obj => NULL,
p_cp_pref_objs => l_eft_obj.contact_pref_objs,
p_cp_type => 'EFT',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_eft_id,
x_cp_os => x_eft_os,
x_cp_osr => x_eft_osr,
p_parent_os => NULL );
END update_eft_bo;
PROCEDURE update_sms_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_sms_obj IN HZ_SMS_CP_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_sms_id OUT NOCOPY NUMBER,
x_sms_os OUT NOCOPY VARCHAR2,
x_sms_osr OUT NOCOPY VARCHAR2
)IS
l_sms_obj HZ_SMS_CP_BO;
do_update_contact_point (
p_init_msg_list => p_init_msg_list,
p_cp_id => l_sms_obj.sms_id,
p_cp_os => l_sms_obj.orig_system,
p_cp_osr => l_sms_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => l_sms_obj,
p_cp_pref_objs => l_sms_obj.contact_pref_objs,
p_cp_type => 'SMS',
p_created_by_module => p_created_by_module,
p_obj_source => NULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_sms_id,
x_cp_os => x_sms_os,
x_cp_osr => x_sms_osr,
p_parent_os => NULL );
END update_sms_bo;
PROCEDURE update_sms_bo(
p_sms_obj IN HZ_SMS_CP_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_SMS_CP_BO,
x_sms_id OUT NOCOPY NUMBER,
x_sms_os OUT NOCOPY VARCHAR2,
x_sms_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_contact_point (
p_init_msg_list => fnd_api.g_true,
p_cp_id => l_sms_obj.sms_id,
p_cp_os => l_sms_obj.orig_system,
p_cp_osr => l_sms_obj.orig_system_reference,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => l_sms_obj,
p_cp_pref_objs => l_sms_obj.contact_pref_objs,
p_cp_type => 'SMS',
p_created_by_module => p_created_by_module,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cp_id => x_sms_id,
x_cp_os => x_sms_os,
x_cp_osr => x_sms_osr,
p_parent_os => NULL );
END update_sms_bo;
PROCEDURE do_update_contact_point (
p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
p_cp_id IN NUMBER,
p_cp_os IN VARCHAR2,
p_cp_osr IN VARCHAR2,
p_phone_obj IN HZ_PHONE_CP_BO,
p_email_obj IN HZ_EMAIL_CP_BO,
p_telex_obj IN HZ_TELEX_CP_BO,
p_web_obj IN HZ_WEB_CP_BO,
p_edi_obj IN HZ_EDI_CP_BO,
p_eft_obj IN HZ_EFT_CP_BO,
p_sms_obj IN HZ_SMS_CP_BO,
p_cp_pref_objs IN OUT NOCOPY HZ_CONTACT_PREF_OBJ_TBL,
p_cp_type IN VARCHAR2,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_cp_id OUT NOCOPY NUMBER,
x_cp_os OUT NOCOPY VARCHAR2,
x_cp_osr OUT NOCOPY VARCHAR2,
p_parent_os IN VARCHAR2
) IS
l_debug_prefix VARCHAR2(30);
l_create_update_flag VARCHAR2(1);
SELECT object_version_number, owner_table_id, owner_table_name
FROM HZ_CONTACT_POINTS
WHERE contact_point_id = l_contact_point_id;
SAVEPOINT do_update_contact_point_pub;
hz_utility_v2pub.debug(p_message=>'do_update_contact_point (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
p_create_or_update => 'U',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
p_create_or_update => 'U',
px_phone_rec => l_phone_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_phone_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_phone_rec => l_phone_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
px_email_rec => l_email_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_email_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_email_rec => l_email_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
px_telex_rec => l_telex_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_telex_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_telex_rec => l_telex_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
px_web_rec => l_web_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_web_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_web_rec => l_web_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
px_edi_rec => l_edi_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_edi_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_edi_rec => l_edi_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
px_eft_rec => l_eft_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_eft_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_eft_rec => l_eft_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
px_sms_rec => l_sms_rec,
px_contact_point_rec => l_contact_point_rec
);
HZ_CONTACT_POINT_V2PUB.update_phone_contact_point(
p_contact_point_rec => l_contact_point_rec,
p_phone_rec => l_sms_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
hz_utility_v2pub.debug(p_message=>'update_logical_cp(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_contact_point_pub;
hz_utility_v2pub.debug(p_message=>'do_update_contact_point (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_contact_point_pub;
hz_utility_v2pub.debug(p_message=>'do_update_contact_point (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_contact_point_pub;
hz_utility_v2pub.debug(p_message=>'do_update_contact_point (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_contact_point;
l_create_update_flag VARCHAR2(1);
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => x_cp_id,
p_entity_os => x_cp_os,
p_entity_osr => x_cp_osr,
p_entity_type => 'HZ_CONTACT_POINTS',
p_cp_type => p_cp_type,
p_parent_id => px_parent_id,
p_parent_obj_type => px_parent_obj_type);
IF(l_create_update_flag = 'E') THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => p_phone_obj,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => p_phone_obj,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => p_email_obj,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => p_email_obj,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => p_telex_obj,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => p_telex_obj,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => p_web_obj,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => p_web_obj,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => p_edi_obj,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => p_edi_obj,
p_eft_obj => NULL,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => p_eft_obj,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => p_eft_obj,
p_sms_obj => NULL,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
IF(l_create_update_flag = 'C') THEN
do_create_contact_point (
p_validate_bo_flag => p_validate_bo_flag,
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => p_sms_obj,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
px_parent_id => px_parent_id,
px_parent_os => px_parent_os,
px_parent_osr => px_parent_osr,
px_parent_obj_type => px_parent_obj_type
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_contact_point (
p_cp_id => p_cp_id,
p_cp_os => p_cp_os,
p_cp_osr => p_cp_osr,
p_phone_obj => NULL,
p_email_obj => NULL,
p_telex_obj => NULL,
p_web_obj => NULL,
p_edi_obj => NULL,
p_eft_obj => NULL,
p_sms_obj => p_sms_obj,
p_cp_pref_objs => p_cp_pref_objs,
p_cp_type => p_cp_type,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cp_id => x_cp_id,
x_cp_os => x_cp_os,
x_cp_osr => x_cp_osr,
p_parent_os => px_parent_os);
-- extraction validation logic is same as update
l_phone_id := p_phone_id;
-- extraction validation logic is same as update
l_telex_id := p_telex_id;
-- extraction validation logic is same as update
l_email_id := p_email_id;
-- extraction validation logic is same as update
l_web_id := p_web_id;
-- extraction validation logic is same as update
l_edi_id := p_edi_id;
-- extraction validation logic is same as update
l_eft_id := p_eft_id;
-- extraction validation logic is same as update
l_sms_id := p_sms_id;