11: -------------------------------------------------------------------------------
12: PROCEDURE create_loc_area
13: (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
16: p_commit IN VARCHAR2 := FND_API.g_false,
17: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
18:
19: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
12: PROCEDURE create_loc_area
13: (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
16: p_commit IN VARCHAR2 := FND_API.g_false,
17: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
18:
19: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
20: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
13: (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
16: p_commit IN VARCHAR2 := FND_API.g_false,
17: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
18:
19: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
20: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
21: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
44: BEGIN
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:
51:
52:
53: JTF_Utility_PVT.debug_message(l_full_name || ': start');
54:
55: IF NOT FND_API.compatible_api_call
56: (
57: l_api_version,
58: p_api_version,
59: l_api_name,
59: l_api_name,
60: g_pkg_name
61: )
62: THEN
63: RAISE FND_API.g_exc_unexpected_error;
64: END IF;
65:
66: x_return_status := FND_API.g_ret_sts_success;
67:
62: THEN
63: RAISE FND_API.g_exc_unexpected_error;
64: END IF;
65:
66: x_return_status := FND_API.g_ret_sts_success;
67:
68: -- validate
69: -- IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
70: JTF_Utility_PVT.debug_message(l_full_name || ': validate');
79: x_msg_data => x_msg_data,
80: p_loc_area_rec => l_loc_area_rec
81: );
82:
83: IF l_return_status = FND_API.g_ret_sts_error THEN
84: RAISE FND_API.g_exc_error;
85: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
86: RAISE FND_API.g_exc_unexpected_error;
87: END IF;
80: p_loc_area_rec => l_loc_area_rec
81: );
82:
83: IF l_return_status = FND_API.g_ret_sts_error THEN
84: RAISE FND_API.g_exc_error;
85: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
86: RAISE FND_API.g_exc_unexpected_error;
87: END IF;
88: -- END IF;
81: );
82:
83: IF l_return_status = FND_API.g_ret_sts_error THEN
84: RAISE FND_API.g_exc_error;
85: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
86: RAISE FND_API.g_exc_unexpected_error;
87: END IF;
88: -- END IF;
89:
82:
83: IF l_return_status = FND_API.g_ret_sts_error THEN
84: RAISE FND_API.g_exc_error;
85: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
86: RAISE FND_API.g_exc_unexpected_error;
87: END IF;
88: -- END IF;
89:
90: -- insert
183:
184: -- finish
185: x_loc_area_id := l_loc_area_rec.location_area_id;
186:
187: IF FND_API.to_boolean(p_commit) THEN
188: COMMIT;
189: END IF;
190:
191: FND_MSG_PUB.count_and_get
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
196: );
197:
198: JTF_Utility_PVT.debug_message(l_full_name||': end');
199:
200: EXCEPTION
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: (
200: EXCEPTION
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,
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
210: );
211:
208: p_count => x_msg_count,
209: p_data => x_msg_data
210: );
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: (
210: );
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,
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
220: );
221:
220: );
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
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
233: );
234:
243: -------------------------------------------------------------------------------
244: PROCEDURE update_loc_area
245: (
246: p_api_version IN NUMBER,
247: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
248: p_commit IN VARCHAR2 := FND_API.g_false,
249: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
250:
251: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
244: PROCEDURE update_loc_area
245: (
246: p_api_version IN NUMBER,
247: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
248: p_commit IN VARCHAR2 := FND_API.g_false,
249: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
250:
251: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
252: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
245: (
246: p_api_version IN NUMBER,
247: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
248: p_commit IN VARCHAR2 := FND_API.g_false,
249: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
250:
251: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
252: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
253: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
267:
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');
273: END IF;
274:
275: JTF_Utility_PVT.debug_message(l_full_name || ': start');
276:
277: IF NOT FND_API.compatible_api_call
278: (
279: l_api_version,
280: p_api_version,
281: l_api_name,
281: l_api_name,
282: g_pkg_name
283: )
284: THEN
285: RAISE FND_API.g_exc_unexpected_error;
286: END IF;
287:
288: x_return_status := FND_API.g_ret_sts_success;
289:
284: THEN
285: RAISE FND_API.g_exc_unexpected_error;
286: END IF;
287:
288: x_return_status := FND_API.g_ret_sts_success;
289:
290: -- complete record
291: complete_loc_area_rec
292: (
306: x_return_status => l_return_status,
307: p_loc_area_rec => l_loc_area_rec
308: );
309:
310: IF l_return_status = FND_API.g_ret_sts_error THEN
311: RAISE FND_API.g_exc_error;
312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
313: RAISE FND_API.g_exc_unexpected_error;
314: END IF;
307: p_loc_area_rec => l_loc_area_rec
308: );
309:
310: IF l_return_status = FND_API.g_ret_sts_error THEN
311: RAISE FND_API.g_exc_error;
312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
313: RAISE FND_API.g_exc_unexpected_error;
314: END IF;
315: END IF;
308: );
309:
310: IF l_return_status = FND_API.g_ret_sts_error THEN
311: RAISE FND_API.g_exc_error;
312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
313: RAISE FND_API.g_exc_unexpected_error;
314: END IF;
315: END IF;
316:
309:
310: IF l_return_status = FND_API.g_ret_sts_error THEN
311: RAISE FND_API.g_exc_error;
312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
313: RAISE FND_API.g_exc_unexpected_error;
314: END IF;
315: END IF;
316:
317: -- record level
323: p_complete_rec => l_loc_area_rec,
324: x_return_status => l_return_status
325: );
326:
327: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
330: RAISE FND_API.g_exc_error;
331: END IF;
324: x_return_status => l_return_status
325: );
326:
327: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
330: RAISE FND_API.g_exc_error;
331: END IF;
332: END IF;
325: );
326:
327: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
330: RAISE FND_API.g_exc_error;
331: END IF;
332: END IF;
333: END IF;
326:
327: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
330: RAISE FND_API.g_exc_error;
331: END IF;
332: END IF;
333: END IF;
334:
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:
369: UPDATE JTF_LOC_AREAS_TL SET
370: last_update_date = SYSDATE,
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:
387: -- finish
388: IF FND_API.to_boolean(p_commit) THEN
384: RAISE FND_API.g_exc_error;
385: END IF;
386:
387: -- finish
388: IF FND_API.to_boolean(p_commit) THEN
389: COMMIT;
390: END IF;
391:
392: FND_MSG_PUB.count_and_get
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
397: );
398:
399: JTF_Utility_PVT.debug_message(l_full_name || ': end');
400:
401: EXCEPTION
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: (
401: EXCEPTION
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,
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
411: );
412:
409: p_count => x_msg_count,
410: p_data => x_msg_data
411: );
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: (
411: );
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,
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
421: );
422:
421: );
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
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
434: );
435:
446: -------------------------------------------------------------------------------
447: PROCEDURE delete_loc_area
448: (
449: p_api_version IN NUMBER,
450: P_init_msg_list IN VARCHAR2 := FND_API.g_false,
451: p_commit IN VARCHAR2 := FND_API.g_false,
452:
453: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
454: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
447: PROCEDURE delete_loc_area
448: (
449: p_api_version IN NUMBER,
450: P_init_msg_list IN VARCHAR2 := FND_API.g_false,
451: p_commit IN VARCHAR2 := FND_API.g_false,
452:
453: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
454: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
455: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
477: SAVEPOINT delete_loc_area;
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
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: (
487: l_api_version,
488: p_api_version,
489: l_api_name,
489: l_api_name,
490: g_pkg_name
491: )
492: THEN
493: RAISE FND_API.g_exc_unexpected_error;
494: END IF;
495:
496: x_return_status := FND_API.g_ret_sts_success;
497:
492: THEN
493: RAISE FND_API.g_exc_unexpected_error;
494: END IF;
495:
496: x_return_status := FND_API.g_ret_sts_success;
497:
498: -- delete
499: JTF_Utility_PVT.debug_message(l_full_name || ': delete');
500:
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:
515: /* removed by julou for bug 1717907/1703508
516: DELETE FROM JTF_LOC_AREAS_TL
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:
527: DELETE FROM JTF_LOC_AREAS_B
528: WHERE location_area_id = p_loc_area_id
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:
551: -- finish
552: IF FND_API.to_boolean(p_commit) THEN
548: RAISE FND_API.g_exc_error;
549: END IF;
550:
551: -- finish
552: IF FND_API.to_boolean(p_commit) THEN
553: COMMIT;
554: END IF;
555:
556: FND_MSG_PUB.count_and_get
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
561: );
562:
563: JTF_Utility_PVT.debug_message(l_full_name || ': end');
564:
565: EXCEPTION
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: (
565: EXCEPTION
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,
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
575: );
576:
573: p_count => x_msg_count,
574: p_data => x_msg_data
575: );
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: (
575: );
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,
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
585: );
586:
585: );
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
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
598: );
599:
608: -------------------------------------------------------------------------------
609: PROCEDURE lock_loc_area
610: (
611: p_api_version IN NUMBER,
612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
613:
614: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
615: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
616: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
642: BEGIN
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
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: (
652: l_api_version,
653: p_api_version,
654: l_api_name,
654: l_api_name,
655: g_pkg_name
656: )
657: THEN
658: RAISE FND_API.g_exc_unexpected_error;
659: END IF;
660:
661: x_return_status := FND_API.g_ret_sts_success;
662:
657: THEN
658: RAISE FND_API.g_exc_unexpected_error;
659: END IF;
660:
661: x_return_status := FND_API.g_ret_sts_success;
662:
663: -- lock
664: JTF_Utility_PVT.debug_message(l_full_name || ': lock');
665:
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;
677:
678: OPEN 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;
689:
690: -- finish
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
696: );
697:
699:
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;
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:
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,
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,
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:
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,
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,
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:
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
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
743: );
744:
754: --------------------------------------------------------------------
755: PROCEDURE validate_loc_area
756: (
757: p_api_version IN NUMBER,
758: P_init_msg_list IN VARCHAR2 := FND_API.g_false,
759: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
760:
761: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
762: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
755: PROCEDURE validate_loc_area
756: (
757: p_api_version IN NUMBER,
758: P_init_msg_list IN VARCHAR2 := FND_API.g_false,
759: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
760:
761: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
762: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
763: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
776:
777: ----------------------- initialize --------------------
778: JTF_Utility_PVT.debug_message(l_full_name||': start');
779:
780: IF NOT FND_API.compatible_api_call
781: (
782: l_api_version,
783: p_api_version,
784: l_api_name,
784: l_api_name,
785: g_pkg_name
786: )
787: THEN
788: RAISE FND_API.g_exc_unexpected_error;
789: END IF;
790:
791: x_return_status := FND_API.g_ret_sts_success;
792:
787: THEN
788: RAISE FND_API.g_exc_unexpected_error;
789: END IF;
790:
791: x_return_status := FND_API.g_ret_sts_success;
792:
793: ---------------------- validate ------------------------
794: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
795: JTF_Utility_PVT.debug_message(l_full_name||': check items');
799: x_return_status => l_return_status,
800: p_loc_area_rec => p_loc_area_rec
801: );
802:
803: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
804: RAISE FND_API.g_exc_unexpected_error;
805: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
806: RAISE FND_API.g_exc_error;
807: END IF;
800: p_loc_area_rec => p_loc_area_rec
801: );
802:
803: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
804: RAISE FND_API.g_exc_unexpected_error;
805: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
806: RAISE FND_API.g_exc_error;
807: END IF;
808: END IF;
801: );
802:
803: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
804: RAISE FND_API.g_exc_unexpected_error;
805: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
806: RAISE FND_API.g_exc_error;
807: END IF;
808: END IF;
809:
802:
803: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
804: RAISE FND_API.g_exc_unexpected_error;
805: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
806: RAISE FND_API.g_exc_error;
807: END IF;
808: END IF;
809:
810: -- record level
816: p_complete_rec => p_loc_area_rec,
817: x_return_status => l_return_status
818: );
819:
820: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
821: RAISE FND_API.g_exc_unexpected_error;
822: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
823: RAISE FND_API.g_exc_error;
824: END IF;
817: x_return_status => l_return_status
818: );
819:
820: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
821: RAISE FND_API.g_exc_unexpected_error;
822: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
823: RAISE FND_API.g_exc_error;
824: END IF;
825: END IF;
818: );
819:
820: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
821: RAISE FND_API.g_exc_unexpected_error;
822: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
823: RAISE FND_API.g_exc_error;
824: END IF;
825: END IF;
826: -------------------- finish --------------------------
819:
820: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
821: RAISE FND_API.g_exc_unexpected_error;
822: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
823: RAISE FND_API.g_exc_error;
824: END IF;
825: END IF;
826: -------------------- finish --------------------------
827: FND_MSG_PUB.count_and_get
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
832: );
833:
833:
834: JTF_Utility_PVT.debug_message(l_full_name ||': end');
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,
834: JTF_Utility_PVT.debug_message(l_full_name ||': end');
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,
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:
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,
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,
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:
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:
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
866: );
867:
888: BEGIN
889: -- initialize
890: JTF_Utility_PVT.debug_message(l_full_name || ': start');
891:
892: x_return_status := FND_API.g_ret_sts_success;
893:
894: -- check required items
895: JTF_Utility_PVT.debug_message(l_full_name || ': check required items');
896: check_loc_area_req_items
899: p_loc_area_rec => p_loc_area_rec,
900: x_return_status => x_return_status
901: );
902:
903: IF x_return_status <> FND_API.g_ret_sts_success THEN
904: RETURN;
905: END IF;
906:
907: -- check unique key items
912: p_loc_area_rec => p_loc_area_rec,
913: x_return_status => x_return_status
914: );
915:
916: IF x_return_status <> FND_API.g_ret_sts_success THEN
917: RETURN;
918: END IF;
919:
920: -- check foreign key items
924: p_loc_area_rec => p_loc_area_rec,
925: x_return_status => x_return_status
926: );
927:
928: IF x_return_status <> FND_API.g_ret_sts_success THEN
929: RETURN;
930: END IF;
931:
932: END check_items;
956: l_world_exist NUMBER;
957:
958: BEGIN
959:
960: x_return_status := FND_API.g_ret_sts_success;
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
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
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;
983: END IF;
984:
985: -- check object_version_number
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
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
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;
1018: END IF;
1019:
1020: -- check location_area_code
1018: END IF;
1019:
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;
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;
1031: END IF;
1032:
1033: -- check parent_location_area_id
1031: END IF;
1032:
1033: -- check parent_location_area_id
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');
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;
1045: END IF;
1046: ELSE -- user trying to create world type area, check the existence of world first
1047: OPEN c_world_exist;
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;
1062: END IF;
1063: ELSE
1064: IF p_loc_area_rec.parent_location_area_id IS NOT NULL
1061: RETURN;
1062: END IF;
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;
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;
1074: END IF;
1075: END IF;
1076: END IF;
1118: AND b.location_area_id =t.location_area_id);
1119:
1120: BEGIN
1121:
1122: x_return_status := FND_API.g_ret_sts_success;
1123:
1124: -- check PK, if location_area_id is passed in, must check if it is duplicate
1125: IF p_validation_mode = JTF_PLSQL_API.g_create
1126: AND p_loc_area_rec.location_area_id IS NOT NULL
1131: 'location_area_id = ' || p_loc_area_rec.location_area_id
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;
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;
1143: END IF;
1144:
1145: -- 07/09/2001 julou modified where clause for parent_location_area_id
1143: END IF;
1144:
1145: -- 07/09/2001 julou modified where clause for parent_location_area_id
1146: -- check location_area_code
1147: IF p_loc_area_rec.parent_location_area_id = FND_API.g_miss_num
1148: OR p_loc_area_rec.parent_location_area_id IS NULL
1149: THEN
1150: l_parent_loc_str := ' AND parent_location_area_id = NULL';
1151: ELSE
1168: || l_parent_loc_str
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;
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;
1180: END IF;
1181:
1182:
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;
1203: END IF;
1204:
1205: END check_loc_area_uk_items;
1221: l_fk_flag VARCHAR2(1);
1222:
1223: BEGIN
1224:
1225: x_return_status := FND_API.g_ret_sts_success;
1226:
1227: -- check location_type_code
1228: l_fk_flag := JTF_Utility_PVT.check_fk_exists
1229: (
1232: p_loc_area_rec.location_type_code,
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;
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;
1244: END IF;
1245:
1246: -- check parent_location_area_id
1244: END IF;
1245:
1246: -- check parent_location_area_id
1247: IF p_loc_area_rec.parent_location_area_id IS NOT NULL
1248: AND p_loc_area_rec.parent_location_area_id <> FND_API.g_miss_num
1249: THEN
1250: l_fk_flag := JTF_Utility_PVT.check_fk_exists
1251: (
1252: 'JTF_LOC_AREAS_VL',
1253: 'location_area_id',
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;
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;
1265: END IF;
1266: END IF;
1267:
1287: l_end_date DATE;
1288:
1289: BEGIN
1290:
1291: x_return_status := FND_API.g_ret_sts_success;
1292:
1293: -- check that start_date_active <= end_date_active
1294: IF p_complete_rec.start_date_active <> FND_API.g_miss_date
1295: AND p_complete_rec.end_date_active <> FND_API.g_miss_date
1290:
1291: x_return_status := FND_API.g_ret_sts_success;
1292:
1293: -- check that start_date_active <= end_date_active
1294: IF p_complete_rec.start_date_active <> FND_API.g_miss_date
1295: AND p_complete_rec.end_date_active <> FND_API.g_miss_date
1296: AND p_complete_rec.end_date_active IS NOT NULL
1297: THEN
1298: l_start_date := p_complete_rec.start_date_active;
1291: x_return_status := FND_API.g_ret_sts_success;
1292:
1293: -- check that start_date_active <= end_date_active
1294: IF p_complete_rec.start_date_active <> FND_API.g_miss_date
1295: AND p_complete_rec.end_date_active <> FND_API.g_miss_date
1296: AND p_complete_rec.end_date_active IS NOT NULL
1297: THEN
1298: l_start_date := p_complete_rec.start_date_active;
1299: l_end_date := p_complete_rec.end_date_active;
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;
1308: END IF;
1309: END IF;
1310:
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;
1348:
1349: IF p_loc_area_rec.request_id = FND_API.g_miss_num THEN
1345: RAISE FND_API.g_exc_error;
1346: END IF;
1347: CLOSE c_loc_area;
1348:
1349: IF p_loc_area_rec.request_id = FND_API.g_miss_num THEN
1350: x_complete_rec.request_id := l_loc_area_rec.request_id;
1351: END IF;
1352:
1353: IF p_loc_area_rec.program_application_id = FND_API.g_miss_num THEN
1349: IF p_loc_area_rec.request_id = FND_API.g_miss_num THEN
1350: x_complete_rec.request_id := l_loc_area_rec.request_id;
1351: END IF;
1352:
1353: IF p_loc_area_rec.program_application_id = FND_API.g_miss_num THEN
1354: x_complete_rec.program_application_id := l_loc_area_rec.program_application_id;
1355: END IF;
1356:
1357: IF p_loc_area_rec.program_id = FND_API.g_miss_num THEN
1353: IF p_loc_area_rec.program_application_id = FND_API.g_miss_num THEN
1354: x_complete_rec.program_application_id := l_loc_area_rec.program_application_id;
1355: END IF;
1356:
1357: IF p_loc_area_rec.program_id = FND_API.g_miss_num THEN
1358: x_complete_rec.program_id := l_loc_area_rec.program_id;
1359: END IF;
1360:
1361: IF p_loc_area_rec.program_update_date = FND_API.g_miss_date THEN
1357: IF p_loc_area_rec.program_id = FND_API.g_miss_num THEN
1358: x_complete_rec.program_id := l_loc_area_rec.program_id;
1359: END IF;
1360:
1361: IF p_loc_area_rec.program_update_date = FND_API.g_miss_date THEN
1362: x_complete_rec.program_update_date := l_loc_area_rec.program_update_date;
1363: END IF;
1364:
1365: IF p_loc_area_rec.location_type_code = FND_API.g_miss_char THEN
1361: IF p_loc_area_rec.program_update_date = FND_API.g_miss_date THEN
1362: x_complete_rec.program_update_date := l_loc_area_rec.program_update_date;
1363: END IF;
1364:
1365: IF p_loc_area_rec.location_type_code = FND_API.g_miss_char THEN
1366: x_complete_rec.location_type_code := l_loc_area_rec.location_type_code;
1367: END IF;
1368:
1369: IF p_loc_area_rec.start_date_active = FND_API.g_miss_date THEN
1365: IF p_loc_area_rec.location_type_code = FND_API.g_miss_char THEN
1366: x_complete_rec.location_type_code := l_loc_area_rec.location_type_code;
1367: END IF;
1368:
1369: IF p_loc_area_rec.start_date_active = FND_API.g_miss_date THEN
1370: x_complete_rec.start_date_active := l_loc_area_rec.start_date_active;
1371: END IF;
1372:
1373: IF p_loc_area_rec.end_date_active = FND_API.g_miss_date THEN
1369: IF p_loc_area_rec.start_date_active = FND_API.g_miss_date THEN
1370: x_complete_rec.start_date_active := l_loc_area_rec.start_date_active;
1371: END IF;
1372:
1373: IF p_loc_area_rec.end_date_active = FND_API.g_miss_date THEN
1374: x_complete_rec.end_date_active := l_loc_area_rec.end_date_active;
1375: END IF;
1376:
1377: IF p_loc_area_rec.location_area_code = FND_API.g_miss_char THEN
1373: IF p_loc_area_rec.end_date_active = FND_API.g_miss_date THEN
1374: x_complete_rec.end_date_active := l_loc_area_rec.end_date_active;
1375: END IF;
1376:
1377: IF p_loc_area_rec.location_area_code = FND_API.g_miss_char THEN
1378: x_complete_rec.location_area_code := l_loc_area_rec.location_area_code;
1379: END IF;
1380:
1381: IF p_loc_area_rec.location_area_name = FND_API.g_miss_char THEN
1377: IF p_loc_area_rec.location_area_code = FND_API.g_miss_char THEN
1378: x_complete_rec.location_area_code := l_loc_area_rec.location_area_code;
1379: END IF;
1380:
1381: IF p_loc_area_rec.location_area_name = FND_API.g_miss_char THEN
1382: x_complete_rec.location_area_name := l_loc_area_rec.location_area_name;
1383: END IF;
1384:
1385: IF p_loc_area_rec.location_area_description = FND_API.g_miss_char THEN
1381: IF p_loc_area_rec.location_area_name = FND_API.g_miss_char THEN
1382: x_complete_rec.location_area_name := l_loc_area_rec.location_area_name;
1383: END IF;
1384:
1385: IF p_loc_area_rec.location_area_description = FND_API.g_miss_char THEN
1386: x_complete_rec.location_area_description := l_loc_area_rec.location_area_description;
1387: END IF;
1388:
1389: IF p_loc_area_rec.orig_system_id = FND_API.g_miss_num THEN
1385: IF p_loc_area_rec.location_area_description = FND_API.g_miss_char THEN
1386: x_complete_rec.location_area_description := l_loc_area_rec.location_area_description;
1387: END IF;
1388:
1389: IF p_loc_area_rec.orig_system_id = FND_API.g_miss_num THEN
1390: x_complete_rec.orig_system_id := l_loc_area_rec.orig_system_id;
1391: END IF;
1392:
1393: IF p_loc_area_rec.orig_system_ref = FND_API.g_miss_char THEN
1389: IF p_loc_area_rec.orig_system_id = FND_API.g_miss_num THEN
1390: x_complete_rec.orig_system_id := l_loc_area_rec.orig_system_id;
1391: END IF;
1392:
1393: IF p_loc_area_rec.orig_system_ref = FND_API.g_miss_char THEN
1394: x_complete_rec.orig_system_ref := l_loc_area_rec.orig_system_ref;
1395: END IF;
1396:
1397: IF p_loc_area_rec.parent_location_area_id = FND_API.g_miss_num THEN
1393: IF p_loc_area_rec.orig_system_ref = FND_API.g_miss_char THEN
1394: x_complete_rec.orig_system_ref := l_loc_area_rec.orig_system_ref;
1395: END IF;
1396:
1397: IF p_loc_area_rec.parent_location_area_id = FND_API.g_miss_num THEN
1398: x_complete_rec.parent_location_area_id := l_loc_area_rec.parent_location_area_id;
1399: END IF;
1400:
1401: END complete_loc_area_rec;
1415: IS
1416:
1417: BEGIN
1418:
1419: x_loc_area_rec.location_area_id := FND_API.g_miss_num;
1420: x_loc_area_rec.last_update_date := FND_API.g_miss_date;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1416:
1417: BEGIN
1418:
1419: x_loc_area_rec.location_area_id := FND_API.g_miss_num;
1420: x_loc_area_rec.last_update_date := FND_API.g_miss_date;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1417: BEGIN
1418:
1419: x_loc_area_rec.location_area_id := FND_API.g_miss_num;
1420: x_loc_area_rec.last_update_date := FND_API.g_miss_date;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1418:
1419: x_loc_area_rec.location_area_id := FND_API.g_miss_num;
1420: x_loc_area_rec.last_update_date := FND_API.g_miss_date;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1419: x_loc_area_rec.location_area_id := FND_API.g_miss_num;
1420: x_loc_area_rec.last_update_date := FND_API.g_miss_date;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1420: x_loc_area_rec.last_update_date := FND_API.g_miss_date;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1421: x_loc_area_rec.last_updated_by := FND_API.g_miss_num;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1422: x_loc_area_rec.creation_date := FND_API.g_miss_date;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1423: x_loc_area_rec.created_by := FND_API.g_miss_num;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1424: x_loc_area_rec.last_update_login := FND_API.g_miss_num;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1425: x_loc_area_rec.object_version_number := FND_API.g_miss_num;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1426: x_loc_area_rec.request_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1427: x_loc_area_rec.program_application_id := FND_API.g_miss_num;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1428: x_loc_area_rec.program_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1429: x_loc_area_rec.program_update_date := FND_API.g_miss_date;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1437: x_loc_area_rec.location_area_name := FND_API.g_miss_char;
1430: x_loc_area_rec.location_type_code := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1437: x_loc_area_rec.location_area_name := FND_API.g_miss_char;
1438: x_loc_area_rec.location_area_description := FND_API.g_miss_char;
1431: x_loc_area_rec.start_date_active := FND_API.g_miss_date;
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1437: x_loc_area_rec.location_area_name := FND_API.g_miss_char;
1438: x_loc_area_rec.location_area_description := FND_API.g_miss_char;
1439:
1432: x_loc_area_rec.end_date_active := FND_API.g_miss_date;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1437: x_loc_area_rec.location_area_name := FND_API.g_miss_char;
1438: x_loc_area_rec.location_area_description := FND_API.g_miss_char;
1439:
1440: END init_rec;
1433: x_loc_area_rec.location_area_code := FND_API.g_miss_char;
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1437: x_loc_area_rec.location_area_name := FND_API.g_miss_char;
1438: x_loc_area_rec.location_area_description := FND_API.g_miss_char;
1439:
1440: END init_rec;
1441:
1434: x_loc_area_rec.orig_system_id := FND_API.g_miss_num;
1435: x_loc_area_rec.orig_system_ref := FND_API.g_miss_char;
1436: x_loc_area_rec.parent_location_area_id := FND_API.g_miss_num;
1437: x_loc_area_rec.location_area_name := FND_API.g_miss_char;
1438: x_loc_area_rec.location_area_description := FND_API.g_miss_char;
1439:
1440: END init_rec;
1441:
1442: END JTF_Loc_Areas_PVT;