[Home] [Help]
2244: WHERE lot_id = v_lot_id;
2245:
2246: l_batch_hdr gme_batch_header%ROWTYPE;
2247: l_mtl_rec Cur_mtl_dtl%ROWTYPE;
2248: l_mmti_rec mtl_transactions_interface%ROWTYPE;
2249: l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
2250: l_mtl_dtl_rec gme_material_details%ROWTYPE;
2251: l_plot_out_rec gme_pending_product_lots%ROWTYPE;
2252: l_plot_in_rec gme_pending_product_lots%ROWTYPE;
3245:
3246: PROCEDURE create_issue_receipt(p_curr_org_id IN NUMBER,
3247: p_inventory_item_id IN NUMBER,
3248: p_txn_rec IN Cur_get_txns%ROWTYPE,
3249: p_mmti_rec IN mtl_transactions_interface%ROWTYPE,
3250: p_item_no IN VARCHAR2,
3251: p_subinventory IN VARCHAR2,
3252: p_locator_id IN NUMBER,
3253: p_batch_org_id IN NUMBER,
3304: SELECT negative_inv_receipt_code, stock_locator_control_code, organization_code
3305: FROM mtl_parameters
3306: WHERE organization_id = v_org_id;
3307: l_item_rec Cur_item_dtl%ROWTYPE;
3308: l_issue_rec mtl_transactions_interface%ROWTYPE;
3309: l_issue_lot_rec mtl_transaction_lots_interface%ROWTYPE;
3310: l_receipt_rec mtl_transactions_interface%ROWTYPE;
3311: l_receipt_lot_rec mtl_transaction_lots_interface%ROWTYPE;
3312: defined_error EXCEPTION;
3306: WHERE organization_id = v_org_id;
3307: l_item_rec Cur_item_dtl%ROWTYPE;
3308: l_issue_rec mtl_transactions_interface%ROWTYPE;
3309: l_issue_lot_rec mtl_transaction_lots_interface%ROWTYPE;
3310: l_receipt_rec mtl_transactions_interface%ROWTYPE;
3311: l_receipt_lot_rec mtl_transaction_lots_interface%ROWTYPE;
3312: defined_error EXCEPTION;
3313: expected_error EXCEPTION;
3314: item_not_defined EXCEPTION;
3823: p_token4 => 'TXN_DATA',
3824: p_param4 => l_txn_data);
3825: END create_issue_receipt;
3826:
3827: PROCEDURE insert_interface_recs(p_mti_rec IN mtl_transactions_interface%ROWTYPE,
3828: p_mtli_rec IN mtl_transaction_lots_interface%ROWTYPE,
3829: x_return_status OUT NOCOPY VARCHAR2) IS
3830: l_mti_tbl gme_common_pvt.mtl_tran_int_tbl;
3831: l_mtli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
3839: IF (p_mtli_rec.lot_number IS NOT NULL) THEN
3840: l_mtli_tbl(1) := p_mtli_rec;
3841: END IF;
3842: FORALL a IN 1..l_mti_tbl.COUNT
3843: INSERT INTO mtl_transactions_interface VALUES l_mti_tbl(a);
3844: FORALL b IN 1..l_mtli_tbl.COUNT
3845: INSERT INTO mtl_transaction_lots_interface VALUES l_mtli_tbl(b);
3846: IF (g_debug <= gme_debug.g_log_procedure) THEN
3847: gme_debug.put_line('End procedure '||l_api_name);