[Home] [Help]
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
422: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
423: END IF;
424: -- Standard call to get message count and if count=1, get the message
425: FND_MSG_PUB.Count_And_Get (
426: p_encoded => FND_API.G_FALSE
427: ,p_count => x_msg_count
428: ,p_data => x_msg_data
3308:
3309: BEGIN
3310: -- call AME api to get the next
3311: SAVEPOINT submit_enrl_req_for_approval;
3312: -- Standard call to check for call compatibility.
3313: IF NOT FND_API.Compatible_API_Call
3314: ( l_api_version_number
3315: , p_api_version_number
3316: , l_api_name
4011:
4012: WHEN FND_API.G_EXC_ERROR THEN
4013: ROLLBACK TO submit_enrl_req_for_approval;
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: -- Standard call to get message count and if count=1, get the message
4016: FND_MSG_PUB.Count_And_Get (
4017: p_encoded => FND_API.G_FALSE
4018: ,p_count => x_msg_count
4019: ,p_data => x_msg_data
4021: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4023: ROLLBACK TO submit_enrl_req_for_approval;
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025: -- Standard call to get message count and if count=1, get the message
4026: FND_MSG_PUB.Count_And_Get (
4027: p_encoded => FND_API.G_FALSE
4028: ,p_count => x_msg_count
4029: ,p_data => x_msg_data
4035: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4036: THEN
4037: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4038: END IF;
4039: -- Standard call to get message count and if count=1, get the message
4040: FND_MSG_PUB.Count_And_Get (
4041: p_encoded => FND_API.G_FALSE
4042: ,p_count => x_msg_count
4043: ,p_data => x_msg_data
4131:
4132: BEGIN
4133: -- call AME api to get the next approver
4134: SAVEPOINT update_enrl_req_status;
4135: -- Standard call to check for call compatibility.
4136: IF NOT FND_API.Compatible_API_Call
4137: ( l_api_version_number
4138: , p_api_version_number
4139: , l_api_name
4498: EXCEPTION
4499: WHEN FND_API.G_EXC_ERROR THEN
4500: ROLLBACK TO update_enrl_req_status;
4501: x_return_status := FND_API.G_RET_STS_ERROR;
4502: -- Standard call to get message count and if count=1, get the message
4503: FND_MSG_PUB.Count_And_Get
4504: ( p_encoded => FND_API.G_FALSE
4505: , p_count => x_msg_count
4506: , p_data => x_msg_data
4508: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4510: ROLLBACK TO update_enrl_req_status;
4511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4512: -- Standard call to get message count and if count=1, get the message
4513: FND_MSG_PUB.Count_And_Get
4514: ( p_encoded => FND_API.G_FALSE
4515: , p_count => x_msg_count
4516: , p_data => x_msg_data
4520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4521: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4522: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4523: END IF;
4524: -- Standard call to get message count and if count=1, get the message
4525: FND_MSG_PUB.Count_And_Get
4526: ( p_encoded => FND_API.G_FALSE
4527: , p_count => x_msg_count
4528: , p_data => x_msg_data
4565: l_msg_count NUMBER;
4566: l_msg_data VARCHAR2(240);
4567:
4568: BEGIN
4569: /* Standard Start of API savepoint */
4570: SAVEPOINT Process_errored_requests;
4571: /* Logic to update the membership status to EXPIRE for all the EXPIRED members */
4572: FOR l_get_errored_requests_rec IN c_get_errored_requests LOOP
4573: l_enrl_request_id := l_get_errored_requests_rec.appr_for_entity_id;
4675:
4676:
4677: BEGIN
4678: SAVEPOINT terminate_downgrade_memb;
4679: -- Standard call to check for call compatibility.
4680: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
4681: ,p_api_version_number
4682: ,l_api_name
4683: ,G_PKG_NAME
4892: RAISE FND_API.G_EXC_ERROR;
4893: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: -- Standard check for p_commit
4897: IF FND_API.to_Boolean( p_commit ) THEN
4898: COMMIT WORK;
4899: END IF;
4900:
4905: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4906: END IF;
4907:
4908:
4909: -- Standard call to get message count and if count is 1, get message info.
4910: FND_MSG_PUB.Count_And_Get
4911: ( p_count => x_msg_count
4912: ,p_data => x_msg_data
4913: );
4920:
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: ROLLBACK TO terminate_downgrade_memb;
4923: x_return_status := FND_API.G_RET_STS_ERROR;
4924: -- Standard call to get message count and if count=1, get the message
4925: FND_MSG_PUB.Count_And_Get (
4926: p_encoded => FND_API.G_FALSE,
4927: p_count => x_msg_count,
4928: p_data => x_msg_data
4930:
4931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4932: ROLLBACK TO terminate_downgrade_memb;
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: -- Standard call to get message count and if count=1, get the message
4935: FND_MSG_PUB.Count_And_Get (
4936: p_encoded => FND_API.G_FALSE,
4937: p_count => x_msg_count,
4938: p_data => x_msg_data
4944: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4945: THEN
4946: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4947: END IF;
4948: -- Standard call to get message count and if count=1, get the message
4949: FND_MSG_PUB.Count_And_Get (
4950: p_encoded => FND_API.G_FALSE,
4951: p_count => x_msg_count,
4952: p_data => x_msg_data
5010: WHERE program_id=prgm_id;
5011:
5012: BEGIN
5013: SAVEPOINT Create_Default_Membership;
5014: -- Standard call to check for call compatibility.
5015: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
5016: ,p_api_version_number
5017: ,l_api_name
5018: ,G_PKG_NAME
5185: END IF;
5186: END IF;
5187:
5188: END IF;
5189: -- Standard check for p_commit
5190: IF FND_API.to_Boolean( p_commit ) THEN
5191: COMMIT WORK;
5192: END IF;
5193:
5196:
5197: WHEN FND_API.G_EXC_ERROR THEN
5198: ROLLBACK TO Create_Default_Membership;
5199: x_return_status := FND_API.G_RET_STS_ERROR;
5200: -- Standard call to get message count and if count=1, get the message
5201: FND_MSG_PUB.Count_And_Get (
5202: p_encoded => FND_API.G_FALSE,
5203: p_count => x_msg_count,
5204: p_data => x_msg_data
5206:
5207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5208: ROLLBACK TO Create_Default_Membership;
5209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: -- Standard call to get message count and if count=1, get the message
5211: FND_MSG_PUB.Count_And_Get (
5212: p_encoded => FND_API.G_FALSE,
5213: p_count => x_msg_count,
5214: p_data => x_msg_data
5220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5221: THEN
5222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5223: END IF;
5224: -- Standard call to get message count and if count=1, get the message
5225: FND_MSG_PUB.Count_And_Get (
5226: p_encoded => FND_API.G_FALSE,
5227: p_count => x_msg_count,
5228: p_data => x_msg_data
5291: AND subs_prof.partner_id=p_subs_partner_id
5292: AND rel.object_id=global_prof.partner_party_id;
5293:
5294: BEGIN
5295: -- Standard Start of API savepoint
5296: SAVEPOINT send_notifications ;
5297: -- Standard call to check for call compatibility.
5298: IF NOT FND_API.Compatible_API_Call
5299: ( l_api_version_number
5293:
5294: BEGIN
5295: -- Standard Start of API savepoint
5296: SAVEPOINT send_notifications ;
5297: -- Standard call to check for call compatibility.
5298: IF NOT FND_API.Compatible_API_Call
5299: ( l_api_version_number
5300: ,p_api_version_number
5301: ,l_api_name
5442: END IF;
5443: END IF;
5444: -- Debug Message
5445: PVX_UTILITY_PVT.debug_message( 'Private API: ' || l_api_name || 'end' );
5446: -- Standard call to get message count and if count is 1, get message info.
5447: FND_MSG_PUB.Count_And_Get
5448: (
5449: p_count => x_msg_count
5450: , p_data => x_msg_data
5456: EXCEPTION
5457: WHEN FND_API.G_EXC_ERROR THEN
5458: ROLLBACK TO send_notifications;
5459: x_return_status := FND_API.G_RET_STS_ERROR;
5460: -- Standard call to get message count and if count=1, get the message
5461: FND_MSG_PUB.Count_And_Get (
5462: p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data
5466:
5467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5468: ROLLBACK TO send_notifications;
5469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5470: -- Standard call to get message count and if count=1, get the message
5471: FND_MSG_PUB.Count_And_Get (
5472: p_encoded => FND_API.G_FALSE,
5473: p_count => x_msg_count,
5474: p_data => x_msg_data
5480: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5481: THEN
5482: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5483: END IF;
5484: -- Standard call to get message count and if count=1, get the message
5485: FND_MSG_PUB.Count_And_Get (
5486: p_encoded => FND_API.G_FALSE,
5487: p_count => x_msg_count,
5488: p_data => x_msg_data