eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.ENG_VALIDATE_REVISED_ITEM dependencies on BOM_GLOBALS

Line 334: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validating revised item revision . . .' ||

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.

Line 346: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current revision. . . ' || l_Curr_Rev); END IF;

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,

Line 354: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision not the latest . . .'); END IF;

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:

Line 367: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision created thru another ECO . . .'); END IF;

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:

Line 540: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validating revised item revision . . .' ||

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

Line 549: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current revision. . . ' || l_Curr_Rev); END IF;

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,

Line 557: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision not the latest . . .'); END IF;

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:

Line 570: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision created thru another ECO . . .'); END IF;

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:

Line 697: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validating routing revision . . .' ||

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

Line 706: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current revision. . . ' || l_Curr_Rev); END IF;

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,

Line 714: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision not the latest . . .'); END IF;

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:

Line 727: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision created thru another ECO . . .'); END IF;

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:

Line 812: IF BOM_Globals.get_debug = 'Y'

808:
809: FOR l_Count in c_CheckPrimary LOOP
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:

Line 819: IF BOM_Globals.get_debug = 'Y'

815: END IF;
816:
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:

Line 860: IF BOM_Globals.get_debug = 'Y'

856:
857: FOR l_check_primary_rec in l_checkprimary LOOP
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;

Line 867: IF BOM_Globals.get_debug = 'Y'

863: END IF;
864: END LOOP;
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:

Line 1485: IF Bom_Globals.Get_Debug = 'Y' THEN

1481: l_dummy VARCHAR2(20) ;
1482:
1483: BEGIN
1484:
1485: IF Bom_Globals.Get_Debug = 'Y' THEN
1486: Error_Handler.Write_Debug('Check Locators. . .Locator Id is ' || to_char(p_locator_id));
1487: END IF;
1488:
1489: l_org_locator_control := 0 ;

Line 1514: IF Bom_Globals.Get_Debug = 'Y' THEN

1510: WHERE organization_id = p_organization_id
1511: AND inventory_item_id = p_revised_item_id;
1512:
1513:
1514: IF Bom_Globals.Get_Debug = 'Y' THEN
1515: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1516: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1517: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1518: END IF;

Line 1545: IF Bom_Globals.Get_Debug = 'Y' THEN

1541: RETURN TRUE;
1542: END IF;
1543: */
1544:
1545: IF Bom_Globals.Get_Debug = 'Y' THEN
1546: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
1547: END IF;
1548:
1549:

Line 1569: IF Bom_Globals.Get_Debug = 'Y' THEN

1565: Sub_Control => l_sub_locator_control,
1566: Item_Control => l_item_locator_control
1567: );
1568:
1569: IF Bom_Globals.Get_Debug = 'Y' THEN
1570: Error_Handler.Write_Debug('Calling BOM_Validate_Rtg_Header.Control. Loc Control '||
1571: to_char(x_control) );
1572: END IF;
1573:

Line 1586: IF Bom_Globals.Get_Debug = 'Y' THEN

1582: -- supplied then raise Error
1583: ELSIF x_Control = 2 THEN -- PRESPECIFIED
1584: BEGIN
1585:
1586: IF Bom_Globals.Get_Debug = 'Y' THEN
1587: Error_Handler.Write_Debug ('Checking when x_control returned 2 and ' ||
1588: ' item locator is ' ||
1589: to_char(l_item_locator_control));
1590: END IF;

Line 1613: IF Bom_Globals.Get_Debug = 'Y' THEN

1609:
1610: IF l_item_loc_restricted = 1 -- Restrict Locators = YES
1611: THEN
1612: -- Check for restrict Locators YES
1613: IF Bom_Globals.Get_Debug = 'Y' THEN
1614: Error_Handler.Write_Debug ('Before Checking for restrict Locators Yes. ' );
1615: END IF;
1616: SELECT 'Valid'
1617: INTO l_dummy

Line 1628: IF Bom_Globals.Get_Debug = 'Y' THEN

1624: AND mil.inventory_location_id = msl.secondary_locator
1625: AND mil.organization_id = msl.organization_id
1626: AND NVL(mil.disable_date, SYSDATE+1) > SYSDATE ;
1627:
1628: IF Bom_Globals.Get_Debug = 'Y' THEN
1629: Error_Handler.Write_Debug ('Restrict locators is Y . ' ||
1630: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1631: || ' are valid.' );
1632: END IF;

Line 1649: IF Bom_Globals.Get_Debug = 'Y' THEN

1645: AND mil.inventory_location_id = p_locator_id
1646: AND mil.organization_id = p_organization_id
1647: AND NVL(mil.DISABLE_DATE, SYSDATE+1) > SYSDATE;
1648:
1649: IF Bom_Globals.Get_Debug = 'Y' THEN
1650: Error_Handler.Write_Debug ('Restrict locators is No . ' ||
1651: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1652: || ' are valid.' );
1653: END IF;

Line 1664: IF Bom_Globals.Get_Debug = 'Y' THEN

1660:
1661: EXCEPTION
1662: WHEN NO_DATA_FOUND THEN
1663:
1664: IF Bom_Globals.Get_Debug = 'Y' THEN
1665: Error_Handler.Write_Debug ('Locator is invlaid . ' );
1666: END IF ;
1667:
1668: RETURN FALSE;

Line 1676: IF Bom_Globals.Get_Debug = 'Y' THEN

1672: -- DYNAMIC LOCATORS ARE NOT ALLOWED IN OI.
1673: -- Dynamic locators are not allowed in open
1674: -- interface, so raise an error if the locator
1675: -- control is dynamic.
1676: IF Bom_Globals.Get_Debug = 'Y' THEN
1677: Error_Handler.Write_Debug ('Dynamic Locator Control. ' ) ;
1678: END IF ;
1679: l_locator_control := 3;
1680:

