[Home] [Help]
PACKAGE BODY: APPS.CN_PLAN_TEXTS_PVT_W
Source
1 package body cn_plan_texts_pvt_w as
2 /* $Header: cnwsptb.pls 115.8 2002/12/04 05:03:44 fmburu ship $ */
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_plan_texts_pvt.plan_text_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_2000
19 , a6 JTF_VARCHAR2_TABLE_2000
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_NUMBER_TABLE
22 ) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count > 0 then
26 if a0.count > 0 then
27 indx := a0.first;
28 ddindx := 1;
29 while true loop
30 t(ddindx).plan_text_id := a0(indx);
31 t(ddindx).role_id := a1(indx);
32 t(ddindx).sequence_id := a2(indx);
33 t(ddindx).quota_category_id := a3(indx);
34 t(ddindx).text_type := a4(indx);
35 t(ddindx).text := a5(indx);
36 t(ddindx).text2 := a6(indx);
37 t(ddindx).object_version_number := a7(indx);
38 t(ddindx).role_model_id := a8(indx);
39 ddindx := ddindx+1;
40 if a0.last =indx
41 then exit;
42 end if;
43 indx := a0.next(indx);
44 end loop;
45 end if;
46 end if;
47 end rosetta_table_copy_in_p1;
48 procedure rosetta_table_copy_out_p1(t cn_plan_texts_pvt.plan_text_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
49 , a1 out nocopy JTF_NUMBER_TABLE
50 , a2 out nocopy JTF_NUMBER_TABLE
51 , a3 out nocopy JTF_NUMBER_TABLE
52 , a4 out nocopy JTF_VARCHAR2_TABLE_100
53 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
54 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
55 , a7 out nocopy JTF_NUMBER_TABLE
56 , a8 out nocopy JTF_NUMBER_TABLE
57 ) as
58 ddindx binary_integer; indx binary_integer;
59 begin
60 if t is null or t.count = 0 then
61 a0 := JTF_NUMBER_TABLE();
62 a1 := JTF_NUMBER_TABLE();
63 a2 := JTF_NUMBER_TABLE();
64 a3 := JTF_NUMBER_TABLE();
65 a4 := JTF_VARCHAR2_TABLE_100();
66 a5 := JTF_VARCHAR2_TABLE_2000();
67 a6 := JTF_VARCHAR2_TABLE_2000();
68 a7 := JTF_NUMBER_TABLE();
69 a8 := JTF_NUMBER_TABLE();
70 else
71 a0 := JTF_NUMBER_TABLE();
72 a1 := JTF_NUMBER_TABLE();
73 a2 := JTF_NUMBER_TABLE();
74 a3 := JTF_NUMBER_TABLE();
75 a4 := JTF_VARCHAR2_TABLE_100();
76 a5 := JTF_VARCHAR2_TABLE_2000();
77 a6 := JTF_VARCHAR2_TABLE_2000();
78 a7 := JTF_NUMBER_TABLE();
79 a8 := 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 ddindx := t.first;
91 indx := 1;
92 while true loop
93 a0(indx) := t(ddindx).plan_text_id;
94 a1(indx) := t(ddindx).role_id;
95 a2(indx) := t(ddindx).sequence_id;
96 a3(indx) := t(ddindx).quota_category_id;
97 a4(indx) := t(ddindx).text_type;
98 a5(indx) := t(ddindx).text;
99 a6(indx) := t(ddindx).text2;
100 a7(indx) := t(ddindx).object_version_number;
101 a8(indx) := t(ddindx).role_model_id;
102 indx := indx+1;
103 if t.last =ddindx
104 then exit;
105 end if;
106 ddindx := t.next(ddindx);
107 end loop;
108 end if;
109 end if;
110 end rosetta_table_copy_out_p1;
111
112 procedure rosetta_table_copy_in_p3(t out nocopy cn_plan_texts_pvt.quota_cate_tbl_type, a0 JTF_NUMBER_TABLE
113 , a1 JTF_VARCHAR2_TABLE_100
114 ) as
115 ddindx binary_integer; indx binary_integer;
116 begin
117 if a0 is not null and a0.count > 0 then
118 if a0.count > 0 then
119 indx := a0.first;
120 ddindx := 1;
121 while true loop
122 t(ddindx).quota_cate_id := a0(indx);
123 t(ddindx).quota_name := a1(indx);
124 ddindx := ddindx+1;
125 if a0.last =indx
126 then exit;
127 end if;
128 indx := a0.next(indx);
129 end loop;
130 end if;
131 end if;
132 end rosetta_table_copy_in_p3;
133 procedure rosetta_table_copy_out_p3(t cn_plan_texts_pvt.quota_cate_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
134 , a1 out nocopy JTF_VARCHAR2_TABLE_100
135 ) as
136 ddindx binary_integer; indx binary_integer;
137 begin
138 if t is null or t.count = 0 then
139 a0 := JTF_NUMBER_TABLE();
140 a1 := JTF_VARCHAR2_TABLE_100();
141 else
142 a0 := JTF_NUMBER_TABLE();
143 a1 := JTF_VARCHAR2_TABLE_100();
144 if t.count > 0 then
145 a0.extend(t.count);
146 a1.extend(t.count);
147 ddindx := t.first;
148 indx := 1;
149 while true loop
150 a0(indx) := t(ddindx).quota_cate_id;
151 a1(indx) := t(ddindx).quota_name;
152 indx := indx+1;
153 if t.last =ddindx
154 then exit;
155 end if;
156 ddindx := t.next(ddindx);
157 end loop;
158 end if;
159 end if;
160 end rosetta_table_copy_out_p3;
161
162 procedure create_plan_text(p_api_version NUMBER
163 , p_init_msg_list VARCHAR2
164 , p_commit VARCHAR2
165 , p_validation_level NUMBER
166 , p4_a0 NUMBER
167 , p4_a1 NUMBER
168 , p4_a2 NUMBER
169 , p4_a3 NUMBER
170 , p4_a4 VARCHAR2
171 , p4_a5 VARCHAR2
172 , p4_a6 VARCHAR2
173 , p4_a7 NUMBER
174 , p4_a8 NUMBER
175 , x_return_status out nocopy VARCHAR2
176 , x_msg_count out nocopy NUMBER
177 , x_msg_data out nocopy VARCHAR2
178 )
179
180 as
181 ddp_plan_text cn_plan_texts_pvt.plan_text_rec_type;
182 ddindx binary_integer; indx binary_integer;
183 begin
184
185 -- copy data to the local IN or IN-OUT args, if any
186
187
188
189
190 ddp_plan_text.plan_text_id := p4_a0;
191 ddp_plan_text.role_id := p4_a1;
192 ddp_plan_text.sequence_id := p4_a2;
193 ddp_plan_text.quota_category_id := p4_a3;
194 ddp_plan_text.text_type := p4_a4;
195 ddp_plan_text.text := p4_a5;
196 ddp_plan_text.text2 := p4_a6;
197 ddp_plan_text.object_version_number := p4_a7;
198 ddp_plan_text.role_model_id := p4_a8;
199
200
201
202
203 -- here's the delegated call to the old PL/SQL routine
204 cn_plan_texts_pvt.create_plan_text(p_api_version,
205 p_init_msg_list,
206 p_commit,
207 p_validation_level,
208 ddp_plan_text,
209 x_return_status,
210 x_msg_count,
211 x_msg_data);
212
213 -- copy data back from the local variables to OUT or IN-OUT args, if any
214
215
216
217
218
219
220
221 end;
222
223 procedure update_plan_text(p_api_version NUMBER
224 , p_init_msg_list VARCHAR2
225 , p_commit VARCHAR2
226 , p_validation_level NUMBER
227 , p4_a0 NUMBER
228 , p4_a1 NUMBER
229 , p4_a2 NUMBER
230 , p4_a3 NUMBER
231 , p4_a4 VARCHAR2
232 , p4_a5 VARCHAR2
233 , p4_a6 VARCHAR2
234 , p4_a7 NUMBER
235 , p4_a8 NUMBER
236 , x_return_status out nocopy VARCHAR2
237 , x_msg_count out nocopy NUMBER
238 , x_msg_data out nocopy VARCHAR2
239 )
240
241 as
242 ddp_plan_text cn_plan_texts_pvt.plan_text_rec_type;
243 ddindx binary_integer; indx binary_integer;
244 begin
245
246 -- copy data to the local IN or IN-OUT args, if any
247
248
249
250
251 ddp_plan_text.plan_text_id := p4_a0;
252 ddp_plan_text.role_id := p4_a1;
253 ddp_plan_text.sequence_id := p4_a2;
254 ddp_plan_text.quota_category_id := p4_a3;
255 ddp_plan_text.text_type := p4_a4;
256 ddp_plan_text.text := p4_a5;
257 ddp_plan_text.text2 := p4_a6;
258 ddp_plan_text.object_version_number := p4_a7;
259 ddp_plan_text.role_model_id := p4_a8;
260
261
262
263
264 -- here's the delegated call to the old PL/SQL routine
265 cn_plan_texts_pvt.update_plan_text(p_api_version,
266 p_init_msg_list,
267 p_commit,
268 p_validation_level,
269 ddp_plan_text,
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 end;
283
284 procedure delete_plan_text(p_api_version NUMBER
285 , p_init_msg_list VARCHAR2
286 , p_commit VARCHAR2
287 , p_validation_level NUMBER
288 , p4_a0 NUMBER
289 , p4_a1 NUMBER
290 , p4_a2 NUMBER
291 , p4_a3 NUMBER
292 , p4_a4 VARCHAR2
293 , p4_a5 VARCHAR2
294 , p4_a6 VARCHAR2
295 , p4_a7 NUMBER
296 , p4_a8 NUMBER
297 , x_return_status out nocopy VARCHAR2
298 , x_msg_count out nocopy NUMBER
299 , x_msg_data out nocopy VARCHAR2
300 )
301
302 as
303 ddp_plan_text cn_plan_texts_pvt.plan_text_rec_type;
304 ddindx binary_integer; indx binary_integer;
305 begin
306
307 -- copy data to the local IN or IN-OUT args, if any
308
309
310
311
312 ddp_plan_text.plan_text_id := p4_a0;
313 ddp_plan_text.role_id := p4_a1;
314 ddp_plan_text.sequence_id := p4_a2;
315 ddp_plan_text.quota_category_id := p4_a3;
316 ddp_plan_text.text_type := p4_a4;
317 ddp_plan_text.text := p4_a5;
318 ddp_plan_text.text2 := p4_a6;
319 ddp_plan_text.object_version_number := p4_a7;
320 ddp_plan_text.role_model_id := p4_a8;
321
322
323
324
325 -- here's the delegated call to the old PL/SQL routine
326 cn_plan_texts_pvt.delete_plan_text(p_api_version,
327 p_init_msg_list,
328 p_commit,
329 p_validation_level,
330 ddp_plan_text,
331 x_return_status,
332 x_msg_count,
333 x_msg_data);
334
335 -- copy data back from the local variables to OUT or IN-OUT args, if any
336
337
338
339
340
341
342
343 end;
344
345 procedure get_plan_texts(p_api_version NUMBER
346 , p_init_msg_list VARCHAR2
347 , p_commit VARCHAR2
348 , p_validation_level NUMBER
349 , p_role_id NUMBER
350 , p_role_model_id NUMBER
351 , p6_a0 out nocopy JTF_NUMBER_TABLE
352 , p6_a1 out nocopy JTF_NUMBER_TABLE
353 , p6_a2 out nocopy JTF_NUMBER_TABLE
354 , p6_a3 out nocopy JTF_NUMBER_TABLE
355 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
356 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
357 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
358 , p6_a7 out nocopy JTF_NUMBER_TABLE
359 , p6_a8 out nocopy JTF_NUMBER_TABLE
360 , x_updatable out nocopy VARCHAR2
361 , x_return_status out nocopy VARCHAR2
362 , x_msg_count out nocopy NUMBER
363 , x_msg_data out nocopy VARCHAR2
364 )
365
366 as
367 ddx_plan_texts cn_plan_texts_pvt.plan_text_tbl_type;
368 ddindx binary_integer; indx binary_integer;
369 begin
370
371 -- copy data to the local IN or IN-OUT args, if any
372
373
374
375
376
377
378
379
380
381
382
383 -- here's the delegated call to the old PL/SQL routine
384 cn_plan_texts_pvt.get_plan_texts(p_api_version,
385 p_init_msg_list,
386 p_commit,
387 p_validation_level,
388 p_role_id,
389 p_role_model_id,
390 ddx_plan_texts,
391 x_updatable,
392 x_return_status,
393 x_msg_count,
394 x_msg_data);
395
396 -- copy data back from the local variables to OUT or IN-OUT args, if any
397
398
399
400
401
402
403 cn_plan_texts_pvt_w.rosetta_table_copy_out_p1(ddx_plan_texts, p6_a0
404 , p6_a1
405 , p6_a2
406 , p6_a3
407 , p6_a4
408 , p6_a5
409 , p6_a6
410 , p6_a7
411 , p6_a8
412 );
413
414
415
416
417 end;
418
419 procedure get_fixed_quota_cates(p_api_version NUMBER
420 , p_init_msg_list VARCHAR2
421 , p_commit VARCHAR2
422 , p_validation_level NUMBER
423 , p_role_id NUMBER
424 , p_role_model_id NUMBER
425 , p6_a0 out nocopy JTF_NUMBER_TABLE
426 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
427 , x_return_status out nocopy VARCHAR2
428 , x_msg_count out nocopy NUMBER
429 , x_msg_data out nocopy VARCHAR2
430 )
431
432 as
433 ddx_quota_cates cn_plan_texts_pvt.quota_cate_tbl_type;
434 ddindx binary_integer; indx binary_integer;
435 begin
436
437 -- copy data to the local IN or IN-OUT args, if any
438
439
440
441
442
443
444
445
446
447
448 -- here's the delegated call to the old PL/SQL routine
449 cn_plan_texts_pvt.get_fixed_quota_cates(p_api_version,
450 p_init_msg_list,
451 p_commit,
452 p_validation_level,
453 p_role_id,
454 p_role_model_id,
455 ddx_quota_cates,
456 x_return_status,
457 x_msg_count,
458 x_msg_data);
459
460 -- copy data back from the local variables to OUT or IN-OUT args, if any
461
462
463
464
465
466
467 cn_plan_texts_pvt_w.rosetta_table_copy_out_p3(ddx_quota_cates, p6_a0
468 , p6_a1
469 );
470
471
472
473 end;
474
475 procedure get_var_quota_cates(p_api_version NUMBER
476 , p_init_msg_list VARCHAR2
477 , p_commit VARCHAR2
478 , p_validation_level NUMBER
479 , p_role_id NUMBER
480 , p_role_model_id NUMBER
481 , p6_a0 out nocopy JTF_NUMBER_TABLE
482 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
483 , x_return_status out nocopy VARCHAR2
484 , x_msg_count out nocopy NUMBER
485 , x_msg_data out nocopy VARCHAR2
486 )
487
488 as
489 ddx_quota_cates cn_plan_texts_pvt.quota_cate_tbl_type;
490 ddindx binary_integer; indx binary_integer;
491 begin
492
493 -- copy data to the local IN or IN-OUT args, if any
494
495
496
497
498
499
500
501
502
503
504 -- here's the delegated call to the old PL/SQL routine
505 cn_plan_texts_pvt.get_var_quota_cates(p_api_version,
506 p_init_msg_list,
507 p_commit,
508 p_validation_level,
509 p_role_id,
510 p_role_model_id,
511 ddx_quota_cates,
512 x_return_status,
513 x_msg_count,
514 x_msg_data);
515
516 -- copy data back from the local variables to OUT or IN-OUT args, if any
517
518
519
520
521
522
523 cn_plan_texts_pvt_w.rosetta_table_copy_out_p3(ddx_quota_cates, p6_a0
524 , p6_a1
525 );
526
527
528
529 end;
530
531 procedure get_quota_cates(p_api_version NUMBER
532 , p_init_msg_list VARCHAR2
533 , p_commit VARCHAR2
534 , p_validation_level NUMBER
535 , p_role_id NUMBER
536 , p_role_model_id NUMBER
537 , p_quota_cate_type VARCHAR2
538 , p7_a0 out nocopy JTF_NUMBER_TABLE
539 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
540 , x_return_status out nocopy VARCHAR2
541 , x_msg_count out nocopy NUMBER
542 , x_msg_data out nocopy VARCHAR2
543 )
544
545 as
546 ddx_quota_cates cn_plan_texts_pvt.quota_cate_tbl_type;
547 ddindx binary_integer; indx binary_integer;
548 begin
549
550 -- copy data to the local IN or IN-OUT args, if any
551
552
553
554
555
556
557
558
559
560
561
562 -- here's the delegated call to the old PL/SQL routine
563 cn_plan_texts_pvt.get_quota_cates(p_api_version,
564 p_init_msg_list,
565 p_commit,
566 p_validation_level,
567 p_role_id,
568 p_role_model_id,
569 p_quota_cate_type,
570 ddx_quota_cates,
571 x_return_status,
572 x_msg_count,
573 x_msg_data);
574
575 -- copy data back from the local variables to OUT or IN-OUT args, if any
576
577
578
579
580
581
582
583 cn_plan_texts_pvt_w.rosetta_table_copy_out_p3(ddx_quota_cates, p7_a0
584 , p7_a1
585 );
586
587
588
589 end;
590
591 end cn_plan_texts_pvt_w;