130:
131: /* x_ap_supplier_contact_bo := pos_supplier_contact_bo(l_ap_supplier_contact_typ_tbl,
132: l_pos_supplier_uda_bo);*/
133: EXCEPTION
134: WHEN fnd_api.g_exc_error THEN
135:
136: x_return_status := fnd_api.g_ret_sts_error;
137: x_msg_count := 1;
138: x_msg_data := SQLCODE || SQLERRM;
132: l_pos_supplier_uda_bo);*/
133: EXCEPTION
134: WHEN fnd_api.g_exc_error THEN
135:
136: x_return_status := fnd_api.g_ret_sts_error;
137: x_msg_count := 1;
138: x_msg_data := SQLCODE || SQLERRM;
139: WHEN fnd_api.g_exc_unexpected_error THEN
140:
135:
136: x_return_status := fnd_api.g_ret_sts_error;
137: x_msg_count := 1;
138: x_msg_data := SQLCODE || SQLERRM;
139: WHEN fnd_api.g_exc_unexpected_error THEN
140:
141: x_return_status := fnd_api.g_ret_sts_unexp_error;
142: x_msg_count := 1;
143: x_msg_data := SQLCODE || SQLERRM;
137: x_msg_count := 1;
138: x_msg_data := SQLCODE || SQLERRM;
139: WHEN fnd_api.g_exc_unexpected_error THEN
140:
141: x_return_status := fnd_api.g_ret_sts_unexp_error;
142: x_msg_count := 1;
143: x_msg_data := SQLCODE || SQLERRM;
144: WHEN OTHERS THEN
145:
142: x_msg_count := 1;
143: x_msg_data := SQLCODE || SQLERRM;
144: WHEN OTHERS THEN
145:
146: x_return_status := fnd_api.g_ret_sts_unexp_error;
147:
148: x_msg_count := 1;
149: x_msg_data := SQLCODE || SQLERRM;
150:
204: l_party_id := p_party_id;
205: END IF;
206:
207: IF (l_party_id = 0) THEN
208: x_return_status := fnd_api.g_ret_sts_error;
209: x_msg_count := 1;
210: x_msg_data := 'Party ID Invalid';
211: RETURN;
212: END IF;
294: l_per_party_id := p_pos_supplier_contact_bo_tbl(i).per_party_id;
295: END IF;
296:
297: IF (l_per_party_id = 0) THEN
298: x_return_status := fnd_api.g_ret_sts_error;
299: x_msg_count := 1;
300: x_msg_data := 'Person Party ID Invalid';
301: RETURN;
302: END IF;
347: WHERE supp.party_id = l_party_id;
348:
349: EXCEPTION
350: WHEN OTHERS THEN
351: x_return_status := fnd_api.g_ret_sts_error;
352: x_msg_count := 1;
353: x_msg_data := SQLCODE || SQLERRM;
354: RETURN;
355: END;
404: ELSIF p_create_update_flag = 'C' THEN
405:
406: ap_vendor_pub_pkg.create_vendor_contact(p_api_version,
407: p_init_msg_list,
408: fnd_api.g_false,
409: fnd_api.g_valid_level_full,
410: x_return_status,
411: x_msg_count,
412: x_msg_data,
405:
406: ap_vendor_pub_pkg.create_vendor_contact(p_api_version,
407: p_init_msg_list,
408: fnd_api.g_false,
409: fnd_api.g_valid_level_full,
410: x_return_status,
411: x_msg_count,
412: x_msg_data,
413: p_vendor_contact_rec,
419: x_party_site_id);
420:
421: END IF;
422: IF x_return_status IS NOT NULL AND
423: x_return_status = fnd_api.g_ret_sts_success THEN
424: -- succeed
425:
426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
427: fnd_log.string(fnd_log.level_procedure,
448: END IF;
449: END LOOP;
450:
451: EXCEPTION
452: WHEN fnd_api.g_exc_error THEN
453:
454: x_return_status := fnd_api.g_ret_sts_error;
455: x_msg_count := 1;
456: x_msg_data := SQLCODE || SQLERRM;
450:
451: EXCEPTION
452: WHEN fnd_api.g_exc_error THEN
453:
454: x_return_status := fnd_api.g_ret_sts_error;
455: x_msg_count := 1;
456: x_msg_data := SQLCODE || SQLERRM;
457: WHEN fnd_api.g_exc_unexpected_error THEN
458:
453:
454: x_return_status := fnd_api.g_ret_sts_error;
455: x_msg_count := 1;
456: x_msg_data := SQLCODE || SQLERRM;
457: WHEN fnd_api.g_exc_unexpected_error THEN
458:
459: x_return_status := fnd_api.g_ret_sts_unexp_error;
460: x_msg_count := 1;
461: x_msg_data := SQLCODE || SQLERRM;
455: x_msg_count := 1;
456: x_msg_data := SQLCODE || SQLERRM;
457: WHEN fnd_api.g_exc_unexpected_error THEN
458:
459: x_return_status := fnd_api.g_ret_sts_unexp_error;
460: x_msg_count := 1;
461: x_msg_data := SQLCODE || SQLERRM;
462: WHEN OTHERS THEN
463:
460: x_msg_count := 1;
461: x_msg_data := SQLCODE || SQLERRM;
462: WHEN OTHERS THEN
463:
464: x_return_status := fnd_api.g_ret_sts_unexp_error;
465:
466: x_msg_count := 1;
467: x_msg_data := SQLCODE || SQLERRM;
468: END;
502: BEGIN
503: l_step := 'call ap_vendor_pub_pkg.update_vendor_contactt';
504: SAVEPOINT upd_vndr_contact;
505: ap_vendor_pub_pkg.update_vendor_contact(p_api_version => 1.0,
506: p_init_msg_list => fnd_api.g_true,
507: p_commit => fnd_api.g_false,
508: p_validation_level => fnd_api.g_valid_level_full,
509: p_vendor_contact_rec => p_vendor_contact_rec,
510: x_return_status => x_return_status,
503: l_step := 'call ap_vendor_pub_pkg.update_vendor_contactt';
504: SAVEPOINT upd_vndr_contact;
505: ap_vendor_pub_pkg.update_vendor_contact(p_api_version => 1.0,
506: p_init_msg_list => fnd_api.g_true,
507: p_commit => fnd_api.g_false,
508: p_validation_level => fnd_api.g_valid_level_full,
509: p_vendor_contact_rec => p_vendor_contact_rec,
510: x_return_status => x_return_status,
511: x_msg_count => x_msg_count,
504: SAVEPOINT upd_vndr_contact;
505: ap_vendor_pub_pkg.update_vendor_contact(p_api_version => 1.0,
506: p_init_msg_list => fnd_api.g_true,
507: p_commit => fnd_api.g_false,
508: p_validation_level => fnd_api.g_valid_level_full,
509: p_vendor_contact_rec => p_vendor_contact_rec,
510: x_return_status => x_return_status,
511: x_msg_count => x_msg_count,
512: x_msg_data => x_msg_data);
511: x_msg_count => x_msg_count,
512: x_msg_data => x_msg_data);
513:
514: IF x_return_status IS NOT NULL AND
515: x_return_status = fnd_api.g_ret_sts_success THEN
516: -- succeed
517: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
518: fnd_log.string(fnd_log.level_procedure,
519: 'pos_supplier_contact_bo_pkg.create_pos_supp_contact_bo',
537: x_msg_data);
538: END IF;
539: END IF;
540: EXCEPTION
541: WHEN fnd_api.g_exc_error THEN
542:
543: x_return_status := fnd_api.g_ret_sts_error;
544: x_msg_count := 1;
545: x_msg_data := SQLCODE || SQLERRM;
539: END IF;
540: EXCEPTION
541: WHEN fnd_api.g_exc_error THEN
542:
543: x_return_status := fnd_api.g_ret_sts_error;
544: x_msg_count := 1;
545: x_msg_data := SQLCODE || SQLERRM;
546: WHEN fnd_api.g_exc_unexpected_error THEN
547:
542:
543: x_return_status := fnd_api.g_ret_sts_error;
544: x_msg_count := 1;
545: x_msg_data := SQLCODE || SQLERRM;
546: WHEN fnd_api.g_exc_unexpected_error THEN
547:
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549: x_msg_count := 1;
550: x_msg_data := SQLCODE || SQLERRM;
544: x_msg_count := 1;
545: x_msg_data := SQLCODE || SQLERRM;
546: WHEN fnd_api.g_exc_unexpected_error THEN
547:
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549: x_msg_count := 1;
550: x_msg_data := SQLCODE || SQLERRM;
551: WHEN OTHERS THEN
552:
549: x_msg_count := 1;
550: x_msg_data := SQLCODE || SQLERRM;
551: WHEN OTHERS THEN
552:
553: x_return_status := fnd_api.g_ret_sts_unexp_error;
554:
555: x_msg_count := 1;
556: x_msg_data := SQLCODE || SQLERRM;
557: END update_pos_supp_contact_bo;