Line 1865: l_rev_policy := BOM_GLOBALS.Get_Change_Policy_Val (p_item_id => p_inventory_item_id,

1861: BEGIN
1862: Get_Structure_Type(p_inventory_item_id, p_organization_id, p_alternate_bom_code, x_structure_type_id);
1863: x_strc_cp_not_allowed := 2;
1864:
1865: l_rev_policy := BOM_GLOBALS.Get_Change_Policy_Val (p_item_id => p_inventory_item_id,
1866: p_org_id => p_organization_id,
1867: p_rev_id => NULL,
1868: p_rev_date => sysdate,
1869: p_structure_type_id => x_structure_type_id);

Line 1995: BOM_Globals.Set_Require_Item_Rev

1991: x_return_status := FND_API.G_RET_STS_SUCCESS;
1992: l_Token_Tbl(1).Token_name := 'REVISED_ITEM_NAME';
1993: l_Token_Tbl(1).Token_Value := p_revised_item_Rec.revised_item_name;
1994:
1995: BOM_Globals.Set_Require_Item_Rev
1996: (FND_PROFILE.VALUE('ENG:ECO_REVISED_ITEM_REVISION'));
1997:
1998: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
1999: Null;

Line 1998: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN

1994:
1995: BOM_Globals.Set_Require_Item_Rev
1996: (FND_PROFILE.VALUE('ENG:ECO_REVISED_ITEM_REVISION'));
1997:
1998: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
1999: Null;
2000: ELSE
2001: IF ( p_revised_item_rec.new_revised_item_revision IS NULL OR
2002: p_revised_item_rec.new_revised_item_revision = FND_API.G_MISS_CHAR

Line 2004: NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1

2000: ELSE
2001: IF ( p_revised_item_rec.new_revised_item_revision IS NULL OR
2002: p_revised_item_rec.new_revised_item_revision = FND_API.G_MISS_CHAR
2003: ) AND
2004: NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1
2005: THEN
2006: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2007: THEN
2008: Error_Handler.Add_Error_Token

Line 2019: IF NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1 AND

2015: x_return_status := FND_API.G_RET_STS_ERROR;
2016: END IF;
2017: END IF;
2018:
2019: IF NVL(BOM_Globals.Is_Item_Rev_Required, 0) = 1 AND
2020: p_revised_item_rec.updated_revised_item_revision =
2021: FND_API.G_MISS_CHAR
2022: AND
2023: p_revised_item_rec.alternate_bom_code IS NULL AND

Line 2355: IF Bom_Globals.Get_Debug = 'Y' THEN

2351: l_is_scheduled_date_invalid NUMBER;
2352:
2353: BEGIN
2354:
2355: IF Bom_Globals.Get_Debug = 'Y' THEN
2356: Error_Handler.Write_Debug('Performing Check Entity in Revised Item - Trans type: ' || p_revised_item_rec.transaction_Type );
2357: END IF;
2358:
2359: --

Line 2376: l_new_rev_required := BOM_Globals.Is_Item_Rev_Required;

2372: RETURN;
2373: END IF;
2374: IF p_control_rec.caller_type <> 'FORM'
2375: THEN
2376: l_new_rev_required := BOM_Globals.Is_Item_Rev_Required;
2377: l_is_item_unit_controlled := BOM_Globals.Get_Unit_Controlled_Item;
2378: ELSE
2379: l_new_rev_required := p_control_rec.require_item_rev;
2380: l_is_item_unit_controlled := p_control_rec.unit_controlled_item;

Line 2377: l_is_item_unit_controlled := BOM_Globals.Get_Unit_Controlled_Item;

2373: END IF;
2374: IF p_control_rec.caller_type <> 'FORM'
2375: THEN
2376: l_new_rev_required := BOM_Globals.Is_Item_Rev_Required;
2377: l_is_item_unit_controlled := BOM_Globals.Get_Unit_Controlled_Item;
2378: ELSE
2379: l_new_rev_required := p_control_rec.require_item_rev;
2380: l_is_item_unit_controlled := p_control_rec.unit_controlled_item;
2381: END IF;

Line 2422: IF BOM_Globals.get_debug = 'Y' THEN

2418: );
2419: END IF;
2420: l_return_status := FND_API.G_RET_STS_ERROR;
2421: END IF;
2422: IF BOM_Globals.get_debug = 'Y' THEN
2423: error_handler.write_debug('After check if rev item is unit conrolled in new eco type. . . the return status : ' ||
2424: l_Return_Status );
2425: END IF;
2426:

Line 2456: IF BOM_Globals.get_debug = 'Y' THEN

2452: END IF;
2453: l_return_status := FND_API.G_RET_STS_ERROR;
2454: END IF;
2455:
2456: IF BOM_Globals.get_debug = 'Y' THEN
2457: error_handler.write_debug('After check new eco type attributes, the return status is ' ||
2458: l_Return_Status);
2459: END IF;
2460:

Line 2488: IF BOM_Globals.get_debug = 'Y' THEN

2484: END IF;
2485: l_return_status := FND_API.G_RET_STS_ERROR;
2486: END IF;
2487:
2488: IF BOM_Globals.get_debug = 'Y' THEN
2489: error_handler.write_debug('After check lot number and type, the return status is ' ||
2490: l_Return_Status);
2491: END IF;
2492:

Line 2515: IF BOM_Globals.get_debug = 'Y' THEN

2511: END IF;
2512: l_return_status := FND_API.G_RET_STS_ERROR;
2513: END IF;
2514:
2515: IF BOM_Globals.get_debug = 'Y' THEN
2516: error_handler.write_debug('After check wip id, the return status is ' || l_Return_Status);
2517: END IF;
2518: /*****************************************************************
2519: -- If To Work Order is not Null then

Line 2541: IF BOM_Globals.get_debug = 'Y' THEN

2537: END IF;
2538: l_return_status := FND_API.G_RET_STS_ERROR;
2539: END IF;
2540:
2541: IF BOM_Globals.get_debug = 'Y' THEN
2542: error_handler.write_debug('After check work order, the return status is ' || l_Return_Status);
2543: END IF;
2544:
2545: /*****************************************************************

Line 2568: IF BOM_Globals.get_debug = 'Y' THEN

2564: END IF;
2565: l_return_status := FND_API.G_RET_STS_ERROR;
2566: END IF;
2567:
2568: IF BOM_Globals.get_debug = 'Y' THEN
2569: error_handler.write_debug('After check type and cumu, the return status is ' ||
2570: l_Return_Status);
2571: END IF;
2572: /*****************************************************************

Line 2595: IF BOM_Globals.get_debug = 'Y' THEN

2591: END IF;
2592: l_return_status := FND_API.G_RET_STS_ERROR;
2593: END IF;
2594:
2595: IF BOM_Globals.get_debug = 'Y' THEN
2596: error_handler.write_debug('After check cumulative qty and from/to id, the return status is ' ||
2597: l_Return_Status);
2598: END IF;
2599:

Line 2623: IF BOM_Globals.get_debug = 'Y' THEN

2619: END IF;
2620: l_return_status := FND_API.G_RET_STS_ERROR;
2621: END IF;
2622:
2623: IF BOM_Globals.get_debug = 'Y' THEN
2624: error_handler.write_debug('After check work order and cumulative qty, the return status is ' ||
2625: l_Return_Status);
2626: END IF;
2627:

Line 2684: IF BOM_Globals.get_debug = 'Y'THEN

2680: END LOOP ;
2681: END IF ;
2682: END IF ;
2683:
2684: IF BOM_Globals.get_debug = 'Y'THEN
2685: error_handler.write_debug('After check release status, the return status is ' ||
2686: l_Return_Status);
2687: END IF;
2688:

Line 2762: IF BOM_Globals.get_debug = 'Y' THEN

2758: END IF ;
2759: CLOSE l_wipjob_for_eco_cum_csr ;
2760: END IF ;
2761:
2762: IF BOM_Globals.get_debug = 'Y' THEN
2763: error_handler.write_debug('After check released status and cum, the return status is ' ||
2764: l_Return_Status);
2765: END IF;
2766:

Line 2804: IF BOM_Globals.get_debug = 'Y' THEN

2800: END IF;
2801: l_return_status := FND_API.G_RET_STS_ERROR;
2802: END LOOP ;
2803:
2804: IF BOM_Globals.get_debug = 'Y' THEN
2805: error_handler.write_debug('From WO Num : ' || p_revised_item_rec.from_work_order );
2806: error_handler.write_debug('To WO Num : ' || p_revised_item_rec.to_work_order );
2807: error_handler.write_debug('Effective Date : ' || to_char(p_revised_item_rec.start_effective_date
2808: ,'YYYY-MM-DD') );

Line 2816: IF BOM_Globals.get_debug = 'Y' THEN

2812:
2813: END IF ;
2814: --End of Entity Validation for New Effectivities
2815:
2816: IF BOM_Globals.get_debug = 'Y' THEN
2817: error_handler.write_debug('After check new Effectivities, the return status is ' ||
2818: l_Return_Status);
2819: END IF;
2820:

Line 2921: IF BOM_Globals.get_debug = 'Y' THEN

2917: END IF ;
2918: close l_rtg_header_csr;
2919: END IF ;
2920:
2921: IF BOM_Globals.get_debug = 'Y' THEN
2922: error_handler.write_debug('After check unit control for Routing, the return status is ' ||
2923: l_Return_Status);
2924: END IF;
2925:

Line 2941: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alternate you have entered : '

2937: NVL(p_old_rev_item_unexp_rec.bill_sequence_id, 0)
2938: )
2939: THEN
2940:
2941: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alternate you have entered : '
2942: || p_revised_item_rec.alternate_bom_code ); END IF;
2943:
2944: l_token_tbl.DELETE;
2945: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';

Line 2959: IF Bom_Globals.Get_Debug = 'Y' THEN

2955: );
2956: END IF;
2957: l_return_status := FND_API.G_RET_STS_ERROR;
2958:
2959: IF Bom_Globals.Get_Debug = 'Y' THEN
2960: Error_Handler.Write_Debug('After check if alternate code is changed, the return status is ' ||
2961: l_Return_Status);
2962: END IF;
2963:

Line 2976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_rtg_designator); END IF;

2972: FOR alt IN c_GetRtgAltDesignator
2973: LOOP
2974: l_alternate_rtg_designator := alt.alternate_routing_designator ;
2975:
2976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_rtg_designator); END IF;
2977:
2978: END LOOP;
2979:
2980: IF l_alternate_rtg_designator IS NOT NULL AND

Line 3048: IF Bom_Globals.Get_Debug = 'Y' THEN

3044: );
3045: END IF;
3046: l_return_status := FND_API.G_RET_STS_ERROR;
3047:
3048: IF Bom_Globals.Get_Debug = 'Y' THEN
3049: Error_Handler.Write_Debug('After check if a rtg can be created for this rev item, the return status is ' || l_Return_Status);
3050: END IF;
3051:
3052:

Line 3090: IF Bom_Globals.Get_Debug = 'Y' THEN

3086: END IF;
3087: l_return_status := FND_API.G_RET_STS_ERROR;
3088: END IF;
3089:
3090: IF Bom_Globals.Get_Debug = 'Y' THEN
3091: Error_Handler.Write_Debug('After checking rtg revision is null when alt code is not null, the return status is ' || l_return_status );
3092: END IF;
3093:
3094:

Line 3118: IF BOM_Globals.get_debug = 'Y' THEN

3114: l_return_status := FND_API.G_RET_STS_ERROR;
3115:
3116: END IF;
3117:
3118: IF BOM_Globals.get_debug = 'Y' THEN
3119: error_handler.write_debug('After check routing rev, the return status is ' || l_Return_Status);
3120: END IF;
3121:
3122:

Line 3144: IF BOM_Globals.get_debug = 'Y'THEN

3140: , x_change_notice => l_change_notice
3141: , x_revision => l_revision
3142: );
3143:
3144: IF BOM_Globals.get_debug = 'Y'THEN
3145: error_handler.write_debug('After Pending_High_Rtg_Rev, the return status is ' || l_Return_Status);
3146: END IF;
3147:
3148:

Line 3177: IF BOM_Globals.get_debug = 'Y' THEN

3173: , p_message_type => 'W');
3174: END IF;
3175: END IF;
3176:
3177: IF BOM_Globals.get_debug = 'Y' THEN
3178: error_handler.write_debug('After check pending eco, the return status is ' || l_Return_Status);
3179: END IF;
3180:
3181: END IF;

Line 3288: IF BOM_Globals.get_debug = 'Y' THEN

3284: l_return_status := FND_API.G_RET_STS_ERROR;
3285: END IF;
3286: END IF;
3287:
3288: IF BOM_Globals.get_debug = 'Y' THEN
3289: error_handler.write_debug('After check transaction type, the return status is ' || l_Return_Status);
3290: END IF;
3291:
3292:

Line 3323: IF BOM_Globals.get_debug = 'Y' THEN

3319: END IF;
3320: l_return_status := FND_API.G_RET_STS_ERROR;
3321: END IF ;
3322:
3323: IF BOM_Globals.get_debug = 'Y' THEN
3324: error_handler.write_debug('After check ctp flag, the return status is ' || l_Return_Status);
3325: END IF;
3326: END IF ;
3327:

Line 3356: IF BOM_Globals.get_debug = 'Y' THEN

3352: END IF;
3353: l_return_status := FND_API.G_RET_STS_ERROR;
3354: END IF ;
3355:
3356: IF BOM_Globals.get_debug = 'Y' THEN
3357: error_handler.write_debug('After check priority, the return status is ' || l_Return_Status);
3358: END IF;
3359:
3360: END IF ;

Line 3367: IF Bom_Globals.Get_Debug = 'Y' THEN

3363: /*********************************************************************
3364: -- Added by MK 08/26/2000
3365: -- Check Completion Subinventory
3366: **********************************************************************/
3367: IF Bom_Globals.Get_Debug = 'Y' THEN
3368: Error_Handler.Write_Debug('Performing completeion subinventory check. . . Sub Inv : '
3369: || p_revised_item_rec.completion_subinventory ) ;
3370: Error_Handler.Write_Debug('Old Completion_subinv is:'||p_old_revised_item_rec.completion_subinventory );
3371: END IF;

Line 3384: IF Bom_Globals.Get_Debug = 'Y' THEN

3380: AND ( p_revised_item_rec.completion_subinventory IS NULL
3381: OR p_revised_item_rec.completion_subinventory = FND_API.G_MISS_CHAR)
3382: THEN
3383:
3384: IF Bom_Globals.Get_Debug = 'Y' THEN
3385: Error_Handler.Write_Debug('Inside the process when subinventory is null' ) ;
3386: END IF;
3387:
3388: IF p_rev_item_unexp_rec.completion_locator_id IS NOT NULL

Line 3419: IF Bom_Globals.Get_Debug = 'Y' THEN

3415: AND ( p_revised_item_rec.completion_subinventory IS NOT NULL
3416: OR p_revised_item_rec.completion_subinventory <> FND_API.G_MISS_CHAR)
3417: THEN
3418:
3419: IF Bom_Globals.Get_Debug = 'Y' THEN
3420: Error_Handler.Write_Debug('Inside the process when subinventory is not null' ) ;
3421: END IF;
3422:
3423: IF NOT Check_SubInv_Exists(p_organization_id => p_rev_item_unexp_rec.organization_id

Line 3453: IF BOM_Globals.get_debug = 'Y' THEN

3449: , x_rest_subinv_code => l_rest_subinv_code
3450: , x_inv_asset_flag => l_inv_asset_flag ) ;
3451:
3452:
3453: IF BOM_Globals.get_debug = 'Y' THEN
3454: error_handler.write_debug('Get Sub Inv Flag . . . ');
3455: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
3456: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
3457: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );

