[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:
3152: l_com_operation_rec := p_com_operation_rec ;
3153: l_com_op_unexp_rec := p_com_op_unexp_rec ;
3154: l_return_status := FND_API.G_RET_STS_SUCCESS ;
3155:
3156: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3157: ('Performing Operation Check Entitity Validation . . .') ;
3158: END IF ;
3159:
3160:
3177: l_eng_item_flag := l_item_rec.eng_item_flag ;
3178: l_bom_enabled_flag := l_item_rec.bom_enabled_flag ;
3179: END LOOP ;
3180:
3181: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3182: Error_Handler.Write_Debug('Business Object is') ;
3183: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3184: END IF;
3185:
3179: END LOOP ;
3180:
3181: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3182: Error_Handler.Write_Debug('Business Object is') ;
3183: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3184: END IF;
3185:
3186:
3187: --
3186:
3187: --
3188: -- Performing Entity Validation in Revised Operatin(ECO BO)
3189: --
3190: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3191: THEN
3192: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3193: ('Performing Entitity Validation for Eco Routing :ACD Type, Old Op Seq Num, Old Effect Date etc. . .') ;
3194: END IF;
3188: -- Performing Entity Validation in Revised Operatin(ECO BO)
3189: --
3190: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3191: THEN
3192: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3193: ('Performing Entitity Validation for Eco Routing :ACD Type, Old Op Seq Num, Old Effect Date etc. . .') ;
3194: END IF;
3195:
3196: --
3196: --
3197: -- Check Revised Item Attributes for Revised Operation
3198: -- For CREATE and ACD Type : Add
3199: --
3200: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3201: AND ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD ) = l_ACD_ADD )
3202: THEN
3203:
3204: --
3280: -- If the rev operation is created with an Acd_Type of Change or Disable
3281: -- then operation pointed to by old_operation_sequence_id should
3282: -- be valid against cusror l_val_old_op_seq_csr's conditions.
3283: *********************************************************************/
3284: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE AND
3285: l_com_operation_rec.acd_type IN (2, 3)
3286: THEN
3287:
3288: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3284: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE AND
3285: l_com_operation_rec.acd_type IN (2, 3)
3286: THEN
3287:
3288: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3289: Error_Handler.Write_Debug('Checking old operation : '|| to_char(l_com_op_unexp_rec.old_operation_sequence_id));
3290: END IF;
3291:
3292: l_eco_for_production := NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) ;
3288: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3289: Error_Handler.Write_Debug('Checking old operation : '|| to_char(l_com_op_unexp_rec.old_operation_sequence_id));
3290: END IF;
3291:
3292: l_eco_for_production := NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) ;
3293:
3294: FOR old_op_seq_rec IN l_val_old_op_seq_csr
3295: ( p_rtg_seq_id => l_com_op_unexp_rec.routing_sequence_id ,
3296: p_effectivity_date => l_com_operation_rec.start_effective_date ,
3312: END IF;
3313: l_return_status := FND_API.G_RET_STS_ERROR;
3314: END LOOP ;
3315:
3316: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3317: Error_Handler.Write_Debug('After checking old operation. Return status is '|| l_return_status);
3318: END IF;
3319: END IF ;
3320:
3323: , p_organization_id => l_com_op_unexp_rec.organization_id )
3324: THEN
3325:
3326:
3327: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3328: ('ACD type to be add if primary routing does not exist . . .') ;
3329: END IF;
3330:
3331: IF NVL(l_com_operation_rec.acd_type, l_ACD_ADD) <> l_ACD_ADD AND
3328: ('ACD type to be add if primary routing does not exist . . .') ;
3329: END IF;
3330:
3331: IF NVL(l_com_operation_rec.acd_type, l_ACD_ADD) <> l_ACD_ADD AND
3332: BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3333: THEN
3334:
3335: --
3336: -- If the primary routing does not exist then the acd type
3359: --
3360: -- Verify the ECO Effectivity, If ECO by WO, Lot Num, Or Cum Qty, then
3361: -- Check if the operation exist in the WO or Lot Num.
3362: --
3363: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
3364: AND l_com_operation_rec.acd_type IN (l_ACD_CHANGE, l_ACD_DISABLE)
3365: THEN
3366: IF NOT Check_ECO_By_WO_Effectivity
3367: ( p_revised_item_sequence_id => l_com_op_unexp_rec.revised_item_sequence_id
3390:
3391: --
3392: -- Entity Validation for UPDATEs ONLY in ECO Bo
3393: --
3394: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
3395: THEN
3396:
3397: --
3398: -- Verify that the user is not trying to update an operation which
3471: -- If there is an unimplemented revised component referencing this
3472: -- operation squence number, cannot cancel this reivised operation.
3473: --
3474: --
3475: IF l_com_operation_rec.transaction_type IN ( BOM_Rtg_Globals.G_OPR_CANCEL
3476: ,BOM_Rtg_Globals.G_OPR_DELETE )
3477: AND l_com_operation_rec.acd_type = l_ACD_ADD
3478: THEN
3479:
3472: -- operation squence number, cannot cancel this reivised operation.
3473: --
3474: --
3475: IF l_com_operation_rec.transaction_type IN ( BOM_Rtg_Globals.G_OPR_CANCEL
3476: ,BOM_Rtg_Globals.G_OPR_DELETE )
3477: AND l_com_operation_rec.acd_type = l_ACD_ADD
3478: THEN
3479:
3480: IF NOT Check_Ref_Rev_Comp
3497:
3498: END IF ;
3499: END IF ; -- For Cancel
3500:
3501: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3502: ('End of Validation specific to ECO BO : ' || l_return_status) ;
3503: END IF ;
3504:
3505:
3509: --
3510: -- For UPDATE or ACD type : Change.
3511: -- Validation specific to the Transaction Type of Update
3512: --
3513: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
3514: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3515: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
3516: THEN
3517: --
3510: -- For UPDATE or ACD type : Change.
3511: -- Validation specific to the Transaction Type of Update
3512: --
3513: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
3514: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3515: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
3516: THEN
3517: --
3518: -- If Start Effective Date or New Start Effective Date is past,
3518: -- If Start Effective Date or New Start Effective Date is past,
3519: -- Effective_Date is not updatable
3520: --
3521: -- Added condition to check start_eff_date <> new_start_eff_date for bug 4666512
3522: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
3523: AND l_com_operation_rec.new_start_effective_date IS NOT NULL
3524: AND l_com_operation_rec.new_start_effective_date <> FND_API.G_MISS_DATE
3525: AND l_com_operation_rec.new_start_effective_date <>
3526: l_com_operation_rec.start_effective_date
3560: , p_old_op_seq_id => l_com_op_unexp_rec.old_operation_sequence_id
3561: , p_acd_type => l_com_operation_rec.acd_type
3562: )
3563: )
3564: AND BOM_Rtg_Globals.Get_Eam_Item_Type <> BOM_Rtg_Globals.G_ASSET_ACTIVITY
3565: THEN
3566:
3567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3568: THEN
3575: END IF ;
3576: l_return_status := FND_API.G_RET_STS_ERROR;
3577:
3578: ELSIF p_old_com_op_unexp_rec.department_id <> l_com_op_unexp_rec.department_id
3579: AND BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
3580: AND NOT Bom_Rtg_Eam_Util.Check_UpdateDept
3581: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id
3582: , p_org_id => l_com_op_unexp_rec.organization_id
3583: , p_dept_id => l_com_op_unexp_rec.department_id
3620: l_return_status := FND_API.G_RET_STS_ERROR;
3621: END IF ;
3622: END IF ; -- Transation: UPDATE
3623:
3624: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3625: ('End of Validation specific to the Transaction Type of Update : ' || l_return_status) ;
3626: END IF ;
3627:
3628: --
3627:
3628: --
3629: -- Validateion for Transaction Type : Create and Update
3630: --
3631: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3632: THEN
3633: Error_Handler.Write_Debug ('The Transaction Type is ');
3634: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3635: END IF ;
3634: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3635: END IF ;
3636:
3637: IF l_com_operation_rec.transaction_type IN
3638: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3639: THEN
3640:
3641: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3642: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
3637: IF l_com_operation_rec.transaction_type IN
3638: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3639: THEN
3640:
3641: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3642: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
3643: END IF ;
3644:
3645: --
3663: ) ;
3664: END IF ;
3665: l_return_status := FND_API.G_RET_STS_ERROR ;
3666:
3667: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3668: ('Reference Flag Validation, If Std Op is null, It must be No . . . ' || l_return_status) ;
3669: END IF ;
3670:
3671: END IF ;
3699: --
3700: -- Operation Type
3701: -- Only Events(Operation Type 1) have parents
3702: --
3703: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG AND
3704: l_com_operation_rec.operation_type <> l_EVENT AND
3705: ( l_com_op_unexp_rec.process_op_seq_id IS NOT NULL OR
3706: l_com_op_unexp_rec.line_op_seq_id IS NOT NULL )
3707: THEN
3717:
3718: l_return_status := FND_API.G_RET_STS_ERROR;
3719:
3720:
3721: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3722: ('In Flow Routing Only Events(Operation Type 1) have parents. . . . ' || l_return_status) ;
3723: END IF ;
3724:
3725: END IF ;
3745: ) ;
3746: END IF ;
3747: l_return_status := FND_API.G_RET_STS_ERROR;
3748:
3749: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3750: ('Effective_Date must be past than or equal to Disable_Date. . . . ' || l_return_status) ;
3751: END IF ;
3752:
3753: END IF ;
3773: ) ;
3774: END IF ;
3775: l_return_status := FND_API.G_RET_STS_ERROR;
3776:
3777: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3778: (' Backfluch Flag Validation. If Count Point Type : 3, Backflush Flag must be 1:Yes . . . '
3779: || l_return_status) ;
3780: END IF ;
3781:
3786: -- If Rev Item or Assem Item's BOM Item Type is Standard,
3787: -- Operation Dependent Flag must be 2: No.
3788: --
3789:
3790: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3791: Error_Handler.Write_Debug('Option Dependent Flag : ' || to_char(l_com_operation_rec.option_dependent_flag)) ;
3792: END IF ;
3793:
3794: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3807: ) ;
3808: END IF ;
3809: l_return_status := FND_API.G_RET_STS_ERROR;
3810:
3811: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3812: ('If Item : BOM Item Type is Std, Option Dependent Flag must be 2 - No . . .'
3813: || l_return_status) ;
3814: END IF ;
3815:
3817:
3818: --
3819: -- Check if Department is valid
3820: --
3821: IF l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
3822: AND ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3823: OR ( l_com_operation_rec.acd_type = l_ACD_CHANGE
3824: AND l_com_op_unexp_rec.department_id <>
3825: p_old_com_op_unexp_rec.department_id
3825: p_old_com_op_unexp_rec.department_id
3826: )
3827: )
3828: THEN
3829: if BOM_Rtg_GLobals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_Lot_Rtg then --for bug 3132411
3830: FOR l_dept_rec IN l_dept_csr
3831: ( p_organization_id=> l_com_op_unexp_rec.organization_id
3832: , p_dept_id => l_com_op_unexp_rec.department_id
3833: , p_start_effective_date => l_com_operation_rec.start_effective_date
3847: l_return_status := FND_API.G_RET_STS_ERROR ;
3848: END LOOP ;
3849: end if;
3850:
3851: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3852: ('Check if Department is valid. ' || l_return_status) ;
3853: END IF ;
3854:
3855: END IF ;
3878: END IF ;
3879: l_return_status := FND_API.G_RET_STS_ERROR ;
3880: END LOOP ;
3881:
3882: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3883: ('Check if process operation does not have resources. . . ' || l_return_status) ;
3884: END IF ;
3885:
3886: END IF ;
3908: END IF ;
3909: l_return_status := FND_API.G_RET_STS_ERROR ;
3910: END LOOP ;
3911:
3912: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3913: ('Check if line operation does not have resources. . . ' || l_return_status) ;
3914: END IF ;
3915:
3916: END IF ;
3947: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3948: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3949: END LOOP ;
3950:
3951: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3952: ('Check uniqueness of the operation. . . ' || l_return_status) ;
3953: END IF ;
3954:
3955: END IF ;
3964: )
3965: THEN
3966:
3967:
3968: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3969: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3976: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3977: END IF ;
3978:
3979:
3980: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
3981:
3982: FOR l_overlap_rec IN l_overlap_csr
3983: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id
3984: , p_rtg_seq_id => l_com_op_unexp_rec.routing_sequence_id
4005: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4006: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4007: END LOOP ;
4008:
4009: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4010: ('Check if there is no overlapping operations. . . ' || l_return_status) ;
4011: END IF ;
4012: END IF ;
4013:
4021: --
4022: /* If necessary, remove comment out, and create new message
4023: */
4024:
4025: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4026: ('Check uniqueness for unimplemented revised operations. . . ' || l_return_status) ;
4027: END IF ;
4028:
4029: --
4030: -- Check if there is no overlapping for unimplemented revised operations
4031: --
4032: --
4033: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) IN (l_ACD_CHANGE, l_ACD_ADD)
4034: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO )
4035: THEN
4036:
4037: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
4038:
4033: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) IN (l_ACD_CHANGE, l_ACD_ADD)
4034: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO )
4035: THEN
4036:
4037: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
4038:
4039:
4040: FOR l_rev_overlap_rec IN l_rev_overlap_csr
4041: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id
4066: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4067: END LOOP ;
4068:
4069:
4070: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4071: ('Check if there is no overlapping operations for unimplemented revised operations. . . '
4072: || l_return_status) ;
4073: END IF ;
4074: END IF ;
4080: -- The ECO can be updated but a warning needs to be generated and
4081: -- scheduled revised items need to be update to Open
4082: -- and the ECO status need to be changed to Not Submitted for Approval
4083:
4084: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
4085: THEN
4086:
4087: BOM_Rtg_Globals.Check_Approved_For_Process
4088: ( p_change_notice => l_com_operation_rec.eco_name
4083:
4084: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
4085: THEN
4086:
4087: BOM_Rtg_Globals.Check_Approved_For_Process
4088: ( p_change_notice => l_com_operation_rec.eco_name
4089: , p_organization_id => l_com_op_unexp_rec.organization_id
4090: , x_processed => l_eco_processed
4091: , x_err_text => l_err_text
4092: ) ;
4093:
4094: IF l_eco_processed THEN
4095: -- If the above process returns true then set the ECO approval.
4096: BOM_Rtg_Globals.Set_Request_For_Approval
4097: ( p_change_notice => l_com_operation_rec.eco_name
4098: , p_organization_id => l_com_op_unexp_rec.organization_id
4099: , x_err_text => l_err_text
4100: ) ;
4100: ) ;
4101:
4102: END IF ;
4103:
4104: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4105: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
4106: END IF ;
4107:
4108: END IF;
4106: END IF ;
4107:
4108: END IF;
4109:
4110: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO AND
4111: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
4112: THEN
4113: IF p_com_operation_rec.Delete_Group_Name IS NULL OR
4114: p_com_operation_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
4107:
4108: END IF;
4109:
4110: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO AND
4111: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
4112: THEN
4113: IF p_com_operation_rec.Delete_Group_Name IS NULL OR
4114: p_com_operation_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
4115: THEN
4120: , x_mesg_token_tbl => l_mesg_token_tbl
4121: );
4122: l_return_status := FND_API.G_RET_STS_ERROR;
4123: END IF;
4124: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4125: ('Check if Delete Group is missing . . . ' || l_return_status) ;
4126: END IF ;
4127:
4128: END IF ;
4126: END IF ;
4127:
4128: END IF ;
4129:
4130: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4131: ('Entity Validation was processed. . . ' || l_return_status);
4132: END IF ;
4133:
4134: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4132: END IF ;
4133:
4134: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4135: -- or its op seq num is being changed. This is not allowed
4136: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO THEN
4137: FOR get_ssos_rec IN get_ssos_csr(p_rtg_seq_id => l_com_op_unexp_rec.routing_Sequence_id) LOOP
4138: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE THEN
4139: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op THEN
4140: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4134: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4135: -- or its op seq num is being changed. This is not allowed
4136: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO THEN
4137: FOR get_ssos_rec IN get_ssos_csr(p_rtg_seq_id => l_com_op_unexp_rec.routing_Sequence_id) LOOP
4138: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE THEN
4139: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op THEN
4140: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4141: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4142:
4147: , p_token_tbl => l_token_tbl
4148: );
4149: l_return_status := FND_API.G_RET_STS_ERROR;
4150: END IF;
4151: ELSIF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE THEN
4152: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op AND
4153: l_com_operation_rec.new_operation_sequence_number <> l_com_operation_rec.operation_sequence_number THEN
4154: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4155: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4166: END LOOP;
4167: END IF;
4168:
4169: --For checking that OSFM operation is not a po_move
4170: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg
4171: AND WSMPUTIL.CHECK_PO_MOVE(p_sequence_id => p_com_op_unexp_rec.Operation_Sequence_Id,
4172: p_sequence_id_type => 'O',
4173: p_routing_rev_date => SYSDATE,
4174: x_err_code => l_err_code,
4181: END IF;
4182: --End of PO_MOVE changes for OSFM operation
4183:
4184: --For Delete Operation OSFM constraint
4185: IF p_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_DELETE
4186: AND BOM_RTG_Globals.Is_Osfm_NW_Calc_Flag
4187: AND
4188: WSMPUTIL.JOBS_WITH_QTY_AT_FROM_OP (x_err_code => l_err_code,
4189: x_err_msg => l_err_text,
4182: --End of PO_MOVE changes for OSFM operation
4183:
4184: --For Delete Operation OSFM constraint
4185: IF p_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_DELETE
4186: AND BOM_RTG_Globals.Is_Osfm_NW_Calc_Flag
4187: AND
4188: WSMPUTIL.JOBS_WITH_QTY_AT_FROM_OP (x_err_code => l_err_code,
4189: x_err_msg => l_err_text,
4190: p_operation_sequence_id => p_com_op_unexp_rec.Operation_Sequence_Id)
4214:
4215:
4216: EXCEPTION
4217: WHEN OTHERS THEN
4218: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4219: ('Some unknown error in Entity Validation . . .' || SQLERRM );
4220: END IF ;
4221:
4222: