45: -- initialize
46: SAVEPOINT create_loc_area;
47:
48: IF FND_API.to_boolean(p_init_msg_list) THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52:
53: JTF_Utility_PVT.debug_message(l_full_name || ': start');
187: IF FND_API.to_boolean(p_commit) THEN
188: COMMIT;
189: END IF;
190:
191: FND_MSG_PUB.count_and_get
192: (
193: p_encoded => FND_API.g_false,
194: p_count => x_msg_count,
195: p_data => x_msg_data
201:
202: WHEN FND_API.g_exc_error THEN
203: ROLLBACK TO create_loc_area;
204: x_return_status := FND_API.g_ret_sts_error;
205: FND_MSG_PUB.count_and_get
206: (
207: p_encoded => FND_API.g_false,
208: p_count => x_msg_count,
209: p_data => x_msg_data
211:
212: WHEN FND_API.g_exc_unexpected_error THEN
213: ROLLBACK TO create_loc_area;
214: x_return_status := FND_API.g_ret_sts_unexp_error;
215: FND_MSG_PUB.count_and_get
216: (
217: p_encoded => FND_API.g_false,
218: p_count => x_msg_count,
219: p_data => x_msg_data
221:
222: WHEN OTHERS THEN
223: ROLLBACK TO create_loc_area;
224: x_return_status :=FND_API.g_ret_sts_unexp_error;
225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
226: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
227: END IF;
228: FND_MSG_PUB.count_and_get
229: (
222: WHEN OTHERS THEN
223: ROLLBACK TO create_loc_area;
224: x_return_status :=FND_API.g_ret_sts_unexp_error;
225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
226: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
227: END IF;
228: FND_MSG_PUB.count_and_get
229: (
230: p_encoded => FND_API.g_false,
224: x_return_status :=FND_API.g_ret_sts_unexp_error;
225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
226: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
227: END IF;
228: FND_MSG_PUB.count_and_get
229: (
230: p_encoded => FND_API.g_false,
231: p_count => x_msg_count,
232: p_data => x_msg_data
268: -- initialize
269: SAVEPOINT update_loc_area;
270:
271: IF FND_API.to_boolean(p_init_msg_list) THEN
272: FND_MSG_PUB.initialize;
273: END IF;
274:
275: JTF_Utility_PVT.debug_message(l_full_name || ': start');
276:
358: WHERE location_area_id = l_loc_area_rec.location_area_id
359: AND object_version_number = l_loc_area_rec.object_version_number;
360:
361: IF (SQL%NOTFOUND) THEN
362: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
363: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
364: FND_MSG_PUB.add;
365: END IF;
366: RAISE FND_API.g_exc_error;
360:
361: IF (SQL%NOTFOUND) THEN
362: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
363: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
364: FND_MSG_PUB.add;
365: END IF;
366: RAISE FND_API.g_exc_error;
367: END IF;
368:
376: WHERE location_area_id = l_loc_area_rec.location_area_id
377: AND USERENV('LANG') IN (language, source_lang);
378:
379: IF (SQL%NOTFOUND) THEN
380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
381: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
382: FND_MSG_PUB.add;
383: END IF;
384: RAISE FND_API.g_exc_error;
378:
379: IF (SQL%NOTFOUND) THEN
380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
381: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
382: FND_MSG_PUB.add;
383: END IF;
384: RAISE FND_API.g_exc_error;
385: END IF;
386:
388: IF FND_API.to_boolean(p_commit) THEN
389: COMMIT;
390: END IF;
391:
392: FND_MSG_PUB.count_and_get
393: (
394: P_ENCODED => FND_API.g_false,
395: p_count => x_msg_count,
396: p_data => x_msg_data
402:
403: WHEN FND_API.g_exc_error THEN
404: ROLLBACK TO update_loc_area;
405: x_return_status := FND_API.g_ret_sts_error;
406: FND_MSG_PUB.count_and_get
407: (
408: p_encoded => FND_API.g_false,
409: p_count => x_msg_count,
410: p_data => x_msg_data
412:
413: WHEN FND_API.g_exc_unexpected_error THEN
414: ROLLBACK TO update_loc_area;
415: x_return_status := FND_API.g_ret_sts_unexp_error;
416: FND_MSG_PUB.count_and_get
417: (
418: p_encoded => FND_API.g_false,
419: p_count => x_msg_count,
420: p_data => x_msg_data
422:
423: WHEN OTHERS THEN
424: ROLLBACK TO update_loc_area;
425: x_return_status :=FND_API.g_ret_sts_unexp_error;
426: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
427: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
428: END IF;
429: FND_MSG_PUB.count_and_get
430: (
423: WHEN OTHERS THEN
424: ROLLBACK TO update_loc_area;
425: x_return_status :=FND_API.g_ret_sts_unexp_error;
426: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
427: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
428: END IF;
429: FND_MSG_PUB.count_and_get
430: (
431: p_encoded => FND_API.g_false,
425: x_return_status :=FND_API.g_ret_sts_unexp_error;
426: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
427: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
428: END IF;
429: FND_MSG_PUB.count_and_get
430: (
431: p_encoded => FND_API.g_false,
432: p_count => x_msg_count,
433: p_data => x_msg_data
478:
479: JTF_Utility_PVT.debug_message(l_full_name || ': start');
480:
481: IF FND_API.to_boolean(p_init_msg_list) THEN
482: FND_MSG_PUB.initialize;
483: END IF;
484:
485: IF NOT FND_API.compatible_api_call
486: (
504:
505: -- check if the area has child
506: IF l_child_exist IS NOT NULL
507: THEN
508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
509: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_HAS_CHILD');
510: FND_MSG_PUB.add;
511: END IF;
512: RAISE FND_API.g_exc_error;
506: IF l_child_exist IS NOT NULL
507: THEN
508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
509: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_HAS_CHILD');
510: FND_MSG_PUB.add;
511: END IF;
512: RAISE FND_API.g_exc_error;
513: END IF;
514:
516: DELETE FROM JTF_LOC_AREAS_TL
517: WHERE location_area_id = p_loc_area_id;
518:
519: IF (SQL%NOTFOUND) THEN
520: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
521: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
522: FND_MSG_PUB.add;
523: END IF;
524: RAISE FND_API.g_exc_error;
518:
519: IF (SQL%NOTFOUND) THEN
520: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
521: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
522: FND_MSG_PUB.add;
523: END IF;
524: RAISE FND_API.g_exc_error;
525: END IF;
526:
540: AND object_version_number = p_object_version;
541: -- end of added
542:
543: IF (SQL%NOTFOUND) THEN
544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
545: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
546: FND_MSG_PUB.add;
547: END IF;
548: RAISE FND_API.g_exc_error;
542:
543: IF (SQL%NOTFOUND) THEN
544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
545: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
546: FND_MSG_PUB.add;
547: END IF;
548: RAISE FND_API.g_exc_error;
549: END IF;
550:
552: IF FND_API.to_boolean(p_commit) THEN
553: COMMIT;
554: END IF;
555:
556: FND_MSG_PUB.count_and_get
557: (
558: P_ENCODED => FND_API.g_false,
559: p_count => x_msg_count,
560: p_data => x_msg_data
566:
567: WHEN FND_API.g_exc_error THEN
568: ROLLBACK TO delete_loc_area;
569: x_return_status := FND_API.g_ret_sts_error;
570: FND_MSG_PUB.count_and_get
571: (
572: p_encoded => FND_API.g_false,
573: p_count => x_msg_count,
574: p_data => x_msg_data
576:
577: WHEN FND_API.g_exc_unexpected_error THEN
578: ROLLBACK TO delete_loc_area;
579: x_return_status := FND_API.g_ret_sts_unexp_error;
580: FND_MSG_PUB.count_and_get
581: (
582: p_encoded => FND_API.g_false,
583: p_count => x_msg_count,
584: p_data => x_msg_data
586:
587: WHEN OTHERS THEN
588: ROLLBACK TO delete_loc_area;
589: x_return_status :=FND_API.g_ret_sts_unexp_error;
590: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
591: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
592: END IF;
593: FND_MSG_PUB.count_and_get
594: (
587: WHEN OTHERS THEN
588: ROLLBACK TO delete_loc_area;
589: x_return_status :=FND_API.g_ret_sts_unexp_error;
590: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
591: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
592: END IF;
593: FND_MSG_PUB.count_and_get
594: (
595: p_encoded => FND_API.g_false,
589: x_return_status :=FND_API.g_ret_sts_unexp_error;
590: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
591: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
592: END IF;
593: FND_MSG_PUB.count_and_get
594: (
595: p_encoded => FND_API.g_false,
596: p_count => x_msg_count,
597: p_data => x_msg_data
643: -- initialize
644: JTF_Utility_PVT.debug_message(l_full_name || ': start');
645:
646: IF FND_API.to_boolean(p_init_msg_list) THEN
647: FND_MSG_PUB.initialize;
648: END IF;
649:
650: IF NOT FND_API.compatible_api_call
651: (
666: OPEN c_loc_area_b;
667: FETCH c_loc_area_b INTO l_loc_area_id;
668: IF (c_loc_area_b%NOTFOUND) THEN
669: CLOSE c_loc_area_b;
670: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
671: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
672: FND_MSG_PUB.add;
673: END IF;
674: RAISE FND_API.g_exc_error;
668: IF (c_loc_area_b%NOTFOUND) THEN
669: CLOSE c_loc_area_b;
670: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
671: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
672: FND_MSG_PUB.add;
673: END IF;
674: RAISE FND_API.g_exc_error;
675: END IF;
676: CLOSE c_loc_area_b;
678: OPEN c_loc_area_tl;
679: FETCH c_loc_area_tl INTO l_loc_area_id;
680: IF (c_loc_area_tl%NOTFOUND) THEN
681: CLOSE c_loc_area_tl;
682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
683: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
684: FND_MSG_PUB.add;
685: END IF;
686: RAISE FND_API.g_exc_error;
680: IF (c_loc_area_tl%NOTFOUND) THEN
681: CLOSE c_loc_area_tl;
682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
683: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
684: FND_MSG_PUB.add;
685: END IF;
686: RAISE FND_API.g_exc_error;
687: END IF;
688: CLOSE c_loc_area_tl;
687: END IF;
688: CLOSE c_loc_area_tl;
689:
690: -- finish
691: FND_MSG_PUB.count_and_get
692: (
693: p_encoded => FND_API.g_false,
694: p_count => x_msg_count,
695: p_data => x_msg_data
700: EXCEPTION
701:
702: WHEN JTF_Utility_PVT.resource_locked THEN
703: x_return_status := FND_API.g_ret_sts_error;
704: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
705: FND_MESSAGE.set_name('JTF', 'JTF_API_RESOURCE_LOCKED');
706: FND_MSG_PUB.add;
707: END IF;
708: FND_MSG_PUB.count_and_get
702: WHEN JTF_Utility_PVT.resource_locked THEN
703: x_return_status := FND_API.g_ret_sts_error;
704: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
705: FND_MESSAGE.set_name('JTF', 'JTF_API_RESOURCE_LOCKED');
706: FND_MSG_PUB.add;
707: END IF;
708: FND_MSG_PUB.count_and_get
709: (
710: p_encoded => FND_API.g_false,
704: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
705: FND_MESSAGE.set_name('JTF', 'JTF_API_RESOURCE_LOCKED');
706: FND_MSG_PUB.add;
707: END IF;
708: FND_MSG_PUB.count_and_get
709: (
710: p_encoded => FND_API.g_false,
711: p_count => x_msg_count,
712: p_data => x_msg_data
713: );
714:
715: WHEN FND_API.g_exc_error THEN
716: x_return_status := FND_API.g_ret_sts_error;
717: FND_MSG_PUB.count_and_get
718: (
719: p_encoded => FND_API.g_false,
720: p_count => x_msg_count,
721: p_data => x_msg_data
722: );
723:
724: WHEN FND_API.g_exc_unexpected_error THEN
725: x_return_status := FND_API.g_ret_sts_unexp_error;
726: FND_MSG_PUB.count_and_get
727: (
728: p_encoded => FND_API.g_false,
729: p_count => x_msg_count,
730: p_data => x_msg_data
731: );
732:
733: WHEN OTHERS THEN
734: x_return_status :=FND_API.g_ret_sts_unexp_error;
735: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
736: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
737: END IF;
738: FND_MSG_PUB.count_and_get
739: (
732:
733: WHEN OTHERS THEN
734: x_return_status :=FND_API.g_ret_sts_unexp_error;
735: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
736: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
737: END IF;
738: FND_MSG_PUB.count_and_get
739: (
740: p_encoded => FND_API.g_false,
734: x_return_status :=FND_API.g_ret_sts_unexp_error;
735: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
736: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
737: END IF;
738: FND_MSG_PUB.count_and_get
739: (
740: p_encoded => FND_API.g_false,
741: p_count => x_msg_count,
742: p_data => x_msg_data
823: RAISE FND_API.g_exc_error;
824: END IF;
825: END IF;
826: -------------------- finish --------------------------
827: FND_MSG_PUB.count_and_get
828: (
829: p_encoded => FND_API.g_false,
830: p_count => x_msg_count,
831: p_data => x_msg_data
835:
836: EXCEPTION
837: WHEN FND_API.g_exc_error THEN
838: x_return_status := FND_API.g_ret_sts_error;
839: FND_MSG_PUB.count_and_get
840: (
841: p_encoded => FND_API.g_false,
842: p_count => x_msg_count,
843: p_data => x_msg_data
844: );
845:
846: WHEN FND_API.g_exc_unexpected_error THEN
847: x_return_status := FND_API.g_ret_sts_unexp_error ;
848: FND_MSG_PUB.count_and_get
849: (
850: p_encoded => FND_API.g_false,
851: p_count => x_msg_count,
852: p_data => x_msg_data
853: );
854:
855: WHEN OTHERS THEN
856: x_return_status := FND_API.g_ret_sts_unexp_error;
857: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
858: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
859: END IF;
860:
861: FND_MSG_PUB.count_and_get
854:
855: WHEN OTHERS THEN
856: x_return_status := FND_API.g_ret_sts_unexp_error;
857: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
858: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
859: END IF;
860:
861: FND_MSG_PUB.count_and_get
862: (
857: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
858: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
859: END IF;
860:
861: FND_MSG_PUB.count_and_get
862: (
863: p_encoded => FND_API.g_false,
864: p_count => x_msg_count,
865: p_data => x_msg_data
961:
962: -- check location_area_id
963: IF p_loc_area_rec.location_area_id IS NULL
964: AND p_validation_mode = JTF_PLSQL_API.g_update THEN
965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
966: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_LOC_AREA_ID');
967: FND_MSG_PUB.add;
968: END IF;
969:
963: IF p_loc_area_rec.location_area_id IS NULL
964: AND p_validation_mode = JTF_PLSQL_API.g_update THEN
965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
966: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_LOC_AREA_ID');
967: FND_MSG_PUB.add;
968: END IF;
969:
970: x_return_status := FND_API.g_ret_sts_error;
971: RETURN;
972: END IF;
973:
974: -- check location_type_code
975: IF p_loc_area_rec.location_type_code IS NULL THEN
976: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
977: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_LOC_TYPE_CODE');
978: FND_MSG_PUB.add;
979: END IF;
980:
974: -- check location_type_code
975: IF p_loc_area_rec.location_type_code IS NULL THEN
976: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
977: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_LOC_TYPE_CODE');
978: FND_MSG_PUB.add;
979: END IF;
980:
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
985: -- check object_version_number
986: IF p_loc_area_rec.object_version_number IS NULL
987: AND p_validation_mode = JTF_PLSQL_API.g_update
988: THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('JTF', 'JTF_API_NO_OBJ_VER_NUM');
991: FND_MSG_PUB.add;
992: END IF;
993:
987: AND p_validation_mode = JTF_PLSQL_API.g_update
988: THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('JTF', 'JTF_API_NO_OBJ_VER_NUM');
991: FND_MSG_PUB.add;
992: END IF;
993:
994: x_return_status := FND_API.g_ret_sts_error;
995: RETURN;
996: END IF;
997:
998: -- check start_date_active
999: IF p_loc_area_rec.start_date_active IS NULL THEN
1000: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1001: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_START_DATE');
1002: FND_MSG_PUB.add;
1003: END IF;
1004:
998: -- check start_date_active
999: IF p_loc_area_rec.start_date_active IS NULL THEN
1000: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1001: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_START_DATE');
1002: FND_MSG_PUB.add;
1003: END IF;
1004:
1005: x_return_status := FND_API.g_ret_sts_error;
1006: RETURN;
1007: END IF;
1008:
1009: -- check locaton_area_name
1010: IF p_loc_area_rec.location_area_name IS NULL THEN
1011: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1012: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_AREA_NAME');
1013: FND_MSG_PUB.add;
1014: END IF;
1015:
1009: -- check locaton_area_name
1010: IF p_loc_area_rec.location_area_name IS NULL THEN
1011: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1012: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_AREA_NAME');
1013: FND_MSG_PUB.add;
1014: END IF;
1015:
1016: x_return_status := FND_API.g_ret_sts_error;
1017: RETURN;
1020: -- check location_area_code
1021: IF p_loc_area_rec.location_area_code IS NULL
1022: OR p_loc_area_rec.location_area_code = FND_API.g_miss_char
1023: THEN
1024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1025: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_AREA_CODE');
1026: FND_MSG_PUB.add;
1027: END IF;
1028:
1022: OR p_loc_area_rec.location_area_code = FND_API.g_miss_char
1023: THEN
1024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1025: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_AREA_CODE');
1026: FND_MSG_PUB.add;
1027: END IF;
1028:
1029: x_return_status := FND_API.g_ret_sts_error;
1030: RETURN;
1034: IF p_loc_area_rec.location_type_code <> 'AREA1' THEN
1035: IF p_loc_area_rec.parent_location_area_id = FND_API.g_miss_num
1036: OR p_loc_area_rec.parent_location_area_id IS NULL
1037: THEN
1038: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1039: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_PARENT_ID');
1040: FND_MSG_PUB.add;
1041: END IF;
1042:
1036: OR p_loc_area_rec.parent_location_area_id IS NULL
1037: THEN
1038: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1039: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_PARENT_ID');
1040: FND_MSG_PUB.add;
1041: END IF;
1042:
1043: x_return_status := FND_API.g_ret_sts_error;
1044: RETURN;
1051: IF l_world_exist IS NOT NULL -- world exists, cant create another world
1052: THEN
1053: IF p_validation_mode = JTF_PLSQL_API.g_create
1054: THEN
1055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1056: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_WORLD_EXISTS');
1057: FND_MSG_PUB.add;
1058: END IF;
1059:
1053: IF p_validation_mode = JTF_PLSQL_API.g_create
1054: THEN
1055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1056: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_WORLD_EXISTS');
1057: FND_MSG_PUB.add;
1058: END IF;
1059:
1060: x_return_status := FND_API.g_ret_sts_error;
1061: RETURN;
1063: ELSE
1064: IF p_loc_area_rec.parent_location_area_id IS NOT NULL
1065: AND p_loc_area_rec.parent_location_area_id <> FND_API.g_miss_num
1066: THEN -- creating new world, no parent allowed
1067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1068: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_PARENT_ID');
1069: FND_MSG_PUB.add;
1070: END IF;
1071:
1065: AND p_loc_area_rec.parent_location_area_id <> FND_API.g_miss_num
1066: THEN -- creating new world, no parent allowed
1067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1068: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_PARENT_ID');
1069: FND_MSG_PUB.add;
1070: END IF;
1071:
1072: x_return_status := FND_API.g_ret_sts_error;
1073: RETURN;
1132: );
1133: END IF;
1134:
1135: IF l_uk_flag = FND_API.g_false THEN
1136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1137: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREAS_DUPLICATE_ID');
1138: FND_MSG_PUB.add;
1139: END IF;
1140:
1134:
1135: IF l_uk_flag = FND_API.g_false THEN
1136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1137: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREAS_DUPLICATE_ID');
1138: FND_MSG_PUB.add;
1139: END IF;
1140:
1141: x_return_status := FND_API.g_ret_sts_error;
1142: RETURN;
1169: );
1170: END IF;
1171:
1172: IF l_uk_flag = FND_API.g_false THEN
1173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1174: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_DUP_AREA_CODE');
1175: FND_MSG_PUB.add;
1176: END IF;
1177:
1171:
1172: IF l_uk_flag = FND_API.g_false THEN
1173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1174: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_DUP_AREA_CODE');
1175: FND_MSG_PUB.add;
1176: END IF;
1177:
1178: x_return_status := FND_API.g_ret_sts_error;
1179: RETURN;
1192: CLOSE c_area_name_count2;
1193: END IF;
1194:
1195: IF l_count = 1 THEN
1196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1197: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREAS_DUP_NAME_LANG');
1198: FND_MSG_PUB.add;
1199: END IF;
1200:
1194:
1195: IF l_count = 1 THEN
1196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1197: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREAS_DUP_NAME_LANG');
1198: FND_MSG_PUB.add;
1199: END IF;
1200:
1201: x_return_status := FND_API.g_ret_sts_error;
1202: RETURN;
1233: 2 -- varchar2 type
1234: );
1235:
1236: IF l_fk_flag = FND_API.g_false THEN
1237: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1238: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_LOC_TYPE_CODE');
1239: FND_MSG_PUB.add;
1240: END IF;
1241:
1235:
1236: IF l_fk_flag = FND_API.g_false THEN
1237: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1238: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_LOC_TYPE_CODE');
1239: FND_MSG_PUB.add;
1240: END IF;
1241:
1242: x_return_status := FND_API.g_ret_sts_error;
1243: RETURN;
1254: p_loc_area_rec.parent_location_area_id
1255: );
1256:
1257: IF l_fk_flag = FND_API.g_false THEN
1258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1259: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_PARENT_ID');
1260: FND_MSG_PUB.add;
1261: END IF;
1262:
1256:
1257: IF l_fk_flag = FND_API.g_false THEN
1258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1259: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_BAD_PARENT_ID');
1260: FND_MSG_PUB.add;
1261: END IF;
1262:
1263: x_return_status := FND_API.g_ret_sts_error;
1264: RETURN;
1297: THEN
1298: l_start_date := p_complete_rec.start_date_active;
1299: l_end_date := p_complete_rec.end_date_active;
1300: IF l_start_date > l_end_date THEN
1301: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1302: FND_MESSAGE.set_name('JTF', 'JTF_START_DATE_AFTER_END_DATE');
1303: FND_MSG_PUB.add;
1304: END IF;
1305:
1299: l_end_date := p_complete_rec.end_date_active;
1300: IF l_start_date > l_end_date THEN
1301: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1302: FND_MESSAGE.set_name('JTF', 'JTF_START_DATE_AFTER_END_DATE');
1303: FND_MSG_PUB.add;
1304: END IF;
1305:
1306: x_return_status := FND_API.g_ret_sts_error;
1307: RETURN;
1337: OPEN c_loc_area;
1338: FETCH c_loc_area INTO l_loc_area_rec;
1339: IF (c_loc_area%NOTFOUND) THEN
1340: CLOSE c_loc_area;
1341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1342: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
1343: FND_MSG_PUB.add;
1344: END IF;
1345: RAISE FND_API.g_exc_error;
1339: IF (c_loc_area%NOTFOUND) THEN
1340: CLOSE c_loc_area;
1341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1342: FND_MESSAGE.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
1343: FND_MSG_PUB.add;
1344: END IF;
1345: RAISE FND_API.g_exc_error;
1346: END IF;
1347: CLOSE c_loc_area;