[Home] [Help]
164: -- choang - 18-May-2000
165: -- Added additional error handling for missing date
166: -- format and invalid date format.
167: IF l_date_pattern IS NULL OR l_date_pattern = '' THEN
168: AMS_Utility_PVT.error_message ('AMS_SRCGEN_NO_DATE_PATTERN');
169: RAISE FND_API.g_exc_error;
170: ELSIF LENGTH (l_date_pattern) > MAX_DATE_LENGTH THEN
171: AMS_Utility_PVT.error_message ('AMS_SRCGEN_DATE_TOO_LONG');
172: RAISE FND_API.g_exc_error;
167: IF l_date_pattern IS NULL OR l_date_pattern = '' THEN
168: AMS_Utility_PVT.error_message ('AMS_SRCGEN_NO_DATE_PATTERN');
169: RAISE FND_API.g_exc_error;
170: ELSIF LENGTH (l_date_pattern) > MAX_DATE_LENGTH THEN
171: AMS_Utility_PVT.error_message ('AMS_SRCGEN_DATE_TOO_LONG');
172: RAISE FND_API.g_exc_error;
173: END IF;
174:
175: BEGIN
176: l_date_code := TO_CHAR (SYSDATE, l_date_pattern);
177: EXCEPTION
178: WHEN OTHERS THEN
179: IF SQLCODE = -1821 THEN -- date format not recognized
180: AMS_Utility_PVT.error_message ('AMS_SRCGEN_BAD_DATE_PATTERN');
181: RAISE FND_API.g_exc_error;
182: END IF;
183: END;
184:
244: l_lookup_type := 'AMS_EVENT_TYPE';
245: ELSIF p_arc_object = 'OFFR' THEN
246: l_lookup_type := 'AMS_OFFER_TYPE';
247: ELSE
248: AMS_Utility_PVT.error_message('AMS_SCG_BAD_ARC_OBJECT');
249: RAISE FND_API.g_exc_error;
250: END IF;
251:
252: IF p_type_code IS NULL THEN
256: FETCH c_prefix INTO l_prefix;
257: CLOSE c_prefix;
258:
259: IF l_prefix IS NULL THEN
260: AMS_Utility_PVT.error_message('AMS_SCG_BAD_TYPE_CODE');
261: RAISE FND_API.g_exc_error;
262: END IF;
263: END IF;
264:
307: OPEN c_camp;
308: FETCH c_camp INTO l_type;
309: IF c_camp%NOTFOUND THEN
310: CLOSE c_camp;
311: AMS_Utility_PVT.error_message('AMS_SCG_BAD_PARENT_ID');
312: RAISE FND_API.g_exc_error;
313: END IF;
314: CLOSE c_camp;
315: RETURN get_source_code('CAMP', l_type);
317: OPEN c_eveh;
318: FETCH c_eveh INTO l_type;
319: IF c_eveh%NOTFOUND THEN
320: CLOSE c_eveh;
321: AMS_Utility_PVT.error_message('AMS_SCG_BAD_PARENT_ID');
322: RAISE FND_API.g_exc_error;
323: END IF;
324: CLOSE c_eveh;
325: RETURN get_source_code('EVEH', l_type);
323: END IF;
324: CLOSE c_eveh;
325: RETURN get_source_code('EVEH', l_type);
326: ELSE
327: AMS_Utility_PVT.error_message('AMS_SCG_BAD_ARC_OBJECT');
328: RAISE FND_API.g_exc_error;
329: END IF;
330:
331: END;
445: IF (AMS_DEBUG_HIGH_ON) THEN
446:
447:
448:
449: AMS_Utility_PVT.debug_message(l_full_name||': start');
450:
451: END IF;
452:
453: IF FND_API.to_boolean(p_init_msg_list) THEN
470: -- FOllowing line is modified by rrajesh on 02/02/02 to add a new object DILG.
471: --IF p_sourcecode_for not in ( 'CAMP', 'CSCH', 'OFFR', 'EVEH', 'EVEO','EONE')
472: IF p_sourcecode_for not in ( 'CAMP', 'CSCH', 'OFFR', 'EVEH', 'EVEO','EONE', 'DILG')
473: THEN
474: AMS_Utility_PVT.error_message('AMS_SCG_BAD_ARC_OBJECT');
475: RAISE FND_API.g_exc_error;
476: END IF;
477: /* 12-APR-2001 julou removed validation as Nari requested
478: -- 10-APR-2001 julou added validation for related source
480:
481: -- check arc obj for related source code
482: IF p_releated_sourceobj NOT IN ( 'CAMP', 'CSCH', 'OFFR', 'EVEH', 'EVEO','EONE')
483: THEN
484: AMS_Utility_PVT.error_message('AMS_SCG_BAD_ARC_OBJECT');
485: RAISE FND_API.g_exc_error;
486: END IF;
487:
488: -- check the existense of related source code
490: OPEN c_related_source_code;
491: FETCH c_related_source_code INTO l_dummy_char;
492: IF c_related_source_code%NOTFOUND THEN
493: CLOSE c_related_source_code;
494: AMS_UTILITY_PVT.error_message('AMS_RELATE_SRC_CODE_NOT_FOUND');
495: RAISE FND_API.g_exc_error;
496: END IF;
497: CLOSE c_related_source_code;
498: END IF;
499: -- end of the added by julou
500: */
501: IF (AMS_DEBUG_HIGH_ON) THEN
502:
503: AMS_Utility_PVT.debug_message(l_full_name ||': check if source code for object is already active');
504: END IF;
505:
506: open c_active_object;
507: fetch c_active_object into l_dummy_char;
508: if c_active_object%found
509: then
510: close c_active_object;
511: -- raise an error The object already uses a valid source code.
512: AMS_UTILITY_PVT.error_message('AMS_OBJECT_CODE_ACTIVE');
513: RAISE FND_API.g_exc_error ;
514: end if;
515: close c_active_object;
516:
517: IF (AMS_DEBUG_HIGH_ON) THEN
518:
519:
520:
521: AMS_Utility_PVT.debug_message(l_full_name ||': check uniqueness');
522:
523: END IF;
524:
525: if is_source_code_unique(p_sourcecode) = FND_API.g_true
525: if is_source_code_unique(p_sourcecode) = FND_API.g_true
526: then
527: IF (AMS_DEBUG_HIGH_ON) THEN
528:
529: AMS_Utility_PVT.debug_message(l_full_name ||': insert source code');
530: END IF;
531:
532: -- fetch the source code id
533: open c_sourcecode_seq;
576: then
577: -- if the source is cancelled then modify it
578: IF (AMS_DEBUG_HIGH_ON) THEN
579:
580: AMS_Utility_PVT.debug_message(l_full_name ||': modifying source code');
581: END IF;
582: modify_sourcecode(
583: p_source_code => p_sourcecode,
584: p_object_type => p_sourcecode_for,
596: END IF;
597: elsif l_sc_active_flag = 'Y'
598: then
599: -- raise an error The source code is already being used.
600: AMS_UTILITY_PVT.error_message('AMS_DUPLICATE_SOURCE_CODE');
601: RAISE FND_API.g_exc_error;
602: end if;
603: end if;
604:
684: IF (AMS_DEBUG_HIGH_ON) THEN
685:
686:
687:
688: AMS_Utility_PVT.debug_message(l_full_name||': start');
689:
690: END IF;
691:
692: IF FND_API.to_boolean(p_init_msg_list) THEN
732: IF (AMS_DEBUG_HIGH_ON) THEN
733:
734:
735:
736: AMS_Utility_PVT.debug_message(l_full_name ||': end');
737:
738: END IF;
739:
740: EXCEPTION
803: IF (AMS_DEBUG_HIGH_ON) THEN
804:
805:
806:
807: AMS_Utility_PVT.debug_message(' modifying source code record');
808:
809: END IF;
810:
811: update AMS_SOURCE_CODES
830: IF (AMS_DEBUG_HIGH_ON) THEN
831:
832:
833:
834: AMS_Utility_PVT.debug_message(' modify source code end ');
835:
836: END IF;
837:
838:
874: --
875: -- choang - 18-May-2000
876: -- Added error handling for sequence_length.
877: IF l_sequence_length IS NULL THEN
878: AMS_Utility_PVT.error_message ('AMS_SRCGEN_NO_NUMBER_SIZE');
879: RAISE FND_API.g_exc_error;
880: END IF;
881: IF l_sequence_length NOT BETWEEN MIN_SEQUENCE_LENGTH AND MAX_SEQUENCE_LENGTH THEN
882: AMS_Utility_PVT.error_message ('AMS_SRCGEN_BAD_NUMBER_SIZE');
878: AMS_Utility_PVT.error_message ('AMS_SRCGEN_NO_NUMBER_SIZE');
879: RAISE FND_API.g_exc_error;
880: END IF;
881: IF l_sequence_length NOT BETWEEN MIN_SEQUENCE_LENGTH AND MAX_SEQUENCE_LENGTH THEN
882: AMS_Utility_PVT.error_message ('AMS_SRCGEN_BAD_NUMBER_SIZE');
883: RAISE FND_API.g_exc_error;
884: END IF;
885:
886: -- Pad the number format with 9's
938: -- Loop through all possible sequences
939: -- within the range of digits before
940: -- giving an error message.
941: IF l_ref_sequence = l_sequence_value THEN
942: AMS_Utility_PVT.error_message ('AMS_SRCGEN_OUT_OF_NUMBERS');
943: RAISE FND_API.g_exc_error;
944: END IF;
945: END LOOP;
946: