[Home] [Help]
21: 30-Mar-2010 G. Muratore Bug 9478698
22: Make call to GMO conditionally based on enhanced_pi_ind.
23: =============================================================================*/
24: PROCEDURE unrelease_step (
25: p_batch_step_rec IN gme_batch_steps%ROWTYPE
26: ,p_update_inventory_ind IN VARCHAR2
27: ,p_create_resv_pend_lots IN NUMBER
28: ,p_from_unrelease_batch IN NUMBER
29: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
25: p_batch_step_rec IN gme_batch_steps%ROWTYPE
26: ,p_update_inventory_ind IN VARCHAR2
27: ,p_create_resv_pend_lots IN NUMBER
28: ,p_from_unrelease_batch IN NUMBER
29: ,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE
30: ,x_return_status OUT NOCOPY VARCHAR2)
31: IS
32: CURSOR cur_get_step_materials (
33: v_batch_id gme_batch_header.batch_id%TYPE
30: ,x_return_status OUT NOCOPY VARCHAR2)
31: IS
32: CURSOR cur_get_step_materials (
33: v_batch_id gme_batch_header.batch_id%TYPE
34: ,v_batchstep_id gme_batch_steps.batchstep_id%TYPE)
35: IS
36: SELECT d.*
37: FROM gme_batch_step_items i, gme_material_details d
38: WHERE d.batch_id = v_batch_id
52:
53: l_api_name CONSTANT VARCHAR2 (30) := 'unrelease_step';
54: l_material_detail_tbl gme_common_pvt.material_details_tab;
55: l_material_detail_rec gme_material_details%ROWTYPE;
56: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
57: l_msg_count NUMBER;
58: l_msg_stack VARCHAR2 (2000);
59: l_lock_status VARCHAR2(1);
60: l_locked_by_status VARCHAR2(1);
135: x_batch_step_rec.quality_status := 2;
136: END IF;
137:
138: -- Update the step
139: IF NOT (gme_batch_steps_dbl.update_row (p_batch_step => x_batch_step_rec) ) THEN
140: RAISE error_update_row;
141: END IF;
142:
143: -- Update WHO columns for output structure
269: END unrelease_step;
270:
271: PROCEDURE validate_step_for_unrelease
272: (p_batch_hdr_rec IN gme_batch_header%ROWTYPE
273: ,p_batch_step_rec IN gme_batch_steps%ROWTYPE
274: ,x_return_status OUT NOCOPY VARCHAR2) IS
275:
276: l_api_name CONSTANT VARCHAR2 (30) := 'validate_step_for_unrelease';
277:
274: ,x_return_status OUT NOCOPY VARCHAR2) IS
275:
276: l_api_name CONSTANT VARCHAR2 (30) := 'validate_step_for_unrelease';
277:
278: CURSOR cur_dep_step (v_batchstep_id gme_batch_steps.batchstep_id%TYPE, v_batch_id NUMBER) IS
279: SELECT 1
280: FROM gme_batch_step_dependencies d, gme_batch_steps s
281: WHERE d.batchstep_id = s.batchstep_id AND
282: d.batch_id = s.batch_id AND
276: l_api_name CONSTANT VARCHAR2 (30) := 'validate_step_for_unrelease';
277:
278: CURSOR cur_dep_step (v_batchstep_id gme_batch_steps.batchstep_id%TYPE, v_batch_id NUMBER) IS
279: SELECT 1
280: FROM gme_batch_step_dependencies d, gme_batch_steps s
281: WHERE d.batchstep_id = s.batchstep_id AND
282: d.batch_id = s.batch_id AND
283: d.dep_step_id = v_batchstep_id AND
284: s.batch_id = v_batch_id AND