[Home] [Help]
PACKAGE BODY: APPS.PAY_ROLL_ACTS_PKG
Source
1 package body pay_roll_acts_pkg as
2 /* $Header: pypra01t.pkb 115.2 2002/12/11 11:14:33 ssivasu2 ship $ */
3 procedure delete_row ( p_rowid varchar2) is
4 begin
5 delete from pay_payroll_actions
6 where rowid = p_rowid;
7 end delete_row;
8
9 procedure insert_row ( p_rowid IN out nocopy varchar2,
10 p_payroll_action_id IN out nocopy number,
11 p_action_type varchar2,
12 p_business_group_id number,
13 p_consolidation_set_id number,
14 p_payroll_id number,
15 p_action_population_status varchar2,
16 p_action_status varchar2,
17 p_effective_date date,
18 p_comments varchar2,
19 p_legislative_parameters varchar2,
20 p_run_type_id number,
21 p_element_set_id number,
22 p_assignment_set_id number,
23 p_date_earned date,
24 p_display_run_number number,
25 p_pay_advice_date date,
26 p_pay_advice_message varchar2,
27 p_attribute_category varchar2,
28 p_attribute1 varchar2, p_attribute2 varchar2,
29 p_attribute3 varchar2, p_attribute4 varchar2,
30 p_attribute5 varchar2, p_attribute6 varchar2,
31 p_attribute7 varchar2, p_attribute8 varchar2,
32 p_attribute9 varchar2, p_attribute10 varchar2,
33 p_attribute11 varchar2, p_attribute12 varchar2,
34 p_attribute13 varchar2, p_attribute14 varchar2,
35 p_attribute15 varchar2, p_attribute16 varchar2,
36 p_attribute17 varchar2, p_attribute18 varchar2,
37 p_attribute19 varchar2, p_attribute20 varchar2 ) is
38
39 cursor c1 is
40 select pay_payroll_actions_s.nextval
41 from sys.dual;
42
43 cursor c2 is
44 select rowid
45 from pay_payroll_actions
46 where payroll_action_id = p_payroll_action_id;
47
48 begin
49
50 open c1;
51 fetch c1 into p_payroll_action_id;
52 close c1;
53
54 insert into pay_payroll_actions ( payroll_action_id,
55 action_type,
56 business_group_id,
57 consolidation_set_id,
58 payroll_id,
59 action_population_status,
60 action_status,
61 effective_date,
62 comments,
63 legislative_parameters,
64 run_type_id,
65 element_set_id,
66 assignment_set_id,
67 date_earned,
68 display_run_number,
69 pay_advice_date,
70 pay_advice_message,
71 attribute_category,
72 attribute1, attribute2,
73 attribute3, attribute4,
74 attribute5, attribute6,
75 attribute7, attribute8,
76 attribute9, attribute10,
77 attribute11, attribute12,
78 attribute13, attribute14,
79 attribute15, attribute16,
80 attribute17, attribute18,
81 attribute19, attribute20 )
82 values ( p_payroll_action_id,
83 p_action_type,
84 p_business_group_id,
85 p_consolidation_set_id,
86 p_payroll_id,
87 p_action_population_status,
88 p_action_status,
89 p_effective_date,
90 p_comments,
91 p_legislative_parameters,
92 p_run_type_id,
93 p_element_set_id,
94 p_assignment_set_id,
95 p_date_earned,
96 p_display_run_number,
97 p_pay_advice_date,
98 p_pay_advice_message,
99 p_attribute_category,
100 p_attribute1, p_attribute2,
101 p_attribute3, p_attribute4,
102 p_attribute5, p_attribute6,
103 p_attribute7, p_attribute8,
104 p_attribute9, p_attribute10,
105 p_attribute11, p_attribute12,
106 p_attribute13, p_attribute14,
107 p_attribute15, p_attribute16,
108 p_attribute17, p_attribute18,
109 p_attribute19, p_attribute20 );
110
111 open c2;
112 fetch c2 into p_rowid;
113 close c2;
114
115 end insert_row;
116
117 procedure lock_row ( p_rowid IN varchar2,
118 p_payroll_action_id number,
119 p_action_type varchar2,
120 p_business_group_id number,
121 p_consolidation_set_id number,
122 p_payroll_id number,
123 p_action_population_status varchar2,
124 p_action_status varchar2,
125 p_effective_date date,
126 p_comments varchar2,
127 p_legislative_parameters varchar2,
128 p_run_type_id number,
129 p_element_set_id number,
130 p_assignment_set_id number,
131 p_date_earned date,
132 p_display_run_number number,
133 p_pay_advice_date date,
134 p_pay_advice_message varchar2,
135 p_attribute_category varchar2,
136 p_attribute1 varchar2, p_attribute2 varchar2,
137 p_attribute3 varchar2, p_attribute4 varchar2,
138 p_attribute5 varchar2, p_attribute6 varchar2,
139 p_attribute7 varchar2, p_attribute8 varchar2,
140 p_attribute9 varchar2, p_attribute10 varchar2,
141 p_attribute11 varchar2, p_attribute12 varchar2,
142 p_attribute13 varchar2, p_attribute14 varchar2,
143 p_attribute15 varchar2, p_attribute16 varchar2,
144 p_attribute17 varchar2, p_attribute18 varchar2,
145 p_attribute19 varchar2, p_attribute20 varchar2 ) is
146
147 cursor c is
148 select *
149 from pay_payroll_actions
150 where rowid = p_rowid for update of payroll_action_id nowait;
151 c_rec c%rowtype;
152
153 begin
154 open c;
155 fetch c into c_rec;
156 close c;
157 /*
158 * strip any trailing spaces off the VARCHAR2 columns retrieved.
159 */
160 c_rec.comments := rtrim(c_rec.comments);
161 c_rec.legislative_parameters := rtrim(c_rec.legislative_parameters);
162 c_rec.pay_advice_message := rtrim(c_rec.pay_advice_message);
163 c_rec.attribute_category := rtrim(c_rec.attribute_category);
164 c_rec.attribute1 := rtrim(c_rec.attribute1);
165 c_rec.attribute2 := rtrim(c_rec.attribute2);
166 c_rec.attribute3 := rtrim(c_rec.attribute3);
167 c_rec.attribute4 := rtrim(c_rec.attribute4);
168 c_rec.attribute5 := rtrim(c_rec.attribute5);
169 c_rec.attribute6 := rtrim(c_rec.attribute6);
170 c_rec.attribute7 := rtrim(c_rec.attribute7);
171 c_rec.attribute8 := rtrim(c_rec.attribute8);
172 c_rec.attribute9 := rtrim(c_rec.attribute9);
173 c_rec.attribute10 := rtrim(c_rec.attribute10);
174 c_rec.attribute11 := rtrim(c_rec.attribute11);
175 c_rec.attribute12 := rtrim(c_rec.attribute12);
176 c_rec.attribute13 := rtrim(c_rec.attribute13);
177 c_rec.attribute14 := rtrim(c_rec.attribute14);
178 c_rec.attribute15 := rtrim(c_rec.attribute15);
179 c_rec.attribute16 := rtrim(c_rec.attribute16);
180 c_rec.attribute17 := rtrim(c_rec.attribute17);
181 c_rec.attribute18 := rtrim(c_rec.attribute18);
182 c_rec.attribute19 := rtrim(c_rec.attribute19);
183 c_rec.attribute20 := rtrim(c_rec.attribute20);
184 c_rec.action_type := rtrim(c_rec.action_type);
185 c_rec.action_population_status := rtrim(c_rec.action_population_status);
186 c_rec.action_status := rtrim(c_rec.action_status);
187 if ( ( (c_rec.payroll_action_id = p_payroll_action_id) or
188 (c_rec.payroll_action_id is null and p_payroll_action_id is null) )
189 and ( (c_rec.action_type = p_action_type) or
190 (c_rec.action_type is null and p_action_type is null) )
191 /******************************************
192 * *
193 * omit check for business group change - *
194 * it gives an unexplained value error, *
195 * and can never change anyway. *
196 * *
197 * and ( (c_rec.business_group_id = p_business_group_id) or
198 * (c_rec.business_group_id is null and p_business_group_id is null) )
199 * *
200 ******************************************
201 */
202 and ( (c_rec.consolidation_set_id = p_consolidation_set_id) or
203 (c_rec.consolidation_set_id is null and
204 p_consolidation_set_id is null) )
205 and ( (c_rec.payroll_id = p_payroll_id) or
206 (c_rec.payroll_id is null and p_payroll_id is null) )
207 and ( (c_rec.action_population_status = p_action_population_status) or
208 (c_rec.action_population_status is null and
209 p_action_population_status is null) )
210 and ( (c_rec.action_status = p_action_status) or
211 (c_rec.action_status is null and p_action_status is null) )
212 and ( (c_rec.effective_date = p_effective_date) or
213 (c_rec.effective_date is null and p_effective_date is null) )
214 and ( (c_rec.comments = p_comments) or
215 (c_rec.comments is null and p_comments is null) )
216 and ( (c_rec.legislative_parameters = p_legislative_parameters) or
217 (c_rec.legislative_parameters is null and
218 p_legislative_parameters is null) )
219 and ( (c_rec.run_type_id = p_run_type_id) or
220 (c_rec.run_type_id is null and p_run_type_id is null) )
221 and ( (c_rec.element_set_id = p_element_set_id) or
222 (c_rec.element_set_id is null and p_element_set_id is null) )
223 and ( (c_rec.assignment_set_id = p_assignment_set_id) or
224 (c_rec.assignment_set_id is null and p_assignment_set_id is null) )
225 and ( (c_rec.date_earned = p_date_earned) or
226 (c_rec.date_earned is null and p_date_earned is null) )
227 and ( (c_rec.display_run_number = p_display_run_number) or
228 (c_rec.display_run_number is null and p_display_run_number is null) )
229 and ( (c_rec.pay_advice_date = p_pay_advice_date) or
230 (c_rec.pay_advice_date is null and p_pay_advice_date is null) )
231 and ( (c_rec.pay_advice_message = p_pay_advice_message) or
232 (c_rec.pay_advice_message is null and p_pay_advice_message is null) )
233 and ( (c_rec.attribute_category = p_attribute_category) or
234 (c_rec.attribute_category is null and p_attribute_category is null) )
235 and ( (c_rec.attribute1 = p_attribute1) or
236 (c_rec.attribute1 is null and p_attribute1 is null) )
237 and ( (c_rec.attribute2 = p_attribute2) or
238 (c_rec.attribute2 is null and p_attribute2 is null) )
239 and ( (c_rec.attribute3 = p_attribute3) or
240 (c_rec.attribute3 is null and p_attribute3 is null) )
241 and ( (c_rec.attribute4 = p_attribute4) or
242 (c_rec.attribute4 is null and p_attribute4 is null) )
243 and ( (c_rec.attribute5 = p_attribute5) or
244 (c_rec.attribute5 is null and p_attribute5 is null) )
245 and ( (c_rec.attribute6 = p_attribute6) or
246 (c_rec.attribute6 is null and p_attribute6 is null) )
247 and ( (c_rec.attribute7 = p_attribute7) or
248 (c_rec.attribute7 is null and p_attribute7 is null) )
249 and ( (c_rec.attribute8 = p_attribute8) or
250 (c_rec.attribute8 is null and p_attribute8 is null) )
251 and ( (c_rec.attribute9 = p_attribute9) or
252 (c_rec.attribute9 is null and p_attribute9 is null) )
253 and ( (c_rec.attribute10 = p_attribute10) or
254 (c_rec.attribute10 is null and p_attribute10 is null) )
255 and ( (c_rec.attribute11 = p_attribute11) or
256 (c_rec.attribute11 is null and p_attribute11 is null) )
257 and ( (c_rec.attribute12 = p_attribute12) or
258 (c_rec.attribute12 is null and p_attribute12 is null) )
259 and ( (c_rec.attribute13 = p_attribute13) or
260 (c_rec.attribute13 is null and p_attribute13 is null) )
261 and ( (c_rec.attribute14 = p_attribute14) or
262 (c_rec.attribute14 is null and p_attribute14 is null) )
263 and ( (c_rec.attribute15 = p_attribute15) or
264 (c_rec.attribute15 is null and p_attribute15 is null) )
265 and ( (c_rec.attribute16 = p_attribute16) or
266 (c_rec.attribute16 is null and p_attribute16 is null) )
267 and ( (c_rec.attribute17 = p_attribute17) or
268 (c_rec.attribute17 is null and p_attribute17 is null) )
269 and ( (c_rec.attribute18 = p_attribute18) or
270 (c_rec.attribute18 is null and p_attribute18 is null) )
271 and ( (c_rec.attribute19 = p_attribute19) or
272 (c_rec.attribute19 is null and p_attribute19 is null) )
273 and ( (c_rec.attribute20 = p_attribute20) or
274 (c_rec.attribute20 is null and p_attribute20 is null) )
275 ) then
276 return;
277 else
278 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
279 app_exception.raise_exception;
280 end if;
281 end lock_row;
282
283 procedure update_row ( p_rowid IN varchar2,
284 p_payroll_action_id number,
285 p_action_type varchar2,
286 p_business_group_id number,
287 p_consolidation_set_id number,
288 p_payroll_id number,
289 p_action_population_status varchar2,
290 p_action_status varchar2,
291 p_effective_date date,
292 p_comments varchar2,
293 p_legislative_parameters varchar2,
294 p_run_type_id number,
295 p_element_set_id number,
296 p_assignment_set_id number,
297 p_date_earned date,
301 p_attribute_category varchar2,
298 p_display_run_number number,
299 p_pay_advice_date date,
300 p_pay_advice_message varchar2,
302 p_attribute1 varchar2, p_attribute2 varchar2,
303 p_attribute3 varchar2, p_attribute4 varchar2,
304 p_attribute5 varchar2, p_attribute6 varchar2,
305 p_attribute7 varchar2, p_attribute8 varchar2,
306 p_attribute9 varchar2, p_attribute10 varchar2,
307 p_attribute11 varchar2, p_attribute12 varchar2,
308 p_attribute13 varchar2, p_attribute14 varchar2,
309 p_attribute15 varchar2, p_attribute16 varchar2,
310 p_attribute17 varchar2, p_attribute18 varchar2,
311 p_attribute19 varchar2, p_attribute20 varchar2 ) is
312 begin
313 update pay_payroll_actions
314 set payroll_action_id = p_payroll_action_id,
315 action_type = p_action_type,
316 business_group_id = p_business_group_id,
317 consolidation_set_id = p_consolidation_set_id,
318 payroll_id = p_payroll_id,
319 action_population_status = action_population_status,
320 action_status = p_action_status,
321 effective_date = p_effective_date,
322 comments = p_comments,
323 legislative_parameters = p_legislative_parameters,
324 run_type_id = p_run_type_id,
325 element_set_id = p_element_set_id,
326 assignment_set_id = p_assignment_set_id,
327 date_earned = p_date_earned,
328 display_run_number = p_display_run_number,
329 pay_advice_date = p_pay_advice_date,
330 pay_advice_message = p_pay_advice_message,
331 attribute_category = p_attribute_category,
332 attribute1 = p_attribute1,
333 attribute2 = p_attribute2,
334 attribute3 = p_attribute3,
335 attribute4 = p_attribute4,
336 attribute5 = p_attribute5,
337 attribute6 = p_attribute6,
338 attribute7 = p_attribute7,
339 attribute8 = p_attribute8,
340 attribute9 = p_attribute9,
341 attribute10 = p_attribute10,
342 attribute11 = p_attribute11,
343 attribute12 = p_attribute12,
344 attribute13 = p_attribute13,
345 attribute14 = p_attribute14,
346 attribute15 = p_attribute15,
347 attribute16 = p_attribute16,
348 attribute17 = p_attribute17,
349 attribute18 = p_attribute18,
350 attribute19 = p_attribute19,
351 attribute20 = p_attribute20
352 where rowid = p_rowid;
353 end update_row;
354
355 end pay_roll_acts_pkg;