[Home] [Help]
PACKAGE BODY: APPS.OKL_CASH_APPL_RULES_PUB_W
Source
1 package body okl_cash_appl_rules_pub_w as
2 /* $Header: OKLUCAPB.pls 120.3 2007/08/02 15:52:59 nikshah 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure okl_cash_applic(p_api_version NUMBER
26 , p_init_msg_list VARCHAR2
27 , x_return_status out nocopy VARCHAR2
28 , x_msg_count out nocopy NUMBER
29 , x_msg_data out nocopy VARCHAR2
30 , p_cons_bill_id NUMBER
31 , p_cons_bill_num VARCHAR2
32 , p_currency_code VARCHAR2
33 , p_currency_conv_type VARCHAR2
34 , p_currency_conv_date date
35 , p_currency_conv_rate NUMBER
36 , p_irm_id NUMBER
37 , p_check_number VARCHAR2
38 , p_rcpt_amount NUMBER
39 , p_contract_id NUMBER
40 , p_contract_num VARCHAR2
41 , p_customer_id NUMBER
42 , p_customer_num NUMBER
43 , p_gl_date date
44 , p_receipt_date date
45 , p_bank_account_id NUMBER
46 , p_comments VARCHAR2
47 , p_create_receipt_flag VARCHAR2
48 )
49
50 as
51 ddp_currency_conv_date date;
52 ddp_gl_date date;
53 ddp_receipt_date date;
54 ddindx binary_integer; indx binary_integer;
55 begin
56
57 -- copy data to the local IN or IN-OUT args, if any
58
59
60
61
62
63
64
65
66
67 ddp_currency_conv_date := rosetta_g_miss_date_in_map(p_currency_conv_date);
68
69
70
71
72
73
74
75
76
77 ddp_gl_date := rosetta_g_miss_date_in_map(p_gl_date);
78
79 ddp_receipt_date := rosetta_g_miss_date_in_map(p_receipt_date);
80
81
82
83
84 -- here's the delegated call to the old PL/SQL routine
85 okl_cash_appl_rules_pub.okl_cash_applic(p_api_version,
86 p_init_msg_list,
87 x_return_status,
88 x_msg_count,
89 x_msg_data,
90 p_cons_bill_id,
91 p_cons_bill_num,
92 p_currency_code,
93 p_currency_conv_type,
94 ddp_currency_conv_date,
95 p_currency_conv_rate,
96 p_irm_id,
97 p_check_number,
98 p_rcpt_amount,
99 p_contract_id,
100 p_contract_num,
101 p_customer_id,
102 p_customer_num,
103 ddp_gl_date,
104 ddp_receipt_date,
105 p_bank_account_id,
106 p_comments,
107 p_create_receipt_flag);
108
109 -- copy data back from the local variables to OUT or IN-OUT args, if any
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132 end;
133
134 procedure create_manual_receipt(p_api_version NUMBER
135 , p_init_msg_list VARCHAR2
136 , x_return_status out nocopy VARCHAR2
137 , x_msg_count out nocopy NUMBER
138 , x_msg_data out nocopy VARCHAR2
139 , p_cons_bill_id NUMBER
140 , p_ar_inv_id NUMBER
141 , p_contract_id NUMBER
142 , x_cash_receipt_id out nocopy NUMBER
143 , p8_a0 NUMBER := 0-1962.0724
144 , p8_a1 NUMBER := 0-1962.0724
145 , p8_a2 VARCHAR2 := fnd_api.g_miss_char
146 , p8_a3 VARCHAR2 := fnd_api.g_miss_char
147 , p8_a4 NUMBER := 0-1962.0724
148 , p8_a5 VARCHAR2 := fnd_api.g_miss_char
149 , p8_a6 DATE := fnd_api.g_miss_date
150 , p8_a7 VARCHAR2 := fnd_api.g_miss_char
151 , p8_a8 NUMBER := 0-1962.0724
152 , p8_a9 DATE := fnd_api.g_miss_date
153 , p8_a10 NUMBER := 0-1962.0724
154 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
155 , p8_a12 VARCHAR2 := fnd_api.g_miss_char
156 , p8_a13 NUMBER := 0-1962.0724
157 , p8_a14 NUMBER := 0-1962.0724
158 , p8_a15 NUMBER := 0-1962.0724
159 , p8_a16 DATE := fnd_api.g_miss_date
160 , p8_a17 VARCHAR2 := fnd_api.g_miss_char
161 , p8_a18 VARCHAR2 := fnd_api.g_miss_char
162 , p8_a19 VARCHAR2 := fnd_api.g_miss_char
163 , p8_a20 VARCHAR2 := fnd_api.g_miss_char
164 , p8_a21 VARCHAR2 := fnd_api.g_miss_char
165 , p8_a22 VARCHAR2 := fnd_api.g_miss_char
166 , p8_a23 VARCHAR2 := fnd_api.g_miss_char
167 , p8_a24 VARCHAR2 := fnd_api.g_miss_char
168 , p8_a25 VARCHAR2 := fnd_api.g_miss_char
169 , p8_a26 VARCHAR2 := fnd_api.g_miss_char
170 , p8_a27 VARCHAR2 := fnd_api.g_miss_char
171 , p8_a28 VARCHAR2 := fnd_api.g_miss_char
172 , p8_a29 VARCHAR2 := fnd_api.g_miss_char
173 , p8_a30 VARCHAR2 := fnd_api.g_miss_char
174 , p8_a31 VARCHAR2 := fnd_api.g_miss_char
175 , p8_a32 VARCHAR2 := fnd_api.g_miss_char
176 )
177
178 as
179 ddp_rcpt_rec okl_cash_appl_rules.rcpt_rec_type;
180 ddindx binary_integer; indx binary_integer;
181 begin
182
183 -- copy data to the local IN or IN-OUT args, if any
184
185
186
187
188
189
190
191
192 ddp_rcpt_rec.cash_receipt_id := rosetta_g_miss_num_map(p8_a0);
193 ddp_rcpt_rec.amount := rosetta_g_miss_num_map(p8_a1);
194 ddp_rcpt_rec.currency_code := p8_a2;
195 ddp_rcpt_rec.customer_number := p8_a3;
196 ddp_rcpt_rec.customer_id := rosetta_g_miss_num_map(p8_a4);
197 ddp_rcpt_rec.receipt_number := p8_a5;
198 ddp_rcpt_rec.receipt_date := rosetta_g_miss_date_in_map(p8_a6);
199 ddp_rcpt_rec.exchange_rate_type := p8_a7;
200 ddp_rcpt_rec.exchange_rate := rosetta_g_miss_num_map(p8_a8);
201 ddp_rcpt_rec.exchange_date := rosetta_g_miss_date_in_map(p8_a9);
202 ddp_rcpt_rec.remittance_bank_account_id := rosetta_g_miss_num_map(p8_a10);
203 ddp_rcpt_rec.remittance_bank_account_num := p8_a11;
204 ddp_rcpt_rec.remittance_bank_account_name := p8_a12;
205 ddp_rcpt_rec.payment_trx_extension_id := rosetta_g_miss_num_map(p8_a13);
206 ddp_rcpt_rec.receipt_method_id := rosetta_g_miss_num_map(p8_a14);
207 ddp_rcpt_rec.org_id := rosetta_g_miss_num_map(p8_a15);
208 ddp_rcpt_rec.gl_date := rosetta_g_miss_date_in_map(p8_a16);
209 ddp_rcpt_rec.dff_attribute_category := p8_a17;
210 ddp_rcpt_rec.dff_attribute1 := p8_a18;
211 ddp_rcpt_rec.dff_attribute2 := p8_a19;
212 ddp_rcpt_rec.dff_attribute3 := p8_a20;
213 ddp_rcpt_rec.dff_attribute4 := p8_a21;
214 ddp_rcpt_rec.dff_attribute5 := p8_a22;
215 ddp_rcpt_rec.dff_attribute6 := p8_a23;
216 ddp_rcpt_rec.dff_attribute7 := p8_a24;
217 ddp_rcpt_rec.dff_attribute8 := p8_a25;
218 ddp_rcpt_rec.dff_attribute9 := p8_a26;
219 ddp_rcpt_rec.dff_attribute10 := p8_a27;
220 ddp_rcpt_rec.dff_attribute11 := p8_a28;
221 ddp_rcpt_rec.dff_attribute12 := p8_a29;
222 ddp_rcpt_rec.dff_attribute13 := p8_a30;
223 ddp_rcpt_rec.dff_attribute14 := p8_a31;
224 ddp_rcpt_rec.dff_attribute15 := p8_a32;
225
226
227 -- here's the delegated call to the old PL/SQL routine
228 okl_cash_appl_rules_pub.create_manual_receipt(p_api_version,
229 p_init_msg_list,
230 x_return_status,
231 x_msg_count,
232 x_msg_data,
233 p_cons_bill_id,
234 p_ar_inv_id,
235 p_contract_id,
236 ddp_rcpt_rec,
237 x_cash_receipt_id);
238
239 -- copy data back from the local variables to OUT or IN-OUT args, if any
240
241
242
243
244
245
246
247
248
249 end;
250
251 end okl_cash_appl_rules_pub_w;