[Home] [Help]
408:
409: l_whse_code ic_tran_pnd.whse_code%TYPE;
410: l_orgn_code ic_tran_pnd.orgn_code%TYPE;
411: l_loct_ctl ic_whse_mst.loct_ctl%TYPE;
412: l_item_loct_ctl ic_item_mst.loct_ctl%TYPE;
413: l_item_lot_ctl ic_item_mst.lot_ctl%TYPE;
414: l_co_code ic_tran_pnd.co_code%TYPE;
415: l_item_id ic_tran_pnd.item_id%TYPE;
416: l_lot_status ic_tran_pnd.lot_status%TYPE;
409: l_whse_code ic_tran_pnd.whse_code%TYPE;
410: l_orgn_code ic_tran_pnd.orgn_code%TYPE;
411: l_loct_ctl ic_whse_mst.loct_ctl%TYPE;
412: l_item_loct_ctl ic_item_mst.loct_ctl%TYPE;
413: l_item_lot_ctl ic_item_mst.lot_ctl%TYPE;
414: l_co_code ic_tran_pnd.co_code%TYPE;
415: l_item_id ic_tran_pnd.item_id%TYPE;
416: l_lot_status ic_tran_pnd.lot_status%TYPE;
417: l_qc_grade ic_tran_pnd.qc_grade%TYPE := NULL;
417: l_qc_grade ic_tran_pnd.qc_grade%TYPE := NULL;
418: l_location ic_tran_pnd.location%TYPE;
419: l_user_id ic_tran_pnd.created_by%TYPE;
420: l_doc_type ic_tran_pnd.doc_type%TYPE;
421: l_non_inv ic_item_mst.noninv_ind%TYPE;
422: l_lot_no ic_lots_mst.lot_no%TYPE;
423: l_sublot_no ic_lots_mst.sublot_no%TYPE;
424: ex_exception_found EXCEPTION;
425:
449: l_receipt_opm_um VARCHAR2(25);
450: l_lot_receive_qty NUMBER;
451:
452: -- lot status: bug 3278027
453: l_item_sts_ctl ic_item_mst.status_ctl%TYPE;
454: l_rec_cnt NUMBER := 0;
455: l_ship_status VARCHAR2(4) := NULL;
456: l_rcpt_status VARCHAR2(4) := NULL;
457: l_txn_allowed VARCHAR2(1) := NULL;
797: BEGIN
798: -- lot status: bug 3278027, added l_item_sts_ctl
799: SELECT oi.item_id , oi.noninv_ind, oi.loct_ctl, oi.lot_ctl, oi.status_ctl
800: INTO l_item_id, l_non_inv, l_item_loct_ctl, l_item_lot_ctl, l_item_sts_ctl
801: FROM ic_item_mst oi, mtl_system_items ai
802: WHERE ai.organization_id = l_organization_id
803: AND ai.inventory_item_id = l_ora_item_id
804: AND ai.segment1 = oi.item_no;
805:
966: where item_id = l_tran_rec.item_id
967: and lot_id = l_tran_rec.lot_id;
968:
969: /* Select lot status Check a record in ic_loct_inv for the item,lot,warehouse,location
970: if no record in ic_loct_inv then get default status from ic_item_mst */
971:
972: -- lot status: bug 3278027, this is for direct shipment of internal orders
973: -- Bug 3917381 changed following IF condition from l_item_sts_ctl = 1 to l_item_sts_ctl <> 0
974: IF l_item_sts_ctl <> 0 THEN
1048: EXCEPTION
1049: When NO_DATA_FOUND then
1050: select lot_status
1051: into l_tran_rec.lot_status
1052: from ic_item_mst
1053: where item_id = l_item_id;
1054:
1055: When OTHERS then
1056: x_return_status := '-70';
1282: OR l_receipt_source_code <> 'INTERNAL ORDER'
1283: OR l_ship_status IS NULL) THEN
1284:
1285: /* Select lot status Check a record in ic_loct_inv for the item,lot,warehouse,location
1286: if no record in ic_loct_inv then get default status from ic_item_mst */
1287:
1288: BEGIN
1289: select lot_status
1290: into l_tran_rec.lot_status
1297: EXCEPTION
1298: When NO_DATA_FOUND then
1299: select lot_status
1300: into l_tran_rec.lot_status
1301: from ic_item_mst
1302: where item_id = l_item_id;
1303:
1304: When OTHERS then
1305: x_return_status := '-100';
1434: ELSIF x_return_status = '-10' THEN
1435: l_error_message := x_return_Status||' No data found in IC_WHSE_MST for organization with id '||to_char(l_organization_id);
1436:
1437: ELSIF x_return_status = '-20' THEN
1438: l_error_message := x_return_Status||' No data found in IC_ITEM_MST for item with id '||to_char(l_ora_item_id);
1439:
1440: ELSIF x_return_status = '-30' THEN
1441: l_error_message := x_return_Status||' When others in get_opm_uom_code';
1442: