[Home] [Help]
157: m_mmti_rec mtl_transactions_interface%ROWTYPE;
158: m_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
159: x_mmti_rec mtl_transactions_interface%ROWTYPE;
160: x_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
161: l_mat_dtl_rec gme_material_details%ROWTYPE;
162: m_mat_dtl_rec gme_material_details%ROWTYPE;
163: l_ret NUMBER;
164: l_api_version NUMBER;
165: l_msg_count NUMBER;
158: m_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
159: x_mmti_rec mtl_transactions_interface%ROWTYPE;
160: x_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
161: l_mat_dtl_rec gme_material_details%ROWTYPE;
162: m_mat_dtl_rec gme_material_details%ROWTYPE;
163: l_ret NUMBER;
164: l_api_version NUMBER;
165: l_msg_count NUMBER;
166: l_msg_data VARCHAR2 (2000);
186: l_mmli_tbl := p_mmli_tbl;
187: l_mat_dtl_rec.material_detail_id := l_mmti_rec.trx_source_line_id;
188:
189: -- Now fetch the material details for the material
190: IF NOT gme_material_details_dbl.fetch_row
191: (p_material_detail => l_mat_dtl_rec
192: ,x_material_detail => l_mat_dtl_rec) THEN
193: RAISE fnd_api.g_exc_error;
194: END IF;
311: || l_mmti_rec.transaction_type_id);
312: END IF;
313:
314: -- Now fetch the material details for the phantom line
315: IF NOT gme_material_details_dbl.fetch_row
316: (p_material_detail => m_mat_dtl_rec
317: ,x_material_detail => m_mat_dtl_rec) THEN
318: RAISE fnd_api.g_exc_error;
319: END IF;
667: l_mmt_rec mtl_material_transactions%ROWTYPE;
668: l_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl;
669: l_mmti_rec mtl_transactions_interface%ROWTYPE;
670: l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
671: l_mat_dtl_rec gme_material_details%ROWTYPE;
672: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
673:
674: create_material_txn_err EXCEPTION;
675: delete_material_txn_err EXCEPTION;
677: -- Bug 9301755 - Introduce cursor to get line_type and variables.
678: -- Bug 9770408 - Fetch the divisible flag also.
679: CURSOR Cur_get_material_line_type (v_transaction_id NUMBER) IS
680: SELECT d.line_type, NVL( lot_divisible_flag, 'Y')
681: FROM mtl_material_transactions t, gme_material_details d, mtl_system_items_b i
682: WHERE t.transaction_source_type_id = 5
683: AND t.transaction_id = v_transaction_id
684: AND d.batch_id = t.transaction_source_id
685: AND d.material_detail_id = t.trx_source_line_id
685: AND d.material_detail_id = t.trx_source_line_id
686: AND d.inventory_item_id = i.inventory_item_id
687: AND d.organization_id = i.organization_id;
688:
689: l_line_type gme_material_details.line_type%TYPE;
690: l_lot_divisible VARCHAR2(1);
691: l_delete_done NUMBER;
692:
693: invalid_line_type EXCEPTION;
875: l_mmt_rec mtl_material_transactions%ROWTYPE;
876: l_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl;
877: l_mmti_rec mtl_transactions_interface%ROWTYPE;
878: l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
879: l_mat_dtl_rec gme_material_details%ROWTYPE;
880: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
881: create_material_txn_err EXCEPTION;
882: delete_material_txn_err EXCEPTION;
883:
883:
884: -- Bug 8639523 - Introduce cursor to get line_type and variables.
885: CURSOR Cur_get_material_line_type (v_transaction_id NUMBER) IS
886: SELECT d.line_type, NVL( lot_divisible_flag, 'Y')
887: FROM mtl_material_transactions t, gme_material_details d, mtl_system_items_b i
888: WHERE t.transaction_source_type_id = 5
889: AND t.transaction_id = v_transaction_id
890: AND d.batch_id = t.transaction_source_id
891: AND d.material_detail_id = t.trx_source_line_id
891: AND d.material_detail_id = t.trx_source_line_id
892: AND d.inventory_item_id = i.inventory_item_id
893: AND d.organization_id = i.organization_id;
894:
895: l_line_type gme_material_details.line_type%TYPE;
896: l_lot_divisible VARCHAR2(1);
897: l_delete_done NUMBER;
898:
899: invalid_line_type EXCEPTION;
1117: l_mmt_rec mtl_material_transactions%ROWTYPE;
1118: l_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl;
1119: l_mmti_rec mtl_transactions_interface%ROWTYPE;
1120: l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
1121: l_mat_dtl_rec gme_material_details%ROWTYPE;
1122: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1123: create_material_txn_err EXCEPTION;
1124: delete_material_txn_err EXCEPTION;
1125: get_trans_err EXCEPTION;
1250: || 'getting material for '
1251: || l_mat_dtl_rec.material_detail_id);
1252: END IF;
1253:
1254: IF NOT gme_material_details_dbl.fetch_row
1255: (p_material_detail => l_mat_dtl_rec
1256: ,x_material_detail => l_mat_dtl_rec) THEN
1257: RAISE fnd_api.g_exc_error;
1258: END IF;
2955: IF p_mat_det_id IS NOT NULL AND p_batch_id IS NOT NULL THEN
2956: /*Bug#8300015 Fetching the transactions along with the associated phantom material */
2957: IF p_phantom_line_id IS NOT NULL THEN
2958: SELECT batch_id INTO p_phantom_batch_id
2959: FROM gme_material_details
2960: WHERE material_detail_id = p_phantom_line_id;
2961: OPEN cur_get_all_trans (p_mat_det_id, p_batch_id,p_phantom_line_id,p_phantom_batch_id,
2962: gme_common_pvt.g_txn_source_type, gme_common_pvt.g_pairs_reversal_type);
2963: FETCH cur_get_all_trans
3227: NULL
3228: )
3229: )
3230: )
3231: FROM mtl_material_transactions t, gme_material_details d
3232: WHERE t.organization_id = v_organization_id
3233: AND t.inventory_item_id = v_item_id
3234: AND t.transaction_source_id = v_batch_id
3235: AND t.trx_source_line_id = v_mat_det_id
3261: NULL
3262: )
3263: )
3264: )
3265: FROM mtl_material_transactions m, mtl_transaction_lot_numbers l, gme_material_details d
3266: WHERE l.transaction_id = m.transaction_id
3267: AND m.trx_source_line_id = d.material_detail_id
3268: AND l.lot_number = v_lot_number
3269: AND l.inventory_item_id = v_item_id
3404: GROUP BY lot_number;
3405:
3406: l_mmti_rec mtl_transactions_interface%ROWTYPE;
3407: l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
3408: l_mat_dtl_rec gme_material_details%ROWTYPE;
3409: l_batch_hdr_rec gme_batch_header%ROWTYPE;
3410: l_item_rec mtl_system_items_b%ROWTYPE;
3411: l_available_qty NUMBER;
3412: l_step_status NUMBER;
3460: IF l_batch_hdr_rec.update_inventory_ind = 'Y' THEN
3461: IF l_mmti_rec.trx_source_line_id IS NOT NULL THEN
3462: l_mat_dtl_rec.material_detail_id := l_mmti_rec.trx_source_line_id;
3463:
3464: IF NOT gme_material_details_dbl.fetch_row
3465: (p_material_detail => l_mat_dtl_rec
3466: ,x_material_detail => l_mat_dtl_rec) THEN
3467: RAISE fnd_api.g_exc_error;
3468: END IF; -- material fetch
3821: DECODE(d.dtl_um,t.transaction_uom, NVL(tl.transaction_quantity,t.transaction_quantity),
3822: Inv_Convert.inv_um_convert(d.inventory_item_id,tl.lot_number,t.organization_id, 5
3823: ,NVL(tl.transaction_quantity,t.transaction_quantity), t.transaction_uom
3824: ,d.dtl_um, NULL, NULL)) doc_qty
3825: FROM mtl_material_transactions t , gme_material_details d, mtl_transaction_lot_numbers tl
3826: WHERE t.organization_id = v_organization_id
3827: AND t.transaction_source_id = v_batch_id
3828: AND t.trx_source_line_id = v_mat_det_id
3829: AND t.transaction_source_type_id = gme_common_pvt.g_txn_source_type
3873: l_inventory_item_id NUMBER;
3874: l_organization_id NUMBER;
3875: l_actual_qty NUMBER;
3876: l_gme_pairs_rec gme_transaction_pairs%ROWTYPE;
3877: l_mat_dtl_rec gme_material_details%ROWTYPE;
3878: l_api_name CONSTANT VARCHAR2 (30) := 'gme_post_process';
3879: l_exists NUMBER; -- Bug 5763818
3880: transfer_error EXCEPTION; -- B4944024
3881: dispense_error EXCEPTION;
4002:
4003: -- for transaction pairs
4004: IF l_transaction_reference IS NOT NULL THEN
4005: l_mat_dtl_rec.material_detail_id := l_trx_source_line_id ;
4006: IF NOT gme_material_details_dbl.fetch_row
4007: (p_material_detail => l_mat_dtl_rec
4008: ,x_material_detail => l_mat_dtl_rec) THEN
4009: RAISE fnd_api.g_exc_error;
4010: END IF;
4214:
4215: -- get the total quantity for actaul qty update of material detail line
4216: l_mat_dtl_rec.material_detail_id := l_trx_source_line_id;
4217:
4218: IF NOT gme_material_details_dbl.fetch_row
4219: (p_material_detail => l_mat_dtl_rec
4220: ,x_material_detail => l_mat_dtl_rec) THEN
4221: RAISE fnd_api.g_exc_error;
4222: END IF;
4248: END IF;
4249:
4250: l_mat_dtl_rec.actual_qty := ABS (l_actual_qty);
4251:
4252: IF NOT gme_material_details_dbl.update_row
4253: (p_material_detail => l_mat_dtl_rec) THEN
4254: RAISE fnd_api.g_exc_error;
4255: END IF;
4256:
4744: --mtl_material_transactions mmt,
4745: --mtl_transaction_lot_numbers mtln,
4746: mtl_material_transactions mmt, /* Removed mtln for Bug 8347011 base bug 8219507 */
4747: mtl_system_items_b msi,
4748: gme_material_details md,
4749: gme_transaction_pairs gtp
4750: WHERE
4751: mmt.transaction_set_id = gme_common_pvt.g_transaction_header_id
4752: --AND mtln.transaction_id(+) = mmt.transaction_id /*Commented for Bug 8347011*/
5798: SELECT step_status
5799: FROM gme_batch_steps s, gme_batch_step_items i
5800: WHERE s.batchstep_id = i.batchstep_id
5801: AND i.material_detail_id = v_matl_dtl_id;
5802: l_mat_dtl_rec gme_material_details%ROWTYPE;
5803: l_batch_hdr_rec gme_batch_header%ROWTYPE;
5804: l_item_rec mtl_system_items_b%ROWTYPE;
5805: l_available_qty NUMBER;
5806: l_step_status NUMBER;
5838:
5839: IF l_batch_hdr_rec.update_inventory_ind = 'Y' THEN
5840: IF p_mmti_rec.trx_source_line_id IS NOT NULL THEN
5841: l_mat_dtl_rec.material_detail_id := p_mmti_rec.trx_source_line_id;
5842: IF NOT gme_material_details_dbl.fetch_row(l_mat_dtl_rec, l_mat_dtl_rec) THEN
5843: RAISE fnd_api.g_exc_error;
5844: END IF; -- material fetch
5845: ELSE
5846: RAISE fnd_api.g_exc_error;