75: l_org_return_status VARCHAR2(1);
76: l_org_id NUMBER;
77: BEGIN
78: IF PG_DEBUG in ('Y', 'C') THEN
79: arp_debug.debug('AR_RevenueAdjust_PUB.Unearn_Revenue()+');
80: END IF;
81: -- Standard Start of API savepoint
82: SAVEPOINT Unearn_Revenue_PUB;
83: -- Standard call to check for call compatibility.
86: l_api_name ,
87: G_PKG_NAME )
88: THEN
89: IF PG_DEBUG in ('Y', 'C') THEN
90: arp_debug.debug('Unearn_Revenue: ' || '.Unexpected EXCEPTION '||sqlerrm||
91: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
92: END IF;
93: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
94: END IF;
148: p_count => x_msg_count,
149: p_data => x_msg_data);
150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
151: IF PG_DEBUG in ('Y', 'C') THEN
152: arp_debug.debug('Unearn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
153: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
154: END IF;
155: ROLLBACK TO Unearn_Revenue_PUB;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
159: p_count => x_msg_count,
160: p_data => x_msg_data);
161: WHEN OTHERS THEN
162: IF PG_DEBUG in ('Y', 'C') THEN
163: arp_debug.debug('Unearn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
164: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
165: END IF;
166: ROLLBACK TO Unearn_Revenue_PUB;
167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
230: l_api_name ,
231: G_PKG_NAME )
232: THEN
233: IF PG_DEBUG in ('Y', 'C') THEN
234: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
235: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
236: END IF;
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: END IF;
293: p_count => x_msg_count,
294: p_data => x_msg_data);
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
298: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
299: END IF;
300: ROLLBACK TO Earn_Revenue_PUB;
301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
304: p_count => x_msg_count,
305: p_data => x_msg_data);
306: WHEN OTHERS THEN
307: IF PG_DEBUG in ('Y', 'C') THEN
308: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
309: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
310: END IF;
311: ROLLBACK TO Earn_Revenue_PUB;
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
371: l_org_id NUMBER;
372:
373: BEGIN
374: IF PG_DEBUG in ('Y', 'C') THEN
375: arp_debug.debug('AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
376: END IF;
377: -- Standard Start of API savepoint
378: SAVEPOINT Transfer_Sales_Credits_PUB;
379: -- Standard call to check for call compatibility.
382: l_api_name ,
383: G_PKG_NAME )
384: THEN
385: IF PG_DEBUG in ('Y', 'C') THEN
386: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
387: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
388: END IF;
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
447: p_count => x_msg_count,
448: p_data => x_msg_data);
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450: IF PG_DEBUG in ('Y', 'C') THEN
451: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
452: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
453: END IF;
454: ROLLBACK TO Transfer_Sales_Credits_PUB;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
458: p_count => x_msg_count,
459: p_data => x_msg_data);
460: WHEN OTHERS THEN
461: IF PG_DEBUG in ('Y', 'C') THEN
462: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
463: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
464: END IF;
465: ROLLBACK TO Transfer_Sales_Credits_PUB;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
528:
529: BEGIN
530:
531: IF PG_DEBUG in ('Y', 'C') THEN
532: arp_debug.debug('AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
533: END IF;
534: -- Standard Start of API savepoint
535: SAVEPOINT Add_Non_Rev_Sales_Credits_PUB;
536: -- Standard call to check for call compatibility.
539: l_api_name ,
540: G_PKG_NAME )
541: THEN
542: IF PG_DEBUG in ('Y', 'C') THEN
543: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
544: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
545: END IF;
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: END IF;
602: p_count => x_msg_count,
603: p_data => x_msg_data);
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: IF PG_DEBUG in ('Y', 'C') THEN
606: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
607: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
608: END IF;
609: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
613: p_count => x_msg_count,
614: p_data => x_msg_data);
615: WHEN OTHERS THEN
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
618: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
619: END IF;
620: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682: l_scenario VARCHAR2(128);
683: BEGIN
684:
685: IF PG_DEBUG in ('Y', 'C') THEN
686: arp_debug.debug('AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
687: END IF;
688: -- Standard Start of API savepoint
689: SAVEPOINT Record_Customer_Acceptance_PUB;
690: -- Standard call to check for call compatibility.
693: l_api_name ,
694: G_PKG_NAME )
695: THEN
696: IF PG_DEBUG in ('Y', 'C') THEN
697: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
698: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
699: END IF;
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: END IF;
763: ELSE
764: l_scenario := 'UNKNOWN RESULT';
765: END IF;
766:
767: arp_debug.debug('first rev_adj_id = ' || lo_first_rev_adj_id);
768: arp_debug.debug('last rev_adj_id = ' || lo_last_rev_adj_id);
769: arp_debug.debug('result (scenario)= ' || l_scenario);
770: END IF;
771:
764: l_scenario := 'UNKNOWN RESULT';
765: END IF;
766:
767: arp_debug.debug('first rev_adj_id = ' || lo_first_rev_adj_id);
768: arp_debug.debug('last rev_adj_id = ' || lo_last_rev_adj_id);
769: arp_debug.debug('result (scenario)= ' || l_scenario);
770: END IF;
771:
772: -- Standard check of p_commit.
765: END IF;
766:
767: arp_debug.debug('first rev_adj_id = ' || lo_first_rev_adj_id);
768: arp_debug.debug('last rev_adj_id = ' || lo_last_rev_adj_id);
769: arp_debug.debug('result (scenario)= ' || l_scenario);
770: END IF;
771:
772: -- Standard check of p_commit.
773: IF FND_API.To_Boolean( p_commit )
789: p_count => x_msg_count,
790: p_data => x_msg_data);
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: IF PG_DEBUG in ('Y', 'C') THEN
793: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
794: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
795: END IF;
796: ROLLBACK TO Record_Customer_Acceptance_PUB;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
800: p_count => x_msg_count,
801: p_data => x_msg_data);
802: WHEN OTHERS THEN
803: IF PG_DEBUG in ('Y', 'C') THEN
804: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
805: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
806: END IF;
807: ROLLBACK TO Record_Customer_Acceptance_PUB;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
904:
905: BEGIN
906:
907: IF PG_DEBUG in ('Y', 'C') THEN
908: arp_debug.debug('AR_RevenueAdjust_PUB.Update_Contingency_Expirations()+');
909: END IF;
910: -- Standard Start of API savepoint
911: SAVEPOINT Update_Contingency_Expires_PUB;
912: -- Standard call to check for call compatibility.
915: l_api_name ,
916: G_PKG_NAME )
917: THEN
918: IF PG_DEBUG in ('Y', 'C') THEN
919: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
920: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()+');
921: END IF;
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
964: END IF;
965:
966: IF PG_DEBUG IN ('Y', 'C')
967: THEN
968: arp_debug.debug('updating line:' || cont.customer_trx_line_id ||
969: ' cont_id:' || cont.contingency_id ||
970: ' expiration_date:' || l_expiration_date);
971: END IF;
972:
1010: ELSE
1011: l_scenario := 'UNKNOWN RESULT';
1012: END IF;
1013:
1014: arp_debug.debug('first rev_adj_id = ' || lo_first_adj_number);
1015: arp_debug.debug('last rev_adj_id = ' || lo_last_adj_number);
1016: arp_debug.debug('result (scenario)= ' || l_scenario);
1017: END IF;
1018:
1011: l_scenario := 'UNKNOWN RESULT';
1012: END IF;
1013:
1014: arp_debug.debug('first rev_adj_id = ' || lo_first_adj_number);
1015: arp_debug.debug('last rev_adj_id = ' || lo_last_adj_number);
1016: arp_debug.debug('result (scenario)= ' || l_scenario);
1017: END IF;
1018:
1019: -- Standard check of p_commit.
1012: END IF;
1013:
1014: arp_debug.debug('first rev_adj_id = ' || lo_first_adj_number);
1015: arp_debug.debug('last rev_adj_id = ' || lo_last_adj_number);
1016: arp_debug.debug('result (scenario)= ' || l_scenario);
1017: END IF;
1018:
1019: -- Standard check of p_commit.
1020: IF FND_API.To_Boolean( p_commit )
1036: p_count => x_msg_count,
1037: p_data => x_msg_data);
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039: IF PG_DEBUG in ('Y', 'C') THEN
1040: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
1041: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
1042: END IF;
1043: ROLLBACK TO Record_Customer_Acceptance_PUB;
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: p_count => x_msg_count,
1048: p_data => x_msg_data);
1049: WHEN OTHERS THEN
1050: IF PG_DEBUG in ('Y', 'C') THEN
1051: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
1052: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
1053: END IF;
1054: ROLLBACK TO Record_Customer_Acceptance_PUB;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;