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:
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
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
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
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
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
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,
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
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,
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
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,
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
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,
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
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
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,
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:
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
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,
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:
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
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,
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:
587:
588:
589: end;
590:
591: end cn_plan_texts_pvt_w;