23: U - Unexpected error
24: X - Exceptions found
25: =============================================================================================*/
26: PROCEDURE release_step (
27: p_batch_step_rec IN gme_batch_steps%ROWTYPE
28: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
29: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
30: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
31: ,x_return_status OUT NOCOPY VARCHAR2)
25: =============================================================================================*/
26: PROCEDURE release_step (
27: p_batch_step_rec IN gme_batch_steps%ROWTYPE
28: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
29: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
30: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
31: ,x_return_status OUT NOCOPY VARCHAR2)
32: IS
33: l_api_name CONSTANT VARCHAR2 (30) := 'RELEASE_STEP';
36: error_release_step_rec EXCEPTION;
37: /* Local variables */
38: l_return_status VARCHAR2 (1);
39: l_batch_header_rec gme_batch_header%ROWTYPE;
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) <=
149: U - Unexpected error
150: X - Exception found
151: =============================================================================================*/
152: PROCEDURE release_step_recursive (
153: p_batch_step_rec IN gme_batch_steps%ROWTYPE
154: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
155: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
156: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
157: ,x_return_status OUT NOCOPY VARCHAR2)
151: =============================================================================================*/
152: PROCEDURE release_step_recursive (
153: p_batch_step_rec IN gme_batch_steps%ROWTYPE
154: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
155: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
156: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
157: ,x_return_status OUT NOCOPY VARCHAR2)
158: IS
159: l_api_name CONSTANT VARCHAR2 (30) := 'release_step_recursive';
166: /* Local variables */
167: l_return_status VARCHAR2 (1);
168: l_msg_count NUMBER;
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
167: l_return_status VARCHAR2 (1);
168: l_msg_count NUMBER;
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 || '.'
302: x_return_status := fnd_api.g_ret_sts_unexp_error;
303: END release_step_recursive;
304:
305: PROCEDURE process_dependent_steps (
306: p_batch_step_rec IN gme_batch_steps%ROWTYPE
307: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
308: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
309: ,x_return_status OUT NOCOPY VARCHAR2)
310: IS
313: CURSOR cur_get_dep_steps (v_batchstep_id NUMBER, v_batch_id NUMBER)
314: IS
315: SELECT d.dep_step_id, d.dep_type, d.standard_delay
316: ,s.steprelease_type, s.step_status
317: FROM gme_batch_step_dependencies d, gme_batch_steps s
318: WHERE d.batchstep_id = v_batchstep_id
319: AND s.batchstep_id = d.dep_step_id
320: AND s.batch_id = v_batch_id
321: AND d.batch_id = s.batch_id;
321: AND d.batch_id = s.batch_id;
322:
323: l_dep_step_rec cur_get_dep_steps%ROWTYPE;
324: l_return_status VARCHAR2 (1);
325: l_batch_step_rec gme_batch_steps%ROWTYPE;
326: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
327: l_complete_dep_step BOOLEAN;
328:
329: batch_step_fetch_error EXCEPTION;
322:
323: l_dep_step_rec cur_get_dep_steps%ROWTYPE;
324: l_return_status VARCHAR2 (1);
325: l_batch_step_rec gme_batch_steps%ROWTYPE;
326: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
327: l_complete_dep_step BOOLEAN;
328:
329: batch_step_fetch_error EXCEPTION;
330: dep_step_rel_error EXCEPTION;
396: IF l_dep_step_rec.steprelease_type =
397: gme_common_pvt.g_auto_step_release THEN
398: l_batch_step_rec.batchstep_id := l_dep_step_rec.dep_step_id;
399:
400: IF NOT (gme_batch_steps_dbl.fetch_row (l_batch_step_rec
401: ,l_batch_step_rec) ) THEN
402: RAISE batch_step_fetch_error;
403: END IF;
404:
551: History
552:
553: =============================================================================================*/
554: PROCEDURE release_step_line (
555: p_batch_step_rec IN gme_batch_steps%ROWTYPE
556: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
557: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
558: ,x_return_status OUT NOCOPY VARCHAR2)
559: IS
552:
553: =============================================================================================*/
554: PROCEDURE release_step_line (
555: p_batch_step_rec IN gme_batch_steps%ROWTYPE
556: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
557: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
558: ,x_return_status OUT NOCOPY VARCHAR2)
559: IS
560: l_api_name CONSTANT VARCHAR2 (30) := 'release_step_line';
558: ,x_return_status OUT NOCOPY VARCHAR2)
559: IS
560: l_api_name CONSTANT VARCHAR2 (30) := 'release_step_line';
561: l_return_status VARCHAR2 (1);
562: l_batch_step_rec gme_batch_steps%ROWTYPE;
563: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
564: batch_step_upd_err EXCEPTION;
565: BEGIN
566: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
559: IS
560: l_api_name CONSTANT VARCHAR2 (30) := 'release_step_line';
561: l_return_status VARCHAR2 (1);
562: l_batch_step_rec gme_batch_steps%ROWTYPE;
563: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
564: batch_step_upd_err EXCEPTION;
565: BEGIN
566: IF NVL (g_debug, gme_debug.g_log_procedure + 1) <=
567: gme_debug.g_log_procedure THEN
581: /* Update the Batch Step Status to WIP */
582: x_batch_step_rec.step_status := gme_common_pvt.g_step_wip;
583:
584: -- Update the batch step
585: IF NOT (gme_batch_steps_dbl.update_row (x_batch_step_rec) ) THEN
586: RAISE batch_step_upd_err;
587: END IF;
588:
589: -- Update WHO columns for output structure
633: x_return_status := fnd_api.g_ret_sts_unexp_error;
634: END release_step_line;
635:
636: PROCEDURE release_step_ingredients (
637: p_batch_step_rec IN gme_batch_steps%ROWTYPE
638: ,p_update_inv_ind IN VARCHAR2
639: ,x_exception_material_tbl IN OUT NOCOPY gme_common_pvt.exceptions_tab
640: ,x_return_status OUT NOCOPY VARCHAR2)
641: IS
722: x_return_status := fnd_api.g_ret_sts_unexp_error;
723: END release_step_ingredients;
724:
725: PROCEDURE validate_step_for_release (p_batch_header_rec IN gme_batch_header%ROWTYPE
726: ,p_batch_step_rec IN gme_batch_steps%ROWTYPE
727: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
728: ,x_return_status OUT NOCOPY VARCHAR2) IS
729:
730: l_api_name CONSTANT VARCHAR2 (30) := 'validate_step_for_release';
723: END release_step_ingredients;
724:
725: PROCEDURE validate_step_for_release (p_batch_header_rec IN gme_batch_header%ROWTYPE
726: ,p_batch_step_rec IN gme_batch_steps%ROWTYPE
727: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
728: ,x_return_status OUT NOCOPY VARCHAR2) IS
729:
730: l_api_name CONSTANT VARCHAR2 (30) := 'validate_step_for_release';
731: CURSOR cur_validity_rule(v_recipe_validity_rule_id NUMBER)