1: package body okl_pmr_pvt_w as
2: /* $Header: OKLIPMRB.pls 120.1 2005/07/14 11:58:00 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_pmr_pvt.pmr_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_200
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
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_pmr_pvt.pmr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
60: , a1 out nocopy JTF_VARCHAR2_TABLE_200
61: , a2 out nocopy JTF_VARCHAR2_TABLE_200
62: , a3 out nocopy JTF_NUMBER_TABLE
63: , a4 out nocopy JTF_VARCHAR2_TABLE_100
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_pmr_pvt.okl_parameters_tl_tbl_type, a0 JTF_NUMBER_TABLE
129: , a1 JTF_VARCHAR2_TABLE_100
130: , a2 JTF_VARCHAR2_TABLE_100
131: , a3 JTF_VARCHAR2_TABLE_100
132: , a4 JTF_VARCHAR2_TABLE_2000
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_pmr_pvt.okl_parameters_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
166: , a1 out nocopy JTF_VARCHAR2_TABLE_100
167: , a2 out nocopy JTF_VARCHAR2_TABLE_100
168: , a3 out nocopy JTF_VARCHAR2_TABLE_100
169: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
230: end if;
231: end if;
232: end rosetta_table_copy_out_p5;
233:
234: procedure rosetta_table_copy_in_p8(t out nocopy okl_pmr_pvt.pmrv_tbl_type, a0 JTF_NUMBER_TABLE
235: , a1 JTF_NUMBER_TABLE
236: , a2 JTF_VARCHAR2_TABLE_100
237: , a3 JTF_VARCHAR2_TABLE_100
238: , a4 JTF_VARCHAR2_TABLE_200
271: end loop;
272: end if;
273: end if;
274: end rosetta_table_copy_in_p8;
275: procedure rosetta_table_copy_out_p8(t okl_pmr_pvt.pmrv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
276: , a1 out nocopy JTF_NUMBER_TABLE
277: , a2 out nocopy JTF_VARCHAR2_TABLE_100
278: , a3 out nocopy JTF_VARCHAR2_TABLE_100
279: , a4 out nocopy JTF_VARCHAR2_TABLE_200
382: , p5_a11 NUMBER := 0-1962.0724
383: )
384:
385: as
386: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
387: ddx_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
388: ddindx binary_integer; indx binary_integer;
389: begin
390:
383: )
384:
385: as
386: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
387: ddx_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
388: ddindx binary_integer; indx binary_integer;
389: begin
390:
391: -- copy data to the local IN or IN-OUT args, if any
408: ddp_pmrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
409:
410:
411: -- here's the delegated call to the old PL/SQL routine
412: okl_pmr_pvt.insert_row(p_api_version,
413: p_init_msg_list,
414: x_return_status,
415: x_msg_count,
416: x_msg_data,
469: , p6_a11 out nocopy JTF_NUMBER_TABLE
470: )
471:
472: as
473: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
474: ddx_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
475: ddindx binary_integer; indx binary_integer;
476: begin
477:
470: )
471:
472: as
473: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
474: ddx_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
475: ddindx binary_integer; indx binary_integer;
476: begin
477:
478: -- copy data to the local IN or IN-OUT args, if any
480:
481:
482:
483:
484: okl_pmr_pvt_w.rosetta_table_copy_in_p8(ddp_pmrv_tbl, p5_a0
485: , p5_a1
486: , p5_a2
487: , p5_a3
488: , p5_a4
496: );
497:
498:
499: -- here's the delegated call to the old PL/SQL routine
500: okl_pmr_pvt.insert_row(p_api_version,
501: p_init_msg_list,
502: x_return_status,
503: x_msg_count,
504: x_msg_data,
511:
512:
513:
514:
515: okl_pmr_pvt_w.rosetta_table_copy_out_p8(ddx_pmrv_tbl, p6_a0
516: , p6_a1
517: , p6_a2
518: , p6_a3
519: , p6_a4
546: , p5_a11 NUMBER := 0-1962.0724
547: )
548:
549: as
550: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
551: ddindx binary_integer; indx binary_integer;
552: begin
553:
554: -- copy data to the local IN or IN-OUT args, if any
570: ddp_pmrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
571: ddp_pmrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
572:
573: -- here's the delegated call to the old PL/SQL routine
574: okl_pmr_pvt.lock_row(p_api_version,
575: p_init_msg_list,
576: x_return_status,
577: x_msg_count,
578: x_msg_data,
605: , p5_a11 JTF_NUMBER_TABLE
606: )
607:
608: as
609: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
610: ddindx binary_integer; indx binary_integer;
611: begin
612:
613: -- copy data to the local IN or IN-OUT args, if any
615:
616:
617:
618:
619: okl_pmr_pvt_w.rosetta_table_copy_in_p8(ddp_pmrv_tbl, p5_a0
620: , p5_a1
621: , p5_a2
622: , p5_a3
623: , p5_a4
630: , p5_a11
631: );
632:
633: -- here's the delegated call to the old PL/SQL routine
634: okl_pmr_pvt.lock_row(p_api_version,
635: p_init_msg_list,
636: x_return_status,
637: x_msg_count,
638: x_msg_data,
677: , p5_a11 NUMBER := 0-1962.0724
678: )
679:
680: as
681: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
682: ddx_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
683: ddindx binary_integer; indx binary_integer;
684: begin
685:
678: )
679:
680: as
681: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
682: ddx_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
683: ddindx binary_integer; indx binary_integer;
684: begin
685:
686: -- copy data to the local IN or IN-OUT args, if any
703: ddp_pmrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
704:
705:
706: -- here's the delegated call to the old PL/SQL routine
707: okl_pmr_pvt.update_row(p_api_version,
708: p_init_msg_list,
709: x_return_status,
710: x_msg_count,
711: x_msg_data,
764: , p6_a11 out nocopy JTF_NUMBER_TABLE
765: )
766:
767: as
768: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
769: ddx_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
770: ddindx binary_integer; indx binary_integer;
771: begin
772:
765: )
766:
767: as
768: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
769: ddx_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
770: ddindx binary_integer; indx binary_integer;
771: begin
772:
773: -- copy data to the local IN or IN-OUT args, if any
775:
776:
777:
778:
779: okl_pmr_pvt_w.rosetta_table_copy_in_p8(ddp_pmrv_tbl, p5_a0
780: , p5_a1
781: , p5_a2
782: , p5_a3
783: , p5_a4
791: );
792:
793:
794: -- here's the delegated call to the old PL/SQL routine
795: okl_pmr_pvt.update_row(p_api_version,
796: p_init_msg_list,
797: x_return_status,
798: x_msg_count,
799: x_msg_data,
806:
807:
808:
809:
810: okl_pmr_pvt_w.rosetta_table_copy_out_p8(ddx_pmrv_tbl, p6_a0
811: , p6_a1
812: , p6_a2
813: , p6_a3
814: , p6_a4
841: , p5_a11 NUMBER := 0-1962.0724
842: )
843:
844: as
845: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
846: ddindx binary_integer; indx binary_integer;
847: begin
848:
849: -- copy data to the local IN or IN-OUT args, if any
865: ddp_pmrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
866: ddp_pmrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
867:
868: -- here's the delegated call to the old PL/SQL routine
869: okl_pmr_pvt.delete_row(p_api_version,
870: p_init_msg_list,
871: x_return_status,
872: x_msg_count,
873: x_msg_data,
900: , p5_a11 JTF_NUMBER_TABLE
901: )
902:
903: as
904: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
905: ddindx binary_integer; indx binary_integer;
906: begin
907:
908: -- copy data to the local IN or IN-OUT args, if any
910:
911:
912:
913:
914: okl_pmr_pvt_w.rosetta_table_copy_in_p8(ddp_pmrv_tbl, p5_a0
915: , p5_a1
916: , p5_a2
917: , p5_a3
918: , p5_a4
925: , p5_a11
926: );
927:
928: -- here's the delegated call to the old PL/SQL routine
929: okl_pmr_pvt.delete_row(p_api_version,
930: p_init_msg_list,
931: x_return_status,
932: x_msg_count,
933: x_msg_data,
960: , p5_a11 NUMBER := 0-1962.0724
961: )
962:
963: as
964: ddp_pmrv_rec okl_pmr_pvt.pmrv_rec_type;
965: ddindx binary_integer; indx binary_integer;
966: begin
967:
968: -- copy data to the local IN or IN-OUT args, if any
984: ddp_pmrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
985: ddp_pmrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
986:
987: -- here's the delegated call to the old PL/SQL routine
988: okl_pmr_pvt.validate_row(p_api_version,
989: p_init_msg_list,
990: x_return_status,
991: x_msg_count,
992: x_msg_data,
1019: , p5_a11 JTF_NUMBER_TABLE
1020: )
1021:
1022: as
1023: ddp_pmrv_tbl okl_pmr_pvt.pmrv_tbl_type;
1024: ddindx binary_integer; indx binary_integer;
1025: begin
1026:
1027: -- copy data to the local IN or IN-OUT args, if any
1029:
1030:
1031:
1032:
1033: okl_pmr_pvt_w.rosetta_table_copy_in_p8(ddp_pmrv_tbl, p5_a0
1034: , p5_a1
1035: , p5_a2
1036: , p5_a3
1037: , p5_a4
1044: , p5_a11
1045: );
1046:
1047: -- here's the delegated call to the old PL/SQL routine
1048: okl_pmr_pvt.validate_row(p_api_version,
1049: p_init_msg_list,
1050: x_return_status,
1051: x_msg_count,
1052: x_msg_data,
1059:
1060:
1061: end;
1062:
1063: end okl_pmr_pvt_w;