[Home] [Help]
PACKAGE BODY: APPS.CN_PAYGROUP_PVT_W
Source
1 package body cn_paygroup_pvt_w as
2 /* $Header: cnwpgrpb.pls 120.2 2005/09/14 03:39 vensrini noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_paygroup_pvt.paygroup_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_200
12 , a9 JTF_VARCHAR2_TABLE_200
13 , a10 JTF_VARCHAR2_TABLE_200
14 , a11 JTF_VARCHAR2_TABLE_200
15 , a12 JTF_VARCHAR2_TABLE_200
16 , a13 JTF_VARCHAR2_TABLE_200
17 , a14 JTF_VARCHAR2_TABLE_200
18 , a15 JTF_VARCHAR2_TABLE_200
19 , a16 JTF_VARCHAR2_TABLE_200
20 , a17 JTF_VARCHAR2_TABLE_200
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_NUMBER_TABLE
28 ) as
29 ddindx binary_integer; indx binary_integer;
30 begin
31 if a0 is not null and a0.count > 0 then
32 if a0.count > 0 then
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx).pay_group_id := a0(indx);
37 t(ddindx).name := a1(indx);
38 t(ddindx).period_set_name := a2(indx);
39 t(ddindx).period_type := a3(indx);
40 t(ddindx).start_date := a4(indx);
41 t(ddindx).end_date := a5(indx);
42 t(ddindx).pay_group_description := a6(indx);
43 t(ddindx).attribute_category := a7(indx);
44 t(ddindx).attribute1 := a8(indx);
45 t(ddindx).attribute2 := a9(indx);
46 t(ddindx).attribute3 := a10(indx);
47 t(ddindx).attribute4 := a11(indx);
48 t(ddindx).attribute5 := a12(indx);
49 t(ddindx).attribute6 := a13(indx);
50 t(ddindx).attribute7 := a14(indx);
51 t(ddindx).attribute8 := a15(indx);
52 t(ddindx).attribute9 := a16(indx);
53 t(ddindx).attribute10 := a17(indx);
54 t(ddindx).attribute11 := a18(indx);
55 t(ddindx).attribute12 := a19(indx);
56 t(ddindx).attribute13 := a20(indx);
57 t(ddindx).attribute14 := a21(indx);
58 t(ddindx).attribute15 := a22(indx);
59 t(ddindx).object_version_number := a23(indx);
60 t(ddindx).org_id := a24(indx);
61 ddindx := ddindx+1;
62 if a0.last =indx
63 then exit;
64 end if;
65 indx := a0.next(indx);
66 end loop;
67 end if;
68 end if;
69 end rosetta_table_copy_in_p1;
70 procedure rosetta_table_copy_out_p1(t cn_paygroup_pvt.paygroup_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
71 , a1 out nocopy JTF_VARCHAR2_TABLE_100
72 , a2 out nocopy JTF_VARCHAR2_TABLE_100
73 , a3 out nocopy JTF_VARCHAR2_TABLE_100
74 , a4 out nocopy JTF_DATE_TABLE
75 , a5 out nocopy JTF_DATE_TABLE
76 , a6 out nocopy JTF_VARCHAR2_TABLE_100
77 , a7 out nocopy JTF_VARCHAR2_TABLE_100
78 , a8 out nocopy JTF_VARCHAR2_TABLE_200
79 , a9 out nocopy JTF_VARCHAR2_TABLE_200
80 , a10 out nocopy JTF_VARCHAR2_TABLE_200
81 , a11 out nocopy JTF_VARCHAR2_TABLE_200
82 , a12 out nocopy JTF_VARCHAR2_TABLE_200
83 , a13 out nocopy JTF_VARCHAR2_TABLE_200
84 , a14 out nocopy JTF_VARCHAR2_TABLE_200
85 , a15 out nocopy JTF_VARCHAR2_TABLE_200
86 , a16 out nocopy JTF_VARCHAR2_TABLE_200
87 , a17 out nocopy JTF_VARCHAR2_TABLE_200
88 , a18 out nocopy JTF_VARCHAR2_TABLE_200
89 , a19 out nocopy JTF_VARCHAR2_TABLE_200
90 , a20 out nocopy JTF_VARCHAR2_TABLE_200
91 , a21 out nocopy JTF_VARCHAR2_TABLE_200
92 , a22 out nocopy JTF_VARCHAR2_TABLE_200
93 , a23 out nocopy JTF_NUMBER_TABLE
94 , a24 out nocopy JTF_NUMBER_TABLE
95 ) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if t is null or t.count = 0 then
99 a0 := JTF_NUMBER_TABLE();
100 a1 := JTF_VARCHAR2_TABLE_100();
101 a2 := JTF_VARCHAR2_TABLE_100();
102 a3 := JTF_VARCHAR2_TABLE_100();
103 a4 := JTF_DATE_TABLE();
104 a5 := JTF_DATE_TABLE();
105 a6 := JTF_VARCHAR2_TABLE_100();
106 a7 := JTF_VARCHAR2_TABLE_100();
107 a8 := JTF_VARCHAR2_TABLE_200();
108 a9 := JTF_VARCHAR2_TABLE_200();
109 a10 := JTF_VARCHAR2_TABLE_200();
110 a11 := JTF_VARCHAR2_TABLE_200();
111 a12 := JTF_VARCHAR2_TABLE_200();
112 a13 := JTF_VARCHAR2_TABLE_200();
113 a14 := JTF_VARCHAR2_TABLE_200();
114 a15 := JTF_VARCHAR2_TABLE_200();
115 a16 := JTF_VARCHAR2_TABLE_200();
116 a17 := JTF_VARCHAR2_TABLE_200();
117 a18 := JTF_VARCHAR2_TABLE_200();
118 a19 := JTF_VARCHAR2_TABLE_200();
119 a20 := JTF_VARCHAR2_TABLE_200();
120 a21 := JTF_VARCHAR2_TABLE_200();
121 a22 := JTF_VARCHAR2_TABLE_200();
122 a23 := JTF_NUMBER_TABLE();
123 a24 := JTF_NUMBER_TABLE();
124 else
125 a0 := JTF_NUMBER_TABLE();
126 a1 := JTF_VARCHAR2_TABLE_100();
127 a2 := JTF_VARCHAR2_TABLE_100();
128 a3 := JTF_VARCHAR2_TABLE_100();
129 a4 := JTF_DATE_TABLE();
130 a5 := JTF_DATE_TABLE();
131 a6 := JTF_VARCHAR2_TABLE_100();
132 a7 := JTF_VARCHAR2_TABLE_100();
133 a8 := JTF_VARCHAR2_TABLE_200();
134 a9 := JTF_VARCHAR2_TABLE_200();
135 a10 := JTF_VARCHAR2_TABLE_200();
136 a11 := JTF_VARCHAR2_TABLE_200();
137 a12 := JTF_VARCHAR2_TABLE_200();
138 a13 := JTF_VARCHAR2_TABLE_200();
139 a14 := JTF_VARCHAR2_TABLE_200();
140 a15 := JTF_VARCHAR2_TABLE_200();
141 a16 := JTF_VARCHAR2_TABLE_200();
142 a17 := JTF_VARCHAR2_TABLE_200();
143 a18 := JTF_VARCHAR2_TABLE_200();
144 a19 := JTF_VARCHAR2_TABLE_200();
145 a20 := JTF_VARCHAR2_TABLE_200();
146 a21 := JTF_VARCHAR2_TABLE_200();
147 a22 := JTF_VARCHAR2_TABLE_200();
148 a23 := JTF_NUMBER_TABLE();
149 a24 := JTF_NUMBER_TABLE();
150 if t.count > 0 then
151 a0.extend(t.count);
152 a1.extend(t.count);
153 a2.extend(t.count);
154 a3.extend(t.count);
155 a4.extend(t.count);
156 a5.extend(t.count);
157 a6.extend(t.count);
158 a7.extend(t.count);
159 a8.extend(t.count);
160 a9.extend(t.count);
161 a10.extend(t.count);
162 a11.extend(t.count);
163 a12.extend(t.count);
164 a13.extend(t.count);
165 a14.extend(t.count);
166 a15.extend(t.count);
167 a16.extend(t.count);
168 a17.extend(t.count);
169 a18.extend(t.count);
170 a19.extend(t.count);
171 a20.extend(t.count);
172 a21.extend(t.count);
173 a22.extend(t.count);
174 a23.extend(t.count);
175 a24.extend(t.count);
176 ddindx := t.first;
177 indx := 1;
178 while true loop
179 a0(indx) := t(ddindx).pay_group_id;
180 a1(indx) := t(ddindx).name;
181 a2(indx) := t(ddindx).period_set_name;
182 a3(indx) := t(ddindx).period_type;
183 a4(indx) := t(ddindx).start_date;
184 a5(indx) := t(ddindx).end_date;
185 a6(indx) := t(ddindx).pay_group_description;
186 a7(indx) := t(ddindx).attribute_category;
187 a8(indx) := t(ddindx).attribute1;
188 a9(indx) := t(ddindx).attribute2;
189 a10(indx) := t(ddindx).attribute3;
190 a11(indx) := t(ddindx).attribute4;
191 a12(indx) := t(ddindx).attribute5;
192 a13(indx) := t(ddindx).attribute6;
193 a14(indx) := t(ddindx).attribute7;
194 a15(indx) := t(ddindx).attribute8;
195 a16(indx) := t(ddindx).attribute9;
196 a17(indx) := t(ddindx).attribute10;
197 a18(indx) := t(ddindx).attribute11;
198 a19(indx) := t(ddindx).attribute12;
199 a20(indx) := t(ddindx).attribute13;
200 a21(indx) := t(ddindx).attribute14;
201 a22(indx) := t(ddindx).attribute15;
202 a23(indx) := t(ddindx).object_version_number;
203 a24(indx) := t(ddindx).org_id;
204 indx := indx+1;
205 if t.last =ddindx
206 then exit;
207 end if;
208 ddindx := t.next(ddindx);
209 end loop;
210 end if;
211 end if;
212 end rosetta_table_copy_out_p1;
213
214 procedure create_paygroup(p_api_version NUMBER
215 , p_init_msg_list VARCHAR2
216 , p_commit VARCHAR2
217 , p_validation_level NUMBER
218 , x_return_status out nocopy VARCHAR2
219 , x_msg_count out nocopy NUMBER
220 , x_msg_data out nocopy VARCHAR2
221 , p7_a0 in out nocopy NUMBER
222 , p7_a1 in out nocopy VARCHAR2
223 , p7_a2 in out nocopy VARCHAR2
224 , p7_a3 in out nocopy VARCHAR2
225 , p7_a4 in out nocopy DATE
226 , p7_a5 in out nocopy DATE
227 , p7_a6 in out nocopy VARCHAR2
228 , p7_a7 in out nocopy VARCHAR2
229 , p7_a8 in out nocopy VARCHAR2
230 , p7_a9 in out nocopy VARCHAR2
231 , p7_a10 in out nocopy VARCHAR2
232 , p7_a11 in out nocopy VARCHAR2
233 , p7_a12 in out nocopy VARCHAR2
234 , p7_a13 in out nocopy VARCHAR2
235 , p7_a14 in out nocopy VARCHAR2
236 , p7_a15 in out nocopy VARCHAR2
237 , p7_a16 in out nocopy VARCHAR2
238 , p7_a17 in out nocopy VARCHAR2
239 , p7_a18 in out nocopy VARCHAR2
240 , p7_a19 in out nocopy VARCHAR2
241 , p7_a20 in out nocopy VARCHAR2
242 , p7_a21 in out nocopy VARCHAR2
243 , p7_a22 in out nocopy VARCHAR2
244 , p7_a23 in out nocopy NUMBER
245 , p7_a24 in out nocopy NUMBER
246 , x_loading_status out nocopy VARCHAR2
247 , x_status out nocopy VARCHAR2
248 )
249
250 as
251 ddp_paygroup_rec cn_paygroup_pvt.paygroup_rec_type;
252 ddindx binary_integer; indx binary_integer;
253 begin
254
255 -- copy data to the local IN or IN-OUT args, if any
256
257
258
259
260
261
262
263 ddp_paygroup_rec.pay_group_id := p7_a0;
264 ddp_paygroup_rec.name := p7_a1;
265 ddp_paygroup_rec.period_set_name := p7_a2;
266 ddp_paygroup_rec.period_type := p7_a3;
267 ddp_paygroup_rec.start_date := p7_a4;
268 ddp_paygroup_rec.end_date := p7_a5;
269 ddp_paygroup_rec.pay_group_description := p7_a6;
270 ddp_paygroup_rec.attribute_category := p7_a7;
271 ddp_paygroup_rec.attribute1 := p7_a8;
272 ddp_paygroup_rec.attribute2 := p7_a9;
273 ddp_paygroup_rec.attribute3 := p7_a10;
274 ddp_paygroup_rec.attribute4 := p7_a11;
275 ddp_paygroup_rec.attribute5 := p7_a12;
276 ddp_paygroup_rec.attribute6 := p7_a13;
277 ddp_paygroup_rec.attribute7 := p7_a14;
278 ddp_paygroup_rec.attribute8 := p7_a15;
279 ddp_paygroup_rec.attribute9 := p7_a16;
280 ddp_paygroup_rec.attribute10 := p7_a17;
281 ddp_paygroup_rec.attribute11 := p7_a18;
282 ddp_paygroup_rec.attribute12 := p7_a19;
283 ddp_paygroup_rec.attribute13 := p7_a20;
284 ddp_paygroup_rec.attribute14 := p7_a21;
285 ddp_paygroup_rec.attribute15 := p7_a22;
286 ddp_paygroup_rec.object_version_number := p7_a23;
287 ddp_paygroup_rec.org_id := p7_a24;
288
289
290
291 -- here's the delegated call to the old PL/SQL routine
292 cn_paygroup_pvt.create_paygroup(p_api_version,
293 p_init_msg_list,
294 p_commit,
295 p_validation_level,
296 x_return_status,
297 x_msg_count,
298 x_msg_data,
299 ddp_paygroup_rec,
300 x_loading_status,
301 x_status);
302
303 -- copy data back from the local variables to OUT or IN-OUT args, if any
304
305
306
307
308
309
310
311 p7_a0 := ddp_paygroup_rec.pay_group_id;
312 p7_a1 := ddp_paygroup_rec.name;
313 p7_a2 := ddp_paygroup_rec.period_set_name;
314 p7_a3 := ddp_paygroup_rec.period_type;
315 p7_a4 := ddp_paygroup_rec.start_date;
316 p7_a5 := ddp_paygroup_rec.end_date;
317 p7_a6 := ddp_paygroup_rec.pay_group_description;
318 p7_a7 := ddp_paygroup_rec.attribute_category;
319 p7_a8 := ddp_paygroup_rec.attribute1;
320 p7_a9 := ddp_paygroup_rec.attribute2;
321 p7_a10 := ddp_paygroup_rec.attribute3;
322 p7_a11 := ddp_paygroup_rec.attribute4;
323 p7_a12 := ddp_paygroup_rec.attribute5;
324 p7_a13 := ddp_paygroup_rec.attribute6;
325 p7_a14 := ddp_paygroup_rec.attribute7;
326 p7_a15 := ddp_paygroup_rec.attribute8;
327 p7_a16 := ddp_paygroup_rec.attribute9;
328 p7_a17 := ddp_paygroup_rec.attribute10;
329 p7_a18 := ddp_paygroup_rec.attribute11;
330 p7_a19 := ddp_paygroup_rec.attribute12;
331 p7_a20 := ddp_paygroup_rec.attribute13;
332 p7_a21 := ddp_paygroup_rec.attribute14;
333 p7_a22 := ddp_paygroup_rec.attribute15;
334 p7_a23 := ddp_paygroup_rec.object_version_number;
335 p7_a24 := ddp_paygroup_rec.org_id;
336
337
338 end;
339
340 procedure update_paygroup(p_api_version NUMBER
341 , p_init_msg_list VARCHAR2
342 , p_commit VARCHAR2
343 , p_validation_level NUMBER
344 , x_return_status out nocopy VARCHAR2
345 , x_msg_count out nocopy NUMBER
346 , x_msg_data out nocopy VARCHAR2
347 , p7_a0 in out nocopy NUMBER
348 , p7_a1 in out nocopy VARCHAR2
349 , p7_a2 in out nocopy VARCHAR2
350 , p7_a3 in out nocopy VARCHAR2
351 , p7_a4 in out nocopy DATE
352 , p7_a5 in out nocopy DATE
353 , p7_a6 in out nocopy VARCHAR2
354 , p7_a7 in out nocopy VARCHAR2
355 , p7_a8 in out nocopy VARCHAR2
356 , p7_a9 in out nocopy VARCHAR2
357 , p7_a10 in out nocopy VARCHAR2
358 , p7_a11 in out nocopy VARCHAR2
359 , p7_a12 in out nocopy VARCHAR2
360 , p7_a13 in out nocopy VARCHAR2
361 , p7_a14 in out nocopy VARCHAR2
362 , p7_a15 in out nocopy VARCHAR2
363 , p7_a16 in out nocopy VARCHAR2
364 , p7_a17 in out nocopy VARCHAR2
365 , p7_a18 in out nocopy VARCHAR2
366 , p7_a19 in out nocopy VARCHAR2
367 , p7_a20 in out nocopy VARCHAR2
368 , p7_a21 in out nocopy VARCHAR2
369 , p7_a22 in out nocopy VARCHAR2
370 , p7_a23 in out nocopy NUMBER
371 , p7_a24 in out nocopy NUMBER
372 , x_status out nocopy VARCHAR2
373 , x_loading_status out nocopy VARCHAR2
374 )
375
376 as
377 ddp_paygroup_rec cn_paygroup_pvt.paygroup_rec_type;
378 ddindx binary_integer; indx binary_integer;
379 begin
380
381 -- copy data to the local IN or IN-OUT args, if any
382
383
384
385
386
387
388
389 ddp_paygroup_rec.pay_group_id := p7_a0;
390 ddp_paygroup_rec.name := p7_a1;
394 ddp_paygroup_rec.end_date := p7_a5;
391 ddp_paygroup_rec.period_set_name := p7_a2;
392 ddp_paygroup_rec.period_type := p7_a3;
393 ddp_paygroup_rec.start_date := p7_a4;
395 ddp_paygroup_rec.pay_group_description := p7_a6;
396 ddp_paygroup_rec.attribute_category := p7_a7;
397 ddp_paygroup_rec.attribute1 := p7_a8;
398 ddp_paygroup_rec.attribute2 := p7_a9;
399 ddp_paygroup_rec.attribute3 := p7_a10;
400 ddp_paygroup_rec.attribute4 := p7_a11;
401 ddp_paygroup_rec.attribute5 := p7_a12;
402 ddp_paygroup_rec.attribute6 := p7_a13;
403 ddp_paygroup_rec.attribute7 := p7_a14;
404 ddp_paygroup_rec.attribute8 := p7_a15;
405 ddp_paygroup_rec.attribute9 := p7_a16;
406 ddp_paygroup_rec.attribute10 := p7_a17;
407 ddp_paygroup_rec.attribute11 := p7_a18;
408 ddp_paygroup_rec.attribute12 := p7_a19;
409 ddp_paygroup_rec.attribute13 := p7_a20;
410 ddp_paygroup_rec.attribute14 := p7_a21;
411 ddp_paygroup_rec.attribute15 := p7_a22;
412 ddp_paygroup_rec.object_version_number := p7_a23;
413 ddp_paygroup_rec.org_id := p7_a24;
414
415
416
417 -- here's the delegated call to the old PL/SQL routine
418 cn_paygroup_pvt.update_paygroup(p_api_version,
419 p_init_msg_list,
420 p_commit,
421 p_validation_level,
422 x_return_status,
423 x_msg_count,
424 x_msg_data,
425 ddp_paygroup_rec,
426 x_status,
427 x_loading_status);
428
429 -- copy data back from the local variables to OUT or IN-OUT args, if any
430
431
432
433
434
435
436
437 p7_a0 := ddp_paygroup_rec.pay_group_id;
438 p7_a1 := ddp_paygroup_rec.name;
439 p7_a2 := ddp_paygroup_rec.period_set_name;
440 p7_a3 := ddp_paygroup_rec.period_type;
441 p7_a4 := ddp_paygroup_rec.start_date;
442 p7_a5 := ddp_paygroup_rec.end_date;
443 p7_a6 := ddp_paygroup_rec.pay_group_description;
444 p7_a7 := ddp_paygroup_rec.attribute_category;
445 p7_a8 := ddp_paygroup_rec.attribute1;
446 p7_a9 := ddp_paygroup_rec.attribute2;
447 p7_a10 := ddp_paygroup_rec.attribute3;
448 p7_a11 := ddp_paygroup_rec.attribute4;
449 p7_a12 := ddp_paygroup_rec.attribute5;
450 p7_a13 := ddp_paygroup_rec.attribute6;
451 p7_a14 := ddp_paygroup_rec.attribute7;
452 p7_a15 := ddp_paygroup_rec.attribute8;
453 p7_a16 := ddp_paygroup_rec.attribute9;
454 p7_a17 := ddp_paygroup_rec.attribute10;
455 p7_a18 := ddp_paygroup_rec.attribute11;
456 p7_a19 := ddp_paygroup_rec.attribute12;
457 p7_a20 := ddp_paygroup_rec.attribute13;
458 p7_a21 := ddp_paygroup_rec.attribute14;
459 p7_a22 := ddp_paygroup_rec.attribute15;
460 p7_a23 := ddp_paygroup_rec.object_version_number;
461 p7_a24 := ddp_paygroup_rec.org_id;
462
463
464 end;
465
466 procedure delete_paygroup(p_api_version NUMBER
467 , p_init_msg_list VARCHAR2
468 , p_commit VARCHAR2
469 , p_validation_level NUMBER
470 , x_return_status out nocopy VARCHAR2
471 , x_msg_count out nocopy NUMBER
472 , x_msg_data out nocopy VARCHAR2
473 , p7_a0 in out nocopy NUMBER
474 , p7_a1 in out nocopy VARCHAR2
475 , p7_a2 in out nocopy VARCHAR2
476 , p7_a3 in out nocopy VARCHAR2
477 , p7_a4 in out nocopy DATE
478 , p7_a5 in out nocopy DATE
479 , p7_a6 in out nocopy VARCHAR2
480 , p7_a7 in out nocopy VARCHAR2
481 , p7_a8 in out nocopy VARCHAR2
482 , p7_a9 in out nocopy VARCHAR2
483 , p7_a10 in out nocopy VARCHAR2
484 , p7_a11 in out nocopy VARCHAR2
485 , p7_a12 in out nocopy VARCHAR2
486 , p7_a13 in out nocopy VARCHAR2
487 , p7_a14 in out nocopy VARCHAR2
488 , p7_a15 in out nocopy VARCHAR2
489 , p7_a16 in out nocopy VARCHAR2
490 , p7_a17 in out nocopy VARCHAR2
491 , p7_a18 in out nocopy VARCHAR2
492 , p7_a19 in out nocopy VARCHAR2
493 , p7_a20 in out nocopy VARCHAR2
494 , p7_a21 in out nocopy VARCHAR2
495 , p7_a22 in out nocopy VARCHAR2
496 , p7_a23 in out nocopy NUMBER
497 , p7_a24 in out nocopy NUMBER
498 , x_status out nocopy VARCHAR2
499 , x_loading_status out nocopy VARCHAR2
500 )
501
502 as
503 ddp_paygroup_rec cn_paygroup_pvt.paygroup_rec_type;
504 ddindx binary_integer; indx binary_integer;
505 begin
506
507 -- copy data to the local IN or IN-OUT args, if any
508
509
510
511
512
513
514
515 ddp_paygroup_rec.pay_group_id := p7_a0;
516 ddp_paygroup_rec.name := p7_a1;
517 ddp_paygroup_rec.period_set_name := p7_a2;
518 ddp_paygroup_rec.period_type := p7_a3;
519 ddp_paygroup_rec.start_date := p7_a4;
520 ddp_paygroup_rec.end_date := p7_a5;
521 ddp_paygroup_rec.pay_group_description := p7_a6;
522 ddp_paygroup_rec.attribute_category := p7_a7;
523 ddp_paygroup_rec.attribute1 := p7_a8;
524 ddp_paygroup_rec.attribute2 := p7_a9;
525 ddp_paygroup_rec.attribute3 := p7_a10;
526 ddp_paygroup_rec.attribute4 := p7_a11;
527 ddp_paygroup_rec.attribute5 := p7_a12;
528 ddp_paygroup_rec.attribute6 := p7_a13;
529 ddp_paygroup_rec.attribute7 := p7_a14;
530 ddp_paygroup_rec.attribute8 := p7_a15;
531 ddp_paygroup_rec.attribute9 := p7_a16;
532 ddp_paygroup_rec.attribute10 := p7_a17;
533 ddp_paygroup_rec.attribute11 := p7_a18;
534 ddp_paygroup_rec.attribute12 := p7_a19;
535 ddp_paygroup_rec.attribute13 := p7_a20;
536 ddp_paygroup_rec.attribute14 := p7_a21;
537 ddp_paygroup_rec.attribute15 := p7_a22;
538 ddp_paygroup_rec.object_version_number := p7_a23;
539 ddp_paygroup_rec.org_id := p7_a24;
540
541
542
543 -- here's the delegated call to the old PL/SQL routine
544 cn_paygroup_pvt.delete_paygroup(p_api_version,
545 p_init_msg_list,
546 p_commit,
547 p_validation_level,
548 x_return_status,
549 x_msg_count,
550 x_msg_data,
551 ddp_paygroup_rec,
552 x_status,
553 x_loading_status);
554
555 -- copy data back from the local variables to OUT or IN-OUT args, if any
556
557
558
559
560
561
562
563 p7_a0 := ddp_paygroup_rec.pay_group_id;
564 p7_a1 := ddp_paygroup_rec.name;
565 p7_a2 := ddp_paygroup_rec.period_set_name;
566 p7_a3 := ddp_paygroup_rec.period_type;
567 p7_a4 := ddp_paygroup_rec.start_date;
568 p7_a5 := ddp_paygroup_rec.end_date;
569 p7_a6 := ddp_paygroup_rec.pay_group_description;
570 p7_a7 := ddp_paygroup_rec.attribute_category;
571 p7_a8 := ddp_paygroup_rec.attribute1;
572 p7_a9 := ddp_paygroup_rec.attribute2;
576 p7_a13 := ddp_paygroup_rec.attribute6;
573 p7_a10 := ddp_paygroup_rec.attribute3;
574 p7_a11 := ddp_paygroup_rec.attribute4;
575 p7_a12 := ddp_paygroup_rec.attribute5;
577 p7_a14 := ddp_paygroup_rec.attribute7;
578 p7_a15 := ddp_paygroup_rec.attribute8;
579 p7_a16 := ddp_paygroup_rec.attribute9;
580 p7_a17 := ddp_paygroup_rec.attribute10;
581 p7_a18 := ddp_paygroup_rec.attribute11;
582 p7_a19 := ddp_paygroup_rec.attribute12;
583 p7_a20 := ddp_paygroup_rec.attribute13;
584 p7_a21 := ddp_paygroup_rec.attribute14;
585 p7_a22 := ddp_paygroup_rec.attribute15;
586 p7_a23 := ddp_paygroup_rec.object_version_number;
587 p7_a24 := ddp_paygroup_rec.org_id;
588
589
590 end;
591
592 end cn_paygroup_pvt_w;