Line 3464: IF BOM_Globals.get_debug = 'Y' THEN

3460:
3461: IF l_rest_subinv_code = 'Y' THEN
3462: IF l_allow_expense_to_asset = '1' THEN
3463:
3464: IF BOM_Globals.get_debug = 'Y' THEN
3465: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Trk');
3466: END IF;
3467: OPEN c_Restrict_SubInv_Trk
3468: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id

Line 3495: IF BOM_Globals.get_debug = 'Y' THEN

3491: CLOSE c_Restrict_SubInv_Trk;
3492:
3493: END IF;
3494:
3495: IF BOM_Globals.get_debug = 'Y' THEN
3496: error_handler.write_debug('After c_Restrict_SubInv_Trk, the return status is ' || l_Return_Status);
3497: END IF;
3498:
3499: ELSE

Line 3502: IF BOM_Globals.get_debug = 'Y' THEN

3498:
3499: ELSE
3500: IF l_inv_asset_flag = 'Y' THEN
3501:
3502: IF BOM_Globals.get_debug = 'Y' THEN
3503: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Asset');
3504: END IF;
3505:
3506: OPEN c_Restrict_SubInv_Asset

Line 3531: IF BOM_Globals.get_debug = 'Y' THEN

3527: ELSE
3528: CLOSE c_Restrict_SubInv_Asset ;
3529: END IF;
3530:
3531: IF BOM_Globals.get_debug = 'Y' THEN
3532: error_handler.write_debug('After c_Restrict_SubInv_Asset, the return status is ' || l_Return_Status);
3533: END IF;
3534: ELSE
3535:

