134: /*--------------------------------------------------+
135: | Standard call to check for call compatibility |
136: +--------------------------------------------------*/
137:
138: IF NOT FND_API.Compatible_API_Call(
139: l_api_version,
140: p_api_version,
141: l_api_name,
142: G_PKG_NAME
141: l_api_name,
142: G_PKG_NAME
143: )
144: THEN
145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146: END IF;
147:
148: /*--------------------------------------------------------------+
149: | Initialize message list if p_init_msg_list is set to TRUE |
148: /*--------------------------------------------------------------+
149: | Initialize message list if p_init_msg_list is set to TRUE |
150: +--------------------------------------------------------------*/
151:
152: IF FND_API.to_Boolean( p_init_msg_list )
153: THEN
154: FND_MSG_PUB.initialize;
155: END IF;
156:
167: /*-----------------------------------------+
168: | Initialize return status to SUCCESS |
169: +-----------------------------------------*/
170:
171: x_return_status := FND_API.G_RET_STS_SUCCESS;
172:
173: l_org_id := p_org_id;
174: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
175: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
170:
171: x_return_status := FND_API.G_RET_STS_SUCCESS;
172:
173: l_org_id := p_org_id;
174: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
175: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
176: p_return_status =>l_org_return_status);
177: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
178: x_return_status := FND_API.G_RET_STS_ERROR;
173: l_org_id := p_org_id;
174: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
175: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
176: p_return_status =>l_org_return_status);
177: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
178: x_return_status := FND_API.G_RET_STS_ERROR;
179: END IF;
180:
181: /*---------------------------------------------+
174: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
175: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
176: p_return_status =>l_org_return_status);
177: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
178: x_return_status := FND_API.G_RET_STS_ERROR;
179: END IF;
180:
181: /*---------------------------------------------+
182: | ========== Start of API Body ========== |
284: arp_util.debug('Activity_application: ' || 'l_apply_date : '||to_char(l_apply_date,'DD-MON-YY'));
285: arp_util.debug('Activity_application: ' || 'l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
286: END IF;
287:
288: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
289: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
290: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
291: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
292:
285: arp_util.debug('Activity_application: ' || 'l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
286: END IF;
287:
288: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
289: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
290: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
291: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
292:
293: IF PG_DEBUG in ('Y', 'C') THEN
286: END IF;
287:
288: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
289: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
290: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
291: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
292:
293: IF PG_DEBUG in ('Y', 'C') THEN
294: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
287:
288: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
289: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
290: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
291: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
292:
293: IF PG_DEBUG in ('Y', 'C') THEN
294: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
295: END IF;
292:
293: IF PG_DEBUG in ('Y', 'C') THEN
294: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
295: END IF;
296: x_return_status := FND_API.G_RET_STS_ERROR;
297: END IF;
298:
299: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
300: THEN
295: END IF;
296: x_return_status := FND_API.G_RET_STS_ERROR;
297: END IF;
298:
299: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
300: THEN
301:
302: ROLLBACK TO Activity_app_PVT;
303:
300: THEN
301:
302: ROLLBACK TO Activity_app_PVT;
303:
304: x_return_status := FND_API.G_RET_STS_ERROR ;
305:
306: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
307: p_count => x_msg_count,
308: p_data => x_msg_data
302: ROLLBACK TO Activity_app_PVT;
303:
304: x_return_status := FND_API.G_RET_STS_ERROR ;
305:
306: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
307: p_count => x_msg_count,
308: p_data => x_msg_data
309: );
310:
389: THEN
390: ROLLBACK TO Activity_app_PVT;
391:
392: -- Display_Parameters;
393: x_return_status := FND_API.G_RET_STS_ERROR ;
394: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.CM_ACTIVITY_APPLICATION : '||SQLERRM);
396: FND_MSG_PUB.Add;
397:
394: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.CM_ACTIVITY_APPLICATION : '||SQLERRM);
396: FND_MSG_PUB.Add;
397:
398: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
399: p_count => x_msg_count,
400: p_data => x_msg_data
401: );
402: RETURN;
437: ,x_msg_count => x_msg_count
438: ,x_msg_data => x_msg_data );
439:
440: /* 6865230 */
441: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
442: THEN
443:
444: ROLLBACK TO Activity_app_PVT;
445:
442: THEN
443:
444: ROLLBACK TO Activity_app_PVT;
445:
446: x_return_status := FND_API.G_RET_STS_ERROR ;
447:
448: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
449: p_count => x_msg_count,
450: p_data => x_msg_data
444: ROLLBACK TO Activity_app_PVT;
445:
446: x_return_status := FND_API.G_RET_STS_ERROR ;
447:
448: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
449: p_count => x_msg_count,
450: p_data => x_msg_data
451: );
452:
472: THEN
473: ROLLBACK TO Activity_app_PVT;
474:
475: -- Display_Parameters;
476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
477: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
478: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_REFUNDS_PVT.Create_Refund : '||SQLERRM);
479: FND_MSG_PUB.Add;
480:
477: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
478: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_REFUNDS_PVT.Create_Refund : '||SQLERRM);
479: FND_MSG_PUB.Add;
480:
481: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
482: p_count => x_msg_count,
483: p_data => x_msg_data
484: );
485: RETURN;
497: /*--------------------------------+
498: | Standard check of p_commit |
499: +--------------------------------*/
500:
501: IF FND_API.To_Boolean( p_commit )
502: THEN
503: IF PG_DEBUG in ('Y', 'C') THEN
504: arp_util.debug('Activity_application: ' || 'committing');
505: END IF;
508: IF PG_DEBUG in ('Y', 'C') THEN
509: arp_util.debug('ar_cm_application_pub.Activity_application()- ');
510: END IF;
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513:
514: IF PG_DEBUG in ('Y', 'C') THEN
515: arp_util.debug('Activity_application: ' || SQLCODE, G_MSG_ERROR);
516: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
516: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
517: END IF;
518:
519: ROLLBACK TO Activity_app_PVT;
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521:
522: -- Display_Parameters;
523:
524: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521:
522: -- Display_Parameters;
523:
524: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
525: p_count => x_msg_count,
526: p_data => x_msg_data
527: );
528:
525: p_count => x_msg_count,
526: p_data => x_msg_data
527: );
528:
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530:
531: IF PG_DEBUG in ('Y', 'C') THEN
532: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
533: END IF;
531: IF PG_DEBUG in ('Y', 'C') THEN
532: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
533: END IF;
534: ROLLBACK TO Activity_app_PVT;
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536:
537: -- Display_Parameters;
538:
539: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536:
537: -- Display_Parameters;
538:
539: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
540: p_count => x_msg_count,
541: p_data => x_msg_data
542: );
543:
556:
557: --If only one error message on the stack,
558: --retrive it
559:
560: x_return_status := FND_API.G_RET_STS_ERROR ;
561: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
562: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_APPLICATION : '||SQLERRM);
563: FND_MSG_PUB.Add;
564:
564:
565: --If only one error message on the stack,
566: --retrive it
567:
568: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
569: p_count => x_msg_count,
570: p_data => x_msg_data
571: );
572:
572:
573: RETURN;
574:
575: ELSE
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
577: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
578: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_APPLICATION : '||SQLERRM);
579: FND_MSG_PUB.Add;
580: END IF;
594: END IF;
595:
596: -- Display_Parameters;
597:
598: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
599: p_count => x_msg_count,
600: p_data => x_msg_data
601: );
602: END Activity_application;
647: /*--------------------------------------------------+
648: | Standard call to check for call compatibility |
649: +--------------------------------------------------*/
650:
651: IF NOT FND_API.Compatible_API_Call(
652: l_api_version,
653: p_api_version,
654: l_api_name,
655: G_PKG_NAME
654: l_api_name,
655: G_PKG_NAME
656: )
657: THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660:
661: /*--------------------------------------------------------------+
662: | Initialize message list if p_init_msg_list is set to TRUE |
661: /*--------------------------------------------------------------+
662: | Initialize message list if p_init_msg_list is set to TRUE |
663: +--------------------------------------------------------------*/
664:
665: IF FND_API.to_Boolean( p_init_msg_list )
666: THEN
667: FND_MSG_PUB.initialize;
668: END IF;
669:
680: /*-----------------------------------------+
681: | Initialize return status to SUCCESS |
682: +-----------------------------------------*/
683:
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686: l_org_id := p_org_id;
687: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
688: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
683:
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686: l_org_id := p_org_id;
687: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
688: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
689: p_return_status =>l_org_return_status);
690: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
691: x_return_status := FND_API.G_RET_STS_ERROR;
686: l_org_id := p_org_id;
687: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
688: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
689: p_return_status =>l_org_return_status);
690: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: END IF;
693: /*---------------------------------------------+
694: | ========== Start of API Body ========== |
687: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
688: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
689: p_return_status =>l_org_return_status);
690: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: END IF;
693: /*---------------------------------------------+
694: | ========== Start of API Body ========== |
695: +---------------------------------------------*/
753: , x_msg_count => x_msg_count
754: , x_msg_data => x_msg_data);
755: END IF;
756:
757: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
758: l_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
759: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
760: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
754: , x_msg_data => x_msg_data);
755: END IF;
756:
757: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
758: l_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
759: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
760: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: END IF;
755: END IF;
756:
757: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
758: l_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
759: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
760: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: END IF;
763:
756:
757: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
758: l_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
759: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
760: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: END IF;
763:
764: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
757: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
758: l_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
759: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
760: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: END IF;
763:
764: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
765: THEN
760: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: END IF;
763:
764: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
765: THEN
766:
767: ROLLBACK TO Activity_unapplication_PVT;
768:
765: THEN
766:
767: ROLLBACK TO Activity_unapplication_PVT;
768:
769: x_return_status := FND_API.G_RET_STS_ERROR ;
770:
771: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
772: p_count => x_msg_count,
773: p_data => x_msg_data
767: ROLLBACK TO Activity_unapplication_PVT;
768:
769: x_return_status := FND_API.G_RET_STS_ERROR ;
770:
771: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
772: p_count => x_msg_count,
773: p_data => x_msg_data
774: );
775:
811: THEN
812: ROLLBACK TO Activity_unapplication_PVT;
813:
814: -- Display_Parameters;
815: x_return_status := FND_API.G_RET_STS_ERROR ;
816: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
817: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
818: FND_MSG_PUB.Add;
819:
816: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
817: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
818: FND_MSG_PUB.Add;
819:
820: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
821: p_count => x_msg_count,
822: p_data => x_msg_data
823: );
824: RETURN;
830: /*--------------------------------+
831: | Standard check of p_commit |
832: +--------------------------------*/
833:
834: IF FND_API.To_Boolean( p_commit )
835: THEN
836: IF PG_DEBUG in ('Y', 'C') THEN
837: arp_util.debug('Activity_Unapplication: ' || 'committing');
838: END IF;
844: END IF;
845:
846:
847: EXCEPTION
848: WHEN FND_API.G_EXC_ERROR THEN
849:
850: IF PG_DEBUG in ('Y', 'C') THEN
851: arp_util.debug('Activity_Unapplication: ' || SQLCODE, G_MSG_ERROR);
852: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
852: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
853: END IF;
854:
855: ROLLBACK TO Activity_unapplication_PVT;
856: x_return_status := FND_API.G_RET_STS_ERROR ;
857:
858: -- Display_Parameters;
859:
860: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
856: x_return_status := FND_API.G_RET_STS_ERROR ;
857:
858: -- Display_Parameters;
859:
860: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
861: p_count => x_msg_count,
862: p_data => x_msg_data
863: );
864:
861: p_count => x_msg_count,
862: p_data => x_msg_data
863: );
864:
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866:
867: IF PG_DEBUG in ('Y', 'C') THEN
868: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
869: END IF;
867: IF PG_DEBUG in ('Y', 'C') THEN
868: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
869: END IF;
870: ROLLBACK TO Activity_unapplication_PVT;
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
872:
873: -- Display_Parameters;
874:
875: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
872:
873: -- Display_Parameters;
874:
875: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
876: p_count => x_msg_count,
877: p_data => x_msg_data
878: );
879:
889: THEN
890:
891: ROLLBACK TO Activity_unapplication_PVT;
892:
893: x_return_status := FND_API.G_RET_STS_ERROR ;
894: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
895: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_UNAPPLICATION : '||SQLERRM);
896: FND_MSG_PUB.Add;
897:
896: FND_MSG_PUB.Add;
897:
898: --If only one error message on the stack,
899: --retrive it
900: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
901: p_count => x_msg_count,
902: p_data => x_msg_data
903: );
904:
904:
905: RETURN;
906:
907: ELSE
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
909: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
910: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_UNAPPLICATION : '||SQLERRM);
911: FND_MSG_PUB.Add;
912: END IF;
926: END IF;
927:
928: -- Display_Parameters;
929:
930: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
931: p_count => x_msg_count,
932: p_data => x_msg_data
933: );
934: END Activity_unapplication;