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;
315: ELSIF l_unique_seq_number = 'A' THEN
316: ROLLBACK to Complete_Transaction;
317: x_return_status := FND_API.G_RET_STS_ERROR ;
318: FND_MESSAGE.Set_Name('FND', 'UNIQUE-ALWAYS USED');
319: FND_MSG_PUB.Add;
320: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
321: p_data => x_msg_data
322: );
323: return;
316: ROLLBACK to Complete_Transaction;
317: x_return_status := FND_API.G_RET_STS_ERROR ;
318: FND_MESSAGE.Set_Name('FND', 'UNIQUE-ALWAYS USED');
319: FND_MSG_PUB.Add;
320: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
321: p_data => x_msg_data
322: );
323: return;
324: END IF;
379:
380: /*-----------------------------------------------------------------------+
381: | Standard call to get message count and if count is 1, get message info |
382: +------------------------------------------------------------------------*/
383: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count ,
384: p_data => x_msg_data
385: );
386:
387:
392: EXCEPTION
393: WHEN FND_API.G_EXC_ERROR THEN
394: ROLLBACK TO Complete_Transaction;
395: x_return_status := FND_API.G_RET_STS_ERROR ;
396: FND_MSG_PUB.Count_And_Get (
397: p_count => x_msg_count ,
398: p_data => x_msg_data
399: );
400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: );
400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
401: ROLLBACK TO Complete_Transaction;
402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
403: FND_MSG_PUB.Count_And_Get (
404: p_count => x_msg_count ,
405: p_data => x_msg_data
406: );
407: WHEN OTHERS THEN
406: );
407: WHEN OTHERS THEN
408: ROLLBACK TO Complete_Transaction;
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
410: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
411: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
412: l_api_name
413: );
414: END IF;
407: WHEN OTHERS THEN
408: ROLLBACK TO Complete_Transaction;
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
410: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
411: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
412: l_api_name
413: );
414: END IF;
415:
412: l_api_name
413: );
414: END IF;
415:
416: FND_MSG_PUB.Count_And_Get (
417: p_count => x_msg_count,
418: p_data => x_msg_data
419: );
420:
530: | Initialize message list if l_init_msg_list is set to TRUE |
531: +--------------------------------------------------------------*/
532:
533: IF FND_API.to_Boolean( l_init_msg_list ) THEN
534: FND_MSG_PUB.initialize;
535: END IF;
536:
537: /*-----------------------------------------+
538: | Initialize return status to SUCCESS |
581: IF (l_posted_flag = 'Y') THEN
582: ROLLBACK to Incomplete_Transaction;
583: x_return_status := FND_API.G_RET_STS_ERROR ;
584: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
585: FND_MSG_PUB.Add;
586: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
587: p_data => x_msg_data
588: );
589: return;
582: ROLLBACK to Incomplete_Transaction;
583: x_return_status := FND_API.G_RET_STS_ERROR ;
584: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
585: FND_MSG_PUB.Add;
586: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
587: p_data => x_msg_data
588: );
589: return;
590: END IF;
604: IF (l_activity_flag = 'Y') THEN
605: ROLLBACK to Incomplete_Transaction;
606: x_return_status := FND_API.G_RET_STS_ERROR ;
607: FND_MESSAGE.Set_Name('AR', 'AR_TW_NO_RECREATE_PS');
608: FND_MSG_PUB.Add;
609: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
610: p_data => x_msg_data
611: );
612: return;
605: ROLLBACK to Incomplete_Transaction;
606: x_return_status := FND_API.G_RET_STS_ERROR ;
607: FND_MESSAGE.Set_Name('AR', 'AR_TW_NO_RECREATE_PS');
608: FND_MSG_PUB.Add;
609: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
610: p_data => x_msg_data
611: );
612: return;
613: ELSIF (l_activity_flag = 'G') THEN
613: ELSIF (l_activity_flag = 'G') THEN
614: ROLLBACK to Incomplete_Transaction;
615: x_return_status := FND_API.G_RET_STS_ERROR ;
616: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
617: FND_MSG_PUB.Add;
618: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
619: p_data => x_msg_data
620: );
621: return;
614: ROLLBACK to Incomplete_Transaction;
615: x_return_status := FND_API.G_RET_STS_ERROR ;
616: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_POSTED');
617: FND_MSG_PUB.Add;
618: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
619: p_data => x_msg_data
620: );
621: return;
622: END IF;
627: IF ( l_trx_rec.created_from IN ('ARXREV', 'REL9_ARXREV') ) THEN
628: ROLLBACK to Incomplete_Transaction;
629: x_return_status := FND_API.G_RET_STS_ERROR ;
630: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_DM_REV');
631: FND_MSG_PUB.Add;
632: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
633: p_data => x_msg_data
634: );
635: return;
628: ROLLBACK to Incomplete_Transaction;
629: x_return_status := FND_API.G_RET_STS_ERROR ;
630: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_DM_REV');
631: FND_MSG_PUB.Add;
632: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
633: p_data => x_msg_data
634: );
635: return;
636: END IF;
638: IF ( l_trx_type_rec.type = 'CB' ) THEN
639: ROLLBACK to Incomplete_Transaction;
640: x_return_status := FND_API.G_RET_STS_ERROR ;
641: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_CB');
642: FND_MSG_PUB.Add;
643: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
644: p_data => x_msg_data
645: );
646: return;
639: ROLLBACK to Incomplete_Transaction;
640: x_return_status := FND_API.G_RET_STS_ERROR ;
641: FND_MESSAGE.Set_Name('AR', 'AR_TAPI_CANT_UPDATE_CB');
642: FND_MSG_PUB.Add;
643: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
644: p_data => x_msg_data
645: );
646: return;
647: END IF;
681:
682: /*-----------------------------------------------------------------------+
683: | Standard call to get message count and if count is 1, get message info |
684: +------------------------------------------------------------------------*/
685: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
686: p_data => x_msg_data
687: );
688:
689:
694: EXCEPTION
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO Incomplete_Transaction;
697: x_return_status := FND_API.G_RET_STS_ERROR ;
698: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
699: p_data => x_msg_data
700: );
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO Incomplete_Transaction;
700: );
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO Incomplete_Transaction;
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
705: p_data => x_msg_data
706: );
707: WHEN OTHERS THEN
708: ROLLBACK TO Incomplete_Transaction;
706: );
707: WHEN OTHERS THEN
708: ROLLBACK TO Incomplete_Transaction;
709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
710: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
711: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
712: l_api_name
713: );
714: END IF;
707: WHEN OTHERS THEN
708: ROLLBACK TO Incomplete_Transaction;
709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
710: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
711: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
712: l_api_name
713: );
714: END IF;
715:
712: l_api_name
713: );
714: END IF;
715:
716: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
717: p_data => x_msg_data
718: );
719:
720: END INCOMPLETE_TRANSACTION;