[Home] [Help]
PACKAGE BODY: APPS.CN_ROLLOVER_QUOTA_PVT_W
Source
1 package body cn_rollover_quota_pvt_w as
2 /* $Header: cnwrqb.pls 115.1 2002/12/04 02:44:05 clku noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p1(t out nocopy cn_rollover_quota_pvt.rollover_quota_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_200
19 , a6 JTF_VARCHAR2_TABLE_200
20 , a7 JTF_VARCHAR2_TABLE_200
21 , a8 JTF_VARCHAR2_TABLE_200
22 , a9 JTF_VARCHAR2_TABLE_200
23 , a10 JTF_VARCHAR2_TABLE_200
24 , a11 JTF_VARCHAR2_TABLE_200
25 , a12 JTF_VARCHAR2_TABLE_200
26 , a13 JTF_VARCHAR2_TABLE_200
27 , a14 JTF_VARCHAR2_TABLE_200
28 , a15 JTF_VARCHAR2_TABLE_200
29 , a16 JTF_VARCHAR2_TABLE_200
30 , a17 JTF_VARCHAR2_TABLE_200
31 , a18 JTF_VARCHAR2_TABLE_200
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_NUMBER_TABLE
34 ) as
35 ddindx binary_integer; indx binary_integer;
36 begin
37 if a0 is not null and a0.count > 0 then
38 if a0.count > 0 then
39 indx := a0.first;
40 ddindx := 1;
41 while true loop
42 t(ddindx).rollover_quota_id := a0(indx);
43 t(ddindx).quota_id := a1(indx);
44 t(ddindx).source_quota_id := a2(indx);
45 t(ddindx).rollover := a3(indx);
46 t(ddindx).attribute_category := a4(indx);
47 t(ddindx).attribute1 := a5(indx);
48 t(ddindx).attribute2 := a6(indx);
49 t(ddindx).attribute3 := a7(indx);
50 t(ddindx).attribute4 := a8(indx);
51 t(ddindx).attribute5 := a9(indx);
52 t(ddindx).attribute6 := a10(indx);
53 t(ddindx).attribute7 := a11(indx);
54 t(ddindx).attribute8 := a12(indx);
55 t(ddindx).attribute9 := a13(indx);
56 t(ddindx).attribute10 := a14(indx);
57 t(ddindx).attribute11 := a15(indx);
58 t(ddindx).attribute12 := a16(indx);
59 t(ddindx).attribute13 := a17(indx);
60 t(ddindx).attribute14 := a18(indx);
61 t(ddindx).attribute15 := a19(indx);
62 t(ddindx).object_version_number := a20(indx);
63 ddindx := ddindx+1;
64 if a0.last =indx
65 then exit;
66 end if;
67 indx := a0.next(indx);
68 end loop;
69 end if;
70 end if;
71 end rosetta_table_copy_in_p1;
72 procedure rosetta_table_copy_out_p1(t cn_rollover_quota_pvt.rollover_quota_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
73 , a1 out nocopy JTF_NUMBER_TABLE
74 , a2 out nocopy JTF_NUMBER_TABLE
75 , a3 out nocopy JTF_NUMBER_TABLE
76 , a4 out nocopy JTF_VARCHAR2_TABLE_100
77 , a5 out nocopy JTF_VARCHAR2_TABLE_200
78 , a6 out nocopy JTF_VARCHAR2_TABLE_200
79 , a7 out nocopy JTF_VARCHAR2_TABLE_200
80 , a8 out nocopy JTF_VARCHAR2_TABLE_200
81 , a9 out nocopy JTF_VARCHAR2_TABLE_200
82 , a10 out nocopy JTF_VARCHAR2_TABLE_200
83 , a11 out nocopy JTF_VARCHAR2_TABLE_200
84 , a12 out nocopy JTF_VARCHAR2_TABLE_200
85 , a13 out nocopy JTF_VARCHAR2_TABLE_200
86 , a14 out nocopy JTF_VARCHAR2_TABLE_200
87 , a15 out nocopy JTF_VARCHAR2_TABLE_200
88 , a16 out nocopy JTF_VARCHAR2_TABLE_200
89 , a17 out nocopy JTF_VARCHAR2_TABLE_200
90 , a18 out nocopy JTF_VARCHAR2_TABLE_200
91 , a19 out nocopy JTF_VARCHAR2_TABLE_200
92 , a20 out nocopy JTF_NUMBER_TABLE
93 ) as
94 ddindx binary_integer; indx binary_integer;
95 begin
96 if t is null or t.count = 0 then
97 a0 := JTF_NUMBER_TABLE();
98 a1 := JTF_NUMBER_TABLE();
99 a2 := JTF_NUMBER_TABLE();
100 a3 := JTF_NUMBER_TABLE();
101 a4 := JTF_VARCHAR2_TABLE_100();
102 a5 := JTF_VARCHAR2_TABLE_200();
103 a6 := JTF_VARCHAR2_TABLE_200();
104 a7 := JTF_VARCHAR2_TABLE_200();
105 a8 := JTF_VARCHAR2_TABLE_200();
106 a9 := JTF_VARCHAR2_TABLE_200();
107 a10 := JTF_VARCHAR2_TABLE_200();
108 a11 := JTF_VARCHAR2_TABLE_200();
109 a12 := JTF_VARCHAR2_TABLE_200();
110 a13 := JTF_VARCHAR2_TABLE_200();
111 a14 := JTF_VARCHAR2_TABLE_200();
112 a15 := JTF_VARCHAR2_TABLE_200();
113 a16 := JTF_VARCHAR2_TABLE_200();
114 a17 := JTF_VARCHAR2_TABLE_200();
115 a18 := JTF_VARCHAR2_TABLE_200();
116 a19 := JTF_VARCHAR2_TABLE_200();
117 a20 := JTF_NUMBER_TABLE();
118 else
119 a0 := JTF_NUMBER_TABLE();
120 a1 := JTF_NUMBER_TABLE();
121 a2 := JTF_NUMBER_TABLE();
122 a3 := JTF_NUMBER_TABLE();
123 a4 := JTF_VARCHAR2_TABLE_100();
124 a5 := JTF_VARCHAR2_TABLE_200();
125 a6 := JTF_VARCHAR2_TABLE_200();
126 a7 := JTF_VARCHAR2_TABLE_200();
127 a8 := JTF_VARCHAR2_TABLE_200();
128 a9 := JTF_VARCHAR2_TABLE_200();
129 a10 := JTF_VARCHAR2_TABLE_200();
130 a11 := JTF_VARCHAR2_TABLE_200();
131 a12 := JTF_VARCHAR2_TABLE_200();
132 a13 := JTF_VARCHAR2_TABLE_200();
133 a14 := JTF_VARCHAR2_TABLE_200();
134 a15 := JTF_VARCHAR2_TABLE_200();
135 a16 := JTF_VARCHAR2_TABLE_200();
136 a17 := JTF_VARCHAR2_TABLE_200();
137 a18 := JTF_VARCHAR2_TABLE_200();
138 a19 := JTF_VARCHAR2_TABLE_200();
139 a20 := 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 ddindx := t.first;
163 indx := 1;
164 while true loop
165 a0(indx) := t(ddindx).rollover_quota_id;
166 a1(indx) := t(ddindx).quota_id;
167 a2(indx) := t(ddindx).source_quota_id;
168 a3(indx) := t(ddindx).rollover;
169 a4(indx) := t(ddindx).attribute_category;
170 a5(indx) := t(ddindx).attribute1;
171 a6(indx) := t(ddindx).attribute2;
172 a7(indx) := t(ddindx).attribute3;
173 a8(indx) := t(ddindx).attribute4;
174 a9(indx) := t(ddindx).attribute5;
175 a10(indx) := t(ddindx).attribute6;
176 a11(indx) := t(ddindx).attribute7;
177 a12(indx) := t(ddindx).attribute8;
178 a13(indx) := t(ddindx).attribute9;
179 a14(indx) := t(ddindx).attribute10;
180 a15(indx) := t(ddindx).attribute11;
181 a16(indx) := t(ddindx).attribute12;
182 a17(indx) := t(ddindx).attribute13;
183 a18(indx) := t(ddindx).attribute14;
184 a19(indx) := t(ddindx).attribute15;
185 a20(indx) := t(ddindx).object_version_number;
186 indx := indx+1;
187 if t.last =ddindx
188 then exit;
189 end if;
190 ddindx := t.next(ddindx);
191 end loop;
192 end if;
193 end if;
194 end rosetta_table_copy_out_p1;
195
196 procedure create_rollover_quota(p_api_version NUMBER
197 , p_init_msg_list VARCHAR2
198 , p_commit VARCHAR2
199 , p_validation_level NUMBER
200 , p4_a0 NUMBER
201 , p4_a1 NUMBER
202 , p4_a2 NUMBER
203 , p4_a3 NUMBER
204 , p4_a4 VARCHAR2
205 , p4_a5 VARCHAR2
206 , p4_a6 VARCHAR2
207 , p4_a7 VARCHAR2
208 , p4_a8 VARCHAR2
209 , p4_a9 VARCHAR2
210 , p4_a10 VARCHAR2
211 , p4_a11 VARCHAR2
212 , p4_a12 VARCHAR2
213 , p4_a13 VARCHAR2
214 , p4_a14 VARCHAR2
215 , p4_a15 VARCHAR2
216 , p4_a16 VARCHAR2
217 , p4_a17 VARCHAR2
218 , p4_a18 VARCHAR2
219 , p4_a19 VARCHAR2
220 , p4_a20 NUMBER
221 , x_rollover_quota_id out nocopy NUMBER
222 , x_return_status out nocopy VARCHAR2
223 , x_msg_count out nocopy NUMBER
224 , x_msg_data out nocopy VARCHAR2
225 )
226
227 as
228 ddp_rollover_quota cn_rollover_quota_pvt.rollover_quota_rec_type;
229 ddindx binary_integer; indx binary_integer;
230 begin
231
232 -- copy data to the local IN or IN-OUT args, if any
233
234
235
236
237 ddp_rollover_quota.rollover_quota_id := p4_a0;
238 ddp_rollover_quota.quota_id := p4_a1;
239 ddp_rollover_quota.source_quota_id := p4_a2;
240 ddp_rollover_quota.rollover := p4_a3;
241 ddp_rollover_quota.attribute_category := p4_a4;
242 ddp_rollover_quota.attribute1 := p4_a5;
243 ddp_rollover_quota.attribute2 := p4_a6;
244 ddp_rollover_quota.attribute3 := p4_a7;
245 ddp_rollover_quota.attribute4 := p4_a8;
246 ddp_rollover_quota.attribute5 := p4_a9;
247 ddp_rollover_quota.attribute6 := p4_a10;
248 ddp_rollover_quota.attribute7 := p4_a11;
249 ddp_rollover_quota.attribute8 := p4_a12;
250 ddp_rollover_quota.attribute9 := p4_a13;
251 ddp_rollover_quota.attribute10 := p4_a14;
252 ddp_rollover_quota.attribute11 := p4_a15;
253 ddp_rollover_quota.attribute12 := p4_a16;
254 ddp_rollover_quota.attribute13 := p4_a17;
255 ddp_rollover_quota.attribute14 := p4_a18;
256 ddp_rollover_quota.attribute15 := p4_a19;
257 ddp_rollover_quota.object_version_number := p4_a20;
258
259
260
261
262
263 -- here's the delegated call to the old PL/SQL routine
264 cn_rollover_quota_pvt.create_rollover_quota(p_api_version,
265 p_init_msg_list,
266 p_commit,
267 p_validation_level,
268 ddp_rollover_quota,
269 x_rollover_quota_id,
270 x_return_status,
271 x_msg_count,
272 x_msg_data);
273
274 -- copy data back from the local variables to OUT or IN-OUT args, if any
275
276
277
278
279
280
281
282
283 end;
284
285 procedure update_rollover_quota(p_api_version NUMBER
286 , p_init_msg_list VARCHAR2
287 , p_commit VARCHAR2
288 , p_validation_level NUMBER
289 , p4_a0 NUMBER
290 , p4_a1 NUMBER
291 , p4_a2 NUMBER
292 , p4_a3 NUMBER
293 , p4_a4 VARCHAR2
294 , p4_a5 VARCHAR2
295 , p4_a6 VARCHAR2
296 , p4_a7 VARCHAR2
297 , p4_a8 VARCHAR2
298 , p4_a9 VARCHAR2
299 , p4_a10 VARCHAR2
300 , p4_a11 VARCHAR2
301 , p4_a12 VARCHAR2
302 , p4_a13 VARCHAR2
303 , p4_a14 VARCHAR2
304 , p4_a15 VARCHAR2
305 , p4_a16 VARCHAR2
306 , p4_a17 VARCHAR2
307 , p4_a18 VARCHAR2
308 , p4_a19 VARCHAR2
309 , p4_a20 NUMBER
310 , x_return_status out nocopy VARCHAR2
311 , x_msg_count out nocopy NUMBER
312 , x_msg_data out nocopy VARCHAR2
313 )
314
315 as
316 ddp_rollover_quota cn_rollover_quota_pvt.rollover_quota_rec_type;
317 ddindx binary_integer; indx binary_integer;
318 begin
319
320 -- copy data to the local IN or IN-OUT args, if any
321
322
323
324
325 ddp_rollover_quota.rollover_quota_id := p4_a0;
326 ddp_rollover_quota.quota_id := p4_a1;
327 ddp_rollover_quota.source_quota_id := p4_a2;
328 ddp_rollover_quota.rollover := p4_a3;
329 ddp_rollover_quota.attribute_category := p4_a4;
330 ddp_rollover_quota.attribute1 := p4_a5;
331 ddp_rollover_quota.attribute2 := p4_a6;
332 ddp_rollover_quota.attribute3 := p4_a7;
333 ddp_rollover_quota.attribute4 := p4_a8;
334 ddp_rollover_quota.attribute5 := p4_a9;
335 ddp_rollover_quota.attribute6 := p4_a10;
336 ddp_rollover_quota.attribute7 := p4_a11;
337 ddp_rollover_quota.attribute8 := p4_a12;
338 ddp_rollover_quota.attribute9 := p4_a13;
339 ddp_rollover_quota.attribute10 := p4_a14;
340 ddp_rollover_quota.attribute11 := p4_a15;
341 ddp_rollover_quota.attribute12 := p4_a16;
342 ddp_rollover_quota.attribute13 := p4_a17;
343 ddp_rollover_quota.attribute14 := p4_a18;
344 ddp_rollover_quota.attribute15 := p4_a19;
345 ddp_rollover_quota.object_version_number := p4_a20;
346
347
348
349
350 -- here's the delegated call to the old PL/SQL routine
351 cn_rollover_quota_pvt.update_rollover_quota(p_api_version,
352 p_init_msg_list,
353 p_commit,
354 p_validation_level,
355 ddp_rollover_quota,
356 x_return_status,
357 x_msg_count,
358 x_msg_data);
359
360 -- copy data back from the local variables to OUT or IN-OUT args, if any
361
362
363
364
365
366
367
368 end;
369
370 procedure delete_rollover_quota(p_api_version NUMBER
371 , p_init_msg_list VARCHAR2
372 , p_commit VARCHAR2
373 , p_validation_level NUMBER
374 , p4_a0 NUMBER
375 , p4_a1 NUMBER
376 , p4_a2 NUMBER
377 , p4_a3 NUMBER
378 , p4_a4 VARCHAR2
379 , p4_a5 VARCHAR2
380 , p4_a6 VARCHAR2
381 , p4_a7 VARCHAR2
382 , p4_a8 VARCHAR2
383 , p4_a9 VARCHAR2
384 , p4_a10 VARCHAR2
385 , p4_a11 VARCHAR2
386 , p4_a12 VARCHAR2
387 , p4_a13 VARCHAR2
388 , p4_a14 VARCHAR2
389 , p4_a15 VARCHAR2
390 , p4_a16 VARCHAR2
391 , p4_a17 VARCHAR2
392 , p4_a18 VARCHAR2
393 , p4_a19 VARCHAR2
394 , p4_a20 NUMBER
395 , x_return_status out nocopy VARCHAR2
396 , x_msg_count out nocopy NUMBER
397 , x_msg_data out nocopy VARCHAR2
398 )
399
400 as
401 ddp_rollover_quota cn_rollover_quota_pvt.rollover_quota_rec_type;
402 ddindx binary_integer; indx binary_integer;
403 begin
404
405 -- copy data to the local IN or IN-OUT args, if any
406
407
408
409
410 ddp_rollover_quota.rollover_quota_id := p4_a0;
411 ddp_rollover_quota.quota_id := p4_a1;
412 ddp_rollover_quota.source_quota_id := p4_a2;
413 ddp_rollover_quota.rollover := p4_a3;
414 ddp_rollover_quota.attribute_category := p4_a4;
415 ddp_rollover_quota.attribute1 := p4_a5;
416 ddp_rollover_quota.attribute2 := p4_a6;
417 ddp_rollover_quota.attribute3 := p4_a7;
418 ddp_rollover_quota.attribute4 := p4_a8;
419 ddp_rollover_quota.attribute5 := p4_a9;
420 ddp_rollover_quota.attribute6 := p4_a10;
421 ddp_rollover_quota.attribute7 := p4_a11;
422 ddp_rollover_quota.attribute8 := p4_a12;
423 ddp_rollover_quota.attribute9 := p4_a13;
424 ddp_rollover_quota.attribute10 := p4_a14;
425 ddp_rollover_quota.attribute11 := p4_a15;
426 ddp_rollover_quota.attribute12 := p4_a16;
427 ddp_rollover_quota.attribute13 := p4_a17;
428 ddp_rollover_quota.attribute14 := p4_a18;
429 ddp_rollover_quota.attribute15 := p4_a19;
430 ddp_rollover_quota.object_version_number := p4_a20;
431
432
433
434
435 -- here's the delegated call to the old PL/SQL routine
436 cn_rollover_quota_pvt.delete_rollover_quota(p_api_version,
437 p_init_msg_list,
438 p_commit,
439 p_validation_level,
440 ddp_rollover_quota,
441 x_return_status,
442 x_msg_count,
443 x_msg_data);
444
445 -- copy data back from the local variables to OUT or IN-OUT args, if any
446
447
448
449
450
451
452
453 end;
454
455 end cn_rollover_quota_pvt_w;