[Home] [Help]
7: l_dummy VARCHAR2(80);
8: l_MODEL CONSTANT NUMBER := 1;
9: l_OPTION_CLASS CONSTANT NUMBER := 2;
10: l_PLANNING CONSTANT NUMBER := 3;
11: l_STANDARD CONSTANT NUMBER := 4;
12: l_Sub_Locator_Control NUMBER;
13: l_locator_control NUMBER;
14: l_org_locator_control NUMBER;
15: l_item_locator_control NUMBER;
247: * Purpose : The function will validate the following BOM Matrix.
248: *----------------------------------------------------------------------------
249: * Component Types
250: *----------------------------------------------------------------------------
251: *Bill PTO ATO PTO ATO ATO PTO Standard
252: *Types Model Model OC OC Planning Item Item Item
253: *------------- ------------------------------------------------------------
254: *PTO Model Yes Yes Yes No No Yes Yes Yes
255: *ATO Model No Yes No Yes No Yes No Yes
257: *ATO OC No Yes No Yes No Yes No Yes
258: *Planning Yes Yes Yes Yes Yes Yes Yes Yes
259: *ATO Item No No No No No Yes No Yes
260: *PTO Item No No No No No No Yes Yes
261: *Standard Item No No No No No Yes No Yes
262: *Config Item No Yes No Yes No Yes No Yes
263: *
264: *****************************************************************************/
265: FUNCTION Verify_Item_Attributes
293: -- Verify ATO MODEL OR ATO OPTION CLASS Assembly(not config) Attributes
294: -- ATO Model does not allow
295: -- 1. Planning Components
296: -- 2. PTO Model or PTO Option Class
297: -- 3. PTO Standard
298: -- If the Assembly is ATO Standard, then it does not allow the
299: -- above three types and
300: -- 4. ATO Model or
301: -- 5. ATO Option Class
294: -- ATO Model does not allow
295: -- 1. Planning Components
296: -- 2. PTO Model or PTO Option Class
297: -- 3. PTO Standard
298: -- If the Assembly is ATO Standard, then it does not allow the
299: -- above three types and
300: -- 4. ATO Model or
301: -- 5. ATO Option Class
302: *******************************************************************/
299: -- above three types and
300: -- 4. ATO Model or
301: -- 5. ATO Option Class
302: *******************************************************************/
303: IF ( ( ( g_Assy_Item_Type IN (l_MODEL, l_OPTION_CLASS, l_STANDARD) AND
304: g_Assy_ATO_flag = 'Y' AND
305: g_Assy_Config = 'N'
306: )
307: ) AND
305: g_Assy_Config = 'N'
306: )
307: ) AND
308: ( g_Comp_Item_Type = l_PLANNING OR
309: ( g_Comp_Item_Type IN (l_MODEL, l_OPTION_CLASS, l_STANDARD) AND
310: g_Comp_PTO_Flag = 'Y'
311: )
312: )
313: ) OR
311: )
312: )
313: ) OR
314: (
315: g_Assy_Item_Type = l_STANDARD AND
316: g_Assy_ATO_flag = 'Y' AND
317: g_Assy_Config = 'N' AND
318: ( g_Comp_Item_Type IN (l_MODEL, l_OPTION_CLASS) AND
319: g_Comp_ATO_Flag = 'Y'
331: g_Token_Tbl(2).Token_Value := 'ENG_OPTION_CLASS_TYPE';
332: g_Token_Tbl(2).Translate := TRUE;
333: ELSE
334: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
335: g_Token_Tbl(2).Token_Value := 'ENG_STANDARD_TYPE';
336: g_Token_Tbl(2).Translate := TRUE;
337: END IF;
338: g_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
339: g_token_tbl(3).token_value :=
365: -- If the Assembly is a Config Item i.e. ATO with Base_Item_Id
366: -- NOT NULL then it will allow
367: -- 1. ATO Model
368: -- 2. ATO Option Class
369: -- 3. ATO Standard or
370: -- 4. Standard item
371: -- only if the assemly is Phantom is Wip_Supply_Type is 6
372: *************************************************************/
373: ELSIF g_Assy_ATO_Flag = 'Y' AND
366: -- NOT NULL then it will allow
367: -- 1. ATO Model
368: -- 2. ATO Option Class
369: -- 3. ATO Standard or
370: -- 4. Standard item
371: -- only if the assemly is Phantom is Wip_Supply_Type is 6
372: *************************************************************/
373: ELSIF g_Assy_ATO_Flag = 'Y' AND
374: g_Assy_Config = 'Y'
373: ELSIF g_Assy_ATO_Flag = 'Y' AND
374: g_Assy_Config = 'Y'
375: THEN
376: IF g_Assy_Wip_Supply_Type <> 6 AND
377: ( ( g_Comp_Item_Type in (l_MODEL, l_OPTION_CLASS, l_STANDARD)
378: AND
379: g_Comp_ATO_Flag = 'Y'
380: ) OR
381: g_Comp_Item_Type = l_STANDARD
377: ( ( g_Comp_Item_Type in (l_MODEL, l_OPTION_CLASS, l_STANDARD)
378: AND
379: g_Comp_ATO_Flag = 'Y'
380: ) OR
381: g_Comp_Item_Type = l_STANDARD
382: )
383: THEN
384: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
385: g_token_tbl(2).token_value :=
402: *******************************************************/
403: ELSIF g_Assy_Wip_Supply_Type = 6 AND
404: NOT
405: ( ( g_Comp_Item_Type IN
406: (l_MODEL, l_OPTION_CLASS, l_STANDARD)
407: AND
408: g_Comp_ATO_Flag = 'Y'
409: ) OR
410: g_Comp_Item_Type = l_STANDARD
406: (l_MODEL, l_OPTION_CLASS, l_STANDARD)
407: AND
408: g_Comp_ATO_Flag = 'Y'
409: ) OR
410: g_Comp_Item_Type = l_STANDARD
411: )
412: THEN
413: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
414: g_token_tbl(2).token_value :=
469: RETURN FALSE;
470:
471: /*************************************************************
472: --
473: -- PTO STandard will only allow Standard or PTO Standard
474: --
475: *************************************************************/
476: ELSIF g_Assy_Item_Type = l_STANDARD AND
477: g_Assy_PTO_Flag = 'Y' AND
472: --
473: -- PTO STandard will only allow Standard or PTO Standard
474: --
475: *************************************************************/
476: ELSIF g_Assy_Item_Type = l_STANDARD AND
477: g_Assy_PTO_Flag = 'Y' AND
478: NOT ( ( g_Comp_Item_Type = l_STANDARD AND
479: g_Comp_PTO_flag = 'Y'
480: ) OR
474: --
475: *************************************************************/
476: ELSIF g_Assy_Item_Type = l_STANDARD AND
477: g_Assy_PTO_Flag = 'Y' AND
478: NOT ( ( g_Comp_Item_Type = l_STANDARD AND
479: g_Comp_PTO_flag = 'Y'
480: ) OR
481: ( g_Comp_Item_Type = l_STANDARD)
482: )
477: g_Assy_PTO_Flag = 'Y' AND
478: NOT ( ( g_Comp_Item_Type = l_STANDARD AND
479: g_Comp_PTO_flag = 'Y'
480: ) OR
481: ( g_Comp_Item_Type = l_STANDARD)
482: )
483: THEN
484: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
485: g_token_tbl(2).token_value :=
495: RETURN FALSE;
496:
497: /************************************************************
498: --
499: -- A STANDARD bill will only allow ATO Standard and Standard
500: -- items as components
501: --
502: *************************************************************/
503: ELSIF g_Assy_Item_Type = l_STANDARD AND
499: -- A STANDARD bill will only allow ATO Standard and Standard
500: -- items as components
501: --
502: *************************************************************/
503: ELSIF g_Assy_Item_Type = l_STANDARD AND
504: g_Assy_PTO_Flag = 'N' AND
505: g_Assy_ATO_Flag = 'N' AND
506: NOT
507: ( g_Comp_Item_Type = l_STANDARD AND
503: ELSIF g_Assy_Item_Type = l_STANDARD AND
504: g_Assy_PTO_Flag = 'N' AND
505: g_Assy_ATO_Flag = 'N' AND
506: NOT
507: ( g_Comp_Item_Type = l_STANDARD AND
508: ( ( g_Comp_ATO_Flag = 'Y' AND
509: g_comp_PTO_Flag = 'N'
510: ) OR
511: ( g_comp_ATO_Flag = 'N' AND
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
525: );
565: /****************************************************************************
566: * Function : Check_PTO_ATO_For_Optional (Local Function)
567: * Returns : 0 if Success
568: * 1 if Optional value is incorrect for ATO/PTO Model/OC
569: * 2 if Optional value is incorrect for Planning/Standard Bill
570: * Purpose : Function will verify the following things:
571: * 1. Optional must be NO (2) if Bill if Planning or Standard
572: * 2. If Bill is PTO Model or Option Class and component is
573: * ATO Standard with no base model then Optional must be Yes
567: * Returns : 0 if Success
568: * 1 if Optional value is incorrect for ATO/PTO Model/OC
569: * 2 if Optional value is incorrect for Planning/Standard Bill
570: * Purpose : Function will verify the following things:
571: * 1. Optional must be NO (2) if Bill if Planning or Standard
572: * 2. If Bill is PTO Model or Option Class and component is
573: * ATO Standard with no base model then Optional must be Yes
574: * (1)
575: *****************************************************************************/
569: * 2 if Optional value is incorrect for Planning/Standard Bill
570: * Purpose : Function will verify the following things:
571: * 1. Optional must be NO (2) if Bill if Planning or Standard
572: * 2. If Bill is PTO Model or Option Class and component is
573: * ATO Standard with no base model then Optional must be Yes
574: * (1)
575: *****************************************************************************/
576: --
577: -- Check if the PTO and ATO flags of Assembly and Component for the
587:
588: IF ( g_Assy_PTO_flag = 'Y' AND
589: g_Assy_Item_Type IN ( l_MODEL, l_OPTION_CLASS) AND
590: g_Comp_ATO_flag = 'Y' AND
591: g_Comp_Item_Type = l_STANDARD AND
592: g_Comp_Config = 'N' AND
593: g_Rev_Component_Rec.optional = 2
594: )
595: THEN
593: g_Rev_Component_Rec.optional = 2
594: )
595: THEN
596: RETURN 1;
597: ELSIF ( g_Assy_Item_Type IN (l_STANDARD, l_PLANNING) AND
598: g_Rev_Component_Rec.optional = 1
599: )
600: THEN
601: RETURN 2;
619: FUNCTION Check_Planning_Percent RETURN NUMBER
620: IS
621: BEGIN
622: IF g_rev_component_rec.planning_percent <> 100 THEN
623: IF g_Assy_Item_Type = l_STANDARD THEN
624: RETURN 1;
625: ELSIF ( g_Assy_Item_Type IN (l_MODEL, l_OPTION_CLASS) AND
626: g_rev_component_rec.optional <> 1 AND
627: g_Comp_ATO_Forecast_Control <> 2
1270: WHERE assy.organization_id = g_rev_comp_Unexp_rec.organization_id
1271: AND assy.inventory_item_id = g_rev_comp_Unexp_rec.revised_item_id
1272: AND comp.organization_id = g_rev_comp_Unexp_rec.organization_id
1273: AND comp.inventory_item_id = g_rev_comp_Unexp_rec.component_item_id
1274: AND ( ( assy.bom_item_type IN ( l_Planning, l_Standard)
1275: AND g_rev_component_rec.optional = 2 /* NO */
1276: )
1277: OR
1278: ( assy.bom_item_type IN ( l_Model, l_Option_Class)
1277: OR
1278: ( assy.bom_item_type IN ( l_Model, l_Option_Class)
1279: AND assy.pick_components_flag = 'Y'
1280: /* PTO Model or PTO Option Class */
1281: AND comp.bom_item_type = l_Standard
1282: AND comp.replenish_to_order_flag = 'Y'
1283: AND comp.base_item_id IS NULL
1284: AND g_rev_component_rec.Optional = 1
1285: )
1285: )
1286: );
1287:
1288: BEGIN
1289: -- Optional must be 2 if Bill is Planning or Standard.
1290: -- If the Bill is PTO Model or PTO Option Class and the Component
1291: -- is an ATO Standard item with no Base Model then Optional must be 1
1292: -- Else it can be anything from 1 and 2.
1293:
1287:
1288: BEGIN
1289: -- Optional must be 2 if Bill is Planning or Standard.
1290: -- If the Bill is PTO Model or PTO Option Class and the Component
1291: -- is an ATO Standard item with no Base Model then Optional must be 1
1292: -- Else it can be anything from 1 and 2.
1293:
1294: OPEN c_CheckOptional;
1295: FETCH c_CheckOptional INTO l_dummy;
1710: l_return_status := FND_API.G_RET_STS_ERROR;
1711: END IF;
1712:
1713: -- Unit controlled revised items can only have non-ATO or non-PTO
1714: -- standard items as components.
1715: -- Added by AS on 07/08/99 as part of unit effectivity changes
1716:
1717: IF g_rev_component_rec.acd_type = 1 AND
1718: l_is_comp_unit_controlled AND
3935: THEN
3936: l_Token_Tbl(2).Token_Value := 'ENG_PLANNING';
3937: ELSIF l_rev_comp_Item_Type = 4
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'