1 PACKAGE BODY OE_Sys_Parameters AS
2 /* $Header: OESYSPAB.pls 120.2 2006/06/20 06:01:37 rmoharan noship $ */
3
4
5 --Global variables to cache the parameter information.
6
7 g_org_id NUMBER:= 0;
8 g_master_org_id NUMBER;
9 g_sob_id NUMBER;
10 g_cust_rel_flag varchar2(1);
11 g_audit_flag varchar2(1);
12 --MRG B
13 g_compute_margin_flag varchar2(1);
14 --MRG E
15
16 -- freight rating
17 g_freight_rating_flag varchar2(1);
18 g_ship_method_flag varchar2(1);
19
20 -- FUNCTION VALUE
21 -- Use this function to get the value of a system parameter.
22
23 FUNCTION VALUE
24 (param_name IN VARCHAR2,
25 p_org_id IN NUMBER DEFAULT NULL)
26 RETURN VARCHAR2
27 IS
28 l_org_id NUMBER:= 0;
29 l_master_org_id NUMBER := 0;
30 l_cust_rel_flag VARCHAR2(1) := 'Y';
31 l_audit_flag VARCHAR2(1) := 'D';
32 l_sob_id NUMBER := 0;
33
34 -- freight rating
35 l_freight_rating_flag VARCHAR2(1) := 'Y';
36 l_ship_method_flag VARCHAR2(1) := 'N';
37 --
38 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
39 --
40 BEGIN
41 IF l_debug_level > 0 THEN
42 oe_debug_pub.add( 'ENTERING OE_SYS_PARAMETERS.VALUE ' , 1 ) ;
43 END IF;
44 -- Pack J
45 -- Call new function for om parameters if release level
46 -- is 110510 or higher
47 --IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
48 IF l_debug_level > 0 THEN
49 oe_debug_pub.add( 'Going to get the value for '||param_name , 1 ) ;
50 END IF;
51 RETURN(Oe_Sys_Parameters_Pvt.value(param_name,p_org_id));
52 --ELSE
53 --5302907 : old code ref. to old system parameters table removed.
54 --END IF; -- Code Release level
55 IF l_debug_level > 0 THEN
56 oe_debug_pub.add( 'EXITING OE_SYS_PARAMETERS.VALUE' , 1 ) ;
57 END IF;
58 RETURN(NULL);
59
60 EXCEPTION
61
62 WHEN NO_DATA_FOUND THEN
63
64 RETURN(NULL);
65
66 WHEN FND_API.G_EXC_ERROR THEN
67 oe_debug_pub.add(SQLERRM);
68 RAISE FND_API.G_EXC_ERROR;
69
70 WHEN OTHERS THEN
71 RETURN(NULL);
72
73 END VALUE;
74
75
76 -- FUNCTION VALUE_WNPS
77 -- Use this function to get the value of a system parameter
78 -- Since this function has WNPS associated with it , it can be used in where
79 -- clauses of SQL statements.
80
81 FUNCTION VALUE_WNPS
82 (param_name IN VARCHAR2,
83 p_org_id IN NUMBER DEFAULT NULL)
84 RETURN VARCHAR2
85 IS
86 -- code fix for 3451198
87 --l_return_value NUMBER;
88 l_return_value VARCHAR2(100);
89 -- code fix for 3451198
90 BEGIN
91 l_return_value := value(param_name => param_name,
92 p_org_id => p_org_id);
93 return(l_return_value);
94
95 EXCEPTION
96
97 WHEN NO_DATA_FOUND THEN
98
99 RETURN(NULL);
100
101 WHEN OTHERS THEN
102
103 RETURN(NULL);
104
105 END VALUE_WNPS;
106
107
108 END OE_Sys_Parameters;