[Home] [Help]
40: /*
41: l_MODEL CONSTANT NUMBER := 1;
42: l_OPTION_CLASS CONSTANT NUMBER := 2;
43: l_PLANNING CONSTANT NUMBER := 3;
44: l_STANDARD CONSTANT NUMBER := 4;
45: l_PRODUCT_FAMILY CONSTANT NUMBER := 5;
46: */
47: l_Sub_Locator_Control NUMBER;
48: l_locator_control NUMBER;
585: THEN
586: l_Token_Tbl(2).Token_Value := 'BOM_PLANNING';
587: ELSIF l_bom_comp_Item_Type = 4
588: THEN
589: l_Token_Tbl(2).Token_Value := 'BOM_STANDARD';
590: END IF;
591:
592: Error_Handler.Add_Error_Token
593: ( p_Message_Name => 'BOM_BOM_COMP_ACCESS_DENIED'
861: *ATO OC No Yes No Yes No Yes No Yes
862: *Planning Yes Yes Yes Yes Yes Yes Yes Yes
863: *ATO Item No No No No No Yes No Yes
864: *PTO Item No No No No No No Yes Yes
865: *Standard Item No No No No No Yes No Yes
866: *Config Item No Yes No Yes No Yes No Yes
867: *
868: **********************************************************************/
869: FUNCTION Verify_Item_Attributes
904: -- Verify ATO MODEL OR ATO OPTION CLASS Assembly(not config)
905: -- Attributes ATO Model does not allow
906: -- 1. Planning Components
907: -- 2. PTO Model or PTO Option Class
908: -- 3. PTO Standard
909: -- If the Assembly is ATO Standard, then it does not allow the
910: -- above three types and
911: -- 4. ATO Model or
912: -- 5. ATO Option Class
905: -- Attributes ATO Model does not allow
906: -- 1. Planning Components
907: -- 2. PTO Model or PTO Option Class
908: -- 3. PTO Standard
909: -- If the Assembly is ATO Standard, then it does not allow the
910: -- above three types and
911: -- 4. ATO Model or
912: -- 5. ATO Option Class
913: **************************************************************/
911: -- 4. ATO Model or
912: -- 5. ATO Option Class
913: **************************************************************/
914: IF ( ( ( g_Assy_Item_Type IN
915: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD) AND
916: g_Assy_ATO_flag = 'Y' AND
917: g_Assy_Config = 'N'
918: )
919: ) AND
918: )
919: ) AND
920: ( g_Comp_Item_Type = Bom_Globals.G_PLANNING OR
921: ( g_Comp_Item_Type IN
922: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD) AND
923: g_Comp_PTO_Flag = 'Y'
924: )
925: )
926: ) OR
924: )
925: )
926: ) OR
927: (
928: g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
929: g_Assy_ATO_flag = 'Y' AND
930: g_Assy_Config = 'N' AND
931: ( g_Comp_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
932: g_Comp_ATO_Flag = 'Y'
946: g_Token_Tbl(2).Translate := TRUE;
947: ELSE
948: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
949: g_Token_Tbl(2).Token_Value :=
950: 'BOM_STANDARD_TYPE';
951: g_Token_Tbl(2).Translate := TRUE;
952: END IF;
953: g_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
954: g_token_tbl(3).token_value :=
978:
979: /*************************************************************
980: -- If the Assembly is a Config Item i.e. ATO with Base_Item_Id
981: -- NOT NULL then it will allow
982: -- 1. ATO Standard or
983: -- 2. Standard item
984: -- and
985: -- 1. ATO Model
986: -- 2. ATO Option Class
979: /*************************************************************
980: -- If the Assembly is a Config Item i.e. ATO with Base_Item_Id
981: -- NOT NULL then it will allow
982: -- 1. ATO Standard or
983: -- 2. Standard item
984: -- and
985: -- 1. ATO Model
986: -- 2. ATO Option Class
987: -- only if the assemly is Phantom is Wip_Supply_Type is 6
1019: ****************************************************/
1020: ELSIF
1021: NOT
1022: ( ( g_Comp_Item_Type IN
1023: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD)
1024: AND
1025: g_Comp_ATO_Flag = 'Y'
1026: ) OR
1027: g_Comp_Item_Type = Bom_Globals.G_STANDARD
1023: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD)
1024: AND
1025: g_Comp_ATO_Flag = 'Y'
1026: ) OR
1027: g_Comp_Item_Type = Bom_Globals.G_STANDARD
1028: )
1029: THEN
1030: g_token_tbl(2).token_name:= 'REVISED_ITEM_NAME';
1031: g_token_tbl(2).token_value :=
1087: RETURN FALSE;
1088:
1089: /****************************************************
1090: --
1091: -- PTO STandard will only allow Standard or PTO Standard
1092: --
1093: *****************************************************/
1094: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1095: g_Assy_PTO_Flag = 'Y' AND
1090: --
1091: -- PTO STandard will only allow Standard or PTO Standard
1092: --
1093: *****************************************************/
1094: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1095: g_Assy_PTO_Flag = 'Y' AND
1096: NOT
1097: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1098: ( ( g_Comp_PTO_Flag = 'Y' AND
1093: *****************************************************/
1094: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1095: g_Assy_PTO_Flag = 'Y' AND
1096: NOT
1097: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1098: ( ( g_Comp_PTO_Flag = 'Y' AND
1099: g_comp_ATO_Flag = 'N'
1100: ) OR
1101: ( g_comp_ATO_Flag = 'N' AND
1103: )
1104: )
1105: )
1106: /* Commenting for Bug 2627352
1107: NOT ( ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1108: g_Comp_PTO_flag = 'Y'
1109: ) OR
1110: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD)
1111: )
1106: /* Commenting for Bug 2627352
1107: NOT ( ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1108: g_Comp_PTO_flag = 'Y'
1109: ) OR
1110: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD)
1111: )
1112: */
1113: THEN
1114: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
1125: RETURN FALSE;
1126:
1127: /************************************************************
1128: --
1129: -- A STANDARD bill will only allow ATO Standard and Standard
1130: -- items as components
1131: --
1132: *************************************************************/
1133: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1129: -- A STANDARD bill will only allow ATO Standard and Standard
1130: -- items as components
1131: --
1132: *************************************************************/
1133: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1134: g_Assy_PTO_Flag = 'N' AND
1135: g_Assy_ATO_Flag = 'N' AND
1136: NOT
1137: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1133: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1134: g_Assy_PTO_Flag = 'N' AND
1135: g_Assy_ATO_Flag = 'N' AND
1136: NOT
1137: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1138: ( ( g_Comp_ATO_Flag = 'Y' AND
1139: g_comp_PTO_Flag = 'N'
1140: ) OR
1141: ( g_comp_ATO_Flag = 'N' AND
1147: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
1148: g_token_tbl(2).token_value :=
1149: g_rev_component_rec.revised_item_name;
1150: Error_Handler.Add_Error_Token
1151: ( p_message_name => 'BOM_STANDARD_PROP_MISMATCH'
1152: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1153: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1154: , p_Token_Tbl => g_Token_Tbl
1155: );
1211: * Returns : 0 if Success
1212: * 1 if Optional value is incorrect for ATO/PTO Model/OC
1213: * 2 if Optional value is incorrect for Plan/Stdd Bill
1214: * Purpose : Function will verify the following things:
1215: * 1. Optional must be NO (2) if Bill if Pln or Standard
1216: * 2. If Bill is PTO Model or OC and component is
1217: * ATO Std with no base mdl then Optional must be Yes
1218: * (1)
1219: ***********************************************************************/
1232:
1233: IF ( g_Assy_PTO_flag = 'Y' AND
1234: g_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
1235: g_Comp_ATO_flag = 'Y' AND
1236: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1237: g_Comp_Config = 'N' AND
1238: g_Rev_Component_Rec.optional = 2
1239: )
1240: THEN
1238: g_Rev_Component_Rec.optional = 2
1239: )
1240: THEN
1241: RETURN 1;
1242: ELSIF ( g_Assy_Item_Type IN (Bom_Globals.G_STANDARD, Bom_Globals.G_PLANNING) AND
1243: g_Rev_Component_Rec.optional = 1
1244: )
1245: THEN
1246: RETURN 2;
1265: FUNCTION Check_Planning_Percent RETURN NUMBER
1266: IS
1267: BEGIN
1268: IF g_rev_component_rec.planning_percent <> 100 THEN
1269: IF g_Assy_Item_Type = Bom_Globals.G_STANDARD THEN
1270: RETURN 1;
1271: ELSIF ( g_Assy_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1272: AND
1273: g_rev_component_rec.optional <> 1 AND
2336: g_rev_comp_Unexp_rec.revised_item_id
2337: AND comp.organization_id = g_rev_comp_Unexp_rec.organization_id
2338: AND comp.inventory_item_id =
2339: g_rev_comp_Unexp_rec.component_item_id
2340: AND ( ( assy.bom_item_type IN ( Bom_Globals.G_PLANNING, Bom_Globals.G_STANDARD)
2341: AND g_rev_component_rec.optional = 2 /* NO */
2342: )
2343: OR
2344: ( assy.bom_item_type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
2343: OR
2344: ( assy.bom_item_type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
2345: AND assy.pick_components_flag = 'Y'
2346: /* PTO Model or PTO Option Class */
2347: AND comp.bom_item_type = Bom_Globals.G_STANDARD
2348: AND comp.replenish_to_order_flag = 'Y'
2349: AND comp.base_item_id IS NULL
2350: AND g_rev_component_rec.Optional = 1
2351: )
2351: )
2352: );
2353:
2354: BEGIN
2355: -- Optional must be 2 if Bill is Planning or Standard.
2356: -- If the Bill is PTO Model or PTO OC and the Component
2357: -- is an ATO Std item with no Base Model then Optional must be 1
2358: -- Else it can be anything from 1 and 2.
2359:
3498:
3499: l_return_status := FND_API.G_RET_STS_ERROR;
3500: END IF;
3501: -- Unit controlled revised items can only have non-ATO or non-PTO
3502: -- standard items as components.
3503: -- Added by AS on 07/08/99 as part of unit effectivity changes
3504:
3505: IF NVL(g_rev_component_rec.acd_type, 1) = 1 AND
3506: l_is_comp_unit_controlled AND
6889: THEN
6890: l_Token_Tbl(2).Token_Value := 'BOM_PLANNING';
6891: ELSIF l_rev_comp_Item_Type = 4
6892: THEN
6893: l_Token_Tbl(2).Token_Value := 'BOM_STANDARD';
6894: END IF;
6895:
6896: Error_Handler.Add_Error_Token
6897: ( p_Message_Name => 'BOM_REV_COMP_ACCESS_DENIED'