[Home] [Help]
PACKAGE BODY: APPS.PAY_UPGRADE_PARAMETERS_PKG
Source
1 PACKAGE BODY PAY_UPGRADE_PARAMETERS_PKG AS
2 /* $Header: pypup01t.pkb 120.1 2005/07/07 03:58 rajeesha noship $ */
3
4 g_package varchar2(33) := ' pay_upgrade_parameters_pkg.';
5
6
7 PROCEDURE chk_mandatory_arg( p_argument in varchar2 , p_column in varchar2)
8 is
9 --
10 l_proc varchar2(72) := g_package||'chk_mandatory_arg';
11 --
12 BEGIN
13 --
14 hr_utility.set_location('Entering:'|| l_proc, 10);
15
16 if p_argument is null then
17 fnd_message.set_name( 'PAY', 'PAY_75178_NO_DATA' );
18 fnd_message.set_token('VALUE1' , l_proc);
19 fnd_message.set_token('VALUE2' , p_column) ;
20 fnd_message.raise_error;
21 end if;
22
23 hr_utility.set_location(' Leaving:'|| l_proc, 20);
24 --
25 END chk_mandatory_arg;
26
27
28 PROCEDURE Insert_Row (
29 P_UPG_DEF_SHORT_NAME in VARCHAR2
30 ,P_PARAMETER_NAME in VARCHAR2
31 ,P_PARAMETER_VALUE in VARCHAR2
32 ,P_last_update_date in DATE
33 ,P_LAST_UPDATED_BY in NUMBER
34 ,P_LAST_UPDATE_LOGIN in NUMBER
35 ,P_CREATED_BY in NUMBER
36 ,P_CREATION_DATE in DATE
37
38 ) is
39 --
40 l_upgrade_definition_id PAY_UPGRADE_DEFINITIONS.UPGRADE_DEFINITION_ID%TYPE;
41 l_exists varchar2(1);
42 l_proc varchar2(100) := g_package || 'Insert_Row';
43
44 cursor csr_exists is
45 select upgrade_definition_id
46 from pay_upgrade_definitions
47 where upper(short_name) = upper(p_upg_def_short_name);
48 --
49 BEGIN
50 --
51 hr_utility.set_location('Entering:'|| l_proc, 10);
52
53 -- Check for mandatory arguments.
54
55 chk_mandatory_arg( p_upg_def_short_name, 'SHORT_NAME' );
56
57 chk_mandatory_arg( p_parameter_name, 'PARAMETER_NAME' );
58
59 --
60
61 open csr_exists;
62 fetch csr_exists into l_upgrade_definition_id;
63
64 IF csr_exists%NOTFOUND THEN
65 CLOSE csr_exists;
66 fnd_message.set_name('PAY', 'PAY_34863_SHORT_NAME_NOT_EXIST');
67 fnd_message.raise_error;
68 END IF;
69 CLOSE csr_exists;
70
71 insert into PAY_UPGRADE_PARAMETERS (
72 UPGRADE_DEFINITION_ID,
73 PARAMETER_NAME,
74 PARAMETER_VALUE,
75 LAST_UPDATE_DATE,
76 LAST_UPDATED_BY,
77 LAST_UPDATE_LOGIN,
78 CREATED_BY,
79 CREATION_DATE
80 ) values (
81 l_upgrade_definition_id,
82 p_parameter_name,
83 p_parameter_value,
84 p_last_update_date,
85 p_last_updated_by,
86 p_last_update_login,
87 p_created_by,
88 p_creation_date);
89
90 hr_utility.set_location(' Leaving:'|| l_proc, 20);
91 --
92 END Insert_Row;
93
94 PROCEDURE Update_Row (
95 P_UPGRADE_DEFINITION_ID in NUMBER
96 , P_PARAMETER_NAME in VARCHAR2
97 , P_PARAMETER_VALUE in VARCHAR2
98 , P_LAST_UPDATE_DATE in DATE
99 , P_LAST_UPDATED_BY in NUMBER
100 , P_LAST_UPDATE_LOGIN in NUMBER
101 ) is
102 --
103 l_exists varchar2(1);
104 l_proc varchar2(100) := g_package || 'Update_Row';
105 --
106 BEGIN
107 --
108 hr_utility.set_location('Entering:'|| l_proc, 10);
109
110 -- Check for mandatory arguments.
111
112 chk_mandatory_arg( p_upgrade_definition_id, 'UPGRADE_DEFINITION_ID' );
113
114 chk_mandatory_arg( p_parameter_name, 'PARAMETER_NAME' );
115
116
117 update PAY_UPGRADE_PARAMETERS set
118 parameter_value = p_parameter_value,
119 last_update_date= p_last_update_date,
120 last_updated_by = p_last_updated_by,
121 last_update_login = p_last_update_login
122 where upgrade_definition_id = p_upgrade_definition_id
123 and parameter_name = p_parameter_name;
124
125 if (sql%notfound) then
126 raise no_data_found;
127 end if;
128
129 hr_utility.set_location(' Leaving:'|| l_proc, 20);
130 --
131 END Update_Row;
132
133 PROCEDURE Load_Row (
134 P_SHORT_NAME in VARCHAR2
135 , P_PARAMETER_NAME in VARCHAR2
136 , P_PARAMETER_VALUE in VARCHAR2
137 , P_OWNER in VARCHAR2
138 ) is
139 --
140 l_proc varchar2(100) := g_package || 'Load_Row';
141 l_upgrade_def_id PAY_UPGRADE_DEFINITIONS.UPGRADE_DEFINITION_ID%TYPE;
142
143 l_sysdate date := sysdate;
144 l_created_by PAY_UPGRADE_PARAMETERS.CREATED_BY%TYPE;
145 l_creation_date PAY_UPGRADE_PARAMETERS.CREATION_DATE%TYPE;
146 l_last_updated_by PAY_UPGRADE_PARAMETERS.LAST_UPDATED_BY%TYPE;
147 l_last_update_login PAY_UPGRADE_PARAMETERS.LAST_UPDATE_LOGIN%TYPE;
148 l_last_update_date PAY_UPGRADE_PARAMETERS.LAST_UPDATE_DATE%TYPE;
149
150
151 cursor csr_existing_upd_def is
152 select upgrade_definition_id
153 from pay_upgrade_definitions
154 where upper(short_name) = upper(p_short_name) ;
155
156 cursor csr_existing_upd_param(p_def_id in varchar2) is
157 select null
158 from pay_upgrade_parameters
159 where UPGRADE_DEFINITION_ID = p_def_id
160 and PARAMETER_NAME = P_PARAMETER_NAME;
161
162 l_exists varchar2(1);
163
164 --
165
166 BEGIN
167 --
168 hr_utility.set_location('Entering:'|| l_proc, 10);
169
170 if p_owner = 'SEED' then
171 hr_general2.init_fndload
172 (p_resp_appl_id => 801
173 ,p_user_id => 1
174 );
175 else
176 hr_general2.init_fndload
177 (p_resp_appl_id => 801
178 ,p_user_id => -1
179 );
180 end if;
181
182 -- Set the WHO Columns
183 l_created_by := fnd_global.user_id;
184 l_creation_date := l_sysdate;
185 l_last_update_date := l_sysdate;
186 l_last_updated_by := fnd_global.user_id;
187 l_last_update_login := fnd_global.login_id;
188
189
190 open csr_existing_upd_def;
191 fetch csr_existing_upd_def into l_upgrade_def_id;
192
193 IF csr_existing_upd_def%NOTFOUND THEN
194 CLOSE csr_existing_upd_def;
195 fnd_message.set_name('PAY', 'PAY_34863_SHORT_NAME_NOT_EXIST');
196 fnd_message.raise_error;
197 END IF;
198 CLOSE csr_existing_upd_def;
199
200 open csr_existing_upd_param(l_upgrade_def_id);
201 fetch csr_existing_upd_param into l_exists;
202
203 if csr_existing_upd_param%FOUND then
204
205 close csr_existing_upd_param;
206 Update_Row (
207 P_UPGRADE_DEFINITION_ID => l_upgrade_def_id
208 ,P_PARAMETER_NAME => p_parameter_name
209 ,P_PARAMETER_VALUE => p_parameter_value
210 ,P_LAST_UPDATE_DATE => l_last_update_date
211 ,P_LAST_UPDATED_BY => l_last_updated_by
212 ,P_LAST_UPDATE_LOGIN => l_last_update_login
213 );
214
215 else
216
217 close csr_existing_upd_param;
218 -- This is not an update . Call the insert_row procedure.
219 --
220 Insert_Row (
221 P_UPG_DEF_SHORT_NAME => p_short_name
222 , P_PARAMETER_NAME => p_parameter_name
223 , P_PARAMETER_VALUE => p_parameter_value
224 , P_LAST_UPDATE_DATE => l_last_update_date
225 , P_LAST_UPDATED_BY => l_last_updated_by
226 , P_LAST_UPDATE_LOGIN => l_last_update_login
227 , P_CREATED_BY => l_created_by
228 , P_CREATION_DATE => l_creation_date
229 );
230
231 end if;
232
233 hr_utility.set_location('Leaving:'|| l_proc, 20);
234 --
235 END Load_Row;
236
237 END PAY_UPGRADE_PARAMETERS_PKG;
238