[Home] [Help]
1: package body cn_pay_element_inputs_pvt_w as
2: /* $Header: cnwqpib.pls 115.3 2002/02/05 00:29:12 pkm 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:
18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out cn_pay_element_inputs_pvt.pay_element_input_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_DATE_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_VARCHAR2_TABLE_100
93: end loop;
94: end if;
95: end if;
96: end rosetta_table_copy_in_p2;
97: procedure rosetta_table_copy_out_p2(t cn_pay_element_inputs_pvt.pay_element_input_tbl_type, a0 out JTF_VARCHAR2_TABLE_100
98: , a1 out JTF_DATE_TABLE
99: , a2 out JTF_DATE_TABLE
100: , a3 out JTF_VARCHAR2_TABLE_100
101: , a4 out JTF_VARCHAR2_TABLE_100
257: end if;
258: end if;
259: end rosetta_table_copy_out_p2;
260:
261: procedure rosetta_table_copy_in_p5(t out cn_pay_element_inputs_pvt.pay_element_input_out_tbl_type, a0 JTF_NUMBER_TABLE
262: , a1 JTF_NUMBER_TABLE
263: , a2 JTF_NUMBER_TABLE
264: , a3 JTF_NUMBER_TABLE
265: , a4 JTF_VARCHAR2_TABLE_100
300: end loop;
301: end if;
302: end if;
303: end rosetta_table_copy_in_p5;
304: procedure rosetta_table_copy_out_p5(t cn_pay_element_inputs_pvt.pay_element_input_out_tbl_type, a0 out JTF_NUMBER_TABLE
305: , a1 out JTF_NUMBER_TABLE
306: , a2 out JTF_NUMBER_TABLE
307: , a3 out JTF_NUMBER_TABLE
308: , a4 out JTF_VARCHAR2_TABLE_100
424: , x_pay_element_input_id out NUMBER
425: , x_loading_status out VARCHAR2
426: )
427: as
428: ddp_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
429: ddindx binary_integer; indx binary_integer;
430: begin
431:
432: -- copy data to the local IN or IN-OUT args, if any
469:
470:
471:
472: -- here's the delegated call to the old PL/SQL routine
473: cn_pay_element_inputs_pvt.create_pay_element_input(p_api_version,
474: p_init_msg_list,
475: p_commit,
476: p_validation_level,
477: x_return_status,
560: , p8_a28 VARCHAR2
561: , x_loading_status out VARCHAR2
562: )
563: as
564: ddpo_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
565: ddp_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
566: ddindx binary_integer; indx binary_integer;
567: begin
568:
561: , x_loading_status out VARCHAR2
562: )
563: as
564: ddpo_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
565: ddp_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
566: ddindx binary_integer; indx binary_integer;
567: begin
568:
569: -- copy data to the local IN or IN-OUT args, if any
635: ddp_pay_element_input_rec.attribute15 := p8_a28;
636:
637:
638: -- here's the delegated call to the old PL/SQL routine
639: cn_pay_element_inputs_pvt.update_pay_element_input(p_api_version,
640: p_init_msg_list,
641: p_commit,
642: p_validation_level,
643: x_return_status,
687: , x_status out VARCHAR2
688: , x_loading_status out VARCHAR2
689: )
690: as
691: ddx_pay_element_input_tbl cn_pay_element_inputs_pvt.pay_element_input_out_tbl_type;
692: ddindx binary_integer; indx binary_integer;
693: begin
694:
695: -- copy data to the local IN or IN-OUT args, if any
708:
709:
710:
711: -- here's the delegated call to the old PL/SQL routine
712: cn_pay_element_inputs_pvt.get_pay_element_input(p_api_version,
713: p_init_msg_list,
714: p_commit,
715: p_validation_level,
716: x_return_status,
736:
737:
738:
739:
740: cn_pay_element_inputs_pvt_w.rosetta_table_copy_out_p5(ddx_pay_element_input_tbl, p11_a0
741: , p11_a1
742: , p11_a2
743: , p11_a3
744: , p11_a4
755:
756:
757: end;
758:
759: end cn_pay_element_inputs_pvt_w;