48: error_fetch EXCEPTION;
49:
50: BEGIN
51:
52: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
53: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
54: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Complete step batchstep_id='||p_batch_step_rec.batchstep_id);
55: END IF;
56:
49:
50: BEGIN
51:
52: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
53: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
54: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Complete step batchstep_id='||p_batch_step_rec.batchstep_id);
55: END IF;
56:
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
50: BEGIN
51:
52: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
53: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
54: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Complete step batchstep_id='||p_batch_step_rec.batchstep_id);
55: END IF;
56:
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
107:
108: /* If the step controls batch status profile is set then to complete the batch */
109: /* if all the steps are complete and this is not a phantom batch */
110:
111: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
112: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' step controls batch= '||gme_common_pvt.g_step_controls_batch_sts_ind);
113: END IF;
114:
115: IF (gme_common_pvt.g_step_controls_batch_sts_ind = 1) AND (l_batch_header_rec.parentline_id IS NULL) AND
108: /* If the step controls batch status profile is set then to complete the batch */
109: /* if all the steps are complete and this is not a phantom batch */
110:
111: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
112: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' step controls batch= '||gme_common_pvt.g_step_controls_batch_sts_ind);
113: END IF;
114:
115: IF (gme_common_pvt.g_step_controls_batch_sts_ind = 1) AND (l_batch_header_rec.parentline_id IS NULL) AND
116: (l_batch_header_rec.batch_status <> gme_common_pvt.g_batch_completed) THEN
121: CLOSE Cur_step_count;
122:
123: /* If all the steps are complete or closed in the batch then call complete batch */
124: IF (l_step_count = 0) THEN
125: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
126: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' calling complete batch because step controls batch and all steps complete');
127: END IF;
128:
129: l_in_batch_header_rec := l_batch_header_rec;
122:
123: /* If all the steps are complete or closed in the batch then call complete batch */
124: IF (l_step_count = 0) THEN
125: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
126: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' calling complete batch because step controls batch and all steps complete');
127: END IF;
128:
129: l_in_batch_header_rec := l_batch_header_rec;
130: l_in_batch_header_rec.actual_cmplt_date := x_batch_step_rec.actual_cmplt_date;
158: END IF;
159: END IF; /* IF l_step_count = 0 */
160: END IF; /* IF (gme_common_pvt.g_step_controls_batch_sts_ind = 'Y') AND */
161:
162: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
163: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
164: END IF;
165:
166: EXCEPTION
159: END IF; /* IF l_step_count = 0 */
160: END IF; /* IF (gme_common_pvt.g_step_controls_batch_sts_ind = 'Y') AND */
161:
162: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
163: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
164: END IF;
165:
166: EXCEPTION
167: WHEN error_release_batch OR error_complete_batch OR
172: ,SQLERRM);
173: x_return_status := fnd_api.g_ret_sts_unexp_error;
174: WHEN OTHERS THEN
175: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
176: IF g_debug <= gme_debug.g_log_procedure THEN
177: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
178: END IF;
179: x_return_status := FND_API.g_ret_sts_unexp_error;
180: END complete_step;
173: x_return_status := fnd_api.g_ret_sts_unexp_error;
174: WHEN OTHERS THEN
175: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
176: IF g_debug <= gme_debug.g_log_procedure THEN
177: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
178: END IF;
179: x_return_status := FND_API.g_ret_sts_unexp_error;
180: END complete_step;
181:
204: error_process_dep_steps EXCEPTION;
205: gmo_lock_error EXCEPTION;
206: error_quality_status EXCEPTION; --Bug#6348353
207: BEGIN
208: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
209: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
210: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' complete step recursive batch_step_id='||p_batch_step_rec.batchstep_id);
211: END IF;
212:
205: gmo_lock_error EXCEPTION;
206: error_quality_status EXCEPTION; --Bug#6348353
207: BEGIN
208: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
209: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
210: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' complete step recursive batch_step_id='||p_batch_step_rec.batchstep_id);
211: END IF;
212:
213: /* Set the return status to success initially */
206: error_quality_status EXCEPTION; --Bug#6348353
207: BEGIN
208: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
209: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
210: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' complete step recursive batch_step_id='||p_batch_step_rec.batchstep_id);
211: END IF;
212:
213: /* Set the return status to success initially */
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
217:
218: /* Exit the recursive loop if the step is already released, completed or closed */
219: IF x_batch_step_rec.step_status IN (gme_common_pvt.g_step_completed
220: ,gme_common_pvt.g_step_closed) THEN
221: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
222: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'step is completed or closed; returning');
223: END IF;
224: RAISE step_cmpl_closed;
225: END IF;
218: /* Exit the recursive loop if the step is already released, completed or closed */
219: IF x_batch_step_rec.step_status IN (gme_common_pvt.g_step_completed
220: ,gme_common_pvt.g_step_closed) THEN
221: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
222: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'step is completed or closed; returning');
223: END IF;
224: RAISE step_cmpl_closed;
225: END IF;
226: -- Pawan Kumar added for bug 5034336
238: P_REQUESTER => gme_common_pvt.g_user_ident,
239: X_LOCK_STATUS => l_lock_status,
240: X_LOCKED_BY_STATUS => l_locked_by_status,
241: X_LOCK_ALLOWED => l_lock_allowed);
242: gme_debug.put_line ( g_pkg_name
243: || '.'
244: || l_api_name
245: || ':'
246: || 'from gmo the lock_status='
247: || l_lock_status);
248: IF x_return_status <> fnd_api.g_ret_sts_success THEN
249: RAISE gmo_lock_error;
250: END IF;
251: IF (g_debug <= gme_debug.g_log_procedure) THEN
252: gme_debug.put_line ( g_pkg_name
253: || '.'
254: || l_api_name
255: || ':'
248: IF x_return_status <> fnd_api.g_ret_sts_success THEN
249: RAISE gmo_lock_error;
250: END IF;
251: IF (g_debug <= gme_debug.g_log_procedure) THEN
252: gme_debug.put_line ( g_pkg_name
253: || '.'
254: || l_api_name
255: || ':'
256: || 'from gmo the lock_status='
279: x_return_status := gme_common_pvt.g_exceptions_err;
280: END IF;
281: END IF; -- IF p_batch_header_rec.batch_status <> gme_common_pvt.g_batch_completed THEN
282:
283: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
284: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Calling complete step line to create product transactions...');
285: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' for step = '|| x_batch_step_rec.batchstep_id);
286: END IF;
287: --Bug#6348353 Adding the below validation
280: END IF;
281: END IF; -- IF p_batch_header_rec.batch_status <> gme_common_pvt.g_batch_completed THEN
282:
283: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
284: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Calling complete step line to create product transactions...');
285: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' for step = '|| x_batch_step_rec.batchstep_id);
286: END IF;
287: --Bug#6348353 Adding the below validation
288: -- if quality is not complete cannot complete step
281: END IF; -- IF p_batch_header_rec.batch_status <> gme_common_pvt.g_batch_completed THEN
282:
283: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
284: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Calling complete step line to create product transactions...');
285: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' for step = '|| x_batch_step_rec.batchstep_id);
286: END IF;
287: --Bug#6348353 Adding the below validation
288: -- if quality is not complete cannot complete step
289: IF (p_batch_step_rec.quality_status NOT IN (1,4,6) AND
329: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
330: RAISE update_step_qty_error;
331: END IF;
332:
333: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
334: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
335: END IF;
336:
337: EXCEPTION
330: RAISE update_step_qty_error;
331: END IF;
332:
333: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
334: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
335: END IF;
336:
337: EXCEPTION
338: WHEN update_step_qty_error THEN
339: x_return_status := l_return_status;
340: WHEN step_cmpl_closed OR cmpl_step_line_error OR cmpl_step_prod_error OR error_process_dep_steps THEN
341: NULL;
342: WHEN gmo_lock_error THEN
343: IF (g_debug <= gme_debug.g_log_procedure) THEN
344: gme_debug.put_line ( g_pkg_name
345: || '.'
346: || l_api_name
347: || ':'
340: WHEN step_cmpl_closed OR cmpl_step_line_error OR cmpl_step_prod_error OR error_process_dep_steps THEN
341: NULL;
342: WHEN gmo_lock_error THEN
343: IF (g_debug <= gme_debug.g_log_procedure) THEN
344: gme_debug.put_line ( g_pkg_name
345: || '.'
346: || l_api_name
347: || ':'
348: || 'GMO_LOCK_ERROR.');
355: ,'BATCH_NO', p_batch_header_rec.batch_no);
356: x_return_status := fnd_api.g_ret_sts_error;
357: WHEN OTHERS THEN
358: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
359: IF g_debug <= gme_debug.g_log_procedure THEN
360: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
361: END IF;
362: x_return_status := FND_API.g_ret_sts_unexp_error;
363: END complete_step_recursive;
356: x_return_status := fnd_api.g_ret_sts_error;
357: WHEN OTHERS THEN
358: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
359: IF g_debug <= gme_debug.g_log_procedure THEN
360: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
361: END IF;
362: x_return_status := FND_API.g_ret_sts_unexp_error;
363: END complete_step_recursive;
364:
388:
389: batch_step_upd_err EXCEPTION;
390: BEGIN
391:
392: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
394: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Complete step line batchstep_id='||p_batch_step_rec.batchstep_id);
395: END IF;
396:
389: batch_step_upd_err EXCEPTION;
390: BEGIN
391:
392: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
394: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Complete step line batchstep_id='||p_batch_step_rec.batchstep_id);
395: END IF;
396:
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
390: BEGIN
391:
392: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
394: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Complete step line batchstep_id='||p_batch_step_rec.batchstep_id);
395: END IF;
396:
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398:
453: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
454: x_return_status := FND_API.g_ret_sts_unexp_error;
455: WHEN OTHERS THEN
456: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
457: IF g_debug <= gme_debug.g_log_procedure THEN
458: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
459: END IF;
460: x_return_status := FND_API.g_ret_sts_unexp_error;
461: END complete_step_line;
454: x_return_status := FND_API.g_ret_sts_unexp_error;
455: WHEN OTHERS THEN
456: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
457: IF g_debug <= gme_debug.g_log_procedure THEN
458: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
459: END IF;
460: x_return_status := FND_API.g_ret_sts_unexp_error;
461: END complete_step_line;
462:
485:
486: error_process_prod EXCEPTION;
487:
488: BEGIN
489: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
490: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
491: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Completing products/byproducts for step_id='||p_batch_step_rec.batchstep_id);
492: END IF;
493:
486: error_process_prod EXCEPTION;
487:
488: BEGIN
489: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
490: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
491: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Completing products/byproducts for step_id='||p_batch_step_rec.batchstep_id);
492: END IF;
493:
494: /* Set the return status to success initially */
487:
488: BEGIN
489: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
490: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
491: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Completing products/byproducts for step_id='||p_batch_step_rec.batchstep_id);
492: END IF;
493:
494: /* Set the return status to success initially */
495: x_return_status := FND_API.G_RET_STS_SUCCESS;
520: x_return_status := gme_common_pvt.g_exceptions_err;
521: END IF;
522: END LOOP;
523:
524: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
525: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
526: END IF;
527:
528: EXCEPTION
521: END IF;
522: END LOOP;
523:
524: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
525: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
526: END IF;
527:
528: EXCEPTION
529: WHEN error_process_prod THEN
529: WHEN error_process_prod THEN
530: NULL;
531: WHEN OTHERS THEN
532: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
533: IF g_debug <= gme_debug.g_log_procedure THEN
534: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
535: END IF;
536: x_return_status := FND_API.g_ret_sts_unexp_error;
537: END complete_step_material;
530: NULL;
531: WHEN OTHERS THEN
532: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
533: IF g_debug <= gme_debug.g_log_procedure THEN
534: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
535: END IF;
536: x_return_status := FND_API.g_ret_sts_unexp_error;
537: END complete_step_material;
538:
557: GME_STEP_DEP_COMPLETE EXCEPTION;
558: GME_STEP_DEP_WIP EXCEPTION;
559: INVALID_START_DATE EXCEPTION;
560: BEGIN
561: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
562: gme_debug.g_log_procedure THEN
563: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
564: || l_api_name);
565: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_step_id);
558: GME_STEP_DEP_WIP EXCEPTION;
559: INVALID_START_DATE EXCEPTION;
560: BEGIN
561: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
562: gme_debug.g_log_procedure THEN
563: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
564: || l_api_name);
565: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_step_id);
566: END IF;
559: INVALID_START_DATE EXCEPTION;
560: BEGIN
561: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
562: gme_debug.g_log_procedure THEN
563: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
564: || l_api_name);
565: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_step_id);
566: END IF;
567:
561: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
562: gme_debug.g_log_procedure THEN
563: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
564: || l_api_name);
565: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_step_id);
566: END IF;
567:
568: x_return_status := FND_API.g_ret_sts_success;
569:
594: END IF;
595: END IF;
596: END LOOP; -- FOR l_dep_step_rec IN Cur_get_dep_steps
597:
598: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
599: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
600: END IF;
601:
602: EXCEPTION
595: END IF;
596: END LOOP; -- FOR l_dep_step_rec IN Cur_get_dep_steps
597:
598: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
599: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
600: END IF;
601:
602: EXCEPTION
603: WHEN INVALID_START_DATE THEN
610: gme_common_pvt.log_message('GME_STEP_DEP_COMPLETE');
611: x_return_status := FND_API.G_RET_STS_ERROR ;
612: WHEN OTHERS THEN
613: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
614: IF g_debug <= gme_debug.g_log_procedure THEN
615: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
616: END IF;
617: x_return_status := FND_API.g_ret_sts_unexp_error;
618: END validate_dependent_steps;
611: x_return_status := FND_API.G_RET_STS_ERROR ;
612: WHEN OTHERS THEN
613: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
614: IF g_debug <= gme_debug.g_log_procedure THEN
615: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
616: END IF;
617: x_return_status := FND_API.g_ret_sts_unexp_error;
618: END validate_dependent_steps;
619:
648: --Bug#5109119
649: error_close_period EXCEPTION;
650: error_vr_dates EXCEPTION;
651: BEGIN
652: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
653: gme_debug.g_log_procedure THEN
654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
655: || l_api_name);
656: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
649: error_close_period EXCEPTION;
650: error_vr_dates EXCEPTION;
651: BEGIN
652: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
653: gme_debug.g_log_procedure THEN
654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
655: || l_api_name);
656: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
657: END IF;
650: error_vr_dates EXCEPTION;
651: BEGIN
652: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
653: gme_debug.g_log_procedure THEN
654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
655: || l_api_name);
656: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
657: END IF;
658:
652: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
653: gme_debug.g_log_procedure THEN
654: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
655: || l_api_name);
656: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' batchstep_id = '||p_batch_step_rec.batchstep_id);
657: END IF;
658:
659: x_return_status := fnd_api.g_ret_sts_success;
660:
720: END IF;
721: x_batch_step_rec.actual_cmplt_date := p_batch_step_rec.actual_cmplt_date;
722: END IF;
723:
724: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
725: 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'));
726: END IF;
727:
728: --Bug#5109119 check for close period
721: x_batch_step_rec.actual_cmplt_date := p_batch_step_rec.actual_cmplt_date;
722: END IF;
723:
724: IF ( NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT ) THEN
725: 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'));
726: END IF;
727:
728: --Bug#5109119 check for close period
729: IF NOT gme_common_pvt.check_close_period(p_org_id => p_batch_header_rec.organization_id
754: p_override_quality = fnd_api.g_false) THEN
755: RAISE error_quality_status;
756: END IF;
757:
758: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
759: gme_debug.g_log_procedure THEN
760: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
761: END IF;
762:
755: RAISE error_quality_status;
756: END IF;
757:
758: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
759: gme_debug.g_log_procedure THEN
760: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
761: END IF;
762:
763: EXCEPTION
756: END IF;
757:
758: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
759: gme_debug.g_log_procedure THEN
760: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
761: END IF;
762:
763: EXCEPTION
764: --Bug#5109119 Begin
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: WHEN OTHERS THEN
789: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
790:
791: IF g_debug <= gme_debug.g_log_procedure THEN
792: gme_debug.put_line ( 'Unexpected error: '
793: || g_pkg_name
794: || '.'
795: || l_api_name
788: WHEN OTHERS THEN
789: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
790:
791: IF g_debug <= gme_debug.g_log_procedure THEN
792: gme_debug.put_line ( 'Unexpected error: '
793: || g_pkg_name
794: || '.'
795: || l_api_name
796: || ': '
840: X_prev_step NUMBER;
841: l_batch_step GME_BATCH_STEPS%ROWTYPE;
842:
843: BEGIN
844: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
845: gme_debug.g_log_procedure THEN
846: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
847: || l_api_name);
848: END IF;
841: l_batch_step GME_BATCH_STEPS%ROWTYPE;
842:
843: BEGIN
844: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
845: gme_debug.g_log_procedure THEN
846: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
847: || l_api_name);
848: END IF;
849:
842:
843: BEGIN
844: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
845: gme_debug.g_log_procedure THEN
846: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
847: || l_api_name);
848: END IF;
849:
850: -- Set the return status to success initially *
929: END LOOP;
930:
931: x_batch_start_date := X_prev_start_date;
932:
933: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
934: gme_debug.g_log_procedure THEN
935: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
936: END IF;
937: EXCEPTION
930:
931: x_batch_start_date := X_prev_start_date;
932:
933: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
934: gme_debug.g_log_procedure THEN
935: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
936: END IF;
937: EXCEPTION
938: WHEN BATCH_STEP_FETCH_ERROR THEN
931: x_batch_start_date := X_prev_start_date;
932:
933: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
934: gme_debug.g_log_procedure THEN
935: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
936: END IF;
937: EXCEPTION
938: WHEN BATCH_STEP_FETCH_ERROR THEN
939: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR'
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: WHEN OTHERS THEN
945: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
946:
947: IF g_debug <= gme_debug.g_log_procedure THEN
948: gme_debug.put_line ( 'Unexpected error: '
949: || g_pkg_name
950: || '.'
951: || l_api_name
944: WHEN OTHERS THEN
945: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
946:
947: IF g_debug <= gme_debug.g_log_procedure THEN
948: gme_debug.put_line ( 'Unexpected error: '
949: || g_pkg_name
950: || '.'
951: || l_api_name
952: || ': '