[Home] [Help]
295: PROCEDURE Validation_for_Query
296: ( p_query_input IN inv_reservation_global.mtl_reservation_rec_type
297: , x_opm_um OUT NOCOPY VARCHAR2
298: , x_apps_um OUT NOCOPY VARCHAR2
299: , x_ic_item_mst_rec OUT NOCOPY GMI_Reservation_Util.ic_item_mst_rec
300: , x_return_status OUT NOCOPY VARCHAR2
301: , x_msg_count OUT NOCOPY NUMBER
302: , x_msg_data OUT NOCOPY VARCHAR2
303: , x_error_code OUT NOCOPY NUMBER /* Added parameter, Bug 2168710 */
355: ||l_inventory_item_id);
356: Get_OPM_item_from_Apps(
357: p_organization_id => p_query_input.organization_id
358: , p_inventory_item_id => l_inventory_item_id
359: , x_ic_item_mst_rec => x_ic_item_mst_rec
360: , x_return_status => x_return_status
361: , x_msg_count => x_msg_count
362: , x_msg_data => x_msg_data);
363:
512: /* So convert the quantities into Item UOMs */
513: /* ======================================================================= */
514: PROCEDURE Create_Default_Lot
515: ( p_allocation_rec IN GMI_AUTO_ALLOCATE_PUB.gmi_allocation_rec
516: , p_ic_item_mst_rec IN GMI_Reservation_Util.ic_item_mst_rec
517: , p_orgn_code IN VARCHAR2
518: , p_trans_id IN NUMBER DEFAULT NULL
519: , x_return_status OUT NOCOPY VARCHAR2
520: , x_msg_count OUT NOCOPY NUMBER
545: x_return_status := FND_API.G_RET_STS_SUCCESS;
546:
547: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot.');
548: /* Fill the ic_tran_pnd record type, and then insert into ic_tran_pnd */
549: l_ictran_rec.item_id := p_ic_item_mst_rec.item_id;
550: l_ictran_rec.line_id := p_allocation_rec.line_id;
551: l_ictran_rec.co_code := g_co_code; -- B1731567
552: l_ictran_rec.orgn_code := p_orgn_code;
553: l_ictran_rec.whse_code := p_allocation_rec.whse_code;
569: /* If order UM differs from inventory UM, conversion is required.*/
570: /* The allocations are recorded as transactions written in the inventory UM */
571: /* ============================================================================== */
572: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. before call GMICUOM order_um1='
573: ||p_allocation_rec.order_um1||', item_um='||p_ic_item_mst_rec.item_um||'.' );
574: IF (p_allocation_rec.order_um1 <> p_ic_item_mst_rec.item_um)
575: THEN
576: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
577: plot_id => 0,
570: /* The allocations are recorded as transactions written in the inventory UM */
571: /* ============================================================================== */
572: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. before call GMICUOM order_um1='
573: ||p_allocation_rec.order_um1||', item_um='||p_ic_item_mst_rec.item_um||'.' );
574: IF (p_allocation_rec.order_um1 <> p_ic_item_mst_rec.item_um)
575: THEN
576: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
577: plot_id => 0,
578: pcur_qty => p_allocation_rec.order_qty1,
572: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. before call GMICUOM order_um1='
573: ||p_allocation_rec.order_um1||', item_um='||p_ic_item_mst_rec.item_um||'.' );
574: IF (p_allocation_rec.order_um1 <> p_ic_item_mst_rec.item_um)
575: THEN
576: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
577: plot_id => 0,
578: pcur_qty => p_allocation_rec.order_qty1,
579: pcur_uom => p_allocation_rec.order_um1,
580: pnew_uom => p_ic_item_mst_rec.item_um,
576: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
577: plot_id => 0,
578: pcur_qty => p_allocation_rec.order_qty1,
579: pcur_uom => p_allocation_rec.order_um1,
580: pnew_uom => p_ic_item_mst_rec.item_um,
581: onew_qty => l_tmp_qty);
582:
583:
584: /* Invert the quantity for ic_tran_pnd */
587: ELSE
588: l_ictran_rec.trans_qty := p_allocation_rec.order_qty1 * (-1);
589: END IF;
590:
591: l_ictran_rec.trans_um := p_ic_item_mst_rec.item_um;
592: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. trans_um='
593: ||p_ic_item_mst_rec.item_um||', trans_qty='||l_ictran_rec.trans_qty||'.' );
594:
595: /* Note that the UOM2 are already in the Item UOM2. No need to convert. */
589: END IF;
590:
591: l_ictran_rec.trans_um := p_ic_item_mst_rec.item_um;
592: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. trans_um='
593: ||p_ic_item_mst_rec.item_um||', trans_qty='||l_ictran_rec.trans_qty||'.' );
594:
595: /* Note that the UOM2 are already in the Item UOM2. No need to convert. */
596: l_ictran_rec.trans_qty2 := p_allocation_rec.order_qty2 * (-1);
597: l_ictran_rec.trans_um2 := p_allocation_rec.order_um2;
596: l_ictran_rec.trans_qty2 := p_allocation_rec.order_qty2 * (-1);
597: l_ictran_rec.trans_um2 := p_allocation_rec.order_um2;
598:
599: /* odab remove on 30-Aug-2000
600: IF ( p_ic_item_mst_rec.dualum_ind > 0 )
601: THEN
602: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. Need to populate qty2/um2.');
603: l_ictran_rec.trans_um2 := p_ic_item_mst_rec.item_um2;
604:
599: /* odab remove on 30-Aug-2000
600: IF ( p_ic_item_mst_rec.dualum_ind > 0 )
601: THEN
602: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. Need to populate qty2/um2.');
603: l_ictran_rec.trans_um2 := p_ic_item_mst_rec.item_um2;
604:
605: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
606: plot_id => 0,
607: pcur_qty => l_ictran_rec.trans_qty,
601: THEN
602: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot. Need to populate qty2/um2.');
603: l_ictran_rec.trans_um2 := p_ic_item_mst_rec.item_um2;
604:
605: GMICUOM.icuomcv(pitem_id => p_ic_item_mst_rec.item_id,
606: plot_id => 0,
607: pcur_qty => l_ictran_rec.trans_qty,
608: pcur_uom => l_ictran_rec.trans_um,
609: pnew_uom => l_ictran_rec.trans_um2,
734:
735: PROCEDURE Validation_Before_Allocate
736: ( p_mtl_rsv_rec IN INV_Reservation_Global.mtl_reservation_rec_type
737: , x_allocation_rec OUT NOCOPY GMI_Auto_Allocate_PUB.gmi_allocation_rec
738: , x_ic_item_mst_rec OUT NOCOPY GMI_Reservation_Util.ic_item_mst_rec
739: , x_orgn_code OUT NOCOPY VARCHAR2
740: , x_return_status OUT NOCOPY VARCHAR2
741: , x_msg_count OUT NOCOPY NUMBER
742: , x_msg_data OUT NOCOPY VARCHAR2
832: /* ============================================================================================= */
833: Get_OPM_item_from_Apps(
834: p_organization_id => p_mtl_rsv_rec.organization_id
835: , p_inventory_item_id => p_mtl_rsv_rec.inventory_item_id
836: , x_ic_item_mst_rec => x_ic_item_mst_rec
837: , x_return_status => x_return_status
838: , x_msg_count => x_msg_count
839: , x_msg_data => x_msg_data);
840:
838: , x_msg_count => x_msg_count
839: , x_msg_data => x_msg_data);
840:
841:
842: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: item_no='||x_ic_item_mst_rec.item_no);
843:
844: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
845: THEN
846: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Validation_Before_Allocate
850: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_mtl_rsv_rec.inventory_item_id);
851: FND_MSG_PUB.Add;
852: RAISE FND_API.G_EXC_ERROR;
853: ELSE
854: x_allocation_rec.item_no := x_ic_item_mst_rec.item_no;
855: END IF;
856:
857:
858:
911: ELSE
912: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: uom1='||x_allocation_rec.order_um1||'.');
913: END IF;
914:
915: IF (x_ic_item_mst_rec.dualum_ind > 0) THEN
916: /* No need to convert Apps/OPM UOM, because in the Sales Order line, UOM2 is always the Item UOM2. */
917: x_allocation_rec.order_qty2 := p_mtl_rsv_rec.attribute2;
918: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
919:
914:
915: IF (x_ic_item_mst_rec.dualum_ind > 0) THEN
916: /* No need to convert Apps/OPM UOM, because in the Sales Order line, UOM2 is always the Item UOM2. */
917: x_allocation_rec.order_qty2 := p_mtl_rsv_rec.attribute2;
918: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
919:
920: ELSE
921: x_allocation_rec.order_qty2 := NULL;
922: x_allocation_rec.order_um2 := NULL;
928: /* This means that the Order_Qties/UOM are passed to the Allocation Engine. */
929: /* ============================================================================================= */
930: /* odab Added this on 1-Sept-2000, because it is not passed by the SO. */
931: IF (x_allocation_rec.order_um2 is null
932: and x_ic_item_mst_rec.item_um2 is not null)
933: THEN
934:
935: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
936: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
931: IF (x_allocation_rec.order_um2 is null
932: and x_ic_item_mst_rec.item_um2 is not null)
933: THEN
934:
935: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
936: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
937: THEN
938: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
939: plot_id => 0,
932: and x_ic_item_mst_rec.item_um2 is not null)
933: THEN
934:
935: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
936: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
937: THEN
938: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
939: plot_id => 0,
940: pcur_qty => p_mtl_rsv_rec.reservation_quantity,
934:
935: IF (x_allocation_rec.order_um1 <> x_ic_item_mst_rec.item_um
936: AND (x_ic_item_mst_rec.alloc_class = ' ' OR x_ic_item_mst_rec.alloc_class IS NULL))
937: THEN
938: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
939: plot_id => 0,
940: pcur_qty => p_mtl_rsv_rec.reservation_quantity,
941: pcur_uom => x_allocation_rec.order_um1,
942: pnew_uom => x_ic_item_mst_rec.item_um,
938: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
939: plot_id => 0,
940: pcur_qty => p_mtl_rsv_rec.reservation_quantity,
941: pcur_uom => x_allocation_rec.order_um1,
942: pnew_uom => x_ic_item_mst_rec.item_um,
943: onew_qty => l_tmp_qty);
944:
945: x_allocation_rec.order_qty1 := l_tmp_qty;
946: x_allocation_rec.order_um1 := x_ic_item_mst_rec.item_um;
942: pnew_uom => x_ic_item_mst_rec.item_um,
943: onew_qty => l_tmp_qty);
944:
945: x_allocation_rec.order_qty1 := l_tmp_qty;
946: x_allocation_rec.order_um1 := x_ic_item_mst_rec.item_um;
947:
948: ELSE
949: x_allocation_rec.order_qty1 := p_mtl_rsv_rec.reservation_quantity;
950: END IF;
949: x_allocation_rec.order_qty1 := p_mtl_rsv_rec.reservation_quantity;
950: END IF;
951:
952: /* Calculation of Qty2 from Qty1 */
953: IF x_ic_item_mst_rec.dualum_ind > 0
954: THEN
955: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
956:
957: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
951:
952: /* Calculation of Qty2 from Qty1 */
953: IF x_ic_item_mst_rec.dualum_ind > 0
954: THEN
955: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
956:
957: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
958: plot_id => 0,
959: pcur_qty => x_allocation_rec.order_qty1,
953: IF x_ic_item_mst_rec.dualum_ind > 0
954: THEN
955: x_allocation_rec.order_um2 := x_ic_item_mst_rec.item_um2;
956:
957: GMICUOM.icuomcv(pitem_id => x_ic_item_mst_rec.item_id,
958: plot_id => 0,
959: pcur_qty => x_allocation_rec.order_qty1,
960: pcur_uom => x_allocation_rec.order_um1,
961: pnew_uom => x_allocation_rec.order_um2,
1295:
1296: PROCEDURE Get_OPM_item_from_Apps
1297: ( p_organization_id IN NUMBER
1298: , p_inventory_item_id IN NUMBER
1299: , x_ic_item_mst_rec OUT NOCOPY GMI_Reservation_Util.ic_item_mst_rec
1300: , x_return_status OUT NOCOPY VARCHAR2
1301: , x_msg_count OUT NOCOPY NUMBER
1302: , x_msg_data OUT NOCOPY VARCHAR2
1303: ) IS
1321: , inactive_ind
1322: , lot_ctl
1323: , lot_indivisible
1324: , loct_ctl
1325: FROM ic_item_mst
1326: WHERE delete_mark = 0
1327: AND item_no in (SELECT segment1
1328: FROM mtl_system_items
1329: WHERE organization_id = discrete_org_id
1337:
1338: OPEN c_item( p_organization_id
1339: , p_inventory_item_id);
1340: FETCH c_item
1341: INTO x_ic_item_mst_rec;
1342:
1343: IF c_item%NOTFOUND THEN
1344: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: item_no=NOTFOUND inv_item_id='
1345: ||p_inventory_item_id||', org_id='||p_organization_id);
1349: FND_MSG_PUB.Add;
1350: CLOSE c_item; -- Bug 3598280
1351: RAISE FND_API.G_EXC_ERROR;
1352: ELSE
1353: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: item_no='||x_ic_item_mst_rec.item_no||'.');
1354: END IF;
1355: CLOSE c_item;
1356:
1357:
1730: ) IS
1731:
1732: l_api_name CONSTANT VARCHAR2 (30) := 'Get_DefaultLot_from_ItemCtl';
1733:
1734: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
1735:
1736: -- added by fabdi 10/01/2001
1737: -- fix for bug # 1574957
1738: l_whse_ctl number;
1775: /* ============================================================================================= */
1776: Get_OPM_item_from_Apps(
1777: p_organization_id => p_organization_id
1778: , p_inventory_item_id => p_inventory_item_id
1779: , x_ic_item_mst_rec => l_ic_item_mst_rec
1780: , x_return_status => x_return_status
1781: , x_msg_count => x_msg_count
1782: , x_msg_data => x_msg_data);
1783:
1781: , x_msg_count => x_msg_count
1782: , x_msg_data => x_msg_data);
1783:
1784:
1785: GMI_Reservation_Util.printLn('After Get_OPM_Item : item_no='||l_ic_item_mst_rec.item_no);
1786:
1787: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1788: THEN
1789: GMI_Reservation_Util.printLn('(opm_dbg) in end of Get_DefaultLot_from_ItemCtl ERROR:Returned by Get_OPM_item_from_Apps.');
1810: -- end fabdi
1811:
1812: GMI_Reservation_Util.printLn('(opm_dbg) l_whse_ctl='||l_whse_ctl);
1813: /* the correct condition should be lot_ctl and( loct_ctl or whse loct_ctl)*/
1814: IF (l_ic_item_mst_rec.lot_ctl = 0) AND (l_ic_item_mst_rec.loct_ctl = 0 OR l_whse_ctl = 0)
1815: THEN
1816: x_default_lot_index := (-1) * x_default_lot_index;
1817: END IF;
1818:
2305:
2306: /* For the Allocation rules. */
2307: l_op_alot_prm_rec op_alot_prm%ROWTYPE;
2308: l_inventory_item_id NUMBER;
2309: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
2310: l_cust_no op_cust_mst.cust_no%TYPE;
2311: l_co_code op_cust_mst.co_code%TYPE; --B1731567 co_code of cust
2312:
2313: /* added by fabdi 20/08/2001 Bug 2023369 */
2461: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Entering Validation_For_Query. item_id='||l_inventory_item_id);
2462: Get_OPM_item_from_Apps(
2463: p_organization_id => l_organization_id
2464: , p_inventory_item_id => l_inventory_item_id
2465: , x_ic_item_mst_rec => l_ic_item_mst_rec
2466: , x_return_status => x_return_status
2467: , x_msg_count => x_msg_count
2468: , x_msg_data => x_msg_data);
2469:
2490: CLOSE get_cust_no; -- Bug 3598280
2491: GMI_ALLOCATION_RULES_PVT.GET_ALLOCATION_PARMS
2492: ( p_co_code => l_co_code, --B1731567
2493: p_cust_no => l_cust_no,
2494: p_alloc_class => l_ic_item_mst_rec.alloc_class,
2495: x_op_alot_prm => l_op_alot_prm_rec,
2496: x_return_status => x_return_status,
2497: x_msg_count => x_msg_count,
2498: x_msg_data => x_msg_data
2504: (l_op_alot_prm_rec.delete_mark = 1))
2505: THEN
2506: GMI_Reservation_Util.PrintLn('(opm_dbg) allocation - Error missing allocation parms',1);
2507: FND_MESSAGE.SET_NAME('GML','GML_NO_ALLOCATION_PARMS');
2508: FND_MESSAGE.SET_TOKEN('ALLOC_CLASS', l_ic_item_mst_rec.alloc_class);
2509: FND_MSG_PUB.Add;
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:
2991: OPEN get_whse_ctl(l_organization_id);
2992: FETCH get_whse_ctl INTO l_whse_ctl;
2993: CLOSE get_whse_ctl;
2994:
2995: 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');
2996: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, l_organization_id= '||l_organization_id, 'pick_lots.log');
2997:
2998: IF l_ic_item_mst_rec.lot_ctl <> 0
2999: THEN
2994:
2995: 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');
2996: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, l_organization_id= '||l_organization_id, 'pick_lots.log');
2997:
2998: IF l_ic_item_mst_rec.lot_ctl <> 0
2999: THEN
3000: SELECT SUM(ABS(TRANS_QTY)), SUM(ABS(TRANS_QTY2))
3001: INTO l_NEW_ALLOCATED_QTY, l_NEW_ALLOCATED_QTY2
3002: from ic_tran_pnd
3009: and line_detail_id in
3010: (Select delivery_detail_id
3011: From wsh_delivery_details
3012: Where move_order_line_id = p_mo_line_id);
3013: ELSIF ((l_ic_item_mst_rec.loct_ctl * l_whse_ctl) <> 0 )
3014: THEN
3015: SELECT SUM(ABS(TRANS_QTY)), SUM(ABS(TRANS_QTY2))
3016: INTO l_NEW_ALLOCATED_QTY, l_NEW_ALLOCATED_QTY2
3017: from ic_tran_pnd
3190: IS
3191: Select ic.item_id
3192: , ic.item_um
3193: , ic.item_um2
3194: From ic_item_mst ic
3195: , mtl_system_items mtl
3196: Where mtl.organization_id = p_org_id
3197: and mtl.inventory_item_id = p_inv_Item_id
3198: and mtl.segment1 = ic.item_no;
3781: AND tt.transaction_type_id = soh.order_type_id
3782: AND sol.header_id = soh.header_id;
3783: Cursor get_uom IS
3784: Select item_um, item_um2
3785: From ic_item_mst
3786: Where item_id = p_item_id;
3787:
3788: -- BEGIN - Bug 3216096.
3789: -- Bug 3558787 get line Number as well
3925: Cursor get_uom IS
3926: Select item_um
3927: , item_um2
3928: , loct_ctl
3929: From ic_item_mst
3930: Where item_id = p_item_id;
3931:
3932: Cursor get_rcv_trans(p_transaction_id IN NUMBER) IS
3933: Select transaction_date
4385: p_lot_id IN NUMBER DEFAULT 0
4386: ) RETURN NUMBER IS
4387:
4388: l_inventory_item_id NUMBER;
4389: l_ic_item_mst_rec GMI_RESERVATION_UTIL.ic_item_mst_rec;
4390: l_return_status VARCHAR2(30);
4391: l_msg_count NUMBER;
4392: l_msg_data VARCHAR2(5);
4393: l_opm_from_uom VARCHAR2(5);
4410:
4411: GMI_RESERVATION_UTIL.Get_OPM_Item_From_Apps(
4412: p_organization_id => p_organization_id,
4413: p_inventory_item_id => l_inventory_item_id,
4414: x_ic_item_mst_rec => l_ic_item_mst_rec,
4415: x_return_status => l_return_status,
4416: x_msg_count => l_msg_count,
4417: x_msg_data => l_msg_data);
4418:
4447: END IF;
4448: GMI_reservation_Util.PrintLn('to uom (OPM) '||l_opm_to_uom);
4449:
4450: GMICUOM.icuomcv(
4451: pitem_id =>l_ic_item_mst_rec.item_id,
4452: plot_id =>p_lot_id,
4453: pcur_qty =>p_original_qty,
4454: pcur_uom =>l_opm_from_uom,
4455: pnew_uom =>l_opm_to_uom,
4562: l_whse_code VARCHAR2(5);
4563:
4564: Cursor Get_item_info IS
4565: SELECT iim.item_id, iim.lot_ctl, iim.loct_ctl
4566: FROM ic_item_mst iim,
4567: mtl_system_items msi
4568: WHERE msi.inventory_item_id = p_inventory_item_id
4569: AND msi.organization_id = p_mtl_organization_id
4570: AND msi.segment1 = iim.item_no;
4658: Cursor Get_item_info IS
4659: Select ic.item_id
4660: , ic.lot_ctl
4661: , ic.loct_ctl
4662: From ic_item_mst ic
4663: , mtl_system_items mtl
4664: Where ic.item_no = mtl.segment1
4665: and mtl.inventory_item_id = l_inventory_item_id
4666: and mtl.organization_id = l_organization_id;
5101:
5102:
5103: l_return_status VARCHAR2(1);
5104: l_okay BOOLEAN;
5105: l_ic_item_mst_rec GMI_RESERVATION_UTIL.ic_item_mst_rec;
5106: l_msg_data VARCHAR2(2000);
5107: l_msg_count NUMBER;
5108: opm_item_id NUMBER;
5109: l_lot_number VARCHAR2(32); -- Bug 3598280 - Made the variable varchar2(32) from varchar2(4)
5123: x_return_status := FND_API.G_RET_STS_SUCCESS;
5124: GMI_RESERVATION_UTIL.Get_OPM_Item_From_Apps(
5125: p_organization_id =>p_organization_id,
5126: p_inventory_item_id => p_inventory_item_id,
5127: x_ic_item_mst_rec => l_ic_item_mst_rec,
5128: x_return_status => l_return_status,
5129: x_msg_count => l_msg_count,
5130: x_msg_data => l_msg_data);
5131:
5133: raise FND_API.G_EXC_ERROR;
5134: RETURN;
5135: END IF;
5136:
5137: opm_item_id := l_ic_item_mst_rec.item_id ;
5138:
5139: OPEN get_lot_no(opm_item_id);
5140: FETCH get_lot_no into l_lot_number;
5141: IF get_lot_no%NOTFOUND THEN
5362: l_lot_id NUMBER;
5363: l_whse_code VARCHAR2(5);
5364: l_location VARCHAR(20);
5365: l_count NUMBER;
5366: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
5367: x_msg_count NUMBER;
5368: x_msg_data VARCHAR2(1000);
5369: l_api_name CONSTANT VARCHAR2 (30) := 'is_line_allocated';
5370: return_status VARCHAR2(10);
5379:
5380: Get_OPM_item_from_Apps(
5381: p_organization_id => p_organization_id
5382: , p_inventory_item_id => p_inventory_item_id
5383: , x_ic_item_mst_rec => l_ic_item_mst_rec
5384: , x_return_status => return_status
5385: , x_msg_count => x_msg_count
5386: , x_msg_data => x_msg_data);
5387:
5392: FND_MSG_PUB.Add;
5393: raise FND_API.G_EXC_ERROR;
5394: END IF;
5395:
5396: IF ( l_ic_item_mst_rec.lot_indivisible = 1 ) THEN
5397: /* see if item is a ctl item */
5398: GMI_RESERVATION_UTIL.check_lot_loct_ctl
5399: ( p_inventory_item_id => p_inventory_item_id
5400: ,p_mtl_organization_id => p_organization_id
5494: x_check_status OUT NOCOPY NUMBER,
5495: x_return_status OUT NOCOPY VARCHAR2)
5496: IS
5497:
5498: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
5499: x_msg_count NUMBER;
5500: x_msg_data VARCHAR2(1000);
5501: l_api_name CONSTANT VARCHAR2 (30) := 'validate_opm_quantities';
5502: return_status VARCHAR2(10);
5505:
5506: CURSOR cur_lot_id_with_sublot IS
5507: SELECT ic.lot_id
5508: FROM ic_lots_mst ic
5509: WHERE ic.item_id = l_ic_item_mst_rec.item_id
5510: AND ic.lot_no = p_lot_number
5511: AND ic.sublot_no = p_sublot_number;
5512:
5513: CURSOR cur_lot_id_with_lot IS
5512:
5513: CURSOR cur_lot_id_with_lot IS
5514: SELECT ic.lot_id
5515: FROM ic_lots_mst ic
5516: WHERE ic.item_id = l_ic_item_mst_rec.item_id
5517: AND ic.lot_no = p_lot_number
5518: AND ic.sublot_no IS NULL;
5519:
5520: BEGIN
5533: gmi_reservation_util.println('Calling Get_OPM_item_from_Apps from validate_opm_quantities');
5534: Get_OPM_item_from_Apps(
5535: p_organization_id => p_organization_id
5536: , p_inventory_item_id => p_inventory_item_id
5537: , x_ic_item_mst_rec => l_ic_item_mst_rec
5538: , x_return_status => return_status
5539: , x_msg_count => x_msg_count
5540: , x_msg_data => x_msg_data);
5541: gmi_reservation_util.println('BaCK FROM Get_OPM_item_from_Apps IN validate_opm_quantities');
5548: x_check_status := 0;
5549: raise FND_API.G_EXC_ERROR;
5550: END IF;
5551:
5552: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5553: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5554: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5555: x_check_status := 2;
5556: x_return_status := FND_API.G_RET_STS_ERROR;
5573: END IF;
5574: END IF;
5575: -- Get lot_id.
5576: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Lot '|| p_lot_number || ' Sublot '|| p_sublot_number);
5577: IF ( l_ic_item_mst_rec.lot_ctl = 0 ) THEN
5578: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Item Not Lot Control.');
5579: l_lot_id := 0;
5580: ELSIF (p_lot_number IS NOT NULL AND p_sublot_number IS NOT NULL) THEN
5581: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Sublot Not Null.');
5597: l_lot_id := 0;
5598: END IF;
5599: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: lot_id '||l_lot_id);
5600: -- We have item_id, lot_id, qty1 and qty2 Now call deviation check
5601: l_return := GMICVAL.dev_validation(l_ic_item_mst_rec.item_id
5602: ,l_lot_id
5603: ,p_quantity
5604: ,l_ic_item_mst_rec.item_um
5605: ,p_quantity2
5600: -- We have item_id, lot_id, qty1 and qty2 Now call deviation check
5601: l_return := GMICVAL.dev_validation(l_ic_item_mst_rec.item_id
5602: ,l_lot_id
5603: ,p_quantity
5604: ,l_ic_item_mst_rec.item_um
5605: ,p_quantity2
5606: ,l_ic_item_mst_rec.item_um2
5607: ,0);
5608:
5602: ,l_lot_id
5603: ,p_quantity
5604: ,l_ic_item_mst_rec.item_um
5605: ,p_quantity2
5606: ,l_ic_item_mst_rec.item_um2
5607: ,0);
5608:
5609: IF(l_return = -68) THEN
5610: -- 'IC_DEVIATION_HI_ERR'