[Home] [Help]
40: FETCH c_target_det INTO l_dummy ;
41: CLOSE c_target_det ;
42:
43: IF l_dummy IS NULL THEN
44: RETURN FND_API.g_false ;
45: ELSE
46: RETURN FND_API.g_true;
47: END IF;
48:
42:
43: IF l_dummy IS NULL THEN
44: RETURN FND_API.g_false ;
45: ELSE
46: RETURN FND_API.g_true;
47: END IF;
48:
49: END Target_Group_Exist ;
50:
75: AND enabled_flag = 'Y';
76:
77: BEGIN
78:
79: x_return_status := FND_API.g_ret_sts_success;
80:
81: OPEN c_status_code;
82: FETCH c_status_code INTO l_status_code;
83: CLOSE c_status_code;
82: FETCH c_status_code INTO l_status_code;
83: CLOSE c_status_code;
84:
85: IF l_status_code IS NULL THEN
86: x_return_status := FND_API.g_ret_sts_error;
87: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_USER_STATUS');
88: END IF;
89:
90: x_status_code := l_status_code;
115:
116: SAVEPOINT validate_activation_rules;
117:
118: -- Initialize API return status to SUCCESS
119: x_status_code := FND_API.G_RET_STS_SUCCESS;
120:
121: AMS_ScheduleRules_PVT.collateral_activation_rule(
122: p_scheduleid => p_scheduleid,
123: x_status_code => l_return_status,
123: x_status_code => l_return_status,
124: x_msg_count => l_msg_count,
125: x_msg_data => l_msg_data) ;
126:
127: IF l_return_status = fnd_api.g_ret_sts_error THEN
128: x_status_code := FND_API.g_ret_sts_error;
129: RAISE FND_API.g_exc_error;
130: END IF;
131:
124: x_msg_count => l_msg_count,
125: x_msg_data => l_msg_data) ;
126:
127: IF l_return_status = fnd_api.g_ret_sts_error THEN
128: x_status_code := FND_API.g_ret_sts_error;
129: RAISE FND_API.g_exc_error;
130: END IF;
131:
132: --similarly, call other validation apis also, as the api validate_activation_rules itself is just a placeholder
125: x_msg_data => l_msg_data) ;
126:
127: IF l_return_status = fnd_api.g_ret_sts_error THEN
128: x_status_code := FND_API.g_ret_sts_error;
129: RAISE FND_API.g_exc_error;
130: END IF;
131:
132: --similarly, call other validation apis also, as the api validate_activation_rules itself is just a placeholder
133: -- for other valiation rules api like collateral,collaboration validations etc.
136: x_return_status => l_return_status,
137: x_msg_count => l_msg_count,
138: x_msg_data => l_msg_data) ;
139:
140: IF l_return_status = fnd_api.g_ret_sts_error THEN
141: x_status_code := FND_API.g_ret_sts_error;
142: RAISE FND_API.g_exc_error;
143: END IF;*/
144:
137: x_msg_count => l_msg_count,
138: x_msg_data => l_msg_data) ;
139:
140: IF l_return_status = fnd_api.g_ret_sts_error THEN
141: x_status_code := FND_API.g_ret_sts_error;
142: RAISE FND_API.g_exc_error;
143: END IF;*/
144:
145: AMS_WEBMARKETING_PVT.WEBMARKETING_CONTENT_STATUS (p_campaign_activity_id => p_scheduleid,
138: x_msg_data => l_msg_data) ;
139:
140: IF l_return_status = fnd_api.g_ret_sts_error THEN
141: x_status_code := FND_API.g_ret_sts_error;
142: RAISE FND_API.g_exc_error;
143: END IF;*/
144:
145: AMS_WEBMARKETING_PVT.WEBMARKETING_CONTENT_STATUS (p_campaign_activity_id => p_scheduleid,
146: x_return_status => l_return_status,
146: x_return_status => l_return_status,
147: x_msg_count => l_msg_count,
148: x_msg_data => l_msg_data);
149:
150: IF l_return_status = fnd_api.g_ret_sts_error THEN
151: x_status_code := FND_API.g_ret_sts_error;
152: RAISE FND_API.g_exc_error;
153: END IF;
154:
147: x_msg_count => l_msg_count,
148: x_msg_data => l_msg_data);
149:
150: IF l_return_status = fnd_api.g_ret_sts_error THEN
151: x_status_code := FND_API.g_ret_sts_error;
152: RAISE FND_API.g_exc_error;
153: END IF;
154:
155: EXCEPTION
148: x_msg_data => l_msg_data);
149:
150: IF l_return_status = fnd_api.g_ret_sts_error THEN
151: x_status_code := FND_API.g_ret_sts_error;
152: RAISE FND_API.g_exc_error;
153: END IF;
154:
155: EXCEPTION
156:
153: END IF;
154:
155: EXCEPTION
156:
157: WHEN FND_API.G_EXC_ERROR THEN
158:
159: ROLLBACK TO validate_activation_rules;
160:
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
157: WHEN FND_API.G_EXC_ERROR THEN
158:
159: ROLLBACK TO validate_activation_rules;
160:
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162:
163: ROLLBACK TO validate_activation_rules;
164:
165: WHEN OTHERS THEN
240:
241:
242: BEGIN
243:
244: l_status_code := FND_API.g_ret_sts_success;
245:
246: OPEN c_sched_details ;
247: FETCH c_sched_details INTO l_activity_id,l_activity_type_code;
248: CLOSE c_sched_details ;
285: LOOP
286: FETCH C_Content_CL INTO l_content_item_id,l_content_name;
287: EXIT WHEN C_Content_CL%NOTFOUND;
288: if (C_Content_CL%found) then
289: l_status_code := fnd_api.g_ret_sts_error;
290: end if;
291: END LOOP;
292: CLOSE C_Content_CL;
293:
290: end if;
291: END LOOP;
292: CLOSE C_Content_CL;
293:
294: If l_status_code = fnd_api.g_ret_sts_error THEN
295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
296: THEN
297: FND_MESSAGE.set_name('AMS', 'AMS_COVER_LETTER_APPRV_MSG');
298: FND_MESSAGE.Set_Token('COVER_LETTER_NAME',l_content_name);
300: END IF;
301:
302: FND_MSG_PUB.Count_AND_Get( p_count => x_msg_count,
303: p_data => x_msg_data,
304: p_encoded => FND_API.G_FALSE
305: );
306: END IF;
307: end if;
308: --anchaudh : ends : cover letter related validation during activity activation.
315: LOOP
316: FETCH C_Content_CL INTO l_content_item_id_dm,l_content_name_dm;
317: EXIT WHEN C_Content_CL%NOTFOUND;
318: if (C_Content_CL%found) then
319: l_status_code := fnd_api.g_ret_sts_error;
320:
321: if(l_content_name_dm is not null) then
322: if (l_content_name_text_dm is null) then
323: l_content_name_text_dm := l_content_name_dm;
329: end if;
330: END LOOP;
331: CLOSE C_Content_CL;
332:
333: If l_status_code = fnd_api.g_ret_sts_error THEN
334: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
335: THEN
336: FND_MESSAGE.set_name('AMS', 'AMS_COLLATEARL_CONTENT_APRVMSG');
337: FND_MESSAGE.Set_Token('COLLATERAL_CONTENT_NAMES', l_content_name_text_dm);
339: END IF;
340:
341: FND_MSG_PUB.Count_AND_Get( p_count => x_msg_count,
342: p_data => x_msg_data,
343: p_encoded => FND_API.G_FALSE
344: );
345: END IF;
346:
347: END IF;
349: --anchaudh : ends : generic direct marketing collateral content's validation during activity activation.
350:
351: ELSIF (l_activity_id <> 460 ) THEN --kbasavar skip the validation for telemarketing
352:
353: l_status_code := fnd_api.g_ret_sts_error;
354:
355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
356: THEN
357: FND_MESSAGE.set_name('AMS', 'AMS_COLLAT_CONTENT_NOT_EXISTS');
359: END IF;
360:
361: FND_MSG_PUB.Count_AND_Get( p_count => x_msg_count,
362: p_data => x_msg_data,
363: p_encoded => FND_API.G_FALSE);
364:
365: END IF;--IF (l_content_exists = 'Y') THEN
366:
367: end if;--if (l_activity_type_code = 'DIRECT_MARKETING')
373: LOOP
374: FETCH C_Content_NDM INTO l_content_item_id,l_content_name;
375: EXIT WHEN C_Content_NDM%NOTFOUND;
376: if (C_Content_NDM%found) then
377: l_status_code := fnd_api.g_ret_sts_error;
378: if(l_content_name is not null) then
379: if (l_content_name_text is null) then
380: l_content_name_text := l_content_name;
381: else
385: end if;
386: END LOOP;
387: CLOSE C_Content_NDM;
388:
389: If l_status_code = fnd_api.g_ret_sts_error THEN
390: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
391: THEN
392: FND_MESSAGE.set_name('AMS', 'AMS_COLLATEARL_CONTENT_APRVMSG');
393: FND_MESSAGE.Set_Token('COLLATERAL_CONTENT_NAMES', l_content_name_text);
395: END IF;
396:
397: FND_MSG_PUB.Count_AND_Get( p_count => x_msg_count,
398: p_data => x_msg_data,
399: p_encoded => FND_API.G_FALSE
400: );
401: END IF;
402: END IF;
403: --anchaudh : ends : collateral content in NDM activity related validation during the activity activation.
490: -- Update the generate code with the new
491: -- upper limit of the numeric sequence.
492: LOOP
493: l_source_code := p_campaign_source_code || l_suffix || TO_CHAR(l_seq + 1) ;
494: EXIT WHEN AMS_SourceCode_PVT.is_source_code_unique (l_source_code) = FND_API.g_true;
495: l_seq := l_seq + 1 ;
496: END LOOP;
497:
498: UPDATE ams_generated_codes gde
537:
538: BEGIN
539:
540: x_source_code := p_source_code;
541: x_return_status := FND_API.g_ret_sts_success;
542:
543: OPEN c_camp;
544: FETCH c_camp INTO l_source_code, l_global_flag;
545: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
543: OPEN c_camp;
544: FETCH c_camp INTO l_source_code, l_global_flag;
545: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
546: CLOSE c_camp;
547: x_return_status := FND_API.g_ret_sts_error;
548: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
549: RAISE FND_API.g_exc_error;
550: END IF;
551: CLOSE c_camp;
545: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
546: CLOSE c_camp;
547: x_return_status := FND_API.g_ret_sts_error;
548: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
549: RAISE FND_API.g_exc_error;
550: END IF;
551: CLOSE c_camp;
552:
553: IF p_cascade_flag = 'Y' THEN
553: IF p_cascade_flag = 'Y' THEN
554: IF p_source_code IS NULL THEN
555: x_source_code := l_source_code;
556: ELSIF p_source_code <> l_source_code THEN
557: x_return_status := FND_API.g_ret_sts_error;
558: AMS_Utility_PVT.error_message('AMS_CSCH_CODE_NOT_CASCADE');
559: END IF;
560: ELSE
561: IF p_source_code IS NULL THEN
563: --x_source_code := AMS_SourceCode_PVT.get_new_source_code(
564: -- 'CSCH', p_setup_id, l_global_flag);
565: --anchaudh bug fix 3861594 starts
566: IF(length(l_dummy_src_code) > 30) THEN
567: x_return_status := FND_API.g_ret_sts_error;
568: AMS_Utility_PVT.error_message('AMS_CSCH_SRC_CODE_ERROR');
569: ELSE
570: x_source_code := l_dummy_src_code; --Generate_Schedule_Code(l_source_code,p_setup_id);
571: --x_source_code := AMS_SourceCode_PVT.get_new_source_code(
571: --x_source_code := AMS_SourceCode_PVT.get_new_source_code(
572: -- 'CSCH', p_setup_id, l_global_flag);
573: END IF;
574: --anchaudh bug fix 3861594 ends
575: ELSIF AMS_SourceCode_PVT.is_source_code_unique(p_source_code) = FND_API.g_false
576: THEN
577: x_return_status := FND_API.g_ret_sts_error;
578: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
579: END IF;
573: END IF;
574: --anchaudh bug fix 3861594 ends
575: ELSIF AMS_SourceCode_PVT.is_source_code_unique(p_source_code) = FND_API.g_false
576: THEN
577: x_return_status := FND_API.g_ret_sts_error;
578: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
579: END IF;
580: END IF;
581:
610: BEGIN
611:
612: AMS_SourceCode_PVT.Create_SourceCode(
613: p_api_version => 1.0,
614: p_init_msg_list => FND_API.g_false,
615: p_commit => FND_API.g_false,
616: p_validation_level => FND_API.g_valid_level_full,
617:
618: x_return_status => l_return_status,
611:
612: AMS_SourceCode_PVT.Create_SourceCode(
613: p_api_version => 1.0,
614: p_init_msg_list => FND_API.g_false,
615: p_commit => FND_API.g_false,
616: p_validation_level => FND_API.g_valid_level_full,
617:
618: x_return_status => l_return_status,
619: x_msg_count => l_msg_count,
612: AMS_SourceCode_PVT.Create_SourceCode(
613: p_api_version => 1.0,
614: p_init_msg_list => FND_API.g_false,
615: p_commit => FND_API.g_false,
616: p_validation_level => FND_API.g_valid_level_full,
617:
618: x_return_status => l_return_status,
619: x_msg_count => l_msg_count,
620: x_msg_data => l_msg_data,
627: p_related_sourceid => p_related_source_id,
628: x_sourcecode_id => l_sourcecode_id
629: );
630:
631: IF l_return_status <> FND_API.g_ret_sts_success THEN
632: RAISE FND_API.g_exc_error;
633: END IF;
634:
635: END Push_Source_Code;
628: x_sourcecode_id => l_sourcecode_id
629: );
630:
631: IF l_return_status <> FND_API.g_ret_sts_success THEN
632: RAISE FND_API.g_exc_error;
633: END IF;
634:
635: END Push_Source_Code;
636:
685: IF (AMS_DEBUG_HIGH_ON) THEN
686:
687: AMS_Utility_PVT.debug_message('Check Source Code ');
688: END IF;
689: x_return_status := FND_API.g_ret_sts_success;
690:
691: -- cannot update to null
692: IF p_schedule_rec.source_code IS NULL THEN
693: AMS_Utility_PVT.Error_Message('AMS_CAMP_NO_SOURCE_CODE');
690:
691: -- cannot update to null
692: IF p_schedule_rec.source_code IS NULL THEN
693: AMS_Utility_PVT.Error_Message('AMS_CAMP_NO_SOURCE_CODE');
694: RAISE FND_API.g_exc_error;
695: END IF;
696:
697: -- query the campaign_id and the old source_code
698: OPEN c_schedule;
702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
703: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
704: FND_MSG_PUB.add;
705: END IF;
706: RAISE FND_API.g_exc_error;
707: END IF;
708: CLOSE c_schedule;
709:
710: -- if source_code is not changed, return
707: END IF;
708: CLOSE c_schedule;
709:
710: -- if source_code is not changed, return
711: IF p_schedule_rec.source_code = FND_API.g_miss_char
712: OR p_schedule_rec.source_code = l_source_code
713: THEN
714: RETURN;
715: END IF;
715: END IF;
716:
717: -- check if source code is cascaded from campaign
718: IF l_cascade_flag = 'Y' THEN
719: x_return_status := FND_API.g_ret_sts_error;
720: AMS_Utility_PVT.error_message('AMS_CSCH_CODE_NOT_CASCADE');
721: RETURN;
722: END IF;
723: IF (AMS_DEBUG_HIGH_ON) THEN
733: AMS_Utility_PVT.debug_message('Dup Code '||l_dummy);
734: END IF;
735: IF l_dummy IS NOT NULL THEN
736: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
737: x_return_status := FND_API.g_ret_sts_error;
738: RETURN;
739: END IF;
740:
741: -- cannot update source code if schedule has "old" list headers
743: FETCH c_list_header INTO l_dummy;
744: CLOSE c_list_header;
745: IF l_dummy IS NOT NULL THEN
746: AMS_Utility_PVT.error_message('AMS_CSCH_UPDATE_SOURCE_CODE');
747: x_return_status := FND_API.g_ret_sts_error;
748: RETURN;
749: END IF;
750:
751: IF (AMS_DEBUG_HIGH_ON) THEN
756:
757: END IF;
758: AMS_SourceCode_PVT.revoke_sourcecode(
759: p_api_version => 1.0,
760: p_init_msg_list => FND_API.g_false,
761: p_commit => FND_API.g_false,
762: p_validation_level => FND_API.g_valid_level_full,
763:
764: x_return_status => x_return_status,
757: END IF;
758: AMS_SourceCode_PVT.revoke_sourcecode(
759: p_api_version => 1.0,
760: p_init_msg_list => FND_API.g_false,
761: p_commit => FND_API.g_false,
762: p_validation_level => FND_API.g_valid_level_full,
763:
764: x_return_status => x_return_status,
765: x_msg_count => l_msg_count,
758: AMS_SourceCode_PVT.revoke_sourcecode(
759: p_api_version => 1.0,
760: p_init_msg_list => FND_API.g_false,
761: p_commit => FND_API.g_false,
762: p_validation_level => FND_API.g_valid_level_full,
763:
764: x_return_status => x_return_status,
765: x_msg_count => l_msg_count,
766: x_msg_data => l_msg_data,
767:
768: p_sourcecode => l_source_code
769: );
770:
771: IF x_return_status <> FND_API.g_ret_sts_success THEN
772: RAISE FND_API.g_exc_error;
773: END IF;
774:
775: IF (AMS_DEBUG_HIGH_ON) THEN
768: p_sourcecode => l_source_code
769: );
770:
771: IF x_return_status <> FND_API.g_ret_sts_success THEN
772: RAISE FND_API.g_exc_error;
773: END IF;
774:
775: IF (AMS_DEBUG_HIGH_ON) THEN
776:
780:
781: END IF;
782: AMS_SourceCode_PVT.create_sourcecode(
783: p_api_version => 1.0,
784: p_init_msg_list => FND_API.g_false,
785: p_commit => FND_API.g_false,
786: p_validation_level => FND_API.g_valid_level_full,
787:
788: x_return_status => x_return_status,
781: END IF;
782: AMS_SourceCode_PVT.create_sourcecode(
783: p_api_version => 1.0,
784: p_init_msg_list => FND_API.g_false,
785: p_commit => FND_API.g_false,
786: p_validation_level => FND_API.g_valid_level_full,
787:
788: x_return_status => x_return_status,
789: x_msg_count => l_msg_count,
782: AMS_SourceCode_PVT.create_sourcecode(
783: p_api_version => 1.0,
784: p_init_msg_list => FND_API.g_false,
785: p_commit => FND_API.g_false,
786: p_validation_level => FND_API.g_valid_level_full,
787:
788: x_return_status => x_return_status,
789: x_msg_count => l_msg_count,
790: x_msg_data => l_msg_data,
797: p_related_sourceid => p_schedule_rec.related_source_id,
798: x_sourcecode_id => l_dummy
799: );
800:
801: IF x_return_status <> FND_API.g_ret_sts_success THEN
802: RAISE FND_API.g_exc_error;
803: END IF;
804:
805: END Check_Source_Code;
798: x_sourcecode_id => l_dummy
799: );
800:
801: IF x_return_status <> FND_API.g_ret_sts_success THEN
802: RAISE FND_API.g_exc_error;
803: END IF;
804:
805: END Check_Source_Code;
806: */
851: IF (AMS_DEBUG_HIGH_ON) THEN
852:
853: AMS_Utility_PVT.debug_message('Check Source Code ');
854: END IF;
855: x_return_status := FND_API.g_ret_sts_success;
856:
857:
858: -- query the campaign_id and the old source_code
859: OPEN c_schedule;
863: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
864: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
865: FND_MSG_PUB.add;
866: END IF;
867: RAISE FND_API.g_exc_error;
868: RETURN;
869: END IF;
870: CLOSE c_schedule;
871:
879: FETCH c_list_header INTO l_dummy;
880: CLOSE c_list_header;
881: IF l_dummy IS NOT NULL THEN
882: AMS_Utility_PVT.error_message('AMS_CSCH_UPDATE_SOURCE_CODE');
883: x_return_status := FND_API.g_ret_sts_error;
884: RETURN;
885: END IF;
886: */
887:
885: END IF;
886: */
887:
888: -- if source_code is not changed, return
889: IF /*p_schedule_rec.source_code = FND_API.g_miss_char
890: OR */p_schedule_rec.source_code = l_source_code
891: THEN
892: RETURN;
893: END IF;
892: RETURN;
893: END IF;
894:
895: -- following code added by soagrawa on 31-jan-2002 for bug# 2207286
896: IF FND_API.G_TRUE = Target_Group_Exist(p_schedule_rec.schedule_id) THEN
897: AMS_Utility_PVT.Error_Message('AMS_CSCH_UPDATE_SOURCE_CODE');
898: RAISE FND_API.g_exc_error;
899: END IF ;
900:
894:
895: -- following code added by soagrawa on 31-jan-2002 for bug# 2207286
896: IF FND_API.G_TRUE = Target_Group_Exist(p_schedule_rec.schedule_id) THEN
897: AMS_Utility_PVT.Error_Message('AMS_CSCH_UPDATE_SOURCE_CODE');
898: RAISE FND_API.g_exc_error;
899: END IF ;
900:
901: -- get campaign's source code
902: OPEN c_camp;
902: OPEN c_camp;
903: FETCH c_camp INTO l_camp_source_code, l_camp_global_flag;
904: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
905: CLOSE c_camp;
906: x_return_status := FND_API.g_ret_sts_error;
907: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
908: RAISE FND_API.g_exc_error;
909: RETURN;
910: END IF;
904: IF c_camp%NOTFOUND THEN -- campaign_id is invalid
905: CLOSE c_camp;
906: x_return_status := FND_API.g_ret_sts_error;
907: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ID');
908: RAISE FND_API.g_exc_error;
909: RETURN;
910: END IF;
911: CLOSE c_camp;
912:
949: AMS_Utility_PVT.debug_message('revoke previous, and put campaign source code');
950: END IF;
951: AMS_SourceCode_PVT.revoke_sourcecode(
952: p_api_version => 1.0,
953: p_init_msg_list => FND_API.g_false,
954: p_commit => FND_API.g_false,
955: p_validation_level => FND_API.g_valid_level_full,
956:
957: x_return_status => x_return_status,
950: END IF;
951: AMS_SourceCode_PVT.revoke_sourcecode(
952: p_api_version => 1.0,
953: p_init_msg_list => FND_API.g_false,
954: p_commit => FND_API.g_false,
955: p_validation_level => FND_API.g_valid_level_full,
956:
957: x_return_status => x_return_status,
958: x_msg_count => l_msg_count,
951: AMS_SourceCode_PVT.revoke_sourcecode(
952: p_api_version => 1.0,
953: p_init_msg_list => FND_API.g_false,
954: p_commit => FND_API.g_false,
955: p_validation_level => FND_API.g_valid_level_full,
956:
957: x_return_status => x_return_status,
958: x_msg_count => l_msg_count,
959: x_msg_data => l_msg_data,
959: x_msg_data => l_msg_data,
960:
961: p_sourcecode => l_source_code
962: );
963: IF x_return_status <> FND_API.g_ret_sts_success THEN
964: RAISE FND_API.g_exc_error;
965: RETURN;
966: END IF;
967:
960:
961: p_sourcecode => l_source_code
962: );
963: IF x_return_status <> FND_API.g_ret_sts_success THEN
964: RAISE FND_API.g_exc_error;
965: RETURN;
966: END IF;
967:
968: -- populate camp's srccd into schedule
989:
990: AMS_Utility_PVT.debug_message('Check Source Code: use parent source code flag is N');
991: END IF;
992: IF p_schedule_rec.source_code IS NULL
993: OR p_schedule_rec.source_code = FND_API.g_miss_char
994: OR p_schedule_rec.source_code = ''
995: THEN
996: IF (AMS_DEBUG_HIGH_ON) THEN
997:
1007: AMS_Utility_PVT.debug_message('Revoke Source Code '||p_sch_source_code);
1008: END IF;
1009: AMS_SourceCode_PVT.revoke_sourcecode(
1010: p_api_version => 1.0,
1011: p_init_msg_list => FND_API.g_false,
1012: p_commit => FND_API.g_false,
1013: p_validation_level => FND_API.g_valid_level_full,
1014:
1015: x_return_status => x_return_status,
1008: END IF;
1009: AMS_SourceCode_PVT.revoke_sourcecode(
1010: p_api_version => 1.0,
1011: p_init_msg_list => FND_API.g_false,
1012: p_commit => FND_API.g_false,
1013: p_validation_level => FND_API.g_valid_level_full,
1014:
1015: x_return_status => x_return_status,
1016: x_msg_count => l_msg_count,
1009: AMS_SourceCode_PVT.revoke_sourcecode(
1010: p_api_version => 1.0,
1011: p_init_msg_list => FND_API.g_false,
1012: p_commit => FND_API.g_false,
1013: p_validation_level => FND_API.g_valid_level_full,
1014:
1015: x_return_status => x_return_status,
1016: x_msg_count => l_msg_count,
1017: x_msg_data => l_msg_data,
1017: x_msg_data => l_msg_data,
1018:
1019: p_sourcecode => p_sch_source_code
1020: );
1021: IF x_return_status <> FND_API.g_ret_sts_success THEN
1022: RAISE FND_API.g_exc_error;
1023: RETURN;
1024: END IF;
1025: END IF;
1018:
1019: p_sourcecode => p_sch_source_code
1020: );
1021: IF x_return_status <> FND_API.g_ret_sts_success THEN
1022: RAISE FND_API.g_exc_error;
1023: RETURN;
1024: END IF;
1025: END IF;
1026:
1056: IF (AMS_DEBUG_HIGH_ON) THEN
1057:
1058: AMS_Utility_PVT.debug_message('is it unique? '||p_schedule_rec.source_code);
1059: END IF;
1060: IF AMS_SourceCode_PVT.is_source_code_unique(p_schedule_rec.source_code) = FND_API.g_false
1061: THEN
1062: -- if not unique
1063: x_return_status := FND_API.g_ret_sts_error;
1064: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
1059: END IF;
1060: IF AMS_SourceCode_PVT.is_source_code_unique(p_schedule_rec.source_code) = FND_API.g_false
1061: THEN
1062: -- if not unique
1063: x_return_status := FND_API.g_ret_sts_error;
1064: AMS_Utility_PVT.error_message('AMS_CAMP_DUPLICATE_CODE');
1065: RETURN;
1066: ELSE
1067: -- yes unique
1073: AMS_Utility_PVT.debug_message('Revoke Source Code '||p_sch_source_code);
1074: END IF;
1075: AMS_SourceCode_PVT.revoke_sourcecode(
1076: p_api_version => 1.0,
1077: p_init_msg_list => FND_API.g_false,
1078: p_commit => FND_API.g_false,
1079: p_validation_level => FND_API.g_valid_level_full,
1080:
1081: x_return_status => x_return_status,
1074: END IF;
1075: AMS_SourceCode_PVT.revoke_sourcecode(
1076: p_api_version => 1.0,
1077: p_init_msg_list => FND_API.g_false,
1078: p_commit => FND_API.g_false,
1079: p_validation_level => FND_API.g_valid_level_full,
1080:
1081: x_return_status => x_return_status,
1082: x_msg_count => l_msg_count,
1075: AMS_SourceCode_PVT.revoke_sourcecode(
1076: p_api_version => 1.0,
1077: p_init_msg_list => FND_API.g_false,
1078: p_commit => FND_API.g_false,
1079: p_validation_level => FND_API.g_valid_level_full,
1080:
1081: x_return_status => x_return_status,
1082: x_msg_count => l_msg_count,
1083: x_msg_data => l_msg_data,
1083: x_msg_data => l_msg_data,
1084:
1085: p_sourcecode => p_sch_source_code
1086: );
1087: IF x_return_status <> FND_API.g_ret_sts_success THEN
1088: RAISE FND_API.g_exc_error;
1089: RETURN;
1090: END IF;
1091: END IF;
1084:
1085: p_sourcecode => p_sch_source_code
1086: );
1087: IF x_return_status <> FND_API.g_ret_sts_success THEN
1088: RAISE FND_API.g_exc_error;
1089: RETURN;
1090: END IF;
1091: END IF;
1092:
1156: l_parent_end_date DATE;
1157:
1158: BEGIN
1159:
1160: x_return_status := FND_API.g_ret_sts_success;
1161: IF p_campaign_id IS NULL THEN
1162: RETURN;
1163: END IF;
1164:
1165: OPEN c_campaign;
1166: FETCH c_campaign INTO l_parent_start_date, l_parent_end_date;
1167: IF c_campaign%NOTFOUND THEN
1168: CLOSE c_campaign;
1169: x_return_status := FND_API.g_ret_sts_error;
1170: AMS_Utility_PVT.error_message('AMS_CSCH_NO_CAMP_ID');
1171: RAISE FND_API.g_exc_error;
1172: END IF;
1173: CLOSE c_campaign;
1167: IF c_campaign%NOTFOUND THEN
1168: CLOSE c_campaign;
1169: x_return_status := FND_API.g_ret_sts_error;
1170: AMS_Utility_PVT.error_message('AMS_CSCH_NO_CAMP_ID');
1171: RAISE FND_API.g_exc_error;
1172: END IF;
1173: CLOSE c_campaign;
1174:
1175: ---------------------- start date ----------------------------
1174:
1175: ---------------------- start date ----------------------------
1176: IF p_start_date IS NOT NULL THEN
1177: IF l_parent_start_date IS NULL THEN
1178: x_return_status := FND_API.g_ret_sts_error;
1179: AMS_Utility_PVT.error_message('AMS_CSCH_CAMP_START_NULL');
1180: ELSIF p_start_date < l_parent_start_date THEN
1181: x_return_status := FND_API.g_ret_sts_error;
1182: AMS_Utility_PVT.error_message('AMS_CSCH_START_BEF_CAMP_START');
1177: IF l_parent_start_date IS NULL THEN
1178: x_return_status := FND_API.g_ret_sts_error;
1179: AMS_Utility_PVT.error_message('AMS_CSCH_CAMP_START_NULL');
1180: ELSIF p_start_date < l_parent_start_date THEN
1181: x_return_status := FND_API.g_ret_sts_error;
1182: AMS_Utility_PVT.error_message('AMS_CSCH_START_BEF_CAMP_START');
1183: ELSIF p_start_date > l_parent_end_date THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185: AMS_Utility_PVT.error_message('AMS_CSCH_START_AFT_CAMP_END');
1180: ELSIF p_start_date < l_parent_start_date THEN
1181: x_return_status := FND_API.g_ret_sts_error;
1182: AMS_Utility_PVT.error_message('AMS_CSCH_START_BEF_CAMP_START');
1183: ELSIF p_start_date > l_parent_end_date THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185: AMS_Utility_PVT.error_message('AMS_CSCH_START_AFT_CAMP_END');
1186: END IF;
1187: END IF;
1188:
1188:
1189: ---------------------- end date ------------------------------
1190: IF p_end_date IS NOT NULL THEN
1191: IF l_parent_end_date IS NULL THEN
1192: x_return_status := FND_API.g_ret_sts_error;
1193: AMS_Utility_PVT.error_message('AMS_CSCH_CAMP_END_NULL');
1194: ELSIF p_end_date > l_parent_end_date THEN
1195: x_return_status := FND_API.g_ret_sts_error;
1196: AMS_Utility_PVT.error_message('AMS_CSCH_END_AFT_CAMP_END');
1191: IF l_parent_end_date IS NULL THEN
1192: x_return_status := FND_API.g_ret_sts_error;
1193: AMS_Utility_PVT.error_message('AMS_CSCH_CAMP_END_NULL');
1194: ELSIF p_end_date > l_parent_end_date THEN
1195: x_return_status := FND_API.g_ret_sts_error;
1196: AMS_Utility_PVT.error_message('AMS_CSCH_END_AFT_CAMP_END');
1197: ELSIF p_end_date < l_parent_start_date THEN
1198: x_return_status := FND_API.g_ret_sts_error;
1199: AMS_Utility_PVT.error_message('AMS_CSCH_END_BEF_CAMP_START');
1194: ELSIF p_end_date > l_parent_end_date THEN
1195: x_return_status := FND_API.g_ret_sts_error;
1196: AMS_Utility_PVT.error_message('AMS_CSCH_END_AFT_CAMP_END');
1197: ELSIF p_end_date < l_parent_start_date THEN
1198: x_return_status := FND_API.g_ret_sts_error;
1199: AMS_Utility_PVT.error_message('AMS_CSCH_END_BEF_CAMP_START');
1200: END IF;
1201: END IF;
1202:
1255: l_admin_user BOOLEAN;
1256:
1257:
1258: BEGIN
1259: x_return_status := FND_API.g_ret_sts_success;
1260:
1261: OPEN c_resource ;
1262: FETCH c_resource INTO l_resource;
1263: CLOSE c_resource ;
1277: p_user_or_role_type => 'USER');
1278:
1279: IF l_access = 'N' THEN
1280: AMS_Utility_PVT.error_message('AMS_CAMP_NO_ACCESS');
1281: x_return_status := FND_API.g_ret_sts_error;
1282: RETURN;
1283: END IF ;
1284:
1285: OPEN c_schedule;
1289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1290: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1291: FND_MSG_PUB.add;
1292: END IF;
1293: RAISE FND_API.g_exc_error;
1294: END IF;
1295: CLOSE c_schedule;
1296:
1297: l_admin_user := AMS_Access_PVT.Check_Admin_Access(l_resource);
1296:
1297: l_admin_user := AMS_Access_PVT.Check_Admin_Access(l_resource);
1298:
1299: -- Only owner/ Super Admin can change the owner.
1300: IF p_schedule_rec.owner_user_id <> FND_API.g_miss_num
1301: AND p_schedule_rec.owner_user_id <> l_schedule_rec.owner_user_id
1302: AND l_admin_user = FALSE
1303: -- following line modified by soagrawa on 08-jul-2002
1304: -- for fixing reopened bug# 2406677
1305: -- AND p_schedule_rec.owner_user_id <> l_resource
1306: AND l_schedule_rec.owner_user_id <> l_resource
1307: THEN
1308: AMS_Utility_PVT.error_message('AMS_CAMP_OWNER_ACCESS');
1309: x_return_status := FND_API.g_ret_sts_error;
1310: END IF;
1311:
1312: OPEN c_bud_line ;
1313: FETCH c_bud_line INTO l_bud_exist;
1312: OPEN c_bud_line ;
1313: FETCH c_bud_line INTO l_bud_exist;
1314: CLOSE c_bud_line ;
1315:
1316: IF p_schedule_rec.transaction_currency_code <> FND_API.g_miss_char
1317: AND p_schedule_rec.transaction_currency_code <> l_schedule_rec.transaction_currency_code
1318: AND l_bud_exist IS NOT NULL
1319: THEN
1320: AMS_Utility_PVT.error_message('AMS_CSCH_BUD_PRESENT');
1317: AND p_schedule_rec.transaction_currency_code <> l_schedule_rec.transaction_currency_code
1318: AND l_bud_exist IS NOT NULL
1319: THEN
1320: AMS_Utility_PVT.error_message('AMS_CSCH_BUD_PRESENT');
1321: x_return_status := FND_API.g_ret_sts_error;
1322: END IF ;
1323:
1324:
1325: END Check_Schedule_Update;
1389: -- AND (campaign_id = p_campaign_id OR p_campaign_id IS NULL));
1390:
1391: BEGIN
1392:
1393: x_return_status := FND_API.g_ret_sts_success;
1394:
1395: -- for execution campaigns, media_type and media are required
1396: IF p_activity_type IS NULL THEN
1397: AMS_Utility_PVT.error_message('AMS_CSCH_NO_MEDIA_TYPE');
1394:
1395: -- for execution campaigns, media_type and media are required
1396: IF p_activity_type IS NULL THEN
1397: AMS_Utility_PVT.error_message('AMS_CSCH_NO_MEDIA_TYPE');
1398: x_return_status := FND_API.g_ret_sts_error;
1399: RETURN;
1400: END IF;
1401:
1402: IF p_activity_type <> 'EVENTS' AND p_activity_id IS NULL THEN
1400: END IF;
1401:
1402: IF p_activity_type <> 'EVENTS' AND p_activity_id IS NULL THEN
1403: AMS_Utility_PVT.error_message('AMS_CSCH_NO_MEDIA');
1404: x_return_status := FND_API.g_ret_sts_error;
1405: RETURN;
1406: END IF;
1407:
1408: IF p_activity_type = 'EVENTS' AND p_activity_type IS NULL THEN
1406: END IF;
1407:
1408: IF p_activity_type = 'EVENTS' AND p_activity_type IS NULL THEN
1409: AMS_Utility_PVT.error_message('AMS_CAMP_EC_NO_EVENT_TYPE');
1410: x_return_status := FND_API.g_ret_sts_error;
1411: RETURN;
1412: END IF;
1413:
1414: -- validate media_id
1418: CLOSE c_media;
1419:
1420: IF l_type <> p_activity_type THEN
1421: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_MEDIA_ID');
1422: x_return_status := FND_API.g_ret_sts_error;
1423: RETURN;
1424: END IF;
1425: END IF;
1426:
1425: END IF;
1426:
1427: -- validate media channel id
1428: -- IF p_activity_type <> 'EVENTS'AND p_medium_id IS NOT NULL THEN
1429: IF p_activity_type <> 'EVENTS' AND p_activity_type <> 'DEAL' AND p_activity_type <> 'TRADE_PROMOTION' AND (p_medium_id IS NOT NULL AND p_medium_id <> FND_API.g_miss_num) THEN
1430: OPEN c_channel_media;
1431: FETCH c_channel_media INTO l_dummy;
1432: CLOSE c_channel_media;
1433:
1432: CLOSE c_channel_media;
1433:
1434: IF l_dummy IS NULL OR p_activity_id IS NULL THEN
1435: AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
1436: x_return_status := FND_API.g_ret_sts_error;
1437: RETURN;
1438: END IF;
1439: END IF;
1440:
1442: AND p_activity_type <> 'DEAL'
1443: AND p_activity_type <> 'DIRECT_MARKETING'
1444: AND p_activity_type <> 'DIRECT_SALES'
1445: AND p_activity_type <> 'INTERNET'
1446: AND p_medium_id IS NULL --AND p_medium_id <> FND_API.g_miss_num
1447: AND p_status_code IN ('SUBMITTED_BA', 'AVAILABLE', 'ACTIVE')
1448: THEN
1449: IF p_activity_type = 'EVENTS' THEN
1450: -- dbiswas commented out the following error mesg for R12.
1451: -- AMS_Utility_PVT.error_message('AMS_CAMP_EVENT_REQUIRED');
1452: null;
1453: ELSE
1454: AMS_Utility_PVT.error_message('AMS_CAMP_CHANNEL_REQUIRED');
1455: x_return_status := FND_API.g_ret_sts_error;
1456: END IF;
1457: -- x_return_status := FND_API.g_ret_sts_error;
1458: RETURN;
1459: END IF;
1453: ELSE
1454: AMS_Utility_PVT.error_message('AMS_CAMP_CHANNEL_REQUIRED');
1455: x_return_status := FND_API.g_ret_sts_error;
1456: END IF;
1457: -- x_return_status := FND_API.g_ret_sts_error;
1458: RETURN;
1459: END IF;
1460:
1461:
1465: -- IF p_arc_channel_from = 'EVEO' THEN
1466: -- OPEN c_eveo;
1467: -- FETCH c_eveo INTO l_type;
1468: -- IF c_eveo%NOTFOUND OR l_type <> p_event_type THEN
1469: -- x_return_status := FND_API.g_ret_sts_error;
1470: -- AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
1471: -- END IF;
1472: -- CLOSE c_eveo;
1473: -- ELSIF p_arc_channel_from = 'EVEH' THEN
1473: -- ELSIF p_arc_channel_from = 'EVEH' THEN
1474: -- OPEN c_eveh;
1475: -- FETCH c_eveh INTO l_type;
1476: -- IF c_eveh%NOTFOUND OR l_type <> p_event_type THEN
1477: -- x_return_status := FND_API.g_ret_sts_error;
1478: -- AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
1479: -- END IF;
1480: -- CLOSE c_eveh;
1481: -- ELSE
1478: -- AMS_Utility_PVT.error_message('AMS_CAMP_BAD_CHANNEL');
1479: -- END IF;
1480: -- CLOSE c_eveh;
1481: -- ELSE
1482: -- x_return_status := FND_API.g_ret_sts_error;
1483: -- AMS_Utility_PVT.error_message('AMS_CAMP_BAD_ARC_CHANNEL');
1484: -- END IF;
1485:
1486: -- event associated to a campaign cannot be associated to other campaigns
1486: -- event associated to a campaign cannot be associated to other campaigns
1487: -- OPEN c_camp_event;
1488: -- FETCH c_camp_event INTO l_dummy;
1489: -- IF c_camp_event%FOUND THEN
1490: -- x_return_status := FND_API.g_ret_sts_error;
1491: -- AMS_Utility_PVT.error_message('AMS_CAMP_EVENT_IN_USE');
1492: -- END IF;
1493: -- CLOSE c_camp_event;
1494: -- END IF;
1510: -- 17-MAY-2001 soagrawa created
1511: -- End of Comments
1512: PROCEDURE Update_List_Sent_Out_Date
1513: (p_api_version IN NUMBER,
1514: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1515: p_commit IN VARCHAR2 := FND_API.G_False,
1516:
1517: x_return_status OUT NOCOPY VARCHAR2,
1518: x_msg_count OUT NOCOPY NUMBER ,
1511: -- End of Comments
1512: PROCEDURE Update_List_Sent_Out_Date
1513: (p_api_version IN NUMBER,
1514: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1515: p_commit IN VARCHAR2 := FND_API.G_False,
1516:
1517: x_return_status OUT NOCOPY VARCHAR2,
1518: x_msg_count OUT NOCOPY NUMBER ,
1519: x_msg_data OUT NOCOPY VARCHAR2,
1554:
1555: --
1556: -- Initialize message list IF p_init_msg_list is set to TRUE.
1557: --
1558: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1559: FND_MSG_PUB.initialize;
1560: END IF;
1561:
1562: --
1561:
1562: --
1563: -- Standard call to check for call compatibility.
1564: --
1565: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1566: p_api_version,
1567: l_api_name,
1568: G_PKG_NAME)
1569: THEN
1566: p_api_version,
1567: l_api_name,
1568: G_PKG_NAME)
1569: THEN
1570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1571: END IF;
1572:
1573: --
1574: -- Initialize API return status to success
1572:
1573: --
1574: -- Initialize API return status to success
1575: --
1576: x_return_status := FND_API.G_RET_STS_SUCCESS;
1577:
1578: -- Update the list header with the Schedule details.
1579: AMS_LISTHEADER_PVT.Init_ListHeader_rec(x_listheader_rec => l_list_rec);
1580: l_list_rec.list_header_id := p_list_header_id ;
1595: --l_list_rec.list_used_by_id := p_schedule_id ; -- Campaign Schedule
1596:
1597: AMS_LISTHEADER_PVT.Update_ListHeader
1598: ( p_api_version => p_api_version,
1599: p_init_msg_list => FND_API.G_FALSE,
1600: p_commit => FND_API.G_FALSE,
1601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1602:
1603: x_return_status => x_return_status,
1596:
1597: AMS_LISTHEADER_PVT.Update_ListHeader
1598: ( p_api_version => p_api_version,
1599: p_init_msg_list => FND_API.G_FALSE,
1600: p_commit => FND_API.G_FALSE,
1601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1602:
1603: x_return_status => x_return_status,
1604: x_msg_count => x_msg_count,
1597: AMS_LISTHEADER_PVT.Update_ListHeader
1598: ( p_api_version => p_api_version,
1599: p_init_msg_list => FND_API.G_FALSE,
1600: p_commit => FND_API.G_FALSE,
1601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1602:
1603: x_return_status => x_return_status,
1604: x_msg_count => x_msg_count,
1605: x_msg_data => x_msg_data ,
1607: p_listheader_rec => l_list_rec
1608: );
1609:
1610: -- If any errors happen abort API.
1611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1608: );
1609:
1610: -- If any errors happen abort API.
1611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1609:
1610: -- If any errors happen abort API.
1611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1617: --
1610: -- If any errors happen abort API.
1611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1617: --
1618: -- Standard check of p_commit.
1616:
1617: --
1618: -- Standard check of p_commit.
1619: --
1620: IF FND_API.To_Boolean ( p_commit )
1621: THEN
1622: COMMIT WORK;
1623: END IF;
1624:
1627: --
1628: FND_MSG_PUB.Count_AND_Get
1629: ( p_count => x_msg_count,
1630: p_data => x_msg_data,
1631: p_encoded => FND_API.G_FALSE
1632: );
1633:
1634: IF (AMS_DEBUG_HIGH_ON) THEN
1635:
1641:
1642:
1643:
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_ERROR THEN
1646:
1647: ROLLBACK TO Update_List_Header;
1648: x_return_status := FND_API.G_RET_STS_ERROR ;
1649:
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_ERROR THEN
1646:
1647: ROLLBACK TO Update_List_Header;
1648: x_return_status := FND_API.G_RET_STS_ERROR ;
1649:
1650: FND_MSG_PUB.Count_AND_Get
1651: ( p_count => x_msg_count,
1652: p_data => x_msg_data,
1649:
1650: FND_MSG_PUB.Count_AND_Get
1651: ( p_count => x_msg_count,
1652: p_data => x_msg_data,
1653: p_encoded => FND_API.G_FALSE
1654: );
1655:
1656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1657:
1652: p_data => x_msg_data,
1653: p_encoded => FND_API.G_FALSE
1654: );
1655:
1656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1657:
1658: ROLLBACK TO Update_List_Header;
1659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1660:
1655:
1656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1657:
1658: ROLLBACK TO Update_List_Header;
1659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1660:
1661: FND_MSG_PUB.Count_AND_Get
1662: ( p_count => x_msg_count,
1663: p_data => x_msg_data,
1660:
1661: FND_MSG_PUB.Count_AND_Get
1662: ( p_count => x_msg_count,
1663: p_data => x_msg_data,
1664: p_encoded => FND_API.G_FALSE
1665: );
1666:
1667: WHEN OTHERS THEN
1668:
1666:
1667: WHEN OTHERS THEN
1668:
1669: ROLLBACK TO Update_List_Header;
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1671:
1672: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1673: THEN
1674: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1676:
1677: FND_MSG_PUB.Count_AND_Get
1678: ( p_count => x_msg_count,
1679: p_data => x_msg_data,
1680: p_encoded => FND_API.G_FALSE
1681: );
1682: END Update_List_Sent_Out_Date ;
1683:
1684:
1705: --========================================================================================================
1706: PROCEDURE Complete_Schedule
1707: (
1708: p_api_version IN NUMBER,
1709: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1710: p_commit IN VARCHAR2 := FND_API.G_False,
1711: p_schedule_id IN NUMBER := NULL,
1712:
1713: x_return_status OUT NOCOPY VARCHAR2,
1706: PROCEDURE Complete_Schedule
1707: (
1708: p_api_version IN NUMBER,
1709: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1710: p_commit IN VARCHAR2 := FND_API.G_False,
1711: p_schedule_id IN NUMBER := NULL,
1712:
1713: x_return_status OUT NOCOPY VARCHAR2,
1714: x_msg_count OUT NOCOPY NUMBER ,
1750:
1751: --
1752: -- Initialize message list IF p_init_msg_list is set to TRUE.
1753: --
1754: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1755: FND_MSG_PUB.initialize;
1756: END IF;
1757:
1758: --
1757:
1758: --
1759: -- Standard call to check for call compatibility.
1760: --
1761: IF NOT FND_API.Compatible_API_Call ( 1.0,
1762: p_api_version,
1763: l_api_name,
1764: G_PKG_NAME)
1765: THEN
1762: p_api_version,
1763: l_api_name,
1764: G_PKG_NAME)
1765: THEN
1766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1767: END IF;
1768:
1769: --
1770: -- Initialize API return status to success
1768:
1769: --
1770: -- Initialize API return status to success
1771: --
1772: x_return_status := FND_API.G_RET_STS_SUCCESS;
1773:
1774: -- Chenge the status of all the schedules which are active to
1775: -- completed.
1776: OPEN c_status('COMPLETED') ;
1805: CLOSE c_completed_schedule;
1806: --
1807: -- Standard check of p_commit.
1808: --
1809: IF FND_API.To_Boolean ( p_commit )
1810: THEN
1811: COMMIT WORK;
1812: END IF;
1813:
1816: --
1817: FND_MSG_PUB.Count_AND_Get
1818: ( p_count => x_msg_count,
1819: p_data => x_msg_data,
1820: p_encoded => FND_API.G_FALSE
1821: );
1822:
1823: IF (AMS_DEBUG_HIGH_ON) THEN
1824:
1830:
1831:
1832:
1833: EXCEPTION
1834: WHEN FND_API.G_EXC_ERROR THEN
1835:
1836: IF (c_completed_schedule%ISOPEN) THEN
1837: CLOSE c_completed_schedule ;
1838: END IF;
1836: IF (c_completed_schedule%ISOPEN) THEN
1837: CLOSE c_completed_schedule ;
1838: END IF;
1839: ROLLBACK TO AMS_COMPLETE_SCHEDULE;
1840: x_return_status := FND_API.G_RET_STS_ERROR ;
1841:
1842: FND_MSG_PUB.Count_AND_Get
1843: ( p_count => x_msg_count,
1844: p_data => x_msg_data,
1841:
1842: FND_MSG_PUB.Count_AND_Get
1843: ( p_count => x_msg_count,
1844: p_data => x_msg_data,
1845: p_encoded => FND_API.G_FALSE
1846: );
1847:
1848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1849: IF (c_completed_schedule%ISOPEN) THEN
1844: p_data => x_msg_data,
1845: p_encoded => FND_API.G_FALSE
1846: );
1847:
1848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1849: IF (c_completed_schedule%ISOPEN) THEN
1850: CLOSE c_completed_schedule ;
1851: END IF;
1852: ROLLBACK TO AMS_COMPLETE_SCHEDULE;
1849: IF (c_completed_schedule%ISOPEN) THEN
1850: CLOSE c_completed_schedule ;
1851: END IF;
1852: ROLLBACK TO AMS_COMPLETE_SCHEDULE;
1853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1854:
1855: FND_MSG_PUB.Count_AND_Get
1856: ( p_count => x_msg_count,
1857: p_data => x_msg_data,
1854:
1855: FND_MSG_PUB.Count_AND_Get
1856: ( p_count => x_msg_count,
1857: p_data => x_msg_data,
1858: p_encoded => FND_API.G_FALSE
1859: );
1860:
1861: WHEN OTHERS THEN
1862: IF (c_completed_schedule%ISOPEN) THEN
1862: IF (c_completed_schedule%ISOPEN) THEN
1863: CLOSE c_completed_schedule ;
1864: END IF;
1865: ROLLBACK TO AMS_COMPLETE_SCHEDULE;
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1867:
1868: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1869: THEN
1870: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1872:
1873: FND_MSG_PUB.Count_AND_Get
1874: ( p_count => x_msg_count,
1875: p_data => x_msg_data,
1876: p_encoded => FND_API.G_FALSE
1877: );
1878:
1879: END Complete_Schedule;
1880:
1913: ) ;
1914: -- Write_log ;
1915: Ams_Utility_Pvt.Write_Conc_log ;
1916:
1917: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
1918: retcode :=0;
1919: ELSE
1920: retcode := 2;
1921: errbuf := l_msg_data ;
2081: x_return_status => l_return_status
2082: );
2083:
2084:
2085: IF l_return_status <> FND_API.g_ret_sts_success THEN
2086: RAISE FND_API.g_exc_error;
2087: END IF;
2088:
2089: -- dbiswas added the following pretty url check for bug 4472099
2082: );
2083:
2084:
2085: IF l_return_status <> FND_API.g_ret_sts_success THEN
2086: RAISE FND_API.g_exc_error;
2087: END IF;
2088:
2089: -- dbiswas added the following pretty url check for bug 4472099
2090: IF l_schedule_status_code = 'SUBMITTED_BA'
2109: IF (l_pretty_url_rec.pretty_url_id IS NOT NULL) THEN
2110: AMS_PRETTY_URL_PVT.CHECK_PU_MANDATORY_FIELDS(
2111: p_pretty_url_rec => l_pretty_url_rec,
2112: x_return_status => l_return_status);
2113: IF l_return_status <> FND_API.g_ret_sts_success THEN
2114: RAISE FND_API.g_exc_error;
2115: END IF;
2116: ELSE --Pretty URL rec not found, but system url exists. ERROR
2117: RAISE FND_API.g_exc_error;
2110: AMS_PRETTY_URL_PVT.CHECK_PU_MANDATORY_FIELDS(
2111: p_pretty_url_rec => l_pretty_url_rec,
2112: x_return_status => l_return_status);
2113: IF l_return_status <> FND_API.g_ret_sts_success THEN
2114: RAISE FND_API.g_exc_error;
2115: END IF;
2116: ELSE --Pretty URL rec not found, but system url exists. ERROR
2117: RAISE FND_API.g_exc_error;
2118: END IF;
2113: IF l_return_status <> FND_API.g_ret_sts_success THEN
2114: RAISE FND_API.g_exc_error;
2115: END IF;
2116: ELSE --Pretty URL rec not found, but system url exists. ERROR
2117: RAISE FND_API.g_exc_error;
2118: END IF;
2119:
2120: -- Mandatory fields check for CTD
2121: OPEN c_ctd_items(l_ctd_id);
2125: AMS_CTD_PVT.CHECK_MANDATORY_FIELDS(
2126: p_ctd_rec => l_ctd_rec,
2127: x_return_status => l_return_status
2128: );
2129: IF l_return_status <> FND_API.g_ret_sts_success THEN
2130: RAISE FND_API.g_exc_error;
2131: END IF ;
2132: ELSE --CTD Referenced in System url but does not exist. ERROR
2133: RAISE FND_API.g_exc_error;
2126: p_ctd_rec => l_ctd_rec,
2127: x_return_status => l_return_status
2128: );
2129: IF l_return_status <> FND_API.g_ret_sts_success THEN
2130: RAISE FND_API.g_exc_error;
2131: END IF ;
2132: ELSE --CTD Referenced in System url but does not exist. ERROR
2133: RAISE FND_API.g_exc_error;
2134: END IF ;
2129: IF l_return_status <> FND_API.g_ret_sts_success THEN
2130: RAISE FND_API.g_exc_error;
2131: END IF ;
2132: ELSE --CTD Referenced in System url but does not exist. ERROR
2133: RAISE FND_API.g_exc_error;
2134: END IF ;
2135:
2136: AMS_PRETTY_URL_PVT.IS_SYSTEM_URL_UNIQ(p_sys_url => l_system_url ,
2137: p_current_used_by_id => p_schedule_id,
2136: AMS_PRETTY_URL_PVT.IS_SYSTEM_URL_UNIQ(p_sys_url => l_system_url ,
2137: p_current_used_by_id => p_schedule_id,
2138: p_current_used_by_type => 'CSCH',
2139: x_return_status => l_return_status);
2140: IF l_return_status <> FND_API.g_ret_sts_success THEN
2141: RAISE FND_API.g_exc_error;
2142: END IF ;
2143: --
2144: END IF;
2137: p_current_used_by_id => p_schedule_id,
2138: p_current_used_by_type => 'CSCH',
2139: x_return_status => l_return_status);
2140: IF l_return_status <> FND_API.g_ret_sts_success THEN
2141: RAISE FND_API.g_exc_error;
2142: END IF ;
2143: --
2144: END IF;
2145: END IF;
2153: THEN
2154:
2155: -- anchaudh : calling validate activation rules api from R12 onwards; for any activity validation rule, going forward.
2156: validate_activation_rules(p_scheduleid => p_schedule_id , x_status_code => x_status_code);
2157: IF x_status_code <> FND_API.g_ret_sts_success THEN
2158: RAISE FND_API.g_exc_error;
2159: END IF ;
2160:
2161: -- Following line of code is added by ptendulk on 08-Jul-2001
2154:
2155: -- anchaudh : calling validate activation rules api from R12 onwards; for any activity validation rule, going forward.
2156: validate_activation_rules(p_scheduleid => p_schedule_id , x_status_code => x_status_code);
2157: IF x_status_code <> FND_API.g_ret_sts_success THEN
2158: RAISE FND_API.g_exc_error;
2159: END IF ;
2160:
2161: -- Following line of code is added by ptendulk on 08-Jul-2001
2162: --Check if the schedule has target group attached and generated.
2166: IF (l_activity_type_code = 'DIRECT_MARKETING' OR l_activity_type_code = 'DIRECT_SALES') THEN
2167: -- following line added by soagrawa on 04-dec-2001
2168: -- modified by soagrawa on 15-aug-2002 for bug# 2515493 - added direct mail 480
2169: IF (l_activity_id = 10 OR l_activity_id = 20 OR l_activity_id = 460 OR l_activity_id = 480 OR l_activity_id = 500) THEN
2170: IF FND_API.G_FALSE = Target_Group_Exist(p_schedule_id) THEN
2171: AMS_Utility_PVT.Error_Message('AMS_CSCH_NO_TARGET_GROUP');
2172: RAISE FND_API.g_exc_error;
2173: END IF ;
2174: END IF;
2168: -- modified by soagrawa on 15-aug-2002 for bug# 2515493 - added direct mail 480
2169: IF (l_activity_id = 10 OR l_activity_id = 20 OR l_activity_id = 460 OR l_activity_id = 480 OR l_activity_id = 500) THEN
2170: IF FND_API.G_FALSE = Target_Group_Exist(p_schedule_id) THEN
2171: AMS_Utility_PVT.Error_Message('AMS_CSCH_NO_TARGET_GROUP');
2172: RAISE FND_API.g_exc_error;
2173: END IF ;
2174: END IF;
2175:
2176: -- see if live cover letter version exists for email, fax, print
2181: -- soagrawa added 480 on 30-sep-2003 for 11.5.10
2182: IF (l_activity_id = 20 OR l_activity_id = 10 OR l_activity_id = 480)
2183: AND l_cover_letter_ver_id IS NULL THEN
2184: AMS_Utility_PVT.Error_Message('AMS_CSCH_NO_COVER_LETTER');
2185: RAISE FND_API.g_exc_error;
2186: END IF ;
2187:
2188: -- soagrawa added printer validation on 18-nov-2003 for 11.5.10
2189: l_fulfilment := FND_PROFILE.Value('AMS_FULFILL_ENABLE_FLAG');
2190: IF l_activity_id = 480
2191: AND l_fulfilment <> 'N'
2192: AND l_printer_address IS NULL THEN
2193: AMS_Utility_PVT.Error_Message('AMS_CSCH_NO_PRINTER');
2194: RAISE FND_API.g_exc_error;
2195: END IF ;
2196:
2197: END IF ;
2198:
2206: AMS_ActProduct_PVT.IS_ALL_CONTENT_APPROVED (p_schedule_id => p_schedule_id,
2207: x_return_status => l_return_status);
2208: IF l_return_status <> 'Y'
2209: THEN AMS_Utility_PVT.Error_Message('AMS_CONTENT_NOT_APPROVED');
2210: RAISE FND_API.g_exc_error;
2211: END IF ;
2212: END IF;*/
2213:
2214: --anchaudh: from R12 onwards, the above content valdation would be taken care of in the api : validate_activation_rules
2235: IF (l_pretty_url_rec.pretty_url_id IS NOT NULL) THEN
2236: AMS_PRETTY_URL_PVT.CHECK_PU_MANDATORY_FIELDS(
2237: p_pretty_url_rec => l_pretty_url_rec,
2238: x_return_status => l_return_status);
2239: IF l_return_status <> FND_API.g_ret_sts_success THEN
2240: RAISE FND_API.g_exc_error;
2241: END IF;
2242: ELSE --Pretty URL rec not found, but system url exists. ERROR
2243: RAISE FND_API.g_exc_error;
2236: AMS_PRETTY_URL_PVT.CHECK_PU_MANDATORY_FIELDS(
2237: p_pretty_url_rec => l_pretty_url_rec,
2238: x_return_status => l_return_status);
2239: IF l_return_status <> FND_API.g_ret_sts_success THEN
2240: RAISE FND_API.g_exc_error;
2241: END IF;
2242: ELSE --Pretty URL rec not found, but system url exists. ERROR
2243: RAISE FND_API.g_exc_error;
2244: END IF;
2239: IF l_return_status <> FND_API.g_ret_sts_success THEN
2240: RAISE FND_API.g_exc_error;
2241: END IF;
2242: ELSE --Pretty URL rec not found, but system url exists. ERROR
2243: RAISE FND_API.g_exc_error;
2244: END IF;
2245:
2246: -- Mandatory fields check for CTD
2247: OPEN c_ctd_items(l_ctd_id);
2251: AMS_CTD_PVT.CHECK_MANDATORY_FIELDS(
2252: p_ctd_rec => l_ctd_rec,
2253: x_return_status => l_return_status
2254: );
2255: IF l_return_status <> FND_API.g_ret_sts_success THEN
2256: RAISE FND_API.g_exc_error;
2257: END IF ;
2258: ELSE --CTD Referenced in System url but does not exist. ERROR
2259: RAISE FND_API.g_exc_error;
2252: p_ctd_rec => l_ctd_rec,
2253: x_return_status => l_return_status
2254: );
2255: IF l_return_status <> FND_API.g_ret_sts_success THEN
2256: RAISE FND_API.g_exc_error;
2257: END IF ;
2258: ELSE --CTD Referenced in System url but does not exist. ERROR
2259: RAISE FND_API.g_exc_error;
2260: END IF ;
2255: IF l_return_status <> FND_API.g_ret_sts_success THEN
2256: RAISE FND_API.g_exc_error;
2257: END IF ;
2258: ELSE --CTD Referenced in System url but does not exist. ERROR
2259: RAISE FND_API.g_exc_error;
2260: END IF ;
2261:
2262: AMS_PRETTY_URL_PVT.IS_SYSTEM_URL_UNIQ(p_sys_url => l_system_url ,
2263: p_current_used_by_id => p_schedule_id,
2262: AMS_PRETTY_URL_PVT.IS_SYSTEM_URL_UNIQ(p_sys_url => l_system_url ,
2263: p_current_used_by_id => p_schedule_id,
2264: p_current_used_by_type => 'CSCH',
2265: x_return_status => l_return_status);
2266: IF l_return_status <> FND_API.g_ret_sts_success THEN
2267: RAISE FND_API.g_exc_error;
2268: END IF ;
2269: END IF;
2270: END IF;
2263: p_current_used_by_id => p_schedule_id,
2264: p_current_used_by_type => 'CSCH',
2265: x_return_status => l_return_status);
2266: IF l_return_status <> FND_API.g_ret_sts_success THEN
2267: RAISE FND_API.g_exc_error;
2268: END IF ;
2269: END IF;
2270: END IF;
2271:
2282: -- Following Line of code is added by asaha on 09-Sep-2003 for Sales Channel
2283: l_activity_type_code <> 'DIRECT_SALES'
2284: THEN
2285: AMS_Utility_PVT.Error_Message('AMS_CAMP_CHANNEL_REQUIRED');
2286: RAISE FND_API.g_exc_error;
2287: END IF ;
2288: END IF ;
2289:
2290: OPEN c_camp_status ;
2292: CLOSE c_camp_status;
2293:
2294: IF l_status_code <> 'ACTIVE' THEN
2295: AMS_Utility_PVT.Error_Message('AMS_CSCH_CAMP_NO_ACTIVE');
2296: RAISE FND_API.g_exc_error;
2297: END IF ;
2298: END IF ; -- Active or Available
2299:
2300:
2309: p_requestor_id => AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id),
2310: x_must_preview => l_start_wf_process,
2311: x_return_status => l_return_status);
2312:
2313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2314: RAISE FND_API.G_EXC_ERROR;
2315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2310: x_must_preview => l_start_wf_process,
2311: x_return_status => l_return_status);
2312:
2313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2314: RAISE FND_API.G_EXC_ERROR;
2315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318:
2311: x_return_status => l_return_status);
2312:
2313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2314: RAISE FND_API.G_EXC_ERROR;
2315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318:
2319: /* vmodur 19-Dec-2005 */
2312:
2313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2314: RAISE FND_API.G_EXC_ERROR;
2315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318:
2319: /* vmodur 19-Dec-2005 */
2320: IF (l_start_wf_process = 'Y') THEN -- If the user is not the approver and budget approval reqd
2348: -- for enhancement # 2445453
2349:
2350: IF l_schedule_status_code = 'ACTIVE' THEN
2351: OZF_BudgetApproval_PVT.budget_request_approval(
2352: p_init_msg_list => FND_API.G_FALSE
2353: , p_api_version => 1.0
2354: , p_commit => FND_API.G_False
2355: , x_return_status => l_return_status
2356: , x_msg_count => l_msg_count
2350: IF l_schedule_status_code = 'ACTIVE' THEN
2351: OZF_BudgetApproval_PVT.budget_request_approval(
2352: p_init_msg_list => FND_API.G_FALSE
2353: , p_api_version => 1.0
2354: , p_commit => FND_API.G_False
2355: , x_return_status => l_return_status
2356: , x_msg_count => l_msg_count
2357: , x_msg_data => l_msg_data
2358: , p_object_type => 'CSCH'
2359: , p_object_id => p_schedule_id
2360: --, x_status_code =>
2361: );
2362:
2363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364: RAISE FND_API.G_EXC_ERROR;
2365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2360: --, x_status_code =>
2361: );
2362:
2363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364: RAISE FND_API.G_EXC_ERROR;
2365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368: END IF; -- Active
2361: );
2362:
2363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364: RAISE FND_API.G_EXC_ERROR;
2365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368: END IF; -- Active
2369: l_new_status_id := p_user_status_id;
2362:
2363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364: RAISE FND_API.G_EXC_ERROR;
2365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368: END IF; -- Active
2369: l_new_status_id := p_user_status_id;
2370:
2379: -- for enhancement # 2445453
2380:
2381: IF l_schedule_status_code = 'ACTIVE' THEN
2382: OZF_BudgetApproval_PVT.budget_request_approval(
2383: p_init_msg_list => FND_API.G_FALSE
2384: , p_api_version => 1.0
2385: , p_commit => FND_API.G_False
2386: , x_return_status => l_return_status
2387: , x_msg_count => l_msg_count
2381: IF l_schedule_status_code = 'ACTIVE' THEN
2382: OZF_BudgetApproval_PVT.budget_request_approval(
2383: p_init_msg_list => FND_API.G_FALSE
2384: , p_api_version => 1.0
2385: , p_commit => FND_API.G_False
2386: , x_return_status => l_return_status
2387: , x_msg_count => l_msg_count
2388: , x_msg_data => l_msg_data
2389: , p_object_type => 'CSCH'
2390: , p_object_id => p_schedule_id
2391: --, x_status_code =>
2392: );
2393:
2394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2391: --, x_status_code =>
2392: );
2393:
2394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2399: END IF;
2392: );
2393:
2394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2399: END IF;
2400: l_new_status_id := p_user_status_id;
2393:
2394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2399: END IF;
2400: l_new_status_id := p_user_status_id;
2401:
2460: l_list_header_rec.list_source_type := 'PERSON_LIST' ;
2461: l_list_header_rec.owner_user_id := p_owner_id;
2462: AMS_ListHeader_PVT.Create_Listheader
2463: ( p_api_version => 1.0,
2464: p_init_msg_list => FND_API.g_false,
2465: p_commit => FND_API.g_false,
2466: p_validation_level => FND_API.g_valid_level_full,
2467:
2468: x_return_status => l_return_status,
2461: l_list_header_rec.owner_user_id := p_owner_id;
2462: AMS_ListHeader_PVT.Create_Listheader
2463: ( p_api_version => 1.0,
2464: p_init_msg_list => FND_API.g_false,
2465: p_commit => FND_API.g_false,
2466: p_validation_level => FND_API.g_valid_level_full,
2467:
2468: x_return_status => l_return_status,
2469: x_msg_count => l_msg_count,
2462: AMS_ListHeader_PVT.Create_Listheader
2463: ( p_api_version => 1.0,
2464: p_init_msg_list => FND_API.g_false,
2465: p_commit => FND_API.g_false,
2466: p_validation_level => FND_API.g_valid_level_full,
2467:
2468: x_return_status => l_return_status,
2469: x_msg_count => l_msg_count,
2470: x_msg_data => l_msg_data,
2471: p_listheader_rec => l_list_header_rec,
2472: x_listheader_id => l_list_header_id
2473: );
2474:
2475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2476: RAISE FND_API.G_EXC_ERROR;
2477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2479: END IF;
2472: x_listheader_id => l_list_header_id
2473: );
2474:
2475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2476: RAISE FND_API.G_EXC_ERROR;
2477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2479: END IF;
2480:
2473: );
2474:
2475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2476: RAISE FND_API.G_EXC_ERROR;
2477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2479: END IF;
2480:
2481: l_act_list_rec.list_header_id := l_list_header_id;
2474:
2475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2476: RAISE FND_API.G_EXC_ERROR;
2477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2479: END IF;
2480:
2481: l_act_list_rec.list_header_id := l_list_header_id;
2482: l_act_list_rec.list_used_by := 'CSCH';
2484: l_act_list_rec.list_act_type := 'TARGET';
2485:
2486: AMS_Act_List_PVT.Create_Act_List(
2487: p_api_version_number => 1.0,
2488: p_init_msg_list => FND_API.g_false,
2489: p_commit => FND_API.g_false,
2490: p_validation_level => FND_API.g_valid_level_full,
2491: x_return_status => l_return_status,
2492: x_msg_count => l_msg_count,
2485:
2486: AMS_Act_List_PVT.Create_Act_List(
2487: p_api_version_number => 1.0,
2488: p_init_msg_list => FND_API.g_false,
2489: p_commit => FND_API.g_false,
2490: p_validation_level => FND_API.g_valid_level_full,
2491: x_return_status => l_return_status,
2492: x_msg_count => l_msg_count,
2493: x_msg_data => l_msg_data,
2486: AMS_Act_List_PVT.Create_Act_List(
2487: p_api_version_number => 1.0,
2488: p_init_msg_list => FND_API.g_false,
2489: p_commit => FND_API.g_false,
2490: p_validation_level => FND_API.g_valid_level_full,
2491: x_return_status => l_return_status,
2492: x_msg_count => l_msg_count,
2493: x_msg_data => l_msg_data,
2494: p_act_list_rec => l_act_list_rec ,
2494: p_act_list_rec => l_act_list_rec ,
2495: x_act_list_header_id => l_act_list_header_id
2496: ) ;
2497:
2498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2499: RAISE FND_API.G_EXC_ERROR;
2500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2502: END IF;
2495: x_act_list_header_id => l_act_list_header_id
2496: ) ;
2497:
2498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2499: RAISE FND_API.G_EXC_ERROR;
2500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2502: END IF;
2503:
2496: ) ;
2497:
2498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2499: RAISE FND_API.G_EXC_ERROR;
2500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2502: END IF;
2503:
2504: */
2497:
2498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2499: RAISE FND_API.G_EXC_ERROR;
2500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2502: END IF;
2503:
2504: */
2505: END Create_list;
2565:
2566: p_access_rec => l_access_rec,
2567: x_access_id => l_dummy_id
2568: );
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2566: p_access_rec => l_access_rec,
2567: x_access_id => l_dummy_id
2568: );
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2567: x_access_id => l_dummy_id
2568: );
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2575:
2568: );
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2575:
2576: OPEN c_access_det ;
2604:
2605: p_access_rec => l_access_rec,
2606: x_access_id => l_dummy_id
2607: );
2608: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2609: CLOSE c_access_det;
2610: RAISE FND_API.G_EXC_ERROR;
2611: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2612: CLOSE c_access_det;
2606: x_access_id => l_dummy_id
2607: );
2608: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2609: CLOSE c_access_det;
2610: RAISE FND_API.G_EXC_ERROR;
2611: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2612: CLOSE c_access_det;
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2607: );
2608: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2609: CLOSE c_access_det;
2610: RAISE FND_API.G_EXC_ERROR;
2611: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2612: CLOSE c_access_det;
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2615:
2609: CLOSE c_access_det;
2610: RAISE FND_API.G_EXC_ERROR;
2611: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2612: CLOSE c_access_det;
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2615:
2616: END IF ;
2617:
2758: -- create media_rec
2759: JTF_IH_PUB.Create_MediaItem
2760: (
2761: p_api_version => 1.0,
2762: p_init_msg_list => FND_API.g_false,
2763: p_commit => FND_API.g_false,
2764: -- p_resp_appl_id => l_resp_appl_id,
2765: -- p_resp_id => l_resp_id,
2766: p_user_id => l_user_id,
2759: JTF_IH_PUB.Create_MediaItem
2760: (
2761: p_api_version => 1.0,
2762: p_init_msg_list => FND_API.g_false,
2763: p_commit => FND_API.g_false,
2764: -- p_resp_appl_id => l_resp_appl_id,
2765: -- p_resp_id => l_resp_id,
2766: p_user_id => l_user_id,
2767: -- p_login_id => l_login_id,
2770: x_msg_data => l_msg_data,
2771: p_media_rec => l_media_rec,
2772: x_media_id => l_media_id
2773: );
2774: IF l_return_status <> FND_API.g_ret_sts_success THEN
2775: RAISE FND_API.g_exc_error;
2776: RETURN;
2777: END IF;
2778:
2771: p_media_rec => l_media_rec,
2772: x_media_id => l_media_id
2773: );
2774: IF l_return_status <> FND_API.g_ret_sts_success THEN
2775: RAISE FND_API.g_exc_error;
2776: RETURN;
2777: END IF;
2778:
2779: IF (AMS_DEBUG_HIGH_ON) THEN
2833: -- create interaction
2834: JTF_IH_PUB.Create_Interaction
2835: (
2836: p_api_version => 1.0,
2837: p_init_msg_list => FND_API.g_false,
2838: p_commit => FND_API.g_false,
2839: -- p_resp_appl_id => l_resp_appl_id, -- 530
2840: -- p_resp_id => l_resp_id, -- fnd global
2841: p_user_id => l_user_id,
2834: JTF_IH_PUB.Create_Interaction
2835: (
2836: p_api_version => 1.0,
2837: p_init_msg_list => FND_API.g_false,
2838: p_commit => FND_API.g_false,
2839: -- p_resp_appl_id => l_resp_appl_id, -- 530
2840: -- p_resp_id => l_resp_id, -- fnd global
2841: p_user_id => l_user_id,
2842: -- p_login_id => l_login_id,
2845: x_msg_data => l_msg_data,
2846: p_interaction_rec => l_interaction_rec,
2847: p_activities => l_activities
2848: );
2849: IF l_return_status <> FND_API.g_ret_sts_success THEN
2850: RAISE FND_API.g_exc_error;
2851: RETURN;
2852: END IF;
2853:
2846: p_interaction_rec => l_interaction_rec,
2847: p_activities => l_activities
2848: );
2849: IF l_return_status <> FND_API.g_ret_sts_success THEN
2850: RAISE FND_API.g_exc_error;
2851: RETURN;
2852: END IF;
2853:
2854: END LOOP;
3042: p_value => p_schedule_id,
3043: p_parameterlist => l_parameter_list);
3044:
3045: AMS_UTILITY_PVT.Convert_Timezone(
3046: p_init_msg_list => FND_API.G_TRUE,
3047: x_return_status => l_return_status,
3048: x_msg_count => l_msg_count,
3049: x_msg_data => l_msg_data,
3050:
3055: x_out_time => l_sys_start_time
3056: );
3057:
3058: -- If any errors happen let start time be sysdate
3059: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3060: l_start_time := SYSDATE;
3061: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3062: l_start_time := SYSDATE;
3063: END IF;
3057:
3058: -- If any errors happen let start time be sysdate
3059: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3060: l_start_time := SYSDATE;
3061: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3062: l_start_time := SYSDATE;
3063: END IF;
3064:
3065: AMS_Utility_PVT.debug_message('Raise Business event for Repeating Schedule');
3076: wf_event.AddParameterToList(p_name => 'SCHEDULE_ID',
3077: p_value => p_schedule_id,
3078: p_parameterlist => l_parameter_list);
3079: --ANCHAUDH starts modification for the leads bug.
3080: IF ((p_asn_group_id IS NOT NULL) AND (p_asn_group_id <> FND_API.g_miss_char)) THEN
3081: p_num_asn_group_id := to_number(p_asn_group_id);
3082: --insert_log_mesg('Anirban passing value of the param in WF, in amsvsbrb.pls as :'||p_num_asn_group_id);
3083:
3084: wf_event.AddParameterToList(p_name => 'ASN_GROUP_ID',
3103:
3104: --ANCHAUDH starts modification for the leads bug.
3105:
3106: AMS_UTILITY_PVT.Convert_Timezone(
3107: p_init_msg_list => FND_API.G_TRUE,
3108: x_return_status => l_return_status,
3109: x_msg_count => l_msg_count,
3110: x_msg_data => l_msg_data,
3111:
3116: x_out_time => l_sys_start_time
3117: );
3118:
3119: -- If any errors happen let start time be sysdate
3120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3121: l_sys_start_time := SYSDATE;
3122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3123: l_sys_start_time := SYSDATE;
3124: END IF;
3118:
3119: -- If any errors happen let start time be sysdate
3120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3121: l_sys_start_time := SYSDATE;
3122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3123: l_sys_start_time := SYSDATE;
3124: END IF;
3125:
3126: AMS_Utility_PVT.Create_Log (
3211: -- 18-jun-2002 soagrawa Fixed bug# 2421601
3212: --=====================================================================
3213: PROCEDURE Update_Schedule_Owner(
3214: p_api_version IN NUMBER,
3215: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3216: p_commit IN VARCHAR2 := FND_API.g_false,
3217: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3218: x_return_status OUT NOCOPY VARCHAR2,
3219: x_msg_count OUT NOCOPY NUMBER,
3212: --=====================================================================
3213: PROCEDURE Update_Schedule_Owner(
3214: p_api_version IN NUMBER,
3215: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3216: p_commit IN VARCHAR2 := FND_API.g_false,
3217: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3218: x_return_status OUT NOCOPY VARCHAR2,
3219: x_msg_count OUT NOCOPY NUMBER,
3220: x_msg_data OUT NOCOPY VARCHAR2,
3213: PROCEDURE Update_Schedule_Owner(
3214: p_api_version IN NUMBER,
3215: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3216: p_commit IN VARCHAR2 := FND_API.g_false,
3217: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3218: x_return_status OUT NOCOPY VARCHAR2,
3219: x_msg_count OUT NOCOPY NUMBER,
3220: x_msg_data OUT NOCOPY VARCHAR2,
3221: p_object_type IN VARCHAR2 := NULL ,
3262: IF (AMS_DEBUG_HIGH_ON) THEN
3263:
3264: AMS_Utility_PVT.debug_message('Update schedule owner ');
3265: END IF;
3266: x_return_status := FND_API.g_ret_sts_success;
3267:
3268: OPEN c_owner ;
3269: FETCH c_owner INTO l_old_owner, l_campaign_id ;
3270: IF c_owner%NOTFOUND THEN
3269: FETCH c_owner INTO l_old_owner, l_campaign_id ;
3270: IF c_owner%NOTFOUND THEN
3271: CLOSE c_owner;
3272: AMS_Utility_Pvt.Error_Message('AMS_API_RECORD_NOT_FOUND');
3273: RAISE FND_API.g_exc_error;
3274: END IF;
3275: CLOSE c_owner ;
3276:
3277: IF p_owner_id <> l_old_owner THEN
3290: p_resource_id => p_owner_id,
3291: p_old_resource_id => l_old_owner
3292: );
3293:
3294: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3295: RAISE FND_API.G_EXC_ERROR;
3296: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3298: END IF;
3291: p_old_resource_id => l_old_owner
3292: );
3293:
3294: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3295: RAISE FND_API.G_EXC_ERROR;
3296: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3298: END IF;
3299:
3292: );
3293:
3294: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3295: RAISE FND_API.G_EXC_ERROR;
3296: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3298: END IF;
3299:
3300: -- get all the access list ppl of campaign
3293:
3294: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3295: RAISE FND_API.G_EXC_ERROR;
3296: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3298: END IF;
3299:
3300: -- get all the access list ppl of campaign
3301: -- check if they are not in the access list of the schedule
3333:
3334: p_access_rec => l_access_rec,
3335: x_access_id => l_dummy_id
3336: );
3337: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3338: CLOSE c_access_csch_det;
3339: CLOSE c_access_camp_det;
3340: RAISE FND_API.G_EXC_ERROR;
3341: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3336: );
3337: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3338: CLOSE c_access_csch_det;
3339: CLOSE c_access_camp_det;
3340: RAISE FND_API.G_EXC_ERROR;
3341: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3342: CLOSE c_access_csch_det;
3343: CLOSE c_access_camp_det;
3344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3337: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3338: CLOSE c_access_csch_det;
3339: CLOSE c_access_camp_det;
3340: RAISE FND_API.G_EXC_ERROR;
3341: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3342: CLOSE c_access_csch_det;
3343: CLOSE c_access_camp_det;
3344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3345: END IF;
3340: RAISE FND_API.G_EXC_ERROR;
3341: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3342: CLOSE c_access_csch_det;
3343: CLOSE c_access_camp_det;
3344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3345: END IF;
3346:
3347:
3348: ELSE
3412:
3413: WHILE l_cnt < p_msg_count
3414: LOOP
3415: FND_MSG_PUB.Get(p_msg_index => l_cnt + 1,
3416: p_encoded => FND_API.G_FALSE,
3417: p_data => l_msg_data,
3418: p_msg_index_out => l_msg_index ) ;
3419: l_final_data := l_final_data ||l_msg_index||': '||l_msg_data||fnd_global.local_chr(10);
3420: l_cnt := l_cnt + 1 ;
4033: WHERE schedule_id = l_csch_id ;
4034:
4035: l_csch_owner_user_id NUMBER;
4036: l_schedule_id NUMBER;
4037: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success ;
4038: l_log_return_status VARCHAR2(1) := FND_API.g_ret_sts_success ;
4039: l_activity_id NUMBER;
4040: l_msg_count NUMBER;
4041: l_msg_data VARCHAR2(2000);
4034:
4035: l_csch_owner_user_id NUMBER;
4036: l_schedule_id NUMBER;
4037: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success ;
4038: l_log_return_status VARCHAR2(1) := FND_API.g_ret_sts_success ;
4039: l_activity_id NUMBER;
4040: l_msg_count NUMBER;
4041: l_msg_data VARCHAR2(2000);
4042: l_list_id NUMBER;
4078: FETCH c_tgrp_det INTO l_list_id ;
4079: CLOSE c_tgrp_det ;
4080:
4081:
4082: IF FND_API.G_TRUE = Target_Group_Exist(l_schedule_id)
4083: THEN
4084: --
4085: -- Yes => 1.1 Increase usage
4086: --
4094:
4095: AMS_List_Purge_PVT.Increase_Usage
4096: (
4097: p_api_version => 1.0,
4098: p_init_msg_list => FND_API.g_false,
4099: p_commit => FND_API.g_false,
4100: p_validation_level => FND_API.g_valid_level_full,
4101: x_return_status => l_return_status,
4102: x_msg_count => l_msg_count,
4095: AMS_List_Purge_PVT.Increase_Usage
4096: (
4097: p_api_version => 1.0,
4098: p_init_msg_list => FND_API.g_false,
4099: p_commit => FND_API.g_false,
4100: p_validation_level => FND_API.g_valid_level_full,
4101: x_return_status => l_return_status,
4102: x_msg_count => l_msg_count,
4103: x_msg_data => l_msg_data,
4096: (
4097: p_api_version => 1.0,
4098: p_init_msg_list => FND_API.g_false,
4099: p_commit => FND_API.g_false,
4100: p_validation_level => FND_API.g_valid_level_full,
4101: x_return_status => l_return_status,
4102: x_msg_count => l_msg_count,
4103: x_msg_data => l_msg_data,
4104: p_list_header_id => l_list_id -- target group id
4103: x_msg_data => l_msg_data,
4104: p_list_header_id => l_list_id -- target group id
4105: );
4106:
4107: IF l_return_status <> FND_API.g_ret_sts_success THEN
4108: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
4109: itemkey => itemkey,
4110: aname => 'ERROR_FLAG',
4111: avalue => 'Y');
4135: AMS_Listheader_PVT.Update_Prev_Contacted_Count(
4136: p_used_by_id => l_schedule_id,
4137: p_used_by => 'CSCH',
4138: p_last_contacted_date => sysdate,
4139: p_init_msg_list => FND_API.g_false,
4140: p_commit => FND_API.g_false,
4141: x_return_status => l_return_status,
4142: x_msg_count => l_msg_count,
4143: x_msg_data => l_msg_data
4136: p_used_by_id => l_schedule_id,
4137: p_used_by => 'CSCH',
4138: p_last_contacted_date => sysdate,
4139: p_init_msg_list => FND_API.g_false,
4140: p_commit => FND_API.g_false,
4141: x_return_status => l_return_status,
4142: x_msg_count => l_msg_count,
4143: x_msg_data => l_msg_data
4144: );
4142: x_msg_count => l_msg_count,
4143: x_msg_data => l_msg_data
4144: );
4145:
4146: IF l_return_status <> FND_API.g_ret_sts_success THEN
4147: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
4148: itemkey => itemkey,
4149: aname => 'ERROR_FLAG',
4150: avalue => 'Y');
4215: CLOSE c_csch_det;
4216:
4217: AMS_Fulfill_PVT.Ams_Fulfill(
4218: p_api_version => 1.0,
4219: p_init_msg_list => FND_API.g_false,
4220: p_commit => FND_API.g_false,
4221: x_return_status => l_return_status,
4222: x_msg_count => l_msg_count,
4223: x_msg_data => l_msg_data,
4216:
4217: AMS_Fulfill_PVT.Ams_Fulfill(
4218: p_api_version => 1.0,
4219: p_init_msg_list => FND_API.g_false,
4220: p_commit => FND_API.g_false,
4221: x_return_status => l_return_status,
4222: x_msg_count => l_msg_count,
4223: x_msg_data => l_msg_data,
4224: x_request_history_id => l_request_id,
4234: p_msg_data => 'Execute_Direct_Marketing : Call to fulfillment : Return status is '||l_return_status,
4235: p_msg_type => 'DEBUG'
4236: );
4237:
4238: IF l_return_status <> FND_API.g_ret_sts_success THEN
4239: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
4240: itemkey => itemkey,
4241: aname => 'ERROR_FLAG',
4242: avalue => 'Y');
4259: );
4260:
4261: Update_List_Sent_Out_Date(
4262: p_api_version => 1.0,
4263: p_init_msg_list => FND_API.g_false,
4264: p_commit => FND_API.g_false,
4265:
4266: x_return_status => l_return_status,
4267: x_msg_count => l_msg_count,
4260:
4261: Update_List_Sent_Out_Date(
4262: p_api_version => 1.0,
4263: p_init_msg_list => FND_API.g_false,
4264: p_commit => FND_API.g_false,
4265:
4266: x_return_status => l_return_status,
4267: x_msg_count => l_msg_count,
4268: x_msg_data => l_msg_data,
4276: p_msg_data => 'Execute_Direct_Marketing : update_list_send_out_date : Return status is '||l_return_status,
4277: p_msg_type => 'DEBUG'
4278: );
4279:
4280: IF l_return_status <> FND_API.g_ret_sts_success THEN
4281: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
4282: itemkey => itemkey,
4283: aname => 'ERROR_FLAG',
4284: avalue => 'Y');
4373: actid IN NUMBER,
4374: funcmode IN VARCHAR2,
4375: result OUT NOCOPY VARCHAR2) IS
4376: l_schedule_id NUMBER;
4377: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success ;
4378: l_msg_count NUMBER;
4379: l_msg_data VARCHAR2(2000);
4380: l_user_id NUMBER;
4381: l_resp_id NUMBER;
4412: p_msg_data => 'Execute_Sales : done',
4413: p_msg_type => 'DEBUG'
4414: );
4415:
4416: IF l_return_status <> FND_API.g_ret_sts_success THEN
4417: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
4418: itemkey => itemkey,
4419: aname => 'ERROR_FLAG',
4420: avalue => 'Y');
4603: -- soagrawa 09-dec-2005 added this variable for bug 4461415
4604: l_batch_size NUMBER := 1000;
4605:
4606: BEGIN
4607: x_return_status := FND_API.g_ret_sts_success;
4608:
4609: IF (AMS_DEBUG_HIGH_ON) THEN
4610: AMS_Utility_PVT.debug_message('generate_leads: Enter');
4611: END IF;
4615: IF (AMS_DEBUG_HIGH_ON) THEN
4616: AMS_UTILITY_Pvt.debug_message('generate_leads: Unsupported object type : '||p_obj_type);
4617: END IF;
4618:
4619: x_return_status := FND_API.g_ret_sts_error;
4620: return;
4621: END IF;
4622:
4623: AMS_Utility_PVT.Create_Log (
4660: IF (AMS_DEBUG_HIGH_ON) THEN
4661: AMS_UTILITY_Pvt.debug_message('generate_leads: No Schedule details found for '||TO_CHAR(p_obj_id));
4662: END IF;
4663: CLOSE c_schedule_details_csr;
4664: x_return_status := FND_API.g_ret_sts_error;
4665: return;
4666: END IF;
4667: CLOSE c_schedule_details_csr;
4668:
4892: p_log_used_by_id => p_obj_id,
4893: p_msg_data => l_msg_data,
4894: p_msg_type => 'DEBUG'
4895: );
4896: x_return_status := FND_API.g_ret_sts_error;
4897: --insert_log_mesg('Anirban inside generate_leads api,ERROR occured in the conc. program. ');
4898: return;
4899: END IF;
4900:
5494: x_msg_count => l_msg_count,
5495: x_msg_data => l_msg_data);
5496:
5497:
5498: IF l_return_status = FND_API.G_RET_STS_SUCCESS
5499: THEN
5500: WRITE_LOG(l_api_name, 'Wf_Repeat_Scheduler: Schedule_Repeat returned success for next run date for schedule id: '||l_schedule_id);
5501: WRITE_LOG(l_api_name, 'Wf_Repeat_Scheduler: Schedule_Repeat returned next run date is : '||to_char(l_scheduler_next_run_date,'DD-MON-RRRR HH24:MI:SS')||' Schedule Id is : '||l_schedule_id);
5502:
5505: aname => 'AMS_SCHEDULER_NEXT_RUN_ST_DATE',
5506: avalue => l_scheduler_next_run_date);
5507:
5508: result := 'COMPLETE:SUCCESS' ;
5509: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS
5510: THEN
5511: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
5512: itemkey => itemkey,
5513: aname => 'ERROR_FLAG',
5699: aname => 'AMS_SCHEDULER_FREQUENCY_TYPE');
5700:
5701: --anchaudh: commented out on 11 Jun '05 to fix bug#4477717 .
5702: /*AMS_UTILITY_PVT.Convert_Timezone(
5703: p_init_msg_list => FND_API.G_TRUE,
5704: x_return_status => l_return_status,
5705: x_msg_count => l_msg_count,
5706: x_msg_data => l_msg_data,
5707: p_user_tz_id => l_timezone,
5718: x_return_status => l_return_status,
5719: x_msg_count => l_msg_count,
5720: x_msg_data => l_msg_data);
5721:
5722: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)
5723: THEN
5724: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
5725: itemkey => itemkey,
5726: aname => 'ERROR_FLAG',
5740:
5741:
5742:
5743: -- If any errors happen let start time be sysdate
5744: /*IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5745: l_usr_start_time := SYSDATE;
5746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5747: l_usr_start_time := SYSDATE;
5748: END IF;*/
5742:
5743: -- If any errors happen let start time be sysdate
5744: /*IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5745: l_usr_start_time := SYSDATE;
5746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5747: l_usr_start_time := SYSDATE;
5748: END IF;*/
5749:
5750: --IF l_schedule_end_date > nvl(l_parent_end_date, l_campaign_end_date)
5761: x_msg_data => l_msg_data,
5762: x_return_status => l_return_status
5763: );
5764:
5765: IF l_return_status = FND_API.G_RET_STS_SUCCESS
5766: THEN
5767: WRITE_LOG(l_api_name, 'WF_REPEAT_CREATE_CSCH: Create next schedule returned Success ');
5768:
5769: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
5771: aname => 'AMS_NEW_SCHEDULE_ID',
5772: avalue => l_child_sched_id);
5773:
5774: result := 'COMPLETE:SUCCESS' ;
5775: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS
5776: THEN
5777: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
5778: itemkey => itemkey,
5779: aname => 'ERROR_FLAG',
6045: l_association_id NUMBER;
6046: l_citem_id NUMBER;
6047: l_citem_ver_id NUMBER;
6048: l_Return_status varchar2(20);
6049: l_log_return_status VARCHAR2(1) := FND_API.g_ret_sts_success ;
6050:
6051: CURSOR c_citem_assoc (l_csch_id IN NUMBER) IS
6052: SELECT assoc.association_id, assoc.content_item_id, ci.live_citem_version_id
6053: FROM ibc_associations assoc, ibc_content_Items ci