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