[Home] [Help]
2242: BEGIN
2243:
2244: SELECT OE_ORDER_LINES_S.NEXTVAL
2245: INTO l_line_id
2246: FROM DUAL;
2247:
2248: RETURN l_line_id;
2249:
2250: END Get_Line;
5343: -- ===============================================================
5344: IF (p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR)
5345: OR (p_x_line_rec.ordered_quantity_uom2 IS NULL) THEN
5346: p_x_line_rec.ordered_quantity_uom2 :=
5347: Get_Dual_Uom(p_line_rec => p_x_line_rec); -- INVCONV
5348: END IF;
5349: -- INVCONV -- NORMAL DEFAULTING IS USED NOW SO TAKE OUT
5350: /* -- OPM bug 2553805 do not re-default the preferred_grade if this is a copied order
5351: IF ( (p_x_line_rec.preferred_grade = FND_API.G_MISS_CHAR)
5363: END IF;
5364:
5365: --bug 8563297 kbanddyo FP for 12.1.1 for bug 4065790
5366: /* yannamal Begin OPM Bug 4065790 14/12/04 */
5367: -- For Dual Uom Item, If ordered_quantity2 is null and ordered_quantity_uom2 is not null and ordered_quantity is not null
5368: -- after clearing, then at this point of re-defaulting, Added call to routine Oe_Line_Util.Calculate Ordered quantity2 to populate ordered_quantity2.
5369:
5370: IF (p_x_line_rec.ordered_quantity2 IS NULL AND p_x_line_rec.ordered_quantity_uom2 IS NOT NULL AND
5371: p_x_line_rec.ordered_quantity_uom2 <> FND_API.G_MISS_CHAR AND
5370: IF (p_x_line_rec.ordered_quantity2 IS NULL AND p_x_line_rec.ordered_quantity_uom2 IS NOT NULL AND
5371: p_x_line_rec.ordered_quantity_uom2 <> FND_API.G_MISS_CHAR AND
5372: p_x_line_rec.ordered_quantity IS NOT NULL AND p_x_line_rec.ordered_quantity <> FND_API.G_MISS_NUM) THEN
5373: -- p_x_line_rec.ordered_quantity2 := OE_LINE_UTIL.Calculate_ordered_quantity2(p_line_rec => p_x_line_rec) ;
5374: OE_LINE_UTIL.sync_dual_qty(P_X_LINE_REC => p_x_line_rec,P_OLD_LINE_REC=>p_old_line_rec);
5375: END IF ;
5376:
5377: /* yannamal End OPM Bug 4065790 14/12/04 */
5378:
5783:
5784: END Attributes;
5785:
5786: /*----------------------------------------------------------
5787: FUNCTION Get_Dual_Uom
5788: ----------------------------------------------------------- INVCONV REMOVEd from OE_line_util
5789: */
5790:
5791: FUNCTION Get_Dual_Uom(p_line_rec OE_ORDER_PUB.Line_Rec_Type)
5787: FUNCTION Get_Dual_Uom
5788: ----------------------------------------------------------- INVCONV REMOVEd from OE_line_util
5789: */
5790:
5791: FUNCTION Get_Dual_Uom(p_line_rec OE_ORDER_PUB.Line_Rec_Type)
5792: RETURN VARCHAR2
5793: IS
5794: -- l_APPS_UOM2 VARCHAR2(3) := NULL; INVCONV
5795: l_status VARCHAR2(1);
5800: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5801:
5802: BEGIN
5803: if l_debug_level > 0 then
5804: oe_debug_pub.add('Enter Get dual uom');
5805: end if;
5806:
5807: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5808: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5803: if l_debug_level > 0 then
5804: oe_debug_pub.add('Enter Get dual uom');
5805: end if;
5806:
5807: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5808: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5809: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
5810: if l_debug_level > 0 then
5811: oe_debug_pub.add('Get dual uom - tracking in P and S ');
5807: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5808: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5809: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
5810: if l_debug_level > 0 then
5811: oe_debug_pub.add('Get dual uom - tracking in P and S ');
5812: end if;
5813: /* convert 4 digit apps OPM codes to equivalent 3 byte APPS codes */
5814: /* Primary UM
5815: GMI_Reservation_Util.Get_AppsUOM_from_OPMUOM
5830: else
5831:
5832: return null;
5833:
5834: END IF; -- IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5835:
5836:
5837: if l_debug_level > 0 then
5838: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
5834: END IF; -- IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5835:
5836:
5837: if l_debug_level > 0 then
5838: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
5839: end if;
5840:
5841: EXCEPTION
5842:
5842:
5843: WHEN NO_DATA_FOUND THEN
5844:
5845: if l_debug_level > 0 then
5846: oe_debug_pub.add('No Data Found Get Dual Uom' );
5847: end if;
5848: RETURN NULL;
5849:
5850: WHEN OTHERS THEN
5851: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5852: THEN
5853: OE_MSG_PUB.Add_Exc_Msg
5854: ( G_PKG_NAME ,
5855: 'Get_Dual_Uom'
5856: );
5857: END IF;
5858: if l_debug_level > 0 then
5859: oe_debug_pub.add('others in get_dual uom', 1);
5855: 'Get_Dual_Uom'
5856: );
5857: END IF;
5858: if l_debug_level > 0 then
5859: oe_debug_pub.add('others in get_dual uom', 1);
5860: end if;
5861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5862:
5863:
5860: end if;
5861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5862:
5863:
5864: END Get_Dual_Uom;
5865:
5866: -- Added Set_Header_Def_Hdlr_rec for bug 4668200
5867: -- This procedure will set the ONT_Header_Def_Hdlr.g_record with the information in header record.
5868: -- An attribute on line can be defaulted based on a PL/SQL API