[Home] [Help]
1740: WHERE bor.alternate_routing_designator IS NOT NULL
1741: AND eri.routing_sequence_id = bor.routing_sequence_id(+)
1742: AND eri.routing_sequence_id IS NOT NULL
1743: AND eri.bill_sequence_id IS NULL
1744: AND NVL(eri.from_end_item_unit_number,FND_API.G_MISS_CHAR)
1745: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR )
1746: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1747: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1748: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1741: AND eri.routing_sequence_id = bor.routing_sequence_id(+)
1742: AND eri.routing_sequence_id IS NOT NULL
1743: AND eri.bill_sequence_id IS NULL
1744: AND NVL(eri.from_end_item_unit_number,FND_API.G_MISS_CHAR)
1745: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR )
1746: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1747: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1748: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1749: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1742: AND eri.routing_sequence_id IS NOT NULL
1743: AND eri.bill_sequence_id IS NULL
1744: AND NVL(eri.from_end_item_unit_number,FND_API.G_MISS_CHAR)
1745: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR )
1746: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1747: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1748: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1749: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1750: AND TRUNC(eri.scheduled_date) = TRUNC(p_effective_date)
1743: AND eri.bill_sequence_id IS NULL
1744: AND NVL(eri.from_end_item_unit_number,FND_API.G_MISS_CHAR)
1745: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR )
1746: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1747: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1748: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1749: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1750: AND TRUNC(eri.scheduled_date) = TRUNC(p_effective_date)
1751: AND eri.change_notice = p_change_notice
1744: AND NVL(eri.from_end_item_unit_number,FND_API.G_MISS_CHAR)
1745: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR )
1746: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1747: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1748: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1749: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1750: AND TRUNC(eri.scheduled_date) = TRUNC(p_effective_date)
1751: AND eri.change_notice = p_change_notice
1752: AND eri.organization_id = p_organization_id
1745: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR )
1746: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1747: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1748: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1749: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1750: AND TRUNC(eri.scheduled_date) = TRUNC(p_effective_date)
1751: AND eri.change_notice = p_change_notice
1752: AND eri.organization_id = p_organization_id
1753: AND eri.revised_item_id = p_revised_item_id ;
1923: WHERE bom.alternate_bom_designator IS NOT NULL
1924: AND eri.bill_sequence_id = bom.bill_sequence_id(+)
1925: AND eri.bill_sequence_id IS NOT NULL
1926: AND eri.routing_sequence_id IS NULL
1927: AND NVL(eri.from_end_item_unit_number, FND_API.G_MISS_CHAR)
1928: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1929: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1930: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1931: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1924: AND eri.bill_sequence_id = bom.bill_sequence_id(+)
1925: AND eri.bill_sequence_id IS NOT NULL
1926: AND eri.routing_sequence_id IS NULL
1927: AND NVL(eri.from_end_item_unit_number, FND_API.G_MISS_CHAR)
1928: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1929: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1930: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1931: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1932: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1925: AND eri.bill_sequence_id IS NOT NULL
1926: AND eri.routing_sequence_id IS NULL
1927: AND NVL(eri.from_end_item_unit_number, FND_API.G_MISS_CHAR)
1928: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1929: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1930: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1931: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1932: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1933: AND TRUNC(eri.scheduled_date) = trunc(p_effective_date)
1926: AND eri.routing_sequence_id IS NULL
1927: AND NVL(eri.from_end_item_unit_number, FND_API.G_MISS_CHAR)
1928: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1929: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1930: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1931: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1932: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1933: AND TRUNC(eri.scheduled_date) = trunc(p_effective_date)
1934: AND eri.change_notice = p_change_notice
1927: AND NVL(eri.from_end_item_unit_number, FND_API.G_MISS_CHAR)
1928: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1929: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1930: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1931: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1932: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1933: AND TRUNC(eri.scheduled_date) = trunc(p_effective_date)
1934: AND eri.change_notice = p_change_notice
1935: AND eri.organization_id = p_organization_id
1928: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1929: AND NVL(eri.new_item_revision,FND_API.G_MISS_CHAR)
1930: = NVL(p_new_item_revision ,FND_API.G_MISS_CHAR)
1931: AND NVL(eri.new_routing_revision,FND_API.G_MISS_CHAR)
1932: = NVL(p_new_routing_revsion,FND_API.G_MISS_CHAR)
1933: AND TRUNC(eri.scheduled_date) = trunc(p_effective_date)
1934: AND eri.change_notice = p_change_notice
1935: AND eri.organization_id = p_organization_id
1936: AND eri.revised_item_id = p_revised_item_id ;
1987: IS
1988: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1989: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1990: BEGIN
1991: x_return_status := FND_API.G_RET_STS_SUCCESS;
1992: l_Token_Tbl(1).Token_name := 'REVISED_ITEM_NAME';
1993: l_Token_Tbl(1).Token_Value := p_revised_item_Rec.revised_item_name;
1994:
1995: BOM_Globals.Set_Require_Item_Rev
1998: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
1999: Null;
2000: ELSE
2001: IF ( p_revised_item_rec.new_revised_item_revision IS NULL OR
2002: p_revised_item_rec.new_revised_item_revision = FND_API.G_MISS_CHAR
2003: ) AND
2004: NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1
2005: THEN
2006: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2011: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2012: , p_Token_Tbl => l_Token_Tbl
2013: );
2014: END IF;
2015: x_return_status := FND_API.G_RET_STS_ERROR;
2016: END IF;
2017: END IF;
2018:
2019: IF NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1 AND
2017: END IF;
2018:
2019: IF NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1 AND
2020: p_revised_item_rec.updated_revised_item_revision =
2021: FND_API.G_MISS_CHAR
2022: AND
2023: p_revised_item_rec.alternate_bom_code IS NULL AND
2024: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
2025: THEN
2031: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2032: , p_Token_Tbl => l_Token_Tbl
2033: );
2034: END IF;
2035: x_return_status := FND_API.G_RET_STS_ERROR;
2036: END IF;
2037:
2038: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2039:
2062: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2063: , x_Return_Status OUT NOCOPY VARCHAR2
2064: )
2065: IS
2066: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2067: l_new_revision_status NUMBER := 0;
2068: l_assembly_type NUMBER := 0;
2069: l_err_text VARCHAR2(2000) := NULL;
2070: l_current_item_revision VARCHAR2(3);
2092: FROM eng_revised_items
2093: WHERE revised_item_id = p_rev_item_unexp_rec.revised_item_id
2094: AND from_end_item_unit_number = NVL(p_revised_item_rec.New_From_End_Item_Unit_Number,
2095: (NVL(p_revised_item_rec.From_End_Item_Unit_Number,
2096: FND_API.G_MISS_NUM)))
2097: AND scheduled_date = NVL(p_revised_item_rec.New_Effective_Date,
2098: p_revised_item_rec.Start_Effective_Date)
2099: AND new_item_revision = NVL(p_revised_item_rec.updated_revised_item_revision,
2100: (NVL(p_revised_item_rec.new_revised_item_revision,
2097: AND scheduled_date = NVL(p_revised_item_rec.New_Effective_Date,
2098: p_revised_item_rec.Start_Effective_Date)
2099: AND new_item_revision = NVL(p_revised_item_rec.updated_revised_item_revision,
2100: (NVL(p_revised_item_rec.new_revised_item_revision,
2101: FND_API.G_MISS_NUM)))
2102: AND organization_id = p_rev_item_unexp_rec.organization_id
2103: AND change_notice = p_revised_item_rec.eco_name;
2104:
2105: l_ECO_approved NUMBER := 0;
2125: SELECT alternate_bom_designator
2126: FROM bom_bill_of_materials
2127: WHERE bill_sequence_id =
2128: nvl(p_rev_item_unexp_rec.bill_sequence_id,
2129: FND_API.G_MISS_NUM);
2130:
2131: l_product_family BOOLEAN := FALSE;
2132: CURSOR c_CheckItemProductFamily IS
2133: SELECT 'Product Family'
2325: IS
2326: SELECT alternate_routing_designator
2327: FROM BOM_OPERATIONAL_ROUTINGS
2328: WHERE routing_sequence_id = NVL( p_rev_item_unexp_rec.routing_sequence_id
2329: , FND_API.G_MISS_NUM );
2330:
2331:
2332: /*******************************************************************
2333: --End of Cursor Definition Added by MK on 08/26/2000
2416: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2417: , p_Token_Tbl => l_Token_Tbl
2418: );
2419: END IF;
2420: l_return_status := FND_API.G_RET_STS_ERROR;
2421: END IF;
2422: IF BOM_Globals.get_debug = 'Y' THEN
2423: error_handler.write_debug('After check if rev item is unit conrolled in new eco type. . . the return status : ' ||
2424: l_Return_Status );
2449: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2450: , p_Token_Tbl => l_Token_Tbl
2451: );
2452: END IF;
2453: l_return_status := FND_API.G_RET_STS_ERROR;
2454: END IF;
2455:
2456: IF BOM_Globals.get_debug = 'Y' THEN
2457: error_handler.write_debug('After check new eco type attributes, the return status is ' ||
2481: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2482: , p_Token_Tbl => l_Token_Tbl
2483: );
2484: END IF;
2485: l_return_status := FND_API.G_RET_STS_ERROR;
2486: END IF;
2487:
2488: IF BOM_Globals.get_debug = 'Y' THEN
2489: error_handler.write_debug('After check lot number and type, the return status is ' ||
2508: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2509: , p_Token_Tbl => l_Token_Tbl
2510: );
2511: END IF;
2512: l_return_status := FND_API.G_RET_STS_ERROR;
2513: END IF;
2514:
2515: IF BOM_Globals.get_debug = 'Y' THEN
2516: error_handler.write_debug('After check wip id, the return status is ' || l_Return_Status);
2534: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2535: , p_Token_Tbl => l_Token_Tbl
2536: );
2537: END IF;
2538: l_return_status := FND_API.G_RET_STS_ERROR;
2539: END IF;
2540:
2541: IF BOM_Globals.get_debug = 'Y' THEN
2542: error_handler.write_debug('After check work order, the return status is ' || l_Return_Status);
2561: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2562: , p_Token_Tbl => l_Token_Tbl
2563: );
2564: END IF;
2565: l_return_status := FND_API.G_RET_STS_ERROR;
2566: END IF;
2567:
2568: IF BOM_Globals.get_debug = 'Y' THEN
2569: error_handler.write_debug('After check type and cumu, the return status is ' ||
2588: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2589: , p_Token_Tbl => l_Token_Tbl
2590: );
2591: END IF;
2592: l_return_status := FND_API.G_RET_STS_ERROR;
2593: END IF;
2594:
2595: IF BOM_Globals.get_debug = 'Y' THEN
2596: error_handler.write_debug('After check cumulative qty and from/to id, the return status is ' ||
2616: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2617: , p_Token_Tbl => l_Token_Tbl
2618: );
2619: END IF;
2620: l_return_status := FND_API.G_RET_STS_ERROR;
2621: END IF;
2622:
2623: IF BOM_Globals.get_debug = 'Y' THEN
2624: error_handler.write_debug('After check work order and cumulative qty, the return status is ' ||
2648: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2649: , p_Token_Tbl => l_Token_Tbl
2650: );
2651: END IF;
2652: l_return_status := FND_API.G_RET_STS_ERROR;
2653:
2654: /*************************************************************
2655: -- Validation for ECO Lot
2656: -- Check if there is unreleased work order with lot number
2675: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2676: , p_Token_Tbl => l_Token_Tbl
2677: );
2678: END IF;
2679: l_return_status := FND_API.G_RET_STS_ERROR;
2680: END LOOP ;
2681: END IF ;
2682: END IF ;
2683:
2718: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2719: , p_Token_Tbl => l_Token_Tbl
2720: );
2721: END IF;
2722: l_return_status := FND_API.G_RET_STS_ERROR;
2723: ELSE
2724: IF p_revised_item_rec.from_cumulative_quantity > l_wipjob_for_eco_cum_rec.start_quantity
2725: OR p_revised_item_rec.from_cumulative_quantity < 0
2726: THEN
2735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2736: , p_Token_Tbl => l_Token_Tbl
2737: );
2738: END IF;
2739: l_return_status := FND_API.G_RET_STS_ERROR;
2740: END IF ;
2741:
2742: IF p_revised_item_rec.start_effective_date > l_wipjob_for_eco_cum_rec.scheduled_start_date
2743: THEN
2752: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2753: , p_Token_Tbl => l_Token_Tbl
2754: );
2755: END IF;
2756: l_return_status := FND_API.G_RET_STS_ERROR;
2757: END IF ;
2758: END IF ;
2759: CLOSE l_wipjob_for_eco_cum_csr ;
2760: END IF ;
2797: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2798: , p_Token_Tbl => l_Token_Tbl
2799: );
2800: END IF;
2801: l_return_status := FND_API.G_RET_STS_ERROR;
2802: END LOOP ;
2803:
2804: IF BOM_Globals.get_debug = 'Y' THEN
2805: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2844: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2845: , p_Token_Tbl => l_Token_Tbl
2846: );
2847: END IF;
2848: l_return_status := FND_API.G_RET_STS_ERROR;
2849:
2850: ELSIF
2851: (p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE OR
2852: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE )
2864: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2865: , p_Token_Tbl => l_Token_Tbl
2866: );
2867: END IF;
2868: l_return_status := FND_API.G_RET_STS_ERROR;
2869: END IF ;
2870:
2871:
2872: /*********************************************************************
2912: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2913: , p_Token_Tbl => l_Token_Tbl
2914: );
2915: END IF;
2916: l_return_status := FND_API.G_RET_STS_ERROR;
2917: END IF ;
2918: close l_rtg_header_csr;
2919: END IF ;
2920:
2953: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2954: , p_Token_Tbl => l_Token_Tbl
2955: );
2956: END IF;
2957: l_return_status := FND_API.G_RET_STS_ERROR;
2958:
2959: IF Bom_Globals.Get_Debug = 'Y' THEN
2960: Error_Handler.Write_Debug('After check if alternate code is changed, the return status is ' ||
2961: l_Return_Status);
2993: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2994: , p_Token_Tbl => l_Token_Tbl
2995: );
2996: END IF;
2997: l_return_status := FND_API.G_RET_STS_ERROR;
2998: END IF;
2999: **********************************************************************/
3000:
3001: l_token_tbl.delete;
3009: -- if the revised item is PTO item, Planning Item ,Not Bom Allowed
3010: -- or referencing a common rouitng.
3011: **********************************************************************/
3012: IF((p_revised_item_rec.new_routing_revision IS NOT NULL AND
3013: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR) OR
3014: (p_revised_item_rec.updated_routing_revision IS NOT NULL AND
3015: p_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR) OR
3016: ( p_revised_item_rec.completion_subinventory IS NOT NULL AND
3017: p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR )OR
3011: **********************************************************************/
3012: IF((p_revised_item_rec.new_routing_revision IS NOT NULL AND
3013: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR) OR
3014: (p_revised_item_rec.updated_routing_revision IS NOT NULL AND
3015: p_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR) OR
3016: ( p_revised_item_rec.completion_subinventory IS NOT NULL AND
3017: p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR )OR
3018: (p_revised_item_rec.completion_location_name IS NOT NULL AND
3019: p_revised_item_rec.completion_location_name <> FND_API.G_MISS_CHAR )
3013: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR) OR
3014: (p_revised_item_rec.updated_routing_revision IS NOT NULL AND
3015: p_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR) OR
3016: ( p_revised_item_rec.completion_subinventory IS NOT NULL AND
3017: p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR )OR
3018: (p_revised_item_rec.completion_location_name IS NOT NULL AND
3019: p_revised_item_rec.completion_location_name <> FND_API.G_MISS_CHAR )
3020: ) AND
3021: Not Val_Rev_Item_for_Rtg( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3015: p_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR) OR
3016: ( p_revised_item_rec.completion_subinventory IS NOT NULL AND
3017: p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR )OR
3018: (p_revised_item_rec.completion_location_name IS NOT NULL AND
3019: p_revised_item_rec.completion_location_name <> FND_API.G_MISS_CHAR )
3020: ) AND
3021: Not Val_Rev_Item_for_Rtg( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3022: , p_organization_id => p_rev_item_unexp_rec.organization_id
3023: )
3021: Not Val_Rev_Item_for_Rtg( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3022: , p_organization_id => p_rev_item_unexp_rec.organization_id
3023: )
3024: AND ( ((p_revised_item_rec.new_routing_revision IS NOT NULL) AND
3025: (p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR))
3026: OR (p_revised_item_rec.updated_routing_revision IS NOT NULL AND
3027: p_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR)
3028: OR p_revised_item_rec.ctp_flag <> Bom_Default_Rtg_Header.Get_Ctp_Flag
3029: OR p_revised_item_rec.completion_subinventory IS NOT NULL
3023: )
3024: AND ( ((p_revised_item_rec.new_routing_revision IS NOT NULL) AND
3025: (p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR))
3026: OR (p_revised_item_rec.updated_routing_revision IS NOT NULL AND
3027: p_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR)
3028: OR p_revised_item_rec.ctp_flag <> Bom_Default_Rtg_Header.Get_Ctp_Flag
3029: OR p_revised_item_rec.completion_subinventory IS NOT NULL
3030: OR p_revised_item_rec.completion_location_name IS NOT NULL
3031: OR p_revised_item_rec.priority IS NOT NULL
3042: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3043: , p_Token_Tbl => l_Token_Tbl
3044: );
3045: END IF;
3046: l_return_status := FND_API.G_RET_STS_ERROR;
3047:
3048: IF Bom_Globals.Get_Debug = 'Y' THEN
3049: Error_Handler.Write_Debug('After check if a rtg can be created for this rev item, the return status is ' || l_Return_Status);
3050: END IF;
3069: , p_Token_Tbl => l_Token_Tbl
3070: );
3071:
3072: END IF;
3073: l_return_status := FND_API.G_RET_STS_ERROR;
3074: ELSIF p_revised_item_rec.transaction_type = ENG_Globals.G_OPR_UPDATE AND
3075: p_revised_item_rec.alternate_bom_code IS NOT NULL AND
3076: p_revised_item_rec.updated_routing_revision IS NOT NULL
3077: THEN
3083: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3084: , p_Token_Tbl => l_Token_Tbl
3085: );
3086: END IF;
3087: l_return_status := FND_API.G_RET_STS_ERROR;
3088: END IF;
3089:
3090: IF Bom_Globals.Get_Debug = 'Y' THEN
3091: Error_Handler.Write_Debug('After checking rtg revision is null when alt code is not null, the return status is ' || l_return_status );
3110: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3111: , p_Token_Tbl => l_Token_Tbl
3112: );
3113: END IF;
3114: l_return_status := FND_API.G_RET_STS_ERROR;
3115:
3116: END IF;
3117:
3118: IF BOM_Globals.get_debug = 'Y' THEN
3232: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3233: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3234: , p_Token_Tbl => l_Token_Tbl );
3235: END IF;
3236: l_return_status := FND_API.G_RET_STS_ERROR;
3237: ELSIF l_new_revision_status = 2
3238: THEN
3239: l_token_tbl.delete;
3240:
3264: , p_message_type => 'E'
3265: );
3266: END IF;
3267:
3268: l_return_status := FND_API.G_RET_STS_ERROR;
3269: ELSIF l_new_revision_status = 3
3270: THEN
3271: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3272: THEN
3280: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3281: , p_Token_Tbl => l_Token_Tbl
3282: );
3283: END IF;
3284: l_return_status := FND_API.G_RET_STS_ERROR;
3285: END IF;
3286: END IF;
3287:
3288: IF BOM_Globals.get_debug = 'Y' THEN
3316: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3317: , p_Token_Tbl => l_Token_Tbl
3318: );
3319: END IF;
3320: l_return_status := FND_API.G_RET_STS_ERROR;
3321: END IF ;
3322:
3323: IF BOM_Globals.get_debug = 'Y' THEN
3324: error_handler.write_debug('After check ctp flag, the return status is ' || l_Return_Status);
3349: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3350: , p_Token_Tbl => l_Token_Tbl
3351: );
3352: END IF;
3353: l_return_status := FND_API.G_RET_STS_ERROR;
3354: END IF ;
3355:
3356: IF BOM_Globals.get_debug = 'Y' THEN
3357: error_handler.write_debug('After check priority, the return status is ' || l_Return_Status);
3377: )
3378: OR p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3379: )
3380: AND ( p_revised_item_rec.completion_subinventory IS NULL
3381: OR p_revised_item_rec.completion_subinventory = FND_API.G_MISS_CHAR)
3382: THEN
3383:
3384: IF Bom_Globals.Get_Debug = 'Y' THEN
3385: Error_Handler.Write_Debug('Inside the process when subinventory is null' ) ;
3385: Error_Handler.Write_Debug('Inside the process when subinventory is null' ) ;
3386: END IF;
3387:
3388: IF p_rev_item_unexp_rec.completion_locator_id IS NOT NULL
3389: AND p_rev_item_unexp_rec.completion_locator_id <> FND_API.G_MISS_NUM
3390: -- OR p_rev_item_unexp_rec.completion_locator_id <> FND_API.G_MISS_NUM
3391: -- updated by MK on 11/15/00
3392: THEN
3393: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME' ;
3386: END IF;
3387:
3388: IF p_rev_item_unexp_rec.completion_locator_id IS NOT NULL
3389: AND p_rev_item_unexp_rec.completion_locator_id <> FND_API.G_MISS_NUM
3390: -- OR p_rev_item_unexp_rec.completion_locator_id <> FND_API.G_MISS_NUM
3391: -- updated by MK on 11/15/00
3392: THEN
3393: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME' ;
3394: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3400: , p_token_tbl => l_token_tbl
3401: , p_mesg_token_tbl => l_mesg_token_tbl
3402: , x_mesg_token_tbl => l_mesg_token_tbl
3403: );
3404: l_return_status := FND_API.G_RET_STS_ERROR;
3405: END IF;
3406:
3407: -- Check if Subinventory exists
3408: ELSIF
3412: )
3413: OR p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3414: )
3415: AND ( p_revised_item_rec.completion_subinventory IS NOT NULL
3416: OR p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR)
3417: THEN
3418:
3419: IF Bom_Globals.Get_Debug = 'Y' THEN
3420: Error_Handler.Write_Debug('Inside the process when subinventory is not null' ) ;
3485: , p_token_tbl => l_token_tbl
3486: , p_mesg_token_tbl => l_mesg_token_tbl
3487: , x_mesg_token_tbl => l_mesg_token_tbl
3488: ) ;
3489: l_return_status := FND_API.G_RET_STS_ERROR;
3490: ELSE
3491: CLOSE c_Restrict_SubInv_Trk;
3492:
3493: END IF;
3522: , p_token_tbl => l_token_tbl
3523: , p_mesg_token_tbl => l_mesg_token_tbl
3524: , x_mesg_token_tbl => l_mesg_token_tbl
3525: ) ;
3526: l_return_status := FND_API.G_RET_STS_ERROR;
3527: ELSE
3528: CLOSE c_Restrict_SubInv_Asset ;
3529: END IF;
3530:
3556: , p_token_tbl => l_token_tbl
3557: , p_mesg_token_tbl => l_mesg_token_tbl
3558: , x_mesg_token_tbl => l_mesg_token_tbl
3559: ) ;
3560: l_return_status := FND_API.G_RET_STS_ERROR;
3561: ELSE
3562: CLOSE c_Restrict_SubInv_Trk;
3563: END IF;
3564:
3594: , p_token_tbl => l_token_tbl
3595: , p_mesg_token_tbl => l_mesg_token_tbl
3596: , x_mesg_token_tbl => l_mesg_token_tbl
3597: ) ;
3598: l_return_status := FND_API.G_RET_STS_ERROR;
3599: ELSE
3600: CLOSE c_SubInventory_Tracked;
3601: END IF;
3602:
3628: , p_token_tbl => l_token_tbl
3629: , p_mesg_token_tbl => l_mesg_token_tbl
3630: , x_mesg_token_tbl => l_mesg_token_tbl
3631: ) ;
3632: l_return_status := FND_API.G_RET_STS_ERROR;
3633: ELSE
3634: CLOSE c_SubInventory_Asset;
3635: END IF;
3636: IF BOM_Globals.get_debug = 'Y' THEN
3660: , p_token_tbl => l_token_tbl
3661: , p_mesg_token_tbl => l_mesg_token_tbl
3662: , x_mesg_token_tbl => l_mesg_token_tbl
3663: ) ;
3664: l_return_status := FND_API.G_RET_STS_ERROR;
3665:
3666: ELSE
3667: CLOSE c_Subinventory_Tracked;
3668: END IF;
3700: NVL(p_old_rev_item_unexp_rec.completion_locator_id , 0)
3701: )
3702: OR (p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3703: AND p_revised_item_rec.completion_subinventory is not null
3704: AND p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR)
3705: )
3706: AND NOT Check_Locators( p_organization_id => p_rev_item_unexp_rec.organization_id
3707: , p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3708: , p_locator_id => p_rev_item_unexp_rec.completion_locator_id
3783: );
3784: END IF;
3785: END IF;
3786:
3787: l_return_status := FND_API.G_RET_STS_ERROR;
3788:
3789: -- Comment out by MK, already checked in validation for Sub Inv.
3790: --
3791: -- ELSIF p_revised_item_rec.completion_location_name IS NOT NULL AND
3799: -- , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3800: -- , p_Token_Tbl => l_Token_Tbl
3801: -- );
3802: -- END IF;
3803: -- l_return_status := FND_API.G_RET_STS_ERROR;
3804:
3805: IF BOM_Globals.get_debug = 'Y' THEN
3806: error_handler.write_debug('completion locator check when locator name is not null,the return status is ' ||
3807: l_Return_Status);
3862: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3863: , p_Token_Tbl => l_Token_Tbl
3864: );
3865: END IF;
3866: l_return_status := FND_API.G_RET_STS_ERROR;
3867: END IF;
3868:
3869: /*********************************************************************
3870: --
3887: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3888: , p_Token_Tbl => l_Token_Tbl
3889: );
3890: END IF;
3891: l_return_status := FND_API.G_RET_STS_ERROR;
3892:
3893: ELSIF p_revised_item_rec.use_up_plan_name IS NULL AND
3894: p_revised_item_rec.use_up_item_name IS NOT NULL AND
3895: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3902: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3903: , p_Token_Tbl => l_Token_Tbl
3904: );
3905: END IF;
3906: l_return_status := FND_API.G_RET_STS_ERROR;
3907: ELS
3908:
3909: *** End of Comment */
3910:
3924: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3925: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3926: );
3927: END IF;
3928: l_return_status := FND_API.G_RET_STS_ERROR;
3929: END IF;
3930:
3931: --
3932: -- End of check for conditionally required attributes
3944: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3945: , p_Token_Tbl => l_Token_Tbl
3946: );
3947: END IF;
3948: l_return_status := FND_API.G_RET_STS_ERROR;
3949: END LOOP;
3950:
3951: ELSIF p_control_rec.caller_type <> 'SSWA' THEN -- not required for plm
3952: -- Peform the following validation only if called thru open interface
3956: -- If the user is trying to update the revised item with new values then make sure that
3957: -- the new values are not creating a duplicate row in the table.
3958: --
3959: IF ( p_revised_item_rec.new_effective_date IS NOT NULL AND
3960: p_revised_item_rec.new_effective_date <> FND_API.G_MISS_DATE
3961: ) OR
3962: ( p_revised_item_rec.updated_revised_item_revision IS NOT NULL AND
3963: p_revised_item_rec.updated_revised_item_revision <> FND_API.G_MISS_CHAR
3964: )
3959: IF ( p_revised_item_rec.new_effective_date IS NOT NULL AND
3960: p_revised_item_rec.new_effective_date <> FND_API.G_MISS_DATE
3961: ) OR
3962: ( p_revised_item_rec.updated_revised_item_revision IS NOT NULL AND
3963: p_revised_item_rec.updated_revised_item_revision <> FND_API.G_MISS_CHAR
3964: )
3965: THEN
3966: FOR X_CheckDupUnit IN CheckDupDateUnit LOOP
3967: --
3996: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3997: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3998: , p_Token_Tbl => l_Token_Tbl
3999: );
4000: l_return_status := FND_API.G_RET_STS_ERROR;
4001: END LOOP;
4002: END IF; /* If updating revision or effective date Ends */
4003:
4004: /*********************************************************************
4022: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4023: , p_Token_Tbl => l_Token_Tbl
4024: );
4025: END IF;
4026: l_return_status := FND_API.G_RET_STS_ERROR;
4027: END IF;
4028:
4029:
4030: /*********************************************************************
4043: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4044: , p_Token_Tbl => l_Token_Tbl
4045: );
4046: END IF;
4047: l_return_status := FND_API.G_RET_STS_ERROR;
4048: END IF;
4049:
4050: /********************************************************************
4051: --
4069: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4070: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4071: );
4072: END IF;
4073: l_return_status := FND_API.G_RET_STS_ERROR;
4074: END IF;
4075:
4076: /*********************************************************************
4077: -- Added by AS on 07/06.
4094: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4095: , p_Token_Tbl => l_Token_Tbl
4096: );
4097: END IF;
4098: l_return_status := FND_API.G_RET_STS_ERROR;
4099: END IF;
4100:
4101: */
4102: /*********************************************************************
4119: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4120: , p_Token_Tbl => l_Token_Tbl
4121: );
4122: END IF;
4123: l_return_status := FND_API.G_RET_STS_ERROR;
4124: END IF;
4125:
4126: IF l_is_item_unit_controlled AND
4127: p_revised_item_rec.update_wip = 1
4139: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4140: , p_Token_Tbl => l_Token_Tbl
4141: );
4142: END IF;
4143: l_return_status := FND_API.G_RET_STS_ERROR;
4144: END IF;
4145:
4146: /**********************************************************************
4147: --
4177: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4178: , p_Token_Tbl => l_Token_Tbl
4179: );
4180: END IF;
4181: l_return_status := FND_API.G_RET_STS_ERROR;
4182: END IF;
4183: END IF;
4184: /*********************************************************************
4185: --
4188: -- Check if scheduled_date is being set to null
4189: --
4190: **********************************************************************/
4191:
4192: IF p_revised_item_rec.new_effective_date = FND_API.G_MISS_DATE AND
4193: p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_UPDATE
4194: THEN
4195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4196: THEN
4200: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4201: , p_Token_Tbl => l_Token_Tbl
4202: );
4203: END IF;
4204: l_return_status := FND_API.G_RET_STS_ERROR;
4205: END IF;
4206:
4207: END IF; -- End of code executed only if called thru open interface
4208:
4313: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4314: , p_Token_Tbl => l_Token_Tbl
4315: );
4316: END IF;
4317: l_return_status := FND_API.G_RET_STS_ERROR;
4318: END IF;
4319:
4320: --
4321: -- Early Scheduled date must be <= Scheduled Date
4349: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4350: , p_Token_Tbl => l_Token_Tbl
4351: );
4352: END IF;
4353: l_return_status := FND_API.G_RET_STS_ERROR;
4354: END IF;
4355:
4356: /********************************************************************
4357: --
4366:
4367: IF p_revised_item_rec.use_up_plan_name IS NOT NULL AND
4368: p_rev_item_unexp_rec.use_up_item_id IS NOT NULL AND -- Added by MK on 10/31/00
4369: p_revised_item_rec.start_effective_date IS NOT NULL AND
4370: p_revised_item_rec.start_effective_date <> FND_API.G_MISS_DATE AND
4371: ( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE OR
4372: ( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
4373: AND
4374: ( p_revised_item_rec.new_effective_date IS NOT NULL AND
4371: ( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE OR
4372: ( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
4373: AND
4374: ( p_revised_item_rec.new_effective_date IS NOT NULL AND
4375: p_revised_item_rec.new_effective_date <> FND_API.G_MISS_DATE
4376: )
4377: )
4378: )
4379: THEN
4427: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4428: , p_Token_Tbl => l_Token_Tbl
4429: );
4430: END IF;
4431: l_return_status := FND_API.G_RET_STS_ERROR;
4432: END IF;
4433:
4434: IF BOM_Globals.get_debug = 'Y' THEN
4435: error_handler.write_debug('After validation for shedule date, the return status is ' ||
4456: )
4457: ) AND
4458: p_rev_item_unexp_rec.use_up_item_id <>
4459: p_rev_item_unexp_rec.revised_item_id AND
4460: p_rev_item_unexp_rec.use_up_item_id <> FND_API.G_MISS_NUM
4461: THEN
4462: l_IsUseUpValid := FALSE;
4463:
4464: FOR CheckItem IN c_CheckUseUpItem
4494: END IF;
4495:
4496:
4497:
4498: l_return_status := FND_API.G_RET_STS_ERROR;
4499: END IF;
4500:
4501: IF BOM_Globals.get_debug = 'Y' THEN
4502: error_handler.write_debug('After validation for Use Up Item, the return status is '|| l_Return_Status);
4554: , p_Token_Tbl => l_Token_Tbl
4555: );
4556:
4557: END IF;
4558: l_return_status := FND_API.G_RET_STS_ERROR;
4559: END IF;
4560:
4561: /*********************************************************************
4562: -- Added by MK on 08/26/2000
4580: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4581: , p_Token_Tbl => l_Token_Tbl
4582: );
4583: END IF;
4584: l_return_status := FND_API.G_RET_STS_ERROR;
4585: END IF;
4586: -- Added by MK on 08/26/2000
4587: **********************************************************************/
4588:
4669: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4670: , p_Token_Tbl => l_Token_Tbl
4671: );
4672: END IF;
4673: l_return_status := FND_API.G_RET_STS_ERROR;
4674: ELSIF l_result = 2 THEN
4675: IF FND_MSG_PUB.Check_Msg_Level
4676: (FND_MSG_PUB.G_MSG_LVL_ERROR)
4677: THEN
4686: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4687: , p_Token_Tbl => l_Token_Tbl
4688: );
4689: END IF;
4690: l_return_status := FND_API.G_RET_STS_ERROR;
4691: END IF;
4692: END IF;
4693:
4694: IF BOM_Globals.get_debug = 'Y' THEN
4729: , p_Token_Tbl => l_Token_Tbl
4730: );
4731:
4732: END IF;
4733: l_return_status := FND_API.G_RET_STS_ERROR;
4734: END IF;
4735: END IF;
4736: -- Added by MK on 09/01/2000
4737: IF BOM_Globals.get_debug = 'Y' THEN
4779: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4780: , x_Mesg_Token_tbl => l_Mesg_Token_Tbl
4781: , p_Token_Tbl => l_Token_Tbl);
4782: END IF;
4783: l_return_status := FND_API.G_RET_STS_ERROR;
4784: END IF;
4785: IF BOM_Globals.get_debug = 'Y' THEN
4786: error_handler.write_debug('End of call type check for form, the return status is ' ||
4787: l_Return_Status);
4825: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4826: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4827: );
4828: END IF;
4829: l_return_status := FND_API.G_RET_STS_ERROR;
4830: END;
4831: END IF;
4832: IF BOM_Globals.get_debug = 'Y' THEN
4833: error_handler.write_debug('End of check call type, the return status is '|| l_Return_Status);
4868: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4869: , p_Token_Tbl => l_Token_Tbl
4870: );
4871: END IF;
4872: l_return_status := FND_API.G_RET_STS_ERROR;
4873: END IF;
4874:
4875: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is status updateable'); END IF;
4876:
4905: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4906: , p_Token_Tbl => l_Token_Tbl
4907: );
4908: END IF;
4909: l_return_status := FND_API.G_RET_STS_ERROR;
4910: END IF;
4911: **********************************************************************/
4912:
4913: l_token_tbl.delete;
4928: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4929: , p_Token_Tbl => l_Token_Tbl
4930: );
4931: END IF;
4932: l_return_status := FND_API.G_RET_STS_ERROR;
4933: ELSIF p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_UPDATE AND
4934: p_revised_item_rec.alternate_bom_code IS NOT NULL AND
4935: p_revised_item_rec.updated_revised_item_revision IS NOT NULL
4936: AND l_plm_or_erp_change <> 'PLM'
4943: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4944: , p_Token_Tbl => l_Token_Tbl
4945: );
4946: END IF;
4947: l_return_status := FND_API.G_RET_STS_ERROR;
4948: END IF;
4949: IF Bom_Globals.Get_Debug = 'Y' THEN
4950: Error_Handler.Write_Debug('After checking item revision is null when alt code is not null, the return status is ' || l_return_status );
4951: END IF;
4969: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4970: , p_Token_Tbl => l_Token_Tbl
4971: );
4972: END IF;
4973: l_return_status := FND_API.G_RET_STS_ERROR;
4974: END IF;
4975:
4976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is there current item rev. for item'); END IF;
4977:
5002: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5003: , p_Token_Tbl => l_Token_Tbl
5004: );
5005: END IF;
5006: l_return_status := FND_API.G_RET_STS_ERROR;
5007: END IF;
5008: IF BOM_Globals.get_debug = 'Y' THEN
5009: error_handler.write_debug('End of validating revision, the return status is ' || l_Return_Status);
5010: END IF;
5028: -- Using from revision instead of the current revision in case
5029: -- of PLM.
5030: IF (l_plm_or_erp_change = 'PLM' AND
5031: p_revised_item_rec.from_item_revision IS NOT NULL AND
5032: p_revised_item_rec.from_item_revision <> FND_API.G_MISS_CHAR)
5033: THEN
5034: l_from_revision := p_revised_item_rec.from_item_revision;
5035: l_message_name := 'ENG_NEW_ITEM_REV_NOT_VALID';
5036: ELSE
5092: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5093: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5094: , p_Token_Tbl => l_Token_Tbl);
5095: END IF;
5096: l_return_status := FND_API.G_RET_STS_ERROR;
5097: ELSIF l_new_revision_status = 2
5098: THEN
5099: l_token_tbl.delete;
5100:
5124: , p_token_tbl => l_token_tbl
5125: );
5126: END IF;
5127:
5128: l_return_status := FND_API.G_RET_STS_ERROR;
5129: ELSIF l_new_revision_status = 3
5130: THEN
5131: IF FND_MSG_PUB.Check_Msg_Level
5132: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5137: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5138: , p_Token_Tbl => l_Token_Tbl
5139: );
5140: END IF;
5141: l_return_status := FND_API.G_RET_STS_ERROR;
5142: END IF;
5143: END IF;
5144: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is new item revision valid'); END IF;
5145:
5185: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5186: , p_Token_Tbl => l_Token_Tbl
5187: );
5188: END IF;
5189: l_return_status := FND_API.G_RET_STS_ERROR;
5190: END IF;
5191: IF Bom_Globals.Get_Debug = 'Y'
5192: THEN
5193: Error_Handler.Write_Debug('End of validation of revisions and effectivity dates in ascending order.'
5200: IF (p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
5201: AND p_revised_item_rec.new_revised_item_revision IS NULL
5202: AND p_control_rec.caller_type <> 'FORM' AND p_control_rec.caller_type <> 'SSWA'
5203: AND p_revised_item_rec.from_item_revision IS NOT NULL
5204: AND p_revised_item_rec.from_item_revision <> FND_API.G_MISS_CHAR)
5205: THEN
5206: l_is_scheduled_date_invalid := Scheduled_Date_From_Revision (
5207: p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
5208: , p_organization_id => p_rev_item_unexp_rec.organization_id
5220: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5221: , p_Token_Tbl => l_Token_Tbl
5222: );
5223: END IF;
5224: l_return_status := FND_API.G_RET_STS_ERROR;
5225: END IF;
5226:
5227: END IF;
5228:
5254: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5255: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5256: , p_Token_Tbl => l_Token_Tbl
5257: );
5258: l_return_status :=FND_API.G_RET_STS_ERROR;
5259: END IF;
5260: END IF;
5261: -- Done validating entity
5262: IF BOM_Globals.get_debug = 'Y' THEN
5266: x_return_status := l_return_status;
5267: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5268:
5269: EXCEPTION
5270: WHEN FND_API.G_EXC_ERROR THEN
5271:
5272: x_return_status := FND_API.G_RET_STS_ERROR;
5273: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5274:
5268:
5269: EXCEPTION
5270: WHEN FND_API.G_EXC_ERROR THEN
5271:
5272: x_return_status := FND_API.G_RET_STS_ERROR;
5273: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5274:
5275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5276:
5271:
5272: x_return_status := FND_API.G_RET_STS_ERROR;
5273: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5274:
5275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5276:
5277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5278: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5279:
5273: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5274:
5275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5276:
5277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5278: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5279:
5280: WHEN OTHERS THEN
5281:
5278: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5279:
5280: WHEN OTHERS THEN
5281:
5282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5283:
5284: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5285: THEN
5286: l_err_text := G_PKG_NAME || ' : (Entity Validation) ' ||
5362:
5363:
5364: BEGIN
5365:
5366: x_return_status := FND_API.G_RET_STS_SUCCESS;
5367:
5368: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within Revised Item Check Attributes . . .'); END IF;
5369:
5370: -- Set revised item token name and value.
5391: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5392: , p_Token_Tbl => l_Token_Tbl);
5393: END IF;
5394:
5395: x_return_status := FND_API.G_RET_STS_ERROR;
5396: END IF;
5397:
5398: -- Status Type cannot be missing.
5399: IF p_revised_item_rec.status_type = FND_API.G_MISS_NUM
5395: x_return_status := FND_API.G_RET_STS_ERROR;
5396: END IF;
5397:
5398: -- Status Type cannot be missing.
5399: IF p_revised_item_rec.status_type = FND_API.G_MISS_NUM
5400: THEN
5401: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5402: THEN
5403: Error_Handler.Add_Error_Token
5406: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5407: , p_Token_Tbl => l_Token_Tbl);
5408: END IF;
5409:
5410: x_return_status := FND_API.G_RET_STS_ERROR;
5411:
5412: END IF;
5413:
5414: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Status Type Validated . . . ' ); END IF;
5423: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5424: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5425: );
5426: END IF;
5427: x_return_status := FND_API.G_RET_STS_ERROR;
5428: END IF;
5429:
5430:
5431: /* Comment out by MK on 12/06/00
5444: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5445: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5446: );
5447: END IF;
5448: x_return_status := FND_API.G_RET_STS_ERROR;
5449: END IF;
5450: */ -- Comment out
5451:
5452:
5454:
5455: IF p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND
5456: (p_revised_item_rec.from_end_item_unit_number IS NOT NULL
5457: AND
5458: p_revised_item_rec.from_end_item_unit_number <> FND_API.G_MISS_CHAR)
5459: THEN
5460: IF NOT ENG_Validate.End_Item_Unit_Number
5461: ( p_from_end_item_unit_number =>
5462: p_revised_item_rec.from_end_item_unit_number
5464: p_rev_item_unexp_rec.revised_item_id
5465: , x_err_text => l_err_text
5466: )
5467: THEN
5468: x_return_status := FND_API.G_RET_STS_ERROR;
5469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5470: THEN
5471: l_token_tbl(2).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
5472: l_token_tbl(2).token_value :=
5483:
5484: IF p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE AND
5485: (p_revised_item_rec.new_from_end_item_unit_number IS NOT NULL
5486: AND
5487: p_revised_item_rec.new_from_end_item_unit_number <> FND_API.G_MISS_CHAR)
5488: THEN
5489: IF NOT ENG_Validate.End_Item_Unit_Number
5490: ( p_from_end_item_unit_number =>
5491: p_revised_item_rec.new_from_end_item_unit_number
5493: p_rev_item_unexp_rec.revised_item_id
5494: , x_err_text => l_err_text
5495: )
5496: THEN
5497: x_return_status := FND_API.G_RET_STS_ERROR;
5498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5499: THEN
5500: l_token_tbl(2).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
5501: l_token_tbl(2).token_value :=
5516: p_old_revised_item_rec.mrp_active IS NULL )
5517: THEN
5518: IF NOT ENG_Validate.Mrp_Active(p_revised_item_rec.mrp_active ,
5519: l_err_text ) THEN
5520: x_return_status := FND_API.G_RET_STS_ERROR;
5521: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5522: THEN
5523: l_token_tbl(2).token_name := 'MRP_ACTIVE';
5524: l_token_tbl(2).token_value :=
5533:
5534: END IF;
5535: END IF;
5536:
5537: IF p_revised_item_rec.mrp_active = FND_API.G_MISS_NUM
5538: THEN
5539: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5540: THEN
5541: Error_Handler.Add_Error_Token
5545: , p_Token_Tbl => l_Token_Tbl
5546: );
5547: END IF;
5548:
5549: x_return_status := FND_API.G_RET_STS_ERROR;
5550:
5551: END IF;
5552:
5553: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('MRP Active Validated . . .'); END IF;
5558: p_old_revised_item_rec.update_wip IS NULL )
5559: THEN
5560: IF NOT ENG_Validate.Update_Wip(p_revised_item_rec.update_wip ,
5561: l_err_text ) THEN
5562: x_return_status := FND_API.G_RET_STS_ERROR;
5563: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5564: THEN
5565: l_token_tbl(2).token_name := 'UPDATE_WIP';
5566: l_token_tbl(2).token_value :=
5574: END IF;
5575: END IF;
5576: END IF;
5577:
5578: IF p_revised_item_rec.update_wip = FND_API.G_MISS_NUM
5579: THEN
5580: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5581: THEN
5582: Error_Handler.Add_Error_Token
5586: , p_Token_Tbl => l_Token_Tbl
5587: );
5588: END IF;
5589:
5590: x_return_status := FND_API.G_RET_STS_ERROR;
5591:
5592: END IF;
5593:
5594: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Update WIP Validated . . .'); END IF;
5635: Error_Handler.Write_Debug('Use_Up_Plan validation returned with an error ' ||
5636: l_err_text);
5637: END IF;
5638: END IF;
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: END IF;
5641: END IF;
5642:
5643: IF p_revised_item_rec.disposition_type IS NOT NULL AND
5663: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5664: , p_Token_Tbl => l_Token_Tbl
5665: );
5666: END IF;
5667: x_return_status := FND_API.G_RET_STS_ERROR;
5668: END IF;
5669: END IF;
5670:
5671: IF p_revised_item_rec.disposition_type = FND_API.G_MISS_NUM
5667: x_return_status := FND_API.G_RET_STS_ERROR;
5668: END IF;
5669: END IF;
5670:
5671: IF p_revised_item_rec.disposition_type = FND_API.G_MISS_NUM
5672: THEN
5673: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5674: THEN
5675: Error_Handler.Add_Error_Token
5678: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5679: , p_Token_Tbl => l_Token_Tbl
5680: );
5681: END IF;
5682: x_return_status := FND_API.G_RET_STS_ERROR;
5683: END IF;
5684:
5685:
5686: /**********************************************************************
5689: -- Added by MK 08/24/2000
5690: **********************************************************************/
5691: -- CTP Flag
5692: IF p_revised_item_rec.ctp_flag IS NOT NULL AND
5693: p_revised_item_rec.ctp_flag <> FND_API.G_MISS_NUM AND
5694: p_revised_item_rec.ctp_flag NOT IN (1,2)
5695: THEN
5696: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
5697: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5700: , p_token_tbl => l_token_tbl
5701: , p_mesg_token_tbl => l_mesg_token_tbl
5702: , x_mesg_token_tbl => l_mesg_token_tbl
5703: );
5704: x_return_status := FND_API.G_RET_STS_ERROR;
5705: END IF;
5706:
5707: -- Eco For Production Added by MK on 10/06/2000
5708: IF p_revised_item_rec.eco_for_production IS NOT NULL AND
5705: END IF;
5706:
5707: -- Eco For Production Added by MK on 10/06/2000
5708: IF p_revised_item_rec.eco_for_production IS NOT NULL AND
5709: p_revised_item_rec.eco_for_production <> FND_API.G_MISS_NUM AND
5710: p_revised_item_rec.eco_for_production NOT IN (1,2)
5711: THEN
5712: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5713: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5716: , p_token_tbl => l_token_tbl
5717: , p_mesg_token_tbl => l_mesg_token_tbl
5718: , x_mesg_token_tbl => l_mesg_token_tbl
5719: );
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: END IF;
5722:
5723: -- Missing Eco For Production Added by MK on 10/06/2000
5724: IF p_revised_item_rec.eco_for_production = FND_API.G_MISS_NUM AND
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: END IF;
5722:
5723: -- Missing Eco For Production Added by MK on 10/06/2000
5724: IF p_revised_item_rec.eco_for_production = FND_API.G_MISS_NUM AND
5725: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
5726: THEN
5727: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5728: THEN
5732: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5733: , p_Token_Tbl => l_Token_Tbl
5734: );
5735: END IF;
5736: x_return_status := FND_API.G_RET_STS_ERROR;
5737: END IF;
5738:
5739: /* Comment Out by MK Flow Routing is not supported in Current Rel
5740: IF p_revised_item_rec.mixed_model_map_flag IS NOT NULL AND
5737: END IF;
5738:
5739: /* Comment Out by MK Flow Routing is not supported in Current Rel
5740: IF p_revised_item_rec.mixed_model_map_flag IS NOT NULL AND
5741: p_revised_item_rec.mixed_model_map_flag <> FND_API.G_MISS_NUM AND
5742: p_revised_item_rec.mixed_model_map_flag NOT IN (1,2)
5743: THEN
5744: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5745: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5750: , p_token_tbl => l_token_tbl
5751: , p_mesg_token_tbl => l_mesg_token_tbl
5752: , x_mesg_token_tbl => l_mesg_token_tbl
5753: );
5754: x_return_status := FND_API.G_RET_STS_ERROR;
5755: END IF;
5756: */
5757: -- Added by MK on 08/24/2000
5758:
5759:
5760: -- Added by MK on 02/15/2001
5761: -- Validate alternate bom code
5762: IF p_revised_item_rec.alternate_bom_code IS NOT NULL AND
5763: p_revised_item_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
5764: THEN
5765:
5766: FOR check_alternate IN
5767: c_Check_Alternate
5781: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5782: , p_token_tbl => l_token_tbl
5783: );
5784:
5785: x_return_status := FND_API.G_RET_STS_ERROR;
5786: l_token_tbl.delete ;
5787: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5788: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5789:
5807: , p_token_tbl => l_token_tbl
5808: , p_mesg_token_tbl => l_mesg_token_tbl
5809: , x_mesg_token_tbl => l_mesg_token_tbl
5810: );
5811: x_return_status := FND_API.G_RET_STS_ERROR;
5812: END IF;
5813:
5814: -- Done validating attributes
5815: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5816:
5817:
5818: EXCEPTION
5819:
5820: WHEN FND_API.G_EXC_ERROR THEN
5821: x_return_status := FND_API.G_RET_STS_ERROR;
5822: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5823:
5824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5817:
5818: EXCEPTION
5819:
5820: WHEN FND_API.G_EXC_ERROR THEN
5821: x_return_status := FND_API.G_RET_STS_ERROR;
5822: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5823:
5824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5825:
5820: WHEN FND_API.G_EXC_ERROR THEN
5821: x_return_status := FND_API.G_RET_STS_ERROR;
5822: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5823:
5824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5825:
5826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5827: Error_Handler.Add_Error_Token
5828: ( p_Message_Name => NULL
5822: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5823:
5824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5825:
5826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5827: Error_Handler.Add_Error_Token
5828: ( p_Message_Name => NULL
5829: , p_Message_Text => l_Err_Text
5830: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5832: );
5833: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5834: WHEN OTHERS THEN
5835:
5836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5837:
5838: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5839: THEN
5840: l_err_text := G_PKG_NAME || ' : (Attribute Validation) ' ||
5873: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5874: )
5875: IS
5876: l_err_text VARCHAR2(2000) := NULL;
5877: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5878: check_delete NUMBER := 0;
5879: l_count1 NUMBER := 0;
5880: l_allow_rev NUMBER := 0;
5881:
5960: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5961: , p_Token_Tbl => l_Token_Tbl
5962: );
5963: END IF;
5964: l_return_status := FND_API.G_RET_STS_ERROR;
5965: END LOOP;
5966:
5967:
5968:
5984: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5985: , p_Token_Tbl => l_Token_Tbl
5986: );
5987: END IF;
5988: l_return_status := FND_API.G_RET_STS_ERROR;
5989: END LOOP;
5990: -- Added by MK on 08/26/2000
5991:
5992:
6011: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6012: , p_Token_Tbl => l_Token_Tbl
6013: );
6014: END IF;
6015: l_return_status := FND_API.G_RET_STS_ERROR;
6016: END IF;
6017:
6018: /*********************************************************************
6019: -- Added by MK on 08/26/2000
6035: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6036: , p_Token_Tbl => l_Token_Tbl
6037: );
6038: END IF;
6039: l_return_status := FND_API.G_RET_STS_ERROR;
6040: END IF;
6041: -- Added by MK on 08/26/2000
6042:
6043: -- 11.5.10E
6054: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6055: , p_Token_Tbl => l_Token_Tbl
6056: );
6057: END IF;
6058: l_return_status := FND_API.G_RET_STS_ERROR;
6059: END IF;
6060: CLOSE allow_delete_rev;
6061: -- Done with the validations
6062: x_return_status := l_return_status;
6063: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
6064:
6065: EXCEPTION
6066:
6067: WHEN FND_API.G_EXC_ERROR THEN
6068:
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070:
6071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6065: EXCEPTION
6066:
6067: WHEN FND_API.G_EXC_ERROR THEN
6068:
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070:
6071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6072:
6073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6067: WHEN FND_API.G_EXC_ERROR THEN
6068:
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070:
6071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6072:
6073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6074:
6075: WHEN OTHERS THEN
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070:
6071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6072:
6073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6074:
6075: WHEN OTHERS THEN
6076:
6077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6074:
6075: WHEN OTHERS THEN
6076:
6077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6078:
6079: IF allow_delete_rev%ISOPEN
6080: THEN
6081: CLOSE allow_delete_rev;
6174: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6175: , p_message_name => 'ENG_REV_ITEM_ALREADY_EXISTS'
6176: , p_token_tbl => l_token_tbl
6177: );
6178: l_return_status := FND_API.G_RET_STS_ERROR;
6179: ELSIF l_return_status = Eng_Globals.G_RECORD_NOT_FOUND AND
6180: p_revised_item_rec.transaction_type IN
6181: (Eng_Globals.G_OPR_UPDATE, Eng_Globals.G_OPR_DELETE)
6182: THEN
6185: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6186: , p_message_name => 'ENG_REV_ITEM_DOESNOT_EXIST'
6187: , p_token_tbl => l_token_tbl
6188: );
6189: l_return_status := FND_API.G_RET_STS_ERROR;
6190: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
6191: THEN
6192: Error_Handler.Add_Error_Token
6193: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6186: , p_message_name => 'ENG_REV_ITEM_DOESNOT_EXIST'
6187: , p_token_tbl => l_token_tbl
6188: );
6189: l_return_status := FND_API.G_RET_STS_ERROR;
6190: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
6191: THEN
6192: Error_Handler.Add_Error_Token
6193: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6194: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6198: 'Revised Item ' || p_revised_item_rec.revised_item_name
6199: , p_token_tbl => l_token_tbl
6200: );
6201: ELSE
6202: l_return_status := FND_API.G_RET_STS_SUCCESS;
6203: END IF;
6204: --Start of changes Bug no:3034642
6205:
6206: x_disable_revision :=2;
6230: p_mesg_token_tbl=> l_mesg_token_tbl,
6231: x_mesg_token_tbl=> l_mesg_token_tbl,
6232: p_token_tbl=> l_token_tbl
6233: );
6234: l_return_status := fnd_api.g_ret_sts_error;
6235: end if;
6236: end if; --end of if profile value exists
6237:
6238: --end of changes Bug no:3034642
6261: , x_Return_Status OUT NOCOPY VARCHAR2
6262: )
6263: IS
6264: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6265: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6266: l_token_tbl Error_Handler.Token_Tbl_Type;
6267:
6268: BEGIN
6269:
6343: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6344: , p_Token_Tbl => l_token_tbl
6345: );
6346:
6347: l_return_status := FND_API.G_RET_STS_ERROR;
6348: ELSIF (p_revised_item_rec.new_effective_date IS NULL) THEN
6349: -- The change is in scheduled status and the user has not given a
6350: -- value for the new scheduled date.
6351: Error_Handler.Add_Error_Token
6354: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6355: , p_Token_Tbl => l_token_tbl
6356: );
6357:
6358: l_return_status := FND_API.G_RET_STS_ERROR;
6359: ELSIF (p_revised_item_rec.new_effective_date < SYSDATE) THEN
6360: -- While rescheduling the new effective date shall not be less than
6361: -- the current date...
6362: Error_Handler.Add_Error_Token
6365: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6366: , p_Token_Tbl => l_token_tbl
6367: );
6368:
6369: l_return_status := FND_API.G_RET_STS_ERROR;
6370: end if;
6371: x_return_status := l_return_status;
6372: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
6373:
6448: l_status_valid BOOLEAN;
6449:
6450:
6451: BEGIN
6452: l_return_status := FND_API.G_RET_STS_SUCCESS;
6453:
6454: l_Token_Tbl(1).token_name := 'REVISED_ITEM_NAME';
6455: l_token_tbl(1).token_value := p_revised_item_name;
6456:
6481: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6482: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6483: , p_Token_Tbl => l_token_tbl
6484: );
6485: l_return_status := FND_API.G_RET_STS_ERROR;
6486: END IF;
6487: END LOOP;
6488: END IF;
6489:
6541: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6542: , p_Token_Tbl => l_token_tbl
6543: );
6544:
6545: l_return_status := FND_API.G_RET_STS_ERROR;
6546: END IF;
6547: END IF;
6548: -- End fix for Bug 4276451
6549: END LOOP;
6557: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6558: , p_Token_Tbl => l_token_tbl
6559: );
6560:
6561: l_return_status := FND_API.G_RET_STS_ERROR;
6562: ELSIF NVL(BOM_Globals.Is_RItem_Cancl, FALSE) = TRUE
6563: THEN
6564: Error_Handler.Add_Error_Token
6565: ( p_Message_Name => 'ENG_RIT_CANCELLED'
6566: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6567: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6568: , p_Token_Tbl => l_token_tbl
6569: );
6570: l_return_status := FND_API.G_RET_STS_ERROR;
6571: END IF;
6572:
6573:
6574:
6626: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6627: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6628: , p_Token_Tbl => l_token_tbl
6629: );
6630: l_return_status := FND_API.G_RET_STS_ERROR;
6631: ELSIF RevItem.Bom_Item_Type NOT IN
6632: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),
6633: NVL(BOM_Globals.Get_PLN_Item_Access, 0),
6634: NVL(BOM_Globals.Get_OC_Item_Access, 0) ,
6656: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6657: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6658: , p_Token_Tbl => l_token_tbl
6659: );
6660: l_return_status := FND_API.G_RET_STS_ERROR;
6661:
6662: END IF;
6663: END LOOP;
6664:
6676: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6677: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6678: , p_Token_Tbl => l_token_tbl
6679: );
6680: l_return_status := FND_API.G_RET_STS_ERROR;
6681: END IF;
6682:
6683:
6684:
6718: , p_Token_Tbl => l_Token_Tbl
6719: );
6720:
6721: END IF;
6722: l_return_status := FND_API.G_RET_STS_ERROR;
6723:
6724:
6725:
6726: /**************************************************************
6757: , p_Token_Tbl => l_Token_Tbl
6758: );
6759:
6760: END IF;
6761: l_return_status := FND_API.G_RET_STS_ERROR;
6762: END IF;
6763:
6764:
6765:
6778: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6779: , p_Token_Tbl => l_token_tbl
6780: );
6781:
6782: l_return_status := FND_API.G_RET_STS_ERROR;
6783: END LOOP;
6784: END IF;
6785: END IF ;
6786: -- Bug 4210718
6805: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6806: , p_Token_Tbl => l_token_tbl
6807: );
6808:
6809: l_return_status := FND_API.G_RET_STS_ERROR;
6810: END IF;
6811: END IF;
6812: --
6813: -- If all the access checks are satisfied then return a status of
6932: END validate_rev_items_for_sub;
6933:
6934: PROCEDURE Validate_Revised_Item (
6935: p_api_version IN NUMBER := 1.0 --
6936: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6937: , p_commit IN VARCHAR2 := FND_API.G_FALSE --
6938: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL --
6939: , p_debug IN VARCHAR2 := 'N' --
6940: , p_output_dir IN VARCHAR2 := NULL --
6933:
6934: PROCEDURE Validate_Revised_Item (
6935: p_api_version IN NUMBER := 1.0 --
6936: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6937: , p_commit IN VARCHAR2 := FND_API.G_FALSE --
6938: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL --
6939: , p_debug IN VARCHAR2 := 'N' --
6940: , p_output_dir IN VARCHAR2 := NULL --
6941: , p_debug_filename IN VARCHAR2 := 'VALREVITEMS.log' --
6934: PROCEDURE Validate_Revised_Item (
6935: p_api_version IN NUMBER := 1.0 --
6936: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6937: , p_commit IN VARCHAR2 := FND_API.G_FALSE --
6938: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL --
6939: , p_debug IN VARCHAR2 := 'N' --
6940: , p_output_dir IN VARCHAR2 := NULL --
6941: , p_debug_filename IN VARCHAR2 := 'VALREVITEMS.log' --
6942: , x_return_status OUT NOCOPY VARCHAR2 --
7022: l_msg_data VARCHAR2(32000);
7023: BEGIN
7024:
7025: -- Standard call to check for call compatibility
7026: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
7027: THEN
7028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7029: END IF;
7030:
7024:
7025: -- Standard call to check for call compatibility
7026: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
7027: THEN
7028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7029: END IF;
7030:
7031: -- Initialize message list if p_init_msg_list is set to TRUE.
7032: IF FND_API.to_Boolean(p_init_msg_list) THEN
7028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7029: END IF;
7030:
7031: -- Initialize message list if p_init_msg_list is set to TRUE.
7032: IF FND_API.to_Boolean(p_init_msg_list) THEN
7033: FND_MSG_PUB.Initialize;
7034: Error_Handler.Initialize;
7035: END IF;
7036:
7052: ENG_GLOBALS.Init_System_Info_Rec(
7053: x_mesg_token_tbl => l_mesg_token_tbl
7054: , x_return_status => l_return_status
7055: );
7056: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
7057: THEN
7058: RAISE EXC_ERR_PVT_API_MAIN;
7059: END IF;
7060: -- Initialize Unit_Effectivity flag
7323:
7324:
7325: EXCEPTION
7326: WHEN OTHERS THEN
7327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7328: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7329: THEN
7330: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
7331: END IF;