Line 3536: IF BOM_Globals.get_debug = 'Y' THEN

3532: error_handler.write_debug('After c_Restrict_SubInv_Asset, the return status is ' || l_Return_Status);
3533: END IF;
3534: ELSE
3535:
3536: IF BOM_Globals.get_debug = 'Y' THEN
3537: error_handler.write_debug('Before second c_Restrict_SubInv_Trk');
3538: END IF;
3539: OPEN c_Restrict_SubInv_Trk
3540: ( p_revised_item_id => p_rev_item_unexp_rec.revised_item_id

Line 3565: IF BOM_Globals.get_debug = 'Y' THEN

3561: ELSE
3562: CLOSE c_Restrict_SubInv_Trk;
3563: END IF;
3564:
3565: IF BOM_Globals.get_debug = 'Y' THEN
3566: error_handler.write_debug('After c_Restrict_SubInv_Trk, the return status is '|| l_Return_Status);
3567: END IF;
3568: END IF ; -- End of l_inv_asset_flag = 'Y'
3569: END IF ; -- End of l_allow_expense_to_asset = '1'

Line 3575: IF BOM_Globals.get_debug = 'Y' THEN

3571:
3572: ELSE -- l_rest_subinv_code <> 'Y'
3573: IF l_allow_expense_to_asset = '1' THEN
3574:
3575: IF BOM_Globals.get_debug = 'Y' THEN
3576: error_handler.write_debug('Before open c_SubInventory_Tracked');
3577: END IF;
3578: OPEN c_SubInventory_Tracked
3579: ( p_organization_id => p_rev_item_unexp_rec.organization_id

Line 3603: IF BOM_Globals.get_debug = 'Y' THEN

3599: ELSE
3600: CLOSE c_SubInventory_Tracked;
3601: END IF;
3602:
3603: IF BOM_Globals.get_debug = 'Y' THEN
3604: error_handler.write_debug('After c_SubInventory_Tracked, the return status is '|| l_Return_Status);
3605: END IF;
3606:
3607: ELSE

Line 3610: IF BOM_Globals.get_debug = 'Y' THEN

3606:
3607: ELSE
3608: IF l_inv_asset_flag = 'Y' THEN
3609:
3610: IF BOM_Globals.get_debug = 'Y' THEN
3611: error_handler.write_debug('Before open second c_SubInventory_Asset');
3612: END IF;
3613: OPEN c_SubInventory_Asset
3614: ( p_organization_id => p_rev_item_unexp_rec.organization_id

Line 3636: IF BOM_Globals.get_debug = 'Y' THEN

3632: l_return_status := FND_API.G_RET_STS_ERROR;
3633: ELSE
3634: CLOSE c_SubInventory_Asset;
3635: END IF;
3636: IF BOM_Globals.get_debug = 'Y' THEN
3637: error_handler.write_debug('After c_SubInventory_Asset, the return status is ' || l_Return_Status);
3638: END IF;
3639: ELSE
3640: IF BOM_Globals.get_debug = 'Y' THEN

Line 3640: IF BOM_Globals.get_debug = 'Y' THEN

3636: IF BOM_Globals.get_debug = 'Y' THEN
3637: error_handler.write_debug('After c_SubInventory_Asset, the return status is ' || l_Return_Status);
3638: END IF;
3639: ELSE
3640: IF BOM_Globals.get_debug = 'Y' THEN
3641: error_handler.write_debug('Before open second c_SubInventory_tracked');
3642: END IF;
3643: IF p_revised_item_rec.completion_subinventory IS NOT NULL THEN
3644:

Line 3671: IF BOM_Globals.get_debug = 'Y' THEN

3667: CLOSE c_Subinventory_Tracked;
3668: END IF;
3669: END IF;
3670:
3671: IF BOM_Globals.get_debug = 'Y' THEN
3672: error_handler.write_debug('After c_Subinventory_Tracked, the return status is '|| l_Return_Status);
3673: END IF;
3674:
3675: END IF ; -- End of l_inv_asset_flag = 'Y'

Line 3688: IF Bom_Globals.Get_Debug = 'Y' THEN

3684: -- Added by MK 08/26/2000
3685: -- Check Completion Locator
3686: **********************************************************************/
3687:
3688: IF Bom_Globals.Get_Debug = 'Y' THEN
3689: Error_Handler.Write_Debug('Performing completion locator. . .') ;
3690: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
3691: END IF;
3692:

Line 3693: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN

3689: Error_Handler.Write_Debug('Performing completion locator. . .') ;
3690: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
3691: END IF;
3692:
3693: IF (Bom_globals.Get_Caller_Type = BOM_GLOBALS.G_MASS_CHANGE) THEN
3694: Null;
3695: Else
3696: IF p_control_rec.caller_type <> 'FORM'
3697: AND p_revised_item_rec.completion_subinventory is not null -- Bug 2871420 added this condition

Line 3805: IF BOM_Globals.get_debug = 'Y' THEN

3801: -- );
3802: -- END IF;
3803: -- l_return_status := FND_API.G_RET_STS_ERROR;
3804:
3805: IF BOM_Globals.get_debug = 'Y' THEN
3806: error_handler.write_debug('completion locator check when locator name is not null,the return status is ' ||
3807: l_Return_Status);
3808: END IF;
3809:

Line 3812: IF BOM_Globals.get_debug = 'Y' THEN

3808: END IF;
3809:
3810: END IF; ---end of locator check
3811: END IF;
3812: IF BOM_Globals.get_debug = 'Y' THEN
3813: error_handler.write_debug('After locator check,the return status is '|| l_Return_Status);
3814: END IF;
3815:
3816: /*********************************************************************

Line 4215: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('caller type: ' || p_control_rec.caller_type); END IF;

4211: -- Check if the (currently) highest un-implemented revision of the
4212: -- revised item exists on another ECO - log warning
4213: --
4214: *********************************************************************/
4215: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('caller type: ' || p_control_rec.caller_type); END IF;
4216:
4217: IF (p_control_rec.caller_type = 'FORM'
4218: AND p_revised_item_rec.transaction_type = 'CREATE'
4219: AND p_control_rec.validation_controller = 'REVISED_ITEM')

Line 4283: IF BOM_Globals.get_debug = 'Y'

4279: , p_organization_id => p_rev_item_unexp_rec.organization_id
4280: );
4281: END IF ;
4282:
4283: IF BOM_Globals.get_debug = 'Y'
4284: THEN
4285: error_handler.write_debug('Get Eco Assembly Type, Assebly Type : '|| to_char(l_assembly_type) );
4286: END IF;
4287:

Line 4323: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '

4319:
4320: --
4321: -- Early Scheduled date must be <= Scheduled Date
4322: --
4323: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '
4324: || to_char(p_revised_item_rec.earliest_effective_date));
4325: END IF;
4326:
4327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||

