253: -- Get respective profile values
254: --
255: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking item type access . . . '); END IF;
256:
257: IF fnd_profile.value('BOM:STANDARD_ITEM_ACCESS') = '1'
258: THEN
259: BOM_Globals.Set_STD_Item_Access
260: ( p_std_item_access => 4);
261: ELSE
258: THEN
259: BOM_Globals.Set_STD_Item_Access
260: ( p_std_item_access => 4);
261: ELSE
262: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no access to standard items'); END IF;
263: BOM_Globals.Set_STD_Item_Access
264: (p_std_item_access => NULL);
265: END IF;
266:
315: THEN
316: l_Token_Tbl(1).Token_Value := 'BOM_PLANNING';
317: ELSIF l_Bom_Item_Type = 4
318: THEN
319: l_Token_Tbl(1).Token_Value := 'BOM_STANDARD';
320: END IF;
321:
322: Error_Handler.Add_Error_Token
323: ( p_Message_Name => 'BOM_ASSY_ITEM_ACCESS_DENIED'