[Home] [Help]
477: bill_sequence_id = p_bom_comp_unexp_rec.bill_sequence_id
478: and sysdate between effectivity_date and
479: nvl(disable_date,sysdate + 1);
480:
481: IF l_total > BOM_GLOBALS.G_COMPS_LIMIT THEN
482: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
483: g_token_tbl(1).token_value :=
484: p_bom_component_rec.assembly_item_name;
485: Error_Handler.Add_Error_Token
553:
554: /* Validations for OPM Convergence Project
555: Model/Option class items are not allowed in OPM organizations*/
556:
557: IF (l_OPM_org='Y' and l_bom_comp_item_type in ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS))THEN
558: Error_Handler.Add_Error_Token
559: ( p_Message_name => 'BOM_OPM_ORG_MODEL_OC'
560: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
561: , x_mesg_token_tbl => l_mesg_token_tbl
563: l_return_status := FND_API.G_RET_STS_ERROR;
564: END IF;
565:
566: IF l_bom_comp_item_type NOT IN
567: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
568: NVL(BOM_Globals.Get_OC_Item_Access,0),
569: NVL(BOM_Globals.Get_PLN_Item_Access,0),
570: NVL(BOM_Globals.Get_STD_Item_Access,0)
571: )
564: END IF;
565:
566: IF l_bom_comp_item_type NOT IN
567: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
568: NVL(BOM_Globals.Get_OC_Item_Access,0),
569: NVL(BOM_Globals.Get_PLN_Item_Access,0),
570: NVL(BOM_Globals.Get_STD_Item_Access,0)
571: )
572: THEN
565:
566: IF l_bom_comp_item_type NOT IN
567: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
568: NVL(BOM_Globals.Get_OC_Item_Access,0),
569: NVL(BOM_Globals.Get_PLN_Item_Access,0),
570: NVL(BOM_Globals.Get_STD_Item_Access,0)
571: )
572: THEN
573: l_token_tbl(1).token_name := 'COMPONENT_ITEM_NAME';
566: IF l_bom_comp_item_type NOT IN
567: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
568: NVL(BOM_Globals.Get_OC_Item_Access,0),
569: NVL(BOM_Globals.Get_PLN_Item_Access,0),
570: NVL(BOM_Globals.Get_STD_Item_Access,0)
571: )
572: THEN
573: l_token_tbl(1).token_name := 'COMPONENT_ITEM_NAME';
574: l_token_tbl(1).token_value := p_component_name;
638:
639: IF ( p_rev_component_rec.acd_type IS NULL OR
640: p_rev_component_rec.acd_type = FND_API.G_MISS_NUM
641: ) AND
642: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
643: THEN
644: Error_Handler.Add_Error_Token
645: ( p_message_name => 'BOM_ACD_TYPE_MISSING'
646: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
913: -- 4. ATO Model or
914: -- 5. ATO Option Class
915: **************************************************************/
916: IF ( ( ( g_Assy_Item_Type IN
917: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD) AND
918: g_Assy_ATO_flag = 'Y' AND
919: g_Assy_Config = 'N'
920: )
921: ) AND
918: g_Assy_ATO_flag = 'Y' AND
919: g_Assy_Config = 'N'
920: )
921: ) AND
922: ( g_Comp_Item_Type = Bom_Globals.G_PLANNING OR
923: ( g_Comp_Item_Type IN
924: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD) AND
925: g_Comp_PTO_Flag = 'Y'
926: )
920: )
921: ) AND
922: ( g_Comp_Item_Type = Bom_Globals.G_PLANNING OR
923: ( g_Comp_Item_Type IN
924: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD) AND
925: g_Comp_PTO_Flag = 'Y'
926: )
927: )
928: ) OR
926: )
927: )
928: ) OR
929: (
930: g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
931: g_Assy_ATO_flag = 'Y' AND
932: g_Assy_Config = 'N' AND
933: ( g_Comp_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
934: g_Comp_ATO_Flag = 'Y'
929: (
930: g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
931: g_Assy_ATO_flag = 'Y' AND
932: g_Assy_Config = 'N' AND
933: ( g_Comp_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
934: g_Comp_ATO_Flag = 'Y'
935: )
936: )
937: THEN
934: g_Comp_ATO_Flag = 'Y'
935: )
936: )
937: THEN
938: IF g_Assy_Item_Type = Bom_Globals.G_MODEL
939: THEN
940: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
941: g_Token_Tbl(2).Token_Value := 'BOM_MODEL_TYPE';
942: g_Token_Tbl(2).Translate := TRUE;
939: THEN
940: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
941: g_Token_Tbl(2).Token_Value := 'BOM_MODEL_TYPE';
942: g_Token_Tbl(2).Translate := TRUE;
943: ELSIF g_Assy_Item_Type = Bom_Globals.G_OPTION_CLASS
944: THEN
945: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
946: g_Token_Tbl(2).Token_Value :=
947: 'BOM_OPTION_CLASS_TYPE';
955: g_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
956: g_token_tbl(3).token_value :=
957: g_rev_component_rec.revised_item_name;
958:
959: IF g_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
960: THEN
961: Error_Handler.Add_Error_Token
962: ( p_message_name => 'BOM_ATO_PROP_MISMATCH'
963: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
993: g_Assy_Config = 'Y'
994: THEN
995: IF( g_rev_component_rec.Wip_Supply_Type <> 6 AND
996: g_Comp_Item_Type IN
997: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
998: AND
999: g_Comp_ATO_Flag = 'Y'
1000: )
1001:
1021: ****************************************************/
1022: ELSIF
1023: NOT
1024: ( ( g_Comp_Item_Type IN
1025: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD)
1026: AND
1027: g_Comp_ATO_Flag = 'Y'
1028: ) OR
1029: g_Comp_Item_Type = Bom_Globals.G_STANDARD
1025: (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS, Bom_Globals.G_STANDARD)
1026: AND
1027: g_Comp_ATO_Flag = 'Y'
1028: ) OR
1029: g_Comp_Item_Type = Bom_Globals.G_STANDARD
1030: )
1031: THEN
1032: g_token_tbl(2).token_name:= 'REVISED_ITEM_NAME';
1033: g_token_tbl(2).token_value :=
1050: -- PTO Models do not allow
1051: -- 1. ATO Option Class and
1052: -- 2. Planning components
1053: **************************************************************/
1054: ELSIF g_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
1055: g_Assy_PTO_flag = 'Y' AND
1056: ( g_Comp_Item_Type = Bom_Globals.G_PLANNING OR
1057: ( g_Comp_Item_Type = Bom_Globals.G_OPTION_CLASS AND
1058: g_Comp_ATO_flag = 'Y'
1052: -- 2. Planning components
1053: **************************************************************/
1054: ELSIF g_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
1055: g_Assy_PTO_flag = 'Y' AND
1056: ( g_Comp_Item_Type = Bom_Globals.G_PLANNING OR
1057: ( g_Comp_Item_Type = Bom_Globals.G_OPTION_CLASS AND
1058: g_Comp_ATO_flag = 'Y'
1059: )
1060: )
1053: **************************************************************/
1054: ELSIF g_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) AND
1055: g_Assy_PTO_flag = 'Y' AND
1056: ( g_Comp_Item_Type = Bom_Globals.G_PLANNING OR
1057: ( g_Comp_Item_Type = Bom_Globals.G_OPTION_CLASS AND
1058: g_Comp_ATO_flag = 'Y'
1059: )
1060: )
1061: THEN
1058: g_Comp_ATO_flag = 'Y'
1059: )
1060: )
1061: THEN
1062: IF g_Assy_Item_Type = Bom_Globals.G_MODEL
1063: THEN
1064: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
1065: g_Token_Tbl(2).Token_Value := 'BOM_MODEL_TYPE';
1066: g_Token_Tbl(2).Translate := TRUE;
1063: THEN
1064: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
1065: g_Token_Tbl(2).Token_Value := 'BOM_MODEL_TYPE';
1066: g_Token_Tbl(2).Translate := TRUE;
1067: ELSIF g_Assy_Item_Type = Bom_Globals.G_OPTION_CLASS
1068: THEN
1069: g_Token_Tbl(2).Token_Name := 'ITEM_TYPE';
1070: g_Token_Tbl(2).Token_Value :=
1071: 'BOM_OPTION_CLASS_TYPE';
1092: --
1093: -- PTO STandard will only allow Standard or PTO Standard
1094: --
1095: *****************************************************/
1096: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1097: g_Assy_PTO_Flag = 'Y' AND
1098: NOT
1099: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1100: ( ( g_Comp_PTO_Flag = 'Y' AND
1095: *****************************************************/
1096: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1097: g_Assy_PTO_Flag = 'Y' AND
1098: NOT
1099: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1100: ( ( g_Comp_PTO_Flag = 'Y' AND
1101: g_comp_ATO_Flag = 'N'
1102: ) OR
1103: ( g_comp_ATO_Flag = 'N' AND
1109: )
1110: )
1111: )
1112: /* Commenting for Bug 2627352
1113: NOT ( ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1114: g_Comp_PTO_flag = 'Y'
1115: ) OR
1116: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD)
1117: )
1112: /* Commenting for Bug 2627352
1113: NOT ( ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1114: g_Comp_PTO_flag = 'Y'
1115: ) OR
1116: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD)
1117: )
1118: */
1119: THEN
1120: g_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
1135: -- A STANDARD bill will only allow ATO Standard and Standard
1136: -- items as components
1137: --
1138: *************************************************************/
1139: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1140: g_Assy_PTO_Flag = 'N' AND
1141: g_Assy_ATO_Flag = 'N' AND
1142: NOT
1143: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1139: ELSIF g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
1140: g_Assy_PTO_Flag = 'N' AND
1141: g_Assy_ATO_Flag = 'N' AND
1142: NOT
1143: ( g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1144: ( ( g_Comp_ATO_Flag = 'Y' AND
1145: g_comp_PTO_Flag = 'N'
1146: ) OR
1147: ( g_comp_ATO_Flag = 'N' AND
1171:
1172: -- Once the matrix is verified then check the ATP Components
1173: -- and ATP Check attributes
1174:
1175: IF BOM_Globals.get_debug = 'Y' THEN
1176: error_handler.write_debug('Check the ATP Components and ATP Check attribute.' );
1177: error_handler.write_debug('Assy ATP Comp Flag : ' || g_Assy_ATP_Comp_flag );
1178: error_handler.write_debug('Comp ATP Check Flag : ' || g_Comp_Atp_Check_Flag );
1179: END IF;
1197: RETURN FALSE; -- ATP Item Attribute Invalid
1198: END IF;
1199: -- dbms_output.put_line('End of Item Attribute Validation . . .');
1200:
1201: IF BOM_Globals.get_debug = 'Y' THEN
1202: error_handler.write_debug('Check the ATP Components and ATP Check attribute.' );
1203: END IF;
1204:
1205: **************************************************************/
1237: -- ('Value of Optional when checking ATO / PTO . . .');
1238:
1239: IF ( g_Assy_PTO_flag = 'Y' AND
1240: --following clause modified for BOM ER 9946990
1241: ( (g_Assy_Item_Type = Bom_Globals.G_MODEL and nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1) OR g_Assy_Item_Type = Bom_Globals.G_OPTION_CLASS) AND
1242: g_Comp_ATO_flag = 'Y' AND
1243: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1244: g_Comp_Config = 'N' AND
1245: g_Rev_Component_Rec.optional = 2
1239: IF ( g_Assy_PTO_flag = 'Y' AND
1240: --following clause modified for BOM ER 9946990
1241: ( (g_Assy_Item_Type = Bom_Globals.G_MODEL and nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1) OR g_Assy_Item_Type = Bom_Globals.G_OPTION_CLASS) AND
1242: g_Comp_ATO_flag = 'Y' AND
1243: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
1244: g_Comp_Config = 'N' AND
1245: g_Rev_Component_Rec.optional = 2
1246: )
1247: THEN
1245: g_Rev_Component_Rec.optional = 2
1246: )
1247: THEN
1248: RETURN 1;
1249: ELSIF ( g_Assy_Item_Type IN (Bom_Globals.G_STANDARD, Bom_Globals.G_PLANNING) AND
1250: g_Rev_Component_Rec.optional = 1
1251: )
1252: THEN
1253: RETURN 2;
1272: FUNCTION Check_Planning_Percent RETURN NUMBER
1273: IS
1274: BEGIN
1275: IF g_rev_component_rec.planning_percent <> 100 THEN
1276: IF g_Assy_Item_Type = Bom_Globals.G_STANDARD THEN
1277: RETURN 1;
1278: ELSIF ( g_Assy_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1279: AND
1280: g_rev_component_rec.optional <> 1 AND
1274: BEGIN
1275: IF g_rev_component_rec.planning_percent <> 100 THEN
1276: IF g_Assy_Item_Type = Bom_Globals.G_STANDARD THEN
1277: RETURN 1;
1278: ELSIF ( g_Assy_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1279: AND
1280: g_rev_component_rec.optional <> 1 AND
1281: g_Comp_ATO_Forecast_Control <> 2
1282: )
1282: )
1283: THEN
1284: RETURN 2;
1285: --Commented out condition below for bug 7392603
1286: /*ELSIF ( g_Assy_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1287: AND
1288: ( g_rev_component_rec.optional = 1 AND -- changed for Bug3163342
1289: g_Comp_ATO_Forecast_Control <> 2
1290: )
1353: Pf_Item_Id Number ;
1354: BEGIN
1355: --dbms_output.put_line('Withing Function CheckUnique_PF_Member . . .');
1356:
1357: IF g_Assy_Item_Type = Bom_Globals.G_PRODUCT_FAMILY
1358: THEN
1359: BEGIN
1360: SELECT product_family_item_id
1361: INTO Pf_Item_Id
1437: dep_appl_id => '702',
1438: status => X_bom_status,
1439: industry => X_industry);
1440: IF X_install_bom AND
1441: g_Comp_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1442: THEN
1443: RETURN 0;
1444: ELSIF g_Comp_Item_Type NOT IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1445: THEN
1440: IF X_install_bom AND
1441: g_Comp_Item_Type IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1442: THEN
1443: RETURN 0;
1444: ELSIF g_Comp_Item_Type NOT IN (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
1445: THEN
1446: RETURN 2;
1447: ELSE
1448: RETURN 1;
1793: -- dbms_output.put_line('Checking Subinventory locator control,
1794: -- calling Check_Supply_SubInventory . . .');
1795:
1796:
1797: IF Bom_Globals.Get_Debug = 'Y' THEN
1798: Error_Handler.Write_Debug('L_SUB_LOC_CONTROL :' || to_number( l_Sub_Locator_Control) );
1799: Error_Handler.Write_Debug('Now calling Check SupplySubInv: '|| g_rev_component_rec.supply_subinventory );
1800: END IF;
1801:
1802: IF l_Sub_Locator_Control IS NULL AND
1803: g_rev_component_rec.supply_subinventory IS NOT NULL
1804: THEN
1805:
1806: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1807: ('Now calling Check SupplySubInv. . .');
1808: END IF;
1809:
1810:
2185: -- a component already exist with that operation sequence abd
2186: -- Effectivity date so it cannot be inserted. So return an error
2187: -- hence, this function will return a false.
2188:
2189: l_eco_for_production := NVL(Bom_Globals.Get_Eco_For_Production,2) ;
2190:
2191: FOR l_valid_op IN Valid_Op_Seq(l_eco_for_production) LOOP
2192: -- if operation_seq exists in Operation_Sequences then
2193: -- verify that the same component does not already exist
2344: g_rev_comp_Unexp_rec.revised_item_id
2345: AND comp.organization_id = g_rev_comp_Unexp_rec.organization_id
2346: AND comp.inventory_item_id =
2347: g_rev_comp_Unexp_rec.component_item_id
2348: AND ( ( assy.bom_item_type IN ( Bom_Globals.G_PLANNING, Bom_Globals.G_STANDARD)
2349: AND g_rev_component_rec.optional = 2 /* NO */
2350: )
2351: OR
2352: ( assy.bom_item_type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
2348: AND ( ( assy.bom_item_type IN ( Bom_Globals.G_PLANNING, Bom_Globals.G_STANDARD)
2349: AND g_rev_component_rec.optional = 2 /* NO */
2350: )
2351: OR
2352: ( assy.bom_item_type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
2353: AND assy.pick_components_flag = 'Y'
2354: /* PTO Model or PTO Option Class */
2355: AND comp.bom_item_type = Bom_Globals.G_STANDARD
2356: AND comp.replenish_to_order_flag = 'Y'
2351: OR
2352: ( assy.bom_item_type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
2353: AND assy.pick_components_flag = 'Y'
2354: /* PTO Model or PTO Option Class */
2355: AND comp.bom_item_type = Bom_Globals.G_STANDARD
2356: AND comp.replenish_to_order_flag = 'Y'
2357: AND comp.base_item_id IS NULL
2358: AND g_rev_component_rec.Optional = 1
2359: )
2731:
2732: BEGIN
2733:
2734:
2735: l_lot_number := BOM_Globals.Get_Lot_Number;
2736: l_from_wip_entity_id := BOM_Globals.Get_From_Wip_Entity_Id;
2737: l_to_wip_entity_id := BOM_Globals.Get_To_Wip_Entity_Id;
2738: l_from_cum_qty := BOM_Globals.Get_From_Cum_Qty;
2739:
2732: BEGIN
2733:
2734:
2735: l_lot_number := BOM_Globals.Get_Lot_Number;
2736: l_from_wip_entity_id := BOM_Globals.Get_From_Wip_Entity_Id;
2737: l_to_wip_entity_id := BOM_Globals.Get_To_Wip_Entity_Id;
2738: l_from_cum_qty := BOM_Globals.Get_From_Cum_Qty;
2739:
2740: IF Bom_Globals.Get_Debug = 'Y' THEN
2733:
2734:
2735: l_lot_number := BOM_Globals.Get_Lot_Number;
2736: l_from_wip_entity_id := BOM_Globals.Get_From_Wip_Entity_Id;
2737: l_to_wip_entity_id := BOM_Globals.Get_To_Wip_Entity_Id;
2738: l_from_cum_qty := BOM_Globals.Get_From_Cum_Qty;
2739:
2740: IF Bom_Globals.Get_Debug = 'Y' THEN
2741: Error_Handler.Write_Debug('Check if the rev component is valid in Eco by Prod. . .' );
2734:
2735: l_lot_number := BOM_Globals.Get_Lot_Number;
2736: l_from_wip_entity_id := BOM_Globals.Get_From_Wip_Entity_Id;
2737: l_to_wip_entity_id := BOM_Globals.Get_To_Wip_Entity_Id;
2738: l_from_cum_qty := BOM_Globals.Get_From_Cum_Qty;
2739:
2740: IF Bom_Globals.Get_Debug = 'Y' THEN
2741: Error_Handler.Write_Debug('Check if the rev component is valid in Eco by Prod. . .' );
2742: Error_Handler.Write_Debug('Lot Number in parent rev item : ' || l_lot_number );
2736: l_from_wip_entity_id := BOM_Globals.Get_From_Wip_Entity_Id;
2737: l_to_wip_entity_id := BOM_Globals.Get_To_Wip_Entity_Id;
2738: l_from_cum_qty := BOM_Globals.Get_From_Cum_Qty;
2739:
2740: IF Bom_Globals.Get_Debug = 'Y' THEN
2741: Error_Handler.Write_Debug('Check if the rev component is valid in Eco by Prod. . .' );
2742: Error_Handler.Write_Debug('Lot Number in parent rev item : ' || l_lot_number );
2743: Error_Handler.Write_Debug('From WIP Entity Id in parent rev item : ' || to_char(l_from_wip_entity_id) );
2744: Error_Handler.Write_Debug('To WIP Entity Id in parent rev item : ' || to_char(l_to_wip_entity_id) );
2761: , p_rev_item_id => p_rev_item_id
2762: )
2763: LOOP
2764:
2765: IF Bom_Globals.Get_Debug = 'Y' THEN
2766: Error_Handler.Write_Debug('In Eco by Lot Number, this rev component is invalid. . .' );
2767: END IF;
2768: l_ret_status := FALSE ;
2769: END LOOP ;
2781: , p_rev_comp_item_id => p_rev_comp_item_id
2782: , p_operation_seq_num => p_operation_seq_num )
2783: LOOP
2784:
2785: IF Bom_Globals.Get_Debug = 'Y' THEN
2786: Error_Handler.Write_Debug('In Eco by Cum Qty, this rev component is invalid. . .' );
2787: END IF;
2788:
2789: l_ret_status := FALSE ;
2802: , p_operation_seq_num => p_operation_seq_num
2803: , p_organization_id => p_organization_Id )
2804: LOOP
2805:
2806: IF Bom_Globals.Get_Debug = 'Y' THEN
2807: Error_Handler.Write_Debug('In Eco by range work order, this rev component is invalid. . .' );
2808: END IF;
2809:
2810: l_ret_status := FALSE ;
2815: AND l_to_wip_entity_id IS NULL
2816: AND l_from_cum_qty IS NULL
2817: THEN
2818:
2819: IF Bom_Globals.Get_Debug = 'Y' THEN
2820: Error_Handler.Write_Debug('Parent revised item is not Eco by production. . .' );
2821: END IF;
2822:
2823: NULL ;
3228: g_Rev_Comp_Unexp_Rec := p_Rev_Comp_Unexp_Rec;
3229:
3230: /* 5134934 */
3231: -- Basis type cannot be Lot if there are existing Reference Desigantors.
3232: IF (p_rev_component_rec.transaction_type = Bom_Globals.G_OPR_UPDATE) THEN
3233:
3234: If(p_rev_component_rec.Basis_type = 2) THEN
3235: select count(*) into l_total_rds from bom_reference_designators
3236: where nvl(p_rev_component_rec.acd_type,1) <>3 and component_sequence_id=p_Rev_Comp_Unexp_Rec.component_sequence_id;
3249: END IF;
3250:
3251:
3252:
3253: IF Bom_Globals.Get_Debug = 'Y'
3254: THEN
3255: Error_Handler.Write_Debug('Performing Revised component Entity Validation. . .');
3256: END IF;
3257:
3254: THEN
3255: Error_Handler.Write_Debug('Performing Revised component Entity Validation. . .');
3256: END IF;
3257:
3258: l_is_comp_unit_controlled := BOM_GLOBALS.Get_Unit_Controlled_Component;
3259: l_is_item_unit_controlled := BOM_GLOBALS.Get_Unit_Controlled_Item;
3260:
3261: IF Bom_Globals.Get_Debug = 'Y' THEN
3262: Error_Handler.Write_Debug('Checked if revised item is unit controlled. . .');
3255: Error_Handler.Write_Debug('Performing Revised component Entity Validation. . .');
3256: END IF;
3257:
3258: l_is_comp_unit_controlled := BOM_GLOBALS.Get_Unit_Controlled_Component;
3259: l_is_item_unit_controlled := BOM_GLOBALS.Get_Unit_Controlled_Item;
3260:
3261: IF Bom_Globals.Get_Debug = 'Y' THEN
3262: Error_Handler.Write_Debug('Checked if revised item is unit controlled. . .');
3263: Error_Handler.Write_Debug('Org id: ' || to_char(g_rev_Comp_Unexp_Rec.Organization_Id));
3257:
3258: l_is_comp_unit_controlled := BOM_GLOBALS.Get_Unit_Controlled_Component;
3259: l_is_item_unit_controlled := BOM_GLOBALS.Get_Unit_Controlled_Item;
3260:
3261: IF Bom_Globals.Get_Debug = 'Y' THEN
3262: Error_Handler.Write_Debug('Checked if revised item is unit controlled. . .');
3263: Error_Handler.Write_Debug('Org id: ' || to_char(g_rev_Comp_Unexp_Rec.Organization_Id));
3264: Error_Handler.Write_Debug('Item id: ' || to_char(g_rev_Comp_Unexp_Rec.revised_item_id));
3265: Error_Handler.Write_Debug('Comp id: ' || to_char(g_rev_Comp_Unexp_Rec.Component_item_id));
3326: --
3327: -- Set the assembly Type of the Assembly
3328: --
3329:
3330: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
3331: THEN
3332: select assembly_type
3333: into g_Assy_Assembly_Type
3334: --bug: 4161794. Introduced new global variable to hold value of assembly type
3341: --update or delete the component once the profile is unset
3342: --BOM ER #9946990 changes (begin)
3343:
3344: IF
3345: p_rev_component_rec.Transaction_Type IN (BOM_GLOBALS.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE) AND
3346: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3347: g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
3348: g_Assy_PTO_Flag = 'Y' AND
3349: g_comp_ATO_Flag = 'Y' AND
3343:
3344: IF
3345: p_rev_component_rec.Transaction_Type IN (BOM_GLOBALS.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE) AND
3346: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3347: g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
3348: g_Assy_PTO_Flag = 'Y' AND
3349: g_comp_ATO_Flag = 'Y' AND
3350: g_comp_PTO_Flag = 'N' AND
3351: g_Comp_Item_Type = Bom_Globals.G_STANDARD
3347: g_Assy_Item_Type = Bom_Globals.G_STANDARD AND
3348: g_Assy_PTO_Flag = 'Y' AND
3349: g_comp_ATO_Flag = 'Y' AND
3350: g_comp_PTO_Flag = 'N' AND
3351: g_Comp_Item_Type = Bom_Globals.G_STANDARD
3352:
3353: THEN
3354:
3355: Error_Handler.Add_Error_Token
3366: --if a mandatory ATO item was added in a pto model when the related profile was set, you cannot
3367: --update or delete the component once the profile is unset
3368: --BOM ER #9946990 changes (begin)
3369: IF
3370: p_rev_component_rec.Transaction_Type IN (BOM_GLOBALS.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE) AND
3371: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3372: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3373: g_Assy_PTO_Flag = 'Y' AND
3374: g_comp_ATO_Flag = 'Y' AND
3368: --BOM ER #9946990 changes (begin)
3369: IF
3370: p_rev_component_rec.Transaction_Type IN (BOM_GLOBALS.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE) AND
3371: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3372: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3373: g_Assy_PTO_Flag = 'Y' AND
3374: g_comp_ATO_Flag = 'Y' AND
3375: g_comp_PTO_Flag = 'N' AND
3376: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
3372: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3373: g_Assy_PTO_Flag = 'Y' AND
3374: g_comp_ATO_Flag = 'Y' AND
3375: g_comp_PTO_Flag = 'N' AND
3376: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
3377: g_Rev_Component_Rec.optional = 2
3378:
3379: THEN
3380: Error_Handler.Add_Error_Token
3391: --BOM ER #9946990 changes(begin)
3392: --if user is trying to disable a mandatory ato component in a pto model when related bom profile is
3393: --not set, then throw error
3394:
3395: IF BOM_Globals.Get_Bo_Identifier = BOM_Globals.G_ECO_BO AND
3396: p_rev_component_rec.Transaction_Type = BOM_Globals.G_OPR_CREATE AND
3397: NVL(p_rev_component_rec.acd_type, 1) in (2, 3) AND --had to include acd_type 2 in here since while updating the record optional flag may not be populated or may not undergo a change
3398: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3399: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3392: --if user is trying to disable a mandatory ato component in a pto model when related bom profile is
3393: --not set, then throw error
3394:
3395: IF BOM_Globals.Get_Bo_Identifier = BOM_Globals.G_ECO_BO AND
3396: p_rev_component_rec.Transaction_Type = BOM_Globals.G_OPR_CREATE AND
3397: NVL(p_rev_component_rec.acd_type, 1) in (2, 3) AND --had to include acd_type 2 in here since while updating the record optional flag may not be populated or may not undergo a change
3398: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3399: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3400: g_Assy_PTO_Flag = 'Y' AND
3395: IF BOM_Globals.Get_Bo_Identifier = BOM_Globals.G_ECO_BO AND
3396: p_rev_component_rec.Transaction_Type = BOM_Globals.G_OPR_CREATE AND
3397: NVL(p_rev_component_rec.acd_type, 1) in (2, 3) AND --had to include acd_type 2 in here since while updating the record optional flag may not be populated or may not undergo a change
3398: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
3399: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3400: g_Assy_PTO_Flag = 'Y' AND
3401: g_comp_ATO_Flag = 'Y' AND
3402: g_comp_PTO_Flag = 'N' AND
3403: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
3399: g_Assy_Item_Type = Bom_Globals.G_MODEL AND
3400: g_Assy_PTO_Flag = 'Y' AND
3401: g_comp_ATO_Flag = 'Y' AND
3402: g_comp_PTO_Flag = 'N' AND
3403: g_Comp_Item_Type = Bom_Globals.G_STANDARD AND
3404: nvl(g_Rev_Component_Rec.optional,1) = 2
3405:
3406: THEN
3407: Error_Handler.Add_Error_Token
3424: -- scheduled revised items need to be update to Open
3425: -- and the ECO status need to be changed to Not Submitted for Approval
3426:
3427:
3428: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
3429: THEN
3430: BOM_GLOBALS.Check_Approved_For_Process
3431: (p_change_notice => p_rev_component_rec.eco_name,
3432: p_organization_id => p_rev_comp_unexp_rec.organization_id,
3426:
3427:
3428: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
3429: THEN
3430: BOM_GLOBALS.Check_Approved_For_Process
3431: (p_change_notice => p_rev_component_rec.eco_name,
3432: p_organization_id => p_rev_comp_unexp_rec.organization_id,
3433: x_processed => l_processed,
3434: x_err_text => l_err_text
3436: IF l_processed = TRUE
3437: THEN
3438: -- If the above process returns true then set the ECO approval.
3439: BEGIN
3440: BOM_GLOBALS.Set_Request_For_Approval
3441: (p_change_notice =>
3442: p_rev_component_rec.eco_name,
3443: p_organization_id =>
3444: p_rev_comp_unexp_rec.organization_id,
3449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3450: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3451: END;
3452: END IF;
3453: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Eco Status . . .' || l_return_status); END IF;
3454:
3455: -- Added by MK on 01/26/2001 for ECO New Effectivities
3456: -- Verify the ECO Effectivity, If ECO by WO, Lot Num, Or Cum Qty, then
3457: -- Check if the component exists in the WO or Lot Num.
3455: -- Added by MK on 01/26/2001 for ECO New Effectivities
3456: -- Verify the ECO Effectivity, If ECO by WO, Lot Num, Or Cum Qty, then
3457: -- Check if the component exists in the WO or Lot Num.
3458: --
3459: IF p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_CREATE
3460: AND p_rev_component_rec.acd_type IN (2 , 3) -- Change or Disable
3461: THEN
3462:
3463: IF NOT Check_RevCmp_In_ECO_By_WO
3485: g_token_tbl.delete;
3486: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
3487: g_Token_Tbl(1).Token_Value := p_rev_component_rec.component_item_name;
3488: END IF ;
3489: IF Bom_Globals.Get_Debug = 'Y' THEN
3490: Error_Handler.Write_Debug('Check if the rev component is valid in Eco by Prod. . .' || l_return_status);
3491: END IF;
3492: END IF ;
3493:
3516: );
3517:
3518: l_return_status := FND_API.G_RET_STS_ERROR;
3519:
3520: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check to end item unit number. . .' || l_return_status); END IF;
3521:
3522: END IF;
3523:
3524: --
3548:
3549: --
3550: -- All validations that only apply to Operation Type CREATE
3551: --
3552: IF p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
3553:
3554: -- When disabling a component, to end item number must be the same
3555: -- as the value in the bill component being disabled.
3556:
3657: g_token_tbl(1).token_value :=
3658: p_rev_component_rec.component_item_name;
3659:
3660: END IF; */
3661: IF NOT Check_PrimaryBill AND Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
3662: THEN
3663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ACD type to be add if primary bill does not exist . . .'); END IF;
3664: IF NVL(p_rev_component_rec.acd_type, 1) <> 1 AND
3665: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
3659:
3660: END IF; */
3661: IF NOT Check_PrimaryBill AND Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
3662: THEN
3663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ACD type to be add if primary bill does not exist . . .'); END IF;
3664: IF NVL(p_rev_component_rec.acd_type, 1) <> 1 AND
3665: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
3666: THEN
3667: /*****************************************************
3661: IF NOT Check_PrimaryBill AND Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
3662: THEN
3663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ACD type to be add if primary bill does not exist . . .'); END IF;
3664: IF NVL(p_rev_component_rec.acd_type, 1) <> 1 AND
3665: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
3666: THEN
3667: /*****************************************************
3668: --
3669: -- If the primary bill does not exist then the acd type
3687:
3688: -- Component cannot be added if the Bill is referencing another
3689: -- bill as common
3690: BEGIN
3691: IF Bom_Globals.Get_Caller_Type <> 'MIGRATION' THEN
3692: SELECT 'Valid'
3693: INTO l_dummy
3694: FROM bom_bill_of_materials bom
3695: WHERE bom.bill_sequence_id = p_rev_comp_unexp_rec.bill_sequence_id
3794: -- Verify that the component item does not exist under the same revised item
3795: -- in bom_components_b
3796: --
3797: ******************************************************************/
3798: IF p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE
3799: AND NVL(p_rev_component_rec.acd_type,1) = 1 THEN
3800:
3801: select count(*) into l_RC_Duplicate_Comps
3802: from bom_components_b bcb
3868: --
3869: -- Item Num Check
3870: --
3871: ********************************************************************/
3872: IF p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE
3873: AND
3874: ( NVL(p_rev_component_rec.acd_type,1) = 1 OR
3875: ( p_rev_component_rec.acd_type = 2 AND
3876: p_rev_component_rec.item_sequence_number <>
3947: THEN
3948: l_return_status := FND_API.G_RET_STS_ERROR;
3949: END IF;
3950:
3951: IF BOM_Globals.get_debug = 'Y' THEN
3952: error_handler.write_debug('Check Item Attribute Validation. . .' || l_Return_Status );
3953: END IF;
3954:
3955: -- Verify if the revised item is being referenced as common in
3958: --
3959:
3960: -- Bug 10094436 - pim-ait integration: provide custom hook to ait for item org assignment
3961: --- custom hook API called for sun-integration
3962: IF BOM_Globals.get_debug = 'Y' THEN
3963: error_handler.write_debug(' Check if custom hook enabled: ' || BOM_PUB_COMMON_COMP.GET_CUSTOM_MODE(1.0) );
3964: END IF;
3965:
3966: if BOM_PUB_COMMON_COMP.GET_CUSTOM_MODE(1.0) = 'Y' then
3963: error_handler.write_debug(' Check if custom hook enabled: ' || BOM_PUB_COMMON_COMP.GET_CUSTOM_MODE(1.0) );
3964: END IF;
3965:
3966: if BOM_PUB_COMMON_COMP.GET_CUSTOM_MODE(1.0) = 'Y' then
3967: IF BOM_Globals.get_debug = 'Y' THEN
3968: error_handler.write_debug(' Before calling custom hook BOM_PUB_COMMON_COMP.ASSIGN_COMP_TO_ORGS assign component ' || g_rev_comp_Unexp_rec.component_item_id || ' - ' || to_char(sysdate, 'YYYY-MM-DD hh24:mi:ss') );
3969: END IF;
3970:
3971: BOM_PUB_COMMON_COMP.ASSIGN_COMP_TO_ORGS(
3978: p_eco_name => g_rev_component_rec.eco_name,
3979: x_return_status => l_return_status,
3980: x_Mesg_Token_Tbl => l_Mesg_Token_Tbl) ;
3981:
3982: IF BOM_Globals.get_debug = 'Y' THEN
3983: error_handler.write_debug('After calling custom hook BOM_PUB_COMMON_COMP.ASSIGN_COMP_TO_ORGS - ' || to_char(sysdate, 'YYYY-MM-DD hh24:mi:ss') );
3984: END IF;
3985: end if;
3986:
3986:
3987:
3988: l_result := Check_Common_Other_Orgs;
3989:
3990: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Common_Other_Orgs returned with result ' || to_char(l_result)); END IF;
3991:
3992: IF l_result <> 0
3993: THEN
3994: IF l_result = 1
4022: --
4023: **************************************************************************/
4024:
4025: IF p_control_rec.caller_type <> 'FORM' AND
4026: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
4027: THEN
4028:
4029: --
4030: -- Verify that the user is not trying to Update non-updateable columns
4053: IF dereferenced_bom(p_rev_comp_unexp_rec.bill_sequence_id)
4054: THEN
4055: IF valid_common_bom_change(p_rev_component_rec => p_rev_component_rec,
4056: p_Old_Rev_Component_Rec=>p_Old_Rev_Component_Rec)
4057: AND p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_UPDATE
4058: THEN
4059: --if the change on common bom is only in the wip attributes,
4060: --allow it.
4061: NULL;
4093: /*******************bug:4240031 ends here***********************************/
4094:
4095: IF p_rev_component_rec.old_effectivity_date IS NOT NULL AND
4096: p_rev_component_rec.old_effectivity_date <> FND_API.G_MISS_DATE AND
4097: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
4098: THEN
4099: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4100: THEN
4101: Error_Handler.Add_Error_Token
4111:
4112: IF p_rev_component_rec.old_operation_sequence_number IS NOT NULL AND
4113: p_rev_component_rec.old_operation_sequence_number <>
4114: FND_API.G_MISS_NUM AND
4115: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
4116: THEN
4117: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4118: THEN
4119: Error_Handler.Add_Error_Token
4130: -- ACD Type not updateable
4131: --
4132: IF p_rev_component_rec.acd_type <>
4133: p_old_rev_component_rec.acd_type AND
4134: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
4135: THEN
4136: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4137: THEN
4138: Error_Handler.Add_Error_Token
4149: -- Verify that the user is not trying to update a component which
4150: -- is Disabled on the ECO
4151: --
4152: IF p_old_rev_component_rec.acd_type = 3 AND
4153: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
4154: THEN
4155: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4156: THEN
4157: Error_Handler.Add_Error_Token
4192: -- checks.
4193: --
4194: **************************************************************************/
4195: IF p_rev_component_rec.Transaction_Type IN
4196: (BOM_GLOBALS.G_OPR_CREATE, BOM_GLOBALS.G_OPR_UPDATE)
4197: THEN
4198: /*********************************************************************
4199: --
4200: -- Verify yield factor
4310: --For ATO model, option class bills, optional,model,option class
4311: -- components should not be lot based.
4312: IF ( p_rev_component_rec.BASIS_TYPE=2
4313: and (p_rev_component_rec.OPTIONAL=1
4314: or g_Comp_Item_Type in (Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS) )) THEN
4315: Error_Handler.Add_Error_Token
4316: ( p_Message_Name => 'BOM_LOT_BASED_ATO'
4317: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4318: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4347: -- in its effectivity cyle. In this the validation for Insert and Update will differ
4348: -- If the new_effectivity_date col is not null and missing then it must be greater or =
4349: -- to SYSDATE.
4350: -- Also, disable_date must be greater or equal to the new_effective_date
4351: IF p_rev_component_rec.transaction_type in (BOM_GLOBALS.G_OPR_CREATE,
4352: BOM_GLOBALS.G_OPR_UPDATE) AND
4353: p_rev_component_rec.disable_date <
4354: p_rev_component_rec.start_effective_date THEN
4355: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4348: -- If the new_effectivity_date col is not null and missing then it must be greater or =
4349: -- to SYSDATE.
4350: -- Also, disable_date must be greater or equal to the new_effective_date
4351: IF p_rev_component_rec.transaction_type in (BOM_GLOBALS.G_OPR_CREATE,
4352: BOM_GLOBALS.G_OPR_UPDATE) AND
4353: p_rev_component_rec.disable_date <
4354: p_rev_component_rec.start_effective_date THEN
4355: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4356: THEN
4362: );
4363: END IF;
4364: l_return_status := FND_API.G_RET_STS_ERROR;
4365:
4366: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE AND
4367: p_rev_component_rec.new_effectivity_date IS NOT NULL AND
4368: p_rev_component_rec.new_effectivity_date <> FND_API.G_MISS_DATE AND
4369: (
4370: -- p_rev_component_rec.new_effectivity_date < SYSDATE OR -- Bug3281414
4440:
4441: /** This allowed thru the form and should be allowed thru the BO
4442: as well
4443:
4444: IF p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE AND
4445: p_rev_component_rec.acd_type IN (2, 3)
4446: THEN
4447: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Old sequence: ' || to_char(p_rev_comp_Unexp_rec.old_component_sequence_id)); END IF;
4448: BEGIN
4443:
4444: IF p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE AND
4445: p_rev_component_rec.acd_type IN (2, 3)
4446: THEN
4447: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Old sequence: ' || to_char(p_rev_comp_Unexp_rec.old_component_sequence_id)); END IF;
4448: BEGIN
4449: SELECT 'Component Implemented'
4450: INTO l_dummy
4451: FROM bom_inventory_components
4522: -- If the rev component is Create with an Acd_Type of Change or Disable
4523: -- then component pointed to by old_component_sequence_id should
4524: -- be valid against cusror old_comp_csr's conditions.
4525: *********************************************************************/
4526: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE AND
4527: p_rev_component_rec.acd_type IN (2, 3)
4528: THEN
4529:
4530: IF Bom_Globals.Get_Debug = 'Y' THEN
4526: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE AND
4527: p_rev_component_rec.acd_type IN (2, 3)
4528: THEN
4529:
4530: IF Bom_Globals.Get_Debug = 'Y' THEN
4531: Error_Handler.Write_Debug('Checking old component : '|| to_char(p_rev_comp_unexp_rec.old_component_sequence_id));
4532: END IF;
4533:
4534: l_eco_for_production := NVL(Bom_Globals.Get_Eco_For_Production,2) ;
4530: IF Bom_Globals.Get_Debug = 'Y' THEN
4531: Error_Handler.Write_Debug('Checking old component : '|| to_char(p_rev_comp_unexp_rec.old_component_sequence_id));
4532: END IF;
4533:
4534: l_eco_for_production := NVL(Bom_Globals.Get_Eco_For_Production,2) ;
4535:
4536: FOR old_comp_rec IN old_comp_csr
4537: (p_rev_comp_unexp_rec.old_component_sequence_id,
4538: l_eco_for_production)
4550: END IF;
4551: l_return_status := FND_API.G_RET_STS_ERROR;
4552: END LOOP ;
4553:
4554: IF Bom_Globals.Get_Debug = 'Y' THEN
4555: Error_Handler.Write_Debug('After checking old component. Return status is '|| l_return_status);
4556: END IF;
4557:
4558: END IF;
4556: END IF;
4557:
4558: END IF;
4559:
4560: --IF Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
4561: --THEN
4562: -- Modified by MK on 11/13/00
4563: IF ( p_rev_component_rec.operation_sequence_number <> 1 AND
4564: -- NVL(p_rev_Component_rec.ACD_Type, 1) = 1
4565: p_rev_Component_rec.ACD_Type = 1
4566: ) OR -- bug 5386719
4567: ( p_rev_component_rec.operation_sequence_number <> 1 AND
4568: p_rev_Component_rec.ACD_Type is NULL and
4569: p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_CREATE
4570: ) OR
4571: ( p_rev_component_rec.operation_sequence_number <> 1 AND
4572: NVL(p_rev_Component_rec.ACD_Type, 1) = 2 AND
4573: NVL(p_rev_component_rec.new_operation_sequence_number,FND_API.G_MISS_NUM)
4577: ) OR
4578: ( NVL(p_rev_component_rec.new_operation_sequence_number,1) <> 1 AND
4579: ( ( p_rev_component_rec.ACD_Type = 2 AND
4580: p_rev_component_rec.transaction_type =
4581: BOM_Globals.G_OPR_CREATE
4582: ) OR
4583: p_rev_component_rec.transaction_type =
4584: BOM_Globals.G_OPR_UPDATE
4585: ) AND
4580: p_rev_component_rec.transaction_type =
4581: BOM_Globals.G_OPR_CREATE
4582: ) OR
4583: p_rev_component_rec.transaction_type =
4584: BOM_Globals.G_OPR_UPDATE
4585: ) AND
4586: (
4587: NVL(p_old_rev_component_rec.operation_sequence_number, 1) <>
4588: NVL(p_rev_component_rec.new_operation_sequence_number, 1) AND
4625:
4626: l_result := Check_Op_Seq(l_is_item_unit_controlled);
4627: --arudresh_debug('Result after check_op_seq '||l_result);
4628:
4629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check_Op_Seq returned with : ' || l_result); END IF;
4630: IF l_result = 1
4631: THEN
4632: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
4633: g_Token_Tbl(1).Token_Value :=
4658: , p_Token_Tbl => g_Token_Tbl
4659: );
4660: l_return_status := FND_API.G_RET_STS_ERROR;
4661: ELSIF l_result = 2 THEN
4662: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO THEN
4663: g_Token_Tbl(2).Token_Name := 'OP_SEQ_NUM';
4664: g_Token_Tbl(2).Token_Value :=
4665: to_char
4666: (g_Rev_Component_rec.operation_sequence_number);
4697: ELSIF l_result = 0 AND
4698: p_Rev_Component_rec.old_operation_sequence_number
4699: IS NOT NULL AND
4700: p_Rev_Component_rec.old_operation_sequence_number <>
4701: FND_API.G_MISS_NUM AND Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
4702: THEN
4703: BEGIN
4704: SELECT operation_seq_num
4705: INTO l_result
4734: END IF; -- Operation_seq_Num Check Ends.
4735: --END IF; -- Validate for plm ends
4736: END IF;
4737:
4738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Op seq num validation completed with ' || l_return_status); END IF;
4739:
4740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO identifier is '||Bom_Globals.Get_Bo_Identifier); END IF;
4741:
4742: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND NVL(p_rev_Component_rec.ACD_Type,1) <> 3 THEN
4736: END IF;
4737:
4738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Op seq num validation completed with ' || l_return_status); END IF;
4739:
4740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO identifier is '||Bom_Globals.Get_Bo_Identifier); END IF;
4741:
4742: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND NVL(p_rev_Component_rec.ACD_Type,1) <> 3 THEN
4743: IF Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
4744: THEN
4738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Op seq num validation completed with ' || l_return_status); END IF;
4739:
4740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO identifier is '||Bom_Globals.Get_Bo_Identifier); END IF;
4741:
4742: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND NVL(p_rev_Component_rec.ACD_Type,1) <> 3 THEN
4743: IF Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
4744: THEN
4745: IF (p_control_rec.caller_type = 'FORM' AND
4746: p_control_rec.write_to_db)
4739:
4740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO identifier is '||Bom_Globals.Get_Bo_Identifier); END IF;
4741:
4742: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND NVL(p_rev_Component_rec.ACD_Type,1) <> 3 THEN
4743: IF Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
4744: THEN
4745: IF (p_control_rec.caller_type = 'FORM' AND
4746: p_control_rec.write_to_db)
4747: OR
4791: END IF;
4792: -- Since Open Interface allows for Dates to be
4793: -- overlapping do set the error status.
4794: END IF;
4795: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified overlapping dates . . . ' || l_return_status); END IF;
4796:
4797: ELSE
4798:
4799: /********************************************************************
4830: END IF;
4831: END IF;
4832: END IF;
4833: END IF; -- Validate for PLM check ends
4834: ELSIF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO THEN
4835: --begin changes for bug 9920911
4836: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE THEN
4837: l_new_op_seq_num := p_rev_component_rec.operation_sequence_number;
4838: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE THEN
4832: END IF;
4833: END IF; -- Validate for PLM check ends
4834: ELSIF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO THEN
4835: --begin changes for bug 9920911
4836: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE THEN
4837: l_new_op_seq_num := p_rev_component_rec.operation_sequence_number;
4838: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE THEN
4839: l_new_op_seq_num := nvl(p_rev_component_rec.new_operation_sequence_number, p_rev_component_rec.operation_sequence_number);
4840: END IF;
4834: ELSIF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO THEN
4835: --begin changes for bug 9920911
4836: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE THEN
4837: l_new_op_seq_num := p_rev_component_rec.operation_sequence_number;
4838: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE THEN
4839: l_new_op_seq_num := nvl(p_rev_component_rec.new_operation_sequence_number, p_rev_component_rec.operation_sequence_number);
4840: END IF;
4841: --end changes for bug 9920911
4842: IF Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
4838: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE THEN
4839: l_new_op_seq_num := nvl(p_rev_component_rec.new_operation_sequence_number, p_rev_component_rec.operation_sequence_number);
4840: END IF;
4841: --end changes for bug 9920911
4842: IF Nvl(Bom_Globals.Get_Validate_For_Plm,'N') = 'N'
4843: THEN
4844:
4845: IF NOT l_is_item_unit_controlled
4846: THEN
4854:
4855: /* Fix for bug 4585076 - While calling check_overlap_dates function, if txn type is create then pass start_effective_date
4856: else if txn type is update then pass new_effectivity_date.
4857: */
4858: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE THEN
4859: l_new_compare_date := p_rev_component_rec.start_effective_date;
4860: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE THEN
4861: l_new_compare_date := p_rev_component_rec.new_effectivity_date;
4862: END IF;
4856: else if txn type is update then pass new_effectivity_date.
4857: */
4858: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE THEN
4859: l_new_compare_date := p_rev_component_rec.start_effective_date;
4860: ELSIF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_UPDATE THEN
4861: l_new_compare_date := p_rev_component_rec.new_effectivity_date;
4862: END IF;
4863:
4864: IF Bom_Validate_Comp_Operation.Check_Overlap_Dates
4894: );
4895: END IF;
4896: l_return_status := FND_API.G_RET_STS_ERROR;
4897: END IF;
4898: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified overlapping dates . . . ' || l_return_status); END IF;
4899:
4900: ELSE
4901: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('I am here Inside Unit Eff'); END IF;
4902:
4897: END IF;
4898: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified overlapping dates . . . ' || l_return_status); END IF;
4899:
4900: ELSE
4901: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('I am here Inside Unit Eff'); END IF;
4902:
4903: /********************************************************************
4904: --
4905: -- Check for Overlapping numbers for the component being inserted.
4935: END IF;
4936: END IF; -- Validate for Plm check ends
4937: END IF;
4938:
4939: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified overlapping unit numbers. . .' || l_return_status); END IF;
4940:
4941:
4942: If (p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND g_Assy_Item_Type = Bom_Globals.G_PRODUCT_FAMILY) THEN
4943: l_Result := CheckUnique_PF_Member;
4938:
4939: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified overlapping unit numbers. . .' || l_return_status); END IF;
4940:
4941:
4942: If (p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND g_Assy_Item_Type = Bom_Globals.G_PRODUCT_FAMILY) THEN
4943: l_Result := CheckUnique_PF_Member;
4944: IF l_Result = 1 Then
4945: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4946: THEN
4963: -- Check whether the entered attributes match with the current
4964: -- component attributes
4965: --
4966: **********************************************************************/
4967: IF (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
4968: NVL(p_rev_component_rec.acd_type, 1) = 1
4969: ) OR
4970: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
4971: p_rev_component_rec.acd_type = 2
4966: **********************************************************************/
4967: IF (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
4968: NVL(p_rev_component_rec.acd_type, 1) = 1
4969: ) OR
4970: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
4971: p_rev_component_rec.acd_type = 2
4972: ) OR
4973: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
4974: )
4969: ) OR
4970: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
4971: p_rev_component_rec.acd_type = 2
4972: ) OR
4973: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
4974: )
4975: AND
4976: NVL(p_Old_rev_component_rec.optional, 0) <>
4977: p_rev_component_rec.optional
5013: --
5014: **********************************************************************/
5015: --
5016: IF p_control_rec.caller_type <> 'FORM' AND
5017: (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5018: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5019: p_rev_component_rec.planning_percent <> 100
5020: ) OR
5021: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5017: (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5018: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5019: p_rev_component_rec.planning_percent <> 100
5020: ) OR
5021: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5022: p_rev_component_rec.acd_type = 2
5023: ) OR
5024: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5025: )
5020: ) OR
5021: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5022: p_rev_component_rec.acd_type = 2
5023: ) OR
5024: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5025: )
5026: AND
5027: NVL(p_Old_rev_component_rec.planning_percent, 0) <>
5028: p_rev_component_rec.planning_percent
5051: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
5052: g_Token_Tbl(2).Token_Value :=
5053: g_rev_component_rec.revised_item_name;
5054: g_Token_Tbl(3).Token_Name := 'ITEM_TYPE';
5055: IF g_Assy_Item_Type = Bom_Globals.G_MODEL
5056: THEN
5057: g_Token_Tbl(3).Token_Value := 'BOM_MODEL_TYPE';
5058: ELSIF g_Assy_Item_Type = Bom_Globals.G_OPTION_CLASS THEN
5059: g_Token_Tbl(3).Token_Value :=
5054: g_Token_Tbl(3).Token_Name := 'ITEM_TYPE';
5055: IF g_Assy_Item_Type = Bom_Globals.G_MODEL
5056: THEN
5057: g_Token_Tbl(3).Token_Value := 'BOM_MODEL_TYPE';
5058: ELSIF g_Assy_Item_Type = Bom_Globals.G_OPTION_CLASS THEN
5059: g_Token_Tbl(3).Token_Value :=
5060: 'BOM_OPTION_CLASS_TYPE';
5061: END IF;
5062: g_Token_Tbl(3).Translate := TRUE;
5100: --
5101: -- Check Required for Revenue / Required to Ship
5102: --
5103: **********************************************************************/
5104: IF (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5105: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5106: ( p_rev_component_rec.required_for_revenue = 1 OR
5107: p_rev_component_rec.required_to_ship = 1
5108: )
5106: ( p_rev_component_rec.required_for_revenue = 1 OR
5107: p_rev_component_rec.required_to_ship = 1
5108: )
5109: ) OR
5110: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5111: p_rev_component_rec.acd_type = 2
5112: ) OR
5113: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5114: )
5109: ) OR
5110: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5111: p_rev_component_rec.acd_type = 2
5112: ) OR
5113: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5114: )
5115: AND
5116: ( NVL(p_Old_rev_component_rec.required_for_revenue, 0) <>
5117: p_rev_component_rec.required_for_revenue OR
5175: l_return_status := FND_API.G_RET_STS_ERROR;
5176: END IF;
5177: END IF;
5178:
5179: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Req for Rev and Shipping . . . ' || l_return_status); END IF;
5180:
5181: /*********************************************************************
5182: --
5183: -- Verify the value of SO_Basis
5184: -- first conditon is removed by MK on 11/13/00
5185: *********************************************************************/
5186: IF -- p_control_rec.caller_type = 'FORM' AND
5187: p_rev_component_rec.so_basis = 1 AND
5188: g_Comp_Item_Type <> Bom_Globals.G_OPTION_CLASS
5189: THEN
5190: Error_Handler.Add_Error_Token
5191: ( p_message_name => 'BOM_SO_BASIS_ONE'
5192: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5203: -- Check Check_ATP Flag. Check_ATP can be True only if Assembly has
5204: -- Atp Components flag = Y and the Component has a Check_ATP.
5205: --
5206:
5207: IF (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5208: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5209: p_rev_component_rec.check_atp = 1
5210: ) OR
5211: ( ( ( p_rev_component_rec.Transaction_Type =
5208: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5209: p_rev_component_rec.check_atp = 1
5210: ) OR
5211: ( ( ( p_rev_component_rec.Transaction_Type =
5212: BOM_GLOBALS.G_OPR_CREATE AND
5213: p_rev_component_rec.acd_type = 2
5214: ) OR
5215: p_rev_component_rec.Transaction_Type =
5216: BOM_GLOBALS.G_OPR_UPDATE
5212: BOM_GLOBALS.G_OPR_CREATE AND
5213: p_rev_component_rec.acd_type = 2
5214: ) OR
5215: p_rev_component_rec.Transaction_Type =
5216: BOM_GLOBALS.G_OPR_UPDATE
5217: ) AND
5218: NVL(p_old_rev_component_rec.check_atp, 0) <>
5219: p_rev_component_rec.check_atp
5220: AND p_rev_component_rec.check_atp = 1 -- Added by MK on 11/13/00
5247: l_return_status := FND_API.G_RET_STS_ERROR;
5248: END IF ;
5249: END IF;
5250:
5251: IF Bom_Globals.Get_Debug = 'Y' THEN
5252: Error_Handler.Write_Debug('After verification of Check ATP . . . ' || l_return_status);
5253: END IF;
5254: -- dbms_output.put_line('After verification of Check ATP, Req for Rev' );
5255: ********************************************************************/
5260: -- Component is an Option Class and BOM is installed.
5261: --
5262: *********************************************************************/
5263:
5264: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5265: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5266: )
5267: AND
5268: NVL(p_rev_component_rec.mutually_exclusive, 2) = 1
5261: --
5262: *********************************************************************/
5263:
5264: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5265: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5266: )
5267: AND
5268: NVL(p_rev_component_rec.mutually_exclusive, 2) = 1
5269: THEN
5306: p_control_rec.validation_controller = 'SUPPLY_TYPE')
5307: OR
5308: p_control_rec.caller_type <> 'FORM')
5309: AND
5310: ((( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5311: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5312: p_rev_component_rec.wip_supply_type IS NOT NULL
5313: ) OR
5314: ((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5310: ((( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5311: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5312: p_rev_component_rec.wip_supply_type IS NOT NULL
5313: ) OR
5314: ((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5315: p_rev_component_rec.acd_type = 2
5316: ) OR
5317: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5318: ))
5313: ) OR
5314: ((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5315: p_rev_component_rec.acd_type = 2
5316: ) OR
5317: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5318: ))
5319: AND
5320: NVL(p_Old_rev_component_rec.wip_supply_type, 0) <>
5321: p_rev_component_rec.wip_supply_type
5337: OR
5338: p_control_rec.caller_type <> 'FORM'
5339: THEN
5340: -- Check Minimum Quantity which must be <= Component Quantity
5341: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5342: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5343: ) AND
5344: p_rev_component_rec.minimum_allowed_quantity is not null
5345: AND
5338: p_control_rec.caller_type <> 'FORM'
5339: THEN
5340: -- Check Minimum Quantity which must be <= Component Quantity
5341: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5342: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5343: ) AND
5344: p_rev_component_rec.minimum_allowed_quantity is not null
5345: AND
5346: NOT Check_Min_Quantity THEN
5357: END IF;
5358:
5359: -- Check Maximun Quantity which must be >= Component Quantity or
5360: -- should be NULL if the minimum quantity is NULL.
5361: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5362: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5363: ) AND
5364: p_rev_component_rec.maximum_allowed_quantity IS NOT NULL
5365: AND
5358:
5359: -- Check Maximun Quantity which must be >= Component Quantity or
5360: -- should be NULL if the minimum quantity is NULL.
5361: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5362: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5363: ) AND
5364: p_rev_component_rec.maximum_allowed_quantity IS NOT NULL
5365: AND
5366: NOT Check_Max_Quantity THEN
5402: Is_Item_ATO := Is_Item_ATO_PTO.replenish_to_order_flag;
5403: Is_Item_PTO := Is_Item_ATO_PTO.pick_components_flag;
5404: END LOOP;
5405:
5406: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5407: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5408: ) AND
5409: (Is_OE_Installed = 'I'
5410: AND ( ( Is_Item_PTO = 'Y'
5403: Is_Item_PTO := Is_Item_ATO_PTO.pick_components_flag;
5404: END LOOP;
5405:
5406: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE OR
5407: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5408: ) AND
5409: (Is_OE_Installed = 'I'
5410: AND ( ( Is_Item_PTO = 'Y'
5411: ) AND
5472: END IF;
5473: l_return_status := FND_API.G_RET_STS_ERROR;
5474: END IF;
5475:
5476: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking Supply Subinventory . . . ' || p_rev_component_rec.Supply_SubInventory); END IF;
5477:
5478: /*******************************************************************
5479: --
5480: -- Check Supply Subinventory
5483:
5484: IF -- p_control_rec.caller_type = 'FORM' -- Comment out by MK on 11/13/00
5485: -- AND
5486: p_rev_component_rec.Supply_SubInventory <> FND_API.G_MISS_CHAR AND
5487: (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5488: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5489: p_rev_component_rec.Supply_SubInventory IS NOT NULL
5490: ) OR
5491: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5487: (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5488: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5489: p_rev_component_rec.Supply_SubInventory IS NOT NULL
5490: ) OR
5491: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5492: p_rev_component_rec.acd_type = 2
5493: ) OR
5494: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5495: )
5490: ) OR
5491: (((p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5492: p_rev_component_rec.acd_type = 2
5493: ) OR
5494: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5495: )
5496: AND
5497: NVL(p_Old_rev_component_rec.supply_subinventory, 'NONE') <>
5498: NVL(p_rev_component_rec.supply_subinventory, 'NONE')
5510: );
5511: END IF;
5512: l_return_status := FND_API.G_RET_STS_ERROR;
5513: END IF;
5514: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After checking Subinventory . . . ' || l_return_status); END IF;
5515:
5516: -- dbms_output.put_line('Checking Locators . . . .');
5517: /********************************************************************
5518: --
5519: -- Check Locators
5520: --
5521: ********************************************************************/
5522: IF p_control_rec.caller_type <> 'FORM'
5523: AND (Bom_globals.Get_Caller_Type <> BOM_GLOBALS.G_MASS_CHANGE) -- Bug2739314
5524: AND
5525: (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5526: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5527: p_rev_component_rec.Supply_SubInventory IS NOT NULL AND
5521: ********************************************************************/
5522: IF p_control_rec.caller_type <> 'FORM'
5523: AND (Bom_globals.Get_Caller_Type <> BOM_GLOBALS.G_MASS_CHANGE) -- Bug2739314
5524: AND
5525: (( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5526: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5527: p_rev_component_rec.Supply_SubInventory IS NOT NULL AND
5528: p_rev_component_rec.Supply_SubInventory <> FND_API.G_MISS_CHAR
5529: ) OR
5526: NVL(p_rev_component_rec.acd_type, 1) = 1 AND
5527: p_rev_component_rec.Supply_SubInventory IS NOT NULL AND
5528: p_rev_component_rec.Supply_SubInventory <> FND_API.G_MISS_CHAR
5529: ) OR
5530: ((( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5531: p_rev_component_rec.acd_type = 2
5532: ) OR
5533: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5534: )
5529: ) OR
5530: ((( p_rev_component_rec.Transaction_Type=BOM_GLOBALS.G_OPR_CREATE AND
5531: p_rev_component_rec.acd_type = 2
5532: ) OR
5533: p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
5534: )
5535: AND
5536: NVL(p_Old_rev_comp_unexp_rec.supply_locator_id, 0) <>
5537: NVL(p_rev_comp_unexp_rec.supply_locator_id, 0)
5706: END IF; -- Operation in UPDATE or CREATE
5707:
5708:
5709: -- Added by MK on 06/04/2001
5710: IF BOM_Globals.Get_Bo_Identifier = BOM_Globals.G_BOM_BO AND
5711: p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_DELETE
5712: THEN
5713: IF p_rev_comp_unexp_rec.Delete_Group_Name IS NULL OR
5714: p_rev_comp_unexp_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
5707:
5708:
5709: -- Added by MK on 06/04/2001
5710: IF BOM_Globals.Get_Bo_Identifier = BOM_Globals.G_BOM_BO AND
5711: p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_DELETE
5712: THEN
5713: IF p_rev_comp_unexp_rec.Delete_Group_Name IS NULL OR
5714: p_rev_comp_unexp_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
5715: THEN
5723: l_return_status := FND_API.G_RET_STS_ERROR;
5724:
5725: END IF;
5726:
5727: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
5728: ('Check if Delete Group is missing . . . ' || l_return_status) ;
5729: END IF ;
5730:
5731:
5778: -- Component Type Rule Validations.
5779: -- Bug No: 4397973. Check Component types only when the current retrun status is success.
5780: IF (l_return_status = FND_API.G_RET_STS_SUCCESS)
5781: THEN
5782: IF ( p_rev_component_rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE )
5783: THEN
5784: Bom_Validate_Bom_Component.Check_Component_Type_Rule
5785: ( x_return_status => l_return_status
5786: , x_error_message => l_debug_error_mesg
5800: END IF;
5801: END IF;
5802: END IF;
5803:
5804: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
5805: ('Check Component Type Rule . . . ' || l_return_status) ;
5806: END IF ;
5807:
5808: x_return_status := l_return_status;
5807:
5808: x_return_status := l_return_status;
5809: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5810:
5811: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Validation done . . . Return Status is ' || l_return_status); END IF;
5812:
5813: EXCEPTION
5814:
5815: WHEN FND_API.G_EXC_ERROR THEN
5813: EXCEPTION
5814:
5815: WHEN FND_API.G_EXC_ERROR THEN
5816:
5817: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Rev. Comp. Entity Validation . . .'); END IF;
5818:
5819: x_return_status := FND_API.G_RET_STS_ERROR;
5820: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5821:
5820: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5821:
5822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5823:
5824: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Rev. Comp. Entity Validation . . .'); END IF;
5825:
5826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5827: IF FND_MSG_PUB.Check_Msg_Level
5828: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5838: END IF;
5839: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5840:
5841: WHEN OTHERS THEN
5842: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(SQLERRM || ' ' || TO_CHAR(SQLCODE)); END IF;
5843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5844: IF FND_MSG_PUB.Check_Msg_Level
5845: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5846: THEN
5900: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
5901: g_Token_Tbl(1).Token_Value :=
5902: p_rev_component_rec.component_item_name;
5903:
5904: l_assembly_item_id := Bom_Globals.Get_Assembly_item_Id;
5905: l_org_id := Bom_Globals.Get_Org_Id;
5906:
5907: --
5908: -- Check if the user is trying to create/update a record with
5901: g_Token_Tbl(1).Token_Value :=
5902: p_rev_component_rec.component_item_name;
5903:
5904: l_assembly_item_id := Bom_Globals.Get_Assembly_item_Id;
5905: l_org_id := Bom_Globals.Get_Org_Id;
5906:
5907: --
5908: -- Check if the user is trying to create/update a record with
5909: -- missing value when the column value is required.
5989:
5990:
5991: IF p_rev_component_rec.acd_type IS NOT NULL AND
5992: p_rev_component_rec.acd_type NOT IN (1, 2, 3) AND
5993: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
5994: THEN
5995: g_token_tbl(2).token_name := 'ACD_TYPE';
5996: g_token_tbl(2).token_value := p_rev_component_rec.acd_type;
5997:
6009: -- The following validation should not be done for serial effective items
6010:
6011: -- Validate from_end_item_unit_number 5482117
6012:
6013: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE
6014: AND (p_rev_component_rec.from_end_item_unit_number IS NOT NULL AND p_rev_component_rec.from_end_item_unit_number <> FND_API.G_MISS_CHAR)
6015: AND BOM_EAMUTIL.Asset_group_Item(item_id => l_assembly_item_id, org_id => l_org_Id) = 'N'
6016: THEN
6017: IF NOT Bom_Validate.End_Item_Unit_Number
6036: END IF;
6037: END IF;
6038:
6039: IF p_rev_component_rec.transaction_type =
6040: BOM_GLOBALS.G_OPR_CREATE AND
6041: (p_rev_component_rec.to_end_item_unit_number IS NOT NULL
6042: AND
6043: p_rev_component_rec.to_end_item_unit_number <>
6044: FND_API.G_MISS_CHAR) AND
6098:
6099: /* Comment Out by MK on 11/20/00
6100: -- This validation is not required
6101: -- Modified condition by MK on 11/08/00
6102: IF p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE AND
6103: ( p_rev_component_rec.from_end_item_unit_number <> FND_API.G_MISS_CHAR OR
6104: p_rev_component_rec.from_end_item_unit_number IS NOT NULL ) AND
6105: ( p_rev_component_rec.to_end_item_unit_number = FND_API.G_MISS_CHAR OR
6106: p_rev_component_rec.to_end_item_unit_number IS NULL )
6505: OR 1=1
6506: THEN
6507: IF p_rev_component_rec.new_effectivity_date IS NOT NULL AND
6508: p_rev_component_rec.new_effectivity_date <> FND_API.G_MISS_DATE AND
6509: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
6510: THEN
6511: /* Check revision exists for revised item */
6512: IF NOT Item_Revision_Exists(p_rev_comp_unexp_rec.revised_item_id,
6513: p_rev_comp_unexp_rec.organization_id,
6561: /* commented for bug 3281414
6562: IF p_rev_component_rec.new_effectivity_date IS NOT NULL AND
6563: p_rev_component_rec.new_effectivity_date <> FND_API.G_MISS_DATE AND
6564: p_rev_component_rec.new_effectivity_date < SYSDATE AND
6565: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
6566: THEN
6567: g_token_tbl(1).token_name := 'COMPONENT_ITEM_NAME';
6568: g_token_tbl(1).token_value := p_rev_component_rec.component_item_name;
6569: g_token_tbl(2).token_name := 'EFFECTIVITY_DATE';
6584: END IF;
6585:
6586: /* added a condition to make sure this validation happens during create for any BOM, no matter whether the BOM is fluid or not */
6587: IF (p_rev_comp_unexp_rec.bom_implementation_date IS NULL )
6588: /* OR (p_rev_component_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE)*/
6589: --Commented for bug 5702625.
6590: THEN
6591: IF p_rev_component_rec.start_effective_date IS NOT NULL AND
6592: p_rev_component_rec.start_effective_date <> FND_API.G_MISS_DATE AND
6589: --Commented for bug 5702625.
6590: THEN
6591: IF p_rev_component_rec.start_effective_date IS NOT NULL AND
6592: p_rev_component_rec.start_effective_date <> FND_API.G_MISS_DATE AND
6593: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
6594: THEN
6595: /* Check revision exists for revised item */
6596: Error_handler.write_debug ('Checking for item revision start date');
6597: IF NOT Item_Revision_Exists(p_rev_comp_unexp_rec.revised_item_id,
6647: /*
6648: IF p_rev_component_rec.start_effective_date IS NOT NULL AND
6649: p_rev_component_rec.start_effective_date <> FND_API.G_MISS_DATE AND
6650: trunc(p_rev_component_rec.start_effective_date) < trunc(SYSDATE) AND
6651: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
6652: THEN
6653: g_token_tbl(1).token_name := 'COMPONENT_ITEM_NAME';
6654: g_token_tbl(1).token_value := p_rev_component_rec.component_item_name;
6655: g_token_tbl(2).token_name := 'EFFECTIVITY_DATE';
6695:
6696: END IF;
6697:
6698: --Validation to ensure that a pending structure header cannot be modified without an ECO
6699: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking if the BOM header is implemented . . .'); END IF;
6700:
6701: IF BOM_GLOBALS.Get_Bill_Header_ECN(p_rev_comp_unexp_rec.bill_Sequence_id) IS NOT NULL
6702: AND (p_rev_component_rec.eco_name IS NULL OR p_rev_component_rec.eco_name = FND_API.G_MISS_CHAR)
6703: THEN
6697:
6698: --Validation to ensure that a pending structure header cannot be modified without an ECO
6699: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking if the BOM header is implemented . . .'); END IF;
6700:
6701: IF BOM_GLOBALS.Get_Bill_Header_ECN(p_rev_comp_unexp_rec.bill_Sequence_id) IS NOT NULL
6702: AND (p_rev_component_rec.eco_name IS NULL OR p_rev_component_rec.eco_name = FND_API.G_MISS_CHAR)
6703: THEN
6704: g_token_tbl(1).token_name := 'ALTERNATE';
6705: g_token_tbl(1).token_value := nvl(p_rev_component_rec.Alternate_BOM_Code, bom_globals.retrieve_message('BOM', 'BOM_PRIMARY'));
6701: IF BOM_GLOBALS.Get_Bill_Header_ECN(p_rev_comp_unexp_rec.bill_Sequence_id) IS NOT NULL
6702: AND (p_rev_component_rec.eco_name IS NULL OR p_rev_component_rec.eco_name = FND_API.G_MISS_CHAR)
6703: THEN
6704: g_token_tbl(1).token_name := 'ALTERNATE';
6705: g_token_tbl(1).token_value := nvl(p_rev_component_rec.Alternate_BOM_Code, bom_globals.retrieve_message('BOM', 'BOM_PRIMARY'));
6706: g_token_tbl(2).token_name := 'ASSY_ITEM';
6707: g_token_tbl(2).token_value := p_rev_component_rec.Revised_Item_Name;
6708: g_token_tbl(3).token_name := 'CHANGE_NOTICE';
6709: g_token_tbl(3).token_value := BOM_GLOBALS.Get_Bill_Header_ECN(p_rev_comp_unexp_rec.bill_Sequence_id);
6705: g_token_tbl(1).token_value := nvl(p_rev_component_rec.Alternate_BOM_Code, bom_globals.retrieve_message('BOM', 'BOM_PRIMARY'));
6706: g_token_tbl(2).token_name := 'ASSY_ITEM';
6707: g_token_tbl(2).token_value := p_rev_component_rec.Revised_Item_Name;
6708: g_token_tbl(3).token_name := 'CHANGE_NOTICE';
6709: g_token_tbl(3).token_value := BOM_GLOBALS.Get_Bill_Header_ECN(p_rev_comp_unexp_rec.bill_Sequence_id);
6710:
6711: Error_Handler.Add_Error_Token
6712: ( p_Message_Name => 'BOM_HEADER_UNIMPLEMENTED'
6713: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6725:
6726: EXCEPTION
6727:
6728: WHEN OTHERS THEN
6729: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Some unknown error in Attribute Validation . . .' || SQLERRM ); END IF;
6730:
6731: Error_Handler.Add_Error_Token
6732: ( p_Message_Name => NULL
6733: , p_Message_Text =>
6770: --
6771: -- Verify that the component is not already cancelled.
6772: --
6773: IF p_rev_component_rec.Transaction_Type =
6774: BOM_GLOBALS.G_OPR_DELETE
6775: THEN
6776: BEGIN
6777: SELECT 'Component cancelled'
6778: INTO l_dummy
6879: , x_mesg_Token_tbl => l_mesg_token_tbl
6880: , x_Return_Status => l_return_status
6881: );
6882:
6883: IF l_return_status = BOM_Globals.G_RECORD_FOUND AND
6884: p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_CREATE
6885: THEN
6886: Error_Handler.Add_Error_Token
6887: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6880: , x_Return_Status => l_return_status
6881: );
6882:
6883: IF l_return_status = BOM_Globals.G_RECORD_FOUND AND
6884: p_rev_component_rec.transaction_type = BOM_Globals.G_OPR_CREATE
6885: THEN
6886: Error_Handler.Add_Error_Token
6887: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6888: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6889: , p_message_name => 'BOM_REV_COMP_ALREADY_EXISTS'
6890: , p_token_tbl => l_token_tbl
6891: );
6892: l_return_status := FND_API.G_RET_STS_ERROR;
6893: ELSIF l_return_status = BOM_Globals.G_RECORD_NOT_FOUND AND
6894: p_rev_component_rec.transaction_type IN
6895: (BOM_Globals.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE)
6896: THEN
6897: Error_Handler.Add_Error_Token
6891: );
6892: l_return_status := FND_API.G_RET_STS_ERROR;
6893: ELSIF l_return_status = BOM_Globals.G_RECORD_NOT_FOUND AND
6894: p_rev_component_rec.transaction_type IN
6895: (BOM_Globals.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE)
6896: THEN
6897: Error_Handler.Add_Error_Token
6898: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6899: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6918:
6919: /* Assign the relevant transaction type for SYNC operations */
6920:
6921: IF p_rev_component_rec.transaction_type = 'SYNC' THEN
6922: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN
6923: x_old_rev_component_rec.transaction_type :=
6924: Bom_Globals.G_OPR_UPDATE;
6925: ELSE
6926: x_old_rev_component_rec.transaction_type :=
6920:
6921: IF p_rev_component_rec.transaction_type = 'SYNC' THEN
6922: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN
6923: x_old_rev_component_rec.transaction_type :=
6924: Bom_Globals.G_OPR_UPDATE;
6925: ELSE
6926: x_old_rev_component_rec.transaction_type :=
6927: Bom_Globals.G_OPR_CREATE;
6928: END IF;
6923: x_old_rev_component_rec.transaction_type :=
6924: Bom_Globals.G_OPR_UPDATE;
6925: ELSE
6926: x_old_rev_component_rec.transaction_type :=
6927: Bom_Globals.G_OPR_CREATE;
6928: END IF;
6929: END IF;
6930: l_return_status := FND_API.G_RET_STS_SUCCESS;
6931:
6978: -- and given an error.
6979: *************************************************************/
6980:
6981: IF p_rev_component_rec.transaction_type IN
6982: (BOM_Globals.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE,
6983: BOM_Globals.G_OPR_CANCEL)
6984: THEN
6985: FOR Component IN c_GetComponent LOOP
6986: IF NVL(Component.revised_item_sequence_id, 0) <>
6979: *************************************************************/
6980:
6981: IF p_rev_component_rec.transaction_type IN
6982: (BOM_Globals.G_OPR_UPDATE, BOM_Globals.G_OPR_DELETE,
6983: BOM_Globals.G_OPR_CANCEL)
6984: THEN
6985: FOR Component IN c_GetComponent LOOP
6986: IF NVL(Component.revised_item_sequence_id, 0) <>
6987: NVL(p_rev_comp_unexp_rec.revised_item_sequence_id,0)
7106: WHERE inventory_item_id = p_component_item_id
7107: AND organization_id = p_organization_id;
7108:
7109: IF l_rev_comp_item_type NOT IN
7110: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
7111: NVL(BOM_Globals.Get_OC_Item_Access,0),
7112: NVL(BOM_Globals.Get_PLN_Item_Access,0),
7113: NVL(BOM_Globals.Get_STD_Item_Access,0)
7114: )
7107: AND organization_id = p_organization_id;
7108:
7109: IF l_rev_comp_item_type NOT IN
7110: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
7111: NVL(BOM_Globals.Get_OC_Item_Access,0),
7112: NVL(BOM_Globals.Get_PLN_Item_Access,0),
7113: NVL(BOM_Globals.Get_STD_Item_Access,0)
7114: )
7115: THEN
7108:
7109: IF l_rev_comp_item_type NOT IN
7110: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
7111: NVL(BOM_Globals.Get_OC_Item_Access,0),
7112: NVL(BOM_Globals.Get_PLN_Item_Access,0),
7113: NVL(BOM_Globals.Get_STD_Item_Access,0)
7114: )
7115: THEN
7116: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7109: IF l_rev_comp_item_type NOT IN
7110: (NVL(BOM_Globals.Get_MDL_Item_Access,0),
7111: NVL(BOM_Globals.Get_OC_Item_Access,0),
7112: NVL(BOM_Globals.Get_PLN_Item_Access,0),
7113: NVL(BOM_Globals.Get_STD_Item_Access,0)
7114: )
7115: THEN
7116: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7117: l_token_tbl(1).token_value := p_component_name;
7163: -- parent record is not cancelled.
7164: --
7165: ********************************************************************/
7166:
7167: IF BOM_Globals.Is_RComp_Cancl IS NULL THEN
7168: FOR RevComp IN c_CheckCancelled
7169: LOOP
7170: l_token_tbl.DELETE;
7171: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
7185: -- Checks that unit effective items are allowed only if the profile
7186: -- value allows them (profile value stored in system_information)
7187: *********************************************************************/
7188:
7189: IF NOT BOM_Globals.Get_Unit_Effectivity
7190: THEN
7191: IF BOM_Globals.Get_Unit_Controlled_Component
7192: THEN
7193: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7187: *********************************************************************/
7188:
7189: IF NOT BOM_Globals.Get_Unit_Effectivity
7190: THEN
7191: IF BOM_Globals.Get_Unit_Controlled_Component
7192: THEN
7193: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7194: l_token_tbl(1).token_value :=
7195: p_component_name;
7204: );
7205: l_return_status := FND_API.G_RET_STS_ERROR;
7206: END IF;
7207: ELSE
7208: IF NOT BOM_Globals.Get_Unit_Controlled_Item AND
7209: BOM_Globals.Get_Unit_Controlled_Component
7210: THEN
7211: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7212: l_token_tbl(1).token_value :=
7205: l_return_status := FND_API.G_RET_STS_ERROR;
7206: END IF;
7207: ELSE
7208: IF NOT BOM_Globals.Get_Unit_Controlled_Item AND
7209: BOM_Globals.Get_Unit_Controlled_Component
7210: THEN
7211: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7212: l_token_tbl(1).token_value :=
7213: p_component_name;
7465: component and call check_attributes. check_entity */
7466:
7467: Error_Handler.Initialize;
7468: Error_Handler.Set_Debug ('Y');
7469: Bom_Globals.Set_Debug ('Y');
7470:
7471:
7472: Error_Handler.Open_Debug_Session
7473: ( p_debug_filename => l_debug_filename
7485:
7486: --Load environment information into the SYSTEM_INFORMATION record
7487: -- (USER_ID, LOGIN_ID, PROG_APPID, PROG_ID)
7488:
7489: Bom_Globals.Init_System_Info_Rec
7490: ( x_mesg_token_tbl => l_mesg_token_tbl
7491: , x_return_status => l_return_status
7492: );
7493:
7496: IF (FND_PROFILE.DEFINED('PJM:PJM_UNITEFF_NO_EFFECT') AND
7497: FND_PROFILE.VALUE('PJM:PJM_UNITEFF_NO_EFFECT') = 'Y')
7498: OR (BOM_EAMUTIL.Enabled = 'Y')
7499: THEN
7500: Bom_Globals.Set_Unit_Effectivity (TRUE);
7501: ELSE
7502: Bom_Globals.Set_Unit_Effectivity (FALSE);
7503: END IF;
7504:
7498: OR (BOM_EAMUTIL.Enabled = 'Y')
7499: THEN
7500: Bom_Globals.Set_Unit_Effectivity (TRUE);
7501: ELSE
7502: Bom_Globals.Set_Unit_Effectivity (FALSE);
7503: END IF;
7504:
7505: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
7506: THEN
7509:
7510: Error_Handler.Write_Debug('After open debug ');
7511:
7512: Error_Handler.Set_BO_Identifier(p_bo_identifier);
7513: Bom_Globals.Set_BO_Identifier(p_bo_identifier);
7514:
7515: /* Set the system information record values for assembly_item_id
7516: and org_id. These values will be used for validating serial effective
7517: assemblies */
7515: /* Set the system information record values for assembly_item_id
7516: and org_id. These values will be used for validating serial effective
7517: assemblies */
7518:
7519: Bom_Globals.Set_Org_Id (p_organization_id);
7520: Bom_Globals.Set_Assembly_Item_Id (p_revised_item_id);
7521:
7522: Error_Handler.Write_Debug('after set org ');
7523:
7516: and org_id. These values will be used for validating serial effective
7517: assemblies */
7518:
7519: Bom_Globals.Set_Org_Id (p_organization_id);
7520: Bom_Globals.Set_Assembly_Item_Id (p_revised_item_id);
7521:
7522: Error_Handler.Write_Debug('after set org ');
7523:
7524: x_return_status := 'S';
7528: BOM_VALIDATE_BOM_COMPONENT.Validate_All_Attributes from
7529: java call.*/
7530: IF (p_revised_item_name IS NULL)
7531: THEN
7532: l_Assembly_Item_Name := Bom_Globals.Get_Item_Name(p_revised_item_id,
7533: p_organization_id);
7534: ELSE
7535: l_Assembly_Item_Name := p_revised_item_name;
7536: END IF;
7536: END IF;
7537:
7538: IF (p_component_item_name IS NULL)
7539: THEN
7540: l_Component_Item_Name := Bom_Globals.Get_Item_Name(p_component_item_id,
7541: p_organization_id);
7542: ELSE
7543: l_Component_Item_Name := p_component_item_name;
7544: END IF;
7791: END IF;
7792:
7793: /* Set the value for unit controlled item in system information record*/
7794:
7795: Bom_Globals.Set_Unit_Controlled_Item (
7796: p_inventory_item_id => p_revised_item_id,
7797: p_organization_id => p_organization_id);
7798:
7799: /* Perform the attribute validation */
7819:
7820: Return;
7821: END IF;
7822:
7823: /* Mark the Validate plm flag in BOM Globals to 'Y' to avoid the
7824: following validations
7825: 1. Overlap
7826: 2. Check Operation sequence number uniqueness
7827: 3. Checking ACD TYPE when there is no primary bill
7825: 1. Overlap
7826: 2. Check Operation sequence number uniqueness
7827: 3. Checking ACD TYPE when there is no primary bill
7828: */
7829: Bom_Globals.Set_Validate_For_Plm('Y');
7830:
7831: /* Perform the entity validation */
7832:
7833: Bom_Validate_Bom_Component.Check_Entity
7906: AND comp.organization_id = p_comp_org_id
7907: AND comp.inventory_item_id = p_comp_item_id;
7908:
7909: IF ( l_Assy_PTO_flag = 'Y'
7910: AND l_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
7911: AND l_Comp_ATO_flag = 'Y'
7912: AND l_Comp_Item_Type = Bom_Globals.G_STANDARD
7913: AND l_Comp_Config = 'N'
7914: )
7908:
7909: IF ( l_Assy_PTO_flag = 'Y'
7910: AND l_Assy_Item_Type IN ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS)
7911: AND l_Comp_ATO_flag = 'Y'
7912: AND l_Comp_Item_Type = Bom_Globals.G_STANDARD
7913: AND l_Comp_Config = 'N'
7914: )
7915: THEN
7916: RETURN 1;
7913: AND l_Comp_Config = 'N'
7914: )
7915: THEN
7916: RETURN 1;
7917: ELSIF ( l_Assy_Item_Type IN (Bom_Globals.G_STANDARD, Bom_Globals.G_PLANNING) )
7918: THEN
7919: RETURN 2;
7920: ELSE
7921: RETURN 0;