[Home] [Help]
299: PROCEDURE Validation_for_Query
300: ( p_query_input IN inv_reservation_global.mtl_reservation_rec_type
301: , x_opm_um OUT NOCOPY VARCHAR2
302: , x_apps_um OUT NOCOPY VARCHAR2
303: , x_ic_item_mst_rec OUT NOCOPY GMI_Reservation_Util.ic_item_mst_rec
304: , x_return_status OUT NOCOPY VARCHAR2
305: , x_msg_count OUT NOCOPY NUMBER
306: , x_msg_data OUT NOCOPY VARCHAR2
307: , x_error_code OUT NOCOPY NUMBER /* Added parameter, Bug 2168710 */
359: ||l_inventory_item_id);
360: Get_OPM_item_from_Apps(
361: p_organization_id => p_query_input.organization_id
362: , p_inventory_item_id => l_inventory_item_id
363: , x_ic_item_mst_rec => x_ic_item_mst_rec
364: , x_return_status => x_return_status
365: , x_msg_count => x_msg_count
366: , x_msg_data => x_msg_data);
367:
516: /* So convert the quantities into Item UOMs */
517: /* ======================================================================= */
518: PROCEDURE Create_Default_Lot
519: ( p_allocation_rec IN GMI_AUTO_ALLOCATE_PUB.gmi_allocation_rec
520: , p_ic_item_mst_rec IN GMI_Reservation_Util.ic_item_mst_rec
521: , p_orgn_code IN VARCHAR2
522: , p_trans_id IN NUMBER DEFAULT NULL
523: , x_return_status OUT NOCOPY VARCHAR2
524: , x_msg_count OUT NOCOPY NUMBER
549: x_return_status := FND_API.G_RET_STS_SUCCESS;
550:
551: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot.');
552: /* Fill the ic_tran_pnd record type, and then insert into ic_tran_pnd */
553: l_ictran_rec.item_id := p_ic_item_mst_rec.item_id;
554: l_ictran_rec.line_id := p_allocation_rec.line_id;
555: l_ictran_rec.co_code := g_co_code; -- B1731567
556: l_ictran_rec.orgn_code := p_orgn_code;
557: l_ictran_rec.whse_code := p_allocation_rec.whse_code;
573: /* If order UM differs from inventory UM, conversion is required.*/
574: /* The allocations are recorded as transactions written in the inventory UM */
575: /* ============================================================================== */
576: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. before call GMICUOM order_um1='
577: ||p_allocation_rec.order_um1||', item_um='||p_ic_item_mst_rec.item_um||'.' );
578: IF (p_allocation_rec.order_um1 <> p_ic_item_mst_rec.item_um)
579: THEN
580: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
581: plot_id => 0,
574: /* The allocations are recorded as transactions written in the inventory UM */
575: /* ============================================================================== */
576: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. before call GMICUOM order_um1='
577: ||p_allocation_rec.order_um1||', item_um='||p_ic_item_mst_rec.item_um||'.' );
578: IF (p_allocation_rec.order_um1 <> p_ic_item_mst_rec.item_um)
579: THEN
580: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
581: plot_id => 0,
582: pcur_qty => p_allocation_rec.order_qty1,
576: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. before call GMICUOM order_um1='
577: ||p_allocation_rec.order_um1||', item_um='||p_ic_item_mst_rec.item_um||'.' );
578: IF (p_allocation_rec.order_um1 <> p_ic_item_mst_rec.item_um)
579: THEN
580: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
581: plot_id => 0,
582: pcur_qty => p_allocation_rec.order_qty1,
583: pcur_uom => p_allocation_rec.order_um1,
584: pnew_uom => p_ic_item_mst_rec.item_um,
580: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
581: plot_id => 0,
582: pcur_qty => p_allocation_rec.order_qty1,
583: pcur_uom => p_allocation_rec.order_um1,
584: pnew_uom => p_ic_item_mst_rec.item_um,
585: onew_qty => l_tmp_qty);
586:
587:
588: /* Invert the quantity for ic_tran_pnd */
591: ELSE
592: l_ictran_rec.trans_qty := p_allocation_rec.order_qty1 * (-1);
593: END IF;
594:
595: l_ictran_rec.trans_um := p_ic_item_mst_rec.item_um;
596: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. trans_um='
597: ||p_ic_item_mst_rec.item_um||', trans_qty='||l_ictran_rec.trans_qty||'.' );
598:
599: /* Note that the UOM2 are already in the Item UOM2. No need to convert. */
593: END IF;
594:
595: l_ictran_rec.trans_um := p_ic_item_mst_rec.item_um;
596: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. trans_um='
597: ||p_ic_item_mst_rec.item_um||', trans_qty='||l_ictran_rec.trans_qty||'.' );
598:
599: /* Note that the UOM2 are already in the Item UOM2. No need to convert. */
600: l_ictran_rec.trans_qty2 := p_allocation_rec.order_qty2 * (-1);
601: l_ictran_rec.trans_um2 := p_allocation_rec.order_um2;
600: l_ictran_rec.trans_qty2 := p_allocation_rec.order_qty2 * (-1);
601: l_ictran_rec.trans_um2 := p_allocation_rec.order_um2;
602:
603: /* odab remove on 30-Aug-2000
604: IF ( p_ic_item_mst_rec.dualum_ind > 0 )
605: THEN
606: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. Need to populate qty2/um2.');
607: l_ictran_rec.trans_um2 := p_ic_item_mst_rec.item_um2;
608:
603: /* odab remove on 30-Aug-2000
604: IF ( p_ic_item_mst_rec.dualum_ind > 0 )
605: THEN
606: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. Need to populate qty2/um2.');
607: l_ictran_rec.trans_um2 := p_ic_item_mst_rec.item_um2;
608:
609: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
610: plot_id => 0,
611: pcur_qty => l_ictran_rec.trans_qty,
605: THEN
606: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. Need to populate qty2/um2.');
607: l_ictran_rec.trans_um2 := p_ic_item_mst_rec.item_um2;
608:
609: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
610: plot_id => 0,
611: pcur_qty => l_ictran_rec.trans_qty,
612: pcur_uom => l_ictran_rec.trans_um,
613: pnew_uom => l_ictran_rec.trans_um2,
738:
739: PROCEDURE Validation_Before_Allocate
740: ( p_mtl_rsv_rec IN INV_Reservation_Global.mtl_reservation_rec_type
741: , x_allocation_rec OUT NOCOPY GMI_Auto_Allocate_PUB.gmi_allocation_rec
742: , x_ic_item_mst_rec OUT NOCOPY GMI_Reservation_Util.ic_item_mst_rec
743: , x_orgn_code OUT NOCOPY VARCHAR2
744: , x_return_status OUT NOCOPY VARCHAR2
745: , x_msg_count OUT NOCOPY NUMBER
746: , x_msg_data OUT NOCOPY VARCHAR2
836: /* ============================================================================================= */
837: Get_OPM_item_from_Apps(
838: p_organization_id => p_mtl_rsv_rec.organization_id
839: , p_inventory_item_id => p_mtl_rsv_rec.inventory_item_id
840: , x_ic_item_mst_rec => x_ic_item_mst_rec
841: , x_return_status => x_return_status
842: , x_msg_count => x_msg_count
843: , x_msg_data => x_msg_data);
844:
842: , x_msg_count => x_msg_count
843: , x_msg_data => x_msg_data);
844:
845:
846: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: item_no='||x_ic_item_mst_rec.item_no);
847:
848: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
849: THEN
850: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Validation_Before_Allocate
854: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_mtl_rsv_rec.inventory_item_id);
855: FND_MSG_PUB.Add;
856: RAISE FND_API.G_EXC_ERROR;
857: ELSE
858: x_allocation_rec.item_no := x_ic_item_mst_rec.item_no;
859: END IF;
860:
861:
862:
915: ELSE
916: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: uom1='||x_allocation_rec.order_um1||'.');
917: END IF;
918:
919: IF (x_ic_item_mst_rec.dualum_ind > 0) THEN
920: /* No need to convert Apps/OPM UOM, because in the Sales Order line, UOM2 is always the Item UOM2. */
921: x_allocation_rec.order_qty2 := p_mtl_rsv_rec.attribute2;
922: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
923:
918:
919: IF (x_ic_item_mst_rec.dualum_ind > 0) THEN
920: /* No need to convert Apps/OPM UOM, because in the Sales Order line, UOM2 is always the Item UOM2. */
921: x_allocation_rec.order_qty2 := p_mtl_rsv_rec.attribute2;
922: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
923:
924: ELSE
925: x_allocation_rec.order_qty2 := NULL;
926: x_allocation_rec.order_um2 := NULL;
932: /* This means that the Order_Qties/UOM are passed to the Allocation Engine. */
933: /* ============================================================================================= */
934: /* odab Added this on 1-Sept-2000, because it is not passed by the SO. */
935: IF (x_allocation_rec.order_um2 is null
936: and x_ic_item_mst_rec.item_um2 is not null)
937: THEN
938:
939: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
940: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
935: IF (x_allocation_rec.order_um2 is null
936: and x_ic_item_mst_rec.item_um2 is not null)
937: THEN
938:
939: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
940: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
941: THEN
942: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
943: plot_id => 0,
936: and x_ic_item_mst_rec.item_um2 is not null)
937: THEN
938:
939: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
940: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
941: THEN
942: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
943: plot_id => 0,
944: pcur_qty => p_mtl_rsv_rec.reservation_quantity,
938:
939: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
940: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
941: THEN
942: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
943: plot_id => 0,
944: pcur_qty => p_mtl_rsv_rec.reservation_quantity,
945: pcur_uom => x_allocation_rec.order_um1,
946: pnew_uom => x_ic_item_mst_rec.item_um,
942: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
943: plot_id => 0,
944: pcur_qty => p_mtl_rsv_rec.reservation_quantity,
945: pcur_uom => x_allocation_rec.order_um1,
946: pnew_uom => x_ic_item_mst_rec.item_um,
947: onew_qty => l_tmp_qty);
948:
949: x_allocation_rec.order_qty1 := l_tmp_qty;
950: x_allocation_rec.order_um1 := x_ic_item_mst_rec.item_um;
946: pnew_uom => x_ic_item_mst_rec.item_um,
947: onew_qty => l_tmp_qty);
948:
949: x_allocation_rec.order_qty1 := l_tmp_qty;
950: x_allocation_rec.order_um1 := x_ic_item_mst_rec.item_um;
951:
952: ELSE
953: x_allocation_rec.order_qty1 := p_mtl_rsv_rec.reservation_quantity;
954: END IF;
953: x_allocation_rec.order_qty1 := p_mtl_rsv_rec.reservation_quantity;
954: END IF;
955:
956: /* Calculation of Qty2 from Qty1 */
957: IF x_ic_item_mst_rec.dualum_ind > 0
958: THEN
959: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
960:
961: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
955:
956: /* Calculation of Qty2 from Qty1 */
957: IF x_ic_item_mst_rec.dualum_ind > 0
958: THEN
959: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
960:
961: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
962: plot_id => 0,
963: pcur_qty => x_allocation_rec.order_qty1,
957: IF x_ic_item_mst_rec.dualum_ind > 0
958: THEN
959: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
960:
961: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
962: plot_id => 0,
963: pcur_qty => x_allocation_rec.order_qty1,
964: pcur_uom => x_allocation_rec.order_um1,
965: pnew_uom => x_allocation_rec.order_um2,
1299:
1300: PROCEDURE Get_OPM_item_from_Apps
1301: ( p_organization_id IN NUMBER
1302: , p_inventory_item_id IN NUMBER
1303: , x_ic_item_mst_rec OUT NOCOPY GMI_Reservation_Util.ic_item_mst_rec
1304: , x_return_status OUT NOCOPY VARCHAR2
1305: , x_msg_count OUT NOCOPY NUMBER
1306: , x_msg_data OUT NOCOPY VARCHAR2
1307: ) IS
1325: , inactive_ind
1326: , lot_ctl
1327: , lot_indivisible
1328: , loct_ctl
1329: FROM ic_item_mst
1330: WHERE delete_mark = 0
1331: AND item_no in (SELECT segment1
1332: FROM mtl_system_items
1333: WHERE organization_id = discrete_org_id
1341:
1342: OPEN c_item( p_organization_id
1343: , p_inventory_item_id);
1344: FETCH c_item
1345: INTO x_ic_item_mst_rec;
1346:
1347: IF c_item%NOTFOUND THEN
1348: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: item_no=NOTFOUND inv_item_id='
1349: ||p_inventory_item_id||', org_id='||p_organization_id);
1353: FND_MSG_PUB.Add;
1354: CLOSE c_item; -- Bug 3598280
1355: RAISE FND_API.G_EXC_ERROR;
1356: ELSE
1357: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: item_no='||x_ic_item_mst_rec.item_no||'.');
1358: END IF;
1359: CLOSE c_item;
1360:
1361:
1734: ) IS
1735:
1736: l_api_name CONSTANT VARCHAR2 (30) := 'Get_DefaultLot_from_ItemCtl';
1737:
1738: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
1739:
1740: -- added by fabdi 10/01/2001
1741: -- fix for bug # 1574957
1742: l_whse_ctl number;
1779: /* ============================================================================================= */
1780: Get_OPM_item_from_Apps(
1781: p_organization_id => p_organization_id
1782: , p_inventory_item_id => p_inventory_item_id
1783: , x_ic_item_mst_rec => l_ic_item_mst_rec
1784: , x_return_status => x_return_status
1785: , x_msg_count => x_msg_count
1786: , x_msg_data => x_msg_data);
1787:
1785: , x_msg_count => x_msg_count
1786: , x_msg_data => x_msg_data);
1787:
1788:
1789: GMI_Reservation_Util.printLn('After Get_OPM_Item : item_no='||l_ic_item_mst_rec.item_no);
1790:
1791: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1792: THEN
1793: GMI_Reservation_Util.printLn('(opm_dbg) in end of Get_DefaultLot_from_ItemCtl ERROR:Returned by Get_OPM_item_from_Apps.');
1814: -- end fabdi
1815:
1816: GMI_Reservation_Util.printLn('(opm_dbg) l_whse_ctl='||l_whse_ctl);
1817: /* the correct condition should be lot_ctl and( loct_ctl or whse loct_ctl)*/
1818: IF (l_ic_item_mst_rec.lot_ctl = 0) AND (l_ic_item_mst_rec.loct_ctl = 0 OR l_whse_ctl = 0)
1819: THEN
1820: x_default_lot_index := (-1) * x_default_lot_index;
1821: END IF;
1822:
2317:
2318: /* For the Allocation rules. */
2319: l_op_alot_prm_rec op_alot_prm%ROWTYPE;
2320: l_inventory_item_id NUMBER;
2321: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
2322: l_cust_no op_cust_mst.cust_no%TYPE;
2323: l_co_code op_cust_mst.co_code%TYPE; --B1731567 co_code of cust
2324:
2325: /* added by fabdi 20/08/2001 Bug 2023369 */
2473: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Entering Validation_For_Query. item_id='||l_inventory_item_id);
2474: Get_OPM_item_from_Apps(
2475: p_organization_id => l_organization_id
2476: , p_inventory_item_id => l_inventory_item_id
2477: , x_ic_item_mst_rec => l_ic_item_mst_rec
2478: , x_return_status => x_return_status
2479: , x_msg_count => x_msg_count
2480: , x_msg_data => x_msg_data);
2481:
2502: CLOSE get_cust_no; -- Bug 3598280
2503: GMI_ALLOCATION_RULES_PVT.GET_ALLOCATION_PARMS
2504: ( p_co_code => l_co_code, --B1731567
2505: p_cust_no => l_cust_no,
2506: p_alloc_class => l_ic_item_mst_rec.alloc_class,
2507: x_op_alot_prm => l_op_alot_prm_rec,
2508: x_return_status => x_return_status,
2509: x_msg_count => x_msg_count,
2510: x_msg_data => x_msg_data
2516: (l_op_alot_prm_rec.delete_mark = 1))
2517: THEN
2518: GMI_Reservation_Util.PrintLn('(opm_dbg) allocation - Error missing allocation parms',1);
2519: FND_MESSAGE.SET_NAME('GML','GML_NO_ALLOCATION_PARMS');
2520: FND_MESSAGE.SET_TOKEN('ALLOC_CLASS', l_ic_item_mst_rec.alloc_class);
2521: FND_MSG_PUB.Add;
2522: RAISE FND_API.G_EXC_ERROR;
2523: END IF;
2524:
3003: OPEN get_whse_ctl(l_organization_id);
3004: FETCH get_whse_ctl INTO l_whse_ctl;
3005: CLOSE get_whse_ctl;
3006:
3007: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, l_ic_item_mst_rec.lot_ctl= '||l_ic_item_mst_rec.lot_ctl, 'pick_lots.log');
3008: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, l_organization_id= '||l_organization_id, 'pick_lots.log');
3009:
3010: IF l_ic_item_mst_rec.lot_ctl <> 0
3011: THEN
3006:
3007: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, l_ic_item_mst_rec.lot_ctl= '||l_ic_item_mst_rec.lot_ctl, 'pick_lots.log');
3008: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, l_organization_id= '||l_organization_id, 'pick_lots.log');
3009:
3010: IF l_ic_item_mst_rec.lot_ctl <> 0
3011: THEN
3012: SELECT SUM(ABS(TRANS_QTY)), SUM(ABS(TRANS_QTY2))
3013: INTO l_NEW_ALLOCATED_QTY, l_NEW_ALLOCATED_QTY2
3014: from ic_tran_pnd
3021: and line_detail_id in
3022: (Select delivery_detail_id
3023: From wsh_delivery_details
3024: Where move_order_line_id = p_mo_line_id);
3025: ELSIF ((l_ic_item_mst_rec.loct_ctl * l_whse_ctl) <> 0 )
3026: THEN
3027: SELECT SUM(ABS(TRANS_QTY)), SUM(ABS(TRANS_QTY2))
3028: INTO l_NEW_ALLOCATED_QTY, l_NEW_ALLOCATED_QTY2
3029: from ic_tran_pnd
3202: IS
3203: Select ic.item_id
3204: , ic.item_um
3205: , ic.item_um2
3206: From ic_item_mst ic
3207: , mtl_system_items mtl
3208: Where mtl.organization_id = p_org_id
3209: and mtl.inventory_item_id = p_inv_Item_id
3210: and mtl.segment1 = ic.item_no;
3793: AND tt.transaction_type_id = soh.order_type_id
3794: AND sol.header_id = soh.header_id;
3795: Cursor get_uom IS
3796: Select item_um, item_um2
3797: From ic_item_mst
3798: Where item_id = p_item_id;
3799:
3800: -- BEGIN - Bug 3216096.
3801: -- Bug 3558787 get line Number as well
3937: Cursor get_uom IS
3938: Select item_um
3939: , item_um2
3940: , loct_ctl
3941: From ic_item_mst
3942: Where item_id = p_item_id;
3943:
3944: Cursor get_rcv_trans(p_transaction_id IN NUMBER) IS
3945: Select transaction_date
4397: p_lot_id IN NUMBER DEFAULT 0
4398: ) RETURN NUMBER IS
4399:
4400: l_inventory_item_id NUMBER;
4401: l_ic_item_mst_rec GMI_RESERVATION_UTIL.ic_item_mst_rec;
4402: l_return_status VARCHAR2(30);
4403: l_msg_count NUMBER;
4404: l_msg_data VARCHAR2(5);
4405: l_opm_from_uom VARCHAR2(5);
4422:
4423: GMI_RESERVATION_UTIL.Get_OPM_Item_From_Apps(
4424: p_organization_id => p_organization_id,
4425: p_inventory_item_id => l_inventory_item_id,
4426: x_ic_item_mst_rec => l_ic_item_mst_rec,
4427: x_return_status => l_return_status,
4428: x_msg_count => l_msg_count,
4429: x_msg_data => l_msg_data);
4430:
4459: END IF;
4460: GMI_reservation_Util.PrintLn('to uom (OPM) '||l_opm_to_uom);
4461:
4462: GMICUOM.icuomcv(
4463: pitem_id =>l_ic_item_mst_rec.item_id,
4464: plot_id =>p_lot_id,
4465: pcur_qty =>p_original_qty,
4466: pcur_uom =>l_opm_from_uom,
4467: pnew_uom =>l_opm_to_uom,
4574: l_whse_code VARCHAR2(5);
4575:
4576: Cursor Get_item_info IS
4577: SELECT iim.item_id, iim.lot_ctl, iim.loct_ctl
4578: FROM ic_item_mst iim,
4579: mtl_system_items msi
4580: WHERE msi.inventory_item_id = p_inventory_item_id
4581: AND msi.organization_id = p_mtl_organization_id
4582: AND msi.segment1 = iim.item_no;
4670: Cursor Get_item_info IS
4671: Select ic.item_id
4672: , ic.lot_ctl
4673: , ic.loct_ctl
4674: From ic_item_mst ic
4675: , mtl_system_items mtl
4676: Where ic.item_no = mtl.segment1
4677: and mtl.inventory_item_id = l_inventory_item_id
4678: and mtl.organization_id = l_organization_id;
5113:
5114:
5115: l_return_status VARCHAR2(1);
5116: l_okay BOOLEAN;
5117: l_ic_item_mst_rec GMI_RESERVATION_UTIL.ic_item_mst_rec;
5118: l_msg_data VARCHAR2(2000);
5119: l_msg_count NUMBER;
5120: opm_item_id NUMBER;
5121: l_lot_number VARCHAR2(32); -- Bug 3598280 - Made the variable varchar2(32) from varchar2(4)
5135: x_return_status := FND_API.G_RET_STS_SUCCESS;
5136: GMI_RESERVATION_UTIL.Get_OPM_Item_From_Apps(
5137: p_organization_id =>p_organization_id,
5138: p_inventory_item_id => p_inventory_item_id,
5139: x_ic_item_mst_rec => l_ic_item_mst_rec,
5140: x_return_status => l_return_status,
5141: x_msg_count => l_msg_count,
5142: x_msg_data => l_msg_data);
5143:
5145: raise FND_API.G_EXC_ERROR;
5146: RETURN;
5147: END IF;
5148:
5149: opm_item_id := l_ic_item_mst_rec.item_id ;
5150:
5151: OPEN get_lot_no(opm_item_id);
5152: FETCH get_lot_no into l_lot_number;
5153: IF get_lot_no%NOTFOUND THEN
5374: l_lot_id NUMBER;
5375: l_whse_code VARCHAR2(5);
5376: l_location VARCHAR(20);
5377: l_count NUMBER;
5378: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
5379: x_msg_count NUMBER;
5380: x_msg_data VARCHAR2(1000);
5381: l_api_name CONSTANT VARCHAR2 (30) := 'is_line_allocated';
5382: return_status VARCHAR2(10);
5391:
5392: Get_OPM_item_from_Apps(
5393: p_organization_id => p_organization_id
5394: , p_inventory_item_id => p_inventory_item_id
5395: , x_ic_item_mst_rec => l_ic_item_mst_rec
5396: , x_return_status => return_status
5397: , x_msg_count => x_msg_count
5398: , x_msg_data => x_msg_data);
5399:
5404: FND_MSG_PUB.Add;
5405: raise FND_API.G_EXC_ERROR;
5406: END IF;
5407:
5408: IF ( l_ic_item_mst_rec.lot_indivisible = 1 ) THEN
5409: /* see if item is a ctl item */
5410: GMI_RESERVATION_UTIL.check_lot_loct_ctl
5411: ( p_inventory_item_id => p_inventory_item_id
5412: ,p_mtl_organization_id => p_organization_id
5506: x_check_status OUT NOCOPY NUMBER,
5507: x_return_status OUT NOCOPY VARCHAR2)
5508: IS
5509:
5510: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
5511: x_msg_count NUMBER;
5512: x_msg_data VARCHAR2(1000);
5513: l_api_name CONSTANT VARCHAR2 (30) := 'validate_opm_quantities';
5514: return_status VARCHAR2(10);
5517:
5518: CURSOR cur_lot_id_with_sublot IS
5519: SELECT ic.lot_id
5520: FROM ic_lots_mst ic
5521: WHERE ic.item_id = l_ic_item_mst_rec.item_id
5522: AND ic.lot_no = p_lot_number
5523: AND ic.sublot_no = p_sublot_number;
5524:
5525: CURSOR cur_lot_id_with_lot IS
5524:
5525: CURSOR cur_lot_id_with_lot IS
5526: SELECT ic.lot_id
5527: FROM ic_lots_mst ic
5528: WHERE ic.item_id = l_ic_item_mst_rec.item_id
5529: AND ic.lot_no = p_lot_number
5530: AND ic.sublot_no IS NULL;
5531:
5532: BEGIN
5545: gmi_reservation_util.println('Calling Get_OPM_item_from_Apps from validate_opm_quantities');
5546: Get_OPM_item_from_Apps(
5547: p_organization_id => p_organization_id
5548: , p_inventory_item_id => p_inventory_item_id
5549: , x_ic_item_mst_rec => l_ic_item_mst_rec
5550: , x_return_status => return_status
5551: , x_msg_count => x_msg_count
5552: , x_msg_data => x_msg_data);
5553: gmi_reservation_util.println('BaCK FROM Get_OPM_item_from_Apps IN validate_opm_quantities');
5560: x_check_status := 0;
5561: raise FND_API.G_EXC_ERROR;
5562: END IF;
5563:
5564: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5566: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5567: x_check_status := 2;
5568: x_return_status := FND_API.G_RET_STS_ERROR;
5585: END IF;
5586: END IF;
5587: -- Get lot_id.
5588: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Lot '|| p_lot_number || ' Sublot '|| p_sublot_number);
5589: IF ( l_ic_item_mst_rec.lot_ctl = 0 ) THEN
5590: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Item Not Lot Control.');
5591: l_lot_id := 0;
5592: ELSIF (p_lot_number IS NOT NULL AND p_sublot_number IS NOT NULL) THEN
5593: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Sublot Not Null.');
5609: l_lot_id := 0;
5610: END IF;
5611: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: lot_id '||l_lot_id);
5612: -- We have item_id, lot_id, qty1 and qty2 Now call deviation check
5613: l_return := GMICVAL.dev_validation(l_ic_item_mst_rec.item_id
5614: ,l_lot_id
5615: ,p_quantity
5616: ,l_ic_item_mst_rec.item_um
5617: ,p_quantity2
5612: -- We have item_id, lot_id, qty1 and qty2 Now call deviation check
5613: l_return := GMICVAL.dev_validation(l_ic_item_mst_rec.item_id
5614: ,l_lot_id
5615: ,p_quantity
5616: ,l_ic_item_mst_rec.item_um
5617: ,p_quantity2
5618: ,l_ic_item_mst_rec.item_um2
5619: ,0);
5620:
5614: ,l_lot_id
5615: ,p_quantity
5616: ,l_ic_item_mst_rec.item_um
5617: ,p_quantity2
5618: ,l_ic_item_mst_rec.item_um2
5619: ,0);
5620:
5621: IF(l_return = -68) THEN
5622: -- 'IC_DEVIATION_HI_ERR'