[Home] [Help]
1: package body okl_transaction_pvt_w as
2: /* $Header: OKLETXNB.pls 120.1 2005/07/12 09:11:53 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_p11(t out nocopy okl_transaction_pvt.rev_tbl_type, a0 JTF_NUMBER_TABLE
23: ) as
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if a0 is not null and a0.count > 0 then
37: end loop;
38: end if;
39: end if;
40: end rosetta_table_copy_in_p11;
41: procedure rosetta_table_copy_out_p11(t okl_transaction_pvt.rev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then
159: )
160:
161: as
162: ddp_trx_date date;
163: ddx_tcnv_rec okl_transaction_pvt.tcnv_rec_type;
164: ddindx binary_integer; indx binary_integer;
165: begin
166:
167: -- copy data to the local IN or IN-OUT args, if any
178:
179:
180:
181: -- here's the delegated call to the old PL/SQL routine
182: okl_transaction_pvt.create_transaction(p_api_version,
183: p_init_msg_list,
184: x_return_status,
185: x_msg_count,
186: x_msg_data,
381: , p7_a82 out nocopy DATE
382: )
383:
384: as
385: ddx_tcnv_rec okl_transaction_pvt.tcnv_rec_type;
386: ddindx binary_integer; indx binary_integer;
387: begin
388:
389: -- copy data to the local IN or IN-OUT args, if any
395:
396:
397:
398: -- here's the delegated call to the old PL/SQL routine
399: okl_transaction_pvt.update_trx_status(p_api_version,
400: p_init_msg_list,
401: x_return_status,
402: x_msg_count,
403: x_msg_data,
508: , p_tsu_code VARCHAR2
509: )
510:
511: as
512: ddp_rev_tbl okl_transaction_pvt.rev_tbl_type;
513: ddindx binary_integer; indx binary_integer;
514: begin
515:
516: -- copy data to the local IN or IN-OUT args, if any
518:
519:
520:
521:
522: okl_transaction_pvt_w.rosetta_table_copy_in_p11(ddp_rev_tbl, p5_a0
523: );
524:
525:
526:
524:
525:
526:
527: -- here's the delegated call to the old PL/SQL routine
528: okl_transaction_pvt.abandon_revisions(p_api_version,
529: p_init_msg_list,
530: x_return_status,
531: x_msg_count,
532: x_msg_data,
567:
568: ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
569:
570: -- here's the delegated call to the old PL/SQL routine
571: okl_transaction_pvt.check_contract_securitized(p_api_version,
572: p_init_msg_list,
573: x_return_status,
574: x_msg_count,
575: x_msg_data,
612:
613: ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
614:
615: -- here's the delegated call to the old PL/SQL routine
616: okl_transaction_pvt.check_contract_securitized(p_api_version,
617: p_init_msg_list,
618: x_return_status,
619: x_msg_count,
620: x_msg_data,
730: )
731:
732: as
733: ddp_trx_date date;
734: ddx_tcnv_rec okl_transaction_pvt.tcnv_rec_type;
735: ddindx binary_integer; indx binary_integer;
736: begin
737:
738: -- copy data to the local IN or IN-OUT args, if any
748:
749:
750:
751: -- here's the delegated call to the old PL/SQL routine
752: okl_transaction_pvt.create_service_transaction(p_api_version,
753: p_init_msg_list,
754: x_return_status,
755: x_msg_count,
756: x_msg_data,
952: )
953:
954: as
955: ddp_trx_date date;
956: ddx_tcnv_rec okl_transaction_pvt.tcnv_rec_type;
957: ddindx binary_integer; indx binary_integer;
958: begin
959:
960: -- copy data to the local IN or IN-OUT args, if any
969:
970:
971:
972: -- here's the delegated call to the old PL/SQL routine
973: okl_transaction_pvt.create_ppd_transaction(p_api_version,
974: p_init_msg_list,
975: x_return_status,
976: x_msg_count,
977: x_msg_data,
1075: p9_a81 := ddx_tcnv_rec.source_trx_type;
1076: p9_a82 := ddx_tcnv_rec.canceled_date;
1077: end;
1078:
1079: end okl_transaction_pvt_w;