DBA Data[Home] [Help]

APPS.AMS_SOURCECODE_PVT dependencies on FND_API

Line 48: RETURN FND_API.g_false;

44: FETCH c_source_code INTO l_dummy;
45: CLOSE c_source_code;
46:
47: IF l_dummy = 1 THEN
48: RETURN FND_API.g_false;
49: ELSE
50: RETURN FND_API.g_true;
51: END IF;
52:

Line 50: RETURN FND_API.g_true;

46:
47: IF l_dummy = 1 THEN
48: RETURN FND_API.g_false;
49: ELSE
50: RETURN FND_API.g_true;
51: END IF;
52:
53: END;
54:

Line 93: p_global_flag IN VARCHAR2 := FND_API.g_false

89: -----------------------------------------------------------------
90: FUNCTION get_new_source_code (
91: p_object_type IN VARCHAR2,
92: p_custsetup_id IN NUMBER,
93: p_global_flag IN VARCHAR2 := FND_API.g_false
94: )
95: RETURN VARCHAR2
96: IS
97: L_CITY_PROFILE CONSTANT VARCHAR2(30) := 'AMS_SRCGEN_USER_CITY';

Line 122: -- SELECT DECODE (p_global_flag, FND_API.g_true, area1_code, area2_code)

118:
119: CURSOR c_geo_code (p_global_flag IN VARCHAR2, p_loc_hierarchy_id IN NUMBER) IS
120: -- Following one line is changed by ptendulk on 30-Aug-2000 to support
121: -- the global flag
122: -- SELECT DECODE (p_global_flag, FND_API.g_true, area1_code, area2_code)
123: SELECT DECODE (p_global_flag, 'Y', area1_code, area2_code)
124: FROM jtf_loc_hierarchies_vl
125: WHERE location_hierarchy_id = p_loc_hierarchy_id
126: ;

Line 169: RAISE FND_API.g_exc_error;

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;
173: END IF;

Line 172: RAISE FND_API.g_exc_error;

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);

Line 181: RAISE FND_API.g_exc_error;

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:
185: --

Line 249: RAISE FND_API.g_exc_error;

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
253: l_prefix := p_arc_object;

Line 261: RAISE FND_API.g_exc_error;

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:
265: LOOP

Line 271: EXIT WHEN is_source_code_unique(l_source_code) = FND_API.g_true;

267: FETCH c_seq INTO l_code;
268: CLOSE c_seq;
269:
270: l_source_code := l_prefix || l_code;
271: EXIT WHEN is_source_code_unique(l_source_code) = FND_API.g_true;
272: END LOOP;
273:
274: RETURN l_source_code;
275:

Line 312: RAISE FND_API.g_exc_error;

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);
316: ELSIF p_arc_object = 'EVEO' THEN

Line 322: RAISE FND_API.g_exc_error;

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);
326: ELSE

Line 328: RAISE FND_API.g_exc_error;

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;
332:

Line 379: EXIT WHEN is_source_code_unique(l_code) = FND_API.g_true;

375: LOOP
376: OPEN c_seq;
377: FETCH c_seq INTO l_code;
378: CLOSE c_seq;
379: EXIT WHEN is_source_code_unique(l_code) = FND_API.g_true;
380: END LOOP;
381: RETURN l_code;
382:
383: END get_source_code;

Line 391: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

