244: NULL,
245: NULL,
246: 'SUPP_LEVEL');
247: EXCEPTION
248: WHEN fnd_api.g_exc_error THEN
249: x_return_status := fnd_api.g_ret_sts_error;
250: x_msg_count := 1;
251: x_msg_data := SQLCODE || SQLERRM;
252: WHEN fnd_api.g_exc_unexpected_error THEN
245: NULL,
246: 'SUPP_LEVEL');
247: EXCEPTION
248: WHEN fnd_api.g_exc_error THEN
249: x_return_status := fnd_api.g_ret_sts_error;
250: x_msg_count := 1;
251: x_msg_data := SQLCODE || SQLERRM;
252: WHEN fnd_api.g_exc_unexpected_error THEN
253: x_return_status := fnd_api.g_ret_sts_unexp_error;
248: WHEN fnd_api.g_exc_error THEN
249: x_return_status := fnd_api.g_ret_sts_error;
250: x_msg_count := 1;
251: x_msg_data := SQLCODE || SQLERRM;
252: WHEN fnd_api.g_exc_unexpected_error THEN
253: x_return_status := fnd_api.g_ret_sts_unexp_error;
254: x_msg_count := 1;
255: x_msg_data := SQLCODE || SQLERRM;
256: WHEN OTHERS THEN
249: x_return_status := fnd_api.g_ret_sts_error;
250: x_msg_count := 1;
251: x_msg_data := SQLCODE || SQLERRM;
252: WHEN fnd_api.g_exc_unexpected_error THEN
253: x_return_status := fnd_api.g_ret_sts_unexp_error;
254: x_msg_count := 1;
255: x_msg_data := SQLCODE || SQLERRM;
256: WHEN OTHERS THEN
257: x_return_status := fnd_api.g_ret_sts_unexp_error;
253: x_return_status := fnd_api.g_ret_sts_unexp_error;
254: x_msg_count := 1;
255: x_msg_data := SQLCODE || SQLERRM;
256: WHEN OTHERS THEN
257: x_return_status := fnd_api.g_ret_sts_unexp_error;
258: x_msg_count := 1;
259: x_msg_data := SQLCODE || SQLERRM;
260: END get_ap_supplier_bo;
261:
271: ) IS
272: l_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
273:
274: l_exists VARCHAR2(1);
275: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
276: l_msg_count NUMBER;
277: l_msg_data VARCHAR2(2000);
278:
279: CURSOR c_check_party_mapping IS
286: AND trunc(nvl(end_date_active, SYSDATE)) >= trunc(SYSDATE)
287: AND status = 'A';
288:
289: BEGIN
290: x_return_status := fnd_api.g_ret_sts_success;
291:
292: IF p_orig_system IS NOT NULL AND p_orig_system <> fnd_api.g_miss_char THEN
293: OPEN c_check_party_mapping;
294: FETCH c_check_party_mapping
288:
289: BEGIN
290: x_return_status := fnd_api.g_ret_sts_success;
291:
292: IF p_orig_system IS NOT NULL AND p_orig_system <> fnd_api.g_miss_char THEN
293: OPEN c_check_party_mapping;
294: FETCH c_check_party_mapping
295: INTO l_exists;
296: IF c_check_party_mapping%NOTFOUND THEN
299: l_orig_sys_reference_rec.owner_table_name := 'HZ_PARTIES';
300: l_orig_sys_reference_rec.owner_table_id := p_party_id;
301: l_orig_sys_reference_rec.created_by_module := 'AP_SUPPLIERS_API';
302:
303: hz_orig_system_ref_pub.create_orig_system_reference(fnd_api.g_false,
304: l_orig_sys_reference_rec,
305: l_return_status,
306: l_msg_count,
307: l_msg_data);
312: END IF;
313:
314: EXCEPTION
315: WHEN OTHERS THEN
316: x_return_status := fnd_api.g_ret_sts_unexp_error;
317: x_msg_count := 1;
318: x_msg_data := SQLCODE || SQLERRM;
319: END create_party_orig_ref;
320:
366: END IF;
367:
368: IF l_party_id IS NULL OR l_party_id = 0 THEN
369: IF p_create_update_flag = 'U' THEN
370: x_return_status := fnd_api.g_ret_sts_error;
371: x_msg_count := 1;
372: x_msg_data := 'Party to be updated doesnot exist.';
373: RETURN;
374: END IF;
372: x_msg_data := 'Party to be updated doesnot exist.';
373: RETURN;
374: END IF;
375: l_party_id := NULL;
376: /* x_return_status := fnd_api.g_ret_sts_unexp_error;
377: x_msg_count := 1;
378: x_msg_data := 'No Party Exist, can create party but the Orig System integrity cannot be maintained';*/
379: END IF;
380:
535: IF p_create_update_flag = 'C' THEN
536: x_msg_count := 0;
537: x_msg_data := '0';
538: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
539: p_init_msg_list => fnd_api.g_false,
540: p_commit => fnd_api.g_false,
541: p_validation_level => fnd_api.g_valid_level_full,
542: x_return_status => x_return_status,
543: x_msg_count => x_msg_count,
536: x_msg_count := 0;
537: x_msg_data := '0';
538: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
539: p_init_msg_list => fnd_api.g_false,
540: p_commit => fnd_api.g_false,
541: p_validation_level => fnd_api.g_valid_level_full,
542: x_return_status => x_return_status,
543: x_msg_count => x_msg_count,
544: x_msg_data => x_msg_data,
537: x_msg_data := '0';
538: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
539: p_init_msg_list => fnd_api.g_false,
540: p_commit => fnd_api.g_false,
541: p_validation_level => fnd_api.g_valid_level_full,
542: x_return_status => x_return_status,
543: x_msg_count => x_msg_count,
544: x_msg_data => x_msg_data,
545: p_vendor_rec => l_ap_suplier_bo,
545: p_vendor_rec => l_ap_suplier_bo,
546: x_vendor_id => x_vendor_id,
547: x_party_id => x_party_id);
548: IF x_return_status IS NULL THEN
549: x_return_status := fnd_api.g_ret_sts_success;
550: END IF;
551: IF x_return_status = fnd_api.g_ret_sts_success THEN
552: create_party_orig_ref(p_party_id => x_party_id,
553: p_orig_system => p_orig_system,
547: x_party_id => x_party_id);
548: IF x_return_status IS NULL THEN
549: x_return_status := fnd_api.g_ret_sts_success;
550: END IF;
551: IF x_return_status = fnd_api.g_ret_sts_success THEN
552: create_party_orig_ref(p_party_id => x_party_id,
553: p_orig_system => p_orig_system,
554: p_orig_system_reference => p_orig_system_reference,
555: x_return_status => x_return_status,
580: ELSE
581: l_ap_suplier_bo.vendor_id := p_pos_ap_supplier_bo.vendor_id;
582: END IF;
583: ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
584: p_init_msg_list => fnd_api.g_false,
585: p_commit => fnd_api.g_false,
586: p_validation_level => fnd_api.g_valid_level_full,
587: x_return_status => x_return_status,
588: x_msg_count => x_msg_count,
581: l_ap_suplier_bo.vendor_id := p_pos_ap_supplier_bo.vendor_id;
582: END IF;
583: ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
584: p_init_msg_list => fnd_api.g_false,
585: p_commit => fnd_api.g_false,
586: p_validation_level => fnd_api.g_valid_level_full,
587: x_return_status => x_return_status,
588: x_msg_count => x_msg_count,
589: x_msg_data => x_msg_data,
582: END IF;
583: ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
584: p_init_msg_list => fnd_api.g_false,
585: p_commit => fnd_api.g_false,
586: p_validation_level => fnd_api.g_valid_level_full,
587: x_return_status => x_return_status,
588: x_msg_count => x_msg_count,
589: x_msg_data => x_msg_data,
590: p_vendor_rec => l_ap_suplier_bo,
591: p_vendor_id => l_vendor_id);
592: END IF;
593:
594: EXCEPTION
595: WHEN fnd_api.g_exc_error THEN
596: x_return_status := fnd_api.g_ret_sts_error;
597: x_msg_count := 1;
598: x_msg_data := SQLCODE || SQLERRM;
599: WHEN fnd_api.g_exc_unexpected_error THEN
592: END IF;
593:
594: EXCEPTION
595: WHEN fnd_api.g_exc_error THEN
596: x_return_status := fnd_api.g_ret_sts_error;
597: x_msg_count := 1;
598: x_msg_data := SQLCODE || SQLERRM;
599: WHEN fnd_api.g_exc_unexpected_error THEN
600: x_return_status := fnd_api.g_ret_sts_unexp_error;
595: WHEN fnd_api.g_exc_error THEN
596: x_return_status := fnd_api.g_ret_sts_error;
597: x_msg_count := 1;
598: x_msg_data := SQLCODE || SQLERRM;
599: WHEN fnd_api.g_exc_unexpected_error THEN
600: x_return_status := fnd_api.g_ret_sts_unexp_error;
601: x_msg_count := 1;
602: x_msg_data := SQLCODE || SQLERRM;
603: WHEN OTHERS THEN
596: x_return_status := fnd_api.g_ret_sts_error;
597: x_msg_count := 1;
598: x_msg_data := SQLCODE || SQLERRM;
599: WHEN fnd_api.g_exc_unexpected_error THEN
600: x_return_status := fnd_api.g_ret_sts_unexp_error;
601: x_msg_count := 1;
602: x_msg_data := SQLCODE || SQLERRM;
603: WHEN OTHERS THEN
604: x_return_status := fnd_api.g_ret_sts_unexp_error;
600: x_return_status := fnd_api.g_ret_sts_unexp_error;
601: x_msg_count := 1;
602: x_msg_data := SQLCODE || SQLERRM;
603: WHEN OTHERS THEN
604: x_return_status := fnd_api.g_ret_sts_unexp_error;
605: x_msg_count := 1;
606: x_msg_data := SQLCODE || SQLERRM;
607: END create_pos_ap_supplier;
608:
848: l_ap_suplier_bo.edi_remittance_method := p_pos_ap_supplier_bo.edi_remittance_method;
849: l_ap_suplier_bo.edi_remittance_instruction := p_pos_ap_supplier_bo.edi_remittance_instruction;
850:
851: ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
852: p_init_msg_list => fnd_api.g_false,
853: p_commit => fnd_api.g_false,
854: p_validation_level => fnd_api.g_valid_level_full,
855: x_return_status => x_return_status,
856: x_msg_count => x_msg_count,
849: l_ap_suplier_bo.edi_remittance_instruction := p_pos_ap_supplier_bo.edi_remittance_instruction;
850:
851: ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
852: p_init_msg_list => fnd_api.g_false,
853: p_commit => fnd_api.g_false,
854: p_validation_level => fnd_api.g_valid_level_full,
855: x_return_status => x_return_status,
856: x_msg_count => x_msg_count,
857: x_msg_data => x_msg_data,
850:
851: ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
852: p_init_msg_list => fnd_api.g_false,
853: p_commit => fnd_api.g_false,
854: p_validation_level => fnd_api.g_valid_level_full,
855: x_return_status => x_return_status,
856: x_msg_count => x_msg_count,
857: x_msg_data => x_msg_data,
858: p_vendor_rec => l_ap_suplier_bo,
859: p_vendor_id => l_vendor_id);
860:
861: p_vendor_id := l_vendor_id;
862: EXCEPTION
863: WHEN fnd_api.g_exc_error THEN
864: x_return_status := fnd_api.g_ret_sts_error;
865: x_msg_count := 1;
866: x_msg_data := SQLCODE || SQLERRM;
867: WHEN fnd_api.g_exc_unexpected_error THEN
860:
861: p_vendor_id := l_vendor_id;
862: EXCEPTION
863: WHEN fnd_api.g_exc_error THEN
864: x_return_status := fnd_api.g_ret_sts_error;
865: x_msg_count := 1;
866: x_msg_data := SQLCODE || SQLERRM;
867: WHEN fnd_api.g_exc_unexpected_error THEN
868: x_return_status := fnd_api.g_ret_sts_unexp_error;
863: WHEN fnd_api.g_exc_error THEN
864: x_return_status := fnd_api.g_ret_sts_error;
865: x_msg_count := 1;
866: x_msg_data := SQLCODE || SQLERRM;
867: WHEN fnd_api.g_exc_unexpected_error THEN
868: x_return_status := fnd_api.g_ret_sts_unexp_error;
869: x_msg_count := 1;
870: x_msg_data := SQLCODE || SQLERRM;
871: WHEN OTHERS THEN
864: x_return_status := fnd_api.g_ret_sts_error;
865: x_msg_count := 1;
866: x_msg_data := SQLCODE || SQLERRM;
867: WHEN fnd_api.g_exc_unexpected_error THEN
868: x_return_status := fnd_api.g_ret_sts_unexp_error;
869: x_msg_count := 1;
870: x_msg_data := SQLCODE || SQLERRM;
871: WHEN OTHERS THEN
872: x_return_status := fnd_api.g_ret_sts_unexp_error;
868: x_return_status := fnd_api.g_ret_sts_unexp_error;
869: x_msg_count := 1;
870: x_msg_data := SQLCODE || SQLERRM;
871: WHEN OTHERS THEN
872: x_return_status := fnd_api.g_ret_sts_unexp_error;
873: x_msg_count := 1;
874: x_msg_data := SQLCODE || SQLERRM;
875: END update_pos_ap_supplier;
876: */