[Home] [Help]
78: /* Miscellaneous */
79: l_batch_step_rec gme_batch_steps%ROWTYPE;
80: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
81: l_material_details_rec gme_material_details%ROWTYPE;
82: l_material_details_tab gme_common_pvt.material_details_tab;
83: l_batch_step_tab gme_common_pvt.steps_tab;
84: l_batch_header_rec gme_batch_header%ROWTYPE;
85: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
86: l_rsrc_trans_count NUMBER;
79: l_batch_step_rec gme_batch_steps%ROWTYPE;
80: l_in_batch_step_rec gme_batch_steps%ROWTYPE;
81: l_material_details_rec gme_material_details%ROWTYPE;
82: l_material_details_tab gme_common_pvt.material_details_tab;
83: l_batch_step_tab gme_common_pvt.steps_tab;
84: l_batch_header_rec gme_batch_header%ROWTYPE;
85: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
86: l_rsrc_trans_count NUMBER;
87: l_message_count NUMBER; -- 4944024
197:
198: -- Bug 10100973 - Let's remove Open orphan Move order line records if they exist.
199: DELETE FROM mtl_txn_request_lines l
200: WHERE organization_id = x_batch_header_rec.organization_id
201: AND transaction_source_type_id = gme_common_pvt.g_txn_source_type
202: AND txn_source_id = l_material_details_tab(i).batch_id
203: AND txn_source_line_id = l_material_details_tab(i).material_detail_id
204: AND line_status = 7
205: AND NOT EXISTS (SELECT 1
332: END IF;
333:
334: IF x_batch_header_rec.update_inventory_ind = 'Y' THEN
335: -- Insert the event into the batch history table
336: IF NOT gme_common_pvt.create_history (x_batch_header_rec, -1) THEN
337: IF (g_debug <= gme_debug.g_log_procedure) THEN
338: gme_debug.put_line ( g_pkg_name
339: || '.'
340: || l_api_name
346: END IF;
347: END IF;
348:
349: /* Update the row who columns */
350: x_batch_header_rec.last_update_date := gme_common_pvt.g_timestamp;
351: x_batch_header_rec.last_updated_by := gme_common_pvt.g_user_ident;
352: x_batch_header_rec.last_update_login := gme_common_pvt.g_login_id;
353:
354: IF (g_debug <= gme_debug.g_log_procedure) THEN
347: END IF;
348:
349: /* Update the row who columns */
350: x_batch_header_rec.last_update_date := gme_common_pvt.g_timestamp;
351: x_batch_header_rec.last_updated_by := gme_common_pvt.g_user_ident;
352: x_batch_header_rec.last_update_login := gme_common_pvt.g_login_id;
353:
354: IF (g_debug <= gme_debug.g_log_procedure) THEN
355: gme_debug.put_line ( g_pkg_name
348:
349: /* Update the row who columns */
350: x_batch_header_rec.last_update_date := gme_common_pvt.g_timestamp;
351: x_batch_header_rec.last_updated_by := gme_common_pvt.g_user_ident;
352: x_batch_header_rec.last_update_login := gme_common_pvt.g_login_id;
353:
354: IF (g_debug <= gme_debug.g_log_procedure) THEN
355: gme_debug.put_line ( g_pkg_name
356: || '.'
409: || 'BATCH_HEADER_UPD_ERR');
410: END IF;
411:
412: x_return_status := fnd_api.g_ret_sts_error;
413: gme_common_pvt.log_message ('GME_API_BATCH_HEADER_UPD_ERROR');
414: WHEN batch_hist_insert_err THEN
415: IF (g_debug <= gme_debug.g_log_procedure) THEN
416: gme_debug.put_line ( g_pkg_name
417: || '.'
476: ,x_return_status OUT NOCOPY VARCHAR2)
477: IS
478:
479: l_material_details_rec gme_material_details%ROWTYPE;
480: l_material_details_tab gme_common_pvt.material_details_tab;
481: l_batch_header_rec gme_batch_header%ROWTYPE;
482: l_ph_batch_header_rec gme_batch_header%ROWTYPE;
483: l_api_name CONSTANT VARCHAR2 (30) := 'purge_batch_exceptions';
484: delete_reservations_err EXCEPTION;
790: END IF;
791:
792: IF p_batch_id IS NULL AND p_material_detail_id IS NULL THEN
793: -- may use required message
794: gme_common_pvt.log_message ('GME_INVALID_FIELD'
795: ,'FIELD'
796: ,'p_batch_id');
797: RAISE fnd_api.g_exc_error;
798: END IF;