73: step_delete_error EXCEPTION;
74: one_step_reqd EXCEPTION;
75: error_calc_step_qty EXCEPTION;
76: BEGIN
77: IF g_debug <= gme_debug.g_log_procedure THEN
78: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
79: || l_api_name);
80: END IF;
81:
74: one_step_reqd EXCEPTION;
75: error_calc_step_qty EXCEPTION;
76: BEGIN
77: IF g_debug <= gme_debug.g_log_procedure THEN
78: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
79: || l_api_name);
80: END IF;
81:
82: /* Set the savepoint before proceeding */
200: --While Rerouting a batch, the call 'gmd_auto_step_calc.calc_step_qty' is not required.
201: --It is called when the dependent batch step is deleted.
202: IF NOT p_reroute_flag THEN
203: IF l_batch_header.automatic_step_calculation = 1 THEN
204: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
205: gme_debug.put_line ('l_batch_step' || l_batch_step.batchstep_id);
206: gme_debug.put_line ('auto step calc...');
207: END IF;
208:
201: --It is called when the dependent batch step is deleted.
202: IF NOT p_reroute_flag THEN
203: IF l_batch_header.automatic_step_calculation = 1 THEN
204: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
205: gme_debug.put_line ('l_batch_step' || l_batch_step.batchstep_id);
206: gme_debug.put_line ('auto step calc...');
207: END IF;
208:
209: gmd_auto_step_calc.calc_step_qty
202: IF NOT p_reroute_flag THEN
203: IF l_batch_header.automatic_step_calculation = 1 THEN
204: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
205: gme_debug.put_line ('l_batch_step' || l_batch_step.batchstep_id);
206: gme_debug.put_line ('auto step calc...');
207: END IF;
208:
209: gmd_auto_step_calc.calc_step_qty
210: (p_parent_id => l_batch_header.batch_id
216: ,p_organization_id => l_batch_header.organization_id);
217: END IF;
218:
219: IF l_return_status <> x_return_status THEN
220: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
221: gme_debug.put_line
222: (fnd_msg_pub.get (p_encoded => fnd_api.g_false) );
223: END IF;
224:
217: END IF;
218:
219: IF l_return_status <> x_return_status THEN
220: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
221: gme_debug.put_line
222: (fnd_msg_pub.get (p_encoded => fnd_api.g_false) );
223: END IF;
224:
225: RAISE error_calc_step_qty;
224:
225: RAISE error_calc_step_qty;
226: END IF;
227:
228: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
229: gme_debug.put_line ('done step calc...');
230: END IF;
231:
232: /*Bug 2395188 Bharati Satpute Replaced first,last with count */
225: RAISE error_calc_step_qty;
226: END IF;
227:
228: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
229: gme_debug.put_line ('done step calc...');
230: END IF;
231:
232: /*Bug 2395188 Bharati Satpute Replaced first,last with count */
233: -- Update the plan_step_qty in GME_BATCH_STEPS
243: END LOOP; /* FOR i IN l_step_tbl.FIRST .. l_step_tbl.LAST */
244: END IF;
245:
246: --End Bug#3109673
247: IF g_debug <= gme_debug.g_log_procedure THEN
248: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
249: END IF;
250: EXCEPTION
251: WHEN invalid_step THEN
244: END IF;
245:
246: --End Bug#3109673
247: IF g_debug <= gme_debug.g_log_procedure THEN
248: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
249: END IF;
250: EXCEPTION
251: WHEN invalid_step THEN
252: ROLLBACK TO SAVEPOINT delete_batch_step;
254: gme_common_pvt.log_message ('GME_STEP_NOT_PENDING');
255: /* FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
256: P_data => x_message_list); */
257: WHEN error_calc_step_qty THEN
258: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
259: gme_debug.put_line ('calc step qty error');
260: END IF;
261:
262: x_return_status := fnd_api.g_ret_sts_error;
255: /* FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
256: P_data => x_message_list); */
257: WHEN error_calc_step_qty THEN
258: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
259: gme_debug.put_line ('calc step qty error');
260: END IF;
261:
262: x_return_status := fnd_api.g_ret_sts_error;
263: WHEN one_step_reqd THEN
271: ROLLBACK TO SAVEPOINT delete_batch_step;
272: /* FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
273: P_data => x_message_list); */
274: WHEN OTHERS THEN
275: IF g_debug <= gme_debug.g_log_unexpected THEN
276: gme_debug.put_line ( 'When others exception in '
277: || g_pkg_name
278: || '.'
279: || l_api_name
272: /* FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
273: P_data => x_message_list); */
274: WHEN OTHERS THEN
275: IF g_debug <= gme_debug.g_log_unexpected THEN
276: gme_debug.put_line ( 'When others exception in '
277: || g_pkg_name
278: || '.'
279: || l_api_name
280: || ' Error is '
333: l_message_count NUMBER;
334: l_message_list VARCHAR2(2000);
335:
336: BEGIN
337: IF g_debug <= gme_debug.g_log_procedure THEN
338: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
339: || l_api_name);
340: END IF;
341:
334: l_message_list VARCHAR2(2000);
335:
336: BEGIN
337: IF g_debug <= gme_debug.g_log_procedure THEN
338: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
339: || l_api_name);
340: END IF;
341:
342: /* Set the return status to success initially */
394:
395: gme_batch_step_chg_pvt.set_activity_sequence_num (l_batch_id);
396:
397: --Rishi Varma bug 3307549 13-05-2004 end.
398: IF g_debug <= gme_debug.g_log_procedure THEN
399: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
400: END IF;
401: EXCEPTION
402: WHEN gmf_cost_failure THEN
395: gme_batch_step_chg_pvt.set_activity_sequence_num (l_batch_id);
396:
397: --Rishi Varma bug 3307549 13-05-2004 end.
398: IF g_debug <= gme_debug.g_log_procedure THEN
399: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
400: END IF;
401: EXCEPTION
402: WHEN gmf_cost_failure THEN
403: -- Bug 5903208
405:
406: WHEN step_activity_delete_error OR activity_resource_delete_error THEN
407: x_return_status := fnd_api.g_ret_sts_error;
408: WHEN OTHERS THEN
409: IF g_debug <= gme_debug.g_log_unexpected THEN
410: gme_debug.put_line ( 'When others exception in '
411: || g_pkg_name
412: || '.'
413: || l_api_name
406: WHEN step_activity_delete_error OR activity_resource_delete_error THEN
407: x_return_status := fnd_api.g_ret_sts_error;
408: WHEN OTHERS THEN
409: IF g_debug <= gme_debug.g_log_unexpected THEN
410: gme_debug.put_line ( 'When others exception in '
411: || g_pkg_name
412: || '.'
413: || l_api_name
414: || ' Error is '
486: trans_delete_error EXCEPTION;
487: activity_resource_delete_error EXCEPTION;
488: rsrc_param_delete_error EXCEPTION;
489: BEGIN
490: IF g_debug <= gme_debug.g_log_procedure THEN
491: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
492: || l_api_name);
493: END IF;
494:
487: activity_resource_delete_error EXCEPTION;
488: rsrc_param_delete_error EXCEPTION;
489: BEGIN
490: IF g_debug <= gme_debug.g_log_procedure THEN
491: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
492: || l_api_name);
493: END IF;
494:
495: /* Set the return status to success initially */
513:
514: FETCH cur_is_charge_associated
515: INTO l_cur_is_charge_associated;
516:
517: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
518: gme_debug.put_line ( l_api_name
519: || 'batch,step idno. are '
520: || l_batch_step_resource.batch_id
521: || l_batch_step_resource.batchstep_id);
514: FETCH cur_is_charge_associated
515: INTO l_cur_is_charge_associated;
516:
517: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
518: gme_debug.put_line ( l_api_name
519: || 'batch,step idno. are '
520: || l_batch_step_resource.batch_id
521: || l_batch_step_resource.batchstep_id);
522: END IF;
591: --Re sequencing the sequence dependent ids after the delete.
592: gme_batch_step_chg_pvt.set_sequence_dependent_id
593: (l_batch_step_resource.batch_id);
594:
595: IF g_debug <= gme_debug.g_log_procedure THEN
596: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
597: END IF;
598: EXCEPTION
599: WHEN trans_delete_error OR activity_resource_delete_error OR rsrc_param_delete_error OR resource_charge_delete_error THEN
592: gme_batch_step_chg_pvt.set_sequence_dependent_id
593: (l_batch_step_resource.batch_id);
594:
595: IF g_debug <= gme_debug.g_log_procedure THEN
596: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
597: END IF;
598: EXCEPTION
599: WHEN trans_delete_error OR activity_resource_delete_error OR rsrc_param_delete_error OR resource_charge_delete_error THEN
600: x_return_status := fnd_api.g_ret_sts_error;
598: EXCEPTION
599: WHEN trans_delete_error OR activity_resource_delete_error OR rsrc_param_delete_error OR resource_charge_delete_error THEN
600: x_return_status := fnd_api.g_ret_sts_error;
601: WHEN OTHERS THEN
602: IF g_debug <= gme_debug.g_log_unexpected THEN
603: gme_debug.put_line ( 'When others exception in '
604: || g_pkg_name
605: || '.'
606: || l_api_name
599: WHEN trans_delete_error OR activity_resource_delete_error OR rsrc_param_delete_error OR resource_charge_delete_error THEN
600: x_return_status := fnd_api.g_ret_sts_error;
601: WHEN OTHERS THEN
602: IF g_debug <= gme_debug.g_log_unexpected THEN
603: gme_debug.put_line ( 'When others exception in '
604: || g_pkg_name
605: || '.'
606: || l_api_name
607: || ' Error is '
632: l_resource_tab gme_common_pvt.resource_transactions_tab;
633: l_api_name CONSTANT VARCHAR2 (30) := 'delete_resource_transactions';
634: l_return_status VARCHAR2 (1);
635: BEGIN
636: IF g_debug <= gme_debug.g_log_procedure THEN
637: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
638: || l_api_name);
639: END IF;
640:
633: l_api_name CONSTANT VARCHAR2 (30) := 'delete_resource_transactions';
634: l_return_status VARCHAR2 (1);
635: BEGIN
636: IF g_debug <= gme_debug.g_log_procedure THEN
637: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
638: || l_api_name);
639: END IF;
640:
641: /* Set the return status to success initially */
664: RAISE fnd_api.g_exc_error;
665: END IF;
666: END LOOP; /* FOR i IN 1..l_resource_tab.COUNT */
667:
668: IF g_debug <= gme_debug.g_log_procedure THEN
669: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
670: END IF;
671: EXCEPTION
672: WHEN fnd_api.g_exc_error THEN
665: END IF;
666: END LOOP; /* FOR i IN 1..l_resource_tab.COUNT */
667:
668: IF g_debug <= gme_debug.g_log_procedure THEN
669: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
670: END IF;
671: EXCEPTION
672: WHEN fnd_api.g_exc_error THEN
673: x_return_status := fnd_api.g_ret_sts_error;
671: EXCEPTION
672: WHEN fnd_api.g_exc_error THEN
673: x_return_status := fnd_api.g_ret_sts_error;
674: WHEN OTHERS THEN
675: IF g_debug <= gme_debug.g_log_unexpected THEN
676: gme_debug.put_line ( 'When others exception in '
677: || g_pkg_name
678: || '.'
679: || l_api_name
672: WHEN fnd_api.g_exc_error THEN
673: x_return_status := fnd_api.g_ret_sts_error;
674: WHEN OTHERS THEN
675: IF g_debug <= gme_debug.g_log_unexpected THEN
676: gme_debug.put_line ( 'When others exception in '
677: || g_pkg_name
678: || '.'
679: || l_api_name
680: || ' Error is '