1: package body okl_credit_memo_pvt_w as
2: /* $Header: OKLECRMB.pls 120.4 2007/11/06 07:31:37 veramach 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p1(t out nocopy okl_credit_memo_pvt.credit_tbl, a0 JTF_NUMBER_TABLE
26: , a1 JTF_VARCHAR2_TABLE_100
27: , a2 JTF_VARCHAR2_TABLE_100
28: , a3 JTF_NUMBER_TABLE
29: , a4 JTF_NUMBER_TABLE
56: end loop;
57: end if;
58: end if;
59: end rosetta_table_copy_in_p1;
60: procedure rosetta_table_copy_out_p1(t okl_credit_memo_pvt.credit_tbl, a0 out nocopy JTF_NUMBER_TABLE
61: , a1 out nocopy JTF_VARCHAR2_TABLE_100
62: , a2 out nocopy JTF_VARCHAR2_TABLE_100
63: , a3 out nocopy JTF_NUMBER_TABLE
64: , a4 out nocopy JTF_NUMBER_TABLE
212: )
213:
214: as
215: ddp_credit_date date;
216: ddx_taiv_rec okl_credit_memo_pvt.taiv_rec_type;
217: ddindx binary_integer; indx binary_integer;
218: begin
219:
220: -- copy data to the local IN or IN-OUT args, if any
234:
235:
236:
237: -- here's the delegated call to the old PL/SQL routine
238: okl_credit_memo_pvt.insert_request(p_api_version,
239: p_init_msg_list,
240: p_tld_id,
241: p_credit_amount,
242: p_credit_sty_id,
434: , x_msg_data out nocopy VARCHAR2
435: )
436:
437: as
438: ddp_credit_list okl_credit_memo_pvt.credit_tbl;
439: ddx_taiv_tbl okl_credit_memo_pvt.taiv_tbl_type;
440: ddindx binary_integer; indx binary_integer;
441: begin
442:
435: )
436:
437: as
438: ddp_credit_list okl_credit_memo_pvt.credit_tbl;
439: ddx_taiv_tbl okl_credit_memo_pvt.taiv_tbl_type;
440: ddindx binary_integer; indx binary_integer;
441: begin
442:
443: -- copy data to the local IN or IN-OUT args, if any
442:
443: -- copy data to the local IN or IN-OUT args, if any
444:
445:
446: okl_credit_memo_pvt_w.rosetta_table_copy_in_p1(ddp_credit_list, p2_a0
447: , p2_a1
448: , p2_a2
449: , p2_a3
450: , p2_a4
460:
461:
462:
463: -- here's the delegated call to the old PL/SQL routine
464: okl_credit_memo_pvt.insert_request(p_api_version,
465: p_init_msg_list,
466: ddp_credit_list,
467: p_transaction_source,
468: p_source_trx_number,
648: )
649:
650: as
651: ddp_credit_date date;
652: ddx_taiv_rec okl_credit_memo_pvt.taiv_rec_type;
653: ddindx binary_integer; indx binary_integer;
654: begin
655:
656: -- copy data to the local IN or IN-OUT args, if any
670:
671:
672:
673: -- here's the delegated call to the old PL/SQL routine
674: okl_credit_memo_pvt.insert_on_acc_cm_request(p_api_version,
675: p_init_msg_list,
676: p_tld_id,
677: p_credit_amount,
678: p_credit_sty_id,
777:
778:
779: end;
780:
781: end okl_credit_memo_pvt_w;