387: -- create_sourcecode
388: -----------------------------------------------------------------
389: PROCEDURE create_sourcecode(
390: p_api_version IN NUMBER,
391: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
392: p_commit IN VARCHAR2 := FND_API.g_false,
393: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
394:
395: x_return_status OUT NOCOPY VARCHAR2,

Line 392: p_commit IN VARCHAR2 := FND_API.g_false,

388: -----------------------------------------------------------------
389: PROCEDURE create_sourcecode(
390: p_api_version IN NUMBER,
391: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
392: p_commit IN VARCHAR2 := FND_API.g_false,
393: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
394:
395: x_return_status OUT NOCOPY VARCHAR2,
396: x_msg_count OUT NOCOPY NUMBER,

Line 393: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

389: PROCEDURE create_sourcecode(
390: p_api_version IN NUMBER,
391: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
392: p_commit IN VARCHAR2 := FND_API.g_false,
393: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
394:
395: x_return_status OUT NOCOPY VARCHAR2,
396: x_msg_count OUT NOCOPY NUMBER,
397: x_msg_data OUT NOCOPY VARCHAR2,

Line 453: IF FND_API.to_boolean(p_init_msg_list) THEN

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
454: FND_MSG_PUB.initialize;
455: END IF;
456:
457: IF NOT FND_API.compatible_api_call(

Line 457: IF NOT FND_API.compatible_api_call(

453: IF FND_API.to_boolean(p_init_msg_list) THEN
454: FND_MSG_PUB.initialize;
455: END IF;
456:
457: IF NOT FND_API.compatible_api_call(
458: l_api_version,
459: p_api_version,
460: l_api_name,
461: g_pkg_name

Line 464: --RAISE FND_API.g_exc_unexpected_error;

460: l_api_name,
461: g_pkg_name
462: ) THEN
463: NULL;
464: --RAISE FND_API.g_exc_unexpected_error;
465: END IF;
466: x_return_status := FND_API.g_ret_sts_success;
467:
468: ----------------------- validate -----------------------

Line 466: x_return_status := FND_API.g_ret_sts_success;

462: ) THEN
463: NULL;
464: --RAISE FND_API.g_exc_unexpected_error;
465: END IF;
466: x_return_status := FND_API.g_ret_sts_success;
467:
468: ----------------------- validate -----------------------
469: -- check arc object
470: -- FOllowing line is modified by rrajesh on 02/02/02 to add a new object DILG.

Line 475: RAISE FND_API.g_exc_error;

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
479: -- validate related source code

Line 485: RAISE FND_API.g_exc_error;

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
489: IF p_related_sourcecode IS NOT NULL THEN

Line 495: RAISE FND_API.g_exc_error;

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

Line 513: RAISE FND_API.g_exc_error ;

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

Line 525: if is_source_code_unique(p_sourcecode) = FND_API.g_true

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
526: then
527: IF (AMS_DEBUG_HIGH_ON) THEN
528:
529: AMS_Utility_PVT.debug_message(l_full_name ||': insert source code');

Line 592: IF l_return_status = FND_API.g_ret_sts_error THEN

588: p_releated_sourceobj => p_releated_sourceobj,
589: p_related_sourceid => p_related_sourceid,
590: x_return_status => l_return_status
591: ) ;
592: IF l_return_status = FND_API.g_ret_sts_error THEN
593: RAISE FND_API.g_exc_error;
594: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
595: RAISE FND_API.g_exc_unexpected_error;
596: END IF;

Line 593: RAISE FND_API.g_exc_error;

589: p_related_sourceid => p_related_sourceid,
590: x_return_status => l_return_status
591: ) ;
592: IF l_return_status = FND_API.g_ret_sts_error THEN
593: RAISE FND_API.g_exc_error;
594: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
595: RAISE FND_API.g_exc_unexpected_error;
596: END IF;
597: elsif l_sc_active_flag = 'Y'

Line 594: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN

590: x_return_status => l_return_status
591: ) ;
592: IF l_return_status = FND_API.g_ret_sts_error THEN
593: RAISE FND_API.g_exc_error;
594: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
595: RAISE FND_API.g_exc_unexpected_error;
596: END IF;
597: elsif l_sc_active_flag = 'Y'
598: then

Line 595: RAISE FND_API.g_exc_unexpected_error;

591: ) ;
592: IF l_return_status = FND_API.g_ret_sts_error THEN
593: RAISE FND_API.g_exc_error;
594: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
595: RAISE FND_API.g_exc_unexpected_error;
596: END IF;
597: elsif l_sc_active_flag = 'Y'
598: then
599: -- raise an error The source code is already being used.

