149:
150:
151: BEGIN
152: IF PG_DEBUG in ('Y', 'C') THEN
153: arp_util.debug('Init_Context_Rec()+' , G_MSG_HIGH);
154: END IF;
155:
156:
157: /*---------------------------+
177:
178: p_return_status := FND_API.G_RET_STS_SUCCESS;
179:
180: IF PG_DEBUG in ('Y', 'C') THEN
181: arp_util.debug('Init_Context_Rec()-' , G_MSG_HIGH);
182: END IF;
183:
184: EXCEPTION
185: WHEN OTHERS THEN
183:
184: EXCEPTION
185: WHEN OTHERS THEN
186: IF PG_DEBUG in ('Y', 'C') THEN
187: arp_util.debug('EXCEPTION: Init_Context_Rec() ', G_MSG_UERROR);
188: END IF;
189:
190: FND_MSG_PUB.Add_Exc_Msg (
191: G_PKG_NAME,
243:
244: BEGIN
245:
246: IF PG_DEBUG in ('Y', 'C') THEN
247: arp_util.debug('Cache_Gl_Periods()+' , G_MSG_HIGH);
248: END IF;
249:
250: p_return_status := FND_API.G_RET_STS_SUCCESS;
251:
255: FROM ar_system_parameters ;
256: EXCEPTION
257: WHEN NO_DATA_FOUND THEN
258: IF PG_DEBUG in ('Y', 'C') THEN
259: arp_util.debug('Cache_Gl_Periods: ' || 'No Open/Future Enterable GL periods exist',G_MSG_HIGH);
260: END IF;
261: /*-----------------------------------------------+
262: | Set the message |
263: +-----------------------------------------------*/
268: p_return_status := FND_API.G_RET_STS_ERROR;
269:
270: WHEN OTHERS THEN
271: IF PG_DEBUG in ('Y', 'C') THEN
272: arp_util.debug('EXCEPTION: Cache_Gl_Periods()', G_MSG_UERROR);
273: END IF;
274: /*-----------------------------------------------+
275: | Set unexpected error message and status |
276: +-----------------------------------------------*/
288: G_GLPERIOD_TBL(l_index) := l_temp_rec;
289: END LOOP;
290:
291: IF PG_DEBUG in ('Y', 'C') THEN
292: arp_util.debug ('Cache_Gl_Periods: ' || 'G_GLPERIOD_TBL count = '|| to_char(g_glperiod_tbl.count), G_MSG_HIGH);
293: arp_util.debug ('Cache_Gl_Periods()-' , G_MSG_HIGH);
294: END IF;
295:
296: RETURN;
289: END LOOP;
290:
291: IF PG_DEBUG in ('Y', 'C') THEN
292: arp_util.debug ('Cache_Gl_Periods: ' || 'G_GLPERIOD_TBL count = '|| to_char(g_glperiod_tbl.count), G_MSG_HIGH);
293: arp_util.debug ('Cache_Gl_Periods()-' , G_MSG_HIGH);
294: END IF;
295:
296: RETURN;
297:
297:
298: EXCEPTION
299: WHEN NO_DATA_FOUND THEN
300: IF PG_DEBUG in ('Y', 'C') THEN
301: arp_util.debug('Cache_Gl_Periods: ' || 'No Open/Future Enterable GL periods exist',G_MSG_HIGH);
302: END IF;
303: /*-----------------------------------------------+
304: | Set the message |
305: +-----------------------------------------------*/
309:
310: p_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN OTHERS THEN
312: IF PG_DEBUG in ('Y', 'C') THEN
313: arp_util.debug('EXCEPTION: Cache_Gl_Periods()', G_MSG_UERROR);
314: END IF;
315: /*-----------------------------------------------+
316: | Set unexpected error message and status |
317: +-----------------------------------------------*/
353:
354: BEGIN
355:
356: IF PG_DEBUG in ('Y', 'C') THEN
357: arp_util.debug('Cache_Approval_Type()+' , G_MSG_HIGH);
358: END IF;
359:
360: p_return_status := FND_API.G_RET_STS_SUCCESS;
361:
364: G_APPROVAL_TBL(l_index) := l_temp_rec;
365: END LOOP;
366:
367: IF PG_DEBUG in ('Y', 'C') THEN
368: arp_util.debug ('Cache_Approval_Type: ' || 'G_APPROVAL_TBL count = '|| to_char(G_APPROVAL_TBL.count), G_MSG_HIGH);
369: arp_util.debug ('Cache_Approval_Type()-' , G_MSG_HIGH);
370: END IF;
371:
372: RETURN;
365: END LOOP;
366:
367: IF PG_DEBUG in ('Y', 'C') THEN
368: arp_util.debug ('Cache_Approval_Type: ' || 'G_APPROVAL_TBL count = '|| to_char(G_APPROVAL_TBL.count), G_MSG_HIGH);
369: arp_util.debug ('Cache_Approval_Type()-' , G_MSG_HIGH);
370: END IF;
371:
372: RETURN;
373:
373:
374: EXCEPTION
375: WHEN NO_DATA_FOUND THEN
376: IF PG_DEBUG in ('Y', 'C') THEN
377: arp_util.debug('Cache_Approval_Type: ' || 'No Approval Codes exist ', G_MSG_HIGH);
378: END IF;
379: /*-----------------------------------------------+
380: | Set the message |
381: +-----------------------------------------------*/
386: p_return_status := FND_API.G_RET_STS_ERROR ;
387:
388: WHEN OTHERS THEN
389: IF PG_DEBUG in ('Y', 'C') THEN
390: arp_util.debug('EXCEPTION: Cache_Approval_Type()', G_MSG_UERROR);
391: END IF;
392: /*-----------------------------------------------+
393: | Set unexpected error message and status |
394: +-----------------------------------------------*/
429:
430: BEGIN
431:
432: IF PG_DEBUG in ('Y', 'C') THEN
433: arp_util.debug('Cache_Adjustment_Type()+' , G_MSG_HIGH);
434: END IF;
435:
436: p_return_status := FND_API.G_RET_STS_SUCCESS;
437:
440: G_ADJTYPE_TBL(l_index) := l_temp_rec;
441: END LOOP;
442:
443: IF PG_DEBUG in ('Y', 'C') THEN
444: arp_util.debug ('Cache_Adjustment_Type: ' || 'G_ADJTYPE_TBL count = '|| to_char(G_ADJTYPE_TBL.count), G_MSG_HIGH);
445: arp_util.debug ('Cache_Adjustment_Type()-' , G_MSG_HIGH);
446: END IF;
447:
448: RETURN;
441: END LOOP;
442:
443: IF PG_DEBUG in ('Y', 'C') THEN
444: arp_util.debug ('Cache_Adjustment_Type: ' || 'G_ADJTYPE_TBL count = '|| to_char(G_ADJTYPE_TBL.count), G_MSG_HIGH);
445: arp_util.debug ('Cache_Adjustment_Type()-' , G_MSG_HIGH);
446: END IF;
447:
448: RETURN;
449:
449:
450: EXCEPTION
451: WHEN NO_DATA_FOUND THEN
452: IF PG_DEBUG in ('Y', 'C') THEN
453: arp_util.debug('Cache_Adjustment_Type: ' || 'No Adjustment Type codes', G_MSG_HIGH);
454: END IF;
455: /*-----------------------------------------------+
456: | Set the message |
457: +-----------------------------------------------*/
461: p_return_status := FND_API.G_RET_STS_ERROR ;
462:
463: WHEN OTHERS THEN
464: IF PG_DEBUG in ('Y', 'C') THEN
465: arp_util.debug('EXCEPTION: Cache_Adjustment_Type()', G_MSG_UERROR);
466: END IF;
467: /*-----------------------------------------------+
468: | Set unexpected error message and status |
469: +-----------------------------------------------*/
504:
505: BEGIN
506:
507: IF PG_DEBUG in ('Y', 'C') THEN
508: arp_util.debug('Cache_Adjustment_Reason()+' , G_MSG_HIGH);
509: END IF;
510:
511: p_return_status := FND_API.G_RET_STS_SUCCESS;
512:
515: G_REASON_TBL(l_index) := l_temp_rec;
516: END LOOP;
517:
518: IF PG_DEBUG in ('Y', 'C') THEN
519: arp_util.debug ('Cache_Adjustment_Reason: ' || 'G_REASON_TBL count = '|| to_char(G_REASON_TBL.count), G_MSG_HIGH);
520: arp_util.debug ('Cache_Adjustment_Reason()-' , G_MSG_HIGH);
521: END IF;
522:
523: RETURN;
516: END LOOP;
517:
518: IF PG_DEBUG in ('Y', 'C') THEN
519: arp_util.debug ('Cache_Adjustment_Reason: ' || 'G_REASON_TBL count = '|| to_char(G_REASON_TBL.count), G_MSG_HIGH);
520: arp_util.debug ('Cache_Adjustment_Reason()-' , G_MSG_HIGH);
521: END IF;
522:
523: RETURN;
524:
524:
525: EXCEPTION
526: WHEN NO_DATA_FOUND THEN
527: IF PG_DEBUG in ('Y', 'C') THEN
528: arp_util.debug('Cache_Adjustment_Reason: ' || 'No Adjustment Reason codes', G_MSG_HIGH);
529: END IF;
530: /*-----------------------------------------------+
531: | Set the message |
532: +-----------------------------------------------*/
536: p_return_status := FND_API.G_RET_STS_ERROR ;
537:
538: WHEN OTHERS THEN
539: IF PG_DEBUG in ('Y', 'C') THEN
540: arp_util.debug('EXCEPTION: Cache_Adjustment_Reason()', G_MSG_UERROR);
541: END IF;
542: /*-----------------------------------------------+
543: | Set unexpected error message and status |
544: +-----------------------------------------------*/
602:
603: BEGIN
604:
605: IF PG_DEBUG in ('Y', 'C') THEN
606: arp_util.debug('Cache_Receivables_Trx()+' , G_MSG_HIGH);
607: END IF;
608:
609: p_return_status := FND_API.G_RET_STS_SUCCESS;
610:
613: G_RCVTRX_TBL(l_index) := l_temp_rec;
614: END LOOP;
615:
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_util.debug ('Cache_Receivables_Trx: ' || 'G_RCVTRX_TBL count = '|| to_char(G_RCVTRX_TBL.count), G_MSG_HIGH);
618: arp_util.debug ('Cache_Receivables_Trx()-' , G_MSG_HIGH);
619: END IF;
620:
621: RETURN;
614: END LOOP;
615:
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_util.debug ('Cache_Receivables_Trx: ' || 'G_RCVTRX_TBL count = '|| to_char(G_RCVTRX_TBL.count), G_MSG_HIGH);
618: arp_util.debug ('Cache_Receivables_Trx()-' , G_MSG_HIGH);
619: END IF;
620:
621: RETURN;
622:
622:
623: EXCEPTION
624: WHEN NO_DATA_FOUND THEN
625: IF PG_DEBUG in ('Y', 'C') THEN
626: arp_util.debug('Cache_Receivables_Trx: ' || 'No Adjustment Reason codes', G_MSG_HIGH);
627: END IF;
628: /*-----------------------------------------------+
629: | Set the message |
630: +-----------------------------------------------*/
635: p_return_status := FND_API.G_RET_STS_ERROR ;
636:
637: WHEN OTHERS THEN
638: IF PG_DEBUG in ('Y', 'C') THEN
639: arp_util.debug('EXCEPTION: Cache_Receivables_Trx()', G_MSG_UERROR);
640: END IF;
641: /*-----------------------------------------------+
642: | Set unexpected error message and status |
643: +-----------------------------------------------*/
687:
688: BEGIN
689:
690: IF PG_DEBUG in ('Y', 'C') THEN
691: arp_util.debug('Cache_Ussgl_Code()+' , G_MSG_HIGH);
692: END IF;
693:
694: p_return_status := FND_API.G_RET_STS_SUCCESS;
695:
707: G_USSGL_TBL(l_index) := l_temp_rec;
708: END LOOP;
709:
710: IF PG_DEBUG in ('Y', 'C') THEN
711: arp_util.debug ('Cache_Ussgl_Code: ' || 'G_USSGL_TBL count = '|| to_char(G_USSGL_TBL.count), G_MSG_HIGH);
712: arp_util.debug ('Cache_Ussgl_Code()-' , G_MSG_HIGH);
713: END IF;
714:
715: RETURN;
708: END LOOP;
709:
710: IF PG_DEBUG in ('Y', 'C') THEN
711: arp_util.debug ('Cache_Ussgl_Code: ' || 'G_USSGL_TBL count = '|| to_char(G_USSGL_TBL.count), G_MSG_HIGH);
712: arp_util.debug ('Cache_Ussgl_Code()-' , G_MSG_HIGH);
713: END IF;
714:
715: RETURN;
716:
716:
717: EXCEPTION
718: WHEN NO_DATA_FOUND THEN
719: IF PG_DEBUG in ('Y', 'C') THEN
720: arp_util.debug('Cache_Ussgl_Code: ' || 'No USSGL codes', G_MSG_HIGH);
721: END IF;
722: /*-----------------------------------------------+
723: | Set the message |
724: +-----------------------------------------------*/
729: p_return_status := FND_API.G_RET_STS_SUCCESS ;
730:
731: WHEN OTHERS THEN
732: IF PG_DEBUG in ('Y', 'C') THEN
733: arp_util.debug('EXCEPTION: Cache_Ussgl_Code()', G_MSG_UERROR);
734: END IF;
735: /*-----------------------------------------------+
736: | Set unexpected error message and status |
737: +-----------------------------------------------*/
788:
789: BEGIN
790:
791: IF PG_DEBUG in ('Y', 'C') THEN
792: arp_util.debug('Cache_Code_Combination()+' , G_MSG_HIGH);
793: END IF;
794:
795: p_return_status := FND_API.G_RET_STS_SUCCESS;
796:
803: G_CCID_TBL(l_ccid_rec.code_combination_id).dummy := FND_API.G_TRUE;
804: END LOOP;
805:
806: IF PG_DEBUG in ('Y', 'C') THEN
807: arp_util.debug ('Cache_Code_Combination: ' || 'G_CCID_TBL count = '|| to_char(G_CCID_TBL.count), G_MSG_HIGH);
808: arp_util.debug ('Cache_Code_Combination()-' , G_MSG_HIGH);
809: END IF;
810:
811: RETURN;
804: END LOOP;
805:
806: IF PG_DEBUG in ('Y', 'C') THEN
807: arp_util.debug ('Cache_Code_Combination: ' || 'G_CCID_TBL count = '|| to_char(G_CCID_TBL.count), G_MSG_HIGH);
808: arp_util.debug ('Cache_Code_Combination()-' , G_MSG_HIGH);
809: END IF;
810:
811: RETURN;
812:
812:
813: EXCEPTION
814: WHEN NO_DATA_FOUND THEN
815: IF PG_DEBUG in ('Y', 'C') THEN
816: arp_util.debug('Cache_Code_Combination: ' || 'No USSGL codes', G_MSG_HIGH);
817: END IF;
818: /*-----------------------------------------------+
819: | Set the message |
820: +-----------------------------------------------*/
825: p_return_status := FND_API.G_RET_STS_ERROR ;
826:
827: WHEN OTHERS THEN
828: IF PG_DEBUG in ('Y', 'C') THEN
829: arp_util.debug('EXCEPTION: Cache_Code_Combination()', G_MSG_UERROR);
830: END IF;
831: /*-----------------------------------------------+
832: | Set unexpected error message and status |
833: +-----------------------------------------------*/
891:
892: BEGIN
893:
894: IF PG_DEBUG in ('Y', 'C') THEN
895: arp_util.debug('Cache_Details()+' , G_MSG_HIGH);
896: END IF;
897:
898: /*--------------------------------------------------+
899: | Check if caching is needed. Caching is needed if|
902:
903: l_tobe_cached_flag := FND_API.G_FALSE ;
904:
905: IF PG_DEBUG in ('Y', 'C') THEN
906: arp_util.debug ('Cache_Details: ' || 'G_Caching done = ' || G_caching_done, G_MSG_HIGH);
907: arp_util.debug ('Cache_Details: ' || 'G_Cache_date = ' || to_char(G_cache_date,'DD-MON-YY'),
908: G_MSG_HIGH);
909: arp_util.debug ('Cache_Details: ' || 'Sysdate = ' || to_char(sysdate,'DD-MON-YY'),G_MSG_HIGH);
910: END IF;
903: l_tobe_cached_flag := FND_API.G_FALSE ;
904:
905: IF PG_DEBUG in ('Y', 'C') THEN
906: arp_util.debug ('Cache_Details: ' || 'G_Caching done = ' || G_caching_done, G_MSG_HIGH);
907: arp_util.debug ('Cache_Details: ' || 'G_Cache_date = ' || to_char(G_cache_date,'DD-MON-YY'),
908: G_MSG_HIGH);
909: arp_util.debug ('Cache_Details: ' || 'Sysdate = ' || to_char(sysdate,'DD-MON-YY'),G_MSG_HIGH);
910: END IF;
911:
905: IF PG_DEBUG in ('Y', 'C') THEN
906: arp_util.debug ('Cache_Details: ' || 'G_Caching done = ' || G_caching_done, G_MSG_HIGH);
907: arp_util.debug ('Cache_Details: ' || 'G_Cache_date = ' || to_char(G_cache_date,'DD-MON-YY'),
908: G_MSG_HIGH);
909: arp_util.debug ('Cache_Details: ' || 'Sysdate = ' || to_char(sysdate,'DD-MON-YY'),G_MSG_HIGH);
910: END IF;
911:
912: IF ( G_caching_done = FND_API.G_FALSE )
913: THEN
929: l_tobe_cached_flag := FND_API.G_TRUE;
930: END IF;
931:
932: IF PG_DEBUG in ('Y', 'C') THEN
933: arp_util.debug ('Cache_Details: ' || 'Caching Flag : '|| l_tobe_cached_flag,G_MSG_HIGH);
934: END IF;
935:
936: IF ( l_tobe_cached_flag = FND_API.G_FALSE )
937: THEN
966: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
967: THEN
968: p_return_status := l_return_status;
969: IF PG_DEBUG in ('Y', 'C') THEN
970: arp_util.debug('Cache_Details: ' || ' failed to cache approval_type');
971: END IF;
972: END IF;
973: /*-------------------------------------------------+
974: | Cache reason codes for adjustment. To be used |
979: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
980: THEN
981: p_return_status := l_return_status;
982: IF PG_DEBUG in ('Y', 'C') THEN
983: arp_util.debug ('Cache_Details: ' || ' failed to cache adjustment_reason');
984: END IF;
985: END IF;
986:
987: /*-------------------------------------------------+
993: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
994: THEN
995: p_return_status := l_return_status;
996: IF PG_DEBUG in ('Y', 'C') THEN
997: arp_util.debug ('Cache_Details: ' || ' failed to cache adjustment_type');
998: END IF;
999: END IF;
1000:
1001: /*-------------------------------------------------+
1008: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1009: THEN
1010: p_return_status := l_return_status;
1011: IF PG_DEBUG in ('Y', 'C') THEN
1012: arp_util.debug ('Cache_Details: ' || ' failed to cache receivables_trx');
1013: END IF;
1014: END IF;
1015:
1016: /*-------------------------------------------------+
1022: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1023: THEN
1024: p_return_status := l_return_status;
1025: IF PG_DEBUG in ('Y', 'C') THEN
1026: arp_util.debug ('Cache_Details: ' || ' failed to cache ussgl_code');
1027: END IF;
1028: END IF;
1029:
1030: /*--------------------------------------------------+
1036: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1037: THEN
1038: p_return_status := l_return_status;
1039: IF PG_DEBUG in ('Y', 'C') THEN
1040: arp_util.debug ('Cache_Details: ' || ' failed to cache gl_periods');
1041: END IF;
1042: END IF;
1043:
1044: /*--------------------------------------------------+
1050: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1051: THEN
1052: p_return_status := l_return_status;
1053: IF PG_DEBUG in ('Y', 'C') THEN
1054: arp_util.debug ('Cache_Details: ' || ' failed to cache code_combination');
1055: END IF;
1056: END IF;
1057:
1058: G_caching_done := FND_API.G_TRUE ;
1057:
1058: G_caching_done := FND_API.G_TRUE ;
1059:
1060: IF PG_DEBUG in ('Y', 'C') THEN
1061: arp_util.debug('Cache_Details ()-' , G_MSG_HIGH);
1062: END IF;
1063:
1064: EXCEPTION
1065: WHEN OTHERS THEN
1063:
1064: EXCEPTION
1065: WHEN OTHERS THEN
1066: IF PG_DEBUG in ('Y', 'C') THEN
1067: arp_util.debug('EXCEPTION: Cache_Details() ', G_MSG_UERROR);
1068: END IF;
1069:
1070: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Details');
1071: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1084: | |
1085: | SCOPE - PRIVATE |
1086: | |
1087: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
1088: | arp_util.disable_debug |
1089: | arp_util.enable_debug |
1090: | fnd_api.g_exc_unexpected_error |
1091: | fnd_api.g_ret_sts_error |
1092: | fnd_api.g_ret_sts_error |
1085: | SCOPE - PRIVATE |
1086: | |
1087: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
1088: | arp_util.disable_debug |
1089: | arp_util.enable_debug |
1090: | fnd_api.g_exc_unexpected_error |
1091: | fnd_api.g_ret_sts_error |
1092: | fnd_api.g_ret_sts_error |
1093: | fnd_api.g_ret_sts_success |
1124:
1125: BEGIN
1126:
1127: IF PG_DEBUG in ('Y', 'C') THEN
1128: arp_util.debug('Within_approval_limits()+', G_MSG_MEDIUM);
1129: END IF;
1130:
1131: /*------------------------------------------+
1132: | Initialize the return status to SUCCESS |
1155: EXCEPTION
1156: WHEN NO_DATA_FOUND THEN
1157:
1158: IF PG_DEBUG in ('Y', 'C') THEN
1159: arp_util.debug ('Within_approval_limits: ' || 'User Id : ' || l_user_id);
1160: arp_util.debug ('Within_approval_limits: ' ||
1161: 'User does not have approval limits for currency ' ||
1162: p_inv_curr_code, G_MSG_HIGH
1163: );
1156: WHEN NO_DATA_FOUND THEN
1157:
1158: IF PG_DEBUG in ('Y', 'C') THEN
1159: arp_util.debug ('Within_approval_limits: ' || 'User Id : ' || l_user_id);
1160: arp_util.debug ('Within_approval_limits: ' ||
1161: 'User does not have approval limits for currency ' ||
1162: p_inv_curr_code, G_MSG_HIGH
1163: );
1164: END IF;
1170:
1171: WHEN OTHERS THEN
1172:
1173: IF PG_DEBUG in ('Y', 'C') THEN
1174: arp_util.debug ('EXCEPTION: Within_approval_limits',G_MSG_UERROR);
1175: END IF;
1176:
1177: /*-------------------------------------------------+
1178: | Set unexpected error message, status and return |
1195: IF (( p_adj_amount > l_approval_amount_to ) OR
1196: ( p_adj_amount < l_approval_amount_from ))
1197: THEN
1198: IF PG_DEBUG in ('Y', 'C') THEN
1199: arp_util.debug('Within_approval_limits: ' || 'User ID: ' || l_user_id ||
1200: ' Amount: ' || p_adj_amount ||
1201: ' From: ' || l_approval_amount_from ||
1202: ' To: ' || l_approval_amount_to ||
1203: ' exceeds approval limit', G_MSG_HIGH );
1215:
1216: END IF;
1217:
1218: IF PG_DEBUG in ('Y', 'C') THEN
1219: arp_util.debug('Within_approval_limits()-', G_MSG_HIGH);
1220: END IF;
1221: RETURN ;
1222:
1223: EXCEPTION
1223: EXCEPTION
1224: WHEN OTHERS THEN
1225:
1226: IF PG_DEBUG in ('Y', 'C') THEN
1227: arp_util.debug('EXCEPTION: Within_approval_limits()', G_MSG_UERROR);
1228: END IF;
1229: /*-----------------------------------------------+
1230: | Set unexpected error message and status |
1231: +-----------------------------------------------*/
1273:
1274: BEGIN
1275:
1276: IF PG_DEBUG in ('Y', 'C') THEN
1277: arp_util.debug('Validate buckets()+', G_MSG_MEDIUM);
1278: END IF;
1279:
1280: /*------------------------------------------+
1281: | Initialize the return status to SUCCESS |
1370: END IF;
1371: END IF;
1372:
1373: IF PG_DEBUG in ('Y', 'C') THEN
1374: arp_util.debug('Validate buckets()-', G_MSG_MEDIUM);
1375: END IF;
1376:
1377: RETURN;
1378:
1379: EXCEPTION
1380: WHEN OTHERS THEN
1381:
1382: IF PG_DEBUG in ('Y', 'C') THEN
1383: arp_util.debug('EXCEPTION: Validate_buckets()', G_MSG_UERROR);
1384: END IF;
1385: /*-----------------------------------------------+
1386: | Set unexpected error message and status |
1387: +-----------------------------------------------*/
1404: | |
1405: | SCOPE - PUBLIC |
1406: | |
1407: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
1408: | arp_util.disable_debug |
1409: | arp_util.enable_debug |
1410: | fnd_api.g_exc_unexpected_error |
1411: | fnd_api.g_ret_sts_error |
1412: | fnd_api.g_ret_sts_error |
1405: | SCOPE - PUBLIC |
1406: | |
1407: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
1408: | arp_util.disable_debug |
1409: | arp_util.enable_debug |
1410: | fnd_api.g_exc_unexpected_error |
1411: | fnd_api.g_ret_sts_error |
1412: | fnd_api.g_ret_sts_error |
1413: | fnd_api.g_ret_sts_success |
1438: l_index number;
1439: BEGIN
1440:
1441: IF PG_DEBUG in ('Y', 'C') THEN
1442: arp_util.debug('Validate_Type()+', G_MSG_HIGH);
1443: END IF;
1444:
1445: /*------------------------------------------+
1446: | Initialize the return status to ERROR |
1470:
1471: END IF;
1472:
1473: IF PG_DEBUG in ('Y', 'C') THEN
1474: arp_util.debug('Validate_Type()-', G_MSG_MEDIUM);
1475: END IF;
1476:
1477:
1478: EXCEPTION
1478: EXCEPTION
1479: WHEN OTHERS THEN
1480:
1481: IF PG_DEBUG in ('Y', 'C') THEN
1482: arp_util.debug('EXCEPTION: Validate_Type()', G_MSG_UERROR );
1483: arp_util.debug('Validate_Type for type = ' ||p_adj_rec.type,G_MSG_HIGH);
1484: END IF;
1485:
1486: /*-----------------------------------------------+
1479: WHEN OTHERS THEN
1480:
1481: IF PG_DEBUG in ('Y', 'C') THEN
1482: arp_util.debug('EXCEPTION: Validate_Type()', G_MSG_UERROR );
1483: arp_util.debug('Validate_Type for type = ' ||p_adj_rec.type,G_MSG_HIGH);
1484: END IF;
1485:
1486: /*-----------------------------------------------+
1487: | Set unexpected error message and status |
1552:
1553: BEGIN
1554:
1555: IF PG_DEBUG in ('Y', 'C') THEN
1556: arp_util.debug('Validate_Payschd()+', G_MSG_MEDIUM);
1557: arp_util.debug('p_from_llca_call :'|| p_from_llca_call);
1558: END IF;
1559:
1560: /*------------------------------------------+
1553: BEGIN
1554:
1555: IF PG_DEBUG in ('Y', 'C') THEN
1556: arp_util.debug('Validate_Payschd()+', G_MSG_MEDIUM);
1557: arp_util.debug('p_from_llca_call :'|| p_from_llca_call);
1558: END IF;
1559:
1560: /*------------------------------------------+
1561: | Initialize the return status to SUCCESS |
1587:
1588: p_return_status := FND_API.G_RET_STS_ERROR;
1589:
1590: IF PG_DEBUG in ('Y', 'C') THEN
1591: arp_util.debug('Validate_Payschd: ' || 'payment schedule id is invalid');
1592: END IF;
1593:
1594: END IF ;
1595:
1617: FND_MESSAGE.SET_TOKEN('PAYMENT_SCHEDULE_ID',to_char(p_adj_rec.payment_schedule_id)) ;
1618: FND_MSG_PUB.ADD ;
1619: p_return_status := FND_API.G_RET_STS_ERROR;
1620: IF PG_DEBUG in ('Y', 'C') THEN
1621: arp_util.debug('Validate_Payschd: ' || 'payment schedule id is invalid');
1622: END IF;
1623: END ;
1624:
1625: /*-----------------------------------------------+
1637: FND_MSG_PUB.ADD ;
1638:
1639: p_return_status := FND_API.G_RET_STS_ERROR;
1640: IF PG_DEBUG in ('Y', 'C') THEN
1641: arp_util.debug('Validate_Payschd: ' || 'class of transaction is invalid');
1642: END IF;
1643: END IF;
1644:
1645: /*-----------------------------------------------+
1658: FND_MESSAGE.SET_TOKEN('PAYMENT_SCHEDULE_ID',to_char(p_adj_rec.payment_schedule_id));
1659: FND_MSG_PUB.ADD ;
1660: p_return_status := FND_API.G_RET_STS_ERROR;
1661: IF PG_DEBUG in ('Y', 'C') THEN
1662: arp_util.debug('Validate_Payschd: ' || 'there is no valid customer trx id for the paysch id');
1663: END IF;
1664:
1665: END IF;
1666:
1681: FND_MSG_PUB.ADD ;
1682:
1683: p_return_status := FND_API.G_RET_STS_ERROR;
1684: IF PG_DEBUG in ('Y', 'C') THEN
1685: arp_util.debug('Validate_Payschd: ' || 'there is no valid customer id for the paysch id');
1686: END IF;
1687:
1688: END IF;
1689:
1713:
1714: EXCEPTION
1715: WHEN OTHERS THEN
1716: IF PG_DEBUG in ('Y', 'C') THEN
1717: arp_util.debug('Validate_Payschd: ' ||
1718: 'EXCEPTION: Validate_Payschd() for CustTrxLineId = '||
1719: to_char(p_adj_rec.customer_trx_line_id), G_MSG_HIGH);
1720: END IF;
1721:
1759: FND_MSG_PUB.ADD ;
1760:
1761: p_return_status := FND_API.G_RET_STS_ERROR;
1762: IF PG_DEBUG in ('Y', 'C') THEN
1763: arp_util.debug('Validate_Payschd: ' || 'customer trx line id is invalid');
1764: END IF;
1765:
1766: ELSE
1767: insert into ar_llca_adj_trx_errors_gt
1804:
1805: p_return_status := FND_API.G_RET_STS_ERROR;
1806:
1807: IF PG_DEBUG in ('Y', 'C') THEN
1808: arp_util.debug('Validate_Payschd: ' || 'customer trx line id is missing for adj type = LINE');
1809: END IF;
1810: END IF;
1811: */
1812: END IF ;
1826: FND_MSG_PUB.ADD ;
1827:
1828: p_return_status := FND_API.G_RET_STS_ERROR;
1829: IF PG_DEBUG in ('Y', 'C') THEN
1830: arp_util.debug('Validate_Payschd: ' || 'customer trx line id is not required for adj type ');
1831: END IF;
1832: END IF;
1833:
1834: END IF;
1833:
1834: END IF;
1835:
1836: IF PG_DEBUG in ('Y', 'C') THEN
1837: arp_util.debug('Validate_Payschd()-', G_MSG_MEDIUM);
1838: END IF;
1839:
1840: RETURN ;
1841:
1844:
1845: WHEN OTHERS THEN
1846:
1847: IF PG_DEBUG in ('Y', 'C') THEN
1848: arp_util.debug('EXCEPTION: Validate_Payschd() ', G_MSG_UERROR);
1849: arp_util.debug('Validate_Payschd: ' || 'Payment Schedule = ' ||
1850: p_adj_rec.payment_schedule_id, G_MSG_HIGH);
1851: END IF;
1852: /*-----------------------------------------------+
1845: WHEN OTHERS THEN
1846:
1847: IF PG_DEBUG in ('Y', 'C') THEN
1848: arp_util.debug('EXCEPTION: Validate_Payschd() ', G_MSG_UERROR);
1849: arp_util.debug('Validate_Payschd: ' || 'Payment Schedule = ' ||
1850: p_adj_rec.payment_schedule_id, G_MSG_HIGH);
1851: END IF;
1852: /*-----------------------------------------------+
1853: | Set unexpected error message and status |
1871: | |
1872: | SCOPE - PUBLIC |
1873: | |
1874: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
1875: | arp_util.disable_debug |
1876: | arp_util.enable_debug |
1877: | fnd_api.g_exc_unexpected_error |
1878: | fnd_api.g_ret_sts_error |
1879: | fnd_api.g_ret_sts_error |
1872: | SCOPE - PUBLIC |
1873: | |
1874: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
1875: | arp_util.disable_debug |
1876: | arp_util.enable_debug |
1877: | fnd_api.g_exc_unexpected_error |
1878: | fnd_api.g_ret_sts_error |
1879: | fnd_api.g_ret_sts_error |
1880: | fnd_api.g_ret_sts_success |
1937: l_round_amount Number;
1938: BEGIN
1939:
1940: IF PG_DEBUG in ('Y', 'C') THEN
1941: arp_util.debug('Validate_amount()+', G_MSG_MEDIUM);
1942: END IF;
1943:
1944: /*------------------------------------------+
1945: | Initialize the return status to SUCCESS |
1952: where customer_trx_id=p_adj_rec.customer_trx_id;
1953:
1954: l_amount := p_adj_rec.amount;
1955:
1956: l_round_amount := arp_util.currround(l_amount,l_currency_code);
1957:
1958: IF l_amount <> l_round_amount then
1959: --Raise Validateion
1960: FND_MESSAGE.SET_NAME ('AR','ARTA_ARTADESM_INVALID_AMOUNT');
2126:
2127: END IF;
2128:
2129: IF PG_DEBUG in ('Y', 'C') THEN
2130: arp_util.debug('Validate_Amount()-', G_MSG_MEDIUM);
2131: END IF;
2132:
2133: RETURN ;
2134:
2135: EXCEPTION
2136: WHEN OTHERS THEN
2137:
2138: IF PG_DEBUG in ('Y', 'C') THEN
2139: arp_util.debug('EXCEPTION: Validate_Amount() ', G_MSG_UERROR);
2140: END IF;
2141:
2142: /*-----------------------------------------------+
2143: | Set unexpected error message and status |
2160: | |
2161: | SCOPE - PUBLIC |
2162: | |
2163: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
2164: | arp_util.disable_debug |
2165: | arp_util.enable_debug |
2166: | fnd_api.g_exc_unexpected_error |
2167: | fnd_api.g_ret_sts_error |
2168: | fnd_api.g_ret_sts_error |
2161: | SCOPE - PUBLIC |
2162: | |
2163: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
2164: | arp_util.disable_debug |
2165: | arp_util.enable_debug |
2166: | fnd_api.g_exc_unexpected_error |
2167: | fnd_api.g_ret_sts_error |
2168: | fnd_api.g_ret_sts_error |
2169: | fnd_api.g_ret_sts_success |
2218:
2219: BEGIN
2220:
2221: IF PG_DEBUG in ('Y', 'C') THEN
2222: arp_util.debug('Validate_Rcvtrxccid()+', G_MSG_MEDIUM);
2223: arp_util.debug('p_from_llca_call : ' || p_from_llca_call);
2224: END IF;
2225:
2226: /*------------------------------------------+
2219: BEGIN
2220:
2221: IF PG_DEBUG in ('Y', 'C') THEN
2222: arp_util.debug('Validate_Rcvtrxccid()+', G_MSG_MEDIUM);
2223: arp_util.debug('p_from_llca_call : ' || p_from_llca_call);
2224: END IF;
2225:
2226: /*------------------------------------------+
2227: | Initialize the return status to SUCCESS |
2263: IF (p_ps_rec.class = 'BR' and ((l_receivable_trx_type <> 'ENDORSEMENT')AND
2264: (p_adj_rec.receivables_trx_id <> -15 )))
2265: THEN
2266: IF PG_DEBUG in ('Y', 'C') THEN
2267: arp_util.debug('Validate_Rcvtrxccid: ' || 'For Payment schedule class BR,Receivable trx id
2268: should be of type ENDORSEMENT or -15',G_MSG_HIGH);
2269: END IF;
2270:
2271: IF p_from_llca_call <> 'Y' THEN
2350: +---------------------------------------------------------------------------*/
2351: IF (l_accounting_affect_flag = 'N')
2352: THEN
2353: IF PG_DEBUG in ('Y', 'C') THEN
2354: arp_util.debug('Validate_Rcvtrxccid: ' || 'for adj without accounting information - do not check the ccid');
2355: END IF;
2356: p_adj_rec.code_combination_id := NULL;
2357: return;
2358: END IF;
2528: +-----------------------------------------------*/
2529:
2530: p_adj_rec.set_of_books_id := arp_global.set_of_books_id ;
2531: IF PG_DEBUG in ('Y', 'C') THEN
2532: arp_util.debug('Validate_Rcvtrxccid()-', G_MSG_MEDIUM);
2533: END IF;
2534: RETURN ;
2535:
2536: EXCEPTION
2536: EXCEPTION
2537: WHEN OTHERS THEN
2538:
2539: IF PG_DEBUG in ('Y', 'C') THEN
2540: arp_util.debug('EXCEPTION: Validate_Rcvtrxccid', G_MSG_UERROR);
2541: END IF;
2542: /*-----------------------------------------------+
2543: | Set unexpected error message and status |
2544: +-----------------------------------------------*/
2589:
2590: BEGIN
2591:
2592: IF PG_DEBUG in ('Y', 'C') THEN
2593: arp_util.debug('Validate_dates()+', G_MSG_MEDIUM);
2594: END IF;
2595:
2596: /*------------------------------------------+
2597: | Initialize the return status to SUCCESS |
2721: p_return_status := FND_API.G_RET_STS_ERROR;
2722: END IF;
2723:
2724: IF PG_DEBUG in ('Y', 'C') THEN
2725: arp_util.debug('Validate_dates()-', G_MSG_MEDIUM);
2726: END IF;
2727:
2728: RETURN ;
2729:
2730: EXCEPTION
2731: WHEN OTHERS THEN
2732:
2733: IF PG_DEBUG in ('Y', 'C') THEN
2734: arp_util.debug('EXCEPTION: Validate_dates ', G_MSG_UERROR);
2735: END IF;
2736: /*-----------------------------------------------+
2737: | Set unexpected error message and status |
2738: +-----------------------------------------------*/
2755: | |
2756: | SCOPE - PRIVATE |
2757: | |
2758: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
2759: | arp_util.disable_debug |
2760: | arp_util.enable_debug |
2761: | fnd_api.g_exc_unexpected_error |
2762: | fnd_api.g_ret_sts_error |
2763: | fnd_api.g_ret_sts_error |
2756: | SCOPE - PRIVATE |
2757: | |
2758: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
2759: | arp_util.disable_debug |
2760: | arp_util.enable_debug |
2761: | fnd_api.g_exc_unexpected_error |
2762: | fnd_api.g_ret_sts_error |
2763: | fnd_api.g_ret_sts_error |
2764: | fnd_api.g_ret_sts_success |
2801:
2802: BEGIN
2803:
2804: IF PG_DEBUG in ('Y', 'C') THEN
2805: arp_util.debug('Validate_doc_seq()+', G_MSG_MEDIUM);
2806: END IF;
2807:
2808: /*------------------------------------------+
2809: | Initialize the return status to SUCCESS |
2815: | Document sequences are only applicable if the |
2816: | unique seq number option is not equal to N |
2817: +------------------------------------------------*/
2818: IF PG_DEBUG in ('Y', 'C') THEN
2819: arp_util.debug('Validate_doc_seq():'|| g_context_rec.unique_seq_numbers );
2820: END IF;
2821:
2822: IF ( NVL(g_context_rec.unique_seq_numbers, 'N') = 'N' )
2823: THEN
2853: l_prod_table_name,
2854: l_audit_table_name,
2855: l_mesg_flag,'y','y');
2856: IF PG_DEBUG in ('Y', 'C') THEN
2857: arp_util.debug('Validate_doc_seq():'|| p_adj_rec.doc_sequence_id );
2858: END IF;
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: arp_util.debug('Validate_doc_seq() : Exception raised by get_seq_info');
2857: arp_util.debug('Validate_doc_seq():'|| p_adj_rec.doc_sequence_id );
2858: END IF;
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: arp_util.debug('Validate_doc_seq() : Exception raised by get_seq_info');
2862: p_return_status := FND_API.G_RET_STS_ERROR;
2863: END;
2864:
2865:
2904: p_adj_rec.doc_sequence_value ,
2905: p_adj_rec.doc_sequence_id
2906: );
2907: IF PG_DEBUG in ('Y', 'C') THEN
2908: arp_util.debug('Validate_doc_seq():'|| p_adj_rec.doc_sequence_value );
2909: END IF;
2910: EXCEPTION
2911: WHEN OTHERS THEN
2912: arp_util.debug('Validate_doc_seq() : Exception raised by get_seq_val');
2908: arp_util.debug('Validate_doc_seq():'|| p_adj_rec.doc_sequence_value );
2909: END IF;
2910: EXCEPTION
2911: WHEN OTHERS THEN
2912: arp_util.debug('Validate_doc_seq() : Exception raised by get_seq_val');
2913: p_return_status := FND_API.G_RET_STS_ERROR;
2914: END;
2915:
2916: END IF;
2915:
2916: END IF;
2917: ELSE
2918: IF PG_DEBUG in ('Y', 'C') THEN
2919: arp_util.debug('Validate_doc_seq() : No active document sequence assignments',
2920: G_MSG_MEDIUM);
2921: END IF;
2922: p_adj_rec.doc_sequence_value := NULL;
2923: IF (g_context_rec.unique_seq_numbers = 'A'
2936: END IF; ---Handled all combinations of Seq Numbering...
2937:
2938:
2939: IF PG_DEBUG in ('Y', 'C') THEN
2940: arp_util.debug('Validate_doc_seq()-', G_MSG_MEDIUM);
2941: END IF;
2942:
2943: RETURN ;
2944: EXCEPTION
2963: RETURN;
2964: WHEN OTHERS THEN
2965:
2966: IF PG_DEBUG in ('Y', 'C') THEN
2967: arp_util.debug('EXCEPTION: Validate_doc_seq ', G_MSG_UERROR);
2968: END IF;
2969: /*-----------------------------------------------+
2970: | Set unexpected error message and status |
2971: +-----------------------------------------------*/
2986: | |
2987: | SCOPE - PUBLIC |
2988: | |
2989: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
2990: | arp_util.disable_debug |
2991: | arp_util.enable_debug |
2992: | fnd_api.g_exc_unexpected_error |
2993: | fnd_api.g_ret_sts_error |
2994: | fnd_api.g_ret_sts_error |
2987: | SCOPE - PUBLIC |
2988: | |
2989: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
2990: | arp_util.disable_debug |
2991: | arp_util.enable_debug |
2992: | fnd_api.g_exc_unexpected_error |
2993: | fnd_api.g_ret_sts_error |
2994: | fnd_api.g_ret_sts_error |
2995: | fnd_api.g_ret_sts_success |
3022: l_found BOOLEAN;
3023: BEGIN
3024:
3025: IF PG_DEBUG in ('Y', 'C') THEN
3026: arp_util.debug('Validate_Reason_code()+', G_MSG_MEDIUM);
3027: END IF;
3028:
3029: /*------------------------------------------+
3030: | Initialize the return status to SUCCESS |
3066:
3067: END IF ;
3068:
3069: IF PG_DEBUG in ('Y', 'C') THEN
3070: arp_util.debug('Validate_Reason_Code()-', G_MSG_MEDIUM);
3071: END IF;
3072:
3073: RETURN ;
3074:
3075: EXCEPTION
3076: WHEN OTHERS THEN
3077:
3078: IF PG_DEBUG in ('Y', 'C') THEN
3079: arp_util.debug('EXCEPTION: Validate_Reason_code ', G_MSG_UERROR);
3080: END IF;
3081: /*-----------------------------------------------+
3082: | Set unexpected error message and status |
3083: +-----------------------------------------------*/
3113: | |
3114: | MODIFICATION HISTORY |
3115: | Vivek Halder 01-JUL-97 Created |
3116: | Satheesh Nambiar 16-Jun-00 Bug 1290698. Modified Validate_Desc_Flexfield
3117: | to call arp_util.Validate_Desc_Flexfield
3118: | |
3119: +===========================================================================*/
3120:
3121: PROCEDURE Validate_Desc_Flexfield(
3125:
3126: l_flex_name fnd_descriptive_flexs.descriptive_flexfield_name%type;
3127: l_count NUMBER;
3128: l_col_name VARCHAR2(50);
3129: p_desc_flex_rec arp_util.attribute_rec_type;
3130:
3131: BEGIN
3132:
3133: IF PG_DEBUG in ('Y', 'C') THEN
3130:
3131: BEGIN
3132:
3133: IF PG_DEBUG in ('Y', 'C') THEN
3134: arp_util.debug('Validate_Desc_Flexfield()+', G_MSG_MEDIUM);
3135: END IF;
3136:
3137: /*------------------------------------------+
3138: | Initialize the return status to SUCCESS |
3157: RETURN;
3158:
3159: WHEN OTHERS THEN
3160: IF PG_DEBUG in ('Y', 'C') THEN
3161: arp_util.debug('EXCEPTION: Validate_Desc_Flexfield', G_MSG_UERROR);
3162: END IF;
3163: /*-----------------------------------------------+
3164: | Set unexpected error message and status |
3165: +-----------------------------------------------*/
3186: p_desc_flex_rec.attribute13 := p_adj_rec.attribute13;
3187: p_desc_flex_rec.attribute14 := p_adj_rec.attribute14;
3188: p_desc_flex_rec.attribute15 := p_adj_rec.attribute15;
3189:
3190: arp_util.Validate_Desc_Flexfield(p_desc_flex_rec ,
3191: l_flex_name,
3192: p_return_status);
3193:
3194: IF ( p_return_status <>FND_API.G_RET_STS_SUCCESS)
3193:
3194: IF ( p_return_status <>FND_API.G_RET_STS_SUCCESS)
3195: THEN
3196: IF PG_DEBUG in ('Y', 'C') THEN
3197: arp_util.debug('arp_util.Validate_Desc_Flexfield - Failed', G_MSG_UERROR);
3198: END IF;
3199: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_DESC_FLEX');
3200: FND_MSG_PUB.ADD ;
3201: p_return_status := FND_API.G_RET_STS_ERROR;
3218: p_adj_rec.attribute14 := p_desc_flex_rec.attribute14;
3219: p_adj_rec.attribute15 := p_desc_flex_rec.attribute15;
3220:
3221: IF PG_DEBUG in ('Y', 'C') THEN
3222: arp_util.debug('Validate_Desc_Flexfield()-', G_MSG_MEDIUM);
3223: END IF;
3224:
3225: EXCEPTION
3226: WHEN OTHERS THEN
3224:
3225: EXCEPTION
3226: WHEN OTHERS THEN
3227: IF PG_DEBUG in ('Y', 'C') THEN
3228: arp_util.debug('EXCEPTION: Validate_Desc_Flexfield', G_MSG_UERROR);
3229: END IF;
3230: /*-----------------------------------------------+
3231: | Set unexpected error message and status |
3232: +-----------------------------------------------*/
3247: | |
3248: | SCOPE - PRIVATE |
3249: | |
3250: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3251: | arp_util.disable_debug |
3252: | arp_util.enable_debug |
3253: | fnd_api.g_exc_unexpected_error |
3254: | fnd_api.g_ret_sts_error |
3255: | fnd_api.g_ret_sts_error |
3248: | SCOPE - PRIVATE |
3249: | |
3250: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3251: | arp_util.disable_debug |
3252: | arp_util.enable_debug |
3253: | fnd_api.g_exc_unexpected_error |
3254: | fnd_api.g_ret_sts_error |
3255: | fnd_api.g_ret_sts_error |
3256: | fnd_api.g_ret_sts_success |
3279:
3280: BEGIN
3281:
3282: IF PG_DEBUG in ('Y', 'C') THEN
3283: arp_util.debug('Validate_Created_From()+', G_MSG_MEDIUM);
3284: END IF;
3285:
3286: /*------------------------------------------+
3287: | Initialize the return status to SUCCESS |
3301: END IF;
3302:
3303:
3304: IF PG_DEBUG in ('Y', 'C') THEN
3305: arp_util.debug('Validate_Created_From ()-', G_MSG_MEDIUM);
3306: END IF;
3307:
3308: RETURN ;
3309:
3310: EXCEPTION
3311: WHEN OTHERS THEN
3312:
3313: IF PG_DEBUG in ('Y', 'C') THEN
3314: arp_util.debug('EXCEPTION: Validate_Created_From()', G_MSG_UERROR);
3315: END IF;
3316: /*-----------------------------------------------+
3317: | Set unexpected error message and status |
3318: +-----------------------------------------------*/
3334: | |
3335: | SCOPE - PRIVATE |
3336: | |
3337: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3338: | arp_util.disable_debug |
3339: | arp_util.enable_debug |
3340: | fnd_api.g_exc_unexpected_error |
3341: | fnd_api.g_ret_sts_error |
3342: | fnd_api.g_ret_sts_error |
3335: | SCOPE - PRIVATE |
3336: | |
3337: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3338: | arp_util.disable_debug |
3339: | arp_util.enable_debug |
3340: | fnd_api.g_exc_unexpected_error |
3341: | fnd_api.g_ret_sts_error |
3342: | fnd_api.g_ret_sts_error |
3343: | fnd_api.g_ret_sts_success |
3368:
3369: BEGIN
3370:
3371: IF PG_DEBUG in ('Y', 'C') THEN
3372: arp_util.debug('Validate_Ussgl_code()+', G_MSG_MEDIUM);
3373: END IF;
3374:
3375: /*------------------------------------------+
3376: | Initialize the return status to ERROR |
3428: END IF ;
3429: END IF ;
3430:
3431: IF PG_DEBUG in ('Y', 'C') THEN
3432: arp_util.debug('Validate_Ussgl_Code()-', G_MSG_MEDIUM);
3433: END IF;
3434:
3435: RETURN ;
3436:
3437: EXCEPTION
3438: WHEN OTHERS THEN
3439:
3440: IF PG_DEBUG in ('Y', 'C') THEN
3441: arp_util.debug('EXCEPTION: Validate_Ussgl_code ', G_MSG_UERROR);
3442: END IF;
3443: /*-----------------------------------------------+
3444: | Set unexpected error message and status |
3445: +-----------------------------------------------*/
3460: | |
3461: | SCOPE - PUBLIC |
3462: | |
3463: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3464: | arp_util.disable_debug |
3465: | arp_util.enable_debug |
3466: | fnd_api.g_exc_unexpected_error |
3467: | fnd_api.g_ret_sts_error |
3468: | fnd_api.g_ret_sts_error |
3461: | SCOPE - PUBLIC |
3462: | |
3463: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3464: | arp_util.disable_debug |
3465: | arp_util.enable_debug |
3466: | fnd_api.g_exc_unexpected_error |
3467: | fnd_api.g_ret_sts_error |
3468: | fnd_api.g_ret_sts_error |
3469: | fnd_api.g_ret_sts_success |
3496:
3497: BEGIN
3498:
3499: IF PG_DEBUG in ('Y', 'C') THEN
3500: arp_util.debug('Validate_Associated_Receipt()+', G_MSG_MEDIUM);
3501: END IF;
3502:
3503: /*------------------------------------------+
3504: | Initialize the return status to SUCCESS |
3534:
3535: END IF ;
3536:
3537: IF PG_DEBUG in ('Y', 'C') THEN
3538: arp_util.debug('Validate_Associated_Receipt()-', G_MSG_MEDIUM);
3539: END IF;
3540:
3541: RETURN ;
3542:
3543: EXCEPTION
3544: WHEN OTHERS THEN
3545:
3546: IF PG_DEBUG in ('Y', 'C') THEN
3547: arp_util.debug('EXCEPTION: Validate_Associated_Receipt', G_MSG_UERROR);
3548: arp_util.debug('EXCEPTION: Validate_Associated_Receipt for Receipt Id '
3549: || p_adj_rec.associated_cash_receipt_id, G_MSG_HIGH );
3550: END IF;
3551: /*-----------------------------------------------+
3544: WHEN OTHERS THEN
3545:
3546: IF PG_DEBUG in ('Y', 'C') THEN
3547: arp_util.debug('EXCEPTION: Validate_Associated_Receipt', G_MSG_UERROR);
3548: arp_util.debug('EXCEPTION: Validate_Associated_Receipt for Receipt Id '
3549: || p_adj_rec.associated_cash_receipt_id, G_MSG_HIGH );
3550: END IF;
3551: /*-----------------------------------------------+
3552: | Set unexpected error message and status |
3567: | |
3568: | SCOPE - PRIVATE |
3569: | |
3570: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
3571: | arp_util.debug |
3572: | |
3573: | ARGUMENTS : IN: |
3574: | p_adj_rec |
3575: | p_ps_rec |
3683:
3684:
3685: BEGIN
3686:
3687: arp_util.debug('ar_adjvalidate_pvt.validate_inv_line_amount()+');
3688:
3689: /*----------------------------------------------------------------+
3690: | IF the line number is filled in |
3691: | THEN validate adjustment is not more than available invoiced |
3700: l_line_original:= 0;
3701:
3702: FOR i IN cu_rem_amt(p_adj_rec.customer_trx_id, p_adj_rec.customer_trx_line_id) LOOP
3703: IF PG_DEBUG in ('Y', 'C') THEN
3704: arp_util.debug('Value of l_remain_amt: ' || l_remain_amt);
3705: arp_util.debug('Value of sum_orig: ' || i.sum_orig);
3706: arp_util.debug('Value of REM_TYPE_LINE: ' || i.REM_TYPE_LINE);
3707: arp_util.debug('Value of l_line_original: ' || l_line_original);
3708: END IF;
3701:
3702: FOR i IN cu_rem_amt(p_adj_rec.customer_trx_id, p_adj_rec.customer_trx_line_id) LOOP
3703: IF PG_DEBUG in ('Y', 'C') THEN
3704: arp_util.debug('Value of l_remain_amt: ' || l_remain_amt);
3705: arp_util.debug('Value of sum_orig: ' || i.sum_orig);
3706: arp_util.debug('Value of REM_TYPE_LINE: ' || i.REM_TYPE_LINE);
3707: arp_util.debug('Value of l_line_original: ' || l_line_original);
3708: END IF;
3709: l_remain_amt := l_remain_amt + i.sum_orig + i.REM_TYPE_LINE;
3702: FOR i IN cu_rem_amt(p_adj_rec.customer_trx_id, p_adj_rec.customer_trx_line_id) LOOP
3703: IF PG_DEBUG in ('Y', 'C') THEN
3704: arp_util.debug('Value of l_remain_amt: ' || l_remain_amt);
3705: arp_util.debug('Value of sum_orig: ' || i.sum_orig);
3706: arp_util.debug('Value of REM_TYPE_LINE: ' || i.REM_TYPE_LINE);
3707: arp_util.debug('Value of l_line_original: ' || l_line_original);
3708: END IF;
3709: l_remain_amt := l_remain_amt + i.sum_orig + i.REM_TYPE_LINE;
3710: l_line_original := l_line_original + i.sum_orig;
3703: IF PG_DEBUG in ('Y', 'C') THEN
3704: arp_util.debug('Value of l_remain_amt: ' || l_remain_amt);
3705: arp_util.debug('Value of sum_orig: ' || i.sum_orig);
3706: arp_util.debug('Value of REM_TYPE_LINE: ' || i.REM_TYPE_LINE);
3707: arp_util.debug('Value of l_line_original: ' || l_line_original);
3708: END IF;
3709: l_remain_amt := l_remain_amt + i.sum_orig + i.REM_TYPE_LINE;
3710: l_line_original := l_line_original + i.sum_orig;
3711: END LOOP;
3710: l_line_original := l_line_original + i.sum_orig;
3711: END LOOP;
3712:
3713: IF PG_DEBUG in ('Y', 'C') THEN
3714: arp_util.debug('Value of l_remain_amt: ' || l_remain_amt);
3715: arp_util.debug('Value of l_line_original: ' || l_line_original);
3716: END IF;
3717:
3718:
3711: END LOOP;
3712:
3713: IF PG_DEBUG in ('Y', 'C') THEN
3714: arp_util.debug('Value of l_remain_amt: ' || l_remain_amt);
3715: arp_util.debug('Value of l_line_original: ' || l_line_original);
3716: END IF;
3717:
3718:
3719: IF (l_line_original > 0) THEN
3721: p_adj_rec.amount +
3722: l_remain_amt < 0
3723: )
3724: THEN
3725: arp_util.debug( 'EXCEPTION: ar_adjvalidate_pvt.' ||
3726: 'validate_inv_line_amount ()');
3727: arp_util.debug( 'Adjustments cannot be more than available ' ||
3728: 'invoiced line amount.');
3729: p_return_status := FND_API.G_RET_STS_ERROR;
3723: )
3724: THEN
3725: arp_util.debug( 'EXCEPTION: ar_adjvalidate_pvt.' ||
3726: 'validate_inv_line_amount ()');
3727: arp_util.debug( 'Adjustments cannot be more than available ' ||
3728: 'invoiced line amount.');
3729: p_return_status := FND_API.G_RET_STS_ERROR;
3730: FND_MESSAGE.SET_NAME('AR','AR_VAL_ADJ_INV_LINE_AMT');
3731: FND_MSG_PUB.Add;
3735: p_adj_rec.amount +
3736: l_remain_amt > 0
3737: )
3738: THEN
3739: arp_util.debug( 'EXCEPTION: ar_adjvalidate_pvt.' ||
3740: 'validate_inv_line_amount ()');
3741: arp_util.debug( 'Adjustments cannot be more than available ' ||
3742: 'invoiced line amount.');
3743: p_return_status := FND_API.G_RET_STS_ERROR;
3737: )
3738: THEN
3739: arp_util.debug( 'EXCEPTION: ar_adjvalidate_pvt.' ||
3740: 'validate_inv_line_amount ()');
3741: arp_util.debug( 'Adjustments cannot be more than available ' ||
3742: 'invoiced line amount.');
3743: p_return_status := FND_API.G_RET_STS_ERROR;
3744: FND_MESSAGE.SET_NAME('AR','AR_VAL_ADJ_INV_LINE_AMT');
3745: FND_MSG_PUB.Add;
3748:
3749: END IF; -- end not approved or adjusted and line specified case
3750:
3751:
3752: arp_util.debug('ar_adjvalidate_pvt.validate_inv_line_amount()-');
3753:
3754: EXCEPTION
3755: WHEN OTHERS THEN
3756: arp_util.debug('EXCEPTION: ar_adjvalidate_pvt.' ||
3752: arp_util.debug('ar_adjvalidate_pvt.validate_inv_line_amount()-');
3753:
3754: EXCEPTION
3755: WHEN OTHERS THEN
3756: arp_util.debug('EXCEPTION: ar_adjvalidate_pvt.' ||
3757: 'validate_inv_line_amount()');
3758: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'validate_inv_line_amount()');
3759: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3760: RETURN;
3772: | |
3773: | SCOPE - PUBLIC |
3774: | |
3775: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3776: | arp_util.disable_debug |
3777: | fnd_api.g_exc_unexpected_error |
3778: | fnd_api.g_ret_sts_error |
3779: | fnd_api.g_ret_sts_error |
3780: | fnd_api.g_ret_sts_success |
3813: l_message_name varchar2(50);
3814: BEGIN
3815:
3816: IF PG_DEBUG in ('Y', 'C') THEN
3817: arp_util.debug('Validate_Over_Application()+', G_MSG_MEDIUM);
3818: END IF;
3819:
3820: p_return_status := FND_API.G_RET_STS_SUCCESS;
3821:
3944:
3945: EXCEPTION
3946: WHEN OTHERS THEN
3947: IF PG_DEBUG in ('Y', 'C') THEN
3948: arp_util.debug('EXCEPTION: Validate_Over_Application', G_MSG_UERROR);
3949: arp_util.debug('EXCEPTION: Validate_Over_Application '
3950: || p_adj_rec.customer_trx_id, G_MSG_HIGH );
3951: END IF;
3952: /*-----------------------------------------------+
3945: EXCEPTION
3946: WHEN OTHERS THEN
3947: IF PG_DEBUG in ('Y', 'C') THEN
3948: arp_util.debug('EXCEPTION: Validate_Over_Application', G_MSG_UERROR);
3949: arp_util.debug('EXCEPTION: Validate_Over_Application '
3950: || p_adj_rec.customer_trx_id, G_MSG_HIGH );
3951: END IF;
3952: /*-----------------------------------------------+
3953: | Set unexpected error message and status |
3969: | |
3970: | SCOPE - PUBLIC |
3971: | |
3972: | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
3973: | arp_util.disable_debug |
3974: | fnd_api.g_exc_unexpected_error |
3975: | fnd_api.g_ret_sts_error |
3976: | fnd_api.g_ret_sts_error |
3977: | fnd_api.g_ret_sts_success |
4018:
4019: BEGIN
4020:
4021: IF PG_DEBUG in ('Y', 'C') THEN
4022: arp_util.debug('Validate_Over_Application_llca()+', G_MSG_MEDIUM);
4023: END IF;
4024:
4025: p_return_status := FND_API.G_RET_STS_SUCCESS;
4026:
4160:
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: IF PG_DEBUG in ('Y', 'C') THEN
4164: arp_util.debug('EXCEPTION: Validate_Over_Application_llca', G_MSG_UERROR);
4165: arp_util.debug('EXCEPTION: Validate_Over_Application_llca '
4166: || p_adj_rec.customer_trx_id, G_MSG_HIGH );
4167: END IF;
4168: /*-----------------------------------------------+
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: IF PG_DEBUG in ('Y', 'C') THEN
4164: arp_util.debug('EXCEPTION: Validate_Over_Application_llca', G_MSG_UERROR);
4165: arp_util.debug('EXCEPTION: Validate_Over_Application_llca '
4166: || p_adj_rec.customer_trx_id, G_MSG_HIGH );
4167: END IF;
4168: /*-----------------------------------------------+
4169: | Set unexpected error message and status |
4173: RETURN;
4174: END Validate_Over_Application_llca;
4175:
4176: BEGIN
4177: arp_util.debug('initialization section of ar_adjvalidate_pvt');
4178: G_cache_org_id := -99999;
4179:
4180: END AR_ADJVALIDATE_PVT;