[Home] [Help]
308: -- ADDING code
309: l_c_index := OE_BULK_CACHE.Load_Line_Type(p_line_rec.line_type_id(p_index));
310: IF (OE_BULK_CACHE.G_LINE_TYPE_TBL(l_c_index).scheduling_level_code = 'FOUR'
311: OR OE_BULK_CACHE.G_LINE_TYPE_TBL(l_c_index).scheduling_level_code = 'FIVE') AND
312: (p_line_rec.item_type_code(p_index) <> 'STANDARD'
313: OR p_line_rec.ato_line_id(p_index) is not null) THEN
314:
315: IF l_debug_level > 0 THEN
316: oe_debug_pub.add( 'CHECKING THAT IT IS A STANDARD ITEM...' , 1 ) ;
312: (p_line_rec.item_type_code(p_index) <> 'STANDARD'
313: OR p_line_rec.ato_line_id(p_index) is not null) THEN
314:
315: IF l_debug_level > 0 THEN
316: oe_debug_pub.add( 'CHECKING THAT IT IS A STANDARD ITEM...' , 1 ) ;
317: END IF;
318:
319: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_INACTIVE_STD_ONLY');
320: FND_MESSAGE.SET_TOKEN('LTYPE',
332:
333: IF p_line_rec.ato_line_id(p_index) is not null AND
334: NOT(p_line_rec.ato_line_id(p_index) = p_line_rec.line_id(p_index) AND
335: p_line_rec.item_type_code(p_index) IN ( OE_GLOBALS.G_ITEM_OPTION,
336: OE_GLOBALS.G_ITEM_STANDARD,
337: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
338: THEN
339: IF MSC_ATP_GLOBAL.GET_APS_VERSION <> 10 AND
340: p_line_rec.ship_from_org_id(p_index) is NULL
349: END IF;
350: END IF; -- Gop code level
351:
352: IF p_line_rec.ato_line_id(p_index) = p_line_rec.line_id(p_index) AND
353: p_line_rec.item_type_code(p_index) in ('STANDARD','OPTION','INCLUDED') AND --9775352
354: fnd_profile.value('INV_CTP') = '5'
355: THEN
356:
357: l_org_id := nvl(p_line_rec.ship_from_org_id(p_index), OE_BULK_ORDER_PVT.G_ITEM_ORG);
901: /* Bug 1741158 chhung modify BEGIN */
902: IF p_line_category_code ='ORDER' THEN
903:
904: /* for Internal Orders */
905: /* Internal Orders only support standard item */
906: IF p_source_document_type_id = 10 THEN
907: --perf bug 5121218, replace org_organization_definitions with
908: --hr_all_organization_units
909:
961: AND sysdate <= nvl( org.date_to, sysdate)
962: AND org.organization_id= p_ship_from_org_id
963: AND rownum=1;
964:
965: ELSE /* item type is MODEL,STANDARD,SERVICE,KIT in top most level*/
966: --perf bug 5121218, replace org_organization_definitions with
967: --hr_all_organization_units
968:
969: /* SELECT null
1121:
1122: IF p_source_document_type_id = 10
1123: THEN
1124: /* for Internal Orders */
1125: /* Internal Orders only support standard item */
1126: IF OE_Bulk_Cache.G_ITEM_TBL(l_c_index).internal_order_enabled_flag
1127: <> 'Y'
1128: THEN
1129: RETURN FALSE;
1137: (p_item_type_code = OE_GLOBALS.G_ITEM_KIT AND
1138: nvl(p_top_model_line_id, -1) <> p_line_id)
1139: THEN
1140: RETURN TRUE;
1141: ELSE /* item type is MODEL,STANDARD,SERVICE,KIT in top most level*/
1142: IF OE_Bulk_Cache.G_ITEM_TBL(l_c_index).customer_order_enabled_flag
1143: <> 'Y'
1144: THEN
1145: RETURN FALSE;
1577: p_line_rec.tax_date(p_index) := sysdate;
1578: END IF;
1579:
1580: IF p_line_rec.tax_exempt_flag(p_index) IS NULL THEN
1581: p_line_rec.tax_exempt_flag(p_index) := 'S'; -- 'Standard'
1582: END IF;
1583:
1584: EXCEPTION
1585: WHEN OTHERS THEN
1831: ELSIF p_line_rec.top_model_line_id(p_index) IS NOT NULL THEN
1832: p_line_rec.item_type_code(p_index) := 'OPTION';
1833: oe_debug_pub.add( 'Populate_Internal_Fields bb' ) ;
1834: ELSE
1835: -- Standard Item
1836: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1837: END IF;
1838: END IF; --bom_item_type = 4
1839:
1832: p_line_rec.item_type_code(p_index) := 'OPTION';
1833: oe_debug_pub.add( 'Populate_Internal_Fields bb' ) ;
1834: ELSE
1835: -- Standard Item
1836: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1837: END IF;
1838: END IF; --bom_item_type = 4
1839:
1840: END IF; -- item_type_code IS NULL
1853: END IF; --bom_item_type = 4
1854:
1855: -- Set ato_line_id on ato_item
1856: oe_debug_pub.add( 'Populate_Internal_Fields dd' ) ;
1857: IF p_line_rec.item_type_code(p_index) IN ('OPTION', 'STANDARD') AND
1858: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).replenish_to_order_flag, 'N') = 'Y' AND
1859: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).build_in_wip_flag, 'N') = 'Y'
1860: THEN
1861: p_line_rec.ato_line_id(p_index) := p_line_rec.line_id(p_index);
1930: THEN
1931: OE_BULK_ORDER_PVT.G_CATCHWEIGHT := TRUE;
1932: END IF;
1933: --bug 3798477
1934: -- Item Type can be STANDARD or KIT in BULK mode
1935:
1936: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4 THEN
1937: oe_debug_pub.add( 'Populate_Internal_Fields 6a' ) ;
1938: -- KIT Item
1947:
1948: p_line_rec.ship_tolerance_above(p_index) := 0;
1949: p_line_rec.ship_tolerance_below(p_index) := 0;
1950:
1951: -- Standard Item
1952: ELSE
1953: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1954: END IF;
1955: END IF;
1949: p_line_rec.ship_tolerance_below(p_index) := 0;
1950:
1951: -- Standard Item
1952: ELSE
1953: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1954: END IF;
1955: END IF;
1956: oe_debug_pub.add( 'Populate_Internal_Fields 8a' ) ;
1957: p_line_rec.shippable_flag(p_index)
2141: -- to end of the line tbl e.g. item_type_code <> 'INCLUDED'
2142: -- But for null item types, the loop may end earlier resulting
2143: -- in any record after not being processed.
2144: IF p_line_rec.item_type_code(p_index) IS NULL THEN
2145: p_line_rec.item_type_code(p_index) := 'STANDARD';
2146: END IF;
2147:
2148: oe_debug_pub.add( 'Populate_Internal_Fields 9' ) ;
2149: EXCEPTION
3037: END IF;
3038:
3039: --Item Orderability
3040: --Validate Item Orderability Rules
3041: IF ( NVL( p_line_rec.item_type_code(l_index),OE_GLOBALS.G_ITEM_STANDARD) = OE_GLOBALS.G_ITEM_STANDARD
3042: OR ( p_line_rec.item_type_code(l_index) = OE_GLOBALS.G_ITEM_MODEL )
3043: ) then
3044:
3045: oe_debug_pub.add(' Checking Validate_item_orderability ');
4424:
4425: --ER 9060917
4426: If NVL (Fnd_Profile.Value('ONT_HVOP_DROP_INVALID_LINES'), 'N')='Y' then
4427:
4428: If p_line_rec.item_type_code(l_index) ='STANDARD' then
4429:
4430: UPDATE OE_LINES_IFACE_ALL
4431: SET ERROR_FLAG = 'Y'
4432: WHERE ORDER_SOURCE_ID = p_line_rec.order_source_id(l_index)