Line 4327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||

4323: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Early effective Date: '
4324: || to_char(p_revised_item_rec.earliest_effective_date));
4325: END IF;
4326:
4327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Start effective Date: ' ||
4328: to_char(p_revised_item_rec.start_effective_date));
4329: END IF;
4330: IF NOT l_is_item_unit_controlled AND
4331: ((p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND

Line 4434: IF BOM_Globals.get_debug = 'Y' THEN

4430: END IF;
4431: l_return_status := FND_API.G_RET_STS_ERROR;
4432: END IF;
4433:
4434: IF BOM_Globals.get_debug = 'Y' THEN
4435: error_handler.write_debug('After validation for shedule date, the return status is ' ||
4436: l_Return_Status);
4437: END IF;
4438:

Line 4501: IF BOM_Globals.get_debug = 'Y' THEN

4497:
4498: l_return_status := FND_API.G_RET_STS_ERROR;
4499: END IF;
4500:
4501: IF BOM_Globals.get_debug = 'Y' THEN
4502: error_handler.write_debug('After validation for Use Up Item, the return status is '|| l_Return_Status);
4503: END IF;
4504: END IF;
4505:

Line 4515: IF BOM_Globals.get_debug = 'Y' THEN

4511: -- Also added Eng_Primary_Bill_Exists check in Rev Comp and
4512: -- Eng_Primary_Routing_Exists in Rev Op
4513: **********************************************************************/
4514:
4515: IF BOM_Globals.get_debug = 'Y' THEN
4516: error_handler.write_debug('Org Id : ' || to_char(p_rev_item_unexp_rec.organization_id) );
4517: error_handler.write_debug('Rev Item Id : ' || to_char(p_rev_item_unexp_rec.revised_item_id) );
4518: error_handler.write_debug('Assem Type : ' || to_char(l_assembly_type) );
4519: END IF;

Line 4589: IF BOM_Globals.get_debug = 'Y' THEN

4585: END IF;
4586: -- Added by MK on 08/26/2000
4587: **********************************************************************/
4588:
4589: IF BOM_Globals.get_debug = 'Y' THEN
4590: error_handler.write_debug('End of check primary routing and bill, the return status is ' || l_Return_Status);
4591: END IF;
4592:
4593:

Line 4613: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ENG_ITEM_IN_OTHER_ECOS Warning . . .'); END IF;

4609: , p_Revised_Item_Id => p_rev_item_unexp_rec.revised_item_id
4610: , p_organization_id => p_rev_item_unexp_rec.organization_id
4611: )
4612: THEN
4613: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ENG_ITEM_IN_OTHER_ECOS Warning . . .'); END IF;
4614:
4615: l_token_tbl.delete;
4616:
4617: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';

Line 4629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - if item is on other ECOs'); END IF;

4625: , p_message_type => 'W');
4626: END IF;
4627: END IF;
4628:
4629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - if item is on other ECOs'); END IF;
4630:
4631:
4632: /*********************************************************************
4633: --

Line 4694: IF BOM_Globals.get_debug = 'Y' THEN

4690: l_return_status := FND_API.G_RET_STS_ERROR;
4691: END IF;
4692: END IF;
4693:
4694: IF BOM_Globals.get_debug = 'Y' THEN
4695: error_handler.write_debug('End of new revised item, the return status is ' || l_Return_Status);
4696: END IF;
4697:
4698: /*********************************************************************

Line 4737: IF BOM_Globals.get_debug = 'Y' THEN

4733: l_return_status := FND_API.G_RET_STS_ERROR;
4734: END IF;
4735: END IF;
4736: -- Added by MK on 09/01/2000
4737: IF BOM_Globals.get_debug = 'Y' THEN
4738: error_handler.write_debug('End of transaction type and call type chceck, the return status is '||
4739: l_Return_Status);
4740: END IF;
4741:

Line 4785: IF BOM_Globals.get_debug = 'Y' THEN

4781: , p_Token_Tbl => l_Token_Tbl);
4782: END IF;
4783: l_return_status := FND_API.G_RET_STS_ERROR;
4784: END IF;
4785: IF BOM_Globals.get_debug = 'Y' THEN
4786: error_handler.write_debug('End of call type check for form, the return status is ' ||
4787: l_Return_Status);
4788: END IF;
4789:

Line 4832: IF BOM_Globals.get_debug = 'Y' THEN

4828: END IF;
4829: l_return_status := FND_API.G_RET_STS_ERROR;
4830: END;
4831: END IF;
4832: IF BOM_Globals.get_debug = 'Y' THEN
4833: error_handler.write_debug('End of check call type, the return status is '|| l_Return_Status);
4834: END IF;
4835:
4836:

Line 4875: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is status updateable'); END IF;

4871: END IF;
4872: l_return_status := FND_API.G_RET_STS_ERROR;
4873: END IF;
4874:
4875: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is status updateable'); END IF;
4876:
4877: -- Cannot have new revision for alternate bill item
4878:
4879: /*********************************************************************

Line 4887: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_bom_designator); END IF;

4883: FOR alt IN c_GetAlternateDesignator
4884: LOOP
4885: l_alternate_bom_designator :=
4886: alt.alternate_bom_designator;
4887: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('alternate: ' || l_alternate_bom_designator); END IF;
4888: END LOOP;
4889:
4890: IF l_alternate_bom_designator IS NOT NULL AND
4891: (p_revised_item_rec.alternate_bom_code <>

Line 4949: IF Bom_Globals.Get_Debug = 'Y' THEN

4945: );
4946: END IF;
4947: l_return_status := FND_API.G_RET_STS_ERROR;
4948: END IF;
4949: IF Bom_Globals.Get_Debug = 'Y' THEN
4950: Error_Handler.Write_Debug('After checking item revision is null when alt code is not null, the return status is ' || l_return_status );
4951: END IF;
4952:
4953:

Line 4976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is there current item rev. for item'); END IF;

4972: END IF;
4973: l_return_status := FND_API.G_RET_STS_ERROR;
4974: END IF;
4975:
4976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is there current item rev. for item'); END IF;
4977:
4978: l_token_tbl.delete;
4979: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
4980: l_token_tbl(1).token_value := p_revised_item_rec.revised_item_name;

Line 5008: IF BOM_Globals.get_debug = 'Y' THEN

5004: );
5005: END IF;
5006: l_return_status := FND_API.G_RET_STS_ERROR;
5007: END IF;
5008: IF BOM_Globals.get_debug = 'Y' THEN
5009: error_handler.write_debug('End of validating revision, the return status is ' || l_Return_Status);
5010: END IF;
5011:
5012: /*********************************************************************

Line 5144: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is new item revision valid'); END IF;

5140: END IF;
5141: l_return_status := FND_API.G_RET_STS_ERROR;
5142: END IF;
5143: END IF;
5144: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is new item revision valid'); END IF;
5145:
5146: -- Changes for bug 3618662
5147: IF Bom_Globals.Get_Debug = 'Y'
5148: THEN

Line 5147: IF Bom_Globals.Get_Debug = 'Y'

5143: END IF;
5144: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('checked - is new item revision valid'); END IF;
5145:
5146: -- Changes for bug 3618662
5147: IF Bom_Globals.Get_Debug = 'Y'
5148: THEN
5149: Error_Handler.Write_Debug('Validate if the revisions and effectivity dates in ascending order. . . . ');
5150: END IF;
5151:

Line 5191: IF Bom_Globals.Get_Debug = 'Y'

5187: );
5188: END IF;
5189: l_return_status := FND_API.G_RET_STS_ERROR;
5190: END IF;
5191: IF Bom_Globals.Get_Debug = 'Y'
5192: THEN
5193: Error_Handler.Write_Debug('End of validation of revisions and effectivity dates in ascending order.'
5194: ||' The return status is ' || l_Return_Status);
5195: END IF;

Line 5238: IF BOM_Globals.get_debug = 'Y' THEN

5234: --
5235: **********************************************************************/
5236: IF p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE AND p_control_rec.caller_type <> 'SSWA'
5237: THEN
5238: IF BOM_Globals.get_debug = 'Y' THEN
5239: error_handler.write_debug('Verifying the subject level security for PLM ' );
5240: END IF;
5241: validate_rev_items_for_sub(
5242: p_change_notice => p_revised_item_rec.eco_name

Line 5262: IF BOM_Globals.get_debug = 'Y' THEN

5258: l_return_status :=FND_API.G_RET_STS_ERROR;
5259: END IF;
5260: END IF;
5261: -- Done validating entity
5262: IF BOM_Globals.get_debug = 'Y' THEN
5263: error_handler.write_debug('End of validating entity, the return status is ' || l_Return_Status);
5264: END IF;
5265:
5266: x_return_status := l_return_status;

Line 5368: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within Revised Item Check Attributes . . .'); END IF;

5364: BEGIN
5365:
5366: x_return_status := FND_API.G_RET_STS_SUCCESS;
5367:
5368: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within Revised Item Check Attributes . . .'); END IF;
5369:
5370: -- Set revised item token name and value.
5371:
5372: l_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';

Line 5414: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Status Type Validated . . . ' ); END IF;

5410: x_return_status := FND_API.G_RET_STS_ERROR;
5411:
5412: END IF;
5413:
5414: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Status Type Validated . . . ' ); END IF;
5415:
5416: -- Creates or Updates of records marked Implemented is not allowed
5417: IF p_revised_item_rec.status_type = 6
5418: THEN

Line 5553: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('MRP Active Validated . . .'); END IF;

5549: x_return_status := FND_API.G_RET_STS_ERROR;
5550:
5551: END IF;
5552:
5553: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('MRP Active Validated . . .'); END IF;
5554:
5555: IF p_revised_item_rec.update_wip IS NOT NULL AND
5556: ( p_revised_item_rec.update_wip <>
5557: p_old_revised_item_rec.update_wip OR

Line 5594: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Update WIP Validated . . .'); END IF;

5590: x_return_status := FND_API.G_RET_STS_ERROR;
5591:
5592: END IF;
5593:
5594: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Update WIP Validated . . .'); END IF;
5595:
5596: IF p_revised_item_rec.use_up_plan_name IS NOT NULL AND
5597: ( p_revised_item_rec.use_up_plan_name <>
5598: p_old_revised_item_rec.use_up_plan_name OR

Line 5634: IF Bom_Globals.Get_Debug = 'Y' THEN

5630: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5631: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5632: , p_Token_Tbl => l_Token_Tbl
5633: );
5634: IF Bom_Globals.Get_Debug = 'Y' THEN
5635: Error_Handler.Write_Debug('Use_Up_Plan validation returned with an error ' ||
5636: l_err_text);
5637: END IF;
5638: END IF;

Line 5793: IF Bom_Globals.Get_Debug = 'Y' THEN

5789:
5790: END LOOP;
5791:
5792:
5793: IF Bom_Globals.Get_Debug = 'Y' THEN
5794: Error_Handler.Write_Debug('Alternate Desig Validated . . . status : '||x_return_status );
5795: END IF;
5796:
5797: END IF;

Line 6457: l_is_item_unit_controlled := BOM_Globals.Get_Unit_Controlled_Item;

6453:
6454: l_Token_Tbl(1).token_name := 'REVISED_ITEM_NAME';
6455: l_token_tbl(1).token_value := p_revised_item_name;
6456:
6457: l_is_item_unit_controlled := BOM_Globals.Get_Unit_Controlled_Item;
6458:
6459: --
6460: -- The driving procedure must make sure that the ECO
6461: -- Check_Access has been called and has returned with a success.

Line 6493: IF BOM_Globals.Is_RItem_Cancl IS NULL AND

6489:
6490: --
6491: -- Check revised item is not implemented or Cancelled
6492: --
6493: IF BOM_Globals.Is_RItem_Cancl IS NULL AND
6494: BOM_Globals.Is_RItem_Impl IS NULL
6495: THEN
6496: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for revised item impl /canceled . . .'); END IF;
6497:

Line 6494: BOM_Globals.Is_RItem_Impl IS NULL

6490: --
6491: -- Check revised item is not implemented or Cancelled
6492: --
6493: IF BOM_Globals.Is_RItem_Cancl IS NULL AND
6494: BOM_Globals.Is_RItem_Impl IS NULL
6495: THEN
6496: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for revised item impl /canceled . . .'); END IF;
6497:
6498: FOR revised_item IN c_CheckRevisedItem

Line 6496: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for revised item impl /canceled . . .'); END IF;

6492: --
6493: IF BOM_Globals.Is_RItem_Cancl IS NULL AND
6494: BOM_Globals.Is_RItem_Impl IS NULL
6495: THEN
6496: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for revised item impl /canceled . . .'); END IF;
6497:
6498: FOR revised_item IN c_CheckRevisedItem
6499: LOOP
6500: IF revised_item.status_type = 5 THEN

Line 6501: BOM_Globals.Set_RItem_Cancl

6497:
6498: FOR revised_item IN c_CheckRevisedItem
6499: LOOP
6500: IF revised_item.status_type = 5 THEN
6501: BOM_Globals.Set_RItem_Cancl
6502: (p_ritem_cancl => TRUE);
6503: ELSIF revised_item.status_type = 6 THEN
6504: BOM_Globals.Set_RItem_Impl
6505: (p_ritem_impl => TRUE);

Line 6504: BOM_Globals.Set_RItem_Impl

6500: IF revised_item.status_type = 5 THEN
6501: BOM_Globals.Set_RItem_Cancl
6502: (p_ritem_cancl => TRUE);
6503: ELSIF revised_item.status_type = 6 THEN
6504: BOM_Globals.Set_RItem_Impl
6505: (p_ritem_impl => TRUE);
6506: ELSE
6507: BOM_Globals.Set_RItem_Cancl
6508: (p_ritem_cancl => FALSE);

Line 6507: BOM_Globals.Set_RItem_Cancl

6503: ELSIF revised_item.status_type = 6 THEN
6504: BOM_Globals.Set_RItem_Impl
6505: (p_ritem_impl => TRUE);
6506: ELSE
6507: BOM_Globals.Set_RItem_Cancl
6508: (p_ritem_cancl => FALSE);
6509: BOM_Globals.Set_RItem_Impl
6510: (p_ritem_impl => FALSE);
6511: END IF;

Line 6509: BOM_Globals.Set_RItem_Impl

6505: (p_ritem_impl => TRUE);
6506: ELSE
6507: BOM_Globals.Set_RItem_Cancl
6508: (p_ritem_cancl => FALSE);
6509: BOM_Globals.Set_RItem_Impl
6510: (p_ritem_impl => FALSE);
6511: END IF;
6512: -- Bug 4276451
6513: -- Check if the revised item is updateable for PLM ECOs

Line 6552: IF NVL(BOM_Globals.Is_RItem_Impl, FALSE) = TRUE

6548: -- End fix for Bug 4276451
6549: END LOOP;
6550: END IF;
6551:
6552: IF NVL(BOM_Globals.Is_RItem_Impl, FALSE) = TRUE
6553: THEN
6554: Error_Handler.Add_Error_Token
6555: ( p_Message_Name => 'ENG_RIT_IMPLEMENTED'
6556: , p_Mesg_Token_Tbl => l_mesg_token_tbl

Line 6562: ELSIF NVL(BOM_Globals.Is_RItem_Cancl, FALSE) = TRUE

6558: , p_Token_Tbl => l_token_tbl
6559: );
6560:
6561: l_return_status := FND_API.G_RET_STS_ERROR;
6562: ELSIF NVL(BOM_Globals.Is_RItem_Cancl, FALSE) = TRUE
6563: THEN
6564: Error_Handler.Add_Error_Token
6565: ( p_Message_Name => 'ENG_RIT_CANCELLED'
6566: , p_Mesg_Token_Tbl => l_mesg_token_tbl

Line 6579: IF BOM_Globals.Get_STD_Item_Access IS NULL AND

6575: --
6576: -- Check that the user has access to the BOM Item Type
6577: -- of the revised item
6578: --
6579: IF BOM_Globals.Get_STD_Item_Access IS NULL AND
6580: BOM_Globals.Get_PLN_Item_Access IS NULL AND
6581: BOM_Globals.Get_MDL_Item_Access IS NULL
6582: THEN
6583:

Line 6580: BOM_Globals.Get_PLN_Item_Access IS NULL AND

6576: -- Check that the user has access to the BOM Item Type
6577: -- of the revised item
6578: --
6579: IF BOM_Globals.Get_STD_Item_Access IS NULL AND
6580: BOM_Globals.Get_PLN_Item_Access IS NULL AND
6581: BOM_Globals.Get_MDL_Item_Access IS NULL
6582: THEN
6583:
6584: --

Line 6581: BOM_Globals.Get_MDL_Item_Access IS NULL

6577: -- of the revised item
6578: --
6579: IF BOM_Globals.Get_STD_Item_Access IS NULL AND
6580: BOM_Globals.Get_PLN_Item_Access IS NULL AND
6581: BOM_Globals.Get_MDL_Item_Access IS NULL
6582: THEN
6583:
6584: --
6585: -- Get respective profile values

Line 6589: BOM_Globals.Set_STD_Item_Access

6585: -- Get respective profile values
6586: --
6587: IF NVL(fnd_profile.value('ENG:STANDARD_ITEM_ECN_ACCESS'), 1) = 1
6588: THEN
6589: BOM_Globals.Set_STD_Item_Access
6590: ( p_std_item_access => 4);
6591: ELSE
6592: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;
6593: BOM_Globals.Set_STD_Item_Access

Line 6592: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;

6588: THEN
6589: BOM_Globals.Set_STD_Item_Access
6590: ( p_std_item_access => 4);
6591: ELSE
6592: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;
6593: BOM_Globals.Set_STD_Item_Access
6594: (p_std_item_access => NULL);
6595: END IF;
6596:

Line 6593: BOM_Globals.Set_STD_Item_Access

6589: BOM_Globals.Set_STD_Item_Access
6590: ( p_std_item_access => 4);
6591: ELSE
6592: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;
6593: BOM_Globals.Set_STD_Item_Access
6594: (p_std_item_access => NULL);
6595: END IF;
6596:
6597: IF fnd_profile.value('ENG:MODEL_ITEM_ECN_ACCESS') = '1'

Line 6599: BOM_Globals.Set_MDL_Item_Access

6595: END IF;
6596:
6597: IF fnd_profile.value('ENG:MODEL_ITEM_ECN_ACCESS') = '1'
6598: THEN
6599: BOM_Globals.Set_MDL_Item_Access
6600: ( p_mdl_item_access => 1);
6601: BOM_Globals.Set_OC_Item_Access
6602: ( p_oc_item_access => 2);
6603: ELSE

Line 6601: BOM_Globals.Set_OC_Item_Access

6597: IF fnd_profile.value('ENG:MODEL_ITEM_ECN_ACCESS') = '1'
6598: THEN
6599: BOM_Globals.Set_MDL_Item_Access
6600: ( p_mdl_item_access => 1);
6601: BOM_Globals.Set_OC_Item_Access
6602: ( p_oc_item_access => 2);
6603: ELSE
6604: BOM_Globals.Set_MDL_Item_Access
6605: ( p_mdl_item_access => NULL);

Line 6604: BOM_Globals.Set_MDL_Item_Access

6600: ( p_mdl_item_access => 1);
6601: BOM_Globals.Set_OC_Item_Access
6602: ( p_oc_item_access => 2);
6603: ELSE
6604: BOM_Globals.Set_MDL_Item_Access
6605: ( p_mdl_item_access => NULL);
6606: BOM_Globals.Set_OC_Item_Access
6607: ( p_oc_item_access => NULL);
6608: END IF;

Line 6606: BOM_Globals.Set_OC_Item_Access

6602: ( p_oc_item_access => 2);
6603: ELSE
6604: BOM_Globals.Set_MDL_Item_Access
6605: ( p_mdl_item_access => NULL);
6606: BOM_Globals.Set_OC_Item_Access
6607: ( p_oc_item_access => NULL);
6608: END IF;
6609:
6610: IF fnd_profile.value('ENG:PLANNING_ITEM_ECN_ACCESS') = '1'

Line 6612: BOM_Globals.Set_PLN_Item_Access

6608: END IF;
6609:
6610: IF fnd_profile.value('ENG:PLANNING_ITEM_ECN_ACCESS') = '1'
6611: THEN
6612: BOM_Globals.Set_PLN_Item_Access
6613: ( p_pln_item_access => 3);
6614: ELSE
6615: BOM_Globals.Set_PLN_Item_Access
6616: ( p_pln_item_access => NULL);

Line 6615: BOM_Globals.Set_PLN_Item_Access

6611: THEN
6612: BOM_Globals.Set_PLN_Item_Access
6613: ( p_pln_item_access => 3);
6614: ELSE
6615: BOM_Globals.Set_PLN_Item_Access
6616: ( p_pln_item_access => NULL);
6617: END IF;
6618: END IF;
6619:

Line 6632: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),

6628: , p_Token_Tbl => l_token_tbl
6629: );
6630: l_return_status := FND_API.G_RET_STS_ERROR;
6631: ELSIF RevItem.Bom_Item_Type NOT IN
6632: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),
6633: NVL(BOM_Globals.Get_PLN_Item_Access, 0),
6634: NVL(BOM_Globals.Get_OC_Item_Access, 0) ,
6635: NVL(BOM_Globals.Get_MDL_Item_Access, 0)
6636: )

