[Home] [Help]
2026: FROM ic_lots_mst
2027: WHERE lot_id = v_lot_id;
2028: l_batch_hdr gme_batch_header%ROWTYPE;
2029: l_mtl_rec Cur_mtl_dtl%ROWTYPE;
2030: l_mmti_rec mtl_transactions_interface%ROWTYPE;
2031: l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
2032: l_mtl_dtl_rec gme_material_details%ROWTYPE;
2033: l_plot_out_rec gme_pending_product_lots%ROWTYPE;
2034: l_plot_in_rec gme_pending_product_lots%ROWTYPE;
2832:
2833: PROCEDURE create_issue_receipt(p_curr_org_id IN NUMBER,
2834: p_inventory_item_id IN NUMBER,
2835: p_txn_rec IN Cur_get_txns%ROWTYPE,
2836: p_mmti_rec IN mtl_transactions_interface%ROWTYPE,
2837: p_item_no IN VARCHAR2,
2838: p_subinventory IN VARCHAR2,
2839: p_locator_id IN NUMBER,
2840: p_batch_org_id IN NUMBER,
2877: SELECT negative_inv_receipt_code, stock_locator_control_code, organization_code
2878: FROM mtl_parameters
2879: WHERE organization_id = v_org_id;
2880: l_item_rec Cur_item_dtl%ROWTYPE;
2881: l_issue_rec mtl_transactions_interface%ROWTYPE;
2882: l_issue_lot_rec mtl_transaction_lots_interface%ROWTYPE;
2883: l_receipt_rec mtl_transactions_interface%ROWTYPE;
2884: l_receipt_lot_rec mtl_transaction_lots_interface%ROWTYPE;
2885: defined_error EXCEPTION;
2879: WHERE organization_id = v_org_id;
2880: l_item_rec Cur_item_dtl%ROWTYPE;
2881: l_issue_rec mtl_transactions_interface%ROWTYPE;
2882: l_issue_lot_rec mtl_transaction_lots_interface%ROWTYPE;
2883: l_receipt_rec mtl_transactions_interface%ROWTYPE;
2884: l_receipt_lot_rec mtl_transaction_lots_interface%ROWTYPE;
2885: defined_error EXCEPTION;
2886: expected_error EXCEPTION;
2887: item_not_defined EXCEPTION;
3273: p_token3 => 'TXN_DATA',
3274: p_param3 => l_txn_data);
3275: END create_issue_receipt;
3276:
3277: PROCEDURE insert_interface_recs(p_mti_rec IN mtl_transactions_interface%ROWTYPE,
3278: p_mtli_rec IN mtl_transaction_lots_interface%ROWTYPE,
3279: x_return_status OUT NOCOPY VARCHAR2) IS
3280: l_mti_tbl gme_common_pvt.mtl_tran_int_tbl;
3281: l_mtli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
3289: IF (p_mtli_rec.lot_number IS NOT NULL) THEN
3290: l_mtli_tbl(1) := p_mtli_rec;
3291: END IF;
3292: FORALL a IN 1..l_mti_tbl.COUNT
3293: INSERT INTO mtl_transactions_interface VALUES l_mti_tbl(a);
3294: FORALL b IN 1..l_mtli_tbl.COUNT
3295: INSERT INTO mtl_transaction_lots_interface VALUES l_mtli_tbl(b);
3296: IF (g_debug <= gme_debug.g_log_procedure) THEN
3297: gme_debug.put_line('End procedure '||l_api_name);