[Home] [Help]
134: -- x_return_status OUT VARCHAR2
135: -- x_msg_count OUT NUMBER
136: -- x_msg_data OUT VARCHAR2
137: -- Version : Current version 1.0
138: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
139: -- and basic operation, developer must manually add parameters and business logic as necessary.
140: --
141: -- History
142: --
175: SELECT 1
176: FROM PV_PG_MEMBERSHIPS
177: WHERE membership_id = l_id;
178: BEGIN
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,
178: BEGIN
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)
308: --
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;
322: END IF;
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: );
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,
344: p_data => x_msg_data
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,
354: p_data => x_msg_data
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,
367: p_count => x_msg_count,
368: p_data => x_msg_data
392: -- x_return_status OUT VARCHAR2
393: -- x_msg_count OUT NUMBER
394: -- x_msg_data OUT VARCHAR2
395: -- Version : Current version 1.0
396: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
397: -- and basic operation, developer must manually add parameters and business logic as necessary.
398: --
399: -- History
400: --
435: l_tar_memb_rec memb_rec_type := P_memb_rec;
436: l_rowid ROWID;
437:
438: BEGIN
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,
438: BEGIN
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)
581: --
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;
596: END IF;
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: );
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,
618: p_data => x_msg_data
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,
628: p_data => x_msg_data
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,
641: p_count => x_msg_count,
642: p_data => x_msg_data
667: -- x_return_status OUT VARCHAR2
668: -- x_msg_count OUT NUMBER
669: -- x_msg_data OUT VARCHAR2
670: -- Version : Current version 1.0
671: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
672: -- and basic operation, developer must manually add parameters and business logic as necessary.
673: --
674: -- History
675: --
695: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
696: l_object_version_number NUMBER;
697:
698: BEGIN
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,
698: BEGIN
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)
740: --
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;
756:
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: );
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,
778: p_data => x_msg_data
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,
788: p_data => x_msg_data
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,
801: p_count => x_msg_count,
802: p_data => x_msg_data
828: -- x_return_status OUT VARCHAR2
829: -- x_msg_count OUT NUMBER
830: -- x_msg_data OUT VARCHAR2
831: -- Version : Current version 1.0
832: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
833: -- and basic operation, developer must manually add parameters and business logic as necessary.
834: --
835: -- History
836: --
875: END IF;
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)
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,
921: p_data => x_msg_data
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,
931: p_data => x_msg_data
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,
944: p_count => x_msg_count,
945: p_data => x_msg_data
1313: l_memb_rec memb_rec_type;
1314: l_memb_rec_out memb_rec_type;
1315:
1316: BEGIN
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,
1316: BEGIN
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)
1393: -- Debug Message
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: );
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,
1415: p_data => x_msg_data
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,
1425: p_data => x_msg_data
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,
1438: p_count => x_msg_count,
1439: p_data => x_msg_data
1472: IF (PV_DEBUG_HIGH_ON) THEN
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: );
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
1944: ,x_return_status OUT NOCOPY VARCHAR2
1945: ,x_msg_count OUT NOCOPY NUMBER
2030: 4. end date all the invitaions for the subsidiary partner
2031:
2032: */
2033:
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
2033:
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
2230:
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: );
2243: IF (PV_DEBUG_HIGH_ON) THEN
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
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
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
2270: ,p_data => x_msg_data
2442: -- membership_id from memberships table
2443: -- p_event_code IN VARCHAR2
2444: -- validated against the lookup PV_MEMBERSHIP_STATUS
2445: -- p_memb_type IN VARCHAR
2446: -- if not given, will get from profile, should be 'SUBSIDIARY','GLOBAL','STANDARD'
2447: -- p_status_reason_code IN VARCHAR2
2448: -- validates against PV_MEMB_STATUS_REASON_CODE
2449: -- USED BY
2450: -- this api is called when you want to terminate,expire or downgrade a single program membership
2596:
2597: l_event_code VARCHAR2(30);
2598:
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
2598:
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
3039: IF (PV_DEBUG_HIGH_ON) THEN
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
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,
3061: p_data => x_msg_data
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,
3071: p_data => x_msg_data
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,
3084: p_count => x_msg_count,
3085: p_data => x_msg_data
3136: l_from_program_name VARCHAR2(60);
3137: l_to_program_name VARCHAR2(60);
3138: l_param_tbl_var PVX_UTILITY_PVT.log_params_tbl_type;
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
3138: l_param_tbl_var PVX_UTILITY_PVT.log_params_tbl_type;
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
3350: IF (PV_DEBUG_HIGH_ON) THEN
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
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,
3372: p_data => x_msg_data
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,
3382: p_data => x_msg_data
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,
3395: p_count => x_msg_count,
3396: p_data => x_msg_data
3511: l_subs_end_date DATE;
3512:
3513: BEGIN
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
3513: BEGIN
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
3587: IF (PV_DEBUG_HIGH_ON) THEN
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: );
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,
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
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,
3629: p_count => x_msg_count,
3630: p_data => x_msg_data