1 package body HR_JP_PARAMETERS_PKG as
2 /* $Header: hrjpparm.pkb 115.2 99/07/17 16:38:46 porting ship $ */
3 --------------------------------------------------------------------------------
4 FUNCTION get_parameter_value(
5 p_owner IN VARCHAR2,
6 p_parameter_name IN VARCHAR2) RETURN VARCHAR2
7 --------------------------------------------------------------------------------
8 IS
9 l_parameter_value HR_JP_PARAMETERS.PARAMETER_VALUE%TYPE;
10 CURSOR csr_parameter_value IS
11 select parameter_value
12 from hr_jp_parameters
13 where owner=p_owner
14 and parameter_name=p_parameter_name;
15 BEGIN
16 open csr_parameter_value;
17 fetch csr_parameter_value into l_parameter_value;
18 if csr_parameter_value%NOTFOUND then
19 l_parameter_value := NULL;
20 end if;
21 close csr_parameter_value;
22
23 return l_parameter_value;
24 END;
25 --------------------------------------------------------------------------------
26 PROCEDURE put_parameter_value(
27 p_owner IN VARCHAR2,
28 p_parameter_name IN VARCHAR2,
29 p_parameter_value IN VARCHAR2)
30 --------------------------------------------------------------------------------
31 IS
32 l_rowid ROWID;
33 CURSOR csr_rowid IS
34 select rowid
35 from hr_jp_parameters
36 where owner=p_owner
37 and parameter_name=p_parameter_name
38 for update nowait;
39 BEGIN
40 open csr_rowid;
41 fetch csr_rowid into l_rowid;
42 if csr_rowid%NOTFOUND then
43 l_rowid := NULL;
44 end if;
45 close csr_rowid;
46
47 if l_rowid is not NULL then
48 update hr_jp_parameters
49 set parameter_value=p_parameter_value
50 where rowid=l_rowid;
51 else
52 insert into HR_JP_PARAMETERS(
53 OWNER,
54 PARAMETER_NAME,
55 PARAMETER_VALUE)
56 values( p_owner,
57 p_parameter_name,
58 p_parameter_value);
59 end if;
60 END;
61 end;
[Home] [Help]