1: package body okl_credit_mgnt_pvt_w as
2: /* $Header: OKLECMTB.pls 115.3 2003/01/20 17:38:22 rgalipo 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:
45: , p11_a12 NUMBER := 0-1962.0724
46: )
47:
48: as
49: ddp_chr_rec okl_credit_mgnt_pvt.l_chr_rec;
50: ddindx binary_integer; indx binary_integer;
51: begin
52:
53: -- copy data to the local IN or IN-OUT args, if any
76: ddp_chr_rec.party_contact_id := rosetta_g_miss_num_map(p11_a11);
77: ddp_chr_rec.org_id := rosetta_g_miss_num_map(p11_a12);
78:
79: -- here's the delegated call to the old PL/SQL routine
80: okl_credit_mgnt_pvt.submit_credit_request(p_api_version,
81: p_init_msg_list,
82: x_return_status,
83: x_msg_count,
84: x_msg_data,
125: , p6_a12 out NOCOPY NUMBER
126: )
127:
128: as
129: ddx_chr_rec okl_credit_mgnt_pvt.l_chr_rec;
130: ddindx binary_integer; indx binary_integer;
131: begin
132:
133: -- copy data to the local IN or IN-OUT args, if any
138:
139:
140:
141: -- here's the delegated call to the old PL/SQL routine
142: okl_credit_mgnt_pvt.compile_credit_request(p_api_version,
143: p_init_msg_list,
144: x_return_status,
145: x_msg_count,
146: x_msg_data,
168: p6_a11 := rosetta_g_miss_num_map(ddx_chr_rec.party_contact_id);
169: p6_a12 := rosetta_g_miss_num_map(ddx_chr_rec.org_id);
170: end;
171:
172: end okl_credit_mgnt_pvt_w;