[Home] [Help]
330: BEGIN
331:
332: -- verify revised item has a valid current revision
333:
334: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validating revised item revision . . .' ||
335: p_new_item_revision);
336: END IF;
337: --11.5.10E
338: --Commented out as From revision is being supported.
342: , p_revision_date => SYSDATE
343: );*/
344: l_Curr_Rev := p_from_revision;
345:
346: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current revision. . . ' || l_Curr_Rev); END IF;
347: -- revision must be greater than the current revision
348:
349: l_Rev_Compare := BOM_REVISIONS.Compare_Revision(
350: rev1 => p_new_item_revision,
350: rev1 => p_new_item_revision,
351: rev2 => l_Curr_Rev);
352: IF l_Rev_Compare = 1 THEN
353:
354: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision not the latest . . .'); END IF;
355:
356: RETURN 1;
357: END IF;
358:
363: CLOSE c1;
364: IF l_Change_Notice IS NOT NULL
365: THEN
366:
367: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision created thru another ECO . . .'); END IF;
368: x_Change_Notice := l_Change_Notice;
369: RETURN 2;
370: END IF;
371:
536: BEGIN
537:
538: -- verify revised item has a valid current revision
539:
540: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validating revised item revision . . .' ||
541: p_new_item_revision);
542: END IF;
543: l_Curr_Rev := Get_Current_Item_Revision
544: ( p_revised_item_id => p_revised_item_id
545: , p_organization_id => p_organization_id
546: , p_revision_date => SYSDATE
547: );
548:
549: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current revision. . . ' || l_Curr_Rev); END IF;
550: -- revision must be greater than the current revision
551:
552: l_Rev_Compare := BOM_REVISIONS.Compare_Revision(
553: rev1 => p_new_item_revision,
553: rev1 => p_new_item_revision,
554: rev2 => l_Curr_Rev);
555: IF l_Rev_Compare = 1 THEN
556:
557: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision not the latest . . .'); END IF;
558:
559: RETURN 1;
560: END IF;
561:
566: CLOSE c1;
567: IF l_Change_Notice IS NOT NULL
568: THEN
569:
570: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision created thru another ECO . . .'); END IF;
571: x_Change_Notice := l_Change_Notice;
572: RETURN 2;
573: END IF;
574:
693: AND implementation_date is not null;
694: BEGIN
695:
696: -- verify revised item has a valid current revision
697: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validating routing revision . . .' ||
698: p_new_routing_revision);
699: END IF;
700: l_Curr_Rev := Get_Current_Rtg_Revision
701: ( p_revised_item_id => p_revised_item_id
702: , p_organization_id => p_organization_id
703: , p_revision_date => SYSDATE
704: );
705:
706: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current revision. . . ' || l_Curr_Rev); END IF;
707: -- revision must be greater than the current revision
708:
709: l_Rev_Compare := BOM_REVISIONS.Compare_Revision(
710: rev1 => p_new_routing_revision,
710: rev1 => p_new_routing_revision,
711: rev2 => l_Curr_Rev);
712: IF l_Rev_Compare = 1 THEN
713:
714: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision not the latest . . .'); END IF;
715:
716: RETURN 1;
717: END IF;
718:
723: CLOSE c1;
724: IF l_Change_Notice IS NOT NULL
725: THEN
726:
727: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision created thru another ECO . . .'); END IF;
728: x_Change_Notice := l_Change_Notice;
729: RETURN 2;
730: END IF;
731:
810: RETURN TRUE;
811:
812: IF BOM_Globals.get_debug = 'Y'
813: THEN
814: error_handler.write_debug('Check Primary Bill fuction, return True ' );
815: END IF;
816:
817: END LOOP;
818:
817: END LOOP;
818:
819: IF BOM_Globals.get_debug = 'Y'
820: THEN
821: error_handler.write_debug('Check Primary Bill fuction, return False ' );
822: END IF;
823:
824: RETURN FALSE;
825:
858: RETURN TRUE;
859:
860: IF BOM_Globals.get_debug = 'Y'
861: THEN
862: error_handler.write_debug('Check Primary Routing fuction, return True ' );
863: END IF;
864: END LOOP;
865:
866:
865:
866:
867: IF BOM_Globals.get_debug = 'Y'
868: THEN
869: error_handler.write_debug('Check Primary Routing fuction, return False ' );
870: END IF;
871:
872: RETURN FALSE;
873:
1482:
1483: BEGIN
1484:
1485: IF Bom_Globals.Get_Debug = 'Y' THEN
1486: Error_Handler.Write_Debug('Check Locators. . .Locator Id is ' || to_char(p_locator_id));
1487: END IF;
1488:
1489: l_org_locator_control := 0 ;
1490: l_item_locator_control := 0;
1511: AND inventory_item_id = p_revised_item_id;
1512:
1513:
1514: IF Bom_Globals.Get_Debug = 'Y' THEN
1515: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1516: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1517: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1518: END IF;
1519:
1512:
1513:
1514: IF Bom_Globals.Get_Debug = 'Y' THEN
1515: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1516: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1517: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1518: END IF;
1519:
1520: /**************************************
1513:
1514: IF Bom_Globals.Get_Debug = 'Y' THEN
1515: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1516: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1517: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1518: END IF;
1519:
1520: /**************************************
1521: -- Locator_Control_Code
1542: END IF;
1543: */
1544:
1545: IF Bom_Globals.Get_Debug = 'Y' THEN
1546: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
1547: END IF;
1548:
1549:
1550:
1566: Item_Control => l_item_locator_control
1567: );
1568:
1569: IF Bom_Globals.Get_Debug = 'Y' THEN
1570: Error_Handler.Write_Debug('Calling BOM_Validate_Rtg_Header.Control. Loc Control '||
1571: to_char(x_control) );
1572: END IF;
1573:
1574: l_locator_control := x_control;
1583: ELSIF x_Control = 2 THEN -- PRESPECIFIED
1584: BEGIN
1585:
1586: IF Bom_Globals.Get_Debug = 'Y' THEN
1587: Error_Handler.Write_Debug ('Checking when x_control returned 2 and ' ||
1588: ' item locator is ' ||
1589: to_char(l_item_locator_control));
1590: END IF;
1591: --bug 2463393 modified the above check
1610: IF l_item_loc_restricted = 1 -- Restrict Locators = YES
1611: THEN
1612: -- Check for restrict Locators YES
1613: IF Bom_Globals.Get_Debug = 'Y' THEN
1614: Error_Handler.Write_Debug ('Before Checking for restrict Locators Yes. ' );
1615: END IF;
1616: SELECT 'Valid'
1617: INTO l_dummy
1618: FROM mtl_item_locations mil,
1625: AND mil.organization_id = msl.organization_id
1626: AND NVL(mil.disable_date, SYSDATE+1) > SYSDATE ;
1627:
1628: IF Bom_Globals.Get_Debug = 'Y' THEN
1629: Error_Handler.Write_Debug ('Restrict locators is Y . ' ||
1630: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1631: || ' are valid.' );
1632: END IF;
1633:
1646: AND mil.organization_id = p_organization_id
1647: AND NVL(mil.DISABLE_DATE, SYSDATE+1) > SYSDATE;
1648:
1649: IF Bom_Globals.Get_Debug = 'Y' THEN
1650: Error_Handler.Write_Debug ('Restrict locators is No . ' ||
1651: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1652: || ' are valid.' );
1653: END IF;
1654:
1661: EXCEPTION
1662: WHEN NO_DATA_FOUND THEN
1663:
1664: IF Bom_Globals.Get_Debug = 'Y' THEN
1665: Error_Handler.Write_Debug ('Locator is invlaid . ' );
1666: END IF ;
1667:
1668: RETURN FALSE;
1669: END; -- x_control=2 Ends
1673: -- Dynamic locators are not allowed in open
1674: -- interface, so raise an error if the locator
1675: -- control is dynamic.
1676: IF Bom_Globals.Get_Debug = 'Y' THEN
1677: Error_Handler.Write_Debug ('Dynamic Locator Control. ' ) ;
1678: END IF ;
1679: l_locator_control := 3;
1680:
1681:
1980: * with an error status.
1981: *****************************************************************************/
1982: PROCEDURE Check_Required
1983: ( x_return_status OUT NOCOPY VARCHAR2
1984: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1985: , p_revised_item_Rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
1986: )
1987: IS
1988: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1984: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1985: , p_revised_item_Rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
1986: )
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';
1985: , p_revised_item_Rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
1986: )
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;
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)
2007: THEN
2008: Error_Handler.Add_Error_Token
2009: ( p_Message_Name => 'ENG_NEW_REVISION_MISSING'
2010: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2011: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2012: , p_Token_Tbl => l_Token_Tbl
2024: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
2025: THEN
2026: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2027: THEN
2028: Error_Handler.Add_Error_Token
2029: ( p_Message_Name =>'ENG_UPDATED_REVISION_MISSING'
2030: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2031: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2032: , p_Token_Tbl => l_Token_Tbl
2058: , p_old_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
2059: , p_old_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
2060: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
2061: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
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;
2335:
2336:
2337: l_IsUseUpValid BOOLEAN;
2338: l_IsDateValid BOOLEAN;
2339: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2340: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2341: l_use_up_date DATE := SYSDATE;
2342: l_new_rev_required NUMBER := 0;
2343:
2336:
2337: l_IsUseUpValid BOOLEAN;
2338: l_IsDateValid BOOLEAN;
2339: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2340: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2341: l_use_up_date DATE := SYSDATE;
2342: l_new_rev_required NUMBER := 0;
2343:
2344: -- Followings are added by MK on 08/26/2000
2352:
2353: BEGIN
2354:
2355: IF Bom_Globals.Get_Debug = 'Y' THEN
2356: Error_Handler.Write_Debug('Performing Check Entity in Revised Item - Trans type: ' || p_revised_item_rec.transaction_Type );
2357: END IF;
2358:
2359: --
2360: -- Set revised item token name and value.
2409: )
2410: THEN
2411: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2412: THEN
2413: Error_Handler.Add_Error_Token
2414: ( p_Message_Name => 'ENG_RIT_ACCESS_WOECTV_DENIED'
2415: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2416: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2417: , p_Token_Tbl => l_Token_Tbl
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 );
2425: END IF;
2426:
2427:
2442: )
2443: THEN
2444: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2445: THEN
2446: Error_Handler.Add_Error_Token
2447: ( p_Message_Name => 'ENG_RIT_MAC_UWIP_INVALID'
2448: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2449: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2450: , p_Token_Tbl => l_Token_Tbl
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 ' ||
2458: l_Return_Status);
2459: END IF;
2460:
2461: /*********************************************************************
2474: AND p_revised_item_rec.lot_number IS NOT NULL
2475: THEN
2476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2477: THEN
2478: Error_Handler.Add_Error_Token
2479: ( p_Message_Name => 'ENG_RIT_LOTNUM_MUSTBE_NULL'
2480: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2481: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2482: , p_Token_Tbl => l_Token_Tbl
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 ' ||
2490: l_Return_Status);
2491: END IF;
2492:
2493: /*****************************************************************
2501: AND p_rev_item_unexp_rec.from_wip_entity_id IS NULL
2502: THEN
2503: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2504: THEN
2505: Error_Handler.Add_Error_Token
2506: ( p_Message_Name => 'ENG_RIT_FROMWO_MUSTNOT_NULL'
2507: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2508: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2509: , p_Token_Tbl => l_Token_Tbl
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);
2517: END IF;
2518: /*****************************************************************
2519: -- If To Work Order is not Null then
2520: -- To Work Order must be greater than From Work Order
2527: OR p_rev_item_unexp_rec.from_wip_entity_id IS NULL)
2528: THEN
2529: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2530: THEN
2531: Error_Handler.Add_Error_Token
2532: ( p_Message_Name => 'ENG_RIT_FROMWO_INVALID'
2533: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2534: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2535: , p_Token_Tbl => l_Token_Tbl
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);
2543: END IF;
2544:
2545: /*****************************************************************
2546: -- If From Work Order and To Work Order is not Null then
2554: AND p_revised_item_rec.from_cumulative_quantity IS NOT NULL
2555: THEN
2556: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2557: THEN
2558: Error_Handler.Add_Error_Token
2559: ( p_Message_Name => 'ENG_RIT_CUMQTY_INVALID'
2560: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2561: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2562: , p_Token_Tbl => l_Token_Tbl
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 ' ||
2570: l_Return_Status);
2571: END IF;
2572: /*****************************************************************
2573: -- If Cumulative Quantity is not null then
2581: AND p_revised_item_rec.from_cumulative_quantity IS NOT NULL
2582: THEN
2583: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2584: THEN
2585: Error_Handler.Add_Error_Token
2586: ( p_Message_Name => 'ENG_RIT_ECO_BY_CUMQTY_INVALID'
2587: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2588: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2589: , p_Token_Tbl => l_Token_Tbl
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 ' ||
2597: l_Return_Status);
2598: END IF;
2599:
2600: /*****************************************************************
2609: AND p_revised_item_rec.from_cumulative_quantity IS NULL
2610: THEN
2611: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2612: THEN
2613: Error_Handler.Add_Error_Token
2614: ( p_Message_Name => 'ENG_RIT_FROMWO_ISNOT_NULL'
2615: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2616: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2617: , p_Token_Tbl => l_Token_Tbl
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 ' ||
2625: l_Return_Status);
2626: END IF;
2627:
2628: /*****************************************************************
2641: )
2642: THEN
2643: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2644: THEN
2645: Error_Handler.Add_Error_Token
2646: ( p_Message_Name => 'ENG_RIT_ECO_BY_LOT_INVALID'
2647: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2648: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2649: , p_Token_Tbl => l_Token_Tbl
2668: )
2669: LOOP
2670: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2671: THEN
2672: Error_Handler.Add_Error_Token
2673: ( p_Message_Name => 'ENG_RIT_LOTNUM_WO_RELEASED'
2674: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2675: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2676: , p_Token_Tbl => l_Token_Tbl
2681: END IF ;
2682: END IF ;
2683:
2684: IF BOM_Globals.get_debug = 'Y'THEN
2685: error_handler.write_debug('After check release status, the return status is ' ||
2686: l_Return_Status);
2687: END IF;
2688:
2689: /*****************************************************************
2711: IF l_wipjob_for_eco_cum_csr%NOTFOUND THEN
2712: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2713: THEN
2714:
2715: Error_Handler.Add_Error_Token
2716: ( p_Message_Name => 'ENG_RIT_CUMQTY_WO_RELEASED'
2717: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2718: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2719: , p_Token_Tbl => l_Token_Tbl
2728: THEN
2729: l_Token_Tbl(2).Token_Name := 'WORK_ORDER';
2730: l_Token_Tbl(2).Token_Value := p_revised_item_rec.from_work_order ;
2731:
2732: Error_Handler.Add_Error_Token
2733: ( p_Message_Name => 'ENG_RIT_CUMQTY_WO_QTY_INVALID'
2734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2736: , p_Token_Tbl => l_Token_Tbl
2745: THEN
2746: l_Token_Tbl(2).Token_Name := 'WORK_ORDER';
2747: l_Token_Tbl(2).Token_Value := p_revised_item_rec.from_work_order ;
2748:
2749: Error_Handler.Add_Error_Token
2750: ( p_Message_Name => 'ENG_RIT_CUMQTY_WO_DATE_INVALID'
2751: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2752: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2753: , p_Token_Tbl => l_Token_Tbl
2759: CLOSE l_wipjob_for_eco_cum_csr ;
2760: END IF ;
2761:
2762: IF BOM_Globals.get_debug = 'Y' THEN
2763: error_handler.write_debug('After check released status and cum, the return status is ' ||
2764: l_Return_Status);
2765: END IF;
2766:
2767: /*****************************************************************
2790: )
2791: LOOP
2792: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2793: THEN
2794: Error_Handler.Add_Error_Token
2795: ( p_Message_Name => 'ENG_RIT_WORANGE_WO_RELEASED'
2796: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2797: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2798: , p_Token_Tbl => l_Token_Tbl
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 );
2806: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2807: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2808: ,'YYYY-MM-DD') );
2809: error_handler.write_debug('After check ECO WO Number, the return status is');
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 );
2806: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2807: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2808: ,'YYYY-MM-DD') );
2809: error_handler.write_debug('After check ECO WO Number, the return status is');
2810: END IF;
2803:
2804: IF BOM_Globals.get_debug = 'Y' THEN
2805: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2806: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2807: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2808: ,'YYYY-MM-DD') );
2809: error_handler.write_debug('After check ECO WO Number, the return status is');
2810: END IF;
2811: END IF ;
2805: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2806: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2807: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2808: ,'YYYY-MM-DD') );
2809: error_handler.write_debug('After check ECO WO Number, the return status is');
2810: END IF;
2811: END IF ;
2812:
2813: END IF ;
2813: END IF ;
2814: --End of Entity Validation for New Effectivities
2815:
2816: IF BOM_Globals.get_debug = 'Y' THEN
2817: error_handler.write_debug('After check new Effectivities, the return status is ' ||
2818: l_Return_Status);
2819: END IF;
2820:
2821: /*****************************************************************
2837: THEN
2838:
2839: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2840: THEN
2841: Error_Handler.Add_Error_Token
2842: ( p_Message_Name => 'ENG_RIT_ECO_FOR_PROD_MUSTBE_NO'
2843: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2844: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2845: , p_Token_Tbl => l_Token_Tbl
2857: )
2858: THEN
2859: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2860: THEN
2861: Error_Handler.Add_Error_Token
2862: ( p_Message_Name => 'ENG_RIT_ECO_FOR_PROD_MUSTBE_Y'
2863: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2864: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2865: , p_Token_Tbl => l_Token_Tbl
2905: THEN
2906:
2907: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2908: THEN
2909: Error_Handler.Add_Error_Token
2910: ( p_Message_Name => 'ENG_RIT_CANNOT_CHANGE_RTG'
2911: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2912: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2913: , p_Token_Tbl => l_Token_Tbl
2918: close l_rtg_header_csr;
2919: END IF ;
2920:
2921: IF BOM_Globals.get_debug = 'Y' THEN
2922: error_handler.write_debug('After check unit control for Routing, the return status is ' ||
2923: l_Return_Status);
2924: END IF;
2925:
2926:
2937: NVL(p_old_rev_item_unexp_rec.bill_sequence_id, 0)
2938: )
2939: THEN
2940:
2941: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alternate you have entered : '
2942: || p_revised_item_rec.alternate_bom_code ); END IF;
2943:
2944: l_token_tbl.DELETE;
2945: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
2946: l_token_tbl(1).token_value :=
2947: p_revised_item_rec.revised_item_name;
2948: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2949: THEN
2950: Error_Handler.Add_Error_Token
2951: ( p_Message_Name => 'ENG_ALT_DESG_NOT_UPDATEABLE'
2952: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2953: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2954: , p_Token_Tbl => l_Token_Tbl
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);
2962: END IF;
2963:
2964:
2972: FOR alt IN c_GetRtgAltDesignator
2973: LOOP
2974: l_alternate_rtg_designator := alt.alternate_routing_designator ;
2975:
2976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_rtg_designator); END IF;
2977:
2978: END LOOP;
2979:
2980: IF l_alternate_rtg_designator IS NOT NULL AND
2986: l_token_tbl(1).token_value :=
2987: p_revised_item_rec.revised_item_name;
2988: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2989: THEN
2990: Error_Handler.Add_Error_Token
2991: ( p_Message_Name => 'ENG_ALT_DESG_NOT_UPDATEABLE'
2992: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2993: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2994: , p_Token_Tbl => l_Token_Tbl
3035: THEN
3036:
3037: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3038: THEN
3039: Error_Handler.Add_Error_Token
3040: ( p_Message_Name => 'ENG_RIT_CANNOT_BE_ON_RTG'
3041: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3042: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3043: , p_Token_Tbl => l_Token_Tbl
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;
3051:
3052:
3053: END IF ;
3061: p_revised_item_rec.transaction_type = ENG_Globals.G_OPR_CREATE
3062: THEN
3063: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3064: THEN
3065: Error_Handler.Add_Error_Token
3066: ( p_Message_Name => 'ENG_CANNOT_HAVE_RTG_REVISION'
3067: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3068: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3069: , p_Token_Tbl => l_Token_Tbl
3076: p_revised_item_rec.updated_routing_revision IS NOT NULL
3077: THEN
3078: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3079: THEN
3080: Error_Handler.Add_Error_Token
3081: ( p_Message_Name => 'ENG_CANNOT_HAVE_RTG_REVISION'
3082: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3083: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3084: , p_Token_Tbl => l_Token_Tbl
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 );
3092: END IF;
3093:
3094:
3095:
3103: , '''') <> 0
3104: THEN
3105: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3106: THEN
3107: Error_Handler.Add_Error_Token
3108: ( p_Message_Name => 'ENG_RIT_RTGREV_QTE_NOT_ALLOWED'
3109: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3110: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3111: , p_Token_Tbl => l_Token_Tbl
3115:
3116: END IF;
3117:
3118: IF BOM_Globals.get_debug = 'Y' THEN
3119: error_handler.write_debug('After check routing rev, the return status is ' || l_Return_Status);
3120: END IF;
3121:
3122:
3123: /*********************************************************************
3141: , x_revision => l_revision
3142: );
3143:
3144: IF BOM_Globals.get_debug = 'Y'THEN
3145: error_handler.write_debug('After Pending_High_Rtg_Rev, the return status is ' || l_Return_Status);
3146: END IF;
3147:
3148:
3149:
3164: l_token_tbl(3).token_value := l_revision;
3165:
3166: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3167: THEN
3168: Error_Handler.Add_Error_Token
3169: ( p_Message_Name => 'ENG_RIT_HIGH_RTG_REV_PENDING'
3170: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3171: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3172: , p_Token_Tbl => l_Token_Tbl
3174: END IF;
3175: END IF;
3176:
3177: IF BOM_Globals.get_debug = 'Y' THEN
3178: error_handler.write_debug('After check pending eco, the return status is ' || l_Return_Status);
3179: END IF;
3180:
3181: END IF;
3182:
3226:
3227: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3228: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3229:
3230: Error_Handler.Add_Error_Token
3231: ( p_Message_Name => 'ENG_RIT_NEW_RTG_REV_NOT_CURR'
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 );
3255: l_token_tbl(3).token_value := l_change_notice;
3256:
3257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3258: THEN
3259: Error_Handler.Add_Error_Token
3260: ( p_Message_Name => 'ENG_RIT_NEW_RTG_REV_EXISTS'
3261: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3262: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3263: , p_token_tbl => l_token_tbl
3273:
3274: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3275: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3276:
3277: Error_Handler.Add_Error_Token
3278: ( p_Message_Name => 'ENG_RIT_NEW_RTG_REV_IMPL'
3279: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3280: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3281: , p_Token_Tbl => l_Token_Tbl
3285: END IF;
3286: END IF;
3287:
3288: IF BOM_Globals.get_debug = 'Y' THEN
3289: error_handler.write_debug('After check transaction type, the return status is ' || l_Return_Status);
3290: END IF;
3291:
3292:
3293: /*********************************************************************
3309: )
3310: THEN
3311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3312: THEN
3313: Error_Handler.Add_Error_Token
3314: ( p_Message_Name => 'ENG_RIT_CTP_ALREADY_EXISTS'
3315: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3316: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3317: , p_Token_Tbl => l_Token_Tbl
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);
3325: END IF;
3326: END IF ;
3327:
3328: /*********************************************************************
3342: , p_priority => p_revised_item_rec.priority )
3343: THEN
3344: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3345: THEN
3346: Error_Handler.Add_Error_Token
3347: ( p_Message_Name => 'ENG_RIT_PRIORITY_DUPLICATE'
3348: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3349: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3350: , p_Token_Tbl => l_Token_Tbl
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);
3358: END IF;
3359:
3360: END IF ;
3361:
3364: -- Added by MK 08/26/2000
3365: -- Check Completion Subinventory
3366: **********************************************************************/
3367: IF Bom_Globals.Get_Debug = 'Y' THEN
3368: Error_Handler.Write_Debug('Performing completeion subinventory check. . . Sub Inv : '
3369: || p_revised_item_rec.completion_subinventory ) ;
3370: Error_Handler.Write_Debug('Old Completion_subinv is:'||p_old_revised_item_rec.completion_subinventory );
3371: END IF;
3372:
3366: **********************************************************************/
3367: IF Bom_Globals.Get_Debug = 'Y' THEN
3368: Error_Handler.Write_Debug('Performing completeion subinventory check. . . Sub Inv : '
3369: || p_revised_item_rec.completion_subinventory ) ;
3370: Error_Handler.Write_Debug('Old Completion_subinv is:'||p_old_revised_item_rec.completion_subinventory );
3371: END IF;
3372:
3373: IF (( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
3374: AND
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' ) ;
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
3394: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3395: -- l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3396: -- l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3397:
3398: Error_Handler.Add_Error_Token
3399: ( p_message_name => 'BOM_RTG_LOCATOR_MUST_BE_NULL'
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
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' ) ;
3421: END IF;
3422:
3423: IF NOT Check_SubInv_Exists(p_organization_id => p_rev_item_unexp_rec.organization_id
3424: , p_subinventory => p_revised_item_rec.completion_subinventory
3429: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name ;
3430: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY' ;
3431: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory ;
3432:
3433: Error_Handler.Add_Error_Token
3434: ( p_message_name => 'BOM_RTG_SUBINV_NAME_INVALID'
3435: , p_token_tbl => l_token_tbl
3436: , p_mesg_token_tbl => l_mesg_token_tbl
3437: , x_mesg_token_tbl => l_mesg_token_tbl
3450: , x_inv_asset_flag => l_inv_asset_flag ) ;
3451:
3452:
3453: IF BOM_Globals.get_debug = 'Y' THEN
3454: error_handler.write_debug('Get Sub Inv Flag . . . ');
3455: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3456: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3457: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3458:
3451:
3452:
3453: IF BOM_Globals.get_debug = 'Y' THEN
3454: error_handler.write_debug('Get Sub Inv Flag . . . ');
3455: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3456: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3457: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3458:
3459: END IF;
3452:
3453: IF BOM_Globals.get_debug = 'Y' THEN
3454: error_handler.write_debug('Get Sub Inv Flag . . . ');
3455: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3456: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3457: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3458:
3459: END IF;
3460:
3453: IF BOM_Globals.get_debug = 'Y' THEN
3454: error_handler.write_debug('Get Sub Inv Flag . . . ');
3455: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3456: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3457: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3458:
3459: END IF;
3460:
3461: IF l_rest_subinv_code = 'Y' THEN
3461: IF l_rest_subinv_code = 'Y' THEN
3462: IF l_allow_expense_to_asset = '1' THEN
3463:
3464: IF BOM_Globals.get_debug = 'Y' THEN
3465: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Trk');
3466: END IF;
3467: OPEN c_Restrict_SubInv_Trk
3468: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3469: , p_organization_id => p_rev_item_unexp_rec.organization_id
3479: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3480: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3481: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3482:
3483: Error_Handler.Add_Error_Token
3484: ( p_message_name => 'BOM_RTG_SINV_RSTRCT_EXPASST'
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
3492:
3493: END IF;
3494:
3495: IF BOM_Globals.get_debug = 'Y' THEN
3496: error_handler.write_debug('After c_Restrict_SubInv_Trk, the return status is ' || l_Return_Status);
3497: END IF;
3498:
3499: ELSE
3500: IF l_inv_asset_flag = 'Y' THEN
3499: ELSE
3500: IF l_inv_asset_flag = 'Y' THEN
3501:
3502: IF BOM_Globals.get_debug = 'Y' THEN
3503: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Asset');
3504: END IF;
3505:
3506: OPEN c_Restrict_SubInv_Asset
3507: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3516: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3517: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3518: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3519:
3520: Error_Handler.Add_Error_Token
3521: ( p_message_name => 'BOM_RTG_SINV_RSTRCT_INVASST'
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
3528: CLOSE c_Restrict_SubInv_Asset ;
3529: END IF;
3530:
3531: IF BOM_Globals.get_debug = 'Y' THEN
3532: error_handler.write_debug('After c_Restrict_SubInv_Asset, the return status is ' || l_Return_Status);
3533: END IF;
3534: ELSE
3535:
3536: IF BOM_Globals.get_debug = 'Y' THEN
3533: END IF;
3534: ELSE
3535:
3536: IF BOM_Globals.get_debug = 'Y' THEN
3537: error_handler.write_debug('Before second c_Restrict_SubInv_Trk');
3538: END IF;
3539: OPEN c_Restrict_SubInv_Trk
3540: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3541: , p_organization_id => p_rev_item_unexp_rec.organization_id
3550: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3551: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3552: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3553:
3554: Error_Handler.Add_Error_Token
3555: ( p_message_name => 'BOM_RTG_SINV_RSTRCT_NOASST'
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
3562: CLOSE c_Restrict_SubInv_Trk;
3563: END IF;
3564:
3565: IF BOM_Globals.get_debug = 'Y' THEN
3566: error_handler.write_debug('After c_Restrict_SubInv_Trk, the return status is '|| l_Return_Status);
3567: END IF;
3568: END IF ; -- End of l_inv_asset_flag = 'Y'
3569: END IF ; -- End of l_allow_expense_to_asset = '1'
3570:
3572: ELSE -- l_rest_subinv_code <> 'Y'
3573: IF l_allow_expense_to_asset = '1' THEN
3574:
3575: IF BOM_Globals.get_debug = 'Y' THEN
3576: error_handler.write_debug('Before open c_SubInventory_Tracked');
3577: END IF;
3578: OPEN c_SubInventory_Tracked
3579: ( p_organization_id => p_rev_item_unexp_rec.organization_id
3580: , p_subinventory => p_revised_item_rec.completion_subinventory);
3588: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3589: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3590: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3591:
3592: Error_Handler.Add_Error_Token
3593: ( p_message_name => 'BOM_RTG_SINV_NOTRSTRCT_EXPASST'
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
3600: CLOSE c_SubInventory_Tracked;
3601: END IF;
3602:
3603: IF BOM_Globals.get_debug = 'Y' THEN
3604: error_handler.write_debug('After c_SubInventory_Tracked, the return status is '|| l_Return_Status);
3605: END IF;
3606:
3607: ELSE
3608: IF l_inv_asset_flag = 'Y' THEN
3607: ELSE
3608: IF l_inv_asset_flag = 'Y' THEN
3609:
3610: IF BOM_Globals.get_debug = 'Y' THEN
3611: error_handler.write_debug('Before open second c_SubInventory_Asset');
3612: END IF;
3613: OPEN c_SubInventory_Asset
3614: ( p_organization_id => p_rev_item_unexp_rec.organization_id
3615: , p_subinventory => p_revised_item_rec.completion_subinventory);
3622: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3623: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3624: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3625:
3626: Error_Handler.Add_Error_Token
3627: ( p_message_name => 'BOM_RTG_SINV_NOTRSTRCT_ASST'
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
3633: ELSE
3634: CLOSE c_SubInventory_Asset;
3635: END IF;
3636: IF BOM_Globals.get_debug = 'Y' THEN
3637: error_handler.write_debug('After c_SubInventory_Asset, the return status is ' || l_Return_Status);
3638: END IF;
3639: ELSE
3640: IF BOM_Globals.get_debug = 'Y' THEN
3641: error_handler.write_debug('Before open second c_SubInventory_tracked');
3637: error_handler.write_debug('After c_SubInventory_Asset, the return status is ' || l_Return_Status);
3638: END IF;
3639: ELSE
3640: IF BOM_Globals.get_debug = 'Y' THEN
3641: error_handler.write_debug('Before open second c_SubInventory_tracked');
3642: END IF;
3643: IF p_revised_item_rec.completion_subinventory IS NOT NULL THEN
3644:
3645: OPEN c_Subinventory_Tracked
3654: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3655: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3656: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3657:
3658: Error_Handler.Add_Error_Token
3659: ( p_message_name => 'BOM_RTG_SINV_NOTRSTRCT_NOASST'
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
3668: END IF;
3669: END IF;
3670:
3671: IF BOM_Globals.get_debug = 'Y' THEN
3672: error_handler.write_debug('After c_Subinventory_Tracked, the return status is '|| l_Return_Status);
3673: END IF;
3674:
3675: END IF ; -- End of l_inv_asset_flag = 'Y'
3676: END IF ; -- End of l_allow_expense_to_asset = '1'
3685: -- Check Completion Locator
3686: **********************************************************************/
3687:
3688: IF Bom_Globals.Get_Debug = 'Y' THEN
3689: Error_Handler.Write_Debug('Performing completion locator. . .') ;
3690: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
3691: END IF;
3692:
3693: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
3686: **********************************************************************/
3687:
3688: IF Bom_Globals.Get_Debug = 'Y' THEN
3689: Error_Handler.Write_Debug('Performing completion locator. . .') ;
3690: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
3691: END IF;
3692:
3693: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
3694: Null;
3713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3714: THEN
3715: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3716: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3717: Error_Handler.Add_Error_Token
3718: ( p_message_name => 'BOM_RTG_LOCATOR_REQUIRED'
3719: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3720: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3721: , p_Token_Tbl => l_Token_Tbl
3728: THEN
3729: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3730: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3731:
3732: Error_Handler.Add_Error_Token
3733: ( p_message_name => 'BOM_RTG_LOC_CANNOT_BE_DYNAMIC'
3734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3736: , p_Token_Tbl => l_Token_Tbl
3746: THEN
3747: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3748: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3749:
3750: Error_Handler.Add_Error_Token
3751: ( p_message_name => 'BOM_RTG_ITEM_LOC_RESTRICTED'
3752: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3753: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3754: , p_Token_Tbl => l_Token_Tbl
3759: THEN
3760: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3761: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3762:
3763: Error_Handler.Add_Error_Token
3764: ( p_message_name => 'BOM_RTG_LOCATOR_NOT_IN_SUBINV'
3765: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3766: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3767: , p_Token_Tbl => l_Token_Tbl
3774: THEN
3775: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3776: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3777:
3778: Error_Handler.Add_Error_Token
3779: ( p_message_name => 'BOM_RTG_ITEM_NO_LOC_CONTROL'
3780: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3781: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3782: , p_Token_Tbl => l_Token_Tbl
3792: -- p_revised_item_rec.completion_subinventory IS NULL
3793: -- THEN
3794: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3795: -- THEN
3796: -- Error_Handler.Add_Error_Token
3797: -- ( p_message_name => 'BOM_RTG_LOCATOR_MUST_BE_NULL'
3798: -- , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3799: -- , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3800: -- , p_Token_Tbl => l_Token_Tbl
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);
3808: END IF;
3809:
3810: END IF; ---end of locator check
3809:
3810: END IF; ---end of locator check
3811: END IF;
3812: IF BOM_Globals.get_debug = 'Y' THEN
3813: error_handler.write_debug('After locator check,the return status is '|| l_Return_Status);
3814: END IF;
3815:
3816: /*********************************************************************
3817: -- Added by MK 08/26/2000
3825: THEN
3826: IF NOT Check_Mixed_Model_Map THEN
3827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3828: THEN
3829: Error_Handler.Add_Error_Token
3830: ( p_Message_Name => 'ENG_MMMF_ALREADY_EXISTS'
3831: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3832: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3833: , p_Token_Tbl => l_Token_Tbl
3855: p_revised_item_rec.from_end_item_unit_number IS NULL
3856: THEN
3857: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3858: THEN
3859: Error_Handler.Add_Error_Token
3860: ( p_Message_Name => 'ENG_FROM_UNIT_NUM_REQUIRED'
3861: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3862: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3863: , p_Token_Tbl => l_Token_Tbl
3880: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3881: THEN
3882: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3883: THEN
3884: Error_Handler.Add_Error_Token
3885: ( p_Message_Name => 'ENG_USE_UP_ITEM_MISSING'
3886: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3887: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3888: , p_Token_Tbl => l_Token_Tbl
3895: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3896: THEN
3897: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3898: THEN
3899: Error_Handler.Add_Error_Token
3900: ( p_Message_Name => 'ENG_USE_UP_PLAN_MISSING'
3901: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3902: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3903: , p_Token_Tbl => l_Token_Tbl
3918: )
3919: THEN
3920: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3921: THEN
3922: Error_Handler.Add_Error_Token
3923: ( p_Message_Name => 'ENG_USE_UP_PLANITEM_INVALID'
3924: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3925: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3926: );
3937: l_dup_exists := 0;
3938: FOR X_CheckDupUnit IN CheckDupUnit LOOP
3939: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3940: THEN
3941: Error_Handler.Add_Error_Token
3942: ( p_Message_Name => 'ENG_UNIT_NUM_DUPLICATE'
3943: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3944: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3945: , p_Token_Tbl => l_Token_Tbl
3990:
3991: l_token_tbl(3).token_name := 'NEW_OR_UPDATED_ITEM_REVISION';
3992: l_token_tbl(4).token_name := 'NEW_OR_UPDATED_EFFECTIVE_DATE';
3993:
3994: Error_Handler.Add_Error_Token
3995: ( p_Message_Name => 'ENG_RIT_UPD_ALREADY_EXISTS'
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
4015: AND p_control_rec.caller_type <> 'SSWA' -- not required for plm
4016: THEN
4017: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4018: THEN
4019: Error_Handler.Add_Error_Token
4020: ( p_Message_Name => 'ENG_PROC_UPD_DISALLOWED'
4021: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4022: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4023: , p_Token_Tbl => l_Token_Tbl
4036: p_revised_item_rec.status_type = 5
4037: THEN
4038: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4039: THEN
4040: Error_Handler.Add_Error_Token
4041: ( p_Message_Name => 'ENG_STAT_MUST_NOT_BE_CANCL'
4042: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4043: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4044: , p_Token_Tbl => l_Token_Tbl
4063: l_product_family
4064: THEN
4065: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4066: THEN
4067: Error_Handler.Add_Error_Token
4068: ( p_Message_Name => 'ENG_CANNOT_ADD_PF_ITEM'
4069: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4070: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4071: );
4087: p_revised_item_rec.new_effective_date IS NOT NULL))
4088: THEN
4089: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4090: THEN
4091: Error_Handler.Add_Error_Token
4092: ( p_Message_Name => 'ENG_RIT_UNIT_EFFDATE_NULL'
4093: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4094: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4095: , p_Token_Tbl => l_Token_Tbl
4112: p_revised_item_rec.new_from_end_item_unit_number IS NOT NULL))
4113: THEN
4114: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4115: THEN
4116: Error_Handler.Add_Error_Token
4117: ( p_Message_Name => 'ENG_RIT_DATE_UNIT_NULL'
4118: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4119: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4120: , p_Token_Tbl => l_Token_Tbl
4132: -- to Yes.
4133: **********************************************************************/
4134: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4135: THEN
4136: Error_Handler.Add_Error_Token
4137: ( p_Message_Name => 'ENG_ITEM_UNIT_UPDATE_WIP'
4138: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4139: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4140: , p_Token_Tbl => l_Token_Tbl
4170: l_token_tbl(2).token_name := 'ECO_NAME';
4171: l_token_tbl(2).token_value :=
4172: p_revised_item_rec.eco_name;
4173:
4174: Error_Handler.Add_Error_Token
4175: ( p_Message_Name => 'ENG_STAT_MUST_NOT_BE_SCHED'
4176: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4177: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4178: , p_Token_Tbl => l_Token_Tbl
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
4197: Error_Handler.Add_Error_Token
4198: ( p_Message_Name => 'ENG_SCHED_DATE_NOT_NULL'
4199: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4200: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4201: , p_Token_Tbl => l_Token_Tbl
4211: -- Check if the (currently) highest un-implemented revision of the
4212: -- revised item exists on another ECO - log warning
4213: --
4214: *********************************************************************/
4215: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('caller type: ' || p_control_rec.caller_type); END IF;
4216:
4217: IF (p_control_rec.caller_type = 'FORM'
4218: AND p_revised_item_rec.transaction_type = 'CREATE'
4219: AND p_control_rec.validation_controller = 'REVISED_ITEM')
4256: l_token_tbl(2).token_name := 'ENTITY2';
4257: l_token_tbl(2).token_value := l_change_notice;
4258: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4259: THEN
4260: Error_Handler.Add_Error_Token
4261: ( p_Message_Name => 'ENG_ECN_REVISION'
4262: -- , p_Message_Name => 'ENG_ITEM_HIGH_REV_PENDING'
4263: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4264: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4281: END IF ;
4282:
4283: IF BOM_Globals.get_debug = 'Y'
4284: THEN
4285: error_handler.write_debug('Get Eco Assembly Type, Assebly Type : '|| to_char(l_assembly_type) );
4286: END IF;
4287:
4288: /********************************************************************
4289: --
4306: l_token_tbl.delete;
4307: l_token_tbl(1).token_name := 'ECO_NAME';
4308: l_token_tbl(1).token_value :=
4309: p_revised_item_rec.eco_name;
4310: Error_Handler.Add_Error_Token
4311: ( p_Message_Name => 'ENG_INCOMPATIBLE_ITEM_TYPE'
4312: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4313: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4314: , p_Token_Tbl => l_Token_Tbl
4319:
4320: --
4321: -- Early Scheduled date must be <= Scheduled Date
4322: --
4323: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '
4324: || to_char(p_revised_item_rec.earliest_effective_date));
4325: END IF;
4326:
4327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||
4323: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '
4324: || to_char(p_revised_item_rec.earliest_effective_date));
4325: END IF;
4326:
4327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||
4328: to_char(p_revised_item_rec.start_effective_date));
4329: END IF;
4330: IF NOT l_is_item_unit_controlled AND
4331: ((p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND
4342: l_token_tbl.delete;
4343: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4344: l_token_tbl(1).token_value :=
4345: p_revised_item_rec.revised_item_name;
4346: Error_Handler.Add_Error_Token
4347: ( p_Message_Name =>'ENG_EARLY_SCHED_DATE_INVALID'
4348: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4349: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4350: , p_Token_Tbl => l_Token_Tbl
4420: 'REVISED_ITEM_NAME';
4421: l_token_tbl(1).token_value :=
4422: p_revised_item_rec.revised_item_name;
4423:
4424: Error_Handler.Add_Error_Token
4425: ( p_Message_Name =>'ENG_SCHD_DATE_NOT_MATCH'
4426: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4427: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4428: , p_Token_Tbl => l_Token_Tbl
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 ' ||
4436: l_Return_Status);
4437: END IF;
4438:
4439: END IF;
4485: IF FND_MSG_PUB.Check_Msg_Level
4486: (FND_MSG_PUB.G_MSG_LVL_ERROR)
4487: THEN
4488: l_token_tbl.delete;
4489: Error_Handler.Add_Error_Token
4490: ( p_Message_Name =>'ENG_USE_UP_ITEM_INVALID'
4491: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4492: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4493: );
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);
4503: END IF;
4504: END IF;
4505:
4506: /*********************************************************************
4512: -- Eng_Primary_Routing_Exists in Rev Op
4513: **********************************************************************/
4514:
4515: IF BOM_Globals.get_debug = 'Y' THEN
4516: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4517: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4518: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4519: END IF;
4520:
4513: **********************************************************************/
4514:
4515: IF BOM_Globals.get_debug = 'Y' THEN
4516: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4517: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4518: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4519: END IF;
4520:
4521:
4514:
4515: IF BOM_Globals.get_debug = 'Y' THEN
4516: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4517: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4518: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4519: END IF;
4520:
4521:
4522: IF p_revised_item_rec.Transaction_Type = ENG_Globals.G_OPR_CREATE AND
4539: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4540: l_token_tbl(1).token_value :=
4541: p_revised_item_rec.revised_item_name;
4542:
4543: Error_Handler.Add_Error_Token
4544: ( p_Message_Name => 'ENG_CANNOT_ADD_ALTERNATE'
4545: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4546: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4547: , p_Token_Tbl => l_Token_Tbl
4546: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4547: , p_Token_Tbl => l_Token_Tbl
4548: );
4549:
4550: Error_Handler.Add_Error_Token
4551: ( p_Message_Name => 'ENG_RIT_RTG_CANT_ADD_ALTERNATE'
4552: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4553: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4554: , p_Token_Tbl => l_Token_Tbl
4573: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4574: l_token_tbl(1).token_value :=
4575: p_revised_item_rec.revised_item_name;
4576:
4577: Error_Handler.Add_Error_Token
4578: ( p_Message_Name => 'ENG_RIT_RTG_CANT_ADD_ALTERNATE'
4579: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4580: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4581: , p_Token_Tbl => l_Token_Tbl
4586: -- Added by MK on 08/26/2000
4587: **********************************************************************/
4588:
4589: IF BOM_Globals.get_debug = 'Y' THEN
4590: error_handler.write_debug('End of check primary routing and bill, the return status is ' || l_Return_Status);
4591: END IF;
4592:
4593:
4594: /*********************************************************************
4609: , p_Revised_Item_Id => p_rev_item_unexp_rec.revised_item_id
4610: , p_organization_id => p_rev_item_unexp_rec.organization_id
4611: )
4612: THEN
4613: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ENG_ITEM_IN_OTHER_ECOS Warning . . .'); END IF;
4614:
4615: l_token_tbl.delete;
4616:
4617: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4616:
4617: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4618: l_token_tbl(1).token_value :=
4619: p_revised_item_rec.revised_item_name;
4620: Error_Handler.Add_Error_Token
4621: ( p_Message_Name => 'ENG_ITEM_IN_OTHER_ECOS'
4622: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4623: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4624: , p_Token_Tbl => l_Token_Tbl
4625: , p_message_type => 'W');
4626: END IF;
4627: END IF;
4628:
4629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - if item is on other ECOs'); END IF;
4630:
4631:
4632: /*********************************************************************
4633: --
4662: p_revised_item_rec.revised_item_name;
4663: l_token_tbl(2).token_name := 'ECO_NAME';
4664: l_token_tbl(2).token_value :=
4665: p_revised_item_rec.eco_name;
4666: Error_Handler.Add_Error_Token
4667: ( p_Message_Name => 'ENG_ITEM_RESCHED_ECO_APPREQ'
4668: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4669: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4670: , p_Token_Tbl => l_Token_Tbl
4679: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4680: l_token_tbl(1).token_value :=
4681: p_revised_item_rec.revised_item_name;
4682:
4683: Error_Handler.Add_Error_Token
4684: ( p_Message_Name=> 'ENG_ITEM_RESCHED_COMP_DISABLED'
4685: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4686: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4687: , p_Token_Tbl => l_Token_Tbl
4691: END IF;
4692: END IF;
4693:
4694: IF BOM_Globals.get_debug = 'Y' THEN
4695: error_handler.write_debug('End of new revised item, the return status is ' || l_Return_Status);
4696: END IF;
4697:
4698: /*********************************************************************
4699: -- Added by MK on 09/01/2000
4721: THEN
4722: l_token_tbl.delete;
4723: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4724: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
4725: Error_Handler.Add_Error_Token
4726: ( p_Message_Name=> 'ENG_ITEM_RESCHED_OP_DISABLED'
4727: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4728: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4729: , p_Token_Tbl => l_Token_Tbl
4734: END IF;
4735: END IF;
4736: -- Added by MK on 09/01/2000
4737: IF BOM_Globals.get_debug = 'Y' THEN
4738: error_handler.write_debug('End of transaction type and call type chceck, the return status is '||
4739: l_Return_Status);
4740: END IF;
4741:
4742:
4773: l_token_tbl(2).token_value :=
4774: p_revised_item_rec.status_type;
4775: l_token_tbl(3).token_name := 'ECO_NAME';
4776: l_token_tbl(3).token_value := p_revised_item_rec.eco_name;
4777: Error_Handler.Add_Error_Token
4778: ( p_Message_Name => 'ENG_RIT_STAT_ECO_NOT_OPEN'
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);
4788: END IF;
4789:
4790:
4818: IF FND_MSG_PUB.Check_Msg_Level
4819: (FND_MSG_PUB.G_MSG_LVL_ERROR)
4820: THEN
4821: l_token_tbl.delete;
4822: Error_Handler.Add_Error_Token
4823: ( p_Message_Name =>
4824: 'ENG_RIT_CREATE_STAT_INVALID'
4825: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4826: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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);
4834: END IF;
4835:
4836:
4837: /*********************************************************************
4861: p_revised_item_rec.status_type;
4862:
4863: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4864: THEN
4865: Error_Handler.Add_Error_Token
4866: ( p_Message_Name => 'ENG_RIT_STAT_ECO_APPREQ'
4867: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4868: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4869: , p_Token_Tbl => l_Token_Tbl
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:
4877: -- Cannot have new revision for alternate bill item
4878:
4879: /*********************************************************************
4883: FOR alt IN c_GetAlternateDesignator
4884: LOOP
4885: l_alternate_bom_designator :=
4886: alt.alternate_bom_designator;
4887: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_bom_designator); END IF;
4888: END LOOP;
4889:
4890: IF l_alternate_bom_designator IS NOT NULL AND
4891: (p_revised_item_rec.alternate_bom_code <>
4898: l_token_tbl(1).token_value :=
4899: p_revised_item_rec.revised_item_name;
4900: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4901: THEN
4902: Error_Handler.Add_Error_Token
4903: ( p_Message_Name => 'ENG_ALT_DESG_NOT_UPDATEABLE'
4904: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4905: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4906: , p_Token_Tbl => l_Token_Tbl
4921: AND l_plm_or_erp_change <> 'PLM'
4922: THEN
4923: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4924: THEN
4925: Error_Handler.Add_Error_Token
4926: ( p_Message_Name => 'ENG_CANNOT_HAVE_REVISION'
4927: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4928: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4929: , p_Token_Tbl => l_Token_Tbl
4936: AND l_plm_or_erp_change <> 'PLM'
4937: THEN
4938: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4939: THEN
4940: Error_Handler.Add_Error_Token
4941: ( p_Message_Name => 'ENG_CANNOT_HAVE_REVISION'
4942: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4943: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4944: , p_Token_Tbl => l_Token_Tbl
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;
4952:
4953:
4954: -- Revised Item must have a current (implemented) revision
4962: p_Revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
4963: THEN
4964: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4965: THEN
4966: Error_Handler.Add_Error_Token
4967: ( p_Message_Name => 'ENG_ITEM_NO_CURR_REV'
4968: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4969: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4970: , p_Token_Tbl => l_Token_Tbl
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:
4978: l_token_tbl.delete;
4979: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4980: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
4995: p_revised_item_rec.updated_revised_item_revision = l_current_item_revision))
4996: THEN
4997: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4998: THEN
4999: Error_Handler.Add_Error_Token
5000: ( p_Message_Name => 'ENG_ITEM_REV_NOT_EQ_CURR_REV'
5001: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5002: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5003: , p_Token_Tbl => l_Token_Tbl
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;
5011:
5012: /*********************************************************************
5013: --
5085: THEN
5086: IF FND_MSG_PUB.Check_Msg_Level
5087: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5088: THEN
5089: Error_Handler.Add_Error_Token
5090: ( --p_Message_Name => 'ENG_NEW_ITEM_REV_NOT_CURR'
5091: p_Message_Name => l_message_name
5092: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5093: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5116: l_token_tbl(3).token_value := l_change_notice;
5117: IF FND_MSG_PUB.Check_Msg_Level
5118: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5119: THEN
5120: Error_Handler.Add_Error_Token
5121: ( p_Message_Name => 'ENG_NEW_ITEM_REV_EXISTS'
5122: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5123: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5124: , p_token_tbl => l_token_tbl
5130: THEN
5131: IF FND_MSG_PUB.Check_Msg_Level
5132: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5133: THEN
5134: Error_Handler.Add_Error_Token
5135: ( p_Message_Name => 'ENG_NEW_ITEM_REV_IMPL'
5136: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5137: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5138: , p_Token_Tbl => l_Token_Tbl
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:
5146: -- Changes for bug 3618662
5147: IF Bom_Globals.Get_Debug = 'Y'
5148: THEN
5145:
5146: -- Changes for bug 3618662
5147: IF Bom_Globals.Get_Debug = 'Y'
5148: THEN
5149: Error_Handler.Write_Debug('Validate if the revisions and effectivity dates in ascending order. . . . ');
5150: END IF;
5151:
5152: IF (p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
5153: AND p_revised_item_rec.new_revised_item_revision IS NOT NULL
5178: THEN
5179: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5180: THEN
5181: l_Token_Tbl.delete;
5182: Error_Handler.Add_Error_Token
5183: ( p_Message_Name => 'ENG_REVISION_ORDER'
5184: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5185: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5186: , p_Token_Tbl => l_Token_Tbl
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.'
5194: ||' The return status is ' || l_Return_Status);
5195: END IF;
5196: -- End changes for bug 3618662
5197:
5213: IF l_is_scheduled_date_invalid = 1
5214: THEN
5215: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5216: THEN
5217: Error_Handler.Add_Error_Token
5218: ( p_Message_Name => 'ENG_INVALID_SCHED_DATE'
5219: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5220: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5221: , p_Token_Tbl => l_Token_Tbl
5235: **********************************************************************/
5236: IF p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND p_control_rec.caller_type <> 'SSWA'
5237: THEN
5238: IF BOM_Globals.get_debug = 'Y' THEN
5239: error_handler.write_debug('Verifying the subject level security for PLM ' );
5240: END IF;
5241: validate_rev_items_for_sub(
5242: p_change_notice => p_revised_item_rec.eco_name
5243: ,p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id
5248: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5249: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5250: l_token_tbl(2).token_name := 'ECO_NAME';
5251: l_token_tbl(2).token_value := p_revised_item_rec.eco_name;
5252: Error_Handler.Add_Error_Token
5253: ( p_Message_Name => 'ENG_REV_ITEM_SUB_DIFF'
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
5259: END IF;
5260: END IF;
5261: -- Done validating entity
5262: IF BOM_Globals.get_debug = 'Y' THEN
5263: error_handler.write_debug('End of validating entity, the return status is ' || l_Return_Status);
5264: END IF;
5265:
5266: x_return_status := l_return_status;
5267: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
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) ' ||
5287: substrb(SQLERRM,1,200);
5288: Error_Handler.Add_Error_Token
5289: ( p_Message_Name => NULL
5290: , p_Message_Text => l_err_text
5291: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5292: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5336: * attrbiute in its entirety.
5337: *****************************************************************************/
5338: PROCEDURE Check_Attributes
5339: ( x_return_status OUT NOCOPY VARCHAR2
5340: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5341: , p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
5342: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5343: , p_old_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
5344: , p_old_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5344: , p_old_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5345: )
5346: IS
5347: l_err_text VARCHAR2(2000) := NULL;
5348: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5349: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5350:
5351: -- Added by MK on 02/15/2001
5352: -- to validate alternate designator.
5345: )
5346: IS
5347: l_err_text VARCHAR2(2000) := NULL;
5348: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5349: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5350:
5351: -- Added by MK on 02/15/2001
5352: -- to validate alternate designator.
5353: CURSOR c_Check_Alternate( p_alt_designator VARCHAR2,
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.
5371:
5372: l_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
5384: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5385: THEN
5386: l_token_tbl(2).token_name := 'STATUS_TYPE';
5387: l_token_tbl(2).token_value := p_revised_item_rec.status_type;
5388: Error_Handler.Add_Error_Token
5389: ( p_Message_Name => 'ENG_RIT_STAT_TYPE_INVALID'
5390: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5391: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5392: , p_Token_Tbl => l_Token_Tbl);
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
5404: ( p_Message_Name => 'ENG_RIT_STAT_TYPE_MISSING'
5405: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5406: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5407: , p_Token_Tbl => l_Token_Tbl);
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;
5415:
5416: -- Creates or Updates of records marked Implemented is not allowed
5417: IF p_revised_item_rec.status_type = 6
5418: THEN
5417: IF p_revised_item_rec.status_type = 6
5418: THEN
5419: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5420: THEN
5421: Error_Handler.Add_Error_Token
5422: ( p_Message_Name => 'ENG_RIT_STAT_CANNOT_BE_IMPL'
5423: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5424: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5425: );
5438: )
5439: THEN
5440: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5441: THEN
5442: Error_Handler.Add_Error_Token
5443: ( p_Message_Name => 'ENG_RIT_CREATE_STAT_INVALID'
5444: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5445: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5446: );
5470: THEN
5471: l_token_tbl(2).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
5472: l_token_tbl(2).token_value :=
5473: p_revised_item_rec.from_end_item_unit_number;
5474: Error_Handler.Add_Error_Token
5475: ( p_Message_Name => 'ENG_FROM_END_ITEM_INVALID'
5476: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5477: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5478: , p_Token_Tbl => l_Token_Tbl
5499: THEN
5500: l_token_tbl(2).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
5501: l_token_tbl(2).token_value :=
5502: p_revised_item_rec.new_from_end_item_unit_number;
5503: Error_Handler.Add_Error_Token
5504: ( p_Message_Name => 'ENG_FROM_END_ITEM_INVALID'
5505: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5506: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5507: , p_Token_Tbl => l_Token_Tbl
5522: THEN
5523: l_token_tbl(2).token_name := 'MRP_ACTIVE';
5524: l_token_tbl(2).token_value :=
5525: p_revised_item_rec.mrp_active;
5526: Error_Handler.Add_Error_Token
5527: ( p_Message_Name => 'ENG_MRP_ACTIVE_INVALID'
5528: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5529: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5530: , p_Token_Tbl => l_Token_Tbl
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
5542: ( p_Message_Name => 'ENG_MRP_ACTIVE_MISSING'
5543: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5544: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5545: , p_Token_Tbl => l_Token_Tbl
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;
5554:
5555: IF p_revised_item_rec.update_wip IS NOT NULL AND
5556: ( p_revised_item_rec.update_wip <>
5557: p_old_revised_item_rec.update_wip OR
5564: THEN
5565: l_token_tbl(2).token_name := 'UPDATE_WIP';
5566: l_token_tbl(2).token_value :=
5567: p_revised_item_rec.update_wip;
5568: Error_Handler.Add_Error_Token
5569: ( p_Message_Name => 'ENG_UPDATE_WIP_INVALID'
5570: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5571: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5572: , p_Token_Tbl => l_Token_Tbl
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
5583: ( p_Message_Name => 'ENG_UPDATE_WIP_MISSING'
5584: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5585: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5586: , p_Token_Tbl => l_Token_Tbl
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;
5595:
5596: IF p_revised_item_rec.use_up_plan_name IS NOT NULL AND
5597: ( p_revised_item_rec.use_up_plan_name <>
5598: p_old_revised_item_rec.use_up_plan_name OR
5624: l_token_tbl(2).token_value :=
5625: p_revised_item_rec.revised_item_name;
5626: END IF;
5627:
5628: Error_Handler.Add_Error_Token
5629: ( p_Message_Name => l_err_text
5630: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5631: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5632: , p_Token_Tbl => l_Token_Tbl
5631: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5632: , p_Token_Tbl => l_Token_Tbl
5633: );
5634: IF Bom_Globals.Get_Debug = 'Y' THEN
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;
5656: p_revised_item_rec.revised_item_name;
5657: l_token_tbl(2).token_name := 'DISPOSITION_TYPE';
5658: l_token_tbl(2).token_value :=
5659: p_revised_item_rec.disposition_type;
5660: Error_Handler.Add_Error_Token
5661: ( p_Message_Name => 'ENG_DISPOSITION_TYPE_INVALID'
5662: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5663: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5664: , p_Token_Tbl => l_Token_Tbl
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
5676: ( p_Message_Name => 'ENG_DISPOSITION_TYPE_MISSING'
5677: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5678: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5679: , p_Token_Tbl => l_Token_Tbl
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;
5698: Error_Handler.Add_Error_Token
5699: ( p_message_name => 'BOM_RTG_CTP_INVALID'
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
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;
5714: Error_Handler.Add_Error_Token
5715: ( p_message_name => 'ENG_RIT_ECO_FOR_PROD_INVALID'
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
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
5729: Error_Handler.Add_Error_Token
5730: ( p_Message_Name => 'ENG_RIT_ECO_FOR_PROD_MISSING'
5731: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5732: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5733: , p_Token_Tbl => l_Token_Tbl
5744: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5745: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5746: l_token_tbl(2).token_name := 'MODEL_MAP_FLAG';
5747: l_token_tbl(2).token_value := p_revised_item_rec.mixed_model_map_flag;
5748: Error_Handler.Add_Error_Token
5749: ( p_message_name =>'BOM_RIT_MIXED_MDL_MAP_INVALID'
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
5774: p_revised_item_rec.alternate_bom_code;
5775: l_token_tbl(2).token_name := 'ORGANIZATION_CODE';
5776: l_token_tbl(2).token_value := p_revised_item_rec.organization_code;
5777:
5778: Error_Handler.Add_Error_Token
5779: ( p_Message_Name => 'BOM_ALT_DESIGNATOR_INVALID'
5780: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5781: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5782: , p_token_tbl => l_token_tbl
5790: END LOOP;
5791:
5792:
5793: IF Bom_Globals.Get_Debug = 'Y' THEN
5794: Error_Handler.Write_Debug('Alternate Desig Validated . . . status : '||x_return_status );
5795: END IF;
5796:
5797: END IF;
5798:
5801: p_rev_item_unexp_rec.organization_id) <> 'A'
5802: THEN
5803: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5804: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5805: Error_Handler.Add_Error_Token
5806: ( p_message_name => 'ENG_REV_ITEM_UNAPPROVED'
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
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
5831: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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) ' ||
5841: substrb(SQLERRM,1,200);
5842: Error_Handler.Add_Error_Token
5843: ( p_Message_Name => NULL
5844: , p_Message_Text => l_Err_Text
5845: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5846: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5867: * in the previous steps of the process flow)
5868: ******************************************************************************/
5869: PROCEDURE Check_Entity_Delete
5870: ( x_return_status OUT NOCOPY VARCHAR2
5871: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5872: , p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
5873: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5874: )
5875: IS
5936: FROM BOM_COMPONENTS_B bic
5937: WHERE bic.component_item_id = sitm.revised_item_id and
5938: bic.COMPONENT_ITEM_REVISION_ID = sitm.new_item_revision_id);
5939:
5940: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5941: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5942: BEGIN
5943: --
5944: -- Set the revised item token name and value
5937: WHERE bic.component_item_id = sitm.revised_item_id and
5938: bic.COMPONENT_ITEM_REVISION_ID = sitm.new_item_revision_id);
5939:
5940: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5941: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5942: BEGIN
5943: --
5944: -- Set the revised item token name and value
5945: --
5953: -- so it cannot be deleted.
5954: --
5955: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5956: THEN
5957: Error_Handler.Add_Error_Token
5958: ( p_Message_Name => 'ENG_CANNOT_DEL_COMP_EXIST'
5959: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5960: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5961: , p_Token_Tbl => l_Token_Tbl
5977: -- routing so it cannot be deleted.
5978: --
5979: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5980: THEN
5981: Error_Handler.Add_Error_Token
5982: ( p_Message_Name => 'ENG_CANNOT_DEL_OP_EXIST'
5983: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5984: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5985: , p_Token_Tbl => l_Token_Tbl
6004: IF check_delete <> 0
6005: THEN
6006: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6007: THEN
6008: Error_Handler.Add_Error_Token
6009: ( p_Message_Name => 'ENG_CANNOT_DEL_COMMON_EXIST'
6010: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6011: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6012: , p_Token_Tbl => l_Token_Tbl
6028: IF check_delete <> 0
6029: THEN
6030: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6031: THEN
6032: Error_Handler.Add_Error_Token
6033: ( p_Message_Name => 'ENG_CANNOT_DEL_RTG_COMMON_EXIST'
6034: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6035: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6036: , p_Token_Tbl => l_Token_Tbl
6047: IF l_allow_rev = 1
6048: THEN
6049: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6050: THEN
6051: Error_Handler.Add_Error_Token
6052: ( p_Message_Name => 'ENG_CANNOT_DEL_REVISION_IN_USE'
6053: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6054: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6055: , p_Token_Tbl => l_Token_Tbl
6084: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6085: THEN
6086: l_err_text := G_PKG_NAME || ' : (Entity Delete Validation) ' ||
6087: substrb(SQLERRM,1,200);
6088: Error_Handler.Add_Error_Token
6089: ( p_Message_Name => NULL
6090: , p_Message_Text => l_Err_Text
6091: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6092: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6117: ( p_revised_item_rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
6118: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
6119: , x_old_revised_item_rec IN OUT NOCOPY Eng_Eco_Pub.Revised_Item_Rec_Type
6120: , x_old_rev_item_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
6121: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6122: , x_Return_Status OUT NOCOPY VARCHAR2
6123: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
6124: )
6125: IS
6122: , x_Return_Status OUT NOCOPY VARCHAR2
6123: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
6124: )
6125: IS
6126: l_token_tbl Error_Handler.Token_Tbl_Type;
6127: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6128: l_return_status VARCHAR2(1);
6129: --Start of changes Bug no:3034642
6130: l_profile_exist BOOLEAN;
6123: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
6124: )
6125: IS
6126: l_token_tbl Error_Handler.Token_Tbl_Type;
6127: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6128: l_return_status VARCHAR2(1);
6129: --Start of changes Bug no:3034642
6130: l_profile_exist BOOLEAN;
6131: l_profile_val VARCHAR2(30);
6168: );
6169: IF l_return_status = Eng_Globals.G_RECORD_FOUND AND
6170: p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_CREATE
6171: THEN
6172: Error_Handler.Add_Error_Token
6173: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
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
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
6183: Error_Handler.Add_Error_Token
6184: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
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
6194: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6195: , p_message_name => NULL
6196: , p_message_text =>
6224: if UPPER(p_revised_item_rec.Transaction_Type) =UPPER('Create')
6225: and p_revised_item_rec.New_Revised_Item_Revision is not null
6226: and x_disable_revision = 1
6227: then
6228: error_handler.add_error_token (
6229: p_message_name=> 'ENG_ITEMREV_NOT_ALLOW',
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
6256: PROCEDURE Check_Access_Scheduled
6257: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
6258: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
6259:
6260: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6261: , x_Return_Status OUT NOCOPY VARCHAR2
6262: )
6263: IS
6264: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6260: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
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
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:
6270:
6336: -- The user has given values for some other colums
6337: -- Thus, it is assumed that the user is trying to update these columns
6338: -- Since these values cannot be updated when the CO is in scheduled status
6339: -- Error is thrown
6340: Error_Handler.Add_Error_Token
6341: ( p_Message_Name => 'ENG_RIT_NO_UPDATE_SCHEDULED'
6342: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6343: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6344: , p_Token_Tbl => l_token_tbl
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
6352: ( p_Message_Name => 'ENG_RIT_SCHEDULED_DATE_NULL'
6353: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6354: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6355: , p_Token_Tbl => l_token_tbl
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
6363: ( p_Message_Name => 'ENG_RIT_EFF_DATE_INVALID'
6364: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6365: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6366: , p_Token_Tbl => l_token_tbl
6387: , p_operation_seq_num IN NUMBER := NULL
6388: , p_routing_sequence_id IN NUMBER := NULL
6389: , p_operation_type IN NUMBER := NULL
6390: , p_alternate_bom_code IN VARCHAR2 := NULL
6391: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
6392: Error_Handler.G_MISS_MESG_TOKEN_TBL
6393: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6394: , x_Return_Status OUT NOCOPY VARCHAR2
6395: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6388: , p_routing_sequence_id IN NUMBER := NULL
6389: , p_operation_type IN NUMBER := NULL
6390: , p_alternate_bom_code IN VARCHAR2 := NULL
6391: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
6392: Error_Handler.G_MISS_MESG_TOKEN_TBL
6393: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6394: , x_Return_Status OUT NOCOPY VARCHAR2
6395: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6396: )
6389: , p_operation_type IN NUMBER := NULL
6390: , p_alternate_bom_code IN VARCHAR2 := NULL
6391: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
6392: Error_Handler.G_MISS_MESG_TOKEN_TBL
6393: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6394: , x_Return_Status OUT NOCOPY VARCHAR2
6395: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6396: )
6397: IS
6394: , x_Return_Status OUT NOCOPY VARCHAR2
6395: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6396: )
6397: IS
6398: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
6399: p_Mesg_Token_Tbl;
6400: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6401: l_Return_Status VARCHAR2(1);
6402: l_is_item_unit_controlled BOOLEAN := FALSE;
6396: )
6397: IS
6398: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
6399: p_Mesg_Token_Tbl;
6400: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6401: l_Return_Status VARCHAR2(1);
6402: l_is_item_unit_controlled BOOLEAN := FALSE;
6403:
6404: CURSOR c_CheckRevisedItem IS
6475: THEN
6476: FOR revised_item IN c_RevItemType
6477: LOOP
6478: IF revised_item.eng_item_flag = 'Y' THEN
6479: Error_Handler.Add_Error_Token
6480: ( p_Message_Name => 'ENG_ITEM_ACCESS_DENIED'
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
6492: --
6493: IF BOM_Globals.Is_RItem_Cancl IS NULL AND
6494: BOM_Globals.Is_RItem_Impl IS NULL
6495: THEN
6496: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for revised item impl /canceled . . .'); END IF;
6497:
6498: FOR revised_item IN c_CheckRevisedItem
6499: LOOP
6500: IF revised_item.status_type = 5 THEN
6534: EXCEPTION
6535: WHEN NO_DATA_FOUND THEN
6536: l_status_type_name := NULL;
6537: END;
6538: Error_Handler.Add_Error_Token
6539: ( p_Message_Name => 'ENG_RIT_PLM_NO_ACCESS_STATUS'
6540: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6541: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6542: , p_Token_Tbl => l_token_tbl
6550: END IF;
6551:
6552: IF NVL(BOM_Globals.Is_RItem_Impl, FALSE) = TRUE
6553: THEN
6554: Error_Handler.Add_Error_Token
6555: ( p_Message_Name => 'ENG_RIT_IMPLEMENTED'
6556: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6557: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6558: , p_Token_Tbl => l_token_tbl
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
6588: THEN
6589: BOM_Globals.Set_STD_Item_Access
6590: ( p_std_item_access => 4);
6591: ELSE
6592: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;
6593: BOM_Globals.Set_STD_Item_Access
6594: (p_std_item_access => NULL);
6595: END IF;
6596:
6620: FOR RevItem IN c_RevItemType
6621: LOOP
6622: IF RevItem.Bom_Item_Type = 5
6623: THEN
6624: Error_Handler.Add_Error_Token
6625: ( p_Message_Name => 'ENG_REV_ITEM_PROD_FAMILY'
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
6650: THEN
6651: l_Token_Tbl(2).Token_Value := 'ENG_STANDARD';
6652: END IF;
6653:
6654: Error_Handler.Add_Error_Token
6655: ( p_Message_Name => 'ENG_REV_ITEM_ACCESS_DENIED'
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
6670:
6671: IF NOT BOM_Globals.Get_Unit_Effectivity AND
6672: l_is_item_unit_controlled
6673: THEN
6674: Error_Handler.Add_Error_Token
6675: ( p_Message_Name => 'ENG_REV_ITEM_UNIT_CONTROL'
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
6710: l_token_tbl.delete;
6711: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
6712: l_token_tbl(1).token_value := p_revised_item_name ;
6713:
6714: Error_Handler.Add_Error_Token
6715: ( p_Message_Name => 'ENG_CANNOT_ADD_ALTERNATE'
6716: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6717: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6718: , p_Token_Tbl => l_Token_Tbl
6749: l_token_tbl.delete;
6750: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
6751: l_token_tbl(1).token_value := p_revised_item_name ;
6752:
6753: Error_Handler.Add_Error_Token
6754: ( p_Message_Name => 'ENG_RIT_RTG_CANT_ADD_ALTERNATE'
6755: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6756: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6757: , p_Token_Tbl => l_Token_Tbl
6771: LOOP
6772: l_token_tbl.DELETE;
6773: l_Token_Tbl(1).Token_Name := 'OP_SEQ_NUMBER';
6774: l_Token_Tbl(1).Token_value := p_operation_seq_num;
6775: Error_Handler.Add_Error_Token
6776: ( p_Message_Name => 'BOM_REV_OP_CANCELLED'
6777: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6778: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6779: , p_Token_Tbl => l_token_tbl
6798: THEN
6799: l_token_tbl.DELETE;
6800: l_Token_Tbl(1).Token_Name := 'STRUCTURE_NAME';
6801: l_Token_Tbl(1).Token_value := p_alternate_bom_code;
6802: Error_Handler.Add_Error_Token
6803: ( p_Message_Name => 'ENG_BILL_CHANGES_NOT_ALLOWED'
6804: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6805: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6806: , p_Token_Tbl => l_token_tbl
6812: --
6813: -- If all the access checks are satisfied then return a status of
6814: -- success, else return error.
6815: --
6816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Check Access returning . . . ' ||
6817: l_return_status);
6818: END IF;
6819:
6820: x_Return_Status := l_return_status;
7000: IS
7001: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Revised_Item';
7002: l_api_version CONSTANT NUMBER := 1.0;
7003: l_return_status VARCHAR2(1);
7004: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7005:
7006: l_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
7007: l_rev_item_unexp_rec Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type;
7008: l_old_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
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:
7037: IF p_debug = 'Y'
7038: THEN
7036:
7037: IF p_debug = 'Y'
7038: THEN
7039: BOM_Globals.Set_Debug(p_debug);
7040: Error_Handler.Open_Debug_Session(
7041: p_debug_filename => p_debug_filename
7042: , p_output_dir => p_output_dir
7043: , x_return_status => l_return_status
7044: , x_error_mesg => x_msg_data
7316:
7317: x_msg_data := l_msg_data;
7318: IF Bom_Globals.Get_Debug = 'Y'
7319: THEN
7320: Error_Handler.Write_Debug('-***-End API Validate_Revised_Item-***-');
7321: Error_Handler.Close_Debug_Session;
7322: END IF;
7323:
7324:
7317: x_msg_data := l_msg_data;
7318: IF Bom_Globals.Get_Debug = 'Y'
7319: THEN
7320: Error_Handler.Write_Debug('-***-End API Validate_Revised_Item-***-');
7321: Error_Handler.Close_Debug_Session;
7322: END IF;
7323:
7324:
7325: EXCEPTION
7334: , p_data => x_msg_data
7335: );
7336: IF Bom_Globals.Get_Debug = 'Y'
7337: THEN
7338: Error_Handler.Write_Debug('Unexpected Error ');
7339: Error_Handler.Close_Debug_Session;
7340: END IF;
7341:
7342: END Validate_Revised_Item;
7335: );
7336: IF Bom_Globals.Get_Debug = 'Y'
7337: THEN
7338: Error_Handler.Write_Debug('Unexpected Error ');
7339: Error_Handler.Close_Debug_Session;
7340: END IF;
7341:
7342: END Validate_Revised_Item;
7343: