[Home] [Help]
36: g_Comp_Bom_Enabled_flag CHAR; -- Component's bom_enabled_flag
37:
38: g_rev_component_rec Bom_bo_Pub.Rev_Component_Rec_Type;
39: g_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
40: g_Token_Tbl Error_Handler.Token_Tbl_Type;
41:
42:
43: /*****************************************************************************
44: * Procedure : Check_Required
51: * would get an error.
52: ******************************************************************************/
53: PROCEDURE Check_Required
54: ( x_return_status OUT NOCOPY VARCHAR2
55: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
56: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
57: )
58: IS
59: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
55: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
56: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
57: )
58: IS
59: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
60:
61: BEGIN
62: x_return_status := FND_API.G_RET_STS_SUCCESS;
63:
66:
67: IF p_rev_component_rec.acd_type IS NULL OR
68: p_rev_component_rec.acd_type = FND_API.G_MISS_NUM
69: THEN
70: Error_Handler.Add_Error_Token
71: ( p_message_name => 'ENG_ACD_TYPE_MISSING'
72: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
73: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
74: , p_Token_Tbl => g_Token_Tbl
262: *Config Item No Yes No Yes No Yes No Yes
263: *
264: *****************************************************************************/
265: FUNCTION Verify_Item_Attributes
266: ( p_Mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
267: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type)
268: RETURN BOOLEAN
269: IS
270: dummy NUMBER;
263: *
264: *****************************************************************************/
265: FUNCTION Verify_Item_Attributes
266: ( p_Mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
267: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type)
268: RETURN BOOLEAN
269: IS
270: dummy NUMBER;
271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
267: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type)
268: RETURN BOOLEAN
269: IS
270: dummy NUMBER;
271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
272:
273: BEGIN
274: l_Mesg_Token_Tbl := p_Mesg_Token_Tbl;
275:
278: -- Verify Eng flag for Assembly and Component
279: IF g_Assy_Eng_Flag = 'N' and -- Bill is manufacturing
280: g_Comp_Eng_Flag = 'Y' -- and component is Engineering
281: THEN
282: Error_Handler.Add_Error_Token
283: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
284: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
285: , p_message_name => 'ENG_ASSY_COMP_ENG_FLG_MISMATCH'
286: , p_Token_Tbl => g_Token_Tbl
340: g_rev_component_rec.revised_item_name;
341:
342: IF g_Assy_Item_Type IN ( l_MODEL, l_OPTION_CLASS)
343: THEN
344: Error_Handler.Add_Error_Token
345: ( p_message_name => 'ENG_ATO_PROP_MISMATCH'
346: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
347: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
348: , p_Token_Tbl => g_Token_Tbl
347: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
348: , p_Token_Tbl => g_Token_Tbl
349: );
350: ELSE
351: Error_Handler.Add_Error_Token
352: ( p_message_name => 'ENG_ATO_STD_PROP_MISMATCH'
353: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
354: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
355: , p_Token_Tbl => g_Token_Tbl
384: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
385: g_token_tbl(2).token_value :=
386: g_rev_component_rec.revised_item_name;
387:
388: Error_Handler.Add_Error_Token
389: ( p_message_name => 'ENG_CFG_SUPPLY_NOT_PHANTOM'
390: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
391: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
392: , p_Token_Tbl => g_Token_Tbl
413: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
414: g_token_tbl(2).token_value :=
415: g_rev_component_rec.revised_item_name;
416:
417: Error_Handler.Add_Error_Token
418: ( p_message_name => 'ENG_CONFIG_PROP_MISMATCH'
419: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
420: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
421: , p_Token_Tbl => g_Token_Tbl
455: g_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
456: g_token_tbl(3).token_value :=
457: g_rev_component_rec.revised_item_name;
458:
459: Error_Handler.Add_Error_Token
460: ( p_message_name => 'ENG_MODEL_OC_PROP_MISMATCH'
461: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
462: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
463: , p_Token_Tbl => g_Token_Tbl
483: THEN
484: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
485: g_token_tbl(2).token_value :=
486: g_rev_component_rec.revised_item_name;
487: Error_Handler.Add_Error_Token
488: ( p_message_name => 'ENG_PTO_STD_PROP_MISMATCH'
489: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
490: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
491: , p_Token_Tbl => g_Token_Tbl
516: THEN
517: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
518: g_token_tbl(2).token_value :=
519: g_rev_component_rec.revised_item_name;
520: Error_Handler.Add_Error_Token
521: ( p_message_name => 'ENG_STANDARD_PROP_MISMATCH'
522: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
523: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
524: , p_Token_Tbl => g_Token_Tbl
540: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
541: g_token_tbl(2).token_value :=
542: g_rev_component_rec.revised_item_name;
543:
544: Error_Handler.Add_Error_Token
545: ( p_message_name => 'ENG_ASSY_COMP_ATP_MISMATCH'
546: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
547: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
548: , p_Token_Tbl => g_Token_Tbl
765: * 2. Wip_Supply_Type must be Phantom if the component is
766: * Model or Option Class
767: *****************************************************************************/
768: FUNCTION Check_Supply_Type
769: ( p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
770: , x_Mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type)
771: RETURN BOOLEAN
772: IS
773: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
766: * Model or Option Class
767: *****************************************************************************/
768: FUNCTION Check_Supply_Type
769: ( p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
770: , x_Mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type)
771: RETURN BOOLEAN
772: IS
773: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
774: BEGIN
769: ( p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
770: , x_Mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type)
771: RETURN BOOLEAN
772: IS
773: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
774: BEGIN
775: l_Mesg_token_Tbl := p_Mesg_Token_Tbl;
776:
777: IF g_rev_component_rec.WIP_Supply_Type IS NOT NULL
792: RETURN TRUE;
793:
794: EXCEPTION
795: WHEN NO_DATA_FOUND THEN
796: Error_Handler.Add_Error_Token
797: ( p_message_name => 'BOM_NO_BILL'
798: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
799: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
800: , p_Token_Tbl => g_Token_Tbl
808: -- be Phantom
809: IF g_Comp_Item_Type IN (l_MODEL, l_OPTION_CLASS) AND
810: g_rev_component_rec.wip_supply_type <> 6
811: THEN
812: Error_Handler.Add_Error_Token
813: ( p_message_name => 'ENG_WIP_SUPPLY_PHANTOM'
814: ,p_Mesg_Token_Tbl=> l_Mesg_token_Tbl
815: ,x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
816: ,p_token_tbl => g_Token_Tbl
1423: * column value does not invalidate some other columns.
1424: ******************************************************************************/
1425: PROCEDURE Check_Entity
1426: ( x_return_status OUT NOCOPY VARCHAR2
1427: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1428: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1429: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1430: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1431: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1436: l_processed BOOLEAN;
1437: l_result NUMBER;
1438: l_Err_Text VARCHAR2(2000);
1439: l_bom_item_type NUMBER;
1440: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1441: l_is_comp_unit_Controlled BOOLEAN := FALSE;
1442:
1443: CURSOR c_RefDesgs IS
1444: SELECT count(component_sequence_id) number_of_desgs
1638: g_token_tbl.delete;
1639: g_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
1640: g_token_tbl(1).token_value :=
1641: g_rev_component_rec.component_item_name;
1642: Error_Handler.Add_Error_Token
1643: ( p_message_name => 'ENG_TOUNIT_LESS_THAN_FROMUNIT'
1644: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1645: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1646: , p_token_tbl => g_token_tbl
1673: g_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
1674: g_token_tbl(1).token_value :=
1675: g_rev_component_rec.component_item_name;
1676:
1677: Error_Handler.Add_Error_Token
1678: ( p_message_name => 'ENG_DISABLE_TOUNIT_INVALID'
1679: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1680: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1681: , p_token_tbl => g_token_tbl
1699: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
1700: g_token_tbl(2).token_value :=
1701: g_rev_component_rec.revised_item_name;
1702:
1703: Error_Handler.Add_Error_Token
1704: ( p_message_name => 'ENG_CMP_UNIT_RIT_NOT_UNIT'
1705: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1706: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1707: , p_token_tbl => g_token_tbl
1724: g_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
1725: g_token_tbl(1).token_value :=
1726: g_rev_component_rec.revised_item_name;
1727:
1728: Error_Handler.Add_Error_Token
1729: ( p_message_name => 'ENG_CMP_UNIT_TYPE_NOT_VALID'
1730: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1731: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1732: , p_token_tbl => g_token_tbl
1743: g_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
1744: g_token_tbl(1).token_value :=
1745: g_rev_component_rec.revised_item_name;
1746:
1747: Error_Handler.Add_Error_Token
1748: ( p_message_name => 'ENG_REV_ITEM_BOM_NOT_ENABLED'
1749: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1750: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1751: , p_token_tbl => g_token_tbl
1770: ******************************************************/
1771: IF FND_MSG_PUB.Check_Msg_Level
1772: (FND_MSG_PUB.G_MSG_LVL_ERROR)
1773: THEN
1774: Error_Handler.Add_Error_Token
1775: ( p_message_name => 'ENG_CMP_ACD_TYPE_ADD'
1776: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1777: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1778: , p_token_tbl => g_token_tbl
1802: THEN
1803: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
1804: g_token_tbl(2).token_value :=
1805: p_rev_component_rec.revised_item_name;
1806: Error_Handler.Add_Error_Token
1807: ( p_Message_Name => 'ENG_BILL_COMMON'
1808: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1809: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1810: , p_Token_Tbl => g_Token_Tbl
1818: WHEN OTHERS THEN
1819: IF FND_MSG_PUB.Check_Msg_Level
1820: (FND_MSG_PUB.G_MSG_LVL_ERROR)
1821: THEN
1822: Error_Handler.Add_Error_Token
1823: ( p_message_name => NULL
1824: , p_message_text => 'Common Bill Check ' ||
1825: SUBSTR(SQLERRM, 1, 30) || ' '||
1826: TO_CHAR(SQLCODE)
1846: g_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
1847: g_token_tbl(1).token_value :=
1848: g_rev_component_rec.revised_item_name;
1849:
1850: Error_Handler.Add_Error_Token
1851: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1852: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1853: , p_Message_name => 'ENG_COMP_SAME_AS_BILL'
1854: , p_token_tbl => g_token_tbl
1870: IF g_Comp_Bom_Enabled_Flag = 'N' THEN
1871: -- Bom_Enabled is N, so cannot add a component.
1872: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1873: THEN
1874: Error_Handler.Add_Error_Token
1875: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1876: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1877: , p_Message_name => 'ENG_COMP_ITEM_BOM_NOT_ENABLED'
1878: , p_token_tbl => g_token_tbl
1904: item_num_for_bill := 1;
1905: END LOOP;
1906:
1907: IF item_num_for_bill = 1 THEN
1908: Error_Handler.Add_Error_Token
1909: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1910: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1911: , p_message_name => 'ENG_ITEM_NUM_INVALID'
1912: , p_Token_Tbl => g_Token_Tbl
1924: IF g_Comp_Item_Type = 5
1925: THEN
1926: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1927: THEN
1928: Error_Handler.Add_Error_Token
1929: ( p_message_name => 'ENG_ITEM_PRODUCT_FAMILY'
1930: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1931: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1932: , p_token_tbl => g_token_tbl
1963: END IF;
1964:
1965: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1966: THEN
1967: Error_Handler.Add_Error_Token
1968: ( p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1969: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1970: , p_message_name => l_err_text
1971: , p_token_tbl => g_token_tbl
1992: p_rev_component_rec.shipping_allowed
1993: THEN
1994: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1995: THEN
1996: Error_Handler.Add_Error_Token
1997: ( p_message_name => 'ENG_SHIP_ALLOWED_NOT_UPDATE'
1998: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1999: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2000: , p_token_tbl => g_token_tbl
2007: p_rev_component_rec.old_effectivity_date <> FND_API.G_MISS_DATE
2008: THEN
2009: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2010: THEN
2011: Error_Handler.Add_Error_Token
2012: ( p_message_name => 'ENG_OLD_EFFECTIVITY_GIVEN'
2013: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2014: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2015: , p_token_tbl => g_token_tbl
2023: p_rev_component_rec.old_operation_sequence_number <> FND_API.G_MISS_NUM
2024: THEN
2025: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2026: THEN
2027: Error_Handler.Add_Error_Token
2028: ( p_message_name => 'ENG_OLD_OP_SEQ_NUM_GIVEN'
2029: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2030: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2031: , p_token_tbl => g_token_tbl
2042: p_old_rev_component_rec.acd_type
2043: THEN
2044: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2045: THEN
2046: Error_Handler.Add_Error_Token
2047: ( p_message_name => 'ENG_ACD_TYPE_NOT_UPDATEABLE'
2048: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2049: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2050: , p_token_tbl => g_token_tbl
2060: IF p_old_rev_component_rec.acd_type = 3
2061: THEN
2062: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2063: THEN
2064: Error_Handler.Add_Error_Token
2065: ( p_message_name => 'ENG_COMPONENT_DISABLED'
2066: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2067: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2068: , p_token_tbl => g_token_tbl
2079: p_old_rev_component_rec.to_end_item_unit_number
2080: THEN
2081: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2082: THEN
2083: Error_Handler.Add_Error_Token
2084: ( p_message_name => 'ENG_DISABLE_TOUNIT_NONUPD'
2085: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2086: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2087: , p_token_tbl => g_token_tbl
2110: IF p_rev_component_rec.disable_date <
2111: p_rev_component_rec.start_effective_date THEN
2112: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2113: THEN
2114: Error_Handler.Add_Error_Token
2115: ( p_message_name => 'ENG_COMP_DIS_DATE_INVALID'
2116: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2117: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2118: , p_Token_Tbl => g_Token_Tbl
2138: THEN
2139: --
2140: -- Give a warning
2141: --
2142: Error_Handler.Add_Error_Token
2143: ( p_message_name => 'ENG_QTY_REL_QTY_REF_DESG'
2144: , p_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
2145: , x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
2146: , p_Token_Tbl => g_Token_Tbl
2158: IF round(p_rev_component_rec.quantity_per_assembly) <>
2159: p_rev_component_rec.quantity_per_assembly AND
2160: p_rev_component_rec.quantity_related = 1
2161: THEN
2162: Error_Handler.Add_Error_Token
2163: ( p_message_name => 'ENG_QTY_REL_QTY_FRACTIONAL'
2164: , p_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
2165: , x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
2166: , p_Token_Tbl => g_Token_Tbl
2188: g_token_tbl(2).token_name :=
2189: 'REVISED_ITEM_NAME';
2190: g_token_tbl(2).token_value :=
2191: g_rev_component_Rec.revised_item_name;
2192: Error_Handler.Add_Error_Token
2193: ( p_Message_Name => 'ENG_COMP_YIELD_NOT_ONE'
2194: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2195: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2196: , p_Token_Tbl => g_Token_Tbl
2227: -- component is yet not implemented
2228: IF FND_MSG_PUB.Check_Msg_Level
2229: (FND_MSG_PUB.G_MSG_LVL_ERROR)
2230: THEN
2231: Error_Handler.Add_Error_Token
2232: ( p_message_name => 'ENG_OLD_COMP_SEQ_ID_INVALID'
2233: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2234: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2235: , p_Token_Tbl => g_Token_Tbl
2237: END IF;
2238: l_return_status := FND_API.G_RET_STS_ERROR;
2239: WHEN OTHERS THEN
2240: --dbms_output.put_line(SQLERRM);
2241: Error_Handler.Add_Error_Token
2242: ( p_message_name => NULL
2243: , p_message_text => 'ERROR Rev Cmp entity validate ' ||
2244: SUBSTR(SQLERRM, 1, 30) || ' ' ||
2245: TO_CHAR(SQLCODE)
2290: THEN
2291: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
2292: g_Token_Tbl(1).Token_Value :=
2293: g_Rev_Component_rec.revised_item_name;
2294: Error_Handler.Add_Error_Token
2295: ( p_Message_Name => 'ENG_OP_SEQ_NUM_INVALID'
2296: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2297: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2298: , p_Token_Tbl => g_Token_Tbl
2312: g_Token_Tbl(2).Token_Name := 'OP_SEQ_NUM';
2313: g_Token_Tbl(2).Token_Value :=
2314: to_char
2315: (g_Rev_Component_rec.operation_sequence_number);
2316: Error_Handler.Add_Error_Token
2317: ( p_message_name => 'ENG_OP_SEQ_NUM_NOT_UNIQUE'
2318: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2319: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2320: , p_Token_Tbl => g_Token_Tbl
2349: g_Token_Tbl(2).Token_Name := 'OLD_OP_SEQUENCE_NUM';
2350: g_Token_Tbl(2).Token_Value :=
2351: to_char
2352: (g_Rev_Component_rec.old_operation_sequence_number);
2353: Error_Handler.Add_Error_Token
2354: ( p_message_name => 'ENG_OLD_OP_SEQ_NUM_GIVEN'
2355: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2356: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2357: , p_Token_Tbl => g_Token_Tbl
2377: --if function return true then component dates overlapp
2378:
2379: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2380: THEN
2381: Error_Handler.Add_Error_Token
2382: ( p_Message_Name => 'ENG_COMP_OPSEQ_DATE_OVERLAP'
2383: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2384: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2385: );
2407: --if function return true then component dates overlapp
2408:
2409: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2410: THEN
2411: Error_Handler.Add_Error_Token
2412: ( p_Message_Name => 'ENG_COMP_OPSEQ_UNIT_OVERLAP'
2413: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2414: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2415: );
2443: l_Result := Check_PTO_ATO_for_Optional;
2444: IF l_Result = 1 THEN
2445: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2446: THEN
2447: Error_Handler.Add_Error_Token
2448: ( p_message_name => 'ENG_COMP_OPTIONAL'
2449: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2450: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2451: , p_Token_Tbl => g_Token_Tbl
2455: ELSIF l_Result = 2
2456: THEN
2457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2458: THEN
2459: Error_Handler.Add_Error_Token
2460: ( p_message_name => 'ENG_COMP_NOT_OPTIONAL'
2461: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2462: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2463: );
2496: THEN
2497: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2498: g_Token_Tbl(2).Token_Value :=
2499: g_rev_component_rec.revised_item_name;
2500: Error_Handler.Add_Error_Token
2501: ( p_Message_Name => 'ENG_NOT_A_PLANNING_PARENT'
2502: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2503: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2504: , p_Token_Tbl => g_Token_Tbl
2520: g_Token_Tbl(3).Token_Value :=
2521: 'ENG_OPTION_CLASS_TYPE';
2522: END IF;
2523: g_Token_Tbl(3).Translate := TRUE;
2524: Error_Handler.Add_Error_Token
2525: ( p_Message_Name => 'ENG_COMP_MODEL_OC_OPTIONAL'
2526: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2527: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2528: , p_Token_Tbl => g_Token_Tbl
2537: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
2538: g_Token_Tbl(1).Token_Value :=
2539: g_rev_component_rec.revised_item_name;
2540:
2541: Error_Handler.Add_Error_Token
2542: ( p_Message_Name =>
2543: 'ENG_COMP_OPTIONAL_ATO_FORECAST'
2544: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2545: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2588: THEN
2589: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2590: g_Token_Tbl(2).Token_Value :=
2591: g_rev_component_rec.revised_item_name;
2592: Error_Handler.Add_Error_Token
2593: ( p_message_name => 'ENG_COMP_REQ_FOR_REV_INVALID'
2594: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2595: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2596: , p_Token_Tbl => g_Token_Tbl
2601: ELSIF l_Result = 2 THEN
2602: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2603: g_Token_Tbl(2).Token_Value :=
2604: g_rev_component_rec.revised_item_name;
2605: Error_Handler.Add_Error_Token
2606: ( p_message_name => 'ENG_COMP_REQ_TO_SHIP_INVALID'
2607: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2608: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2609: , p_Token_Tbl => g_Token_Tbl
2613: ELSIF l_Result = 3 THEN
2614: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2615: g_Token_Tbl(2).Token_Value :=
2616: g_rev_component_rec.revised_item_name;
2617: Error_Handler.Add_Error_Token
2618: ( p_message_name => 'ENG_COMP_REQ_TO_SHIP_INVALID'
2619: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2620: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2621: , p_Token_Tbl => g_Token_Tbl
2623:
2624: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2625: g_Token_Tbl(2).Token_Value :=
2626: g_rev_component_rec.revised_item_name;
2627: Error_Handler.Add_Error_Token
2628: ( p_message_name => 'ENG_COMP_REQ_FOR_REV_INVALID'
2629: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2630: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2631: , p_Token_Tbl => g_Token_Tbl
2646: *********************************************************************/
2647: IF p_rev_component_rec.so_basis = 1 AND
2648: g_Comp_Item_Type <> l_OPTION_CLASS
2649: THEN
2650: Error_Handler.Add_Error_Token
2651: ( p_message_name => 'ENG_SO_BASIS_ONE'
2652: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2653: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2654: , p_Token_Tbl => g_Token_Tbl
2685: */
2686: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) AND
2687: l_result <> 0
2688: THEN
2689: Error_Handler.Add_Error_Token
2690: ( p_message_name => 'ENG_ATP_CHECK_NOT_NO'
2691: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2692: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2693: , p_Token_Tbl => g_Token_Tbl
2721: END IF;
2722:
2723: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2724: THEN
2725: Error_Handler.Add_Error_Token
2726: ( p_message_name => l_err_text
2727: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2728: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2729: , p_Token_Tbl => g_Token_Tbl
2774: AND
2775: NOT Check_Min_Quantity THEN
2776: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2777: THEN
2778: Error_Handler.Add_Error_Token
2779: ( p_message_name => 'ENG_MIN_QUANTITY_INVALID'
2780: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2781: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2782: , p_Token_Tbl => g_Token_Tbl
2794: AND
2795: NOT Check_Max_Quantity THEN
2796: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2797: THEN
2798: Error_Handler.Add_Error_Token
2799: ( p_message_name => 'ENG_MAX_QUANTITY_INVALID'
2800: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2801: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2802: , p_Token_Tbl => g_Token_Tbl
2841: )
2842: THEN
2843: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2844: THEN
2845: Error_Handler.Add_Error_Token
2846: ( p_message_name => 'ENG_COMP_QTY_FRACTIONAL'
2847: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2848: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2849: , p_Token_Tbl => g_Token_Tbl
2867: p_rev_component_rec.quantity_per_assembly < 0
2868: THEN
2869: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2870: THEN
2871: Error_Handler.Add_Error_Token
2872: ( p_message_name => 'ENG_COMP_QTY_NEGATIVE'
2873: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2874: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2875: , p_Token_Tbl => g_Token_Tbl
2888: p_rev_component_rec.quantity_per_assembly < 0
2889: THEN
2890: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2891: THEN
2892: Error_Handler.Add_Error_Token
2893: ( p_message_name => 'ENG_COMP_PTO_QTY_NEGATIVE'
2894: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2895: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2896: , p_Token_Tbl => g_Token_Tbl
2925: NOT Check_Supply_SubInventory THEN
2926:
2927: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2928: THEN
2929: Error_Handler.Add_Error_Token
2930: ( p_message_name => 'ENG_SUBINV_INVALID'
2931: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2932: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2933: );
2965:
2966: IF l_locator_control = 4 THEN
2967: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2968: THEN
2969: Error_Handler.Add_Error_Token
2970: ( p_message_name => 'ENG_LOCATOR_REQUIRED'
2971: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2972: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2973: , p_Token_Tbl => g_Token_Tbl
2976: ELSIF l_locator_control = 3 THEN
2977: -- Log the Dynamic locator control message.
2978: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2979: THEN
2980: Error_Handler.Add_Error_Token
2981: ( p_message_name => 'ENG_LOCATOR_CANNOT_BE_DYNAMIC'
2982: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2983: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2984: , p_Token_Tbl => g_Token_Tbl
2992:
2993: IF FND_MSG_PUB.Check_Msg_Level
2994: (FND_MSG_PUB.G_MSG_LVL_ERROR)
2995: THEN
2996: Error_Handler.Add_Error_Token
2997: ( p_message_name => 'ENG_ITEM_LOCATOR_RESTRICTED'
2998: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2999: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3000: , p_Token_Tbl => g_Token_Tbl
3006: THEN
3007: g_Token_Tbl(1).token_name := 'REVISED_COMPONENT_NAME';
3008: g_Token_Tbl(1).token_value:= p_rev_component_rec.component_item_name;
3009:
3010: Error_Handler.Add_Error_Token
3011: ( p_message_name => 'ENG_LOCATOR_NOT_IN_SUBINV'
3012: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3013: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3014: , p_Token_Tbl => g_Token_Tbl
3018: ELSIF l_locator_control = 1 THEN
3019: IF FND_MSG_PUB.Check_Msg_Level
3020: (FND_MSG_PUB.G_MSG_LVL_ERROR)
3021: THEN
3022: Error_Handler.Add_Error_Token
3023: ( p_message_name => 'ENG_ITEM_NO_LOCATOR_CONTROL'
3024: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3025: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3026: , p_Token_Tbl => g_Token_Tbl
3033: p_rev_component_rec.supply_subinventory IS NULL
3034: THEN
3035: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3036: THEN
3037: Error_Handler.Add_Error_Token
3038: ( p_message_name => 'ENG_LOCATOR_MUST_BE_NULL'
3039: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3040: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3041: , p_Token_Tbl => g_Token_Tbl
3090: * the procedure returns with a Return_Status of 'E'.
3091: Item**************************************************************************/
3092: PROCEDURE Check_Attributes
3093: ( x_return_status OUT NOCOPY VARCHAR2
3094: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3095: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3096: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3097: )
3098: IS
3097: )
3098: IS
3099: l_return_status VARCHAR2(1);
3100: l_err_text VARCHAR2(2000);
3101: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3102: BEGIN
3103:
3104: x_return_status := FND_API.G_RET_STS_SUCCESS;
3105: l_return_status := FND_API.G_RET_STS_SUCCESS;
3116: -- value when the column value is required.
3117: --
3118: IF p_rev_component_rec.item_sequence_number = FND_API.G_MISS_NUM
3119: THEN
3120: Error_Handler.Add_Error_Token
3121: ( p_Message_Name => 'ENG_ITEM_NUM_MISSING'
3122: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3123: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3124: , p_Token_Tbl => g_Token_Tbl
3127: END IF;
3128:
3129: IF p_rev_component_rec.quantity_per_assembly = FND_API.G_MISS_NUM
3130: THEN
3131: Error_Handler.Add_Error_Token
3132: ( p_Message_Name => 'ENG_COMP_QUANTITY_MISSING'
3133: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3134: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3135: , p_Token_Tbl => g_Token_Tbl
3138: END IF;
3139:
3140: IF p_rev_component_rec.projected_yield = FND_API.G_MISS_NUM
3141: THEN
3142: Error_Handler.Add_Error_Token
3143: ( p_Message_Name => 'ENG_COMP_YIELD_MISSING'
3144: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3145: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3146: , p_Token_Tbl => g_Token_Tbl
3149: END IF;
3150:
3151: IF p_rev_component_rec.planning_percent = FND_API.G_MISS_NUM
3152: THEN
3153: Error_Handler.Add_Error_Token
3154: ( p_Message_Name => 'ENG_PLAN_PERCENT_MISSING'
3155: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3156: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3157: , p_Token_Tbl => g_Token_Tbl
3160: END IF;
3161:
3162: IF p_rev_component_rec.quantity_related = FND_API.G_MISS_NUM
3163: THEN
3164: Error_Handler.Add_Error_Token
3165: ( p_Message_Name => 'ENG_QUANTITY_RELATED_MISSING'
3166: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3167: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3168: , p_Token_Tbl => g_Token_Tbl
3171: END IF;
3172:
3173: IF p_rev_component_rec.include_in_cost_rollup = FND_API.G_MISS_NUM
3174: THEN
3175: Error_Handler.Add_Error_Token
3176: ( p_Message_Name => 'ENG_INCL_IN_COST_ROLLUP_MISSING'
3177: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3178: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3179: , p_Token_Tbl => g_Token_Tbl
3182: END IF;
3183:
3184: IF p_rev_component_rec.check_atp = FND_API.G_MISS_NUM
3185: THEN
3186: Error_Handler.Add_Error_Token
3187: ( p_Message_Name => 'ENG_CHECK_ATP_MISSING'
3188: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3189: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3190: , p_Token_Tbl => g_Token_Tbl
3198: THEN
3199: g_token_tbl(2).token_name := 'ACD_TYPE';
3200: g_token_tbl(2).token_value := p_rev_component_rec.acd_type;
3201:
3202: Error_Handler.Add_Error_Token
3203: ( p_Message_Name => 'ENG_ACD_TYPE_INVALID'
3204: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3205: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3206: , p_Token_Tbl => g_Token_Tbl
3230: THEN
3231: g_token_tbl(1).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
3232: g_token_tbl(1).token_value :=
3233: p_rev_component_rec.from_end_item_unit_number;
3234: Error_Handler.Add_Error_Token
3235: ( p_Message_Name => 'ENG_FROM_END_ITEM_INVALID'
3236: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3237: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3238: , p_Token_Tbl => g_Token_Tbl
3266: p_rev_component_rec.component_item_name;
3267: g_token_tbl(3).token_name := 'ORGANIZATION_CODE';
3268: g_token_tbl(3).token_value :=
3269: p_rev_component_rec.organization_code;
3270: Error_Handler.Add_Error_Token
3271: ( p_Message_Name => 'ENG_CMP_TO_UNIT_NUM_INVALID'
3272: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3273: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3274: , p_Token_Tbl => g_Token_Tbl
3279:
3280: IF p_rev_component_rec.transaction_type = Bom_GLOBALS.G_OPR_CREATE AND
3281: p_rev_component_rec.to_end_item_unit_number = FND_API.G_MISS_CHAR
3282: THEN
3283: Error_Handler.Add_Error_Token
3284: ( p_Message_Name => 'ENG_CMP_TO_UNIT_NUM_NULL'
3285: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3286: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3287: , p_Token_Tbl => g_Token_Tbl
3296: THEN
3297: g_token_tbl(2).token_name := 'WIP_SUPPLY_TYPE';
3298: g_token_tbl(2).token_value :=
3299: p_rev_component_rec.wip_supply_type;
3300: Error_Handler.Add_Error_Token
3301: ( p_Message_Name => 'ENG_WIP_SUPPLY_TYPE_7'
3302: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3303: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3304: , p_Token_Tbl => g_Token_Tbl
3319: g_token_tbl(1).token_name := 'WIP_SUPPLY_TYPE';
3320: g_token_tbl(1).token_value :=
3321: p_rev_component_rec.wip_supply_type;
3322:
3323: Error_Handler.Add_Error_Token
3324: ( p_Message_Name => 'ENG_WIP_SUPPLY_TYPE_INVALID'
3325: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3326: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3327: , p_Token_Tbl => g_Token_Tbl
3338: p_rev_component_rec.operation_sequence_number <= 0
3339: THEN
3340: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3341: THEN
3342: Error_Handler.Add_Error_Token
3343: ( p_Message_Name => 'ENG_OPSEQ_LESS_THAN_ZERO'
3344: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3345: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3346: , p_Token_Tbl => g_Token_Tbl
3357: )
3358: THEN
3359: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3360: THEN
3361: Error_Handler.Add_Error_Token
3362: ( p_Message_Name => 'ENG_ITEM_NUM_INVALID'
3363: , p_Mesg_token_Tbl => l_Mesg_token_Tbl
3364: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3365: , p_token_tbl => g_Token_Tbl
3375: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3376: THEN
3377: g_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
3378: g_token_tbl(1).token_value := p_rev_component_rec.component_item_name;
3379: Error_Handler.Add_Error_Token
3380: ( p_Message_Name => 'ENG_COMPYIELD_OUT_OF_RANGE'
3381: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3382: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3383: , p_token_tbl => g_token_tbl
3390: p_rev_component_rec.include_in_cost_rollup NOT IN (1,2)
3391: THEN
3392: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3393: THEN
3394: Error_Handler.Add_Error_Token
3395: ( p_Message_Name => 'ENG_INCL_IN_COST_ROLL_INVALID'
3396: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3397: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3398: , p_Token_Tbl => g_Token_Tbl
3405: p_rev_component_rec.SO_Basis NOT IN (1, 2)
3406: THEN
3407: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3408: THEN
3409: Error_Handler.Add_Error_Token
3410: ( p_Message_Name => 'ENG_SO_BASIS_INVALID'
3411: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3412: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3413: , p_Token_Tbl => g_Token_Tbl
3420: p_rev_component_rec.optional NOT IN (1, 2)
3421: THEN
3422: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3423: THEN
3424: Error_Handler.Add_Error_Token
3425: ( p_Message_Name => 'ENG_OPTIONAL_INVALID'
3426: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3427: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3428: , p_Token_Tbl => g_Token_Tbl
3435: p_rev_component_rec.mutually_exclusive NOT IN (1, 2)
3436: THEN
3437: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3438: THEN
3439: Error_Handler.Add_Error_Token
3440: ( p_Message_Name => 'ENG_MUTUALLY_EXCLUSIVE_INVALID'
3441: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3442: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3443: , p_Token_Tbl => g_Token_Tbl
3450: p_rev_component_rec.check_atp NOT IN (1, 2)
3451: THEN
3452: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3453: THEN
3454: Error_Handler.Add_Error_Token
3455: ( p_Message_Name => 'ENG_CHECK_ATP_INVALID'
3456: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3457: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3458: , p_Token_Tbl => g_Token_Tbl
3465: p_rev_component_rec.shipping_allowed NOT IN (1, 2)
3466: THEN
3467: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3468: THEN
3469: Error_Handler.Add_Error_Token
3470: ( p_Message_Name => 'ENG_SHIPPING_ALLOWED_INVALID'
3471: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3472: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3473: , p_Token_Tbl => g_Token_Tbl
3480: p_rev_component_rec.required_to_ship NOT IN (1, 2)
3481: THEN
3482: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3483: THEN
3484: Error_Handler.Add_Error_Token
3485: ( p_Message_Name => 'ENG_REQUIRED_TO_SHIP_INVALID'
3486: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3487: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3488: , p_Token_Tbl => g_Token_Tbl
3495: p_rev_component_rec.required_for_revenue NOT IN (1, 2)
3496: THEN
3497: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3498: THEN
3499: Error_Handler.Add_Error_Token
3500: ( p_Message_Name => 'ENG_REQ_FOR_REVENUE_INVALID'
3501: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3502: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3503: , p_Token_Tbl => g_Token_Tbl
3510: p_rev_component_rec.include_on_ship_docs NOT IN (1, 2)
3511: THEN
3512: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3513: THEN
3514: Error_Handler.Add_Error_Token
3515: ( p_Message_Name => 'ENG_INCL_ON_SHIP_DOCS_INVALID'
3516: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3517: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3518: , p_Token_Tbl => g_Token_Tbl
3525: p_rev_component_rec.quantity_related NOT IN (1, 2)
3526: THEN
3527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3528: THEN
3529: Error_Handler.Add_Error_Token
3530: ( p_Message_Name => 'ENG_QTY_RELATED_INVALID'
3531: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3532: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3533: , p_Token_Tbl => g_Token_Tbl
3548: -- SQLERRM );
3549:
3550: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3551: THEN
3552: Error_Handler.Add_Error_Token
3553: ( p_Message_Name => NULL
3554: , p_Message_Text => 'Error in Rev Comp Attr. Validation '
3555: || SUBSTR(SQLERRM, 1, 30) || ' ' ||
3556: to_char(SQLCODE)
3564: END Check_Attributes;
3565:
3566: PROCEDURE Check_Entity_Delete
3567: ( x_return_status OUT NOCOPY VARCHAR2
3568: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3569: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3570: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3571: )
3572: IS
3570: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3571: )
3572: IS
3573: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3574: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3575:
3576: BEGIN
3577:
3578: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
3599: -- if not exception is raised then record is deleted. so raise an error.
3600: --
3601: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3602: THEN
3603: Error_Handler.Add_Error_Token
3604: ( p_Message_Name => 'ENG_COMP_CANCELLED'
3605: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3607: , p_Token_Tbl => g_Token_Tbl
3655: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3656: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3657: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
3658: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3659: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3660: , x_return_status OUT NOCOPY VARCHAR2
3661: )
3662: IS
3663: l_token_tbl Error_Handler.Token_Tbl_Type;
3659: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3660: , x_return_status OUT NOCOPY VARCHAR2
3661: )
3662: IS
3663: l_token_tbl Error_Handler.Token_Tbl_Type;
3664: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3665: l_return_status VARCHAR2(1);
3666: BEGIN
3667: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
3660: , x_return_status OUT NOCOPY VARCHAR2
3661: )
3662: IS
3663: l_token_tbl Error_Handler.Token_Tbl_Type;
3664: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3665: l_return_status VARCHAR2(1);
3666: BEGIN
3667: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
3668: l_Token_Tbl(1).Token_Value := p_rev_component_rec.component_item_name;
3684:
3685: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
3686: p_rev_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE
3687: THEN
3688: Error_Handler.Add_Error_Token
3689: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
3690: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3691: , p_message_name => 'ENG_REV_COMP_ALREADY_EXISTS'
3692: , p_token_tbl => l_token_tbl
3695: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
3696: p_rev_component_rec.transaction_type IN
3697: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
3698: THEN
3699: Error_Handler.Add_Error_Token
3700: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
3701: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3702: , p_message_name => 'ENG_REV_COMP_DOESNOT_EXIST'
3703: , p_token_tbl => l_token_tbl
3704: );
3705: l_return_status := FND_API.G_RET_STS_ERROR;
3706: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
3707: THEN
3708: Error_Handler.Add_Error_Token
3709: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
3710: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3711: , p_message_name => NULL
3712: , p_message_text =>
3736: *****************************************************************************/
3737: PROCEDURE Check_Lineage
3738: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3739: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3740: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3741: , x_Return_Status OUT NOCOPY VARCHAR2
3742: )
3743: IS
3744: CURSOR c_GetComponent IS
3748: AND bill_sequence_id = p_rev_comp_unexp_rec.bill_sequence_id
3749: AND operation_seq_num = p_rev_component_rec.operation_sequence_number
3750: AND effectivity_date = p_rev_component_rec.start_effective_date;
3751:
3752: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3753: l_return_status VARCHAR2(1);
3754: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3755:
3756: BEGIN
3750: AND effectivity_date = p_rev_component_rec.start_effective_date;
3751:
3752: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3753: l_return_status VARCHAR2(1);
3754: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3755:
3756: BEGIN
3757: l_return_status := FND_API.G_RET_STS_SUCCESS;
3758:
3784: l_token_tbl(3).token_name := 'ECO_NAME';
3785: l_token_tbl(3).token_value :=
3786: p_rev_component_rec.eco_name;
3787:
3788: Error_Handler.Add_Error_Token
3789: ( p_Message_Name => 'ENG_REV_ITEM_MISMATCH'
3790: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3791: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3792: , p_Token_Tbl => l_Token_Tbl
3820: , p_component_item_id IN NUMBER
3821: , p_operation_seq_num IN NUMBER
3822: , p_bill_sequence_id IN NUMBER
3823: , p_component_name IN VARCHAR2
3824: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
3825: Error_Handler.G_MISS_MESG_TOKEN_TBL
3826: , p_entity_processed IN VARCHAR2 := 'RC'
3827: , p_rfd_sbc_name IN VARCHAR2 := NULL
3828: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3821: , p_operation_seq_num IN NUMBER
3822: , p_bill_sequence_id IN NUMBER
3823: , p_component_name IN VARCHAR2
3824: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
3825: Error_Handler.G_MISS_MESG_TOKEN_TBL
3826: , p_entity_processed IN VARCHAR2 := 'RC'
3827: , p_rfd_sbc_name IN VARCHAR2 := NULL
3828: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3829: , x_Return_Status OUT NOCOPY VARCHAR2
3824: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
3825: Error_Handler.G_MISS_MESG_TOKEN_TBL
3826: , p_entity_processed IN VARCHAR2 := 'RC'
3827: , p_rfd_sbc_name IN VARCHAR2 := NULL
3828: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3829: , x_Return_Status OUT NOCOPY VARCHAR2
3830: )
3831: IS
3832: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3828: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3829: , x_Return_Status OUT NOCOPY VARCHAR2
3830: )
3831: IS
3832: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3833: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
3834: p_Mesg_Token_Tbl;
3835: l_return_status VARCHAR2(1);
3836: l_Rev_Comp_Item_Type NUMBER;
3829: , x_Return_Status OUT NOCOPY VARCHAR2
3830: )
3831: IS
3832: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3833: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
3834: p_Mesg_Token_Tbl;
3835: l_return_status VARCHAR2(1);
3836: l_Rev_Comp_Item_Type NUMBER;
3837: l_error_name VARCHAR2(30);
3938: THEN
3939: l_Token_Tbl(2).Token_Value := 'ENG_STANDARD';
3940: END IF;
3941:
3942: Error_Handler.Add_Error_Token
3943: ( p_Message_Name => 'ENG_REV_COMP_ACCESS_DENIED'
3944: , p_Mesg_Token_Tbl => l_mesg_token_tbl
3945: , x_Mesg_Token_Tbl => l_mesg_token_tbl
3946: , p_Token_Tbl => l_token_tbl
3950: END IF;
3951:
3952: IF l_rev_comp_item_type = 5 /* Product Family */
3953: THEN
3954: Error_Handler.Add_Error_Token
3955: ( p_Message_Name => 'ENG_REV_COMP_PRODUCT_FAMILY'
3956: , p_Mesg_Token_Tbl => l_mesg_token_tbl
3957: , x_Mesg_Token_Tbl => l_mesg_token_tbl
3958: , p_Token_Tbl => l_token_tbl
3976: LOOP
3977: l_token_tbl.DELETE;
3978: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
3979: l_Token_Tbl(1).Token_value := p_component_name;
3980: Error_Handler.Add_Error_Token
3981: ( p_Message_Name => 'ENG_REV_COMP_CANCELLED'
3982: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3983: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3984: , p_Token_Tbl => l_token_tbl
4019: p_component_name;
4020: l_token_tbl(2).token_name := 'ECO_NAME';
4021: l_token_tbl(2).token_value :=
4022: p_change_notice;
4023: Error_Handler.Add_Error_Token
4024: ( p_Message_Name => 'ENG_REV_COMP_UNIT_CONTROL'
4025: , p_Mesg_Token_Tbl => l_mesg_token_tbl
4026: , x_Mesg_Token_Tbl => l_mesg_token_tbl
4027: , p_Token_Tbl => l_token_tbl
4057: l_token_tbl(2).token_value := p_component_name;
4058:
4059: l_return_status := FND_API.G_RET_STS_ERROR;
4060:
4061: Error_Handler.Add_Error_Token
4062: ( p_Message_Name => l_error_name
4063: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4064: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4065: , p_Token_Tbl => l_token_tbl