40: l_batch_step_rec gme_batch_steps%ROWTYPE;
41: --Bug#5109119
42: l_in_batch_header_rec gme_batch_header%ROWTYPE;
43: BEGIN
44: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
45: gme_debug.g_log_procedure THEN
46: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
47: || l_api_name);
48: gme_debug.put_line ( g_pkg_name
41: --Bug#5109119
42: l_in_batch_header_rec gme_batch_header%ROWTYPE;
43: BEGIN
44: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
45: gme_debug.g_log_procedure THEN
46: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
47: || l_api_name);
48: gme_debug.put_line ( g_pkg_name
49: || '.'
42: l_in_batch_header_rec gme_batch_header%ROWTYPE;
43: BEGIN
44: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
45: gme_debug.g_log_procedure THEN
46: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
47: || l_api_name);
48: gme_debug.put_line ( g_pkg_name
49: || '.'
50: || l_api_name
44: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
45: gme_debug.g_log_procedure THEN
46: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
47: || l_api_name);
48: gme_debug.put_line ( g_pkg_name
49: || '.'
50: || l_api_name
51: || ' Releasing batch_step_id='
52: || p_batch_step_rec.batchstep_id);
109: END IF;
110: END IF;
111:
112:
113: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
114: gme_debug.g_log_procedure THEN
115: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
116: END IF;
117: EXCEPTION
110: END IF;
111:
112:
113: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
114: gme_debug.g_log_procedure THEN
115: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
116: END IF;
117: EXCEPTION
118: WHEN error_release_batch OR error_release_step_rec THEN
111:
112:
113: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
114: gme_debug.g_log_procedure THEN
115: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
116: END IF;
117: EXCEPTION
118: WHEN error_release_batch OR error_release_step_rec THEN
119: NULL;
119: NULL;
120: WHEN OTHERS THEN
121: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
122:
123: IF g_debug <= gme_debug.g_log_procedure THEN
124: gme_debug.put_line ( 'Unexpected error: '
125: || g_pkg_name
126: || '.'
127: || l_api_name
120: WHEN OTHERS THEN
121: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
122:
123: IF g_debug <= gme_debug.g_log_procedure THEN
124: gme_debug.put_line ( 'Unexpected error: '
125: || g_pkg_name
126: || '.'
127: || l_api_name
128: || ': '
169: l_msg_stack VARCHAR2 (2000);
170: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
171: l_batch_step_rec gme_batch_steps%ROWTYPE;
172: BEGIN
173: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
174: gme_debug.g_log_procedure THEN
175: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
176: || l_api_name);
177: gme_debug.put_line (g_pkg_name
170: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
171: l_batch_step_rec gme_batch_steps%ROWTYPE;
172: BEGIN
173: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
174: gme_debug.g_log_procedure THEN
175: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
176: || l_api_name);
177: gme_debug.put_line (g_pkg_name
178: || '.'
171: l_batch_step_rec gme_batch_steps%ROWTYPE;
172: BEGIN
173: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
174: gme_debug.g_log_procedure THEN
175: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
176: || l_api_name);
177: gme_debug.put_line (g_pkg_name
178: || '.'
179: || l_api_name
173: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
174: gme_debug.g_log_procedure THEN
175: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
176: || l_api_name);
177: gme_debug.put_line (g_pkg_name
178: || '.'
179: || l_api_name
180: || ' Release step recursive batch_step_id='
181: || p_batch_step_rec.batchstep_id);
178: || '.'
179: || l_api_name
180: || ' Release step recursive batch_step_id='
181: || p_batch_step_rec.batchstep_id);
182: gme_debug.put_line(g_pkg_name
183: || '.'
184: || l_api_name
185: || ' step actual start date='
186: || to_char(p_batch_step_rec.actual_start_date,'YYYY-MON-DD HH24:MI:SS'));
221: IF l_return_status = gme_common_pvt.g_exceptions_err THEN
222: x_return_status := gme_common_pvt.g_exceptions_err;
223: END IF;
224:
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line
227: ('Calling release step line to complete ingredient transactions...');
228: gme_debug.put_line ('for step = ' || x_batch_step_rec.batchstep_id);
229: END IF;
222: x_return_status := gme_common_pvt.g_exceptions_err;
223: END IF;
224:
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line
227: ('Calling release step line to complete ingredient transactions...');
228: gme_debug.put_line ('for step = ' || x_batch_step_rec.batchstep_id);
229: END IF;
230:
224:
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line
227: ('Calling release step line to complete ingredient transactions...');
228: gme_debug.put_line ('for step = ' || x_batch_step_rec.batchstep_id);
229: END IF;
230:
231: release_step_line (p_batch_step_rec => p_batch_step_rec
232: ,x_batch_step_rec => x_batch_step_rec
275: ,p_event_key => TO_CHAR
276: (x_batch_step_rec.batchstep_id) );
277: END IF;
278:
279: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
280: gme_debug.g_log_procedure THEN
281: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
282: END IF;
283: EXCEPTION
276: (x_batch_step_rec.batchstep_id) );
277: END IF;
278:
279: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
280: gme_debug.g_log_procedure THEN
281: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
282: END IF;
283: EXCEPTION
284: WHEN error_validation THEN
277: END IF;
278:
279: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
280: gme_debug.g_log_procedure THEN
281: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
282: END IF;
283: EXCEPTION
284: WHEN error_validation THEN
285: NULL;
289: NULL;
290: WHEN OTHERS THEN
291: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
292:
293: IF g_debug <= gme_debug.g_log_procedure THEN
294: gme_debug.put_line ( 'Unexpected error: '
295: || g_pkg_name
296: || '.'
297: || l_api_name
290: WHEN OTHERS THEN
291: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
292:
293: IF g_debug <= gme_debug.g_log_procedure THEN
294: gme_debug.put_line ( 'Unexpected error: '
295: || g_pkg_name
296: || '.'
297: || l_api_name
298: || ': '
332: --Bug#5109119
333: error_close_period EXCEPTION;
334: error_future_date EXCEPTION;
335: BEGIN
336: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
337: gme_debug.g_log_procedure THEN
338: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
339: || l_api_name);
340: gme_debug.put_line ( g_pkg_name
333: error_close_period EXCEPTION;
334: error_future_date EXCEPTION;
335: BEGIN
336: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
337: gme_debug.g_log_procedure THEN
338: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
339: || l_api_name);
340: gme_debug.put_line ( g_pkg_name
341: || '.'
334: error_future_date EXCEPTION;
335: BEGIN
336: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
337: gme_debug.g_log_procedure THEN
338: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
339: || l_api_name);
340: gme_debug.put_line ( g_pkg_name
341: || '.'
342: || l_api_name
336: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
337: gme_debug.g_log_procedure THEN
338: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
339: || l_api_name);
340: gme_debug.put_line ( g_pkg_name
341: || '.'
342: || l_api_name
343: || ' Processing batch_step_id='
344: || p_batch_step_rec.batchstep_id);
368:
369: /* Get the immediate dependent steps for the current step */
370: FOR l_dep_step_rec IN cur_get_dep_steps (p_batch_step_rec.batchstep_id
371: ,p_batch_header_rec.batch_id) LOOP
372: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
373: gme_debug.put_line ( g_pkg_name
374: || '.'
375: || l_api_name
376: || 'fetched dep step '
369: /* Get the immediate dependent steps for the current step */
370: FOR l_dep_step_rec IN cur_get_dep_steps (p_batch_step_rec.batchstep_id
371: ,p_batch_header_rec.batch_id) LOOP
372: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
373: gme_debug.put_line ( g_pkg_name
374: || '.'
375: || l_api_name
376: || 'fetched dep step '
377: || l_dep_step_rec.dep_step_id);
374: || '.'
375: || l_api_name
376: || 'fetched dep step '
377: || l_dep_step_rec.dep_step_id);
378: gme_debug.put_line ( g_pkg_name
379: || '.'
380: || l_api_name
381: || 'steprelease_type = '
382: || l_dep_step_rec.steprelease_type);
379: || '.'
380: || l_api_name
381: || 'steprelease_type = '
382: || l_dep_step_rec.steprelease_type);
383: gme_debug.put_line ( g_pkg_name
384: || '.'
385: || l_api_name
386: || 'dep_type = '
387: || l_dep_step_rec.dep_type);
384: || '.'
385: || l_api_name
386: || 'dep_type = '
387: || l_dep_step_rec.dep_type);
388: gme_debug.put_line ( g_pkg_name
389: || '.'
390: || l_api_name
391: || 'standard_delay = '
392: || l_dep_step_rec.standard_delay);
389: || '.'
390: || l_api_name
391: || 'standard_delay = '
392: || l_dep_step_rec.standard_delay);
393: gme_debug.put_line ( g_pkg_name
394: || '.'
395: || l_api_name
396: || 'step_status = '
397: || l_dep_step_rec.step_status);
504: l_first_step_start_date > p_batch_step_rec.actual_start_date THEN
505: l_first_step_start_date := p_batch_step_rec.actual_start_date;
506: END IF;
507:
508: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
509: gme_debug.g_log_procedure THEN
510: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
511: END IF;
512: EXCEPTION
505: l_first_step_start_date := p_batch_step_rec.actual_start_date;
506: END IF;
507:
508: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
509: gme_debug.g_log_procedure THEN
510: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
511: END IF;
512: EXCEPTION
513: --Bug#5109119 Begin
506: END IF;
507:
508: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
509: gme_debug.g_log_procedure THEN
510: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
511: END IF;
512: EXCEPTION
513: --Bug#5109119 Begin
514: WHEN error_close_period THEN
526: NULL;
527: WHEN OTHERS THEN
528: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
529:
530: IF g_debug <= gme_debug.g_log_procedure THEN
531: gme_debug.put_line ( 'Unexpected error: '
532: || g_pkg_name
533: || '.'
534: || l_api_name
527: WHEN OTHERS THEN
528: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
529:
530: IF g_debug <= gme_debug.g_log_procedure THEN
531: gme_debug.put_line ( 'Unexpected error: '
532: || g_pkg_name
533: || '.'
534: || l_api_name
535: || ': '
567: l_batch_step_rec gme_batch_steps%ROWTYPE;
568: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
569: batch_step_upd_err EXCEPTION;
570: BEGIN
571: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
572: gme_debug.g_log_procedure THEN
573: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
574: || l_api_name);
575: gme_debug.put_line ( g_pkg_name
568: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
569: batch_step_upd_err EXCEPTION;
570: BEGIN
571: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
572: gme_debug.g_log_procedure THEN
573: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
574: || l_api_name);
575: gme_debug.put_line ( g_pkg_name
576: || '.'
569: batch_step_upd_err EXCEPTION;
570: BEGIN
571: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
572: gme_debug.g_log_procedure THEN
573: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
574: || l_api_name);
575: gme_debug.put_line ( g_pkg_name
576: || '.'
577: || l_api_name
571: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
572: gme_debug.g_log_procedure THEN
573: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
574: || l_api_name);
575: gme_debug.put_line ( g_pkg_name
576: || '.'
577: || l_api_name
578: || ' Release step line batchstep_id='
579: || p_batch_step_rec.batchstep_id);
615: ,last_update_date = gme_common_pvt.g_timestamp
616: ,last_update_login = gme_common_pvt.g_login_id
617: WHERE batchstep_id = x_batch_step_rec.batchstep_id;
618:
619: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
620: gme_debug.g_log_procedure THEN
621: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
622: END IF;
623: EXCEPTION
616: ,last_update_login = gme_common_pvt.g_login_id
617: WHERE batchstep_id = x_batch_step_rec.batchstep_id;
618:
619: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
620: gme_debug.g_log_procedure THEN
621: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
622: END IF;
623: EXCEPTION
624: WHEN batch_step_upd_err THEN
617: WHERE batchstep_id = x_batch_step_rec.batchstep_id;
618:
619: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
620: gme_debug.g_log_procedure THEN
621: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
622: END IF;
623: EXCEPTION
624: WHEN batch_step_upd_err THEN
625: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR'
627: x_return_status := fnd_api.g_ret_sts_unexp_error;
628: WHEN OTHERS THEN
629: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
630:
631: IF g_debug <= gme_debug.g_log_procedure THEN
632: gme_debug.put_line ( 'Unexpected error: '
633: || g_pkg_name
634: || '.'
635: || l_api_name
628: WHEN OTHERS THEN
629: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
630:
631: IF g_debug <= gme_debug.g_log_procedure THEN
632: gme_debug.put_line ( 'Unexpected error: '
633: || g_pkg_name
634: || '.'
635: || l_api_name
636: || ': '
664: l_reserved_qty NUMBER; -- Bug 13795581
665:
666: error_process_ing EXCEPTION;
667: BEGIN
668: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
669: gme_debug.g_log_procedure THEN
670: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
671: || l_api_name);
672: gme_debug.put_line ( g_pkg_name
665:
666: error_process_ing EXCEPTION;
667: BEGIN
668: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
669: gme_debug.g_log_procedure THEN
670: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
671: || l_api_name);
672: gme_debug.put_line ( g_pkg_name
673: || '.'
666: error_process_ing EXCEPTION;
667: BEGIN
668: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
669: gme_debug.g_log_procedure THEN
670: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
671: || l_api_name);
672: gme_debug.put_line ( g_pkg_name
673: || '.'
674: || l_api_name
668: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
669: gme_debug.g_log_procedure THEN
670: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
671: || l_api_name);
672: gme_debug.put_line ( g_pkg_name
673: || '.'
674: || l_api_name
675: || ' Releasing ingredients for step_id='
676: || p_batch_step_rec.batchstep_id);
722: END IF;
723: END IF;
724: END LOOP;
725:
726: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
727: gme_debug.g_log_procedure THEN
728: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
729: END IF;
730: EXCEPTION
723: END IF;
724: END LOOP;
725:
726: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
727: gme_debug.g_log_procedure THEN
728: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
729: END IF;
730: EXCEPTION
731: WHEN error_process_ing THEN
724: END LOOP;
725:
726: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
727: gme_debug.g_log_procedure THEN
728: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
729: END IF;
730: EXCEPTION
731: WHEN error_process_ing THEN
732: NULL;
732: NULL;
733: WHEN OTHERS THEN
734: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
735:
736: IF g_debug <= gme_debug.g_log_procedure THEN
737: gme_debug.put_line ( 'Unexpected error: '
738: || g_pkg_name
739: || '.'
740: || l_api_name
733: WHEN OTHERS THEN
734: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
735:
736: IF g_debug <= gme_debug.g_log_procedure THEN
737: gme_debug.put_line ( 'Unexpected error: '
738: || g_pkg_name
739: || '.'
740: || l_api_name
741: || ': '
773: --Bug#5109119
774: error_close_period EXCEPTION;
775: error_vr_dates EXCEPTION;
776: BEGIN
777: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
778: gme_debug.g_log_procedure THEN
779: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
780: || l_api_name);
781: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
774: error_close_period EXCEPTION;
775: error_vr_dates EXCEPTION;
776: BEGIN
777: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
778: gme_debug.g_log_procedure THEN
779: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
780: || l_api_name);
781: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
782: END IF;
775: error_vr_dates EXCEPTION;
776: BEGIN
777: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
778: gme_debug.g_log_procedure THEN
779: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
780: || l_api_name);
781: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
782: END IF;
783:
777: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
778: gme_debug.g_log_procedure THEN
779: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
780: || l_api_name);
781: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
782: END IF;
783:
784: x_return_status := fnd_api.g_ret_sts_success;
785:
849: ,p_trans_date => x_batch_step_rec.actual_start_date) THEN
850: RAISE error_close_period;
851: END IF;
852:
853: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
854: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'actual_cmplt_date='||to_char(x_batch_step_rec.actual_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
855: END IF;
856:
857: -- Enforce Step Dependency Checks
850: RAISE error_close_period;
851: END IF;
852:
853: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
854: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'actual_cmplt_date='||to_char(x_batch_step_rec.actual_cmplt_date,'DD-MON-YYYY HH24:MI:SS'));
855: END IF;
856:
857: -- Enforce Step Dependency Checks
858: IF p_batch_header_rec.enforce_step_dependency = 1 THEN
878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
879: RAISE error_validation;
880: END IF;
881:
882: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
883: gme_debug.g_log_procedure THEN
884: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
885: END IF;
886:
879: RAISE error_validation;
880: END IF;
881:
882: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
883: gme_debug.g_log_procedure THEN
884: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
885: END IF;
886:
887: EXCEPTION
880: END IF;
881:
882: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
883: gme_debug.g_log_procedure THEN
884: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
885: END IF;
886:
887: EXCEPTION
888: --Bug#5109119
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: WHEN OTHERS THEN
907: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
908:
909: IF g_debug <= gme_debug.g_log_procedure THEN
910: gme_debug.put_line ( 'Unexpected error: '
911: || g_pkg_name
912: || '.'
913: || l_api_name
906: WHEN OTHERS THEN
907: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
908:
909: IF g_debug <= gme_debug.g_log_procedure THEN
910: gme_debug.put_line ( 'Unexpected error: '
911: || g_pkg_name
912: || '.'
913: || l_api_name
914: || ': '