PACKAGE BODY: APPS.OE_UTIL

Source

1 PACKAGE BODY OE_UTIL AS
2 /* $Header: oexutlb.pls 115.1 99/07/16 08:30:36 porting shi $ */
3 
4   PROCEDURE Set_Schedule_Date_Window (
5 		P_Result		OUT VARCHAR2
6   ) is
7     Schedule_Window_Profile   NUMBER := To_Number(FND_PROFILE.Value('OE_SCHEDULE_DATE_WINDOW'));
8   begin
9     P_Result := 'Y';
10 
11     if (Schedule_Window_Profile is NULL) then
12       Return;
13     end if;
14 
15     if (Schedule_Window_Profile > 1) then
16       FND_PROFILE.Put('OE_SCHEDULE_DATE_WINDOW', '1');
17       OE_MSG.Set_Buffer_Message('OE_SCH_WINDOW_IGNORED');
18     end if;
19 
20     Return;
21 
22   exception
23     when others then
24       OE_MSG.Internal_Exception('OE_UTIL.Set_Schedule_Date_Window',
25 				'Setting Schedule Window', '');
26       P_Result  := 'N';
27 
28   end Set_Schedule_Date_Window;
29 
30 
31   PROCEDURE Reset_Schedule_Date_Window (
32 		Original_Sch_Window     IN  VARCHAR2,
33 		P_Result		OUT VARCHAR2
34   ) is
35     Schedule_Window_Profile   NUMBER := To_Number(FND_PROFILE.Value('OE_SCHEDULE_DATE_WINDOW'));
36   begin
37     P_Result := 'Y';
38 
39     if (Schedule_Window_Profile is NULL or
40 	Original_Sch_Window     is NULL or
41         (Schedule_Window_Profile  = To_Number(Original_Sch_Window))) then
42       Return;
43     end if;
44 
45     FND_PROFILE.Put('OE_SCHEDULE_DATE_WINDOW', Original_Sch_Window);
46 
47     Return;
48 
49   exception
50     when others then
51       OE_MSG.Internal_Exception('OE_UTIL.Reset_Schedule_Date_Window',
52 				'Resetting Schedule Window', Original_Sch_Window);
53       P_Result  := 'N';
54 
55   end Reset_Schedule_Date_Window;
56 
57 END OE_UTIL;