[Home] [Help]
69:
70: l_event_offer_id NUMBER ;
71: l_obj_version NUMBER ;
72: l_status_code VARCHAR2(30) ;
73: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','COMPLETED');
74: l_obj_type VARCHAR2(4); -- added as per enh # 3805347
75:
76: BEGIN
77:
79: LOOP
80: FETCH c_ev_schedule
81: INTO l_event_offer_id, l_obj_version, l_status_code, l_obj_type;
82: EXIT WHEN c_ev_schedule%NOTFOUND ;
83: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'COMPLETED') THEN
84: -- Can cancel the event offer
85: UPDATE ams_event_offers_all_b
86: SET system_status_code = 'COMPLETED',
87: last_status_date = SYSDATE,
98:
99:
100: IF (SQL%NOTFOUND) THEN
101: CLOSE c_ev_schedule ;
102: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
103: RAISE FND_API.g_exc_error;
104: END IF;
105:
106: AMS_EvhRules_PVT.process_leads(p_event_id => l_event_offer_id);
106: AMS_EvhRules_PVT.process_leads(p_event_id => l_event_offer_id);
107:
108: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
109: CLOSE c_ev_schedule;
110: AMS_Utility_PVT.Error_Message('AMS_EVEH_CANNOT_COMPLETE');
111: RAISE FND_API.g_exc_error;
112: END IF ;
113:
114: END LOOP;
136: FETCH e_status_code INTO l_status_code;
137: CLOSE e_status_code;
138: IF l_status_code IS NULL THEN
139: x_return_status := FND_API.g_ret_sts_error;
140: AMS_Utility_PVT.error_message('AMS_EVH_NO_USER_STATUS');
141: END IF;
142: x_status_code := l_status_code;
143: END handle_evh_status;
144: ---------------------------------------------------------------------
211: IF l_evh_rec.system_status_code <> 'NEW' THEN
212: IF p_evh_rec.event_header_name <> FND_API.g_miss_char
213: AND p_evh_rec.event_header_name <> l_evh_rec.event_header_name
214: THEN
215: AMS_Utility_PVT.error_message('AMS_EVH_UPDATE_EVH_NAME');
216: x_return_status := FND_API.g_ret_sts_error;
217: RETURN;
218: END IF;
219: IF p_evh_rec.active_from_date <> FND_API.g_miss_date
219: IF p_evh_rec.active_from_date <> FND_API.g_miss_date
220: AND p_evh_rec.active_from_date <>
221: l_evh_rec.active_from_date
222: THEN
223: AMS_Utility_PVT.error_message('AMS_EVH_UPDATE_START_DATE');
224: x_return_status := FND_API.g_ret_sts_error;
225: RETURN;
226: END IF;
227: IF p_evh_rec.active_to_date <> FND_API.g_miss_date
227: IF p_evh_rec.active_to_date <> FND_API.g_miss_date
228: AND p_evh_rec.active_to_date <>
229: l_evh_rec.active_to_date
230: THEN
231: AMS_Utility_PVT.error_message('AMS_EVH_UPDATE_END_DATE');
232: x_return_status := FND_API.g_ret_sts_error;
233: RETURN;
234: END IF;
235: END IF;
250: IF p_evh_rec.source_code <> FND_API.g_miss_char
251: AND p_evh_rec.source_code <> l_evh_rec.source_code
252: THEN
253: IF p_evh_rec.source_code IS NULL THEN
254: AMS_Utility_PVT.error_message('AMS_EVH_NO_SOURCE_CODE');
255: x_return_status := FND_API.g_ret_sts_error;
256: RETURN;
257: END IF;
258:
257: END IF;
258:
259: -- source_code cannot be changed if status is not NEW
260: IF l_evh_rec.system_status_code <> 'NEW' THEN
261: AMS_Utility_PVT.error_message('AMS_EVH_UPDATE_SOURCE_CODE');
262: x_return_status := FND_API.g_ret_sts_error;
263: RETURN;
264: END IF;
265:
269: FETCH c_source_code INTO l_dummy;
270: CLOSE c_source_code;
271:
272: IF l_dummy IS NOT NULL THEN
273: AMS_Utility_PVT.error_message('AMS_EVH_DUPE_SOURCE');
274: x_return_status := FND_API.g_ret_sts_error;
275: RETURN;
276: END IF;
277:
351: x_return_status := FND_API.g_ret_sts_success;
352: IF p_fund_source_type IS NULL AND p_fund_source_id IS NULL THEN
353: RETURN;
354: ELSIF p_fund_source_type IS NULL AND p_fund_source_id IS NOT NULL THEN
355: AMS_Utility_PVT.error_message('AMS_EVH_NO_FUND_SOURCE_TYPE');
356: END IF;
357: IF p_fund_source_type = 'FUND' THEN
358: -- todo add code to check against a fund
359: NULL;
362: OPEN c_camp;
363: FETCH c_camp INTO l_dummy;
364: IF c_camp%NOTFOUND THEN
365: x_return_status := FND_API.g_ret_sts_error;
366: AMS_Utility_PVT.error_message('AMS_EVH_BAD_FUND_SOURCE_CAMP');
367: END IF;
368: CLOSE c_camp;
369: END IF;
370: ELSIF p_fund_source_type = 'EVEH' THEN
372: OPEN c_eveh;
373: FETCH c_eveh INTO l_dummy;
374: IF c_eveh%NOTFOUND THEN
375: x_return_status := FND_API.g_ret_sts_error;
376: AMS_Utility_PVT.error_message('AMS_EVH_BAD_FUND_SOURCE_EVEH');
377: END IF;
378: CLOSE c_eveh;
379: END IF;
380: ELSIF p_fund_source_type = 'EVEO' THEN
382: OPEN c_eveo;
383: FETCH c_eveo INTO l_dummy;
384: IF c_eveo%NOTFOUND THEN
385: x_return_status := FND_API.g_ret_sts_error;
386: AMS_Utility_PVT.error_message('AMS_EVH_BAD_FUND_SOURCE_EVEO');
387: END IF;
388: CLOSE c_eveo;
389: END IF;
390: ELSIF p_fund_source_type = 'EONE' THEN
392: OPEN c_eone;
393: FETCH c_eone INTO l_dummy;
394: IF c_eone%NOTFOUND THEN
395: x_return_status := FND_API.g_ret_sts_error;
396: AMS_Utility_PVT.error_message('AMS_EVH_BAD_FUND_SOURCE_EVEO');
397: END IF;
398: CLOSE c_eone;
399: END IF;
400: ELSE
398: CLOSE c_eone;
399: END IF;
400: ELSE
401: x_return_status := FND_API.g_ret_sts_error;
402: AMS_Utility_PVT.error_message('AMS_EVH_BAD_FUND_SOURCE');
403: END IF;
404: END check_evh_fund_source;
405: ---------------------------------------------------------------------
406: -- PROCEDURE
457: THEN
458: RETURN;
459: ELSIF p_evh_calendar IS NULL THEN
460: x_return_status := FND_API.g_ret_sts_error;
461: AMS_Utility_PVT.error_message('AMS_EVH_NO_EVENT_CALENDAR');
462: RETURN;
463: END IF;
464:
465: -- check if p_evh_calendar is valid
468: CLOSE c_evh_calendar;
469:
470: IF l_dummy IS NULL THEN
471: x_return_status := FND_API.g_ret_sts_error;
472: AMS_Utility_PVT.error_message('AMS_EVH_BAD_EVENT_CALENDAR');
473: RETURN;
474: END IF;
475:
476: -- check p_start_period_name
480: CLOSE c_start_period;
481:
482: IF l_start_start IS NULL THEN
483: x_return_status := FND_API.g_ret_sts_error;
484: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_START_PERIOD'); -- resusing CAMP message
485: RETURN;
486: ELSIF p_start_date < l_start_start OR p_start_date > l_start_end THEN
487: x_return_status := FND_API.g_ret_sts_error;
488: AMS_Utility_PVT.error_message('AMS_EVH_OUT_START_PERIOD');
484: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_START_PERIOD'); -- resusing CAMP message
485: RETURN;
486: ELSIF p_start_date < l_start_start OR p_start_date > l_start_end THEN
487: x_return_status := FND_API.g_ret_sts_error;
488: AMS_Utility_PVT.error_message('AMS_EVH_OUT_START_PERIOD');
489: RETURN;
490: END IF;
491: END IF;
492:
497: CLOSE c_end_period;
498:
499: IF l_end_end IS NULL THEN
500: x_return_status := FND_API.g_ret_sts_error;
501: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_END_PERIOD'); --resuing CAMP message
502: RETURN;
503: ELSIF p_end_date < l_end_start OR p_end_date > l_end_end THEN
504: x_return_status := FND_API.g_ret_sts_error;
505: AMS_Utility_PVT.error_message('AMS_EVH_OUT_END_PERIOD');
501: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_END_PERIOD'); --resuing CAMP message
502: RETURN;
503: ELSIF p_end_date < l_end_start OR p_end_date > l_end_end THEN
504: x_return_status := FND_API.g_ret_sts_error;
505: AMS_Utility_PVT.error_message('AMS_EVH_OUT_END_PERIOD');
506: RETURN;
507: END IF;
508: END IF;
509:
509:
510: -- compare the start date and the end date
511: IF l_start_start > l_end_end THEN
512: x_return_status := FND_API.g_ret_sts_error;
513: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_PERIODS');--resuing CAMP message
514: END IF;
515:
516: END check_evh_calendar;
517:
635: RETURN;
636: END IF;
637:
638: IF x_source_code IS NULL THEN
639: AMS_Utility_PVT.error_message('AMS_EVO_NO_SOURCE_CODE');
640: x_return_status := FND_API.g_ret_sts_error;
641: RETURN;
642: END IF;
643:
646: FETCH c_source_code INTO l_source_code_id;
647: CLOSE c_source_code;
648:
649: IF l_source_code_id IS NOT NULL THEN
650: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE'); --reuse message
651: x_return_status := FND_API.g_ret_sts_error;
652: RETURN;
653: END IF;
654:
763: RETURN;
764: END IF;
765:
766: IF x_source_code IS NULL THEN
767: AMS_Utility_PVT.error_message('AMS_EVO_NO_SOURCE_CODE');
768: x_return_status := FND_API.g_ret_sts_error;
769: RETURN;
770: END IF;
771:
774: FETCH c_source_code INTO l_source_code_id;
775: CLOSE c_source_code;
776:
777: IF l_source_code_id IS NOT NULL THEN
778: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE'); --reuse message
779: x_return_status := FND_API.g_ret_sts_error;
780: RETURN;
781: END IF;
782:
893: RETURN;
894: END IF;
895:
896: IF x_source_code IS NULL THEN
897: AMS_Utility_PVT.error_message('AMS_EVO_NO_SOURCE_CODE');
898: x_return_status := FND_API.g_ret_sts_error;
899: RETURN;
900: END IF;
901:
904: FETCH c_source_code INTO l_source_code_id;
905: CLOSE c_source_code;
906:
907: IF l_source_code_id IS NOT NULL THEN
908: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE'); --reuse message
909: x_return_status := FND_API.g_ret_sts_error;
910: RETURN;
911: END IF;
912:
1041: CLOSE c_PROGRAM_status;
1042:
1043: END IF;
1044:
1045: l_system_status_code := AMS_Utility_PVT.get_system_status_code(p_user_status_id);
1046: l_parent_system_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id1);
1047:
1048: If l_system_status_code = 'ACTIVE' and l_parent_system_status_code <> 'ACTIVE'THEN
1049: FND_MESSAGE.set_name('AMS', 'AMS_PROGRAM_NOT_ACTIVE');
1042:
1043: END IF;
1044:
1045: l_system_status_code := AMS_Utility_PVT.get_system_status_code(p_user_status_id);
1046: l_parent_system_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id1);
1047:
1048: If l_system_status_code = 'ACTIVE' and l_parent_system_status_code <> 'ACTIVE'THEN
1049: FND_MESSAGE.set_name('AMS', 'AMS_PROGRAM_NOT_ACTIVE');
1050: FND_MSG_PUB.add;
1065: CLOSE c_old_status_EVEH;
1066:
1067: END IF;
1068:
1069: l_system_status_code := AMS_Utility_PVT.get_system_status_code(p_user_status_id);
1070: l_parent_system_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id1);
1071:
1072: If l_system_status_code = 'ACTIVE' and l_parent_system_status_code <> 'ACTIVE'THEN
1073: -- changed 'AMS_EVENT_NOT ACTIVE' to 'AMS_EVENT_NOT_ACTIVE'
1066:
1067: END IF;
1068:
1069: l_system_status_code := AMS_Utility_PVT.get_system_status_code(p_user_status_id);
1070: l_parent_system_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id1);
1071:
1072: If l_system_status_code = 'ACTIVE' and l_parent_system_status_code <> 'ACTIVE'THEN
1073: -- changed 'AMS_EVENT_NOT ACTIVE' to 'AMS_EVENT_NOT_ACTIVE'
1074: FND_MESSAGE.set_name('AMS', 'AMS_EVENT_NOT_ACTIVE');
1090: CLOSE c_PROGRAM_status;
1091:
1092: END IF;
1093:
1094: l_system_status_code := AMS_Utility_PVT.get_system_status_code(p_user_status_id);
1095: l_parent_system_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id1);
1096:
1097: If l_system_status_code = 'ACTIVE' and l_parent_system_status_code <> 'ACTIVE'THEN
1098: FND_MESSAGE.set_name('AMS', 'AMS_PROGRAM_NOT_ACTIVE');
1091:
1092: END IF;
1093:
1094: l_system_status_code := AMS_Utility_PVT.get_system_status_code(p_user_status_id);
1095: l_parent_system_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id1);
1096:
1097: If l_system_status_code = 'ACTIVE' and l_parent_system_status_code <> 'ACTIVE'THEN
1098: FND_MESSAGE.set_name('AMS', 'AMS_PROGRAM_NOT_ACTIVE');
1099: FND_MSG_PUB.add;
1117: -- The following procedure checks whether the status change is allowed from the
1118: -- approval perspective.
1119: -- So the code which does the Lead Import has to be called before this line.
1120:
1121: AMS_Utility_PVT.check_new_status_change(
1122: p_object_type => p_event_activity_type,
1123: p_object_id => p_event_id,
1124: p_old_status_id => l_old_status_id,
1125: p_new_status_id => p_user_status_id,
1146: AND p_fund_amount_tc <> FND_API.g_miss_num
1147: AND p_currency_code_tc <> FND_API.g_miss_char
1148: THEN
1149: */
1150: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
1151: 'AMS_EVENT_STATUS',
1152: 'SUBMITTED_BA'
1153: );
1154: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
1150: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
1151: 'AMS_EVENT_STATUS',
1152: 'SUBMITTED_BA'
1153: );
1154: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
1155: 'AMS_EVENT_STATUS',
1156: 'DENIED_BA'
1157: );
1158: AMS_Approval_PVT.StartProcess(
1163: p_orig_stat_id => l_old_status_id,
1164: p_new_stat_id => p_user_status_id,
1165: p_reject_stat_id => l_deny_status_id,
1166: p_requester_userid =>
1167: AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
1168: p_workflowprocess => 'AMS_APPROVAL',
1169: p_item_type => 'AMSAPRV'
1170: );
1171: /* ELSE
1168: p_workflowprocess => 'AMS_APPROVAL',
1169: p_item_type => 'AMSAPRV'
1170: );
1171: /* ELSE
1172: AMS_Utility_PVT.error_message('AMS_EVE_NO_BGT_AMT');
1173: -- Please Specify the Budget Amount Before seeking Approval! Error.
1174: RAISE FND_API.g_exc_error;
1175: END IF;
1176: ELSE
1173: -- Please Specify the Budget Amount Before seeking Approval! Error.
1174: RAISE FND_API.g_exc_error;
1175: END IF;
1176: ELSE
1177: AMS_Utility_PVT.error_message('AMS_EVE_NO_BGT_SRC');
1178: -- Please Specify Budget Source Before seeking Approval! Error.
1179: RAISE FND_API.g_exc_error;
1180: END IF;
1181: */
1179: RAISE FND_API.g_exc_error;
1180: END IF;
1181: */
1182: ELSIF l_approval_type = 'THEME' THEN
1183: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
1184: 'AMS_EVENT_STATUS',
1185: 'SUBMITTED_TA'
1186: );
1187: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
1183: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
1184: 'AMS_EVENT_STATUS',
1185: 'SUBMITTED_TA'
1186: );
1187: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
1188: 'AMS_EVENT_STATUS',
1189: 'DENIED_TA'
1190: );
1191: AMS_Approval_PVT.StartProcess(
1196: p_orig_stat_id => l_old_status_id,
1197: p_new_stat_id => p_user_status_id,
1198: p_reject_stat_id => l_deny_status_id,
1199: p_requester_userid =>
1200: AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
1201: p_workflowprocess => 'AMS_CONCEPT_APPROVAL',
1202: p_item_type => 'AMSAPRV'
1203: );
1204: ELSE
1233:
1234: IF p_event_activity_type = 'EVEH' THEN
1235: /* UPDATE ams_event_headers_all_b
1236: SET user_status_id = l_new_status_id,
1237: system_status_code = AMS_Utility_PVT.get_system_status_code(l_new_status_id),
1238: last_status_date = SYSDATE
1239: WHERE event_header_id = p_event_id; */
1240:
1241: AMS_EvhRules_PVT.Update_Event_Header_Status(p_event_header_id => p_event_id,
1239: WHERE event_header_id = p_event_id; */
1240:
1241: AMS_EvhRules_PVT.Update_Event_Header_Status(p_event_header_id => p_event_id,
1242: p_new_status_id => l_new_status_id,
1243: p_new_status_code => AMS_Utility_PVT.get_system_status_code(l_new_status_id)
1244: );
1245:
1246: ELSIF p_event_activity_type ='EVEO' THEN
1247: UPDATE ams_event_offers_all_b
1245:
1246: ELSIF p_event_activity_type ='EVEO' THEN
1247: UPDATE ams_event_offers_all_b
1248: SET user_status_id = l_new_status_id,
1249: system_status_code = AMS_Utility_PVT.get_system_status_code(l_new_status_id),
1250: last_status_date = SYSDATE
1251: WHERE event_offer_id = p_event_id;
1252:
1253: l_new_status_code := AMS_Utility_PVT.get_system_status_code(l_new_status_id); -- added as per enh # 3805347
1249: system_status_code = AMS_Utility_PVT.get_system_status_code(l_new_status_id),
1250: last_status_date = SYSDATE
1251: WHERE event_offer_id = p_event_id;
1252:
1253: l_new_status_code := AMS_Utility_PVT.get_system_status_code(l_new_status_id); -- added as per enh # 3805347
1254:
1255: -- call to api to raise business event, as per enh # 3805347
1256: AMS_SCHEDULERULES_PVT.RAISE_BE_ON_STATUS_CHANGE(p_obj_id => p_event_id,
1257: p_obj_type => p_event_activity_type,
1262:
1263: ELSIF p_event_activity_type ='EONE' THEN
1264: UPDATE ams_event_offers_all_b
1265: SET user_status_id = l_new_status_id,
1266: system_status_code = AMS_Utility_PVT.get_system_status_code(l_new_status_id),
1267: last_status_date = SYSDATE
1268: WHERE event_offer_id = p_event_id;
1269:
1270: l_new_status_code := AMS_Utility_PVT.get_system_status_code(l_new_status_id); -- added as per enh # 3805347
1266: system_status_code = AMS_Utility_PVT.get_system_status_code(l_new_status_id),
1267: last_status_date = SYSDATE
1268: WHERE event_offer_id = p_event_id;
1269:
1270: l_new_status_code := AMS_Utility_PVT.get_system_status_code(l_new_status_id); -- added as per enh # 3805347
1271:
1272: -- call to api to raise business event, as per enh # 3805347
1273: AMS_SCHEDULERULES_PVT.RAISE_BE_ON_STATUS_CHANGE(p_obj_id => p_event_id,
1274: p_obj_type => p_event_activity_type,
1286:
1287: --IF l_new_status_id = 7 THEN -- The following is better than hardcoding 7 here
1288:
1289: -- 05-jan-2004 soagrawa Fixed bug# 3100394 related to completing an event header
1290: IF AMS_Utility_PVT.get_system_status_code(l_new_status_id) = 'COMPLETED'
1291: THEN
1292: IF p_event_activity_type = 'EVEH'
1293: THEN
1294: Complete_Event_Offers(p_eveh_id => p_event_id);
1625: argument2 => NULL,
1626: argument3 => l_lit_batch_id --NULL
1627: );
1628:
1629: AMS_Utility_PVT.Create_Log (
1630: x_return_status => l_return_status,
1631: p_arc_log_used_by => 'EREG',
1632: p_log_used_by_id => p_event_id,
1633: p_msg_data => 'Starting LEAD program (ASXSLIMP) -- concurrent program_id is ' || to_char(l_request_id),
1780: IF l_curr_code IS NULL THEN
1781: l_curr_code := 'USD' ;
1782: END IF ;
1783:
1784: AMS_Utility_PVT.Convert_Currency(
1785: x_return_status => l_return_status ,
1786: p_from_currency => p_tc_curr,
1787: p_to_currency => l_curr_code,
1788: p_from_amount => p_tc_amt,
1950: open c_evnt_name_exist(p_evo_name);
1951: fetch c_evnt_name_exist into l_dummy;
1952: close c_evnt_name_exist;
1953: if l_dummy > 0 then
1954: l_list_header_rec.list_name := p_evo_name ||' - '||AMS_Utility_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER','ILST') || to_char(l_dummy+1) ;
1955: else
1956: l_list_header_rec.list_name := p_evo_name ||' - '||AMS_Utility_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER','ILST');
1957: end if;
1958: l_list_header_rec.list_type := 'TARGET';
1952: close c_evnt_name_exist;
1953: if l_dummy > 0 then
1954: l_list_header_rec.list_name := p_evo_name ||' - '||AMS_Utility_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER','ILST') || to_char(l_dummy+1) ;
1955: else
1956: l_list_header_rec.list_name := p_evo_name ||' - '||AMS_Utility_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER','ILST');
1957: end if;
1958: l_list_header_rec.list_type := 'TARGET';
1959: -- Have to be removed.
1960: l_list_header_rec.list_source_type := 'PERSON_LIST' ;
2026:
2027: l_event_header_id NUMBER ;
2028: l_obj_version NUMBER ;
2029: l_status_code VARCHAR2(30) ;
2030: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','CANCELLED');
2031:
2032: BEGIN
2033:
2034: Cancel_Exec_Event(p_evh_id);
2035: OPEN c_evh ;
2036: LOOP
2037: FETCH c_evh INTO l_event_header_id,l_obj_version,l_status_code ;
2038: EXIT WHEN c_evh%NOTFOUND ;
2039: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'CANCELLED') THEN
2040: -- Can cancel the schedule
2041: UPDATE ams_event_headers_all_b
2042: SET system_status_code = 'CANCELLED',
2043: last_status_date = SYSDATE,
2047: AND object_version_number = l_obj_version ;
2048:
2049: IF (SQL%NOTFOUND) THEN
2050: CLOSE c_evh ;
2051: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
2052: RAISE FND_API.g_exc_error;
2053: END IF;
2054: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
2055: CLOSE c_evh;
2052: RAISE FND_API.g_exc_error;
2053: END IF;
2054: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
2055: CLOSE c_evh;
2056: AMS_Utility_PVT.Error_Message('AMS_EVH_CANNOT_CANCEL');
2057: RAISE FND_API.g_exc_error;
2058: END IF ;
2059:
2060: END LOOP;
2088:
2089: l_event_offer_id NUMBER ;
2090: l_obj_version NUMBER ;
2091: l_status_code VARCHAR2(30) ;
2092: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','CANCELLED');
2093: l_obj_type VARCHAR2(4); -- added as per enh # 3805347
2094:
2095: BEGIN
2096:
2097: OPEN c_evo_list ;
2098: LOOP
2099: FETCH c_evo_list INTO l_event_offer_id,l_obj_version,l_status_code,l_obj_type ; -- modified as per enh # 3805347
2100: EXIT WHEN c_evo_list%NOTFOUND ;
2101: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'CANCELLED') THEN
2102: -- Can cancel the schedule
2103: UPDATE ams_event_offers_all_b
2104: SET system_status_code = 'CANCELLED',
2105: last_status_date = SYSDATE,
2116:
2117:
2118: IF (SQL%NOTFOUND) THEN
2119: CLOSE c_evo_list ;
2120: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
2121: RAISE FND_API.g_exc_error;
2122: END IF;
2123: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
2124: CLOSE c_evo_list;
2121: RAISE FND_API.g_exc_error;
2122: END IF;
2123: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
2124: CLOSE c_evo_list;
2125: AMS_Utility_PVT.Error_Message('AMS_EVO_CANNOT_CANCEL');
2126: RAISE FND_API.g_exc_error;
2127: END IF ;
2128:
2129: END LOOP;
2157:
2158: l_event_offer_id NUMBER ;
2159: l_obj_version NUMBER ;
2160: l_status_code VARCHAR2(30) ;
2161: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','CANCELLED');
2162: l_obj_type VARCHAR2(4); -- added as per enh # 3805347
2163:
2164: BEGIN
2165:
2166: OPEN c_evo_list ;
2167: LOOP
2168: FETCH c_evo_list INTO l_event_offer_id,l_obj_version,l_status_code, l_obj_type; -- Modified as per enh # 3805347
2169: EXIT WHEN c_evo_list%NOTFOUND ;
2170: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'CANCELLED') THEN
2171: -- Can cancel the schedule
2172: UPDATE ams_event_offers_all_b
2173: SET system_status_code = 'CANCELLED',
2174: last_status_date = SYSDATE,
2185:
2186:
2187: IF (SQL%NOTFOUND) THEN
2188: CLOSE c_evo_list ;
2189: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
2190: RAISE FND_API.g_exc_error;
2191: END IF;
2192: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
2193: CLOSE c_evo_list;
2190: RAISE FND_API.g_exc_error;
2191: END IF;
2192: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
2193: CLOSE c_evo_list;
2194: AMS_Utility_PVT.Error_Message('AMS_EONE_CANNOT_CANCEL');
2195: RAISE FND_API.g_exc_error;
2196: END IF ;
2197:
2198: END LOOP;
2280:
2281: l_event_header_id NUMBER ;
2282: l_obj_version NUMBER ;
2283: l_status_code VARCHAR2(30) ;
2284: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','COMPLETED');
2285:
2286: BEGIN
2287:
2288: complete_Exec_Event(p_evh_id);
2289: OPEN c_evh ;
2290: LOOP
2291: FETCH c_evh INTO l_event_header_id,l_obj_version,l_status_code ;
2292: EXIT WHEN c_evh%NOTFOUND ;
2293: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'COMPLETED') THEN
2294: -- Can complete the schedule
2295: UPDATE ams_event_headers_all_b
2296: SET system_status_code = 'COMPLETED',
2297: last_status_date = SYSDATE,
2301: AND object_version_number = l_obj_version ;
2302:
2303: IF (SQL%NOTFOUND) THEN
2304: CLOSE c_evh ;
2305: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
2306: RAISE FND_API.g_exc_error;
2307: END IF;
2308: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
2309: CLOSE c_evh;
2306: RAISE FND_API.g_exc_error;
2307: END IF;
2308: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
2309: CLOSE c_evh;
2310: AMS_Utility_PVT.Error_Message('AMS_EVH_CANNOT_COMPLETE');
2311: RAISE FND_API.g_exc_error;
2312: END IF ;
2313:
2314: END LOOP;
2341:
2342: l_event_offer_id NUMBER ;
2343: l_obj_version NUMBER ;
2344: l_status_code VARCHAR2(30) ;
2345: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','COMPLETED');
2346: l_obj_type VARCHAR2(4); -- added as per enh # 3805347
2347:
2348: BEGIN
2349:
2350: OPEN c_evo_list ;
2351: LOOP
2352: FETCH c_evo_list INTO l_event_offer_id,l_obj_version,l_status_code, l_obj_type; -- Modified as per enh # 3805347.
2353: EXIT WHEN c_evo_list%NOTFOUND ;
2354: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'COMPLETED') THEN
2355: -- Can complete the schedule
2356: UPDATE ams_event_offers_all_b
2357: SET system_status_code = 'COMPLETED',
2358: last_status_date = SYSDATE,
2369:
2370:
2371: IF (SQL%NOTFOUND) THEN
2372: CLOSE c_evo_list ;
2373: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
2374: RAISE FND_API.g_exc_error;
2375: END IF;
2376: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
2377: CLOSE c_evo_list;
2374: RAISE FND_API.g_exc_error;
2375: END IF;
2376: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
2377: CLOSE c_evo_list;
2378: AMS_Utility_PVT.Error_Message('AMS_EVO_CANNOT_COMPLETE');
2379: RAISE FND_API.g_exc_error;
2380: END IF ;
2381:
2382: END LOOP;
2409:
2410: l_event_offer_id NUMBER ;
2411: l_obj_version NUMBER ;
2412: l_status_code VARCHAR2(30) ;
2413: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','COMPLETED');
2414: l_obj_type VARCHAR2(4); -- added as per enh # 3805347
2415:
2416: BEGIN
2417:
2418: OPEN c_evo_list ;
2419: LOOP
2420: FETCH c_evo_list INTO l_event_offer_id,l_obj_version,l_status_code, l_obj_type; -- Modified as per enh # 3805347
2421: EXIT WHEN c_evo_list%NOTFOUND ;
2422: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'COMPLETED') THEN
2423: -- Can complete the schedule
2424: UPDATE ams_event_offers_all_b
2425: SET system_status_code = 'COMPLETED',
2426: last_status_date = SYSDATE,
2438: p_new_status_code => 'COMPLETED' );
2439:
2440: IF (SQL%NOTFOUND) THEN
2441: CLOSE c_evo_list ;
2442: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
2443: RAISE FND_API.g_exc_error;
2444: END IF;
2445: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
2446: CLOSE c_evo_list;
2443: RAISE FND_API.g_exc_error;
2444: END IF;
2445: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
2446: CLOSE c_evo_list;
2447: AMS_Utility_PVT.Error_Message('AMS_EONE_CANNOT_COMPLETE');
2448: RAISE FND_API.g_exc_error;
2449: END IF ;
2450:
2451: END LOOP;
2484: l_event_offer_id NUMBER ;
2485: l_event_header_id NUMBER ;
2486: l_obj_version NUMBER ;
2487: l_status_code VARCHAR2(30) ;
2488: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_EVENT_STATUS','COMPLETED');
2489:
2490: BEGIN
2491: OPEN c_evh_list;
2492: LOOP
2746: FETCH c_header_status INTO l_status_code;
2747: CLOSE c_header_status;
2748:
2749: IF (l_numOfSchedules = 0
2750: -- AND Fnd_Api.G_TRUE = Ams_Utility_Pvt.Check_Status_Change('AMS_EVENT_STATUS',l_status_code,'CANCELLED')
2751: )
2752: THEN
2753:
2754: UPDATE ams_event_headers_all_b
2867: FETCH c_header_owner INTO l_old_owner ;
2868:
2869: IF c_header_owner%NOTFOUND THEN
2870: CLOSE c_header_owner;
2871: AMS_Utility_Pvt.Error_Message('AMS_API_RECORD_NOT_FOUND');
2872: RAISE FND_API.g_exc_error;
2873: ELSE
2874: CLOSE c_header_owner;
2875: END IF;
2879: FETCH c_offer_owner INTO l_old_owner ;
2880:
2881: IF c_offer_owner%NOTFOUND THEN
2882: CLOSE c_offer_owner;
2883: AMS_Utility_Pvt.Error_Message('AMS_API_RECORD_NOT_FOUND');
2884: RAISE FND_API.g_exc_error;
2885: ELSE
2886: CLOSE c_offer_owner;
2887: END IF;
2977:
2978:
2979: BEGIN
2980:
2981: -- l_logged_in_user_id := AMS_Utility_PVT.get_resource_id(FND_GLOBAL.USER_ID);
2982: l_logged_in_user_id := FND_GLOBAL.user_id ;
2983:
2984: IF (AMS_DEBUG_HIGH_ON) THEN
2985: AMS_Utility_PVT.debug_message('Calling AMS_CT_RULE_PVT.check_content_rule');
2981: -- l_logged_in_user_id := AMS_Utility_PVT.get_resource_id(FND_GLOBAL.USER_ID);
2982: l_logged_in_user_id := FND_GLOBAL.user_id ;
2983:
2984: IF (AMS_DEBUG_HIGH_ON) THEN
2985: AMS_Utility_PVT.debug_message('Calling AMS_CT_RULE_PVT.check_content_rule');
2986: END IF;
2987:
2988:
2989: -- soagrawa 18-nov-2002 for bug# 2672928
3050: );
3051:
3052:
3053: IF (AMS_DEBUG_HIGH_ON) THEN
3054: AMS_Utility_PVT.debug_message('Request ID: ' || l_request_history_id);
3055: END IF;
3056:
3057: IF x_return_status = FND_API.g_ret_sts_error THEN
3058: RAISE FND_API.g_exc_error;