[Home] [Help]
137: ) ;
138:
139: BEGIN
140:
141: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
142: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
143: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
144: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
145:
138:
139: BEGIN
140:
141: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
142: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
143: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
144: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
145:
146: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
139: BEGIN
140:
141: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
142: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
143: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
144: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
145:
146: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
147: Error_Handler.Write_Debug('Check if the rev op resource is valid in Eco by Prod. . .' );
140:
141: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
142: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
143: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
144: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
145:
146: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
147: Error_Handler.Write_Debug('Check if the rev op resource is valid in Eco by Prod. . .' );
148: Error_Handler.Write_Debug('Lot Number in parent rev item : ' || l_lot_number );
142: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
143: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
144: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
145:
146: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
147: Error_Handler.Write_Debug('Check if the rev op resource is valid in Eco by Prod. . .' );
148: Error_Handler.Write_Debug('Lot Number in parent rev item : ' || l_lot_number );
149: Error_Handler.Write_Debug('From WIP Entity Id in parent rev item : ' || to_char(l_from_wip_entity_id) );
150: Error_Handler.Write_Debug('To WIP Entity Id in parent rev item : ' || to_char(l_to_wip_entity_id) );
167: , p_rev_item_id => p_rev_item_id
168: )
169: LOOP
170:
171: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
172: Error_Handler.Write_Debug('Resource Seq Num : ' || to_char(p_resource_seq_num) );
173: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(p_operation_seq_num) );
174: Error_Handler.Write_Debug('In Eco by Lot Number, this rev op res is invalid. . .' );
175: END IF;
534: BEGIN
535:
536: x_return_status := FND_API.G_RET_STS_SUCCESS ;
537:
538: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
539: Error_Handler.Write_Debug ('Usage : ' || to_char(p_usage_rate_or_amount) );
540: Error_Handler.Write_Debug ('Usage Inv : ' || to_char(p_usage_rate_or_amount_inverse ) );
541: END IF ;
542:
701: x_return_status := FND_API.G_RET_STS_ERROR ;
702: END LOOP ;
703:
704:
705: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
706: THEN
707:
708: FOR l_rev_schedule_rec IN l_rev_schedule_csr ( p_op_seq_id
709: , p_res_seq_num
811: LOOP
812: x_return_status := FND_API.G_RET_STS_ERROR ;
813: END LOOP ;
814:
815: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
816: THEN
817:
818: FOR l_rev_schedule_rec IN l_rev_schedule_csr ( p_op_seq_id
819: , p_res_seq_num
833: LOOP
834: x_return_status := FND_API.G_RET_STS_ERROR ;
835: END LOOP ;
836:
837: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
838: THEN
839:
840: FOR l_rev_schedule_rec IN l_rev_yes_csr ( p_op_seq_id
841: , p_res_seq_num
936: x_return_status := FND_API.G_RET_STS_ERROR ;
937: END LOOP ;
938:
939:
940: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
941: THEN
942:
943: FOR l_rev_pomove_rec IN l_rev_pomove_csr ( p_op_seq_id
944: , p_res_seq_num
1158: x_return_status := FND_API.G_RET_STS_ERROR ;
1159: END LOOP ;
1160:
1161:
1162: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1163: THEN
1164:
1165: FOR l_rev_principal_rec IN l_rev_principal_csr ( p_op_seq_id
1166: , p_res_seq_num
1391: , x_mesg_token_tbl => l_mesg_token_tbl
1392: , x_return_status => l_return_status
1393: ) ;
1394:
1395: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
1396: p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
1397: Error_Handler.Add_Error_Token
1398: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1399: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1392: , x_return_status => l_return_status
1393: ) ;
1394:
1395: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
1396: p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
1397: Error_Handler.Add_Error_Token
1398: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1399: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1400: , p_message_name => 'BOM_RES_ALREADY_EXISTS'
1401: , p_token_tbl => l_token_tbl
1402: ) ;
1403: l_return_status := FND_API.G_RET_STS_ERROR ;
1404:
1405: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
1406: p_rev_op_resource_rec.transaction_type IN
1407: ( BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
1408: THEN
1409: Error_Handler.Add_Error_Token
1403: l_return_status := FND_API.G_RET_STS_ERROR ;
1404:
1405: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
1406: p_rev_op_resource_rec.transaction_type IN
1407: ( BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
1408: THEN
1409: Error_Handler.Add_Error_Token
1410: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1411: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1479:
1480: -- For eAM enhancement, currently maintenance routings do not
1481: -- support sub operation resources fanctionality.
1482: -- This validation will be removed in future.
1483: IF BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
1484: AND p_entity_processed = 'SR' -- called from sub resources entity
1485: THEN
1486:
1487: RAISE EAM_SUB_RES_NOT_ACCESS ;
1515: EXCEPTION
1516: -- Added for eAM enhancement
1517: WHEN EAM_SUB_RES_NOT_ACCESS THEN
1518:
1519: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1520: ('Maintenance routings do not support sub operation resources fanctionality') ;
1521: END IF ;
1522:
1523: -- Return the 'EAM'.
1529: x_return_status := FND_API.G_RET_STS_ERROR ;
1530:
1531:
1532: WHEN OTHERS THEN
1533: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1534: ('Some unknown error in Check non-ref operation . . .' || SQLERRM );
1535: END IF ;
1536:
1537:
1640: -- Check if the user is trying to update a record with
1641: -- missing value when the column value is required.
1642: --
1643:
1644: IF p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1645: THEN
1646:
1647: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1648: ('Operation Resource Attr Validation: Missing Value. . . ' || l_return_status) ;
1643:
1644: IF p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1645: THEN
1646:
1647: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1648: ('Operation Resource Attr Validation: Missing Value. . . ' || l_return_status) ;
1649: END IF;
1650:
1651: -- Resource Code
1755: -- Check if the user is trying to create/update a record with
1756: -- invalid value.
1757: --
1758:
1759: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1760: ('Operation Resource Attr Validation: Invalid Value. . . ' || l_return_status) ;
1761: END IF;
1762:
1763: -- Resource Code or Resource Id
1760: ('Operation Resource Attr Validation: Invalid Value. . . ' || l_return_status) ;
1761: END IF;
1762:
1763: -- Resource Code or Resource Id
1764: IF p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1765: AND NVL(p_rev_op_resource_rec.acd_type, l_ACD_ADD) = l_ACD_ADD
1766: AND ( p_rev_op_res_unexp_rec.resource_id IS NULL
1767: OR p_rev_op_res_unexp_rec.resource_id = FND_API.G_MISS_NUM)
1768: THEN
1890: AND p_rev_op_resource_rec.acd_type NOT IN
1891: (l_ACD_ADD, l_ACD_CHANGE, l_ACD_DISABLE) )
1892: OR p_rev_op_resource_rec.acd_type IS NULL
1893: )
1894: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1895: THEN
1896:
1897: l_token_tbl(2).token_name := 'ACD_TYPE';
1898:
1914:
1915:
1916:
1917: -- Done validating attributes
1918: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1919: ('Operation Resource Attr Validation completed with return_status: ' || l_return_status) ;
1920: END IF;
1921:
1922: x_return_status := l_return_status;
1923: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1924:
1925: EXCEPTION
1926: WHEN OTHERS THEN
1927: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1928: ('Some unknown error in Attribute Validation . . .' || SQLERRM );
1929: END IF ;
1930:
1931:
2204: l_rev_op_res_unexp_rec := p_rev_op_res_unexp_rec ;
2205: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2206: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2207:
2208: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2209: ('Performing Op Resource Check Entity Validation . . .') ;
2210: END IF ;
2211:
2212: --
2219: -- The ECO can be updated but a warning needs to be generated and
2220: -- scheduled revised items need to be update to Open
2221: -- and the ECO status need to be changed to Not Submitted for Approval
2222:
2223: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2224: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
2225: END IF ;
2226:
2227: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2223: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2224: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
2225: END IF ;
2226:
2227: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2228: THEN
2229: BOM_Rtg_Globals.Check_Approved_For_Process
2230: ( p_change_notice => l_rev_op_resource_rec.eco_name
2231: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
2225: END IF ;
2226:
2227: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2228: THEN
2229: BOM_Rtg_Globals.Check_Approved_For_Process
2230: ( p_change_notice => l_rev_op_resource_rec.eco_name
2231: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
2232: , x_processed => l_eco_processed
2233: , x_err_text => l_err_text
2234: ) ;
2235:
2236: IF l_eco_processed THEN
2237: -- If the above process returns true then set the ECO approval.
2238: BOM_Rtg_Globals.Set_Request_For_Approval
2239: ( p_change_notice => l_rev_op_resource_rec.eco_name
2240: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
2241: , x_err_text => l_err_text
2242: ) ;
2247:
2248: --
2249: -- Performing Entity Validation in Revised Op Resource(ECO BO)
2250: --
2251: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2252: THEN
2253: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2254: ('Performing Entitity Validation for Eco Routing :ACD Type. . .') ;
2255: END IF ;
2249: -- Performing Entity Validation in Revised Op Resource(ECO BO)
2250: --
2251: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2252: THEN
2253: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2254: ('Performing Entitity Validation for Eco Routing :ACD Type. . .') ;
2255: END IF ;
2256:
2257: --
2259: -- If the Transaction Type is CREATE and the ACD_Type = Disable, then
2260: -- the operation resource should already exist for the revised operation.
2261: --
2262: /* This validation has been done in Rev_Operation_Resource procedure
2263: IF l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2264: AND ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD ) IN (l_ACD_CHANGE, l_ACD_DISABLE ))
2265: THEN
2266:
2267: FOR l_opres_exist_rec IN l_opres_exist_csr
2291: -- If the Transaction Type is CREATE and the ACD_Type of parent revised
2292: -- operation is Add then,the ACD_Type must be Add.
2293: --
2294: --
2295: IF l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2296: THEN
2297: IF
2298: l_ACD_ADD =
2299: Get_Rev_Op_ACD(p_op_seq_id
2320: -- For CREATE, ACD Type is CHANGE, Operation Resource's
2321: -- Attribute can not be update.
2322: --
2323: /* User is allowed to update res attributes
2324: IF l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2325: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2326: THEN
2327: IF NOT Check_Res_Attr_changed
2328: ( p_rev_op_resource_rec => l_rev_op_resource_rec
2346:
2347: --
2348: -- For UPDATE, ACD Type not updateable
2349: --
2350: IF l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2351: AND l_rev_op_resource_rec.acd_type <> p_old_rev_op_resource_rec.acd_type
2352: THEN
2353: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2354: THEN
2389: --
2390: -- Verify the ECO by WO Effectivity, If ECO by WO, Lot Num, Or Cum Qty, then
2391: -- Check if the operation resource exist in the WO or Lot Num.
2392: --
2393: IF p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
2394: AND l_rev_op_resource_rec.acd_type IN (l_ACD_CHANGE, l_ACD_DISABLE )
2395: THEN
2396:
2397: IF NOT Check_ECO_By_WO_Effectivity
2420: END IF ; -- ECO BO Validation
2421:
2422:
2423: -- Modified validation for Assigned Units
2424: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
2425: Error_Handler.Write_Debug ('Validating the Assigned Units for a Batchable Resource . . .') ;
2426: END IF;
2427:
2428: IF l_rev_op_resource_rec.transaction_type IN
2425: Error_Handler.Write_Debug ('Validating the Assigned Units for a Batchable Resource . . .') ;
2426: END IF;
2427:
2428: IF l_rev_op_resource_rec.transaction_type IN
2429: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
2430: THEN
2431: --
2432: -- APS Enhancement for Routings.
2433: -- Verify that if a resource has setups defined, or is Batchable then
2461: --
2462: -- For UPDATE or ( For CREATE and acd type is change)
2463: -- Validation specific to the Transaction Type of Update
2464: --
2465: IF l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2466: OR
2467: (l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2468: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2469: )
2463: -- Validation specific to the Transaction Type of Update
2464: --
2465: IF l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2466: OR
2467: (l_rev_op_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2468: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2469: )
2470: THEN
2471:
2482: <> p_old_rev_op_res_unexp_rec.substitute_group_number ))
2483: AND p_old_rev_op_resource_rec.schedule_flag = l_NEXT
2484: THEN
2485:
2486: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2487: ('Check if you can update Next or Prior Schedule Res to others. . . . ' || l_return_status) ;
2488: END IF ;
2489:
2490: FOR l_subres_schedule_rec IN l_subres_schedule_csr
2506: l_return_status := FND_API.G_RET_STS_ERROR ;
2507:
2508: END LOOP ;
2509:
2510: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2511: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2512: THEN
2513: FOR l_rev_subres_schedule_rec IN l_rev_subres_schedule_csr
2514: ( p_op_seq_id => p_rev_op_res_unexp_rec.operation_sequence_id
2555: l_return_status := FND_API.G_RET_STS_ERROR ;
2556:
2557: END LOOP ;
2558:
2559: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2560: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2561: THEN
2562: FOR l_rev_subres_schedule_rec IN l_rev_subres_schedule_csr
2563: ( p_op_seq_id => p_rev_op_res_unexp_rec.operation_sequence_id
2595: <> p_old_rev_op_res_unexp_rec.substitute_group_number ))
2596: AND p_old_rev_op_resource_rec.autocharge_type = l_PO_MOVE
2597: THEN
2598:
2599: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2600: ('Check if you can update PO Move to others. . . . ' || l_return_status) ;
2601: END IF ;
2602:
2603: FOR l_subres_pomove_rec IN l_subres_pomove_csr
2619: l_return_status := FND_API.G_RET_STS_ERROR ;
2620:
2621: END LOOP ;
2622:
2623: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2624: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2625: THEN
2626:
2627: FOR l_rev_subres_pomove_rec IN l_rev_subres_pomove_csr
2650: -- Schedule Sequence Number and Sub Group Num
2651: -- Check if there are associated sub resources to OLD
2652: -- Substitute Group Number
2653: --
2654: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2655: ('Check if you can change Schedule Seq Num. . . . ' || l_return_status) ;
2656: END IF ;
2657:
2658: IF ( nvl(l_rev_op_resource_rec.substitute_group_number, l_rev_op_res_unexp_rec.substitute_group_number)
2679: l_return_status := FND_API.G_RET_STS_ERROR ;
2680:
2681: END LOOP ;
2682:
2683: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2684: AND l_rev_op_resource_rec.acd_type = l_ACD_CHANGE
2685: THEN
2686: FOR l_rev_subres_exist_rec IN l_rev_subres_exist_csr
2687: ( p_op_seq_id => l_rev_op_res_unexp_rec.operation_sequence_id
2709:
2710: END IF ; -- Transation: UPDATE
2711:
2712:
2713: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2714: ('End of Validation specific to the Transaction Type of Update : ' || l_return_status) ;
2715: END IF ;
2716:
2717: --
2717: --
2718: -- Validateion for Transaction Type : Create and Update
2719: --
2720: IF l_rev_op_resource_rec.transaction_type IN
2721: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
2722: THEN
2723:
2724: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2725: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
2720: IF l_rev_op_resource_rec.transaction_type IN
2721: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
2722: THEN
2723:
2724: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2725: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
2726: END IF ;
2727:
2728: --
2729: -- Resource Id
2730: -- Check if valid resource id exists and belongs to depatment
2731: --
2732: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2733: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2734: OR l_rev_op_res_unexp_rec.resource_id <> p_old_rev_op_res_unexp_rec.resource_id
2735: )
2736: THEN
2737:
2757: l_return_status := FND_API.G_RET_STS_ERROR ;
2758:
2759: END IF ;
2760:
2761: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2762: ('Check if Resource is valid. . . . ' || l_return_status) ;
2763: END IF ;
2764:
2765: END IF ;
2769: -- Activity Id
2770: -- Check if Activity is enabled
2771: --
2772: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2773: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2774: OR (NVL(l_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM)
2775: <> NVL(p_old_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM))
2776: )
2777: AND ( l_rev_op_res_unexp_rec.activity_id IS NOT NULL AND
2777: AND ( l_rev_op_res_unexp_rec.activity_id IS NOT NULL AND
2778: l_rev_op_res_unexp_rec.activity_id <> FND_API.G_MISS_NUM )
2779: THEN
2780:
2781: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2782: ('Activity_Id : ' || to_char(l_rev_op_res_unexp_rec.activity_id)) ;
2783: END IF ;
2784:
2785: /* Call Val_Activity_Id */
2804: l_return_status := FND_API.G_RET_STS_ERROR ;
2805:
2806: END IF ;
2807:
2808: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2809: ('Check if Activity is valid. . . . ' || l_return_status) ;
2810: END IF ;
2811:
2812: END IF ;
2817: -- Setup Id
2818: -- Check if Setup Id is valid on this operation resource
2819: --
2820: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2821: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2822: OR (NVL(l_rev_op_res_unexp_rec.setup_id , FND_API.G_MISS_NUM)
2823: <> NVL(p_old_rev_op_res_unexp_rec.setup_id, FND_API.G_MISS_NUM))
2824: )
2825: AND ( l_rev_op_res_unexp_rec.setup_id IS NOT NULL AND
2825: AND ( l_rev_op_res_unexp_rec.setup_id IS NOT NULL AND
2826: l_rev_op_res_unexp_rec.setup_id <> FND_API.G_MISS_NUM )
2827: THEN
2828:
2829: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2830: ('Setup Id : ' || to_char(l_rev_op_res_unexp_rec.setup_id)) ;
2831: END IF ;
2832:
2833: /* Call Val_Activity_Id */
2864: l_return_status := FND_API.G_RET_STS_ERROR ;
2865:
2866: END IF ;
2867:
2868: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2869: ('Check if Setup is valid. . . . ' || l_return_status) ;
2870: END IF ;
2871:
2872: END IF ;
2923: l_return_status := FND_API.G_RET_STS_ERROR ;
2924:
2925: END IF ;
2926:
2927: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2928: ('Check if Schedule flag is valid. . . . ' || l_return_status) ;
2929: END IF ;
2930:
2931: END IF ;
2936: -- an operation
2937: --
2938:
2939: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2940: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2941: OR l_rev_op_resource_rec.schedule_flag <> p_old_rev_op_resource_rec.schedule_flag
2942: )
2943: THEN
2944: /* Call Val_Scheduled_Resource */
2980: END IF ;
2981: l_return_status := FND_API.G_RET_STS_ERROR ;
2982: END IF ; -- If Error
2983:
2984: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2985: ('Check next or prior scheduled resource. . . . ' || l_return_status) ;
2986: END IF ;
2987:
2988: END IF ;
2992: -- Autocharge type cannot be PO Recedipt if the
2993: -- department has no location.
2994: --
2995: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2996: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2997: OR l_rev_op_resource_rec.autocharge_type <> p_old_rev_op_resource_rec.autocharge_type
2998: )
2999: AND l_rev_op_resource_rec.autocharge_type = l_PO_RECEIPT
3000: THEN
3020: l_return_status := FND_API.G_RET_STS_ERROR ;
3021:
3022: END IF ;
3023:
3024: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3025: ('Check if Autocharge type is valid. . . . ' || l_return_status) ;
3026: END IF ;
3027:
3028: END IF ;
3033: -- Autocharge Type cannot be PO Move or PO Receipt if the resource
3034: -- is non-OSP resource
3035: --
3036: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3037: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3038: OR l_rev_op_resource_rec.autocharge_type <> p_old_rev_op_resource_rec.autocharge_type
3039: )
3040: AND l_rev_op_resource_rec.autocharge_type IN (l_PO_RECEIPT, l_PO_MOVE )
3041: THEN
3063: l_return_status := FND_API.G_RET_STS_ERROR ;
3064:
3065: END IF ;
3066:
3067: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3068: ('Check if resource is OSP resource when autocharge is PO Move or PO Receipt. . . . ' || l_return_status) ;
3069: END IF ;
3070:
3071: END IF ;
3074: -- Autocharge Type
3075: -- Cannot have more than one PO Move per an operation
3076: --
3077: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3078: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3079: OR l_rev_op_resource_rec.autocharge_type <> p_old_rev_op_resource_rec.autocharge_type
3080: )
3081: AND l_rev_op_resource_rec.autocharge_type = l_PO_MOVE
3082: THEN
3104: l_return_status := FND_API.G_RET_STS_ERROR ;
3105: END IF ;
3106:
3107:
3108: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3109: ('Check if parent operation can have the Po Move resource . . . . ' || l_return_status) ;
3110: END IF ;
3111:
3112: END IF ;
3116: -- Usage Rate or Amount
3117: -- Check round values for Usage Rate or Amount and the Inverse.
3118: --
3119: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3120: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3121: OR l_rev_op_resource_rec.usage_rate_or_amount
3122: <> p_old_rev_op_resource_rec.usage_rate_or_amount
3123: OR l_rev_op_resource_rec.usage_rate_or_amount_inverse
3124: <> p_old_rev_op_resource_rec.usage_rate_or_amount_inverse
3148: l_return_status := FND_API.G_RET_STS_ERROR ;
3149:
3150: END IF ;
3151:
3152: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3153: ('Check round value for Usage Rate or Amount and the Inverse . . . ' || l_return_status) ;
3154: END IF ;
3155:
3156: END IF ;
3164: -- comment out : 3. Resource UOM Class = Hour UOM Class
3165: -- Form is allowed case 3.
3166: --
3167: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3168: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3169: OR l_rev_op_resource_rec.usage_rate_or_amount
3170: <> p_old_rev_op_resource_rec.usage_rate_or_amount
3171: OR l_rev_op_resource_rec.usage_rate_or_amount_inverse
3172: <> p_old_rev_op_resource_rec.usage_rate_or_amount_inverse
3217: l_return_status := FND_API.G_RET_STS_ERROR ;
3218:
3219: END IF ;
3220:
3221: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3222: ('Check negative usage rate. . . . ' || l_return_status) ;
3223: END IF ;
3224:
3225: END IF ;
3235: */ -- Comment Out validation for priciple flag
3236: /* Uncommented by deepu. Validation for Principal flag is required for patchset I Bug 2689249 */
3237:
3238: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3239: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3240: OR l_rev_op_resource_rec.principle_flag
3241: <> p_old_rev_op_resource_rec.principle_flag
3242: OR nvl(l_rev_op_resource_rec.substitute_group_number, l_rev_op_res_unexp_rec.substitute_group_number)
3243: <> nvl(p_old_rev_op_resource_rec.substitute_group_number, p_old_rev_op_res_unexp_rec.substitute_group_number)
3269: l_return_status := FND_API.G_RET_STS_ERROR ;
3270:
3271: END IF ;
3272:
3273: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3274: ('Check principal flag . . . . ' || l_return_status) ;
3275: END IF ;
3276:
3277: END IF ;
3279: --
3280: -- Validate SSN
3281: --
3282: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3283: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3284: OR l_rev_op_resource_rec.schedule_sequence_number <> p_old_rev_op_resource_rec.schedule_sequence_number
3285: OR l_rev_op_resource_rec.substitute_group_number <> p_old_rev_op_resource_rec.substitute_group_number)
3286: THEN
3287: -- Call Val_schedule_seq_num
3319: /* bug:4638695 For an operation, do not allow same resource to be added more than once with same SSN */
3320:
3321: IF (
3322: ( NVL(l_rev_op_resource_rec.acd_type, l_ACD_ADD) = l_ACD_ADD
3323: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
3324: )
3325: OR l_rev_op_resource_rec.schedule_sequence_number <> p_old_rev_op_resource_rec.schedule_sequence_number
3326: OR
3327: ( p_old_rev_op_resource_rec.schedule_sequence_number IS NULL
3375:
3376: IF ( l_rev_op_resource_rec.schedule_flag <> l_NO_SCHEDULE)
3377: AND
3378: ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3379: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
3380: OR l_rev_op_resource_rec.schedule_sequence_number <> p_old_rev_op_resource_rec.schedule_sequence_number
3381: OR (p_old_rev_op_resource_rec.schedule_sequence_number is null
3382: and l_rev_op_resource_rec.schedule_sequence_number is not null)
3383: OR (p_old_rev_op_resource_rec.schedule_sequence_number is not null
3431:
3432: END IF ; -- Transaction Type : Create and Update
3433:
3434:
3435: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3436: ('Entity Validation was processed. . . ' || l_return_status);
3437: END IF ;
3438:
3439:
3451:
3452:
3453: EXCEPTION
3454: WHEN OTHERS THEN
3455: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3456: ('Some unknown error in Entity Validation . . .' || SQLERRM );
3457: END IF ;
3458:
3459: