33: E - Error
34: U - Unexpected error
35: ================================================================================*/
36: PROCEDURE cancel_batch (
37: p_batch_header_rec IN gme_batch_header%ROWTYPE
38: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
39: ,x_return_status OUT NOCOPY VARCHAR2)
40: IS
41: CURSOR cur_get_steps (v_batch_id NUMBER)
34: U - Unexpected error
35: ================================================================================*/
36: PROCEDURE cancel_batch (
37: p_batch_header_rec IN gme_batch_header%ROWTYPE
38: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
39: ,x_return_status OUT NOCOPY VARCHAR2)
40: IS
41: CURSOR cur_get_steps (v_batch_id NUMBER)
42: IS
50: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
51: l_material_details_rec gme_material_details%ROWTYPE;
52: l_material_details_tab gme_common_pvt.material_details_tab;
53: l_batch_step_tab gme_common_pvt.steps_tab;
54: l_batch_header_rec gme_batch_header%ROWTYPE;
55: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
56: l_rsrc_trans_count NUMBER;
57: l_message_count NUMBER; -- 4944024
58: l_message_data VARCHAR2(2000); -- 4944024
51: l_material_details_rec gme_material_details%ROWTYPE;
52: l_material_details_tab gme_common_pvt.material_details_tab;
53: l_batch_step_tab gme_common_pvt.steps_tab;
54: l_batch_header_rec gme_batch_header%ROWTYPE;
55: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
56: l_rsrc_trans_count NUMBER;
57: l_message_count NUMBER; -- 4944024
58: l_message_data VARCHAR2(2000); -- 4944024
59: l_return_status VARCHAR2 (1);
148:
149: -- Recursive call to the private API.
150: l_batch_header_rec.batch_id :=
151: l_material_details_tab (i).phantom_id;
152: IF NOT (gme_batch_header_dbl.fetch_row (l_batch_header_rec
153: ,l_ph_batch_header_rec) ) THEN
154: RAISE batch_header_fetch_failure;
155: END IF;
156:
256: || 'Call batch UPDATE_ROW'
257: || x_batch_header_rec.batch_status);
258: END IF;
259:
260: IF NOT (gme_batch_header_dbl.update_row (x_batch_header_rec) ) THEN
261: RAISE batch_header_upd_err;
262: END IF;
263:
264: IF x_batch_header_rec.update_inventory_ind = 'Y' THEN
397:
398:
399:
400: PROCEDURE purge_batch_exceptions (
401: p_batch_header_rec IN gme_batch_header%ROWTYPE
402: ,p_delete_invis_mo IN VARCHAR2 := 'F'
403: ,p_delete_reservations IN VARCHAR2 := 'F'
404: ,p_delete_trans_pairs IN VARCHAR2 := 'F'
405: ,x_return_status OUT NOCOPY VARCHAR2)
406: IS
407:
408: l_material_details_rec gme_material_details%ROWTYPE;
409: l_material_details_tab gme_common_pvt.material_details_tab;
410: l_batch_header_rec gme_batch_header%ROWTYPE;
411: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
412: l_api_name CONSTANT VARCHAR2 (30) := 'purge_batch_exceptions';
413: delete_reservations_err EXCEPTION;
414: delete_move_order_err EXCEPTION;
407:
408: l_material_details_rec gme_material_details%ROWTYPE;
409: l_material_details_tab gme_common_pvt.material_details_tab;
410: l_batch_header_rec gme_batch_header%ROWTYPE;
411: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
412: l_api_name CONSTANT VARCHAR2 (30) := 'purge_batch_exceptions';
413: delete_reservations_err EXCEPTION;
414: delete_move_order_err EXCEPTION;
415: delete_trans_pair_err EXCEPTION;