Line 6633: NVL(BOM_Globals.Get_PLN_Item_Access, 0),

6629: );
6630: l_return_status := FND_API.G_RET_STS_ERROR;
6631: ELSIF RevItem.Bom_Item_Type NOT IN
6632: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),
6633: NVL(BOM_Globals.Get_PLN_Item_Access, 0),
6634: NVL(BOM_Globals.Get_OC_Item_Access, 0) ,
6635: NVL(BOM_Globals.Get_MDL_Item_Access, 0)
6636: )
6637: THEN

Line 6634: NVL(BOM_Globals.Get_OC_Item_Access, 0) ,

6630: l_return_status := FND_API.G_RET_STS_ERROR;
6631: ELSIF RevItem.Bom_Item_Type NOT IN
6632: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),
6633: NVL(BOM_Globals.Get_PLN_Item_Access, 0),
6634: NVL(BOM_Globals.Get_OC_Item_Access, 0) ,
6635: NVL(BOM_Globals.Get_MDL_Item_Access, 0)
6636: )
6637: THEN
6638: l_Token_Tbl(2).Token_Name := 'BOM_ITEM_TYPE';

Line 6635: NVL(BOM_Globals.Get_MDL_Item_Access, 0)

6631: ELSIF RevItem.Bom_Item_Type NOT IN
6632: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),
6633: NVL(BOM_Globals.Get_PLN_Item_Access, 0),
6634: NVL(BOM_Globals.Get_OC_Item_Access, 0) ,
6635: NVL(BOM_Globals.Get_MDL_Item_Access, 0)
6636: )
6637: THEN
6638: l_Token_Tbl(2).Token_Name := 'BOM_ITEM_TYPE';
6639: l_Token_Tbl(2).Translate := TRUE;

