[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:
1547:
1548: BEGIN
1549:
1550: IF Bom_Globals.Get_Debug = 'Y' THEN
1551: Error_Handler.Write_Debug('Check Locators. . .Locator Id is ' || to_char(p_locator_id));
1552: END IF;
1553:
1554: l_org_locator_control := 0 ;
1555: l_item_locator_control := 0;
1576: AND inventory_item_id = p_revised_item_id;
1577:
1578:
1579: IF Bom_Globals.Get_Debug = 'Y' THEN
1580: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1581: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1582: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1583: END IF;
1584:
1577:
1578:
1579: IF Bom_Globals.Get_Debug = 'Y' THEN
1580: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1581: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1582: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1583: END IF;
1584:
1585: /**************************************
1578:
1579: IF Bom_Globals.Get_Debug = 'Y' THEN
1580: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1581: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1582: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1583: END IF;
1584:
1585: /**************************************
1586: -- Locator_Control_Code
1607: END IF;
1608: */
1609:
1610: IF Bom_Globals.Get_Debug = 'Y' THEN
1611: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
1612: END IF;
1613:
1614:
1615:
1631: Item_Control => l_item_locator_control
1632: );
1633:
1634: IF Bom_Globals.Get_Debug = 'Y' THEN
1635: Error_Handler.Write_Debug('Calling BOM_Validate_Rtg_Header.Control. Loc Control '||
1636: to_char(x_control) );
1637: END IF;
1638:
1639: l_locator_control := x_control;
1651: -- Clubbing prespecified and dynamic checking logic to sink ENG code with existing BOM API code (BOMLRTGB.pls) BUG# 3761854.
1652: BEGIN
1653:
1654: IF Bom_Globals.Get_Debug = 'Y' THEN
1655: Error_Handler.Write_Debug ('Checking when x_control returned 2 and ' ||
1656: ' item locator is ' ||
1657: to_char(l_item_locator_control));
1658: END IF;
1659: --bug 2463393 modified the above check
1678: IF l_item_loc_restricted = 1 -- Restrict Locators = YES
1679: THEN
1680: -- Check for restrict Locators YES
1681: IF Bom_Globals.Get_Debug = 'Y' THEN
1682: Error_Handler.Write_Debug ('Before Checking for restrict Locators Yes. ' );
1683: END IF;
1684: SELECT 'Valid'
1685: INTO l_dummy
1686: FROM mtl_item_locations mil,
1693: AND mil.organization_id = msl.organization_id
1694: AND NVL(mil.disable_date, SYSDATE+1) > SYSDATE ;
1695:
1696: IF Bom_Globals.Get_Debug = 'Y' THEN
1697: Error_Handler.Write_Debug ('Restrict locators is Y . ' ||
1698: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1699: || ' are valid.' );
1700: END IF;
1701:
1714: AND mil.organization_id = p_organization_id
1715: AND NVL(mil.DISABLE_DATE, SYSDATE+1) > SYSDATE;
1716:
1717: IF Bom_Globals.Get_Debug = 'Y' THEN
1718: Error_Handler.Write_Debug ('Restrict locators is No . ' ||
1719: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1720: || ' are valid.' );
1721: END IF;
1722:
1729: EXCEPTION
1730: WHEN NO_DATA_FOUND THEN
1731:
1732: IF Bom_Globals.Get_Debug = 'Y' THEN
1733: Error_Handler.Write_Debug ('Locator is invlaid . ' );
1734: END IF ;
1735:
1736: RETURN FALSE;
1737: END; -- x_control=2 Ends
1742: -- Dynamic locators are not allowed in open
1743: -- interface, so raise an error if the locator
1744: -- control is dynamic.
1745: IF Bom_Globals.Get_Debug = 'Y' THEN
1746: Error_Handler.Write_Debug ('Dynamic Locator Control. ' ) ;
1747: END IF ;
1748: l_locator_control := 3;
1749:
1750:
2052: * with an error status.
2053: *****************************************************************************/
2054: PROCEDURE Check_Required
2055: ( x_return_status OUT NOCOPY VARCHAR2
2056: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2057: , p_revised_item_Rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
2058: )
2059: IS
2060: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2056: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2057: , p_revised_item_Rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
2058: )
2059: IS
2060: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2061: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2062: BEGIN
2063: x_return_status := FND_API.G_RET_STS_SUCCESS;
2064: l_Token_Tbl(1).Token_name := 'REVISED_ITEM_NAME';
2057: , p_revised_item_Rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
2058: )
2059: IS
2060: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2061: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2062: BEGIN
2063: x_return_status := FND_API.G_RET_STS_SUCCESS;
2064: l_Token_Tbl(1).Token_name := 'REVISED_ITEM_NAME';
2065: l_Token_Tbl(1).Token_Value := p_revised_item_Rec.revised_item_name;
2076: NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1
2077: THEN
2078: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2079: THEN
2080: Error_Handler.Add_Error_Token
2081: ( p_Message_Name => 'ENG_NEW_REVISION_MISSING'
2082: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2083: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2084: , p_Token_Tbl => l_Token_Tbl
2096: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
2097: THEN
2098: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2099: THEN
2100: Error_Handler.Add_Error_Token
2101: ( p_Message_Name =>'ENG_UPDATED_REVISION_MISSING'
2102: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2103: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2104: , p_Token_Tbl => l_Token_Tbl
2130: , p_old_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
2131: , p_old_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
2132: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
2133: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
2134: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2135: , x_Return_Status OUT NOCOPY VARCHAR2
2136: )
2137: IS
2138: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2407:
2408:
2409: l_IsUseUpValid BOOLEAN;
2410: l_IsDateValid BOOLEAN;
2411: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2412: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2413: l_use_up_date DATE := SYSDATE;
2414: l_new_rev_required NUMBER := 0;
2415:
2408:
2409: l_IsUseUpValid BOOLEAN;
2410: l_IsDateValid BOOLEAN;
2411: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2412: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2413: l_use_up_date DATE := SYSDATE;
2414: l_new_rev_required NUMBER := 0;
2415:
2416: -- Followings are added by MK on 08/26/2000
2424:
2425: BEGIN
2426:
2427: IF Bom_Globals.Get_Debug = 'Y' THEN
2428: Error_Handler.Write_Debug('Performing Check Entity in Revised Item - Trans type: ' || p_revised_item_rec.transaction_Type );
2429: END IF;
2430:
2431: --
2432: -- Set revised item token name and value.
2481: )
2482: THEN
2483: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2484: THEN
2485: Error_Handler.Add_Error_Token
2486: ( p_Message_Name => 'ENG_RIT_ACCESS_WOECTV_DENIED'
2487: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2488: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2489: , p_Token_Tbl => l_Token_Tbl
2491: END IF;
2492: l_return_status := FND_API.G_RET_STS_ERROR;
2493: END IF;
2494: IF BOM_Globals.get_debug = 'Y' THEN
2495: error_handler.write_debug('After check if rev item is unit conrolled in new eco type. . . the return status : ' ||
2496: l_Return_Status );
2497: END IF;
2498:
2499:
2514: )
2515: THEN
2516: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2517: THEN
2518: Error_Handler.Add_Error_Token
2519: ( p_Message_Name => 'ENG_RIT_MAC_UWIP_INVALID'
2520: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2521: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2522: , p_Token_Tbl => l_Token_Tbl
2525: l_return_status := FND_API.G_RET_STS_ERROR;
2526: END IF;
2527:
2528: IF BOM_Globals.get_debug = 'Y' THEN
2529: error_handler.write_debug('After check new eco type attributes, the return status is ' ||
2530: l_Return_Status);
2531: END IF;
2532:
2533: /*********************************************************************
2546: AND p_revised_item_rec.lot_number IS NOT NULL
2547: THEN
2548: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2549: THEN
2550: Error_Handler.Add_Error_Token
2551: ( p_Message_Name => 'ENG_RIT_LOTNUM_MUSTBE_NULL'
2552: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2553: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2554: , p_Token_Tbl => l_Token_Tbl
2557: l_return_status := FND_API.G_RET_STS_ERROR;
2558: END IF;
2559:
2560: IF BOM_Globals.get_debug = 'Y' THEN
2561: error_handler.write_debug('After check lot number and type, the return status is ' ||
2562: l_Return_Status);
2563: END IF;
2564:
2565: /*****************************************************************
2573: AND p_rev_item_unexp_rec.from_wip_entity_id IS NULL
2574: THEN
2575: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2576: THEN
2577: Error_Handler.Add_Error_Token
2578: ( p_Message_Name => 'ENG_RIT_FROMWO_MUSTNOT_NULL'
2579: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2580: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2581: , p_Token_Tbl => l_Token_Tbl
2584: l_return_status := FND_API.G_RET_STS_ERROR;
2585: END IF;
2586:
2587: IF BOM_Globals.get_debug = 'Y' THEN
2588: error_handler.write_debug('After check wip id, the return status is ' || l_Return_Status);
2589: END IF;
2590: /*****************************************************************
2591: -- If To Work Order is not Null then
2592: -- To Work Order must be greater than From Work Order
2599: OR p_rev_item_unexp_rec.from_wip_entity_id IS NULL)
2600: THEN
2601: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2602: THEN
2603: Error_Handler.Add_Error_Token
2604: ( p_Message_Name => 'ENG_RIT_FROMWO_INVALID'
2605: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2607: , p_Token_Tbl => l_Token_Tbl
2610: l_return_status := FND_API.G_RET_STS_ERROR;
2611: END IF;
2612:
2613: IF BOM_Globals.get_debug = 'Y' THEN
2614: error_handler.write_debug('After check work order, the return status is ' || l_Return_Status);
2615: END IF;
2616:
2617: /*****************************************************************
2618: -- If From Work Order and To Work Order is not Null then
2626: AND p_revised_item_rec.from_cumulative_quantity IS NOT NULL
2627: THEN
2628: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2629: THEN
2630: Error_Handler.Add_Error_Token
2631: ( p_Message_Name => 'ENG_RIT_CUMQTY_INVALID'
2632: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2633: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2634: , p_Token_Tbl => l_Token_Tbl
2637: l_return_status := FND_API.G_RET_STS_ERROR;
2638: END IF;
2639:
2640: IF BOM_Globals.get_debug = 'Y' THEN
2641: error_handler.write_debug('After check type and cumu, the return status is ' ||
2642: l_Return_Status);
2643: END IF;
2644: /*****************************************************************
2645: -- If Cumulative Quantity is not null then
2653: AND p_revised_item_rec.from_cumulative_quantity IS NOT NULL
2654: THEN
2655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2656: THEN
2657: Error_Handler.Add_Error_Token
2658: ( p_Message_Name => 'ENG_RIT_ECO_BY_CUMQTY_INVALID'
2659: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2660: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2661: , p_Token_Tbl => l_Token_Tbl
2664: l_return_status := FND_API.G_RET_STS_ERROR;
2665: END IF;
2666:
2667: IF BOM_Globals.get_debug = 'Y' THEN
2668: error_handler.write_debug('After check cumulative qty and from/to id, the return status is ' ||
2669: l_Return_Status);
2670: END IF;
2671:
2672: /*****************************************************************
2681: AND p_revised_item_rec.from_cumulative_quantity IS NULL
2682: THEN
2683: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2684: THEN
2685: Error_Handler.Add_Error_Token
2686: ( p_Message_Name => 'ENG_RIT_FROMWO_ISNOT_NULL'
2687: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2688: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2689: , p_Token_Tbl => l_Token_Tbl
2692: l_return_status := FND_API.G_RET_STS_ERROR;
2693: END IF;
2694:
2695: IF BOM_Globals.get_debug = 'Y' THEN
2696: error_handler.write_debug('After check work order and cumulative qty, the return status is ' ||
2697: l_Return_Status);
2698: END IF;
2699:
2700: /*****************************************************************
2713: )
2714: THEN
2715: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2716: THEN
2717: Error_Handler.Add_Error_Token
2718: ( p_Message_Name => 'ENG_RIT_ECO_BY_LOT_INVALID'
2719: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2720: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2721: , p_Token_Tbl => l_Token_Tbl
2740: )
2741: LOOP
2742: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2743: THEN
2744: Error_Handler.Add_Error_Token
2745: ( p_Message_Name => 'ENG_RIT_LOTNUM_WO_RELEASED'
2746: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2747: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2748: , p_Token_Tbl => l_Token_Tbl
2753: END IF ;
2754: END IF ;
2755:
2756: IF BOM_Globals.get_debug = 'Y'THEN
2757: error_handler.write_debug('After check release status, the return status is ' ||
2758: l_Return_Status);
2759: END IF;
2760:
2761: /*****************************************************************
2783: IF l_wipjob_for_eco_cum_csr%NOTFOUND THEN
2784: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2785: THEN
2786:
2787: Error_Handler.Add_Error_Token
2788: ( p_Message_Name => 'ENG_RIT_CUMQTY_WO_RELEASED'
2789: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2790: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2791: , p_Token_Tbl => l_Token_Tbl
2800: THEN
2801: l_Token_Tbl(2).Token_Name := 'WORK_ORDER';
2802: l_Token_Tbl(2).Token_Value := p_revised_item_rec.from_work_order ;
2803:
2804: Error_Handler.Add_Error_Token
2805: ( p_Message_Name => 'ENG_RIT_CUMQTY_WO_QTY_INVALID'
2806: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2807: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2808: , p_Token_Tbl => l_Token_Tbl
2817: THEN
2818: l_Token_Tbl(2).Token_Name := 'WORK_ORDER';
2819: l_Token_Tbl(2).Token_Value := p_revised_item_rec.from_work_order ;
2820:
2821: Error_Handler.Add_Error_Token
2822: ( p_Message_Name => 'ENG_RIT_CUMQTY_WO_DATE_INVALID'
2823: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2824: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2825: , p_Token_Tbl => l_Token_Tbl
2831: CLOSE l_wipjob_for_eco_cum_csr ;
2832: END IF ;
2833:
2834: IF BOM_Globals.get_debug = 'Y' THEN
2835: error_handler.write_debug('After check released status and cum, the return status is ' ||
2836: l_Return_Status);
2837: END IF;
2838:
2839: /*****************************************************************
2862: )
2863: LOOP
2864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2865: THEN
2866: Error_Handler.Add_Error_Token
2867: ( p_Message_Name => 'ENG_RIT_WORANGE_WO_RELEASED'
2868: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2869: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2870: , p_Token_Tbl => l_Token_Tbl
2873: l_return_status := FND_API.G_RET_STS_ERROR;
2874: END LOOP ;
2875:
2876: IF BOM_Globals.get_debug = 'Y' THEN
2877: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2878: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2879: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2880: ,'YYYY-MM-DD') );
2881: error_handler.write_debug('After check ECO WO Number, the return status is');
2874: END LOOP ;
2875:
2876: IF BOM_Globals.get_debug = 'Y' THEN
2877: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2878: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2879: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2880: ,'YYYY-MM-DD') );
2881: error_handler.write_debug('After check ECO WO Number, the return status is');
2882: END IF;
2875:
2876: IF BOM_Globals.get_debug = 'Y' THEN
2877: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2878: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2879: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2880: ,'YYYY-MM-DD') );
2881: error_handler.write_debug('After check ECO WO Number, the return status is');
2882: END IF;
2883: END IF ;
2877: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2878: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2879: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2880: ,'YYYY-MM-DD') );
2881: error_handler.write_debug('After check ECO WO Number, the return status is');
2882: END IF;
2883: END IF ;
2884:
2885: END IF ;
2885: END IF ;
2886: --End of Entity Validation for New Effectivities
2887:
2888: IF BOM_Globals.get_debug = 'Y' THEN
2889: error_handler.write_debug('After check new Effectivities, the return status is ' ||
2890: l_Return_Status);
2891: END IF;
2892:
2893: /*****************************************************************
2909: THEN
2910:
2911: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2912: THEN
2913: Error_Handler.Add_Error_Token
2914: ( p_Message_Name => 'ENG_RIT_ECO_FOR_PROD_MUSTBE_NO'
2915: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2916: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2917: , p_Token_Tbl => l_Token_Tbl
2929: )
2930: THEN
2931: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2932: THEN
2933: Error_Handler.Add_Error_Token
2934: ( p_Message_Name => 'ENG_RIT_ECO_FOR_PROD_MUSTBE_Y'
2935: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2936: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2937: , p_Token_Tbl => l_Token_Tbl
2977: THEN
2978:
2979: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2980: THEN
2981: Error_Handler.Add_Error_Token
2982: ( p_Message_Name => 'ENG_RIT_CANNOT_CHANGE_RTG'
2983: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2984: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2985: , p_Token_Tbl => l_Token_Tbl
2990: close l_rtg_header_csr;
2991: END IF ;
2992:
2993: IF BOM_Globals.get_debug = 'Y' THEN
2994: error_handler.write_debug('After check unit control for Routing, the return status is ' ||
2995: l_Return_Status);
2996: END IF;
2997:
2998:
3009: NVL(p_old_rev_item_unexp_rec.bill_sequence_id, 0)
3010: )
3011: THEN
3012:
3013: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alternate you have entered : '
3014: || p_revised_item_rec.alternate_bom_code ); END IF;
3015:
3016: l_token_tbl.DELETE;
3017: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3018: l_token_tbl(1).token_value :=
3019: p_revised_item_rec.revised_item_name;
3020: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3021: THEN
3022: Error_Handler.Add_Error_Token
3023: ( p_Message_Name => 'ENG_ALT_DESG_NOT_UPDATEABLE'
3024: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3025: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3026: , p_Token_Tbl => l_Token_Tbl
3028: END IF;
3029: l_return_status := FND_API.G_RET_STS_ERROR;
3030:
3031: IF Bom_Globals.Get_Debug = 'Y' THEN
3032: Error_Handler.Write_Debug('After check if alternate code is changed, the return status is ' ||
3033: l_Return_Status);
3034: END IF;
3035:
3036:
3044: FOR alt IN c_GetRtgAltDesignator
3045: LOOP
3046: l_alternate_rtg_designator := alt.alternate_routing_designator ;
3047:
3048: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_rtg_designator); END IF;
3049:
3050: END LOOP;
3051:
3052: IF l_alternate_rtg_designator IS NOT NULL AND
3058: l_token_tbl(1).token_value :=
3059: p_revised_item_rec.revised_item_name;
3060: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3061: THEN
3062: Error_Handler.Add_Error_Token
3063: ( p_Message_Name => 'ENG_ALT_DESG_NOT_UPDATEABLE'
3064: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3065: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3066: , p_Token_Tbl => l_Token_Tbl
3107: THEN
3108:
3109: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3110: THEN
3111: Error_Handler.Add_Error_Token
3112: ( p_Message_Name => 'ENG_RIT_CANNOT_BE_ON_RTG'
3113: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3114: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3115: , p_Token_Tbl => l_Token_Tbl
3117: END IF;
3118: l_return_status := FND_API.G_RET_STS_ERROR;
3119:
3120: IF Bom_Globals.Get_Debug = 'Y' THEN
3121: Error_Handler.Write_Debug('After check if a rtg can be created for this rev item, the return status is ' || l_Return_Status);
3122: END IF;
3123:
3124:
3125: END IF ;
3133: p_revised_item_rec.transaction_type = ENG_Globals.G_OPR_CREATE
3134: THEN
3135: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3136: THEN
3137: Error_Handler.Add_Error_Token
3138: ( p_Message_Name => 'ENG_CANNOT_HAVE_RTG_REVISION'
3139: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3140: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3141: , p_Token_Tbl => l_Token_Tbl
3148: p_revised_item_rec.updated_routing_revision IS NOT NULL
3149: THEN
3150: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3151: THEN
3152: Error_Handler.Add_Error_Token
3153: ( p_Message_Name => 'ENG_CANNOT_HAVE_RTG_REVISION'
3154: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3155: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3156: , p_Token_Tbl => l_Token_Tbl
3159: l_return_status := FND_API.G_RET_STS_ERROR;
3160: END IF;
3161:
3162: IF Bom_Globals.Get_Debug = 'Y' THEN
3163: Error_Handler.Write_Debug('After checking rtg revision is null when alt code is not null, the return status is ' || l_return_status );
3164: END IF;
3165:
3166:
3167:
3175: , '''') <> 0
3176: THEN
3177: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3178: THEN
3179: Error_Handler.Add_Error_Token
3180: ( p_Message_Name => 'ENG_RIT_RTGREV_QTE_NOT_ALLOWED'
3181: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3182: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3183: , p_Token_Tbl => l_Token_Tbl
3187:
3188: END IF;
3189:
3190: IF BOM_Globals.get_debug = 'Y' THEN
3191: error_handler.write_debug('After check routing rev, the return status is ' || l_Return_Status);
3192: END IF;
3193:
3194:
3195: /*********************************************************************
3213: , x_revision => l_revision
3214: );
3215:
3216: IF BOM_Globals.get_debug = 'Y'THEN
3217: error_handler.write_debug('After Pending_High_Rtg_Rev, the return status is ' || l_Return_Status);
3218: END IF;
3219:
3220:
3221:
3236: l_token_tbl(3).token_value := l_revision;
3237:
3238: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3239: THEN
3240: Error_Handler.Add_Error_Token
3241: ( p_Message_Name => 'ENG_RIT_HIGH_RTG_REV_PENDING'
3242: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3243: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3244: , p_Token_Tbl => l_Token_Tbl
3246: END IF;
3247: END IF;
3248:
3249: IF BOM_Globals.get_debug = 'Y' THEN
3250: error_handler.write_debug('After check pending eco, the return status is ' || l_Return_Status);
3251: END IF;
3252:
3253: END IF;
3254:
3298:
3299: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3300: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3301:
3302: Error_Handler.Add_Error_Token
3303: ( p_Message_Name => 'ENG_RIT_NEW_RTG_REV_NOT_CURR'
3304: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3305: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3306: , p_Token_Tbl => l_Token_Tbl );
3327: l_token_tbl(3).token_value := l_change_notice;
3328:
3329: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3330: THEN
3331: Error_Handler.Add_Error_Token
3332: ( p_Message_Name => 'ENG_RIT_NEW_RTG_REV_EXISTS'
3333: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3334: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3335: , p_token_tbl => l_token_tbl
3345:
3346: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3347: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3348:
3349: Error_Handler.Add_Error_Token
3350: ( p_Message_Name => 'ENG_RIT_NEW_RTG_REV_IMPL'
3351: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3352: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3353: , p_Token_Tbl => l_Token_Tbl
3357: END IF;
3358: END IF;
3359:
3360: IF BOM_Globals.get_debug = 'Y' THEN
3361: error_handler.write_debug('After check transaction type, the return status is ' || l_Return_Status);
3362: END IF;
3363:
3364:
3365: /*********************************************************************
3381: )
3382: THEN
3383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3384: THEN
3385: Error_Handler.Add_Error_Token
3386: ( p_Message_Name => 'ENG_RIT_CTP_ALREADY_EXISTS'
3387: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3388: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3389: , p_Token_Tbl => l_Token_Tbl
3392: l_return_status := FND_API.G_RET_STS_ERROR;
3393: END IF ;
3394:
3395: IF BOM_Globals.get_debug = 'Y' THEN
3396: error_handler.write_debug('After check ctp flag, the return status is ' || l_Return_Status);
3397: END IF;
3398: END IF ;
3399:
3400: /*********************************************************************
3414: , p_priority => p_revised_item_rec.priority )
3415: THEN
3416: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3417: THEN
3418: Error_Handler.Add_Error_Token
3419: ( p_Message_Name => 'ENG_RIT_PRIORITY_DUPLICATE'
3420: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3421: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3422: , p_Token_Tbl => l_Token_Tbl
3425: l_return_status := FND_API.G_RET_STS_ERROR;
3426: END IF ;
3427:
3428: IF BOM_Globals.get_debug = 'Y' THEN
3429: error_handler.write_debug('After check priority, the return status is ' || l_Return_Status);
3430: END IF;
3431:
3432: END IF ;
3433:
3436: -- Added by MK 08/26/2000
3437: -- Check Completion Subinventory
3438: **********************************************************************/
3439: IF Bom_Globals.Get_Debug = 'Y' THEN
3440: Error_Handler.Write_Debug('Performing completeion subinventory check. . . Sub Inv : '
3441: || p_revised_item_rec.completion_subinventory ) ;
3442: Error_Handler.Write_Debug('Old Completion_subinv is:'||p_old_revised_item_rec.completion_subinventory );
3443: END IF;
3444:
3438: **********************************************************************/
3439: IF Bom_Globals.Get_Debug = 'Y' THEN
3440: Error_Handler.Write_Debug('Performing completeion subinventory check. . . Sub Inv : '
3441: || p_revised_item_rec.completion_subinventory ) ;
3442: Error_Handler.Write_Debug('Old Completion_subinv is:'||p_old_revised_item_rec.completion_subinventory );
3443: END IF;
3444:
3445: IF (( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
3446: AND
3453: OR p_revised_item_rec.completion_subinventory = FND_API.G_MISS_CHAR)
3454: THEN
3455:
3456: IF Bom_Globals.Get_Debug = 'Y' THEN
3457: Error_Handler.Write_Debug('Inside the process when subinventory is null' ) ;
3458: END IF;
3459:
3460: IF p_rev_item_unexp_rec.completion_locator_id IS NOT NULL
3461: AND p_rev_item_unexp_rec.completion_locator_id <> FND_API.G_MISS_NUM
3466: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3467: -- l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3468: -- l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3469:
3470: Error_Handler.Add_Error_Token
3471: ( p_message_name => 'BOM_RTG_LOCATOR_MUST_BE_NULL'
3472: , p_token_tbl => l_token_tbl
3473: , p_mesg_token_tbl => l_mesg_token_tbl
3474: , x_mesg_token_tbl => l_mesg_token_tbl
3488: OR p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR)
3489: THEN
3490:
3491: IF Bom_Globals.Get_Debug = 'Y' THEN
3492: Error_Handler.Write_Debug('Inside the process when subinventory is not null' ) ;
3493: END IF;
3494:
3495: IF NOT Check_SubInv_Exists(p_organization_id => p_rev_item_unexp_rec.organization_id
3496: , p_subinventory => p_revised_item_rec.completion_subinventory
3501: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name ;
3502: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY' ;
3503: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory ;
3504:
3505: Error_Handler.Add_Error_Token
3506: ( p_message_name => 'BOM_RTG_SUBINV_NAME_INVALID'
3507: , p_token_tbl => l_token_tbl
3508: , p_mesg_token_tbl => l_mesg_token_tbl
3509: , x_mesg_token_tbl => l_mesg_token_tbl
3522: , x_inv_asset_flag => l_inv_asset_flag ) ;
3523:
3524:
3525: IF BOM_Globals.get_debug = 'Y' THEN
3526: error_handler.write_debug('Get Sub Inv Flag . . . ');
3527: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3528: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3529: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3530:
3523:
3524:
3525: IF BOM_Globals.get_debug = 'Y' THEN
3526: error_handler.write_debug('Get Sub Inv Flag . . . ');
3527: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3528: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3529: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3530:
3531: END IF;
3524:
3525: IF BOM_Globals.get_debug = 'Y' THEN
3526: error_handler.write_debug('Get Sub Inv Flag . . . ');
3527: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3528: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3529: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3530:
3531: END IF;
3532:
3525: IF BOM_Globals.get_debug = 'Y' THEN
3526: error_handler.write_debug('Get Sub Inv Flag . . . ');
3527: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3528: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3529: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
3530:
3531: END IF;
3532:
3533: IF l_rest_subinv_code = 'Y' THEN
3533: IF l_rest_subinv_code = 'Y' THEN
3534: IF l_allow_expense_to_asset = '1' THEN
3535:
3536: IF BOM_Globals.get_debug = 'Y' THEN
3537: error_handler.write_debug('Before OPEN 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
3551: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3552: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3553: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3554:
3555: Error_Handler.Add_Error_Token
3556: ( p_message_name => 'BOM_RTG_SINV_RSTRCT_EXPASST'
3557: , p_token_tbl => l_token_tbl
3558: , p_mesg_token_tbl => l_mesg_token_tbl
3559: , x_mesg_token_tbl => l_mesg_token_tbl
3564:
3565: END IF;
3566:
3567: IF BOM_Globals.get_debug = 'Y' THEN
3568: error_handler.write_debug('After c_Restrict_SubInv_Trk, the return status is ' || l_Return_Status);
3569: END IF;
3570:
3571: ELSE
3572: IF l_inv_asset_flag = 'Y' THEN
3571: ELSE
3572: IF l_inv_asset_flag = 'Y' THEN
3573:
3574: IF BOM_Globals.get_debug = 'Y' THEN
3575: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Asset');
3576: END IF;
3577:
3578: OPEN c_Restrict_SubInv_Asset
3579: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
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_RSTRCT_INVASST'
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_Restrict_SubInv_Asset ;
3601: END IF;
3602:
3603: IF BOM_Globals.get_debug = 'Y' THEN
3604: error_handler.write_debug('After c_Restrict_SubInv_Asset, the return status is ' || l_Return_Status);
3605: END IF;
3606: ELSE
3607:
3608: IF BOM_Globals.get_debug = 'Y' THEN
3605: END IF;
3606: ELSE
3607:
3608: IF BOM_Globals.get_debug = 'Y' THEN
3609: error_handler.write_debug('Before second c_Restrict_SubInv_Trk');
3610: END IF;
3611: OPEN c_Restrict_SubInv_Trk
3612: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id
3613: , p_organization_id => p_rev_item_unexp_rec.organization_id
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_RSTRCT_NOASST'
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
3634: CLOSE c_Restrict_SubInv_Trk;
3635: END IF;
3636:
3637: IF BOM_Globals.get_debug = 'Y' THEN
3638: error_handler.write_debug('After c_Restrict_SubInv_Trk, the return status is '|| l_Return_Status);
3639: END IF;
3640: END IF ; -- End of l_inv_asset_flag = 'Y'
3641: END IF ; -- End of l_allow_expense_to_asset = '1'
3642:
3644: ELSE -- l_rest_subinv_code <> 'Y'
3645: IF l_allow_expense_to_asset = '1' THEN
3646:
3647: IF BOM_Globals.get_debug = 'Y' THEN
3648: error_handler.write_debug('Before open c_SubInventory_Tracked');
3649: END IF;
3650: OPEN c_SubInventory_Tracked
3651: ( p_organization_id => p_rev_item_unexp_rec.organization_id
3652: , p_subinventory => p_revised_item_rec.completion_subinventory);
3660: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3661: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3662: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3663:
3664: Error_Handler.Add_Error_Token
3665: ( p_message_name => 'BOM_RTG_SINV_NOTRSTRCT_EXPASST'
3666: , p_token_tbl => l_token_tbl
3667: , p_mesg_token_tbl => l_mesg_token_tbl
3668: , x_mesg_token_tbl => l_mesg_token_tbl
3672: CLOSE c_SubInventory_Tracked;
3673: END IF;
3674:
3675: IF BOM_Globals.get_debug = 'Y' THEN
3676: error_handler.write_debug('After c_SubInventory_Tracked, the return status is '|| l_Return_Status);
3677: END IF;
3678:
3679: ELSE
3680: IF l_inv_asset_flag = 'Y' THEN
3679: ELSE
3680: IF l_inv_asset_flag = 'Y' THEN
3681:
3682: IF BOM_Globals.get_debug = 'Y' THEN
3683: error_handler.write_debug('Before open second c_SubInventory_Asset');
3684: END IF;
3685: OPEN c_SubInventory_Asset
3686: ( p_organization_id => p_rev_item_unexp_rec.organization_id
3687: , p_subinventory => p_revised_item_rec.completion_subinventory);
3694: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3695: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3696: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3697:
3698: Error_Handler.Add_Error_Token
3699: ( p_message_name => 'BOM_RTG_SINV_NOTRSTRCT_ASST'
3700: , p_token_tbl => l_token_tbl
3701: , p_mesg_token_tbl => l_mesg_token_tbl
3702: , x_mesg_token_tbl => l_mesg_token_tbl
3705: ELSE
3706: CLOSE c_SubInventory_Asset;
3707: END IF;
3708: IF BOM_Globals.get_debug = 'Y' THEN
3709: error_handler.write_debug('After c_SubInventory_Asset, the return status is ' || l_Return_Status);
3710: END IF;
3711: ELSE
3712: IF BOM_Globals.get_debug = 'Y' THEN
3713: error_handler.write_debug('Before open second c_SubInventory_tracked');
3709: error_handler.write_debug('After c_SubInventory_Asset, the return status is ' || l_Return_Status);
3710: END IF;
3711: ELSE
3712: IF BOM_Globals.get_debug = 'Y' THEN
3713: error_handler.write_debug('Before open second c_SubInventory_tracked');
3714: END IF;
3715: IF p_revised_item_rec.completion_subinventory IS NOT NULL THEN
3716:
3717: OPEN c_Subinventory_Tracked
3726: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3727: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
3728: l_token_tbl(2).token_value := p_revised_item_rec.completion_subinventory;
3729:
3730: Error_Handler.Add_Error_Token
3731: ( p_message_name => 'BOM_RTG_SINV_NOTRSTRCT_NOASST'
3732: , p_token_tbl => l_token_tbl
3733: , p_mesg_token_tbl => l_mesg_token_tbl
3734: , x_mesg_token_tbl => l_mesg_token_tbl
3740: END IF;
3741: END IF;
3742:
3743: IF BOM_Globals.get_debug = 'Y' THEN
3744: error_handler.write_debug('After c_Subinventory_Tracked, the return status is '|| l_Return_Status);
3745: END IF;
3746:
3747: END IF ; -- End of l_inv_asset_flag = 'Y'
3748: END IF ; -- End of l_allow_expense_to_asset = '1'
3757: -- Check Completion Locator
3758: **********************************************************************/
3759:
3760: IF Bom_Globals.Get_Debug = 'Y' THEN
3761: Error_Handler.Write_Debug('Performing completion locator. . .') ;
3762: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
3763: END IF;
3764:
3765: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
3758: **********************************************************************/
3759:
3760: IF Bom_Globals.Get_Debug = 'Y' THEN
3761: Error_Handler.Write_Debug('Performing completion locator. . .') ;
3762: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
3763: END IF;
3764:
3765: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
3766: Null;
3785: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3786: THEN
3787: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3788: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3789: Error_Handler.Add_Error_Token
3790: ( p_message_name => 'BOM_RTG_LOCATOR_REQUIRED'
3791: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3792: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3793: , p_Token_Tbl => l_Token_Tbl
3800: THEN
3801: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3802: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3803:
3804: Error_Handler.Add_Error_Token
3805: ( p_message_name => 'BOM_RTG_LOC_CANNOT_BE_DYNAMIC'
3806: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3807: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3808: , p_Token_Tbl => l_Token_Tbl
3818: THEN
3819: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3820: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3821:
3822: Error_Handler.Add_Error_Token
3823: ( p_message_name => 'BOM_RTG_ITEM_LOC_RESTRICTED'
3824: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3825: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3826: , p_Token_Tbl => l_Token_Tbl
3831: THEN
3832: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3833: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3834:
3835: Error_Handler.Add_Error_Token
3836: ( p_message_name => 'BOM_RTG_LOCATOR_NOT_IN_SUBINV'
3837: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3838: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3839: , p_Token_Tbl => l_Token_Tbl
3846: THEN
3847: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
3848: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
3849:
3850: Error_Handler.Add_Error_Token
3851: ( p_message_name => 'BOM_RTG_ITEM_NO_LOC_CONTROL'
3852: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3853: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3854: , p_Token_Tbl => l_Token_Tbl
3864: -- p_revised_item_rec.completion_subinventory IS NULL
3865: -- THEN
3866: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3867: -- THEN
3868: -- Error_Handler.Add_Error_Token
3869: -- ( p_message_name => 'BOM_RTG_LOCATOR_MUST_BE_NULL'
3870: -- , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3871: -- , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3872: -- , p_Token_Tbl => l_Token_Tbl
3874: -- END IF;
3875: -- l_return_status := FND_API.G_RET_STS_ERROR;
3876:
3877: IF BOM_Globals.get_debug = 'Y' THEN
3878: error_handler.write_debug('completion locator check when locator name is not null,the return status is ' ||
3879: l_Return_Status);
3880: END IF;
3881:
3882: END IF; ---end of locator check
3881:
3882: END IF; ---end of locator check
3883: END IF;
3884: IF BOM_Globals.get_debug = 'Y' THEN
3885: error_handler.write_debug('After locator check,the return status is '|| l_Return_Status);
3886: END IF;
3887:
3888: /*********************************************************************
3889: -- Added by MK 08/26/2000
3897: THEN
3898: IF NOT Check_Mixed_Model_Map THEN
3899: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3900: THEN
3901: Error_Handler.Add_Error_Token
3902: ( p_Message_Name => 'ENG_MMMF_ALREADY_EXISTS'
3903: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3904: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3905: , p_Token_Tbl => l_Token_Tbl
3927: p_revised_item_rec.from_end_item_unit_number IS NULL
3928: THEN
3929: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3930: THEN
3931: Error_Handler.Add_Error_Token
3932: ( p_Message_Name => 'ENG_FROM_UNIT_NUM_REQUIRED'
3933: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3934: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3935: , p_Token_Tbl => l_Token_Tbl
3952: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3953: THEN
3954: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3955: THEN
3956: Error_Handler.Add_Error_Token
3957: ( p_Message_Name => 'ENG_USE_UP_ITEM_MISSING'
3958: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3959: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3960: , p_Token_Tbl => l_Token_Tbl
3967: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
3968: THEN
3969: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3970: THEN
3971: Error_Handler.Add_Error_Token
3972: ( p_Message_Name => 'ENG_USE_UP_PLAN_MISSING'
3973: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3974: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3975: , p_Token_Tbl => l_Token_Tbl
3990: )
3991: THEN
3992: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3993: THEN
3994: Error_Handler.Add_Error_Token
3995: ( p_Message_Name => 'ENG_USE_UP_PLANITEM_INVALID'
3996: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3997: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3998: );
4009: l_dup_exists := 0;
4010: FOR X_CheckDupUnit IN CheckDupUnit LOOP
4011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4012: THEN
4013: Error_Handler.Add_Error_Token
4014: ( p_Message_Name => 'ENG_UNIT_NUM_DUPLICATE'
4015: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4016: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4017: , p_Token_Tbl => l_Token_Tbl
4062:
4063: l_token_tbl(3).token_name := 'NEW_OR_UPDATED_ITEM_REVISION';
4064: l_token_tbl(4).token_name := 'NEW_OR_UPDATED_EFFECTIVE_DATE';
4065:
4066: Error_Handler.Add_Error_Token
4067: ( p_Message_Name => 'ENG_RIT_UPD_ALREADY_EXISTS'
4068: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4069: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4070: , p_Token_Tbl => l_Token_Tbl
4087: AND p_control_rec.caller_type <> 'SSWA' -- not required for plm
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_PROC_UPD_DISALLOWED'
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
4108: p_revised_item_rec.status_type = 5
4109: THEN
4110: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4111: THEN
4112: Error_Handler.Add_Error_Token
4113: ( p_Message_Name => 'ENG_STAT_MUST_NOT_BE_CANCL'
4114: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4115: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4116: , p_Token_Tbl => l_Token_Tbl
4135: l_product_family
4136: THEN
4137: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4138: THEN
4139: Error_Handler.Add_Error_Token
4140: ( p_Message_Name => 'ENG_CANNOT_ADD_PF_ITEM'
4141: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4142: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4143: );
4159: p_revised_item_rec.new_effective_date IS NOT NULL))
4160: THEN
4161: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4162: THEN
4163: Error_Handler.Add_Error_Token
4164: ( p_Message_Name => 'ENG_RIT_UNIT_EFFDATE_NULL'
4165: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4166: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4167: , p_Token_Tbl => l_Token_Tbl
4184: p_revised_item_rec.new_from_end_item_unit_number IS NOT NULL))
4185: THEN
4186: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4187: THEN
4188: Error_Handler.Add_Error_Token
4189: ( p_Message_Name => 'ENG_RIT_DATE_UNIT_NULL'
4190: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4191: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4192: , p_Token_Tbl => l_Token_Tbl
4204: -- to Yes.
4205: **********************************************************************/
4206: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4207: THEN
4208: Error_Handler.Add_Error_Token
4209: ( p_Message_Name => 'ENG_ITEM_UNIT_UPDATE_WIP'
4210: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4211: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4212: , p_Token_Tbl => l_Token_Tbl
4242: l_token_tbl(2).token_name := 'ECO_NAME';
4243: l_token_tbl(2).token_value :=
4244: p_revised_item_rec.eco_name;
4245:
4246: Error_Handler.Add_Error_Token
4247: ( p_Message_Name => 'ENG_STAT_MUST_NOT_BE_SCHED'
4248: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4249: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4250: , p_Token_Tbl => l_Token_Tbl
4265: p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_UPDATE
4266: THEN
4267: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4268: THEN
4269: Error_Handler.Add_Error_Token
4270: ( p_Message_Name => 'ENG_SCHED_DATE_NOT_NULL'
4271: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4272: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4273: , p_Token_Tbl => l_Token_Tbl
4283: -- Check if the (currently) highest un-implemented revision of the
4284: -- revised item exists on another ECO - log warning
4285: --
4286: *********************************************************************/
4287: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('caller type: ' || p_control_rec.caller_type); END IF;
4288:
4289: IF (p_control_rec.caller_type = 'FORM'
4290: AND p_revised_item_rec.transaction_type = 'CREATE'
4291: AND p_control_rec.validation_controller = 'REVISED_ITEM')
4333: l_token_tbl(3).token_value := p_revised_item_rec.revised_item_name;
4334:
4335: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4336: THEN
4337: Error_Handler.Add_Error_Token
4338: ( p_Message_Name => 'ENG_ECN_REVISION'
4339: -- , p_Message_Name => 'ENG_ITEM_HIGH_REV_PENDING'
4340: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4341: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4358: END IF ;
4359:
4360: IF BOM_Globals.get_debug = 'Y'
4361: THEN
4362: error_handler.write_debug('Get Eco Assembly Type, Assebly Type : '|| to_char(l_assembly_type) );
4363: END IF;
4364:
4365: /********************************************************************
4366: --
4383: l_token_tbl.delete;
4384: l_token_tbl(1).token_name := 'ECO_NAME';
4385: l_token_tbl(1).token_value :=
4386: p_revised_item_rec.eco_name;
4387: Error_Handler.Add_Error_Token
4388: ( p_Message_Name => 'ENG_INCOMPATIBLE_ITEM_TYPE'
4389: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4390: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4391: , p_Token_Tbl => l_Token_Tbl
4396:
4397: --
4398: -- Early Scheduled date must be <= Scheduled Date
4399: --
4400: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '
4401: || to_char(p_revised_item_rec.earliest_effective_date));
4402: END IF;
4403:
4404: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||
4400: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '
4401: || to_char(p_revised_item_rec.earliest_effective_date));
4402: END IF;
4403:
4404: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||
4405: to_char(p_revised_item_rec.start_effective_date));
4406: END IF;
4407: IF NOT l_is_item_unit_controlled AND
4408: ((p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND
4419: l_token_tbl.delete;
4420: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4421: l_token_tbl(1).token_value :=
4422: p_revised_item_rec.revised_item_name;
4423: Error_Handler.Add_Error_Token
4424: ( p_Message_Name =>'ENG_EARLY_SCHED_DATE_INVALID'
4425: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4426: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4427: , p_Token_Tbl => l_Token_Tbl
4497: 'REVISED_ITEM_NAME';
4498: l_token_tbl(1).token_value :=
4499: p_revised_item_rec.revised_item_name;
4500:
4501: Error_Handler.Add_Error_Token
4502: ( p_Message_Name =>'ENG_SCHD_DATE_NOT_MATCH'
4503: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4504: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4505: , p_Token_Tbl => l_Token_Tbl
4508: l_return_status := FND_API.G_RET_STS_ERROR;
4509: END IF;
4510:
4511: IF BOM_Globals.get_debug = 'Y' THEN
4512: error_handler.write_debug('After validation for shedule date, the return status is ' ||
4513: l_Return_Status);
4514: END IF;
4515:
4516: END IF;
4562: IF FND_MSG_PUB.Check_Msg_Level
4563: (FND_MSG_PUB.G_MSG_LVL_ERROR)
4564: THEN
4565: l_token_tbl.delete;
4566: Error_Handler.Add_Error_Token
4567: ( p_Message_Name =>'ENG_USE_UP_ITEM_INVALID'
4568: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4569: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4570: );
4575: l_return_status := FND_API.G_RET_STS_ERROR;
4576: END IF;
4577:
4578: IF BOM_Globals.get_debug = 'Y' THEN
4579: error_handler.write_debug('After validation for Use Up Item, the return status is '|| l_Return_Status);
4580: END IF;
4581: END IF;
4582:
4583: /*********************************************************************
4589: -- Eng_Primary_Routing_Exists in Rev Op
4590: **********************************************************************/
4591:
4592: IF BOM_Globals.get_debug = 'Y' THEN
4593: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4594: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4595: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4596: END IF;
4597:
4590: **********************************************************************/
4591:
4592: IF BOM_Globals.get_debug = 'Y' THEN
4593: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4594: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4595: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4596: END IF;
4597:
4598:
4591:
4592: IF BOM_Globals.get_debug = 'Y' THEN
4593: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4594: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4595: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4596: END IF;
4597:
4598:
4599: IF p_revised_item_rec.Transaction_Type = ENG_Globals.G_OPR_CREATE AND
4616: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4617: l_token_tbl(1).token_value :=
4618: p_revised_item_rec.revised_item_name;
4619:
4620: Error_Handler.Add_Error_Token
4621: ( p_Message_Name => 'ENG_CANNOT_ADD_ALTERNATE'
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
4623: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4624: , p_Token_Tbl => l_Token_Tbl
4625: );
4626:
4627: Error_Handler.Add_Error_Token
4628: ( p_Message_Name => 'ENG_RIT_RTG_CANT_ADD_ALTERNATE'
4629: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4630: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4631: , p_Token_Tbl => l_Token_Tbl
4650: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4651: l_token_tbl(1).token_value :=
4652: p_revised_item_rec.revised_item_name;
4653:
4654: Error_Handler.Add_Error_Token
4655: ( p_Message_Name => 'ENG_RIT_RTG_CANT_ADD_ALTERNATE'
4656: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4657: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4658: , p_Token_Tbl => l_Token_Tbl
4663: -- Added by MK on 08/26/2000
4664: **********************************************************************/
4665:
4666: IF BOM_Globals.get_debug = 'Y' THEN
4667: error_handler.write_debug('End of check primary routing and bill, the return status is ' || l_Return_Status);
4668: END IF;
4669:
4670:
4671: /*********************************************************************
4686: , p_Revised_Item_Id => p_rev_item_unexp_rec.revised_item_id
4687: , p_organization_id => p_rev_item_unexp_rec.organization_id
4688: )
4689: THEN
4690: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ENG_ITEM_IN_OTHER_ECOS Warning . . .'); END IF;
4691:
4692: l_token_tbl.delete;
4693:
4694: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4693:
4694: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4695: l_token_tbl(1).token_value :=
4696: p_revised_item_rec.revised_item_name;
4697: Error_Handler.Add_Error_Token
4698: ( p_Message_Name => 'ENG_ITEM_IN_OTHER_ECOS'
4699: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4700: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4701: , p_Token_Tbl => l_Token_Tbl
4702: , p_message_type => 'W');
4703: END IF;
4704: END IF;
4705:
4706: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - if item is on other ECOs'); END IF;
4707:
4708:
4709: /*********************************************************************
4710: --
4739: p_revised_item_rec.revised_item_name;
4740: l_token_tbl(2).token_name := 'ECO_NAME';
4741: l_token_tbl(2).token_value :=
4742: p_revised_item_rec.eco_name;
4743: Error_Handler.Add_Error_Token
4744: ( p_Message_Name => 'ENG_ITEM_RESCHED_ECO_APPREQ'
4745: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4746: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4747: , p_Token_Tbl => l_Token_Tbl
4756: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4757: l_token_tbl(1).token_value :=
4758: p_revised_item_rec.revised_item_name;
4759:
4760: Error_Handler.Add_Error_Token
4761: ( p_Message_Name=> 'ENG_ITEM_RESCHED_COMP_DISABLED'
4762: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4763: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4764: , p_Token_Tbl => l_Token_Tbl
4768: END IF;
4769: END IF;
4770:
4771: IF BOM_Globals.get_debug = 'Y' THEN
4772: error_handler.write_debug('End of new revised item, the return status is ' || l_Return_Status);
4773: END IF;
4774:
4775: /*********************************************************************
4776: -- Added by MK on 09/01/2000
4798: THEN
4799: l_token_tbl.delete;
4800: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4801: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
4802: Error_Handler.Add_Error_Token
4803: ( p_Message_Name=> 'ENG_ITEM_RESCHED_OP_DISABLED'
4804: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4805: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4806: , p_Token_Tbl => l_Token_Tbl
4811: END IF;
4812: END IF;
4813: -- Added by MK on 09/01/2000
4814: IF BOM_Globals.get_debug = 'Y' THEN
4815: error_handler.write_debug('End of transaction type and call type chceck, the return status is '||
4816: l_Return_Status);
4817: END IF;
4818:
4819:
4850: l_token_tbl(2).token_value :=
4851: p_revised_item_rec.status_type;
4852: l_token_tbl(3).token_name := 'ECO_NAME';
4853: l_token_tbl(3).token_value := p_revised_item_rec.eco_name;
4854: Error_Handler.Add_Error_Token
4855: ( p_Message_Name => 'ENG_RIT_STAT_ECO_NOT_OPEN'
4856: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4857: , x_Mesg_Token_tbl => l_Mesg_Token_Tbl
4858: , p_Token_Tbl => l_Token_Tbl);
4859: END IF;
4860: l_return_status := FND_API.G_RET_STS_ERROR;
4861: END IF;
4862: IF BOM_Globals.get_debug = 'Y' THEN
4863: error_handler.write_debug('End of call type check for form, the return status is ' ||
4864: l_Return_Status);
4865: END IF;
4866:
4867:
4895: IF FND_MSG_PUB.Check_Msg_Level
4896: (FND_MSG_PUB.G_MSG_LVL_ERROR)
4897: THEN
4898: l_token_tbl.delete;
4899: Error_Handler.Add_Error_Token
4900: ( p_Message_Name =>
4901: 'ENG_RIT_CREATE_STAT_INVALID'
4902: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4903: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4906: l_return_status := FND_API.G_RET_STS_ERROR;
4907: END;
4908: END IF;
4909: IF BOM_Globals.get_debug = 'Y' THEN
4910: error_handler.write_debug('End of check call type, the return status is '|| l_Return_Status);
4911: END IF;
4912:
4913:
4914: /*********************************************************************
4938: p_revised_item_rec.status_type;
4939:
4940: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4941: THEN
4942: Error_Handler.Add_Error_Token
4943: ( p_Message_Name => 'ENG_RIT_STAT_ECO_APPREQ'
4944: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4945: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4946: , p_Token_Tbl => l_Token_Tbl
4948: END IF;
4949: l_return_status := FND_API.G_RET_STS_ERROR;
4950: END IF;
4951:
4952: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is status updateable'); END IF;
4953:
4954: -- Cannot have new revision for alternate bill item
4955:
4956: /*********************************************************************
4960: FOR alt IN c_GetAlternateDesignator
4961: LOOP
4962: l_alternate_bom_designator :=
4963: alt.alternate_bom_designator;
4964: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_bom_designator); END IF;
4965: END LOOP;
4966:
4967: IF l_alternate_bom_designator IS NOT NULL AND
4968: (p_revised_item_rec.alternate_bom_code <>
4975: l_token_tbl(1).token_value :=
4976: p_revised_item_rec.revised_item_name;
4977: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4978: THEN
4979: Error_Handler.Add_Error_Token
4980: ( p_Message_Name => 'ENG_ALT_DESG_NOT_UPDATEABLE'
4981: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4982: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4983: , p_Token_Tbl => l_Token_Tbl
4998: AND l_plm_or_erp_change <> 'PLM'
4999: THEN
5000: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5001: THEN
5002: Error_Handler.Add_Error_Token
5003: ( p_Message_Name => 'ENG_CANNOT_HAVE_REVISION'
5004: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5005: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5006: , p_Token_Tbl => l_Token_Tbl
5013: AND l_plm_or_erp_change <> 'PLM'
5014: THEN
5015: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5016: THEN
5017: Error_Handler.Add_Error_Token
5018: ( p_Message_Name => 'ENG_CANNOT_HAVE_REVISION'
5019: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5020: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5021: , p_Token_Tbl => l_Token_Tbl
5023: END IF;
5024: l_return_status := FND_API.G_RET_STS_ERROR;
5025: END IF;
5026: IF Bom_Globals.Get_Debug = 'Y' THEN
5027: Error_Handler.Write_Debug('After checking item revision is null when alt code is not null, the return status is ' || l_return_status );
5028: END IF;
5029:
5030:
5031: -- Revised Item must have a current (implemented) revision
5039: p_Revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
5040: THEN
5041: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5042: THEN
5043: Error_Handler.Add_Error_Token
5044: ( p_Message_Name => 'ENG_ITEM_NO_CURR_REV'
5045: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5046: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5047: , p_Token_Tbl => l_Token_Tbl
5049: END IF;
5050: l_return_status := FND_API.G_RET_STS_ERROR;
5051: END IF;
5052:
5053: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is there current item rev. for item'); END IF;
5054:
5055: l_token_tbl.delete;
5056: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5057: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5072: p_revised_item_rec.updated_revised_item_revision = l_current_item_revision))
5073: THEN
5074: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5075: THEN
5076: Error_Handler.Add_Error_Token
5077: ( p_Message_Name => 'ENG_ITEM_REV_NOT_EQ_CURR_REV'
5078: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5079: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5080: , p_Token_Tbl => l_Token_Tbl
5082: END IF;
5083: l_return_status := FND_API.G_RET_STS_ERROR;
5084: END IF;
5085: IF BOM_Globals.get_debug = 'Y' THEN
5086: error_handler.write_debug('End of validating revision, the return status is ' || l_Return_Status);
5087: END IF;
5088:
5089: /*********************************************************************
5090: --
5162: THEN
5163: IF FND_MSG_PUB.Check_Msg_Level
5164: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5165: THEN
5166: Error_Handler.Add_Error_Token
5167: ( --p_Message_Name => 'ENG_NEW_ITEM_REV_NOT_CURR'
5168: p_Message_Name => l_message_name
5169: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5170: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5193: l_token_tbl(3).token_value := l_change_notice;
5194: IF FND_MSG_PUB.Check_Msg_Level
5195: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5196: THEN
5197: Error_Handler.Add_Error_Token
5198: ( p_Message_Name => 'ENG_NEW_ITEM_REV_EXISTS'
5199: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5200: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5201: , p_token_tbl => l_token_tbl
5207: THEN
5208: IF FND_MSG_PUB.Check_Msg_Level
5209: (FND_MSG_PUB.G_MSG_LVL_ERROR)
5210: THEN
5211: Error_Handler.Add_Error_Token
5212: ( p_Message_Name => 'ENG_NEW_ITEM_REV_IMPL'
5213: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5214: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5215: , p_Token_Tbl => l_Token_Tbl
5217: END IF;
5218: l_return_status := FND_API.G_RET_STS_ERROR;
5219: END IF;
5220: END IF;
5221: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is new item revision valid'); END IF;
5222:
5223: -- Changes for bug 3618662
5224: IF Bom_Globals.Get_Debug = 'Y'
5225: THEN
5222:
5223: -- Changes for bug 3618662
5224: IF Bom_Globals.Get_Debug = 'Y'
5225: THEN
5226: Error_Handler.Write_Debug('Validate if the revisions and effectivity dates in ascending order. . . . ');
5227: END IF;
5228:
5229: IF (p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
5230: AND p_revised_item_rec.new_revised_item_revision IS NOT NULL
5255: THEN
5256: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5257: THEN
5258: l_Token_Tbl.delete;
5259: Error_Handler.Add_Error_Token
5260: ( p_Message_Name => 'ENG_REVISION_ORDER'
5261: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5262: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5263: , p_Token_Tbl => l_Token_Tbl
5266: l_return_status := FND_API.G_RET_STS_ERROR;
5267: END IF;
5268: IF Bom_Globals.Get_Debug = 'Y'
5269: THEN
5270: Error_Handler.Write_Debug('End of validation of revisions and effectivity dates in ascending order.'
5271: ||' The return status is ' || l_Return_Status);
5272: END IF;
5273: -- End changes for bug 3618662
5274:
5290: IF l_is_scheduled_date_invalid = 1
5291: THEN
5292: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5293: THEN
5294: Error_Handler.Add_Error_Token
5295: ( p_Message_Name => 'ENG_INVALID_SCHED_DATE'
5296: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5297: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5298: , p_Token_Tbl => l_Token_Tbl
5316:
5317: IF p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND p_control_rec.caller_type <> 'SSWA'
5318: THEN
5319: IF BOM_Globals.get_debug = 'Y' THEN
5320: error_handler.write_debug('Verifying the subject level security for PLM ' );
5321: END IF;
5322: validate_rev_items_for_sub(
5323: p_change_notice => p_revised_item_rec.eco_name
5324: ,p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id
5329: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5330: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5331: l_token_tbl(2).token_name := 'ECO_NAME';
5332: l_token_tbl(2).token_value := p_revised_item_rec.eco_name;
5333: Error_Handler.Add_Error_Token
5334: ( p_Message_Name => 'ENG_REV_ITEM_SUB_DIFF'
5335: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5336: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5337: , p_Token_Tbl => l_Token_Tbl
5340: END IF;
5341: END IF; */
5342: -- Done validating entity
5343: IF BOM_Globals.get_debug = 'Y' THEN
5344: error_handler.write_debug('End of validating entity, the return status is ' || l_Return_Status);
5345: END IF;
5346:
5347: x_return_status := l_return_status;
5348: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5365: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5366: THEN
5367: l_err_text := G_PKG_NAME || ' : (Entity Validation) ' ||
5368: substrb(SQLERRM,1,200);
5369: Error_Handler.Add_Error_Token
5370: ( p_Message_Name => NULL
5371: , p_Message_Text => l_err_text
5372: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5373: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5417: * attrbiute in its entirety.
5418: *****************************************************************************/
5419: PROCEDURE Check_Attributes
5420: ( x_return_status OUT NOCOPY VARCHAR2
5421: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5422: , p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
5423: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5424: , p_old_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
5425: , p_old_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5425: , p_old_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5426: )
5427: IS
5428: l_err_text VARCHAR2(2000) := NULL;
5429: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5430: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5431:
5432: -- Added by MK on 02/15/2001
5433: -- to validate alternate designator.
5426: )
5427: IS
5428: l_err_text VARCHAR2(2000) := NULL;
5429: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5430: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5431:
5432: -- Added by MK on 02/15/2001
5433: -- to validate alternate designator.
5434: CURSOR c_Check_Alternate( p_alt_designator VARCHAR2,
5445: BEGIN
5446:
5447: x_return_status := FND_API.G_RET_STS_SUCCESS;
5448:
5449: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within Revised Item Check Attributes . . .'); END IF;
5450:
5451: -- Set revised item token name and value.
5452:
5453: l_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
5465: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5466: THEN
5467: l_token_tbl(2).token_name := 'STATUS_TYPE';
5468: l_token_tbl(2).token_value := p_revised_item_rec.status_type;
5469: Error_Handler.Add_Error_Token
5470: ( p_Message_Name => 'ENG_RIT_STAT_TYPE_INVALID'
5471: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5472: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5473: , p_Token_Tbl => l_Token_Tbl);
5480: IF p_revised_item_rec.status_type = FND_API.G_MISS_NUM
5481: THEN
5482: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5483: THEN
5484: Error_Handler.Add_Error_Token
5485: ( p_Message_Name => 'ENG_RIT_STAT_TYPE_MISSING'
5486: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5487: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5488: , p_Token_Tbl => l_Token_Tbl);
5491: x_return_status := FND_API.G_RET_STS_ERROR;
5492:
5493: END IF;
5494:
5495: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Status Type Validated . . . ' ); END IF;
5496:
5497: -- Creates or Updates of records marked Implemented is not allowed
5498: IF p_revised_item_rec.status_type = 6
5499: THEN
5498: IF p_revised_item_rec.status_type = 6
5499: THEN
5500: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5501: THEN
5502: Error_Handler.Add_Error_Token
5503: ( p_Message_Name => 'ENG_RIT_STAT_CANNOT_BE_IMPL'
5504: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5505: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5506: );
5519: )
5520: THEN
5521: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5522: THEN
5523: Error_Handler.Add_Error_Token
5524: ( p_Message_Name => 'ENG_RIT_CREATE_STAT_INVALID'
5525: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5526: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5527: );
5551: THEN
5552: l_token_tbl(2).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
5553: l_token_tbl(2).token_value :=
5554: p_revised_item_rec.from_end_item_unit_number;
5555: Error_Handler.Add_Error_Token
5556: ( p_Message_Name => 'ENG_FROM_END_ITEM_INVALID'
5557: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5558: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5559: , p_Token_Tbl => l_Token_Tbl
5580: THEN
5581: l_token_tbl(2).token_name := 'FROM_END_ITEM_UNIT_NUMBER';
5582: l_token_tbl(2).token_value :=
5583: p_revised_item_rec.new_from_end_item_unit_number;
5584: Error_Handler.Add_Error_Token
5585: ( p_Message_Name => 'ENG_FROM_END_ITEM_INVALID'
5586: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5587: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5588: , p_Token_Tbl => l_Token_Tbl
5603: THEN
5604: l_token_tbl(2).token_name := 'MRP_ACTIVE';
5605: l_token_tbl(2).token_value :=
5606: p_revised_item_rec.mrp_active;
5607: Error_Handler.Add_Error_Token
5608: ( p_Message_Name => 'ENG_MRP_ACTIVE_INVALID'
5609: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5610: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5611: , p_Token_Tbl => l_Token_Tbl
5618: IF p_revised_item_rec.mrp_active = FND_API.G_MISS_NUM
5619: THEN
5620: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5621: THEN
5622: Error_Handler.Add_Error_Token
5623: ( p_Message_Name => 'ENG_MRP_ACTIVE_MISSING'
5624: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5625: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5626: , p_Token_Tbl => l_Token_Tbl
5630: x_return_status := FND_API.G_RET_STS_ERROR;
5631:
5632: END IF;
5633:
5634: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('MRP Active Validated . . .'); END IF;
5635:
5636: IF p_revised_item_rec.update_wip IS NOT NULL AND
5637: ( p_revised_item_rec.update_wip <>
5638: p_old_revised_item_rec.update_wip OR
5645: THEN
5646: l_token_tbl(2).token_name := 'UPDATE_WIP';
5647: l_token_tbl(2).token_value :=
5648: p_revised_item_rec.update_wip;
5649: Error_Handler.Add_Error_Token
5650: ( p_Message_Name => 'ENG_UPDATE_WIP_INVALID'
5651: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5652: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5653: , p_Token_Tbl => l_Token_Tbl
5659: IF p_revised_item_rec.update_wip = FND_API.G_MISS_NUM
5660: THEN
5661: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5662: THEN
5663: Error_Handler.Add_Error_Token
5664: ( p_Message_Name => 'ENG_UPDATE_WIP_MISSING'
5665: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5666: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5667: , p_Token_Tbl => l_Token_Tbl
5671: x_return_status := FND_API.G_RET_STS_ERROR;
5672:
5673: END IF;
5674:
5675: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Update WIP Validated . . .'); END IF;
5676:
5677: IF p_revised_item_rec.use_up_plan_name IS NOT NULL AND
5678: ( p_revised_item_rec.use_up_plan_name <>
5679: p_old_revised_item_rec.use_up_plan_name OR
5705: l_token_tbl(2).token_value :=
5706: p_revised_item_rec.revised_item_name;
5707: END IF;
5708:
5709: Error_Handler.Add_Error_Token
5710: ( p_Message_Name => l_err_text
5711: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5712: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5713: , p_Token_Tbl => l_Token_Tbl
5712: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5713: , p_Token_Tbl => l_Token_Tbl
5714: );
5715: IF Bom_Globals.Get_Debug = 'Y' THEN
5716: Error_Handler.Write_Debug('Use_Up_Plan validation returned with an error ' ||
5717: l_err_text);
5718: END IF;
5719: END IF;
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5737: p_revised_item_rec.revised_item_name;
5738: l_token_tbl(2).token_name := 'DISPOSITION_TYPE';
5739: l_token_tbl(2).token_value :=
5740: p_revised_item_rec.disposition_type;
5741: Error_Handler.Add_Error_Token
5742: ( p_Message_Name => 'ENG_DISPOSITION_TYPE_INVALID'
5743: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5744: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5745: , p_Token_Tbl => l_Token_Tbl
5752: IF p_revised_item_rec.disposition_type = FND_API.G_MISS_NUM
5753: THEN
5754: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5755: THEN
5756: Error_Handler.Add_Error_Token
5757: ( p_Message_Name => 'ENG_DISPOSITION_TYPE_MISSING'
5758: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5759: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5760: , p_Token_Tbl => l_Token_Tbl
5775: p_revised_item_rec.ctp_flag NOT IN (1,2)
5776: THEN
5777: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
5778: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5779: Error_Handler.Add_Error_Token
5780: ( p_message_name => 'BOM_RTG_CTP_INVALID'
5781: , p_token_tbl => l_token_tbl
5782: , p_mesg_token_tbl => l_mesg_token_tbl
5783: , x_mesg_token_tbl => l_mesg_token_tbl
5791: p_revised_item_rec.eco_for_production NOT IN (1,2)
5792: THEN
5793: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5794: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5795: Error_Handler.Add_Error_Token
5796: ( p_message_name => 'ENG_RIT_ECO_FOR_PROD_INVALID'
5797: , p_token_tbl => l_token_tbl
5798: , p_mesg_token_tbl => l_mesg_token_tbl
5799: , x_mesg_token_tbl => l_mesg_token_tbl
5806: p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE
5807: THEN
5808: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5809: THEN
5810: Error_Handler.Add_Error_Token
5811: ( p_Message_Name => 'ENG_RIT_ECO_FOR_PROD_MISSING'
5812: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5813: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5814: , p_Token_Tbl => l_Token_Tbl
5825: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5826: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5827: l_token_tbl(2).token_name := 'MODEL_MAP_FLAG';
5828: l_token_tbl(2).token_value := p_revised_item_rec.mixed_model_map_flag;
5829: Error_Handler.Add_Error_Token
5830: ( p_message_name =>'BOM_RIT_MIXED_MDL_MAP_INVALID'
5831: , p_token_tbl => l_token_tbl
5832: , p_mesg_token_tbl => l_mesg_token_tbl
5833: , x_mesg_token_tbl => l_mesg_token_tbl
5855: p_revised_item_rec.alternate_bom_code;
5856: l_token_tbl(2).token_name := 'ORGANIZATION_CODE';
5857: l_token_tbl(2).token_value := p_revised_item_rec.organization_code;
5858:
5859: Error_Handler.Add_Error_Token
5860: ( p_Message_Name => 'BOM_ALT_DESIGNATOR_INVALID'
5861: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5862: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5863: , p_token_tbl => l_token_tbl
5871: END LOOP;
5872:
5873:
5874: IF Bom_Globals.Get_Debug = 'Y' THEN
5875: Error_Handler.Write_Debug('Alternate Desig Validated . . . status : '||x_return_status );
5876: END IF;
5877:
5878: END IF;
5879:
5882: p_rev_item_unexp_rec.organization_id) <> 'A'
5883: THEN
5884: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
5885: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;
5886: Error_Handler.Add_Error_Token
5887: ( p_message_name => 'ENG_REV_ITEM_UNAPPROVED'
5888: , p_token_tbl => l_token_tbl
5889: , p_mesg_token_tbl => l_mesg_token_tbl
5890: , x_mesg_token_tbl => l_mesg_token_tbl
5904:
5905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5906:
5907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5908: Error_Handler.Add_Error_Token
5909: ( p_Message_Name => NULL
5910: , p_Message_Text => l_Err_Text
5911: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5912: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5919: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5920: THEN
5921: l_err_text := G_PKG_NAME || ' : (Attribute Validation) ' ||
5922: substrb(SQLERRM,1,200);
5923: Error_Handler.Add_Error_Token
5924: ( p_Message_Name => NULL
5925: , p_Message_Text => l_Err_Text
5926: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5927: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5948: * in the previous steps of the process flow)
5949: ******************************************************************************/
5950: PROCEDURE Check_Entity_Delete
5951: ( x_return_status OUT NOCOPY VARCHAR2
5952: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5953: , p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
5954: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
5955: )
5956: IS
6022: FROM BOM_COMPONENTS_B bic
6023: WHERE bic.component_item_id = sitm.revised_item_id and
6024: bic.COMPONENT_ITEM_REVISION_ID = sitm.new_item_revision_id);
6025:
6026: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6027: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6028: BEGIN
6029: --
6030: -- Set the revised item token name and value
6023: WHERE bic.component_item_id = sitm.revised_item_id and
6024: bic.COMPONENT_ITEM_REVISION_ID = sitm.new_item_revision_id);
6025:
6026: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6027: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6028: BEGIN
6029: --
6030: -- Set the revised item token name and value
6031: --
6039: -- so it cannot be deleted.
6040: --
6041: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6042: THEN
6043: Error_Handler.Add_Error_Token
6044: ( p_Message_Name => 'ENG_CANNOT_DEL_COMP_EXIST'
6045: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6046: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6047: , p_Token_Tbl => l_Token_Tbl
6063: -- routing so it cannot be deleted.
6064: --
6065: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6066: THEN
6067: Error_Handler.Add_Error_Token
6068: ( p_Message_Name => 'ENG_CANNOT_DEL_OP_EXIST'
6069: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6070: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6071: , p_Token_Tbl => l_Token_Tbl
6090: IF check_delete <> 0
6091: THEN
6092: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6093: THEN
6094: Error_Handler.Add_Error_Token
6095: ( p_Message_Name => 'ENG_CANNOT_DEL_COMMON_EXIST'
6096: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6097: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6098: , p_Token_Tbl => l_Token_Tbl
6114: IF check_delete <> 0
6115: THEN
6116: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6117: THEN
6118: Error_Handler.Add_Error_Token
6119: ( p_Message_Name => 'ENG_CANNOT_DEL_RTG_COMMON_EXIST'
6120: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6121: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6122: , p_Token_Tbl => l_Token_Tbl
6133: IF l_allow_rev = 1
6134: THEN
6135: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6136: THEN
6137: Error_Handler.Add_Error_Token
6138: ( p_Message_Name => 'ENG_CANNOT_DEL_REVISION_IN_USE'
6139: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6140: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6141: , p_Token_Tbl => l_Token_Tbl
6170: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6171: THEN
6172: l_err_text := G_PKG_NAME || ' : (Entity Delete Validation) ' ||
6173: substrb(SQLERRM,1,200);
6174: Error_Handler.Add_Error_Token
6175: ( p_Message_Name => NULL
6176: , p_Message_Text => l_Err_Text
6177: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6178: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6203: ( p_revised_item_rec IN Eng_Eco_Pub.Revised_Item_Rec_Type
6204: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
6205: , x_old_revised_item_rec IN OUT NOCOPY Eng_Eco_Pub.Revised_Item_Rec_Type
6206: , x_old_rev_item_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
6207: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6208: , x_Return_Status OUT NOCOPY VARCHAR2
6209: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
6210: )
6211: IS
6208: , x_Return_Status OUT NOCOPY VARCHAR2
6209: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
6210: )
6211: IS
6212: l_token_tbl Error_Handler.Token_Tbl_Type;
6213: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6214: l_return_status VARCHAR2(1);
6215: --Start of changes Bug no:3034642
6216: l_profile_exist BOOLEAN;
6209: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
6210: )
6211: IS
6212: l_token_tbl Error_Handler.Token_Tbl_Type;
6213: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6214: l_return_status VARCHAR2(1);
6215: --Start of changes Bug no:3034642
6216: l_profile_exist BOOLEAN;
6217: l_profile_val VARCHAR2(30);
6254: );
6255: IF l_return_status = Eng_Globals.G_RECORD_FOUND AND
6256: p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_CREATE
6257: THEN
6258: Error_Handler.Add_Error_Token
6259: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6260: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6261: , p_message_name => 'ENG_REV_ITEM_ALREADY_EXISTS'
6262: , p_token_tbl => l_token_tbl
6265: ELSIF l_return_status = Eng_Globals.G_RECORD_NOT_FOUND AND
6266: p_revised_item_rec.transaction_type IN
6267: (Eng_Globals.G_OPR_UPDATE, Eng_Globals.G_OPR_DELETE)
6268: THEN
6269: Error_Handler.Add_Error_Token
6270: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6271: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6272: , p_message_name => 'ENG_REV_ITEM_DOESNOT_EXIST'
6273: , p_token_tbl => l_token_tbl
6274: );
6275: l_return_status := FND_API.G_RET_STS_ERROR;
6276: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
6277: THEN
6278: Error_Handler.Add_Error_Token
6279: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
6280: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6281: , p_message_name => NULL
6282: , p_message_text =>
6310: if UPPER(p_revised_item_rec.Transaction_Type) =UPPER('Create')
6311: and p_revised_item_rec.New_Revised_Item_Revision is not null
6312: and x_disable_revision = 1
6313: then
6314: error_handler.add_error_token (
6315: p_message_name=> 'ENG_ITEMREV_NOT_ALLOW',
6316: p_mesg_token_tbl=> l_mesg_token_tbl,
6317: x_mesg_token_tbl=> l_mesg_token_tbl,
6318: p_token_tbl=> l_token_tbl
6342: PROCEDURE Check_Access_Scheduled
6343: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
6344: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
6345:
6346: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6347: , x_Return_Status OUT NOCOPY VARCHAR2
6348: )
6349: IS
6350: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6346: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6347: , x_Return_Status OUT NOCOPY VARCHAR2
6348: )
6349: IS
6350: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6351: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6352: l_token_tbl Error_Handler.Token_Tbl_Type;
6353:
6354: BEGIN
6348: )
6349: IS
6350: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6351: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6352: l_token_tbl Error_Handler.Token_Tbl_Type;
6353:
6354: BEGIN
6355:
6356:
6422: -- The user has given values for some other colums
6423: -- Thus, it is assumed that the user is trying to update these columns
6424: -- Since these values cannot be updated when the CO is in scheduled status
6425: -- Error is thrown
6426: Error_Handler.Add_Error_Token
6427: ( p_Message_Name => 'ENG_RIT_NO_UPDATE_SCHEDULED'
6428: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6429: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6430: , p_Token_Tbl => l_token_tbl
6433: l_return_status := FND_API.G_RET_STS_ERROR;
6434: ELSIF (p_revised_item_rec.new_effective_date IS NULL) THEN
6435: -- The change is in scheduled status and the user has not given a
6436: -- value for the new scheduled date.
6437: Error_Handler.Add_Error_Token
6438: ( p_Message_Name => 'ENG_RIT_SCHEDULED_DATE_NULL'
6439: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6440: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6441: , p_Token_Tbl => l_token_tbl
6444: l_return_status := FND_API.G_RET_STS_ERROR;
6445: ELSIF (p_revised_item_rec.new_effective_date < SYSDATE) THEN
6446: -- While rescheduling the new effective date shall not be less than
6447: -- the current date...
6448: Error_Handler.Add_Error_Token
6449: ( p_Message_Name => 'ENG_RIT_EFF_DATE_INVALID'
6450: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6451: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6452: , p_Token_Tbl => l_token_tbl
6473: , p_operation_seq_num IN NUMBER := NULL
6474: , p_routing_sequence_id IN NUMBER := NULL
6475: , p_operation_type IN NUMBER := NULL
6476: , p_alternate_bom_code IN VARCHAR2 := NULL
6477: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
6478: Error_Handler.G_MISS_MESG_TOKEN_TBL
6479: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6480: , x_Return_Status OUT NOCOPY VARCHAR2
6481: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6474: , p_routing_sequence_id IN NUMBER := NULL
6475: , p_operation_type IN NUMBER := NULL
6476: , p_alternate_bom_code IN VARCHAR2 := NULL
6477: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
6478: Error_Handler.G_MISS_MESG_TOKEN_TBL
6479: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6480: , x_Return_Status OUT NOCOPY VARCHAR2
6481: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6482: )
6475: , p_operation_type IN NUMBER := NULL
6476: , p_alternate_bom_code IN VARCHAR2 := NULL
6477: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
6478: Error_Handler.G_MISS_MESG_TOKEN_TBL
6479: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6480: , x_Return_Status OUT NOCOPY VARCHAR2
6481: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6482: )
6483: IS
6480: , x_Return_Status OUT NOCOPY VARCHAR2
6481: , p_check_scheduled_status IN BOOLEAN DEFAULT TRUE -- Added for bug 5756870
6482: )
6483: IS
6484: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
6485: p_Mesg_Token_Tbl;
6486: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6487: l_Return_Status VARCHAR2(1);
6488: l_is_item_unit_controlled BOOLEAN := FALSE;
6482: )
6483: IS
6484: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
6485: p_Mesg_Token_Tbl;
6486: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6487: l_Return_Status VARCHAR2(1);
6488: l_is_item_unit_controlled BOOLEAN := FALSE;
6489:
6490: CURSOR c_CheckRevisedItem IS
6561: THEN
6562: FOR revised_item IN c_RevItemType
6563: LOOP
6564: IF revised_item.eng_item_flag = 'Y' THEN
6565: Error_Handler.Add_Error_Token
6566: ( p_Message_Name => 'ENG_ITEM_ACCESS_DENIED'
6567: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6568: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6569: , p_Token_Tbl => l_token_tbl
6578: --
6579: IF BOM_Globals.Is_RItem_Cancl IS NULL AND
6580: BOM_Globals.Is_RItem_Impl IS NULL
6581: THEN
6582: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for revised item impl /canceled . . .'); END IF;
6583:
6584: FOR revised_item IN c_CheckRevisedItem
6585: LOOP
6586: IF revised_item.status_type = 5 THEN
6620: EXCEPTION
6621: WHEN NO_DATA_FOUND THEN
6622: l_status_type_name := NULL;
6623: END;
6624: Error_Handler.Add_Error_Token
6625: ( p_Message_Name => 'ENG_RIT_PLM_NO_ACCESS_STATUS'
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
6636: END IF;
6637:
6638: IF NVL(BOM_Globals.Is_RItem_Impl, FALSE) = TRUE
6639: THEN
6640: Error_Handler.Add_Error_Token
6641: ( p_Message_Name => 'ENG_RIT_IMPLEMENTED'
6642: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6643: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6644: , p_Token_Tbl => l_token_tbl
6646:
6647: l_return_status := FND_API.G_RET_STS_ERROR;
6648: ELSIF NVL(BOM_Globals.Is_RItem_Cancl, FALSE) = TRUE
6649: THEN
6650: Error_Handler.Add_Error_Token
6651: ( p_Message_Name => 'ENG_RIT_CANCELLED'
6652: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6653: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6654: , p_Token_Tbl => l_token_tbl
6674: THEN
6675: BOM_Globals.Set_STD_Item_Access
6676: ( p_std_item_access => 4);
6677: ELSE
6678: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;
6679: BOM_Globals.Set_STD_Item_Access
6680: (p_std_item_access => NULL);
6681: END IF;
6682:
6706: FOR RevItem IN c_RevItemType
6707: LOOP
6708: IF RevItem.Bom_Item_Type = 5
6709: THEN
6710: Error_Handler.Add_Error_Token
6711: ( p_Message_Name => 'ENG_REV_ITEM_PROD_FAMILY'
6712: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6713: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6714: , p_Token_Tbl => l_token_tbl
6736: THEN
6737: l_Token_Tbl(2).Token_Value := 'ENG_STANDARD';
6738: END IF;
6739:
6740: Error_Handler.Add_Error_Token
6741: ( p_Message_Name => 'ENG_REV_ITEM_ACCESS_DENIED'
6742: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6743: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6744: , p_Token_Tbl => l_token_tbl
6756:
6757: IF NOT BOM_Globals.Get_Unit_Effectivity AND
6758: l_is_item_unit_controlled
6759: THEN
6760: Error_Handler.Add_Error_Token
6761: ( p_Message_Name => 'ENG_REV_ITEM_UNIT_CONTROL'
6762: , p_Mesg_Token_Tbl => l_mesg_token_tbl
6763: , x_Mesg_Token_Tbl => l_mesg_token_tbl
6764: , p_Token_Tbl => l_token_tbl
6796: l_token_tbl.delete;
6797: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
6798: l_token_tbl(1).token_value := p_revised_item_name ;
6799:
6800: Error_Handler.Add_Error_Token
6801: ( p_Message_Name => 'ENG_CANNOT_ADD_ALTERNATE'
6802: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6803: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6804: , p_Token_Tbl => l_Token_Tbl
6835: l_token_tbl.delete;
6836: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
6837: l_token_tbl(1).token_value := p_revised_item_name ;
6838:
6839: Error_Handler.Add_Error_Token
6840: ( p_Message_Name => 'ENG_RIT_RTG_CANT_ADD_ALTERNATE'
6841: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6842: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6843: , p_Token_Tbl => l_Token_Tbl
6857: LOOP
6858: l_token_tbl.DELETE;
6859: l_Token_Tbl(1).Token_Name := 'OP_SEQ_NUMBER';
6860: l_Token_Tbl(1).Token_value := p_operation_seq_num;
6861: Error_Handler.Add_Error_Token
6862: ( p_Message_Name => 'BOM_REV_OP_CANCELLED'
6863: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6864: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6865: , p_Token_Tbl => l_token_tbl
6884: THEN
6885: l_token_tbl.DELETE;
6886: l_Token_Tbl(1).Token_Name := 'STRUCTURE_NAME';
6887: l_Token_Tbl(1).Token_value := p_alternate_bom_code;
6888: Error_Handler.Add_Error_Token
6889: ( p_Message_Name => 'ENG_BILL_CHANGES_NOT_ALLOWED'
6890: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6891: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6892: , p_Token_Tbl => l_token_tbl
6898: --
6899: -- If all the access checks are satisfied then return a status of
6900: -- success, else return error.
6901: --
6902: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Check Access returning . . . ' ||
6903: l_return_status);
6904: END IF;
6905:
6906: x_Return_Status := l_return_status;
7090: IS
7091: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Revised_Item';
7092: l_api_version CONSTANT NUMBER := 1.0;
7093: l_return_status VARCHAR2(1);
7094: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7095:
7096: l_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
7097: l_rev_item_unexp_rec Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type;
7098: l_old_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
7122:
7123: -- Initialize message list if p_init_msg_list is set to TRUE.
7124: IF FND_API.to_Boolean(p_init_msg_list) THEN
7125: FND_MSG_PUB.Initialize;
7126: Error_Handler.Initialize;
7127: END IF;
7128:
7129: IF p_debug = 'Y'
7130: THEN
7128:
7129: IF p_debug = 'Y'
7130: THEN
7131: BOM_Globals.Set_Debug(p_debug);
7132: Error_Handler.Open_Debug_Session(
7133: p_debug_filename => p_debug_filename
7134: , p_output_dir => p_output_dir
7135: , x_return_status => l_return_status
7136: , x_error_mesg => x_msg_data
7418:
7419: x_msg_data := l_msg_data;
7420: IF Bom_Globals.Get_Debug = 'Y'
7421: THEN
7422: Error_Handler.Write_Debug('-***-End API Validate_Revised_Item-***-');
7423: Error_Handler.Close_Debug_Session;
7424: END IF;
7425:
7426:
7419: x_msg_data := l_msg_data;
7420: IF Bom_Globals.Get_Debug = 'Y'
7421: THEN
7422: Error_Handler.Write_Debug('-***-End API Validate_Revised_Item-***-');
7423: Error_Handler.Close_Debug_Session;
7424: END IF;
7425:
7426:
7427: EXCEPTION
7436: , p_data => x_msg_data
7437: );
7438: IF Bom_Globals.Get_Debug = 'Y'
7439: THEN
7440: Error_Handler.Write_Debug('Unexpected Error ');
7441: Error_Handler.Close_Debug_Session;
7442: END IF;
7443:
7444: END Validate_Revised_Item;
7437: );
7438: IF Bom_Globals.Get_Debug = 'Y'
7439: THEN
7440: Error_Handler.Write_Debug('Unexpected Error ');
7441: Error_Handler.Close_Debug_Session;
7442: END IF;
7443:
7444: END Validate_Revised_Item;
7445: