[Home] [Help]
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
93: ,p_lookup_code => p_lookup_code
94: );
197:
198:
199: -- Debug Message
200: IF (PV_DEBUG_HIGH_ON) THEN
201: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
202: END IF;
203: -- Debug Message
204:
205:
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:
224: THEN
225: -- Debug message
226: -- Debug Message
227: IF (PV_DEBUG_HIGH_ON) THEN
228: PVX_UTILITY_PVT.debug_message('Private API: Validate_Pg_Memberships');
229: END IF;
230:
231:
232: -- Invoke validation procedures
264: END IF;
265:
266: -- Debug Message
267: IF (PV_DEBUG_HIGH_ON) THEN
268: PVX_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
269: END IF;
270: -- Invoke table handler(Pv_Pg_Memberships_Pkg.Insert_Row)
271: Pv_Pg_Memberships_Pkg.Insert_Row(
272: px_membership_id => l_membership_id,
317:
318:
319: -- Debug Message
320: IF (PV_DEBUG_HIGH_ON) THEN
321: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
322: END IF;
323:
324:
325:
329: p_data => x_msg_data
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
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;
339: x_return_status := FND_API.G_RET_STS_ERROR;
461:
462:
463:
464: IF (PV_DEBUG_HIGH_ON) THEN
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;
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');
474: END IF;
475:
476:
477:
479:
480: FETCH c_get_Pg_Memberships INTO l_ref_memb_rec ;
481:
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;
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;
499: End if;
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',
503: p_token_name => 'INFO',
504: p_token_value => 'Pg_Memberships') ;
505: raise FND_API.G_EXC_ERROR;
506: End if;
517: THEN
518: -- Debug message
519:
520: IF (PV_DEBUG_HIGH_ON) THEN
521: PVX_UTILITY_PVT.debug_message('Private API: Validate_Pg_Memberships');
522: END IF;
523:
524:
525: -- Invoke validation procedures
540:
541:
542: -- Debug Message
543: IF (PV_DEBUG_HIGH_ON) THEN
544: PVX_UTILITY_PVT.debug_message('Private API: Calling update table handler');
545: END IF;
546:
547:
548:
591:
592: -- Debug Message
593: -- Debug Message
594: IF (PV_DEBUG_HIGH_ON) THEN
595: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
596: END IF;
597:
598:
599:
603: p_data => x_msg_data
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
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;
613: x_return_status := FND_API.G_RET_STS_ERROR;
718:
719:
720: -- Debug Message
721: IF (PV_DEBUG_HIGH_ON) THEN
722: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
723: END IF;
724:
725:
726:
750:
751:
752: -- Debug Message
753: IF (PV_DEBUG_HIGH_ON) THEN
754: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
755: END IF;
756:
757:
758:
763: p_data => x_msg_data
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
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;
773: x_return_status := FND_API.G_RET_STS_ERROR;
862: -- Debug Message
863:
864:
865: IF (PV_DEBUG_HIGH_ON) THEN
866: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
867: END IF;
868:
869:
870:
901: p_count => x_msg_count,
902: p_data => x_msg_data);
903:
904: IF (PV_DEBUG_HIGH_ON) THEN
905: PVX_UTILITY_PVT.debug_message(l_full_name ||': end');
906: END IF;
907:
908: EXCEPTION
909:
906: END IF;
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
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;
916: x_return_status := FND_API.G_RET_STS_ERROR;
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(
965: 'pv_pg_memberships',
966: 'membership_id = ''' || p_memb_rec.membership_id ||''''
967: );
968: END IF;
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:
975: END check_Memb_Uk_Items;
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:
996:
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: */
1002:
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:
1008:
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:
1014:
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:
1020:
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:
1026:
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:
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:
1041:
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:
1047:
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:
1053:
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:
1059:
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:
1065:
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:
1071:
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;
1077:
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'
1110: ,p_lookup_type => l_lookup_type
1111: ,p_lookup_code => p_memb_rec.status_reason_code
1112: );
1379:
1380:
1381: -- Debug Message
1382: IF (PV_DEBUG_HIGH_ON) THEN
1383: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1384: END IF;
1385:
1386:
1387: -- Initialize API return status to SUCCESS
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;
1393: -- Debug Message
1394:
1395:
1400: p_data => x_msg_data
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
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_;
1410: x_return_status := FND_API.G_RET_STS_ERROR;
1469:
1470: -- Debug Message
1471: -- Debug Message
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
1550: )
1551: IS
1552:
1553: l_enrl_request_rec PV_Pg_Enrl_Requests_PVT.enrl_request_rec_type ;
1554: l_param_tbl_var PVX_UTILITY_PVT.log_params_tbl_type;
1555: l_object_version_number NUMBER;
1556: l_partner_id NUMBER;
1557: l_enrl_request_id NUMBER;
1558: l_meaning VARCHAR2(80);
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: (
1604: p_lookup_type => 'PV_MEMB_STATUS_REASON_CODE'
1605: , p_lookup_code => p_status_reason_code
1606: , x_return_status => x_return_status
1611:
1612: l_param_tbl_var(2).param_name := 'STATUS_REASON_CODE';
1613: l_param_tbl_var(2).param_value := l_meaning ;
1614:
1615: PVX_UTILITY_PVT.create_history_log
1616: (
1617: p_arc_history_for_entity_code => 'ENRQ'
1618: , p_history_for_entity_id => l_enrl_request_id
1619: , p_history_category_code => 'ENROLLMENT'
1620: , p_message_code => 'PV_ENRL_CANCELLED'
1621: , p_comments => p_comments
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
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: (
1640: p_arc_history_for_entity_code => 'MEMBERSHIP'
1641: , p_history_for_entity_id => l_enrl_request_id
1642: , p_history_category_code => 'ENROLLMENT'
1643: , p_message_code => 'PV_ENRL_CANCELLED'
1644: , p_comments => p_comments
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
1729: l_relationship VARCHAR2(60);
1730: l_meaning VARCHAR2(80);
1731: l_pv_pg_memb_rec memb_rec_type;
1732: l_notif_event_code VARCHAR2(30);
1733: l_param_tbl_var PVX_UTILITY_PVT.log_params_tbl_type;
1734: BEGIN
1735:
1736: -- get the partner status from partner_profiles table
1737: -- if partner _relationship is terminated then terminate the default membership also.
1791: -- write to the logs and set the message tokens
1792: l_param_tbl_var(1).param_name := 'PROGRAM_NAME';
1793: l_param_tbl_var(1).param_value := l_program_name;
1794:
1795: PVX_UTILITY_PVT.get_lookup_meaning
1796: (
1797: p_lookup_type => 'PV_MEMBERSHIP_STATUS'
1798: , p_lookup_code => p_event_code
1799: , x_return_status => x_return_status
1808: l_param_tbl_var(2).param_name := 'EVENT';
1809: l_param_tbl_var(2).param_value := l_meaning;
1810: l_meaning:=null;
1811:
1812: PVX_UTILITY_PVT.get_lookup_meaning
1813: (
1814: p_lookup_type => 'PV_MEMB_STATUS_REASON_CODE'
1815: , p_lookup_code => p_status_reason_code
1816: , x_return_status => x_return_status
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;
1829: PVX_UTILITY_PVT.create_history_log
1830: (
1831: p_arc_history_for_entity_code => 'ENRQ'
1832: , p_history_for_entity_id => l_enrl_request_id
1833: , p_history_category_code => 'ENROLLMENT'
1834: , p_message_code => 'PV_MEMBERSHIP_STATUS_CHANGE'
1835: , p_comments => p_comments
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
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'
1855: , p_history_for_entity_id => l_enrl_request_id
1856: , p_history_category_code => 'ENROLLMENT'
1857: , p_message_code => 'PV_MEMBERSHIP_STATUS_CHANGE'
1858: , p_comments => p_comments
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
2051: END IF;
2052:
2053: -- Debug Message
2054: IF (PV_DEBUG_HIGH_ON) THEN
2055: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2056: END IF;
2057:
2058:
2059: -- Initialize API return status to SUCCESS
2061:
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
2067: END IF;
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
2240: -- Debug Message
2241:
2242: -- Debug Message
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
2616:
2617: -- Debug Message
2618:
2619: IF (PV_DEBUG_HIGH_ON) THEN
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;
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;
2629: END IF;
2630: -- validate p_status_reason_code
2631: IF p_status_reason_code is NOT NULL THEN
3036:
3037: END IF; -- end of if , if member type is global
3038: -- Debug Message
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
3134: l_mmbr_transition_id NUMBER;
3135: l_from_enrl_request_id NUMBER;
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.
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;
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;
3167: END IF;
3168: -- call terminate membership with event code as downgraded
3169: Terminate_membership
3294: l_param_tbl_var(2).param_name := 'TO_PROGRAM_NAME';
3295: l_param_tbl_var(2).param_value := l_to_program_name;
3296:
3297:
3298: PVX_UTILITY_PVT.create_history_log
3299: (
3300: p_arc_history_for_entity_code => 'MEMBERSHIP'
3301: , p_history_for_entity_id => l_enrl_request_id
3302: , p_history_category_code => 'ENROLLMENT'
3303: , p_message_code => 'PV_MEMBERSHIP_DOWNGRADED'
3304: , p_comments => p_comments
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
3347: END IF;
3348:
3349: -- Debug Message
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
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;
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;
3542: END IF;
3543:
3544: OPEN memb_type_csr( p_membership_id );
3584: END IF;
3585: END IF;
3586: -- Debug Message
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