[Home] [Help]
1: PACKAGE BODY AR_INVOICE_UTILS AS
2: /* $Header: ARXVINUB.pls 120.65.12010000.3 2008/11/18 11:47:43 pbapna 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:
358: WHERE gt.receipt_method_id IS NULL
359: AND gt.payment_trxn_extension_id IS NOT NULL;
360:
361: IF pg_debug = 'Y' THEN
362: debug ('ar_invoice_utils.validate_payment_method(-)' );
363: END IF;
364:
365: EXCEPTION
366: WHEN OTHERS THEN
363: END IF;
364:
365: EXCEPTION
366: WHEN OTHERS THEN
367: x_errmsg := 'error in ar_invoice_utils.validate_payment_method '
368: || sqlerrm;
369: x_return_status := fnd_api.g_ret_sts_unexp_error;
370: RETURN;
371:
378:
379: BEGIN
380:
381: IF pg_debug = 'Y' THEN
382: debug ('ar_invoice_utils.validate_legal_entity(+)' );
383: END IF;
384:
385: x_return_status := FND_API.G_RET_STS_SUCCESS;
386:
399: WHERE LE.legal_entity_id = GT.legal_entity_id
400: AND LE.operating_unit_id = GT.org_id);
401:
402: IF pg_debug = 'Y' THEN
403: debug ('ar_invoice_utils.validate_legal_entity(-)' );
404: END IF;
405:
406: EXCEPTION
407: WHEN OTHERS THEN
404: END IF;
405:
406: EXCEPTION
407: WHEN OTHERS THEN
408: x_errmsg := 'error in ar_invoice_utils.validate_legal_entity '
409: || sqlerrm;
410: x_return_status := fnd_api.g_ret_sts_unexp_error;
411: RETURN;
412:
418:
419: BEGIN
420:
421: IF pg_debug = 'Y' THEN
422: debug ('ar_invoice_utils.validate_cust_bank_account_id(+)' );
423: END IF;
424:
425: x_return_status := FND_API.G_RET_STS_SUCCESS;
426: /* payment uptake removed the validation for cust_bank_account_id */
435:
436: BEGIN
437:
438: IF pg_debug = 'Y' THEN
439: debug ('ar_invoice_utils.validate_paying_customer_id(+)' );
440: END IF;
441:
442: x_return_status := FND_API.G_RET_STS_SUCCESS;
443: -- Removed the prospect join as per the bug 3310138
492: AND effective_end_date)
493: );
494: END IF;
495: IF pg_debug = 'Y' THEN
496: debug ('ar_invoice_utils.validate_paying_customer_id(-)' );
497: END IF;
498:
499: EXCEPTION
500: WHEN OTHERS THEN
497: END IF;
498:
499: EXCEPTION
500: WHEN OTHERS THEN
501: x_errmsg := 'error in ar_invoice_utils.validate_paying_customer_id '||
502: sqlerrm;
503: x_return_status := fnd_api.g_ret_sts_unexp_error;
504: RETURN;
505:
513:
514: BEGIN
515:
516: IF pg_debug = 'Y' THEN
517: debug ('ar_invoice_utils.validate_paying_site_use_id(+)' );
518: END IF;
519:
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
521:
539: ('BILL_TO', decode(p_trx_system_param_rec.br_enabled_flag,
540: 'DRAWEE', 'PAYING')));
541:
542: IF pg_debug = 'Y' THEN
543: debug ('ar_invoice_utils.validate_paying_site_use_id(-)' );
544: END IF;
545:
546: EXCEPTION
547: WHEN OTHERS THEN
544: END IF;
545:
546: EXCEPTION
547: WHEN OTHERS THEN
548: x_errmsg := 'error in ar_invoice_utils.validate_paying_site_use_id '||
549: sqlerrm;
550: x_return_status := fnd_api.g_ret_sts_unexp_error;
551: RETURN;
552:
559:
560: BEGIN
561:
562: IF pg_debug = 'Y' THEN
563: debug ('ar_invoice_utils.validate_sold_to_customer_id(+)' );
564: END IF;
565:
566: x_return_status := FND_API.G_RET_STS_SUCCESS;
567:
580: WHERE cust_acct.cust_account_id = gt.sold_to_customer_id
581: AND cust_acct.status = 'A');
582:
583: IF pg_debug = 'Y' THEN
584: debug ('ar_invoice_utils.validate_sold_to_customer_id(-)' );
585: END IF;
586:
587: EXCEPTION
588: WHEN OTHERS THEN
585: END IF;
586:
587: EXCEPTION
588: WHEN OTHERS THEN
589: x_errmsg := 'error in ar_invoice_utils.validate_sold_to_customer_id '||
590: sqlerrm;
591: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: RETURN;
593:
600:
601: BEGIN
602:
603: IF pg_debug = 'Y' THEN
604: debug ('ar_invoice_utils.validate_ship_to_customer_name(+)' );
605: END IF;
606:
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
622: WHERE cust_acct.party_id = party.party_id
623: AND party.party_name = gt.ship_to_customer_name);
624:
625: IF pg_debug = 'Y' THEN
626: debug ('ar_invoice_utils.validate_ship_to_customer_name(-)' );
627: END IF;
628:
629: EXCEPTION
630: WHEN OTHERS THEN
627: END IF;
628:
629: EXCEPTION
630: WHEN OTHERS THEN
631: x_errmsg := 'error in ar_invoice_utils.validate_ship_to_customer_name '
632: || sqlerrm;
633: x_return_status := fnd_api.g_ret_sts_unexp_error;
634: RETURN;
635:
642:
643: BEGIN
644:
645: IF pg_debug = 'Y' THEN
646: debug ('ar_invoice_utils.validate_ship_to_cust_number(+)' );
647: END IF;
648:
649: x_return_status := FND_API.G_RET_STS_SUCCESS;
650:
662: FROM hz_cust_accounts cust_acct
663: WHERE cust_acct.account_number = gt.ship_to_account_number);
664:
665: IF pg_debug = 'Y' THEN
666: debug ('ar_invoice_utils.validate_ship_to_cust_number(-)' );
667: END IF;
668:
669: EXCEPTION
670: WHEN OTHERS THEN
667: END IF;
668:
669: EXCEPTION
670: WHEN OTHERS THEN
671: x_errmsg := 'error in ar_invoice_utils.validate_ship_to_cust_number '
672: || sqlerrm;
673: x_return_status := fnd_api.g_ret_sts_unexp_error;
674: RETURN;
675:
682:
683: BEGIN
684:
685: IF pg_debug = 'Y' THEN
686: debug ('ar_invoice_utils.validate_bill_to_customer_name(+)' );
687: END IF;
688:
689: x_return_status := FND_API.G_RET_STS_SUCCESS;
690:
704: WHERE cust_acct.party_id = party.party_id
705: AND party.party_name = gt.bill_to_customer_name);
706:
707: IF pg_debug = 'Y' THEN
708: debug ('ar_invoice_utils.validate_bill_to_customer_name(-)' );
709: END IF;
710:
711: EXCEPTION
712: WHEN OTHERS THEN
709: END IF;
710:
711: EXCEPTION
712: WHEN OTHERS THEN
713: x_errmsg := 'error in ar_invoice_utils.validate_bill_to_customer_name '
714: || sqlerrm;
715: x_return_status := fnd_api.g_ret_sts_unexp_error;
716: RETURN;
717:
724:
725: BEGIN
726:
727: IF pg_debug = 'Y' THEN
728: debug ('ar_invoice_utils.validate_bill_to_cust_number(+)' );
729: END IF;
730:
731: x_return_status := FND_API.G_RET_STS_SUCCESS;
732:
744: FROM hz_cust_accounts cust_acct
745: WHERE cust_acct.account_number = gt.bill_to_account_number);
746:
747: IF pg_debug = 'Y' THEN
748: debug ('ar_invoice_utils.validate_bill_to_cust_number(-)' );
749: END IF;
750:
751: EXCEPTION
752: WHEN OTHERS THEN
749: END IF;
750:
751: EXCEPTION
752: WHEN OTHERS THEN
753: x_errmsg := 'error in ar_invoice_utils.validate_bill_to_cust_number '
754: || sqlerrm;
755: x_return_status := fnd_api.g_ret_sts_unexp_error;
756: RETURN;
757:
764:
765: BEGIN
766:
767: IF pg_debug = 'Y' THEN
768: debug ('ar_invoice_utils.validate_bill_to_contact_id(+)' );
769: END IF;
770:
771: x_return_status := FND_API.G_RET_STS_SUCCESS;
772:
799: or acct_role.cust_acct_site_id IS NULL )
800: AND acct_role.status = 'A');
801:
802: IF pg_debug = 'Y' THEN
803: debug ('ar_invoice_utils.validate_bill_to_contact_id(-)' );
804: END IF;
805:
806: EXCEPTION
807: WHEN OTHERS THEN
804: END IF;
805:
806: EXCEPTION
807: WHEN OTHERS THEN
808: x_errmsg := 'error in ar_invoice_utils.validate_bill_to_contact_id '||
809: sqlerrm;
810: x_return_status := fnd_api.g_ret_sts_unexp_error;
811: RETURN;
812:
819:
820: BEGIN
821:
822: IF pg_debug = 'Y' THEN
823: debug ('ar_invoice_utils.validate_ship_to_contact_id(+)' );
824: END IF;
825:
826: x_return_status := FND_API.G_RET_STS_SUCCESS;
827:
854: or acct_role.cust_acct_site_id IS NULL )
855: AND acct_role.status = 'A');
856:
857: IF pg_debug = 'Y' THEN
858: debug ('ar_invoice_utils.validate_ship_to_contact_id(-)' );
859: END IF;
860:
861: EXCEPTION
862: WHEN OTHERS THEN
859: END IF;
860:
861: EXCEPTION
862: WHEN OTHERS THEN
863: x_errmsg := 'error in ar_invoice_utils.validate_ship_to_contact_id '||
864: sqlerrm;
865: x_return_status := fnd_api.g_ret_sts_unexp_error;
866: RETURN;
867:
874:
875: BEGIN
876:
877: IF pg_debug = 'Y' THEN
878: debug ('ar_invoice_utils.validate_exchange_rate_type(+)' );
879: END IF;
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882:
895: WHERE conversion_type <> 'EMU FIXED'
896: AND conversion_type = gt.exchange_rate_type); /*Bug 4517001*/
897:
898: IF pg_debug = 'Y' THEN
899: debug ('ar_invoice_utils.validate_exchange_rate_type(-)' );
900: END IF;
901:
902: EXCEPTION
903: WHEN OTHERS THEN
900: END IF;
901:
902: EXCEPTION
903: WHEN OTHERS THEN
904: x_errmsg := 'error in ar_invoice_utils.validate_exchange_rate_type '||
905: sqlerrm;
906: x_return_status := fnd_api.g_ret_sts_unexp_error;
907: RETURN;
908:
1243: -- validate_bfb;
1244:
1245: EXCEPTION
1246: WHEN OTHERS THEN
1247: x_errmsg := 'ar_invoice_utils.validate_dependent_parameters: '||sqlerrm;
1248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1249: RETURN;
1250:
1251: END validate_dependent_parameters;
1257:
1258: BEGIN
1259:
1260: IF pg_debug = 'Y' THEN
1261: debug ('ar_invoice_utils.validate_master_detail(+)' );
1262: END IF;
1263:
1264: x_return_status := FND_API.G_RET_STS_SUCCESS;
1265:
1349: HAVING count(*) > 1);
1350:
1351:
1352: IF pg_debug = 'Y' THEN
1353: debug ('ar_invoice_utils.validate_master_detail(-)' );
1354: END IF;
1355:
1356: EXCEPTION
1357: WHEN OTHERS THEN
1354: END IF;
1355:
1356: EXCEPTION
1357: WHEN OTHERS THEN
1358: x_errmsg := 'error in ar_invoice_utils.validate_master_detail '
1359: || sqlerrm;
1360: x_return_status := fnd_api.g_ret_sts_unexp_error;
1361: RETURN;
1362:
1373: x_return_status OUT NOCOPY VARCHAR2) AS
1374: BEGIN
1375: IF pg_debug = 'Y'
1376: THEN
1377: debug ('AR_INVOICE_UTILS.validate_trx_number(+)' );
1378: END IF;
1379:
1380: x_return_status := FND_API.G_RET_STS_SUCCESS;
1381:
1425: );
1426:
1427: IF pg_debug = 'Y'
1428: THEN
1429: debug ('AR_INVOICE_UTILS.validate_trx_number(-)' );
1430: END IF;
1431: EXCEPTION
1432: WHEN OTHERS THEN
1433: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_trx_number '||sqlerrm;
1429: debug ('AR_INVOICE_UTILS.validate_trx_number(-)' );
1430: END IF;
1431: EXCEPTION
1432: WHEN OTHERS THEN
1433: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_trx_number '||sqlerrm;
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: RETURN;
1436: END;
1437:
1443: BEGIN
1444: -- validate the batch source id
1445: IF pg_debug = 'Y'
1446: THEN
1447: debug ('AR_INVOICE_UTILS.validate_batch_source(+)' );
1448: END IF;
1449:
1450: x_return_status := FND_API.G_RET_STS_SUCCESS;
1451:
1470: and gt.batch_source_id = bs.batch_source_id);
1471: END;
1472: IF pg_debug = 'Y'
1473: THEN
1474: debug ('AR_INVOICE_UTILS.validate_batch_source(-)' );
1475: END IF;
1476:
1477: EXCEPTION
1478: WHEN OTHERS THEN
1475: END IF;
1476:
1477: EXCEPTION
1478: WHEN OTHERS THEN
1479: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_batch_source '||sqlerrm;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: RETURN;
1482:
1483: END;
1490: BEGIN
1491:
1492: IF pg_debug = 'Y'
1493: THEN
1494: debug ('AR_INVOICE_UTILS.validate_currency(+)' );
1495: END IF;
1496:
1497: x_return_status := FND_API.G_RET_STS_SUCCESS;
1498:
1513: AND NVL(c.end_date_active, gt.trx_date) );
1514:
1515: IF pg_debug = 'Y'
1516: THEN
1517: debug ('AR_INVOICE_UTILS.validate_currency(-)' );
1518: END IF;
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_currency '||sqlerrm;
1517: debug ('AR_INVOICE_UTILS.validate_currency(-)' );
1518: END IF;
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_currency '||sqlerrm;
1522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1523: RETURN;
1524: END;
1525:
1529: x_return_status OUT NOCOPY VARCHAR2) AS
1530: BEGIN
1531: IF pg_debug = 'Y'
1532: THEN
1533: debug ('AR_INVOICE_UTILS.validate_transaction_type(+)' );
1534: END IF;
1535:
1536: x_return_status := FND_API.G_RET_STS_SUCCESS;
1537: INSERT INTO ar_trx_errors_gt (
1562: and ctt.cust_trx_type_id = gt.cust_trx_type_id);
1563:
1564: IF pg_debug = 'Y'
1565: THEN
1566: debug ('AR_INVOICE_UTILS.validate_transaction_type(-)' );
1567: END IF;
1568:
1569: EXCEPTION
1570: WHEN OTHERS THEN
1567: END IF;
1568:
1569: EXCEPTION
1570: WHEN OTHERS THEN
1571: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_transaction_type '||sqlerrm;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: RETURN;
1574:
1575: END;
1579: x_return_status OUT NOCOPY VARCHAR2) AS
1580: BEGIN
1581: IF pg_debug = 'Y'
1582: THEN
1583: debug ('AR_INVOICE_UTILS.validate_bill_to_customer_id(+)' );
1584: END IF;
1585:
1586: x_return_status := FND_API.G_RET_STS_SUCCESS;
1587:
1601: AND status = 'A');
1602:
1603: IF pg_debug = 'Y'
1604: THEN
1605: debug ('AR_INVOICE_UTILS.validate_bill_to_customer_id(-)' );
1606: END IF;
1607: EXCEPTION
1608: WHEN OTHERS THEN
1609: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_customer_id '||sqlerrm;
1605: debug ('AR_INVOICE_UTILS.validate_bill_to_customer_id(-)' );
1606: END IF;
1607: EXCEPTION
1608: WHEN OTHERS THEN
1609: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_customer_id '||sqlerrm;
1610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1611: RETURN;
1612:
1613: END;
1618: BEGIN
1619:
1620: IF pg_debug = 'Y'
1621: THEN
1622: debug ('AR_INVOICE_UTILS.validate_bill_to_site_use_id(+)' );
1623: END IF;
1624: x_return_status := FND_API.G_RET_STS_SUCCESS;
1625:
1626: INSERT INTO ar_trx_errors_gt (
1643: AND site_use_id = gt.bill_to_site_use_id);
1644:
1645: IF pg_debug = 'Y'
1646: THEN
1647: debug ('AR_INVOICE_UTILS.validate_bill_to_site_use_id(-)' );
1648: END IF;
1649:
1650: EXCEPTION
1651: WHEN OTHERS THEN
1648: END IF;
1649:
1650: EXCEPTION
1651: WHEN OTHERS THEN
1652: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_site_use_id '
1653: ||sqlerrm;
1654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: RETURN;
1656:
1663:
1664: BEGIN
1665: IF pg_debug = 'Y'
1666: THEN
1667: debug ('AR_INVOICE_UTILS.validate_bill_to_address_id(+)' );
1668: END IF;
1669:
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671:
1698: AND SU.CUST_ACCT_SITE_ID = gt.bill_to_address_id );
1699:
1700: IF pg_debug = 'Y'
1701: THEN
1702: debug ('AR_INVOICE_UTILS.validate_bill_to_address_id(-)' );
1703: END IF;
1704: EXCEPTION
1705: WHEN OTHERS THEN
1706: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_address_id '||sqlerrm;
1702: debug ('AR_INVOICE_UTILS.validate_bill_to_address_id(-)' );
1703: END IF;
1704: EXCEPTION
1705: WHEN OTHERS THEN
1706: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_bill_to_address_id '||sqlerrm;
1707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1708: RETURN;
1709:
1710: END;
1718:
1719: BEGIN
1720: IF pg_debug = 'Y'
1721: THEN
1722: debug ('AR_INVOICE_UTILS.validate_ship_to_customer_id(+)' );
1723: END IF;
1724:
1725: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726:
1741: -- OR gt.ship_to_customer_id IS NOT NULL);
1742:
1743: IF pg_debug = 'Y'
1744: THEN
1745: debug ('AR_INVOICE_UTILS.validate_ship_to_customer_id(-)' );
1746: END IF;
1747:
1748: EXCEPTION
1749: WHEN OTHERS THEN
1746: END IF;
1747:
1748: EXCEPTION
1749: WHEN OTHERS THEN
1750: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_customer_id '
1751: ||sqlerrm;
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: RETURN;
1754: END;
1758: x_return_status OUT NOCOPY VARCHAR2) AS
1759: BEGIN
1760: IF pg_debug = 'Y'
1761: THEN
1762: debug ('AR_INVOICE_UTILS.validate_ship_to_site_use_id(+)' );
1763: END IF;
1764:
1765: x_return_status := FND_API.G_RET_STS_SUCCESS;
1766:
1795: AND gt.ship_to_customer_id IS NOT NULL;
1796:
1797: IF pg_debug = 'Y'
1798: THEN
1799: debug ('AR_INVOICE_UTILS.validate_ship_to_site_use_id(-)' );
1800: END IF;
1801: EXCEPTION
1802: WHEN OTHERS THEN
1803: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_site_use_id '||sqlerrm;
1799: debug ('AR_INVOICE_UTILS.validate_ship_to_site_use_id(-)' );
1800: END IF;
1801: EXCEPTION
1802: WHEN OTHERS THEN
1803: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_site_use_id '||sqlerrm;
1804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1805: RETURN;
1806: END;
1807:
1810: x_return_status OUT NOCOPY VARCHAR2) AS
1811: BEGIN
1812: IF pg_debug = 'Y'
1813: THEN
1814: debug ('AR_INVOICE_UTILS.validate_ship_to_location(+)' );
1815: END IF;
1816:
1817: x_return_status := FND_API.G_RET_STS_SUCCESS;
1818:
1846: or ( asa.su_status = 'A' and asa.a_status = 'A' ) ));
1847:
1848: IF pg_debug = 'Y'
1849: THEN
1850: debug ('AR_INVOICE_UTILS.validate_ship_to_location(-)' );
1851: END IF;
1852: EXCEPTION
1853: WHEN OTHERS THEN
1854: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_location '||sqlerrm;
1850: debug ('AR_INVOICE_UTILS.validate_ship_to_location(-)' );
1851: END IF;
1852: EXCEPTION
1853: WHEN OTHERS THEN
1854: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_location '||sqlerrm;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: RETURN;
1857: END;
1858:
1863:
1864: BEGIN
1865:
1866: IF pg_debug = 'Y' THEN
1867: debug ('AR_INVOICE_UTILS.populate_ship_to_site_use_id (+)' );
1868: END IF;
1869:
1870: x_return_status := FND_API.G_RET_STS_SUCCESS;
1871:
1900: WHERE cust_account_id = gt.ship_to_customer_id))
1901: WHERE gt.ship_to_site_use_id IS NULL;
1902:
1903: IF pg_debug = 'Y' THEN
1904: debug ('AR_INVOICE_UTILS.populate_ship_to_site_use_id (-)' );
1905: END IF;
1906:
1907: EXCEPTION
1908: WHEN OTHERS THEN
1905: END IF;
1906:
1907: EXCEPTION
1908: WHEN OTHERS THEN
1909: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_site_use_id '
1910: ||sqlerrm;
1911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1912: RETURN;
1913:
1923:
1924: BEGIN
1925: IF pg_debug = 'Y'
1926: THEN
1927: debug ('AR_INVOICE_UTILS.validate_ship_to_address(+)' );
1928: END IF;
1929:
1930: populate_ship_to_site_use_id(
1931: x_errmsg => x_errmsg,
1965: and asa.su_status = 'A' and asa.a_status = 'A' ) ) );
1966:
1967: IF pg_debug = 'Y'
1968: THEN
1969: debug ('AR_INVOICE_UTILS.validate_ship_to_address(-)' );
1970: END IF;
1971:
1972: EXCEPTION
1973: WHEN OTHERS THEN
1970: END IF;
1971:
1972: EXCEPTION
1973: WHEN OTHERS THEN
1974: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_ship_to_address '||sqlerrm;
1975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1976: RETURN;
1977: END validate_ship_to_address;
1978:
1983:
1984: BEGIN
1985: IF pg_debug = 'Y'
1986: THEN
1987: debug ('AR_INVOICE_UTILS.validate_terms(+)' );
1988: END IF;
1989: x_return_status := FND_API.G_RET_STS_SUCCESS;
1990:
1991: INSERT INTO ar_trx_errors_gt (
2038: AND ar_bfb_utils_pvt.get_bill_level(gt.bill_to_customer_id) = 'N';
2039:
2040: IF pg_debug = 'Y'
2041: THEN
2042: debug ('AR_INVOICE_UTILS.validate_terms(-)' );
2043: END IF;
2044: EXCEPTION
2045: WHEN OTHERS THEN
2046: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_terms '||sqlerrm;
2042: debug ('AR_INVOICE_UTILS.validate_terms(-)' );
2043: END IF;
2044: EXCEPTION
2045: WHEN OTHERS THEN
2046: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_terms '||sqlerrm;
2047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: RETURN;
2049:
2050: END validate_terms;
2059:
2060: BEGIN
2061: IF pg_debug = 'Y'
2062: THEN
2063: debug ('AR_INVOICE_UTILS.validate_salesrep(+)' );
2064: END IF;
2065:
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2067:
2139: AND p_trx_system_param_rec.salesrep_required_flag = 'Y';
2140:
2141: IF pg_debug = 'Y'
2142: THEN
2143: debug ('AR_INVOICE_UTILS.validate_salesrep(-)' );
2144: END IF;
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2144: END IF;
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_salesrep '||sqlerrm;
2149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2150: RETURN;
2151:
2152: END validate_salesrep;
2157: x_return_status OUT NOCOPY VARCHAR2) AS
2158: BEGIN
2159: IF pg_debug = 'Y'
2160: THEN
2161: debug ('AR_INVOICE_UTILS.validate_invoicing_rule_id(+)' );
2162: END IF;
2163:
2164: x_return_status := FND_API.G_RET_STS_SUCCESS;
2165:
2192: AND gt.invoicing_rule_id not in ( -2, -3);
2193:
2194: IF pg_debug = 'Y'
2195: THEN
2196: debug ('AR_INVOICE_UTILS.validate_invoicing_rule_id(-)' );
2197: END IF;
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_invoicing_rule_id '
2196: debug ('AR_INVOICE_UTILS.validate_invoicing_rule_id(-)' );
2197: END IF;
2198: EXCEPTION
2199: WHEN OTHERS THEN
2200: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_invoicing_rule_id '
2201: ||sqlerrm;
2202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2203: RETURN;
2204:
2212: BEGIN
2213:
2214: IF pg_debug = 'Y'
2215: THEN
2216: debug ('AR_INVOICE_UTILS.validate_print_option(+)' );
2217: END IF;
2218:
2219: x_return_status := FND_API.G_RET_STS_SUCCESS;
2220:
2229: WHERE gt.printing_option IS NOT NULL
2230: AND gt.printing_option NOT IN ( 'PRI', 'NOT');
2231: IF pg_debug = 'Y'
2232: THEN
2233: debug ('AR_INVOICE_UTILS.validate_print_option(-)' );
2234: END IF;
2235:
2236: EXCEPTION
2237: WHEN OTHERS THEN
2234: END IF;
2235:
2236: EXCEPTION
2237: WHEN OTHERS THEN
2238: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_print_option '
2239: ||sqlerrm;
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2241: RETURN;
2242:
2251:
2252: BEGIN
2253: IF pg_debug = 'Y'
2254: THEN
2255: debug ('AR_INVOICE_UTILS.populate_printing_pendings(+)' );
2256: END IF;
2257:
2258: x_return_status := FND_API.G_RET_STS_SUCCESS;
2259:
2261: set gt.printing_pending=decode(gt.PRINTING_OPTION,'PRI','Y','N');
2262:
2263: IF pg_debug = 'Y'
2264: THEN
2265: debug ('AR_INVOICE_UTILS.populate_printing_pending(-)' );
2266: END IF;
2267:
2268: EXCEPTION
2269: WHEN OTHERS THEN
2266: END IF;
2267:
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_printing_pending '||sqlerrm;
2271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2272: RETURN;
2273:
2274: End populate_printing_pending;
2281:
2282: BEGIN
2283: IF pg_debug = 'Y'
2284: THEN
2285: debug ('AR_INVOICE_UTILS.validate_default_tax(+)' );
2286: END IF;
2287:
2288: x_return_status := FND_API.G_RET_STS_SUCCESS;
2289: BEGIN
2297: WHEN NO_DATA_FOUND THEN
2298: IF pg_debug = 'Y'
2299: THEN
2300: debug (' No rows in zx_product_options' );
2301: debug ('AR_INVOICE_UTILS.validate_default_tax(-)' );
2302: END IF;
2303: RETURN;
2304: END;
2305:
2322: and gt.default_tax_exempt_flag = AL1.lookup_code );
2323:
2324: IF pg_debug = 'Y'
2325: THEN
2326: debug ('AR_INVOICE_UTILS.validate_default_tax(-)' );
2327: END IF;
2328:
2329: EXCEPTION
2330: WHEN OTHERS THEN
2327: END IF;
2328:
2329: EXCEPTION
2330: WHEN OTHERS THEN
2331: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_default_tax '||sqlerrm;
2332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2333: RETURN;
2334:
2335: END validate_default_tax;
2341:
2342: BEGIN
2343: IF pg_debug = 'Y'
2344: THEN
2345: debug ('AR_INVOICE_UTILS.validate_Status(+)' );
2346: END IF;
2347:
2348: x_return_status := FND_API.G_RET_STS_SUCCESS;
2349:
2359: AND status_trx not in ( 'OP','CL','PEN','VD');
2360:
2361: IF pg_debug = 'Y'
2362: THEN
2363: debug ('AR_INVOICE_UTILS.validate_Status(-)' );
2364: END IF;
2365:
2366: EXCEPTION
2367: WHEN OTHERS THEN
2364: END IF;
2365:
2366: EXCEPTION
2367: WHEN OTHERS THEN
2368: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_Status '||sqlerrm;
2369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2370: RETURN;
2371:
2372: END validate_status;
2378:
2379: BEGIN
2380: IF pg_debug = 'Y'
2381: THEN
2382: debug ('AR_INVOICE_UTILS.validate_finance_charges(+)' );
2383: END IF;
2384:
2385: x_return_status := FND_API.G_RET_STS_SUCCESS;
2386:
2396: AND finance_charges not in ( 'Y','N');
2397:
2398: IF pg_debug = 'Y'
2399: THEN
2400: debug ('AR_INVOICE_UTILS.validate_finance_charges(-)' );
2401: END IF;
2402:
2403: EXCEPTION
2404: WHEN OTHERS THEN
2401: END IF;
2402:
2403: EXCEPTION
2404: WHEN OTHERS THEN
2405: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_finance_charges '
2406: ||sqlerrm;
2407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2408: RETURN;
2409:
2417: BEGIN
2418:
2419: IF pg_debug = 'Y'
2420: THEN
2421: debug ('AR_INVOICE_UTILS.validate_related_cust_trx_id(+)' );
2422: END IF;
2423:
2424: x_return_status := FND_API.G_RET_STS_SUCCESS;
2425:
2463: AND effective_end_date));
2464:
2465: IF pg_debug = 'Y'
2466: THEN
2467: debug ('AR_INVOICE_UTILS.validate_related_cust_trx_id(-)' );
2468: END IF;
2469:
2470: EXCEPTION
2471: WHEN OTHERS THEN
2468: END IF;
2469:
2470: EXCEPTION
2471: WHEN OTHERS THEN
2472: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_related_cust_trx_id '
2473: ||sqlerrm;
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: RETURN;
2476:
2491: l_period_status gl_period_statuses.closing_status%type DEFAULT 'U';
2492: BEGIN
2493: IF pg_debug = 'Y'
2494: THEN
2495: debug ('AR_INVOICE_UTILS.validate_gl_date(+)' );
2496: END IF;
2497:
2498: x_return_status := FND_API.G_RET_STS_SUCCESS;
2499:
2590: END LOOP;
2591:
2592: IF pg_debug = 'Y'
2593: THEN
2594: debug ('AR_INVOICE_UTILS.validate_gl_date(-)' );
2595: END IF;
2596:
2597: EXCEPTION
2598: WHEN OTHERS THEN
2595: END IF;
2596:
2597: EXCEPTION
2598: WHEN OTHERS THEN
2599: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_gl_date '||sqlerrm;
2600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2601: RETURN;
2602: END;
2603:
2606: x_return_status OUT NOCOPY VARCHAR2) IS
2607: BEGIN
2608: IF pg_debug = 'Y'
2609: THEN
2610: debug ('AR_INVOICE_UTILS.validate_agreement_id(+)' );
2611: END IF;
2612:
2613: x_return_status := FND_API.G_RET_STS_SUCCESS;
2614:
2648: and gt.agreement_id = a.agreement_id);
2649:
2650: IF pg_debug = 'Y'
2651: THEN
2652: debug ('AR_INVOICE_UTILS.validate_agreement_id(-)' );
2653: END IF;
2654:
2655: EXCEPTION
2656: WHEN OTHERS THEN
2653: END IF;
2654:
2655: EXCEPTION
2656: WHEN OTHERS THEN
2657: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_agreement_id '||
2658: sqlerrm;
2659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2660: RETURN;
2661:
2672: l_copy_doc_number_flag ra_batch_sources.copy_doc_number_flag%type;
2673: BEGIN
2674: IF pg_debug = 'Y'
2675: THEN
2676: debug ('AR_INVOICE_UTILS.Get_batch_source_details(+)' );
2677: END IF;
2678:
2679: x_return_status := FND_API.G_RET_STS_SUCCESS;
2680:
2729: NULL );
2730:
2731: IF pg_debug = 'Y'
2732: THEN
2733: debug ('AR_INVOICE_UTILS.Get_batch_source_details(-)' );
2734: END IF;
2735:
2736: EXCEPTION
2737: WHEN NO_DATA_FOUND THEN
2743: arp_standard.fnd_message('AR_INAPI_INVALID_BATCH_SOURCE'),
2744: gt.batch_source_id
2745: FROM ar_trx_header_gt gt;
2746: WHEN OTHERS THEN
2747: x_errmsg := 'Error in AR_INVOICE_UTILS.Get_batch_source_details '||sqlerrm;
2748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2749: RETURN;
2750:
2751: END get_batch_source_details;
2772: BEGIN
2773:
2774: IF pg_debug = 'Y'
2775: THEN
2776: debug ('AR_INVOICE_UTILS.Get_trx_type_details(+)' );
2777: END IF;
2778: x_return_status := FND_API.G_RET_STS_SUCCESS;
2779:
2780: FOR cust_trx_type_rec IN cust_trx_type_c
2847: END;
2848: END LOOP;
2849: IF pg_debug = 'Y'
2850: THEN
2851: debug ('AR_INVOICE_UTILS.Get_trx_type_details(-)' );
2852: END IF;
2853:
2854: EXCEPTION
2855:
2854: EXCEPTION
2855:
2856:
2857: WHEN OTHERS THEN
2858: x_errmsg := 'Error in AR_INVOICE_UTILS.Get_trx_type_details '||sqlerrm;
2859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2860: RETURN;
2861:
2862: END get_trx_type_details;
2868:
2869: BEGIN
2870: IF pg_debug = 'Y'
2871: THEN
2872: debug ('AR_INVOICE_UTILS.populate_salesreps(+)' );
2873: END IF;
2874:
2875: x_return_status := FND_API.G_RET_STS_SUCCESS;
2876:
2895: AND SU.PRIMARY_FLAG = 'Y' )
2896: WHERE gt.primary_salesrep_id IS NULL;
2897: IF pg_debug = 'Y'
2898: THEN
2899: debug ('AR_INVOICE_UTILS.populate_salesreps(-)' );
2900: END IF;
2901:
2902: EXCEPTION
2903: WHEN OTHERS THEN
2900: END IF;
2901:
2902: EXCEPTION
2903: WHEN OTHERS THEN
2904: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_salesreps '||sqlerrm;
2905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2906: RETURN;
2907:
2908: END populate_salesreps;
2914:
2915: BEGIN
2916:
2917: IF pg_debug = 'Y' THEN
2918: debug ('AR_INVOICE_UTILS.populate_bill_to_customer_id(+)' );
2919: END IF;
2920:
2921: x_return_status := FND_API.G_RET_STS_SUCCESS;
2922:
2976: AND gt.bill_to_customer_name IS NOT NULL;
2977:
2978:
2979: IF pg_debug = 'Y' THEN
2980: debug ('AR_INVOICE_UTILS.populate_bill_to_customer_id(-)' );
2981: END IF;
2982:
2983: EXCEPTION
2984: WHEN OTHERS THEN
2981: END IF;
2982:
2983: EXCEPTION
2984: WHEN OTHERS THEN
2985: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_customer_id '
2986: ||sqlerrm;
2987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2988: RETURN;
2989:
2996:
2997: BEGIN
2998:
2999: IF pg_debug = 'Y' THEN
3000: debug ('AR_INVOICE_UTILS.populate_bill_to_site_use_id (+)' );
3001: END IF;
3002:
3003: x_return_status := FND_API.G_RET_STS_SUCCESS;
3004:
3033: WHERE cust_account_id = gt.bill_to_customer_id))
3034: WHERE gt.bill_to_site_use_id IS NULL;
3035:
3036: IF pg_debug = 'Y' THEN
3037: debug ('AR_INVOICE_UTILS.populate_bill_to_site_use_id (-)' );
3038: END IF;
3039:
3040: EXCEPTION
3041: WHEN OTHERS THEN
3038: END IF;
3039:
3040: EXCEPTION
3041: WHEN OTHERS THEN
3042: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_site_use_id '
3043: ||sqlerrm;
3044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3045: RETURN;
3046:
3057: WHERE sgt.bill_to_customer_id = sgt.paying_customer_id;
3058:
3059: BEGIN
3060: IF pg_debug = 'Y' THEN
3061: debug ('AR_INVOICE_UTILS.populate_paying_site_use_id(+)' );
3062: END IF;
3063:
3064: -- first populate paying_customer_id if it is null
3065: UPDATE ar_trx_header_gt
3091: WHERE cust_account_id = gt.paying_customer_id))
3092: WHERE gt.paying_site_use_id IS NULL;
3093:
3094: IF pg_debug = 'Y' THEN
3095: debug ('AR_INVOICE_UTILS.populate_paying_site_use_id(-)' );
3096: END IF;
3097: END;
3098:
3099: PROCEDURE populate_bill_to_address_id (
3102:
3103: BEGIN
3104:
3105: IF pg_debug = 'Y' THEN
3106: debug ('AR_INVOICE_UTILS.populate_bill_to_address_id(+)' );
3107: END IF;
3108:
3109: x_return_status := FND_API.G_RET_STS_SUCCESS;
3110:
3148: AND SU.PRIMARY_FLAG = 'Y' )
3149: WHERE gt.bill_to_address_id IS NULL;
3150:
3151: IF pg_debug = 'Y' THEN
3152: debug ('AR_INVOICE_UTILS.populate_bill_to_address_id(-)' );
3153: END IF;
3154:
3155: EXCEPTION
3156: WHEN OTHERS THEN
3153: END IF;
3154:
3155: EXCEPTION
3156: WHEN OTHERS THEN
3157: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_address_id '
3158: ||sqlerrm;
3159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3160: RETURN;
3161:
3190: AND loc.location_id = party_site.location_id;
3191: BEGIN
3192: IF pg_debug = 'Y'
3193: THEN
3194: debug ('AR_INVOICE_UTILS.populate_remit_to_address_id (+)' );
3195: END IF;
3196:
3197: x_return_status := FND_API.G_RET_STS_SUCCESS;
3198: FOR HdrGtRec IN HdrGtc
3260: END LOOP;
3261: END LOOP;
3262: IF pg_debug = 'Y'
3263: THEN
3264: debug ('AR_INVOICE_UTILS.populate_remit_to_address_id (-)' );
3265: END IF;
3266:
3267: EXCEPTION
3268: WHEN OTHERS THEN
3265: END IF;
3266:
3267: EXCEPTION
3268: WHEN OTHERS THEN
3269: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_remit_to_address_id '||sqlerrm;
3270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3271: RETURN;
3272:
3273: END populate_remit_to_address_id;
3285: l_contact_id HZ_CUST_ACCOUNT_ROLES.CUST_ACCOUNT_ROLE_ID%type;
3286: BEGIN
3287: IF pg_debug = 'Y'
3288: THEN
3289: debug ('AR_INVOICE_UTILS.populate_bill_to_contact_id(+)' );
3290: END IF;
3291: x_return_status := FND_API.G_RET_STS_SUCCESS;
3292: -- the cursor is required becoz the select to get the contact id
3293: -- returns more than one row. In case it returns more than one row
3331: END;
3332: END LOOP;
3333: IF pg_debug = 'Y'
3334: THEN
3335: debug ('AR_INVOICE_UTILS.populate_bill_to_contact_id(-)' );
3336: END IF;
3337: EXCEPTION
3338: WHEN OTHERS THEN
3339: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_contact_id '
3335: debug ('AR_INVOICE_UTILS.populate_bill_to_contact_id(-)' );
3336: END IF;
3337: EXCEPTION
3338: WHEN OTHERS THEN
3339: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_bill_to_contact_id '
3340: ||sqlerrm;
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3342: RETURN;
3343:
3350:
3351: BEGIN
3352:
3353: IF pg_debug = 'Y' THEN
3354: debug ('AR_INVOICE_UTILS.populate_ship_to_customer_id(+)' );
3355: END IF;
3356:
3357: x_return_status := FND_API.G_RET_STS_SUCCESS;
3358:
3389: AND gt.ship_to_customer_name IS NOT NULL;
3390:
3391:
3392: IF pg_debug = 'Y' THEN
3393: debug ('AR_INVOICE_UTILS.populate_ship_to_customer_id(-)' );
3394: END IF;
3395:
3396: EXCEPTION
3397: WHEN OTHERS THEN
3394: END IF;
3395:
3396: EXCEPTION
3397: WHEN OTHERS THEN
3398: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_customer_id '
3399: ||sqlerrm;
3400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3401: RETURN;
3402:
3409:
3410: BEGIN
3411:
3412: IF pg_debug = 'Y' THEN
3413: debug ('AR_INVOICE_UTILS.populate_ship_to_address_id(+)' );
3414: END IF;
3415:
3416: x_return_status := FND_API.G_RET_STS_SUCCESS;
3417:
3456: AND su.primary_flag = 'y' )
3457: WHERE gt.ship_to_address_id IS NULL;
3458:
3459: IF pg_debug = 'Y' THEN
3460: debug ('AR_INVOICE_UTILS.populate_ship_to_address_id(-)' );
3461: END IF;
3462:
3463: EXCEPTION
3464: WHEN OTHERS THEN
3461: END IF;
3462:
3463: EXCEPTION
3464: WHEN OTHERS THEN
3465: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_address_id '
3466: ||sqlerrm;
3467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3468: RETURN;
3469:
3482: l_contact_id HZ_CUST_ACCOUNT_ROLES.CUST_ACCOUNT_ROLE_ID%type;
3483: BEGIN
3484: IF pg_debug = 'Y'
3485: THEN
3486: debug ('AR_INVOICE_UTILS.populate_ship_to_contact_id(+)' );
3487: END IF;
3488:
3489: x_return_status := FND_API.G_RET_STS_SUCCESS;
3490:
3529: END;
3530: END LOOP;
3531: IF pg_debug = 'Y'
3532: THEN
3533: debug ('AR_INVOICE_UTILS.populate_ship_to_contact_id(-)' );
3534: END IF;
3535:
3536: EXCEPTION
3537: WHEN OTHERS THEN
3534: END IF;
3535:
3536: EXCEPTION
3537: WHEN OTHERS THEN
3538: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ship_to_contact_id '||sqlerrm;
3539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3540: RETURN;
3541:
3542: END;
3572:
3573: BEGIN
3574: IF pg_debug = 'Y'
3575: THEN
3576: debug ('AR_INVOICE_UTILS.populate_populate_territory (+)' );
3577: END IF;
3578: x_return_status := FND_API.G_RET_STS_SUCCESS;
3579:
3580: /*----------------------------------------------------------------+
3612: END IF;
3613:
3614: IF pg_debug = 'Y'
3615: THEN
3616: debug ('AR_INVOICE_UTILS.populate_populate_territory (-)' );
3617: END IF;
3618: EXCEPTION
3619: WHEN OTHERS THEN
3620: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_territory '||sqlerrm;
3616: debug ('AR_INVOICE_UTILS.populate_populate_territory (-)' );
3617: END IF;
3618: EXCEPTION
3619: WHEN OTHERS THEN
3620: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_territory '||sqlerrm;
3621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3622: RETURN;
3623: END;
3624:
3630:
3631: BEGIN
3632: IF pg_debug = 'Y'
3633: THEN
3634: debug ('AR_INVOICE_UTILS.populate_legal_entity(+)' );
3635: END IF;
3636:
3637: /* single update to default value */
3638: UPDATE ar_trx_header_gt
3644: WHERE legal_entity_id is NULL;
3645:
3646: IF pg_debug = 'Y'
3647: THEN
3648: debug ('AR_INVOICE_UTILS.populate_legal_entity(-)' );
3649: END IF;
3650:
3651: EXCEPTION
3652: WHEN OTHERS THEN
3649: END IF;
3650:
3651: EXCEPTION
3652: WHEN OTHERS THEN
3653: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_legal_entity '||sqlerrm;
3654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3655: RETURN;
3656: END populate_legal_entity;
3657:
3662: BEGIN
3663: -- first get the site use id
3664: IF pg_debug = 'Y'
3665: THEN
3666: debug ('AR_INVOICE_UTILS.populate_customer_attributes (+)' );
3667: END IF;
3668:
3669: IF pg_debug = 'Y'
3670: THEN
3907: END IF;
3908:
3909: IF pg_debug = 'Y'
3910: THEN
3911: debug ('AR_INVOICE_UTILS.populate_customer_attributes (-)' );
3912: END IF;
3913:
3914: EXCEPTION
3915: WHEN OTHERS THEN
3912: END IF;
3913:
3914: EXCEPTION
3915: WHEN OTHERS THEN
3916: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_customer_attributes '||sqlerrm;
3917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3918: RETURN;
3919:
3920: END populate_customer_attributes;
3926:
3927: BEGIN
3928: IF pg_debug = 'Y'
3929: THEN
3930: debug ('AR_INVOICE_UTILS.populate_ref_hdr_attributes (+)' );
3931: END IF;
3932:
3933: x_return_status := FND_API.G_RET_STS_SUCCESS;
3934:
3933: x_return_status := FND_API.G_RET_STS_SUCCESS;
3934:
3935: IF pg_debug = 'Y'
3936: THEN
3937: debug ('AR_INVOICE_UTILS.Get_batch_source_details (+)' );
3938: END IF;
3939: Get_batch_source_details (
3940: x_errmsg => x_errmsg,
3941: x_return_status => x_return_status );
3946: END IF;
3947: -- validate the trx type.
3948: IF pg_debug = 'Y'
3949: THEN
3950: debug ('AR_INVOICE_UTILS.Get_batch_source_details (-)' );
3951: debug ('AR_INVOICE_UTILS.validate_transaction_type (+)' );
3952: END IF;
3953: validate_transaction_type(
3954: x_errmsg => x_errmsg,
3947: -- validate the trx type.
3948: IF pg_debug = 'Y'
3949: THEN
3950: debug ('AR_INVOICE_UTILS.Get_batch_source_details (-)' );
3951: debug ('AR_INVOICE_UTILS.validate_transaction_type (+)' );
3952: END IF;
3953: validate_transaction_type(
3954: x_errmsg => x_errmsg,
3955: x_return_status => x_return_status);
3958: RETURN;
3959: END IF;
3960: IF pg_debug = 'Y'
3961: THEN
3962: debug ('AR_INVOICE_UTILS.validate_transaction_type (-)' );
3963: END IF;
3964: IF pg_debug = 'Y'
3965: THEN
3966: debug ('AR_INVOICE_UTILS.Get_trx_type_details (+)' );
3962: debug ('AR_INVOICE_UTILS.validate_transaction_type (-)' );
3963: END IF;
3964: IF pg_debug = 'Y'
3965: THEN
3966: debug ('AR_INVOICE_UTILS.Get_trx_type_details (+)' );
3967: END IF;
3968: Get_trx_type_details (
3969: x_errmsg => x_errmsg,
3970: x_return_status => x_return_status );
3974: RETURN;
3975: END IF;
3976: IF pg_debug = 'Y'
3977: THEN
3978: debug ('AR_INVOICE_UTILS.Get_trx_type_details (-)' );
3979: debug ('AR_INVOICE_DEFAULT_PVT.Default_gl_date (+)' );
3980: END IF;
3981: AR_INVOICE_DEFAULT_PVT.Default_gl_date;
3982:
3986: END IF;
3987: IF pg_debug = 'Y'
3988: THEN
3989: debug ('AR_INVOICE_DEFAULT_PVT.Default_gl_date (-)' );
3990: debug ('AR_INVOICE_UTILS.populate_customer_attributes (+)' );
3991: END IF;
3992: populate_customer_attributes (
3993: x_errmsg => x_errmsg,
3994: x_return_status => x_return_status );
4000: RETURN;
4001: END IF;
4002: IF pg_debug = 'Y'
4003: THEN
4004: debug ('AR_INVOICE_UTILS.populate_customer_attributes (-)' );
4005: END IF;
4006: IF pg_debug = 'Y'
4007: THEN
4008: debug ('AR_INVOICE_UTILS.populate_ref_hdr_attributes (-)' );
4004: debug ('AR_INVOICE_UTILS.populate_customer_attributes (-)' );
4005: END IF;
4006: IF pg_debug = 'Y'
4007: THEN
4008: debug ('AR_INVOICE_UTILS.populate_ref_hdr_attributes (-)' );
4009: END IF;
4010:
4011: EXCEPTION
4012: WHEN OTHERS THEN
4009: END IF;
4010:
4011: EXCEPTION
4012: WHEN OTHERS THEN
4013: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_ref_hdr_attributes '||sqlerrm;
4014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4015: RETURN;
4016:
4017: END populate_ref_hdr_attributes;
4025: l_so_org_id NUMBER;
4026: BEGIN
4027: IF pg_debug = 'Y'
4028: THEN
4029: debug ('AR_INVOICE_UTILS.validate_UOM_CODE (+)' );
4030: END IF;
4031:
4032: x_return_status := FND_API.G_RET_STS_SUCCESS;
4033:
4091: and gt.uom_code = uom.uom_code);
4092:
4093: IF pg_debug = 'Y'
4094: THEN
4095: debug ('AR_INVOICE_UTILS.validate_UOM_CODE (-)' );
4096: END IF;
4097: EXCEPTION
4098: WHEN OTHERS THEN
4099: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_UOM_CODE '||sqlerrm;
4095: debug ('AR_INVOICE_UTILS.validate_UOM_CODE (-)' );
4096: END IF;
4097: EXCEPTION
4098: WHEN OTHERS THEN
4099: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_UOM_CODE '||sqlerrm;
4100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4101: RETURN;
4102:
4103: END validate_uom_code;
4109:
4110: BEGIN
4111: IF pg_debug = 'Y'
4112: THEN
4113: debug ('AR_INVOICE_UTILS.validate_tax_code (+)' );
4114: END IF;
4115: x_return_status := FND_API.G_RET_STS_SUCCESS;
4116:
4117: /* With etax, they are now responsible for insuring that
4124: validations here. */
4125:
4126: IF pg_debug = 'Y'
4127: THEN
4128: debug ('AR_INVOICE_UTILS.validate_tax_code (-)' );
4129: END IF;
4130:
4131: EXCEPTION
4132: WHEN OTHERS THEN
4129: END IF;
4130:
4131: EXCEPTION
4132: WHEN OTHERS THEN
4133: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_code '||sqlerrm;
4134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4135: RETURN;
4136:
4137: END validate_tax_code;
4142: BEGIN
4143:
4144: IF pg_debug = 'Y'
4145: THEN
4146: debug ('AR_INVOICE_UTILS.validate_tax_lines (+)' );
4147: END IF;
4148:
4149: x_return_status := FND_API.G_RET_STS_SUCCESS;
4150:
4199: gt.tax_jurisdiction_code IS NULL;
4200:
4201: IF pg_debug = 'Y'
4202: THEN
4203: debug ('AR_INVOICE_UTILS.validate_tax_lines (-)' );
4204: END IF;
4205:
4206: EXCEPTION
4207: WHEN OTHERS THEN
4204: END IF;
4205:
4206: EXCEPTION
4207: WHEN OTHERS THEN
4208: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_freight_lines '||sqlerrm;
4209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4210: RETURN;
4211: END;
4212:
4223:
4224: -- tax handling
4225: IF pg_debug = 'Y'
4226: THEN
4227: debug ('AR_INVOICE_UTILS.validate_tax_exemption (+)' );
4228: END IF;
4229:
4230: x_return_status := FND_API.G_RET_STS_SUCCESS;
4231: BEGIN
4302: AND lookup_code = TAX_EXEMPT_REASON_CODE );
4303:
4304: IF pg_debug = 'Y'
4305: THEN
4306: debug ('AR_INVOICE_UTILS.validate_tax_exemption (-)' );
4307: END IF;
4308: EXCEPTION
4309: WHEN OTHERS THEN
4310: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_exemption '
4306: debug ('AR_INVOICE_UTILS.validate_tax_exemption (-)' );
4307: END IF;
4308: EXCEPTION
4309: WHEN OTHERS THEN
4310: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_tax_exemption '
4311: ||sqlerrm;
4312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4313: RETURN;
4314:
4321: l_trx_date Date := sysdate; --:= g_trx_date;
4322: BEGIN
4323: IF pg_debug = 'Y'
4324: THEN
4325: debug ('AR_INVOICE_UTILS.validate_more_tab (+)' );
4326: END IF;
4327:
4328: x_return_status := FND_API.G_RET_STS_SUCCESS;
4329:
4362: and sysdate -- g_trx_date
4363: between start_date_active and nvl(end_date_active, sysdate));
4364: IF pg_debug = 'Y'
4365: THEN
4366: debug ('AR_INVOICE_UTILS.validate_more_tab (-)' );
4367: END IF;
4368:
4369: EXCEPTION
4370: WHEN OTHERS THEN
4367: END IF;
4368:
4369: EXCEPTION
4370: WHEN OTHERS THEN
4371: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_more_tab '||sqlerrm;
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4373: RETURN;
4374:
4375: END validate_more_tab;
4381:
4382: BEGIN
4383:
4384: IF pg_debug = 'Y' THEN
4385: debug ('AR_INVOICE_UTILS.validate_line_description (+)' );
4386: END IF;
4387:
4388: x_return_status := FND_API.G_RET_STS_SUCCESS;
4389:
4434: AND description is NULL;
4435:
4436: IF pg_debug = 'Y'
4437: THEN
4438: debug ('AR_INVOICE_UTILS.validate_line_description (-)' );
4439: END IF;
4440:
4441: EXCEPTION
4442: WHEN OTHERS THEN
4439: END IF;
4440:
4441: EXCEPTION
4442: WHEN OTHERS THEN
4443: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_line_description '||
4444: sqlerrm;
4445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4446: RETURN;
4447:
4453: x_return_status OUT NOCOPY VARCHAR2) IS
4454: BEGIN
4455: IF pg_debug = 'Y'
4456: THEN
4457: debug ('AR_INVOICE_UTILS.validate_quantity_invoiced (+)' );
4458: END IF;
4459:
4460: x_return_status := FND_API.G_RET_STS_SUCCESS;
4461:
4471: AND gt2.trx_class <> 'CM' -- added for ER 5869149
4472: AND gt.line_type = 'LINE';
4473: IF pg_debug = 'Y'
4474: THEN
4475: debug ('AR_INVOICE_UTILS.validate_quantity_invoiced (-)' );
4476: END IF;
4477:
4478: EXCEPTION
4479: WHEN OTHERS THEN
4476: END IF;
4477:
4478: EXCEPTION
4479: WHEN OTHERS THEN
4480: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_quantity_invoiced '||sqlerrm;
4481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4482: RETURN;
4483:
4484: END;
4488: x_return_status OUT NOCOPY VARCHAR2) IS
4489: BEGIN
4490: IF pg_debug = 'Y'
4491: THEN
4492: debug ('AR_INVOICE_UTILS.validate_unit_selling_price (+)' );
4493: END IF;
4494:
4495: x_return_status := FND_API.G_RET_STS_SUCCESS;
4496:
4506: AND gt2.trx_class <> 'CM' -- Added for ER 5869149
4507: AND gt.line_type = 'LINE';
4508: IF pg_debug = 'Y'
4509: THEN
4510: debug ('AR_INVOICE_UTILS.validate_unit_selling_price (-)' );
4511: END IF;
4512: EXCEPTION
4513: WHEN OTHERS THEN
4514: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_unit_selling_price '||sqlerrm;
4510: debug ('AR_INVOICE_UTILS.validate_unit_selling_price (-)' );
4511: END IF;
4512: EXCEPTION
4513: WHEN OTHERS THEN
4514: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_unit_selling_price '||sqlerrm;
4515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4516: RETURN;
4517: END;
4518:
4521: x_return_status OUT NOCOPY VARCHAR2) IS
4522: BEGIN
4523: IF pg_debug = 'Y'
4524: THEN
4525: debug ('AR_INVOICE_UTILS.validate_line_type (+)' );
4526: END IF;
4527: x_return_status := FND_API.G_RET_STS_SUCCESS;
4528:
4529: INSERT INTO ar_trx_errors_gt
4536: FROM ar_trx_lines_gt gt
4537: WHERE gt.line_type not in ('LINE', 'TAX', 'FREIGHT');
4538: IF pg_debug = 'Y'
4539: THEN
4540: debug ('AR_INVOICE_UTILS.validate_line_type (-)' );
4541: END IF;
4542:
4543: EXCEPTION
4544: WHEN OTHERS THEN
4541: END IF;
4542:
4543: EXCEPTION
4544: WHEN OTHERS THEN
4545: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_line_type '||sqlerrm;
4546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4547: RETURN;
4548: END;
4549:
4553:
4554: BEGIN
4555: IF pg_debug = 'Y'
4556: THEN
4557: debug ('AR_INVOICE_UTILS.check_dup_line_number (+)' );
4558: END IF;
4559: x_return_status := FND_API.G_RET_STS_SUCCESS;
4560: -- first check if line number is null or not
4561: INSERT INTO ar_trx_errors_gt
4576: WHERE gt.line_number IS NOT NULL
4577: AND ; */
4578: IF pg_debug = 'Y'
4579: THEN
4580: debug ('AR_INVOICE_UTILS.check_dup_line_number (-)' );
4581: END IF;
4582:
4583: EXCEPTION
4584: WHEN OTHERS THEN
4581: END IF;
4582:
4583: EXCEPTION
4584: WHEN OTHERS THEN
4585: x_errmsg := 'Error in AR_INVOICE_UTILS.check_dup_line_number '||sqlerrm;
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4587: RETURN;
4588: END;
4589:
4604:
4605: BEGIN
4606: IF pg_debug = 'Y'
4607: THEN
4608: debug ('AR_INVOICE_UTILS.validate_line_integrity (+)' );
4609: END IF;
4610:
4611: x_return_status := FND_API.G_RET_STS_SUCCESS;
4612:
4703: END IF;
4704: END LOOP;
4705: IF pg_debug = 'Y'
4706: THEN
4707: debug ('AR_INVOICE_UTILS.validate_line_integrity (-)' );
4708: END IF;
4709:
4710: EXCEPTION
4711: WHEN OTHERS THEN
4708: END IF;
4709:
4710: EXCEPTION
4711: WHEN OTHERS THEN
4712: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_line_integrity '||sqlerrm;
4713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4714: RETURN;
4715: END;
4716:
4720: BEGIN
4721: -- validate ship via
4722: IF pg_debug = 'Y'
4723: THEN
4724: debug ('AR_INVOICE_UTILS.validate_freight (+)' );
4725: END IF;
4726: x_return_status := FND_API.G_RET_STS_SUCCESS;
4727:
4728: INSERT INTO ar_trx_errors_gt
4773: AND gt.extended_amount IS NULL;
4774:
4775: IF pg_debug = 'Y'
4776: THEN
4777: debug ('AR_INVOICE_UTILS.validate_freight (-)' );
4778: END IF;
4779: EXCEPTION
4780: WHEN OTHERS THEN
4781: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_freight '||sqlerrm;
4777: debug ('AR_INVOICE_UTILS.validate_freight (-)' );
4778: END IF;
4779: EXCEPTION
4780: WHEN OTHERS THEN
4781: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_freight '||sqlerrm;
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: RETURN;
4784: END;
4785:
4812:
4813: BEGIN
4814: IF pg_debug = 'Y'
4815: THEN
4816: debug ('AR_INVOICE_UTILS.populate_extended_amount (+)' );
4817: END IF;
4818:
4819: x_return_status := FND_API.G_RET_STS_SUCCESS;
4820:
4890: END LOOP;
4891:
4892: IF pg_debug = 'Y'
4893: THEN
4894: debug ('AR_INVOICE_UTILS.populate_extended_amount (-)' );
4895: END IF;
4896:
4897: EXCEPTION
4898: WHEN OTHERS THEN
4895: END IF;
4896:
4897: EXCEPTION
4898: WHEN OTHERS THEN
4899: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_extended_amount '||sqlerrm;
4900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4901: RETURN;
4902: END;
4903:
4908:
4909: BEGIN
4910: IF pg_debug = 'Y'
4911: THEN
4912: debug ('AR_INVOICE_UTILS.validate_doc_sequence (+)' );
4913: END IF;
4914: x_return_status := FND_API.G_RET_STS_SUCCESS;
4915:
4916: INSERT INTO ar_trx_errors_gt
4942:
4943:
4944: IF pg_debug = 'Y'
4945: THEN
4946: debug ('AR_INVOICE_UTILS.validate_doc_sequence (-)' );
4947: END IF;
4948:
4949: EXCEPTION
4950: WHEN OTHERS THEN
4947: END IF;
4948:
4949: EXCEPTION
4950: WHEN OTHERS THEN
4951: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_doc_sequence '||sqlerrm;
4952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4953: RETURN;
4954: END;
4955:
4991: l_seq_num_profile fnd_profile_option_values.profile_option_value%type;
4992: BEGIN
4993: IF pg_debug = 'Y'
4994: THEN
4995: debug ('AR_INVOICE_UTILS.populate_doc_sequence (+)' );
4996: END IF;
4997: x_return_status := FND_API.G_RET_STS_SUCCESS;
4998:
4999: l_seq_num_profile := NVL(p_trx_profile_rec.ar_unique_seq_numbers, 'N');
5129: RETURN;
5130: END IF;
5131: IF pg_debug = 'Y'
5132: THEN
5133: debug ('AR_INVOICE_UTILS.populate_doc_sequence (-)' );
5134: END IF;
5135: EXCEPTION
5136: WHEN OTHERS THEN
5137: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_doc_sequence '||sqlerrm ;
5133: debug ('AR_INVOICE_UTILS.populate_doc_sequence (-)' );
5134: END IF;
5135: EXCEPTION
5136: WHEN OTHERS THEN
5137: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_doc_sequence '||sqlerrm ;
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: RETURN;
5140:
5141: END;
5280: END LOOP;
5281:
5282: EXCEPTION
5283: WHEN OTHERS THEN
5284: x_errmsg := 'Error in AR_INVOICE_UTILS.copy_pmt_extension '||sqlerrm ;
5285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5286: RETURN;
5287:
5288: END;
5303:
5304: BEGIN
5305: IF pg_debug = 'Y'
5306: THEN
5307: debug ('AR_INVOICE_UTILS.validate_item_kflex (+)' );
5308: END IF;
5309:
5310: x_return_status := FND_API.G_RET_STS_SUCCESS;
5311: oe_profile.get('SO_ID_FLEX_CODE', l_so_id_flex_code);
5367: END LOOP;
5368:
5369: IF pg_debug = 'Y'
5370: THEN
5371: debug ('AR_INVOICE_UTILS.validate_item_kflex (-)' );
5372: END IF;
5373: EXCEPTION
5374: WHEN OTHERS THEN
5375: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_item_kflex '||sqlerrm ;
5371: debug ('AR_INVOICE_UTILS.validate_item_kflex (-)' );
5372: END IF;
5373: EXCEPTION
5374: WHEN OTHERS THEN
5375: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_item_kflex '||sqlerrm ;
5376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5377: RETURN;
5378: END;
5379:
5388:
5389: BEGIN
5390: IF pg_debug = 'Y'
5391: THEN
5392: debug ('AR_INVOICE_UTILS.validate_territory_id (+)' );
5393: END IF;
5394: x_return_status := FND_API.G_RET_STS_SUCCESS;
5395:
5396: FOR cTerritoryRec IN cTerritory
5413: END IF;
5414: END LOOP;
5415: IF pg_debug = 'Y'
5416: THEN
5417: debug ('AR_INVOICE_UTILS.validate_territory_id (-)' );
5418: END IF;
5419: EXCEPTION
5420: WHEN OTHERS THEN
5421: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_territory_id '||sqlerrm ;
5417: debug ('AR_INVOICE_UTILS.validate_territory_id (-)' );
5418: END IF;
5419: EXCEPTION
5420: WHEN OTHERS THEN
5421: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_territory_id '||sqlerrm ;
5422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5423: RETURN;
5424: END;
5425:
5428: x_return_status OUT NOCOPY VARCHAR2) IS
5429: BEGIN
5430: IF pg_debug = 'Y'
5431: THEN
5432: debug ('AR_INVOICE_UTILS.validate_warehouse_id (+)' );
5433: END IF;
5434:
5435: x_return_status := FND_API.G_RET_STS_SUCCESS;
5436:
5465:
5466:
5467: IF pg_debug = 'Y'
5468: THEN
5469: debug ('AR_INVOICE_UTILS.validate_warehouse_id (-)' );
5470: END IF;
5471: EXCEPTION
5472: WHEN OTHERS THEN
5473: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_warehouse_id '||sqlerrm ;
5469: debug ('AR_INVOICE_UTILS.validate_warehouse_id (-)' );
5470: END IF;
5471: EXCEPTION
5472: WHEN OTHERS THEN
5473: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_warehouse_id '||sqlerrm ;
5474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5475: RETURN;
5476: END;
5477:
5499: BEGIN
5500: -- validate the rule ID
5501: IF pg_debug = 'Y'
5502: THEN
5503: debug ('AR_INVOICE_UTILS.validate_accounting_rules (+)' );
5504: END IF;
5505:
5506: x_return_status := FND_API.G_RET_STS_SUCCESS;
5507:
5750:
5751: END LOOP;
5752: IF pg_debug = 'Y'
5753: THEN
5754: debug ('AR_INVOICE_UTILS.validate_accounting_rules (-)' );
5755: END IF;
5756:
5757: EXCEPTION
5758: WHEN OTHERS THEN
5755: END IF;
5756:
5757: EXCEPTION
5758: WHEN OTHERS THEN
5759: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_accounting_rules '||sqlerrm;
5760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5761: RETURN;
5762: END;
5763:
5767:
5768: BEGIN
5769:
5770: IF pg_debug = 'Y' THEN
5771: debug ('ar_invoice_utils.validate_line_ussgl_code(+)' );
5772: END IF;
5773:
5774: x_return_status := FND_API.G_RET_STS_SUCCESS;
5775:
5793: BETWEEN NVL(gutc.start_date_active, gt.trx_date)
5794: AND NVL(gutc.end_date_active, gt.trx_date));
5795:
5796: IF pg_debug = 'Y' THEN
5797: debug ('ar_invoice_utils.validate_line_ussgl_code(-)' );
5798: END IF;
5799:
5800: EXCEPTION
5801: WHEN OTHERS THEN
5798: END IF;
5799:
5800: EXCEPTION
5801: WHEN OTHERS THEN
5802: x_errmsg := 'error in ar_invoice_utils.validate_line_ussgl_code '|| sqlerrm;
5803: x_return_status := fnd_api.g_ret_sts_unexp_error;
5804: RETURN;
5805:
5806: END validate_line_ussgl_code;
5812:
5813: BEGIN
5814: IF pg_debug = 'Y'
5815: THEN
5816: debug ('AR_INVOICE_UTILS.populate_line_attributes (+)' );
5817: END IF;
5818: x_return_status := FND_API.G_RET_STS_SUCCESS;
5819:
5820: -- check if memo line is passed and any unit of measue and unit price.
5847: END IF;
5848:
5849: IF pg_debug = 'Y'
5850: THEN
5851: debug ('AR_INVOICE_UTILS.populate_line_attributes (-)' );
5852: END IF;
5853:
5854: EXCEPTION
5855: WHEN OTHERS THEN
5852: END IF;
5853:
5854: EXCEPTION
5855: WHEN OTHERS THEN
5856: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_line_attributes '||sqlerrm;
5857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5858: RETURN;
5859: END;
5860:
5886:
5887: BEGIN
5888: IF pg_debug = 'Y'
5889: THEN
5890: debug ('AR_INVOICE_UTILS.populate_exchange_rate (+)' );
5891: END IF;
5892: x_return_status := FND_API.G_RET_STS_SUCCESS;
5893:
5894: FOR cExchangeRateRec IN cExchangeRate
5981: AND gt.trx_currency <> p_trx_system_parameters_rec.base_currency_code;
5982:
5983: IF pg_debug = 'Y'
5984: THEN
5985: debug ('AR_INVOICE_UTILS.populate_exchange_rate (-)' );
5986: END IF;
5987:
5988: EXCEPTION
5989: WHEN OTHERS
5987:
5988: EXCEPTION
5989: WHEN OTHERS
5990: THEN
5991: x_errmsg := 'Error in AR_INVOICE_UTILS.populate_exchange_rate '||sqlerrm;
5992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5993: RETURN;
5994:
5995: END;
6055: BEGIN
6056:
6057: IF pg_debug = 'Y'
6058: THEN
6059: debug ('AR_INVOICE_UTILS.validate_header (+)' );
6060: END IF;
6061:
6062: x_return_status := FND_API.G_RET_STS_SUCCESS;
6063:
6513: END IF;
6514:
6515: IF pg_debug = 'Y'
6516: THEN
6517: debug ('AR_INVOICE_UTILS.validate_desc_flex for header (+)' );
6518: END IF;
6519:
6520: ar_invoice_validate_flex.validate_desc_flex (
6521: p_validation_type => 'HEADER',
6522: x_errmsg => x_errmsg,
6523: x_return_status => x_return_status);
6524: IF pg_debug = 'Y'
6525: THEN
6526: debug ('AR_INVOICE_UTILS.validate_desc_flex for header (-)' );
6527: debug ('AR_INVOICE_UTILS.validate_header (-)' );
6528: END IF;
6529:
6530: /*4369585-4589309*/
6523: x_return_status => x_return_status);
6524: IF pg_debug = 'Y'
6525: THEN
6526: debug ('AR_INVOICE_UTILS.validate_desc_flex for header (-)' );
6527: debug ('AR_INVOICE_UTILS.validate_header (-)' );
6528: END IF;
6529:
6530: /*4369585-4589309*/
6531: populate_printing_pending(
6545:
6546: BEGIN
6547: IF pg_debug = 'Y'
6548: THEN
6549: debug ('AR_INVOICE_UTILS.validate_lines (+)' );
6550: END IF;
6551:
6552: x_return_status := FND_API.G_RET_STS_SUCCESS;
6553:
6687: END IF;
6688:
6689: IF pg_debug = 'Y'
6690: THEN
6691: debug ('AR_INVOICE_UTILS.validate_desc_flex for lines (+)' );
6692: END IF;
6693:
6694: ar_invoice_validate_flex.validate_desc_flex (
6695: p_validation_type => 'LINES',
6696: x_errmsg => x_errmsg,
6697: x_return_status => x_return_status);
6698: IF pg_debug = 'Y'
6699: THEN
6700: debug ('AR_INVOICE_UTILS.validate_desc_flex for lines (-)' );
6701: debug ('AR_INVOICE_UTILS.validate_lines (-)' );
6702: END IF;
6703:
6704: END validate_lines;
6697: x_return_status => x_return_status);
6698: IF pg_debug = 'Y'
6699: THEN
6700: debug ('AR_INVOICE_UTILS.validate_desc_flex for lines (-)' );
6701: debug ('AR_INVOICE_UTILS.validate_lines (-)' );
6702: END IF;
6703:
6704: END validate_lines;
6705:
6714: BEGIN
6715: -- first validate the ccid, if user has passed any ccid
6716: IF pg_debug = 'Y'
6717: THEN
6718: debug ('AR_INVOICE_UTILS.validate_accounting_flex (+)' );
6719: END IF;
6720: x_return_status := FND_API.G_RET_STS_SUCCESS;
6721: FOR CccidRec IN Cccid
6722: LOOP
6741: END IF;
6742: END LOOP;
6743: IF pg_debug = 'Y'
6744: THEN
6745: debug ('AR_INVOICE_UTILS.validate_accounting_flex (-)' );
6746: END IF;
6747:
6748: EXCEPTION
6749: WHEN OTHERS THEN
6746: END IF;
6747:
6748: EXCEPTION
6749: WHEN OTHERS THEN
6750: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_accounting_flex '||sqlerrm;
6751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6752: RETURN;
6753: END;
6754:
6762:
6763: BEGIN
6764: IF pg_debug = 'Y'
6765: THEN
6766: debug ('AR_INVOICE_UTILS.validate_distributions (+)' );
6767: debug ('Percentage Is null for Account Class: REC (+)' );
6768: END IF;
6769:
6770: x_return_status := FND_API.G_RET_STS_SUCCESS;
7215: x_return_status => x_return_status);
7216:
7217: IF pg_debug = 'Y'
7218: THEN
7219: debug ('AR_INVOICE_UTILS.validate_desc_flex for distributions(-)' );
7220: END IF;
7221:
7222: IF pg_debug = 'Y'
7223: THEN
7220: END IF;
7221:
7222: IF pg_debug = 'Y'
7223: THEN
7224: debug ('AR_INVOICE_UTILS.validate_distributions (-)' );
7225: END IF;
7226:
7227: /*4673387*/
7228: UPDATE ar_trx_dist_gt
7234: AND ctt.post_to_gl = 'N');
7235:
7236: EXCEPTION
7237: WHEN OTHERS THEN
7238: x_errmsg := 'Error in AR_INVOICE_UTILS.validate_distributions '||sqlerrm;
7239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7240: RETURN;
7241: END validate_distributions;
7242:
7289:
7290: BEGIN
7291: IF pg_debug = 'Y'
7292: THEN
7293: debug ('AR_INVOICE_UTILS.validate_salescredits (+)' );
7294: END IF;
7295:
7296: x_return_status := FND_API.G_RET_STS_SUCCESS;
7297:
7705: END IF;
7706:
7707: IF pg_debug = 'Y'
7708: THEN
7709: debug ('AR_INVOICE_UTILS.validate_salescredits (-)' );
7710: END IF;
7711:
7712: -- validate desc flex
7713: ar_invoice_validate_flex.validate_desc_flex (
7716: x_return_status => x_return_status);
7717:
7718: IF pg_debug = 'Y'
7719: THEN
7720: debug ('AR_INVOICE_UTILS.validate_desc_flex in Salesereps(-)' );
7721: END IF;
7722:
7723: EXCEPTION
7724: WHEN OTHERS THEN
7721: END IF;
7722:
7723: EXCEPTION
7724: WHEN OTHERS THEN
7725: x_errmsg := 'AR_INVOICE_UTILS.validate_salescredits '||sqlerrm;
7726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7727: RETURN;
7728:
7729: END validate_salescredits;
7727: RETURN;
7728:
7729: END validate_salescredits;
7730:
7731: END AR_INVOICE_UTILS;