1: package body okl_cgr_pvt_w as
2: /* $Header: OKLICGRB.pls 120.1 2005/07/08 10:18:55 asawanka 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy okl_cgr_pvt.cgr_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_200
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_DATE_TABLE
51: end loop;
52: end if;
53: end if;
54: end rosetta_table_copy_in_p2;
55: procedure rosetta_table_copy_out_p2(t okl_cgr_pvt.cgr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
56: , a1 out nocopy JTF_VARCHAR2_TABLE_200
57: , a2 out nocopy JTF_NUMBER_TABLE
58: , a3 out nocopy JTF_NUMBER_TABLE
59: , a4 out nocopy JTF_DATE_TABLE
110: end if;
111: end if;
112: end rosetta_table_copy_out_p2;
113:
114: procedure rosetta_table_copy_in_p5(t out nocopy okl_cgr_pvt.okl_context_groups_tl_tbl_type, a0 JTF_NUMBER_TABLE
115: , a1 JTF_VARCHAR2_TABLE_100
116: , a2 JTF_VARCHAR2_TABLE_100
117: , a3 JTF_VARCHAR2_TABLE_100
118: , a4 JTF_VARCHAR2_TABLE_2000
147: end loop;
148: end if;
149: end if;
150: end rosetta_table_copy_in_p5;
151: procedure rosetta_table_copy_out_p5(t okl_cgr_pvt.okl_context_groups_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
152: , a1 out nocopy JTF_VARCHAR2_TABLE_100
153: , a2 out nocopy JTF_VARCHAR2_TABLE_100
154: , a3 out nocopy JTF_VARCHAR2_TABLE_100
155: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
216: end if;
217: end if;
218: end rosetta_table_copy_out_p5;
219:
220: procedure rosetta_table_copy_in_p8(t out nocopy okl_cgr_pvt.cgrv_tbl_type, a0 JTF_NUMBER_TABLE
221: , a1 JTF_NUMBER_TABLE
222: , a2 JTF_VARCHAR2_TABLE_100
223: , a3 JTF_VARCHAR2_TABLE_200
224: , a4 JTF_VARCHAR2_TABLE_2000
253: end loop;
254: end if;
255: end if;
256: end rosetta_table_copy_in_p8;
257: procedure rosetta_table_copy_out_p8(t okl_cgr_pvt.cgrv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
258: , a1 out nocopy JTF_NUMBER_TABLE
259: , a2 out nocopy JTF_VARCHAR2_TABLE_100
260: , a3 out nocopy JTF_VARCHAR2_TABLE_200
261: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
350: , p5_a9 NUMBER := 0-1962.0724
351: )
352:
353: as
354: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
355: ddx_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
351: )
352:
353: as
354: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
355: ddx_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
359: -- copy data to the local IN or IN-OUT args, if any
374: ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
375:
376:
377: -- here's the delegated call to the old PL/SQL routine
378: okl_cgr_pvt.insert_row(p_api_version,
379: p_init_msg_list,
380: x_return_status,
381: x_msg_count,
382: x_msg_data,
429: , p6_a9 out nocopy JTF_NUMBER_TABLE
430: )
431:
432: as
433: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
434: ddx_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
435: ddindx binary_integer; indx binary_integer;
436: begin
437:
430: )
431:
432: as
433: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
434: ddx_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
435: ddindx binary_integer; indx binary_integer;
436: begin
437:
438: -- copy data to the local IN or IN-OUT args, if any
440:
441:
442:
443:
444: okl_cgr_pvt_w.rosetta_table_copy_in_p8(ddp_cgrv_tbl, p5_a0
445: , p5_a1
446: , p5_a2
447: , p5_a3
448: , p5_a4
454: );
455:
456:
457: -- here's the delegated call to the old PL/SQL routine
458: okl_cgr_pvt.insert_row(p_api_version,
459: p_init_msg_list,
460: x_return_status,
461: x_msg_count,
462: x_msg_data,
469:
470:
471:
472:
473: okl_cgr_pvt_w.rosetta_table_copy_out_p8(ddx_cgrv_tbl, p6_a0
474: , p6_a1
475: , p6_a2
476: , p6_a3
477: , p6_a4
500: , p5_a9 NUMBER := 0-1962.0724
501: )
502:
503: as
504: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
505: ddindx binary_integer; indx binary_integer;
506: begin
507:
508: -- copy data to the local IN or IN-OUT args, if any
522: ddp_cgrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
523: ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
524:
525: -- here's the delegated call to the old PL/SQL routine
526: okl_cgr_pvt.lock_row(p_api_version,
527: p_init_msg_list,
528: x_return_status,
529: x_msg_count,
530: x_msg_data,
555: , p5_a9 JTF_NUMBER_TABLE
556: )
557:
558: as
559: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
560: ddindx binary_integer; indx binary_integer;
561: begin
562:
563: -- copy data to the local IN or IN-OUT args, if any
565:
566:
567:
568:
569: okl_cgr_pvt_w.rosetta_table_copy_in_p8(ddp_cgrv_tbl, p5_a0
570: , p5_a1
571: , p5_a2
572: , p5_a3
573: , p5_a4
578: , p5_a9
579: );
580:
581: -- here's the delegated call to the old PL/SQL routine
582: okl_cgr_pvt.lock_row(p_api_version,
583: p_init_msg_list,
584: x_return_status,
585: x_msg_count,
586: x_msg_data,
621: , p5_a9 NUMBER := 0-1962.0724
622: )
623:
624: as
625: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
626: ddx_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
627: ddindx binary_integer; indx binary_integer;
628: begin
629:
622: )
623:
624: as
625: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
626: ddx_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
627: ddindx binary_integer; indx binary_integer;
628: begin
629:
630: -- copy data to the local IN or IN-OUT args, if any
645: ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
646:
647:
648: -- here's the delegated call to the old PL/SQL routine
649: okl_cgr_pvt.update_row(p_api_version,
650: p_init_msg_list,
651: x_return_status,
652: x_msg_count,
653: x_msg_data,
700: , p6_a9 out nocopy JTF_NUMBER_TABLE
701: )
702:
703: as
704: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
705: ddx_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
706: ddindx binary_integer; indx binary_integer;
707: begin
708:
701: )
702:
703: as
704: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
705: ddx_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
706: ddindx binary_integer; indx binary_integer;
707: begin
708:
709: -- copy data to the local IN or IN-OUT args, if any
711:
712:
713:
714:
715: okl_cgr_pvt_w.rosetta_table_copy_in_p8(ddp_cgrv_tbl, p5_a0
716: , p5_a1
717: , p5_a2
718: , p5_a3
719: , p5_a4
725: );
726:
727:
728: -- here's the delegated call to the old PL/SQL routine
729: okl_cgr_pvt.update_row(p_api_version,
730: p_init_msg_list,
731: x_return_status,
732: x_msg_count,
733: x_msg_data,
740:
741:
742:
743:
744: okl_cgr_pvt_w.rosetta_table_copy_out_p8(ddx_cgrv_tbl, p6_a0
745: , p6_a1
746: , p6_a2
747: , p6_a3
748: , p6_a4
771: , p5_a9 NUMBER := 0-1962.0724
772: )
773:
774: as
775: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
776: ddindx binary_integer; indx binary_integer;
777: begin
778:
779: -- copy data to the local IN or IN-OUT args, if any
793: ddp_cgrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
794: ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
795:
796: -- here's the delegated call to the old PL/SQL routine
797: okl_cgr_pvt.delete_row(p_api_version,
798: p_init_msg_list,
799: x_return_status,
800: x_msg_count,
801: x_msg_data,
826: , p5_a9 JTF_NUMBER_TABLE
827: )
828:
829: as
830: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
831: ddindx binary_integer; indx binary_integer;
832: begin
833:
834: -- copy data to the local IN or IN-OUT args, if any
836:
837:
838:
839:
840: okl_cgr_pvt_w.rosetta_table_copy_in_p8(ddp_cgrv_tbl, p5_a0
841: , p5_a1
842: , p5_a2
843: , p5_a3
844: , p5_a4
849: , p5_a9
850: );
851:
852: -- here's the delegated call to the old PL/SQL routine
853: okl_cgr_pvt.delete_row(p_api_version,
854: p_init_msg_list,
855: x_return_status,
856: x_msg_count,
857: x_msg_data,
882: , p5_a9 NUMBER := 0-1962.0724
883: )
884:
885: as
886: ddp_cgrv_rec okl_cgr_pvt.cgrv_rec_type;
887: ddindx binary_integer; indx binary_integer;
888: begin
889:
890: -- copy data to the local IN or IN-OUT args, if any
904: ddp_cgrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
905: ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
906:
907: -- here's the delegated call to the old PL/SQL routine
908: okl_cgr_pvt.validate_row(p_api_version,
909: p_init_msg_list,
910: x_return_status,
911: x_msg_count,
912: x_msg_data,
937: , p5_a9 JTF_NUMBER_TABLE
938: )
939:
940: as
941: ddp_cgrv_tbl okl_cgr_pvt.cgrv_tbl_type;
942: ddindx binary_integer; indx binary_integer;
943: begin
944:
945: -- copy data to the local IN or IN-OUT args, if any
947:
948:
949:
950:
951: okl_cgr_pvt_w.rosetta_table_copy_in_p8(ddp_cgrv_tbl, p5_a0
952: , p5_a1
953: , p5_a2
954: , p5_a3
955: , p5_a4
960: , p5_a9
961: );
962:
963: -- here's the delegated call to the old PL/SQL routine
964: okl_cgr_pvt.validate_row(p_api_version,
965: p_init_msg_list,
966: x_return_status,
967: x_msg_count,
968: x_msg_data,
975:
976:
977: end;
978:
979: end okl_cgr_pvt_w;