281: END IF;
282:
283: -- Initialize message list if p_init_msg_list is set to TRUE.
284: IF FND_API.to_Boolean( p_init_msg_list ) THEN
285: FND_MSG_PUB.initialize;
286: END IF;
287:
288: -- Initialize API return status to success
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
431:
432: cn_message_pkg.debug('Finish updating payment subledgers ');
433:
434: -- Standard call to get message count and if count is 1, get message info.
435: FND_MSG_PUB.Count_And_Get
436: ( p_count => x_msg_count ,
437: p_data => x_msg_data ,
438: p_encoded => FND_API.G_FALSE
439: );
442:
443: WHEN FND_API.G_EXC_ERROR THEN
444: ROLLBACK TO update_srp_subledger;
445: x_return_status := FND_API.G_RET_STS_ERROR ;
446: FND_MSG_PUB.Count_And_Get
447: (p_count => x_msg_count ,
448: p_data => x_msg_data ,
449: p_encoded => FND_API.G_FALSE
450: );
451:
452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
453: ROLLBACK TO update_srp_subledger;
454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
455: FND_MSG_PUB.Count_And_Get
456: (p_count => x_msg_count ,
457: p_data => x_msg_data ,
458: p_encoded => FND_API.G_FALSE
459: );
460:
461: WHEN OTHERS THEN
462: ROLLBACK TO update_srp_subledger;
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
464: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
465: THEN
466: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
467: END IF;
468: FND_MSG_PUB.Count_And_Get
462: ROLLBACK TO update_srp_subledger;
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
464: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
465: THEN
466: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
467: END IF;
468: FND_MSG_PUB.Count_And_Get
469: (p_count => x_msg_count ,
470: p_data => x_msg_data ,
464: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
465: THEN
466: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
467: END IF;
468: FND_MSG_PUB.Count_And_Get
469: (p_count => x_msg_count ,
470: p_data => x_msg_data ,
471: p_encoded => FND_API.G_FALSE
472: );
659: END IF;
660:
661: -- Initialize message list if p_init_msg_list is set to TRUE.
662: IF FND_API.to_Boolean( p_init_msg_list ) THEN
663: FND_MSG_PUB.initialize;
664: END IF;
665:
666: -- Initialize API return status to success
667: x_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
979:
980:
981: -- Standard call to get message count and if count is 1, get message info.
982: FND_MSG_PUB.Count_And_Get
983: ( p_count => x_msg_count ,
984: p_data => x_msg_data ,
985: p_encoded => FND_API.G_FALSE
986: );
989:
990: WHEN FND_API.G_EXC_ERROR THEN
991: ROLLBACK TO update_srp_pe_subledger;
992: x_return_status := FND_API.G_RET_STS_ERROR ;
993: FND_MSG_PUB.Count_And_Get
994: (p_count => x_msg_count ,
995: p_data => x_msg_data ,
996: p_encoded => FND_API.G_FALSE
997: );
998:
999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1000: ROLLBACK TO update_srp_pe_subledger;
1001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1002: FND_MSG_PUB.Count_And_Get
1003: (p_count => x_msg_count ,
1004: p_data => x_msg_data ,
1005: p_encoded => FND_API.G_FALSE
1006: );
1007:
1008: WHEN OTHERS THEN
1009: ROLLBACK TO update_srp_pe_subledger;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1012: THEN
1013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1014: END IF;
1015: FND_MSG_PUB.Count_And_Get
1009: ROLLBACK TO update_srp_pe_subledger;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1012: THEN
1013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1014: END IF;
1015: FND_MSG_PUB.Count_And_Get
1016: (p_count => x_msg_count ,
1017: p_data => x_msg_data ,
1011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1012: THEN
1013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1014: END IF;
1015: FND_MSG_PUB.Count_And_Get
1016: (p_count => x_msg_count ,
1017: p_data => x_msg_data ,
1018: p_encoded => FND_API.G_FALSE
1019: );