[Home] [Help]
2125: BEGIN
2126:
2127: SELECT OE_ORDER_LINES_S.NEXTVAL
2128: INTO l_line_id
2129: FROM DUAL;
2130:
2131: RETURN l_line_id;
2132:
2133: END Get_Line;
5162: -- ===============================================================
5163: IF (p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR)
5164: OR (p_x_line_rec.ordered_quantity_uom2 IS NULL) THEN
5165: p_x_line_rec.ordered_quantity_uom2 :=
5166: Get_Dual_Uom(p_line_rec => p_x_line_rec); -- INVCONV
5167: END IF;
5168: -- INVCONV -- NORMAL DEFAULTING IS USED NOW SO TAKE OUT
5169: /* -- OPM bug 2553805 do not re-default the preferred_grade if this is a copied order
5170: IF ( (p_x_line_rec.preferred_grade = FND_API.G_MISS_CHAR)
5507:
5508: END Attributes;
5509:
5510: /*----------------------------------------------------------
5511: FUNCTION Get_Dual_Uom
5512: ----------------------------------------------------------- INVCONV REMOVEd from OE_line_util
5513: */
5514:
5515: FUNCTION Get_Dual_Uom(p_line_rec OE_ORDER_PUB.Line_Rec_Type)
5511: FUNCTION Get_Dual_Uom
5512: ----------------------------------------------------------- INVCONV REMOVEd from OE_line_util
5513: */
5514:
5515: FUNCTION Get_Dual_Uom(p_line_rec OE_ORDER_PUB.Line_Rec_Type)
5516: RETURN VARCHAR2
5517: IS
5518: -- l_APPS_UOM2 VARCHAR2(3) := NULL; INVCONV
5519: l_status VARCHAR2(1);
5524: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5525:
5526: BEGIN
5527: if l_debug_level > 0 then
5528: oe_debug_pub.add('Enter Get dual uom');
5529: end if;
5530:
5531: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5532: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5527: if l_debug_level > 0 then
5528: oe_debug_pub.add('Enter Get dual uom');
5529: end if;
5530:
5531: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5532: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5533: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
5534: if l_debug_level > 0 then
5535: oe_debug_pub.add('Get dual uom - tracking in P and S ');
5531: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5532: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5533: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
5534: if l_debug_level > 0 then
5535: oe_debug_pub.add('Get dual uom - tracking in P and S ');
5536: end if;
5537: /* convert 4 digit apps OPM codes to equivalent 3 byte APPS codes */
5538: /* Primary UM
5539: GMI_Reservation_Util.Get_AppsUOM_from_OPMUOM
5554: else
5555:
5556: return null;
5557:
5558: END IF; -- IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5559:
5560:
5561: if l_debug_level > 0 then
5562: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
5558: END IF; -- IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5559:
5560:
5561: if l_debug_level > 0 then
5562: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
5563: end if;
5564:
5565: EXCEPTION
5566:
5566:
5567: WHEN NO_DATA_FOUND THEN
5568:
5569: if l_debug_level > 0 then
5570: oe_debug_pub.add('No Data Found Get Dual Uom' );
5571: end if;
5572: RETURN NULL;
5573:
5574: WHEN OTHERS THEN
5575: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5576: THEN
5577: OE_MSG_PUB.Add_Exc_Msg
5578: ( G_PKG_NAME ,
5579: 'Get_Dual_Uom'
5580: );
5581: END IF;
5582: if l_debug_level > 0 then
5583: oe_debug_pub.add('others in get_dual uom', 1);
5579: 'Get_Dual_Uom'
5580: );
5581: END IF;
5582: if l_debug_level > 0 then
5583: oe_debug_pub.add('others in get_dual uom', 1);
5584: end if;
5585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5586:
5587:
5584: end if;
5585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5586:
5587:
5588: END Get_Dual_Uom;
5589:
5590: -- Added Set_Header_Def_Hdlr_rec for bug 4668200
5591: -- This procedure will set the ONT_Header_Def_Hdlr.g_record with the information in header record.
5592: -- An attribute on line can be defaulted based on a PL/SQL API