Line 601: RAISE FND_API.g_exc_error;

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:
605:

Line 606: IF FND_API.to_boolean(p_commit) THEN

602: end if;
603: end if;
604:
605:
606: IF FND_API.to_boolean(p_commit) THEN
607: COMMIT;
608: END IF;
609:
610: FND_MSG_PUB.count_and_get(

Line 611: p_encoded => FND_API.g_false,

607: COMMIT;
608: END IF;
609:
610: FND_MSG_PUB.count_and_get(
611: p_encoded => FND_API.g_false,
612: p_count => x_msg_count,
613: p_data => x_msg_data
614: );
615:

Line 618: WHEN FND_API.g_exc_error THEN

614: );
615:
616: EXCEPTION
617:
618: WHEN FND_API.g_exc_error THEN
619: ROLLBACK TO create_sourcecode;
620: x_return_status := FND_API.g_ret_sts_error;
621: FND_MSG_PUB.count_and_get(
622: p_encoded => FND_API.g_false,

Line 620: x_return_status := FND_API.g_ret_sts_error;

616: EXCEPTION
617:
618: WHEN FND_API.g_exc_error THEN
619: ROLLBACK TO create_sourcecode;
620: x_return_status := FND_API.g_ret_sts_error;
621: FND_MSG_PUB.count_and_get(
622: p_encoded => FND_API.g_false,
623: p_count => x_msg_count,
624: p_data => x_msg_data

Line 622: p_encoded => FND_API.g_false,

618: WHEN FND_API.g_exc_error THEN
619: ROLLBACK TO create_sourcecode;
620: x_return_status := FND_API.g_ret_sts_error;
621: FND_MSG_PUB.count_and_get(
622: p_encoded => FND_API.g_false,
623: p_count => x_msg_count,
624: p_data => x_msg_data
625: );
626:

Line 627: WHEN FND_API.g_exc_unexpected_error THEN

623: p_count => x_msg_count,
624: p_data => x_msg_data
625: );
626:
627: WHEN FND_API.g_exc_unexpected_error THEN
628: ROLLBACK TO create_sourcecode;
629: x_return_status := FND_API.g_ret_sts_unexp_error ;
630: FND_MSG_PUB.count_and_get(
631: p_encoded => FND_API.g_false,

Line 629: x_return_status := FND_API.g_ret_sts_unexp_error ;

625: );
626:
627: WHEN FND_API.g_exc_unexpected_error THEN
628: ROLLBACK TO create_sourcecode;
629: x_return_status := FND_API.g_ret_sts_unexp_error ;
630: FND_MSG_PUB.count_and_get(
631: p_encoded => FND_API.g_false,
632: p_count => x_msg_count,
633: p_data => x_msg_data

Line 631: p_encoded => FND_API.g_false,

627: WHEN FND_API.g_exc_unexpected_error THEN
628: ROLLBACK TO create_sourcecode;
629: x_return_status := FND_API.g_ret_sts_unexp_error ;
630: FND_MSG_PUB.count_and_get(
631: p_encoded => FND_API.g_false,
632: p_count => x_msg_count,
633: p_data => x_msg_data
634: );
635:

Line 639: x_return_status := FND_API.g_ret_sts_unexp_error ;

635:
636:
637: WHEN OTHERS THEN
638: ROLLBACK TO create_sourcecode;
639: x_return_status := FND_API.g_ret_sts_unexp_error ;
640:
641: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
642: THEN
643: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);

Line 647: p_encoded => FND_API.g_false,

643: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
644: END IF;
645:
646: FND_MSG_PUB.count_and_get(
647: p_encoded => FND_API.g_false,
648: p_count => x_msg_count,
649: p_data => x_msg_data
650: );
651:

Line 661: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

657: -- revoke_sourcecode
658: -----------------------------------------------------------------
659: PROCEDURE revoke_sourcecode(
660: p_api_version IN NUMBER,
661: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
662: p_commit IN VARCHAR2 := FND_API.g_false,
663: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
664:
665: x_return_status OUT NOCOPY VARCHAR2,

Line 662: p_commit IN VARCHAR2 := FND_API.g_false,

658: -----------------------------------------------------------------
659: PROCEDURE revoke_sourcecode(
660: p_api_version IN NUMBER,
661: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
662: p_commit IN VARCHAR2 := FND_API.g_false,
663: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
664:
665: x_return_status OUT NOCOPY VARCHAR2,
666: x_msg_count OUT NOCOPY NUMBER,

Line 663: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

659: PROCEDURE revoke_sourcecode(
660: p_api_version IN NUMBER,
661: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
662: p_commit IN VARCHAR2 := FND_API.g_false,
663: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
664:
665: x_return_status OUT NOCOPY VARCHAR2,
666: x_msg_count OUT NOCOPY NUMBER,
667: x_msg_data OUT NOCOPY VARCHAR2,

Line 692: IF FND_API.to_boolean(p_init_msg_list) THEN

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
693: FND_MSG_PUB.initialize;
694: END IF;
695:
696: IF NOT FND_API.compatible_api_call(

Line 696: IF NOT FND_API.compatible_api_call(

692: IF FND_API.to_boolean(p_init_msg_list) THEN
693: FND_MSG_PUB.initialize;
694: END IF;
695:
696: IF NOT FND_API.compatible_api_call(
697: l_api_version,
698: p_api_version,
699: l_api_name,
700: g_pkg_name

Line 702: RAISE FND_API.g_exc_unexpected_error;

698: p_api_version,
699: l_api_name,
700: g_pkg_name
701: ) THEN
702: RAISE FND_API.g_exc_unexpected_error;
703: END IF;
704:
705: x_return_status := FND_API.g_ret_sts_success;
706:

Line 705: x_return_status := FND_API.g_ret_sts_success;

701: ) THEN
702: RAISE FND_API.g_exc_unexpected_error;
703: END IF;
704:
705: x_return_status := FND_API.g_ret_sts_success;
706:
707: update AMS_SOURCE_CODES
708: set active_flag = 'N',
709: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1

Line 718: RAISE FND_API.g_exc_error;

714: THEN
715: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
716: FND_MSG_PUB.add;
717: END IF;
718: RAISE FND_API.g_exc_error;
719: END IF;
720:
721: -------------------- finish --------------------------
722: IF FND_API.to_boolean(p_commit) THEN

Line 722: IF FND_API.to_boolean(p_commit) THEN

718: RAISE FND_API.g_exc_error;
719: END IF;
720:
721: -------------------- finish --------------------------
722: IF FND_API.to_boolean(p_commit) THEN
723: COMMIT;
724: END IF;
725:
726: FND_MSG_PUB.count_and_get(

Line 727: p_encoded => FND_API.g_false,

723: COMMIT;
724: END IF;
725:
726: FND_MSG_PUB.count_and_get(
727: p_encoded => FND_API.g_false,
728: p_count => x_msg_count,
729: p_data => x_msg_data
730: );
731:

Line 742: WHEN FND_API.g_exc_error THEN

738: END IF;
739:
740: EXCEPTION
741:
742: WHEN FND_API.g_exc_error THEN
743: ROLLBACK TO revoke_sourcecode;
744: x_return_status := FND_API.g_ret_sts_error;
745: FND_MSG_PUB.count_and_get(
746: p_encoded => FND_API.g_false,

Line 744: x_return_status := FND_API.g_ret_sts_error;

740: EXCEPTION
741:
742: WHEN FND_API.g_exc_error THEN
743: ROLLBACK TO revoke_sourcecode;
744: x_return_status := FND_API.g_ret_sts_error;
745: FND_MSG_PUB.count_and_get(
746: p_encoded => FND_API.g_false,
747: p_count => x_msg_count,
748: p_data => x_msg_data

Line 746: p_encoded => FND_API.g_false,

742: WHEN FND_API.g_exc_error THEN
743: ROLLBACK TO revoke_sourcecode;
744: x_return_status := FND_API.g_ret_sts_error;
745: FND_MSG_PUB.count_and_get(
746: p_encoded => FND_API.g_false,
747: p_count => x_msg_count,
748: p_data => x_msg_data
749: );
750:

Line 751: WHEN FND_API.g_exc_unexpected_error THEN

747: p_count => x_msg_count,
748: p_data => x_msg_data
749: );
750:
751: WHEN FND_API.g_exc_unexpected_error THEN
752: ROLLBACK TO revoke_sourcecode;
753: x_return_status := FND_API.g_ret_sts_unexp_error ;
754: FND_MSG_PUB.count_and_get(
755: p_encoded => FND_API.g_false,

Line 753: x_return_status := FND_API.g_ret_sts_unexp_error ;

749: );
750:
751: WHEN FND_API.g_exc_unexpected_error THEN
752: ROLLBACK TO revoke_sourcecode;
753: x_return_status := FND_API.g_ret_sts_unexp_error ;
754: FND_MSG_PUB.count_and_get(
755: p_encoded => FND_API.g_false,
756: p_count => x_msg_count,
757: p_data => x_msg_data

Line 755: p_encoded => FND_API.g_false,

751: WHEN FND_API.g_exc_unexpected_error THEN
752: ROLLBACK TO revoke_sourcecode;
753: x_return_status := FND_API.g_ret_sts_unexp_error ;
754: FND_MSG_PUB.count_and_get(
755: p_encoded => FND_API.g_false,
756: p_count => x_msg_count,
757: p_data => x_msg_data
758: );
759:

Line 762: x_return_status := FND_API.g_ret_sts_unexp_error ;

758: );
759:
760: WHEN OTHERS THEN
761: ROLLBACK TO revoke_sourcecode;
762: x_return_status := FND_API.g_ret_sts_unexp_error ;
763:
764: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
765: THEN
766: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);

Line 770: p_encoded => FND_API.g_false,

766: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
767: END IF;
768:
769: FND_MSG_PUB.count_and_get(
770: p_encoded => FND_API.g_false,
771: p_count => x_msg_count,
772: p_data => x_msg_data
773: );
774:

Line 801: x_return_status := FND_API.g_ret_sts_success;

797: BEGIN
798:
799: --------------------- initialize -----------------------
800:
801: x_return_status := FND_API.g_ret_sts_success;
802:
803: IF (AMS_DEBUG_HIGH_ON) THEN
804:
805:

Line 827: x_return_status := FND_API.g_ret_sts_error;

823: THEN
824: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
825: FND_MSG_PUB.add;
826: END IF;
827: x_return_status := FND_API.g_ret_sts_error;
828: END IF;
829:
830: IF (AMS_DEBUG_HIGH_ON) THEN
831:

Line 879: RAISE FND_API.g_exc_error;

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');
883: RAISE FND_API.g_exc_error;

Line 883: RAISE FND_API.g_exc_error;

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
887: -- if the number of digits is more

Line 935: EXIT WHEN is_source_code_unique (l_source_code) = FND_API.g_true;

931: l_sequence_value := MOD (l_sequence_value + 1, POWER(10, l_sequence_length) - 1);
932: l_sequence_code := LTRIM (TO_CHAR (l_sequence_value, l_number_format));
933: l_source_code := p_geo_code || p_date_code || l_sequence_code || p_cust_code;
934:
935: EXIT WHEN is_source_code_unique (l_source_code) = FND_API.g_true;
936:
937: --
938: -- Loop through all possible sequences
939: -- within the range of digits before

Line 943: RAISE FND_API.g_exc_error;

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:
947: -- Update the generate code with the new