[Home] [Help]
68: AND enabled_flag = 'Y';
69:
70: BEGIN
71:
72: x_return_status := FND_API.g_ret_sts_success;
73:
74: OPEN c_status_code;
75: FETCH c_status_code INTO l_status_code ;
76: CLOSE c_status_code;
75: FETCH c_status_code INTO l_status_code ;
76: CLOSE c_status_code;
77:
78: IF l_status_code IS NULL THEN
79: x_return_status := FND_API.g_ret_sts_error;
80: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_USER_STATUS');
81: END IF;
82:
83: x_status_code := l_status_code;
109:
110: BEGIN
111:
112: x_inherit_flag := 'N';
113: x_return_status := FND_API.g_ret_sts_success;
114:
115: IF p_parent_id IS NOT NULL THEN
116: OPEN c_parent;
117: FETCH c_parent INTO l_rollup_type;
118: CLOSE c_parent;
119:
120: IF l_rollup_type IS NULL THEN
121: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_PARENT_ID');
122: x_return_status := FND_API.g_ret_sts_error;
123: ELSIF l_rollup_type = 'ECAM' THEN
124: AMS_Utility_PVT.error_message('AMS_CAMP_PARENT_IS_EC');
125: x_return_status := FND_API.g_ret_sts_error;
126: ELSIF l_rollup_type = 'MCAM' THEN
121: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_PARENT_ID');
122: x_return_status := FND_API.g_ret_sts_error;
123: ELSIF l_rollup_type = 'ECAM' THEN
124: AMS_Utility_PVT.error_message('AMS_CAMP_PARENT_IS_EC');
125: x_return_status := FND_API.g_ret_sts_error;
126: ELSIF l_rollup_type = 'MCAM' THEN
127: IF p_rollup_type = 'ECAM' THEN
128: x_inherit_flag := 'Y';
129: ELSE
127: IF p_rollup_type = 'ECAM' THEN
128: x_inherit_flag := 'Y';
129: ELSE
130: AMS_Utility_PVT.error_message('AMS_CAMP_PARENT_IS_MC');
131: x_return_status := FND_API.g_ret_sts_error;
132: END IF;
133: END IF;
134: END IF;
135:
194: l_master_id NUMBER ;
195:
196: BEGIN
197:
198: x_return_status := FND_API.g_ret_sts_success;
199:
200: -- find out if there is any event already associated to the campaign
201: OPEN c_event_det;
202: FETCH c_event_det INTO l_obj_id, l_obj_ver, l_event_id, l_event_type;
211: l_assc_rec.object_association_id := l_obj_id ;
212:
213: AMS_Associations_PVT.delete_association(
214: p_api_version => 1.0,
215: p_init_msg_list => FND_API.g_false,
216: p_commit => FND_API.g_false,
217: p_validation_level => FND_API.g_valid_level_full,
218:
219: x_return_status => x_return_status,
212:
213: AMS_Associations_PVT.delete_association(
214: p_api_version => 1.0,
215: p_init_msg_list => FND_API.g_false,
216: p_commit => FND_API.g_false,
217: p_validation_level => FND_API.g_valid_level_full,
218:
219: x_return_status => x_return_status,
220: x_msg_count => l_msg_count,
213: AMS_Associations_PVT.delete_association(
214: p_api_version => 1.0,
215: p_init_msg_list => FND_API.g_false,
216: p_commit => FND_API.g_false,
217: p_validation_level => FND_API.g_valid_level_full,
218:
219: x_return_status => x_return_status,
220: x_msg_count => l_msg_count,
221: x_msg_data => l_msg_data,
224: p_object_version => l_obj_ver
225: );
226: END IF;
227:
228: IF x_return_status = FND_API.g_ret_sts_success
229: AND p_event_id IS NOT NULL
230: THEN
231: -- check if the given event is associated to any campaign
232: l_obj_id := 0 ;
242: --
243: IF l_master_id IS NOT NULL AND
244: l_master_id <> p_campaign_id
245: THEN
246: x_return_status := FND_API.g_ret_sts_error;
247: AMS_Utility_PVT.error_message('AMS_CAMP_EVE_EXIST');
248: ELSIF l_master_id IS NULL THEN
249: -- initialize the association rec
250: l_assc_rec.master_object_type := 'CAMP' ;
255: l_assc_rec.usage_type := 'CREATED' ;
256:
257: AMS_Associations_PVT.create_association(
258: p_api_version => 1.0,
259: p_init_msg_list => FND_API.g_false,
260: p_commit => FND_API.g_false,
261: p_validation_level => FND_API.g_valid_level_full,
262:
263: x_return_status => x_return_status,
256:
257: AMS_Associations_PVT.create_association(
258: p_api_version => 1.0,
259: p_init_msg_list => FND_API.g_false,
260: p_commit => FND_API.g_false,
261: p_validation_level => FND_API.g_valid_level_full,
262:
263: x_return_status => x_return_status,
264: x_msg_count => l_msg_count,
257: AMS_Associations_PVT.create_association(
258: p_api_version => 1.0,
259: p_init_msg_list => FND_API.g_false,
260: p_commit => FND_API.g_false,
261: p_validation_level => FND_API.g_valid_level_full,
262:
263: x_return_status => x_return_status,
264: x_msg_count => l_msg_count,
265: x_msg_data => l_msg_data,
341:
342: BEGIN
343:
344: x_source_code := p_source_code;
345: x_return_status := FND_API.g_ret_sts_success;
346:
347:
348: OPEN c_old_info;
349: FETCH c_old_info INTO l_global_flag, l_source_code, l_custom_setup_id, l_status, l_rollup, l_related_event_id;
392:
393: IF l_rollup = 'RCAM' THEN
394: IF p_source_code IS NULL THEN
395: AMS_Utility_PVT.Error_Message('AMS_CAMP_NO_PROG_CODE');
396: x_return_status := FND_API.g_ret_sts_error;
397: RETURN;
398: ELSE
399: --aranka added 07/27/02
400: IF AMS_Utility_PVT.check_uniqueness(
401: 'ams_campaigns_all_b',
402: 'source_code = ''' || p_source_code || ''''
403: || ' AND campaign_id <> '||p_campaign_id
404: -- || ''' AND rollup_type = ''RCAM'' AND campaign_id <> '||p_campaign_id
405: ) = FND_API.g_false
406: THEN
407: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PROG_CODE');
408: x_return_status := FND_API.g_ret_sts_error;
409: RETURN;
404: -- || ''' AND rollup_type = ''RCAM'' AND campaign_id <> '||p_campaign_id
405: ) = FND_API.g_false
406: THEN
407: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PROG_CODE');
408: x_return_status := FND_API.g_ret_sts_error;
409: RETURN;
410: END IF;
411: END IF;
412: ELSE
413:
414: -- Can not update source code if the Status is not new
415: IF l_status <> 'NEW' THEN
416: AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_SRC_STAT');
417: x_return_status := FND_API.g_ret_sts_error;
418: RETURN;
419: END IF ;
420:
421: -- all this code added by aranka was removed by SOAGRAWA on 16-AUG-2002
426: -- IF AMS_Utility_PVT.check_uniqueness(
427: -- 'ams_source_codes',
428: -- 'source_code = ''' || p_source_code ||
429: -- ''' AND active_flag = ''Y'''
430: -- ) = FND_API.g_false
431: -- THEN
432: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
433: -- x_return_status := FND_API.g_ret_sts_error;
434: -- RETURN;
429: -- ''' AND active_flag = ''Y'''
430: -- ) = FND_API.g_false
431: -- THEN
432: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
433: -- x_return_status := FND_API.g_ret_sts_error;
434: -- RETURN;
435: -- END IF;
436: -- IF AMS_Utility_PVT.check_uniqueness(
437: -- 'ams_campaigns_all_b',
436: -- IF AMS_Utility_PVT.check_uniqueness(
437: -- 'ams_campaigns_all_b',
438: -- 'source_code = ''' || p_source_code || ''''
439: -- || ' AND campaign_id <> '||p_campaign_id
440: -- ) = FND_API.g_false
441: -- THEN
442: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
443: -- x_return_status := FND_API.g_ret_sts_error;
444: -- RETURN;
439: -- || ' AND campaign_id <> '||p_campaign_id
440: -- ) = FND_API.g_false
441: -- THEN
442: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
443: -- x_return_status := FND_API.g_ret_sts_error;
444: -- RETURN;
445: -- END IF;
446: -- END IF;
447: --sam added end
452:
453: -- source_code cannot be changed if cascade and schedule exists
454: IF l_csch_exist IS NOT NULL THEN
455: AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_SOURCE_CODE');
456: x_return_status := FND_API.g_ret_sts_error;
457: RETURN;
458: END IF;
459: IF (AMS_DEBUG_HIGH_ON) THEN
460:
480: END IF;
481:
482: IF x_source_code IS NULL THEN
483: AMS_Utility_PVT.error_message('AMS_CAMP_NO_SOURCE_CODE');
484: x_return_status := FND_API.g_ret_sts_error;
485: RETURN;
486: END IF;
487:
488: -- check if the new source code is unique
491: CLOSE c_source_code;
492:
493: IF l_source_code_id IS NOT NULL THEN
494: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
495: x_return_status := FND_API.g_ret_sts_error;
496: RETURN;
497: END IF;
498:
499: -- this code added here by soagrawa on 16-aug-2002 for bug# 2511783
501: IF AMS_Utility_PVT.check_uniqueness(
502: 'ams_campaigns_all_b',
503: 'source_code = ''' || x_source_code || ''''
504: || ' AND campaign_id <> '||p_campaign_id
505: ) = FND_API.g_false
506: THEN
507: AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
508: x_return_status := FND_API.g_ret_sts_error;
509: RETURN;
504: || ' AND campaign_id <> '||p_campaign_id
505: ) = FND_API.g_false
506: THEN
507: AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
508: x_return_status := FND_API.g_ret_sts_error;
509: RETURN;
510: END IF;
511: END IF;
512: -- end soagrawa
513:
514: -- otherwise revoke the old one and add the new one to ams_source_codes
515: AMS_SourceCode_PVT.revoke_sourcecode(
516: p_api_version => 1.0,
517: p_init_msg_list => FND_API.g_false,
518: p_commit => FND_API.g_false,
519: p_validation_level => FND_API.g_valid_level_full,
520:
521: x_return_status => x_return_status,
514: -- otherwise revoke the old one and add the new one to ams_source_codes
515: AMS_SourceCode_PVT.revoke_sourcecode(
516: p_api_version => 1.0,
517: p_init_msg_list => FND_API.g_false,
518: p_commit => FND_API.g_false,
519: p_validation_level => FND_API.g_valid_level_full,
520:
521: x_return_status => x_return_status,
522: x_msg_count => l_msg_count,
515: AMS_SourceCode_PVT.revoke_sourcecode(
516: p_api_version => 1.0,
517: p_init_msg_list => FND_API.g_false,
518: p_commit => FND_API.g_false,
519: p_validation_level => FND_API.g_valid_level_full,
520:
521: x_return_status => x_return_status,
522: x_msg_count => l_msg_count,
523: x_msg_data => l_msg_data,
524:
525: p_sourcecode => l_source_code
526: );
527:
528: IF x_return_status <> FND_API.g_ret_sts_success THEN
529: RAISE FND_API.g_exc_error;
530: END IF;
531:
532: AMS_SourceCode_PVT.create_sourcecode(
525: p_sourcecode => l_source_code
526: );
527:
528: IF x_return_status <> FND_API.g_ret_sts_success THEN
529: RAISE FND_API.g_exc_error;
530: END IF;
531:
532: AMS_SourceCode_PVT.create_sourcecode(
533: p_api_version => 1.0,
530: END IF;
531:
532: AMS_SourceCode_PVT.create_sourcecode(
533: p_api_version => 1.0,
534: p_init_msg_list => FND_API.g_false,
535: p_commit => FND_API.g_false,
536: p_validation_level => FND_API.g_valid_level_full,
537:
538: x_return_status => x_return_status,
531:
532: AMS_SourceCode_PVT.create_sourcecode(
533: p_api_version => 1.0,
534: p_init_msg_list => FND_API.g_false,
535: p_commit => FND_API.g_false,
536: p_validation_level => FND_API.g_valid_level_full,
537:
538: x_return_status => x_return_status,
539: x_msg_count => l_msg_count,
532: AMS_SourceCode_PVT.create_sourcecode(
533: p_api_version => 1.0,
534: p_init_msg_list => FND_API.g_false,
535: p_commit => FND_API.g_false,
536: p_validation_level => FND_API.g_valid_level_full,
537:
538: x_return_status => x_return_status,
539: x_msg_count => l_msg_count,
540: x_msg_data => l_msg_data,
547: p_related_sourceid => l_related_source_id,
548: x_sourcecode_id => l_source_code_id
549: );
550:
551: IF x_return_status <> FND_API.g_ret_sts_success THEN
552: RAISE FND_API.g_exc_error;
553: END IF;
554: END IF ;
555: END update_camp_source_code;
548: x_sourcecode_id => l_source_code_id
549: );
550:
551: IF x_return_status <> FND_API.g_ret_sts_success THEN
552: RAISE FND_API.g_exc_error;
553: END IF;
554: END IF ;
555: END update_camp_source_code;
556:
598: l_rollup_type VARCHAR2(30);
599: l_owner NUMBER ;
600: BEGIN
601:
602: x_return_status := FND_API.g_ret_sts_success;
603:
604: OPEN c_resource ;
605: FETCH c_resource INTO l_resource;
606: CLOSE c_resource ;
625: p_user_or_role_type => 'USER');
626:
627: IF l_access = 'N' THEN
628: AMS_Utility_PVT.error_message('AMS_CAMP_NO_ACCESS');
629: x_return_status := FND_API.g_ret_sts_error;
630: RETURN;
631: END IF ;
632:
633:
639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
640: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
641: FND_MSG_PUB.add;
642: END IF;
643: RAISE FND_API.g_exc_error;
644: END IF;
645: CLOSE c_camp;
646:
647: --aranka removed comment 01/18/02
647: --aranka removed comment 01/18/02
648: l_admin_user := AMS_Access_PVT.Check_Admin_Access(l_resource);
649: --aranka removed comment 01/18/02
650:
651: IF p_camp_rec.owner_user_id = FND_API.g_miss_num THEN
652: l_owner := p_complete_rec.owner_user_id ;
653: ELSE
654: l_owner := p_camp_rec.owner_user_id ;
655: END IF;
674: AMS_Utility_PVT.Debug_message('Resource id : '||l_resource ) ;
675: END IF;
676:
677: -- Only owner/ Super Admin can change the owner.
678: IF p_camp_rec.owner_user_id <> FND_API.g_miss_num
679: AND p_camp_rec.owner_user_id <> l_camp_rec.owner_user_id
680: AND l_admin_user = FALSE
681: --aranka added comment 01/18/02
682: -- AND l_owner <> l_resource
683: AND l_camp_rec.owner_user_id <> l_resource
684: --aranka added comment 01/18/02
685: THEN
686: AMS_Utility_PVT.error_message('AMS_CAMP_UPDT_OWNER_PERM');
687: x_return_status := FND_API.g_ret_sts_error;
688: END IF;
689:
690:
691: IF (AMS_DEBUG_HIGH_ON) THEN
698:
699:
700: END IF;
701: -- Only owner/ Super Admin can change the Business Unit
702: IF p_camp_rec.business_unit_id <> FND_API.g_miss_num
703: AND p_camp_rec.business_unit_id <> l_camp_rec.business_unit_id
704: AND l_admin_user = FALSE
705: AND l_owner <> l_resource
706: THEN
704: AND l_admin_user = FALSE
705: AND l_owner <> l_resource
706: THEN
707: AMS_Utility_PVT.error_message('AMS_CAMP_UPDT_BUS_UNIT_PERM');
708: x_return_status := FND_API.g_ret_sts_error;
709: END IF;
710:
711: -- cannot update template_flag if child campaigns exist
712: IF p_camp_rec.template_flag <> FND_API.g_miss_char
708: x_return_status := FND_API.g_ret_sts_error;
709: END IF;
710:
711: -- cannot update template_flag if child campaigns exist
712: IF p_camp_rec.template_flag <> FND_API.g_miss_char
713: AND p_camp_rec.template_flag <> l_camp_rec.template_flag
714: THEN
715: OPEN c_child;
716: FETCH c_child INTO l_dummy;
715: OPEN c_child;
716: FETCH c_child INTO l_dummy;
717: IF c_child%FOUND THEN
718: AMS_Utility_PVT.error_message('AMS_CAMP_UPDT_TMPL_FLAG');
719: x_return_status := FND_API.g_ret_sts_error;
720: END IF;
721: CLOSE c_child;
722: END IF;
723:
723:
724: -- 07/15/00 holiu:
725: -- remove as template campaigns will have status changes
726: -- template campaigns won't have any status changes
727: --IF p_camp_rec.user_status_id <> FND_API.g_miss_num
728: -- AND p_camp_rec.user_status_id <> l_camp_rec.user_status_id
729: -- AND l_camp_rec.template_flag = 'Y'
730: --THEN
731: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_TEMP_STATUS');
728: -- AND p_camp_rec.user_status_id <> l_camp_rec.user_status_id
729: -- AND l_camp_rec.template_flag = 'Y'
730: --THEN
731: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_TEMP_STATUS');
732: -- x_return_status := FND_API.g_ret_sts_error;
733: -- RETURN;
734: --END IF;
735:
736: -- aranka added 05/10/02
736: -- aranka added 05/10/02
737: -- the following will be locked after available
738: -- IF l_camp_rec.status_code <> 'NEW'
739: -- THEN
740: -- IF p_camp_rec.campaign_name <> FND_API.g_miss_char
741: -- AND p_camp_rec.campaign_name <> l_camp_rec.campaign_name
742: -- THEN
743: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_CAMPAIGN_NAME');
744: -- x_return_status := FND_API.g_ret_sts_error;
740: -- IF p_camp_rec.campaign_name <> FND_API.g_miss_char
741: -- AND p_camp_rec.campaign_name <> l_camp_rec.campaign_name
742: -- THEN
743: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_CAMPAIGN_NAME');
744: -- x_return_status := FND_API.g_ret_sts_error;
745: -- END IF;
746:
747: --IF p_camp_rec.channel_id <> FND_API.g_miss_num
748: -- AND p_camp_rec.channel_id <> l_camp_rec.channel_id
743: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_CAMPAIGN_NAME');
744: -- x_return_status := FND_API.g_ret_sts_error;
745: -- END IF;
746:
747: --IF p_camp_rec.channel_id <> FND_API.g_miss_num
748: -- AND p_camp_rec.channel_id <> l_camp_rec.channel_id
749: --THEN
750: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_CHANNEL');
751: -- x_return_status := FND_API.g_ret_sts_error;
747: --IF p_camp_rec.channel_id <> FND_API.g_miss_num
748: -- AND p_camp_rec.channel_id <> l_camp_rec.channel_id
749: --THEN
750: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_CHANNEL');
751: -- x_return_status := FND_API.g_ret_sts_error;
752: --END IF;
753:
754: -- IF p_camp_rec.actual_exec_start_date <> FND_API.g_miss_date
755: -- AND p_camp_rec.actual_exec_start_date <> l_camp_rec.actual_exec_start_date
750: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_CHANNEL');
751: -- x_return_status := FND_API.g_ret_sts_error;
752: --END IF;
753:
754: -- IF p_camp_rec.actual_exec_start_date <> FND_API.g_miss_date
755: -- AND p_camp_rec.actual_exec_start_date <> l_camp_rec.actual_exec_start_date
756: -- AND (p_camp_rec.actual_exec_start_date IS NOT NULL
757: -- OR l_camp_rec.actual_exec_start_date IS NOT NULL)
758: -- THEN
756: -- AND (p_camp_rec.actual_exec_start_date IS NOT NULL
757: -- OR l_camp_rec.actual_exec_start_date IS NOT NULL)
758: -- THEN
759: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_START_DATE');
760: -- x_return_status := FND_API.g_ret_sts_error;
761: -- END IF;
762:
763: --IF p_camp_rec.actual_exec_end_date <> FND_API.g_miss_date
764: -- AND p_camp_rec.actual_exec_end_date <> l_camp_rec.actual_exec_end_date
759: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_START_DATE');
760: -- x_return_status := FND_API.g_ret_sts_error;
761: -- END IF;
762:
763: --IF p_camp_rec.actual_exec_end_date <> FND_API.g_miss_date
764: -- AND p_camp_rec.actual_exec_end_date <> l_camp_rec.actual_exec_end_date
765: -- AND (p_camp_rec.actual_exec_end_date IS NOT NULL
766: -- OR l_camp_rec.actual_exec_end_date IS NOT NULL)
767: --THEN
765: -- AND (p_camp_rec.actual_exec_end_date IS NOT NULL
766: -- OR l_camp_rec.actual_exec_end_date IS NOT NULL)
767: --THEN
768: -- AMS_Utility_PVT.error_message('AMS_CAMP_UPDATE_END_DATE');
769: -- x_return_status := FND_API.g_ret_sts_error;
770: --END IF;
771: -- END IF;
772:
773: END Check_Camp_Update;
804: WHERE campaign_id = p_parent_id;
805:
806: BEGIN
807:
808: x_return_status := FND_API.g_ret_sts_success;
809:
810: -- Commented by ptendulk as Channels will be attached at the schedule level
811: -- channel is required before submitted for non-template campaigns
812: --IF p_template_flag = 'N'
818: -- AMS_Utility_PVT.error_message('AMS_CAMP_EVENT_REQUIRED');
819: -- ELSE
820: -- AMS_Utility_PVT.error_message('AMS_CAMP_CHANNEL_REQUIRED');
821: -- END IF;
822: -- x_return_status := FND_API.g_ret_sts_error;
823: -- RETURN;
824: --END IF;
825:
826: -- check parent campaign
830: CLOSE c_parent;
831:
832: IF l_template_flag <> p_template_flag THEN
833: AMS_Utility_PVT.error_message('AMS_CAMP_ASSOC_TEMPLATE');
834: x_return_status := FND_API.g_ret_sts_error;
835: RETURN;
836: END IF;
837: END IF;
838:
905: -- AND (campaign_id = p_campaign_id OR p_campaign_id IS NULL));
906:
907: BEGIN
908:
909: x_return_status := FND_API.g_ret_sts_success;
910:
911: -- for execution campaigns, media_type and media are required
912: IF p_rollup_type = 'ECAM' THEN
913: IF p_media_type IS NULL THEN
911: -- for execution campaigns, media_type and media are required
912: IF p_rollup_type = 'ECAM' THEN
913: IF p_media_type IS NULL THEN
914: AMS_Utility_PVT.error_message('AMS_CAMP_EC_NO_MEDIA_TYPE');
915: x_return_status := FND_API.g_ret_sts_error;
916: RETURN;
917: END IF;
918:
919: IF p_media_type <> 'EVENTS' AND p_media_id IS NULL THEN
917: END IF;
918:
919: IF p_media_type <> 'EVENTS' AND p_media_id IS NULL THEN
920: AMS_Utility_PVT.error_message('AMS_CAMP_EC_NO_MEDIA');
921: x_return_status := FND_API.g_ret_sts_error;
922: RETURN;
923: END IF;
924:
925: IF p_media_type = 'EVENTS' AND p_event_type IS NULL THEN
923: END IF;
924:
925: IF p_media_type = 'EVENTS' AND p_event_type IS NULL THEN
926: AMS_Utility_PVT.error_message('AMS_CAMP_EC_NO_EVENT_TYPE');
927: x_return_status := FND_API.g_ret_sts_error;
928: RETURN;
929: END IF;
930:
931: -- 07/15/00 holiu: remove as channel is no longer required
930:
931: -- 07/15/00 holiu: remove as channel is no longer required
932: --IF p_channel_id IS NULL THEN
933: -- AMS_Utility_PVT.error_message('AMS_CAMP_EC_NO_CHANNEL');
934: -- x_return_status := FND_API.g_ret_sts_error;
935: -- RETURN;
936: --END IF;
937: END IF;
938:
938:
939: ---- all children under the same rollup campaign share the same media type
940: --l_type := get_parent_media_type(p_parent_id);
941: --IF p_media_type <> l_type THEN
942: -- x_return_status := FND_API.g_ret_sts_error;
943: -- AMS_Utility_PVT.error_message('AMS_CAMP_SHARE_MEDIA_TYPE');
944: -- RETURN;
945: --END IF;
946:
951: CLOSE c_media;
952:
953: IF l_type <> p_media_type THEN
954: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_MEDIA_ID');
955: x_return_status := FND_API.g_ret_sts_error;
956: RETURN;
957: END IF;
958: END IF;
959:
964: CLOSE c_channel_media;
965:
966: IF l_dummy IS NULL OR p_media_id IS NULL THEN
967: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
968: x_return_status := FND_API.g_ret_sts_error;
969: RETURN;
970: END IF;
971: END IF;
972:
975: IF p_arc_channel_from = 'EVEO' THEN
976: OPEN c_eveo;
977: FETCH c_eveo INTO l_type;
978: IF c_eveo%NOTFOUND OR l_type <> p_event_type THEN
979: x_return_status := FND_API.g_ret_sts_error;
980: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
981: END IF;
982: CLOSE c_eveo;
983: ELSIF p_arc_channel_from = 'EVEH' THEN
983: ELSIF p_arc_channel_from = 'EVEH' THEN
984: OPEN c_eveh;
985: FETCH c_eveh INTO l_type;
986: IF c_eveh%NOTFOUND OR l_type <> p_event_type THEN
987: x_return_status := FND_API.g_ret_sts_error;
988: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
989: END IF;
990: CLOSE c_eveh;
991: ELSE
988: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
989: END IF;
990: CLOSE c_eveh;
991: ELSE
992: x_return_status := FND_API.g_ret_sts_error;
993: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ARC_CHANNEL');
994: END IF;
995:
996: -- event associated to a campaign cannot be associated to other campaigns
996: -- event associated to a campaign cannot be associated to other campaigns
997: OPEN c_camp_event;
998: FETCH c_camp_event INTO l_dummy;
999: IF c_camp_event%FOUND THEN
1000: x_return_status := FND_API.g_ret_sts_error;
1001: AMS_Utility_PVT.error_message('AMS_CAMP_EVENT_IN_USE');
1002: END IF;
1003: CLOSE c_camp_event;
1004: END IF;
1038: WHERE event_offer_id = p_fund_source_id;
1039:
1040: BEGIN
1041:
1042: x_return_status := FND_API.g_ret_sts_success;
1043: IF p_fund_source_type IS NULL AND p_fund_source_id IS NULL THEN
1044: RETURN;
1045: ELSIF p_fund_source_type IS NULL AND p_fund_source_id IS NOT NULL THEN
1046: x_return_status := FND_API.g_ret_sts_error;
1042: x_return_status := FND_API.g_ret_sts_success;
1043: IF p_fund_source_type IS NULL AND p_fund_source_id IS NULL THEN
1044: RETURN;
1045: ELSIF p_fund_source_type IS NULL AND p_fund_source_id IS NOT NULL THEN
1046: x_return_status := FND_API.g_ret_sts_error;
1047: AMS_Utility_PVT.error_message('AMS_CAMP_NO_FUND_SOURCE_TYPE');
1048: RETURN;
1049: END IF;
1050:
1054: IF p_fund_source_id IS NOT NULL THEN
1055: OPEN c_camp;
1056: FETCH c_camp INTO l_dummy;
1057: IF c_camp%NOTFOUND THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_FUND_SOURCE_ID');
1060: END IF;
1061: CLOSE c_camp;
1062: END IF;
1064: IF p_fund_source_id IS NOT NULL THEN
1065: OPEN c_eveh;
1066: FETCH c_eveh INTO l_dummy;
1067: IF c_eveh%NOTFOUND THEN
1068: x_return_status := FND_API.g_ret_sts_error;
1069: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_FUND_SOURCE_ID');
1070: END IF;
1071: CLOSE c_eveh;
1072: END IF;
1074: IF p_fund_source_id IS NOT NULL THEN
1075: OPEN c_eveo;
1076: FETCH c_eveo INTO l_dummy;
1077: IF c_eveo%NOTFOUND THEN
1078: x_return_status := FND_API.g_ret_sts_error;
1079: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_FUND_SOURCE_ID');
1080: END IF;
1081: CLOSE c_eveo;
1082: END IF;
1080: END IF;
1081: CLOSE c_eveo;
1082: END IF;
1083: ELSE
1084: x_return_status := FND_API.g_ret_sts_error;
1085: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_FUND_SOURCE_TYPE');
1086: END IF;
1087:
1088: END check_camp_fund_source;
1133: AND period_name = p_end_period_name;
1134:
1135: BEGIN
1136:
1137: x_return_status := FND_API.g_ret_sts_success;
1138:
1139: -- check if p_campaign_calendar is null
1140: IF p_campaign_calendar IS NULL
1141: AND p_start_period_name IS NULL
1142: AND p_end_period_name IS NULL
1143: THEN
1144: RETURN;
1145: ELSIF p_campaign_calendar IS NULL THEN
1146: x_return_status := FND_API.g_ret_sts_error;
1147: AMS_Utility_PVT.error_message('AMS_CAMP_NO_CAMPAIGN_CALENDAR');
1148: RETURN;
1149: END IF;
1150:
1148: RETURN;
1149: END IF;
1150:
1151: IF p_start_date > p_end_date THEN
1152: x_return_status := FND_API.g_ret_sts_error;
1153: AMS_Utility_PVT.error_message('AMS_CAMP_INVALID_DATE');
1154: RETURN;
1155: END IF ;
1156:
1160: FETCH c_campaign_calendar INTO l_dummy;
1161: CLOSE c_campaign_calendar;
1162:
1163: IF l_dummy IS NULL THEN
1164: x_return_status := FND_API.g_ret_sts_error;
1165: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CAMPAIGN_CALENDAR');
1166: RETURN;
1167: END IF;
1168:
1172: FETCH c_start_period INTO l_start_start, l_start_end;
1173: CLOSE c_start_period;
1174:
1175: IF l_start_start IS NULL THEN
1176: x_return_status := FND_API.g_ret_sts_error;
1177: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_START_PERIOD');
1178: RETURN;
1179: ELSIF p_start_date < l_start_start OR p_start_date > l_start_end THEN
1180: x_return_status := FND_API.g_ret_sts_error;
1176: x_return_status := FND_API.g_ret_sts_error;
1177: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_START_PERIOD');
1178: RETURN;
1179: ELSIF p_start_date < l_start_start OR p_start_date > l_start_end THEN
1180: x_return_status := FND_API.g_ret_sts_error;
1181: AMS_Utility_PVT.error_message('AMS_CAMP_OUT_START_PERIOD');
1182: RETURN;
1183: END IF;
1184: END IF;
1189: FETCH c_end_period INTO l_end_start, l_end_end;
1190: CLOSE c_end_period;
1191:
1192: IF l_end_end IS NULL THEN
1193: x_return_status := FND_API.g_ret_sts_error;
1194: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_END_PERIOD');
1195: RETURN;
1196: ELSIF p_end_date < l_end_start OR p_end_date > l_end_end THEN
1197: x_return_status := FND_API.g_ret_sts_error;
1193: x_return_status := FND_API.g_ret_sts_error;
1194: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_END_PERIOD');
1195: RETURN;
1196: ELSIF p_end_date < l_end_start OR p_end_date > l_end_end THEN
1197: x_return_status := FND_API.g_ret_sts_error;
1198: AMS_Utility_PVT.error_message('AMS_CAMP_OUT_END_PERIOD');
1199: RETURN;
1200: END IF;
1201: END IF;
1201: END IF;
1202:
1203: -- compare the start date and the end date
1204: IF l_start_start > l_end_end THEN
1205: x_return_status := FND_API.g_ret_sts_error;
1206: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_PERIODS');
1207: END IF;
1208:
1209: END check_camp_calendar;
1278: );
1279:
1280: BEGIN
1281:
1282: x_return_status := FND_API.g_ret_sts_success;
1283:
1284: OPEN c_active_end_date;
1285: FETCH c_active_end_date INTO l_active_end_date;
1286: CLOSE c_active_end_date;
1295: FETCH c_duplicate INTO l_duplicate;
1296: CLOSE c_duplicate;
1297:
1298: IF l_duplicate IS NOT NULL THEN --duplicate version
1299: x_return_status := FND_API.g_ret_sts_error;
1300: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_VERSION');
1301: END IF;
1302: END IF;
1303: ELSE --plan new one
1301: END IF;
1302: END IF;
1303: ELSE --plan new one
1304: IF p_status_code = 'ACTIVE' THEN
1305: x_return_status := FND_API.g_ret_sts_error;
1306: AMS_Utility_PVT.error_message('AMS_CAMP_PREV_STILL_ACTIVE');
1307: ELSIF p_start_date < l_active_end_date THEN
1308: x_return_status := FND_API.g_ret_sts_error;
1309: AMS_Utility_PVT.error_message('AMS_CAMP_START_BEF_PREV_END');
1304: IF p_status_code = 'ACTIVE' THEN
1305: x_return_status := FND_API.g_ret_sts_error;
1306: AMS_Utility_PVT.error_message('AMS_CAMP_PREV_STILL_ACTIVE');
1307: ELSIF p_start_date < l_active_end_date THEN
1308: x_return_status := FND_API.g_ret_sts_error;
1309: AMS_Utility_PVT.error_message('AMS_CAMP_START_BEF_PREV_END');
1310: END IF;
1311: END IF;
1312:
1350:
1351: If p_status_code = 'ACTIVE' and l_parent_status_code <> 'ACTIVE' THEN
1352: FND_MESSAGE.set_name('AMS', 'AMS_PROGRAM_NOT_ACTIVE');
1353: FND_MSG_PUB.add;
1354: RAISE FND_API.g_exc_error;
1355: END IF;
1356:
1357: END check_camp_status_vs_parent;
1358:
1390: l_msg_name VARCHAR2(40);
1391:
1392: BEGIN
1393:
1394: x_return_status := FND_API.g_ret_sts_success;
1395: IF p_parent_id IS NULL THEN
1396: RETURN;
1397: END IF;
1398:
1399: OPEN c_parent_camp;
1400: FETCH c_parent_camp INTO l_parent_start_date, l_parent_end_date;
1401: IF c_parent_camp%NOTFOUND THEN
1402: CLOSE c_parent_camp;
1403: x_return_status := FND_API.g_ret_sts_error;
1404: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_PARENT_ID');
1405: RAISE FND_API.g_exc_error;
1406: END IF;
1407: CLOSE c_parent_camp;
1401: IF c_parent_camp%NOTFOUND THEN
1402: CLOSE c_parent_camp;
1403: x_return_status := FND_API.g_ret_sts_error;
1404: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_PARENT_ID');
1405: RAISE FND_API.g_exc_error;
1406: END IF;
1407: CLOSE c_parent_camp;
1408:
1409: -- aranka added 12/13/01 bug# 2146013 start
1409: -- aranka added 12/13/01 bug# 2146013 start
1410: ---------------------- start date ----------------------------
1411: IF p_start_date IS NOT NULL THEN
1412: IF l_parent_start_date IS NULL THEN
1413: x_return_status := FND_API.g_ret_sts_error;
1414: AMS_Utility_PVT.error_message('AMS_CAMP_PAR_START_IS_NULL');
1415: ELSIF p_start_date < l_parent_start_date THEN
1416: x_return_status := FND_API.g_ret_sts_error;
1417: -- AMS_Utility_PVT.error_message('AMS_CAMP_START_BEF_PAR_START');
1412: IF l_parent_start_date IS NULL THEN
1413: x_return_status := FND_API.g_ret_sts_error;
1414: AMS_Utility_PVT.error_message('AMS_CAMP_PAR_START_IS_NULL');
1415: ELSIF p_start_date < l_parent_start_date THEN
1416: x_return_status := FND_API.g_ret_sts_error;
1417: -- AMS_Utility_PVT.error_message('AMS_CAMP_START_BEF_PAR_START');
1418: -- 09-Aug-2002 aranka
1419: l_msg_name := 'AMS_CAMP_START_BEF_PAR_START';
1420: IF ( p_rollup_type = 'RCAM') THEN
1427: FND_DATE.date_to_chardate(l_parent_start_date)
1428: );
1429:
1430: ELSIF (l_parent_end_date IS NOT NULL AND p_start_date > l_parent_end_date) THEN
1431: x_return_status := FND_API.g_ret_sts_error;
1432: -- AMS_Utility_PVT.error_message('AMS_CAMP_START_AFT_PAR_END');
1433:
1434: l_msg_name := 'AMS_CAMP_START_AFT_PAR_END';
1435: IF ( p_rollup_type = 'RCAM') THEN
1450: ---------------------- end date ------------------------------
1451: IF p_end_date IS NOT NULL THEN
1452: IF l_parent_end_date IS NULL THEN
1453: RETURN ; -- As Program End date can be null
1454: -- x_return_status := FND_API.g_ret_sts_error;
1455: -- AMS_Utility_PVT.error_message('AMS_CAMP_PAR_END_IS_NULL');
1456: ELSIF p_end_date > l_parent_end_date THEN
1457: x_return_status := FND_API.g_ret_sts_error;
1458: -- AMS_Utility_PVT.error_message('AMS_CAMP_END_AFT_PAR_END');
1453: RETURN ; -- As Program End date can be null
1454: -- x_return_status := FND_API.g_ret_sts_error;
1455: -- AMS_Utility_PVT.error_message('AMS_CAMP_PAR_END_IS_NULL');
1456: ELSIF p_end_date > l_parent_end_date THEN
1457: x_return_status := FND_API.g_ret_sts_error;
1458: -- AMS_Utility_PVT.error_message('AMS_CAMP_END_AFT_PAR_END');
1459: -- 09-Aug-2002 aranka
1460: l_msg_name := 'AMS_CAMP_END_AFT_PAR_END';
1461: IF ( p_rollup_type = 'RCAM') THEN
1469: -- FND_DATE.date_to_chardate(l_parent_start_date)
1470: FND_DATE.date_to_chardate(l_parent_end_date)
1471: );
1472: ELSIF p_end_date < l_parent_start_date THEN
1473: x_return_status := FND_API.g_ret_sts_error;
1474: -- AMS_Utility_PVT.error_message('AMS_CAMP_END_BEF_PAR_START');
1475:
1476: l_msg_name := 'AMS_CAMP_END_BEF_PAR_START';
1477: IF ( p_rollup_type = 'RCAM') THEN
1518: WHERE parent_campaign_id = p_camp_id;
1519:
1520: BEGIN
1521:
1522: x_return_status := FND_API.g_ret_sts_success;
1523: IF p_camp_id IS NULL THEN
1524: RETURN;
1525: END IF;
1526:
1525: END IF;
1526:
1527: FOR l_sub_rec IN c_sub_camp LOOP
1528: IF p_start_date IS NULL AND l_sub_rec.start_date IS NOT NULL THEN
1529: x_return_status := FND_API.g_ret_sts_error;
1530: AMS_Utility_PVT.error_message(
1531: 'AMS_CAMP_SUB_START_NOT_NULL',
1532: 'CAMPAIGN_NAME',
1533: l_sub_rec.campaign_name
1532: 'CAMPAIGN_NAME',
1533: l_sub_rec.campaign_name
1534: );
1535: ELSIF p_start_date > l_sub_rec.start_date THEN
1536: x_return_status := FND_API.g_ret_sts_error;
1537: AMS_Utility_PVT.error_message(
1538: 'AMS_CAMP_START_AFT_SUB_START',
1539: 'CAMPAIGN_NAME',
1540: l_sub_rec.campaign_name
1539: 'CAMPAIGN_NAME',
1540: l_sub_rec.campaign_name
1541: );
1542: ELSIF (l_sub_rec.end_date IS NOT NULL AND p_start_date > l_sub_rec.end_date) THEN
1543: x_return_status := FND_API.g_ret_sts_error;
1544: AMS_Utility_PVT.error_message(
1545: 'AMS_CAMP_START_AFT_SUB_END',
1546: 'CAMPAIGN_NAME',
1547: l_sub_rec.campaign_name
1548: );
1549: END IF;
1550:
1551: IF p_end_date IS NOT NULL AND l_sub_rec.end_date IS NULL THEN
1552: x_return_status := FND_API.g_ret_sts_error;
1553: AMS_Utility_PVT.error_message(
1554: 'AMS_CAMP_SUB_END_NOT_NULL',
1555: 'CAMPAIGN_NAME',
1556: l_sub_rec.campaign_name
1555: 'CAMPAIGN_NAME',
1556: l_sub_rec.campaign_name
1557: );
1558: ELSIF p_end_date < l_sub_rec.end_date THEN
1559: x_return_status := FND_API.g_ret_sts_error;
1560: AMS_Utility_PVT.error_message(
1561: 'AMS_CAMP_END_BEF_SUB_END',
1562: 'CAMPAIGN_NAME',
1563: l_sub_rec.campaign_name
1562: 'CAMPAIGN_NAME',
1563: l_sub_rec.campaign_name
1564: );
1565: ELSIF p_end_date < l_sub_rec.start_date THEN
1566: x_return_status := FND_API.g_ret_sts_error;
1567: AMS_Utility_PVT.error_message(
1568: 'AMS_CAMP_END_BEF_SUB_START',
1569: 'CAMPAIGN_NAME',
1570: l_sub_rec.campaign_name
1603: WHERE parent_campaign_id = p_camp_id;
1604:
1605: BEGIN
1606:
1607: x_return_status := FND_API.g_ret_sts_success;
1608: IF p_camp_id IS NULL OR
1609: p_business_unit_id IS NULL THEN
1610: RETURN;
1611: END IF;
1613: FOR l_sub_rec IN c_sub_camp LOOP
1614: IF l_sub_rec.business_unit_id IS NOT NULL
1615: AND p_business_unit_id <> l_sub_rec.business_unit_id
1616: THEN
1617: x_return_status := FND_API.g_ret_sts_error;
1618: AMS_Utility_PVT.error_message(
1619: 'AMS_NOMATCH_CHILD_BU',
1620: 'CAMPAIGN_NAME',
1621: l_sub_rec.campaign_name
1653:
1654: l_business_unit_id NUMBER ;
1655: BEGIN
1656:
1657: x_return_status := FND_API.g_ret_sts_success;
1658: IF p_program_id IS NULL OR
1659: p_business_unit_id IS NULL THEN
1660: RETURN;
1661: END IF;
1667: IF l_business_unit_id IS NOT NULL
1668: AND l_business_unit_id <> p_business_unit_id
1669: THEN
1670: AMS_Utility_PVT.Error_Message('AMS_NOMATCH_PARENT_BU');
1671: x_return_status := FND_API.g_ret_sts_error ;
1672: END IF ;
1673:
1674: END Check_BU_Vs_Parent;
1675:
1714:
1715:
1716: BEGIN
1717:
1718: x_return_status := FND_API.g_ret_sts_success;
1719:
1720: IF p_camp_id IS NULL THEN
1721: RETURN;
1722: END IF;
1722: END IF;
1723:
1724: FOR l_sub_rec IN c_sub_eveh LOOP
1725: IF p_start_date IS NULL AND l_sub_rec.start_date IS NOT NULL THEN
1726: x_return_status := FND_API.g_ret_sts_error;
1727: AMS_Utility_PVT.error_message(
1728: 'AMS_EVEH_SUB_START_NOT_NULL',
1729: 'EVENT_NAME',
1730: l_sub_rec.event_name
1729: 'EVENT_NAME',
1730: l_sub_rec.event_name
1731: );
1732: ELSIF p_start_date > l_sub_rec.start_date THEN
1733: x_return_status := FND_API.g_ret_sts_error;
1734: AMS_Utility_PVT.error_message(
1735: 'AMS_EVEH_START_AFT_SUB_START',
1736: 'EVENT_NAME',
1737: l_sub_rec.event_name
1736: 'EVENT_NAME',
1737: l_sub_rec.event_name
1738: );
1739: ELSIF (l_sub_rec.end_date IS NOT NULL AND p_start_date > l_sub_rec.end_date) THEN
1740: x_return_status := FND_API.g_ret_sts_error;
1741: AMS_Utility_PVT.error_message(
1742: 'AMS_EVEH_START_AFT_SUB_END',
1743: 'EVENT_NAME',
1744: l_sub_rec.event_name
1745: );
1746: END IF;
1747:
1748: IF p_end_date IS NOT NULL AND l_sub_rec.end_date IS NULL THEN
1749: x_return_status := FND_API.g_ret_sts_error;
1750: AMS_Utility_PVT.error_message(
1751: 'AMS_EVEH_SUB_END_NOT_NULL',
1752: 'EVENT_NAME',
1753: l_sub_rec.event_name
1752: 'EVENT_NAME',
1753: l_sub_rec.event_name
1754: );
1755: ELSIF p_end_date < l_sub_rec.end_date THEN
1756: x_return_status := FND_API.g_ret_sts_error;
1757: AMS_Utility_PVT.error_message(
1758: 'AMS_EVEH_END_BEF_SUB_END',
1759: 'EVENT_NAME',
1760: l_sub_rec.event_name
1759: 'EVENT_NAME',
1760: l_sub_rec.event_name
1761: );
1762: ELSIF p_end_date < l_sub_rec.start_date THEN
1763: x_return_status := FND_API.g_ret_sts_error;
1764: AMS_Utility_PVT.error_message(
1765: 'AMS_EVEH_END_BEF_SUB_START',
1766: 'EVENT_NAME',
1767: l_sub_rec.event_name
1770: END LOOP;
1771:
1772: FOR l_sub_eone_rec IN c_sub_eone LOOP
1773: IF p_start_date IS NULL AND l_sub_eone_rec.start_date IS NOT NULL THEN
1774: x_return_status := FND_API.g_ret_sts_error;
1775: AMS_Utility_PVT.error_message(
1776: 'AMS_EONE_SUB_START_NOT_NULL',
1777: 'EVENT_NAME',
1778: l_sub_eone_rec.event_name
1777: 'EVENT_NAME',
1778: l_sub_eone_rec.event_name
1779: );
1780: ELSIF p_start_date > l_sub_eone_rec.start_date THEN
1781: x_return_status := FND_API.g_ret_sts_error;
1782: AMS_Utility_PVT.error_message(
1783: 'AMS_EONE_START_AFT_SUB_START',
1784: 'EVENT_NAME',
1785: l_sub_eone_rec.event_name
1784: 'EVENT_NAME',
1785: l_sub_eone_rec.event_name
1786: );
1787: ELSIF (l_sub_eone_rec.end_date IS NOT NULL AND p_start_date > l_sub_eone_rec.end_date) THEN
1788: x_return_status := FND_API.g_ret_sts_error;
1789: AMS_Utility_PVT.error_message(
1790: 'AMS_EONE_START_AFT_SUB_END',
1791: 'EVENT_NAME',
1792: l_sub_eone_rec.event_name
1793: );
1794: END IF;
1795:
1796: IF p_end_date IS NOT NULL AND l_sub_eone_rec.end_date IS NULL THEN
1797: x_return_status := FND_API.g_ret_sts_error;
1798: AMS_Utility_PVT.error_message(
1799: 'AMS_EONE_SUB_END_NOT_NULL',
1800: 'EVENT_NAME',
1801: l_sub_eone_rec.event_name
1800: 'EVENT_NAME',
1801: l_sub_eone_rec.event_name
1802: );
1803: ELSIF p_end_date < l_sub_eone_rec.end_date THEN
1804: x_return_status := FND_API.g_ret_sts_error;
1805: AMS_Utility_PVT.error_message(
1806: 'AMS_EONE_END_BEF_SUB_END',
1807: 'EVENT_NAME',
1808: l_sub_eone_rec.event_name
1807: 'EVENT_NAME',
1808: l_sub_eone_rec.event_name
1809: );
1810: ELSIF p_end_date < l_sub_eone_rec.start_date THEN
1811: x_return_status := FND_API.g_ret_sts_error;
1812: AMS_Utility_PVT.error_message(
1813: 'AMS_EONE_END_BEF_SUB_START',
1814: 'EVENT_NAME',
1815: l_sub_eone_rec.event_name
1848: AND active_flag = 'Y' ;
1849:
1850: BEGIN
1851:
1852: x_return_status := FND_API.g_ret_sts_success;
1853: IF p_camp_id IS NULL THEN
1854: RETURN;
1855: END IF;
1856:
1855: END IF;
1856:
1857: FOR l_csch_rec IN c_csch LOOP
1858: IF p_start_date IS NULL AND l_csch_rec.start_date IS NOT NULL THEN
1859: x_return_status := FND_API.g_ret_sts_error;
1860: AMS_Utility_PVT.error_message('AMS_CAMP_CSCH_START_NOT_NULL');
1861: ELSIF p_start_date > l_csch_rec.start_date THEN
1862: x_return_status := FND_API.g_ret_sts_error;
1863: AMS_Utility_PVT.error_message(
1858: IF p_start_date IS NULL AND l_csch_rec.start_date IS NOT NULL THEN
1859: x_return_status := FND_API.g_ret_sts_error;
1860: AMS_Utility_PVT.error_message('AMS_CAMP_CSCH_START_NOT_NULL');
1861: ELSIF p_start_date > l_csch_rec.start_date THEN
1862: x_return_status := FND_API.g_ret_sts_error;
1863: AMS_Utility_PVT.error_message(
1864: 'AMS_CAMP_START_AFT_CSCH_START',
1865: 'SCHEDULE_DATE',
1866: FND_DATE.date_to_chardate(l_csch_rec.start_date)
1866: FND_DATE.date_to_chardate(l_csch_rec.start_date)
1867: );
1868: ELSIF l_csch_rec.end_date IS NOT NULL
1869: AND p_start_date > l_csch_rec.end_date THEN
1870: x_return_status := FND_API.g_ret_sts_error;
1871: AMS_Utility_PVT.error_message(
1872: 'AMS_CAMP_START_AFT_CSCH_END',
1873: 'SCHEDULE_DATE',
1874: FND_DATE.date_to_chardate(l_csch_rec.end_date)
1875: );
1876: END IF;
1877:
1878: IF p_end_date IS NULL AND l_csch_rec.end_date IS NOT NULL THEN
1879: x_return_status := FND_API.g_ret_sts_error;
1880: AMS_Utility_PVT.error_message('AMS_CAMP_CSCH_END_NOT_NULL');
1881: ELSIF l_csch_rec.end_date IS NOT NULL
1882: AND p_end_date < l_csch_rec.end_date THEN
1883: x_return_status := FND_API.g_ret_sts_error;
1879: x_return_status := FND_API.g_ret_sts_error;
1880: AMS_Utility_PVT.error_message('AMS_CAMP_CSCH_END_NOT_NULL');
1881: ELSIF l_csch_rec.end_date IS NOT NULL
1882: AND p_end_date < l_csch_rec.end_date THEN
1883: x_return_status := FND_API.g_ret_sts_error;
1884: AMS_Utility_PVT.error_message(
1885: 'AMS_CAMP_END_BEF_CSCH_END',
1886: 'SCHEDULE_DATE',
1887: FND_DATE.date_to_chardate(l_csch_rec.end_date)
1886: 'SCHEDULE_DATE',
1887: FND_DATE.date_to_chardate(l_csch_rec.end_date)
1888: );
1889: ELSIF p_end_date < l_csch_rec.start_date THEN
1890: x_return_status := FND_API.g_ret_sts_error;
1891: AMS_Utility_PVT.error_message(
1892: 'AMS_CAMP_END_BEF_CSCH_START',
1893: 'SCHEDULE_DATE',
1894: FND_DATE.date_to_chardate(l_csch_rec.start_date)
1930:
1931: BEGIN
1932:
1933: x_source_code := p_source_code;
1934: x_return_status := FND_API.g_ret_sts_success;
1935:
1936: OPEN c_camp;
1937: FETCH c_camp INTO l_cascade_flag, l_source_code, l_setup_id, l_global_flag;
1938: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
1936: OPEN c_camp;
1937: FETCH c_camp INTO l_cascade_flag, l_source_code, l_setup_id, l_global_flag;
1938: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
1939: CLOSE c_camp;
1940: x_return_status := FND_API.g_ret_sts_error;
1941: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
1942: RAISE FND_API.g_exc_error;
1943: END IF;
1944: CLOSE c_camp;
1938: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
1939: CLOSE c_camp;
1940: x_return_status := FND_API.g_ret_sts_error;
1941: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
1942: RAISE FND_API.g_exc_error;
1943: END IF;
1944: CLOSE c_camp;
1945:
1946: x_cascade_flag := l_cascade_flag;
1948: IF l_cascade_flag = 'Y' THEN
1949: IF p_source_code IS NULL THEN
1950: x_source_code := l_source_code;
1951: ELSIF p_source_code <> l_source_code THEN
1952: x_return_status := FND_API.g_ret_sts_error;
1953: AMS_Utility_PVT.error_message('AMS_CSCH_CODE_NOT_CASCADE');
1954: END IF;
1955: ELSE
1956: IF p_source_code IS NULL THEN
1955: ELSE
1956: IF p_source_code IS NULL THEN
1957: x_source_code := AMS_SourceCode_PVT.get_new_source_code(
1958: 'CSCH', l_setup_id, l_global_flag);
1959: ELSIF AMS_SourceCode_PVT.is_source_code_unique(p_source_code) = FND_API.g_false
1960: THEN
1961: x_return_status := FND_API.g_ret_sts_error;
1962: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
1963: END IF;
1957: x_source_code := AMS_SourceCode_PVT.get_new_source_code(
1958: 'CSCH', l_setup_id, l_global_flag);
1959: ELSIF AMS_SourceCode_PVT.is_source_code_unique(p_source_code) = FND_API.g_false
1960: THEN
1961: x_return_status := FND_API.g_ret_sts_error;
1962: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
1963: END IF;
1964: END IF;
1965:
2012: -- AND status_code <> 'NEW';
2013:
2014: -- BEGIN
2015:
2016: -- x_return_status := FND_API.g_ret_sts_success;
2017:
2018: -- -- cannot update to null
2019: -- IF p_csch_rec.source_code IS NULL THEN
2020: -- FND_MESSAGE.set_name('AMS', 'AMS_CAMP_NO_SOURCE_CODE');
2029: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2030: -- FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2031: -- FND_MSG_PUB.add;
2032: -- END IF;
2033: -- RAISE FND_API.g_exc_error;
2034: -- END IF;
2035: -- CLOSE c_csch;
2036:
2037: -- -- if source_code is not changed, return
2034: -- END IF;
2035: -- CLOSE c_csch;
2036:
2037: -- -- if source_code is not changed, return
2038: -- IF p_csch_rec.source_code = FND_API.g_miss_char
2039: -- OR p_csch_rec.source_code = l_source_code
2040: -- THEN
2041: -- RETURN;
2042: -- END IF;
2045: -- OPEN c_camp;
2046: -- FETCH c_camp INTO l_cascade_flag;
2047: -- CLOSE c_camp;
2048: -- IF l_cascade_flag = 'Y' THEN
2049: -- x_return_status := FND_API.g_ret_sts_error;
2050: -- AMS_Utility_PVT.error_message('AMS_CSCH_CODE_NOT_CASCADE');
2051: -- RETURN;
2052: -- END IF;
2053:
2056: -- FETCH c_source_code INTO l_dummy;
2057: -- CLOSE c_source_code;
2058: -- IF l_dummy IS NOT NULL THEN
2059: -- AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
2060: -- x_return_status := FND_API.g_ret_sts_error;
2061: -- RETURN;
2062: -- END IF;
2063:
2064: -- -- cannot update source code if schedule has "old" list headers
2066: -- FETCH c_list_header INTO l_dummy;
2067: -- CLOSE c_list_header;
2068: -- IF l_dummy IS NOT NULL THEN
2069: -- AMS_Utility_PVT.error_message('AMS_CSCH_UPDATE_SOURCE_CODE');
2070: -- x_return_status := FND_API.g_ret_sts_error;
2071: -- RETURN;
2072: -- END IF;
2073:
2074: -- AMS_SourceCode_PVT.revoke_sourcecode(
2072: -- END IF;
2073:
2074: -- AMS_SourceCode_PVT.revoke_sourcecode(
2075: -- p_api_version => 1.0,
2076: -- p_init_msg_list => FND_API.g_false,
2077: -- p_commit => FND_API.g_false,
2078: -- p_validation_level => FND_API.g_valid_level_full,
2079:
2080: -- x_return_status => x_return_status,
2073:
2074: -- AMS_SourceCode_PVT.revoke_sourcecode(
2075: -- p_api_version => 1.0,
2076: -- p_init_msg_list => FND_API.g_false,
2077: -- p_commit => FND_API.g_false,
2078: -- p_validation_level => FND_API.g_valid_level_full,
2079:
2080: -- x_return_status => x_return_status,
2081: -- x_msg_count => l_msg_count,
2074: -- AMS_SourceCode_PVT.revoke_sourcecode(
2075: -- p_api_version => 1.0,
2076: -- p_init_msg_list => FND_API.g_false,
2077: -- p_commit => FND_API.g_false,
2078: -- p_validation_level => FND_API.g_valid_level_full,
2079:
2080: -- x_return_status => x_return_status,
2081: -- x_msg_count => l_msg_count,
2082: -- x_msg_data => l_msg_data,
2083:
2084: -- p_sourcecode => l_source_code
2085: -- );
2086:
2087: -- IF x_return_status <> FND_API.g_ret_sts_success THEN
2088: -- RAISE FND_API.g_exc_error;
2089: -- END IF;
2090:
2091: -- AMS_SourceCode_PVT.create_sourcecode(
2084: -- p_sourcecode => l_source_code
2085: -- );
2086:
2087: -- IF x_return_status <> FND_API.g_ret_sts_success THEN
2088: -- RAISE FND_API.g_exc_error;
2089: -- END IF;
2090:
2091: -- AMS_SourceCode_PVT.create_sourcecode(
2092: -- p_api_version => 1.0,
2089: -- END IF;
2090:
2091: -- AMS_SourceCode_PVT.create_sourcecode(
2092: -- p_api_version => 1.0,
2093: -- p_init_msg_list => FND_API.g_false,
2094: -- p_commit => FND_API.g_false,
2095: -- p_validation_level => FND_API.g_valid_level_full,
2096:
2097: -- x_return_status => x_return_status,
2090:
2091: -- AMS_SourceCode_PVT.create_sourcecode(
2092: -- p_api_version => 1.0,
2093: -- p_init_msg_list => FND_API.g_false,
2094: -- p_commit => FND_API.g_false,
2095: -- p_validation_level => FND_API.g_valid_level_full,
2096:
2097: -- x_return_status => x_return_status,
2098: -- x_msg_count => l_msg_count,
2091: -- AMS_SourceCode_PVT.create_sourcecode(
2092: -- p_api_version => 1.0,
2093: -- p_init_msg_list => FND_API.g_false,
2094: -- p_commit => FND_API.g_false,
2095: -- p_validation_level => FND_API.g_valid_level_full,
2096:
2097: -- x_return_status => x_return_status,
2098: -- x_msg_count => l_msg_count,
2099: -- x_msg_data => l_msg_data,
2103: -- p_sourcecode_for_id => p_csch_rec.campaign_schedule_id,
2104: -- x_sourcecode_id => l_dummy
2105: -- );
2106:
2107: -- IF x_return_status <> FND_API.g_ret_sts_success THEN
2108: -- RAISE FND_API.g_exc_error;
2109: -- END IF;
2110:
2111: -- END check_csch_update;
2104: -- x_sourcecode_id => l_dummy
2105: -- );
2106:
2107: -- IF x_return_status <> FND_API.g_ret_sts_success THEN
2108: -- RAISE FND_API.g_exc_error;
2109: -- END IF;
2110:
2111: -- END check_csch_update;
2112:
2134: l_media_type VARCHAR2(30);
2135:
2136: BEGIN
2137:
2138: x_return_status := FND_API.g_ret_sts_success;
2139: OPEN c_camp;
2140: FETCH c_camp INTO l_rollup_type, l_media_type;
2141: IF c_camp%NOTFOUND THEN
2142: x_return_status := FND_API.g_ret_sts_error;
2138: x_return_status := FND_API.g_ret_sts_success;
2139: OPEN c_camp;
2140: FETCH c_camp INTO l_rollup_type, l_media_type;
2141: IF c_camp%NOTFOUND THEN
2142: x_return_status := FND_API.g_ret_sts_error;
2143: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
2144: ELSIF l_rollup_type <> 'ECAM' THEN
2145: x_return_status := FND_API.g_ret_sts_error;
2146: AMS_Utility_PVT.error_message('AMS_CSCH_NOT_EXEC_CAMP');
2141: IF c_camp%NOTFOUND THEN
2142: x_return_status := FND_API.g_ret_sts_error;
2143: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
2144: ELSIF l_rollup_type <> 'ECAM' THEN
2145: x_return_status := FND_API.g_ret_sts_error;
2146: AMS_Utility_PVT.error_message('AMS_CSCH_NOT_EXEC_CAMP');
2147: ELSIF l_media_type = 'EVENTS' THEN
2148: x_return_status := FND_API.g_ret_sts_error;
2149: AMS_Utility_PVT.error_message('AMS_CSCH_MEDIA_IS_EVENT');
2144: ELSIF l_rollup_type <> 'ECAM' THEN
2145: x_return_status := FND_API.g_ret_sts_error;
2146: AMS_Utility_PVT.error_message('AMS_CSCH_NOT_EXEC_CAMP');
2147: ELSIF l_media_type = 'EVENTS' THEN
2148: x_return_status := FND_API.g_ret_sts_error;
2149: AMS_Utility_PVT.error_message('AMS_CSCH_MEDIA_IS_EVENT');
2150: END IF;
2151: CLOSE c_camp;
2152:
2178: AND using_object_id = p_deliv_id;
2179:
2180: BEGIN
2181:
2182: x_return_status := FND_API.g_ret_sts_success;
2183: IF p_deliv_id IS NULL OR p_deliv_id = FND_API.g_miss_num THEN
2184: RETURN;
2185: END IF;
2186:
2179:
2180: BEGIN
2181:
2182: x_return_status := FND_API.g_ret_sts_success;
2183: IF p_deliv_id IS NULL OR p_deliv_id = FND_API.g_miss_num THEN
2184: RETURN;
2185: END IF;
2186:
2187: OPEN c_camp_deliv;
2186:
2187: OPEN c_camp_deliv;
2188: FETCH c_camp_deliv INTO l_dummy;
2189: IF c_camp_deliv%NOTFOUND THEN
2190: x_return_status := FND_API.g_ret_sts_error;
2191: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_DELIV_ID');
2192: END IF;
2193: CLOSE c_camp_deliv;
2194:
2219: AND act_offer_used_by_id = p_camp_id;
2220:
2221: BEGIN
2222:
2223: x_return_status := FND_API.g_ret_sts_success;
2224: IF p_offer_id IS NULL OR p_offer_id = FND_API.g_miss_num THEN
2225: RETURN;
2226: END IF;
2227:
2220:
2221: BEGIN
2222:
2223: x_return_status := FND_API.g_ret_sts_success;
2224: IF p_offer_id IS NULL OR p_offer_id = FND_API.g_miss_num THEN
2225: RETURN;
2226: END IF;
2227:
2228: OPEN c_camp_offer;
2227:
2228: OPEN c_camp_offer;
2229: FETCH c_camp_offer INTO l_dummy;
2230: IF c_camp_offer%NOTFOUND THEN
2231: x_return_status := FND_API.g_ret_sts_error;
2232: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_OFFER_ID');
2233: END IF;
2234: CLOSE c_camp_offer;
2235:
2264: l_camp_end_date DATE;
2265:
2266: BEGIN
2267:
2268: x_return_status := FND_API.g_ret_sts_success;
2269:
2270: OPEN c_camp;
2271: FETCH c_camp INTO l_camp_start_date, l_camp_end_date;
2272: IF c_camp%NOTFOUND THEN
2270: OPEN c_camp;
2271: FETCH c_camp INTO l_camp_start_date, l_camp_end_date;
2272: IF c_camp%NOTFOUND THEN
2273: CLOSE c_camp;
2274: x_return_status := FND_API.g_ret_sts_error;
2275: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
2276: RAISE FND_API.g_exc_error;
2277: END IF;
2278: CLOSE c_camp;
2272: IF c_camp%NOTFOUND THEN
2273: CLOSE c_camp;
2274: x_return_status := FND_API.g_ret_sts_error;
2275: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
2276: RAISE FND_API.g_exc_error;
2277: END IF;
2278: CLOSE c_camp;
2279:
2280: IF p_start_date IS NOT NULL THEN
2278: CLOSE c_camp;
2279:
2280: IF p_start_date IS NOT NULL THEN
2281: IF l_camp_start_date IS NULL THEN
2282: x_return_status := FND_API.g_ret_sts_error;
2283: AMS_Utility_PVT.error_message('AMS_CAMP_PAR_START_IS_NULL');
2284: ELSIF p_start_date < l_camp_start_date THEN
2285: x_return_status := FND_API.g_ret_sts_error;
2286: AMS_Utility_PVT.error_message('AMS_CSCH_START_BEF_CAMP_START');
2281: IF l_camp_start_date IS NULL THEN
2282: x_return_status := FND_API.g_ret_sts_error;
2283: AMS_Utility_PVT.error_message('AMS_CAMP_PAR_START_IS_NULL');
2284: ELSIF p_start_date < l_camp_start_date THEN
2285: x_return_status := FND_API.g_ret_sts_error;
2286: AMS_Utility_PVT.error_message('AMS_CSCH_START_BEF_CAMP_START');
2287: ELSIF p_start_date > l_camp_end_date THEN
2288: x_return_status := FND_API.g_ret_sts_error;
2289: AMS_Utility_PVT.error_message('AMS_CSCH_START_AFT_CAMP_END');
2284: ELSIF p_start_date < l_camp_start_date THEN
2285: x_return_status := FND_API.g_ret_sts_error;
2286: AMS_Utility_PVT.error_message('AMS_CSCH_START_BEF_CAMP_START');
2287: ELSIF p_start_date > l_camp_end_date THEN
2288: x_return_status := FND_API.g_ret_sts_error;
2289: AMS_Utility_PVT.error_message('AMS_CSCH_START_AFT_CAMP_END');
2290: END IF;
2291: END IF;
2292:
2291: END IF;
2292:
2293: IF p_end_date IS NOT NULL THEN
2294: IF l_camp_end_date IS NULL THEN
2295: x_return_status := FND_API.g_ret_sts_error;
2296: AMS_Utility_PVT.error_message('AMS_CAMP_PAR_END_IS_NULL');
2297: ELSIF p_end_date > l_camp_end_date THEN
2298: x_return_status := FND_API.g_ret_sts_error;
2299: AMS_Utility_PVT.error_message('AMS_CSCH_END_AFT_CAMP_END');
2294: IF l_camp_end_date IS NULL THEN
2295: x_return_status := FND_API.g_ret_sts_error;
2296: AMS_Utility_PVT.error_message('AMS_CAMP_PAR_END_IS_NULL');
2297: ELSIF p_end_date > l_camp_end_date THEN
2298: x_return_status := FND_API.g_ret_sts_error;
2299: AMS_Utility_PVT.error_message('AMS_CSCH_END_AFT_CAMP_END');
2300: ELSIF p_end_date < l_camp_start_date THEN
2301: x_return_status := FND_API.g_ret_sts_error;
2302: AMS_Utility_PVT.error_message('AMS_CSCH_END_BEF_CAMP_START');
2297: ELSIF p_end_date > l_camp_end_date THEN
2298: x_return_status := FND_API.g_ret_sts_error;
2299: AMS_Utility_PVT.error_message('AMS_CSCH_END_AFT_CAMP_END');
2300: ELSIF p_end_date < l_camp_start_date THEN
2301: x_return_status := FND_API.g_ret_sts_error;
2302: AMS_Utility_PVT.error_message('AMS_CSCH_END_BEF_CAMP_START');
2303: END IF;
2304: END IF;
2305:
2510: -- x_approval_type => l_approval_type,
2511: -- x_return_status => l_return_status
2512: --);
2513:
2514: IF l_return_status <> FND_API.g_ret_sts_success THEN
2515: RAISE FND_API.g_exc_error;
2516: END IF;
2517:
2518: -- Following lines of code is modified by ptendulk on 22-May-2001
2511: -- x_return_status => l_return_status
2512: --);
2513:
2514: IF l_return_status <> FND_API.g_ret_sts_success THEN
2515: RAISE FND_API.g_exc_error;
2516: END IF;
2517:
2518: -- Following lines of code is modified by ptendulk on 22-May-2001
2519: -- Check system status code instead of user status id.
2527: CLOSE c_parent;
2528:
2529: IF l_status_code <> 'ACTIVE' THEN
2530: AMS_Utility_PVT.Error_Message('AMS_CAMP_PROG_ACTIVE_STAT');
2531: RAISE FND_API.g_exc_error;
2532: END IF ;
2533: END IF ;
2534:
2535: -- Can not cancell /Complete Program if the child campaign is Active
2547: END IF;
2548: -- Call to cancel events modified by soagrawa on 15-feb-2002
2549: -- after gmadana modified event rules APIs for bug# 2218013
2550: --AMS_EvhRules_PVT.Cancel_All_Event(p_prog_id => p_campaign_id );
2551: IF FND_API.g_false = AMS_EvhRules_PVT.Cancel_All_Event(p_prog_id => p_campaign_id)
2552: THEN
2553: AMS_Utility_PVT.Error_Message('AMS_COMP_CANNOT_CANCEL');
2554: RAISE FND_API.g_exc_error;
2555: END IF;
2550: --AMS_EvhRules_PVT.Cancel_All_Event(p_prog_id => p_campaign_id );
2551: IF FND_API.g_false = AMS_EvhRules_PVT.Cancel_All_Event(p_prog_id => p_campaign_id)
2552: THEN
2553: AMS_Utility_PVT.Error_Message('AMS_COMP_CANNOT_CANCEL');
2554: RAISE FND_API.g_exc_error;
2555: END IF;
2556: IF (AMS_DEBUG_HIGH_ON) THEN
2557:
2558: AMS_Utility_PVT.Debug_Message('After Cancel All the events');
2566: --CLOSE c_child;
2567:
2568: --IF l_act_child_exist IS NOT NULL THEN
2569: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_CHILD_ACTIVE');
2570: -- RAISE FND_API.g_exc_error;
2571: --END IF ;
2572: ELSIF l_system_status_code = 'COMPLETED' THEN
2573: IF l_rollup_type = 'RCAM' THEN
2574: Complete_Program(p_campaign_id);
2610: for 0 budget approvals
2611: -- check if budget amount is specified
2612: IF p_budget_amount IS NULL THEN
2613: AMS_Utility_PVT.error_message('AMS_EVE_NO_BGT_AMT');
2614: RAISE FND_API.g_exc_error;
2615: END IF;
2616:
2617: -- check if there is any budget line
2618: OPEN c_budget_exist;
2620: CLOSE c_budget_exist;
2621:
2622: IF l_budget_exist IS NULL THEN
2623: AMS_Utility_PVT.error_message('AMS_EVE_NO_BGT_SRC');
2624: RAISE FND_API.g_exc_error;
2625: END IF;
2626: End of code commented by ptendulk
2627: */
2628: /* mayjain 22-Sep-2005 */
2634: p_requestor_id => AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
2635: x_must_preview => l_start_wf_process,
2636: x_return_status => l_return_status);
2637:
2638: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2635: x_must_preview => l_start_wf_process,
2636: x_return_status => l_return_status);
2637:
2638: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: /* mayjain 22-Sep-2005 */
2636: x_return_status => l_return_status);
2637:
2638: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: /* mayjain 22-Sep-2005 */
2644:
2637:
2638: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: /* mayjain 22-Sep-2005 */
2644:
2645: IF (l_start_wf_process = 'Y') -- If the user is not the approver
2672:
2673: IF l_system_status_code = 'ACTIVE' AND l_rollup_type <> 'RCAM'
2674: THEN
2675: OZF_BudgetApproval_PVT.budget_request_approval(
2676: p_init_msg_list => FND_API.G_FALSE
2677: , p_api_version => 1.0
2678: , p_commit => FND_API.G_False
2679: , x_return_status => l_return_status
2680: , x_msg_count => l_msg_count
2674: THEN
2675: OZF_BudgetApproval_PVT.budget_request_approval(
2676: p_init_msg_list => FND_API.G_FALSE
2677: , p_api_version => 1.0
2678: , p_commit => FND_API.G_False
2679: , x_return_status => l_return_status
2680: , x_msg_count => l_msg_count
2681: , x_msg_data => l_msg_data
2682: , p_object_type => 'CAMP'
2682: , p_object_type => 'CAMP'
2683: , p_object_id => p_campaign_id
2684: --, x_status_code =>
2685: );
2686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2687: RAISE FND_API.G_EXC_ERROR;
2688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2683: , p_object_id => p_campaign_id
2684: --, x_status_code =>
2685: );
2686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2687: RAISE FND_API.G_EXC_ERROR;
2688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691: END IF;
2684: --, x_status_code =>
2685: );
2686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2687: RAISE FND_API.G_EXC_ERROR;
2688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691: END IF;
2692:
2685: );
2686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2687: RAISE FND_API.G_EXC_ERROR;
2688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691: END IF;
2692:
2693: l_new_status_id := p_user_status_id;
2705: p_requestor_id => AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
2706: x_must_preview => l_start_wf_process,
2707: x_return_status => l_return_status);
2708:
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2706: x_must_preview => l_start_wf_process,
2707: x_return_status => l_return_status);
2708:
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2714: /* mayjain 22-Sep-2005 */
2707: x_return_status => l_return_status);
2708:
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2714: /* mayjain 22-Sep-2005 */
2715:
2708:
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2714: /* mayjain 22-Sep-2005 */
2715:
2716: IF (l_start_wf_process = 'Y') -- If the user is not the approver
2746:
2747: IF l_system_status_code = 'ACTIVE' AND l_rollup_type <> 'RCAM'
2748: THEN
2749: OZF_BudgetApproval_PVT.budget_request_approval(
2750: p_init_msg_list => FND_API.G_FALSE
2751: , p_api_version => 1.0
2752: , p_commit => FND_API.G_False
2753: , x_return_status => l_return_status
2754: , x_msg_count => l_msg_count
2748: THEN
2749: OZF_BudgetApproval_PVT.budget_request_approval(
2750: p_init_msg_list => FND_API.G_FALSE
2751: , p_api_version => 1.0
2752: , p_commit => FND_API.G_False
2753: , x_return_status => l_return_status
2754: , x_msg_count => l_msg_count
2755: , x_msg_data => l_msg_data
2756: , p_object_type => 'CAMP'
2756: , p_object_type => 'CAMP'
2757: , p_object_id => p_campaign_id
2758: --, x_status_code =>
2759: );
2760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2761: RAISE FND_API.G_EXC_ERROR;
2762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2764: END IF;
2757: , p_object_id => p_campaign_id
2758: --, x_status_code =>
2759: );
2760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2761: RAISE FND_API.G_EXC_ERROR;
2762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2764: END IF;
2765: END IF;
2758: --, x_status_code =>
2759: );
2760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2761: RAISE FND_API.G_EXC_ERROR;
2762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2764: END IF;
2765: END IF;
2766:
2759: );
2760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2761: RAISE FND_API.G_EXC_ERROR;
2762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2764: END IF;
2765: END IF;
2766:
2767: l_new_status_id := p_user_status_id;
2823: BEGIN
2824:
2825: AMS_SourceCode_PVT.create_sourcecode(
2826: p_api_version => 1.0,
2827: p_init_msg_list => FND_API.g_false,
2828: p_commit => FND_API.g_false,
2829: p_validation_level => FND_API.g_valid_level_full,
2830:
2831: x_return_status => l_return_status,
2824:
2825: AMS_SourceCode_PVT.create_sourcecode(
2826: p_api_version => 1.0,
2827: p_init_msg_list => FND_API.g_false,
2828: p_commit => FND_API.g_false,
2829: p_validation_level => FND_API.g_valid_level_full,
2830:
2831: x_return_status => l_return_status,
2832: x_msg_count => l_msg_count,
2825: AMS_SourceCode_PVT.create_sourcecode(
2826: p_api_version => 1.0,
2827: p_init_msg_list => FND_API.g_false,
2828: p_commit => FND_API.g_false,
2829: p_validation_level => FND_API.g_valid_level_full,
2830:
2831: x_return_status => l_return_status,
2832: x_msg_count => l_msg_count,
2833: x_msg_data => l_msg_data,
2840: p_related_sourceid => p_related_source_id,
2841: x_sourcecode_id => l_sourcecode_id
2842: );
2843:
2844: IF l_return_status <> FND_API.g_ret_sts_success THEN
2845: RAISE FND_API.g_exc_error;
2846: END IF;
2847:
2848: END push_source_code;
2841: x_sourcecode_id => l_sourcecode_id
2842: );
2843:
2844: IF l_return_status <> FND_API.g_ret_sts_success THEN
2845: RAISE FND_API.g_exc_error;
2846: END IF;
2847:
2848: END push_source_code;
2849:
2914: l_camp_id := p_parent_id;
2915:
2916: WHILE l_camp_id IS NOT NULL LOOP
2917: IF l_camp_id = p_camp_id THEN
2918: RETURN FND_API.g_false;
2919: END IF;
2920:
2921: OPEN c_parent;
2922: FETCH c_parent INTO l_camp_id;
2921: OPEN c_parent;
2922: FETCH c_parent INTO l_camp_id;
2923: IF c_parent%NOTFOUND THEN
2924: CLOSE c_parent;
2925: RETURN FND_API.g_false;
2926: END IF;
2927: CLOSE c_parent;
2928: END LOOP;
2929:
2926: END IF;
2927: CLOSE c_parent;
2928: END LOOP;
2929:
2930: RETURN FND_API.g_true;
2931:
2932: END check_camp_parent;
2933:
2934:
2962: FETCH c_object_attr INTO l_dummy;
2963: CLOSE c_object_attr;
2964:
2965: IF l_dummy IS NULL THEN
2966: RETURN FND_API.g_false;
2967: ELSE
2968: RETURN FND_API.g_true;
2969: END IF;
2970:
2964:
2965: IF l_dummy IS NULL THEN
2966: RETURN FND_API.g_false;
2967: ELSE
2968: RETURN FND_API.g_true;
2969: END IF;
2970:
2971: END check_camp_attribute;
2972:
3002: p_from_amount => p_tc_amt,
3003: x_to_amount => x_fc_amt
3004: );
3005:
3006: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3007: RAISE FND_API.g_exc_error;
3008: END IF;
3009:
3010: x_fc_curr := l_curr_code ;
3003: x_to_amount => x_fc_amt
3004: );
3005:
3006: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3007: RAISE FND_API.g_exc_error;
3008: END IF;
3009:
3010: x_fc_curr := l_curr_code ;
3011:
3075: -- This is for bug# 2406677
3076: --=====================================================================
3077: PROCEDURE Update_Owner(
3078: p_api_version IN NUMBER,
3079: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3080: p_commit IN VARCHAR2 := FND_API.g_false,
3081: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3082: x_return_status OUT NOCOPY VARCHAR2,
3083: x_msg_count OUT NOCOPY NUMBER,
3076: --=====================================================================
3077: PROCEDURE Update_Owner(
3078: p_api_version IN NUMBER,
3079: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3080: p_commit IN VARCHAR2 := FND_API.g_false,
3081: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3082: x_return_status OUT NOCOPY VARCHAR2,
3083: x_msg_count OUT NOCOPY NUMBER,
3084: x_msg_data OUT NOCOPY VARCHAR2,
3077: PROCEDURE Update_Owner(
3078: p_api_version IN NUMBER,
3079: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3080: p_commit IN VARCHAR2 := FND_API.g_false,
3081: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3082: x_return_status OUT NOCOPY VARCHAR2,
3083: x_msg_count OUT NOCOPY NUMBER,
3084: x_msg_data OUT NOCOPY VARCHAR2,
3085: p_object_type IN VARCHAR2 := NULL ,
3117: FETCH c_owner INTO l_old_owner ;
3118: IF c_owner%NOTFOUND THEN
3119: CLOSE c_owner;
3120: AMS_Utility_Pvt.Error_Message('AMS_API_RECORD_NOT_FOUND');
3121: RAISE FND_API.g_exc_error;
3122: END IF;
3123: CLOSE c_owner ;
3124:
3125: IF p_owner_id <> l_old_owner THEN
3136: p_resource_id => p_owner_id,
3137: p_old_resource_id => l_old_owner
3138: );
3139:
3140: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3141: RAISE FND_API.G_EXC_ERROR;
3142: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: END IF;
3137: p_old_resource_id => l_old_owner
3138: );
3139:
3140: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3141: RAISE FND_API.G_EXC_ERROR;
3142: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: END IF;
3145:
3138: );
3139:
3140: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3141: RAISE FND_API.G_EXC_ERROR;
3142: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: END IF;
3145:
3146: -- Fetch all the schedules for the campaign
3139:
3140: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3141: RAISE FND_API.G_EXC_ERROR;
3142: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: END IF;
3145:
3146: -- Fetch all the schedules for the campaign
3147: OPEN c_schedules;
3183:
3184: p_access_rec => l_access_rec,
3185: x_access_id => l_dummy_id
3186: );
3187: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3188: CLOSE c_access_csch_det;
3189: CLOSE c_schedules;
3190: RAISE FND_API.G_EXC_ERROR;
3191: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3186: );
3187: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3188: CLOSE c_access_csch_det;
3189: CLOSE c_schedules;
3190: RAISE FND_API.G_EXC_ERROR;
3191: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3192: CLOSE c_access_csch_det;
3193: CLOSE c_schedules;
3194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3188: CLOSE c_access_csch_det;
3189: CLOSE c_schedules;
3190: RAISE FND_API.G_EXC_ERROR;
3191: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3192: CLOSE c_access_csch_det;
3193: CLOSE c_schedules;
3194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3195: END IF;
3190: RAISE FND_API.G_EXC_ERROR;
3191: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3192: CLOSE c_access_csch_det;
3193: CLOSE c_schedules;
3194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3195: END IF;
3196:
3197: END IF;
3198: CLOSE c_access_csch_det ;
3221:
3222: p_access_id => c_schedule_access_rec.activity_access_id,
3223: p_object_version => c_schedule_access_rec.object_version_number
3224: );
3225: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3226: CLOSE c_access_csch_det;
3227: CLOSE c_schedules;
3228: RAISE FND_API.G_EXC_ERROR;
3229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3224: );
3225: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3226: CLOSE c_access_csch_det;
3227: CLOSE c_schedules;
3228: RAISE FND_API.G_EXC_ERROR;
3229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3230: CLOSE c_access_csch_det;
3231: CLOSE c_schedules;
3232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3225: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3226: CLOSE c_access_csch_det;
3227: CLOSE c_schedules;
3228: RAISE FND_API.G_EXC_ERROR;
3229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3230: CLOSE c_access_csch_det;
3231: CLOSE c_schedules;
3232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3233: END IF;
3228: RAISE FND_API.G_EXC_ERROR;
3229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3230: CLOSE c_access_csch_det;
3231: CLOSE c_schedules;
3232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3233: END IF;
3234:
3235: END IF;
3236: CLOSE c_access_csch_det;
3266:
3267: p_access_rec => l_access_rec,
3268: x_access_id => l_dummy_id
3269: );
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: CLOSE c_access_csch_det;
3272: CLOSE c_schedules;
3273: RAISE FND_API.G_EXC_ERROR;
3274: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3269: );
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: CLOSE c_access_csch_det;
3272: CLOSE c_schedules;
3273: RAISE FND_API.G_EXC_ERROR;
3274: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3275: CLOSE c_access_csch_det;
3276: CLOSE c_schedules;
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: CLOSE c_access_csch_det;
3272: CLOSE c_schedules;
3273: RAISE FND_API.G_EXC_ERROR;
3274: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3275: CLOSE c_access_csch_det;
3276: CLOSE c_schedules;
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: END IF;
3273: RAISE FND_API.G_EXC_ERROR;
3274: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3275: CLOSE c_access_csch_det;
3276: CLOSE c_schedules;
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: END IF;
3279:
3280: END IF;
3281: CLOSE c_access_csch_det ;
3333: OPEN c_event;
3334: FETCH c_event INTO l_tmpEvent;
3335: IF c_event%NOTFOUND THEN
3336: CLOSE c_event;
3337: x_return_status := FND_API.g_ret_sts_error;
3338: RETURN;
3339: END IF;
3340: CLOSE c_event;
3341: ELSIF p_related_event_type = 'EVEO' THEN
3342: OPEN c_schedule_event;
3343: FETCH c_schedule_event INTO l_tmpEvent;
3344: IF c_schedule_event%NOTFOUND THEN
3345: CLOSE c_schedule_event ;
3346: x_return_status := FND_API.g_ret_sts_error;
3347: RETURN;
3348: END IF;
3349: CLOSE c_schedule_event ;
3350: ELSIF p_related_event_type = 'EONE' THEN
3351: OPEN c_one_off_event;
3352: FETCH c_one_off_event INTO l_tmpEvent;
3353: IF c_one_off_event%NOTFOUND THEN
3354: CLOSE c_one_off_event;
3355: x_return_status := FND_API.g_ret_sts_error;
3356: RETURN;
3357: END IF;
3358: CLOSE c_one_off_event;
3359: END IF;
3394: BEGIN
3395: OPEN c_sc_from_source_codes;
3396: FETCH c_sc_from_source_codes INTO l_sourcecode_id;
3397: IF c_sc_from_source_codes%NOTFOUND THEN
3398: x_return_status := FND_API.g_ret_sts_error;
3399: RETURN;
3400: END IF;
3401:
3402: AMS_SourceCode_PVT.modify_sourcecode(
3454:
3455: IF (SQL%NOTFOUND) THEN
3456: CLOSE c_schedule ;
3457: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3458: RAISE FND_API.g_exc_error;
3459: END IF;
3460:
3461: END LOOP ;
3462: CLOSE c_schedule ;
3520:
3521: IF (SQL%NOTFOUND) THEN
3522: CLOSE c_campaign ;
3523: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3524: RAISE FND_API.g_exc_error;
3525: END IF;
3526: END IF;
3527: END LOOP ;
3528: CLOSE c_campaign ;
3584:
3585: IF (SQL%NOTFOUND) THEN
3586: CLOSE c_campaign ;
3587: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3588: RAISE FND_API.g_exc_error;
3589: END IF;
3590: END IF;
3591: END LOOP ;
3592: CLOSE c_campaign ;
3651:
3652: IF (SQL%NOTFOUND) THEN
3653: CLOSE c_campaign ;
3654: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3655: RAISE FND_API.g_exc_error;
3656: END IF;
3657: END IF;
3658: END LOOP ;
3659: CLOSE c_campaign ;
3697: OPEN c_schedule ;
3698: LOOP
3699: FETCH c_schedule INTO l_schedule_id,l_obj_version,l_status_code ;
3700: EXIT WHEN c_schedule%NOTFOUND ;
3701: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_CAMPAIGN_SCHEDULE_STATUS',l_status_code,'CANCELLED') THEN
3702: -- Can cancel the schedule
3703: UPDATE ams_campaign_schedules_b
3704: SET status_code = 'CANCELLED',
3705: status_date = SYSDATE,
3710:
3711: IF (SQL%NOTFOUND) THEN
3712: CLOSE c_schedule ;
3713: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3714: RAISE FND_API.g_exc_error;
3715: END IF;
3716: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
3717: CLOSE c_schedule;
3718: AMS_Utility_PVT.Error_Message('AMS_CSCH_CANNOT_CANCEL');
3715: END IF;
3716: ELSE -- Can not cancel the schedule as the status is can not go to cancel from current status
3717: CLOSE c_schedule;
3718: AMS_Utility_PVT.Error_Message('AMS_CSCH_CANNOT_CANCEL');
3719: RAISE FND_API.g_exc_error;
3720: END IF ;
3721:
3722: END LOOP;
3723: CLOSE c_schedule;
3758: IF l_schedule_count > 0
3759: THEN
3760: -- cannot cancel
3761: AMS_Utility_PVT.Error_Message('AMS_CSCH_CANNOT_CANCEL');
3762: RAISE FND_API.g_exc_error;
3763: /*
3764: ELSE
3765: -- ok cancel
3766: UPDATE ams_campaigns_all_b
3772: --AND object_version_number = l_obj_version ;
3773: IF (SQL%NOTFOUND) THEN
3774: CLOSE c_campaign ;
3775: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3776: RAISE FND_API.g_exc_error;
3777: END IF;
3778: */
3779:
3780: END IF;
3825: EXIT WHEN c_campaign%NOTFOUND ;
3826:
3827: IF l_rollup_type = 'RCAM' THEN
3828: Cancel_Program(l_campaign_id) ;
3829: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_PROGRAM_STATUS',l_status_code,'CANCELLED') THEN
3830: UPDATE ams_campaigns_all_b
3831: SET status_code = 'CANCELLED',
3832: user_status_id = l_program_status_id ,
3833: status_date = SYSDATE ,
3836: AND object_version_number = l_obj_version ;
3837: IF (SQL%NOTFOUND) THEN
3838: CLOSE c_campaign ;
3839: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3840: RAISE FND_API.g_exc_error;
3841: END IF;
3842: ELSE
3843: CLOSE c_campaign;
3844: AMS_Utility_PVT.Error_Message('AMS_PROG_CANNOT_CANCEL');
3841: END IF;
3842: ELSE
3843: CLOSE c_campaign;
3844: AMS_Utility_PVT.Error_Message('AMS_PROG_CANNOT_CANCEL');
3845: RAISE FND_API.g_exc_error;
3846: END IF ;
3847: ELSE
3848: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_CAMPAIGN_STATUS',l_status_code,'CANCELLED') THEN
3849: Cancel_schedule(l_campaign_id);
3844: AMS_Utility_PVT.Error_Message('AMS_PROG_CANNOT_CANCEL');
3845: RAISE FND_API.g_exc_error;
3846: END IF ;
3847: ELSE
3848: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_CAMPAIGN_STATUS',l_status_code,'CANCELLED') THEN
3849: Cancel_schedule(l_campaign_id);
3850: UPDATE ams_campaigns_all_b
3851: SET status_code = 'CANCELLED',
3852: user_status_id = l_campaign_status_id ,
3857:
3858: IF (SQL%NOTFOUND) THEN
3859: CLOSE c_campaign ;
3860: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3861: RAISE FND_API.g_exc_error;
3862: END IF;
3863: ELSE
3864: CLOSE c_campaign;
3865: AMS_Utility_PVT.Error_Message('AMS_CAMP_CANNOT_CANCEL');
3862: END IF;
3863: ELSE
3864: CLOSE c_campaign;
3865: AMS_Utility_PVT.Error_Message('AMS_CAMP_CANNOT_CANCEL');
3866: RAISE FND_API.g_exc_error;
3867: END IF ;
3868: END IF;
3869: END LOOP ;
3870: CLOSE c_campaign ;
3912: IF l_camp_count > 0
3913: THEN
3914: -- cannot cancel
3915: AMS_Utility_PVT.Error_Message('AMS_COMP_CANNOT_CANCEL');
3916: RAISE FND_API.g_exc_error;
3917: /*
3918: ELSE
3919: -- ok cancel
3920: UPDATE ams_campaigns_all_b
3926: --AND object_version_number = l_obj_version ;
3927: IF (SQL%NOTFOUND) THEN
3928: CLOSE c_campaign ;
3929: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
3930: RAISE FND_API.g_exc_error;
3931: END IF;
3932: */
3933:
3934: END IF;
3995: LOOP
3996: FETCH c_schedule
3997: INTO l_schedule_id,l_obj_version,l_status_code, l_activity_type_code, l_related_event_id, l_source_code ;
3998: EXIT WHEN c_schedule%NOTFOUND ;
3999: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_CAMPAIGN_SCHEDULE_STATUS',l_status_code,'COMPLETED') THEN
4000: IF (AMS_DEBUG_HIGH_ON) THEN
4001: AMS_Utility_PVT.debug_message('MAYANK: l_schedule_id is *' || l_schedule_id ||'*');
4002: AMS_Utility_PVT.debug_message('MAYANK: l_obj_version is *' || l_obj_version ||'*');
4003: END IF;
4013:
4014: IF (SQL%NOTFOUND) THEN
4015: CLOSE c_schedule ;
4016: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
4017: RAISE FND_API.g_exc_error;
4018: END IF;
4019:
4020: -- soagrawa added the following on 15-may-2003 for bug# 2962164
4021: IF l_activity_type_code = 'EVENTS'
4028:
4029: ELSE -- Can not complete the schedule as the status is can not go to complete from current status
4030: CLOSE c_schedule;
4031: AMS_Utility_PVT.Error_Message('AMS_CSCH_CANNOT_COMPLETE');
4032: RAISE FND_API.g_exc_error;
4033: END IF ;
4034:
4035: END LOOP;
4036: CLOSE c_schedule;
4050: IF(l_no_complete_scheds = 0) THEN
4051: -- at least 1 completed Schedule is required for the Campaign to be complete
4052: CLOSE c_completed_schedule;
4053: AMS_Utility_PVT.Error_Message('AMS_CSCH_CANNOT_COMPLETE');
4054: RAISE FND_API.g_exc_error;
4055: END IF;
4056: END IF;
4057:
4058:
4103: IF l_rollup_type = 'RCAM' THEN
4104: -- soagrawa 15-may-2003 modified for bug# 2962702
4105: -- Cancel_Program(l_campaign_id) ;
4106: Complete_Program(l_campaign_id) ;
4107: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_PROGRAM_STATUS',l_status_code,'COMPLETED') THEN
4108: UPDATE ams_campaigns_all_b
4109: SET status_code = 'COMPLETED',
4110: user_status_id = l_program_status_id ,
4111: status_date = SYSDATE ,
4114: AND object_version_number = l_obj_version ;
4115: IF (SQL%NOTFOUND) THEN
4116: CLOSE c_campaign ;
4117: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
4118: RAISE FND_API.g_exc_error;
4119: END IF;
4120: ELSE
4121: CLOSE c_campaign;
4122: AMS_Utility_PVT.Error_Message('AMS_PROG_CANNOT_COMPLETE');
4119: END IF;
4120: ELSE
4121: CLOSE c_campaign;
4122: AMS_Utility_PVT.Error_Message('AMS_PROG_CANNOT_COMPLETE');
4123: RAISE FND_API.g_exc_error;
4124: END IF ;
4125: ELSE
4126: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_CAMPAIGN_STATUS',l_status_code,'COMPLETED') THEN
4127: -- soagrawa 15-may-2003 modified for bug# 2962702
4122: AMS_Utility_PVT.Error_Message('AMS_PROG_CANNOT_COMPLETE');
4123: RAISE FND_API.g_exc_error;
4124: END IF ;
4125: ELSE
4126: IF FND_API.G_TRUE = AMS_Utility_PVT.Check_Status_Change('AMS_CAMPAIGN_STATUS',l_status_code,'COMPLETED') THEN
4127: -- soagrawa 15-may-2003 modified for bug# 2962702
4128: -- Cancel_schedule(l_campaign_id) ;
4129: Complete_Schedule(l_campaign_id) ;
4130:
4138:
4139: IF (SQL%NOTFOUND) THEN
4140: CLOSE c_campaign ;
4141: AMS_Utility_PVT.Error_Message('AMS_API_RECORD_NOT_FOUND');
4142: RAISE FND_API.g_exc_error;
4143: END IF;
4144: ELSE
4145: CLOSE c_campaign;
4146: AMS_Utility_PVT.Error_Message('AMS_CAMP_CANNOT_COMPLETE');
4143: END IF;
4144: ELSE
4145: CLOSE c_campaign;
4146: AMS_Utility_PVT.Error_Message('AMS_CAMP_CANNOT_COMPLETE');
4147: RAISE FND_API.g_exc_error;
4148: END IF ;
4149: END IF;
4150: END LOOP ;
4151: CLOSE c_campaign ;
4224: -- 31-May-2001 ptendulk Created.
4225: --=====================================================================
4226: PROCEDURE Update_Rollup(
4227: p_api_version IN NUMBER,
4228: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4229: p_commit IN VARCHAR2 := FND_API.g_false,
4230: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4231: x_return_status OUT NOCOPY VARCHAR2,
4232: x_msg_count OUT NOCOPY NUMBER,
4225: --=====================================================================
4226: PROCEDURE Update_Rollup(
4227: p_api_version IN NUMBER,
4228: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4229: p_commit IN VARCHAR2 := FND_API.g_false,
4230: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4231: x_return_status OUT NOCOPY VARCHAR2,
4232: x_msg_count OUT NOCOPY NUMBER,
4233: x_msg_data OUT NOCOPY VARCHAR2,
4226: PROCEDURE Update_Rollup(
4227: p_api_version IN NUMBER,
4228: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4229: p_commit IN VARCHAR2 := FND_API.g_false,
4230: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4231: x_return_status OUT NOCOPY VARCHAR2,
4232: x_msg_count OUT NOCOPY NUMBER,
4233: x_msg_data OUT NOCOPY VARCHAR2,
4234: p_campaign_id IN NUMBER,
4250: FETCH c_parent INTO l_old_parent,l_rollup_type ;
4251: IF c_parent%NOTFOUND THEN
4252: CLOSE c_parent;
4253: AMS_Utility_Pvt.Error_Message('AMS_API_RECORD_NOT_FOUND');
4254: RAISE FND_API.g_exc_error;
4255: END IF;
4256: CLOSE c_parent ;
4257:
4258: IF l_old_parent IS NOT NULL THEN
4354: EXIT WHEN c_child_tree%NOTFOUND ;
4355: IF l_camp_id = p_parent_campaign_id THEN
4356: CLOSE c_child_tree;
4357: AMS_Utility_PVT.Error_Message('AMS_CAMP_PARENT_IS_CHILD');
4358: RAISE FND_API.g_exc_error;
4359: END IF ;
4360:
4361: END LOOP;
4362: CLOSE c_child_tree;
4395: CLOSE c_no_of_open_schedules;
4396:
4397: IF (l_no_open_scheds > 0) THEN
4398: AMS_Utility_PVT.Error_Message('AMS_CSCH_CANNOT_CLOSE');
4399: RAISE FND_API.g_exc_error;
4400: END IF;
4401:
4402:
4403: END Check_Close_Campaign;