Line 6671: IF NOT BOM_Globals.Get_Unit_Effectivity AND

6667: -- Checks that unit effective items are allowed only if the profile
6668: -- value allows them (profile value stored in system_information)
6669: *********************************************************************/
6670:
6671: IF NOT BOM_Globals.Get_Unit_Effectivity AND
6672: l_is_item_unit_controlled
6673: THEN
6674: Error_Handler.Add_Error_Token
6675: ( p_Message_Name => 'ENG_REV_ITEM_UNIT_CONTROL'

Line 6816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Check Access returning . . . ' ||

6812: --
6813: -- If all the access checks are satisfied then return a status of
6814: -- success, else return error.
6815: --
6816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Check Access returning . . . ' ||
6817: l_return_status);
6818: END IF;
6819:
6820: x_Return_Status := l_return_status;

Line 7039: BOM_Globals.Set_Debug(p_debug);

7035: END IF;
7036:
7037: IF p_debug = 'Y'
7038: THEN
7039: BOM_Globals.Set_Debug(p_debug);
7040: Error_Handler.Open_Debug_Session(
7041: p_debug_filename => p_debug_filename
7042: , p_output_dir => p_output_dir
7043: , x_return_status => l_return_status

Line 7048: BOM_Globals.Set_Debug('N');

7044: , x_error_mesg => x_msg_data
7045: );
7046: IF l_return_status <> 'S'
7047: THEN
7048: BOM_Globals.Set_Debug('N');
7049: END IF;
7050: END IF;
7051: -- Initialize System_Information
7052: ENG_GLOBALS.Init_System_Info_Rec(

Line 7063: BOM_Globals.Set_Unit_Effectivity (TRUE);

7059: END IF;
7060: -- Initialize Unit_Effectivity flag
7061: IF PJM_UNIT_EFF.Enabled = 'Y'
7062: THEN
7063: BOM_Globals.Set_Unit_Effectivity (TRUE);
7064: ENG_Globals.Set_Unit_Effectivity (TRUE);
7065: ELSE
7066: BOM_Globals.Set_Unit_Effectivity (FALSE);
7067: ENG_Globals.Set_Unit_Effectivity (FALSE);

Line 7066: BOM_Globals.Set_Unit_Effectivity (FALSE);

7062: THEN
7063: BOM_Globals.Set_Unit_Effectivity (TRUE);
7064: ENG_Globals.Set_Unit_Effectivity (TRUE);
7065: ELSE
7066: BOM_Globals.Set_Unit_Effectivity (FALSE);
7067: ENG_Globals.Set_Unit_Effectivity (FALSE);
7068: END IF;
7069: --
7070: BOM_Globals.Set_Unit_Controlled_Item(

Line 7070: BOM_Globals.Set_Unit_Controlled_Item(

7066: BOM_Globals.Set_Unit_Effectivity (FALSE);
7067: ENG_Globals.Set_Unit_Effectivity (FALSE);
7068: END IF;
7069: --
7070: BOM_Globals.Set_Unit_Controlled_Item(
7071: p_inventory_item_id => p_revised_item_id
7072: , p_organization_id => p_organization_id
7073: );
7074: BOM_Globals.Set_Require_Item_Rev(FND_PROFILE.VALUE('ENG:ECO_REVISED_ITEM_REVISION'));

Line 7074: BOM_Globals.Set_Require_Item_Rev(FND_PROFILE.VALUE('ENG:ECO_REVISED_ITEM_REVISION'));

7070: BOM_Globals.Set_Unit_Controlled_Item(
7071: p_inventory_item_id => p_revised_item_id
7072: , p_organization_id => p_organization_id
7073: );
7074: BOM_Globals.Set_Require_Item_Rev(FND_PROFILE.VALUE('ENG:ECO_REVISED_ITEM_REVISION'));
7075: Eng_Globals.Set_Bo_Identifier( p_bo_identifier => p_bo_identifier);
7076: Eng_Globals.Set_Org_Id( p_org_id => p_organization_id);
7077:
7078: l_return_status := 'S';

Line 7318: IF Bom_Globals.Get_Debug = 'Y'

7314: , p_data => l_msg_data
7315: );
7316:
7317: x_msg_data := l_msg_data;
7318: IF Bom_Globals.Get_Debug = 'Y'
7319: THEN
7320: Error_Handler.Write_Debug('-***-End API Validate_Revised_Item-***-');
7321: Error_Handler.Close_Debug_Session;
7322: END IF;

Line 7336: IF Bom_Globals.Get_Debug = 'Y'

7332: FND_MSG_PUB.Count_And_Get(
7333: p_count => x_msg_count
7334: , p_data => x_msg_data
7335: );
7336: IF Bom_Globals.Get_Debug = 'Y'
7337: THEN
7338: Error_Handler.Write_Debug('Unexpected Error ');
7339: Error_Handler.Close_Debug_Session;
7340: END IF;