1: package body okl_leaseapp_template_pvt_w as
2: /* $Header: OKLELATB.pls 120.0 2005/09/16 11:40:48 pagarg noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy okl_leaseapp_template_pvt.error_msgs_tbl_type, a0 JTF_VARCHAR2_TABLE_2500
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_leaseapp_template_pvt_w as
2: /* $Header: OKLELATB.pls 120.0 2005/09/16 11:40:48 pagarg noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy okl_leaseapp_template_pvt.error_msgs_tbl_type, a0 JTF_VARCHAR2_TABLE_2500
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_100
6: ) as
7: ddindx binary_integer; indx binary_integer;
22: end loop;
23: end if;
24: end if;
25: end rosetta_table_copy_in_p3;
26: procedure rosetta_table_copy_out_p3(t okl_leaseapp_template_pvt.error_msgs_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_2500
27: , a1 out nocopy JTF_VARCHAR2_TABLE_100
28: , a2 out nocopy JTF_VARCHAR2_TABLE_100
29: ) as
30: ddindx binary_integer; indx binary_integer;
170: , p8_a25 out nocopy VARCHAR2
171: )
172:
173: as
174: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
175: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
176: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
177: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
178: ddindx binary_integer; indx binary_integer;
171: )
172:
173: as
174: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
175: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
176: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
177: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
178: ddindx binary_integer; indx binary_integer;
179: begin
172:
173: as
174: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
175: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
176: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
177: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
178: ddindx binary_integer; indx binary_integer;
179: begin
180:
173: as
174: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
175: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
176: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
177: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
178: ddindx binary_integer; indx binary_integer;
179: begin
180:
181: -- copy data to the local IN or IN-OUT args, if any
241: ddp_lavv_rec.short_description := p7_a25;
242:
243:
244: -- here's the delegated call to the old PL/SQL routine
245: okl_leaseapp_template_pvt.create_leaseapp_template(p_api_version,
246: p_init_msg_list,
247: x_return_status,
248: x_msg_count,
249: x_msg_data,
430: , p_ident_flag VARCHAR2
431: )
432:
433: as
434: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
435: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
436: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
437: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
438: ddindx binary_integer; indx binary_integer;
431: )
432:
433: as
434: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
435: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
436: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
437: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
438: ddindx binary_integer; indx binary_integer;
439: begin
432:
433: as
434: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
435: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
436: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
437: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
438: ddindx binary_integer; indx binary_integer;
439: begin
440:
433: as
434: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
435: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
436: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
437: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
438: ddindx binary_integer; indx binary_integer;
439: begin
440:
441: -- copy data to the local IN or IN-OUT args, if any
502:
503:
504:
505: -- here's the delegated call to the old PL/SQL routine
506: okl_leaseapp_template_pvt.update_leaseapp_template(p_api_version,
507: p_init_msg_list,
508: x_return_status,
509: x_msg_count,
510: x_msg_data,
693: , p_mode VARCHAR2
694: )
695:
696: as
697: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
698: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
699: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
700: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
701: ddindx binary_integer; indx binary_integer;
694: )
695:
696: as
697: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
698: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
699: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
700: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
701: ddindx binary_integer; indx binary_integer;
702: begin
695:
696: as
697: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
698: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
699: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
700: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
701: ddindx binary_integer; indx binary_integer;
702: begin
703:
696: as
697: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
698: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
699: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
700: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
701: ddindx binary_integer; indx binary_integer;
702: begin
703:
704: -- copy data to the local IN or IN-OUT args, if any
765:
766:
767:
768: -- here's the delegated call to the old PL/SQL routine
769: okl_leaseapp_template_pvt.version_duplicate_lseapp_tmpl(p_api_version,
770: p_init_msg_list,
771: x_return_status,
772: x_msg_count,
773: x_msg_data,
959: , p10_a2 out nocopy JTF_VARCHAR2_TABLE_100
960: )
961:
962: as
963: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
964: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
965: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
966: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
967: ddx_error_msgs_tbl okl_leaseapp_template_pvt.error_msgs_tbl_type;
960: )
961:
962: as
963: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
964: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
965: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
966: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
967: ddx_error_msgs_tbl okl_leaseapp_template_pvt.error_msgs_tbl_type;
968: ddindx binary_integer; indx binary_integer;
961:
962: as
963: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
964: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
965: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
966: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
967: ddx_error_msgs_tbl okl_leaseapp_template_pvt.error_msgs_tbl_type;
968: ddindx binary_integer; indx binary_integer;
969: begin
962: as
963: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
964: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
965: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
966: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
967: ddx_error_msgs_tbl okl_leaseapp_template_pvt.error_msgs_tbl_type;
968: ddindx binary_integer; indx binary_integer;
969: begin
970:
963: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
964: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
965: ddp_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
966: ddx_lavv_rec okl_leaseapp_template_pvt.lavv_rec_type;
967: ddx_error_msgs_tbl okl_leaseapp_template_pvt.error_msgs_tbl_type;
968: ddindx binary_integer; indx binary_integer;
969: begin
970:
971: -- copy data to the local IN or IN-OUT args, if any
1033:
1034:
1035:
1036: -- here's the delegated call to the old PL/SQL routine
1037: okl_leaseapp_template_pvt.validate_lease_app_template(p_api_version,
1038: p_init_msg_list,
1039: x_return_status,
1040: x_msg_count,
1041: x_msg_data,
1109: p8_a24 := ddx_lavv_rec.contract_template_id;
1110: p8_a25 := ddx_lavv_rec.short_description;
1111:
1112:
1113: okl_leaseapp_template_pvt_w.rosetta_table_copy_out_p3(ddx_error_msgs_tbl, p10_a0
1114: , p10_a1
1115: , p10_a2
1116: );
1117: end;
1177: , p6_a26 out nocopy DATE
1178: )
1179:
1180: as
1181: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
1182: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
1183: ddindx binary_integer; indx binary_integer;
1184: begin
1185:
1178: )
1179:
1180: as
1181: ddp_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
1182: ddx_latv_rec okl_leaseapp_template_pvt.latv_rec_type;
1183: ddindx binary_integer; indx binary_integer;
1184: begin
1185:
1186: -- copy data to the local IN or IN-OUT args, if any
1218: ddp_latv_rec.valid_to := p5_a26;
1219:
1220:
1221: -- here's the delegated call to the old PL/SQL routine
1222: okl_leaseapp_template_pvt.max_valid_from_date(p_api_version,
1223: p_init_msg_list,
1224: x_return_status,
1225: x_msg_count,
1226: x_msg_data,
1262: p6_a25 := ddx_latv_rec.valid_from;
1263: p6_a26 := ddx_latv_rec.valid_to;
1264: end;
1265:
1266: end okl_leaseapp_template_pvt_w;