[Home] [Help]
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;
84:
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;
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
127: IF p_rollup_type = 'ECAM' THEN
128: x_inherit_flag := 'Y';
126: ELSIF l_rollup_type = 'MCAM' THEN
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;
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' ;
251: l_assc_rec.using_object_type := p_event_type ;
361: -- Refer bug #1825922
362: AND p_global_flag = l_global_flag THEN
363: IF (AMS_DEBUG_HIGH_ON) THEN
364:
365: AMS_Utility_PVT.Debug_Message('Source code is Same') ;
366: END IF;
367: IF (p_related_source_id IS NULL AND l_related_event_id IS NOT NULL)
368: OR (l_related_event_id IS NULL AND p_related_source_id IS NOT NULL)
369: THEN
391: END IF ;
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
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
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;
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:
422: -- refer to bug# 2511783
423: --aranka added 07/27/02
424: --sam added start
425: -- IF p_source_code IS NOT NULL THEN
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
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;
435: -- END IF;
436: -- IF AMS_Utility_PVT.check_uniqueness(
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',
438: -- 'source_code = ''' || p_source_code || ''''
439: -- || ' AND campaign_id <> '||p_campaign_id
440: -- ) = FND_API.g_false
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;
445: -- END IF;
446: -- END IF;
451: CLOSE c_csch_exist;
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
457: RETURN;
458: END IF;
459: IF (AMS_DEBUG_HIGH_ON) THEN
460:
461: AMS_Utility_PVT.Debug_message('Global Flag : ' ||l_global_flag );
462: END IF;
463: -- generate a new source code if global flag is updated and
464: -- source code is not cascaded to schedules
465: IF p_global_flag <> l_global_flag
471: );
472: END IF;
473: IF (AMS_DEBUG_HIGH_ON) THEN
474:
475: AMS_Utility_PVT.Debug_message('Source Code : ' ||x_source_code );
476: END IF;
477:
478: IF x_source_code = l_source_code THEN
479: RETURN;
479: RETURN;
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:
490: FETCH c_source_code INTO l_source_code_id;
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:
497: END IF;
498:
499: -- this code added here by soagrawa on 16-aug-2002 for bug# 2511783
500: IF x_source_code IS NOT NULL THEN
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
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;
510: END IF;
511: END IF;
614: IF (AMS_DEBUG_HIGH_ON) THEN
615:
616:
617:
618: AMS_Utility_PVT.debug_message('Obj : '||l_rollup_type||p_camp_rec.campaign_id||' User : '||l_resource);
619:
620: END IF;
621:
622: l_access := AMS_Access_PVT.Check_Update_Access(p_object_id => p_camp_rec.campaign_id ,
624: p_user_or_role_id => l_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:
661: IF (AMS_DEBUG_HIGH_ON) THEN
662:
663:
664:
665: AMS_Utility_PVT.Debug_message('p_camp_rec.owner_user_id : '|| p_camp_rec.owner_user_id) ;
666:
667: END IF;
668: IF (AMS_DEBUG_HIGH_ON) THEN
669:
666:
667: END IF;
668: IF (AMS_DEBUG_HIGH_ON) THEN
669:
670: AMS_Utility_PVT.Debug_message('l_camp_rec.owner_user_id : '|| l_camp_rec.owner_user_id) ;
671: END IF;
672: IF (AMS_DEBUG_HIGH_ON) THEN
673:
674: AMS_Utility_PVT.Debug_message('Resource id : '||l_resource ) ;
670: AMS_Utility_PVT.Debug_message('l_camp_rec.owner_user_id : '|| l_camp_rec.owner_user_id) ;
671: END IF;
672: IF (AMS_DEBUG_HIGH_ON) THEN
673:
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
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:
693:
694:
695:
696:
697: AMS_Utility_PVT.Debug_message('Resource id : '||l_resource ||' Owner : '||p_camp_rec.owner_user_id) ;
698:
699:
700: END IF;
701: -- Only owner/ Super Admin can change the Business Unit
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
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
714: THEN
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;
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');
732: -- x_return_status := FND_API.g_ret_sts_error;
733: -- RETURN;
734: --END IF;
735:
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;
745: -- END IF;
746:
747: --IF p_camp_rec.channel_id <> FND_API.g_miss_num
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;
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
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
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:
814: -- AND p_channel_id IS NULL
815: -- AND p_status_code IN ('SUBMITTED_TA', 'PLANNING', 'SUBMITTED_BA', 'AVAILABLE', 'ACTIVE')
816: --THEN
817: -- IF p_media_type = 'EVENTS' THEN
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;
816: --THEN
817: -- IF p_media_type = 'EVENTS' THEN
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;
829: FETCH c_parent INTO l_template_flag;
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;
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
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:
916: RETURN;
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:
922: RETURN;
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:
929: END IF;
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;
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:
947: -- validate media_id
950: FETCH c_media INTO l_type;
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;
963: FETCH c_channel_media INTO l_dummy;
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;
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
984: OPEN c_eveh;
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
992: x_return_status := FND_API.g_ret_sts_error;
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
997: OPEN c_camp_event;
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;
1005:
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:
1051: IF p_fund_source_type = 'FUND' 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;
1063: ELSIF p_fund_source_type = 'EVEH' 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;
1073: ELSIF p_fund_source_type = 'EVEO' 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;
1083: ELSE
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;
1089:
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:
1151: IF p_start_date > p_end_date THEN
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:
1157:
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:
1169: -- check p_start_period_name
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;
1181: AMS_Utility_PVT.error_message('AMS_CAMP_OUT_START_PERIOD');
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;
1185:
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;
1198: AMS_Utility_PVT.error_message('AMS_CAMP_OUT_END_PERIOD');
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;
1202:
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;
1210:
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
1304: IF p_status_code = 'ACTIVE' THEN
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');
1310: END IF;
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:
1313: END check_camp_version;
1345: FETCH c_PROGRAM_status INTO l_old_status_id;
1346: CLOSE c_PROGRAM_status;
1347: END IF;
1348:
1349: l_parent_status_code := AMS_Utility_PVT.get_system_status_code(l_old_status_id);
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;
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;
1408:
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');
1418: -- 09-Aug-2002 aranka
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
1421: l_msg_name := 'AMS_RCAM_START_BEF_PAR_START';
1420: IF ( p_rollup_type = 'RCAM') THEN
1421: l_msg_name := 'AMS_RCAM_START_BEF_PAR_START';
1422: END IF;
1423:
1424: AMS_Utility_PVT.error_message(
1425: l_msg_name,
1426: 'CAMP_START_DATE_AFTR',
1427: FND_DATE.date_to_chardate(l_parent_start_date)
1428: );
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
1436: l_msg_name := 'AMS_RCAM_START_AFT_PAR_END';
1435: IF ( p_rollup_type = 'RCAM') THEN
1436: l_msg_name := 'AMS_RCAM_START_AFT_PAR_END';
1437: END IF;
1438:
1439: AMS_Utility_PVT.error_message(
1440: l_msg_name,
1441: 'CAMP_START_DATE_BFR',
1442: -- aranka added 04/01/02
1443: -- FND_DATE.date_to_chardate(l_parent_start_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');
1459: -- 09-Aug-2002 aranka
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
1462: l_msg_name := 'AMS_RCAM_END_AFT_PAR_END';
1461: IF ( p_rollup_type = 'RCAM') THEN
1462: l_msg_name := 'AMS_RCAM_END_AFT_PAR_END';
1463: END IF;
1464:
1465: AMS_Utility_PVT.error_message(
1466: l_msg_name,
1467: 'CAMP_END_DATE_BFR',
1468: -- aranka added 04/01/02
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
1478: l_msg_name := 'AMS_RCAM_END_BEF_PAR_START';
1478: l_msg_name := 'AMS_RCAM_END_BEF_PAR_START';
1479: END IF;
1480:
1481:
1482: AMS_Utility_PVT.error_message(
1483: l_msg_name,
1484: 'CAMP_END_DATE_AFTR',
1485: FND_DATE.date_to_chardate(l_parent_start_date)
1486: );
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
1534: );
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
1541: );
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
1557: );
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
1564: );
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
1571: );
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
1622: );
1666:
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;
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
1731: );
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
1738: );
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
1754: );
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
1761: );
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
1768: );
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
1779: );
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
1786: );
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
1802: );
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
1809: );
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
1816: );
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(
1864: 'AMS_CAMP_START_AFT_CSCH_START',
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)
1867: );
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;
1884: AMS_Utility_PVT.error_message(
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)
1888: );
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)
1895: );
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;
1945:
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
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:
1966: END handle_csch_source_code;
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:
2054: -- -- check if the new source code is unique
2055: -- OPEN c_source_code;
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:
2065: -- OPEN c_list_header;
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:
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');
2147: ELSIF l_media_type = 'EVENTS' 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');
2150: END IF;
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:
2153: END check_csch_camp_id;
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:
2195: END check_csch_deliv_id;
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:
2236: END check_csch_offer_id;
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;
2279:
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');
2287: ELSIF p_start_date > l_camp_end_date 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');
2290: END IF;
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:
2293: IF p_end_date IS NOT NULL THEN
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');
2300: ELSIF p_end_date < l_camp_start_date 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');
2303: END IF;
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:
2306: END check_csch_dates_vs_camp;
2448: WHERE parent_campaign_id = p_campaign_id
2449: AND status_code = 'ACTIVE' ;
2450: l_act_child_exist NUMBER;
2451:
2452: l_system_status_code VARCHAR2(30) := AMS_Utility_PVT.get_system_status_code(p_user_status_id) ;
2453: l_old_status_code VARCHAR2(30) ;
2454: l_custom_setup_id NUMBER ;
2455: l_msg_count NUMBER ;
2456: l_msg_data VARCHAR2(2000);
2461: IF (AMS_DEBUG_HIGH_ON) THEN
2462:
2463:
2464:
2465: AMS_Utility_PVT.debug_message('SONALI x');
2466:
2467: END IF;
2468:
2469: OPEN c_old_status;
2473: IF (AMS_DEBUG_HIGH_ON) THEN
2474:
2475:
2476:
2477: AMS_Utility_PVT.debug_message('SONALI new '||l_system_status_code);
2478:
2479: END IF;
2480: IF (AMS_DEBUG_HIGH_ON) THEN
2481:
2478:
2479: END IF;
2480: IF (AMS_DEBUG_HIGH_ON) THEN
2481:
2482: AMS_Utility_PVT.debug_message('SONALI old '||l_old_status_code);
2483: END IF;
2484:
2485: IF l_old_status_id = p_user_status_id THEN
2486: RETURN;
2489: -- Follwing code is modified by ptendulk on 16-Jun-2001
2490: -- The old procedure is replaced by new to check the type
2491: -- of the approval required as ams_object_attribute table is
2492: -- obsoleted now.
2493: AMS_Utility_PVT.check_new_status_change(
2494: -- p_object_type => 'CAMP',
2495: p_object_type => l_rollup_type,
2496: p_object_id => p_campaign_id,
2497: p_old_status_id => l_old_status_id,
2500: x_approval_type => l_approval_type,
2501: x_return_status => l_return_status
2502: );
2503:
2504: --AMS_Utility_PVT.check_status_change(
2505: -- p_object_type => 'CAMP',
2506: -- p_object_type => l_rollup_type,
2507: -- p_object_id => p_campaign_id,
2508: -- p_old_status_id => l_old_status_id,
2526: FETCH c_parent INTO l_status_code ;
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:
2542: Cancel_Program(p_campaign_id);
2543: -- Cancel All the children associated to the program.
2544: IF (AMS_DEBUG_HIGH_ON) THEN
2545:
2546: AMS_Utility_PVT.Debug_Message('Cancel All the events');
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 );
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;
2556: IF (AMS_DEBUG_HIGH_ON) THEN
2557:
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');
2559: END IF;
2560: ELSE
2561: Cancel_Schedule(p_campaign_id);
2562: END IF ;
2565: --FETCH c_child INTO l_act_child_exist;
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
2609: /* Following code is commented by ptendulk on 30-Oct-2001
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
2619: FETCH c_budget_exist INTO l_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: */
2630: p_activity_id => p_campaign_id,
2631: p_activity_type => 'CAMP',
2632: p_approval_type => 'BUDGET',
2633: p_act_budget_id => null,
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
2644:
2645: IF (l_start_wf_process = 'Y') -- If the user is not the approver
2646: THEN
2647: -- start budget approval process
2648: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
2649: 'AMS_CAMPAIGN_STATUS',
2650: 'SUBMITTED_BA'
2651: );
2652: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
2648: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
2649: 'AMS_CAMPAIGN_STATUS',
2650: 'SUBMITTED_BA'
2651: );
2652: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
2653: 'AMS_CAMPAIGN_STATUS',
2654: 'DENIED_BA'
2655: );
2656: AMS_Approval_PVT.StartProcess(
2660: p_object_version_number => l_object_version,
2661: p_orig_stat_id => l_old_status_id,
2662: p_new_stat_id => p_user_status_id,
2663: p_reject_stat_id => l_deny_status_id,
2664: p_requester_userid => AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
2665: p_workflowprocess => 'AMS_APPROVAL',
2666: p_item_type => 'AMSAPRV'
2667: );
2668: ELSE -- If user equals approver
2666: p_item_type => 'AMSAPRV'
2667: );
2668: ELSE -- If user equals approver
2669: IF (AMS_DEBUG_HIGH_ON) THEN
2670: AMS_Utility_PVT.Debug_Message('No need to start Workflow Process for Approval, Status Code ' || l_system_status_code );
2671: END IF;
2672:
2673: IF l_system_status_code = 'ACTIVE' AND l_rollup_type <> 'RCAM'
2674: THEN
2701: p_activity_id => p_campaign_id,
2702: p_activity_type => 'CAMP',
2703: p_approval_type => 'CONCEPT',
2704: p_act_budget_id => null,
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
2714: /* mayjain 22-Sep-2005 */
2715:
2716: IF (l_start_wf_process = 'Y') -- If the user is not the approver
2717: THEN
2718: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
2719: 'AMS_CAMPAIGN_STATUS',
2720: 'SUBMITTED_TA'
2721: );
2722: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
2718: l_new_status_id := AMS_Utility_PVT.get_default_user_status(
2719: 'AMS_CAMPAIGN_STATUS',
2720: 'SUBMITTED_TA'
2721: );
2722: l_deny_status_id := AMS_Utility_PVT.get_default_user_status(
2723: 'AMS_CAMPAIGN_STATUS',
2724: 'DENIED_TA'
2725: );
2726: AMS_Approval_PVT.StartProcess(
2730: p_object_version_number => l_object_version,
2731: p_orig_stat_id => l_old_status_id,
2732: p_new_stat_id => p_user_status_id,
2733: p_reject_stat_id => l_deny_status_id,
2734: p_requester_userid => AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
2735: p_workflowprocess => 'AMS_CONCEPT_APPROVAL',
2736: p_item_type => 'AMSAPRV'
2737: );
2738:
2768: END IF;
2769:
2770: update_status(p_campaign_id => p_campaign_id,
2771: p_new_status_id => l_new_status_id,
2772: p_new_status_code => AMS_Utility_PVT.get_system_status_code(l_new_status_id)
2773: ) ;
2774:
2775:
2776: /* Following code is commented by ptendulk on 08-Oct-2001
2776: /* Following code is commented by ptendulk on 08-Oct-2001
2777: Use the common update api to update the campaign
2778: UPDATE ams_campaigns_all_b
2779: SET user_status_id = l_new_status_id,
2780: status_code = AMS_Utility_PVT.get_system_status_code(l_new_status_id),
2781: status_date = SYSDATE
2782: WHERE campaign_id = p_campaign_id;
2783:
2784: IF l_system_status_code = 'ACTIVE' AND
2994: IF l_curr_code IS NULL THEN
2995: l_curr_code := 'USD' ;
2996: END IF ;
2997:
2998: AMS_Utility_PVT.Convert_Currency(
2999: x_return_status => l_return_status ,
3000: p_from_currency => p_tc_curr,
3001: p_to_currency => l_curr_code,
3002: p_from_amount => p_tc_amt,
3116: OPEN c_owner ;
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:
3434: AND (status_code = 'COMPLETED' OR status_code = 'CANCELLED') ;
3435:
3436: l_schedule_id NUMBER ;
3437: l_obj_version NUMBER ;
3438: l_user_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_SCHEDULE_STATUS','ARCHIVED');
3439:
3440: BEGIN
3441:
3442: OPEN c_schedule ;
3453: AND object_version_number = l_obj_version ;
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 ;
3487:
3488: l_campaign_id NUMBER ;
3489: l_obj_version NUMBER ;
3490: l_rollup_type VARCHAR2(30) ;
3491: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','ARCHIVED');
3492: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','ARCHIVED');
3493:
3494: BEGIN
3495:
3488: l_campaign_id NUMBER ;
3489: l_obj_version NUMBER ;
3490: l_rollup_type VARCHAR2(30) ;
3491: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','ARCHIVED');
3492: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','ARCHIVED');
3493:
3494: BEGIN
3495:
3496: OPEN c_campaign ;
3519: AND object_version_number = l_obj_version ;
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 ;
3553:
3554: l_campaign_id NUMBER ;
3555: l_obj_version NUMBER ;
3556: l_rollup_type VARCHAR2(30) ;
3557: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','ACTIVE');
3558: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','ACTIVE');
3559:
3560: BEGIN
3561:
3554: l_campaign_id NUMBER ;
3555: l_obj_version NUMBER ;
3556: l_rollup_type VARCHAR2(30) ;
3557: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','ACTIVE');
3558: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','ACTIVE');
3559:
3560: BEGIN
3561:
3562: OPEN c_campaign ;
3583: AND object_version_number = l_obj_version ;
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 ;
3620:
3621: l_campaign_id NUMBER ;
3622: l_obj_version NUMBER ;
3623: l_rollup_type VARCHAR2(30) ;
3624: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS',p_system_status_code);
3625: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS',p_system_status_code);
3626:
3627: BEGIN
3628:
3621: l_campaign_id NUMBER ;
3622: l_obj_version NUMBER ;
3623: l_rollup_type VARCHAR2(30) ;
3624: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS',p_system_status_code);
3625: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS',p_system_status_code);
3626:
3627: BEGIN
3628:
3629: OPEN c_campaign ;
3650: AND object_version_number = l_obj_version ;
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 ;
3689:
3690: l_schedule_id NUMBER ;
3691: l_obj_version NUMBER ;
3692: l_status_code VARCHAR2(30) ;
3693: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_SCHEDULE_STATUS','CANCELLED');
3694:
3695: BEGIN
3696:
3697: OPEN c_schedule ;
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,
3709: AND object_version_number = l_obj_version ;
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;
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');
3719: RAISE FND_API.g_exc_error;
3720: END IF ;
3721:
3722: END LOOP;
3739: l_schedule_count NUMBER;
3740: -- l_schedule_id NUMBER ;
3741: -- l_obj_version NUMBER ;
3742: -- l_status_code VARCHAR2(30) ;
3743: -- l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_SCHEDULE_STATUS','CANCELLED');
3744:
3745: BEGIN
3746:
3747: OPEN c_schedule ;
3751: IF (AMS_DEBUG_HIGH_ON) THEN
3752:
3753:
3754:
3755: AMS_Utility_PVT.debug_message('SONALI: l_schedule_count is *' || l_schedule_count ||'*');
3756:
3757: END IF;
3758: IF l_schedule_count > 0
3759: THEN
3757: END IF;
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
3771: WHERE campaign_id = l_campaign_id ;
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:
3813: l_campaign_id NUMBER ;
3814: l_obj_version NUMBER ;
3815: l_rollup_type VARCHAR2(30) ;
3816: l_status_code VARCHAR2(30) ;
3817: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','CANCELLED');
3818: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','CANCELLED');
3819:
3820: BEGIN
3821:
3814: l_obj_version NUMBER ;
3815: l_rollup_type VARCHAR2(30) ;
3816: l_status_code VARCHAR2(30) ;
3817: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','CANCELLED');
3818: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','CANCELLED');
3819:
3820: BEGIN
3821:
3822: OPEN c_campaign ;
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 ,
3835: WHERE campaign_id = l_campaign_id
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;
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');
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
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 ,
3856: AND object_version_number = l_obj_version ;
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;
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');
3866: RAISE FND_API.g_exc_error;
3867: END IF ;
3868: END IF;
3869: END LOOP ;
3886: AND status_code <> 'CANCELLED'
3887: AND status_code <> 'ARCHIVED';
3888:
3889: l_camp_count NUMBER;
3890: -- l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','CANCELLED');
3891: -- l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','CANCELLED');
3892:
3893:
3894: -- l_campaign_id NUMBER ;
3887: AND status_code <> 'ARCHIVED';
3888:
3889: l_camp_count NUMBER;
3890: -- l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','CANCELLED');
3891: -- l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','CANCELLED');
3892:
3893:
3894: -- l_campaign_id NUMBER ;
3895: -- l_obj_version NUMBER ;
3905: IF (AMS_DEBUG_HIGH_ON) THEN
3906:
3907:
3908:
3909: AMS_Utility_PVT.debug_message('SONALI: l_camp_count is *' || l_camp_count ||'*');
3910:
3911: END IF;
3912: IF l_camp_count > 0
3913: THEN
3911: END IF;
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
3925: WHERE campaign_id = l_campaign_id ;
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:
3979:
3980: l_schedule_id NUMBER ;
3981: l_obj_version NUMBER ;
3982: l_status_code VARCHAR2(30) ;
3983: l_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_SCHEDULE_STATUS','COMPLETED');
3984: -- soagrawa added the following on 15-may-2003 for bug# 2962164
3985: l_activity_type_code VARCHAR2(30);
3986: l_related_event_id NUMBER;
3987: l_source_code VARCHAR2(30);
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;
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;
4004:
4005: -- Can complete the schedule
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;
4004:
4005: -- Can complete the schedule
4006: UPDATE ams_campaign_schedules_b
4012: AND object_version_number = l_obj_version ;
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
4027:
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;
4049: IF (l_no_of_scheds > 0) THEN -- There should be atleast one schedule to make the next check.
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:
4089: l_campaign_id NUMBER ;
4090: l_obj_version NUMBER ;
4091: l_rollup_type VARCHAR2(30) ;
4092: l_status_code VARCHAR2(30) ;
4093: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','COMPLETED');
4094: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','COMPLETED');
4095:
4096: BEGIN
4097:
4090: l_obj_version NUMBER ;
4091: l_rollup_type VARCHAR2(30) ;
4092: l_status_code VARCHAR2(30) ;
4093: l_program_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_PROGRAM_STATUS','COMPLETED');
4094: l_campaign_status_id NUMBER := AMS_Utility_PVT.get_default_user_status('AMS_CAMPAIGN_STATUS','COMPLETED');
4095:
4096: BEGIN
4097:
4098: OPEN c_campaign ;
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 ,
4113: WHERE campaign_id = l_campaign_id
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;
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');
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
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:
4137: AND object_version_number = l_obj_version ;
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;
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');
4147: RAISE FND_API.g_exc_error;
4148: END IF ;
4149: END IF;
4150: END LOOP ;
4243:
4244: BEGIN
4245: IF (AMS_DEBUG_HIGH_ON) THEN
4246:
4247: AMS_Utility_PVT.Debug_message('Start Update rollup ');
4248: END IF;
4249: OPEN c_parent ;
4250: FETCH c_parent INTO l_old_parent,l_rollup_type ;
4251: IF c_parent%NOTFOUND THEN
4249: OPEN c_parent ;
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:
4260: p_parent_id <> l_old_parent
4261: THEN
4262: IF (AMS_DEBUG_HIGH_ON) THEN
4263:
4264: AMS_Utility_PVT.Debug_message('Invalidate the rollup ');
4265: END IF;
4266: -- Change p_used_by_type to l_rollup_type when gliu resolve the
4267: -- issue for rollup type of seed metric for the program /campaign
4268: -- as of Jun01-2001
4307:
4308: BEGIN
4309: UPDATE ams_campaigns_all_b
4310: SET user_status_id = p_new_status_id,
4311: status_code = p_new_status_code, -- AMS_Utility_PVT.get_system_status_code(p_new_status_id),
4312: status_date = SYSDATE
4313: -- private_flag = DECODE(p_new_status_code,'ACTIVE','N',private_flag)
4314: WHERE campaign_id = p_campaign_id;
4315:
4353: FETCH c_child_tree INTO l_camp_id ;
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;
4394: FETCH c_no_of_open_schedules INTO l_no_open_scheds;
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: