220: | Initialize message list if l_init_msg_list is set to TRUE |
221: +--------------------------------------------------------------*/
222:
223: IF FND_API.to_Boolean( l_init_msg_list ) THEN
224: FND_MSG_PUB.initialize;
225: END IF;
226:
227: /*-----------------------------------------+
228: | Initialize return status to SUCCESS |
279: IF ( l_error_count > 0 ) THEN
280: ROLLBACK to Complete_Transaction;
281: x_return_status := FND_API.G_RET_STS_ERROR ;
282: FND_MESSAGE.Set_Name('AR', 'AR_TW_CANT_COMPLETE');
283: FND_MSG_PUB.Add;
284: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count ,
285: p_data => x_msg_data
286: );
287: return;
280: ROLLBACK to Complete_Transaction;
281: x_return_status := FND_API.G_RET_STS_ERROR ;
282: FND_MESSAGE.Set_Name('AR', 'AR_TW_CANT_COMPLETE');
283: FND_MSG_PUB.Add;
284: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count ,
285: p_data => x_msg_data
286: );
287: return;
288: END IF;
310: ELSIF l_unique_seq_number = 'A' THEN
311: ROLLBACK to Complete_Transaction;
312: x_return_status := FND_API.G_RET_STS_ERROR ;
313: FND_MESSAGE.Set_Name('FND', 'UNIQUE-ALWAYS USED');
314: FND_MSG_PUB.Add;
315: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
316: p_data => x_msg_data
317: );
318: return;
311: ROLLBACK to Complete_Transaction;
312: x_return_status := FND_API.G_RET_STS_ERROR ;
313: FND_MESSAGE.Set_Name('FND', 'UNIQUE-ALWAYS USED');
314: FND_MSG_PUB.Add;
315: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
316: p_data => x_msg_data
317: );
318: return;
319: END IF;
374:
375: /*-----------------------------------------------------------------------+
376: | Standard call to get message count and if count is 1, get message info |
377: +------------------------------------------------------------------------*/
378: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count ,
379: p_data => x_msg_data
380: );
381:
382:
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: ROLLBACK TO Complete_Transaction;
390: x_return_status := FND_API.G_RET_STS_ERROR ;
391: FND_MSG_PUB.Count_And_Get (
392: p_count => x_msg_count ,
393: p_data => x_msg_data
394: );
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
394: );
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO Complete_Transaction;
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
398: FND_MSG_PUB.Count_And_Get (
399: p_count => x_msg_count ,
400: p_data => x_msg_data
401: );
402: WHEN OTHERS THEN
401: );
402: WHEN OTHERS THEN
403: ROLLBACK TO Complete_Transaction;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
406: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
407: l_api_name
408: );
409: END IF;
402: WHEN OTHERS THEN
403: ROLLBACK TO Complete_Transaction;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
406: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
407: l_api_name
408: );
409: END IF;
410:
407: l_api_name
408: );
409: END IF;
410:
411: FND_MSG_PUB.Count_And_Get (
412: p_count => x_msg_count,
413: p_data => x_msg_data
414: );
415:
525: | Initialize message list if l_init_msg_list is set to TRUE |
526: +--------------------------------------------------------------*/
527:
528: IF FND_API.to_Boolean( l_init_msg_list ) THEN
529: FND_MSG_PUB.initialize;
530: END IF;
531:
532: /*-----------------------------------------+
533: | Initialize return status to SUCCESS |
576: IF (l_posted_flag = 'Y') THEN
577: ROLLBACK to Incomplete_Transaction;
578: x_return_status := FND_API.G_RET_STS_ERROR ;
579: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
580: FND_MSG_PUB.Add;
581: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
582: p_data => x_msg_data
583: );
584: return;
577: ROLLBACK to Incomplete_Transaction;
578: x_return_status := FND_API.G_RET_STS_ERROR ;
579: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
580: FND_MSG_PUB.Add;
581: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
582: p_data => x_msg_data
583: );
584: return;
585: END IF;
599: IF (l_activity_flag = 'Y') THEN
600: ROLLBACK to Incomplete_Transaction;
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: FND_MESSAGE.Set_Name('AR', 'AR_TW_NO_RECREATE_PS');
603: FND_MSG_PUB.Add;
604: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
605: p_data => x_msg_data
606: );
607: return;
600: ROLLBACK to Incomplete_Transaction;
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: FND_MESSAGE.Set_Name('AR', 'AR_TW_NO_RECREATE_PS');
603: FND_MSG_PUB.Add;
604: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
605: p_data => x_msg_data
606: );
607: return;
608: ELSIF (l_activity_flag = 'G') THEN
608: ELSIF (l_activity_flag = 'G') THEN
609: ROLLBACK to Incomplete_Transaction;
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
612: FND_MSG_PUB.Add;
613: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
614: p_data => x_msg_data
615: );
616: return;
609: ROLLBACK to Incomplete_Transaction;
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
612: FND_MSG_PUB.Add;
613: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
614: p_data => x_msg_data
615: );
616: return;
617: END IF;
622: IF ( l_trx_rec.created_from IN ('ARXREV', 'REL9_ARXREV') ) THEN
623: ROLLBACK to Incomplete_Transaction;
624: x_return_status := FND_API.G_RET_STS_ERROR ;
625: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_DM_REV');
626: FND_MSG_PUB.Add;
627: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
628: p_data => x_msg_data
629: );
630: return;
623: ROLLBACK to Incomplete_Transaction;
624: x_return_status := FND_API.G_RET_STS_ERROR ;
625: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_DM_REV');
626: FND_MSG_PUB.Add;
627: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
628: p_data => x_msg_data
629: );
630: return;
631: END IF;
633: IF ( l_trx_type_rec.type = 'CB' ) THEN
634: ROLLBACK to Incomplete_Transaction;
635: x_return_status := FND_API.G_RET_STS_ERROR ;
636: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_CB');
637: FND_MSG_PUB.Add;
638: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
639: p_data => x_msg_data
640: );
641: return;
634: ROLLBACK to Incomplete_Transaction;
635: x_return_status := FND_API.G_RET_STS_ERROR ;
636: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_CB');
637: FND_MSG_PUB.Add;
638: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
639: p_data => x_msg_data
640: );
641: return;
642: END IF;
676:
677: /*-----------------------------------------------------------------------+
678: | Standard call to get message count and if count is 1, get message info |
679: +------------------------------------------------------------------------*/
680: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
681: p_data => x_msg_data
682: );
683:
684:
689: EXCEPTION
690: WHEN FND_API.G_EXC_ERROR THEN
691: ROLLBACK TO Incomplete_Transaction;
692: x_return_status := FND_API.G_RET_STS_ERROR ;
693: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
694: p_data => x_msg_data
695: );
696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
697: ROLLBACK TO Incomplete_Transaction;
695: );
696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
697: ROLLBACK TO Incomplete_Transaction;
698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
699: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
700: p_data => x_msg_data
701: );
702: WHEN OTHERS THEN
703: ROLLBACK TO Incomplete_Transaction;
701: );
702: WHEN OTHERS THEN
703: ROLLBACK TO Incomplete_Transaction;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
706: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
707: l_api_name
708: );
709: END IF;
702: WHEN OTHERS THEN
703: ROLLBACK TO Incomplete_Transaction;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
706: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
707: l_api_name
708: );
709: END IF;
710:
707: l_api_name
708: );
709: END IF;
710:
711: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
712: p_data => x_msg_data
713: );
714:
715: END INCOMPLETE_TRANSACTION;