20:
21: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_Pg_Memberships_PVT';
22: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxvmemb.pls';
23:
24: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
25: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
27:
28: g_log_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_Pg_Memberships_PVT';
22: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxvmemb.pls';
23:
24: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
25: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
27:
28: g_log_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29:
22: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxvmemb.pls';
23:
24: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
25: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
27:
28: g_log_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29:
30: -- G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
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;
77:
78: END validate_member_type;
79:
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;
101: END IF;
102:
103: END validate_Lookup;
104:
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:
198:
199: -- Debug Message
323:
324:
325:
326: -- Standard call to get message count and if count is 1, get message info.
327: FND_MSG_PUB.Count_And_Get
328: (p_count => x_msg_count,
329: p_data => x_msg_data
330: );
331: EXCEPTION
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,
344: p_data => x_msg_data
345: );
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,
354: p_data => x_msg_data
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;
364: -- Standard call to get message count and if count=1, get the message
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;
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,
361: THEN
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: );
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:
458:
459:
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
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)
597:
598:
599:
600: -- Standard call to get message count and if count is 1, get message info.
601: FND_MSG_PUB.Count_And_Get
602: (p_count => x_msg_count,
603: p_data => x_msg_data
604: );
605: EXCEPTION
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,
618: p_data => x_msg_data
619: );
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,
628: p_data => x_msg_data
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;
638: -- Standard call to get message count and if count=1, get the message
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;
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,
635: THEN
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: );
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:
718:
719:
757:
758:
759:
760: -- Standard call to get message count and if count is 1, get message info.
761: FND_MSG_PUB.Count_And_Get
762: (p_count => x_msg_count,
763: p_data => x_msg_data
764: );
765: EXCEPTION
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,
778: p_data => x_msg_data
779: );
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,
788: p_data => x_msg_data
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;
798: -- Standard call to get message count and if count=1, get the message
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;
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,
795: THEN
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: );
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:
877:
878:
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:
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,
921: p_data => x_msg_data
922: );
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,
931: p_data => x_msg_data
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;
941: -- Standard call to get message count and if count=1, get the message
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;
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,
938: THEN
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: );
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;
1119: END IF;
1120: */
1121:
1122: -- Enter custom code here
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:
1336:
1337: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1394:
1395:
1396:
1397: -- Standard call to get message count and if count is 1, get message info.
1398: FND_MSG_PUB.Count_And_Get
1399: (p_count => x_msg_count,
1400: p_data => x_msg_data
1401: );
1402: EXCEPTION
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,
1415: p_data => x_msg_data
1416: );
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,
1425: p_data => x_msg_data
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;
1435: -- Standard call to get message count and if count=1, get the message
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;
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,
1432: THEN
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: );
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:
1460:
1461:
1473: PVX_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1474: END IF;
1475:
1476: -- Standard call to get message count and if count is 1, get message info.
1477: FND_MSG_PUB.Count_And_Get
1478: (p_count => x_msg_count,
1479: p_data => x_msg_data
1480: );
1481: END Validate_memb_Rec;
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
2054: IF (PV_DEBUG_HIGH_ON) THEN
2231:
2232:
2233:
2234: -- Standard call to get message count and if count is 1, get message info.
2235: FND_MSG_PUB.Count_And_Get
2236: (p_count => x_msg_count,
2237: p_data => x_msg_data
2238: );
2239:
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
2260: ,p_data => x_msg_data
2261: );
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
2270: ,p_data => x_msg_data
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
2280: ( p_encoded => FND_API.G_FALSE
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
2280: ( p_encoded => FND_API.G_FALSE
2281: ,p_count => x_msg_count
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
2280: ( p_encoded => FND_API.G_FALSE
2281: ,p_count => x_msg_count
2282: ,p_data => x_msg_data
2283: );
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
2618:
3040: PVX_UTILITY_PVT.debug_message( 'Private API: ' || l_api_name || 'end' );
3041: END IF;
3042:
3043: -- Standard call to get message count and if count is 1, get message info.
3044: FND_MSG_PUB.Count_And_Get
3045: (
3046: p_count => x_msg_count
3047: , p_data => x_msg_data
3048: );
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,
3061: p_data => x_msg_data
3062: );
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,
3071: p_data => x_msg_data
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;
3081: -- Standard call to get message count and if count=1, get the message
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;
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,
3078: THEN
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: );
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');
3351: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3352: END IF;
3353:
3354: -- Standard call to get message count and if count is 1, get message info.
3355: FND_MSG_PUB.Count_And_Get
3356: (
3357: p_count => x_msg_count
3358: , p_data => x_msg_data
3359: );
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,
3372: p_data => x_msg_data
3373: );
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,
3382: p_data => x_msg_data
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;
3392: -- Standard call to get message count and if count=1, get the message
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;
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,
3389: THEN
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: );
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');
3588: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3589: END IF;
3590:
3591: -- Standard call to get message count and if count is 1, get message info.
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
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,
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,
3617: p_data => x_msg_data
3618: );
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;
3626: -- Standard call to get message count and if count=1, get the message
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;
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,
3623: THEN
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: );
3695: x_msg_count NUMBER;
3696: x_msg_data VARCHAR2(2000);
3697:
3698: BEGIN
3699: FND_MSG_PUB.initialize;
3700: IF (PV_DEBUG_HIGH_ON) THEN
3701: WRITE_LOG(l_api_name, 'Start TERMINATE_PTR_MEMBERSHIPS');
3702: END IF;
3703: l_partner_id := p_event.GetValueForParameter('PARTNER_ID');