[Home] [Help]
212:
213: BEGIN
214:
215:
216: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
217: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
218: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
219: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
220:
213: BEGIN
214:
215:
216: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
217: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
218: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
219: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
220:
221:
214:
215:
216: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
217: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
218: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
219: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
220:
221:
222: -- Check if Op Seq Num is exist in ECO by Lot
215:
216: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
217: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
218: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
219: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
220:
221:
222: -- Check if Op Seq Num is exist in ECO by Lot
223: IF l_lot_number IS NOT NULL
497: , x_mesg_token_tbl => l_mesg_token_tbl
498: , x_return_status => l_return_status
499: ) ;
500:
501: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
502: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
503: THEN
504: Error_Handler.Add_Error_Token
505: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
498: , x_return_status => l_return_status
499: ) ;
500:
501: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
502: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
503: THEN
504: Error_Handler.Add_Error_Token
505: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
506: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
508: , p_token_tbl => l_token_tbl
509: ) ;
510: l_return_status := FND_API.G_RET_STS_ERROR ;
511:
512: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
513: p_com_operation_rec.transaction_type IN
514: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE, BOM_Rtg_Globals.G_OPR_CANCEL)
515: THEN
516: Error_Handler.Add_Error_Token
510: l_return_status := FND_API.G_RET_STS_ERROR ;
511:
512: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
513: p_com_operation_rec.transaction_type IN
514: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE, BOM_Rtg_Globals.G_OPR_CANCEL)
515: THEN
516: Error_Handler.Add_Error_Token
517: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
518: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
798: -- ACD_TYPE
799: IF ( p_com_operation_rec.acd_type IS NULL OR
800: p_com_operation_rec.acd_type = FND_API.G_MISS_NUM
801: ) AND
802: BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
803: THEN
804: Error_Handler.Add_Error_Token
805: ( p_message_name => 'BOM_OP_ACD_TYPE_MISSING'
806: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
813: END IF;
814:
815: -- Standard Operation Id and Operation Type
816: IF ( p_com_operation_rec.operation_type IN (2, 3)
817: AND p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
818: AND ( p_com_operation_rec.standard_operation_code IS NULL OR
819: p_com_operation_rec.standard_operation_code = FND_API.G_MISS_CHAR )
820: )
821: THEN
833: ELSIF
834: ( p_com_operation_rec.department_code IS NULL OR
835: p_com_operation_rec.department_code = FND_API.G_MISS_CHAR
836: )
837: AND p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
838: AND NVL(p_com_operation_rec.acd_type, 1) = l_ACD_ADD
839: AND ( p_com_operation_rec.standard_operation_code IS NULL OR
840: p_com_operation_rec.standard_operation_code = FND_API.G_MISS_CHAR )
841: AND BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_Lot_Rtg
837: AND p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
838: AND NVL(p_com_operation_rec.acd_type, 1) = l_ACD_ADD
839: AND ( p_com_operation_rec.standard_operation_code IS NULL OR
840: p_com_operation_rec.standard_operation_code = FND_API.G_MISS_CHAR )
841: AND BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_Lot_Rtg
842: THEN
843: Error_Handler.Add_Error_Token
844: ( p_message_name => 'BOM_OP_DEPT_REQUIRED'
845: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1004: -- Check if the user is trying to update a record with
1005: -- missing value when the column value is required.
1006: --
1007:
1008: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1009: THEN
1010:
1011:
1012: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1008: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1009: THEN
1010:
1011:
1012: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1013: ('Operation Attr Validation: Missing Value. . . ' || l_return_status) ;
1014: END IF;
1015:
1016: -- Operation Type
1143: END IF ;
1144:
1145: -- New Start Effective Date for RTG_Bo Only
1146: IF p_com_operation_rec.new_start_effective_date = FND_API.G_MISS_DATE
1147: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_Rtg_BO
1148: THEN
1149: Error_Handler.Add_Error_Token
1150: ( p_Message_Name => 'BOM_OP_EFFECTDATE_MISSING'
1151: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1160: --
1161: -- Check if the user is trying to create/update a record with
1162: -- invalid value.
1163: --
1164: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1165: ('Operation Attr Validation: Invalid Value. . . ' || l_return_status) ;
1166: END IF;
1167:
1168: -- Start Effective Date
1167:
1168: -- Start Effective Date
1169: /* Commented entire code for BUG 5282656, as this check is no longer reqd after we started
1170: allowing past effective operations through BUG 4666512.
1171: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1172: AND p_com_operation_rec.start_effective_date < SYSDATE -- Changed for bug 2647027
1173: -- AND TRUNC(p_com_operation_rec.start_effective_date) < TRUNC(SYSDATE)
1174: AND nvl(Bom_Globals.get_caller_type(),'') <> 'MIGRATION' -- Bug 2871039
1175: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_Rtg_BO
1171: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1172: AND p_com_operation_rec.start_effective_date < SYSDATE -- Changed for bug 2647027
1173: -- AND TRUNC(p_com_operation_rec.start_effective_date) < TRUNC(SYSDATE)
1174: AND nvl(Bom_Globals.get_caller_type(),'') <> 'MIGRATION' -- Bug 2871039
1175: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_Rtg_BO
1176: THEN
1177: IF TRUNC(p_com_operation_rec.start_effective_date) >= TRUNC(SYSDATE) THEN
1178: /*Error_Handler.Add_Error_Token
1179: ( p_Message_Name => 'BOM_OP_EFFECTIVE_DATE_PAST'
1183: );
1184:
1185: l_return_status := FND_API.G_RET_STS_ERROR;
1186: ELSE Commented for bug 4666512 Also changed the condition to >= instead of <
1187: BOM_RTG_Globals.G_Init_Eff_Date_Op_Num_Flag := TRUE; -- Added for bug 2767019
1188: END IF;
1189: END IF ;
1190: */
1191:
1193: -- ACD Type
1194: IF p_com_operation_rec.acd_type IS NOT NULL
1195: AND p_com_operation_rec.acd_type NOT IN
1196: (l_ACD_ADD, l_ACD_CHANGE, l_ACD_DISABLE)
1197: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1198: THEN
1199:
1200: l_token_tbl(2).token_name := 'ACD_TYPE';
1201: l_token_tbl(2).token_value := p_com_operation_rec.acd_type;
1212: END IF ;
1213:
1214:
1215: -- Operation Type
1216: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1217: THEN
1218: IF (p_com_operation_rec.operation_type IS NULL
1219: OR p_com_operation_rec.operation_type = FND_API.G_MISS_NUM )
1220: OR p_com_operation_rec.operation_type NOT IN (1, 2, 3)
1529: -- For eAM enhancement
1530: -- Shutdown Type
1531: IF p_com_operation_rec.shutdown_type IS NOT NULL
1532: AND p_com_operation_rec.shutdown_type <> FND_API.G_MISS_CHAR
1533: AND BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
1534: AND NOT Bom_Rtg_Eam_Util.CheckShutdownType
1535: (p_shutdown_type => p_com_operation_rec.shutdown_type )
1536: THEN
1537: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1547: END IF ;
1548:
1549: -- BUG 5330942
1550: -- Validation to ensure that a pending routing header cannot be modified without an ECO
1551: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1552: Error_Handler.Write_Debug ('Checking if the Routing header is implemented . . .') ;
1553: END IF;
1554:
1555: IF BOM_RTG_GLOBALS.Get_Routing_Header_ECN(p_com_op_unexp_rec.Routing_Sequence_Id) IS NOT NULL
1551: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1552: Error_Handler.Write_Debug ('Checking if the Routing header is implemented . . .') ;
1553: END IF;
1554:
1555: IF BOM_RTG_GLOBALS.Get_Routing_Header_ECN(p_com_op_unexp_rec.Routing_Sequence_Id) IS NOT NULL
1556: AND (p_com_operation_rec.eco_name IS NULL OR p_com_operation_rec.eco_name = FND_API.G_MISS_CHAR)
1557: THEN
1558: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1559: THEN
1561: l_Token_Tbl(1).token_value := nvl(p_com_operation_rec.Alternate_Routing_Code, bom_globals.retrieve_message('BOM', 'BOM_PRIMARY'));
1562: l_Token_Tbl(2).token_name := 'ASSY_ITEM';
1563: l_Token_Tbl(2).token_value := p_com_operation_rec.Revised_Item_Name;
1564: l_Token_Tbl(3).token_name := 'CHANGE_NOTICE';
1565: l_Token_Tbl(3).token_value := BOM_RTG_GLOBALS.Get_Routing_Header_ECN(p_com_op_unexp_rec.Routing_Sequence_Id);
1566:
1567: Error_Handler.Add_Error_Token
1568: ( p_Message_Name => 'BOM_RTG_HEADER_UNIMPLEMENTED'
1569: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1574: END IF ;
1575: END IF;
1576:
1577: -- Done validating attributes
1578: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1579: ('Operation Attr Validation completed with return_status: ' || l_return_status) ;
1580: END IF;
1581:
1582: x_return_status := l_return_status;
1583: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1584:
1585: EXCEPTION
1586: WHEN OTHERS THEN
1587: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1588: ('Some unknown error in Attribute Validation . . .' || SQLERRM );
1589: END IF ;
1590:
1591:
1891:
1892: l_return_status := FND_API.G_RET_STS_SUCCESS;
1893: x_return_status := FND_API.G_RET_STS_SUCCESS;
1894:
1895: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1896: ('Peforming the Operation Check NonOperated Attr . . .') ;
1897: END IF ;
1898:
1899: -- Initialize operation exp and unexp record
1907: --
1908: -- Following Fields are available in only Flow Routing.
1909: --
1910: -- Start Effective Date and Disable Date
1911: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1912: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1913: AND((l_com_operation_rec.start_effective_date IS NOT NULL OR
1914: l_com_operation_rec.start_effective_date <> FND_API.G_MISS_DATE)
1915: OR
1935: END IF ;
1936:
1937:
1938: -- Process Seq Num and Code
1939: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
1940: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1941: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1942: )
1943: AND
1936:
1937:
1938: -- Process Seq Num and Code
1939: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
1940: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1941: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1942: )
1943: AND
1944: (l_com_operation_rec.process_seq_number IS NOT NULL OR
1956: , p_message_type => 'W'
1957: ) ;
1958: END IF ;
1959:
1960: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
1961: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1962: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1963: )
1964: AND
1957: ) ;
1958: END IF ;
1959:
1960: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
1961: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1962: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1963: )
1964: AND
1965: (l_com_operation_rec.process_code IS NOT NULL OR
1978: ) ;
1979: END IF ;
1980:
1981: -- Line Op Num and Code
1982: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
1983: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1984: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1985: )
1986: AND
1979: END IF ;
1980:
1981: -- Line Op Num and Code
1982: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
1983: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1984: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1985: )
1986: AND
1987: (l_com_operation_rec.line_op_seq_number IS NOT NULL OR
1999: , p_message_type => 'W'
2000: ) ;
2001: END IF ;
2002:
2003: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
2004: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
2005: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
2006: )
2007: AND
2000: ) ;
2001: END IF ;
2002:
2003: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG
2004: OR (BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
2005: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
2006: )
2007: AND
2008: ( l_com_operation_rec.line_op_code IS NOT NULL OR
2022: END IF ;
2023:
2024:
2025: -- User_Labor_Time
2026: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG AND
2027: ( l_com_operation_rec.user_labor_time <> 0 AND
2028: (l_com_operation_rec.user_labor_time IS NOT NULL OR
2029: l_com_operation_rec.user_labor_time <> FND_API.G_MISS_NUM ))
2030: THEN
2040: ) ;
2041: END IF ;
2042:
2043: -- User_Machine_Time
2044: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG AND
2045: ( l_com_operation_rec.user_machine_time <> 0 AND
2046: (l_com_operation_rec.user_machine_time IS NOT NULL OR
2047: l_com_operation_rec.user_machine_time <> FND_API.G_MISS_NUM ))
2048: THEN
2067: */ -- End of Comment out
2068:
2069:
2070: -- Net_Planning_Percent
2071: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2072: ( l_com_operation_rec.net_planning_percent IS NOT NULL OR
2073: l_com_operation_rec.net_planning_percent <> FND_API.G_MISS_NUM )
2074: THEN
2075:
2089: -- Following Fields are available in only Lot Based Routing.
2090: --
2091:
2092: -- Include_In_Rollup
2093: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag NOT IN (BOM_Rtg_Globals.G_LOT_RTG, BOM_Rtg_Globals.G_STD_RTG) AND
2094: /*Bug 6523550 even for standard routings the value shouldnt be defaulted to 1*/
2095: ( l_com_operation_rec.include_in_rollup IS NOT NULL OR
2096: l_com_operation_rec.include_in_rollup <> FND_API.G_MISS_NUM )
2097: AND l_com_operation_rec.include_in_rollup <> 1 -- Not default. Bug1744254
2108: ) ;
2109: END IF ;
2110:
2111: -- Op_Yield_Enabled_Flag
2112: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_LOT_RTG AND
2113: ( l_com_operation_rec.op_yield_enabled_flag IS NOT NULL OR
2114: l_com_operation_rec.op_yield_enabled_flag <> FND_API.G_MISS_NUM )
2115: AND l_com_operation_rec.op_yield_enabled_flag <> 1 -- Not default. Bug1744254
2116: THEN
2140: -- Reverse_CUM_Yield
2141: -- End of Comment Out */
2142:
2143: -- Yield
2144: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2145: ( l_com_operation_rec.yield IS NOT NULL OR
2146: l_com_operation_rec.yield <> FND_API.G_MISS_NUM )
2147: THEN
2148: /*IF NVL(FND_PROFILE.VALUE('MRP_I2_P_CHECK_FOR_FP'), 'N') <> 'Y' -- BUG 4729535
2162:
2163: END IF ;
2164:
2165: -- Cumulative_Yield
2166: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2167: ( l_com_operation_rec.cumulative_yield IS NOT NULL OR
2168: l_com_operation_rec.cumulative_yield <> FND_API.G_MISS_NUM )
2169: THEN
2170: NULL;
2182: END IF ;*/
2183: END IF ;
2184:
2185: -- Reverse_CUM_Yield
2186: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2187: ( l_com_operation_rec.reverse_cum_yield IS NOT NULL OR
2188: l_com_operation_rec.reverse_cum_yield <> FND_API.G_MISS_NUM )
2189: THEN
2190:
2202:
2203: -- For eAM enhancement
2204: -- Followings are not operated in maintenance routings for eAM
2205: -- and Shutdown Type is only for maintenance routings for eAM
2206: IF BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
2207: THEN
2208: -- BACKFLUSH_FLAG and MINIMUM_TRANSFER_QUANTITY
2209: -- are not enterable in maintenance routings for eAM
2210:
2275: x_mesg_token_tbl := l_mesg_token_tbl ;
2276:
2277: EXCEPTION
2278: WHEN OTHERS THEN
2279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2280: ('Some unknown error in Check NonOperated Attr. . . .' || SQLERRM );
2281: END IF ;
2282:
2283:
2397: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2398: , NVL(p_op_type, 1 ) )
2399: -- AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2400: -- = NVL(eri.line_id, FND_API.G_MISS_NUM)
2401: -- AND BOM_Rtg_Globals.Get_Routing_Sequence_Id IS NULL
2402: AND NOT EXISTS -- Added for bug 3578057, to check if it is a new routing being created through the ECO
2403: (SELECT 1 FROM BOM_OPERATIONAL_ROUTINGS
2404: WHERE routing_sequence_id = p_rtg_seq_id)
2405: AND eri.revised_item_sequence_id = p_rit_seq_id
2421:
2422: --
2423: -- Standard Operation is not updatable
2424: --
2425: IF ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2426: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2427: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
2428: )
2429: AND ( NVL(p_old_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM ) <>
2422: --
2423: -- Standard Operation is not updatable
2424: --
2425: IF ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2426: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2427: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
2428: )
2429: AND ( NVL(p_old_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM ) <>
2430: NVL(l_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM )
2441: ) ;
2442: END IF ;
2443: l_return_status := FND_API.G_RET_STS_ERROR ;
2444:
2445: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2446: ('Std operation is not updatable. Return Status is '|| l_return_status ) ;
2447: END IF ;
2448:
2449: RAISE EXIT_CHECK_REF_STD_OP ;
2452:
2453: --
2454: -- Entities of a referenced operation is not updatable -- Added for bug 2762681
2455: --
2456: IF ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2457: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2458: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
2459: )
2460: AND ( l_com_operation_rec.reference_flag = 1
2453: --
2454: -- Entities of a referenced operation is not updatable -- Added for bug 2762681
2455: --
2456: IF ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2457: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2458: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
2459: )
2460: AND ( l_com_operation_rec.reference_flag = 1
2461: )
2646: END IF ;
2647:
2648: l_return_status := FND_API.G_RET_STS_ERROR ;
2649:
2650: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2651: ('Std operation is invalid. Return Status is '|| l_return_status ) ;
2652: END IF ;
2653:
2654:
2669: ) ;
2670: END IF ;
2671: l_com_operation_rec.reference_flag := 2;
2672:
2673: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2674: ('Std operation has alternate resources');
2675: END IF;
2676: END LOOP;
2677: END IF ;
2677: END IF ;
2678: END IF ;
2679:
2680:
2681: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2682: ('Check Reference Standard Operation was processed. . . ' || l_return_status);
2683: END IF ;
2684:
2685: --
2710: x_return_status := l_return_status;
2711: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2712:
2713: WHEN OTHERS THEN
2714: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2715: ('Some unknown error in Entity Validation(Check Ref Std Op) . . .' || SQLERRM );
2716: END IF ;
2717:
2718:
3151: l_com_operation_rec := p_com_operation_rec ;
3152: l_com_op_unexp_rec := p_com_op_unexp_rec ;
3153: l_return_status := FND_API.G_RET_STS_SUCCESS ;
3154:
3155: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3156: ('Performing Operation Check Entitity Validation . . .') ;
3157: END IF ;
3158:
3159:
3176: l_eng_item_flag := l_item_rec.eng_item_flag ;
3177: l_bom_enabled_flag := l_item_rec.bom_enabled_flag ;
3178: END LOOP ;
3179:
3180: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3181: Error_Handler.Write_Debug('Business Object is') ;
3182: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3183: END IF;
3184:
3178: END LOOP ;
3179:
3180: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3181: Error_Handler.Write_Debug('Business Object is') ;
3182: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3183: END IF;
3184:
3185:
3186: --
3185:
3186: --
3187: -- Performing Entity Validation in Revised Operatin(ECO BO)
3188: --
3189: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3190: THEN
3191: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3192: ('Performing Entitity Validation for Eco Routing :ACD Type, Old Op Seq Num, Old Effect Date etc. . .') ;
3193: END IF;
3187: -- Performing Entity Validation in Revised Operatin(ECO BO)
3188: --
3189: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3190: THEN
3191: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3192: ('Performing Entitity Validation for Eco Routing :ACD Type, Old Op Seq Num, Old Effect Date etc. . .') ;
3193: END IF;
3194:
3195: --
3195: --
3196: -- Check Revised Item Attributes for Revised Operation
3197: -- For CREATE and ACD Type : Add
3198: --
3199: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3200: AND ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD ) = l_ACD_ADD )
3201: THEN
3202:
3203: --
3279: -- If the rev operation is created with an Acd_Type of Change or Disable
3280: -- then operation pointed to by old_operation_sequence_id should
3281: -- be valid against cusror l_val_old_op_seq_csr's conditions.
3282: *********************************************************************/
3283: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE AND
3284: l_com_operation_rec.acd_type IN (2, 3)
3285: THEN
3286:
3287: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3283: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE AND
3284: l_com_operation_rec.acd_type IN (2, 3)
3285: THEN
3286:
3287: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3288: Error_Handler.Write_Debug('Checking old operation : '|| to_char(l_com_op_unexp_rec.old_operation_sequence_id));
3289: END IF;
3290:
3291: l_eco_for_production := NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) ;
3287: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3288: Error_Handler.Write_Debug('Checking old operation : '|| to_char(l_com_op_unexp_rec.old_operation_sequence_id));
3289: END IF;
3290:
3291: l_eco_for_production := NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) ;
3292:
3293: FOR old_op_seq_rec IN l_val_old_op_seq_csr
3294: ( p_rtg_seq_id => l_com_op_unexp_rec.routing_sequence_id ,
3295: p_effectivity_date => l_com_operation_rec.start_effective_date ,
3311: END IF;
3312: l_return_status := FND_API.G_RET_STS_ERROR;
3313: END LOOP ;
3314:
3315: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3316: Error_Handler.Write_Debug('After checking old operation. Return status is '|| l_return_status);
3317: END IF;
3318: END IF ;
3319:
3322: , p_organization_id => l_com_op_unexp_rec.organization_id )
3323: THEN
3324:
3325:
3326: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3327: ('ACD type to be add if primary routing does not exist . . .') ;
3328: END IF;
3329:
3330: IF NVL(l_com_operation_rec.acd_type, l_ACD_ADD) <> l_ACD_ADD AND
3327: ('ACD type to be add if primary routing does not exist . . .') ;
3328: END IF;
3329:
3330: IF NVL(l_com_operation_rec.acd_type, l_ACD_ADD) <> l_ACD_ADD AND
3331: BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3332: THEN
3333:
3334: --
3335: -- If the primary routing does not exist then the acd type
3358: --
3359: -- Verify the ECO Effectivity, If ECO by WO, Lot Num, Or Cum Qty, then
3360: -- Check if the operation exist in the WO or Lot Num.
3361: --
3362: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
3363: AND l_com_operation_rec.acd_type IN (l_ACD_CHANGE, l_ACD_DISABLE)
3364: THEN
3365: IF NOT Check_ECO_By_WO_Effectivity
3366: ( p_revised_item_sequence_id => l_com_op_unexp_rec.revised_item_sequence_id
3389:
3390: --
3391: -- Entity Validation for UPDATEs ONLY in ECO Bo
3392: --
3393: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
3394: THEN
3395:
3396: --
3397: -- Verify that the user is not trying to update an operation which
3470: -- If there is an unimplemented revised component referencing this
3471: -- operation squence number, cannot cancel this reivised operation.
3472: --
3473: --
3474: IF l_com_operation_rec.transaction_type IN ( BOM_Rtg_Globals.G_OPR_CANCEL
3475: ,BOM_Rtg_Globals.G_OPR_DELETE )
3476: AND l_com_operation_rec.acd_type = l_ACD_ADD
3477: THEN
3478:
3471: -- operation squence number, cannot cancel this reivised operation.
3472: --
3473: --
3474: IF l_com_operation_rec.transaction_type IN ( BOM_Rtg_Globals.G_OPR_CANCEL
3475: ,BOM_Rtg_Globals.G_OPR_DELETE )
3476: AND l_com_operation_rec.acd_type = l_ACD_ADD
3477: THEN
3478:
3479: IF NOT Check_Ref_Rev_Comp
3496:
3497: END IF ;
3498: END IF ; -- For Cancel
3499:
3500: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3501: ('End of Validation specific to ECO BO : ' || l_return_status) ;
3502: END IF ;
3503:
3504:
3508: --
3509: -- For UPDATE or ACD type : Change.
3510: -- Validation specific to the Transaction Type of Update
3511: --
3512: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
3513: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3514: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
3515: THEN
3516: --
3509: -- For UPDATE or ACD type : Change.
3510: -- Validation specific to the Transaction Type of Update
3511: --
3512: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
3513: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3514: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
3515: THEN
3516: --
3517: -- If Start Effective Date or New Start Effective Date is past,
3517: -- If Start Effective Date or New Start Effective Date is past,
3518: -- Effective_Date is not updatable
3519: --
3520: -- Added condition to check start_eff_date <> new_start_eff_date for bug 4666512
3521: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
3522: AND l_com_operation_rec.new_start_effective_date IS NOT NULL
3523: AND l_com_operation_rec.new_start_effective_date <> FND_API.G_MISS_DATE
3524: AND l_com_operation_rec.new_start_effective_date <>
3525: l_com_operation_rec.start_effective_date
3559: , p_old_op_seq_id => l_com_op_unexp_rec.old_operation_sequence_id
3560: , p_acd_type => l_com_operation_rec.acd_type
3561: )
3562: )
3563: AND BOM_Rtg_Globals.Get_Eam_Item_Type <> BOM_Rtg_Globals.G_ASSET_ACTIVITY
3564: THEN
3565:
3566: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3567: THEN
3574: END IF ;
3575: l_return_status := FND_API.G_RET_STS_ERROR;
3576:
3577: ELSIF p_old_com_op_unexp_rec.department_id <> l_com_op_unexp_rec.department_id
3578: AND BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
3579: AND NOT Bom_Rtg_Eam_Util.Check_UpdateDept
3580: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id
3581: , p_org_id => l_com_op_unexp_rec.organization_id
3582: , p_dept_id => l_com_op_unexp_rec.department_id
3619: l_return_status := FND_API.G_RET_STS_ERROR;
3620: END IF ;
3621: END IF ; -- Transation: UPDATE
3622:
3623: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3624: ('End of Validation specific to the Transaction Type of Update : ' || l_return_status) ;
3625: END IF ;
3626:
3627: --
3626:
3627: --
3628: -- Validateion for Transaction Type : Create and Update
3629: --
3630: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3631: THEN
3632: Error_Handler.Write_Debug ('The Transaction Type is ');
3633: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3634: END IF ;
3633: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3634: END IF ;
3635:
3636: IF l_com_operation_rec.transaction_type IN
3637: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3638: THEN
3639:
3640: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3641: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
3636: IF l_com_operation_rec.transaction_type IN
3637: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3638: THEN
3639:
3640: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3641: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
3642: END IF ;
3643:
3644: --
3662: ) ;
3663: END IF ;
3664: l_return_status := FND_API.G_RET_STS_ERROR ;
3665:
3666: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3667: ('Reference Flag Validation, If Std Op is null, It must be No . . . ' || l_return_status) ;
3668: END IF ;
3669:
3670: END IF ;
3698: --
3699: -- Operation Type
3700: -- Only Events(Operation Type 1) have parents
3701: --
3702: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG AND
3703: l_com_operation_rec.operation_type <> l_EVENT AND
3704: ( l_com_op_unexp_rec.process_op_seq_id IS NOT NULL OR
3705: l_com_op_unexp_rec.line_op_seq_id IS NOT NULL )
3706: THEN
3716:
3717: l_return_status := FND_API.G_RET_STS_ERROR;
3718:
3719:
3720: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3721: ('In Flow Routing Only Events(Operation Type 1) have parents. . . . ' || l_return_status) ;
3722: END IF ;
3723:
3724: END IF ;
3744: ) ;
3745: END IF ;
3746: l_return_status := FND_API.G_RET_STS_ERROR;
3747:
3748: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3749: ('Effective_Date must be past than or equal to Disable_Date. . . . ' || l_return_status) ;
3750: END IF ;
3751:
3752: END IF ;
3772: ) ;
3773: END IF ;
3774: l_return_status := FND_API.G_RET_STS_ERROR;
3775:
3776: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3777: (' Backfluch Flag Validation. If Count Point Type : 3, Backflush Flag must be 1:Yes . . . '
3778: || l_return_status) ;
3779: END IF ;
3780:
3785: -- If Rev Item or Assem Item's BOM Item Type is Standard,
3786: -- Operation Dependent Flag must be 2: No.
3787: --
3788:
3789: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3790: Error_Handler.Write_Debug('Option Dependent Flag : ' || to_char(l_com_operation_rec.option_dependent_flag)) ;
3791: END IF ;
3792:
3793: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3806: ) ;
3807: END IF ;
3808: l_return_status := FND_API.G_RET_STS_ERROR;
3809:
3810: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3811: ('If Item : BOM Item Type is Std, Option Dependent Flag must be 2 - No . . .'
3812: || l_return_status) ;
3813: END IF ;
3814:
3816:
3817: --
3818: -- Check if Department is valid
3819: --
3820: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3821: AND ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3822: OR ( l_com_operation_rec.acd_type = l_ACD_CHANGE
3823: AND l_com_op_unexp_rec.department_id <>
3824: p_old_com_op_unexp_rec.department_id
3824: p_old_com_op_unexp_rec.department_id
3825: )
3826: )
3827: THEN
3828: if BOM_Rtg_GLobals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_Lot_Rtg then --for bug 3132411
3829: FOR l_dept_rec IN l_dept_csr
3830: ( p_organization_id=> l_com_op_unexp_rec.organization_id
3831: , p_dept_id => l_com_op_unexp_rec.department_id
3832: , p_start_effective_date => l_com_operation_rec.start_effective_date
3846: l_return_status := FND_API.G_RET_STS_ERROR ;
3847: END LOOP ;
3848: end if;
3849:
3850: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3851: ('Check if Department is valid. ' || l_return_status) ;
3852: END IF ;
3853:
3854: END IF ;
3877: END IF ;
3878: l_return_status := FND_API.G_RET_STS_ERROR ;
3879: END LOOP ;
3880:
3881: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3882: ('Check if process operation does not have resources. . . ' || l_return_status) ;
3883: END IF ;
3884:
3885: END IF ;
3907: END IF ;
3908: l_return_status := FND_API.G_RET_STS_ERROR ;
3909: END LOOP ;
3910:
3911: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3912: ('Check if line operation does not have resources. . . ' || l_return_status) ;
3913: END IF ;
3914:
3915: END IF ;
3946: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3947: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3948: END LOOP ;
3949:
3950: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3951: ('Check uniqueness of the operation. . . ' || l_return_status) ;
3952: END IF ;
3953:
3954: END IF ;
3963: )
3964: THEN
3965:
3966:
3967: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3968: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3975: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3976: END IF ;
3977:
3978:
3979: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
3980:
3981: FOR l_overlap_rec IN l_overlap_csr
3982: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id
3983: , p_rtg_seq_id => l_com_op_unexp_rec.routing_sequence_id
4004: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4005: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4006: END LOOP ;
4007:
4008: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4009: ('Check if there is no overlapping operations. . . ' || l_return_status) ;
4010: END IF ;
4011: END IF ;
4012:
4020: --
4021: /* If necessary, remove comment out, and create new message
4022: */
4023:
4024: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4025: ('Check uniqueness for unimplemented revised operations. . . ' || l_return_status) ;
4026: END IF ;
4027:
4028: --
4029: -- Check if there is no overlapping for unimplemented revised operations
4030: --
4031: --
4032: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) IN (l_ACD_CHANGE, l_ACD_ADD)
4033: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO )
4034: THEN
4035:
4036: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
4037:
4032: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) IN (l_ACD_CHANGE, l_ACD_ADD)
4033: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO )
4034: THEN
4035:
4036: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
4037:
4038:
4039: FOR l_rev_overlap_rec IN l_rev_overlap_csr
4040: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id
4065: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4066: END LOOP ;
4067:
4068:
4069: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4070: ('Check if there is no overlapping operations for unimplemented revised operations. . . '
4071: || l_return_status) ;
4072: END IF ;
4073: END IF ;
4079: -- The ECO can be updated but a warning needs to be generated and
4080: -- scheduled revised items need to be update to Open
4081: -- and the ECO status need to be changed to Not Submitted for Approval
4082:
4083: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
4084: THEN
4085:
4086: BOM_Rtg_Globals.Check_Approved_For_Process
4087: ( p_change_notice => l_com_operation_rec.eco_name
4082:
4083: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
4084: THEN
4085:
4086: BOM_Rtg_Globals.Check_Approved_For_Process
4087: ( p_change_notice => l_com_operation_rec.eco_name
4088: , p_organization_id => l_com_op_unexp_rec.organization_id
4089: , x_processed => l_eco_processed
4090: , x_err_text => l_err_text
4091: ) ;
4092:
4093: IF l_eco_processed THEN
4094: -- If the above process returns true then set the ECO approval.
4095: BOM_Rtg_Globals.Set_Request_For_Approval
4096: ( p_change_notice => l_com_operation_rec.eco_name
4097: , p_organization_id => l_com_op_unexp_rec.organization_id
4098: , x_err_text => l_err_text
4099: ) ;
4099: ) ;
4100:
4101: END IF ;
4102:
4103: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4104: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
4105: END IF ;
4106:
4107: END IF;
4105: END IF ;
4106:
4107: END IF;
4108:
4109: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO AND
4110: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
4111: THEN
4112: IF p_com_operation_rec.Delete_Group_Name IS NULL OR
4113: p_com_operation_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
4106:
4107: END IF;
4108:
4109: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO AND
4110: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
4111: THEN
4112: IF p_com_operation_rec.Delete_Group_Name IS NULL OR
4113: p_com_operation_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
4114: THEN
4119: , x_mesg_token_tbl => l_mesg_token_tbl
4120: );
4121: l_return_status := FND_API.G_RET_STS_ERROR;
4122: END IF;
4123: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4124: ('Check if Delete Group is missing . . . ' || l_return_status) ;
4125: END IF ;
4126:
4127: END IF ;
4125: END IF ;
4126:
4127: END IF ;
4128:
4129: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4130: ('Entity Validation was processed. . . ' || l_return_status);
4131: END IF ;
4132:
4133: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4131: END IF ;
4132:
4133: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4134: -- or its op seq num is being changed. This is not allowed
4135: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO THEN
4136: FOR get_ssos_rec IN get_ssos_csr(p_rtg_seq_id => l_com_op_unexp_rec.routing_Sequence_id) LOOP
4137: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE THEN
4138: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op THEN
4139: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4133: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4134: -- or its op seq num is being changed. This is not allowed
4135: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO THEN
4136: FOR get_ssos_rec IN get_ssos_csr(p_rtg_seq_id => l_com_op_unexp_rec.routing_Sequence_id) LOOP
4137: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE THEN
4138: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op THEN
4139: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4140: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4141:
4146: , p_token_tbl => l_token_tbl
4147: );
4148: l_return_status := FND_API.G_RET_STS_ERROR;
4149: END IF;
4150: ELSIF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE THEN
4151: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op AND
4152: l_com_operation_rec.new_operation_sequence_number <> l_com_operation_rec.operation_sequence_number THEN
4153: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4154: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4165: END LOOP;
4166: END IF;
4167:
4168: --For checking that OSFM operation is not a po_move
4169: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg
4170: AND WSMPUTIL.CHECK_PO_MOVE(p_sequence_id => p_com_op_unexp_rec.Operation_Sequence_Id,
4171: p_sequence_id_type => 'O',
4172: p_routing_rev_date => SYSDATE,
4173: x_err_code => l_err_code,
4180: END IF;
4181: --End of PO_MOVE changes for OSFM operation
4182:
4183: --For Delete Operation OSFM constraint
4184: IF p_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_DELETE
4185: AND BOM_RTG_Globals.Is_Osfm_NW_Calc_Flag
4186: AND
4187: WSMPUTIL.JOBS_WITH_QTY_AT_FROM_OP (x_err_code => l_err_code,
4188: x_err_msg => l_err_text,
4181: --End of PO_MOVE changes for OSFM operation
4182:
4183: --For Delete Operation OSFM constraint
4184: IF p_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_DELETE
4185: AND BOM_RTG_Globals.Is_Osfm_NW_Calc_Flag
4186: AND
4187: WSMPUTIL.JOBS_WITH_QTY_AT_FROM_OP (x_err_code => l_err_code,
4188: x_err_msg => l_err_text,
4189: p_operation_sequence_id => p_com_op_unexp_rec.Operation_Sequence_Id)
4213:
4214:
4215: EXCEPTION
4216: WHEN OTHERS THEN
4217: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4218: ('Some unknown error in Entity Validation . . .' || SQLERRM );
4219: END IF ;
4220:
4221: