[Home] [Help]
446: )
447: THEN
448: IF (AMS_DEBUG_HIGH_ON) THEN
449:
450: AMS_Utility_PVT.Debug_Message('Calling check_content_rule for fulfillment (registered)');
451: END IF;
452: AMS_CT_RULE_PVT.check_content_rule( p_api_version => 1.0 -- IN NUMBER
453: , p_init_msg_list => FND_API.g_false -- IN VARCHAR2 := FND_API.g_false
454: , p_commit => FND_API.g_false-- IN VARCHAR2 := FND_API.g_false
457: , p_trigger_type => 'REG_CONFIRM' -- IN VARCHAR2
458: -- , p_requestor_type => -- IN VARCHAR2 := NULL
459: -- Following line is modified by ptendulk on 12-Dec-2002
460: , p_requestor_id => get_user_id(l_evt_regs_rec.OWNER_USER_ID)
461: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_evt_regs_rec.OWNER_USER_ID) -- IN NUMBER
462: -- , p_server_group => -- IN NUMBER := NULL
463: -- , p_scheduled_date => -- IN DATE := SYSDATE
464: -- , p_media_types => -- IN VARCHAR2 := 'E'
465: -- , p_archive => -- IN VARCHAR2 := 'N'
480: , x_msg_data => l_msg_data -- OUT VARCHAR2
481: , x_request_history_id => l_request_history_id -- OUT NUMBER
482: );
483: IF (AMS_DEBUG_HIGH_ON) THEN
484: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
485: END IF;
486:
487: IF l_return_status = FND_API.g_ret_sts_error THEN
488: RAISE FND_API.g_exc_error;
500: )
501: THEN
502: IF (AMS_DEBUG_HIGH_ON) THEN
503:
504: AMS_Utility_PVT.Debug_Message('Calling check_content_rule for fulfillment (waitlisted)');
505: END IF;
506: AMS_CT_RULE_PVT.check_content_rule( p_api_version => 1.0 -- IN NUMBER
507: , p_init_msg_list => FND_API.g_false -- IN VARCHAR2 := FND_API.g_false
508: , p_commit => FND_API.g_false-- IN VARCHAR2 := FND_API.g_false
511: , p_trigger_type => 'REG_WAITLIST' -- IN VARCHAR2
512: -- , p_requestor_type => -- IN VARCHAR2 := NULL
513: -- Following line is modified by ptendulk on 12-Dec-2002
514: , p_requestor_id => get_user_id(l_evt_regs_rec.OWNER_USER_ID)
515: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_evt_regs_rec.OWNER_USER_ID) -- IN NUMBER
516: -- , p_server_group => -- IN NUMBER := NULL
517: -- , p_scheduled_date => -- IN DATE := SYSDATE
518: -- , p_media_types => -- IN VARCHAR2 := 'E'
519: -- , p_archive => -- IN VARCHAR2 := 'N'
534: , x_msg_data => l_msg_data -- OUT VARCHAR2
535: , x_request_history_id => l_request_history_id -- OUT NUMBER
536: );
537: IF (AMS_DEBUG_HIGH_ON) THEN
538: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
539: END IF;
540:
541: IF l_return_status = FND_API.g_ret_sts_error THEN
542: RAISE FND_API.g_exc_error;
758:
759: -- get invite list for event offer id and verify l_attendant_contact_id is in the invite list *
760: IF (AMS_DEBUG_HIGH_ON) THEN
761:
762: AMS_Utility_PVT.Debug_Message('Checking if contact is in invite list');
763: END IF;
764: IF (AMS_DEBUG_HIGH_ON) THEN
765:
766: AMS_Utility_PVT.Debug_Message('(event_offer_id, attendant_contact_id) = (' || p_event_offer_id || ',' || p_attendant_contact_id || ')');
762: AMS_Utility_PVT.Debug_Message('Checking if contact is in invite list');
763: END IF;
764: IF (AMS_DEBUG_HIGH_ON) THEN
765:
766: AMS_Utility_PVT.Debug_Message('(event_offer_id, attendant_contact_id) = (' || p_event_offer_id || ',' || p_attendant_contact_id || ')');
767: END IF;
768:
769: open c_exists_in_invite_list;
770: fetch c_exists_in_invite_list
774: IF (AMS_DEBUG_HIGH_ON) THEN
775:
776:
777:
778: AMS_Utility_PVT.Debug_Message('l_count: ' || l_count);
779:
780: END IF;
781:
782: IF (l_count > 0)
804: IF ( (p_registrant_party_id is NOT NULL)
805: OR (p_registrant_party_id <> FND_API.g_miss_num)
806: )
807: THEN
808: IF (AMS_Utility_PVT.check_fk_exists( 'hz_parties'
809: , 'party_id'
810: , p_registrant_party_id
811: ) = FND_API.g_false
812: )
810: , p_registrant_party_id
811: ) = FND_API.g_false
812: )
813: THEN
814: AMS_Utility_Pvt.Error_Message(p_message_name => 'AMS_EVT_REG_BAD_PARTY_ID');
815: x_return_status := FND_API.g_ret_sts_error;
816: RETURN;
817: END IF; -- check_fk_exists
818: END IF; -- p_registrant_party_id
819:
820: /*
821: -------------------------registration CONTACT id-------------------
822: IF p_registrant_contact_id IS NOT NULL OR p_registrant_contact_id <> FND_API.g_miss_num THEN
823: IF AMS_Utility_PVT.check_fk_exists(
824: 'hz_org_contacts',
825: 'org_contact_id',
826: p_registrant_contact_id,
827: AMS_Utility_PVT.g_number,
823: IF AMS_Utility_PVT.check_fk_exists(
824: 'hz_org_contacts',
825: 'org_contact_id',
826: p_registrant_contact_id,
827: AMS_Utility_PVT.g_number,
828: 'party_relationship_id ='|| p_registrant_party_id
829: ) = FND_API.g_false
830: THEN
831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
844: IF ( (p_registrant_account_id IS NOT NULL)
845: AND (p_registrant_account_id <> FND_API.g_miss_num)
846: )
847: THEN
848: IF (AMS_Utility_PVT.check_fk_exists( 'hz_cust_accounts'
849: , 'cust_account_id'
850: , p_registrant_account_id
851: , AMS_Utility_PVT.g_number
852: , 'party_id ='|| p_registrant_party_id
847: THEN
848: IF (AMS_Utility_PVT.check_fk_exists( 'hz_cust_accounts'
849: , 'cust_account_id'
850: , p_registrant_account_id
851: , AMS_Utility_PVT.g_number
852: , 'party_id ='|| p_registrant_party_id
853: ) = FND_API.g_false
854: )
855: THEN
852: , 'party_id ='|| p_registrant_party_id
853: ) = FND_API.g_false
854: )
855: THEN
856: AMS_Utility_Pvt.Error_Message(p_message_name => 'AMS_EVT_REG_BAD_ACCOUNT_ID');
857: x_return_status := FND_API.g_ret_sts_error;
858: RETURN;
859: END IF; -- check_fk_exists
860: END IF; -- p_registrant_account_id
972: -- Standard Start of API savepoint
973: SAVEPOINT transfer_insert_PVT;
974: IF (AMS_DEBUG_HIGH_ON) THEN
975:
976: AMS_Utility_PVT.debug_message(l_full_name||': start');
977: END IF;
978:
979: IF (FND_API.to_boolean(p_init_msg_list))
980: THEN
1000: INTO l_evt_regs_rec;
1001: IF (c_reg%NOTFOUND)
1002: THEN
1003: CLOSE c_reg;
1004: AMS_Utility_Pvt.Error_Message(p_message_name => 'AMS_API_RECORD_NOT_FOUND');
1005: RAISE FND_API.g_exc_error;
1006: END IF; -- c_reg%NOTFOUND
1007: CLOSE c_reg;
1008:
1065: IF (AMS_DEBUG_HIGH_ON) THEN
1066:
1067:
1068:
1069: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1070:
1071: END IF;
1072:
1073: EXCEPTION
1171: -- Standard Start of API savepoint
1172: SAVEPOINT CREATE_EvtRegs_PVT;
1173: IF (AMS_DEBUG_HIGH_ON) THEN
1174:
1175: AMS_Utility_PVT.debug_message(l_full_name||': start');
1176: END IF;
1177:
1178: IF FND_API.to_boolean(p_init_msg_list)
1179: THEN
1196:
1197: -- Validate Environment
1198: IF (AMS_DEBUG_HIGH_ON) THEN
1199:
1200: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1201: END IF;
1202:
1203: Validate_evtregs( p_api_version_number => l_api_version_number
1204: , p_init_msg_list => p_init_msg_list
1220:
1221: -----------------------insert------------------
1222: IF (AMS_DEBUG_HIGH_ON) THEN
1223:
1224: AMS_Utility_PVT.debug_message(l_full_name || ': insert');
1225: END IF;
1226:
1227: IF (l_event_offer_id is NULL)
1228: then
1228: then
1229: -- already validated
1230: IF (AMS_DEBUG_HIGH_ON) THEN
1231:
1232: AMS_UTILITY_PVT.debug_message('Corresponding event offering information is not provided');
1233: END IF;
1234: ELSE
1235:
1236: open get_offer_details(l_event_offer_id);
1249: IF (AMS_DEBUG_HIGH_ON) THEN
1250:
1251:
1252:
1253: AMS_UTILITY_PVT.debug_message('l_invited_only_flag: ' || l_invited_only_flag);
1254:
1255: END IF;
1256: IF (AMS_DEBUG_HIGH_ON) THEN
1257:
1254:
1255: END IF;
1256: IF (AMS_DEBUG_HIGH_ON) THEN
1257:
1258: AMS_UTILITY_PVT.debug_message('l_invite_only_override_flag: ' || l_invite_only_override_flag);
1259: END IF;
1260:
1261: -- soagrawa modified call out to contact_in_invite_list for bug# 2600986
1262: IF (l_invited_only_flag = 'Y')
1270: )
1271: THEN
1272: IF (AMS_DEBUG_HIGH_ON) THEN
1273:
1274: AMS_UTILITY_PVT.debug_message('The attendant is not on the invite list');
1275: END IF;
1276: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_INVITED');
1277: x_return_status := FND_API.g_ret_sts_error;
1278: RAISE FND_API.G_EXC_ERROR;
1272: IF (AMS_DEBUG_HIGH_ON) THEN
1273:
1274: AMS_UTILITY_PVT.debug_message('The attendant is not on the invite list');
1275: END IF;
1276: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_INVITED');
1277: x_return_status := FND_API.g_ret_sts_error;
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSE
1280: l_system_status_code := 'REGISTERED';
1292: IF (l_reg_required_flag = 'N')
1293: THEN
1294: IF (AMS_DEBUG_HIGH_ON) THEN
1295:
1296: AMS_UTILITY_PVT.DEBUG_MESSAGE ('Registration for this event offering is not required');
1297: END IF;
1298: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_REQ');
1299: x_return_status := FND_API.g_ret_sts_error;
1300: RAISE FND_API.G_EXC_ERROR;
1294: IF (AMS_DEBUG_HIGH_ON) THEN
1295:
1296: AMS_UTILITY_PVT.DEBUG_MESSAGE ('Registration for this event offering is not required');
1297: END IF;
1298: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_REQ');
1299: x_return_status := FND_API.g_ret_sts_error;
1300: RAISE FND_API.G_EXC_ERROR;
1301: ELSE --reg required flag is Y
1302: IF (sysdate < l_reg_start_date OR sysdate > l_reg_end_date OR (l_reg_start_date is null AND l_reg_end_date is null))
1301: ELSE --reg required flag is Y
1302: IF (sysdate < l_reg_start_date OR sysdate > l_reg_end_date OR (l_reg_start_date is null AND l_reg_end_date is null))
1303: THEN
1304: IF (AMS_DEBUG_HIGH_ON) THEN
1305: AMS_UTILITY_PVT.debug_message('Registrations for this event is not open');
1306: END IF;
1307: AMS_UTILITY_PVT.error_message('AMS_EVENT_UNAVAIL_FOR_REG');
1308: x_return_status := FND_API.g_ret_sts_error;
1309: RAISE FND_API.G_EXC_ERROR;
1303: THEN
1304: IF (AMS_DEBUG_HIGH_ON) THEN
1305: AMS_UTILITY_PVT.debug_message('Registrations for this event is not open');
1306: END IF;
1307: AMS_UTILITY_PVT.error_message('AMS_EVENT_UNAVAIL_FOR_REG');
1308: x_return_status := FND_API.g_ret_sts_error;
1309: RAISE FND_API.G_EXC_ERROR;
1310: END IF;
1311:
1312: IF (l_reg_frozen_flag = 'Y')
1313: THEN
1314: IF (AMS_DEBUG_HIGH_ON) THEN
1315:
1316: AMS_UTILITY_PVT.debug_message('Registrations for this event offering are no longer accepted');
1317: END IF;
1318: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_FROZEN');
1319: x_return_status := FND_API.g_ret_sts_error;
1320: RAISE FND_API.G_EXC_ERROR;
1314: IF (AMS_DEBUG_HIGH_ON) THEN
1315:
1316: AMS_UTILITY_PVT.debug_message('Registrations for this event offering are no longer accepted');
1317: END IF;
1318: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_FROZEN');
1319: x_return_status := FND_API.g_ret_sts_error;
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1322:
1342: )
1343: THEN
1344: IF (AMS_DEBUG_HIGH_ON) THEN
1345:
1346: AMS_UTILITY_PVT.debug_message('Registrations sold out. Waitlist not allowed for this event offering');
1347: END IF;
1348: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
1349: x_return_status := FND_API.g_ret_sts_error;
1350: RAISE FND_API.G_EXC_ERROR;
1344: IF (AMS_DEBUG_HIGH_ON) THEN
1345:
1346: AMS_UTILITY_PVT.debug_message('Registrations sold out. Waitlist not allowed for this event offering');
1347: END IF;
1348: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
1349: x_return_status := FND_API.g_ret_sts_error;
1350: RAISE FND_API.G_EXC_ERROR;
1351: ELSE -- wailist allowed
1352: -- if (l_reg_waitlist_pct is NOT NULL)
1360: )
1361: THEN
1362: IF (AMS_DEBUG_HIGH_ON) THEN
1363:
1364: AMS_UTILITY_PVT.debug_message('Eff Capacity:' || l_effective_capacity || 'and wait:' || l_reg_waitlist_pct);
1365: END IF;
1366: IF (AMS_DEBUG_HIGH_ON) THEN
1367:
1368: AMS_UTILITY_PVT.debug_message('Waiting list for this event offer ing is full');
1364: AMS_UTILITY_PVT.debug_message('Eff Capacity:' || l_effective_capacity || 'and wait:' || l_reg_waitlist_pct);
1365: END IF;
1366: IF (AMS_DEBUG_HIGH_ON) THEN
1367:
1368: AMS_UTILITY_PVT.debug_message('Waiting list for this event offer ing is full');
1369: END IF;
1370: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_AVAILABLE');
1371: x_return_status := FND_API.g_ret_sts_error;
1372: RAISE FND_API.G_EXC_ERROR;
1366: IF (AMS_DEBUG_HIGH_ON) THEN
1367:
1368: AMS_UTILITY_PVT.debug_message('Waiting list for this event offer ing is full');
1369: END IF;
1370: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_AVAILABLE');
1371: x_return_status := FND_API.g_ret_sts_error;
1372: RAISE FND_API.G_EXC_ERROR;
1373: end if; -- check_waitlist_availability
1374: -- end if; -- l_reg_waitlist_pct
1400: IF (AMS_DEBUG_HIGH_ON) THEN
1401:
1402:
1403:
1404: AMS_Utility_PVT.debug_message(l_full_name || ': end');
1405:
1406: END IF;
1407:
1408: EXCEPTION
1508: FETCH c_reg
1509: INTO l_evt_regs_rec;
1510: IF c_reg%NOTFOUND THEN
1511: CLOSE c_reg;
1512: AMS_UTILITY_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
1513: RAISE FND_API.g_exc_error;
1514: END IF; -- c_reg%NOTFOUND
1515: CLOSE c_reg;
1516:
1527: AND (l_evt_regs_rec.reg_source_type_code = p_evt_regs_rec.reg_source_type_code
1528: OR p_evt_regs_rec.reg_source_type_code = FND_API.g_miss_char)
1529: )
1530: THEN
1531: AMS_UTILITY_PVT.debug_message('Nothing changed');
1532: RETURN;
1533: ELSE
1534: AMS_UTILITY_PVT.debug_message('Something changed');
1535: END IF;
1530: THEN
1531: AMS_UTILITY_PVT.debug_message('Nothing changed');
1532: RETURN;
1533: ELSE
1534: AMS_UTILITY_PVT.debug_message('Something changed');
1535: END IF;
1536: */
1537:
1538: -- soagrawa 29-jan-2003 modified the following code for bug# 2775357
1544: AND l_evt_regs_rec.user_status_id <> p_evt_regs_rec.user_status_id
1545: THEN
1546: -- trying to update both attended flag to Y and status to cancel
1547: -- A registrant who has already attended cannot have his registration cancelled.
1548: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_ATTENDED_1');
1549: RAISE FND_API.g_exc_error;
1550:
1551: ELSIF l_evt_regs_rec.user_status_id <> p_evt_regs_rec.user_status_id
1552: THEN
1551: ELSIF l_evt_regs_rec.user_status_id <> p_evt_regs_rec.user_status_id
1552: THEN
1553: -- trying to update status to cancel when attended flag is already Y
1554: -- A registrant who has already attended cannot have his registration cancelled.
1555: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_ATTENDED_1');
1556: RAISE FND_API.g_exc_error;
1557:
1558: ELSIF p_evt_regs_Rec.attended_flag <> l_evt_regs_Rec.attended_flag
1559: THEN
1558: ELSIF p_evt_regs_Rec.attended_flag <> l_evt_regs_Rec.attended_flag
1559: THEN
1560: -- trying to update attended flag to Y when status is already cancelled
1561: -- Cannot update the Attended flag for the Registrant whose Registration Status is Cancelled.
1562: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_ATTENDED');
1563: RAISE FND_API.g_exc_error;
1564: END IF;
1565: END IF;
1566:
1743: -- add complete_evtreg_rec to complete rec with existing values instead of empty FND_API.g_miss_char
1744: -- replace g_miss_char/num/date with current column values
1745: IF (AMS_DEBUG_HIGH_ON) THEN
1746:
1747: AMS_Utility_PVT.debug_message(l_full_name ||': complete');
1748: END IF;
1749: complete_evtreg_rec(P_evt_regs_Rec, l_evt_regs_Rec);
1750:
1751: -- not now...unique key val provided...sugupta:todo- check for unique key before calling
1751: -- not now...unique key val provided...sugupta:todo- check for unique key before calling
1752: ----------------------- validate ----------------------
1753: IF (AMS_DEBUG_HIGH_ON) THEN
1754:
1755: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1756: END IF;
1757:
1758: -- Invoke validation procedures
1759: Validate_evtregs( p_api_version_number => l_api_version_number
1787: CLOSE c_event_details;
1788:
1789: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
1790: THEN
1791: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
1792: RAISE FND_API.g_exc_error;
1793: END IF;
1794:
1795: -- make sure the status code matches the user status id
1806: ) <= 0
1807: )
1808: )
1809: THEN
1810: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_AVAILABLE');
1811: RAISE FND_API.g_exc_error;
1812: END IF;
1813:
1814: IF ( (l_old_reg_status = 'WAITLISTED')
1819: END IF;
1820: -------------------------- update --------------------
1821: IF (AMS_DEBUG_HIGH_ON) THEN
1822:
1823: AMS_Utility_PVT.debug_message(l_full_name || ': update');
1824: END IF;
1825:
1826: update AMS_EVENT_REGISTRATIONS set
1827: LAST_UPDATE_DATE = sysdate,
1892: where EVENT_REGISTRATION_ID = l_evt_regs_Rec.EVENT_REGISTRATION_ID
1893: and object_version_number = l_evt_regs_Rec.object_version_number;
1894:
1895: IF (SQL%NOTFOUND) THEN
1896: AMS_UTILITY_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
1897: RAISE FND_API.g_exc_error;
1898: END IF; -- SQL%NOTFOUND
1899:
1900: IF ( (l_old_reg_status = 'WAITLISTED')
1958: , p_trigger_type => 'REG_CONFIRM' -- IN VARCHAR2
1959: -- , p_requestor_type => -- IN VARCHAR2 := NULL
1960: -- Following line is modified by ptendulk on 12-Dec-2002
1961: , p_requestor_id => get_user_id(l_evt_regs_rec.OWNER_USER_ID)
1962: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_evt_regs_rec.OWNER_USER_ID) -- IN NUMBER
1963: -- , p_server_group => -- IN NUMBER := NULL
1964: -- , p_scheduled_date => -- IN DATE := SYSDATE
1965: -- , p_media_types => -- IN VARCHAR2 := 'E'
1966: -- , p_archive => -- IN VARCHAR2 := 'N'
1981: , x_msg_data => l_msg_data -- OUT VARCHAR2
1982: , x_request_history_id => l_request_history_id -- OUT NUMBER
1983: );
1984: IF (AMS_DEBUG_HIGH_ON) THEN
1985: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
1986: END IF;
1987:
1988: IF l_return_status = FND_API.g_ret_sts_error THEN
1989: RAISE FND_API.g_exc_error;
2010: IF (AMS_DEBUG_HIGH_ON) THEN
2011:
2012:
2013:
2014: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2015:
2016: END IF;
2017:
2018:
2192: -- Standard Start of API savepoint
2193: SAVEPOINT Cancel_EvtRegs_PVT;
2194: IF (AMS_DEBUG_HIGH_ON) THEN
2195:
2196: AMS_Utility_PVT.debug_message(l_full_name || ': start');
2197: END IF;
2198:
2199: -- Standard call to check for call compatibility.
2200: IF (NOT FND_API.Compatible_API_Call( l_api_version_number
2216: -- Initialize API return status to SUCCESS
2217: x_return_status := FND_API.G_RET_STS_SUCCESS;
2218:
2219: IF (AMS_DEBUG_HIGH_ON) THEN
2220: AMS_Utility_PVT.debug_message(l_full_name || ': cancel');
2221: END IF;
2222:
2223: open cur_user_stat_id;
2224: FETCH cur_user_stat_id
2253: IF (l_event_offer_id is NULL)
2254: then
2255: IF (AMS_DEBUG_HIGH_ON) THEN
2256:
2257: AMS_UTILITY_PVT.debug_message(' Corresponding event offering information is not provided');
2258: END IF;
2259: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_EVOID');
2260: x_return_status := FND_API.g_ret_sts_error;
2261: RAISE FND_API.G_EXC_ERROR;
2255: IF (AMS_DEBUG_HIGH_ON) THEN
2256:
2257: AMS_UTILITY_PVT.debug_message(' Corresponding event offering information is not provided');
2258: END IF;
2259: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_EVOID');
2260: x_return_status := FND_API.g_ret_sts_error;
2261: RAISE FND_API.G_EXC_ERROR;
2262: ELSE
2263: IF l_registration_group_id is NULL
2265: IF l_confirmation_code is NULL
2266: THEN
2267: IF (AMS_DEBUG_HIGH_ON) THEN
2268:
2269: AMS_UTILITY_PVT.debug_message(' Corresponding confirmation code for the event offering is not provided');
2270: END IF;
2271: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_CODE');
2272: x_return_status := FND_API.g_ret_sts_error;
2273: RAISE FND_API.G_EXC_ERROR;
2267: IF (AMS_DEBUG_HIGH_ON) THEN
2268:
2269: AMS_UTILITY_PVT.debug_message(' Corresponding confirmation code for the event offering is not provided');
2270: END IF;
2271: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_CODE');
2272: x_return_status := FND_API.g_ret_sts_error;
2273: RAISE FND_API.G_EXC_ERROR;
2274: ELSE
2275: IF (AMS_DEBUG_HIGH_ON) THEN
2273: RAISE FND_API.G_EXC_ERROR;
2274: ELSE
2275: IF (AMS_DEBUG_HIGH_ON) THEN
2276:
2277: AMS_Utility_PVT.debug_message(l_full_name ||': before off det cursor');
2278: END IF;
2279: open cancel_get_offer_details( l_event_offer_id
2280: , l_confirmation_code
2281: , l_registrant_party_id
2294: l_reg_end_time;
2295: close cancel_get_offer_details;
2296: IF (AMS_DEBUG_HIGH_ON) THEN
2297:
2298: AMS_Utility_PVT.debug_message(l_full_name ||': after off det cursor');
2299: END IF;
2300: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2301: THEN
2302: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2298: AMS_Utility_PVT.debug_message(l_full_name ||': after off det cursor');
2299: END IF;
2300: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2301: THEN
2302: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2303: RAISE FND_API.g_exc_error;
2304: END IF;
2305:
2306: IF (l_reg_charge_flag = 'N')
2353: , p_trigger_type => 'REG_CANCEL' -- IN VARCHAR2
2354: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2355: -- , p_requestor_id => l_owner_user_id -- Change made by ptendulk on 12-Dec-2002
2356: , p_requestor_id => get_user_id(l_owner_user_id)
2357: -- , p_requestor_id => AMS_Utility_PVT.get_resource_id(l_OWNER_USER_ID) -- IN NUMBER
2358: -- , p_server_group => -- IN NUMBER := NULL
2359: -- , p_scheduled_date => -- IN DATE := SYSDATE
2360: -- , p_media_types => -- IN VARCHAR2 := 'E'
2361: -- , p_archive => -- IN VARCHAR2 := 'N'
2375: , x_msg_data => l_msg_data -- OUT VARCHAR2
2376: , x_request_history_id => l_request_history_id -- OUT NUMBER
2377: );
2378: IF (AMS_DEBUG_HIGH_ON) THEN
2379: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2380: END IF;
2381:
2382: IF l_return_status = FND_API.g_ret_sts_error THEN
2383: RAISE FND_API.g_exc_error;
2409: IF (nvl(l_event_end_date, sysdate+1) < sysdate)
2410: then
2411: IF (AMS_DEBUG_HIGH_ON) THEN
2412:
2413: AMS_UTILITY_PVT.debug_message(' Cannot cancel a PAID event if cancellation date is later than Event end date.');
2414: END IF;
2415: ELSE
2416: IF (l_cancellation_code IS NULL)
2417: THEN
2460: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2461: -- Following line is modified by ptendulk on 12-Dec-2002
2462: -- , p_requestor_id => l_owner_user_id
2463: , p_requestor_id => get_user_id(l_owner_user_id)
2464: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
2465: -- , p_server_group => -- IN NUMBER := NULL
2466: -- , p_scheduled_date => -- IN DATE := SYSDATE
2467: -- , p_media_types => -- IN VARCHAR2 := 'E'
2468: -- , p_archive => -- IN VARCHAR2 := 'N'
2483: , x_msg_data => l_msg_data -- OUT VARCHAR2
2484: , x_request_history_id => l_request_history_id -- OUT NUMBER
2485: );
2486: IF (AMS_DEBUG_HIGH_ON) THEN
2487: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2488: END IF;
2489:
2490: IF l_return_status = FND_API.g_ret_sts_error THEN
2491: RAISE FND_API.g_exc_error;
2523: LOOP
2524: -- might want to add another if loop to check if the reg system_status_code is already cancelled ....
2525: IF (AMS_DEBUG_HIGH_ON) THEN
2526:
2527: AMS_Utility_PVT.debug_message(l_full_name ||': gp id not null-before off det cursor');
2528: END IF;
2529: -- sikalyan Fixed Bug 4185688 Updated the Conditional Check for a Registrant Group
2530: IF ( (cancel_reg_conf_data.confirmation_code IS NOT NULL)
2531: AND (cancel_reg_conf_data.registrant_party_id IS NOT NULL)
2551: l_reg_end_time;
2552: close cancel_get_offer_details;
2553: IF (AMS_DEBUG_HIGH_ON) THEN
2554:
2555: AMS_Utility_PVT.debug_message(l_full_name ||': gp id not null-after off det cursor');
2556: END IF;
2557: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2558: THEN
2559: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2555: AMS_Utility_PVT.debug_message(l_full_name ||': gp id not null-after off det cursor');
2556: END IF;
2557: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2558: THEN
2559: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2560: RAISE FND_API.g_exc_error;
2561: END IF;
2562:
2563: IF (l_reg_charge_flag = 'N')
2610: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2611: -- Following line is modified by ptendulk on 12-Dec-2002
2612: -- , p_requestor_id => l_owner_user_id
2613: , p_requestor_id => get_user_id(l_owner_user_id)
2614: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
2615: -- , p_server_group => -- IN NUMBER := NULL
2616: -- , p_scheduled_date => -- IN DATE := SYSDATE
2617: -- , p_media_types => -- IN VARCHAR2 := 'E'
2618: -- , p_archive => -- IN VARCHAR2 := 'N'
2633: , x_msg_data => l_msg_data -- OUT VARCHAR2
2634: , x_request_history_id => l_request_history_id -- OUT NUMBER
2635: );
2636: IF (AMS_DEBUG_HIGH_ON) THEN
2637: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2638: END IF;
2639:
2640: IF l_return_status = FND_API.g_ret_sts_error THEN
2641: RAISE FND_API.g_exc_error;
2666: IF (l_event_end_date < sysdate)
2667: then
2668: IF (AMS_DEBUG_HIGH_ON) THEN
2669:
2670: AMS_UTILITY_PVT.debug_message('Cannot cancel a PAID event if cancellation date is later than Event end date.');
2671: END IF;
2672: IF (AMS_DEBUG_HIGH_ON) THEN
2673:
2674: AMS_UTILITY_PVT.debug_message('AMS_EVT_REG_CANC_DATE');
2670: AMS_UTILITY_PVT.debug_message('Cannot cancel a PAID event if cancellation date is later than Event end date.');
2671: END IF;
2672: IF (AMS_DEBUG_HIGH_ON) THEN
2673:
2674: AMS_UTILITY_PVT.debug_message('AMS_EVT_REG_CANC_DATE');
2675: END IF;
2676: x_return_status := FND_API.g_ret_sts_error;
2677: RAISE FND_API.G_EXC_ERROR;
2678: ELSE
2724: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2725: -- Following line is modified by ptendulk on 12-Dec-2002
2726: -- , p_requestor_id => l_owner_user_id
2727: , p_requestor_id => get_user_id(l_owner_user_id)
2728: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
2729: -- , p_server_group => -- IN NUMBER := NULL
2730: -- , p_scheduled_date => -- IN DATE := SYSDATE
2731: -- , p_media_types => -- IN VARCHAR2 := 'E'
2732: -- , p_archive => -- IN VARCHAR2 := 'N'
2747: , x_msg_data => l_msg_data -- OUT VARCHAR2
2748: , x_request_history_id => l_request_history_id -- OUT NUMBER
2749: );
2750: IF (AMS_DEBUG_HIGH_ON) THEN
2751: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2752: END IF;
2753:
2754: IF l_return_status = FND_API.g_ret_sts_error THEN
2755: RAISE FND_API.g_exc_error;
2797: IF (AMS_DEBUG_HIGH_ON) THEN
2798:
2799:
2800:
2801: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2802:
2803: END IF;
2804:
2805: EXCEPTION
2865:
2866: -------------------- initialize ------------------------
2867: IF (AMS_DEBUG_HIGH_ON) THEN
2868:
2869: AMS_Utility_PVT.debug_message(l_full_name||': start');
2870: END IF;
2871:
2872: IF FND_API.to_boolean(p_init_msg_list)
2873: THEN
2888:
2889: ------------------------ lock -------------------------
2890: IF (AMS_DEBUG_HIGH_ON) THEN
2891:
2892: AMS_Utility_PVT.debug_message(l_full_name||': lock');
2893: END IF;
2894:
2895: OPEN c_reg_b;
2896: FETCH c_reg_b
2897: INTO l_reg_id;
2898: IF (c_reg_b%NOTFOUND)
2899: THEN
2900: CLOSE c_reg_b;
2901: AMS_Utility_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
2902: RAISE FND_API.g_exc_error;
2903: END IF;
2904: CLOSE c_reg_b;
2905:
2912: IF (AMS_DEBUG_HIGH_ON) THEN
2913:
2914:
2915:
2916: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2917:
2918: END IF;
2919:
2920: EXCEPTION
2918: END IF;
2919:
2920: EXCEPTION
2921:
2922: WHEN AMS_Utility_PVT.resource_locked
2923: THEN
2924: x_return_status := FND_API.g_ret_sts_error;
2925: AMS_Utility_PVT.error_message('AMS_API_RESOURCE_LOCKED');
2926: FND_MSG_PUB.count_and_get( p_encoded => FND_API.g_false
2921:
2922: WHEN AMS_Utility_PVT.resource_locked
2923: THEN
2924: x_return_status := FND_API.g_ret_sts_error;
2925: AMS_Utility_PVT.error_message('AMS_API_RESOURCE_LOCKED');
2926: FND_MSG_PUB.count_and_get( p_encoded => FND_API.g_false
2927: , p_count => x_msg_count
2928: , p_data => x_msg_data
2929: );
2979: --------------------- initialize -----------------------
2980: SAVEPOINT delete_evtRegs;
2981: IF (AMS_DEBUG_HIGH_ON) THEN
2982:
2983: AMS_Utility_PVT.debug_message(l_full_name||': start');
2984: END IF;
2985:
2986: IF FND_API.to_boolean(p_init_msg_list)
2987: THEN
3002:
3003: ------------------------ delete ------------------------
3004: IF (AMS_DEBUG_HIGH_ON) THEN
3005:
3006: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
3007: END IF;
3008:
3009: UPDATE ams_event_registrations
3010: SET active_flag = 'N'
3012: AND object_version_number = p_object_version;
3013:
3014: IF (SQL%NOTFOUND)
3015: THEN
3016: AMS_Utility_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
3017: RAISE FND_API.g_exc_error;
3018: END IF; -- SQL%NOTFOUND
3019:
3020: -------------------- finish --------------------------
3031: IF (AMS_DEBUG_HIGH_ON) THEN
3032:
3033:
3034:
3035: AMS_Utility_PVT.debug_message(l_full_name ||': end');
3036:
3037: END IF;
3038:
3039: EXCEPTION
3167: ----------------------- initialize --------------------
3168: SAVEPOINT prioritize_waitlist;
3169: IF (AMS_DEBUG_HIGH_ON) THEN
3170:
3171: AMS_Utility_PVT.debug_message(l_full_name||': start');
3172: END IF;
3173:
3174: IF FND_API.to_boolean(p_init_msg_list)
3175: THEN
3191:
3192: -- validate not null values passed for required parameters...
3193: IF (p_event_offer_id IS NULL)
3194: THEN
3195: AMS_Utility_PVT.error_message('AMS_EVT_REG_PR_NULL_PARAM');
3196: l_return_status := FND_API.g_ret_sts_error;
3197: END IF; -- p_event_offer_id
3198:
3199: /* check Offer id's fk .....*/
3196: l_return_status := FND_API.g_ret_sts_error;
3197: END IF; -- p_event_offer_id
3198:
3199: /* check Offer id's fk .....*/
3200: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
3201: , 'event_offer_id'
3202: , p_event_offer_id
3203: ) = FND_API.g_false
3204: )
3202: , p_event_offer_id
3203: ) = FND_API.g_false
3204: )
3205: THEN
3206: AMS_Utility_PVT.error_message('AMS_EVT_REG_PR_BAD_EVOID');
3207: l_return_status := FND_API.g_ret_sts_error;
3208: -- RAISE FND_API.g_exc_error;
3209: END IF; -- check_fk_exists
3210:
3245: IF (l_reg_frozen_flag = 'Y')
3246: THEN
3247: IF (AMS_DEBUG_HIGH_ON) THEN
3248:
3249: AMS_UTILITY_PVT.debug_message('Registrations for the event offering are frozen- Cannot prioritize your wait');
3250: END IF;
3251: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_PRI_FROZEN');
3252: -- RAISE FND_API.G_EXC_ERROR;
3253: RETURN;
3247: IF (AMS_DEBUG_HIGH_ON) THEN
3248:
3249: AMS_UTILITY_PVT.debug_message('Registrations for the event offering are frozen- Cannot prioritize your wait');
3250: END IF;
3251: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_PRI_FROZEN');
3252: -- RAISE FND_API.G_EXC_ERROR;
3253: RETURN;
3254: END IF; -- l_reg_frozen_flag
3255:
3262: )
3263: THEN
3264: IF (AMS_DEBUG_HIGH_ON) THEN
3265:
3266: AMS_UTILITY_PVT.debug_message('No Waitlist Available');
3267: END IF;
3268: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
3269: -- RAISE FND_API.G_EXC_ERROR;
3270: RETURN;
3264: IF (AMS_DEBUG_HIGH_ON) THEN
3265:
3266: AMS_UTILITY_PVT.debug_message('No Waitlist Available');
3267: END IF;
3268: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
3269: -- RAISE FND_API.G_EXC_ERROR;
3270: RETURN;
3271: END IF;
3272:
3334: END IF; -- l_return_status
3335: -- create task assignment
3336: IF (AMS_DEBUG_HIGH_ON) THEN
3337:
3338: AMS_Utility_PVT.debug_message('calling AMS_TASK_PVT.Create_Task_Assignment');
3339: END IF;
3340: AMS_TASK_PVT.Create_Task_Assignment( p_api_version => l_api_version_number
3341: , p_init_msg_list => FND_API.g_false
3342: , p_commit => FND_API.g_false
3403: -- , p_requestor_type => -- IN VARCHAR2 := NULL
3404: -- Following line is modified by ptendulk on 12-Dec-2002
3405: -- , p_requestor_id => l_owner_user_id
3406: , p_requestor_id => get_user_id(l_owner_user_id)
3407: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
3408: -- , p_server_group => -- IN NUMBER := NULL
3409: -- , p_scheduled_date => -- IN DATE := SYSDATE
3410: -- , p_media_types => -- IN VARCHAR2 := 'E'
3411: -- , p_archive => -- IN VARCHAR2 := 'N'
3426: , x_msg_data => l_msg_data -- OUT VARCHAR2
3427: , x_request_history_id => l_request_history_id -- OUT NUMBER
3428: );
3429: IF (AMS_DEBUG_HIGH_ON) THEN
3430: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
3431: END IF;
3432:
3433: IF l_return_status = FND_API.g_ret_sts_error THEN
3434: RAISE FND_API.g_exc_error;
3441: IF (AMS_DEBUG_HIGH_ON) THEN
3442:
3443:
3444:
3445: AMS_Utility_Pvt.Debug_Message('Registered id ' || l_min_wait_reg_id);
3446:
3447: END IF;
3448: END IF; -- l_e_auto_register_flag
3449: END IF; -- l_min_wait_reg_id
3466: IF (AMS_DEBUG_HIGH_ON) THEN
3467:
3468:
3469:
3470: AMS_Utility_PVT.debug_message(l_full_name ||': end');
3471:
3472: END IF;
3473:
3474: EXCEPTION
3552: -- Standard Start of API savepoint
3553: SAVEPOINT substitute_validate_PVT;
3554: IF (AMS_DEBUG_HIGH_ON) THEN
3555:
3556: AMS_Utility_PVT.debug_message(l_full_name || ': start');
3557: END IF;
3558:
3559: IF FND_API.to_boolean(p_init_msg_list)
3560: THEN
3580: OR (p_attendant_contact_id IS NULL)
3581: OR (p_registrant_contact_id IS NULL)
3582: )
3583: THEN
3584: AMS_Utility_PVT.error_message('AMS_EVT_REG_SUBST_NULL_PARAM');
3585: x_return_status := FND_API.g_ret_sts_error;
3586: RAISE FND_API.g_exc_error;
3587: END IF; -- null ids
3588:
3604: -- update sql stmt
3605: -------------------------- update --------------------
3606: IF (AMS_DEBUG_HIGH_ON) THEN
3607:
3608: AMS_Utility_PVT.debug_message(l_full_name || ': update');
3609: END IF;
3610:
3611: update AMS_EVENT_REGISTRATIONS set
3612: ATTENDANT_PARTY_ID = p_attendant_party_id,
3619: where CONFIRMATION_CODE LIKE p_confirmation_code;
3620:
3621: IF (SQL%NOTFOUND)
3622: THEN
3623: AMS_Utility_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
3624: RAISE FND_API.g_exc_error;
3625: END IF; -- SQL%NOTFOUND
3626:
3627: -- Standard check for p_commit
3638: IF (AMS_DEBUG_HIGH_ON) THEN
3639:
3640:
3641:
3642: AMS_Utility_PVT.debug_message(l_full_name ||': end');
3643:
3644: END IF;
3645:
3646: EXCEPTION
3756: -- Standard Start of API savepoint
3757: SAVEPOINT transfer_validate_PVT;
3758: IF (AMS_DEBUG_HIGH_ON) THEN
3759:
3760: AMS_Utility_PVT.debug_message(l_full_name || ': start');
3761: END IF;
3762:
3763: IF FND_API.to_boolean(p_init_msg_list)
3764: THEN
3784: OR (p_new_offer_id IS NULL)
3785: OR (p_waitlist_flag IS NULL)
3786: )
3787: THEN
3788: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_NULL_PARAM');
3789: x_return_status := FND_API.g_ret_sts_error;
3790: RAISE FND_API.g_exc_error;
3791: END IF; -- null ids
3792:
3790: RAISE FND_API.g_exc_error;
3791: END IF; -- null ids
3792:
3793: -- check Offer id's fk .....
3794: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
3795: , 'event_offer_id'
3796: , p_old_offer_id
3797: ) = FND_API.g_false
3798: )
3796: , p_old_offer_id
3797: ) = FND_API.g_false
3798: )
3799: THEN
3800: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_BAD_EVOID');
3801: x_return_status := FND_API.g_ret_sts_error;
3802: RAISE FND_API.g_exc_error;
3803: END IF; -- check_fk_exists
3804:
3801: x_return_status := FND_API.g_ret_sts_error;
3802: RAISE FND_API.g_exc_error;
3803: END IF; -- check_fk_exists
3804:
3805: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
3806: , 'event_offer_id'
3807: , p_new_offer_id
3808: ) = FND_API.g_false
3809: )
3807: , p_new_offer_id
3808: ) = FND_API.g_false
3809: )
3810: THEN
3811: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_BAD_EVOID');
3812: x_return_status := FND_API.g_ret_sts_error;
3813: RAISE FND_API.g_exc_error;
3814: END IF; -- check_fk_exists
3815:
3820: close get_registrant_status;
3821:
3822: IF (nvl(l_system_status_code,'X') = 'CANCELLED')
3823: THEN
3824: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_CANCEL');
3825: RAISE FND_API.g_exc_error;
3826: END IF; -- l_system_status_code
3827:
3828: ------------------api logic-----------------------
3840: IF (AMS_DEBUG_HIGH_ON) THEN
3841:
3842:
3843:
3844: AMS_UTILITY_PVT.DEBUG_MESSAGE ('after offer details');
3845:
3846: END IF;
3847: IF (l_reg_required_flag = 'N')
3848: THEN
3872:
3873: x_old_system_status_code := 'CANCELLED';
3874: IF (AMS_DEBUG_HIGH_ON) THEN
3875:
3876: AMS_UTILITY_PVT.DEBUG_MESSAGE ('REgistration for the new event offering is not required, so just cancelling');
3877: END IF;
3878: RETURN;
3879: ELSE -- reg required flag is Y
3880: IF (l_reg_frozen_flag = 'Y')
3880: IF (l_reg_frozen_flag = 'Y')
3881: THEN
3882: IF (AMS_DEBUG_HIGH_ON) THEN
3883:
3884: AMS_UTILITY_PVT.debug_message('Registrations for the new event offering are no longer accepted, Old Registration is not cancelled');
3885: END IF;
3886: RETURN;
3887: END IF; -- l_reg_frozen_flag
3888:
3892:
3893: -- call insert, then call cancel reg
3894: IF (AMS_DEBUG_HIGH_ON) THEN
3895:
3896: AMS_UTILITY_PVT.debug_message('Calling transfer_insert');
3897: END IF;
3898: transfer_insert( p_Api_Version_Number => p_api_version_number
3899: , p_Init_Msg_List => p_init_msg_list
3900: , p_Commit => p_commit
3958: IF (l_waitlist_allowed_flag = 'N')
3959: THEN
3960: IF (AMS_DEBUG_HIGH_ON) THEN
3961:
3962: AMS_UTILITY_PVT.debug_message('Registrations are sold out. Waitlist not allowed for this event offering');
3963: END IF;
3964: RETURN;
3965: ELSE -- wailist allowed
3966: if (check_waitlist_availability( l_reg_waitlist_pct
3970: )
3971: then
3972: IF (AMS_DEBUG_HIGH_ON) THEN
3973:
3974: AMS_UTILITY_PVT.debug_message(' Could not wailist..Waiting list for this event offering is full, the old event is not cancelled');
3975: END IF;
3976: RETURN;
3977: else -- waitlist available
3978: l_system_status_code := 'WAITLISTED';
4053: IF (AMS_DEBUG_HIGH_ON) THEN
4054:
4055:
4056:
4057: AMS_Utility_PVT.debug_message(l_full_name ||': end');
4058:
4059: END IF;
4060:
4061: EXCEPTION
4116: x_return_status := FND_API.g_ret_sts_success;
4117: ------------------------ owner_user_id --------------------------
4118: IF (p_evt_Regs_rec.owner_user_id IS NULL)
4119: THEN
4120: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_OWNER_ID');
4121: x_return_status := FND_API.g_ret_sts_error;
4122: RETURN;
4123: END IF;
4124:
4138:
4139: ----------------------REG PARTY ID---------------------------------
4140: IF (p_evt_Regs_rec.registrant_party_id IS NULL)
4141: THEN
4142: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_PARTY');
4143: x_return_status := FND_API.g_ret_sts_error;
4144: RETURN;
4145: END IF;
4146:
4150: IF (p_evt_Regs_rec.payment_status_code = 'PAID')
4151: THEN
4152: IF (p_evt_Regs_rec.order_header_id IS NULL)
4153: THEN
4154: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_ORDER_HEADER');
4155: x_return_status := FND_API.g_ret_sts_error;
4156: RETURN;
4157: END IF; -- order_header_id
4158: ELSIF (p_evt_Regs_rec.payment_status_code = 'FREE')
4158: ELSIF (p_evt_Regs_rec.payment_status_code = 'FREE')
4159: THEN
4160: IF (p_evt_Regs_rec.order_header_id IS NOT NULL)
4161: THEN
4162: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_ORDER_HEADER');
4163: x_return_status := FND_API.g_ret_sts_error;
4164: RETURN;
4165: END IF; -- order_header_id
4166: END IF; -- payment_status_code
4170: IF ( (p_evt_Regs_rec.order_line_id IS NOT NULL)
4171: AND (p_evt_Regs_rec.order_header_id IS NULL)
4172: )
4173: THEN
4174: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_ORDER_HEADER');
4175: x_return_status := FND_API.g_ret_sts_error;
4176: RETURN;
4177: END IF; -- order_line_id/order_header_id
4178:
4184: IF ( (p_evt_regs_rec.registrant_account_id is NULL)
4185: AND (p_evt_regs_rec.attendant_account_id IS NULL)
4186: )
4187: THEN
4188: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_ACCT_FOR_ORDER');
4189: x_return_status := FND_API.g_ret_sts_error;
4190: RETURN;
4191: END IF; -- registrant_account_id/attendant_account_id
4192: END IF; -- order_line_id/order_header_id
4193:
4194: -----------------------REG CONTACT ID-----------------------------------
4195: IF (p_evt_Regs_rec.registrant_contact_id IS NULL)
4196: THEN
4197: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_CONTACT_ID');
4198: x_return_status := FND_API.g_ret_sts_error;
4199: RETURN;
4200: END IF; -- registrant_contact_id
4201:
4228: IF ( (p_validation_mode = JTF_PLSQL_API.g_create)
4229: AND (p_event_registration_id IS NOT NULL)
4230: )
4231: THEN
4232: IF (AMS_Utility_PVT.check_uniqueness( 'ams_event_registrations'
4233: , 'event_registration_id = ' || p_event_registration_id
4234: ) = FND_API.g_false
4235: )
4236: THEN
4233: , 'event_registration_id = ' || p_event_registration_id
4234: ) = FND_API.g_false
4235: )
4236: THEN
4237: AMS_Utility_PVT.error_message('AMS_EVT_REG_DUPLICATE_ID');
4238: x_return_status := FND_API.g_ret_sts_error;
4239: RETURN;
4240: END IF; -- check_uniqueness
4241: END IF; -- p_event_registration_id
4244: AND (p_confirmation_code IS NOT NULL)
4245: )
4246: THEN
4247: /* bug#1490374 commented OUT NOCOPY this piece
4248: IF (AMS_Utility_PVT.check_uniqueness( 'ams_event_registrations'
4249: , 'confirmation_code = ''' || p_confirmation_code || ''''
4250: ) = FND_API.g_false
4251: )
4252: */
4255: into l_dummy;
4256: close c_conf_code;
4257: IF (l_dummy <> 1)
4258: THEN
4259: AMS_Utility_PVT.error_message('AMS_EVT_REG_DUPLICATE_CODE');
4260: x_return_status := FND_API.g_ret_sts_error;
4261: RETURN;
4262: END IF; -- l_dummy
4263: END IF; -- p_confirmation_code
4277:
4278: ------------------- EVENT OFFER ID ----------------
4279: IF (p_evt_regs_rec.event_offer_id <> FND_API.g_miss_num)
4280: THEN
4281: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
4282: , 'event_offer_id'
4283: , p_evt_regs_rec.event_offer_id
4284: ) = FND_API.g_false
4285: )
4283: , p_evt_regs_rec.event_offer_id
4284: ) = FND_API.g_false
4285: )
4286: THEN
4287: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_EVENT_OFFER_ID');
4288: x_return_status := FND_API.g_ret_sts_error;
4289: RETURN;
4290: END IF; -- check_fk_exists
4291: END IF; -- event_offer_id
4292:
4293: ------------APPLICATION ID---------------------
4294: IF (p_evt_regs_rec.application_id <> FND_API.g_miss_num)
4295: THEN
4296: IF (AMS_Utility_PVT.check_fk_exists( 'fnd_application'
4297: , 'application_id'
4298: , p_evt_regs_rec.application_id
4299: ) = FND_API.g_false
4300: )
4298: , p_evt_regs_rec.application_id
4299: ) = FND_API.g_false
4300: )
4301: THEN
4302: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_APPLICATION_ID');
4303: x_return_status := FND_API.g_ret_sts_error;
4304: RETURN;
4305: END IF; -- check_fk_exists
4306: END IF; -- application_id
4307:
4308: --------------user status id------------------------
4309: IF (p_evt_regs_rec.user_status_id <> FND_API.g_miss_num)
4310: THEN
4311: IF (AMS_Utility_PVT.check_fk_exists( 'ams_user_statuses_b'
4312: , 'user_status_id'
4313: , p_evt_regs_rec.user_status_id
4314: ) = FND_API.g_false
4315: )
4313: , p_evt_regs_rec.user_status_id
4314: ) = FND_API.g_false
4315: )
4316: THEN
4317: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_USER_STATUS_ID');
4318: x_return_status := FND_API.g_ret_sts_error;
4319: RETURN;
4320: END IF; -- check_fk_exists
4321: END IF; -- user_status_id
4321: END IF; -- user_status_id
4322:
4323: --------------------------SOURCE CODE-------------------
4324: IF p_evt_regs_rec.source_code <> FND_API.g_miss_char THEN
4325: IF (AMS_Utility_PVT.check_fk_exists( 'ams_source_codes'
4326: , 'source_code'
4327: , p_evt_regs_rec.source_code
4328: , AMS_Utility_PVT.g_varchar2
4329: ) = FND_API.g_false
4324: IF p_evt_regs_rec.source_code <> FND_API.g_miss_char THEN
4325: IF (AMS_Utility_PVT.check_fk_exists( 'ams_source_codes'
4326: , 'source_code'
4327: , p_evt_regs_rec.source_code
4328: , AMS_Utility_PVT.g_varchar2
4329: ) = FND_API.g_false
4330: )
4331: THEN
4332: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SOURCE_CODE');
4328: , AMS_Utility_PVT.g_varchar2
4329: ) = FND_API.g_false
4330: )
4331: THEN
4332: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SOURCE_CODE');
4333: x_return_status := FND_API.g_ret_sts_error;
4334: RETURN;
4335: END IF; -- check_fk_exists
4336: END IF; -- source_code
4337:
4338: --------------- attendant language-----------------------
4339: IF (p_evt_regs_rec.attendant_language <> FND_API.g_miss_char)
4340: THEN
4341: IF (AMS_Utility_PVT.check_fk_exists( 'fnd_languages'
4342: , 'language_code'
4343: , p_evt_regs_rec.attendant_language
4344: , AMS_Utility_PVT.g_varchar2
4345: ) = FND_API.g_false
4340: THEN
4341: IF (AMS_Utility_PVT.check_fk_exists( 'fnd_languages'
4342: , 'language_code'
4343: , p_evt_regs_rec.attendant_language
4344: , AMS_Utility_PVT.g_varchar2
4345: ) = FND_API.g_false
4346: )
4347: THEN
4348: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_LANGUAGE');
4344: , AMS_Utility_PVT.g_varchar2
4345: ) = FND_API.g_false
4346: )
4347: THEN
4348: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_LANGUAGE');
4349: x_return_status := FND_API.g_ret_sts_error;
4350: RETURN;
4351: END IF; -- check_fk_exists
4352: END IF; -- attendant_language
4353:
4354: ---------------------TARGET LIST ID------------------
4355: IF (p_evt_regs_rec.target_list_id <> FND_API.g_miss_num)
4356: THEN
4357: IF (AMS_Utility_PVT.check_fk_exists( 'ams_list_headers_all'
4358: , 'list_header_id'
4359: , p_evt_regs_rec.target_list_id
4360: ) = FND_API.g_false
4361: )
4359: , p_evt_regs_rec.target_list_id
4360: ) = FND_API.g_false
4361: )
4362: THEN
4363: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_TARGET_LIST_ID');
4364: x_return_status := FND_API.g_ret_sts_error;
4365: RETURN;
4366: END IF; -- check_fk_exists
4367: END IF; -- target_list_id
4370: IF (p_evt_regs_rec.system_status_code <> FND_API.g_miss_char)
4371: THEN
4372: IF (p_validation_mode = JTF_PLSQL_API.g_create)
4373: THEN
4374: IF (AMS_Utility_PVT.check_fk_exists( 'ams_user_statuses_b'
4375: , 'system_status_code'
4376: , p_evt_regs_rec.system_status_code
4377: , AMS_Utility_PVT.g_varchar2
4378: ) = FND_API.g_false
4373: THEN
4374: IF (AMS_Utility_PVT.check_fk_exists( 'ams_user_statuses_b'
4375: , 'system_status_code'
4376: , p_evt_regs_rec.system_status_code
4377: , AMS_Utility_PVT.g_varchar2
4378: ) = FND_API.g_false
4379: )
4380: THEN
4381: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SYS_STATUS');
4377: , AMS_Utility_PVT.g_varchar2
4378: ) = FND_API.g_false
4379: )
4380: THEN
4381: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SYS_STATUS');
4382: x_return_status := FND_API.g_ret_sts_error;
4383: RETURN;
4384: END IF; -- check_fk_exists
4385: ELSE
4411: x_return_status := FND_API.g_ret_sts_success;
4412: ----------------------- registration_source_type--------------
4413: IF (p_evt_regs_rec.reg_source_type_code <> FND_API.g_miss_char)
4414: THEN
4415: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_REG_SOURCE'
4416: , p_lookup_code => p_evt_regs_rec.reg_source_type_code
4417: ) = FND_API.g_false
4418: )
4419: THEN
4416: , p_lookup_code => p_evt_regs_rec.reg_source_type_code
4417: ) = FND_API.g_false
4418: )
4419: THEN
4420: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SOURCE_TYPE');
4421: x_return_status := FND_API.g_ret_sts_error;
4422: RETURN;
4423: END IF; -- check_lookup_exists
4424: END IF; -- reg_source_type_code
4425:
4426: -----------------------PAYMENT STATUS_CODE--------------
4427: IF (p_evt_regs_rec.payment_status_code <> FND_API.g_miss_char)
4428: THEN
4429: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_PAYMENT_STATUS'
4430: , p_lookup_code => p_evt_regs_rec.payment_status_code
4431: ) = FND_API.g_false
4432: )
4433: THEN
4430: , p_lookup_code => p_evt_regs_rec.payment_status_code
4431: ) = FND_API.g_false
4432: )
4433: THEN
4434: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_PAY_STAT');
4435: x_return_status := FND_API.g_ret_sts_error;
4436: RETURN;
4437: END IF; -- check_lookup_exists
4438: END IF; -- payment_status_code
4439:
4440: ------------------------CANCELLATION REASON CODE-------------------
4441: IF (p_evt_regs_rec.cancellation_reason_code <> FND_API.g_miss_char)
4442: THEN
4443: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_CANCEL_REASON_CODE'
4444: , p_lookup_code => p_evt_regs_rec.cancellation_reason_code
4445: ) = FND_API.g_false
4446: )
4447: THEN
4444: , p_lookup_code => p_evt_regs_rec.cancellation_reason_code
4445: ) = FND_API.g_false
4446: )
4447: THEN
4448: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_CANCEL_REASON');
4449: x_return_status := FND_API.g_ret_sts_error;
4450: RETURN;
4451: END IF; -- check_lookup_exists
4452: END IF; -- cancellation_reason_code
4453:
4454: ------------------------ATTENDANCE FAILURE REASON-------------------
4455: IF (p_evt_regs_rec.attendance_failure_reason <> FND_API.g_miss_char)
4456: THEN
4457: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_ATTENDANCE_FAILURE'
4458: , p_lookup_code => p_evt_regs_rec.attendance_failure_reason
4459: ) = FND_API.g_false
4460: )
4461: THEN
4458: , p_lookup_code => p_evt_regs_rec.attendance_failure_reason
4459: ) = FND_API.g_false
4460: )
4461: THEN
4462: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_ATTEN_FAILURE');
4463: x_return_status := FND_API.g_ret_sts_error;
4464: RETURN;
4465: END IF; -- check_lookup_exists
4466: END IF; -- attendance_failure_reason
4493: IF (AMS_DEBUG_HIGH_ON) THEN
4494:
4495:
4496:
4497: AMS_Utility_PVT.debug_message(' check req items');
4498:
4499: END IF;
4500: check_evtRegs_req_items( p_evt_Regs_rec => p_evt_Regs_rec
4501: , x_return_status => x_return_status
4508: IF (AMS_DEBUG_HIGH_ON) THEN
4509:
4510:
4511:
4512: AMS_Utility_PVT.debug_message('check uk items');
4513:
4514: END IF;
4515: check_evtRegs_uk_items( p_confirmation_code => p_evt_Regs_rec.confirmation_code
4516: , p_event_registration_id => p_evt_Regs_rec.event_registration_id
4525: IF (AMS_DEBUG_HIGH_ON) THEN
4526:
4527:
4528:
4529: AMS_Utility_PVT.debug_message('check fk items');
4530:
4531: END IF;
4532: check_evtRegs_fk_items( p_evt_Regs_rec => p_evt_Regs_rec
4533: , x_return_status => x_return_status
4541: IF (AMS_DEBUG_HIGH_ON) THEN
4542:
4543:
4544:
4545: AMS_Utility_PVT.debug_message('check lookup items');
4546:
4547: END IF;
4548: check_evtRegs_lookup_items( p_evt_Regs_rec => p_evt_Regs_rec
4549: , x_return_status => x_return_status
4556: IF (AMS_DEBUG_HIGH_ON) THEN
4557:
4558:
4559:
4560: AMS_Utility_PVT.debug_message('check flag items');
4561:
4562: END IF;
4563: check_evtRegs_flag_items( p_evt_Regs_rec => p_evt_Regs_rec
4564: , x_return_status => x_return_status
4630: x_return_status := FND_API.g_ret_sts_success;
4631: ELSE
4632: IF (AMS_DEBUG_HIGH_ON) THEN
4633:
4634: AMS_Utility_PVT.debug_message('This record already exists');
4635: END IF;
4636: AMS_Utility_PVT.error_message('AMS_EVENT_REGISTRANT_EXISTS');
4637: x_return_status := FND_API.g_ret_sts_error;
4638: END IF;
4632: IF (AMS_DEBUG_HIGH_ON) THEN
4633:
4634: AMS_Utility_PVT.debug_message('This record already exists');
4635: END IF;
4636: AMS_Utility_PVT.error_message('AMS_EVENT_REGISTRANT_EXISTS');
4637: x_return_status := FND_API.g_ret_sts_error;
4638: END IF;
4639: CLOSE chkexists;
4640:
4662:
4663: ----------------------- initialize --------------------
4664: IF (AMS_DEBUG_HIGH_ON) THEN
4665:
4666: AMS_Utility_PVT.debug_message(l_full_name||': start');
4667: END IF;
4668:
4669: IF (FND_API.to_boolean(p_init_msg_list))
4670: THEN
4688: IF (AMS_DEBUG_HIGH_ON) THEN
4689:
4690:
4691:
4692: AMS_Utility_PVT.debug_message(l_full_name||': check items');
4693:
4694: END IF;
4695: IF (p_validation_level >= JTF_PLSQL_API.g_valid_level_item)
4696: THEN
4710:
4711: /*
4712: IF (AMS_DEBUG_HIGH_ON) THEN
4713:
4714: AMS_Utility_PVT.debug_message(l_full_name||': check record');
4715: END IF;
4716:
4717: IF (p_validation_level >= JTF_PLSQL_API.g_valid_level_record)
4718: THEN
4735: );
4736: */
4737: IF (AMS_DEBUG_HIGH_ON) THEN
4738:
4739: AMS_Utility_PVT.debug_message(l_full_name ||': end');
4740: END IF;
4741:
4742: EXCEPTION
4743:
4878: IF (AMS_DEBUG_HIGH_ON) THEN
4879:
4880:
4881:
4882: AMS_UTILITY_PVT.debug_message('Ev Reg Id:'|| p_evt_regs_rec.event_registration_id);
4883:
4884: END IF;
4885:
4886: OPEN c_reg;
4888: INTO l_reg_rec;
4889: IF (c_reg%NOTFOUND)
4890: THEN
4891: CLOSE c_reg;
4892: AMS_UTILITY_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
4893: -- RAISE FND_API.g_exc_error;
4894: END IF; -- c_reg%NOTFOUND
4895: CLOSE c_reg;
4896:
5336: IF (AMS_DEBUG_HIGH_ON) THEN
5337:
5338:
5339:
5340: AMS_Utility_PVT.debug_message('Write interaction: created media item ');
5341:
5342: END IF;
5343:
5344:
5347:
5348:
5349:
5350:
5351: AMS_Utility_PVT.debug_message('Write interaction: looping for party id ');
5352:
5353:
5354: END IF;
5355: