233: -- DESCRIPTION
234: -- Private procedure to create contact point.
235: --
236: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
237: -- hz_registry_validate_v2pub.validate_contact_point
238: -- hz_registry_validate_v2pub.validate_edi_contact_point
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
234: -- Private procedure to create contact point.
235: --
236: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
237: -- hz_registry_validate_v2pub.validate_contact_point
238: -- hz_registry_validate_v2pub.validate_edi_contact_point
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
242: -- hz_registry_validate_v2pub.validate_telex_contact_point
235: --
236: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
237: -- hz_registry_validate_v2pub.validate_contact_point
238: -- hz_registry_validate_v2pub.validate_edi_contact_point
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
242: -- hz_registry_validate_v2pub.validate_telex_contact_point
243: -- hz_registry_validate_v2pub.validate_email_contact_point
236: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
237: -- hz_registry_validate_v2pub.validate_contact_point
238: -- hz_registry_validate_v2pub.validate_edi_contact_point
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
242: -- hz_registry_validate_v2pub.validate_telex_contact_point
243: -- hz_registry_validate_v2pub.validate_email_contact_point
244: -- hz_contact_points_pkg.insert_row
237: -- hz_registry_validate_v2pub.validate_contact_point
238: -- hz_registry_validate_v2pub.validate_edi_contact_point
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
242: -- hz_registry_validate_v2pub.validate_telex_contact_point
243: -- hz_registry_validate_v2pub.validate_email_contact_point
244: -- hz_contact_points_pkg.insert_row
245: -- hz_phone_number_pkg.transpose
238: -- hz_registry_validate_v2pub.validate_edi_contact_point
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
242: -- hz_registry_validate_v2pub.validate_telex_contact_point
243: -- hz_registry_validate_v2pub.validate_email_contact_point
244: -- hz_contact_points_pkg.insert_row
245: -- hz_phone_number_pkg.transpose
246: --
239: -- hz_registry_validate_v2pub.validate_eft_contact_point
240: -- hz_registry_validate_v2pub.validate_web_contact_point
241: -- hz_registry_validate_v2pub.validate_phone_contact_point
242: -- hz_registry_validate_v2pub.validate_telex_contact_point
243: -- hz_registry_validate_v2pub.validate_email_contact_point
244: -- hz_contact_points_pkg.insert_row
245: -- hz_phone_number_pkg.transpose
246: --
247: -- ARGUMENTS
353: IF p_contact_point_rec.contact_point_type = 'EDI' THEN
354: l_edi_rec := p_edi_rec;
355:
356: -- Validate the contact point record
357: hz_registry_validate_v2pub.validate_edi_contact_point (
358: p_create_update_flag => 'C',
359: p_contact_point_rec => p_contact_point_rec,
360: p_edi_rec => l_edi_rec,
361: p_rowid => NULL,
363: ELSIF p_contact_point_rec.contact_point_type = 'EFT' THEN
364: l_eft_rec := p_eft_rec;
365:
366: -- Validate the contact point record
367: hz_registry_validate_v2pub.validate_eft_contact_point (
368: p_create_update_flag => 'C',
369: p_contact_point_rec => p_contact_point_rec,
370: p_eft_rec => l_eft_rec,
371: p_rowid => NULL,
373: ELSIF p_contact_point_rec.contact_point_type = 'EMAIL' THEN
374: l_email_rec := p_email_rec;
375:
376: -- Validate the contact point record
377: hz_registry_validate_v2pub.validate_email_contact_point (
378: p_create_update_flag => 'C',
379: p_contact_point_rec => p_contact_point_rec,
380: p_email_rec => l_email_rec,
381: p_rowid => NULL,
383: ELSIF p_contact_point_rec.contact_point_type = 'PHONE' THEN
384: l_phone_rec := p_phone_rec;
385:
386: -- Validate the contact point record
387: hz_registry_validate_v2pub.validate_phone_contact_point (
388: p_create_update_flag => 'C',
389: p_contact_point_rec => p_contact_point_rec,
390: p_phone_rec => l_phone_rec,
391: p_rowid => NULL,
393: ELSIF p_contact_point_rec.contact_point_type = 'TLX' THEN
394: l_telex_rec := p_telex_rec;
395:
396: -- Validate the contact point record
397: hz_registry_validate_v2pub.validate_telex_contact_point (
398: p_create_update_flag => 'C',
399: p_contact_point_rec => p_contact_point_rec,
400: p_telex_rec => l_telex_rec,
401: p_rowid => NULL,
406: -- modify URL to prefix protocol (Bug 4960793 Nishant 02-May-2006)
407: l_web_rec := get_protocol_prefixed_url(p_web_rec);
408:
409: -- Validate the contact point record
410: hz_registry_validate_v2pub.validate_web_contact_point (
411: p_create_update_flag => 'C',
412: p_contact_point_rec => p_contact_point_rec,
413: p_web_rec => l_web_rec,
414: p_rowid => NULL,
422: l_eft_rec := p_eft_rec;
423:
424: -- Validate the contact point record - call the old routine and the
425: -- EFT validation routine.
426: hz_registry_validate_v2pub.validate_contact_point (
427: p_create_update_flag => 'C',
428: p_contact_point_rec => p_contact_point_rec,
429: p_edi_rec => l_edi_rec,
430: p_email_rec => l_email_rec,
437: IF x_return_status <> fnd_api.g_ret_sts_success THEN
438: RAISE fnd_api.g_exc_error;
439: END IF;
440:
441: hz_registry_validate_v2pub.validate_eft_contact_point (
442: p_create_update_flag => 'C',
443: p_contact_point_rec => p_contact_point_rec,
444: p_eft_rec => l_eft_rec,
445: p_rowid => NULL,
908: -- DESCRIPTION
909: -- Private procedure to update contact point.
910: --
911: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
912: -- hz_registry_validate_v2pub.validate_contact_point
913: -- hz_registry_validate_v2pub.validate_edi_contact_point
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
909: -- Private procedure to update contact point.
910: --
911: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
912: -- hz_registry_validate_v2pub.validate_contact_point
913: -- hz_registry_validate_v2pub.validate_edi_contact_point
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
917: -- hz_registry_validate_v2pub.validate_telex_contact_point
910: --
911: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
912: -- hz_registry_validate_v2pub.validate_contact_point
913: -- hz_registry_validate_v2pub.validate_edi_contact_point
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
917: -- hz_registry_validate_v2pub.validate_telex_contact_point
918: -- hz_registry_validate_v2pub.validate_email_contact_point
911: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
912: -- hz_registry_validate_v2pub.validate_contact_point
913: -- hz_registry_validate_v2pub.validate_edi_contact_point
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
917: -- hz_registry_validate_v2pub.validate_telex_contact_point
918: -- hz_registry_validate_v2pub.validate_email_contact_point
919: -- hz_contact_points_pkg.update_row
912: -- hz_registry_validate_v2pub.validate_contact_point
913: -- hz_registry_validate_v2pub.validate_edi_contact_point
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
917: -- hz_registry_validate_v2pub.validate_telex_contact_point
918: -- hz_registry_validate_v2pub.validate_email_contact_point
919: -- hz_contact_points_pkg.update_row
920: -- hz_phone_number_pkg.transpose
913: -- hz_registry_validate_v2pub.validate_edi_contact_point
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
917: -- hz_registry_validate_v2pub.validate_telex_contact_point
918: -- hz_registry_validate_v2pub.validate_email_contact_point
919: -- hz_contact_points_pkg.update_row
920: -- hz_phone_number_pkg.transpose
921: --
914: -- hz_registry_validate_v2pub.validate_eft_contact_point
915: -- hz_registry_validate_v2pub.validate_web_contact_point
916: -- hz_registry_validate_v2pub.validate_phone_contact_point
917: -- hz_registry_validate_v2pub.validate_telex_contact_point
918: -- hz_registry_validate_v2pub.validate_email_contact_point
919: -- hz_contact_points_pkg.update_row
920: -- hz_phone_number_pkg.transpose
921: --
922: -- ARGUMENTS
1135: IF l_contact_point_type = 'EDI' THEN
1136: l_edi_rec := p_edi_rec;
1137:
1138: -- Validate the contact point record
1139: hz_registry_validate_v2pub.validate_edi_contact_point (
1140: p_create_update_flag => 'U',
1141: p_contact_point_rec => p_contact_point_rec,
1142: p_edi_rec => l_edi_rec,
1143: p_rowid => l_rowid,
1145: ELSIF l_contact_point_type = 'EFT' THEN
1146: l_eft_rec := p_eft_rec;
1147:
1148: -- Validate the contact point record
1149: hz_registry_validate_v2pub.validate_eft_contact_point (
1150: p_create_update_flag => 'U',
1151: p_contact_point_rec => p_contact_point_rec,
1152: p_eft_rec => l_eft_rec,
1153: p_rowid => l_rowid,
1155: ELSIF l_contact_point_type = 'EMAIL' THEN
1156: l_email_rec := p_email_rec;
1157:
1158: -- Validate the contact point record
1159: hz_registry_validate_v2pub.validate_email_contact_point (
1160: p_create_update_flag => 'U',
1161: p_contact_point_rec => p_contact_point_rec,
1162: p_email_rec => l_email_rec,
1163: p_rowid => l_rowid,
1165: ELSIF l_contact_point_type = 'PHONE' THEN
1166: l_phone_rec := p_phone_rec;
1167:
1168: -- Validate the contact point record
1169: hz_registry_validate_v2pub.validate_phone_contact_point (
1170: p_create_update_flag => 'U',
1171: p_contact_point_rec => p_contact_point_rec,
1172: p_phone_rec => l_phone_rec,
1173: p_rowid => l_rowid,
1175: ELSIF l_contact_point_type = 'TLX' THEN
1176: l_telex_rec := p_telex_rec;
1177:
1178: -- Validate the contact point record
1179: hz_registry_validate_v2pub.validate_telex_contact_point (
1180: p_create_update_flag => 'U',
1181: p_contact_point_rec => p_contact_point_rec,
1182: p_telex_rec => l_telex_rec,
1183: p_rowid => l_rowid,
1187: -- modify URL to prefix protocol (Bug 4960793 Nishant 02-May-2006)
1188: l_web_rec := get_protocol_prefixed_url(p_web_rec);
1189:
1190: -- Validate the contact point record
1191: hz_registry_validate_v2pub.validate_web_contact_point (
1192: p_create_update_flag => 'U',
1193: p_contact_point_rec => p_contact_point_rec,
1194: p_web_rec => l_web_rec,
1195: p_rowid => l_rowid,
1202: l_web_rec := p_web_rec;
1203:
1204: -- Validate the contact point record - call the old routine and the
1205: -- EFT validation routine.
1206: hz_registry_validate_v2pub.validate_contact_point (
1207: p_create_update_flag => 'U',
1208: p_contact_point_rec => p_contact_point_rec,
1209: p_edi_rec => l_edi_rec,
1210: p_email_rec => l_email_rec,
1217: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1218: RAISE fnd_api.g_exc_error;
1219: END IF;
1220:
1221: hz_registry_validate_v2pub.validate_eft_contact_point (
1222: p_create_update_flag => 'U',
1223: p_contact_point_rec => p_contact_point_rec,
1224: p_eft_rec => l_eft_rec,
1225: p_rowid => l_rowid,