1: package body okl_agr_pvt_w as
2: /* $Header: OKLIAGRB.pls 120.1 2005/07/07 13:45:01 dkagrawa 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_agr_pvt.agr_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
55: end loop;
56: end if;
57: end if;
58: end rosetta_table_copy_in_p2;
59: procedure rosetta_table_copy_out_p2(t okl_agr_pvt.agr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
60: , a1 out nocopy JTF_VARCHAR2_TABLE_100
61: , a2 out nocopy JTF_NUMBER_TABLE
62: , a3 out nocopy JTF_NUMBER_TABLE
63: , a4 out nocopy JTF_NUMBER_TABLE
124: end if;
125: end if;
126: end rosetta_table_copy_out_p2;
127:
128: procedure rosetta_table_copy_in_p5(t out nocopy okl_agr_pvt.agrv_tbl_type, a0 JTF_NUMBER_TABLE
129: , a1 JTF_NUMBER_TABLE
130: , a2 JTF_VARCHAR2_TABLE_100
131: , a3 JTF_NUMBER_TABLE
132: , a4 JTF_NUMBER_TABLE
161: end loop;
162: end if;
163: end if;
164: end rosetta_table_copy_in_p5;
165: procedure rosetta_table_copy_out_p5(t okl_agr_pvt.agrv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
166: , a1 out nocopy JTF_NUMBER_TABLE
167: , a2 out nocopy JTF_VARCHAR2_TABLE_100
168: , a3 out nocopy JTF_NUMBER_TABLE
169: , a4 out nocopy JTF_NUMBER_TABLE
258: , p5_a9 NUMBER := 0-1962.0724
259: )
260:
261: as
262: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
263: ddx_agrv_rec okl_agr_pvt.agrv_rec_type;
264: ddindx binary_integer; indx binary_integer;
265: begin
266:
259: )
260:
261: as
262: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
263: ddx_agrv_rec okl_agr_pvt.agrv_rec_type;
264: ddindx binary_integer; indx binary_integer;
265: begin
266:
267: -- copy data to the local IN or IN-OUT args, if any
282: ddp_agrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
283:
284:
285: -- here's the delegated call to the old PL/SQL routine
286: okl_agr_pvt.insert_row(p_api_version,
287: p_init_msg_list,
288: x_return_status,
289: x_msg_count,
290: x_msg_data,
337: , p6_a9 out nocopy JTF_NUMBER_TABLE
338: )
339:
340: as
341: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
342: ddx_agrv_tbl okl_agr_pvt.agrv_tbl_type;
343: ddindx binary_integer; indx binary_integer;
344: begin
345:
338: )
339:
340: as
341: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
342: ddx_agrv_tbl okl_agr_pvt.agrv_tbl_type;
343: ddindx binary_integer; indx binary_integer;
344: begin
345:
346: -- copy data to the local IN or IN-OUT args, if any
348:
349:
350:
351:
352: okl_agr_pvt_w.rosetta_table_copy_in_p5(ddp_agrv_tbl, p5_a0
353: , p5_a1
354: , p5_a2
355: , p5_a3
356: , p5_a4
362: );
363:
364:
365: -- here's the delegated call to the old PL/SQL routine
366: okl_agr_pvt.insert_row(p_api_version,
367: p_init_msg_list,
368: x_return_status,
369: x_msg_count,
370: x_msg_data,
377:
378:
379:
380:
381: okl_agr_pvt_w.rosetta_table_copy_out_p5(ddx_agrv_tbl, p6_a0
382: , p6_a1
383: , p6_a2
384: , p6_a3
385: , p6_a4
408: , p5_a9 NUMBER := 0-1962.0724
409: )
410:
411: as
412: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
413: ddindx binary_integer; indx binary_integer;
414: begin
415:
416: -- copy data to the local IN or IN-OUT args, if any
430: ddp_agrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
431: ddp_agrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
432:
433: -- here's the delegated call to the old PL/SQL routine
434: okl_agr_pvt.lock_row(p_api_version,
435: p_init_msg_list,
436: x_return_status,
437: x_msg_count,
438: x_msg_data,
463: , p5_a9 JTF_NUMBER_TABLE
464: )
465:
466: as
467: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
468: ddindx binary_integer; indx binary_integer;
469: begin
470:
471: -- copy data to the local IN or IN-OUT args, if any
473:
474:
475:
476:
477: okl_agr_pvt_w.rosetta_table_copy_in_p5(ddp_agrv_tbl, p5_a0
478: , p5_a1
479: , p5_a2
480: , p5_a3
481: , p5_a4
486: , p5_a9
487: );
488:
489: -- here's the delegated call to the old PL/SQL routine
490: okl_agr_pvt.lock_row(p_api_version,
491: p_init_msg_list,
492: x_return_status,
493: x_msg_count,
494: x_msg_data,
529: , p5_a9 NUMBER := 0-1962.0724
530: )
531:
532: as
533: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
534: ddx_agrv_rec okl_agr_pvt.agrv_rec_type;
535: ddindx binary_integer; indx binary_integer;
536: begin
537:
530: )
531:
532: as
533: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
534: ddx_agrv_rec okl_agr_pvt.agrv_rec_type;
535: ddindx binary_integer; indx binary_integer;
536: begin
537:
538: -- copy data to the local IN or IN-OUT args, if any
553: ddp_agrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
554:
555:
556: -- here's the delegated call to the old PL/SQL routine
557: okl_agr_pvt.update_row(p_api_version,
558: p_init_msg_list,
559: x_return_status,
560: x_msg_count,
561: x_msg_data,
608: , p6_a9 out nocopy JTF_NUMBER_TABLE
609: )
610:
611: as
612: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
613: ddx_agrv_tbl okl_agr_pvt.agrv_tbl_type;
614: ddindx binary_integer; indx binary_integer;
615: begin
616:
609: )
610:
611: as
612: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
613: ddx_agrv_tbl okl_agr_pvt.agrv_tbl_type;
614: ddindx binary_integer; indx binary_integer;
615: begin
616:
617: -- copy data to the local IN or IN-OUT args, if any
619:
620:
621:
622:
623: okl_agr_pvt_w.rosetta_table_copy_in_p5(ddp_agrv_tbl, p5_a0
624: , p5_a1
625: , p5_a2
626: , p5_a3
627: , p5_a4
633: );
634:
635:
636: -- here's the delegated call to the old PL/SQL routine
637: okl_agr_pvt.update_row(p_api_version,
638: p_init_msg_list,
639: x_return_status,
640: x_msg_count,
641: x_msg_data,
648:
649:
650:
651:
652: okl_agr_pvt_w.rosetta_table_copy_out_p5(ddx_agrv_tbl, p6_a0
653: , p6_a1
654: , p6_a2
655: , p6_a3
656: , p6_a4
679: , p5_a9 NUMBER := 0-1962.0724
680: )
681:
682: as
683: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
684: ddindx binary_integer; indx binary_integer;
685: begin
686:
687: -- copy data to the local IN or IN-OUT args, if any
701: ddp_agrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
702: ddp_agrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
703:
704: -- here's the delegated call to the old PL/SQL routine
705: okl_agr_pvt.delete_row(p_api_version,
706: p_init_msg_list,
707: x_return_status,
708: x_msg_count,
709: x_msg_data,
734: , p5_a9 JTF_NUMBER_TABLE
735: )
736:
737: as
738: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
739: ddindx binary_integer; indx binary_integer;
740: begin
741:
742: -- copy data to the local IN or IN-OUT args, if any
744:
745:
746:
747:
748: okl_agr_pvt_w.rosetta_table_copy_in_p5(ddp_agrv_tbl, p5_a0
749: , p5_a1
750: , p5_a2
751: , p5_a3
752: , p5_a4
757: , p5_a9
758: );
759:
760: -- here's the delegated call to the old PL/SQL routine
761: okl_agr_pvt.delete_row(p_api_version,
762: p_init_msg_list,
763: x_return_status,
764: x_msg_count,
765: x_msg_data,
790: , p5_a9 NUMBER := 0-1962.0724
791: )
792:
793: as
794: ddp_agrv_rec okl_agr_pvt.agrv_rec_type;
795: ddindx binary_integer; indx binary_integer;
796: begin
797:
798: -- copy data to the local IN or IN-OUT args, if any
812: ddp_agrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
813: ddp_agrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
814:
815: -- here's the delegated call to the old PL/SQL routine
816: okl_agr_pvt.validate_row(p_api_version,
817: p_init_msg_list,
818: x_return_status,
819: x_msg_count,
820: x_msg_data,
845: , p5_a9 JTF_NUMBER_TABLE
846: )
847:
848: as
849: ddp_agrv_tbl okl_agr_pvt.agrv_tbl_type;
850: ddindx binary_integer; indx binary_integer;
851: begin
852:
853: -- copy data to the local IN or IN-OUT args, if any
855:
856:
857:
858:
859: okl_agr_pvt_w.rosetta_table_copy_in_p5(ddp_agrv_tbl, p5_a0
860: , p5_a1
861: , p5_a2
862: , p5_a3
863: , p5_a4
868: , p5_a9
869: );
870:
871: -- here's the delegated call to the old PL/SQL routine
872: okl_agr_pvt.validate_row(p_api_version,
873: p_init_msg_list,
874: x_return_status,
875: x_msg_count,
876: x_msg_data,
883:
884:
885: end;
886:
887: end okl_agr_pvt_w;