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_PVT_W

Source


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