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_QUOTA_RULE_UPLIFT_PVT_W

Source


1 package body cn_quota_rule_uplift_pvt_w as
2   /* $Header: cnwrlutb.pls 120.3 2005/09/14 04:29 rarajara ship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy cn_quota_rule_uplift_pvt.quota_rule_uplift_tbl_type, a0 JTF_NUMBER_TABLE
4     , a1 JTF_NUMBER_TABLE
5     , a2 JTF_NUMBER_TABLE
6     , a3 JTF_DATE_TABLE
7     , a4 JTF_DATE_TABLE
8     , a5 JTF_NUMBER_TABLE
9     , a6 JTF_NUMBER_TABLE
10     , a7 JTF_NUMBER_TABLE
11     , a8 JTF_VARCHAR2_TABLE_100
12     , a9 JTF_VARCHAR2_TABLE_100
13     , a10 JTF_DATE_TABLE
14     , a11 JTF_DATE_TABLE
15     ) as
16     ddindx binary_integer; indx binary_integer;
17   begin
18   if a0 is not null and a0.count > 0 then
19       if a0.count > 0 then
20         indx := a0.first;
21         ddindx := 1;
22         while true loop
23           t(ddindx).org_id := a0(indx);
24           t(ddindx).quota_rule_uplift_id := a1(indx);
25           t(ddindx).quota_rule_id := a2(indx);
26           t(ddindx).start_date := a3(indx);
27           t(ddindx).end_date := a4(indx);
28           t(ddindx).payment_factor := a5(indx);
29           t(ddindx).quota_factor := a6(indx);
30           t(ddindx).object_version_number := a7(indx);
31           t(ddindx).rev_class_name := a8(indx);
32           t(ddindx).rev_class_name_old := a9(indx);
33           t(ddindx).start_date_old := a10(indx);
34           t(ddindx).end_date_old := a11(indx);
35           ddindx := ddindx+1;
36           if a0.last =indx
37             then exit;
38           end if;
39           indx := a0.next(indx);
40         end loop;
41       end if;
42    end if;
43   end rosetta_table_copy_in_p1;
44   procedure rosetta_table_copy_out_p1(t cn_quota_rule_uplift_pvt.quota_rule_uplift_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45     , a1 out nocopy JTF_NUMBER_TABLE
46     , a2 out nocopy JTF_NUMBER_TABLE
47     , a3 out nocopy JTF_DATE_TABLE
48     , a4 out nocopy JTF_DATE_TABLE
49     , a5 out nocopy JTF_NUMBER_TABLE
50     , a6 out nocopy JTF_NUMBER_TABLE
51     , a7 out nocopy JTF_NUMBER_TABLE
52     , a8 out nocopy JTF_VARCHAR2_TABLE_100
53     , a9 out nocopy JTF_VARCHAR2_TABLE_100
54     , a10 out nocopy JTF_DATE_TABLE
55     , a11 out nocopy JTF_DATE_TABLE
56     ) as
57     ddindx binary_integer; indx binary_integer;
58   begin
59   if t is null or t.count = 0 then
60     a0 := JTF_NUMBER_TABLE();
61     a1 := JTF_NUMBER_TABLE();
62     a2 := JTF_NUMBER_TABLE();
63     a3 := JTF_DATE_TABLE();
64     a4 := JTF_DATE_TABLE();
65     a5 := JTF_NUMBER_TABLE();
66     a6 := JTF_NUMBER_TABLE();
67     a7 := JTF_NUMBER_TABLE();
68     a8 := JTF_VARCHAR2_TABLE_100();
69     a9 := JTF_VARCHAR2_TABLE_100();
70     a10 := JTF_DATE_TABLE();
71     a11 := JTF_DATE_TABLE();
72   else
73       a0 := JTF_NUMBER_TABLE();
74       a1 := JTF_NUMBER_TABLE();
75       a2 := JTF_NUMBER_TABLE();
76       a3 := JTF_DATE_TABLE();
77       a4 := JTF_DATE_TABLE();
78       a5 := JTF_NUMBER_TABLE();
79       a6 := JTF_NUMBER_TABLE();
80       a7 := JTF_NUMBER_TABLE();
81       a8 := JTF_VARCHAR2_TABLE_100();
82       a9 := JTF_VARCHAR2_TABLE_100();
83       a10 := JTF_DATE_TABLE();
84       a11 := JTF_DATE_TABLE();
85       if t.count > 0 then
86         a0.extend(t.count);
87         a1.extend(t.count);
88         a2.extend(t.count);
89         a3.extend(t.count);
90         a4.extend(t.count);
91         a5.extend(t.count);
92         a6.extend(t.count);
93         a7.extend(t.count);
94         a8.extend(t.count);
95         a9.extend(t.count);
96         a10.extend(t.count);
97         a11.extend(t.count);
98         ddindx := t.first;
99         indx := 1;
100         while true loop
101           a0(indx) := t(ddindx).org_id;
102           a1(indx) := t(ddindx).quota_rule_uplift_id;
103           a2(indx) := t(ddindx).quota_rule_id;
104           a3(indx) := t(ddindx).start_date;
105           a4(indx) := t(ddindx).end_date;
106           a5(indx) := t(ddindx).payment_factor;
107           a6(indx) := t(ddindx).quota_factor;
108           a7(indx) := t(ddindx).object_version_number;
109           a8(indx) := t(ddindx).rev_class_name;
110           a9(indx) := t(ddindx).rev_class_name_old;
111           a10(indx) := t(ddindx).start_date_old;
112           a11(indx) := t(ddindx).end_date_old;
113           indx := indx+1;
114           if t.last =ddindx
115             then exit;
116           end if;
117           ddindx := t.next(ddindx);
118         end loop;
119       end if;
120    end if;
121   end rosetta_table_copy_out_p1;
122 
123   procedure validate_uplift(p_api_version  NUMBER
124     , p_init_msg_list  VARCHAR2
125     , p_commit  VARCHAR2
126     , p_validation_level  NUMBER
127     , p_action  VARCHAR2
128     , p5_a0 in out nocopy  NUMBER
129     , p5_a1 in out nocopy  NUMBER
130     , p5_a2 in out nocopy  NUMBER
131     , p5_a3 in out nocopy  DATE
132     , p5_a4 in out nocopy  DATE
133     , p5_a5 in out nocopy  NUMBER
134     , p5_a6 in out nocopy  NUMBER
135     , p5_a7 in out nocopy  NUMBER
136     , p5_a8 in out nocopy  VARCHAR2
137     , p5_a9 in out nocopy  VARCHAR2
138     , p5_a10 in out nocopy  DATE
139     , p5_a11 in out nocopy  DATE
140     , p6_a0  NUMBER
141     , p6_a1  NUMBER
142     , p6_a2  NUMBER
143     , p6_a3  DATE
144     , p6_a4  DATE
145     , p6_a5  NUMBER
146     , p6_a6  NUMBER
147     , p6_a7  NUMBER
148     , p6_a8  VARCHAR2
149     , p6_a9  VARCHAR2
150     , p6_a10  DATE
151     , p6_a11  DATE
152     , x_return_status out nocopy  VARCHAR2
153     , x_msg_count out nocopy  NUMBER
154     , x_msg_data out nocopy  VARCHAR2
155   )
156 
157   as
158     ddp_quota_rule_uplift cn_quota_rule_uplift_pvt.quota_rule_uplift_rec_type;
159     ddp_old_quota_rule_uplift cn_quota_rule_uplift_pvt.quota_rule_uplift_rec_type;
160     ddindx binary_integer; indx binary_integer;
161   begin
162 
163     -- copy data to the local IN or IN-OUT args, if any
164 
165 
166 
167 
168 
169     ddp_quota_rule_uplift.org_id := p5_a0;
170     ddp_quota_rule_uplift.quota_rule_uplift_id := p5_a1;
171     ddp_quota_rule_uplift.quota_rule_id := p5_a2;
172     ddp_quota_rule_uplift.start_date := p5_a3;
173     ddp_quota_rule_uplift.end_date := p5_a4;
174     ddp_quota_rule_uplift.payment_factor := p5_a5;
175     ddp_quota_rule_uplift.quota_factor := p5_a6;
176     ddp_quota_rule_uplift.object_version_number := p5_a7;
177     ddp_quota_rule_uplift.rev_class_name := p5_a8;
178     ddp_quota_rule_uplift.rev_class_name_old := p5_a9;
179     ddp_quota_rule_uplift.start_date_old := p5_a10;
180     ddp_quota_rule_uplift.end_date_old := p5_a11;
181 
182     ddp_old_quota_rule_uplift.org_id := p6_a0;
183     ddp_old_quota_rule_uplift.quota_rule_uplift_id := p6_a1;
184     ddp_old_quota_rule_uplift.quota_rule_id := p6_a2;
185     ddp_old_quota_rule_uplift.start_date := p6_a3;
186     ddp_old_quota_rule_uplift.end_date := p6_a4;
187     ddp_old_quota_rule_uplift.payment_factor := p6_a5;
188     ddp_old_quota_rule_uplift.quota_factor := p6_a6;
189     ddp_old_quota_rule_uplift.object_version_number := p6_a7;
190     ddp_old_quota_rule_uplift.rev_class_name := p6_a8;
191     ddp_old_quota_rule_uplift.rev_class_name_old := p6_a9;
192     ddp_old_quota_rule_uplift.start_date_old := p6_a10;
193     ddp_old_quota_rule_uplift.end_date_old := p6_a11;
194 
195 
196 
197 
198     -- here's the delegated call to the old PL/SQL routine
199     cn_quota_rule_uplift_pvt.validate_uplift(p_api_version,
200       p_init_msg_list,
201       p_commit,
202       p_validation_level,
203       p_action,
204       ddp_quota_rule_uplift,
205       ddp_old_quota_rule_uplift,
206       x_return_status,
207       x_msg_count,
208       x_msg_data);
209 
210     -- copy data back from the local variables to OUT or IN-OUT args, if any
211 
212 
213 
214 
215 
216     p5_a0 := ddp_quota_rule_uplift.org_id;
217     p5_a1 := ddp_quota_rule_uplift.quota_rule_uplift_id;
218     p5_a2 := ddp_quota_rule_uplift.quota_rule_id;
219     p5_a3 := ddp_quota_rule_uplift.start_date;
220     p5_a4 := ddp_quota_rule_uplift.end_date;
221     p5_a5 := ddp_quota_rule_uplift.payment_factor;
222     p5_a6 := ddp_quota_rule_uplift.quota_factor;
223     p5_a7 := ddp_quota_rule_uplift.object_version_number;
224     p5_a8 := ddp_quota_rule_uplift.rev_class_name;
225     p5_a9 := ddp_quota_rule_uplift.rev_class_name_old;
226     p5_a10 := ddp_quota_rule_uplift.start_date_old;
227     p5_a11 := ddp_quota_rule_uplift.end_date_old;
228 
229 
230 
231 
232   end;
233 
234   procedure create_uplift(p_api_version  NUMBER
235     , p_init_msg_list  VARCHAR2
236     , p_commit  VARCHAR2
237     , p_validation_level  NUMBER
238     , p4_a0 in out nocopy  NUMBER
239     , p4_a1 in out nocopy  NUMBER
240     , p4_a2 in out nocopy  NUMBER
241     , p4_a3 in out nocopy  DATE
242     , p4_a4 in out nocopy  DATE
243     , p4_a5 in out nocopy  NUMBER
244     , p4_a6 in out nocopy  NUMBER
245     , p4_a7 in out nocopy  NUMBER
246     , p4_a8 in out nocopy  VARCHAR2
247     , p4_a9 in out nocopy  VARCHAR2
248     , p4_a10 in out nocopy  DATE
249     , p4_a11 in out nocopy  DATE
250     , x_return_status out nocopy  VARCHAR2
251     , x_msg_count out nocopy  NUMBER
252     , x_msg_data out nocopy  VARCHAR2
253   )
254 
255   as
256     ddp_quota_rule_uplift cn_quota_rule_uplift_pvt.quota_rule_uplift_rec_type;
257     ddindx binary_integer; indx binary_integer;
258   begin
259 
260     -- copy data to the local IN or IN-OUT args, if any
261 
262 
263 
264 
265     ddp_quota_rule_uplift.org_id := p4_a0;
266     ddp_quota_rule_uplift.quota_rule_uplift_id := p4_a1;
267     ddp_quota_rule_uplift.quota_rule_id := p4_a2;
268     ddp_quota_rule_uplift.start_date := p4_a3;
269     ddp_quota_rule_uplift.end_date := p4_a4;
270     ddp_quota_rule_uplift.payment_factor := p4_a5;
271     ddp_quota_rule_uplift.quota_factor := p4_a6;
272     ddp_quota_rule_uplift.object_version_number := p4_a7;
273     ddp_quota_rule_uplift.rev_class_name := p4_a8;
274     ddp_quota_rule_uplift.rev_class_name_old := p4_a9;
275     ddp_quota_rule_uplift.start_date_old := p4_a10;
276     ddp_quota_rule_uplift.end_date_old := p4_a11;
277 
278 
279 
280 
281     -- here's the delegated call to the old PL/SQL routine
282     cn_quota_rule_uplift_pvt.create_uplift(p_api_version,
283       p_init_msg_list,
284       p_commit,
285       p_validation_level,
286       ddp_quota_rule_uplift,
287       x_return_status,
288       x_msg_count,
289       x_msg_data);
290 
291     -- copy data back from the local variables to OUT or IN-OUT args, if any
292 
293 
294 
295 
296     p4_a0 := ddp_quota_rule_uplift.org_id;
297     p4_a1 := ddp_quota_rule_uplift.quota_rule_uplift_id;
298     p4_a2 := ddp_quota_rule_uplift.quota_rule_id;
299     p4_a3 := ddp_quota_rule_uplift.start_date;
300     p4_a4 := ddp_quota_rule_uplift.end_date;
301     p4_a5 := ddp_quota_rule_uplift.payment_factor;
302     p4_a6 := ddp_quota_rule_uplift.quota_factor;
303     p4_a7 := ddp_quota_rule_uplift.object_version_number;
304     p4_a8 := ddp_quota_rule_uplift.rev_class_name;
305     p4_a9 := ddp_quota_rule_uplift.rev_class_name_old;
306     p4_a10 := ddp_quota_rule_uplift.start_date_old;
307     p4_a11 := ddp_quota_rule_uplift.end_date_old;
308 
309 
310 
311   end;
312 
313   procedure update_uplift(p_api_version  NUMBER
314     , p_init_msg_list  VARCHAR2
315     , p_commit  VARCHAR2
316     , p_validation_level  NUMBER
317     , p4_a0 in out nocopy  NUMBER
318     , p4_a1 in out nocopy  NUMBER
319     , p4_a2 in out nocopy  NUMBER
320     , p4_a3 in out nocopy  DATE
321     , p4_a4 in out nocopy  DATE
322     , p4_a5 in out nocopy  NUMBER
323     , p4_a6 in out nocopy  NUMBER
324     , p4_a7 in out nocopy  NUMBER
325     , p4_a8 in out nocopy  VARCHAR2
326     , p4_a9 in out nocopy  VARCHAR2
327     , p4_a10 in out nocopy  DATE
328     , p4_a11 in out nocopy  DATE
329     , x_return_status out nocopy  VARCHAR2
330     , x_msg_count out nocopy  NUMBER
331     , x_msg_data out nocopy  VARCHAR2
332   )
333 
334   as
335     ddp_quota_rule_uplift cn_quota_rule_uplift_pvt.quota_rule_uplift_rec_type;
336     ddindx binary_integer; indx binary_integer;
337   begin
338 
339     -- copy data to the local IN or IN-OUT args, if any
340 
341 
342 
343 
344     ddp_quota_rule_uplift.org_id := p4_a0;
345     ddp_quota_rule_uplift.quota_rule_uplift_id := p4_a1;
346     ddp_quota_rule_uplift.quota_rule_id := p4_a2;
347     ddp_quota_rule_uplift.start_date := p4_a3;
348     ddp_quota_rule_uplift.end_date := p4_a4;
349     ddp_quota_rule_uplift.payment_factor := p4_a5;
350     ddp_quota_rule_uplift.quota_factor := p4_a6;
351     ddp_quota_rule_uplift.object_version_number := p4_a7;
352     ddp_quota_rule_uplift.rev_class_name := p4_a8;
353     ddp_quota_rule_uplift.rev_class_name_old := p4_a9;
354     ddp_quota_rule_uplift.start_date_old := p4_a10;
355     ddp_quota_rule_uplift.end_date_old := p4_a11;
356 
357 
358 
359 
360     -- here's the delegated call to the old PL/SQL routine
361     cn_quota_rule_uplift_pvt.update_uplift(p_api_version,
362       p_init_msg_list,
363       p_commit,
364       p_validation_level,
365       ddp_quota_rule_uplift,
366       x_return_status,
367       x_msg_count,
368       x_msg_data);
369 
370     -- copy data back from the local variables to OUT or IN-OUT args, if any
371 
372 
373 
374 
375     p4_a0 := ddp_quota_rule_uplift.org_id;
376     p4_a1 := ddp_quota_rule_uplift.quota_rule_uplift_id;
377     p4_a2 := ddp_quota_rule_uplift.quota_rule_id;
378     p4_a3 := ddp_quota_rule_uplift.start_date;
379     p4_a4 := ddp_quota_rule_uplift.end_date;
380     p4_a5 := ddp_quota_rule_uplift.payment_factor;
381     p4_a6 := ddp_quota_rule_uplift.quota_factor;
382     p4_a7 := ddp_quota_rule_uplift.object_version_number;
383     p4_a8 := ddp_quota_rule_uplift.rev_class_name;
384     p4_a9 := ddp_quota_rule_uplift.rev_class_name_old;
385     p4_a10 := ddp_quota_rule_uplift.start_date_old;
386     p4_a11 := ddp_quota_rule_uplift.end_date_old;
387 
388 
389 
390   end;
391 
392   procedure delete_uplift(p_api_version  NUMBER
393     , p_init_msg_list  VARCHAR2
394     , p_commit  VARCHAR2
395     , p_validation_level  NUMBER
396     , p4_a0 in out nocopy  NUMBER
397     , p4_a1 in out nocopy  NUMBER
398     , p4_a2 in out nocopy  NUMBER
399     , p4_a3 in out nocopy  DATE
400     , p4_a4 in out nocopy  DATE
401     , p4_a5 in out nocopy  NUMBER
402     , p4_a6 in out nocopy  NUMBER
403     , p4_a7 in out nocopy  NUMBER
404     , p4_a8 in out nocopy  VARCHAR2
405     , p4_a9 in out nocopy  VARCHAR2
406     , p4_a10 in out nocopy  DATE
407     , p4_a11 in out nocopy  DATE
408     , x_return_status out nocopy  VARCHAR2
409     , x_msg_count out nocopy  NUMBER
410     , x_msg_data out nocopy  VARCHAR2
411   )
412 
413   as
414     ddp_quota_rule_uplift cn_quota_rule_uplift_pvt.quota_rule_uplift_rec_type;
415     ddindx binary_integer; indx binary_integer;
416   begin
417 
418     -- copy data to the local IN or IN-OUT args, if any
419 
420 
421 
422 
423     ddp_quota_rule_uplift.org_id := p4_a0;
424     ddp_quota_rule_uplift.quota_rule_uplift_id := p4_a1;
425     ddp_quota_rule_uplift.quota_rule_id := p4_a2;
426     ddp_quota_rule_uplift.start_date := p4_a3;
427     ddp_quota_rule_uplift.end_date := p4_a4;
428     ddp_quota_rule_uplift.payment_factor := p4_a5;
429     ddp_quota_rule_uplift.quota_factor := p4_a6;
430     ddp_quota_rule_uplift.object_version_number := p4_a7;
431     ddp_quota_rule_uplift.rev_class_name := p4_a8;
432     ddp_quota_rule_uplift.rev_class_name_old := p4_a9;
433     ddp_quota_rule_uplift.start_date_old := p4_a10;
434     ddp_quota_rule_uplift.end_date_old := p4_a11;
435 
436 
437 
438 
439     -- here's the delegated call to the old PL/SQL routine
440     cn_quota_rule_uplift_pvt.delete_uplift(p_api_version,
441       p_init_msg_list,
442       p_commit,
443       p_validation_level,
444       ddp_quota_rule_uplift,
445       x_return_status,
446       x_msg_count,
447       x_msg_data);
448 
449     -- copy data back from the local variables to OUT or IN-OUT args, if any
450 
451 
452 
453 
454     p4_a0 := ddp_quota_rule_uplift.org_id;
455     p4_a1 := ddp_quota_rule_uplift.quota_rule_uplift_id;
456     p4_a2 := ddp_quota_rule_uplift.quota_rule_id;
457     p4_a3 := ddp_quota_rule_uplift.start_date;
458     p4_a4 := ddp_quota_rule_uplift.end_date;
459     p4_a5 := ddp_quota_rule_uplift.payment_factor;
460     p4_a6 := ddp_quota_rule_uplift.quota_factor;
461     p4_a7 := ddp_quota_rule_uplift.object_version_number;
462     p4_a8 := ddp_quota_rule_uplift.rev_class_name;
463     p4_a9 := ddp_quota_rule_uplift.rev_class_name_old;
464     p4_a10 := ddp_quota_rule_uplift.start_date_old;
465     p4_a11 := ddp_quota_rule_uplift.end_date_old;
466 
467 
468 
469   end;
470 
471 end cn_quota_rule_uplift_pvt_w;