1: package body ozf_task_template_pvt_w as
2: /* $Header: ozfwtteb.pls 115.0 2003/06/26 05:12:54 mchang 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:
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 ozf_task_template_pvt.ozf_task_template_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_VARCHAR2_TABLE_100
15: , a2 JTF_VARCHAR2_TABLE_4000
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_VARCHAR2_TABLE_100
44: ) as
45: ddindx binary_integer; indx binary_integer;
46: begin
47: if a0 is not null and a0.count=0 then
48: t := ozf_task_template_pvt.ozf_task_template_tbl_type();
49: elsif a0 is not null and a0.count > 0 then
50: if a0.count > 0 then
51: t := ozf_task_template_pvt.ozf_task_template_tbl_type();
52: t.extend(a0.count);
47: if a0 is not null and a0.count=0 then
48: t := ozf_task_template_pvt.ozf_task_template_tbl_type();
49: elsif a0 is not null and a0.count > 0 then
50: if a0.count > 0 then
51: t := ozf_task_template_pvt.ozf_task_template_tbl_type();
52: t.extend(a0.count);
53: indx := a0.first;
54: ddindx := 1;
55: while true loop
92: end loop;
93: end if;
94: end if;
95: end rosetta_table_copy_in_p1;
96: procedure rosetta_table_copy_out_p1(t ozf_task_template_pvt.ozf_task_template_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
97: , a1 out nocopy JTF_VARCHAR2_TABLE_100
98: , a2 out nocopy JTF_VARCHAR2_TABLE_4000
99: , a3 out nocopy JTF_NUMBER_TABLE
100: , a4 out nocopy JTF_VARCHAR2_TABLE_100
298: end if;
299: end if;
300: end rosetta_table_copy_out_p1;
301:
302: procedure rosetta_table_copy_in_p2(t out nocopy ozf_task_template_pvt.ozf_number_tbl_type, a0 JTF_NUMBER_TABLE) as
303: ddindx binary_integer; indx binary_integer;
304: begin
305: if a0 is null then
306: t := null;
304: begin
305: if a0 is null then
306: t := null;
307: elsif a0.count = 0 then
308: t := ozf_task_template_pvt.ozf_number_tbl_type();
309: else
310: if a0.count > 0 then
311: t := ozf_task_template_pvt.ozf_number_tbl_type();
312: t.extend(a0.count);
307: elsif a0.count = 0 then
308: t := ozf_task_template_pvt.ozf_number_tbl_type();
309: else
310: if a0.count > 0 then
311: t := ozf_task_template_pvt.ozf_number_tbl_type();
312: t.extend(a0.count);
313: indx := a0.first;
314: ddindx := 1;
315: while true loop
322: end loop;
323: end if;
324: end if;
325: end rosetta_table_copy_in_p2;
326: procedure rosetta_table_copy_out_p2(t ozf_task_template_pvt.ozf_number_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
327: ddindx binary_integer; indx binary_integer;
328: begin
329: if t is null then
330: a0 := null;
389: , x_task_template_id out nocopy JTF_NUMBER_TABLE
390: )
391:
392: as
393: ddp_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
394: ddx_task_template_id ozf_task_template_pvt.ozf_number_tbl_type;
395: ddindx binary_integer; indx binary_integer;
396: begin
397:
390: )
391:
392: as
393: ddp_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
394: ddx_task_template_id ozf_task_template_pvt.ozf_number_tbl_type;
395: ddindx binary_integer; indx binary_integer;
396: begin
397:
398: -- copy data to the local IN or IN-OUT args, if any
402:
403:
404:
405:
406: ozf_task_template_pvt_w.rosetta_table_copy_in_p1(ddp_task_template, p7_a0
407: , p7_a1
408: , p7_a2
409: , p7_a3
410: , p7_a4
437: );
438:
439:
440: -- here's the delegated call to the old PL/SQL routine
441: ozf_task_template_pvt.create_tasktemplate(p_api_version,
442: p_init_msg_list,
443: p_commit,
444: p_validation_level,
445: x_return_status,
456:
457:
458:
459:
460: ozf_task_template_pvt_w.rosetta_table_copy_out_p2(ddx_task_template_id, x_task_template_id);
461: end;
462:
463: procedure update_tasktemplate(p_api_version NUMBER
464: , p_init_msg_list VARCHAR2
501: , x_object_version_number out nocopy JTF_NUMBER_TABLE
502: )
503:
504: as
505: ddp_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
506: ddx_object_version_number ozf_task_template_pvt.ozf_number_tbl_type;
507: ddindx binary_integer; indx binary_integer;
508: begin
509:
502: )
503:
504: as
505: ddp_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
506: ddx_object_version_number ozf_task_template_pvt.ozf_number_tbl_type;
507: ddindx binary_integer; indx binary_integer;
508: begin
509:
510: -- copy data to the local IN or IN-OUT args, if any
514:
515:
516:
517:
518: ozf_task_template_pvt_w.rosetta_table_copy_in_p1(ddp_task_template, p7_a0
519: , p7_a1
520: , p7_a2
521: , p7_a3
522: , p7_a4
549: );
550:
551:
552: -- here's the delegated call to the old PL/SQL routine
553: ozf_task_template_pvt.update_tasktemplate(p_api_version,
554: p_init_msg_list,
555: p_commit,
556: p_validation_level,
557: x_return_status,
568:
569:
570:
571:
572: ozf_task_template_pvt_w.rosetta_table_copy_out_p2(ddx_object_version_number, x_object_version_number);
573: end;
574:
575: procedure delete_tasktemplate(p_api_version NUMBER
576: , p_init_msg_list VARCHAR2
583: , p_object_version_number JTF_NUMBER_TABLE
584: )
585:
586: as
587: ddp_task_template_id ozf_task_template_pvt.ozf_number_tbl_type;
588: ddp_object_version_number ozf_task_template_pvt.ozf_number_tbl_type;
589: ddindx binary_integer; indx binary_integer;
590: begin
591:
584: )
585:
586: as
587: ddp_task_template_id ozf_task_template_pvt.ozf_number_tbl_type;
588: ddp_object_version_number ozf_task_template_pvt.ozf_number_tbl_type;
589: ddindx binary_integer; indx binary_integer;
590: begin
591:
592: -- copy data to the local IN or IN-OUT args, if any
596:
597:
598:
599:
600: ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_task_template_id, p_task_template_id);
601:
602: ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_object_version_number, p_object_version_number);
603:
604: -- here's the delegated call to the old PL/SQL routine
598:
599:
600: ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_task_template_id, p_task_template_id);
601:
602: ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_object_version_number, p_object_version_number);
603:
604: -- here's the delegated call to the old PL/SQL routine
605: ozf_task_template_pvt.delete_tasktemplate(p_api_version,
606: p_init_msg_list,
601:
602: ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_object_version_number, p_object_version_number);
603:
604: -- here's the delegated call to the old PL/SQL routine
605: ozf_task_template_pvt.delete_tasktemplate(p_api_version,
606: p_init_msg_list,
607: p_commit,
608: p_validation_level,
609: x_return_status,
664: , p8_a30 out nocopy JTF_VARCHAR2_TABLE_200
665: )
666:
667: as
668: ddx_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
669: ddindx binary_integer; indx binary_integer;
670: begin
671:
672: -- copy data to the local IN or IN-OUT args, if any
679:
680:
681:
682: -- here's the delegated call to the old PL/SQL routine
683: ozf_task_template_pvt.get_tasktemplate(p_api_version,
684: p_init_msg_list,
685: p_commit,
686: p_validation_level,
687: x_return_status,
698:
699:
700:
701:
702: ozf_task_template_pvt_w.rosetta_table_copy_out_p1(ddx_task_template, p8_a0
703: , p8_a1
704: , p8_a2
705: , p8_a3
706: , p8_a4
772: , p6_a30 VARCHAR2
773: )
774:
775: as
776: ddp_task_template ozf_task_template_pvt.ozf_task_template_rec_type;
777: ddindx binary_integer; indx binary_integer;
778: begin
779:
780: -- copy data to the local IN or IN-OUT args, if any
816: ddp_task_template.attribute14 := p6_a29;
817: ddp_task_template.attribute15 := p6_a30;
818:
819: -- here's the delegated call to the old PL/SQL routine
820: ozf_task_template_pvt.validate_tasktemplate(p_api_version,
821: p_init_msg_list,
822: p_validation_level,
823: x_return_status,
824: x_msg_count,
869: , p2_a30 VARCHAR2
870: )
871:
872: as
873: ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
874: ddindx binary_integer; indx binary_integer;
875: begin
876:
877: -- copy data to the local IN or IN-OUT args, if any
909: ddp_task_template_rec.attribute14 := p2_a29;
910: ddp_task_template_rec.attribute15 := p2_a30;
911:
912: -- here's the delegated call to the old PL/SQL routine
913: ozf_task_template_pvt.check_tasktemplate_items(p_validation_mode,
914: x_return_status,
915: ddp_task_template_rec);
916:
917: -- copy data back from the local variables to OUT or IN-OUT args, if any
984: , x_return_status out nocopy VARCHAR2
985: )
986:
987: as
988: ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
989: ddp_complete_rec ozf_task_template_pvt.ozf_task_template_rec_type;
990: ddindx binary_integer; indx binary_integer;
991: begin
992:
985: )
986:
987: as
988: ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
989: ddp_complete_rec ozf_task_template_pvt.ozf_task_template_rec_type;
990: ddindx binary_integer; indx binary_integer;
991: begin
992:
993: -- copy data to the local IN or IN-OUT args, if any
1056: ddp_complete_rec.attribute15 := p1_a30;
1057:
1058:
1059: -- here's the delegated call to the old PL/SQL routine
1060: ozf_task_template_pvt.check_tasktemplate_record(ddp_task_template_rec,
1061: ddp_complete_rec,
1062: x_return_status);
1063:
1064: -- copy data back from the local variables to OUT or IN-OUT args, if any
1099: , p0_a30 out nocopy VARCHAR2
1100: )
1101:
1102: as
1103: ddx_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1104: ddindx binary_integer; indx binary_integer;
1105: begin
1106:
1107: -- copy data to the local IN or IN-OUT args, if any
1106:
1107: -- copy data to the local IN or IN-OUT args, if any
1108:
1109: -- here's the delegated call to the old PL/SQL routine
1110: ozf_task_template_pvt.init_reason_rec(ddx_task_template_rec);
1111:
1112: -- copy data back from the local variables to OUT or IN-OUT args, if any
1113: p0_a0 := ddx_task_template_rec.task_template_id;
1114: p0_a1 := ddx_task_template_rec.task_name;
1207: , p1_a30 out nocopy VARCHAR2
1208: )
1209:
1210: as
1211: ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1212: ddx_complete_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1213: ddindx binary_integer; indx binary_integer;
1214: begin
1215:
1208: )
1209:
1210: as
1211: ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1212: ddx_complete_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1213: ddindx binary_integer; indx binary_integer;
1214: begin
1215:
1216: -- copy data to the local IN or IN-OUT args, if any
1247: ddp_task_template_rec.attribute15 := p0_a30;
1248:
1249:
1250: -- here's the delegated call to the old PL/SQL routine
1251: ozf_task_template_pvt.complete_tasktemplate_rec(ddp_task_template_rec,
1252: ddx_complete_rec);
1253:
1254: -- copy data back from the local variables to OUT or IN-OUT args, if any
1255:
1285: p1_a29 := ddx_complete_rec.attribute14;
1286: p1_a30 := ddx_complete_rec.attribute15;
1287: end;
1288:
1289: end ozf_task_template_pvt_w;