6: */
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_CM_API_PUB';
9:
10: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
11: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
12: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
13:
14: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_CM_API_PUB';
9:
10: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
11: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
12: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
13:
14: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
15:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_CM_API_PUB';
9:
10: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
11: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
12: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
13:
14: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
15:
16: PROCEDURE apply_on_account(
101: +--------------------------------------------------------------*/
102:
103: IF FND_API.to_Boolean( p_init_msg_list )
104: THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: /*-------------------------------------------------+
109: | Initialize SOB/org dependent variables |
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: END IF;
276:
277:
278: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
279: p_count => x_msg_count,
280: p_data => x_msg_data
281: );
282:
396: -- Display_Parameters;
397: x_return_status := FND_API.G_RET_STS_ERROR ;
398: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
399: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.CM_APPLICATION'||SQLERRM);
400: FND_MSG_PUB.Add;
401:
402: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
403: p_count => x_msg_count,
404: p_data => x_msg_data
398: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
399: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.CM_APPLICATION'||SQLERRM);
400: FND_MSG_PUB.Add;
401:
402: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
403: p_count => x_msg_count,
404: p_data => x_msg_data
405: );
406: RETURN;
443: x_return_status := FND_API.G_RET_STS_ERROR ;
444:
445: -- Display_Parameters;
446:
447: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
448: p_count => x_msg_count,
449: p_data => x_msg_data
450: );
451:
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
459:
460: -- Display_Parameters;
461:
462: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
463: p_count => x_msg_count,
464: p_data => x_msg_data
465: );
466:
481:
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
484: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
485: FND_MSG_PUB.Add;
486:
487: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
488: p_count => x_msg_count,
489: p_data => x_msg_data
483: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
484: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
485: FND_MSG_PUB.Add;
486:
487: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
488: p_count => x_msg_count,
489: p_data => x_msg_data
490: );
491:
494: ELSE
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
496: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
497: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
498: FND_MSG_PUB.Add;
499: END IF;
500:
501: IF PG_DEBUG in ('Y', 'C') THEN
502: arp_util.debug( SQLCODE, G_MSG_ERROR);
504: END IF;
505:
506: ROLLBACK TO Apply_CM;
507:
508: IF FND_MSG_PUB.Check_Msg_Level
509: THEN
510: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
511: l_api_name
512: );
506: ROLLBACK TO Apply_CM;
507:
508: IF FND_MSG_PUB.Check_Msg_Level
509: THEN
510: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
511: l_api_name
512: );
513: END IF;
514:
513: END IF;
514:
515: -- Display_Parameters;
516:
517: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
518: p_count => x_msg_count,
519: p_data => x_msg_data
520: );
521:
596: +--------------------------------------------------------------*/
597:
598: IF FND_API.to_Boolean( p_init_msg_list )
599: THEN
600: FND_MSG_PUB.initialize;
601: END IF;
602:
603:
604: original_cm_unapp_info.cm_trx_number := p_cm_unapp_rec.cm_trx_number;
702: ROLLBACK TO Unapply_CM;
703:
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705:
706: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
707: p_count => x_msg_count,
708: p_data => x_msg_data
709: );
710:
762: -- Display_Parameters;
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
765: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE_CM_APP : '||SQLERRM);
766: FND_MSG_PUB.Add;
767:
768: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
769: p_count => x_msg_count,
770: p_data => x_msg_data
764: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
765: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE_CM_APP : '||SQLERRM);
766: FND_MSG_PUB.Add;
767:
768: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
769: p_count => x_msg_count,
770: p_data => x_msg_data
771: );
772: RETURN;
803: x_return_status := FND_API.G_RET_STS_ERROR ;
804:
805: -- Display_Parameters;
806:
807: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
808: p_count => x_msg_count,
809: p_data => x_msg_data
810: );
811:
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
819:
820: -- Display_Parameters;
821:
822: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
823: p_count => x_msg_count,
824: p_data => x_msg_data
825: );
826:
839:
840: x_return_status := FND_API.G_RET_STS_ERROR ;
841: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
842: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY : '||SQLERRM);
843: FND_MSG_PUB.Add;
844:
845: --If only one error message on the stack,
846: --retrive it
847:
844:
845: --If only one error message on the stack,
846: --retrive it
847:
848: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
849: p_count => x_msg_count,
850: p_data => x_msg_data
851: );
852:
855: ELSE
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
857: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
858: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY : '||SQLERRM);
859: FND_MSG_PUB.Add;
860: END IF;
861:
862: IF PG_DEBUG in ('Y', 'C') THEN
863: arp_util.debug( SQLCODE, G_MSG_ERROR);
865: END IF;
866:
867: ROLLBACK TO Unapply_CM;
868:
869: IF FND_MSG_PUB.Check_Msg_Level
870: THEN
871: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
872: l_api_name
873: );
867: ROLLBACK TO Unapply_CM;
868:
869: IF FND_MSG_PUB.Check_Msg_Level
870: THEN
871: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
872: l_api_name
873: );
874: END IF;
875:
874: END IF;
875:
876: -- Display_Parameters;
877:
878: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
879: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
882: