[Home] [Help]
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;