[Home] [Help]
1: PACKAGE BODY AR_INVOICE_UTILS AS
2: /* $Header: ARXVINUB.pls 120.92.12020000.2 2012/07/26 03:05:47 jatian ship $ */
3: -- declare global variables.
4:
5: g_set_of_books_id NUMBER;
37:
38: l_return_code NUMBER;
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
45: l_return_code := jg_zz_invoice_create.validate_gdff
46: (p_request_id => p_request_id);
47:
48: IF pg_debug = 'Y' THEN
49: debug ('ar_invoice_utils.validate_gdf(-)' );
50: END IF;
51: EXCEPTION
52: WHEN OTHERS THEN
53: x_errmsg := 'error in ar_invoice_utils.validate_gdf ' || sqlerrm;
49: debug ('ar_invoice_utils.validate_gdf(-)' );
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:
65:
66: BEGIN
67:
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:
85: FROM ar_active_remit_to_addresses_v arta
86: WHERE arta.address_id = gt.remit_to_address_id);
87:
88: IF pg_debug = 'Y' THEN
89: debug ('ar_invoice_utils.validate_remit_to_address_id(-)' );
90: END IF;
91:
92: EXCEPTION
93: WHEN OTHERS THEN
90: END IF;
91:
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:
105:
106: BEGIN
107:
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:
122: WHERE gt.trx_class NOT IN ('INV', 'DM' , 'CM') -- added CM for ER 5869149
123: AND gt.trx_class IS NOT NULL;
124:
125: IF pg_debug = 'Y' THEN
126: debug ('ar_invoice_utils.validate_trx_class(-)' );
127: END IF;
128:
129: EXCEPTION
130: WHEN OTHERS THEN
127: END IF;
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;
141:
142: BEGIN
143:
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:
163: AND orf.organization_id = pg_so_org_id /*Bug4709987*/
164: AND gt.trx_date <= nvl(trunc(orf.disable_date), gt.trx_date));
165:
166: IF pg_debug = 'Y' THEN
167: debug ('ar_invoice_utils.validate_ship_via(-)' );
168: END IF;
169:
170: EXCEPTION
171: WHEN OTHERS THEN
168: END IF;
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;
182:
183: BEGIN
184:
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:
205: AND gt.trx_date
206: BETWEEN start_date_active and nvl(end_date_active, gt.trx_date));
207:
208: IF pg_debug = 'Y' THEN
209: debug ('ar_invoice_utils.validate_fob_point(-)' );
210: END IF;
211:
212: EXCEPTION
213: WHEN OTHERS THEN
210: END IF;
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;
224:
225: BEGIN
226:
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:
248: BETWEEN NVL(gutc.start_date_active, gt.trx_date)
249: AND NVL(gutc.end_date_active, gt.trx_date));
250:
251: IF pg_debug = 'Y' THEN
252: debug ('ar_invoice_utils.validate_ussgl_code(-)' );
253: END IF;
254:
255: EXCEPTION
256: WHEN OTHERS THEN
253: END IF;
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;
267:
268: BEGIN
269:
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:
365: WHERE gt.receipt_method_id IS NULL
366: AND gt.payment_trxn_extension_id IS NOT NULL;
367:
368: IF pg_debug = 'Y' THEN
369: debug ('ar_invoice_utils.validate_payment_method(-)' );
370: END IF;
371:
372: EXCEPTION
373: WHEN OTHERS THEN
370: END IF;
371:
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:
385:
386: BEGIN
387:
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:
406: WHERE LE.legal_entity_id = GT.legal_entity_id
407: AND LE.operating_unit_id = GT.org_id);
408:
409: IF pg_debug = 'Y' THEN
410: debug ('ar_invoice_utils.validate_legal_entity(-)' );
411: END IF;
412:
413: EXCEPTION
414: WHEN OTHERS THEN
411: END IF;
412:
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:
425:
426: BEGIN
427:
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 */
442:
443: BEGIN
444:
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
499: AND effective_end_date)
500: );
501: END IF;
502: IF pg_debug = 'Y' THEN
503: debug ('ar_invoice_utils.validate_paying_customer_id(-)' );
504: END IF;
505:
506: EXCEPTION
507: WHEN OTHERS THEN
504: END IF;
505:
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:
520:
521: BEGIN
522:
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:
546: ('BILL_TO', decode(p_trx_system_param_rec.br_enabled_flag,
547: 'DRAWEE', 'PAYING')));
548:
549: IF pg_debug = 'Y' THEN
550: debug ('ar_invoice_utils.validate_paying_site_use_id(-)' );
551: END IF;
552:
553: EXCEPTION
554: WHEN OTHERS THEN
551: END IF;
552:
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:
566:
567: BEGIN
568:
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:
587: WHERE cust_acct.cust_account_id = gt.sold_to_customer_id
588: AND cust_acct.status = 'A');
589:
590: IF pg_debug = 'Y' THEN
591: debug ('ar_invoice_utils.validate_sold_to_customer_id(-)' );
592: END IF;
593:
594: EXCEPTION
595: WHEN OTHERS THEN
592: END IF;
593:
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:
607:
608: BEGIN
609:
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:
629: WHERE cust_acct.party_id = party.party_id
630: AND party.party_name = gt.ship_to_customer_name);
631:
632: IF pg_debug = 'Y' THEN
633: debug ('ar_invoice_utils.validate_ship_to_customer_name(-)' );
634: END IF;
635:
636: EXCEPTION
637: WHEN OTHERS THEN
634: END IF;
635:
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:
649:
650: BEGIN
651:
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:
669: FROM hz_cust_accounts cust_acct
670: WHERE cust_acct.account_number = gt.ship_to_account_number);
671:
672: IF pg_debug = 'Y' THEN
673: debug ('ar_invoice_utils.validate_ship_to_cust_number(-)' );
674: END IF;
675:
676: EXCEPTION
677: WHEN OTHERS THEN
674: END IF;
675:
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:
689:
690: BEGIN
691:
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:
711: WHERE cust_acct.party_id = party.party_id
712: AND party.party_name = gt.bill_to_customer_name);
713:
714: IF pg_debug = 'Y' THEN
715: debug ('ar_invoice_utils.validate_bill_to_customer_name(-)' );
716: END IF;
717:
718: EXCEPTION
719: WHEN OTHERS THEN
716: END IF;
717:
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:
731:
732: BEGIN
733:
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:
751: FROM hz_cust_accounts cust_acct
752: WHERE cust_acct.account_number = gt.bill_to_account_number);
753:
754: IF pg_debug = 'Y' THEN
755: debug ('ar_invoice_utils.validate_bill_to_cust_number(-)' );
756: END IF;
757:
758: EXCEPTION
759: WHEN OTHERS THEN
756: END IF;
757:
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:
771:
772: BEGIN
773:
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:
806: or acct_role.cust_acct_site_id IS NULL )
807: AND acct_role.status = 'A');
808:
809: IF pg_debug = 'Y' THEN
810: debug ('ar_invoice_utils.validate_bill_to_contact_id(-)' );
811: END IF;
812:
813: EXCEPTION
814: WHEN OTHERS THEN
811: END IF;
812:
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:
826:
827: BEGIN
828:
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:
861: or acct_role.cust_acct_site_id IS NULL )
862: AND acct_role.status = 'A');
863:
864: IF pg_debug = 'Y' THEN
865: debug ('ar_invoice_utils.validate_ship_to_contact_id(-)' );
866: END IF;
867:
868: EXCEPTION
869: WHEN OTHERS THEN
866: END IF;
867:
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:
881:
882: BEGIN
883:
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:
902: WHERE conversion_type <> 'EMU FIXED'
903: AND conversion_type = gt.exchange_rate_type); /*Bug 4517001*/
904:
905: IF pg_debug = 'Y' THEN
906: debug ('ar_invoice_utils.validate_exchange_rate_type(-)' );
907: END IF;
908:
909: EXCEPTION
910: WHEN OTHERS THEN
907: END IF;
908:
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:
1250: -- validate_bfb;
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;
1264:
1265: BEGIN
1266:
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:
1356: HAVING count(*) > 1);
1357:
1358:
1359: IF pg_debug = 'Y' THEN
1360: debug ('ar_invoice_utils.validate_master_detail(-)' );
1361: END IF;
1362:
1363: EXCEPTION
1364: WHEN OTHERS THEN
1361: END IF;
1362:
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:
1380: x_return_status OUT NOCOPY VARCHAR2) AS
1381: BEGIN
1382: IF pg_debug = 'Y'
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:
1432: );
1433:
1434: IF pg_debug = 'Y'
1435: THEN
1436: debug ('AR_INVOICE_UTILS.validate_trx_number(-)' );
1437: END IF;
1438: EXCEPTION
1439: WHEN OTHERS THEN
1440: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_trx_number '||sqlerrm;
1436: debug ('AR_INVOICE_UTILS.validate_trx_number(-)' );
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:
1447: x_errmsg OUT NOCOPY VARCHAR2,
1448: x_return_status OUT NOCOPY VARCHAR2) AS
1449: BEGIN
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:
1465:
1466:
1467: IF pg_debug = 'Y'
1468: THEN
1469: debug ('AR_INVOICE_UTILS.validate_mandate_flag(-)' );
1470: END IF;
1471: EXCEPTION
1472: WHEN OTHERS THEN
1473: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_mandate_flag'||sqlerrm;
1469: debug ('AR_INVOICE_UTILS.validate_mandate_flag(-)' );
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;
1484: BEGIN
1485: -- validate the batch source id
1486: IF pg_debug = 'Y'
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:
1511: and gt.batch_source_id = bs.batch_source_id);
1512: END;
1513: IF pg_debug = 'Y'
1514: THEN
1515: debug ('AR_INVOICE_UTILS.validate_batch_source(-)' );
1516: END IF;
1517:
1518: EXCEPTION
1519: WHEN OTHERS THEN
1516: END IF;
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;
1531: BEGIN
1532:
1533: IF pg_debug = 'Y'
1534: THEN
1535: debug ('AR_INVOICE_UTILS.validate_currency(+)' );
1536: END IF;
1537:
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1554: AND NVL(c.end_date_active, gt.trx_date) );
1555:
1556: IF pg_debug = 'Y'
1557: THEN
1558: debug ('AR_INVOICE_UTILS.validate_currency(-)' );
1559: END IF;
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_currency '||sqlerrm;
1558: debug ('AR_INVOICE_UTILS.validate_currency(-)' );
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:
1570: x_return_status OUT NOCOPY VARCHAR2) AS
1571: BEGIN
1572: IF pg_debug = 'Y'
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 (
1603: and ctt.cust_trx_type_id = gt.cust_trx_type_id);
1604:
1605: IF pg_debug = 'Y'
1606: THEN
1607: debug ('AR_INVOICE_UTILS.validate_transaction_type(-)' );
1608: END IF;
1609:
1610: EXCEPTION
1611: WHEN OTHERS THEN
1608: END IF;
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;
1620: x_return_status OUT NOCOPY VARCHAR2) AS
1621: BEGIN
1622: IF pg_debug = 'Y'
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:
1642: AND status = 'A');
1643:
1644: IF pg_debug = 'Y'
1645: THEN
1646: debug ('AR_INVOICE_UTILS.validate_bill_to_customer_id(-)' );
1647: END IF;
1648: EXCEPTION
1649: WHEN OTHERS THEN
1650: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_customer_id '||sqlerrm;
1646: debug ('AR_INVOICE_UTILS.validate_bill_to_customer_id(-)' );
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;
1659: BEGIN
1660:
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
1697: AND site_use_id = gt.bill_to_site_use_id);
1698:
1699: IF pg_debug = 'Y'
1700: THEN
1701: debug ('AR_INVOICE_UTILS.validate_bill_to_site_use_id(-)' );
1702: END IF;
1703:
1704: EXCEPTION
1705: WHEN OTHERS THEN
1702: END IF;
1703:
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:
1717:
1718: BEGIN
1719: IF pg_debug = 'Y'
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:
1752: AND SU.CUST_ACCT_SITE_ID = gt.bill_to_address_id );
1753:
1754: IF pg_debug = 'Y'
1755: THEN
1756: debug ('AR_INVOICE_UTILS.validate_bill_to_address_id(-)' );
1757: END IF;
1758: EXCEPTION
1759: WHEN OTHERS THEN
1760: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_address_id '||sqlerrm;
1756: debug ('AR_INVOICE_UTILS.validate_bill_to_address_id(-)' );
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;
1772:
1773: BEGIN
1774: IF pg_debug = 'Y'
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:
1795: -- OR gt.ship_to_customer_id IS NOT NULL);
1796:
1797: IF pg_debug = 'Y'
1798: THEN
1799: debug ('AR_INVOICE_UTILS.validate_ship_to_customer_id(-)' );
1800: END IF;
1801:
1802: EXCEPTION
1803: WHEN OTHERS THEN
1800: END IF;
1801:
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;
1813: x_called in varchar2 default null) AS
1814: BEGIN
1815: IF pg_debug = 'Y'
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:
1869: end if;
1870:
1871: IF pg_debug = 'Y'
1872: THEN
1873: debug ('AR_INVOICE_UTILS.validate_ship_to_site_use_id(-)' );
1874: END IF;
1875: EXCEPTION
1876: WHEN OTHERS THEN
1877: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_site_use_id '||sqlerrm;
1873: debug ('AR_INVOICE_UTILS.validate_ship_to_site_use_id(-)' );
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:
1884: x_return_status OUT NOCOPY VARCHAR2) AS
1885: BEGIN
1886: IF pg_debug = 'Y'
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:
1920: or ( asa.su_status = 'A' and asa.a_status = 'A' ) ));
1921:
1922: IF pg_debug = 'Y'
1923: THEN
1924: debug ('AR_INVOICE_UTILS.validate_ship_to_location(-)' );
1925: END IF;
1926: EXCEPTION
1927: WHEN OTHERS THEN
1928: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_location '||sqlerrm;
1924: debug ('AR_INVOICE_UTILS.validate_ship_to_location(-)' );
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:
1937:
1938: BEGIN
1939:
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:
1990: WHERE cust_account_id = gt.ship_to_customer_id))
1991: WHERE gt.ship_to_site_use_id IS NULL;
1992:
1993: IF pg_debug = 'Y' THEN
1994: debug ('AR_INVOICE_UTILS.populate_ship_to_site_use_id (-)' );
1995: END IF;
1996:
1997: EXCEPTION
1998: WHEN OTHERS THEN
1995: END IF;
1996:
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:
2013:
2014: BEGIN
2015: IF pg_debug = 'Y'
2016: THEN
2017: debug ('AR_INVOICE_UTILS.validate_ship_to_address(+)' );
2018: END IF;
2019:
2020: populate_ship_to_site_use_id(
2021: x_errmsg => x_errmsg,
2055: and asa.su_status = 'A' and asa.a_status = 'A' ) ) );
2056:
2057: IF pg_debug = 'Y'
2058: THEN
2059: debug ('AR_INVOICE_UTILS.validate_ship_to_address(-)' );
2060: END IF;
2061:
2062: EXCEPTION
2063: WHEN OTHERS THEN
2060: END IF;
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:
2073:
2074: BEGIN
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 (
2115: AND ctt.type = 'CM';
2116:
2117: IF pg_debug = 'Y'
2118: THEN
2119: debug ('AR_INVOICE_UTILS.validate_terms(-)' );
2120: END IF;
2121: EXCEPTION
2122: WHEN OTHERS THEN
2123: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_terms '||sqlerrm;
2119: debug ('AR_INVOICE_UTILS.validate_terms(-)' );
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;
2136:
2137: BEGIN
2138: IF pg_debug = 'Y'
2139: THEN
2140: debug ('AR_INVOICE_UTILS.validate_salesrep(+)' );
2141: END IF;
2142:
2143: x_return_status := FND_API.G_RET_STS_SUCCESS;
2144:
2216: AND p_trx_system_param_rec.salesrep_required_flag = 'Y';
2217:
2218: IF pg_debug = 'Y'
2219: THEN
2220: debug ('AR_INVOICE_UTILS.validate_salesrep(-)' );
2221: END IF;
2222:
2223: EXCEPTION
2224: WHEN OTHERS THEN
2221: END IF;
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;
2234: x_return_status OUT NOCOPY VARCHAR2) AS
2235: BEGIN
2236: IF pg_debug = 'Y'
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:
2269: AND gt.invoicing_rule_id not in ( -2, -3);
2270:
2271: IF pg_debug = 'Y'
2272: THEN
2273: debug ('AR_INVOICE_UTILS.validate_invoicing_rule_id(-)' );
2274: END IF;
2275: EXCEPTION
2276: WHEN OTHERS THEN
2277: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_invoicing_rule_id '
2273: debug ('AR_INVOICE_UTILS.validate_invoicing_rule_id(-)' );
2274: END IF;
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:
2289: BEGIN
2290:
2291: IF pg_debug = 'Y'
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:
2306: WHERE gt.printing_option IS NOT NULL
2307: AND gt.printing_option NOT IN ( 'PRI', 'NOT');
2308: IF pg_debug = 'Y'
2309: THEN
2310: debug ('AR_INVOICE_UTILS.validate_print_option(-)' );
2311: END IF;
2312:
2313: EXCEPTION
2314: WHEN OTHERS THEN
2311: END IF;
2312:
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:
2328:
2329: BEGIN
2330: IF pg_debug = 'Y'
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:
2338: set gt.printing_pending=decode(gt.PRINTING_OPTION,'PRI','Y','N');
2339:
2340: IF pg_debug = 'Y'
2341: THEN
2342: debug ('AR_INVOICE_UTILS.populate_printing_pending(-)' );
2343: END IF;
2344:
2345: EXCEPTION
2346: WHEN OTHERS THEN
2343: END IF;
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;
2358:
2359: BEGIN
2360: IF pg_debug = 'Y'
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
2374: WHEN NO_DATA_FOUND THEN
2375: IF pg_debug = 'Y'
2376: THEN
2377: debug (' No rows in zx_product_options' );
2378: debug ('AR_INVOICE_UTILS.validate_default_tax(-)' );
2379: END IF;
2380: RETURN;
2381: END;
2382:
2399: and gt.default_tax_exempt_flag = AL1.lookup_code );
2400:
2401: IF pg_debug = 'Y'
2402: THEN
2403: debug ('AR_INVOICE_UTILS.validate_default_tax(-)' );
2404: END IF;
2405:
2406: EXCEPTION
2407: WHEN OTHERS THEN
2404: END IF;
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;
2418:
2419: BEGIN
2420: IF pg_debug = 'Y'
2421: THEN
2422: debug ('AR_INVOICE_UTILS.validate_Status(+)' );
2423: END IF;
2424:
2425: x_return_status := FND_API.G_RET_STS_SUCCESS;
2426:
2436: AND status_trx not in ( 'OP','CL','PEN','VD');
2437:
2438: IF pg_debug = 'Y'
2439: THEN
2440: debug ('AR_INVOICE_UTILS.validate_Status(-)' );
2441: END IF;
2442:
2443: EXCEPTION
2444: WHEN OTHERS THEN
2441: END IF;
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;
2455:
2456: BEGIN
2457: IF pg_debug = 'Y'
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:
2473: AND finance_charges not in ( 'Y','N');
2474:
2475: IF pg_debug = 'Y'
2476: THEN
2477: debug ('AR_INVOICE_UTILS.validate_finance_charges(-)' );
2478: END IF;
2479:
2480: EXCEPTION
2481: WHEN OTHERS THEN
2478: END IF;
2479:
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:
2494: BEGIN
2495:
2496: IF pg_debug = 'Y'
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:
2540: AND effective_end_date));
2541:
2542: IF pg_debug = 'Y'
2543: THEN
2544: debug ('AR_INVOICE_UTILS.validate_related_cust_trx_id(-)' );
2545: END IF;
2546:
2547: EXCEPTION
2548: WHEN OTHERS THEN
2545: END IF;
2546:
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:
2568: l_period_status gl_period_statuses.closing_status%type DEFAULT 'U';
2569: BEGIN
2570: IF pg_debug = 'Y'
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:
2667: END LOOP;
2668:
2669: IF pg_debug = 'Y'
2670: THEN
2671: debug ('AR_INVOICE_UTILS.validate_gl_date(-)' );
2672: END IF;
2673:
2674: EXCEPTION
2675: WHEN OTHERS THEN
2672: END IF;
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:
2683: x_return_status OUT NOCOPY VARCHAR2) IS
2684: BEGIN
2685: IF pg_debug = 'Y'
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:
2725: and gt.agreement_id = a.agreement_id);
2726:
2727: IF pg_debug = 'Y'
2728: THEN
2729: debug ('AR_INVOICE_UTILS.validate_agreement_id(-)' );
2730: END IF;
2731:
2732: EXCEPTION
2733: WHEN OTHERS THEN
2730: END IF;
2731:
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:
2749: l_copy_doc_number_flag ra_batch_sources.copy_doc_number_flag%type;
2750: BEGIN
2751: IF pg_debug = 'Y'
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:
2806: NULL );
2807:
2808: IF pg_debug = 'Y'
2809: THEN
2810: debug ('AR_INVOICE_UTILS.Get_batch_source_details(-)' );
2811: END IF;
2812:
2813: EXCEPTION
2814: WHEN NO_DATA_FOUND THEN
2820: arp_standard.fnd_message('AR_INAPI_INVALID_BATCH_SOURCE'),
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;
2849: BEGIN
2850:
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
2924: END;
2925: END LOOP;
2926: IF pg_debug = 'Y'
2927: THEN
2928: debug ('AR_INVOICE_UTILS.Get_trx_type_details(-)' );
2929: END IF;
2930:
2931: EXCEPTION
2932:
2931: EXCEPTION
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;
2945:
2946: BEGIN
2947: IF pg_debug = 'Y'
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*/
2974: AND NVL(gt.late_charges_assessed,'N') <> 'Y';
2975:
2976: IF pg_debug = 'Y'
2977: THEN
2978: debug ('AR_INVOICE_UTILS.populate_salesreps(-)' );
2979: END IF;
2980:
2981: EXCEPTION
2982: WHEN OTHERS THEN
2979: END IF;
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;
2993:
2994: BEGIN
2995:
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:
3055: AND gt.bill_to_customer_name IS NOT NULL;
3056:
3057:
3058: IF pg_debug = 'Y' THEN
3059: debug ('AR_INVOICE_UTILS.populate_bill_to_customer_id(-)' );
3060: END IF;
3061:
3062: EXCEPTION
3063: WHEN OTHERS THEN
3060: END IF;
3061:
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:
3075:
3076: BEGIN
3077:
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:
3128: WHERE cust_account_id = gt.bill_to_customer_id))
3129: WHERE gt.bill_to_site_use_id IS NULL;
3130:
3131: IF pg_debug = 'Y' THEN
3132: debug ('AR_INVOICE_UTILS.populate_bill_to_site_use_id (-)' );
3133: END IF;
3134:
3135: EXCEPTION
3136: WHEN OTHERS THEN
3133: END IF;
3134:
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:
3152: WHERE sgt.bill_to_customer_id = sgt.paying_customer_id;
3153:
3154: BEGIN
3155: IF pg_debug = 'Y' THEN
3156: debug ('AR_INVOICE_UTILS.populate_paying_site_use_id(+)' );
3157: END IF;
3158:
3159: -- first populate paying_customer_id if it is null
3160: UPDATE ar_trx_header_gt
3186: WHERE cust_account_id = gt.paying_customer_id))
3187: WHERE gt.paying_site_use_id IS NULL;
3188:
3189: IF pg_debug = 'Y' THEN
3190: debug ('AR_INVOICE_UTILS.populate_paying_site_use_id(-)' );
3191: END IF;
3192: END;
3193:
3194: PROCEDURE populate_bill_to_address_id (
3197:
3198: BEGIN
3199:
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:
3243: AND SU.PRIMARY_FLAG = 'Y' )
3244: WHERE gt.bill_to_address_id IS NULL;
3245:
3246: IF pg_debug = 'Y' THEN
3247: debug ('AR_INVOICE_UTILS.populate_bill_to_address_id(-)' );
3248: END IF;
3249:
3250: EXCEPTION
3251: WHEN OTHERS THEN
3248: END IF;
3249:
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:
3285: AND loc.location_id = party_site.location_id;
3286: BEGIN
3287: IF pg_debug = 'Y'
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
3355: END LOOP;
3356: END LOOP;
3357: IF pg_debug = 'Y'
3358: THEN
3359: debug ('AR_INVOICE_UTILS.populate_remit_to_address_id (-)' );
3360: END IF;
3361:
3362: EXCEPTION
3363: WHEN OTHERS THEN
3360: END IF;
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;
3380: l_contact_id HZ_CUST_ACCOUNT_ROLES.CUST_ACCOUNT_ROLE_ID%type;
3381: BEGIN
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
3426: END;
3427: END LOOP;
3428: IF pg_debug = 'Y'
3429: THEN
3430: debug ('AR_INVOICE_UTILS.populate_bill_to_contact_id(-)' );
3431: END IF;
3432: EXCEPTION
3433: WHEN OTHERS THEN
3434: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_contact_id '
3430: debug ('AR_INVOICE_UTILS.populate_bill_to_contact_id(-)' );
3431: END IF;
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:
3445:
3446: BEGIN
3447:
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:
3484: AND gt.ship_to_customer_name IS NOT NULL;
3485:
3486:
3487: IF pg_debug = 'Y' THEN
3488: debug ('AR_INVOICE_UTILS.populate_ship_to_customer_id(-)' );
3489: END IF;
3490:
3491: EXCEPTION
3492: WHEN OTHERS THEN
3489: END IF;
3490:
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:
3504:
3505: BEGIN
3506:
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:
3551: AND su.primary_flag = 'y' )
3552: WHERE gt.ship_to_address_id IS NULL;
3553:
3554: IF pg_debug = 'Y' THEN
3555: debug ('AR_INVOICE_UTILS.populate_ship_to_address_id(-)' );
3556: END IF;
3557:
3558: EXCEPTION
3559: WHEN OTHERS THEN
3556: END IF;
3557:
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:
3577: l_contact_id HZ_CUST_ACCOUNT_ROLES.CUST_ACCOUNT_ROLE_ID%type;
3578: BEGIN
3579: IF pg_debug = 'Y'
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:
3624: END;
3625: END LOOP;
3626: IF pg_debug = 'Y'
3627: THEN
3628: debug ('AR_INVOICE_UTILS.populate_ship_to_contact_id(-)' );
3629: END IF;
3630:
3631: EXCEPTION
3632: WHEN OTHERS THEN
3629: END IF;
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;
3667:
3668: BEGIN
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: /*----------------------------------------------------------------+
3707: END IF;
3708:
3709: IF pg_debug = 'Y'
3710: THEN
3711: debug ('AR_INVOICE_UTILS.populate_populate_territory (-)' );
3712: END IF;
3713: EXCEPTION
3714: WHEN OTHERS THEN
3715: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_territory '||sqlerrm;
3711: debug ('AR_INVOICE_UTILS.populate_populate_territory (-)' );
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:
3725:
3726: BEGIN
3727: IF pg_debug = 'Y'
3728: THEN
3729: debug ('AR_INVOICE_UTILS.populate_legal_entity(+)' );
3730: END IF;
3731:
3732: /* single update to default value */
3733: UPDATE ar_trx_header_gt
3739: WHERE legal_entity_id is NULL;
3740:
3741: IF pg_debug = 'Y'
3742: THEN
3743: debug ('AR_INVOICE_UTILS.populate_legal_entity(-)' );
3744: END IF;
3745:
3746: EXCEPTION
3747: WHEN OTHERS THEN
3744: END IF;
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:
3757: BEGIN
3758: -- first get the site use id
3759: IF pg_debug = 'Y'
3760: THEN
3761: debug ('AR_INVOICE_UTILS.populate_customer_attributes (+)' );
3762: END IF;
3763:
3764: IF pg_debug = 'Y'
3765: THEN
4003: END IF;
4004:
4005: IF pg_debug = 'Y'
4006: THEN
4007: debug ('AR_INVOICE_UTILS.populate_customer_attributes (-)' );
4008: END IF;
4009:
4010: EXCEPTION
4011: WHEN OTHERS THEN
4008: END IF;
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;
4022:
4023: BEGIN
4024: IF pg_debug = 'Y'
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:
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 (+)' );
4034: END IF;
4035: Get_batch_source_details (
4036: x_errmsg => x_errmsg,
4037: x_return_status => x_return_status );
4042: END IF;
4043: -- validate the trx type.
4044: IF pg_debug = 'Y'
4045: THEN
4046: debug ('AR_INVOICE_UTILS.Get_batch_source_details (-)' );
4047: debug ('AR_INVOICE_UTILS.validate_transaction_type (+)' );
4048: END IF;
4049: validate_transaction_type(
4050: x_errmsg => x_errmsg,
4043: -- validate the trx type.
4044: IF pg_debug = 'Y'
4045: THEN
4046: debug ('AR_INVOICE_UTILS.Get_batch_source_details (-)' );
4047: debug ('AR_INVOICE_UTILS.validate_transaction_type (+)' );
4048: END IF;
4049: validate_transaction_type(
4050: x_errmsg => x_errmsg,
4051: x_return_status => x_return_status);
4054: RETURN;
4055: END IF;
4056: IF pg_debug = 'Y'
4057: THEN
4058: debug ('AR_INVOICE_UTILS.validate_transaction_type (-)' );
4059: END IF;
4060: IF pg_debug = 'Y'
4061: THEN
4062: debug ('AR_INVOICE_UTILS.Get_trx_type_details (+)' );
4058: debug ('AR_INVOICE_UTILS.validate_transaction_type (-)' );
4059: END IF;
4060: IF pg_debug = 'Y'
4061: THEN
4062: debug ('AR_INVOICE_UTILS.Get_trx_type_details (+)' );
4063: END IF;
4064: Get_trx_type_details (
4065: x_errmsg => x_errmsg,
4066: x_return_status => x_return_status );
4070: RETURN;
4071: END IF;
4072: IF pg_debug = 'Y'
4073: THEN
4074: debug ('AR_INVOICE_UTILS.Get_trx_type_details (-)' );
4075: debug ('AR_INVOICE_DEFAULT_PVT.Default_gl_date (+)' );
4076: END IF;
4077: AR_INVOICE_DEFAULT_PVT.Default_gl_date;
4078:
4082: END IF;
4083: IF pg_debug = 'Y'
4084: THEN
4085: debug ('AR_INVOICE_DEFAULT_PVT.Default_gl_date (-)' );
4086: debug ('AR_INVOICE_UTILS.populate_customer_attributes (+)' );
4087: END IF;
4088: populate_customer_attributes (
4089: x_errmsg => x_errmsg,
4090: x_return_status => x_return_status );
4096: RETURN;
4097: END IF;
4098: IF pg_debug = 'Y'
4099: THEN
4100: debug ('AR_INVOICE_UTILS.populate_customer_attributes (-)' );
4101: END IF;
4102: IF pg_debug = 'Y'
4103: THEN
4104: debug ('AR_INVOICE_UTILS.populate_ref_hdr_attributes (-)' );
4100: debug ('AR_INVOICE_UTILS.populate_customer_attributes (-)' );
4101: END IF;
4102: IF pg_debug = 'Y'
4103: THEN
4104: debug ('AR_INVOICE_UTILS.populate_ref_hdr_attributes (-)' );
4105: END IF;
4106:
4107: EXCEPTION
4108: WHEN OTHERS THEN
4105: END IF;
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;
4121: l_so_org_id NUMBER;
4122: BEGIN
4123: IF pg_debug = 'Y'
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:
4187: and gt.uom_code = uom.uom_code);
4188:
4189: IF pg_debug = 'Y'
4190: THEN
4191: debug ('AR_INVOICE_UTILS.validate_UOM_CODE (-)' );
4192: END IF;
4193: EXCEPTION
4194: WHEN OTHERS THEN
4195: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_UOM_CODE '||sqlerrm;
4191: debug ('AR_INVOICE_UTILS.validate_UOM_CODE (-)' );
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;
4205:
4206: BEGIN
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
4220: validations here. */
4221:
4222: IF pg_debug = 'Y'
4223: THEN
4224: debug ('AR_INVOICE_UTILS.validate_tax_code (-)' );
4225: END IF;
4226:
4227: EXCEPTION
4228: WHEN OTHERS THEN
4225: END IF;
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;
4238: BEGIN
4239:
4240: IF pg_debug = 'Y'
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:
4295: gt.tax_jurisdiction_code IS NULL;
4296:
4297: IF pg_debug = 'Y'
4298: THEN
4299: debug ('AR_INVOICE_UTILS.validate_tax_lines (-)' );
4300: END IF;
4301:
4302: EXCEPTION
4303: WHEN OTHERS THEN
4300: END IF;
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:
4319:
4320: -- tax handling
4321: IF pg_debug = 'Y'
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
4335: WHEN NO_DATA_FOUND THEN
4336: IF pg_debug = 'Y'
4337: THEN
4338: debug (' No rows in zx_product_options' );
4339: debug ('AR_INVOICE_UTILS.validate_tax_exemption(-)' );
4340: END IF;
4341: RETURN;
4342: END;
4343:
4408: AND lookup_code = TAX_EXEMPT_REASON_CODE );
4409:
4410: IF pg_debug = 'Y'
4411: THEN
4412: debug ('AR_INVOICE_UTILS.validate_tax_exemption (-)' );
4413: END IF;
4414: EXCEPTION
4415: WHEN OTHERS THEN
4416: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_exemption '
4412: debug ('AR_INVOICE_UTILS.validate_tax_exemption (-)' );
4413: END IF;
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:
4427: l_trx_date Date := sysdate; --:= g_trx_date;
4428: BEGIN
4429: IF pg_debug = 'Y'
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:
4468: and sysdate -- g_trx_date
4469: between start_date_active and nvl(end_date_active, sysdate));
4470: IF pg_debug = 'Y'
4471: THEN
4472: debug ('AR_INVOICE_UTILS.validate_more_tab (-)' );
4473: END IF;
4474:
4475: EXCEPTION
4476: WHEN OTHERS THEN
4473: END IF;
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;
4487:
4488: BEGIN
4489:
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:
4540: AND description is NULL;
4541:
4542: IF pg_debug = 'Y'
4543: THEN
4544: debug ('AR_INVOICE_UTILS.validate_line_description (-)' );
4545: END IF;
4546:
4547: EXCEPTION
4548: WHEN OTHERS THEN
4545: END IF;
4546:
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:
4559: x_return_status OUT NOCOPY VARCHAR2) IS
4560: BEGIN
4561: IF pg_debug = 'Y'
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:
4577: AND gt2.trx_class <> 'CM' -- added for ER 5869149
4578: AND gt.line_type = 'LINE';
4579: IF pg_debug = 'Y'
4580: THEN
4581: debug ('AR_INVOICE_UTILS.validate_quantity_invoiced (-)' );
4582: END IF;
4583:
4584: EXCEPTION
4585: WHEN OTHERS THEN
4582: END IF;
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;
4594: x_return_status OUT NOCOPY VARCHAR2) IS
4595: BEGIN
4596: IF pg_debug = 'Y'
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:
4612: AND gt2.trx_class <> 'CM' -- Added for ER 5869149
4613: AND gt.line_type = 'LINE';
4614: IF pg_debug = 'Y'
4615: THEN
4616: debug ('AR_INVOICE_UTILS.validate_unit_selling_price (-)' );
4617: END IF;
4618: EXCEPTION
4619: WHEN OTHERS THEN
4620: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_unit_selling_price '||sqlerrm;
4616: debug ('AR_INVOICE_UTILS.validate_unit_selling_price (-)' );
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:
4627: x_return_status OUT NOCOPY VARCHAR2) IS
4628: BEGIN
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
4642: FROM ar_trx_lines_gt gt
4643: WHERE gt.line_type not in ('LINE', 'TAX', 'FREIGHT');
4644: IF pg_debug = 'Y'
4645: THEN
4646: debug ('AR_INVOICE_UTILS.validate_line_type (-)' );
4647: END IF;
4648:
4649: EXCEPTION
4650: WHEN OTHERS THEN
4647: END IF;
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:
4659:
4660: BEGIN
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
4682: WHERE gt.line_number IS NOT NULL
4683: AND ; */
4684: IF pg_debug = 'Y'
4685: THEN
4686: debug ('AR_INVOICE_UTILS.check_dup_line_number (-)' );
4687: END IF;
4688:
4689: EXCEPTION
4690: WHEN OTHERS THEN
4687: END IF;
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:
4710:
4711: BEGIN
4712: IF pg_debug = 'Y'
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:
4809: END IF;
4810: END LOOP;
4811: IF pg_debug = 'Y'
4812: THEN
4813: debug ('AR_INVOICE_UTILS.validate_line_integrity (-)' );
4814: END IF;
4815:
4816: EXCEPTION
4817: WHEN OTHERS THEN
4814: END IF;
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:
4826: BEGIN
4827: -- validate ship via
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
4879: AND gt.extended_amount IS NULL;
4880:
4881: IF pg_debug = 'Y'
4882: THEN
4883: debug ('AR_INVOICE_UTILS.validate_freight (-)' );
4884: END IF;
4885: EXCEPTION
4886: WHEN OTHERS THEN
4887: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_freight '||sqlerrm;
4883: debug ('AR_INVOICE_UTILS.validate_freight (-)' );
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:
4930:
4931: BEGIN
4932: IF pg_debug = 'Y'
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:
5017: AND line_type <> 'TAX';
5018:
5019: IF pg_debug = 'Y'
5020: THEN
5021: debug ('AR_INVOICE_UTILS.populate_extended_amount (-)' );
5022: END IF;
5023:
5024: EXCEPTION
5025: WHEN OTHERS THEN
5022: END IF;
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:
5035:
5036: BEGIN
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
5069:
5070:
5071: IF pg_debug = 'Y'
5072: THEN
5073: debug ('AR_INVOICE_UTILS.validate_doc_sequence (-)' );
5074: END IF;
5075:
5076: EXCEPTION
5077: WHEN OTHERS THEN
5074: END IF;
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:
5118: l_seq_num_profile fnd_profile_option_values.profile_option_value%type;
5119: BEGIN
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');
5256: RETURN;
5257: END IF;
5258: IF pg_debug = 'Y'
5259: THEN
5260: debug ('AR_INVOICE_UTILS.populate_doc_sequence (-)' );
5261: END IF;
5262: EXCEPTION
5263: WHEN OTHERS THEN
5264: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_doc_sequence '||sqlerrm ;
5260: debug ('AR_INVOICE_UTILS.populate_doc_sequence (-)' );
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;
5408: END LOOP;
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;
5431:
5432: BEGIN
5433: IF pg_debug = 'Y'
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);
5495: END LOOP;
5496:
5497: IF pg_debug = 'Y'
5498: THEN
5499: debug ('AR_INVOICE_UTILS.validate_item_kflex (-)' );
5500: END IF;
5501: EXCEPTION
5502: WHEN OTHERS THEN
5503: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_item_kflex '||sqlerrm ;
5499: debug ('AR_INVOICE_UTILS.validate_item_kflex (-)' );
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:
5516:
5517: BEGIN
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
5541: END IF;
5542: END LOOP;
5543: IF pg_debug = 'Y'
5544: THEN
5545: debug ('AR_INVOICE_UTILS.validate_territory_id (-)' );
5546: END IF;
5547: EXCEPTION
5548: WHEN OTHERS THEN
5549: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_territory_id '||sqlerrm ;
5545: debug ('AR_INVOICE_UTILS.validate_territory_id (-)' );
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:
5556: x_return_status OUT NOCOPY VARCHAR2) IS
5557: BEGIN
5558: IF pg_debug = 'Y'
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:
5593:
5594:
5595: IF pg_debug = 'Y'
5596: THEN
5597: debug ('AR_INVOICE_UTILS.validate_warehouse_id (-)' );
5598: END IF;
5599: EXCEPTION
5600: WHEN OTHERS THEN
5601: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_warehouse_id '||sqlerrm ;
5597: debug ('AR_INVOICE_UTILS.validate_warehouse_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:
5627: BEGIN
5628: -- validate the rule ID
5629: IF pg_debug = 'Y'
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:
5877:
5878: END LOOP;
5879: IF pg_debug = 'Y'
5880: THEN
5881: debug ('AR_INVOICE_UTILS.validate_accounting_rules (-)' );
5882: END IF;
5883:
5884: EXCEPTION
5885: WHEN OTHERS THEN
5882: END IF;
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:
5894:
5895: BEGIN
5896:
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:
5920: BETWEEN NVL(gutc.start_date_active, gt.trx_date)
5921: AND NVL(gutc.end_date_active, gt.trx_date));
5922:
5923: IF pg_debug = 'Y' THEN
5924: debug ('ar_invoice_utils.validate_line_ussgl_code(-)' );
5925: END IF;
5926:
5927: EXCEPTION
5928: WHEN OTHERS THEN
5925: END IF;
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;
5939:
5940: BEGIN
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.
5974: END IF;
5975:
5976: IF pg_debug = 'Y'
5977: THEN
5978: debug ('AR_INVOICE_UTILS.populate_line_attributes (-)' );
5979: END IF;
5980:
5981: EXCEPTION
5982: WHEN OTHERS THEN
5979: END IF;
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:
6013:
6014: BEGIN
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
6108: AND gt.trx_currency <> p_trx_system_parameters_rec.base_currency_code;
6109:
6110: IF pg_debug = 'Y'
6111: THEN
6112: debug ('AR_INVOICE_UTILS.populate_exchange_rate (-)' );
6113: END IF;
6114:
6115: EXCEPTION
6116: WHEN OTHERS
6114:
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;
6351: BEGIN
6352:
6353: IF pg_debug = 'Y'
6354: THEN
6355: debug ('AR_INVOICE_UTILS.validate_header (+)' );
6356: END IF;
6357:
6358: x_return_status := FND_API.G_RET_STS_SUCCESS;
6359:
6837: END IF;
6838:
6839: IF pg_debug = 'Y'
6840: THEN
6841: debug ('AR_INVOICE_UTILS.validate_desc_flex for header (+)' );
6842: END IF;
6843:
6844: ar_invoice_validate_flex.validate_desc_flex (
6845: p_validation_type => 'HEADER',
6846: x_errmsg => x_errmsg,
6847: x_return_status => x_return_status);
6848: IF pg_debug = 'Y'
6849: THEN
6850: debug ('AR_INVOICE_UTILS.validate_desc_flex for header (-)' );
6851: debug ('AR_INVOICE_UTILS.validate_header (-)' );
6852: END IF;
6853:
6854: /*4369585-4589309*/
6847: x_return_status => x_return_status);
6848: IF pg_debug = 'Y'
6849: THEN
6850: debug ('AR_INVOICE_UTILS.validate_desc_flex for header (-)' );
6851: debug ('AR_INVOICE_UTILS.validate_header (-)' );
6852: END IF;
6853:
6854: /*4369585-4589309*/
6855: populate_printing_pending(
6869:
6870: BEGIN
6871: IF pg_debug = 'Y'
6872: THEN
6873: debug ('AR_INVOICE_UTILS.validate_lines (+)' );
6874: END IF;
6875:
6876: x_return_status := FND_API.G_RET_STS_SUCCESS;
6877:
7011: END IF;
7012:
7013: IF pg_debug = 'Y'
7014: THEN
7015: debug ('AR_INVOICE_UTILS.validate_desc_flex for lines (+)' );
7016: END IF;
7017:
7018: ar_invoice_validate_flex.validate_desc_flex (
7019: p_validation_type => 'LINES',
7020: x_errmsg => x_errmsg,
7021: x_return_status => x_return_status);
7022: IF pg_debug = 'Y'
7023: THEN
7024: debug ('AR_INVOICE_UTILS.validate_desc_flex for lines (-)' );
7025: debug ('AR_INVOICE_UTILS.validate_lines (-)' );
7026: END IF;
7027:
7028: END validate_lines;
7021: x_return_status => x_return_status);
7022: IF pg_debug = 'Y'
7023: THEN
7024: debug ('AR_INVOICE_UTILS.validate_desc_flex for lines (-)' );
7025: debug ('AR_INVOICE_UTILS.validate_lines (-)' );
7026: END IF;
7027:
7028: END validate_lines;
7029:
7038: BEGIN
7039: -- first validate the ccid, if user has passed any ccid
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
7065: END IF;
7066: END LOOP;
7067: IF pg_debug = 'Y'
7068: THEN
7069: debug ('AR_INVOICE_UTILS.validate_accounting_flex (-)' );
7070: END IF;
7071:
7072: EXCEPTION
7073: WHEN OTHERS THEN
7070: END IF;
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:
7090:
7091: BEGIN
7092: IF pg_debug = 'Y'
7093: THEN
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;
7554: x_return_status => x_return_status);
7555:
7556: IF pg_debug = 'Y'
7557: THEN
7558: debug ('AR_INVOICE_UTILS.validate_desc_flex for distributions(-)' );
7559: END IF;
7560:
7561: IF pg_debug = 'Y'
7562: THEN
7559: END IF;
7560:
7561: IF pg_debug = 'Y'
7562: THEN
7563: debug ('AR_INVOICE_UTILS.validate_distributions (-)' );
7564: END IF;
7565:
7566: /*4673387*/
7567: UPDATE ar_trx_dist_gt
7573: AND ctt.post_to_gl = 'N');
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:
7628:
7629: BEGIN
7630: IF pg_debug = 'Y'
7631: THEN
7632: debug ('AR_INVOICE_UTILS.validate_salescredits (+)' );
7633: END IF;
7634:
7635: x_return_status := FND_API.G_RET_STS_SUCCESS;
7636:
8147: END IF;
8148:
8149: IF pg_debug = 'Y'
8150: THEN
8151: debug ('AR_INVOICE_UTILS.validate_salescredits (-)' );
8152: END IF;
8153:
8154: -- validate desc flex
8155: ar_invoice_validate_flex.validate_desc_flex (
8158: x_return_status => x_return_status);
8159:
8160: IF pg_debug = 'Y'
8161: THEN
8162: debug ('AR_INVOICE_UTILS.validate_desc_flex in Salesereps(-)' );
8163: END IF;
8164:
8165: EXCEPTION
8166: WHEN OTHERS THEN
8163: END IF;
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;
8169: RETURN;
8170:
8171: END validate_salescredits;
8172:
8173: END AR_INVOICE_UTILS;