eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CN_ROLE_PAY_GROUPS_PVT_W

Source


1 package body cn_role_pay_groups_pvt_w as
2   /* $Header: cnwrpgpb.pls 120.3 2005/09/14 03:42 vensrini noship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy cn_role_pay_groups_pvt.role_pay_groups_rec_tbl_type, a0 JTF_NUMBER_TABLE
4     , a1 JTF_VARCHAR2_TABLE_100
5     , a2 JTF_VARCHAR2_TABLE_100
6     , a3 JTF_DATE_TABLE
7     , a4 JTF_DATE_TABLE
8     , a5 JTF_VARCHAR2_TABLE_200
9     , a6 JTF_VARCHAR2_TABLE_200
10     , a7 JTF_VARCHAR2_TABLE_200
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_NUMBER_TABLE
25     , a22 JTF_NUMBER_TABLE
26     ) as
27     ddindx binary_integer; indx binary_integer;
28   begin
29   if a0 is not null and a0.count > 0 then
30       if a0.count > 0 then
31         indx := a0.first;
32         ddindx := 1;
33         while true loop
34           t(ddindx).role_pay_group_id := a0(indx);
35           t(ddindx).role_name := a1(indx);
36           t(ddindx).pay_groups_name := a2(indx);
37           t(ddindx).start_date := a3(indx);
38           t(ddindx).end_date := a4(indx);
39           t(ddindx).attribute_category := a5(indx);
40           t(ddindx).attribute1 := a6(indx);
41           t(ddindx).attribute2 := a7(indx);
42           t(ddindx).attribute3 := a8(indx);
43           t(ddindx).attribute4 := a9(indx);
44           t(ddindx).attribute5 := a10(indx);
45           t(ddindx).attribute6 := a11(indx);
46           t(ddindx).attribute7 := a12(indx);
47           t(ddindx).attribute8 := a13(indx);
48           t(ddindx).attribute9 := a14(indx);
49           t(ddindx).attribute10 := a15(indx);
50           t(ddindx).attribute11 := a16(indx);
51           t(ddindx).attribute12 := a17(indx);
52           t(ddindx).attribute13 := a18(indx);
53           t(ddindx).attribute14 := a19(indx);
54           t(ddindx).attribute15 := a20(indx);
55           t(ddindx).org_id := a21(indx);
56           t(ddindx).object_version_number := a22(indx);
57           ddindx := ddindx+1;
58           if a0.last =indx
59             then exit;
60           end if;
61           indx := a0.next(indx);
62         end loop;
63       end if;
64    end if;
65   end rosetta_table_copy_in_p1;
66   procedure rosetta_table_copy_out_p1(t cn_role_pay_groups_pvt.role_pay_groups_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
67     , a1 out nocopy JTF_VARCHAR2_TABLE_100
68     , a2 out nocopy JTF_VARCHAR2_TABLE_100
69     , a3 out nocopy JTF_DATE_TABLE
70     , a4 out nocopy JTF_DATE_TABLE
71     , a5 out nocopy JTF_VARCHAR2_TABLE_200
72     , a6 out nocopy JTF_VARCHAR2_TABLE_200
73     , a7 out nocopy JTF_VARCHAR2_TABLE_200
74     , a8 out nocopy JTF_VARCHAR2_TABLE_200
75     , a9 out nocopy JTF_VARCHAR2_TABLE_200
76     , a10 out nocopy JTF_VARCHAR2_TABLE_200
77     , a11 out nocopy JTF_VARCHAR2_TABLE_200
78     , a12 out nocopy JTF_VARCHAR2_TABLE_200
79     , a13 out nocopy JTF_VARCHAR2_TABLE_200
80     , a14 out nocopy JTF_VARCHAR2_TABLE_200
81     , a15 out nocopy JTF_VARCHAR2_TABLE_200
82     , a16 out nocopy JTF_VARCHAR2_TABLE_200
83     , a17 out nocopy JTF_VARCHAR2_TABLE_200
84     , a18 out nocopy JTF_VARCHAR2_TABLE_200
85     , a19 out nocopy JTF_VARCHAR2_TABLE_200
86     , a20 out nocopy JTF_VARCHAR2_TABLE_200
87     , a21 out nocopy JTF_NUMBER_TABLE
88     , a22 out nocopy JTF_NUMBER_TABLE
89     ) as
90     ddindx binary_integer; indx binary_integer;
91   begin
92   if t is null or t.count = 0 then
93     a0 := JTF_NUMBER_TABLE();
94     a1 := JTF_VARCHAR2_TABLE_100();
95     a2 := JTF_VARCHAR2_TABLE_100();
96     a3 := JTF_DATE_TABLE();
97     a4 := JTF_DATE_TABLE();
98     a5 := JTF_VARCHAR2_TABLE_200();
99     a6 := JTF_VARCHAR2_TABLE_200();
100     a7 := JTF_VARCHAR2_TABLE_200();
101     a8 := JTF_VARCHAR2_TABLE_200();
102     a9 := JTF_VARCHAR2_TABLE_200();
103     a10 := JTF_VARCHAR2_TABLE_200();
104     a11 := JTF_VARCHAR2_TABLE_200();
105     a12 := JTF_VARCHAR2_TABLE_200();
106     a13 := JTF_VARCHAR2_TABLE_200();
107     a14 := JTF_VARCHAR2_TABLE_200();
108     a15 := JTF_VARCHAR2_TABLE_200();
109     a16 := JTF_VARCHAR2_TABLE_200();
110     a17 := JTF_VARCHAR2_TABLE_200();
111     a18 := JTF_VARCHAR2_TABLE_200();
112     a19 := JTF_VARCHAR2_TABLE_200();
113     a20 := JTF_VARCHAR2_TABLE_200();
114     a21 := JTF_NUMBER_TABLE();
115     a22 := JTF_NUMBER_TABLE();
116   else
117       a0 := JTF_NUMBER_TABLE();
118       a1 := JTF_VARCHAR2_TABLE_100();
119       a2 := JTF_VARCHAR2_TABLE_100();
120       a3 := JTF_DATE_TABLE();
121       a4 := JTF_DATE_TABLE();
122       a5 := JTF_VARCHAR2_TABLE_200();
123       a6 := JTF_VARCHAR2_TABLE_200();
124       a7 := JTF_VARCHAR2_TABLE_200();
125       a8 := JTF_VARCHAR2_TABLE_200();
126       a9 := JTF_VARCHAR2_TABLE_200();
127       a10 := JTF_VARCHAR2_TABLE_200();
128       a11 := JTF_VARCHAR2_TABLE_200();
129       a12 := JTF_VARCHAR2_TABLE_200();
130       a13 := JTF_VARCHAR2_TABLE_200();
131       a14 := JTF_VARCHAR2_TABLE_200();
132       a15 := JTF_VARCHAR2_TABLE_200();
133       a16 := JTF_VARCHAR2_TABLE_200();
134       a17 := JTF_VARCHAR2_TABLE_200();
135       a18 := JTF_VARCHAR2_TABLE_200();
136       a19 := JTF_VARCHAR2_TABLE_200();
137       a20 := JTF_VARCHAR2_TABLE_200();
138       a21 := JTF_NUMBER_TABLE();
139       a22 := JTF_NUMBER_TABLE();
140       if t.count > 0 then
141         a0.extend(t.count);
142         a1.extend(t.count);
143         a2.extend(t.count);
144         a3.extend(t.count);
145         a4.extend(t.count);
146         a5.extend(t.count);
147         a6.extend(t.count);
148         a7.extend(t.count);
149         a8.extend(t.count);
150         a9.extend(t.count);
151         a10.extend(t.count);
152         a11.extend(t.count);
153         a12.extend(t.count);
154         a13.extend(t.count);
155         a14.extend(t.count);
156         a15.extend(t.count);
157         a16.extend(t.count);
158         a17.extend(t.count);
159         a18.extend(t.count);
160         a19.extend(t.count);
161         a20.extend(t.count);
162         a21.extend(t.count);
163         a22.extend(t.count);
164         ddindx := t.first;
165         indx := 1;
166         while true loop
167           a0(indx) := t(ddindx).role_pay_group_id;
168           a1(indx) := t(ddindx).role_name;
169           a2(indx) := t(ddindx).pay_groups_name;
170           a3(indx) := t(ddindx).start_date;
171           a4(indx) := t(ddindx).end_date;
172           a5(indx) := t(ddindx).attribute_category;
173           a6(indx) := t(ddindx).attribute1;
174           a7(indx) := t(ddindx).attribute2;
175           a8(indx) := t(ddindx).attribute3;
176           a9(indx) := t(ddindx).attribute4;
177           a10(indx) := t(ddindx).attribute5;
178           a11(indx) := t(ddindx).attribute6;
179           a12(indx) := t(ddindx).attribute7;
180           a13(indx) := t(ddindx).attribute8;
181           a14(indx) := t(ddindx).attribute9;
182           a15(indx) := t(ddindx).attribute10;
183           a16(indx) := t(ddindx).attribute11;
184           a17(indx) := t(ddindx).attribute12;
185           a18(indx) := t(ddindx).attribute13;
186           a19(indx) := t(ddindx).attribute14;
187           a20(indx) := t(ddindx).attribute15;
188           a21(indx) := t(ddindx).org_id;
189           a22(indx) := t(ddindx).object_version_number;
190           indx := indx+1;
191           if t.last =ddindx
192             then exit;
193           end if;
194           ddindx := t.next(ddindx);
195         end loop;
196       end if;
197    end if;
198   end rosetta_table_copy_out_p1;
199 
200   procedure create_role_pay_groups(p_api_version  NUMBER
201     , p_init_msg_list  VARCHAR2
202     , p_commit  VARCHAR2
203     , p_validation_level  NUMBER
204     , x_return_status out nocopy  VARCHAR2
205     , x_loading_status out nocopy  VARCHAR2
206     , x_msg_count out nocopy  NUMBER
207     , x_msg_data out nocopy  VARCHAR2
208     , p8_a0 in out nocopy  NUMBER
209     , p8_a1 in out nocopy  VARCHAR2
210     , p8_a2 in out nocopy  VARCHAR2
211     , p8_a3 in out nocopy  DATE
212     , p8_a4 in out nocopy  DATE
213     , p8_a5 in out nocopy  VARCHAR2
214     , p8_a6 in out nocopy  VARCHAR2
215     , p8_a7 in out nocopy  VARCHAR2
216     , p8_a8 in out nocopy  VARCHAR2
217     , p8_a9 in out nocopy  VARCHAR2
218     , p8_a10 in out nocopy  VARCHAR2
219     , p8_a11 in out nocopy  VARCHAR2
220     , p8_a12 in out nocopy  VARCHAR2
221     , p8_a13 in out nocopy  VARCHAR2
222     , p8_a14 in out nocopy  VARCHAR2
223     , p8_a15 in out nocopy  VARCHAR2
224     , p8_a16 in out nocopy  VARCHAR2
225     , p8_a17 in out nocopy  VARCHAR2
226     , p8_a18 in out nocopy  VARCHAR2
227     , p8_a19 in out nocopy  VARCHAR2
228     , p8_a20 in out nocopy  VARCHAR2
229     , p8_a21 in out nocopy  NUMBER
230     , p8_a22 in out nocopy  NUMBER
231   )
232 
233   as
234     ddp_role_pay_groups_rec cn_role_pay_groups_pvt.role_pay_groups_rec_type;
235     ddindx binary_integer; indx binary_integer;
236   begin
237 
238     -- copy data to the local IN or IN-OUT args, if any
239 
240 
241 
242 
243 
244 
245 
246 
247     ddp_role_pay_groups_rec.role_pay_group_id := p8_a0;
248     ddp_role_pay_groups_rec.role_name := p8_a1;
249     ddp_role_pay_groups_rec.pay_groups_name := p8_a2;
250     ddp_role_pay_groups_rec.start_date := p8_a3;
251     ddp_role_pay_groups_rec.end_date := p8_a4;
252     ddp_role_pay_groups_rec.attribute_category := p8_a5;
253     ddp_role_pay_groups_rec.attribute1 := p8_a6;
254     ddp_role_pay_groups_rec.attribute2 := p8_a7;
255     ddp_role_pay_groups_rec.attribute3 := p8_a8;
256     ddp_role_pay_groups_rec.attribute4 := p8_a9;
257     ddp_role_pay_groups_rec.attribute5 := p8_a10;
258     ddp_role_pay_groups_rec.attribute6 := p8_a11;
259     ddp_role_pay_groups_rec.attribute7 := p8_a12;
260     ddp_role_pay_groups_rec.attribute8 := p8_a13;
261     ddp_role_pay_groups_rec.attribute9 := p8_a14;
262     ddp_role_pay_groups_rec.attribute10 := p8_a15;
263     ddp_role_pay_groups_rec.attribute11 := p8_a16;
264     ddp_role_pay_groups_rec.attribute12 := p8_a17;
265     ddp_role_pay_groups_rec.attribute13 := p8_a18;
266     ddp_role_pay_groups_rec.attribute14 := p8_a19;
267     ddp_role_pay_groups_rec.attribute15 := p8_a20;
268     ddp_role_pay_groups_rec.org_id := p8_a21;
269     ddp_role_pay_groups_rec.object_version_number := p8_a22;
270 
271     -- here's the delegated call to the old PL/SQL routine
272     cn_role_pay_groups_pvt.create_role_pay_groups(p_api_version,
273       p_init_msg_list,
274       p_commit,
275       p_validation_level,
276       x_return_status,
277       x_loading_status,
278       x_msg_count,
279       x_msg_data,
280       ddp_role_pay_groups_rec);
281 
282     -- copy data back from the local variables to OUT or IN-OUT args, if any
283 
284 
285 
286 
287 
288 
289 
290 
291     p8_a0 := ddp_role_pay_groups_rec.role_pay_group_id;
292     p8_a1 := ddp_role_pay_groups_rec.role_name;
293     p8_a2 := ddp_role_pay_groups_rec.pay_groups_name;
294     p8_a3 := ddp_role_pay_groups_rec.start_date;
295     p8_a4 := ddp_role_pay_groups_rec.end_date;
296     p8_a5 := ddp_role_pay_groups_rec.attribute_category;
297     p8_a6 := ddp_role_pay_groups_rec.attribute1;
298     p8_a7 := ddp_role_pay_groups_rec.attribute2;
299     p8_a8 := ddp_role_pay_groups_rec.attribute3;
300     p8_a9 := ddp_role_pay_groups_rec.attribute4;
301     p8_a10 := ddp_role_pay_groups_rec.attribute5;
302     p8_a11 := ddp_role_pay_groups_rec.attribute6;
303     p8_a12 := ddp_role_pay_groups_rec.attribute7;
304     p8_a13 := ddp_role_pay_groups_rec.attribute8;
305     p8_a14 := ddp_role_pay_groups_rec.attribute9;
306     p8_a15 := ddp_role_pay_groups_rec.attribute10;
307     p8_a16 := ddp_role_pay_groups_rec.attribute11;
308     p8_a17 := ddp_role_pay_groups_rec.attribute12;
309     p8_a18 := ddp_role_pay_groups_rec.attribute13;
310     p8_a19 := ddp_role_pay_groups_rec.attribute14;
311     p8_a20 := ddp_role_pay_groups_rec.attribute15;
312     p8_a21 := ddp_role_pay_groups_rec.org_id;
313     p8_a22 := ddp_role_pay_groups_rec.object_version_number;
314   end;
315 
316   procedure delete_role_pay_groups(p_api_version  NUMBER
317     , p_init_msg_list  VARCHAR2
318     , p_commit  VARCHAR2
319     , p_validation_level  NUMBER
320     , x_return_status out nocopy  VARCHAR2
321     , x_loading_status out nocopy  VARCHAR2
322     , x_msg_count out nocopy  NUMBER
323     , x_msg_data out nocopy  VARCHAR2
324     , p8_a0 in out nocopy  NUMBER
325     , p8_a1 in out nocopy  VARCHAR2
326     , p8_a2 in out nocopy  VARCHAR2
327     , p8_a3 in out nocopy  DATE
328     , p8_a4 in out nocopy  DATE
329     , p8_a5 in out nocopy  VARCHAR2
330     , p8_a6 in out nocopy  VARCHAR2
331     , p8_a7 in out nocopy  VARCHAR2
332     , p8_a8 in out nocopy  VARCHAR2
333     , p8_a9 in out nocopy  VARCHAR2
334     , p8_a10 in out nocopy  VARCHAR2
335     , p8_a11 in out nocopy  VARCHAR2
336     , p8_a12 in out nocopy  VARCHAR2
337     , p8_a13 in out nocopy  VARCHAR2
338     , p8_a14 in out nocopy  VARCHAR2
339     , p8_a15 in out nocopy  VARCHAR2
340     , p8_a16 in out nocopy  VARCHAR2
341     , p8_a17 in out nocopy  VARCHAR2
342     , p8_a18 in out nocopy  VARCHAR2
343     , p8_a19 in out nocopy  VARCHAR2
344     , p8_a20 in out nocopy  VARCHAR2
345     , p8_a21 in out nocopy  NUMBER
346     , p8_a22 in out nocopy  NUMBER
347   )
348 
349   as
350     ddp_role_pay_groups_rec cn_role_pay_groups_pvt.role_pay_groups_rec_type;
351     ddindx binary_integer; indx binary_integer;
352   begin
353 
354     -- copy data to the local IN or IN-OUT args, if any
355 
356 
357 
358 
359 
360 
361 
362 
363     ddp_role_pay_groups_rec.role_pay_group_id := p8_a0;
364     ddp_role_pay_groups_rec.role_name := p8_a1;
365     ddp_role_pay_groups_rec.pay_groups_name := p8_a2;
366     ddp_role_pay_groups_rec.start_date := p8_a3;
367     ddp_role_pay_groups_rec.end_date := p8_a4;
368     ddp_role_pay_groups_rec.attribute_category := p8_a5;
369     ddp_role_pay_groups_rec.attribute1 := p8_a6;
370     ddp_role_pay_groups_rec.attribute2 := p8_a7;
371     ddp_role_pay_groups_rec.attribute3 := p8_a8;
372     ddp_role_pay_groups_rec.attribute4 := p8_a9;
373     ddp_role_pay_groups_rec.attribute5 := p8_a10;
374     ddp_role_pay_groups_rec.attribute6 := p8_a11;
375     ddp_role_pay_groups_rec.attribute7 := p8_a12;
376     ddp_role_pay_groups_rec.attribute8 := p8_a13;
377     ddp_role_pay_groups_rec.attribute9 := p8_a14;
378     ddp_role_pay_groups_rec.attribute10 := p8_a15;
379     ddp_role_pay_groups_rec.attribute11 := p8_a16;
380     ddp_role_pay_groups_rec.attribute12 := p8_a17;
381     ddp_role_pay_groups_rec.attribute13 := p8_a18;
382     ddp_role_pay_groups_rec.attribute14 := p8_a19;
383     ddp_role_pay_groups_rec.attribute15 := p8_a20;
384     ddp_role_pay_groups_rec.org_id := p8_a21;
385     ddp_role_pay_groups_rec.object_version_number := p8_a22;
386 
387     -- here's the delegated call to the old PL/SQL routine
388     cn_role_pay_groups_pvt.delete_role_pay_groups(p_api_version,
389       p_init_msg_list,
390       p_commit,
391       p_validation_level,
392       x_return_status,
393       x_loading_status,
394       x_msg_count,
395       x_msg_data,
396       ddp_role_pay_groups_rec);
397 
398     -- copy data back from the local variables to OUT or IN-OUT args, if any
399 
400 
401 
402 
403 
404 
405 
406 
407     p8_a0 := ddp_role_pay_groups_rec.role_pay_group_id;
408     p8_a1 := ddp_role_pay_groups_rec.role_name;
409     p8_a2 := ddp_role_pay_groups_rec.pay_groups_name;
410     p8_a3 := ddp_role_pay_groups_rec.start_date;
411     p8_a4 := ddp_role_pay_groups_rec.end_date;
412     p8_a5 := ddp_role_pay_groups_rec.attribute_category;
413     p8_a6 := ddp_role_pay_groups_rec.attribute1;
414     p8_a7 := ddp_role_pay_groups_rec.attribute2;
415     p8_a8 := ddp_role_pay_groups_rec.attribute3;
416     p8_a9 := ddp_role_pay_groups_rec.attribute4;
417     p8_a10 := ddp_role_pay_groups_rec.attribute5;
418     p8_a11 := ddp_role_pay_groups_rec.attribute6;
419     p8_a12 := ddp_role_pay_groups_rec.attribute7;
420     p8_a13 := ddp_role_pay_groups_rec.attribute8;
421     p8_a14 := ddp_role_pay_groups_rec.attribute9;
422     p8_a15 := ddp_role_pay_groups_rec.attribute10;
423     p8_a16 := ddp_role_pay_groups_rec.attribute11;
424     p8_a17 := ddp_role_pay_groups_rec.attribute12;
425     p8_a18 := ddp_role_pay_groups_rec.attribute13;
426     p8_a19 := ddp_role_pay_groups_rec.attribute14;
427     p8_a20 := ddp_role_pay_groups_rec.attribute15;
428     p8_a21 := ddp_role_pay_groups_rec.org_id;
429     p8_a22 := ddp_role_pay_groups_rec.object_version_number;
430   end;
431 
432 end cn_role_pay_groups_pvt_w;