[Home] [Help]
39: BEGIN
40: IF pg_debug = 'Y' THEN
41: debug ('ar_invoice_utils.validate_gdf(+)' );
42: END IF;
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44:
45: l_return_code := jg_zz_invoice_create.validate_gdff
46: (p_request_id => p_request_id);
47:
50: END IF;
51: EXCEPTION
52: WHEN OTHERS THEN
53: x_errmsg := 'error in ar_invoice_utils.validate_gdf ' || sqlerrm;
54: x_return_status := fnd_api.g_ret_sts_unexp_error;
55: RETURN;
56: END;
57:
58: -- Bug # 3099975
68: IF pg_debug = 'Y' THEN
69: debug ('ar_invoice_utils.validate_remit_to_address_id(+)' );
70: END IF;
71:
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74: INSERT INTO ar_trx_errors_gt (
75: trx_header_id,
76: error_message,
92: EXCEPTION
93: WHEN OTHERS THEN
94: x_errmsg := 'error in ar_invoice_utils.validate_remit_to_address_id '
95: || sqlerrm;
96: x_return_status := fnd_api.g_ret_sts_unexp_error;
97: RETURN;
98:
99: END validate_remit_to_address_id;
100:
108: IF pg_debug = 'Y' THEN
109: debug ('ar_invoice_utils.validate_trx_class(+)' );
110: END IF;
111:
112: x_return_status := FND_API.G_RET_STS_SUCCESS;
113:
114: INSERT INTO ar_trx_errors_gt (
115: trx_header_id,
116: error_message,
128:
129: EXCEPTION
130: WHEN OTHERS THEN
131: x_errmsg := 'Error in ar_invoice_utils.validate_trx_class '||sqlerrm;
132: x_return_status := fnd_api.g_ret_sts_unexp_error;
133: RETURN;
134:
135: END validate_trx_class;
136:
144: IF pg_debug = 'Y' THEN
145: debug ('ar_invoice_utils.validate_ship_via(+)' );
146: END IF;
147:
148: x_return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: INSERT INTO ar_trx_errors_gt (
151: trx_header_id,
152: error_message,
169:
170: EXCEPTION
171: WHEN OTHERS THEN
172: x_errmsg := 'error in ar_invoice_utils.validate_ship_via '|| sqlerrm;
173: x_return_status := fnd_api.g_ret_sts_unexp_error;
174: RETURN;
175:
176: END validate_ship_via;
177:
185: IF pg_debug = 'Y' THEN
186: debug ('ar_invoice_utils.validate_fob_point(+)' );
187: END IF;
188:
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
191: INSERT INTO ar_trx_errors_gt (
192: trx_header_id,
193: error_message,
211:
212: EXCEPTION
213: WHEN OTHERS THEN
214: x_errmsg := 'error in ar_invoice_utils.validate_fob_point '|| sqlerrm;
215: x_return_status := fnd_api.g_ret_sts_unexp_error;
216: RETURN;
217:
218: END validate_fob_point;
219:
227: IF pg_debug = 'Y' THEN
228: debug ('ar_invoice_utils.validate_ussgl_code(+)' );
229: END IF;
230:
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232:
233: INSERT INTO ar_trx_errors_gt (
234: trx_header_id,
235: error_message,
254:
255: EXCEPTION
256: WHEN OTHERS THEN
257: x_errmsg := 'error in ar_invoice_utils.validate_ussgl_code '|| sqlerrm;
258: x_return_status := fnd_api.g_ret_sts_unexp_error;
259: RETURN;
260:
261: END validate_ussgl_code;
262:
270: IF pg_debug = 'Y' THEN
271: debug ('ar_invoice_utils.validate_payment_method(+)' );
272: END IF;
273:
274: x_return_status := FND_API.G_RET_STS_SUCCESS;
275:
276: INSERT INTO ar_trx_errors_gt (
277: trx_header_id,
278: error_message,
372: EXCEPTION
373: WHEN OTHERS THEN
374: x_errmsg := 'error in ar_invoice_utils.validate_payment_method '
375: || sqlerrm;
376: x_return_status := fnd_api.g_ret_sts_unexp_error;
377: RETURN;
378:
379: END validate_payment_method;
380:
388: IF pg_debug = 'Y' THEN
389: debug ('ar_invoice_utils.validate_legal_entity(+)' );
390: END IF;
391:
392: x_return_status := FND_API.G_RET_STS_SUCCESS;
393:
394: INSERT INTO ar_trx_errors_gt (
395: trx_header_id,
396: error_message,
413: EXCEPTION
414: WHEN OTHERS THEN
415: x_errmsg := 'error in ar_invoice_utils.validate_legal_entity '
416: || sqlerrm;
417: x_return_status := fnd_api.g_ret_sts_unexp_error;
418: RETURN;
419:
420: END validate_legal_entity;
421:
428: IF pg_debug = 'Y' THEN
429: debug ('ar_invoice_utils.validate_cust_bank_account_id(+)' );
430: END IF;
431:
432: x_return_status := FND_API.G_RET_STS_SUCCESS;
433: /* payment uptake removed the validation for cust_bank_account_id */
434:
435: END validate_cust_bank_account_id;
436:
445: IF pg_debug = 'Y' THEN
446: debug ('ar_invoice_utils.validate_paying_customer_id(+)' );
447: END IF;
448:
449: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: -- Removed the prospect join as per the bug 3310138
451: IF p_trx_system_param_rec.pay_unrelated_invoices_flag = 'Y'
452: THEN
453: INSERT INTO ar_trx_errors_gt (
506: EXCEPTION
507: WHEN OTHERS THEN
508: x_errmsg := 'error in ar_invoice_utils.validate_paying_customer_id '||
509: sqlerrm;
510: x_return_status := fnd_api.g_ret_sts_unexp_error;
511: RETURN;
512:
513: END validate_paying_customer_id;
514:
523: IF pg_debug = 'Y' THEN
524: debug ('ar_invoice_utils.validate_paying_site_use_id(+)' );
525: END IF;
526:
527: x_return_status := FND_API.G_RET_STS_SUCCESS;
528:
529: INSERT INTO ar_trx_errors_gt (
530: trx_header_id,
531: error_message,
553: EXCEPTION
554: WHEN OTHERS THEN
555: x_errmsg := 'error in ar_invoice_utils.validate_paying_site_use_id '||
556: sqlerrm;
557: x_return_status := fnd_api.g_ret_sts_unexp_error;
558: RETURN;
559:
560: END validate_paying_site_use_id;
561:
569: IF pg_debug = 'Y' THEN
570: debug ('ar_invoice_utils.validate_sold_to_customer_id(+)' );
571: END IF;
572:
573: x_return_status := FND_API.G_RET_STS_SUCCESS;
574:
575: INSERT INTO ar_trx_errors_gt (
576: trx_header_id,
577: error_message,
594: EXCEPTION
595: WHEN OTHERS THEN
596: x_errmsg := 'error in ar_invoice_utils.validate_sold_to_customer_id '||
597: sqlerrm;
598: x_return_status := fnd_api.g_ret_sts_unexp_error;
599: RETURN;
600:
601: END validate_sold_to_customer_id;
602:
610: IF pg_debug = 'Y' THEN
611: debug ('ar_invoice_utils.validate_ship_to_customer_name(+)' );
612: END IF;
613:
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
615:
616: INSERT INTO ar_trx_errors_gt (
617: trx_header_id,
618: error_message,
636: EXCEPTION
637: WHEN OTHERS THEN
638: x_errmsg := 'error in ar_invoice_utils.validate_ship_to_customer_name '
639: || sqlerrm;
640: x_return_status := fnd_api.g_ret_sts_unexp_error;
641: RETURN;
642:
643: END validate_ship_to_customer_name;
644:
652: IF pg_debug = 'Y' THEN
653: debug ('ar_invoice_utils.validate_ship_to_cust_number(+)' );
654: END IF;
655:
656: x_return_status := FND_API.G_RET_STS_SUCCESS;
657:
658: INSERT INTO ar_trx_errors_gt (
659: trx_header_id,
660: error_message,
676: EXCEPTION
677: WHEN OTHERS THEN
678: x_errmsg := 'error in ar_invoice_utils.validate_ship_to_cust_number '
679: || sqlerrm;
680: x_return_status := fnd_api.g_ret_sts_unexp_error;
681: RETURN;
682:
683: END validate_ship_to_cust_number;
684:
692: IF pg_debug = 'Y' THEN
693: debug ('ar_invoice_utils.validate_bill_to_customer_name(+)' );
694: END IF;
695:
696: x_return_status := FND_API.G_RET_STS_SUCCESS;
697:
698: INSERT INTO ar_trx_errors_gt (
699: trx_header_id,
700: error_message,
718: EXCEPTION
719: WHEN OTHERS THEN
720: x_errmsg := 'error in ar_invoice_utils.validate_bill_to_customer_name '
721: || sqlerrm;
722: x_return_status := fnd_api.g_ret_sts_unexp_error;
723: RETURN;
724:
725: END validate_bill_to_customer_name;
726:
734: IF pg_debug = 'Y' THEN
735: debug ('ar_invoice_utils.validate_bill_to_cust_number(+)' );
736: END IF;
737:
738: x_return_status := FND_API.G_RET_STS_SUCCESS;
739:
740: INSERT INTO ar_trx_errors_gt (
741: trx_header_id,
742: error_message,
758: EXCEPTION
759: WHEN OTHERS THEN
760: x_errmsg := 'error in ar_invoice_utils.validate_bill_to_cust_number '
761: || sqlerrm;
762: x_return_status := fnd_api.g_ret_sts_unexp_error;
763: RETURN;
764:
765: END validate_bill_to_cust_number;
766:
774: IF pg_debug = 'Y' THEN
775: debug ('ar_invoice_utils.validate_bill_to_contact_id(+)' );
776: END IF;
777:
778: x_return_status := FND_API.G_RET_STS_SUCCESS;
779:
780: INSERT INTO ar_trx_errors_gt (
781: trx_header_id,
782: error_message,
813: EXCEPTION
814: WHEN OTHERS THEN
815: x_errmsg := 'error in ar_invoice_utils.validate_bill_to_contact_id '||
816: sqlerrm;
817: x_return_status := fnd_api.g_ret_sts_unexp_error;
818: RETURN;
819:
820: END validate_bill_to_contact_id;
821:
829: IF pg_debug = 'Y' THEN
830: debug ('ar_invoice_utils.validate_ship_to_contact_id(+)' );
831: END IF;
832:
833: x_return_status := FND_API.G_RET_STS_SUCCESS;
834:
835: INSERT INTO ar_trx_errors_gt (
836: trx_header_id,
837: error_message,
868: EXCEPTION
869: WHEN OTHERS THEN
870: x_errmsg := 'error in ar_invoice_utils.validate_ship_to_contact_id '||
871: sqlerrm;
872: x_return_status := fnd_api.g_ret_sts_unexp_error;
873: RETURN;
874:
875: END validate_ship_to_contact_id;
876:
884: IF pg_debug = 'Y' THEN
885: debug ('ar_invoice_utils.validate_exchange_rate_type(+)' );
886: END IF;
887:
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889:
890: INSERT INTO ar_trx_errors_gt (
891: trx_header_id,
892: error_message,
909: EXCEPTION
910: WHEN OTHERS THEN
911: x_errmsg := 'error in ar_invoice_utils.validate_exchange_rate_type '||
912: sqlerrm;
913: x_return_status := fnd_api.g_ret_sts_unexp_error;
914: RETURN;
915:
916: END validate_exchange_rate_type;
917:
1251:
1252: EXCEPTION
1253: WHEN OTHERS THEN
1254: x_errmsg := 'ar_invoice_utils.validate_dependent_parameters: '||sqlerrm;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: RETURN;
1257:
1258: END validate_dependent_parameters;
1259:
1267: IF pg_debug = 'Y' THEN
1268: debug ('ar_invoice_utils.validate_master_detail(+)' );
1269: END IF;
1270:
1271: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272:
1273: -- Every header level row should have atleast one line level row.
1274: INSERT INTO ar_trx_errors_gt (
1275: trx_header_id,
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: x_errmsg := 'error in ar_invoice_utils.validate_master_detail '
1366: || sqlerrm;
1367: x_return_status := fnd_api.g_ret_sts_unexp_error;
1368: RETURN;
1369:
1370: END validate_master_detail;
1371:
1383: THEN
1384: debug ('AR_INVOICE_UTILS.validate_trx_number(+)' );
1385: END IF;
1386:
1387: x_return_status := FND_API.G_RET_STS_SUCCESS;
1388:
1389: INSERT INTO ar_trx_errors_gt (
1390: trx_header_id,
1391: error_message,
1437: END IF;
1438: EXCEPTION
1439: WHEN OTHERS THEN
1440: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_trx_number '||sqlerrm;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: RETURN;
1443: END;
1444:
1445: /* Changes for SEPA */
1450: IF pg_debug = 'Y' THEN
1451: debug ('AR_INVOICE_UTILS.validate_mandate_flag(+)' );
1452: END IF;
1453:
1454: x_return_status := FND_API.G_RET_STS_SUCCESS;
1455:
1456: INSERT INTO ar_trx_errors_gt (
1457: trx_header_id,
1458: error_message,
1470: END IF;
1471: EXCEPTION
1472: WHEN OTHERS THEN
1473: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_mandate_flag'||sqlerrm;
1474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1475: RETURN;
1476:
1477: END;
1478:
1487: THEN
1488: debug ('AR_INVOICE_UTILS.validate_batch_source(+)' );
1489: END IF;
1490:
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492:
1493: BEGIN
1494: INSERT INTO ar_trx_errors_gt (
1495: trx_header_id,
1517:
1518: EXCEPTION
1519: WHEN OTHERS THEN
1520: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_batch_source '||sqlerrm;
1521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1522: RETURN;
1523:
1524: END;
1525:
1534: THEN
1535: debug ('AR_INVOICE_UTILS.validate_currency(+)' );
1536: END IF;
1537:
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1540: INSERT INTO ar_trx_errors_gt
1541: ( trx_header_id,
1542: error_message,
1559: END IF;
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_currency '||sqlerrm;
1563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1564: RETURN;
1565: END;
1566:
1567: PROCEDURE validate_transaction_type
1573: THEN
1574: debug ('AR_INVOICE_UTILS.validate_transaction_type(+)' );
1575: END IF;
1576:
1577: x_return_status := FND_API.G_RET_STS_SUCCESS;
1578: INSERT INTO ar_trx_errors_gt (
1579: trx_header_id,
1580: error_message,
1581: invalid_value)
1609:
1610: EXCEPTION
1611: WHEN OTHERS THEN
1612: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_transaction_type '||sqlerrm;
1613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1614: RETURN;
1615:
1616: END;
1617:
1623: THEN
1624: debug ('AR_INVOICE_UTILS.validate_bill_to_customer_id(+)' );
1625: END IF;
1626:
1627: x_return_status := FND_API.G_RET_STS_SUCCESS;
1628:
1629: INSERT INTO ar_trx_errors_gt (
1630: trx_header_id,
1631: error_message,
1647: END IF;
1648: EXCEPTION
1649: WHEN OTHERS THEN
1650: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_customer_id '||sqlerrm;
1651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1652: RETURN;
1653:
1654: END;
1655:
1661: IF pg_debug = 'Y'
1662: THEN
1663: debug ('AR_INVOICE_UTILS.validate_bill_to_site_use_id(+)' );
1664: END IF;
1665: x_return_status := FND_API.G_RET_STS_SUCCESS;
1666:
1667: if(nvl(FND_PROFILE.value('AR_TRX_DEFAULT_PRIM_SITE_USE'),'BILL_SHIP_TO') not in ('BILL_TO','BILL_SHIP_TO')) then
1668: INSERT INTO ar_trx_errors_gt (
1669: trx_header_id,
1704: EXCEPTION
1705: WHEN OTHERS THEN
1706: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_site_use_id '
1707: ||sqlerrm;
1708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1709: RETURN;
1710:
1711: END validate_bill_to_site_use_id;
1712:
1720: THEN
1721: debug ('AR_INVOICE_UTILS.validate_bill_to_address_id(+)' );
1722: END IF;
1723:
1724: x_return_status := FND_API.G_RET_STS_SUCCESS;
1725:
1726: INSERT INTO ar_trx_errors_gt (
1727: trx_header_id,
1728: error_message,
1757: END IF;
1758: EXCEPTION
1759: WHEN OTHERS THEN
1760: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_address_id '||sqlerrm;
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1762: RETURN;
1763:
1764: END;
1765:
1775: THEN
1776: debug ('AR_INVOICE_UTILS.validate_ship_to_customer_id(+)' );
1777: END IF;
1778:
1779: x_return_status := FND_API.G_RET_STS_SUCCESS;
1780:
1781: INSERT INTO ar_trx_errors_gt (
1782: trx_header_id,
1783: error_message,
1802: EXCEPTION
1803: WHEN OTHERS THEN
1804: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_customer_id '
1805: ||sqlerrm;
1806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1807: RETURN;
1808: END;
1809:
1810: PROCEDURE validate_ship_to_site_use_id (
1816: THEN
1817: debug ('AR_INVOICE_UTILS.validate_ship_to_site_use_id(+)' );
1818: END IF;
1819:
1820: x_return_status := FND_API.G_RET_STS_SUCCESS;
1821:
1822: -- The below if condition is added to validate ship_to_site_use_id before defaulting ship_to details
1823: if(x_called = 'BEFORE') then
1824: if( nvl(FND_PROFILE.value('AR_TRX_DEFAULT_PRIM_SITE_USE'),'BILL_SHIP_TO') not in ('SHIP_TO','BILL_SHIP_TO')) then
1874: END IF;
1875: EXCEPTION
1876: WHEN OTHERS THEN
1877: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_site_use_id '||sqlerrm;
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879: RETURN;
1880: END;
1881:
1882: PROCEDURE validate_ship_to_location (
1887: THEN
1888: debug ('AR_INVOICE_UTILS.validate_ship_to_location(+)' );
1889: END IF;
1890:
1891: x_return_status := FND_API.G_RET_STS_SUCCESS;
1892:
1893: INSERT INTO ar_trx_errors_gt (
1894: trx_header_id,
1895: error_message,
1925: END IF;
1926: EXCEPTION
1927: WHEN OTHERS THEN
1928: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_location '||sqlerrm;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: RETURN;
1931: END;
1932:
1933:
1940: IF pg_debug = 'Y' THEN
1941: debug ('AR_INVOICE_UTILS.populate_ship_to_site_use_id (+)' );
1942: END IF;
1943:
1944: x_return_status := FND_API.G_RET_STS_SUCCESS;
1945:
1946: -- We are here to populate ship_to_site_use_id column. We should only
1947: -- do it for rows where it is not already populated. Moreover, first we
1948: -- should see if ship_to_address_id is populated then we should derive the
1997: EXCEPTION
1998: WHEN OTHERS THEN
1999: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_site_use_id '
2000: ||sqlerrm;
2001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2002: RETURN;
2003:
2004: END populate_ship_to_site_use_id;
2005:
2020: populate_ship_to_site_use_id(
2021: x_errmsg => x_errmsg,
2022: x_return_status => x_return_status);
2023:
2024: x_return_status := FND_API.G_RET_STS_SUCCESS;
2025:
2026: INSERT INTO ar_trx_errors_gt (
2027: trx_header_id,
2028: error_message,
2061:
2062: EXCEPTION
2063: WHEN OTHERS THEN
2064: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_address '||sqlerrm;
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: RETURN;
2067: END validate_ship_to_address;
2068:
2069:
2075: IF pg_debug = 'Y'
2076: THEN
2077: debug ('AR_INVOICE_UTILS.validate_terms(+)' );
2078: END IF;
2079: x_return_status := FND_API.G_RET_STS_SUCCESS;
2080:
2081: INSERT INTO ar_trx_errors_gt (
2082: trx_header_id,
2083: error_message,
2120: END IF;
2121: EXCEPTION
2122: WHEN OTHERS THEN
2123: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_terms '||sqlerrm;
2124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2125: RETURN;
2126:
2127: END validate_terms;
2128:
2139: THEN
2140: debug ('AR_INVOICE_UTILS.validate_salesrep(+)' );
2141: END IF;
2142:
2143: x_return_status := FND_API.G_RET_STS_SUCCESS;
2144:
2145: /*
2146: INSERT INTO ar_trx_errors_gt (
2147: trx_header_id,
2222:
2223: EXCEPTION
2224: WHEN OTHERS THEN
2225: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_salesrep '||sqlerrm;
2226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2227: RETURN;
2228:
2229: END validate_salesrep;
2230:
2237: THEN
2238: debug ('AR_INVOICE_UTILS.validate_invoicing_rule_id(+)' );
2239: END IF;
2240:
2241: x_return_status := FND_API.G_RET_STS_SUCCESS;
2242:
2243: -- in case of debit memo invoice rule id is not required
2244: -- in case of credit memo invoice rule id is not required ER 5869149
2245: INSERT INTO ar_trx_errors_gt (
2275: EXCEPTION
2276: WHEN OTHERS THEN
2277: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_invoicing_rule_id '
2278: ||sqlerrm;
2279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2280: RETURN;
2281:
2282: END validate_invoicing_rule_id;
2283:
2292: THEN
2293: debug ('AR_INVOICE_UTILS.validate_print_option(+)' );
2294: END IF;
2295:
2296: x_return_status := FND_API.G_RET_STS_SUCCESS;
2297:
2298: INSERT INTO ar_trx_errors_gt (
2299: trx_header_id,
2300: error_message,
2313: EXCEPTION
2314: WHEN OTHERS THEN
2315: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_print_option '
2316: ||sqlerrm;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: RETURN;
2319:
2320: END validate_print_option;
2321:
2331: THEN
2332: debug ('AR_INVOICE_UTILS.populate_printing_pendings(+)' );
2333: END IF;
2334:
2335: x_return_status := FND_API.G_RET_STS_SUCCESS;
2336:
2337: update ar_trx_header_gt gt
2338: set gt.printing_pending=decode(gt.PRINTING_OPTION,'PRI','Y','N');
2339:
2344:
2345: EXCEPTION
2346: WHEN OTHERS THEN
2347: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_printing_pending '||sqlerrm;
2348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2349: RETURN;
2350:
2351: End populate_printing_pending;
2352:
2361: THEN
2362: debug ('AR_INVOICE_UTILS.validate_default_tax(+)' );
2363: END IF;
2364:
2365: x_return_status := FND_API.G_RET_STS_SUCCESS;
2366: BEGIN
2367: /* 4257557 - changed to zx_product_options */
2368: select nvl(tax_use_customer_exempt_flag,'N')
2369: into l_tax_use_exempt_flag
2405:
2406: EXCEPTION
2407: WHEN OTHERS THEN
2408: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_default_tax '||sqlerrm;
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2410: RETURN;
2411:
2412: END validate_default_tax;
2413:
2421: THEN
2422: debug ('AR_INVOICE_UTILS.validate_Status(+)' );
2423: END IF;
2424:
2425: x_return_status := FND_API.G_RET_STS_SUCCESS;
2426:
2427: INSERT INTO ar_trx_errors_gt (
2428: trx_header_id,
2429: error_message,
2442:
2443: EXCEPTION
2444: WHEN OTHERS THEN
2445: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_Status '||sqlerrm;
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: RETURN;
2448:
2449: END validate_status;
2450:
2458: THEN
2459: debug ('AR_INVOICE_UTILS.validate_finance_charges(+)' );
2460: END IF;
2461:
2462: x_return_status := FND_API.G_RET_STS_SUCCESS;
2463:
2464: INSERT INTO ar_trx_errors_gt (
2465: trx_header_id,
2466: error_message,
2480: EXCEPTION
2481: WHEN OTHERS THEN
2482: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_finance_charges '
2483: ||sqlerrm;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2485: RETURN;
2486:
2487: END validate_finance_charges;
2488:
2497: THEN
2498: debug ('AR_INVOICE_UTILS.validate_related_cust_trx_id(+)' );
2499: END IF;
2500:
2501: x_return_status := FND_API.G_RET_STS_SUCCESS;
2502:
2503: INSERT INTO ar_trx_errors_gt (
2504: trx_header_id,
2505: error_message,
2547: EXCEPTION
2548: WHEN OTHERS THEN
2549: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_related_cust_trx_id '
2550: ||sqlerrm;
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552: RETURN;
2553:
2554: END validate_related_cust_trx_id;
2555:
2571: THEN
2572: debug ('AR_INVOICE_UTILS.validate_gl_date(+)' );
2573: END IF;
2574:
2575: x_return_status := FND_API.G_RET_STS_SUCCESS;
2576:
2577: FOR cglDateRec IN cglDate
2578: LOOP
2579:
2673:
2674: EXCEPTION
2675: WHEN OTHERS THEN
2676: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_gl_date '||sqlerrm;
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: RETURN;
2679: END;
2680:
2681: PROCEDURE validate_agreement_id (
2686: THEN
2687: debug ('AR_INVOICE_UTILS.validate_agreement_id(+)' );
2688: END IF;
2689:
2690: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691:
2692: INSERT INTO ar_trx_errors_gt (
2693: trx_header_id,
2694: error_message,
2732: EXCEPTION
2733: WHEN OTHERS THEN
2734: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_agreement_id '||
2735: sqlerrm;
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: RETURN;
2738:
2739: END validate_agreement_id;
2740:
2752: THEN
2753: debug ('AR_INVOICE_UTILS.Get_batch_source_details(+)' );
2754: END IF;
2755:
2756: x_return_status := FND_API.G_RET_STS_SUCCESS;
2757:
2758: SELECT bs.auto_batch_numbering_flag,
2759: bs.auto_trx_numbering_flag,
2760: bs.default_reference,
2821: gt.batch_source_id
2822: FROM ar_trx_header_gt gt;
2823: WHEN OTHERS THEN
2824: x_errmsg := 'Error in AR_INVOICE_UTILS.Get_batch_source_details '||sqlerrm;
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: RETURN;
2827:
2828: END get_batch_source_details;
2829:
2851: IF pg_debug = 'Y'
2852: THEN
2853: debug ('AR_INVOICE_UTILS.Get_trx_type_details(+)' );
2854: END IF;
2855: x_return_status := FND_API.G_RET_STS_SUCCESS;
2856:
2857: FOR cust_trx_type_rec IN cust_trx_type_c
2858: LOOP
2859: BEGIN
2932:
2933:
2934: WHEN OTHERS THEN
2935: x_errmsg := 'Error in AR_INVOICE_UTILS.Get_trx_type_details '||sqlerrm;
2936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2937: RETURN;
2938:
2939: END get_trx_type_details;
2940:
2948: THEN
2949: debug ('AR_INVOICE_UTILS.populate_salesreps(+)' );
2950: END IF;
2951:
2952: x_return_status := FND_API.G_RET_STS_SUCCESS;
2953: /*Bug8266696*/
2954: UPDATE ar_trx_header_gt gt
2955: SET gt.primary_salesrep_id =
2956: ( SELECT SU.PRIMARY_SALESREP_ID
2980:
2981: EXCEPTION
2982: WHEN OTHERS THEN
2983: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_salesreps '||sqlerrm;
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2985: RETURN;
2986:
2987: END populate_salesreps;
2988:
2996: IF pg_debug = 'Y' THEN
2997: debug ('AR_INVOICE_UTILS.populate_bill_to_customer_id(+)' );
2998: END IF;
2999:
3000: x_return_status := FND_API.G_RET_STS_SUCCESS;
3001:
3002: -- if bill to customer number is passed then that should be used
3003: -- derive the bill to customer id.
3004:
3062: EXCEPTION
3063: WHEN OTHERS THEN
3064: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_customer_id '
3065: ||sqlerrm;
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: RETURN;
3068:
3069: END populate_bill_to_customer_id;
3070:
3078: IF pg_debug = 'Y' THEN
3079: debug ('AR_INVOICE_UTILS.populate_bill_to_site_use_id (+)' );
3080: END IF;
3081:
3082: x_return_status := FND_API.G_RET_STS_SUCCESS;
3083:
3084: -- We are here to populate bill_to_site_use_id column. We should only
3085: -- do it for rows where it is not already populated. Moreover, first we
3086: -- should see if bill_to_address_id is populated then we should derive the
3135: EXCEPTION
3136: WHEN OTHERS THEN
3137: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_site_use_id '
3138: ||sqlerrm;
3139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3140: RETURN;
3141:
3142: END populate_bill_to_site_use_id;
3143:
3200: IF pg_debug = 'Y' THEN
3201: debug ('AR_INVOICE_UTILS.populate_bill_to_address_id(+)' );
3202: END IF;
3203:
3204: x_return_status := FND_API.G_RET_STS_SUCCESS;
3205:
3206: -- We are here to populate bill_to_address_id column. We should only
3207: -- do it for rows where it is not already populated. Moreover, first we
3208: -- should see if bill_to_site_use_id is populated then we should derive the
3250: EXCEPTION
3251: WHEN OTHERS THEN
3252: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_address_id '
3253: ||sqlerrm;
3254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3255: RETURN;
3256:
3257: END populate_bill_to_address_id;
3258:
3288: THEN
3289: debug ('AR_INVOICE_UTILS.populate_remit_to_address_id (+)' );
3290: END IF;
3291:
3292: x_return_status := FND_API.G_RET_STS_SUCCESS;
3293: FOR HdrGtRec IN HdrGtc
3294: LOOP
3295: l_site_use_id := HdrGtRec.bill_to_site_use_id;
3296: FOR bill_to_site_rec IN bill_to_site_c
3361:
3362: EXCEPTION
3363: WHEN OTHERS THEN
3364: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_remit_to_address_id '||sqlerrm;
3365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3366: RETURN;
3367:
3368: END populate_remit_to_address_id;
3369:
3382: IF pg_debug = 'Y'
3383: THEN
3384: debug ('AR_INVOICE_UTILS.populate_bill_to_contact_id(+)' );
3385: END IF;
3386: x_return_status := FND_API.G_RET_STS_SUCCESS;
3387: -- the cursor is required becoz the select to get the contact id
3388: -- returns more than one row. In case it returns more than one row
3389: -- then contact id will be null.
3390: FOR bill_to_customer_id_rec IN bill_to_customer_id_c
3432: EXCEPTION
3433: WHEN OTHERS THEN
3434: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_contact_id '
3435: ||sqlerrm;
3436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3437: RETURN;
3438:
3439: END populate_bill_to_contact_id;
3440:
3448: IF pg_debug = 'Y' THEN
3449: debug ('AR_INVOICE_UTILS.populate_ship_to_customer_id(+)' );
3450: END IF;
3451:
3452: x_return_status := FND_API.G_RET_STS_SUCCESS;
3453:
3454: -- if bill to customer number is passed then that should be used
3455: -- derive the bill to customer id.
3456:
3491: EXCEPTION
3492: WHEN OTHERS THEN
3493: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_customer_id '
3494: ||sqlerrm;
3495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3496: RETURN;
3497:
3498: END populate_ship_to_customer_id;
3499:
3507: IF pg_debug = 'Y' THEN
3508: debug ('AR_INVOICE_UTILS.populate_ship_to_address_id(+)' );
3509: END IF;
3510:
3511: x_return_status := FND_API.G_RET_STS_SUCCESS;
3512:
3513: -- We are here to populate ship_to_address_id column. We should only
3514: -- do it for rows where it is not already populated. Moreover, first we
3515: -- should see if ship_to_site_use_id is populated then we should derive the
3558: EXCEPTION
3559: WHEN OTHERS THEN
3560: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_address_id '
3561: ||sqlerrm;
3562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3563: RETURN;
3564:
3565: END populate_ship_to_address_id;
3566:
3580: THEN
3581: debug ('AR_INVOICE_UTILS.populate_ship_to_contact_id(+)' );
3582: END IF;
3583:
3584: x_return_status := FND_API.G_RET_STS_SUCCESS;
3585:
3586: -- the cursor is required becoz the select to get the contact id
3587: -- returns more than one row. In case it returns more than one row
3588: -- then contact id will be null.
3630:
3631: EXCEPTION
3632: WHEN OTHERS THEN
3633: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_contact_id '||sqlerrm;
3634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3635: RETURN;
3636:
3637: END;
3638:
3669: IF pg_debug = 'Y'
3670: THEN
3671: debug ('AR_INVOICE_UTILS.populate_populate_territory (+)' );
3672: END IF;
3673: x_return_status := FND_API.G_RET_STS_SUCCESS;
3674:
3675: /*----------------------------------------------------------------+
3676: | Default the territory flexfield from |
3677: | - The Bill To site use |
3712: END IF;
3713: EXCEPTION
3714: WHEN OTHERS THEN
3715: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_territory '||sqlerrm;
3716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717: RETURN;
3718: END;
3719:
3720: /* 4188835 - call legal_entity function to default it for
3745:
3746: EXCEPTION
3747: WHEN OTHERS THEN
3748: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_legal_entity '||sqlerrm;
3749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3750: RETURN;
3751: END populate_legal_entity;
3752:
3753: procedure populate_customer_attributes (
3765: THEN
3766: debug ('Getting bill_to_site_use_id(+)' );
3767: END IF;
3768:
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
3770:
3771: populate_bill_to_site_use_id (
3772: x_errmsg => x_errmsg,
3773: x_return_status => x_return_status );
3771: populate_bill_to_site_use_id (
3772: x_errmsg => x_errmsg,
3773: x_return_status => x_return_status );
3774:
3775: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3776: THEN
3777: RETURN;
3778: END IF;
3779:
3909: END IF;
3910: populate_salesreps (
3911: x_errmsg => x_errmsg,
3912: x_return_status => x_return_status );
3913: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3914: THEN
3915: RETURN;
3916: END IF;
3917: IF pg_debug = 'Y'
3922:
3923: populate_bill_to_customer_id (
3924: x_errmsg => x_errmsg,
3925: x_return_status => x_return_status );
3926: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3927: RETURN;
3928: ELSE
3929: INSERT INTO ar_trx_errors_gt (
3930: trx_header_id,
3939: populate_ship_to_site_use_id(
3940: x_errmsg => x_errmsg,
3941: x_return_status => x_return_status);
3942:
3943: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3944: RETURN;
3945: END IF;
3946: populate_paying_site_use_id (
3947: x_errmsg => x_errmsg,
3946: populate_paying_site_use_id (
3947: x_errmsg => x_errmsg,
3948: x_return_status => x_return_status );
3949:
3950: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3951: RETURN;
3952: END IF;
3953: populate_bill_to_address_id (
3954: x_errmsg => x_errmsg,
3953: populate_bill_to_address_id (
3954: x_errmsg => x_errmsg,
3955: x_return_status => x_return_status );
3956:
3957: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3958: RETURN;
3959: ELSE
3960: INSERT INTO ar_trx_errors_gt (
3961: trx_header_id,
3976: populate_remit_to_address_id (
3977: x_errmsg => x_errmsg,
3978: x_return_status => x_return_status );
3979:
3980: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3981: THEN
3982: RETURN;
3983: END IF;
3984:
3991: populate_bill_to_contact_id (
3992: x_errmsg => x_errmsg,
3993: x_return_status => x_return_status );
3994:
3995: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3996: THEN
3997: RETURN;
3998: END IF;
3999:
4009:
4010: EXCEPTION
4011: WHEN OTHERS THEN
4012: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_customer_attributes '||sqlerrm;
4013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4014: RETURN;
4015:
4016: END populate_customer_attributes;
4017:
4025: THEN
4026: debug ('AR_INVOICE_UTILS.populate_ref_hdr_attributes (+)' );
4027: END IF;
4028:
4029: x_return_status := FND_API.G_RET_STS_SUCCESS;
4030:
4031: IF pg_debug = 'Y'
4032: THEN
4033: debug ('AR_INVOICE_UTILS.Get_batch_source_details (+)' );
4035: Get_batch_source_details (
4036: x_errmsg => x_errmsg,
4037: x_return_status => x_return_status );
4038:
4039: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4040: THEN
4041: RETURN;
4042: END IF;
4043: -- validate the trx type.
4048: END IF;
4049: validate_transaction_type(
4050: x_errmsg => x_errmsg,
4051: x_return_status => x_return_status);
4052: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4053: THEN
4054: RETURN;
4055: END IF;
4056: IF pg_debug = 'Y'
4064: Get_trx_type_details (
4065: x_errmsg => x_errmsg,
4066: x_return_status => x_return_status );
4067:
4068: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4069: THEN
4070: RETURN;
4071: END IF;
4072: IF pg_debug = 'Y'
4075: debug ('AR_INVOICE_DEFAULT_PVT.Default_gl_date (+)' );
4076: END IF;
4077: AR_INVOICE_DEFAULT_PVT.Default_gl_date;
4078:
4079: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4080: THEN
4081: RETURN;
4082: END IF;
4083: IF pg_debug = 'Y'
4090: x_return_status => x_return_status );
4091:
4092: validate_bfb;
4093:
4094: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4095: THEN
4096: RETURN;
4097: END IF;
4098: IF pg_debug = 'Y'
4106:
4107: EXCEPTION
4108: WHEN OTHERS THEN
4109: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ref_hdr_attributes '||sqlerrm;
4110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4111: RETURN;
4112:
4113: END populate_ref_hdr_attributes;
4114:
4124: THEN
4125: debug ('AR_INVOICE_UTILS.validate_UOM_CODE (+)' );
4126: END IF;
4127:
4128: x_return_status := FND_API.G_RET_STS_SUCCESS;
4129:
4130: l_so_org_id := to_number(oe_profile.value('SO_ORGANIZATION_ID')); /*Bug 3752043*/
4131:
4132: INSERT INTO ar_trx_errors_gt
4192: END IF;
4193: EXCEPTION
4194: WHEN OTHERS THEN
4195: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_UOM_CODE '||sqlerrm;
4196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4197: RETURN;
4198:
4199: END validate_uom_code;
4200:
4207: IF pg_debug = 'Y'
4208: THEN
4209: debug ('AR_INVOICE_UTILS.validate_tax_code (+)' );
4210: END IF;
4211: x_return_status := FND_API.G_RET_STS_SUCCESS;
4212:
4213: /* With etax, they are now responsible for insuring that
4214: - tax is valid
4215: - not a location tax
4226:
4227: EXCEPTION
4228: WHEN OTHERS THEN
4229: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_code '||sqlerrm;
4230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4231: RETURN;
4232:
4233: END validate_tax_code;
4234:
4241: THEN
4242: debug ('AR_INVOICE_UTILS.validate_tax_lines (+)' );
4243: END IF;
4244:
4245: x_return_status := FND_API.G_RET_STS_SUCCESS;
4246:
4247: INSERT INTO ar_trx_errors_gt
4248: ( trx_header_id,
4249: trx_line_id,
4301:
4302: EXCEPTION
4303: WHEN OTHERS THEN
4304: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_freight_lines '||sqlerrm;
4305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4306: RETURN;
4307: END;
4308:
4309: PROCEDURE validate_tax_exemption (
4322: THEN
4323: debug ('AR_INVOICE_UTILS.validate_tax_exemption (+)' );
4324: END IF;
4325:
4326: x_return_status := FND_API.G_RET_STS_SUCCESS;
4327: BEGIN
4328: /* 4257557 - changed to zx_product_options */
4329: select nvl(tax_use_customer_exempt_flag,'N')
4330: into l_tax_use_exempt_flag
4414: EXCEPTION
4415: WHEN OTHERS THEN
4416: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_exemption '
4417: ||sqlerrm;
4418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4419: RETURN;
4420:
4421: END validate_tax_exemption;
4422:
4430: THEN
4431: debug ('AR_INVOICE_UTILS.validate_more_tab (+)' );
4432: END IF;
4433:
4434: x_return_status := FND_API.G_RET_STS_SUCCESS;
4435:
4436: -- reason code
4437: INSERT INTO ar_trx_errors_gt
4438: ( trx_header_id,
4474:
4475: EXCEPTION
4476: WHEN OTHERS THEN
4477: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_more_tab '||sqlerrm;
4478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4479: RETURN;
4480:
4481: END validate_more_tab;
4482:
4490: IF pg_debug = 'Y' THEN
4491: debug ('AR_INVOICE_UTILS.validate_line_description (+)' );
4492: END IF;
4493:
4494: x_return_status := FND_API.G_RET_STS_SUCCESS;
4495:
4496: INSERT INTO ar_trx_errors_gt
4497: ( trx_header_id,
4498: error_message)
4547: EXCEPTION
4548: WHEN OTHERS THEN
4549: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_line_description '||
4550: sqlerrm;
4551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4552: RETURN;
4553:
4554: END validate_line_description;
4555:
4562: THEN
4563: debug ('AR_INVOICE_UTILS.validate_quantity_invoiced (+)' );
4564: END IF;
4565:
4566: x_return_status := FND_API.G_RET_STS_SUCCESS;
4567:
4568: INSERT INTO ar_trx_errors_gt
4569: ( trx_header_id,
4570: error_message)
4583:
4584: EXCEPTION
4585: WHEN OTHERS THEN
4586: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_quantity_invoiced '||sqlerrm;
4587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4588: RETURN;
4589:
4590: END;
4591:
4597: THEN
4598: debug ('AR_INVOICE_UTILS.validate_unit_selling_price (+)' );
4599: END IF;
4600:
4601: x_return_status := FND_API.G_RET_STS_SUCCESS;
4602:
4603: INSERT INTO ar_trx_errors_gt
4604: ( trx_header_id,
4605: error_message)
4617: END IF;
4618: EXCEPTION
4619: WHEN OTHERS THEN
4620: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_unit_selling_price '||sqlerrm;
4621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4622: RETURN;
4623: END;
4624:
4625: PROCEDURE validate_line_type (
4629: IF pg_debug = 'Y'
4630: THEN
4631: debug ('AR_INVOICE_UTILS.validate_line_type (+)' );
4632: END IF;
4633: x_return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4635: INSERT INTO ar_trx_errors_gt
4636: ( trx_header_id,
4637: error_message,
4648:
4649: EXCEPTION
4650: WHEN OTHERS THEN
4651: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_line_type '||sqlerrm;
4652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4653: RETURN;
4654: END;
4655:
4656: PROCEDURE check_dup_line_number (
4661: IF pg_debug = 'Y'
4662: THEN
4663: debug ('AR_INVOICE_UTILS.check_dup_line_number (+)' );
4664: END IF;
4665: x_return_status := FND_API.G_RET_STS_SUCCESS;
4666: -- first check if line number is null or not
4667: INSERT INTO ar_trx_errors_gt
4668: ( trx_header_id,
4669: error_message)
4688:
4689: EXCEPTION
4690: WHEN OTHERS THEN
4691: x_errmsg := 'Error in AR_INVOICE_UTILS.check_dup_line_number '||sqlerrm;
4692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4693: RETURN;
4694: END;
4695:
4696: PROCEDURE validate_line_integrity (
4713: THEN
4714: debug ('AR_INVOICE_UTILS.validate_line_integrity (+)' );
4715: END IF;
4716:
4717: x_return_status := FND_API.G_RET_STS_SUCCESS;
4718:
4719: -- first check whether all lines have line and header id
4720: INSERT INTO ar_trx_errors_gt
4721: ( trx_header_id,
4815:
4816: EXCEPTION
4817: WHEN OTHERS THEN
4818: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_line_integrity '||sqlerrm;
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: RETURN;
4821: END;
4822:
4823: PROCEDURE validate_freight (
4828: IF pg_debug = 'Y'
4829: THEN
4830: debug ('AR_INVOICE_UTILS.validate_freight (+)' );
4831: END IF;
4832: x_return_status := FND_API.G_RET_STS_SUCCESS;
4833:
4834: INSERT INTO ar_trx_errors_gt
4835: ( trx_header_id,
4836: trx_line_id,
4884: END IF;
4885: EXCEPTION
4886: WHEN OTHERS THEN
4887: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_freight '||sqlerrm;
4888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4889: RETURN;
4890: END;
4891:
4892: PROCEDURE populate_extended_amount (
4933: THEN
4934: debug ('AR_INVOICE_UTILS.populate_extended_amount (+)' );
4935: END IF;
4936:
4937: x_return_status := FND_API.G_RET_STS_SUCCESS;
4938:
4939: -- Added for ER 5869149
4940: -- Credit memos should be created with correct sign for amounts
4941:
5023:
5024: EXCEPTION
5025: WHEN OTHERS THEN
5026: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_extended_amount '||sqlerrm;
5027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5028: RETURN;
5029: END;
5030:
5031: PROCEDURE validate_doc_sequence(
5037: IF pg_debug = 'Y'
5038: THEN
5039: debug ('AR_INVOICE_UTILS.validate_doc_sequence (+)' );
5040: END IF;
5041: x_return_status := FND_API.G_RET_STS_SUCCESS;
5042:
5043: INSERT INTO ar_trx_errors_gt
5044: ( trx_header_id,
5045: error_message)
5075:
5076: EXCEPTION
5077: WHEN OTHERS THEN
5078: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_doc_sequence '||sqlerrm;
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5080: RETURN;
5081: END;
5082:
5083:
5120: IF pg_debug = 'Y'
5121: THEN
5122: debug ('AR_INVOICE_UTILS.populate_doc_sequence (+)' );
5123: END IF;
5124: x_return_status := FND_API.G_RET_STS_SUCCESS;
5125:
5126: l_seq_num_profile := NVL(p_trx_profile_rec.ar_unique_seq_numbers, 'N');
5127:
5128: FOR ctrxHeaderRec IN ctrxHeader
5250: l_seq_err := FALSE;
5251: END LOOP;
5252:
5253: validate_doc_sequence ( x_errmsg , x_return_status);
5254: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5255: THEN
5256: RETURN;
5257: END IF;
5258: IF pg_debug = 'Y'
5261: END IF;
5262: EXCEPTION
5263: WHEN OTHERS THEN
5264: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_doc_sequence '||sqlerrm ;
5265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5266: RETURN;
5267:
5268: END;
5269:
5289: l_party_id NUMBER;
5290: l_pmt_trxn_extension_id IBY_FNDCPT_COMMON_PUB.Id_tbl_type;
5291: o_payment_trxn_extension_id RA_CUSTOMER_TRX.PAYMENT_TRXN_EXTENSION_ID%TYPE;
5292:
5293: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5294: l_assignment_id NUMBER;
5295:
5296: l_msg_count NUMBER;
5297: l_msg_data VARCHAR2(2000);
5306: IF pg_debug = 'Y'
5307: THEN
5308: arp_standard.debug ( 'inside Copy payment trxn ');
5309: END IF;
5310: x_return_status := FND_API.G_RET_STS_SUCCESS;
5311:
5312: FOR ctrxHeaderRec IN ctrxHeader
5313: LOOP
5314: SELECT party.party_id
5359: arp_standard.debug('payment_trx_extension_id :<'|| l_pmt_trxn_extension_id(1) || '>');
5360:
5361: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
5362: ( p_api_version => 1.0,
5363: p_init_msg_list => FND_API.G_TRUE,
5364: p_commit => FND_API.G_FALSE,
5365: x_return_status => l_return_status,
5366: x_msg_count => l_msg_count,
5367: x_msg_data => l_msg_data,
5360:
5361: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
5362: ( p_api_version => 1.0,
5363: p_init_msg_list => FND_API.G_TRUE,
5364: p_commit => FND_API.G_FALSE,
5365: x_return_status => l_return_status,
5366: x_msg_count => l_msg_count,
5367: x_msg_data => l_msg_data,
5368: p_payer => l_payer_rec,
5373: x_response => l_response_rec -- out
5374: );
5375:
5376:
5377: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5378:
5379: o_payment_trxn_extension_id := p_trxn_entity_id ;
5380:
5381: arp_standard.debug('the copied value of trx_entn is ' || o_payment_trxn_extension_id );
5386: END IF;
5387:
5388:
5389:
5390: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5391:
5392:
5393: l_cpy_msg_data := substrb( l_response_rec.Result_Code || ': '||
5394: l_response_rec.Result_Message , 1, 240);
5409:
5410: EXCEPTION
5411: WHEN OTHERS THEN
5412: x_errmsg := 'Error in AR_INVOICE_UTILS.copy_pmt_extension '||sqlerrm ;
5413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5414: RETURN;
5415:
5416: END;
5417:
5434: THEN
5435: debug ('AR_INVOICE_UTILS.validate_item_kflex (+)' );
5436: END IF;
5437:
5438: x_return_status := FND_API.G_RET_STS_SUCCESS;
5439: oe_profile.get('SO_ID_FLEX_CODE', l_so_id_flex_code);
5440:
5441:
5442:
5500: END IF;
5501: EXCEPTION
5502: WHEN OTHERS THEN
5503: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_item_kflex '||sqlerrm ;
5504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5505: RETURN;
5506: END;
5507:
5508: PROCEDURE validate_territory_id (
5518: IF pg_debug = 'Y'
5519: THEN
5520: debug ('AR_INVOICE_UTILS.validate_territory_id (+)' );
5521: END IF;
5522: x_return_status := FND_API.G_RET_STS_SUCCESS;
5523:
5524: FOR cTerritoryRec IN cTerritory
5525: LOOP
5526: IF ( fnd_flex_keyval.validate_ccid(
5546: END IF;
5547: EXCEPTION
5548: WHEN OTHERS THEN
5549: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_territory_id '||sqlerrm ;
5550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5551: RETURN;
5552: END;
5553:
5554: PROCEDURE validate_warehouse_id (
5559: THEN
5560: debug ('AR_INVOICE_UTILS.validate_warehouse_id (+)' );
5561: END IF;
5562:
5563: x_return_status := FND_API.G_RET_STS_SUCCESS;
5564:
5565: INSERT INTO ar_trx_errors_gt
5566: ( trx_line_id,
5567: trx_header_id,
5598: END IF;
5599: EXCEPTION
5600: WHEN OTHERS THEN
5601: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_warehouse_id '||sqlerrm ;
5602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5603: RETURN;
5604: END;
5605:
5606:
5630: THEN
5631: debug ('AR_INVOICE_UTILS.validate_accounting_rules (+)' );
5632: END IF;
5633:
5634: x_return_status := FND_API.G_RET_STS_SUCCESS;
5635:
5636: --PPRR Added PP rule types in the type condition
5637: INSERT INTO ar_trx_errors_gt
5638: ( trx_header_id,
5883:
5884: EXCEPTION
5885: WHEN OTHERS THEN
5886: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_accounting_rules '||sqlerrm;
5887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5888: RETURN;
5889: END;
5890:
5891: PROCEDURE validate_line_ussgl_code (
5897: IF pg_debug = 'Y' THEN
5898: debug ('ar_invoice_utils.validate_line_ussgl_code(+)' );
5899: END IF;
5900:
5901: x_return_status := FND_API.G_RET_STS_SUCCESS;
5902:
5903: INSERT INTO ar_trx_errors_gt (
5904: trx_header_id,
5905: trx_line_id,
5926:
5927: EXCEPTION
5928: WHEN OTHERS THEN
5929: x_errmsg := 'error in ar_invoice_utils.validate_line_ussgl_code '|| sqlerrm;
5930: x_return_status := fnd_api.g_ret_sts_unexp_error;
5931: RETURN;
5932:
5933: END validate_line_ussgl_code;
5934:
5941: IF pg_debug = 'Y'
5942: THEN
5943: debug ('AR_INVOICE_UTILS.populate_line_attributes (+)' );
5944: END IF;
5945: x_return_status := FND_API.G_RET_STS_SUCCESS;
5946:
5947: -- check if memo line is passed and any unit of measue and unit price.
5948: BEGIN
5949: UPDATE ar_trx_lines_gt gt
5967: populate_extended_amount (
5968: x_errmsg => x_errmsg,
5969: x_return_status => x_return_status );
5970:
5971: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5972: THEN
5973: RETURN;
5974: END IF;
5975:
5980:
5981: EXCEPTION
5982: WHEN OTHERS THEN
5983: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_line_attributes '||sqlerrm;
5984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5985: RETURN;
5986: END;
5987:
5988: PROCEDURE populate_exchange_rate (
6015: IF pg_debug = 'Y'
6016: THEN
6017: debug ('AR_INVOICE_UTILS.populate_exchange_rate (+)' );
6018: END IF;
6019: x_return_status := FND_API.G_RET_STS_SUCCESS;
6020:
6021: FOR cExchangeRateRec IN cExchangeRate
6022: LOOP
6023: BEGIN
6115: EXCEPTION
6116: WHEN OTHERS
6117: THEN
6118: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_exchange_rate '||sqlerrm;
6119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6120: RETURN;
6121:
6122: END;
6123:
6221: l_trxn_attribs IBY_FNDCPT_TRXN_PUB.trxnextension_rec_type;
6222: l_entity_id NUMBER;
6223: l_response IBY_FNDCPT_COMMON_PUB.result_rec_type;
6224:
6225: -- This values based on global variables from FND_API G_TRUE and G_FALSE;
6226: l_true VARCHAR2(1) := 'T';
6227: l_false VARCHAR2(1) := 'F';
6228:
6229:
6308: p_trxn_attribs => l_trxn_attribs,
6309: x_entity_id => l_entity_id,
6310: x_response => l_response);
6311:
6312: -- The values are based on FND_API. S, E, U (Success, Error, Unexpected
6313: IF (l_return_status = 'S') THEN
6314: UPDATE ar_trx_header_gt
6315: set receipt_method_id = l_receipt_method_id,
6316: payment_trxn_extension_id=l_entity_id
6334: WHEN OTHERS THEN
6335: arp_standard.debug('Error in Default Payment Transaction Extension ID');
6336: arp_standard.debug('[' || SQLERRM(SQLCODE) || ']');
6337: x_errmsg := 'Error in Default Payment Transaction Extension ID' || SQLERRM;
6338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6339:
6340: RAISE;
6341:
6342:
6354: THEN
6355: debug ('AR_INVOICE_UTILS.validate_header (+)' );
6356: END IF;
6357:
6358: x_return_status := FND_API.G_RET_STS_SUCCESS;
6359:
6360:
6361: validate_trx_number (
6362: x_errmsg => x_errmsg,
6360:
6361: validate_trx_number (
6362: x_errmsg => x_errmsg,
6363: x_return_status => x_return_status);
6364: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6365: THEN
6366: RETURN;
6367: END IF;
6368:
6369: --validate_no_of_batch_sources;
6370: validate_batch_source(
6371: x_errmsg => x_errmsg,
6372: x_return_status => x_return_status);
6373: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6374: THEN
6375: RETURN;
6376: END IF;
6377:
6377:
6378: validate_currency(
6379: x_errmsg => x_errmsg,
6380: x_return_status => x_return_status);
6381: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6382: THEN
6383: RETURN;
6384: END IF;
6385:
6388: -- batch source in case user does not pass any.
6389: /*validate_transaction_type(
6390: x_errmsg => x_errmsg,
6391: x_return_status => x_return_status);
6392: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6393: THEN
6394: RETURN;
6395: END IF; */
6396:
6400:
6401: populate_bill_to_customer_id (
6402: x_errmsg => x_errmsg,
6403: x_return_status => x_return_status );
6404: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6405: RETURN;
6406: END IF;
6407:
6408: validate_bill_to_customer_id(
6407:
6408: validate_bill_to_customer_id(
6409: x_errmsg => x_errmsg,
6410: x_return_status => x_return_status);
6411: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6412: THEN
6413: RETURN;
6414: END IF;
6415:
6415:
6416: validate_bill_to_customer_name(
6417: x_errmsg => x_errmsg,
6418: x_return_status => x_return_status);
6419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6420: THEN
6421: RETURN;
6422: END IF;
6423:
6423:
6424: validate_bill_to_cust_number(
6425: x_errmsg => x_errmsg,
6426: x_return_status => x_return_status);
6427: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6428: THEN
6429: RETURN;
6430: END IF;
6431:
6432: populate_ship_to_customer_id (
6433: x_errmsg => x_errmsg,
6434: x_return_status => x_return_status );
6435:
6436: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6437: RETURN;
6438: END IF;
6439:
6440: validate_bill_to_site_use_id(
6439:
6440: validate_bill_to_site_use_id(
6441: x_errmsg => x_errmsg,
6442: x_return_status => x_return_status);
6443: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6444: THEN
6445: RETURN;
6446: END IF;
6447:
6447:
6448: validate_bill_to_address_id(
6449: x_errmsg => x_errmsg,
6450: x_return_status => x_return_status);
6451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6452: THEN
6453: RETURN;
6454: END IF;
6455:
6455:
6456: validate_bill_to_contact_id(
6457: x_errmsg => x_errmsg,
6458: x_return_status => x_return_status);
6459: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6460: THEN
6461: RETURN;
6462: END IF;
6463:
6464:
6465: validate_sold_to_customer_id(
6466: x_errmsg => x_errmsg,
6467: x_return_status => x_return_status);
6468: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6469: THEN
6470: RETURN;
6471: END IF;
6472:
6472:
6473: validate_terms(
6474: x_errmsg => x_errmsg,
6475: x_return_status => x_return_status);
6476: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6477: THEN
6478: RETURN;
6479: END IF;
6480:
6481: validate_salesrep(
6482: p_trx_system_param_rec => p_trx_system_param_rec,
6483: x_errmsg => x_errmsg,
6484: x_return_status => x_return_status);
6485: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6486: THEN
6487: RETURN;
6488: END IF;
6489:
6489:
6490: validate_invoicing_rule_id(
6491: x_errmsg => x_errmsg,
6492: x_return_status => x_return_status);
6493: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6494: THEN
6495: RETURN;
6496: END IF;
6497:
6497:
6498: validate_print_option(
6499: x_errmsg => x_errmsg,
6500: x_return_status => x_return_status);
6501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6502: THEN
6503: RETURN;
6504: END IF;
6505:
6505:
6506: validate_default_tax(
6507: x_errmsg => x_errmsg,
6508: x_return_status => x_return_status);
6509: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6510: THEN
6511: RETURN;
6512: END IF;
6513:
6513:
6514: validate_status(
6515: x_errmsg => x_errmsg,
6516: x_return_status => x_return_status);
6517: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6518: THEN
6519: RETURN;
6520: END IF;
6521:
6521:
6522: validate_finance_charges(
6523: x_errmsg => x_errmsg,
6524: x_return_status => x_return_status);
6525: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6526: THEN
6527: RETURN;
6528: END IF;
6529:
6529:
6530: validate_related_cust_trx_id(
6531: x_errmsg => x_errmsg,
6532: x_return_status => x_return_status);
6533: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6534: THEN
6535: RETURN;
6536: END IF;
6537:
6537:
6538: validate_agreement_id(
6539: x_errmsg => x_errmsg,
6540: x_return_status => x_return_status);
6541: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6542: THEN
6543: RETURN;
6544: END IF;
6545:
6545:
6546: validate_trx_class (
6547: x_errmsg => x_errmsg,
6548: x_return_status => x_return_status);
6549: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6550: RETURN;
6551: END IF;
6552:
6553: validate_ship_via (
6552:
6553: validate_ship_via (
6554: x_errmsg => x_errmsg,
6555: x_return_status => x_return_status);
6556: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6557: RETURN;
6558: END IF;
6559:
6560: validate_fob_point (
6559:
6560: validate_fob_point (
6561: x_errmsg => x_errmsg,
6562: x_return_status => x_return_status);
6563: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6564: RETURN;
6565: END IF;
6566:
6567: validate_remit_to_address_id (
6566:
6567: validate_remit_to_address_id (
6568: x_errmsg => x_errmsg,
6569: x_return_status => x_return_status);
6570: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6571: RETURN;
6572: END IF;
6573:
6574: validate_ussgl_code (
6573:
6574: validate_ussgl_code (
6575: x_errmsg => x_errmsg,
6576: x_return_status => x_return_status);
6577: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6578: RETURN;
6579: END IF;
6580:
6581: validate_cust_bank_account_id (
6580:
6581: validate_cust_bank_account_id (
6582: x_errmsg => x_errmsg,
6583: x_return_status => x_return_status);
6584: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6585: RETURN;
6586: END IF;
6587:
6588: validate_doc_sequence_value (
6589: p_trx_system_param_rec => p_trx_system_param_rec,
6590: p_trx_profile_rec => p_trx_profile_rec,
6591: x_errmsg => x_errmsg,
6592: x_return_status => x_return_status);
6593: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6594: RETURN;
6595: END IF;
6596:
6597: validate_exchange_rate_type (
6596:
6597: validate_exchange_rate_type (
6598: x_errmsg => x_errmsg,
6599: x_return_status => x_return_status);
6600: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6601: RETURN;
6602: END IF;
6603:
6604: validate_ship_to_site_use_id(
6604: validate_ship_to_site_use_id(
6605: x_errmsg => x_errmsg,
6606: x_return_status => x_return_status,
6607: x_called => 'BEFORE');
6608: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6609: THEN
6610: RETURN;
6611: END IF;
6612:
6615:
6616: populate_ref_hdr_attributes(
6617: x_errmsg => x_errmsg,
6618: x_return_status => x_return_status);
6619: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6620: THEN
6621: RETURN;
6622: END IF;
6623:
6623:
6624: validate_gl_date (
6625: x_errmsg => x_errmsg,
6626: x_return_status => x_return_status);
6627: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6628: RETURN;
6629: END IF;
6630:
6631: validate_paying_customer_id (
6631: validate_paying_customer_id (
6632: p_trx_system_param_rec => p_trx_system_param_rec,
6633: x_errmsg => x_errmsg,
6634: x_return_status => x_return_status);
6635: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6636: RETURN;
6637: END IF;
6638:
6639: validate_paying_site_use_id (
6639: validate_paying_site_use_id (
6640: p_trx_system_param_rec => p_trx_system_param_rec,
6641: x_errmsg => x_errmsg,
6642: x_return_status => x_return_status);
6643: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6644: RETURN;
6645: END IF;
6646:
6647: populate_doc_sequence (
6648: p_trx_system_param_rec => p_trx_system_param_rec,
6649: p_trx_profile_rec => p_trx_profile_rec,
6650: x_errmsg => x_errmsg,
6651: x_return_status => x_return_status);
6652: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6653: THEN
6654: RETURN;
6655: END IF;
6656:
6658:
6659: copy_pmt_extension(
6660: x_errmsg => x_errmsg,
6661: x_return_status => x_return_status);
6662: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6663: THEN
6664: RETURN;
6665: END IF;
6666:
6667:
6668: populate_ship_to_site_use_id(
6669: x_errmsg => x_errmsg,
6670: x_return_status => x_return_status);
6671: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6672: THEN
6673: RETURN;
6674: END IF;
6675:
6677:
6678: populate_ship_to_address_id(
6679: x_errmsg => x_errmsg,
6680: x_return_status => x_return_status);
6681: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6682: THEN
6683: RETURN;
6684: END IF;
6685:
6685:
6686: populate_ship_to_contact_id(
6687: x_errmsg => x_errmsg,
6688: x_return_status => x_return_status);
6689: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6690: THEN
6691: RETURN;
6692: END IF;
6693: validate_ship_to_customer_name(
6692: END IF;
6693: validate_ship_to_customer_name(
6694: x_errmsg => x_errmsg,
6695: x_return_status => x_return_status);
6696: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6697: THEN
6698: RETURN;
6699: END IF;
6700:
6700:
6701: validate_ship_to_cust_number(
6702: x_errmsg => x_errmsg,
6703: x_return_status => x_return_status);
6704: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6705: THEN
6706: RETURN;
6707: END IF;
6708:
6708:
6709: validate_ship_to_customer_id(
6710: x_errmsg => x_errmsg,
6711: x_return_status => x_return_status);
6712: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6713: THEN
6714: RETURN;
6715: END IF;
6716:
6717:
6718: validate_ship_to_site_use_id(
6719: x_errmsg => x_errmsg,
6720: x_return_status => x_return_status);
6721: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6722: THEN
6723: RETURN;
6724: END IF;
6725:
6725:
6726: validate_ship_to_location(
6727: x_errmsg => x_errmsg,
6728: x_return_status => x_return_status);
6729: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6730: THEN
6731: RETURN;
6732: END IF;
6733:
6733:
6734: validate_ship_to_address(
6735: x_errmsg => x_errmsg,
6736: x_return_status => x_return_status);
6737: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6738: THEN
6739: RETURN;
6740: END IF;
6741:
6741:
6742: validate_ship_to_contact_id(
6743: x_errmsg => x_errmsg,
6744: x_return_status => x_return_status);
6745: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6746: THEN
6747: RETURN;
6748: END IF;
6749:
6751: p_trx_system_parameters_rec => p_trx_system_param_rec,
6752: p_trx_profile_rec => p_trx_profile_rec,
6753: x_errmsg => x_errmsg,
6754: x_return_status => x_return_status);
6755: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6756: THEN
6757: RETURN;
6758: END IF;
6759:
6761: p_trx_system_param_rec => p_trx_system_param_rec,
6762: x_errmsg => x_errmsg,
6763: x_return_status => x_return_status);
6764:
6765: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6766: THEN
6767: RETURN;
6768: END IF;
6769:
6769:
6770: validate_territory_id (
6771: x_errmsg => x_errmsg,
6772: x_return_status => x_return_status);
6773: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6774: THEN
6775: RETURN;
6776: END IF;
6777:
6778: populate_payment_method (
6779: x_errmsg => x_errmsg,
6780: x_return_status => x_return_status);
6781:
6782: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6783: THEN
6784: RETURN;
6785: END IF;
6786:
6796: x_return_status => x_return_status);
6797:
6798: END IF;
6799:
6800: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6801: THEN
6802: RETURN;
6803: END IF;
6804:
6805:
6806: validate_payment_method (
6807: x_errmsg => x_errmsg,
6808: x_return_status => x_return_status);
6809: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6810: RETURN;
6811: END IF;
6812:
6813: /* SEPA changes */
6813: /* SEPA changes */
6814: validate_mandate_flag (
6815: x_errmsg => x_errmsg,
6816: x_return_status => x_return_status);
6817: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6818: RETURN;
6819: END IF;
6820:
6821: /* 4188835 - Default legal_entity_id */
6821: /* 4188835 - Default legal_entity_id */
6822: populate_legal_entity (
6823: x_errmsg => x_errmsg,
6824: x_return_status => x_return_status);
6825: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6826: THEN
6827: RETURN;
6828: END IF;
6829:
6830: /* 4188835 - validate legal entity */
6831: validate_legal_entity(
6832: x_errmsg => x_errmsg,
6833: x_return_status => x_return_status);
6834: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6835: THEN
6836: RETURN;
6837: END IF;
6838:
6854: /*4369585-4589309*/
6855: populate_printing_pending(
6856: x_errmsg => x_errmsg,
6857: x_return_status => x_return_status);
6858: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6859: THEN
6860: RETURN;
6861: END IF;
6862:
6872: THEN
6873: debug ('AR_INVOICE_UTILS.validate_lines (+)' );
6874: END IF;
6875:
6876: x_return_status := FND_API.G_RET_STS_SUCCESS;
6877:
6878: populate_line_attributes(
6879: x_errmsg => x_errmsg,
6880: x_return_status => x_return_status);
6877:
6878: populate_line_attributes(
6879: x_errmsg => x_errmsg,
6880: x_return_status => x_return_status);
6881: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6882: THEN
6883: RETURN;
6884: END IF;
6885:
6885:
6886: validate_line_integrity(
6887: x_errmsg => x_errmsg,
6888: x_return_status => x_return_status);
6889: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6890: THEN
6891: RETURN;
6892: END IF;
6893:
6893:
6894: validate_tax_freight_lines (
6895: x_errmsg => x_errmsg,
6896: x_return_status => x_return_status);
6897: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6898: THEN
6899: RETURN;
6900: END IF;
6901: validate_item_kflex (
6900: END IF;
6901: validate_item_kflex (
6902: x_errmsg => x_errmsg,
6903: x_return_status => x_return_status);
6904: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6905: THEN
6906: RETURN;
6907: END IF;
6908: validate_line_description(
6907: END IF;
6908: validate_line_description(
6909: x_errmsg => x_errmsg,
6910: x_return_status => x_return_status);
6911: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6912: THEN
6913: RETURN;
6914: END IF;
6915: validate_quantity_invoiced(
6914: END IF;
6915: validate_quantity_invoiced(
6916: x_errmsg => x_errmsg,
6917: x_return_status => x_return_status);
6918: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6919: THEN
6920: RETURN;
6921: END IF;
6922: validate_unit_selling_price(
6921: END IF;
6922: validate_unit_selling_price(
6923: x_errmsg => x_errmsg,
6924: x_return_status => x_return_status);
6925: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6926: THEN
6927: RETURN;
6928: END IF;
6929: validate_accounting_rules(
6928: END IF;
6929: validate_accounting_rules(
6930: x_errmsg => x_errmsg,
6931: x_return_status => x_return_status);
6932: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6933: THEN
6934: RETURN;
6935: END IF;
6936: validate_freight(
6935: END IF;
6936: validate_freight(
6937: x_errmsg => x_errmsg,
6938: x_return_status => x_return_status);
6939: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6940: THEN
6941: RETURN;
6942: END IF;
6943: -- populate extended and revenue amount
6945:
6946: validate_line_type(
6947: x_errmsg => x_errmsg,
6948: x_return_status => x_return_status);
6949: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6950: THEN
6951: RETURN;
6952: END IF;
6953: check_dup_line_number(
6952: END IF;
6953: check_dup_line_number(
6954: x_errmsg => x_errmsg,
6955: x_return_status => x_return_status);
6956: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6957: THEN
6958: RETURN;
6959: END IF;
6960:
6960:
6961: validate_warehouse_id (
6962: x_errmsg => x_errmsg,
6963: x_return_status => x_return_status);
6964: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6965: THEN
6966: RETURN;
6967: END IF;
6968:
6968:
6969: validate_uom_code(
6970: x_errmsg => x_errmsg,
6971: x_return_status => x_return_status);
6972: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6973: THEN
6974: RETURN;
6975: END IF;
6976:
6978: routine
6979: validate_tax_code (
6980: x_errmsg => x_errmsg,
6981: x_return_status => x_return_status);
6982: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6983: THEN
6984: RETURN;
6985: END IF;
6986: */
6987:
6988: validate_tax_exemption(
6989: x_errmsg => x_errmsg,
6990: x_return_status => x_return_status);
6991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6992: THEN
6993: RETURN;
6994: END IF;
6995:
6995:
6996: validate_more_tab (
6997: x_errmsg => x_errmsg,
6998: x_return_status => x_return_status);
6999: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7000: THEN
7001: RETURN;
7002: END IF;
7003:
7004: validate_line_ussgl_code (
7005: x_errmsg => x_errmsg,
7006: x_return_status => x_return_status);
7007:
7008: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7009: THEN
7010: RETURN;
7011: END IF;
7012:
7040: IF pg_debug = 'Y'
7041: THEN
7042: debug ('AR_INVOICE_UTILS.validate_accounting_flex (+)' );
7043: END IF;
7044: x_return_status := FND_API.G_RET_STS_SUCCESS;
7045: FOR CccidRec IN Cccid
7046: LOOP
7047: IF NOT fnd_flex_keyval.validate_ccid (
7048: appl_short_name => 'SQLGL',
7071:
7072: EXCEPTION
7073: WHEN OTHERS THEN
7074: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_accounting_flex '||sqlerrm;
7075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7076: RETURN;
7077: END;
7078:
7079: PROCEDURE validate_distributions (
7094: debug ('AR_INVOICE_UTILS.validate_distributions (+)' );
7095: debug ('Percentage Is null for Account Class: REC (+)' );
7096: END IF;
7097:
7098: x_return_status := FND_API.G_RET_STS_SUCCESS;
7099:
7100: l_precision := p_trx_system_parameters_rec.precision;
7101: l_min_acc_unit :=
7102: p_trx_system_parameters_rec.MINIMUM_ACCOUNTABLE_UNIT;
7540:
7541: validate_accounting_flex (
7542: x_errmsg => x_errmsg,
7543: x_return_status => x_return_status );
7544: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7545: THEN
7546: RETURN;
7547: END IF;
7548:
7574:
7575: EXCEPTION
7576: WHEN OTHERS THEN
7577: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_distributions '||sqlerrm;
7578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7579: RETURN;
7580: END validate_distributions;
7581:
7582:
7631: THEN
7632: debug ('AR_INVOICE_UTILS.validate_salescredits (+)' );
7633: END IF;
7634:
7635: x_return_status := FND_API.G_RET_STS_SUCCESS;
7636:
7637: l_message_name := gl_public_sector.get_message_name (
7638: p_message_name => 'AR_INAPI_INVALID_SALESREP_ID',
7639: p_app_short_name => 'AR');
8164:
8165: EXCEPTION
8166: WHEN OTHERS THEN
8167: x_errmsg := 'AR_INVOICE_UTILS.validate_salescredits '||sqlerrm;
8168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8169: RETURN;
8170:
8171: END validate_salescredits;
8172: