[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
1168: -- Standard Start of API savepoint
1169: SAVEPOINT CREATE_EvtRegs_PVT;
1170: IF (AMS_DEBUG_HIGH_ON) THEN
1171:
1172: AMS_Utility_PVT.debug_message(l_full_name||': start');
1173: END IF;
1174:
1175: IF FND_API.to_boolean(p_init_msg_list)
1176: THEN
1193:
1194: -- Validate Environment
1195: IF (AMS_DEBUG_HIGH_ON) THEN
1196:
1197: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1198: END IF;
1199:
1200: Validate_evtregs( p_api_version_number => l_api_version_number
1201: , p_init_msg_list => p_init_msg_list
1217:
1218: -----------------------insert------------------
1219: IF (AMS_DEBUG_HIGH_ON) THEN
1220:
1221: AMS_Utility_PVT.debug_message(l_full_name || ': insert');
1222: END IF;
1223:
1224: IF (l_event_offer_id is NULL)
1225: then
1225: then
1226: -- already validated
1227: IF (AMS_DEBUG_HIGH_ON) THEN
1228:
1229: AMS_UTILITY_PVT.debug_message('Corresponding event offering information is not provided');
1230: END IF;
1231: ELSE
1232:
1233: open get_offer_details(l_event_offer_id);
1244: IF (AMS_DEBUG_HIGH_ON) THEN
1245:
1246:
1247:
1248: AMS_UTILITY_PVT.debug_message('l_invited_only_flag: ' || l_invited_only_flag);
1249:
1250: END IF;
1251: IF (AMS_DEBUG_HIGH_ON) THEN
1252:
1249:
1250: END IF;
1251: IF (AMS_DEBUG_HIGH_ON) THEN
1252:
1253: AMS_UTILITY_PVT.debug_message('l_invite_only_override_flag: ' || l_invite_only_override_flag);
1254: END IF;
1255:
1256: -- soagrawa modified call out to contact_in_invite_list for bug# 2600986
1257: IF (l_invited_only_flag = 'Y')
1265: )
1266: THEN
1267: IF (AMS_DEBUG_HIGH_ON) THEN
1268:
1269: AMS_UTILITY_PVT.debug_message('The attendant is not on the invite list');
1270: END IF;
1271: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_INVITED');
1272: x_return_status := FND_API.g_ret_sts_error;
1273: RAISE FND_API.G_EXC_ERROR;
1267: IF (AMS_DEBUG_HIGH_ON) THEN
1268:
1269: AMS_UTILITY_PVT.debug_message('The attendant is not on the invite list');
1270: END IF;
1271: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_INVITED');
1272: x_return_status := FND_API.g_ret_sts_error;
1273: RAISE FND_API.G_EXC_ERROR;
1274: ELSE
1275: l_system_status_code := 'REGISTERED';
1287: IF (l_reg_required_flag = 'N')
1288: THEN
1289: IF (AMS_DEBUG_HIGH_ON) THEN
1290:
1291: AMS_UTILITY_PVT.DEBUG_MESSAGE ('Registration for this event offering is not required');
1292: END IF;
1293: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_REQ');
1294: x_return_status := FND_API.g_ret_sts_error;
1295: RAISE FND_API.G_EXC_ERROR;
1289: IF (AMS_DEBUG_HIGH_ON) THEN
1290:
1291: AMS_UTILITY_PVT.DEBUG_MESSAGE ('Registration for this event offering is not required');
1292: END IF;
1293: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NOT_REQ');
1294: x_return_status := FND_API.g_ret_sts_error;
1295: RAISE FND_API.G_EXC_ERROR;
1296: ELSE --reg required flag is Y
1297: IF (l_reg_frozen_flag = 'Y')
1297: IF (l_reg_frozen_flag = 'Y')
1298: THEN
1299: IF (AMS_DEBUG_HIGH_ON) THEN
1300:
1301: AMS_UTILITY_PVT.debug_message('Registrations for this event offering are no longer accepted');
1302: END IF;
1303: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_FROZEN');
1304: x_return_status := FND_API.g_ret_sts_error;
1305: RAISE FND_API.G_EXC_ERROR;
1299: IF (AMS_DEBUG_HIGH_ON) THEN
1300:
1301: AMS_UTILITY_PVT.debug_message('Registrations for this event offering are no longer accepted');
1302: END IF;
1303: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_FROZEN');
1304: x_return_status := FND_API.g_ret_sts_error;
1305: RAISE FND_API.G_EXC_ERROR;
1306: END IF;
1307:
1327: )
1328: THEN
1329: IF (AMS_DEBUG_HIGH_ON) THEN
1330:
1331: AMS_UTILITY_PVT.debug_message('Registrations sold out. Waitlist not allowed for this event offering');
1332: END IF;
1333: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
1334: x_return_status := FND_API.g_ret_sts_error;
1335: RAISE FND_API.G_EXC_ERROR;
1329: IF (AMS_DEBUG_HIGH_ON) THEN
1330:
1331: AMS_UTILITY_PVT.debug_message('Registrations sold out. Waitlist not allowed for this event offering');
1332: END IF;
1333: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
1334: x_return_status := FND_API.g_ret_sts_error;
1335: RAISE FND_API.G_EXC_ERROR;
1336: ELSE -- wailist allowed
1337: -- if (l_reg_waitlist_pct is NOT NULL)
1345: )
1346: THEN
1347: IF (AMS_DEBUG_HIGH_ON) THEN
1348:
1349: AMS_UTILITY_PVT.debug_message('Eff Capacity:' || l_effective_capacity || 'and wait:' || l_reg_waitlist_pct);
1350: END IF;
1351: IF (AMS_DEBUG_HIGH_ON) THEN
1352:
1353: AMS_UTILITY_PVT.debug_message('Waiting list for this event offer ing is full');
1349: AMS_UTILITY_PVT.debug_message('Eff Capacity:' || l_effective_capacity || 'and wait:' || l_reg_waitlist_pct);
1350: END IF;
1351: IF (AMS_DEBUG_HIGH_ON) THEN
1352:
1353: AMS_UTILITY_PVT.debug_message('Waiting list for this event offer ing is full');
1354: END IF;
1355: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_AVAILABLE');
1356: x_return_status := FND_API.g_ret_sts_error;
1357: RAISE FND_API.G_EXC_ERROR;
1351: IF (AMS_DEBUG_HIGH_ON) THEN
1352:
1353: AMS_UTILITY_PVT.debug_message('Waiting list for this event offer ing is full');
1354: END IF;
1355: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_AVAILABLE');
1356: x_return_status := FND_API.g_ret_sts_error;
1357: RAISE FND_API.G_EXC_ERROR;
1358: end if; -- check_waitlist_availability
1359: -- end if; -- l_reg_waitlist_pct
1385: IF (AMS_DEBUG_HIGH_ON) THEN
1386:
1387:
1388:
1389: AMS_Utility_PVT.debug_message(l_full_name || ': end');
1390:
1391: END IF;
1392:
1393: EXCEPTION
1493: FETCH c_reg
1494: INTO l_evt_regs_rec;
1495: IF c_reg%NOTFOUND THEN
1496: CLOSE c_reg;
1497: AMS_UTILITY_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
1498: RAISE FND_API.g_exc_error;
1499: END IF; -- c_reg%NOTFOUND
1500: CLOSE c_reg;
1501:
1512: AND (l_evt_regs_rec.reg_source_type_code = p_evt_regs_rec.reg_source_type_code
1513: OR p_evt_regs_rec.reg_source_type_code = FND_API.g_miss_char)
1514: )
1515: THEN
1516: AMS_UTILITY_PVT.debug_message('Nothing changed');
1517: RETURN;
1518: ELSE
1519: AMS_UTILITY_PVT.debug_message('Something changed');
1520: END IF;
1515: THEN
1516: AMS_UTILITY_PVT.debug_message('Nothing changed');
1517: RETURN;
1518: ELSE
1519: AMS_UTILITY_PVT.debug_message('Something changed');
1520: END IF;
1521: */
1522:
1523: -- soagrawa 29-jan-2003 modified the following code for bug# 2775357
1529: AND l_evt_regs_rec.user_status_id <> p_evt_regs_rec.user_status_id
1530: THEN
1531: -- trying to update both attended flag to Y and status to cancel
1532: -- A registrant who has already attended cannot have his registration cancelled.
1533: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_ATTENDED_1');
1534: RAISE FND_API.g_exc_error;
1535:
1536: ELSIF l_evt_regs_rec.user_status_id <> p_evt_regs_rec.user_status_id
1537: THEN
1536: ELSIF l_evt_regs_rec.user_status_id <> p_evt_regs_rec.user_status_id
1537: THEN
1538: -- trying to update status to cancel when attended flag is already Y
1539: -- A registrant who has already attended cannot have his registration cancelled.
1540: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_ATTENDED_1');
1541: RAISE FND_API.g_exc_error;
1542:
1543: ELSIF p_evt_regs_Rec.attended_flag <> l_evt_regs_Rec.attended_flag
1544: THEN
1543: ELSIF p_evt_regs_Rec.attended_flag <> l_evt_regs_Rec.attended_flag
1544: THEN
1545: -- trying to update attended flag to Y when status is already cancelled
1546: -- Cannot update the Attended flag for the Registrant whose Registration Status is Cancelled.
1547: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_ATTENDED');
1548: RAISE FND_API.g_exc_error;
1549: END IF;
1550: END IF;
1551:
1728: -- add complete_evtreg_rec to complete rec with existing values instead of empty FND_API.g_miss_char
1729: -- replace g_miss_char/num/date with current column values
1730: IF (AMS_DEBUG_HIGH_ON) THEN
1731:
1732: AMS_Utility_PVT.debug_message(l_full_name ||': complete');
1733: END IF;
1734: complete_evtreg_rec(P_evt_regs_Rec, l_evt_regs_Rec);
1735:
1736: -- not now...unique key val provided...sugupta:todo- check for unique key before calling
1736: -- not now...unique key val provided...sugupta:todo- check for unique key before calling
1737: ----------------------- validate ----------------------
1738: IF (AMS_DEBUG_HIGH_ON) THEN
1739:
1740: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1741: END IF;
1742:
1743: -- Invoke validation procedures
1744: Validate_evtregs( p_api_version_number => l_api_version_number
1772: CLOSE c_event_details;
1773:
1774: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
1775: THEN
1776: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
1777: RAISE FND_API.g_exc_error;
1778: END IF;
1779:
1780: -- make sure the status code matches the user status id
1791: ) <= 0
1792: )
1793: )
1794: THEN
1795: AMS_UTILITY_PVT.error_message('AMS_EVT_REG_NO_WAIT_AVAILABLE');
1796: RAISE FND_API.g_exc_error;
1797: END IF;
1798:
1799: IF ( (l_old_reg_status = 'WAITLISTED')
1804: END IF;
1805: -------------------------- update --------------------
1806: IF (AMS_DEBUG_HIGH_ON) THEN
1807:
1808: AMS_Utility_PVT.debug_message(l_full_name || ': update');
1809: END IF;
1810:
1811: update AMS_EVENT_REGISTRATIONS set
1812: LAST_UPDATE_DATE = sysdate,
1877: where EVENT_REGISTRATION_ID = l_evt_regs_Rec.EVENT_REGISTRATION_ID
1878: and object_version_number = l_evt_regs_Rec.object_version_number;
1879:
1880: IF (SQL%NOTFOUND) THEN
1881: AMS_UTILITY_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
1882: RAISE FND_API.g_exc_error;
1883: END IF; -- SQL%NOTFOUND
1884:
1885: IF ( (l_old_reg_status = 'WAITLISTED')
1943: , p_trigger_type => 'REG_CONFIRM' -- IN VARCHAR2
1944: -- , p_requestor_type => -- IN VARCHAR2 := NULL
1945: -- Following line is modified by ptendulk on 12-Dec-2002
1946: , p_requestor_id => get_user_id(l_evt_regs_rec.OWNER_USER_ID)
1947: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_evt_regs_rec.OWNER_USER_ID) -- IN NUMBER
1948: -- , p_server_group => -- IN NUMBER := NULL
1949: -- , p_scheduled_date => -- IN DATE := SYSDATE
1950: -- , p_media_types => -- IN VARCHAR2 := 'E'
1951: -- , p_archive => -- IN VARCHAR2 := 'N'
1966: , x_msg_data => l_msg_data -- OUT VARCHAR2
1967: , x_request_history_id => l_request_history_id -- OUT NUMBER
1968: );
1969: IF (AMS_DEBUG_HIGH_ON) THEN
1970: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
1971: END IF;
1972:
1973: IF l_return_status = FND_API.g_ret_sts_error THEN
1974: RAISE FND_API.g_exc_error;
1995: IF (AMS_DEBUG_HIGH_ON) THEN
1996:
1997:
1998:
1999: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2000:
2001: END IF;
2002:
2003:
2177: -- Standard Start of API savepoint
2178: SAVEPOINT Cancel_EvtRegs_PVT;
2179: IF (AMS_DEBUG_HIGH_ON) THEN
2180:
2181: AMS_Utility_PVT.debug_message(l_full_name || ': start');
2182: END IF;
2183:
2184: -- Standard call to check for call compatibility.
2185: IF (NOT FND_API.Compatible_API_Call( l_api_version_number
2201: -- Initialize API return status to SUCCESS
2202: x_return_status := FND_API.G_RET_STS_SUCCESS;
2203:
2204: IF (AMS_DEBUG_HIGH_ON) THEN
2205: AMS_Utility_PVT.debug_message(l_full_name || ': cancel');
2206: END IF;
2207:
2208: open cur_user_stat_id;
2209: FETCH cur_user_stat_id
2238: IF (l_event_offer_id is NULL)
2239: then
2240: IF (AMS_DEBUG_HIGH_ON) THEN
2241:
2242: AMS_UTILITY_PVT.debug_message(' Corresponding event offering information is not provided');
2243: END IF;
2244: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_EVOID');
2245: x_return_status := FND_API.g_ret_sts_error;
2246: RAISE FND_API.G_EXC_ERROR;
2240: IF (AMS_DEBUG_HIGH_ON) THEN
2241:
2242: AMS_UTILITY_PVT.debug_message(' Corresponding event offering information is not provided');
2243: END IF;
2244: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_EVOID');
2245: x_return_status := FND_API.g_ret_sts_error;
2246: RAISE FND_API.G_EXC_ERROR;
2247: ELSE
2248: IF l_registration_group_id is NULL
2250: IF l_confirmation_code is NULL
2251: THEN
2252: IF (AMS_DEBUG_HIGH_ON) THEN
2253:
2254: AMS_UTILITY_PVT.debug_message(' Corresponding confirmation code for the event offering is not provided');
2255: END IF;
2256: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_CODE');
2257: x_return_status := FND_API.g_ret_sts_error;
2258: RAISE FND_API.G_EXC_ERROR;
2252: IF (AMS_DEBUG_HIGH_ON) THEN
2253:
2254: AMS_UTILITY_PVT.debug_message(' Corresponding confirmation code for the event offering is not provided');
2255: END IF;
2256: AMS_Utility_PVT.error_message('AMS_EVT_REG_CANC_NO_CODE');
2257: x_return_status := FND_API.g_ret_sts_error;
2258: RAISE FND_API.G_EXC_ERROR;
2259: ELSE
2260: IF (AMS_DEBUG_HIGH_ON) THEN
2258: RAISE FND_API.G_EXC_ERROR;
2259: ELSE
2260: IF (AMS_DEBUG_HIGH_ON) THEN
2261:
2262: AMS_Utility_PVT.debug_message(l_full_name ||': before off det cursor');
2263: END IF;
2264: open cancel_get_offer_details( l_event_offer_id
2265: , l_confirmation_code
2266: , l_registrant_party_id
2279: l_reg_end_time;
2280: close cancel_get_offer_details;
2281: IF (AMS_DEBUG_HIGH_ON) THEN
2282:
2283: AMS_Utility_PVT.debug_message(l_full_name ||': after off det cursor');
2284: END IF;
2285: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2286: THEN
2287: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2283: AMS_Utility_PVT.debug_message(l_full_name ||': after off det cursor');
2284: END IF;
2285: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2286: THEN
2287: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2288: RAISE FND_API.g_exc_error;
2289: END IF;
2290:
2291: IF (l_reg_charge_flag = 'N')
2338: , p_trigger_type => 'REG_CANCEL' -- IN VARCHAR2
2339: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2340: -- , p_requestor_id => l_owner_user_id -- Change made by ptendulk on 12-Dec-2002
2341: , p_requestor_id => get_user_id(l_owner_user_id)
2342: -- , p_requestor_id => AMS_Utility_PVT.get_resource_id(l_OWNER_USER_ID) -- IN NUMBER
2343: -- , p_server_group => -- IN NUMBER := NULL
2344: -- , p_scheduled_date => -- IN DATE := SYSDATE
2345: -- , p_media_types => -- IN VARCHAR2 := 'E'
2346: -- , p_archive => -- IN VARCHAR2 := 'N'
2360: , x_msg_data => l_msg_data -- OUT VARCHAR2
2361: , x_request_history_id => l_request_history_id -- OUT NUMBER
2362: );
2363: IF (AMS_DEBUG_HIGH_ON) THEN
2364: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2365: END IF;
2366:
2367: IF l_return_status = FND_API.g_ret_sts_error THEN
2368: RAISE FND_API.g_exc_error;
2394: IF (nvl(l_event_end_date, sysdate+1) < sysdate)
2395: then
2396: IF (AMS_DEBUG_HIGH_ON) THEN
2397:
2398: AMS_UTILITY_PVT.debug_message(' Cannot cancel a PAID event if cancellation date is later than Event end date.');
2399: END IF;
2400: ELSE
2401: IF (l_cancellation_code IS NULL)
2402: THEN
2445: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2446: -- Following line is modified by ptendulk on 12-Dec-2002
2447: -- , p_requestor_id => l_owner_user_id
2448: , p_requestor_id => get_user_id(l_owner_user_id)
2449: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
2450: -- , p_server_group => -- IN NUMBER := NULL
2451: -- , p_scheduled_date => -- IN DATE := SYSDATE
2452: -- , p_media_types => -- IN VARCHAR2 := 'E'
2453: -- , p_archive => -- IN VARCHAR2 := 'N'
2468: , x_msg_data => l_msg_data -- OUT VARCHAR2
2469: , x_request_history_id => l_request_history_id -- OUT NUMBER
2470: );
2471: IF (AMS_DEBUG_HIGH_ON) THEN
2472: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2473: END IF;
2474:
2475: IF l_return_status = FND_API.g_ret_sts_error THEN
2476: RAISE FND_API.g_exc_error;
2508: LOOP
2509: -- might want to add another if loop to check if the reg system_status_code is already cancelled ....
2510: IF (AMS_DEBUG_HIGH_ON) THEN
2511:
2512: AMS_Utility_PVT.debug_message(l_full_name ||': gp id not null-before off det cursor');
2513: END IF;
2514: -- sikalyan Fixed Bug 4185688 Updated the Conditional Check for a Registrant Group
2515: IF ( (cancel_reg_conf_data.confirmation_code IS NOT NULL)
2516: AND (cancel_reg_conf_data.registrant_party_id IS NOT NULL)
2536: l_reg_end_time;
2537: close cancel_get_offer_details;
2538: IF (AMS_DEBUG_HIGH_ON) THEN
2539:
2540: AMS_Utility_PVT.debug_message(l_full_name ||': gp id not null-after off det cursor');
2541: END IF;
2542: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2543: THEN
2544: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2540: AMS_Utility_PVT.debug_message(l_full_name ||': gp id not null-after off det cursor');
2541: END IF;
2542: IF (nvl(l_event_status, 'X') in ('ARCHIVED', 'CLOSED'))
2543: THEN
2544: AMS_Utility_PVT.Error_Message('AMS_EVENT_REG_UPDATE_ERROR', 'STATUS', l_event_status_name);
2545: RAISE FND_API.g_exc_error;
2546: END IF;
2547:
2548: IF (l_reg_charge_flag = 'N')
2595: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2596: -- Following line is modified by ptendulk on 12-Dec-2002
2597: -- , p_requestor_id => l_owner_user_id
2598: , p_requestor_id => get_user_id(l_owner_user_id)
2599: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
2600: -- , p_server_group => -- IN NUMBER := NULL
2601: -- , p_scheduled_date => -- IN DATE := SYSDATE
2602: -- , p_media_types => -- IN VARCHAR2 := 'E'
2603: -- , p_archive => -- IN VARCHAR2 := 'N'
2618: , x_msg_data => l_msg_data -- OUT VARCHAR2
2619: , x_request_history_id => l_request_history_id -- OUT NUMBER
2620: );
2621: IF (AMS_DEBUG_HIGH_ON) THEN
2622: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2623: END IF;
2624:
2625: IF l_return_status = FND_API.g_ret_sts_error THEN
2626: RAISE FND_API.g_exc_error;
2651: IF (l_event_end_date < sysdate)
2652: then
2653: IF (AMS_DEBUG_HIGH_ON) THEN
2654:
2655: AMS_UTILITY_PVT.debug_message('Cannot cancel a PAID event if cancellation date is later than Event end date.');
2656: END IF;
2657: IF (AMS_DEBUG_HIGH_ON) THEN
2658:
2659: AMS_UTILITY_PVT.debug_message('AMS_EVT_REG_CANC_DATE');
2655: AMS_UTILITY_PVT.debug_message('Cannot cancel a PAID event if cancellation date is later than Event end date.');
2656: END IF;
2657: IF (AMS_DEBUG_HIGH_ON) THEN
2658:
2659: AMS_UTILITY_PVT.debug_message('AMS_EVT_REG_CANC_DATE');
2660: END IF;
2661: x_return_status := FND_API.g_ret_sts_error;
2662: RAISE FND_API.G_EXC_ERROR;
2663: ELSE
2709: -- , p_requestor_type => -- IN VARCHAR2 := NULL
2710: -- Following line is modified by ptendulk on 12-Dec-2002
2711: -- , p_requestor_id => l_owner_user_id
2712: , p_requestor_id => get_user_id(l_owner_user_id)
2713: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
2714: -- , p_server_group => -- IN NUMBER := NULL
2715: -- , p_scheduled_date => -- IN DATE := SYSDATE
2716: -- , p_media_types => -- IN VARCHAR2 := 'E'
2717: -- , p_archive => -- IN VARCHAR2 := 'N'
2732: , x_msg_data => l_msg_data -- OUT VARCHAR2
2733: , x_request_history_id => l_request_history_id -- OUT NUMBER
2734: );
2735: IF (AMS_DEBUG_HIGH_ON) THEN
2736: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
2737: END IF;
2738:
2739: IF l_return_status = FND_API.g_ret_sts_error THEN
2740: RAISE FND_API.g_exc_error;
2782: IF (AMS_DEBUG_HIGH_ON) THEN
2783:
2784:
2785:
2786: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2787:
2788: END IF;
2789:
2790: EXCEPTION
2850:
2851: -------------------- initialize ------------------------
2852: IF (AMS_DEBUG_HIGH_ON) THEN
2853:
2854: AMS_Utility_PVT.debug_message(l_full_name||': start');
2855: END IF;
2856:
2857: IF FND_API.to_boolean(p_init_msg_list)
2858: THEN
2873:
2874: ------------------------ lock -------------------------
2875: IF (AMS_DEBUG_HIGH_ON) THEN
2876:
2877: AMS_Utility_PVT.debug_message(l_full_name||': lock');
2878: END IF;
2879:
2880: OPEN c_reg_b;
2881: FETCH c_reg_b
2882: INTO l_reg_id;
2883: IF (c_reg_b%NOTFOUND)
2884: THEN
2885: CLOSE c_reg_b;
2886: AMS_Utility_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
2887: RAISE FND_API.g_exc_error;
2888: END IF;
2889: CLOSE c_reg_b;
2890:
2897: IF (AMS_DEBUG_HIGH_ON) THEN
2898:
2899:
2900:
2901: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2902:
2903: END IF;
2904:
2905: EXCEPTION
2903: END IF;
2904:
2905: EXCEPTION
2906:
2907: WHEN AMS_Utility_PVT.resource_locked
2908: THEN
2909: x_return_status := FND_API.g_ret_sts_error;
2910: AMS_Utility_PVT.error_message('AMS_API_RESOURCE_LOCKED');
2911: FND_MSG_PUB.count_and_get( p_encoded => FND_API.g_false
2906:
2907: WHEN AMS_Utility_PVT.resource_locked
2908: THEN
2909: x_return_status := FND_API.g_ret_sts_error;
2910: AMS_Utility_PVT.error_message('AMS_API_RESOURCE_LOCKED');
2911: FND_MSG_PUB.count_and_get( p_encoded => FND_API.g_false
2912: , p_count => x_msg_count
2913: , p_data => x_msg_data
2914: );
2964: --------------------- initialize -----------------------
2965: SAVEPOINT delete_evtRegs;
2966: IF (AMS_DEBUG_HIGH_ON) THEN
2967:
2968: AMS_Utility_PVT.debug_message(l_full_name||': start');
2969: END IF;
2970:
2971: IF FND_API.to_boolean(p_init_msg_list)
2972: THEN
2987:
2988: ------------------------ delete ------------------------
2989: IF (AMS_DEBUG_HIGH_ON) THEN
2990:
2991: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
2992: END IF;
2993:
2994: UPDATE ams_event_registrations
2995: SET active_flag = 'N'
2997: AND object_version_number = p_object_version;
2998:
2999: IF (SQL%NOTFOUND)
3000: THEN
3001: AMS_Utility_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
3002: RAISE FND_API.g_exc_error;
3003: END IF; -- SQL%NOTFOUND
3004:
3005: -------------------- finish --------------------------
3016: IF (AMS_DEBUG_HIGH_ON) THEN
3017:
3018:
3019:
3020: AMS_Utility_PVT.debug_message(l_full_name ||': end');
3021:
3022: END IF;
3023:
3024: EXCEPTION
3152: ----------------------- initialize --------------------
3153: SAVEPOINT prioritize_waitlist;
3154: IF (AMS_DEBUG_HIGH_ON) THEN
3155:
3156: AMS_Utility_PVT.debug_message(l_full_name||': start');
3157: END IF;
3158:
3159: IF FND_API.to_boolean(p_init_msg_list)
3160: THEN
3176:
3177: -- validate not null values passed for required parameters...
3178: IF (p_event_offer_id IS NULL)
3179: THEN
3180: AMS_Utility_PVT.error_message('AMS_EVT_REG_PR_NULL_PARAM');
3181: l_return_status := FND_API.g_ret_sts_error;
3182: END IF; -- p_event_offer_id
3183:
3184: /* check Offer id's fk .....*/
3181: l_return_status := FND_API.g_ret_sts_error;
3182: END IF; -- p_event_offer_id
3183:
3184: /* check Offer id's fk .....*/
3185: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
3186: , 'event_offer_id'
3187: , p_event_offer_id
3188: ) = FND_API.g_false
3189: )
3187: , p_event_offer_id
3188: ) = FND_API.g_false
3189: )
3190: THEN
3191: AMS_Utility_PVT.error_message('AMS_EVT_REG_PR_BAD_EVOID');
3192: l_return_status := FND_API.g_ret_sts_error;
3193: -- RAISE FND_API.g_exc_error;
3194: END IF; -- check_fk_exists
3195:
3230: IF (l_reg_frozen_flag = 'Y')
3231: THEN
3232: IF (AMS_DEBUG_HIGH_ON) THEN
3233:
3234: AMS_UTILITY_PVT.debug_message('Registrations for the event offering are frozen- Cannot prioritize your wait');
3235: END IF;
3236: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_PRI_FROZEN');
3237: -- RAISE FND_API.G_EXC_ERROR;
3238: RETURN;
3232: IF (AMS_DEBUG_HIGH_ON) THEN
3233:
3234: AMS_UTILITY_PVT.debug_message('Registrations for the event offering are frozen- Cannot prioritize your wait');
3235: END IF;
3236: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_PRI_FROZEN');
3237: -- RAISE FND_API.G_EXC_ERROR;
3238: RETURN;
3239: END IF; -- l_reg_frozen_flag
3240:
3247: )
3248: THEN
3249: IF (AMS_DEBUG_HIGH_ON) THEN
3250:
3251: AMS_UTILITY_PVT.debug_message('No Waitlist Available');
3252: END IF;
3253: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
3254: -- RAISE FND_API.G_EXC_ERROR;
3255: RETURN;
3249: IF (AMS_DEBUG_HIGH_ON) THEN
3250:
3251: AMS_UTILITY_PVT.debug_message('No Waitlist Available');
3252: END IF;
3253: -- AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_WAIT_ALLOWED');
3254: -- RAISE FND_API.G_EXC_ERROR;
3255: RETURN;
3256: END IF;
3257:
3319: END IF; -- l_return_status
3320: -- create task assignment
3321: IF (AMS_DEBUG_HIGH_ON) THEN
3322:
3323: AMS_Utility_PVT.debug_message('calling AMS_TASK_PVT.Create_Task_Assignment');
3324: END IF;
3325: AMS_TASK_PVT.Create_Task_Assignment( p_api_version => l_api_version_number
3326: , p_init_msg_list => FND_API.g_false
3327: , p_commit => FND_API.g_false
3388: -- , p_requestor_type => -- IN VARCHAR2 := NULL
3389: -- Following line is modified by ptendulk on 12-Dec-2002
3390: -- , p_requestor_id => l_owner_user_id
3391: , p_requestor_id => get_user_id(l_owner_user_id)
3392: --, p_requestor_id => AMS_Utility_PVT.get_resource_id(l_owner_user_id) -- IN NUMBER
3393: -- , p_server_group => -- IN NUMBER := NULL
3394: -- , p_scheduled_date => -- IN DATE := SYSDATE
3395: -- , p_media_types => -- IN VARCHAR2 := 'E'
3396: -- , p_archive => -- IN VARCHAR2 := 'N'
3411: , x_msg_data => l_msg_data -- OUT VARCHAR2
3412: , x_request_history_id => l_request_history_id -- OUT NUMBER
3413: );
3414: IF (AMS_DEBUG_HIGH_ON) THEN
3415: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
3416: END IF;
3417:
3418: IF l_return_status = FND_API.g_ret_sts_error THEN
3419: RAISE FND_API.g_exc_error;
3426: IF (AMS_DEBUG_HIGH_ON) THEN
3427:
3428:
3429:
3430: AMS_Utility_Pvt.Debug_Message('Registered id ' || l_min_wait_reg_id);
3431:
3432: END IF;
3433: END IF; -- l_e_auto_register_flag
3434: END IF; -- l_min_wait_reg_id
3451: IF (AMS_DEBUG_HIGH_ON) THEN
3452:
3453:
3454:
3455: AMS_Utility_PVT.debug_message(l_full_name ||': end');
3456:
3457: END IF;
3458:
3459: EXCEPTION
3537: -- Standard Start of API savepoint
3538: SAVEPOINT substitute_validate_PVT;
3539: IF (AMS_DEBUG_HIGH_ON) THEN
3540:
3541: AMS_Utility_PVT.debug_message(l_full_name || ': start');
3542: END IF;
3543:
3544: IF FND_API.to_boolean(p_init_msg_list)
3545: THEN
3565: OR (p_attendant_contact_id IS NULL)
3566: OR (p_registrant_contact_id IS NULL)
3567: )
3568: THEN
3569: AMS_Utility_PVT.error_message('AMS_EVT_REG_SUBST_NULL_PARAM');
3570: x_return_status := FND_API.g_ret_sts_error;
3571: RAISE FND_API.g_exc_error;
3572: END IF; -- null ids
3573:
3589: -- update sql stmt
3590: -------------------------- update --------------------
3591: IF (AMS_DEBUG_HIGH_ON) THEN
3592:
3593: AMS_Utility_PVT.debug_message(l_full_name || ': update');
3594: END IF;
3595:
3596: update AMS_EVENT_REGISTRATIONS set
3597: ATTENDANT_PARTY_ID = p_attendant_party_id,
3604: where CONFIRMATION_CODE LIKE p_confirmation_code;
3605:
3606: IF (SQL%NOTFOUND)
3607: THEN
3608: AMS_Utility_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
3609: RAISE FND_API.g_exc_error;
3610: END IF; -- SQL%NOTFOUND
3611:
3612: -- Standard check for p_commit
3623: IF (AMS_DEBUG_HIGH_ON) THEN
3624:
3625:
3626:
3627: AMS_Utility_PVT.debug_message(l_full_name ||': end');
3628:
3629: END IF;
3630:
3631: EXCEPTION
3741: -- Standard Start of API savepoint
3742: SAVEPOINT transfer_validate_PVT;
3743: IF (AMS_DEBUG_HIGH_ON) THEN
3744:
3745: AMS_Utility_PVT.debug_message(l_full_name || ': start');
3746: END IF;
3747:
3748: IF FND_API.to_boolean(p_init_msg_list)
3749: THEN
3769: OR (p_new_offer_id IS NULL)
3770: OR (p_waitlist_flag IS NULL)
3771: )
3772: THEN
3773: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_NULL_PARAM');
3774: x_return_status := FND_API.g_ret_sts_error;
3775: RAISE FND_API.g_exc_error;
3776: END IF; -- null ids
3777:
3775: RAISE FND_API.g_exc_error;
3776: END IF; -- null ids
3777:
3778: -- check Offer id's fk .....
3779: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
3780: , 'event_offer_id'
3781: , p_old_offer_id
3782: ) = FND_API.g_false
3783: )
3781: , p_old_offer_id
3782: ) = FND_API.g_false
3783: )
3784: THEN
3785: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_BAD_EVOID');
3786: x_return_status := FND_API.g_ret_sts_error;
3787: RAISE FND_API.g_exc_error;
3788: END IF; -- check_fk_exists
3789:
3786: x_return_status := FND_API.g_ret_sts_error;
3787: RAISE FND_API.g_exc_error;
3788: END IF; -- check_fk_exists
3789:
3790: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
3791: , 'event_offer_id'
3792: , p_new_offer_id
3793: ) = FND_API.g_false
3794: )
3792: , p_new_offer_id
3793: ) = FND_API.g_false
3794: )
3795: THEN
3796: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_BAD_EVOID');
3797: x_return_status := FND_API.g_ret_sts_error;
3798: RAISE FND_API.g_exc_error;
3799: END IF; -- check_fk_exists
3800:
3805: close get_registrant_status;
3806:
3807: IF (nvl(l_system_status_code,'X') = 'CANCELLED')
3808: THEN
3809: AMS_Utility_PVT.error_message('AMS_EVT_REG_TR_CANCEL');
3810: RAISE FND_API.g_exc_error;
3811: END IF; -- l_system_status_code
3812:
3813: ------------------api logic-----------------------
3825: IF (AMS_DEBUG_HIGH_ON) THEN
3826:
3827:
3828:
3829: AMS_UTILITY_PVT.DEBUG_MESSAGE ('after offer details');
3830:
3831: END IF;
3832: IF (l_reg_required_flag = 'N')
3833: THEN
3857:
3858: x_old_system_status_code := 'CANCELLED';
3859: IF (AMS_DEBUG_HIGH_ON) THEN
3860:
3861: AMS_UTILITY_PVT.DEBUG_MESSAGE ('REgistration for the new event offering is not required, so just cancelling');
3862: END IF;
3863: RETURN;
3864: ELSE -- reg required flag is Y
3865: IF (l_reg_frozen_flag = 'Y')
3865: IF (l_reg_frozen_flag = 'Y')
3866: THEN
3867: IF (AMS_DEBUG_HIGH_ON) THEN
3868:
3869: AMS_UTILITY_PVT.debug_message('Registrations for the new event offering are no longer accepted, Old Registration is not cancelled');
3870: END IF;
3871: RETURN;
3872: END IF; -- l_reg_frozen_flag
3873:
3877:
3878: -- call insert, then call cancel reg
3879: IF (AMS_DEBUG_HIGH_ON) THEN
3880:
3881: AMS_UTILITY_PVT.debug_message('Calling transfer_insert');
3882: END IF;
3883: transfer_insert( p_Api_Version_Number => p_api_version_number
3884: , p_Init_Msg_List => p_init_msg_list
3885: , p_Commit => p_commit
3943: IF (l_waitlist_allowed_flag = 'N')
3944: THEN
3945: IF (AMS_DEBUG_HIGH_ON) THEN
3946:
3947: AMS_UTILITY_PVT.debug_message('Registrations are sold out. Waitlist not allowed for this event offering');
3948: END IF;
3949: RETURN;
3950: ELSE -- wailist allowed
3951: if (check_waitlist_availability( l_reg_waitlist_pct
3955: )
3956: then
3957: IF (AMS_DEBUG_HIGH_ON) THEN
3958:
3959: AMS_UTILITY_PVT.debug_message(' Could not wailist..Waiting list for this event offering is full, the old event is not cancelled');
3960: END IF;
3961: RETURN;
3962: else -- waitlist available
3963: l_system_status_code := 'WAITLISTED';
4038: IF (AMS_DEBUG_HIGH_ON) THEN
4039:
4040:
4041:
4042: AMS_Utility_PVT.debug_message(l_full_name ||': end');
4043:
4044: END IF;
4045:
4046: EXCEPTION
4101: x_return_status := FND_API.g_ret_sts_success;
4102: ------------------------ owner_user_id --------------------------
4103: IF (p_evt_Regs_rec.owner_user_id IS NULL)
4104: THEN
4105: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_OWNER_ID');
4106: x_return_status := FND_API.g_ret_sts_error;
4107: RETURN;
4108: END IF;
4109:
4123:
4124: ----------------------REG PARTY ID---------------------------------
4125: IF (p_evt_Regs_rec.registrant_party_id IS NULL)
4126: THEN
4127: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_PARTY');
4128: x_return_status := FND_API.g_ret_sts_error;
4129: RETURN;
4130: END IF;
4131:
4135: IF (p_evt_Regs_rec.payment_status_code = 'PAID')
4136: THEN
4137: IF (p_evt_Regs_rec.order_header_id IS NULL)
4138: THEN
4139: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_ORDER_HEADER');
4140: x_return_status := FND_API.g_ret_sts_error;
4141: RETURN;
4142: END IF; -- order_header_id
4143: ELSIF (p_evt_Regs_rec.payment_status_code = 'FREE')
4143: ELSIF (p_evt_Regs_rec.payment_status_code = 'FREE')
4144: THEN
4145: IF (p_evt_Regs_rec.order_header_id IS NOT NULL)
4146: THEN
4147: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_ORDER_HEADER');
4148: x_return_status := FND_API.g_ret_sts_error;
4149: RETURN;
4150: END IF; -- order_header_id
4151: END IF; -- payment_status_code
4155: IF ( (p_evt_Regs_rec.order_line_id IS NOT NULL)
4156: AND (p_evt_Regs_rec.order_header_id IS NULL)
4157: )
4158: THEN
4159: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_ORDER_HEADER');
4160: x_return_status := FND_API.g_ret_sts_error;
4161: RETURN;
4162: END IF; -- order_line_id/order_header_id
4163:
4169: IF ( (p_evt_regs_rec.registrant_account_id is NULL)
4170: AND (p_evt_regs_rec.attendant_account_id IS NULL)
4171: )
4172: THEN
4173: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_ACCT_FOR_ORDER');
4174: x_return_status := FND_API.g_ret_sts_error;
4175: RETURN;
4176: END IF; -- registrant_account_id/attendant_account_id
4177: END IF; -- order_line_id/order_header_id
4178:
4179: -----------------------REG CONTACT ID-----------------------------------
4180: IF (p_evt_Regs_rec.registrant_contact_id IS NULL)
4181: THEN
4182: AMS_Utility_PVT.error_message('AMS_EVT_REG_NO_CONTACT_ID');
4183: x_return_status := FND_API.g_ret_sts_error;
4184: RETURN;
4185: END IF; -- registrant_contact_id
4186:
4213: IF ( (p_validation_mode = JTF_PLSQL_API.g_create)
4214: AND (p_event_registration_id IS NOT NULL)
4215: )
4216: THEN
4217: IF (AMS_Utility_PVT.check_uniqueness( 'ams_event_registrations'
4218: , 'event_registration_id = ' || p_event_registration_id
4219: ) = FND_API.g_false
4220: )
4221: THEN
4218: , 'event_registration_id = ' || p_event_registration_id
4219: ) = FND_API.g_false
4220: )
4221: THEN
4222: AMS_Utility_PVT.error_message('AMS_EVT_REG_DUPLICATE_ID');
4223: x_return_status := FND_API.g_ret_sts_error;
4224: RETURN;
4225: END IF; -- check_uniqueness
4226: END IF; -- p_event_registration_id
4229: AND (p_confirmation_code IS NOT NULL)
4230: )
4231: THEN
4232: /* bug#1490374 commented OUT NOCOPY this piece
4233: IF (AMS_Utility_PVT.check_uniqueness( 'ams_event_registrations'
4234: , 'confirmation_code = ''' || p_confirmation_code || ''''
4235: ) = FND_API.g_false
4236: )
4237: */
4240: into l_dummy;
4241: close c_conf_code;
4242: IF (l_dummy <> 1)
4243: THEN
4244: AMS_Utility_PVT.error_message('AMS_EVT_REG_DUPLICATE_CODE');
4245: x_return_status := FND_API.g_ret_sts_error;
4246: RETURN;
4247: END IF; -- l_dummy
4248: END IF; -- p_confirmation_code
4262:
4263: ------------------- EVENT OFFER ID ----------------
4264: IF (p_evt_regs_rec.event_offer_id <> FND_API.g_miss_num)
4265: THEN
4266: IF (AMS_Utility_PVT.check_fk_exists( 'ams_event_offers_all_b'
4267: , 'event_offer_id'
4268: , p_evt_regs_rec.event_offer_id
4269: ) = FND_API.g_false
4270: )
4268: , p_evt_regs_rec.event_offer_id
4269: ) = FND_API.g_false
4270: )
4271: THEN
4272: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_EVENT_OFFER_ID');
4273: x_return_status := FND_API.g_ret_sts_error;
4274: RETURN;
4275: END IF; -- check_fk_exists
4276: END IF; -- event_offer_id
4277:
4278: ------------APPLICATION ID---------------------
4279: IF (p_evt_regs_rec.application_id <> FND_API.g_miss_num)
4280: THEN
4281: IF (AMS_Utility_PVT.check_fk_exists( 'fnd_application'
4282: , 'application_id'
4283: , p_evt_regs_rec.application_id
4284: ) = FND_API.g_false
4285: )
4283: , p_evt_regs_rec.application_id
4284: ) = FND_API.g_false
4285: )
4286: THEN
4287: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_APPLICATION_ID');
4288: x_return_status := FND_API.g_ret_sts_error;
4289: RETURN;
4290: END IF; -- check_fk_exists
4291: END IF; -- application_id
4292:
4293: --------------user status id------------------------
4294: IF (p_evt_regs_rec.user_status_id <> FND_API.g_miss_num)
4295: THEN
4296: IF (AMS_Utility_PVT.check_fk_exists( 'ams_user_statuses_b'
4297: , 'user_status_id'
4298: , p_evt_regs_rec.user_status_id
4299: ) = FND_API.g_false
4300: )
4298: , p_evt_regs_rec.user_status_id
4299: ) = FND_API.g_false
4300: )
4301: THEN
4302: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_USER_STATUS_ID');
4303: x_return_status := FND_API.g_ret_sts_error;
4304: RETURN;
4305: END IF; -- check_fk_exists
4306: END IF; -- user_status_id
4306: END IF; -- user_status_id
4307:
4308: --------------------------SOURCE CODE-------------------
4309: IF p_evt_regs_rec.source_code <> FND_API.g_miss_char THEN
4310: IF (AMS_Utility_PVT.check_fk_exists( 'ams_source_codes'
4311: , 'source_code'
4312: , p_evt_regs_rec.source_code
4313: , AMS_Utility_PVT.g_varchar2
4314: ) = FND_API.g_false
4309: IF p_evt_regs_rec.source_code <> FND_API.g_miss_char THEN
4310: IF (AMS_Utility_PVT.check_fk_exists( 'ams_source_codes'
4311: , 'source_code'
4312: , p_evt_regs_rec.source_code
4313: , AMS_Utility_PVT.g_varchar2
4314: ) = FND_API.g_false
4315: )
4316: THEN
4317: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SOURCE_CODE');
4313: , AMS_Utility_PVT.g_varchar2
4314: ) = FND_API.g_false
4315: )
4316: THEN
4317: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SOURCE_CODE');
4318: x_return_status := FND_API.g_ret_sts_error;
4319: RETURN;
4320: END IF; -- check_fk_exists
4321: END IF; -- source_code
4322:
4323: --------------- attendant language-----------------------
4324: IF (p_evt_regs_rec.attendant_language <> FND_API.g_miss_char)
4325: THEN
4326: IF (AMS_Utility_PVT.check_fk_exists( 'fnd_languages'
4327: , 'language_code'
4328: , p_evt_regs_rec.attendant_language
4329: , AMS_Utility_PVT.g_varchar2
4330: ) = FND_API.g_false
4325: THEN
4326: IF (AMS_Utility_PVT.check_fk_exists( 'fnd_languages'
4327: , 'language_code'
4328: , p_evt_regs_rec.attendant_language
4329: , AMS_Utility_PVT.g_varchar2
4330: ) = FND_API.g_false
4331: )
4332: THEN
4333: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_LANGUAGE');
4329: , AMS_Utility_PVT.g_varchar2
4330: ) = FND_API.g_false
4331: )
4332: THEN
4333: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_LANGUAGE');
4334: x_return_status := FND_API.g_ret_sts_error;
4335: RETURN;
4336: END IF; -- check_fk_exists
4337: END IF; -- attendant_language
4338:
4339: ---------------------TARGET LIST ID------------------
4340: IF (p_evt_regs_rec.target_list_id <> FND_API.g_miss_num)
4341: THEN
4342: IF (AMS_Utility_PVT.check_fk_exists( 'ams_list_headers_all'
4343: , 'list_header_id'
4344: , p_evt_regs_rec.target_list_id
4345: ) = FND_API.g_false
4346: )
4344: , p_evt_regs_rec.target_list_id
4345: ) = FND_API.g_false
4346: )
4347: THEN
4348: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_TARGET_LIST_ID');
4349: x_return_status := FND_API.g_ret_sts_error;
4350: RETURN;
4351: END IF; -- check_fk_exists
4352: END IF; -- target_list_id
4355: IF (p_evt_regs_rec.system_status_code <> FND_API.g_miss_char)
4356: THEN
4357: IF (p_validation_mode = JTF_PLSQL_API.g_create)
4358: THEN
4359: IF (AMS_Utility_PVT.check_fk_exists( 'ams_user_statuses_b'
4360: , 'system_status_code'
4361: , p_evt_regs_rec.system_status_code
4362: , AMS_Utility_PVT.g_varchar2
4363: ) = FND_API.g_false
4358: THEN
4359: IF (AMS_Utility_PVT.check_fk_exists( 'ams_user_statuses_b'
4360: , 'system_status_code'
4361: , p_evt_regs_rec.system_status_code
4362: , AMS_Utility_PVT.g_varchar2
4363: ) = FND_API.g_false
4364: )
4365: THEN
4366: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SYS_STATUS');
4362: , AMS_Utility_PVT.g_varchar2
4363: ) = FND_API.g_false
4364: )
4365: THEN
4366: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SYS_STATUS');
4367: x_return_status := FND_API.g_ret_sts_error;
4368: RETURN;
4369: END IF; -- check_fk_exists
4370: ELSE
4396: x_return_status := FND_API.g_ret_sts_success;
4397: ----------------------- registration_source_type--------------
4398: IF (p_evt_regs_rec.reg_source_type_code <> FND_API.g_miss_char)
4399: THEN
4400: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_REG_SOURCE'
4401: , p_lookup_code => p_evt_regs_rec.reg_source_type_code
4402: ) = FND_API.g_false
4403: )
4404: THEN
4401: , p_lookup_code => p_evt_regs_rec.reg_source_type_code
4402: ) = FND_API.g_false
4403: )
4404: THEN
4405: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_SOURCE_TYPE');
4406: x_return_status := FND_API.g_ret_sts_error;
4407: RETURN;
4408: END IF; -- check_lookup_exists
4409: END IF; -- reg_source_type_code
4410:
4411: -----------------------PAYMENT STATUS_CODE--------------
4412: IF (p_evt_regs_rec.payment_status_code <> FND_API.g_miss_char)
4413: THEN
4414: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_PAYMENT_STATUS'
4415: , p_lookup_code => p_evt_regs_rec.payment_status_code
4416: ) = FND_API.g_false
4417: )
4418: THEN
4415: , p_lookup_code => p_evt_regs_rec.payment_status_code
4416: ) = FND_API.g_false
4417: )
4418: THEN
4419: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_PAY_STAT');
4420: x_return_status := FND_API.g_ret_sts_error;
4421: RETURN;
4422: END IF; -- check_lookup_exists
4423: END IF; -- payment_status_code
4424:
4425: ------------------------CANCELLATION REASON CODE-------------------
4426: IF (p_evt_regs_rec.cancellation_reason_code <> FND_API.g_miss_char)
4427: THEN
4428: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_CANCEL_REASON_CODE'
4429: , p_lookup_code => p_evt_regs_rec.cancellation_reason_code
4430: ) = FND_API.g_false
4431: )
4432: THEN
4429: , p_lookup_code => p_evt_regs_rec.cancellation_reason_code
4430: ) = FND_API.g_false
4431: )
4432: THEN
4433: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_CANCEL_REASON');
4434: x_return_status := FND_API.g_ret_sts_error;
4435: RETURN;
4436: END IF; -- check_lookup_exists
4437: END IF; -- cancellation_reason_code
4438:
4439: ------------------------ATTENDANCE FAILURE REASON-------------------
4440: IF (p_evt_regs_rec.attendance_failure_reason <> FND_API.g_miss_char)
4441: THEN
4442: IF (AMS_Utility_PVT.check_lookup_exists( p_lookup_type => 'AMS_EVENT_ATTENDANCE_FAILURE'
4443: , p_lookup_code => p_evt_regs_rec.attendance_failure_reason
4444: ) = FND_API.g_false
4445: )
4446: THEN
4443: , p_lookup_code => p_evt_regs_rec.attendance_failure_reason
4444: ) = FND_API.g_false
4445: )
4446: THEN
4447: AMS_Utility_PVT.error_message('AMS_EVT_REG_BAD_ATTEN_FAILURE');
4448: x_return_status := FND_API.g_ret_sts_error;
4449: RETURN;
4450: END IF; -- check_lookup_exists
4451: END IF; -- attendance_failure_reason
4478: IF (AMS_DEBUG_HIGH_ON) THEN
4479:
4480:
4481:
4482: AMS_Utility_PVT.debug_message(' check req items');
4483:
4484: END IF;
4485: check_evtRegs_req_items( p_evt_Regs_rec => p_evt_Regs_rec
4486: , x_return_status => x_return_status
4493: IF (AMS_DEBUG_HIGH_ON) THEN
4494:
4495:
4496:
4497: AMS_Utility_PVT.debug_message('check uk items');
4498:
4499: END IF;
4500: check_evtRegs_uk_items( p_confirmation_code => p_evt_Regs_rec.confirmation_code
4501: , p_event_registration_id => p_evt_Regs_rec.event_registration_id
4510: IF (AMS_DEBUG_HIGH_ON) THEN
4511:
4512:
4513:
4514: AMS_Utility_PVT.debug_message('check fk items');
4515:
4516: END IF;
4517: check_evtRegs_fk_items( p_evt_Regs_rec => p_evt_Regs_rec
4518: , x_return_status => x_return_status
4526: IF (AMS_DEBUG_HIGH_ON) THEN
4527:
4528:
4529:
4530: AMS_Utility_PVT.debug_message('check lookup items');
4531:
4532: END IF;
4533: check_evtRegs_lookup_items( p_evt_Regs_rec => p_evt_Regs_rec
4534: , x_return_status => x_return_status
4541: IF (AMS_DEBUG_HIGH_ON) THEN
4542:
4543:
4544:
4545: AMS_Utility_PVT.debug_message('check flag items');
4546:
4547: END IF;
4548: check_evtRegs_flag_items( p_evt_Regs_rec => p_evt_Regs_rec
4549: , x_return_status => x_return_status
4615: x_return_status := FND_API.g_ret_sts_success;
4616: ELSE
4617: IF (AMS_DEBUG_HIGH_ON) THEN
4618:
4619: AMS_Utility_PVT.debug_message('This record already exists');
4620: END IF;
4621: AMS_Utility_PVT.error_message('AMS_EVENT_REGISTRANT_EXISTS');
4622: x_return_status := FND_API.g_ret_sts_error;
4623: END IF;
4617: IF (AMS_DEBUG_HIGH_ON) THEN
4618:
4619: AMS_Utility_PVT.debug_message('This record already exists');
4620: END IF;
4621: AMS_Utility_PVT.error_message('AMS_EVENT_REGISTRANT_EXISTS');
4622: x_return_status := FND_API.g_ret_sts_error;
4623: END IF;
4624: CLOSE chkexists;
4625:
4647:
4648: ----------------------- initialize --------------------
4649: IF (AMS_DEBUG_HIGH_ON) THEN
4650:
4651: AMS_Utility_PVT.debug_message(l_full_name||': start');
4652: END IF;
4653:
4654: IF (FND_API.to_boolean(p_init_msg_list))
4655: THEN
4673: IF (AMS_DEBUG_HIGH_ON) THEN
4674:
4675:
4676:
4677: AMS_Utility_PVT.debug_message(l_full_name||': check items');
4678:
4679: END IF;
4680: IF (p_validation_level >= JTF_PLSQL_API.g_valid_level_item)
4681: THEN
4695:
4696: /*
4697: IF (AMS_DEBUG_HIGH_ON) THEN
4698:
4699: AMS_Utility_PVT.debug_message(l_full_name||': check record');
4700: END IF;
4701:
4702: IF (p_validation_level >= JTF_PLSQL_API.g_valid_level_record)
4703: THEN
4720: );
4721: */
4722: IF (AMS_DEBUG_HIGH_ON) THEN
4723:
4724: AMS_Utility_PVT.debug_message(l_full_name ||': end');
4725: END IF;
4726:
4727: EXCEPTION
4728:
4863: IF (AMS_DEBUG_HIGH_ON) THEN
4864:
4865:
4866:
4867: AMS_UTILITY_PVT.debug_message('Ev Reg Id:'|| p_evt_regs_rec.event_registration_id);
4868:
4869: END IF;
4870:
4871: OPEN c_reg;
4873: INTO l_reg_rec;
4874: IF (c_reg%NOTFOUND)
4875: THEN
4876: CLOSE c_reg;
4877: AMS_UTILITY_PVT.error_message('AMS_API_RECORD_NOT_FOUND');
4878: -- RAISE FND_API.g_exc_error;
4879: END IF; -- c_reg%NOTFOUND
4880: CLOSE c_reg;
4881:
5321: IF (AMS_DEBUG_HIGH_ON) THEN
5322:
5323:
5324:
5325: AMS_Utility_PVT.debug_message('Write interaction: created media item ');
5326:
5327: END IF;
5328:
5329:
5332:
5333:
5334:
5335:
5336: AMS_Utility_PVT.debug_message('Write interaction: looping for party id ');
5337:
5338:
5339: END IF;
5340: