[Home] [Help]
63: AND ENABLED_FLAG = 'Y'
64: AND ATTR_CODE =attr_cd;
65:
66: BEGIN
67: x_return_status := FND_API.g_ret_sts_success;
68: OPEN memb_csr( p_member_type );
69: FETCH memb_csr INTO l_value;
70: CLOSE memb_csr;
71: IF l_value IS NULL THEN
68: OPEN memb_csr( p_member_type );
69: FETCH memb_csr INTO l_value;
70: CLOSE memb_csr;
71: IF l_value IS NULL THEN
72: x_return_status := FND_API.g_ret_sts_error;
73: FND_MESSAGE.set_name('PV', 'PV_INVALID_MEMBER_TYPE');
74: FND_MESSAGE.set_token('MEMBER_TYPE',p_member_type );
75: FND_MSG_PUB.add;
76: END IF;
84: )
85: IS
86: l_lookup_exists VARCHAR2(1);
87: BEGIN
88: x_return_status := FND_API.g_ret_sts_success;
89: --validate lookup
90: l_lookup_exists := PVX_UTILITY_PVT.check_lookup_exists
91: ( p_lookup_table_name => 'PV_LOOKUPS'
92: ,p_lookup_type => p_lookup_type
91: ( p_lookup_table_name => 'PV_LOOKUPS'
92: ,p_lookup_type => p_lookup_type
93: ,p_lookup_code => p_lookup_code
94: );
95: IF NOT FND_API.to_boolean(l_lookup_exists) THEN
96: x_return_status := FND_API.g_ret_sts_error;
97: FND_MESSAGE.set_name('PV', 'PV_INVALID_LOOKUP_CODE');
98: FND_MESSAGE.set_token('LOOKUP_TYPE',p_lookup_type );
99: FND_MESSAGE.set_token('LOOKUP_CODE', p_lookup_code );
92: ,p_lookup_type => p_lookup_type
93: ,p_lookup_code => p_lookup_code
94: );
95: IF NOT FND_API.to_boolean(l_lookup_exists) THEN
96: x_return_status := FND_API.g_ret_sts_error;
97: FND_MESSAGE.set_name('PV', 'PV_INVALID_LOOKUP_CODE');
98: FND_MESSAGE.set_token('LOOKUP_TYPE',p_lookup_type );
99: FND_MESSAGE.set_token('LOOKUP_CODE', p_lookup_code );
100: FND_MSG_PUB.add;
124: -- Parameters
125: --
126: -- IN
127: -- p_api_version_number IN NUMBER Required
128: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
129: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
130: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
131: -- p_memb_rec IN memb_rec_type Required
132: --
125: --
126: -- IN
127: -- p_api_version_number IN NUMBER Required
128: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
129: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
130: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
131: -- p_memb_rec IN memb_rec_type Required
132: --
133: -- OUT
126: -- IN
127: -- p_api_version_number IN NUMBER Required
128: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
129: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
130: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
131: -- p_memb_rec IN memb_rec_type Required
132: --
133: -- OUT
134: -- x_return_status OUT VARCHAR2
146: -- ==============================================================================
147:
148: PROCEDURE Create_Pg_Memberships(
149: p_api_version_number IN NUMBER,
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153:
154: x_return_status OUT NOCOPY VARCHAR2,
147:
148: PROCEDURE Create_Pg_Memberships(
149: p_api_version_number IN NUMBER,
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153:
154: x_return_status OUT NOCOPY VARCHAR2,
155: x_msg_count OUT NOCOPY NUMBER,
148: PROCEDURE Create_Pg_Memberships(
149: p_api_version_number IN NUMBER,
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153:
154: x_return_status OUT NOCOPY VARCHAR2,
155: x_msg_count OUT NOCOPY NUMBER,
156: x_msg_data OUT NOCOPY VARCHAR2,
179: -- Standard Start of API savepoint
180: SAVEPOINT create_pg_memberships_pvt;
181:
182: -- Standard call to check for call compatibility.
183: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
184: p_api_version_number,
185: l_api_name,
186: G_PKG_NAME)
187: THEN
184: p_api_version_number,
185: l_api_name,
186: G_PKG_NAME)
187: THEN
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191:
192: -- Initialize message list if p_init_msg_list is set to TRUE.
189: END IF;
190:
191:
192: -- Initialize message list if p_init_msg_list is set to TRUE.
193: IF FND_API.to_Boolean( p_init_msg_list )
194: THEN
195: FND_MSG_PUB.initialize;
196: END IF;
197:
205:
206:
207:
208: -- Initialize API return status to SUCCESS
209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210:
211: -- =========================================================================
212: -- Validate Environment
213: -- =========================================================================
214:
215: IF FND_GLOBAL.USER_ID IS NULL
216: THEN
217: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
218: RAISE FND_API.G_EXC_ERROR;
219: END IF;
220:
221:
222:
219: END IF;
220:
221:
222:
223: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
224: THEN
225: -- Debug message
226: -- Debug Message
227: IF (PV_DEBUG_HIGH_ON) THEN
231:
232: -- Invoke validation procedures
233: Validate_pg_memberships(
234: p_api_version_number => 1.0,
235: p_init_msg_list => FND_API.G_FALSE,
236: p_validation_level => p_validation_level,
237: p_validation_mode => JTF_PLSQL_API.g_create,
238: p_memb_rec => p_memb_rec,
239: x_return_status => x_return_status,
240: x_msg_count => x_msg_count,
241: x_msg_data => x_msg_data);
242: END IF;
243:
244: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
245: RAISE FND_API.G_EXC_ERROR;
246: END IF;
247:
248: -- Local variable initialization
241: x_msg_data => x_msg_data);
242: END IF;
243:
244: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
245: RAISE FND_API.G_EXC_ERROR;
246: END IF;
247:
248: -- Local variable initialization
249:
246: END IF;
247:
248: -- Local variable initialization
249:
250: IF p_memb_rec.membership_id IS NULL OR p_memb_rec.membership_id = FND_API.g_miss_num THEN
251: LOOP
252: l_dummy := NULL;
253: OPEN c_id;
254: FETCH c_id INTO l_membership_id;
301: p_attribute15 => p_memb_rec.attribute15
302: );
303:
304: x_membership_id := l_membership_id;
305: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: --
309: -- End of API body
302: );
303:
304: x_membership_id := l_membership_id;
305: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: --
309: -- End of API body
310: --
309: -- End of API body
310: --
311:
312: -- Standard check for p_commit
313: IF FND_API.to_Boolean( p_commit )
314: THEN
315: COMMIT WORK;
316: END IF;
317:
330: );
331: EXCEPTION
332:
333: WHEN PVX_UTILITY_PVT.resource_locked THEN
334: x_return_status := FND_API.g_ret_sts_error;
335: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
336:
337: WHEN FND_API.G_EXC_ERROR THEN
338: ROLLBACK TO CREATE_Pg_Memberships_PVT;
333: WHEN PVX_UTILITY_PVT.resource_locked THEN
334: x_return_status := FND_API.g_ret_sts_error;
335: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
336:
337: WHEN FND_API.G_EXC_ERROR THEN
338: ROLLBACK TO CREATE_Pg_Memberships_PVT;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: -- Standard call to get message count and if count=1, get the message
341: FND_MSG_PUB.Count_And_Get (
335: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
336:
337: WHEN FND_API.G_EXC_ERROR THEN
338: ROLLBACK TO CREATE_Pg_Memberships_PVT;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: -- Standard call to get message count and if count=1, get the message
341: FND_MSG_PUB.Count_And_Get (
342: p_encoded => FND_API.G_FALSE,
343: p_count => x_msg_count,
338: ROLLBACK TO CREATE_Pg_Memberships_PVT;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: -- Standard call to get message count and if count=1, get the message
341: FND_MSG_PUB.Count_And_Get (
342: p_encoded => FND_API.G_FALSE,
343: p_count => x_msg_count,
344: p_data => x_msg_data
345: );
346:
343: p_count => x_msg_count,
344: p_data => x_msg_data
345: );
346:
347: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
348: ROLLBACK TO CREATE_Pg_Memberships_PVT;
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: -- Standard call to get message count and if count=1, get the message
351: FND_MSG_PUB.Count_And_Get (
345: );
346:
347: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
348: ROLLBACK TO CREATE_Pg_Memberships_PVT;
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: -- Standard call to get message count and if count=1, get the message
351: FND_MSG_PUB.Count_And_Get (
352: p_encoded => FND_API.G_FALSE,
353: p_count => x_msg_count,
348: ROLLBACK TO CREATE_Pg_Memberships_PVT;
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: -- Standard call to get message count and if count=1, get the message
351: FND_MSG_PUB.Count_And_Get (
352: p_encoded => FND_API.G_FALSE,
353: p_count => x_msg_count,
354: p_data => x_msg_data
355: );
356:
355: );
356:
357: WHEN OTHERS THEN
358: ROLLBACK TO CREATE_Pg_Memberships_PVT;
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
361: THEN
362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
363: END IF;
362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
363: END IF;
364: -- Standard call to get message count and if count=1, get the message
365: FND_MSG_PUB.Count_And_Get (
366: p_encoded => FND_API.G_FALSE,
367: p_count => x_msg_count,
368: p_data => x_msg_data
369: );
370: End Create_Pg_Memberships;
382: -- Parameters
383: --
384: -- IN
385: -- p_api_version_number IN NUMBER Required
386: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
387: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
388: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
389: -- p_memb_rec IN memb_rec_type Required
390: --
383: --
384: -- IN
385: -- p_api_version_number IN NUMBER Required
386: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
387: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
388: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
389: -- p_memb_rec IN memb_rec_type Required
390: --
391: -- OUT
384: -- IN
385: -- p_api_version_number IN NUMBER Required
386: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
387: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
388: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
389: -- p_memb_rec IN memb_rec_type Required
390: --
391: -- OUT
392: -- x_return_status OUT VARCHAR2
404: -- ==============================================================================
405:
406: PROCEDURE Update_Pg_Memberships(
407: p_api_version_number IN NUMBER,
408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
409: p_commit IN VARCHAR2 := FND_API.G_FALSE,
410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
411:
412: x_return_status OUT NOCOPY VARCHAR2,
405:
406: PROCEDURE Update_Pg_Memberships(
407: p_api_version_number IN NUMBER,
408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
409: p_commit IN VARCHAR2 := FND_API.G_FALSE,
410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
411:
412: x_return_status OUT NOCOPY VARCHAR2,
413: x_msg_count OUT NOCOPY NUMBER,
406: PROCEDURE Update_Pg_Memberships(
407: p_api_version_number IN NUMBER,
408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
409: p_commit IN VARCHAR2 := FND_API.G_FALSE,
410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
411:
412: x_return_status OUT NOCOPY VARCHAR2,
413: x_msg_count OUT NOCOPY NUMBER,
414: x_msg_data OUT NOCOPY VARCHAR2,
439: -- Standard Start of API savepoint
440: SAVEPOINT update_pg_memberships_pvt;
441:
442: -- Standard call to check for call compatibility.
443: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
444: p_api_version_number,
445: l_api_name,
446: G_PKG_NAME)
447: THEN
444: p_api_version_number,
445: l_api_name,
446: G_PKG_NAME)
447: THEN
448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
449: END IF;
450:
451:
452: -- Initialize message list if p_init_msg_list is set to TRUE.
449: END IF;
450:
451:
452: -- Initialize message list if p_init_msg_list is set to TRUE.
453: IF FND_API.to_Boolean( p_init_msg_list )
454: THEN
455: FND_MSG_PUB.initialize;
456: END IF;
457:
465: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
466: END IF;
467:
468: -- Initialize API return status to SUCCESS
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
470:
471: -- Debug Message
472: IF (PV_DEBUG_HIGH_ON) THEN
473: PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
482: If ( c_get_Pg_Memberships%NOTFOUND) THEN
483: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
484: p_token_name => 'INFO',
485: p_token_value => 'Pg_Memberships') ;
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488: -- Debug Message
489:
490: CLOSE c_get_Pg_Memberships;
490: CLOSE c_get_Pg_Memberships;
491:
492:
493: If (l_tar_memb_rec.object_version_number is NULL or
494: l_tar_memb_rec.object_version_number = FND_API.G_MISS_NUM ) Then
495: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
496: p_token_name => 'COLUMN',
497: p_token_value => 'Last_Update_Date') ;
498: raise FND_API.G_EXC_ERROR;
494: l_tar_memb_rec.object_version_number = FND_API.G_MISS_NUM ) Then
495: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
496: p_token_name => 'COLUMN',
497: p_token_value => 'Last_Update_Date') ;
498: raise FND_API.G_EXC_ERROR;
499: End if;
500: -- Check Whether record has been changed by someone else
501: If (l_tar_memb_rec.object_version_number <> l_ref_memb_rec.object_version_number) Then
502: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
501: If (l_tar_memb_rec.object_version_number <> l_ref_memb_rec.object_version_number) Then
502: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
503: p_token_name => 'INFO',
504: p_token_value => 'Pg_Memberships') ;
505: raise FND_API.G_EXC_ERROR;
506: End if;
507:
508: -- Invoke table handler(Pv_Pg_Memberships_Pkg.Update_Row)
509: IF p_memb_rec.original_end_date < l_ref_memb_rec.start_date THEN
509: IF p_memb_rec.original_end_date < l_ref_memb_rec.start_date THEN
510:
511: FND_MESSAGE.set_name('PV', 'PV_END_DATE_SMALL_START_DATE');
512: FND_MSG_PUB.add;
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515:
516: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
517: THEN
512: FND_MSG_PUB.add;
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515:
516: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
517: THEN
518: -- Debug message
519:
520: IF (PV_DEBUG_HIGH_ON) THEN
524:
525: -- Invoke validation procedures
526: Validate_pg_memberships(
527: p_api_version_number => 1.0,
528: p_init_msg_list => FND_API.G_FALSE,
529: p_validation_level => p_validation_level,
530: p_validation_mode => JTF_PLSQL_API.g_update,
531: p_memb_rec => p_memb_rec,
532: x_return_status => x_return_status,
533: x_msg_count => x_msg_count,
534: x_msg_data => x_msg_data);
535: END IF;
536:
537: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540:
541:
534: x_msg_data => x_msg_data);
535: END IF;
536:
537: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540:
541:
542: -- Debug Message
582: -- End of API body.
583: --
584:
585: -- Standard check for p_commit
586: IF FND_API.to_Boolean( p_commit )
587: THEN
588: COMMIT WORK;
589: END IF;
590:
604: );
605: EXCEPTION
606:
607: WHEN PVX_UTILITY_PVT.resource_locked THEN
608: x_return_status := FND_API.g_ret_sts_error;
609: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
610:
611: WHEN FND_API.G_EXC_ERROR THEN
612: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
607: WHEN PVX_UTILITY_PVT.resource_locked THEN
608: x_return_status := FND_API.g_ret_sts_error;
609: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
610:
611: WHEN FND_API.G_EXC_ERROR THEN
612: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: -- Standard call to get message count and if count=1, get the message
615: FND_MSG_PUB.Count_And_Get (
609: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
610:
611: WHEN FND_API.G_EXC_ERROR THEN
612: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: -- Standard call to get message count and if count=1, get the message
615: FND_MSG_PUB.Count_And_Get (
616: p_encoded => FND_API.G_FALSE,
617: p_count => x_msg_count,
612: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: -- Standard call to get message count and if count=1, get the message
615: FND_MSG_PUB.Count_And_Get (
616: p_encoded => FND_API.G_FALSE,
617: p_count => x_msg_count,
618: p_data => x_msg_data
619: );
620:
617: p_count => x_msg_count,
618: p_data => x_msg_data
619: );
620:
621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
622: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: -- Standard call to get message count and if count=1, get the message
625: FND_MSG_PUB.Count_And_Get (
619: );
620:
621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
622: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: -- Standard call to get message count and if count=1, get the message
625: FND_MSG_PUB.Count_And_Get (
626: p_encoded => FND_API.G_FALSE,
627: p_count => x_msg_count,
622: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: -- Standard call to get message count and if count=1, get the message
625: FND_MSG_PUB.Count_And_Get (
626: p_encoded => FND_API.G_FALSE,
627: p_count => x_msg_count,
628: p_data => x_msg_data
629: );
630:
629: );
630:
631: WHEN OTHERS THEN
632: ROLLBACK TO UPDATE_Pg_Memberships_PVT;
633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
634: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
635: THEN
636: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
637: END IF;
636: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
637: END IF;
638: -- Standard call to get message count and if count=1, get the message
639: FND_MSG_PUB.Count_And_Get (
640: p_encoded => FND_API.G_FALSE,
641: p_count => x_msg_count,
642: p_data => x_msg_data
643: );
644: End Update_Pg_Memberships;
656: -- Parameters
657: --
658: -- IN
659: -- p_api_version_number IN NUMBER Required
660: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
661: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
662: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
663: -- p_membership_id IN NUMBER
664: -- p_object_version_number IN NUMBER Optional Default = NULL
657: --
658: -- IN
659: -- p_api_version_number IN NUMBER Required
660: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
661: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
662: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
663: -- p_membership_id IN NUMBER
664: -- p_object_version_number IN NUMBER Optional Default = NULL
665: --
658: -- IN
659: -- p_api_version_number IN NUMBER Required
660: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
661: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
662: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
663: -- p_membership_id IN NUMBER
664: -- p_object_version_number IN NUMBER Optional Default = NULL
665: --
666: -- OUT
679: -- ==============================================================================
680:
681: PROCEDURE Delete_Pg_Memberships(
682: p_api_version_number IN NUMBER,
683: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
684: p_commit IN VARCHAR2 := FND_API.G_FALSE,
685: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
686: x_return_status OUT NOCOPY VARCHAR2,
687: x_msg_count OUT NOCOPY NUMBER,
680:
681: PROCEDURE Delete_Pg_Memberships(
682: p_api_version_number IN NUMBER,
683: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
684: p_commit IN VARCHAR2 := FND_API.G_FALSE,
685: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
686: x_return_status OUT NOCOPY VARCHAR2,
687: x_msg_count OUT NOCOPY NUMBER,
688: x_msg_data OUT NOCOPY VARCHAR2,
681: PROCEDURE Delete_Pg_Memberships(
682: p_api_version_number IN NUMBER,
683: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
684: p_commit IN VARCHAR2 := FND_API.G_FALSE,
685: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
686: x_return_status OUT NOCOPY VARCHAR2,
687: x_msg_count OUT NOCOPY NUMBER,
688: x_msg_data OUT NOCOPY VARCHAR2,
689: p_membership_id IN NUMBER,
699: -- Standard Start of API savepoint
700: SAVEPOINT delete_pg_memberships_pvt;
701:
702: -- Standard call to check for call compatibility.
703: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
704: p_api_version_number,
705: l_api_name,
706: G_PKG_NAME)
707: THEN
704: p_api_version_number,
705: l_api_name,
706: G_PKG_NAME)
707: THEN
708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
709: END IF;
710:
711:
712: -- Initialize message list if p_init_msg_list is set to TRUE.
709: END IF;
710:
711:
712: -- Initialize message list if p_init_msg_list is set to TRUE.
713: IF FND_API.to_Boolean( p_init_msg_list )
714: THEN
715: FND_MSG_PUB.initialize;
716: END IF;
717:
726:
727:
728:
729: -- Initialize API return status to SUCCESS
730: x_return_status := FND_API.G_RET_STS_SUCCESS;
731:
732: --
733: -- Api body
734: --
741: -- End of API body
742: --
743:
744: -- Standard check for p_commit
745: IF FND_API.to_Boolean( p_commit )
746: THEN
747: COMMIT WORK;
748: END IF;
749:
764: );
765: EXCEPTION
766:
767: WHEN PVX_UTILITY_PVT.resource_locked THEN
768: x_return_status := FND_API.g_ret_sts_error;
769: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Pg_Memberships_PVT;
767: WHEN PVX_UTILITY_PVT.resource_locked THEN
768: x_return_status := FND_API.g_ret_sts_error;
769: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Pg_Memberships_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
769: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Pg_Memberships_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
772: ROLLBACK TO DELETE_Pg_Memberships_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780:
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780:
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO DELETE_Pg_Memberships_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
779: );
780:
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO DELETE_Pg_Memberships_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
782: ROLLBACK TO DELETE_Pg_Memberships_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
788: p_data => x_msg_data
789: );
790:
789: );
790:
791: WHEN OTHERS THEN
792: ROLLBACK TO DELETE_Pg_Memberships_PVT;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
795: THEN
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804: End Delete_Pg_Memberships;
818: -- Parameters
819: --
820: -- IN
821: -- p_api_version_number IN NUMBER Required
822: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
823: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
824: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
825: -- p_memb_rec IN memb_rec_type Required
826: --
819: --
820: -- IN
821: -- p_api_version_number IN NUMBER Required
822: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
823: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
824: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
825: -- p_memb_rec IN memb_rec_type Required
826: --
827: -- OUT
820: -- IN
821: -- p_api_version_number IN NUMBER Required
822: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
823: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
824: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
825: -- p_memb_rec IN memb_rec_type Required
826: --
827: -- OUT
828: -- x_return_status OUT VARCHAR2
840: -- ==============================================================================
841:
842: PROCEDURE Lock_Pg_Memberships(
843: p_api_version_number IN NUMBER,
844: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
845:
846: x_return_status OUT NOCOPY VARCHAR2,
847: x_msg_count OUT NOCOPY NUMBER,
848: x_msg_data OUT NOCOPY VARCHAR2,
868:
869:
870:
871: -- Initialize message list if p_init_msg_list is set to TRUE.
872: IF FND_API.to_Boolean( p_init_msg_list )
873: THEN
874: FND_MSG_PUB.initialize;
875: END IF;
876:
876:
877:
878:
879: -- Standard call to check for call compatibility.
880: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
881: p_api_version_number,
882: l_api_name,
883: G_PKG_NAME)
884: THEN
881: p_api_version_number,
882: l_api_name,
883: G_PKG_NAME)
884: THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887:
888:
889:
887:
888:
889:
890: -- Initialize API return status to SUCCESS
891: x_return_status := FND_API.G_RET_STS_SUCCESS;
892:
893:
894: ------------------------ lock -------------------------
895: Pv_Pg_Memberships_Pkg.Lock_Row(l_membership_id,p_object_version);
896:
897:
898: -------------------- finish --------------------------
899: FND_MSG_PUB.count_and_get(
900: p_encoded => FND_API.g_false,
901: p_count => x_msg_count,
902: p_data => x_msg_data);
903:
904: IF (PV_DEBUG_HIGH_ON) THEN
907:
908: EXCEPTION
909:
910: WHEN PVX_UTILITY_PVT.resource_locked THEN
911: x_return_status := FND_API.g_ret_sts_error;
912: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
913:
914: WHEN FND_API.G_EXC_ERROR THEN
915: ROLLBACK TO LOCK_Pg_Memberships_PVT;
910: WHEN PVX_UTILITY_PVT.resource_locked THEN
911: x_return_status := FND_API.g_ret_sts_error;
912: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
913:
914: WHEN FND_API.G_EXC_ERROR THEN
915: ROLLBACK TO LOCK_Pg_Memberships_PVT;
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: -- Standard call to get message count and if count=1, get the message
918: FND_MSG_PUB.Count_And_Get (
912: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
913:
914: WHEN FND_API.G_EXC_ERROR THEN
915: ROLLBACK TO LOCK_Pg_Memberships_PVT;
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: -- Standard call to get message count and if count=1, get the message
918: FND_MSG_PUB.Count_And_Get (
919: p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,
915: ROLLBACK TO LOCK_Pg_Memberships_PVT;
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: -- Standard call to get message count and if count=1, get the message
918: FND_MSG_PUB.Count_And_Get (
919: p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,
921: p_data => x_msg_data
922: );
923:
920: p_count => x_msg_count,
921: p_data => x_msg_data
922: );
923:
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: ROLLBACK TO LOCK_Pg_Memberships_PVT;
926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
927: -- Standard call to get message count and if count=1, get the message
928: FND_MSG_PUB.Count_And_Get (
922: );
923:
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: ROLLBACK TO LOCK_Pg_Memberships_PVT;
926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
927: -- Standard call to get message count and if count=1, get the message
928: FND_MSG_PUB.Count_And_Get (
929: p_encoded => FND_API.G_FALSE,
930: p_count => x_msg_count,
925: ROLLBACK TO LOCK_Pg_Memberships_PVT;
926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
927: -- Standard call to get message count and if count=1, get the message
928: FND_MSG_PUB.Count_And_Get (
929: p_encoded => FND_API.G_FALSE,
930: p_count => x_msg_count,
931: p_data => x_msg_data
932: );
933:
932: );
933:
934: WHEN OTHERS THEN
935: ROLLBACK TO LOCK_Pg_Memberships_PVT;
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
938: THEN
939: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
940: END IF;
939: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
940: END IF;
941: -- Standard call to get message count and if count=1, get the message
942: FND_MSG_PUB.Count_And_Get (
943: p_encoded => FND_API.G_FALSE,
944: p_count => x_msg_count,
945: p_data => x_msg_data
946: );
947: End Lock_Pg_Memberships;
956: IS
957: l_valid_flag VARCHAR2(1);
958:
959: BEGIN
960: x_return_status := FND_API.g_ret_sts_success;
961: IF p_validation_mode = JTF_PLSQL_API.g_create
962: AND p_memb_rec.membership_id IS NOT NULL
963: THEN
964: l_valid_flag := PVX_UTILITY_PVT.check_uniqueness(
966: 'membership_id = ''' || p_memb_rec.membership_id ||''''
967: );
968: END IF;
969:
970: IF l_valid_flag = FND_API.g_false THEN
971: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_membership_id_DUPLICATE');
972: x_return_status := FND_API.g_ret_sts_error;
973: END IF;
974:
968: END IF;
969:
970: IF l_valid_flag = FND_API.g_false THEN
971: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_membership_id_DUPLICATE');
972: x_return_status := FND_API.g_ret_sts_error;
973: END IF;
974:
975: END check_Memb_Uk_Items;
976:
982: x_return_status OUT NOCOPY VARCHAR2
983: )
984: IS
985: BEGIN
986: x_return_status := FND_API.g_ret_sts_success;
987:
988: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
989:
990: /**
987:
988: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
989:
990: /**
991: IF p_memb_rec.membership_id = FND_API.G_MISS_NUM OR p_memb_rec.membership_id IS NULL THEN
992: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_ID' );
993: x_return_status := FND_API.g_ret_sts_error;
994: END IF;
995:
989:
990: /**
991: IF p_memb_rec.membership_id = FND_API.G_MISS_NUM OR p_memb_rec.membership_id IS NULL THEN
992: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_ID' );
993: x_return_status := FND_API.g_ret_sts_error;
994: END IF;
995:
996:
997: IF p_memb_rec.object_version_number = FND_API.G_MISS_NUM OR p_memb_rec.object_version_number IS NULL THEN
993: x_return_status := FND_API.g_ret_sts_error;
994: END IF;
995:
996:
997: IF p_memb_rec.object_version_number = FND_API.G_MISS_NUM OR p_memb_rec.object_version_number IS NULL THEN
998: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
999: x_return_status := FND_API.g_ret_sts_error;
1000: END IF;
1001: */
995:
996:
997: IF p_memb_rec.object_version_number = FND_API.G_MISS_NUM OR p_memb_rec.object_version_number IS NULL THEN
998: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
999: x_return_status := FND_API.g_ret_sts_error;
1000: END IF;
1001: */
1002:
1003: IF p_memb_rec.partner_id = FND_API.G_MISS_NUM OR p_memb_rec.partner_id IS NULL THEN
999: x_return_status := FND_API.g_ret_sts_error;
1000: END IF;
1001: */
1002:
1003: IF p_memb_rec.partner_id = FND_API.G_MISS_NUM OR p_memb_rec.partner_id IS NULL THEN
1004: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
1005: x_return_status := FND_API.g_ret_sts_error;
1006: END IF;
1007:
1001: */
1002:
1003: IF p_memb_rec.partner_id = FND_API.G_MISS_NUM OR p_memb_rec.partner_id IS NULL THEN
1004: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
1005: x_return_status := FND_API.g_ret_sts_error;
1006: END IF;
1007:
1008:
1009: IF p_memb_rec.program_id = FND_API.G_MISS_NUM OR p_memb_rec.program_id IS NULL THEN
1005: x_return_status := FND_API.g_ret_sts_error;
1006: END IF;
1007:
1008:
1009: IF p_memb_rec.program_id = FND_API.G_MISS_NUM OR p_memb_rec.program_id IS NULL THEN
1010: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PROGRAM_ID' );
1011: x_return_status := FND_API.g_ret_sts_error;
1012: END IF;
1013:
1007:
1008:
1009: IF p_memb_rec.program_id = FND_API.G_MISS_NUM OR p_memb_rec.program_id IS NULL THEN
1010: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PROGRAM_ID' );
1011: x_return_status := FND_API.g_ret_sts_error;
1012: END IF;
1013:
1014:
1015: IF p_memb_rec.start_date = FND_API.G_MISS_DATE OR p_memb_rec.start_date IS NULL THEN
1011: x_return_status := FND_API.g_ret_sts_error;
1012: END IF;
1013:
1014:
1015: IF p_memb_rec.start_date = FND_API.G_MISS_DATE OR p_memb_rec.start_date IS NULL THEN
1016: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'START_DATE' );
1017: x_return_status := FND_API.g_ret_sts_error;
1018: END IF;
1019:
1013:
1014:
1015: IF p_memb_rec.start_date = FND_API.G_MISS_DATE OR p_memb_rec.start_date IS NULL THEN
1016: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'START_DATE' );
1017: x_return_status := FND_API.g_ret_sts_error;
1018: END IF;
1019:
1020:
1021: IF p_memb_rec.membership_status_code = FND_API.g_miss_char OR p_memb_rec.membership_status_code IS NULL THEN
1017: x_return_status := FND_API.g_ret_sts_error;
1018: END IF;
1019:
1020:
1021: IF p_memb_rec.membership_status_code = FND_API.g_miss_char OR p_memb_rec.membership_status_code IS NULL THEN
1022: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_STATUS_CODE' );
1023: x_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025:
1019:
1020:
1021: IF p_memb_rec.membership_status_code = FND_API.g_miss_char OR p_memb_rec.membership_status_code IS NULL THEN
1022: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_STATUS_CODE' );
1023: x_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025:
1026:
1027: IF p_memb_rec.enrl_request_id = FND_API.G_MISS_NUM OR p_memb_rec.enrl_request_id IS NULL THEN
1023: x_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025:
1026:
1027: IF p_memb_rec.enrl_request_id = FND_API.G_MISS_NUM OR p_memb_rec.enrl_request_id IS NULL THEN
1028: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENRL_REQUEST_ID' );
1029: x_return_status := FND_API.g_ret_sts_error;
1030: END IF;
1031:
1025:
1026:
1027: IF p_memb_rec.enrl_request_id = FND_API.G_MISS_NUM OR p_memb_rec.enrl_request_id IS NULL THEN
1028: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENRL_REQUEST_ID' );
1029: x_return_status := FND_API.g_ret_sts_error;
1030: END IF;
1031:
1032:
1033: ELSE
1032:
1033: ELSE
1034:
1035:
1036: IF p_memb_rec.membership_id = FND_API.G_MISS_NUM THEN
1037: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_ID' );
1038: x_return_status := FND_API.g_ret_sts_error;
1039: END IF;
1040:
1034:
1035:
1036: IF p_memb_rec.membership_id = FND_API.G_MISS_NUM THEN
1037: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_ID' );
1038: x_return_status := FND_API.g_ret_sts_error;
1039: END IF;
1040:
1041:
1042: IF p_memb_rec.object_version_number = FND_API.G_MISS_NUM THEN
1038: x_return_status := FND_API.g_ret_sts_error;
1039: END IF;
1040:
1041:
1042: IF p_memb_rec.object_version_number = FND_API.G_MISS_NUM THEN
1043: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1044: x_return_status := FND_API.g_ret_sts_error;
1045: END IF;
1046:
1040:
1041:
1042: IF p_memb_rec.object_version_number = FND_API.G_MISS_NUM THEN
1043: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1044: x_return_status := FND_API.g_ret_sts_error;
1045: END IF;
1046:
1047:
1048: IF p_memb_rec.partner_id = FND_API.G_MISS_NUM THEN
1044: x_return_status := FND_API.g_ret_sts_error;
1045: END IF;
1046:
1047:
1048: IF p_memb_rec.partner_id = FND_API.G_MISS_NUM THEN
1049: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
1050: x_return_status := FND_API.g_ret_sts_error;
1051: END IF;
1052:
1046:
1047:
1048: IF p_memb_rec.partner_id = FND_API.G_MISS_NUM THEN
1049: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
1050: x_return_status := FND_API.g_ret_sts_error;
1051: END IF;
1052:
1053:
1054: IF p_memb_rec.program_id = FND_API.G_MISS_NUM THEN
1050: x_return_status := FND_API.g_ret_sts_error;
1051: END IF;
1052:
1053:
1054: IF p_memb_rec.program_id = FND_API.G_MISS_NUM THEN
1055: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PROGRAM_ID' );
1056: x_return_status := FND_API.g_ret_sts_error;
1057: END IF;
1058:
1052:
1053:
1054: IF p_memb_rec.program_id = FND_API.G_MISS_NUM THEN
1055: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PROGRAM_ID' );
1056: x_return_status := FND_API.g_ret_sts_error;
1057: END IF;
1058:
1059:
1060: IF p_memb_rec.start_date = FND_API.G_MISS_DATE THEN
1056: x_return_status := FND_API.g_ret_sts_error;
1057: END IF;
1058:
1059:
1060: IF p_memb_rec.start_date = FND_API.G_MISS_DATE THEN
1061: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'START_DATE' );
1062: x_return_status := FND_API.g_ret_sts_error;
1063: END IF;
1064:
1058:
1059:
1060: IF p_memb_rec.start_date = FND_API.G_MISS_DATE THEN
1061: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'START_DATE' );
1062: x_return_status := FND_API.g_ret_sts_error;
1063: END IF;
1064:
1065:
1066: IF p_memb_rec.membership_status_code = FND_API.g_miss_char THEN
1062: x_return_status := FND_API.g_ret_sts_error;
1063: END IF;
1064:
1065:
1066: IF p_memb_rec.membership_status_code = FND_API.g_miss_char THEN
1067: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_STATUS_CODE' );
1068: x_return_status := FND_API.g_ret_sts_error;
1069: END IF;
1070:
1064:
1065:
1066: IF p_memb_rec.membership_status_code = FND_API.g_miss_char THEN
1067: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MEMBERSHIP_STATUS_CODE' );
1068: x_return_status := FND_API.g_ret_sts_error;
1069: END IF;
1070:
1071:
1072: IF p_memb_rec.enrl_request_id = FND_API.G_MISS_NUM THEN
1068: x_return_status := FND_API.g_ret_sts_error;
1069: END IF;
1070:
1071:
1072: IF p_memb_rec.enrl_request_id = FND_API.G_MISS_NUM THEN
1073: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENRL_REQUEST_ID' );
1074: x_return_status := FND_API.g_ret_sts_error;
1075: END IF;
1076: END IF;
1070:
1071:
1072: IF p_memb_rec.enrl_request_id = FND_API.G_MISS_NUM THEN
1073: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENRL_REQUEST_ID' );
1074: x_return_status := FND_API.g_ret_sts_error;
1075: END IF;
1076: END IF;
1077:
1078: END check_Memb_Req_Items;
1084: x_return_status OUT NOCOPY VARCHAR2
1085: )
1086: IS
1087: BEGIN
1088: x_return_status := FND_API.g_ret_sts_success;
1089:
1090: -- Enter custom code here
1091:
1092: END check_Memb_Fk_Items;
1101: l_exists VARCHAR2(1);
1102: l_lookup_type VARCHAR2(30);
1103: l_lookup_exists VARCHAR2(1);
1104: BEGIN
1105: x_return_status := FND_API.g_ret_sts_success;
1106: --validate lookup
1107: /**l_lookup_type := 'PV_MEMB_STATUS_REASON_CODE';
1108: l_lookup_exists := PVX_UTILITY_PVT.check_lookup_exists
1109: ( p_lookup_table_name => 'PV_LOOKUPS'
1109: ( p_lookup_table_name => 'PV_LOOKUPS'
1110: ,p_lookup_type => l_lookup_type
1111: ,p_lookup_code => p_memb_rec.status_reason_code
1112: );
1113: IF NOT FND_API.to_boolean(l_lookup_exists) THEN
1114: x_return_status := FND_API.g_ret_sts_error;
1115: FND_MESSAGE.set_name('PV', 'PV_INVALID_LOOKUP_CODE');
1116: FND_MESSAGE.set_token('LOOKUP_TYPE', l_lookup_type );
1117: FND_MESSAGE.set_token('LOOKUP_CODE', p_memb_rec.status_reason_code );
1110: ,p_lookup_type => l_lookup_type
1111: ,p_lookup_code => p_memb_rec.status_reason_code
1112: );
1113: IF NOT FND_API.to_boolean(l_lookup_exists) THEN
1114: x_return_status := FND_API.g_ret_sts_error;
1115: FND_MESSAGE.set_name('PV', 'PV_INVALID_LOOKUP_CODE');
1116: FND_MESSAGE.set_token('LOOKUP_TYPE', l_lookup_type );
1117: FND_MESSAGE.set_token('LOOKUP_CODE', p_memb_rec.status_reason_code );
1118: FND_MSG_PUB.add;
1133: IS
1134: l_return_status VARCHAR2(1);
1135: BEGIN
1136:
1137: l_return_status := FND_API.g_ret_sts_success;
1138: -- Check Items Uniqueness API calls
1139:
1140: check_Memb_Uk_Items(
1141: p_memb_rec => p_memb_rec,
1140: check_Memb_Uk_Items(
1141: p_memb_rec => p_memb_rec,
1142: p_validation_mode => p_validation_mode,
1143: x_return_status => x_return_status);
1144: IF x_return_status <> FND_API.g_ret_sts_success THEN
1145: l_return_status := FND_API.g_ret_sts_error;
1146: END IF;
1147:
1148: -- Check Items Required/NOT NULL API calls
1141: p_memb_rec => p_memb_rec,
1142: p_validation_mode => p_validation_mode,
1143: x_return_status => x_return_status);
1144: IF x_return_status <> FND_API.g_ret_sts_success THEN
1145: l_return_status := FND_API.g_ret_sts_error;
1146: END IF;
1147:
1148: -- Check Items Required/NOT NULL API calls
1149:
1150: check_memb_req_items(
1151: p_memb_rec => p_memb_rec,
1152: p_validation_mode => p_validation_mode,
1153: x_return_status => x_return_status);
1154: IF x_return_status <> FND_API.g_ret_sts_success THEN
1155: l_return_status := FND_API.g_ret_sts_error;
1156: END IF;
1157: -- Check Items Foreign Keys API calls
1158:
1151: p_memb_rec => p_memb_rec,
1152: p_validation_mode => p_validation_mode,
1153: x_return_status => x_return_status);
1154: IF x_return_status <> FND_API.g_ret_sts_success THEN
1155: l_return_status := FND_API.g_ret_sts_error;
1156: END IF;
1157: -- Check Items Foreign Keys API calls
1158:
1159: check_memb_FK_items(
1158:
1159: check_memb_FK_items(
1160: p_memb_rec => p_memb_rec,
1161: x_return_status => x_return_status);
1162: IF x_return_status <> FND_API.g_ret_sts_success THEN
1163: l_return_status := FND_API.g_ret_sts_error;
1164: END IF;
1165: -- Check Items Lookups
1166:
1159: check_memb_FK_items(
1160: p_memb_rec => p_memb_rec,
1161: x_return_status => x_return_status);
1162: IF x_return_status <> FND_API.g_ret_sts_success THEN
1163: l_return_status := FND_API.g_ret_sts_error;
1164: END IF;
1165: -- Check Items Lookups
1166:
1167: check_memb_Lookup_items(
1166:
1167: check_memb_Lookup_items(
1168: p_memb_rec => p_memb_rec,
1169: x_return_status => x_return_status);
1170: IF x_return_status <> FND_API.g_ret_sts_success THEN
1171: l_return_status := FND_API.g_ret_sts_error;
1172: END IF;
1173:
1174: x_return_status := l_return_status;
1167: check_memb_Lookup_items(
1168: p_memb_rec => p_memb_rec,
1169: x_return_status => x_return_status);
1170: IF x_return_status <> FND_API.g_ret_sts_success THEN
1171: l_return_status := FND_API.g_ret_sts_error;
1172: END IF;
1173:
1174: x_return_status := l_return_status;
1175:
1285: l_memb_rec memb_rec_type := p_memb_rec;
1286: BEGIN
1287: -- Developers should put their code to default the record type
1288: -- e.g. IF p_campaign_rec.status_code IS NULL
1289: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
1290: -- l_campaign_rec.status_code := 'NEW' ;
1291: -- END IF ;
1292: --
1293: NULL ;
1297:
1298:
1299: PROCEDURE Validate_Pg_Memberships(
1300: p_api_version_number IN NUMBER,
1301: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1302: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1303: p_memb_rec IN memb_rec_type,
1304: p_validation_mode IN VARCHAR2,
1305: x_return_status OUT NOCOPY VARCHAR2,
1298:
1299: PROCEDURE Validate_Pg_Memberships(
1300: p_api_version_number IN NUMBER,
1301: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1302: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1303: p_memb_rec IN memb_rec_type,
1304: p_validation_mode IN VARCHAR2,
1305: x_return_status OUT NOCOPY VARCHAR2,
1306: x_msg_count OUT NOCOPY NUMBER,
1317: -- Standard Start of API savepoint
1318: SAVEPOINT validate_pg_memberships_;
1319:
1320: -- Standard call to check for call compatibility.
1321: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1322: p_api_version_number,
1323: l_api_name,
1324: G_PKG_NAME)
1325: THEN
1322: p_api_version_number,
1323: l_api_name,
1324: G_PKG_NAME)
1325: THEN
1326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1327: END IF;
1328:
1329:
1330: -- Initialize message list if p_init_msg_list is set to TRUE.
1327: END IF;
1328:
1329:
1330: -- Initialize message list if p_init_msg_list is set to TRUE.
1331: IF FND_API.to_Boolean( p_init_msg_list )
1332: THEN
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335:
1340: p_validation_mode => p_validation_mode,
1341: x_return_status => x_return_status
1342: );
1343:
1344: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1341: x_return_status => x_return_status
1342: );
1343:
1344: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349: END IF;
1342: );
1343:
1344: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349: END IF;
1350:
1343:
1344: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349: END IF;
1350:
1351: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1363:
1364: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1365: Validate_memb_Rec(
1366: p_api_version_number => 1.0,
1367: p_init_msg_list => FND_API.G_FALSE,
1368: x_return_status => x_return_status,
1369: x_msg_count => x_msg_count,
1370: x_msg_data => x_msg_data,
1371: p_memb_rec => l_memb_rec);
1369: x_msg_count => x_msg_count,
1370: x_msg_data => x_msg_data,
1371: p_memb_rec => l_memb_rec);
1372:
1373: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1370: x_msg_data => x_msg_data,
1371: p_memb_rec => l_memb_rec);
1372:
1373: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1378: END IF;
1371: p_memb_rec => l_memb_rec);
1372:
1373: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1378: END IF;
1379:
1372:
1373: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1378: END IF;
1379:
1380:
1384: END IF;
1385:
1386:
1387: -- Initialize API return status to SUCCESS
1388: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: IF (PV_DEBUG_HIGH_ON) THEN
1391: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1392: END IF;
1401: );
1402: EXCEPTION
1403:
1404: WHEN PVX_UTILITY_PVT.resource_locked THEN
1405: x_return_status := FND_API.g_ret_sts_error;
1406: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1407:
1408: WHEN FND_API.G_EXC_ERROR THEN
1409: ROLLBACK TO VALIDATE_Pg_Memberships_;
1404: WHEN PVX_UTILITY_PVT.resource_locked THEN
1405: x_return_status := FND_API.g_ret_sts_error;
1406: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1407:
1408: WHEN FND_API.G_EXC_ERROR THEN
1409: ROLLBACK TO VALIDATE_Pg_Memberships_;
1410: x_return_status := FND_API.G_RET_STS_ERROR;
1411: -- Standard call to get message count and if count=1, get the message
1412: FND_MSG_PUB.Count_And_Get (
1406: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1407:
1408: WHEN FND_API.G_EXC_ERROR THEN
1409: ROLLBACK TO VALIDATE_Pg_Memberships_;
1410: x_return_status := FND_API.G_RET_STS_ERROR;
1411: -- Standard call to get message count and if count=1, get the message
1412: FND_MSG_PUB.Count_And_Get (
1413: p_encoded => FND_API.G_FALSE,
1414: p_count => x_msg_count,
1409: ROLLBACK TO VALIDATE_Pg_Memberships_;
1410: x_return_status := FND_API.G_RET_STS_ERROR;
1411: -- Standard call to get message count and if count=1, get the message
1412: FND_MSG_PUB.Count_And_Get (
1413: p_encoded => FND_API.G_FALSE,
1414: p_count => x_msg_count,
1415: p_data => x_msg_data
1416: );
1417:
1414: p_count => x_msg_count,
1415: p_data => x_msg_data
1416: );
1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419: ROLLBACK TO VALIDATE_Pg_Memberships_;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1416: );
1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419: ROLLBACK TO VALIDATE_Pg_Memberships_;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1423: p_encoded => FND_API.G_FALSE,
1424: p_count => x_msg_count,
1419: ROLLBACK TO VALIDATE_Pg_Memberships_;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1423: p_encoded => FND_API.G_FALSE,
1424: p_count => x_msg_count,
1425: p_data => x_msg_data
1426: );
1427:
1426: );
1427:
1428: WHEN OTHERS THEN
1429: ROLLBACK TO VALIDATE_Pg_Memberships_;
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1432: THEN
1433: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1434: END IF;
1433: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1434: END IF;
1435: -- Standard call to get message count and if count=1, get the message
1436: FND_MSG_PUB.Count_And_Get (
1437: p_encoded => FND_API.G_FALSE,
1438: p_count => x_msg_count,
1439: p_data => x_msg_data
1440: );
1441: End Validate_Pg_Memberships;
1442:
1443:
1444: PROCEDURE Validate_Memb_Rec (
1445: p_api_version_number IN NUMBER,
1446: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1447: x_return_status OUT NOCOPY VARCHAR2,
1448: x_msg_count OUT NOCOPY NUMBER,
1449: x_msg_data OUT NOCOPY VARCHAR2,
1450: p_memb_rec IN memb_rec_type
1451: )
1452: IS
1453: BEGIN
1454: -- Initialize message list if p_init_msg_list is set to TRUE.
1455: IF FND_API.to_Boolean( p_init_msg_list )
1456: THEN
1457: FND_MSG_PUB.initialize;
1458: END IF;
1459:
1459:
1460:
1461:
1462: -- Initialize API return status to SUCCESS
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464:
1465: -- Hint: Validate data
1466: -- If data not valid
1467: -- THEN
1464:
1465: -- Hint: Validate data
1466: -- If data not valid
1467: -- THEN
1468: -- x_return_status := FND_API.G_RET_STS_ERROR;
1469:
1470: -- Debug Message
1471: -- Debug Message
1472: IF (PV_DEBUG_HIGH_ON) THEN
1511: RETURN l_isterminatable;
1512:
1513: EXCEPTION
1514: WHEN OTHERS THEN
1515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1516:
1517: END isTerminatable;
1518:
1519: -------------------------------------------------------------------------------
1569: AND enrq.program_id=prgm.program_id;
1570:
1571: BEGIN
1572:
1573: x_return_status := FND_API.g_ret_sts_success;
1574: IF p_enrollment_id_tbl.exists(1) THEN
1575: FOR i in 1.. p_enrollment_id_tbl.count() LOOP
1576:
1577:
1583: l_enrl_request_rec.request_status_code:='CANCELLED';
1584:
1585: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
1586: ( p_api_version_number => 1.0
1587: ,p_init_msg_list => Fnd_Api.g_false
1588: ,p_commit => Fnd_Api.g_false
1589: ,x_return_status => x_return_status
1590: ,x_msg_count => x_msg_count
1591: ,x_msg_data => x_msg_data
1584:
1585: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
1586: ( p_api_version_number => 1.0
1587: ,p_init_msg_list => Fnd_Api.g_false
1588: ,p_commit => Fnd_Api.g_false
1589: ,x_return_status => x_return_status
1590: ,x_msg_count => x_msg_count
1591: ,x_msg_data => x_msg_data
1592: ,p_enrl_request_rec => l_enrl_request_rec
1592: ,p_enrl_request_rec => l_enrl_request_rec
1593: );
1594:
1595:
1596: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1597: RAISE FND_API.G_EXC_ERROR;
1598: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1600: END IF;
1593: );
1594:
1595:
1596: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1597: RAISE FND_API.G_EXC_ERROR;
1598: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1600: END IF;
1601:
1594:
1595:
1596: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1597: RAISE FND_API.G_EXC_ERROR;
1598: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1600: END IF;
1601:
1602: PVX_UTILITY_PVT.get_lookup_meaning
1595:
1596: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1597: RAISE FND_API.G_EXC_ERROR;
1598: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1600: END IF;
1601:
1602: PVX_UTILITY_PVT.get_lookup_meaning
1603: (
1622: , p_partner_id => l_partner_id
1623: , p_access_level_flag => 'P'
1624: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
1625: , p_log_params_tbl => l_param_tbl_var
1626: , p_init_msg_list => FND_API.g_false
1627: , p_commit => FND_API.G_FALSE
1628: , x_return_status => x_return_status
1629: , x_msg_count => x_msg_count
1630: , x_msg_data => x_msg_data
1623: , p_access_level_flag => 'P'
1624: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
1625: , p_log_params_tbl => l_param_tbl_var
1626: , p_init_msg_list => FND_API.g_false
1627: , p_commit => FND_API.G_FALSE
1628: , x_return_status => x_return_status
1629: , x_msg_count => x_msg_count
1630: , x_msg_data => x_msg_data
1631: );
1628: , x_return_status => x_return_status
1629: , x_msg_count => x_msg_count
1630: , x_msg_data => x_msg_data
1631: );
1632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1629: , x_msg_count => x_msg_count
1630: , x_msg_data => x_msg_data
1631: );
1632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1630: , x_msg_data => x_msg_data
1631: );
1632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1638: PVX_UTILITY_PVT.create_history_log
1631: );
1632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1638: PVX_UTILITY_PVT.create_history_log
1639: (
1645: , p_partner_id => l_partner_id
1646: , p_access_level_flag => 'P'
1647: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
1648: , p_log_params_tbl => l_param_tbl_var
1649: , p_init_msg_list => FND_API.g_false
1650: , p_commit => FND_API.G_FALSE
1651: , x_return_status => x_return_status
1652: , x_msg_count => x_msg_count
1653: , x_msg_data => x_msg_data
1646: , p_access_level_flag => 'P'
1647: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
1648: , p_log_params_tbl => l_param_tbl_var
1649: , p_init_msg_list => FND_API.g_false
1650: , p_commit => FND_API.G_FALSE
1651: , x_return_status => x_return_status
1652: , x_msg_count => x_msg_count
1653: , x_msg_data => x_msg_data
1654: );
1651: , x_return_status => x_return_status
1652: , x_msg_count => x_msg_count
1653: , x_msg_data => x_msg_data
1654: );
1655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1656: RAISE FND_API.G_EXC_ERROR;
1657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1659: END IF;
1652: , x_msg_count => x_msg_count
1653: , x_msg_data => x_msg_data
1654: );
1655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1656: RAISE FND_API.G_EXC_ERROR;
1657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1659: END IF;
1660: END LOOP;
1653: , x_msg_data => x_msg_data
1654: );
1655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1656: RAISE FND_API.G_EXC_ERROR;
1657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1659: END IF;
1660: END LOOP;
1661: END IF; -- end of if if atleast one membership id exists in the passed in table
1654: );
1655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1656: RAISE FND_API.G_EXC_ERROR;
1657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1659: END IF;
1660: END LOOP;
1661: END IF; -- end of if if atleast one membership id exists in the passed in table
1662:
1738: --get the program_id of the membership we are terminateing l_program_id
1739: -- if the progr
1740: -- update membership record and call responsiblity management
1741: -- set the membership record to be updated
1742: x_return_status := FND_API.g_ret_sts_success;
1743: IF p_membership_table.exists(1) THEN
1744: FOR i in 1.. p_membership_table.count() LOOP
1745:
1746: OPEN memb_cur(p_membership_table(i));
1753: l_pv_pg_memb_rec.status_reason_code := p_status_reason_code;
1754: l_pv_pg_memb_rec.object_version_number:= l_object_version_number;
1755: Update_Pg_Memberships
1756: ( p_api_version_number => 1.0
1757: , p_init_msg_list => Fnd_Api.g_false
1758: , p_commit => Fnd_Api.g_false
1759: , x_return_status => x_return_status
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data
1754: l_pv_pg_memb_rec.object_version_number:= l_object_version_number;
1755: Update_Pg_Memberships
1756: ( p_api_version_number => 1.0
1757: , p_init_msg_list => Fnd_Api.g_false
1758: , p_commit => Fnd_Api.g_false
1759: , x_return_status => x_return_status
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data
1762: , p_memb_rec => l_pv_pg_memb_rec
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data
1762: , p_memb_rec => l_pv_pg_memb_rec
1763: );
1764: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1768: END IF;
1761: , x_msg_data => x_msg_data
1762: , p_memb_rec => l_pv_pg_memb_rec
1763: );
1764: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1768: END IF;
1769:
1762: , p_memb_rec => l_pv_pg_memb_rec
1763: );
1764: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1768: END IF;
1769:
1770: IF p_event_code <> 'DOWNGRADED' THEN
1763: );
1764: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1768: END IF;
1769:
1770: IF p_event_code <> 'DOWNGRADED' THEN
1771:
1771:
1772: -- call responsibility management api
1773: Pv_User_Resp_Pvt.manage_memb_resp
1774: ( p_api_version_number => 1.0
1775: , p_init_msg_list => Fnd_Api.g_false
1776: , p_commit => Fnd_Api.g_false
1777: , p_membership_id => p_membership_table(i)
1778: , x_return_status => x_return_status
1779: , x_msg_count => x_msg_count
1772: -- call responsibility management api
1773: Pv_User_Resp_Pvt.manage_memb_resp
1774: ( p_api_version_number => 1.0
1775: , p_init_msg_list => Fnd_Api.g_false
1776: , p_commit => Fnd_Api.g_false
1777: , p_membership_id => p_membership_table(i)
1778: , x_return_status => x_return_status
1779: , x_msg_count => x_msg_count
1780: , x_msg_data => x_msg_data
1779: , x_msg_count => x_msg_count
1780: , x_msg_data => x_msg_data
1781: );
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1780: , x_msg_data => x_msg_data
1781: );
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1781: );
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1789: END IF;
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1789: END IF;
1790:
1799: , x_return_status => x_return_status
1800: , x_meaning => l_meaning
1801: );
1802:
1803: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1804: RAISE FND_API.G_EXC_ERROR;
1805: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END IF;
1800: , x_meaning => l_meaning
1801: );
1802:
1803: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1804: RAISE FND_API.G_EXC_ERROR;
1805: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END IF;
1808: l_param_tbl_var(2).param_name := 'EVENT';
1801: );
1802:
1803: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1804: RAISE FND_API.G_EXC_ERROR;
1805: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END IF;
1808: l_param_tbl_var(2).param_name := 'EVENT';
1809: l_param_tbl_var(2).param_value := l_meaning;
1802:
1803: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1804: RAISE FND_API.G_EXC_ERROR;
1805: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END IF;
1808: l_param_tbl_var(2).param_name := 'EVENT';
1809: l_param_tbl_var(2).param_value := l_meaning;
1810: l_meaning:=null;
1817: , x_meaning => l_meaning
1818: );
1819:
1820:
1821: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1818: );
1819:
1820:
1821: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1819:
1820:
1821: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: l_param_tbl_var(3).param_name := 'STATUS_REASON_CODE';
1820:
1821: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: l_param_tbl_var(3).param_name := 'STATUS_REASON_CODE';
1828: l_param_tbl_var(3).param_value := l_meaning;
1836: , p_partner_id => l_partner_id
1837: , p_access_level_flag => 'P'
1838: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
1839: , p_log_params_tbl => l_param_tbl_var
1840: , p_init_msg_list => FND_API.g_false
1841: , p_commit => FND_API.G_FALSE
1842: , x_return_status => x_return_status
1843: , x_msg_count => x_msg_count
1844: , x_msg_data => x_msg_data
1837: , p_access_level_flag => 'P'
1838: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
1839: , p_log_params_tbl => l_param_tbl_var
1840: , p_init_msg_list => FND_API.g_false
1841: , p_commit => FND_API.G_FALSE
1842: , x_return_status => x_return_status
1843: , x_msg_count => x_msg_count
1844: , x_msg_data => x_msg_data
1845: );
1843: , x_msg_count => x_msg_count
1844: , x_msg_data => x_msg_data
1845: );
1846:
1847: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: END IF;
1844: , x_msg_data => x_msg_data
1845: );
1846:
1847: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: END IF;
1852: PVX_UTILITY_PVT.create_history_log
1845: );
1846:
1847: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: END IF;
1852: PVX_UTILITY_PVT.create_history_log
1853: (
1846:
1847: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: END IF;
1852: PVX_UTILITY_PVT.create_history_log
1853: (
1854: p_arc_history_for_entity_code => 'MEMBERSHIP'
1859: , p_partner_id => l_partner_id
1860: , p_access_level_flag => 'P'
1861: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
1862: , p_log_params_tbl => l_param_tbl_var
1863: , p_init_msg_list => FND_API.g_false
1864: , p_commit => FND_API.G_FALSE
1865: , x_return_status => x_return_status
1866: , x_msg_count => x_msg_count
1867: , x_msg_data => x_msg_data
1860: , p_access_level_flag => 'P'
1861: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
1862: , p_log_params_tbl => l_param_tbl_var
1863: , p_init_msg_list => FND_API.g_false
1864: , p_commit => FND_API.G_FALSE
1865: , x_return_status => x_return_status
1866: , x_msg_count => x_msg_count
1867: , x_msg_data => x_msg_data
1868: );
1866: , x_msg_count => x_msg_count
1867: , x_msg_data => x_msg_data
1868: );
1869:
1870: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: END IF;
1867: , x_msg_data => x_msg_data
1868: );
1869:
1870: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: END IF;
1875:
1868: );
1869:
1870: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: END IF;
1875:
1876: IF p_status_reason_code = 'TERMINATED_BY_GLOBAL' THEN
1869:
1870: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: END IF;
1875:
1876: IF p_status_reason_code = 'TERMINATED_BY_GLOBAL' THEN
1877: l_notif_event_code := 'GLOBAL_TERMINATE_SUBSIDIARY';
1884:
1885: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
1886: (
1887: p_api_version_number => 1.0
1888: , p_init_msg_list => Fnd_Api.g_false
1889: , p_commit => Fnd_Api.g_false
1890: , p_validation_level => FND_API.g_valid_level_full
1891: , p_context_id => l_partner_id
1892: , p_context_code => p_event_code
1885: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
1886: (
1887: p_api_version_number => 1.0
1888: , p_init_msg_list => Fnd_Api.g_false
1889: , p_commit => Fnd_Api.g_false
1890: , p_validation_level => FND_API.g_valid_level_full
1891: , p_context_id => l_partner_id
1892: , p_context_code => p_event_code
1893: , p_target_ctgry => 'PARTNER'
1886: (
1887: p_api_version_number => 1.0
1888: , p_init_msg_list => Fnd_Api.g_false
1889: , p_commit => Fnd_Api.g_false
1890: , p_validation_level => FND_API.g_valid_level_full
1891: , p_context_id => l_partner_id
1892: , p_context_code => p_event_code
1893: , p_target_ctgry => 'PARTNER'
1894: , p_target_ctgry_pt_id => l_partner_id
1899: , x_return_status => x_return_status
1900: , x_msg_count => x_msg_count
1901: , x_msg_data => x_msg_data
1902: );
1903: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1904: RAISE FND_API.G_EXC_ERROR;
1905: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1900: , x_msg_count => x_msg_count
1901: , x_msg_data => x_msg_data
1902: );
1903: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1904: RAISE FND_API.G_EXC_ERROR;
1905: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1908: END IF;
1901: , x_msg_data => x_msg_data
1902: );
1903: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1904: RAISE FND_API.G_EXC_ERROR;
1905: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1908: END IF;
1909: END LOOP;
1902: );
1903: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1904: RAISE FND_API.G_EXC_ERROR;
1905: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1908: END IF;
1909: END LOOP;
1910: END IF; -- end of if if atleast one membership id exists in the passed in table
1933:
1934: PROCEDURE Terminate_ptr_memberships
1935: (
1936: p_api_version_number IN NUMBER
1937: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1938: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1939: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1940: ,p_partner_id IN NUMBER --partner id for which all memberships need to be terminated
1941: ,p_memb_type IN VARCHAR -- if not given, will get from profile, should be 'SUBSIDIARY','GLOBAL','STANDARD'
1934: PROCEDURE Terminate_ptr_memberships
1935: (
1936: p_api_version_number IN NUMBER
1937: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1938: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1939: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1940: ,p_partner_id IN NUMBER --partner id for which all memberships need to be terminated
1941: ,p_memb_type IN VARCHAR -- if not given, will get from profile, should be 'SUBSIDIARY','GLOBAL','STANDARD'
1942: ,p_status_reason_code IN VARCHAR2 -- pass 'MEMBER_TYPE_CHANGE' if it is happening because of member type change -- it validates against PV_MEMB_STATUS_REASON_CODE
1935: (
1936: p_api_version_number IN NUMBER
1937: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1938: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1939: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1940: ,p_partner_id IN NUMBER --partner id for which all memberships need to be terminated
1941: ,p_memb_type IN VARCHAR -- if not given, will get from profile, should be 'SUBSIDIARY','GLOBAL','STANDARD'
1942: ,p_status_reason_code IN VARCHAR2 -- pass 'MEMBER_TYPE_CHANGE' if it is happening because of member type change -- it validates against PV_MEMB_STATUS_REASON_CODE
1943: ,p_comments IN VARCHAR2 DEFAULT NULL -- pass 'Membership terminated by system as member type is changed' if it is changed because of member type change
2034: -- Standard Start of API savepoint
2035: SAVEPOINT Terminate_ptr_memberships;
2036:
2037: -- Standard call to check for call compatibility.
2038: IF NOT FND_API.Compatible_API_Call
2039: ( l_api_version_number
2040: ,p_api_version_number
2041: ,l_api_name
2042: ,G_PKG_NAME
2041: ,l_api_name
2042: ,G_PKG_NAME
2043: )
2044: THEN
2045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2046: END IF;
2047:
2048: -- Initialize message list if p_init_msg_list is set to TRUE.
2049: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2046: END IF;
2047:
2048: -- Initialize message list if p_init_msg_list is set to TRUE.
2049: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2050: FND_MSG_PUB.initialize;
2051: END IF;
2052:
2053: -- Debug Message
2056: END IF;
2057:
2058:
2059: -- Initialize API return status to SUCCESS
2060: x_return_status := FND_API.G_RET_STS_SUCCESS;
2061:
2062:
2063: -- Validate Environment
2064: IF FND_GLOBAL.USER_ID IS NULL THEN
2062:
2063: -- Validate Environment
2064: IF FND_GLOBAL.USER_ID IS NULL THEN
2065: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
2066: RAISE FND_API.G_EXC_ERROR;
2067: END IF;
2068:
2069: -- validate partner id
2070: IF p_partner_id IS NULL THEN
2068:
2069: -- validate partner id
2070: IF p_partner_id IS NULL THEN
2071: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_PARTNER_ID_MISSING'); -- seed this message
2072: RAISE FND_API.G_EXC_ERROR;
2073: END IF;
2074:
2075: --validate status reason code
2076: l_default_program_id := isnumber(FND_PROFILE.VALUE('PV_PARTNER_DEFAULT_PROGRAM'));
2109:
2110: --write to the logs
2111: END IF;
2112:
2113: IF x_return_status = FND_API.g_ret_sts_error THEN
2114: RAISE FND_API.g_exc_error;
2115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2116: RAISE FND_API.g_exc_unexpected_error;
2117: END IF;
2110: --write to the logs
2111: END IF;
2112:
2113: IF x_return_status = FND_API.g_ret_sts_error THEN
2114: RAISE FND_API.g_exc_error;
2115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2116: RAISE FND_API.g_exc_unexpected_error;
2117: END IF;
2118:
2111: END IF;
2112:
2113: IF x_return_status = FND_API.g_ret_sts_error THEN
2114: RAISE FND_API.g_exc_error;
2115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2116: RAISE FND_API.g_exc_unexpected_error;
2117: END IF;
2118:
2119: OPEN enrq_csr(p_partner_id);
2112:
2113: IF x_return_status = FND_API.g_ret_sts_error THEN
2114: RAISE FND_API.g_exc_error;
2115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2116: RAISE FND_API.g_exc_unexpected_error;
2117: END IF;
2118:
2119: OPEN enrq_csr(p_partner_id);
2120: FETCH enrq_csr BULK COLLECT INTO l_enrl_id_tbl;
2130: ,x_return_status => x_return_status
2131: ,x_msg_count => x_msg_count
2132: ,x_msg_data => x_msg_data
2133: );
2134: IF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2137: RAISE FND_API.g_exc_unexpected_error;
2138: END IF;
2131: ,x_msg_count => x_msg_count
2132: ,x_msg_data => x_msg_data
2133: );
2134: IF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2137: RAISE FND_API.g_exc_unexpected_error;
2138: END IF;
2139:
2132: ,x_msg_data => x_msg_data
2133: );
2134: IF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2137: RAISE FND_API.g_exc_unexpected_error;
2138: END IF;
2139:
2140: END IF;
2133: );
2134: IF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2137: RAISE FND_API.g_exc_unexpected_error;
2138: END IF;
2139:
2140: END IF;
2141:
2193: , x_msg_data => x_msg_data
2194:
2195: );
2196:
2197: IF x_return_status = FND_API.g_ret_sts_error THEN
2198: RAISE FND_API.g_exc_error;
2199: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2200: RAISE FND_API.g_exc_unexpected_error;
2201: END IF;
2194:
2195: );
2196:
2197: IF x_return_status = FND_API.g_ret_sts_error THEN
2198: RAISE FND_API.g_exc_error;
2199: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2200: RAISE FND_API.g_exc_unexpected_error;
2201: END IF;
2202:
2195: );
2196:
2197: IF x_return_status = FND_API.g_ret_sts_error THEN
2198: RAISE FND_API.g_exc_error;
2199: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2200: RAISE FND_API.g_exc_unexpected_error;
2201: END IF;
2202:
2203: --write to the logs
2196:
2197: IF x_return_status = FND_API.g_ret_sts_error THEN
2198: RAISE FND_API.g_exc_error;
2199: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2200: RAISE FND_API.g_exc_unexpected_error;
2201: END IF;
2202:
2203: --write to the logs
2204: END IF;
2217: ,x_return_status => x_return_status
2218: ,x_msg_count => x_msg_count
2219: ,x_msg_data => x_msg_data
2220: );
2221: IF x_return_status = FND_API.g_ret_sts_error THEN
2222: RAISE FND_API.g_exc_error;
2223: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2224: RAISE FND_API.g_exc_unexpected_error;
2225: END IF;
2218: ,x_msg_count => x_msg_count
2219: ,x_msg_data => x_msg_data
2220: );
2221: IF x_return_status = FND_API.g_ret_sts_error THEN
2222: RAISE FND_API.g_exc_error;
2223: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2224: RAISE FND_API.g_exc_unexpected_error;
2225: END IF;
2226:
2219: ,x_msg_data => x_msg_data
2220: );
2221: IF x_return_status = FND_API.g_ret_sts_error THEN
2222: RAISE FND_API.g_exc_error;
2223: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2224: RAISE FND_API.g_exc_unexpected_error;
2225: END IF;
2226:
2227: END IF;
2220: );
2221: IF x_return_status = FND_API.g_ret_sts_error THEN
2222: RAISE FND_API.g_exc_error;
2223: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2224: RAISE FND_API.g_exc_unexpected_error;
2225: END IF;
2226:
2227: END IF;
2228:
2244: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2245: END IF;
2246:
2247: -- Standard check for p_commit
2248: IF FND_API.to_Boolean( p_commit ) THEN
2249: COMMIT WORK;
2250: END IF;
2251:
2252: EXCEPTION
2249: COMMIT WORK;
2250: END IF;
2251:
2252: EXCEPTION
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: ROLLBACK TO Terminate_ptr_memberships;
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: -- Standard call to get message count and if count=1, get the message
2257: FND_MSG_PUB.Count_And_Get
2251:
2252: EXCEPTION
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: ROLLBACK TO Terminate_ptr_memberships;
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: -- Standard call to get message count and if count=1, get the message
2257: FND_MSG_PUB.Count_And_Get
2258: ( p_encoded => FND_API.G_FALSE
2259: ,p_count => x_msg_count
2254: ROLLBACK TO Terminate_ptr_memberships;
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: -- Standard call to get message count and if count=1, get the message
2257: FND_MSG_PUB.Count_And_Get
2258: ( p_encoded => FND_API.G_FALSE
2259: ,p_count => x_msg_count
2260: ,p_data => x_msg_data
2261: );
2262:
2259: ,p_count => x_msg_count
2260: ,p_data => x_msg_data
2261: );
2262:
2263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2264: ROLLBACK TO Terminate_ptr_memberships;
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2266: -- Standard call to get message count and if count=1, get the message
2267: FND_MSG_PUB.Count_And_Get
2261: );
2262:
2263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2264: ROLLBACK TO Terminate_ptr_memberships;
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2266: -- Standard call to get message count and if count=1, get the message
2267: FND_MSG_PUB.Count_And_Get
2268: ( p_encoded => FND_API.G_FALSE
2269: ,p_count => x_msg_count
2264: ROLLBACK TO Terminate_ptr_memberships;
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2266: -- Standard call to get message count and if count=1, get the message
2267: FND_MSG_PUB.Count_And_Get
2268: ( p_encoded => FND_API.G_FALSE
2269: ,p_count => x_msg_count
2270: ,p_data => x_msg_data
2271: );
2272:
2271: );
2272:
2273: WHEN OTHERS THEN
2274: ROLLBACK TO Terminate_ptr_memberships;
2275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2276: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2277: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2278: END IF;
2279: FND_MSG_PUB.Count_And_Get
2276: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2277: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2278: END IF;
2279: FND_MSG_PUB.Count_And_Get
2280: ( p_encoded => FND_API.G_FALSE
2281: ,p_count => x_msg_count
2282: ,p_data => x_msg_data
2283: );
2284: END Terminate_ptr_memberships;
2336:
2337: EXCEPTION
2338:
2339: WHEN OTHERS THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END get_prereq_programs;
2342:
2343:
2344: FUNCTION get_dependent_program_id
2423:
2424: EXCEPTION
2425:
2426: WHEN OTHERS THEN
2427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2428:
2429: END get_dependent_program_id;
2430:
2431:
2454:
2455: PROCEDURE Terminate_membership
2456: (
2457: p_api_version_number IN NUMBER
2458: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2459: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2460: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2461: , p_membership_id IN NUMBER
2462: , p_event_code IN VARCHAR2
2455: PROCEDURE Terminate_membership
2456: (
2457: p_api_version_number IN NUMBER
2458: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2459: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2460: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2461: , p_membership_id IN NUMBER
2462: , p_event_code IN VARCHAR2
2463: , p_memb_type IN VARCHAR
2456: (
2457: p_api_version_number IN NUMBER
2458: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2459: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2460: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2461: , p_membership_id IN NUMBER
2462: , p_event_code IN VARCHAR2
2463: , p_memb_type IN VARCHAR
2464: , p_status_reason_code IN VARCHAR2
2599: BEGIN
2600: -- Standard Start of API savepoint
2601: SAVEPOINT Terminate_membership ;
2602: -- Standard call to check for call compatibility.
2603: IF NOT FND_API.Compatible_API_Call
2604: ( l_api_version_number
2605: ,p_api_version_number
2606: ,l_api_name
2607: ,G_PKG_NAME
2606: ,l_api_name
2607: ,G_PKG_NAME
2608: )
2609: THEN
2610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2611: END IF;
2612: -- Initialize message list if p_init_msg_list is set to TRUE.
2613: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2614: FND_MSG_PUB.initialize;
2609: THEN
2610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2611: END IF;
2612: -- Initialize message list if p_init_msg_list is set to TRUE.
2613: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2614: FND_MSG_PUB.initialize;
2615: END IF;
2616:
2617: -- Debug Message
2620: PVX_UTILITY_PVT.debug_message( 'Private API: ' || l_api_name || 'start' );
2621: END IF;
2622:
2623: -- Initialize API return status to SUCCESS
2624: x_return_status := FND_API.G_RET_STS_SUCCESS;
2625: -- Validate Environment
2626: IF FND_GLOBAL.USER_ID IS NULL THEN
2627: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
2628: RAISE FND_API.G_EXC_ERROR;
2624: x_return_status := FND_API.G_RET_STS_SUCCESS;
2625: -- Validate Environment
2626: IF FND_GLOBAL.USER_ID IS NULL THEN
2627: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
2628: RAISE FND_API.G_EXC_ERROR;
2629: END IF;
2630: -- validate p_status_reason_code
2631: IF p_status_reason_code is NOT NULL THEN
2632: validate_Lookup
2634: p_lookup_type => 'PV_MEMB_STATUS_REASON_CODE'
2635: ,p_lookup_code => p_status_reason_code
2636: ,x_return_status => x_return_status
2637: );
2638: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2635: ,p_lookup_code => p_status_reason_code
2636: ,x_return_status => x_return_status
2637: );
2638: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: END IF;
2636: ,x_return_status => x_return_status
2637: );
2638: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: END IF;
2644:
2637: );
2638: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: END IF;
2644:
2645: -- validate p_event_code
2648: p_lookup_type => 'PV_MEMBERSHIP_STATUS'
2649: ,p_lookup_code => p_event_code
2650: ,x_return_status => x_return_status
2651: );
2652: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_ERROR;
2654: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2656: END IF;
2649: ,p_lookup_code => p_event_code
2650: ,x_return_status => x_return_status
2651: );
2652: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_ERROR;
2654: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2656: END IF;
2657:
2650: ,x_return_status => x_return_status
2651: );
2652: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_ERROR;
2654: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2656: END IF;
2657:
2658: -- VALIDATE the passed in member type value thats passed in
2651: );
2652: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_ERROR;
2654: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2656: END IF;
2657:
2658: -- VALIDATE the passed in member type value thats passed in
2659: -- find out the existing the member type if its not passed in.. If its passed , validate it
2668: p_lookup_type => 'PV_MEMBER_TYPE_CODE'
2669: , p_lookup_code => p_memb_type
2670: , x_return_status => x_return_status
2671: );
2672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2673: RAISE FND_API.G_EXC_ERROR;
2674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2676: END IF;
2669: , p_lookup_code => p_memb_type
2670: , x_return_status => x_return_status
2671: );
2672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2673: RAISE FND_API.G_EXC_ERROR;
2674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2676: END IF;
2677: */
2670: , x_return_status => x_return_status
2671: );
2672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2673: RAISE FND_API.G_EXC_ERROR;
2674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2676: END IF;
2677: */
2678: validate_member_type
2671: );
2672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2673: RAISE FND_API.G_EXC_ERROR;
2674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2676: END IF;
2677: */
2678: validate_member_type
2679: (
2679: (
2680: p_member_type => p_memb_type
2681: ,x_return_status => x_return_status
2682: );
2683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2687: END IF;
2680: p_member_type => p_memb_type
2681: ,x_return_status => x_return_status
2682: );
2683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2687: END IF;
2688: l_member_type := p_memb_type;
2681: ,x_return_status => x_return_status
2682: );
2683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2687: END IF;
2688: l_member_type := p_memb_type;
2689: END IF;
2682: );
2683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2687: END IF;
2688: l_member_type := p_memb_type;
2689: END IF;
2690: -- need to validate status reason code also. need to evaluate whether we should do it here or in term_all_memberships
2716: , x_msg_count => x_msg_count
2717: , x_msg_data => x_msg_data
2718:
2719: );
2720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2721: RAISE FND_API.G_EXC_ERROR;
2722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2724: END IF;
2717: , x_msg_data => x_msg_data
2718:
2719: );
2720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2721: RAISE FND_API.G_EXC_ERROR;
2722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2724: END IF;
2725:
2718:
2719: );
2720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2721: RAISE FND_API.G_EXC_ERROR;
2722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2724: END IF;
2725:
2726: -- incase of downgrades there is a seperate api downgrade_membership which will call this api.
2719: );
2720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2721: RAISE FND_API.G_EXC_ERROR;
2722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2724: END IF;
2725:
2726: -- incase of downgrades there is a seperate api downgrade_membership which will call this api.
2727: -- so the term_all_memberships will put the membership status of the membership to downgraded
2801: , x_msg_data => x_msg_data
2802:
2803: );
2804:
2805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2806: RAISE FND_API.G_EXC_ERROR;
2807: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2809: END IF;
2802:
2803: );
2804:
2805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2806: RAISE FND_API.G_EXC_ERROR;
2807: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2809: END IF;
2810:
2803: );
2804:
2805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2806: RAISE FND_API.G_EXC_ERROR;
2807: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2809: END IF;
2810:
2811: END IF;
2804:
2805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2806: RAISE FND_API.G_EXC_ERROR;
2807: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2809: END IF;
2810:
2811: END IF;
2812: --call cancel_all_enrollments to cancel all the enrollemnt requests in the l_enrl_req_tbl
2820: , x_return_status => x_return_status
2821: , x_msg_count => x_msg_count
2822: , x_msg_data => x_msg_data
2823: );
2824: IF x_return_status = FND_API.g_ret_sts_error THEN
2825: RAISE FND_API.g_exc_error;
2826: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2827: RAISE FND_API.g_exc_unexpected_error;
2828: END IF;
2821: , x_msg_count => x_msg_count
2822: , x_msg_data => x_msg_data
2823: );
2824: IF x_return_status = FND_API.g_ret_sts_error THEN
2825: RAISE FND_API.g_exc_error;
2826: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2827: RAISE FND_API.g_exc_unexpected_error;
2828: END IF;
2829: END IF;
2822: , x_msg_data => x_msg_data
2823: );
2824: IF x_return_status = FND_API.g_ret_sts_error THEN
2825: RAISE FND_API.g_exc_error;
2826: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2827: RAISE FND_API.g_exc_unexpected_error;
2828: END IF;
2829: END IF;
2830: -- delete all values from the l_enrl_req_tbl variable
2823: );
2824: IF x_return_status = FND_API.g_ret_sts_error THEN
2825: RAISE FND_API.g_exc_error;
2826: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2827: RAISE FND_API.g_exc_unexpected_error;
2828: END IF;
2829: END IF;
2830: -- delete all values from the l_enrl_req_tbl variable
2831: l_enrl_req_tbl.delete();
2913: , x_return_status => x_return_status
2914: , x_msg_count => x_msg_count
2915: , x_msg_data => x_msg_data
2916: );
2917: IF x_return_status = FND_API.g_ret_sts_error THEN
2918: RAISE FND_API.g_exc_error;
2919: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2920: RAISE FND_API.g_exc_unexpected_error;
2921: END IF;
2914: , x_msg_count => x_msg_count
2915: , x_msg_data => x_msg_data
2916: );
2917: IF x_return_status = FND_API.g_ret_sts_error THEN
2918: RAISE FND_API.g_exc_error;
2919: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2920: RAISE FND_API.g_exc_unexpected_error;
2921: END IF;
2922: END IF;
2915: , x_msg_data => x_msg_data
2916: );
2917: IF x_return_status = FND_API.g_ret_sts_error THEN
2918: RAISE FND_API.g_exc_error;
2919: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2920: RAISE FND_API.g_exc_unexpected_error;
2921: END IF;
2922: END IF;
2923: l_enrl_req_tbl.delete();
2916: );
2917: IF x_return_status = FND_API.g_ret_sts_error THEN
2918: RAISE FND_API.g_exc_error;
2919: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2920: RAISE FND_API.g_exc_unexpected_error;
2921: END IF;
2922: END IF;
2923: l_enrl_req_tbl.delete();
2924: ecounter := 1;
2998: , x_return_status => x_return_status
2999: , x_msg_count => x_msg_count
3000: , x_msg_data => x_msg_data
3001: );
3002: IF x_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
2999: , x_msg_count => x_msg_count
3000: , x_msg_data => x_msg_data
3001: );
3002: IF x_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
3007: END IF;
3000: , x_msg_data => x_msg_data
3001: );
3002: IF x_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
3007: END IF;
3008:
3001: );
3002: IF x_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
3007: END IF;
3008:
3009: --terminate the dependent programs prereqs
3020: , x_msg_count => x_msg_count
3021: , x_msg_data => x_msg_data
3022:
3023: );
3024: IF x_return_status = FND_API.g_ret_sts_error THEN
3025: RAISE FND_API.g_exc_error;
3026: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3027: RAISE FND_API.g_exc_unexpected_error;
3028: END IF;
3021: , x_msg_data => x_msg_data
3022:
3023: );
3024: IF x_return_status = FND_API.g_ret_sts_error THEN
3025: RAISE FND_API.g_exc_error;
3026: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3027: RAISE FND_API.g_exc_unexpected_error;
3028: END IF;
3029: END IF;
3022:
3023: );
3024: IF x_return_status = FND_API.g_ret_sts_error THEN
3025: RAISE FND_API.g_exc_error;
3026: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3027: RAISE FND_API.g_exc_unexpected_error;
3028: END IF;
3029: END IF;
3030:
3023: );
3024: IF x_return_status = FND_API.g_ret_sts_error THEN
3025: RAISE FND_API.g_exc_error;
3026: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3027: RAISE FND_API.g_exc_unexpected_error;
3028: END IF;
3029: END IF;
3030:
3031: END IF;-- end of if, if there are any prereqs to terminated subsidiary programs
3045: (
3046: p_count => x_msg_count
3047: , p_data => x_msg_data
3048: );
3049: IF FND_API.to_Boolean( p_commit ) THEN
3050: COMMIT WORK;
3051: END IF;
3052:
3053: EXCEPTION
3050: COMMIT WORK;
3051: END IF;
3052:
3053: EXCEPTION
3054: WHEN FND_API.G_EXC_ERROR THEN
3055: ROLLBACK TO Terminate_membership;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: -- Standard call to get message count and if count=1, get the message
3058: FND_MSG_PUB.Count_And_Get (
3052:
3053: EXCEPTION
3054: WHEN FND_API.G_EXC_ERROR THEN
3055: ROLLBACK TO Terminate_membership;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: -- Standard call to get message count and if count=1, get the message
3058: FND_MSG_PUB.Count_And_Get (
3059: p_encoded => FND_API.G_FALSE,
3060: p_count => x_msg_count,
3055: ROLLBACK TO Terminate_membership;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: -- Standard call to get message count and if count=1, get the message
3058: FND_MSG_PUB.Count_And_Get (
3059: p_encoded => FND_API.G_FALSE,
3060: p_count => x_msg_count,
3061: p_data => x_msg_data
3062: );
3063:
3060: p_count => x_msg_count,
3061: p_data => x_msg_data
3062: );
3063:
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO Terminate_membership;
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: -- Standard call to get message count and if count=1, get the message
3068: FND_MSG_PUB.Count_And_Get (
3062: );
3063:
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO Terminate_membership;
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: -- Standard call to get message count and if count=1, get the message
3068: FND_MSG_PUB.Count_And_Get (
3069: p_encoded => FND_API.G_FALSE,
3070: p_count => x_msg_count,
3065: ROLLBACK TO Terminate_membership;
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: -- Standard call to get message count and if count=1, get the message
3068: FND_MSG_PUB.Count_And_Get (
3069: p_encoded => FND_API.G_FALSE,
3070: p_count => x_msg_count,
3071: p_data => x_msg_data
3072: );
3073:
3072: );
3073:
3074: WHEN OTHERS THEN
3075: ROLLBACK TO Terminate_membership;
3076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3077: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3078: THEN
3079: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3080: END IF;
3079: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3080: END IF;
3081: -- Standard call to get message count and if count=1, get the message
3082: FND_MSG_PUB.Count_And_Get (
3083: p_encoded => FND_API.G_FALSE,
3084: p_count => x_msg_count,
3085: p_data => x_msg_data
3086: );
3087:
3089:
3090: PROCEDURE downgrade_membership
3091: (
3092: p_api_version_number IN NUMBER
3093: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3094: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3095: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3096: , p_membership_id IN NUMBER -- membership id of the program that you are dwongrading
3097: , p_status_reason_code IN VARCHAR2 -- reason for termoination or downgrade
3090: PROCEDURE downgrade_membership
3091: (
3092: p_api_version_number IN NUMBER
3093: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3094: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3095: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3096: , p_membership_id IN NUMBER -- membership id of the program that you are dwongrading
3097: , p_status_reason_code IN VARCHAR2 -- reason for termoination or downgrade
3098: , p_comments IN VARCHAR2 DEFAULT NULL
3091: (
3092: p_api_version_number IN NUMBER
3093: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3094: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3095: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3096: , p_membership_id IN NUMBER -- membership id of the program that you are dwongrading
3097: , p_status_reason_code IN VARCHAR2 -- reason for termoination or downgrade
3098: , p_comments IN VARCHAR2 DEFAULT NULL
3099: , p_program_id_downgraded_to IN NUMBER --programid into which the partner is downgraded to.
3139: BEGIN
3140: -- Standard Start of API savepoint
3141: SAVEPOINT downgrade_membership ;
3142: -- Standard call to check for call compatibility.
3143: IF NOT FND_API.Compatible_API_Call
3144: ( l_api_version_number
3145: ,p_api_version_number
3146: ,l_api_name
3147: ,G_PKG_NAME
3146: ,l_api_name
3147: ,G_PKG_NAME
3148: )
3149: THEN
3150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3151: END IF;
3152: -- Initialize message list if p_init_msg_list is set to TRUE.
3153: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3154: FND_MSG_PUB.initialize;
3149: THEN
3150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3151: END IF;
3152: -- Initialize message list if p_init_msg_list is set to TRUE.
3153: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3154: FND_MSG_PUB.initialize;
3155: END IF;
3156: -- Debug Message
3157: IF (PV_DEBUG_HIGH_ON) THEN
3158: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3159: END IF;
3160:
3161: -- Initialize API return status to SUCCESS
3162: x_return_status := FND_API.G_RET_STS_SUCCESS;
3163: -- Validate Environment
3164: IF FND_GLOBAL.USER_ID IS NULL THEN
3165: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3166: RAISE FND_API.G_EXC_ERROR;
3162: x_return_status := FND_API.G_RET_STS_SUCCESS;
3163: -- Validate Environment
3164: IF FND_GLOBAL.USER_ID IS NULL THEN
3165: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3166: RAISE FND_API.G_EXC_ERROR;
3167: END IF;
3168: -- call terminate membership with event code as downgraded
3169: Terminate_membership
3170: (
3168: -- call terminate membership with event code as downgraded
3169: Terminate_membership
3170: (
3171: p_api_version_number =>1.0
3172: , p_init_msg_list => FND_API.G_FALSE
3173: , p_commit => FND_API.G_FALSE
3174: , p_validation_level => FND_API.g_valid_level_full
3175: , p_membership_id => p_membership_id
3176: , p_event_code => 'DOWNGRADED'
3169: Terminate_membership
3170: (
3171: p_api_version_number =>1.0
3172: , p_init_msg_list => FND_API.G_FALSE
3173: , p_commit => FND_API.G_FALSE
3174: , p_validation_level => FND_API.g_valid_level_full
3175: , p_membership_id => p_membership_id
3176: , p_event_code => 'DOWNGRADED'
3177: , p_memb_type => NULL
3170: (
3171: p_api_version_number =>1.0
3172: , p_init_msg_list => FND_API.G_FALSE
3173: , p_commit => FND_API.G_FALSE
3174: , p_validation_level => FND_API.g_valid_level_full
3175: , p_membership_id => p_membership_id
3176: , p_event_code => 'DOWNGRADED'
3177: , p_memb_type => NULL
3178: , p_status_reason_code => 'POOR_PERF'
3180: , x_return_status => x_return_status
3181: , x_msg_count => x_msg_count
3182: , x_msg_data => x_msg_data
3183: );
3184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3185: RAISE FND_API.G_EXC_ERROR;
3186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3181: , x_msg_count => x_msg_count
3182: , x_msg_data => x_msg_data
3183: );
3184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3185: RAISE FND_API.G_EXC_ERROR;
3186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3189:
3182: , x_msg_data => x_msg_data
3183: );
3184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3185: RAISE FND_API.G_EXC_ERROR;
3186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3189:
3190: OPEN membership_csr(p_membership_id);
3183: );
3184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3185: RAISE FND_API.G_EXC_ERROR;
3186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3189:
3190: OPEN membership_csr(p_membership_id);
3191: FETCH membership_csr INTO l_partner_id,l_original_end_date,l_from_enrl_request_id,l_from_program_name;
3204:
3205: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
3206: (
3207: p_api_version_number =>1.0
3208: , p_init_msg_list => FND_API.G_FALSE
3209: , p_commit => FND_API.G_FALSE
3210: , p_validation_level => FND_API.g_valid_level_full
3211: , x_return_status => x_return_status
3212: , x_msg_count => x_msg_count
3205: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
3206: (
3207: p_api_version_number =>1.0
3208: , p_init_msg_list => FND_API.G_FALSE
3209: , p_commit => FND_API.G_FALSE
3210: , p_validation_level => FND_API.g_valid_level_full
3211: , x_return_status => x_return_status
3212: , x_msg_count => x_msg_count
3213: , x_msg_data => x_msg_data
3206: (
3207: p_api_version_number =>1.0
3208: , p_init_msg_list => FND_API.G_FALSE
3209: , p_commit => FND_API.G_FALSE
3210: , p_validation_level => FND_API.g_valid_level_full
3211: , x_return_status => x_return_status
3212: , x_msg_count => x_msg_count
3213: , x_msg_data => x_msg_data
3214: , p_enrl_request_rec => l_pv_pg_enrq_rec
3213: , x_msg_data => x_msg_data
3214: , p_enrl_request_rec => l_pv_pg_enrq_rec
3215: , x_enrl_request_id => l_enrl_request_id
3216: );
3217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3218: RAISE FND_API.G_EXC_ERROR;
3219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3214: , p_enrl_request_rec => l_pv_pg_enrq_rec
3215: , x_enrl_request_id => l_enrl_request_id
3216: );
3217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3218: RAISE FND_API.G_EXC_ERROR;
3219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222: --create a membership record with the downgraded program id and end date of the program from which it was
3215: , x_enrl_request_id => l_enrl_request_id
3216: );
3217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3218: RAISE FND_API.G_EXC_ERROR;
3219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222: --create a membership record with the downgraded program id and end date of the program from which it was
3223: --downgraded
3216: );
3217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3218: RAISE FND_API.G_EXC_ERROR;
3219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222: --create a membership record with the downgraded program id and end date of the program from which it was
3223: --downgraded
3224: l_pv_pg_new_memb_rec.enrl_request_id := l_enrl_request_id;
3229: l_pv_pg_new_memb_rec.program_id := p_program_id_downgraded_to;
3230:
3231: PV_Pg_Memberships_PVT.Create_Pg_memberships
3232: ( p_api_version_number=>1.0
3233: , p_init_msg_list => FND_API.G_FALSE
3234: , p_commit => FND_API.G_FALSE
3235: , p_validation_level => FND_API.g_valid_level_full
3236: , x_return_status => x_return_status
3237: , x_msg_count => x_msg_count
3230:
3231: PV_Pg_Memberships_PVT.Create_Pg_memberships
3232: ( p_api_version_number=>1.0
3233: , p_init_msg_list => FND_API.G_FALSE
3234: , p_commit => FND_API.G_FALSE
3235: , p_validation_level => FND_API.g_valid_level_full
3236: , x_return_status => x_return_status
3237: , x_msg_count => x_msg_count
3238: , x_msg_data => x_msg_data
3231: PV_Pg_Memberships_PVT.Create_Pg_memberships
3232: ( p_api_version_number=>1.0
3233: , p_init_msg_list => FND_API.G_FALSE
3234: , p_commit => FND_API.G_FALSE
3235: , p_validation_level => FND_API.g_valid_level_full
3236: , x_return_status => x_return_status
3237: , x_msg_count => x_msg_count
3238: , x_msg_data => x_msg_data
3239: , p_memb_rec => l_pv_pg_new_memb_rec
3238: , x_msg_data => x_msg_data
3239: , p_memb_rec => l_pv_pg_new_memb_rec
3240: , x_membership_id => l_membership_id
3241: );
3242: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3239: , p_memb_rec => l_pv_pg_new_memb_rec
3240: , x_membership_id => l_membership_id
3241: );
3242: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247: x_new_memb_id :=l_membership_id;
3240: , x_membership_id => l_membership_id
3241: );
3242: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247: x_new_memb_id :=l_membership_id;
3248: --insert into member transitions table
3241: );
3242: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247: x_new_memb_id :=l_membership_id;
3248: --insert into member transitions table
3249:
3251: l_mmbr_tran_rec.to_membership_id:=l_membership_id;
3252: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
3253: (
3254: p_api_version_number =>1.0
3255: , p_init_msg_list => FND_API.G_FALSE
3256: , p_commit => FND_API.G_FALSE
3257: , p_validation_level => FND_API.g_valid_level_full
3258: , x_return_status => x_return_status
3259: , x_msg_count => x_msg_count
3252: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
3253: (
3254: p_api_version_number =>1.0
3255: , p_init_msg_list => FND_API.G_FALSE
3256: , p_commit => FND_API.G_FALSE
3257: , p_validation_level => FND_API.g_valid_level_full
3258: , x_return_status => x_return_status
3259: , x_msg_count => x_msg_count
3260: , x_msg_data => x_msg_data
3253: (
3254: p_api_version_number =>1.0
3255: , p_init_msg_list => FND_API.G_FALSE
3256: , p_commit => FND_API.G_FALSE
3257: , p_validation_level => FND_API.g_valid_level_full
3258: , x_return_status => x_return_status
3259: , x_msg_count => x_msg_count
3260: , x_msg_data => x_msg_data
3261: , p_mmbr_tran_rec => l_mmbr_tran_rec
3260: , x_msg_data => x_msg_data
3261: , p_mmbr_tran_rec => l_mmbr_tran_rec
3262: , x_mmbr_transition_id => l_mmbr_transition_id
3263: );
3264: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3265: RAISE FND_API.G_EXC_ERROR;
3266: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3268: END IF;
3261: , p_mmbr_tran_rec => l_mmbr_tran_rec
3262: , x_mmbr_transition_id => l_mmbr_transition_id
3263: );
3264: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3265: RAISE FND_API.G_EXC_ERROR;
3266: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3268: END IF;
3269: --call responsiblity management api for the new membership
3262: , x_mmbr_transition_id => l_mmbr_transition_id
3263: );
3264: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3265: RAISE FND_API.G_EXC_ERROR;
3266: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3268: END IF;
3269: --call responsiblity management api for the new membership
3270: Pv_User_Resp_Pvt.manage_memb_resp
3263: );
3264: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3265: RAISE FND_API.G_EXC_ERROR;
3266: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3268: END IF;
3269: --call responsiblity management api for the new membership
3270: Pv_User_Resp_Pvt.manage_memb_resp
3271: (
3269: --call responsiblity management api for the new membership
3270: Pv_User_Resp_Pvt.manage_memb_resp
3271: (
3272: p_api_version_number => 1.0
3273: , p_init_msg_list => Fnd_Api.g_false
3274: , p_commit => Fnd_Api.g_false
3275: , p_membership_id => l_membership_id
3276: , x_return_status => x_return_status
3277: , x_msg_count => x_msg_count
3270: Pv_User_Resp_Pvt.manage_memb_resp
3271: (
3272: p_api_version_number => 1.0
3273: , p_init_msg_list => Fnd_Api.g_false
3274: , p_commit => Fnd_Api.g_false
3275: , p_membership_id => l_membership_id
3276: , x_return_status => x_return_status
3277: , x_msg_count => x_msg_count
3278: , x_msg_data => x_msg_data
3277: , x_msg_count => x_msg_count
3278: , x_msg_data => x_msg_data
3279: );
3280:
3281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3278: , x_msg_data => x_msg_data
3279: );
3280:
3281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3286:
3279: );
3280:
3281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3286:
3287: OPEN to_program_csr ( p_program_id_downgraded_to );
3280:
3281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3286:
3287: OPEN to_program_csr ( p_program_id_downgraded_to );
3288: FETCH to_program_csr INTO l_to_program_name;
3305: , p_partner_id => l_partner_id
3306: , p_access_level_flag => 'P'
3307: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
3308: , p_log_params_tbl => l_param_tbl_var
3309: , p_init_msg_list => FND_API.g_false
3310: , p_commit => FND_API.G_FALSE
3311: , x_return_status => x_return_status
3312: , x_msg_count => x_msg_count
3313: , x_msg_data => x_msg_data
3306: , p_access_level_flag => 'P'
3307: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
3308: , p_log_params_tbl => l_param_tbl_var
3309: , p_init_msg_list => FND_API.g_false
3310: , p_commit => FND_API.G_FALSE
3311: , x_return_status => x_return_status
3312: , x_msg_count => x_msg_count
3313: , x_msg_data => x_msg_data
3314: );
3313: , x_msg_data => x_msg_data
3314: );
3315:
3316:
3317: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3318: RAISE FND_API.G_EXC_ERROR;
3319: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3314: );
3315:
3316:
3317: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3318: RAISE FND_API.G_EXC_ERROR;
3319: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322:
3315:
3316:
3317: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3318: RAISE FND_API.G_EXC_ERROR;
3319: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322:
3323: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3316:
3317: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3318: RAISE FND_API.G_EXC_ERROR;
3319: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322:
3323: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3324: (
3322:
3323: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3324: (
3325: p_api_version_number => 1.0
3326: , p_init_msg_list => FND_API.G_FALSE
3327: , p_commit => FND_API.G_FALSE
3328: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3329: , p_context_id => p_program_id_downgraded_to
3330: , p_context_code => 'PROGRAM'
3323: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3324: (
3325: p_api_version_number => 1.0
3326: , p_init_msg_list => FND_API.G_FALSE
3327: , p_commit => FND_API.G_FALSE
3328: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3329: , p_context_id => p_program_id_downgraded_to
3330: , p_context_code => 'PROGRAM'
3331: , p_target_ctgry => 'PARTNER'
3324: (
3325: p_api_version_number => 1.0
3326: , p_init_msg_list => FND_API.G_FALSE
3327: , p_commit => FND_API.G_FALSE
3328: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3329: , p_context_id => p_program_id_downgraded_to
3330: , p_context_code => 'PROGRAM'
3331: , p_target_ctgry => 'PARTNER'
3332: , p_target_ctgry_pt_id => l_partner_id -- this should be PARTNER ID
3339: , x_msg_data => x_msg_data
3340: );
3341:
3342:
3343: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3344: RAISE FND_API.G_EXC_ERROR;
3345: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3347: END IF;
3340: );
3341:
3342:
3343: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3344: RAISE FND_API.G_EXC_ERROR;
3345: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3347: END IF;
3348:
3341:
3342:
3343: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3344: RAISE FND_API.G_EXC_ERROR;
3345: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3347: END IF;
3348:
3349: -- Debug Message
3342:
3343: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3344: RAISE FND_API.G_EXC_ERROR;
3345: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3347: END IF;
3348:
3349: -- Debug Message
3350: IF (PV_DEBUG_HIGH_ON) THEN
3356: (
3357: p_count => x_msg_count
3358: , p_data => x_msg_data
3359: );
3360: IF FND_API.to_Boolean( p_commit ) THEN
3361: COMMIT WORK;
3362: END IF;
3363:
3364: EXCEPTION
3361: COMMIT WORK;
3362: END IF;
3363:
3364: EXCEPTION
3365: WHEN FND_API.G_EXC_ERROR THEN
3366: ROLLBACK TO downgrade_membership;
3367: x_return_status := FND_API.G_RET_STS_ERROR;
3368: -- Standard call to get message count and if count=1, get the message
3369: FND_MSG_PUB.Count_And_Get (
3363:
3364: EXCEPTION
3365: WHEN FND_API.G_EXC_ERROR THEN
3366: ROLLBACK TO downgrade_membership;
3367: x_return_status := FND_API.G_RET_STS_ERROR;
3368: -- Standard call to get message count and if count=1, get the message
3369: FND_MSG_PUB.Count_And_Get (
3370: p_encoded => FND_API.G_FALSE,
3371: p_count => x_msg_count,
3366: ROLLBACK TO downgrade_membership;
3367: x_return_status := FND_API.G_RET_STS_ERROR;
3368: -- Standard call to get message count and if count=1, get the message
3369: FND_MSG_PUB.Count_And_Get (
3370: p_encoded => FND_API.G_FALSE,
3371: p_count => x_msg_count,
3372: p_data => x_msg_data
3373: );
3374:
3371: p_count => x_msg_count,
3372: p_data => x_msg_data
3373: );
3374:
3375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3376: ROLLBACK TO downgrade_membership;
3377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3378: -- Standard call to get message count and if count=1, get the message
3379: FND_MSG_PUB.Count_And_Get (
3373: );
3374:
3375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3376: ROLLBACK TO downgrade_membership;
3377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3378: -- Standard call to get message count and if count=1, get the message
3379: FND_MSG_PUB.Count_And_Get (
3380: p_encoded => FND_API.G_FALSE,
3381: p_count => x_msg_count,
3376: ROLLBACK TO downgrade_membership;
3377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3378: -- Standard call to get message count and if count=1, get the message
3379: FND_MSG_PUB.Count_And_Get (
3380: p_encoded => FND_API.G_FALSE,
3381: p_count => x_msg_count,
3382: p_data => x_msg_data
3383: );
3384:
3383: );
3384:
3385: WHEN OTHERS THEN
3386: ROLLBACK TO downgrade_membership;
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3389: THEN
3390: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3391: END IF;
3390: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3391: END IF;
3392: -- Standard call to get message count and if count=1, get the message
3393: FND_MSG_PUB.Count_And_Get (
3394: p_encoded => FND_API.G_FALSE,
3395: p_count => x_msg_count,
3396: p_data => x_msg_data
3397: );
3398: END downgrade_membership;
3431:
3432: EXCEPTION
3433:
3434: WHEN OTHERS THEN
3435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3436: END getenddate;
3437:
3438:
3439: PROCEDURE Update_membership_end_date
3438:
3439: PROCEDURE Update_membership_end_date
3440: (
3441: p_api_version_number IN NUMBER
3442: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3443: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3444: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3445: , p_membership_id IN NUMBER -- membership_id for which end date needs to be updated
3446: , p_new_date IN DATE
3439: PROCEDURE Update_membership_end_date
3440: (
3441: p_api_version_number IN NUMBER
3442: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3443: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3444: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3445: , p_membership_id IN NUMBER -- membership_id for which end date needs to be updated
3446: , p_new_date IN DATE
3447: , p_comments IN VARCHAR2 DEFAULT NULL
3440: (
3441: p_api_version_number IN NUMBER
3442: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3443: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3444: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3445: , p_membership_id IN NUMBER -- membership_id for which end date needs to be updated
3446: , p_new_date IN DATE
3447: , p_comments IN VARCHAR2 DEFAULT NULL
3448: , x_return_status OUT NOCOPY VARCHAR2
3514:
3515: -- Standard Start of API savepoint
3516: SAVEPOINT Update_membership_end_date ;
3517: -- Standard call to check for call compatibility.
3518: IF NOT FND_API.Compatible_API_Call
3519: ( l_api_version_number
3520: ,p_api_version_number
3521: ,l_api_name
3522: ,G_PKG_NAME
3521: ,l_api_name
3522: ,G_PKG_NAME
3523: )
3524: THEN
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527: -- Initialize message list if p_init_msg_list is set to TRUE.
3528: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3529: FND_MSG_PUB.initialize;
3524: THEN
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527: -- Initialize message list if p_init_msg_list is set to TRUE.
3528: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3529: FND_MSG_PUB.initialize;
3530: END IF;
3531: -- Debug Message
3532: IF (PV_DEBUG_HIGH_ON) THEN
3533: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3534: END IF;
3535:
3536: -- Initialize API return status to SUCCESS
3537: x_return_status := FND_API.G_RET_STS_SUCCESS;
3538: -- Validate Environment
3539: IF FND_GLOBAL.USER_ID IS NULL THEN
3540: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3541: RAISE FND_API.G_EXC_ERROR;
3537: x_return_status := FND_API.G_RET_STS_SUCCESS;
3538: -- Validate Environment
3539: IF FND_GLOBAL.USER_ID IS NULL THEN
3540: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3541: RAISE FND_API.G_EXC_ERROR;
3542: END IF;
3543:
3544: OPEN memb_type_csr( p_membership_id );
3545: FETCH memb_type_csr INTO l_partner_id,l_object_version_number,l_member_type,l_global_current_end_date;
3549: l_pv_pg_memb_rec.original_end_date := p_new_date;
3550: l_pv_pg_memb_rec.object_version_number := l_object_version_number;
3551: PV_Pg_Memberships_PVT.Update_Pg_Memberships
3552: ( p_api_version_number => 1.0
3553: , p_init_msg_list => Fnd_Api.g_false
3554: , p_commit => Fnd_Api.g_false
3555: , x_return_status => x_return_status
3556: , x_msg_count => x_msg_count
3557: , x_msg_data => x_msg_data
3550: l_pv_pg_memb_rec.object_version_number := l_object_version_number;
3551: PV_Pg_Memberships_PVT.Update_Pg_Memberships
3552: ( p_api_version_number => 1.0
3553: , p_init_msg_list => Fnd_Api.g_false
3554: , p_commit => Fnd_Api.g_false
3555: , x_return_status => x_return_status
3556: , x_msg_count => x_msg_count
3557: , x_msg_data => x_msg_data
3558: , p_memb_rec => l_pv_pg_memb_rec
3571: l_pv_pg_memb_rec.original_end_date := l_subs_end_date;
3572: l_pv_pg_memb_rec.object_version_number := subsidiary.object_version_number;
3573: PV_Pg_Memberships_PVT.Update_Pg_Memberships
3574: ( p_api_version_number => 1.0
3575: ,p_init_msg_list => Fnd_Api.g_false
3576: ,p_commit => Fnd_Api.g_false
3577: ,x_return_status => x_return_status
3578: ,x_msg_count => x_msg_count
3579: ,x_msg_data => x_msg_data
3572: l_pv_pg_memb_rec.object_version_number := subsidiary.object_version_number;
3573: PV_Pg_Memberships_PVT.Update_Pg_Memberships
3574: ( p_api_version_number => 1.0
3575: ,p_init_msg_list => Fnd_Api.g_false
3576: ,p_commit => Fnd_Api.g_false
3577: ,x_return_status => x_return_status
3578: ,x_msg_count => x_msg_count
3579: ,x_msg_data => x_msg_data
3580: ,p_memb_rec => l_pv_pg_memb_rec
3592: FND_MSG_PUB.Count_And_Get
3593: (p_count => x_msg_count,
3594: p_data => x_msg_data
3595: );
3596: IF FND_API.to_Boolean( p_commit ) THEN
3597: COMMIT WORK;
3598: END IF;
3599:
3600: EXCEPTION
3597: COMMIT WORK;
3598: END IF;
3599:
3600: EXCEPTION
3601: WHEN FND_API.G_EXC_ERROR THEN
3602: ROLLBACK TO Update_membership_end_date;
3603: x_return_status := FND_API.G_RET_STS_ERROR;
3604: -- Standard call to get message count and if count=1, get the message
3605: FND_MSG_PUB.Count_And_Get (
3599:
3600: EXCEPTION
3601: WHEN FND_API.G_EXC_ERROR THEN
3602: ROLLBACK TO Update_membership_end_date;
3603: x_return_status := FND_API.G_RET_STS_ERROR;
3604: -- Standard call to get message count and if count=1, get the message
3605: FND_MSG_PUB.Count_And_Get (
3606: p_encoded => FND_API.G_FALSE,
3607: p_count => x_msg_count,
3602: ROLLBACK TO Update_membership_end_date;
3603: x_return_status := FND_API.G_RET_STS_ERROR;
3604: -- Standard call to get message count and if count=1, get the message
3605: FND_MSG_PUB.Count_And_Get (
3606: p_encoded => FND_API.G_FALSE,
3607: p_count => x_msg_count,
3608: p_data => x_msg_data
3609: );
3610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3606: p_encoded => FND_API.G_FALSE,
3607: p_count => x_msg_count,
3608: p_data => x_msg_data
3609: );
3610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3611: ROLLBACK TO Update_membership_end_date;
3612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3613: -- Standard call to get message count and if count=1, get the message
3614: FND_MSG_PUB.Count_And_Get (
3608: p_data => x_msg_data
3609: );
3610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3611: ROLLBACK TO Update_membership_end_date;
3612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3613: -- Standard call to get message count and if count=1, get the message
3614: FND_MSG_PUB.Count_And_Get (
3615: p_encoded => FND_API.G_FALSE,
3616: p_count => x_msg_count,
3611: ROLLBACK TO Update_membership_end_date;
3612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3613: -- Standard call to get message count and if count=1, get the message
3614: FND_MSG_PUB.Count_And_Get (
3615: p_encoded => FND_API.G_FALSE,
3616: p_count => x_msg_count,
3617: p_data => x_msg_data
3618: );
3619: WHEN OTHERS THEN
3617: p_data => x_msg_data
3618: );
3619: WHEN OTHERS THEN
3620: ROLLBACK TO Update_membership_end_date;
3621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3622: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3623: THEN
3624: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3625: END IF;
3624: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3625: END IF;
3626: -- Standard call to get message count and if count=1, get the message
3627: FND_MSG_PUB.Count_And_Get (
3628: p_encoded => FND_API.G_FALSE,
3629: p_count => x_msg_count,
3630: p_data => x_msg_data
3631: );
3632: END Update_membership_end_date;
3708: WRITE_LOG(l_api_name, 'l_old_status = ' || l_old_status);
3709: WRITE_LOG(l_api_name, 'l_new_status = ' || l_new_status);
3710: END IF;
3711:
3712: x_return_status := FND_API.G_RET_STS_SUCCESS;
3713: IF (l_old_status = 'A' and l_new_status = 'I') THEN
3714: IF (PV_DEBUG_HIGH_ON) THEN
3715: WRITE_LOG(l_api_name, 'before calling Terminate_ptr_memberships');
3716: END IF;
3715: WRITE_LOG(l_api_name, 'before calling Terminate_ptr_memberships');
3716: END IF;
3717: PV_Pg_Memberships_PVT.Terminate_ptr_memberships (
3718: p_api_version_number => 1.0
3719: ,p_init_msg_list => FND_API.G_FALSE
3720: ,p_commit => FND_API.G_FALSE
3721: ,p_partner_id => l_partner_id
3722: ,p_memb_type => null
3723: ,p_status_reason_code => 'PTR_INACTIVE'
3716: END IF;
3717: PV_Pg_Memberships_PVT.Terminate_ptr_memberships (
3718: p_api_version_number => 1.0
3719: ,p_init_msg_list => FND_API.G_FALSE
3720: ,p_commit => FND_API.G_FALSE
3721: ,p_partner_id => l_partner_id
3722: ,p_memb_type => null
3723: ,p_status_reason_code => 'PTR_INACTIVE'
3724: ,x_return_status => x_return_status
3727: );
3728: IF (PV_DEBUG_HIGH_ON) THEN
3729: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3730: END IF;
3731: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3732: RAISE FND_API.G_EXC_ERROR;
3733: END IF;
3734:
3735: IF (PV_DEBUG_HIGH_ON) THEN
3728: IF (PV_DEBUG_HIGH_ON) THEN
3729: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3730: END IF;
3731: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3732: RAISE FND_API.G_EXC_ERROR;
3733: END IF;
3734:
3735: IF (PV_DEBUG_HIGH_ON) THEN
3736: WRITE_LOG(l_api_name, 'before calling Register_term_ptr_memb_type');
3736: WRITE_LOG(l_api_name, 'before calling Register_term_ptr_memb_type');
3737: END IF;
3738: Pv_ptr_member_type_pvt.Register_term_ptr_memb_type (
3739: p_api_version_number => 1.0
3740: ,p_init_msg_list => FND_API.G_FALSE
3741: ,p_commit => FND_API.G_FALSE
3742: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3743: ,p_partner_id => l_partner_id
3744: ,p_current_memb_type => null
3737: END IF;
3738: Pv_ptr_member_type_pvt.Register_term_ptr_memb_type (
3739: p_api_version_number => 1.0
3740: ,p_init_msg_list => FND_API.G_FALSE
3741: ,p_commit => FND_API.G_FALSE
3742: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3743: ,p_partner_id => l_partner_id
3744: ,p_current_memb_type => null
3745: ,p_new_memb_type => null
3738: Pv_ptr_member_type_pvt.Register_term_ptr_memb_type (
3739: p_api_version_number => 1.0
3740: ,p_init_msg_list => FND_API.G_FALSE
3741: ,p_commit => FND_API.G_FALSE
3742: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3743: ,p_partner_id => l_partner_id
3744: ,p_current_memb_type => null
3745: ,p_new_memb_type => null
3746: ,p_global_ptr_id => null
3750: );
3751: IF (PV_DEBUG_HIGH_ON) THEN
3752: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3753: END IF;
3754: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: END IF;
3757:
3758: IF (PV_DEBUG_HIGH_ON) THEN
3751: IF (PV_DEBUG_HIGH_ON) THEN
3752: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3753: END IF;
3754: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: END IF;
3757:
3758: IF (PV_DEBUG_HIGH_ON) THEN
3759: WRITE_LOG(l_api_name, 'before calling revoke_default_resp');
3759: WRITE_LOG(l_api_name, 'before calling revoke_default_resp');
3760: END IF;
3761: Pv_User_Resp_Pvt.revoke_default_resp (
3762: p_api_version_number => 1.0
3763: ,p_init_msg_list => FND_API.G_FALSE
3764: ,p_commit => FND_API.G_FALSE
3765: ,x_return_status => x_return_status
3766: ,x_msg_count => x_msg_count
3767: ,x_msg_data => x_msg_data
3760: END IF;
3761: Pv_User_Resp_Pvt.revoke_default_resp (
3762: p_api_version_number => 1.0
3763: ,p_init_msg_list => FND_API.G_FALSE
3764: ,p_commit => FND_API.G_FALSE
3765: ,x_return_status => x_return_status
3766: ,x_msg_count => x_msg_count
3767: ,x_msg_data => x_msg_data
3768: ,p_partner_id => l_partner_id
3769: );
3770: IF (PV_DEBUG_HIGH_ON) THEN
3771: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3772: END IF;
3773: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3774: RAISE FND_API.G_EXC_ERROR;
3775: END IF;
3776: ELSIF (l_old_status = 'I' and l_new_status = 'A') THEN
3777: IF (PV_DEBUG_HIGH_ON) THEN
3770: IF (PV_DEBUG_HIGH_ON) THEN
3771: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3772: END IF;
3773: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3774: RAISE FND_API.G_EXC_ERROR;
3775: END IF;
3776: ELSIF (l_old_status = 'I' and l_new_status = 'A') THEN
3777: IF (PV_DEBUG_HIGH_ON) THEN
3778: WRITE_LOG(l_api_name, 'before calling assign_default_resp');
3778: WRITE_LOG(l_api_name, 'before calling assign_default_resp');
3779: END IF;
3780: Pv_User_Resp_Pvt.assign_default_resp (
3781: p_api_version_number => 1.0
3782: ,p_init_msg_list => FND_API.G_FALSE
3783: ,p_commit => FND_API.G_FALSE
3784: ,x_return_status => x_return_status
3785: ,x_msg_count => x_msg_count
3786: ,x_msg_data => x_msg_data
3779: END IF;
3780: Pv_User_Resp_Pvt.assign_default_resp (
3781: p_api_version_number => 1.0
3782: ,p_init_msg_list => FND_API.G_FALSE
3783: ,p_commit => FND_API.G_FALSE
3784: ,x_return_status => x_return_status
3785: ,x_msg_count => x_msg_count
3786: ,x_msg_data => x_msg_data
3787: ,p_partner_id => l_partner_id
3788: );
3789: IF (PV_DEBUG_HIGH_ON) THEN
3790: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3791: END IF;
3792: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3793: RAISE FND_API.G_EXC_ERROR;
3794: END IF;
3795: END IF;
3796: RETURN 'SUCCESS';
3789: IF (PV_DEBUG_HIGH_ON) THEN
3790: WRITE_LOG(l_api_name, 'x_return_status = ' || x_return_status);
3791: END IF;
3792: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3793: RAISE FND_API.G_EXC_ERROR;
3794: END IF;
3795: END IF;
3796: RETURN 'SUCCESS';
3797: EXCEPTION
3794: END IF;
3795: END IF;
3796: RETURN 'SUCCESS';
3797: EXCEPTION
3798: WHEN FND_API.G_EXC_ERROR THEN
3799: WF_CORE.CONTEXT('PV_PG_MEMBERSHIPS_PVT', 'TERMINATE_PTR_MEMBERSHIPS', p_event.getEventName(), p_subscription_guid);
3800: WF_EVENT.setErrorInfo(p_event, 'Error from Terminate_ptr_memberships');
3801: RETURN 'ERROR';
3802: WHEN OTHERS THEN