[Home] [Help]
PACKAGE BODY: APPS.OKL_FUNDING_PVT_W
Source
1 package body okl_funding_pvt_w as
2 /* $Header: OKLEFUNB.pls 120.4 2007/11/20 08:27:11 dcshanmu 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');
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 get_fund_summary(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_contract_id NUMBER
31 , p6_a0 out nocopy NUMBER
32 , p6_a1 out nocopy NUMBER
33 , p6_a2 out nocopy NUMBER
34 , p6_a3 out nocopy NUMBER
35 , p6_a4 out nocopy NUMBER
36 , p6_a5 out nocopy NUMBER
37 , p6_a6 out nocopy NUMBER
38 , p6_a7 out nocopy NUMBER
39 , p6_a8 out nocopy NUMBER
40 , p6_a9 out nocopy NUMBER
41 )
42
43 as
44 ddx_fnd_rec okl_funding_pvt.fnd_rec_type;
45 ddindx binary_integer; indx binary_integer;
46 begin
47
48 -- copy data to the local IN or IN-OUT args, if any
49
50
51
52
53
54
55
56 -- here's the delegated call to the old PL/SQL routine
57 okl_funding_pvt.get_fund_summary(p_api_version,
58 p_init_msg_list,
59 x_return_status,
60 x_msg_count,
61 x_msg_data,
62 p_contract_id,
63 ddx_fnd_rec);
64
65 -- copy data back from the local variables to OUT or IN-OUT args, if any
66
67
68
69
70
71
72 p6_a0 := rosetta_g_miss_num_map(ddx_fnd_rec.total_fundable_amount);
73 p6_a1 := rosetta_g_miss_num_map(ddx_fnd_rec.total_pre_funded);
74 p6_a2 := rosetta_g_miss_num_map(ddx_fnd_rec.total_assets_funded);
75 p6_a3 := rosetta_g_miss_num_map(ddx_fnd_rec.total_expenses_funded);
76 p6_a4 := rosetta_g_miss_num_map(ddx_fnd_rec.total_adjustments);
77 p6_a5 := rosetta_g_miss_num_map(ddx_fnd_rec.total_remaining_to_fund);
78 p6_a6 := rosetta_g_miss_num_map(ddx_fnd_rec.total_supplier_retention);
79 p6_a7 := rosetta_g_miss_num_map(ddx_fnd_rec.total_borrower_payments);
80 p6_a8 := rosetta_g_miss_num_map(ddx_fnd_rec.total_subsidies_funded);
81 p6_a9 := rosetta_g_miss_num_map(ddx_fnd_rec.total_manual_disbursement);
82 end;
83
84 procedure create_funding_header(p_api_version NUMBER
85 , p_init_msg_list VARCHAR2
86 , x_return_status out nocopy VARCHAR2
87 , x_msg_count out nocopy NUMBER
88 , x_msg_data out nocopy VARCHAR2
89 , p6_a0 out nocopy NUMBER
90 , p6_a1 out nocopy NUMBER
91 , p6_a2 out nocopy VARCHAR2
92 , p6_a3 out nocopy NUMBER
93 , p6_a4 out nocopy VARCHAR2
94 , p6_a5 out nocopy NUMBER
95 , p6_a6 out nocopy VARCHAR2
96 , p6_a7 out nocopy NUMBER
97 , p6_a8 out nocopy NUMBER
98 , p6_a9 out nocopy NUMBER
99 , p6_a10 out nocopy NUMBER
100 , p6_a11 out nocopy NUMBER
101 , p6_a12 out nocopy NUMBER
102 , p6_a13 out nocopy NUMBER
103 , p6_a14 out nocopy NUMBER
104 , p6_a15 out nocopy NUMBER
105 , p6_a16 out nocopy NUMBER
106 , p6_a17 out nocopy VARCHAR2
107 , p6_a18 out nocopy VARCHAR2
108 , p6_a19 out nocopy NUMBER
109 , p6_a20 out nocopy NUMBER
110 , p6_a21 out nocopy NUMBER
111 , p6_a22 out nocopy DATE
112 , p6_a23 out nocopy VARCHAR2
113 , p6_a24 out nocopy DATE
114 , p6_a25 out nocopy DATE
115 , p6_a26 out nocopy VARCHAR2
116 , p6_a27 out nocopy VARCHAR2
117 , p6_a28 out nocopy VARCHAR2
118 , p6_a29 out nocopy VARCHAR2
119 , p6_a30 out nocopy VARCHAR2
120 , p6_a31 out nocopy DATE
121 , p6_a32 out nocopy VARCHAR2
122 , p6_a33 out nocopy VARCHAR2
123 , p6_a34 out nocopy NUMBER
124 , p6_a35 out nocopy DATE
125 , p6_a36 out nocopy NUMBER
126 , p6_a37 out nocopy VARCHAR2
127 , p6_a38 out nocopy VARCHAR2
128 , p6_a39 out nocopy VARCHAR2
129 , p6_a40 out nocopy VARCHAR2
130 , p6_a41 out nocopy VARCHAR2
131 , p6_a42 out nocopy VARCHAR2
132 , p6_a43 out nocopy VARCHAR2
133 , p6_a44 out nocopy VARCHAR2
134 , p6_a45 out nocopy VARCHAR2
135 , p6_a46 out nocopy VARCHAR2
136 , p6_a47 out nocopy VARCHAR2
137 , p6_a48 out nocopy VARCHAR2
138 , p6_a49 out nocopy VARCHAR2
139 , p6_a50 out nocopy VARCHAR2
140 , p6_a51 out nocopy VARCHAR2
141 , p6_a52 out nocopy VARCHAR2
142 , p6_a53 out nocopy DATE
143 , p6_a54 out nocopy VARCHAR2
144 , p6_a55 out nocopy NUMBER
145 , p6_a56 out nocopy NUMBER
146 , p6_a57 out nocopy NUMBER
147 , p6_a58 out nocopy NUMBER
148 , p6_a59 out nocopy NUMBER
149 , p6_a60 out nocopy DATE
150 , p6_a61 out nocopy NUMBER
151 , p6_a62 out nocopy NUMBER
152 , p6_a63 out nocopy DATE
153 , p6_a64 out nocopy NUMBER
154 , p6_a65 out nocopy DATE
155 , p6_a66 out nocopy NUMBER
156 , p6_a67 out nocopy VARCHAR2
157 , p6_a68 out nocopy VARCHAR2
158 , p6_a69 out nocopy VARCHAR2
159 , p6_a70 out nocopy VARCHAR2
160 , p6_a71 out nocopy NUMBER
161 , p6_a72 out nocopy NUMBER
162 , p6_a73 out nocopy DATE
163 , p5_a0 NUMBER := 0-1962.0724
164 , p5_a1 NUMBER := 0-1962.0724
165 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
166 , p5_a3 NUMBER := 0-1962.0724
167 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
168 , p5_a5 NUMBER := 0-1962.0724
169 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
170 , p5_a7 NUMBER := 0-1962.0724
171 , p5_a8 NUMBER := 0-1962.0724
172 , p5_a9 NUMBER := 0-1962.0724
173 , p5_a10 NUMBER := 0-1962.0724
174 , p5_a11 NUMBER := 0-1962.0724
175 , p5_a12 NUMBER := 0-1962.0724
176 , p5_a13 NUMBER := 0-1962.0724
177 , p5_a14 NUMBER := 0-1962.0724
178 , p5_a15 NUMBER := 0-1962.0724
179 , p5_a16 NUMBER := 0-1962.0724
180 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
181 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
182 , p5_a19 NUMBER := 0-1962.0724
183 , p5_a20 NUMBER := 0-1962.0724
184 , p5_a21 NUMBER := 0-1962.0724
185 , p5_a22 DATE := fnd_api.g_miss_date
186 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
187 , p5_a24 DATE := fnd_api.g_miss_date
188 , p5_a25 DATE := fnd_api.g_miss_date
189 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
190 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
191 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
192 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
193 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
194 , p5_a31 DATE := fnd_api.g_miss_date
195 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
196 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
197 , p5_a34 NUMBER := 0-1962.0724
198 , p5_a35 DATE := fnd_api.g_miss_date
199 , p5_a36 NUMBER := 0-1962.0724
200 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
201 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
202 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
203 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
204 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
205 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
206 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
207 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
208 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
209 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
210 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
211 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
212 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
213 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
214 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
215 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
216 , p5_a53 DATE := fnd_api.g_miss_date
217 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
218 , p5_a55 NUMBER := 0-1962.0724
219 , p5_a56 NUMBER := 0-1962.0724
220 , p5_a57 NUMBER := 0-1962.0724
221 , p5_a58 NUMBER := 0-1962.0724
222 , p5_a59 NUMBER := 0-1962.0724
223 , p5_a60 DATE := fnd_api.g_miss_date
224 , p5_a61 NUMBER := 0-1962.0724
225 , p5_a62 NUMBER := 0-1962.0724
226 , p5_a63 DATE := fnd_api.g_miss_date
227 , p5_a64 NUMBER := 0-1962.0724
228 , p5_a65 DATE := fnd_api.g_miss_date
229 , p5_a66 NUMBER := 0-1962.0724
230 , p5_a67 VARCHAR2 := fnd_api.g_miss_char
231 , p5_a68 VARCHAR2 := fnd_api.g_miss_char
232 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
233 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
234 , p5_a71 NUMBER := 0-1962.0724
235 , p5_a72 NUMBER := 0-1962.0724
236 , p5_a73 DATE := fnd_api.g_miss_date
237 )
238
239 as
240 ddp_tapv_rec okl_funding_pvt.tapv_rec_type;
241 ddx_tapv_rec okl_funding_pvt.tapv_rec_type;
242 ddindx binary_integer; indx binary_integer;
243 begin
244
245 -- copy data to the local IN or IN-OUT args, if any
246
247
248
249
250
251 ddp_tapv_rec.id := rosetta_g_miss_num_map(p5_a0);
252 ddp_tapv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
253 ddp_tapv_rec.sfwt_flag := p5_a2;
254 ddp_tapv_rec.cct_id := rosetta_g_miss_num_map(p5_a3);
255 ddp_tapv_rec.currency_code := p5_a4;
256 ddp_tapv_rec.ccf_id := rosetta_g_miss_num_map(p5_a5);
257 ddp_tapv_rec.funding_type_code := p5_a6;
258 ddp_tapv_rec.khr_id := rosetta_g_miss_num_map(p5_a7);
259 ddp_tapv_rec.art_id := rosetta_g_miss_num_map(p5_a8);
260 ddp_tapv_rec.tap_id_reverses := rosetta_g_miss_num_map(p5_a9);
261 ddp_tapv_rec.ippt_id := rosetta_g_miss_num_map(p5_a10);
262 ddp_tapv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
263 ddp_tapv_rec.ipvs_id := rosetta_g_miss_num_map(p5_a12);
264 ddp_tapv_rec.tcn_id := rosetta_g_miss_num_map(p5_a13);
265 ddp_tapv_rec.vpa_id := rosetta_g_miss_num_map(p5_a14);
266 ddp_tapv_rec.ipt_id := rosetta_g_miss_num_map(p5_a15);
267 ddp_tapv_rec.qte_id := rosetta_g_miss_num_map(p5_a16);
268 ddp_tapv_rec.invoice_category_code := p5_a17;
269 ddp_tapv_rec.payment_method_code := p5_a18;
270 ddp_tapv_rec.cplv_id := rosetta_g_miss_num_map(p5_a19);
271 ddp_tapv_rec.pox_id := rosetta_g_miss_num_map(p5_a20);
272 ddp_tapv_rec.amount := rosetta_g_miss_num_map(p5_a21);
273 ddp_tapv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a22);
274 ddp_tapv_rec.invoice_number := p5_a23;
275 ddp_tapv_rec.date_funding_approved := rosetta_g_miss_date_in_map(p5_a24);
276 ddp_tapv_rec.date_gl := rosetta_g_miss_date_in_map(p5_a25);
277 ddp_tapv_rec.workflow_yn := p5_a26;
278 ddp_tapv_rec.match_required_yn := p5_a27;
279 ddp_tapv_rec.ipt_frequency := p5_a28;
280 ddp_tapv_rec.consolidate_yn := p5_a29;
281 ddp_tapv_rec.wait_vendor_invoice_yn := p5_a30;
282 ddp_tapv_rec.date_requisition := rosetta_g_miss_date_in_map(p5_a31);
283 ddp_tapv_rec.description := p5_a32;
284 ddp_tapv_rec.currency_conversion_type := p5_a33;
285 ddp_tapv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a34);
286 ddp_tapv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a35);
287 ddp_tapv_rec.vendor_id := rosetta_g_miss_num_map(p5_a36);
288 ddp_tapv_rec.attribute_category := p5_a37;
289 ddp_tapv_rec.attribute1 := p5_a38;
290 ddp_tapv_rec.attribute2 := p5_a39;
291 ddp_tapv_rec.attribute3 := p5_a40;
292 ddp_tapv_rec.attribute4 := p5_a41;
293 ddp_tapv_rec.attribute5 := p5_a42;
294 ddp_tapv_rec.attribute6 := p5_a43;
295 ddp_tapv_rec.attribute7 := p5_a44;
296 ddp_tapv_rec.attribute8 := p5_a45;
297 ddp_tapv_rec.attribute9 := p5_a46;
298 ddp_tapv_rec.attribute10 := p5_a47;
299 ddp_tapv_rec.attribute11 := p5_a48;
300 ddp_tapv_rec.attribute12 := p5_a49;
301 ddp_tapv_rec.attribute13 := p5_a50;
302 ddp_tapv_rec.attribute14 := p5_a51;
303 ddp_tapv_rec.attribute15 := p5_a52;
304 ddp_tapv_rec.date_entered := rosetta_g_miss_date_in_map(p5_a53);
305 ddp_tapv_rec.trx_status_code := p5_a54;
306 ddp_tapv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a55);
307 ddp_tapv_rec.try_id := rosetta_g_miss_num_map(p5_a56);
308 ddp_tapv_rec.request_id := rosetta_g_miss_num_map(p5_a57);
309 ddp_tapv_rec.program_application_id := rosetta_g_miss_num_map(p5_a58);
310 ddp_tapv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
311 ddp_tapv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a60);
312 ddp_tapv_rec.org_id := rosetta_g_miss_num_map(p5_a61);
313 ddp_tapv_rec.created_by := rosetta_g_miss_num_map(p5_a62);
314 ddp_tapv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a63);
315 ddp_tapv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a64);
316 ddp_tapv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a65);
317 ddp_tapv_rec.last_update_login := rosetta_g_miss_num_map(p5_a66);
318 ddp_tapv_rec.invoice_type := p5_a67;
319 ddp_tapv_rec.pay_group_lookup_code := p5_a68;
320 ddp_tapv_rec.vendor_invoice_number := p5_a69;
321 ddp_tapv_rec.nettable_yn := p5_a70;
322 ddp_tapv_rec.asset_tap_id := rosetta_g_miss_num_map(p5_a71);
323 ddp_tapv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a72);
324 ddp_tapv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a73);
325
326
327 -- here's the delegated call to the old PL/SQL routine
328 okl_funding_pvt.create_funding_header(p_api_version,
329 p_init_msg_list,
330 x_return_status,
331 x_msg_count,
332 x_msg_data,
333 ddp_tapv_rec,
334 ddx_tapv_rec);
335
336 -- copy data back from the local variables to OUT or IN-OUT args, if any
337
338
339
340
341
342
343 p6_a0 := rosetta_g_miss_num_map(ddx_tapv_rec.id);
344 p6_a1 := rosetta_g_miss_num_map(ddx_tapv_rec.object_version_number);
345 p6_a2 := ddx_tapv_rec.sfwt_flag;
346 p6_a3 := rosetta_g_miss_num_map(ddx_tapv_rec.cct_id);
347 p6_a4 := ddx_tapv_rec.currency_code;
348 p6_a5 := rosetta_g_miss_num_map(ddx_tapv_rec.ccf_id);
349 p6_a6 := ddx_tapv_rec.funding_type_code;
350 p6_a7 := rosetta_g_miss_num_map(ddx_tapv_rec.khr_id);
351 p6_a8 := rosetta_g_miss_num_map(ddx_tapv_rec.art_id);
352 p6_a9 := rosetta_g_miss_num_map(ddx_tapv_rec.tap_id_reverses);
353 p6_a10 := rosetta_g_miss_num_map(ddx_tapv_rec.ippt_id);
354 p6_a11 := rosetta_g_miss_num_map(ddx_tapv_rec.code_combination_id);
355 p6_a12 := rosetta_g_miss_num_map(ddx_tapv_rec.ipvs_id);
356 p6_a13 := rosetta_g_miss_num_map(ddx_tapv_rec.tcn_id);
357 p6_a14 := rosetta_g_miss_num_map(ddx_tapv_rec.vpa_id);
358 p6_a15 := rosetta_g_miss_num_map(ddx_tapv_rec.ipt_id);
359 p6_a16 := rosetta_g_miss_num_map(ddx_tapv_rec.qte_id);
360 p6_a17 := ddx_tapv_rec.invoice_category_code;
361 p6_a18 := ddx_tapv_rec.payment_method_code;
362 p6_a19 := rosetta_g_miss_num_map(ddx_tapv_rec.cplv_id);
363 p6_a20 := rosetta_g_miss_num_map(ddx_tapv_rec.pox_id);
364 p6_a21 := rosetta_g_miss_num_map(ddx_tapv_rec.amount);
365 p6_a22 := ddx_tapv_rec.date_invoiced;
366 p6_a23 := ddx_tapv_rec.invoice_number;
367 p6_a24 := ddx_tapv_rec.date_funding_approved;
368 p6_a25 := ddx_tapv_rec.date_gl;
369 p6_a26 := ddx_tapv_rec.workflow_yn;
370 p6_a27 := ddx_tapv_rec.match_required_yn;
371 p6_a28 := ddx_tapv_rec.ipt_frequency;
372 p6_a29 := ddx_tapv_rec.consolidate_yn;
373 p6_a30 := ddx_tapv_rec.wait_vendor_invoice_yn;
374 p6_a31 := ddx_tapv_rec.date_requisition;
375 p6_a32 := ddx_tapv_rec.description;
376 p6_a33 := ddx_tapv_rec.currency_conversion_type;
377 p6_a34 := rosetta_g_miss_num_map(ddx_tapv_rec.currency_conversion_rate);
378 p6_a35 := ddx_tapv_rec.currency_conversion_date;
379 p6_a36 := rosetta_g_miss_num_map(ddx_tapv_rec.vendor_id);
380 p6_a37 := ddx_tapv_rec.attribute_category;
381 p6_a38 := ddx_tapv_rec.attribute1;
382 p6_a39 := ddx_tapv_rec.attribute2;
383 p6_a40 := ddx_tapv_rec.attribute3;
384 p6_a41 := ddx_tapv_rec.attribute4;
385 p6_a42 := ddx_tapv_rec.attribute5;
386 p6_a43 := ddx_tapv_rec.attribute6;
387 p6_a44 := ddx_tapv_rec.attribute7;
388 p6_a45 := ddx_tapv_rec.attribute8;
389 p6_a46 := ddx_tapv_rec.attribute9;
390 p6_a47 := ddx_tapv_rec.attribute10;
391 p6_a48 := ddx_tapv_rec.attribute11;
392 p6_a49 := ddx_tapv_rec.attribute12;
393 p6_a50 := ddx_tapv_rec.attribute13;
394 p6_a51 := ddx_tapv_rec.attribute14;
395 p6_a52 := ddx_tapv_rec.attribute15;
396 p6_a53 := ddx_tapv_rec.date_entered;
397 p6_a54 := ddx_tapv_rec.trx_status_code;
398 p6_a55 := rosetta_g_miss_num_map(ddx_tapv_rec.set_of_books_id);
399 p6_a56 := rosetta_g_miss_num_map(ddx_tapv_rec.try_id);
400 p6_a57 := rosetta_g_miss_num_map(ddx_tapv_rec.request_id);
401 p6_a58 := rosetta_g_miss_num_map(ddx_tapv_rec.program_application_id);
402 p6_a59 := rosetta_g_miss_num_map(ddx_tapv_rec.program_id);
403 p6_a60 := ddx_tapv_rec.program_update_date;
404 p6_a61 := rosetta_g_miss_num_map(ddx_tapv_rec.org_id);
405 p6_a62 := rosetta_g_miss_num_map(ddx_tapv_rec.created_by);
406 p6_a63 := ddx_tapv_rec.creation_date;
407 p6_a64 := rosetta_g_miss_num_map(ddx_tapv_rec.last_updated_by);
408 p6_a65 := ddx_tapv_rec.last_update_date;
409 p6_a66 := rosetta_g_miss_num_map(ddx_tapv_rec.last_update_login);
410 p6_a67 := ddx_tapv_rec.invoice_type;
411 p6_a68 := ddx_tapv_rec.pay_group_lookup_code;
412 p6_a69 := ddx_tapv_rec.vendor_invoice_number;
413 p6_a70 := ddx_tapv_rec.nettable_yn;
414 p6_a71 := rosetta_g_miss_num_map(ddx_tapv_rec.asset_tap_id);
415 p6_a72 := rosetta_g_miss_num_map(ddx_tapv_rec.legal_entity_id);
416 p6_a73 := ddx_tapv_rec.transaction_date;
417 end;
418
419 procedure update_funding_header(p_api_version NUMBER
420 , p_init_msg_list VARCHAR2
421 , x_return_status out nocopy VARCHAR2
422 , x_msg_count out nocopy NUMBER
423 , x_msg_data out nocopy VARCHAR2
424 , p6_a0 out nocopy NUMBER
425 , p6_a1 out nocopy NUMBER
426 , p6_a2 out nocopy VARCHAR2
427 , p6_a3 out nocopy NUMBER
428 , p6_a4 out nocopy VARCHAR2
429 , p6_a5 out nocopy NUMBER
430 , p6_a6 out nocopy VARCHAR2
431 , p6_a7 out nocopy NUMBER
432 , p6_a8 out nocopy NUMBER
433 , p6_a9 out nocopy NUMBER
434 , p6_a10 out nocopy NUMBER
435 , p6_a11 out nocopy NUMBER
436 , p6_a12 out nocopy NUMBER
437 , p6_a13 out nocopy NUMBER
438 , p6_a14 out nocopy NUMBER
439 , p6_a15 out nocopy NUMBER
440 , p6_a16 out nocopy NUMBER
441 , p6_a17 out nocopy VARCHAR2
442 , p6_a18 out nocopy VARCHAR2
443 , p6_a19 out nocopy NUMBER
444 , p6_a20 out nocopy NUMBER
445 , p6_a21 out nocopy NUMBER
446 , p6_a22 out nocopy DATE
447 , p6_a23 out nocopy VARCHAR2
448 , p6_a24 out nocopy DATE
449 , p6_a25 out nocopy DATE
450 , p6_a26 out nocopy VARCHAR2
451 , p6_a27 out nocopy VARCHAR2
452 , p6_a28 out nocopy VARCHAR2
453 , p6_a29 out nocopy VARCHAR2
454 , p6_a30 out nocopy VARCHAR2
455 , p6_a31 out nocopy DATE
456 , p6_a32 out nocopy VARCHAR2
457 , p6_a33 out nocopy VARCHAR2
458 , p6_a34 out nocopy NUMBER
459 , p6_a35 out nocopy DATE
460 , p6_a36 out nocopy NUMBER
461 , p6_a37 out nocopy VARCHAR2
462 , p6_a38 out nocopy VARCHAR2
463 , p6_a39 out nocopy VARCHAR2
464 , p6_a40 out nocopy VARCHAR2
465 , p6_a41 out nocopy VARCHAR2
466 , p6_a42 out nocopy VARCHAR2
467 , p6_a43 out nocopy VARCHAR2
468 , p6_a44 out nocopy VARCHAR2
469 , p6_a45 out nocopy VARCHAR2
470 , p6_a46 out nocopy VARCHAR2
471 , p6_a47 out nocopy VARCHAR2
472 , p6_a48 out nocopy VARCHAR2
473 , p6_a49 out nocopy VARCHAR2
474 , p6_a50 out nocopy VARCHAR2
475 , p6_a51 out nocopy VARCHAR2
476 , p6_a52 out nocopy VARCHAR2
477 , p6_a53 out nocopy DATE
478 , p6_a54 out nocopy VARCHAR2
479 , p6_a55 out nocopy NUMBER
480 , p6_a56 out nocopy NUMBER
481 , p6_a57 out nocopy NUMBER
482 , p6_a58 out nocopy NUMBER
483 , p6_a59 out nocopy NUMBER
484 , p6_a60 out nocopy DATE
485 , p6_a61 out nocopy NUMBER
486 , p6_a62 out nocopy NUMBER
487 , p6_a63 out nocopy DATE
488 , p6_a64 out nocopy NUMBER
489 , p6_a65 out nocopy DATE
490 , p6_a66 out nocopy NUMBER
491 , p6_a67 out nocopy VARCHAR2
492 , p6_a68 out nocopy VARCHAR2
493 , p6_a69 out nocopy VARCHAR2
494 , p6_a70 out nocopy VARCHAR2
495 , p6_a71 out nocopy NUMBER
496 , p6_a72 out nocopy NUMBER
497 , p6_a73 out nocopy DATE
498 , p5_a0 NUMBER := 0-1962.0724
499 , p5_a1 NUMBER := 0-1962.0724
500 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
501 , p5_a3 NUMBER := 0-1962.0724
502 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
503 , p5_a5 NUMBER := 0-1962.0724
504 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
505 , p5_a7 NUMBER := 0-1962.0724
506 , p5_a8 NUMBER := 0-1962.0724
507 , p5_a9 NUMBER := 0-1962.0724
508 , p5_a10 NUMBER := 0-1962.0724
509 , p5_a11 NUMBER := 0-1962.0724
510 , p5_a12 NUMBER := 0-1962.0724
511 , p5_a13 NUMBER := 0-1962.0724
512 , p5_a14 NUMBER := 0-1962.0724
513 , p5_a15 NUMBER := 0-1962.0724
514 , p5_a16 NUMBER := 0-1962.0724
515 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
516 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
517 , p5_a19 NUMBER := 0-1962.0724
518 , p5_a20 NUMBER := 0-1962.0724
519 , p5_a21 NUMBER := 0-1962.0724
520 , p5_a22 DATE := fnd_api.g_miss_date
521 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
522 , p5_a24 DATE := fnd_api.g_miss_date
523 , p5_a25 DATE := fnd_api.g_miss_date
524 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
525 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
526 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
527 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
528 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
529 , p5_a31 DATE := fnd_api.g_miss_date
530 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
531 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
532 , p5_a34 NUMBER := 0-1962.0724
533 , p5_a35 DATE := fnd_api.g_miss_date
534 , p5_a36 NUMBER := 0-1962.0724
535 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
536 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
537 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
538 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
539 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
540 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
541 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
542 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
543 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
544 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
545 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
546 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
547 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
548 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
549 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
550 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
551 , p5_a53 DATE := fnd_api.g_miss_date
552 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
553 , p5_a55 NUMBER := 0-1962.0724
554 , p5_a56 NUMBER := 0-1962.0724
555 , p5_a57 NUMBER := 0-1962.0724
556 , p5_a58 NUMBER := 0-1962.0724
557 , p5_a59 NUMBER := 0-1962.0724
558 , p5_a60 DATE := fnd_api.g_miss_date
559 , p5_a61 NUMBER := 0-1962.0724
560 , p5_a62 NUMBER := 0-1962.0724
561 , p5_a63 DATE := fnd_api.g_miss_date
562 , p5_a64 NUMBER := 0-1962.0724
563 , p5_a65 DATE := fnd_api.g_miss_date
564 , p5_a66 NUMBER := 0-1962.0724
565 , p5_a67 VARCHAR2 := fnd_api.g_miss_char
566 , p5_a68 VARCHAR2 := fnd_api.g_miss_char
567 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
568 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
569 , p5_a71 NUMBER := 0-1962.0724
570 , p5_a72 NUMBER := 0-1962.0724
571 , p5_a73 DATE := fnd_api.g_miss_date
572 )
573
574 as
575 ddp_tapv_rec okl_funding_pvt.tapv_rec_type;
576 ddx_tapv_rec okl_funding_pvt.tapv_rec_type;
577 ddindx binary_integer; indx binary_integer;
578 begin
579
580 -- copy data to the local IN or IN-OUT args, if any
581
582
583
584
585
586 ddp_tapv_rec.id := rosetta_g_miss_num_map(p5_a0);
587 ddp_tapv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
588 ddp_tapv_rec.sfwt_flag := p5_a2;
589 ddp_tapv_rec.cct_id := rosetta_g_miss_num_map(p5_a3);
590 ddp_tapv_rec.currency_code := p5_a4;
591 ddp_tapv_rec.ccf_id := rosetta_g_miss_num_map(p5_a5);
592 ddp_tapv_rec.funding_type_code := p5_a6;
593 ddp_tapv_rec.khr_id := rosetta_g_miss_num_map(p5_a7);
594 ddp_tapv_rec.art_id := rosetta_g_miss_num_map(p5_a8);
595 ddp_tapv_rec.tap_id_reverses := rosetta_g_miss_num_map(p5_a9);
596 ddp_tapv_rec.ippt_id := rosetta_g_miss_num_map(p5_a10);
597 ddp_tapv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
598 ddp_tapv_rec.ipvs_id := rosetta_g_miss_num_map(p5_a12);
599 ddp_tapv_rec.tcn_id := rosetta_g_miss_num_map(p5_a13);
600 ddp_tapv_rec.vpa_id := rosetta_g_miss_num_map(p5_a14);
601 ddp_tapv_rec.ipt_id := rosetta_g_miss_num_map(p5_a15);
602 ddp_tapv_rec.qte_id := rosetta_g_miss_num_map(p5_a16);
603 ddp_tapv_rec.invoice_category_code := p5_a17;
604 ddp_tapv_rec.payment_method_code := p5_a18;
605 ddp_tapv_rec.cplv_id := rosetta_g_miss_num_map(p5_a19);
606 ddp_tapv_rec.pox_id := rosetta_g_miss_num_map(p5_a20);
607 ddp_tapv_rec.amount := rosetta_g_miss_num_map(p5_a21);
608 ddp_tapv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a22);
609 ddp_tapv_rec.invoice_number := p5_a23;
610 ddp_tapv_rec.date_funding_approved := rosetta_g_miss_date_in_map(p5_a24);
611 ddp_tapv_rec.date_gl := rosetta_g_miss_date_in_map(p5_a25);
612 ddp_tapv_rec.workflow_yn := p5_a26;
613 ddp_tapv_rec.match_required_yn := p5_a27;
614 ddp_tapv_rec.ipt_frequency := p5_a28;
615 ddp_tapv_rec.consolidate_yn := p5_a29;
616 ddp_tapv_rec.wait_vendor_invoice_yn := p5_a30;
617 ddp_tapv_rec.date_requisition := rosetta_g_miss_date_in_map(p5_a31);
618 ddp_tapv_rec.description := p5_a32;
619 ddp_tapv_rec.currency_conversion_type := p5_a33;
620 ddp_tapv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a34);
621 ddp_tapv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a35);
622 ddp_tapv_rec.vendor_id := rosetta_g_miss_num_map(p5_a36);
623 ddp_tapv_rec.attribute_category := p5_a37;
624 ddp_tapv_rec.attribute1 := p5_a38;
625 ddp_tapv_rec.attribute2 := p5_a39;
626 ddp_tapv_rec.attribute3 := p5_a40;
627 ddp_tapv_rec.attribute4 := p5_a41;
628 ddp_tapv_rec.attribute5 := p5_a42;
629 ddp_tapv_rec.attribute6 := p5_a43;
630 ddp_tapv_rec.attribute7 := p5_a44;
631 ddp_tapv_rec.attribute8 := p5_a45;
632 ddp_tapv_rec.attribute9 := p5_a46;
633 ddp_tapv_rec.attribute10 := p5_a47;
634 ddp_tapv_rec.attribute11 := p5_a48;
635 ddp_tapv_rec.attribute12 := p5_a49;
636 ddp_tapv_rec.attribute13 := p5_a50;
637 ddp_tapv_rec.attribute14 := p5_a51;
638 ddp_tapv_rec.attribute15 := p5_a52;
639 ddp_tapv_rec.date_entered := rosetta_g_miss_date_in_map(p5_a53);
640 ddp_tapv_rec.trx_status_code := p5_a54;
641 ddp_tapv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a55);
642 ddp_tapv_rec.try_id := rosetta_g_miss_num_map(p5_a56);
643 ddp_tapv_rec.request_id := rosetta_g_miss_num_map(p5_a57);
644 ddp_tapv_rec.program_application_id := rosetta_g_miss_num_map(p5_a58);
645 ddp_tapv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
646 ddp_tapv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a60);
647 ddp_tapv_rec.org_id := rosetta_g_miss_num_map(p5_a61);
648 ddp_tapv_rec.created_by := rosetta_g_miss_num_map(p5_a62);
649 ddp_tapv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a63);
650 ddp_tapv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a64);
651 ddp_tapv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a65);
652 ddp_tapv_rec.last_update_login := rosetta_g_miss_num_map(p5_a66);
653 ddp_tapv_rec.invoice_type := p5_a67;
654 ddp_tapv_rec.pay_group_lookup_code := p5_a68;
655 ddp_tapv_rec.vendor_invoice_number := p5_a69;
656 ddp_tapv_rec.nettable_yn := p5_a70;
657 ddp_tapv_rec.asset_tap_id := rosetta_g_miss_num_map(p5_a71);
658 ddp_tapv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a72);
659 ddp_tapv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a73);
660
661
662 -- here's the delegated call to the old PL/SQL routine
663 okl_funding_pvt.update_funding_header(p_api_version,
664 p_init_msg_list,
665 x_return_status,
666 x_msg_count,
667 x_msg_data,
668 ddp_tapv_rec,
669 ddx_tapv_rec);
670
671 -- copy data back from the local variables to OUT or IN-OUT args, if any
672
673
674
675
676
677
678 p6_a0 := rosetta_g_miss_num_map(ddx_tapv_rec.id);
679 p6_a1 := rosetta_g_miss_num_map(ddx_tapv_rec.object_version_number);
680 p6_a2 := ddx_tapv_rec.sfwt_flag;
681 p6_a3 := rosetta_g_miss_num_map(ddx_tapv_rec.cct_id);
682 p6_a4 := ddx_tapv_rec.currency_code;
683 p6_a5 := rosetta_g_miss_num_map(ddx_tapv_rec.ccf_id);
684 p6_a6 := ddx_tapv_rec.funding_type_code;
685 p6_a7 := rosetta_g_miss_num_map(ddx_tapv_rec.khr_id);
686 p6_a8 := rosetta_g_miss_num_map(ddx_tapv_rec.art_id);
687 p6_a9 := rosetta_g_miss_num_map(ddx_tapv_rec.tap_id_reverses);
688 p6_a10 := rosetta_g_miss_num_map(ddx_tapv_rec.ippt_id);
689 p6_a11 := rosetta_g_miss_num_map(ddx_tapv_rec.code_combination_id);
690 p6_a12 := rosetta_g_miss_num_map(ddx_tapv_rec.ipvs_id);
691 p6_a13 := rosetta_g_miss_num_map(ddx_tapv_rec.tcn_id);
692 p6_a14 := rosetta_g_miss_num_map(ddx_tapv_rec.vpa_id);
693 p6_a15 := rosetta_g_miss_num_map(ddx_tapv_rec.ipt_id);
694 p6_a16 := rosetta_g_miss_num_map(ddx_tapv_rec.qte_id);
695 p6_a17 := ddx_tapv_rec.invoice_category_code;
696 p6_a18 := ddx_tapv_rec.payment_method_code;
697 p6_a19 := rosetta_g_miss_num_map(ddx_tapv_rec.cplv_id);
698 p6_a20 := rosetta_g_miss_num_map(ddx_tapv_rec.pox_id);
699 p6_a21 := rosetta_g_miss_num_map(ddx_tapv_rec.amount);
700 p6_a22 := ddx_tapv_rec.date_invoiced;
701 p6_a23 := ddx_tapv_rec.invoice_number;
702 p6_a24 := ddx_tapv_rec.date_funding_approved;
703 p6_a25 := ddx_tapv_rec.date_gl;
704 p6_a26 := ddx_tapv_rec.workflow_yn;
705 p6_a27 := ddx_tapv_rec.match_required_yn;
706 p6_a28 := ddx_tapv_rec.ipt_frequency;
707 p6_a29 := ddx_tapv_rec.consolidate_yn;
708 p6_a30 := ddx_tapv_rec.wait_vendor_invoice_yn;
709 p6_a31 := ddx_tapv_rec.date_requisition;
710 p6_a32 := ddx_tapv_rec.description;
711 p6_a33 := ddx_tapv_rec.currency_conversion_type;
712 p6_a34 := rosetta_g_miss_num_map(ddx_tapv_rec.currency_conversion_rate);
713 p6_a35 := ddx_tapv_rec.currency_conversion_date;
714 p6_a36 := rosetta_g_miss_num_map(ddx_tapv_rec.vendor_id);
715 p6_a37 := ddx_tapv_rec.attribute_category;
716 p6_a38 := ddx_tapv_rec.attribute1;
717 p6_a39 := ddx_tapv_rec.attribute2;
718 p6_a40 := ddx_tapv_rec.attribute3;
719 p6_a41 := ddx_tapv_rec.attribute4;
720 p6_a42 := ddx_tapv_rec.attribute5;
721 p6_a43 := ddx_tapv_rec.attribute6;
722 p6_a44 := ddx_tapv_rec.attribute7;
723 p6_a45 := ddx_tapv_rec.attribute8;
724 p6_a46 := ddx_tapv_rec.attribute9;
725 p6_a47 := ddx_tapv_rec.attribute10;
726 p6_a48 := ddx_tapv_rec.attribute11;
727 p6_a49 := ddx_tapv_rec.attribute12;
728 p6_a50 := ddx_tapv_rec.attribute13;
729 p6_a51 := ddx_tapv_rec.attribute14;
730 p6_a52 := ddx_tapv_rec.attribute15;
731 p6_a53 := ddx_tapv_rec.date_entered;
732 p6_a54 := ddx_tapv_rec.trx_status_code;
733 p6_a55 := rosetta_g_miss_num_map(ddx_tapv_rec.set_of_books_id);
734 p6_a56 := rosetta_g_miss_num_map(ddx_tapv_rec.try_id);
735 p6_a57 := rosetta_g_miss_num_map(ddx_tapv_rec.request_id);
736 p6_a58 := rosetta_g_miss_num_map(ddx_tapv_rec.program_application_id);
737 p6_a59 := rosetta_g_miss_num_map(ddx_tapv_rec.program_id);
738 p6_a60 := ddx_tapv_rec.program_update_date;
739 p6_a61 := rosetta_g_miss_num_map(ddx_tapv_rec.org_id);
740 p6_a62 := rosetta_g_miss_num_map(ddx_tapv_rec.created_by);
741 p6_a63 := ddx_tapv_rec.creation_date;
742 p6_a64 := rosetta_g_miss_num_map(ddx_tapv_rec.last_updated_by);
743 p6_a65 := ddx_tapv_rec.last_update_date;
744 p6_a66 := rosetta_g_miss_num_map(ddx_tapv_rec.last_update_login);
745 p6_a67 := ddx_tapv_rec.invoice_type;
746 p6_a68 := ddx_tapv_rec.pay_group_lookup_code;
747 p6_a69 := ddx_tapv_rec.vendor_invoice_number;
748 p6_a70 := ddx_tapv_rec.nettable_yn;
749 p6_a71 := rosetta_g_miss_num_map(ddx_tapv_rec.asset_tap_id);
750 p6_a72 := rosetta_g_miss_num_map(ddx_tapv_rec.legal_entity_id);
751 p6_a73 := ddx_tapv_rec.transaction_date;
752 end;
753
754 procedure create_funding_lines(p_api_version NUMBER
755 , p_init_msg_list VARCHAR2
756 , x_return_status out nocopy VARCHAR2
757 , x_msg_count out nocopy NUMBER
758 , x_msg_data out nocopy VARCHAR2
759 , p5_a0 JTF_NUMBER_TABLE
760 , p5_a1 JTF_NUMBER_TABLE
761 , p5_a2 JTF_VARCHAR2_TABLE_100
762 , p5_a3 JTF_NUMBER_TABLE
763 , p5_a4 JTF_NUMBER_TABLE
764 , p5_a5 JTF_VARCHAR2_TABLE_100
765 , p5_a6 JTF_NUMBER_TABLE
766 , p5_a7 JTF_NUMBER_TABLE
767 , p5_a8 JTF_NUMBER_TABLE
768 , p5_a9 JTF_NUMBER_TABLE
769 , p5_a10 JTF_NUMBER_TABLE
770 , p5_a11 JTF_VARCHAR2_TABLE_100
771 , p5_a12 JTF_NUMBER_TABLE
772 , p5_a13 JTF_NUMBER_TABLE
773 , p5_a14 JTF_DATE_TABLE
774 , p5_a15 JTF_NUMBER_TABLE
775 , p5_a16 JTF_NUMBER_TABLE
776 , p5_a17 JTF_NUMBER_TABLE
777 , p5_a18 JTF_NUMBER_TABLE
778 , p5_a19 JTF_NUMBER_TABLE
779 , p5_a20 JTF_VARCHAR2_TABLE_2000
780 , p5_a21 JTF_VARCHAR2_TABLE_3000
781 , p5_a22 JTF_VARCHAR2_TABLE_100
782 , p5_a23 JTF_VARCHAR2_TABLE_500
783 , p5_a24 JTF_VARCHAR2_TABLE_500
784 , p5_a25 JTF_VARCHAR2_TABLE_500
785 , p5_a26 JTF_VARCHAR2_TABLE_500
786 , p5_a27 JTF_VARCHAR2_TABLE_500
787 , p5_a28 JTF_VARCHAR2_TABLE_500
788 , p5_a29 JTF_VARCHAR2_TABLE_500
789 , p5_a30 JTF_VARCHAR2_TABLE_500
790 , p5_a31 JTF_VARCHAR2_TABLE_500
791 , p5_a32 JTF_VARCHAR2_TABLE_500
792 , p5_a33 JTF_VARCHAR2_TABLE_500
793 , p5_a34 JTF_VARCHAR2_TABLE_500
794 , p5_a35 JTF_VARCHAR2_TABLE_500
795 , p5_a36 JTF_VARCHAR2_TABLE_500
796 , p5_a37 JTF_VARCHAR2_TABLE_500
797 , p5_a38 JTF_NUMBER_TABLE
798 , p5_a39 JTF_NUMBER_TABLE
799 , p5_a40 JTF_NUMBER_TABLE
800 , p5_a41 JTF_DATE_TABLE
801 , p5_a42 JTF_NUMBER_TABLE
802 , p5_a43 JTF_NUMBER_TABLE
803 , p5_a44 JTF_DATE_TABLE
804 , p5_a45 JTF_NUMBER_TABLE
805 , p5_a46 JTF_DATE_TABLE
806 , p5_a47 JTF_NUMBER_TABLE
807 , p5_a48 JTF_VARCHAR2_TABLE_100
808 , p5_a49 JTF_VARCHAR2_TABLE_100
809 , p5_a50 JTF_NUMBER_TABLE
810 , p5_a51 JTF_NUMBER_TABLE
811 , p5_a52 JTF_VARCHAR2_TABLE_100
812 , p5_a53 JTF_NUMBER_TABLE
813 , p6_a0 out nocopy JTF_NUMBER_TABLE
814 , p6_a1 out nocopy JTF_NUMBER_TABLE
815 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
816 , p6_a3 out nocopy JTF_NUMBER_TABLE
817 , p6_a4 out nocopy JTF_NUMBER_TABLE
818 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
819 , p6_a6 out nocopy JTF_NUMBER_TABLE
820 , p6_a7 out nocopy JTF_NUMBER_TABLE
821 , p6_a8 out nocopy JTF_NUMBER_TABLE
822 , p6_a9 out nocopy JTF_NUMBER_TABLE
823 , p6_a10 out nocopy JTF_NUMBER_TABLE
824 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
825 , p6_a12 out nocopy JTF_NUMBER_TABLE
826 , p6_a13 out nocopy JTF_NUMBER_TABLE
827 , p6_a14 out nocopy JTF_DATE_TABLE
828 , p6_a15 out nocopy JTF_NUMBER_TABLE
829 , p6_a16 out nocopy JTF_NUMBER_TABLE
830 , p6_a17 out nocopy JTF_NUMBER_TABLE
831 , p6_a18 out nocopy JTF_NUMBER_TABLE
832 , p6_a19 out nocopy JTF_NUMBER_TABLE
833 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_2000
834 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_3000
835 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
836 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
837 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
838 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
839 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
840 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
841 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
842 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
843 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
844 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
845 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
846 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
847 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
848 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
849 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
850 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
851 , p6_a38 out nocopy JTF_NUMBER_TABLE
852 , p6_a39 out nocopy JTF_NUMBER_TABLE
853 , p6_a40 out nocopy JTF_NUMBER_TABLE
854 , p6_a41 out nocopy JTF_DATE_TABLE
855 , p6_a42 out nocopy JTF_NUMBER_TABLE
856 , p6_a43 out nocopy JTF_NUMBER_TABLE
857 , p6_a44 out nocopy JTF_DATE_TABLE
858 , p6_a45 out nocopy JTF_NUMBER_TABLE
859 , p6_a46 out nocopy JTF_DATE_TABLE
860 , p6_a47 out nocopy JTF_NUMBER_TABLE
861 , p6_a48 out nocopy JTF_VARCHAR2_TABLE_100
862 , p6_a49 out nocopy JTF_VARCHAR2_TABLE_100
863 , p6_a50 out nocopy JTF_NUMBER_TABLE
864 , p6_a51 out nocopy JTF_NUMBER_TABLE
865 , p6_a52 out nocopy JTF_VARCHAR2_TABLE_100
866 , p6_a53 out nocopy JTF_NUMBER_TABLE
867 )
868
869 as
870 ddp_tplv_tbl okl_funding_pvt.tplv_tbl_type;
871 ddx_tplv_tbl okl_funding_pvt.tplv_tbl_type;
872 ddindx binary_integer; indx binary_integer;
873 begin
874
875 -- copy data to the local IN or IN-OUT args, if any
876
877
878
879
880
881 okl_tpl_pvt_w.rosetta_table_copy_in_p8(ddp_tplv_tbl, p5_a0
882 , p5_a1
883 , p5_a2
884 , p5_a3
885 , p5_a4
886 , p5_a5
887 , p5_a6
888 , p5_a7
889 , p5_a8
890 , p5_a9
891 , p5_a10
892 , p5_a11
893 , p5_a12
894 , p5_a13
895 , p5_a14
896 , p5_a15
897 , p5_a16
898 , p5_a17
899 , p5_a18
900 , p5_a19
901 , p5_a20
902 , p5_a21
903 , p5_a22
904 , p5_a23
905 , p5_a24
906 , p5_a25
907 , p5_a26
908 , p5_a27
909 , p5_a28
910 , p5_a29
911 , p5_a30
912 , p5_a31
913 , p5_a32
914 , p5_a33
915 , p5_a34
916 , p5_a35
917 , p5_a36
918 , p5_a37
919 , p5_a38
920 , p5_a39
921 , p5_a40
922 , p5_a41
923 , p5_a42
924 , p5_a43
925 , p5_a44
926 , p5_a45
927 , p5_a46
928 , p5_a47
929 , p5_a48
930 , p5_a49
931 , p5_a50
932 , p5_a51
933 , p5_a52
934 , p5_a53
935 );
936
937
938 -- here's the delegated call to the old PL/SQL routine
939 okl_funding_pvt.create_funding_lines(p_api_version,
940 p_init_msg_list,
941 x_return_status,
942 x_msg_count,
943 x_msg_data,
944 ddp_tplv_tbl,
945 ddx_tplv_tbl);
946
947 -- copy data back from the local variables to OUT or IN-OUT args, if any
948
949
950
951
952
953
954 okl_tpl_pvt_w.rosetta_table_copy_out_p8(ddx_tplv_tbl, p6_a0
955 , p6_a1
956 , p6_a2
957 , p6_a3
958 , p6_a4
959 , p6_a5
960 , p6_a6
961 , p6_a7
962 , p6_a8
963 , p6_a9
964 , p6_a10
965 , p6_a11
966 , p6_a12
967 , p6_a13
968 , p6_a14
969 , p6_a15
970 , p6_a16
971 , p6_a17
972 , p6_a18
973 , p6_a19
974 , p6_a20
975 , p6_a21
976 , p6_a22
977 , p6_a23
978 , p6_a24
979 , p6_a25
980 , p6_a26
981 , p6_a27
982 , p6_a28
983 , p6_a29
984 , p6_a30
985 , p6_a31
986 , p6_a32
987 , p6_a33
988 , p6_a34
989 , p6_a35
990 , p6_a36
991 , p6_a37
992 , p6_a38
993 , p6_a39
994 , p6_a40
995 , p6_a41
996 , p6_a42
997 , p6_a43
998 , p6_a44
999 , p6_a45
1000 , p6_a46
1001 , p6_a47
1002 , p6_a48
1003 , p6_a49
1004 , p6_a50
1005 , p6_a51
1006 , p6_a52
1007 , p6_a53
1008 );
1009 end;
1010
1011 procedure create_funding_lines(p_api_version NUMBER
1012 , p_init_msg_list VARCHAR2
1013 , x_return_status out nocopy VARCHAR2
1014 , x_msg_count out nocopy NUMBER
1015 , x_msg_data out nocopy VARCHAR2
1016 , p_hdr_id NUMBER
1017 , p_khr_id NUMBER
1018 , p_vendor_site_id NUMBER
1019 , p8_a0 out nocopy JTF_NUMBER_TABLE
1020 , p8_a1 out nocopy JTF_NUMBER_TABLE
1021 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
1022 , p8_a3 out nocopy JTF_NUMBER_TABLE
1023 , p8_a4 out nocopy JTF_NUMBER_TABLE
1024 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
1025 , p8_a6 out nocopy JTF_NUMBER_TABLE
1026 , p8_a7 out nocopy JTF_NUMBER_TABLE
1027 , p8_a8 out nocopy JTF_NUMBER_TABLE
1028 , p8_a9 out nocopy JTF_NUMBER_TABLE
1029 , p8_a10 out nocopy JTF_NUMBER_TABLE
1030 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
1031 , p8_a12 out nocopy JTF_NUMBER_TABLE
1032 , p8_a13 out nocopy JTF_NUMBER_TABLE
1033 , p8_a14 out nocopy JTF_DATE_TABLE
1034 , p8_a15 out nocopy JTF_NUMBER_TABLE
1035 , p8_a16 out nocopy JTF_NUMBER_TABLE
1036 , p8_a17 out nocopy JTF_NUMBER_TABLE
1037 , p8_a18 out nocopy JTF_NUMBER_TABLE
1038 , p8_a19 out nocopy JTF_NUMBER_TABLE
1039 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_2000
1040 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_3000
1041 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_100
1042 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
1043 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
1044 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
1045 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
1046 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
1047 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
1048 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
1049 , p8_a30 out nocopy JTF_VARCHAR2_TABLE_500
1050 , p8_a31 out nocopy JTF_VARCHAR2_TABLE_500
1051 , p8_a32 out nocopy JTF_VARCHAR2_TABLE_500
1052 , p8_a33 out nocopy JTF_VARCHAR2_TABLE_500
1053 , p8_a34 out nocopy JTF_VARCHAR2_TABLE_500
1054 , p8_a35 out nocopy JTF_VARCHAR2_TABLE_500
1055 , p8_a36 out nocopy JTF_VARCHAR2_TABLE_500
1056 , p8_a37 out nocopy JTF_VARCHAR2_TABLE_500
1057 , p8_a38 out nocopy JTF_NUMBER_TABLE
1058 , p8_a39 out nocopy JTF_NUMBER_TABLE
1059 , p8_a40 out nocopy JTF_NUMBER_TABLE
1060 , p8_a41 out nocopy JTF_DATE_TABLE
1061 , p8_a42 out nocopy JTF_NUMBER_TABLE
1062 , p8_a43 out nocopy JTF_NUMBER_TABLE
1063 , p8_a44 out nocopy JTF_DATE_TABLE
1064 , p8_a45 out nocopy JTF_NUMBER_TABLE
1065 , p8_a46 out nocopy JTF_DATE_TABLE
1066 , p8_a47 out nocopy JTF_NUMBER_TABLE
1067 , p8_a48 out nocopy JTF_VARCHAR2_TABLE_100
1068 , p8_a49 out nocopy JTF_VARCHAR2_TABLE_100
1069 , p8_a50 out nocopy JTF_NUMBER_TABLE
1070 , p8_a51 out nocopy JTF_NUMBER_TABLE
1071 , p8_a52 out nocopy JTF_VARCHAR2_TABLE_100
1072 , p8_a53 out nocopy JTF_NUMBER_TABLE
1073 )
1074
1075 as
1076 ddx_tplv_tbl okl_funding_pvt.tplv_tbl_type;
1077 ddindx binary_integer; indx binary_integer;
1078 begin
1079
1080 -- copy data to the local IN or IN-OUT args, if any
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090 -- here's the delegated call to the old PL/SQL routine
1091 okl_funding_pvt.create_funding_lines(p_api_version,
1092 p_init_msg_list,
1093 x_return_status,
1094 x_msg_count,
1095 x_msg_data,
1096 p_hdr_id,
1097 p_khr_id,
1098 p_vendor_site_id,
1099 ddx_tplv_tbl);
1100
1101 -- copy data back from the local variables to OUT or IN-OUT args, if any
1102
1103
1104
1105
1106
1107
1108
1109
1110 okl_tpl_pvt_w.rosetta_table_copy_out_p8(ddx_tplv_tbl, p8_a0
1111 , p8_a1
1112 , p8_a2
1113 , p8_a3
1114 , p8_a4
1115 , p8_a5
1116 , p8_a6
1117 , p8_a7
1118 , p8_a8
1119 , p8_a9
1120 , p8_a10
1121 , p8_a11
1122 , p8_a12
1123 , p8_a13
1124 , p8_a14
1125 , p8_a15
1126 , p8_a16
1127 , p8_a17
1128 , p8_a18
1129 , p8_a19
1130 , p8_a20
1131 , p8_a21
1132 , p8_a22
1133 , p8_a23
1134 , p8_a24
1135 , p8_a25
1136 , p8_a26
1137 , p8_a27
1138 , p8_a28
1139 , p8_a29
1140 , p8_a30
1141 , p8_a31
1142 , p8_a32
1143 , p8_a33
1144 , p8_a34
1145 , p8_a35
1146 , p8_a36
1147 , p8_a37
1148 , p8_a38
1149 , p8_a39
1150 , p8_a40
1151 , p8_a41
1152 , p8_a42
1153 , p8_a43
1154 , p8_a44
1155 , p8_a45
1156 , p8_a46
1157 , p8_a47
1158 , p8_a48
1159 , p8_a49
1160 , p8_a50
1161 , p8_a51
1162 , p8_a52
1163 , p8_a53
1164 );
1165 end;
1166
1167 procedure update_funding_lines(p_api_version NUMBER
1168 , p_init_msg_list VARCHAR2
1169 , x_return_status out nocopy VARCHAR2
1170 , x_msg_count out nocopy NUMBER
1171 , x_msg_data out nocopy VARCHAR2
1172 , p5_a0 JTF_NUMBER_TABLE
1173 , p5_a1 JTF_NUMBER_TABLE
1174 , p5_a2 JTF_VARCHAR2_TABLE_100
1175 , p5_a3 JTF_NUMBER_TABLE
1176 , p5_a4 JTF_NUMBER_TABLE
1177 , p5_a5 JTF_VARCHAR2_TABLE_100
1178 , p5_a6 JTF_NUMBER_TABLE
1179 , p5_a7 JTF_NUMBER_TABLE
1180 , p5_a8 JTF_NUMBER_TABLE
1181 , p5_a9 JTF_NUMBER_TABLE
1182 , p5_a10 JTF_NUMBER_TABLE
1183 , p5_a11 JTF_VARCHAR2_TABLE_100
1184 , p5_a12 JTF_NUMBER_TABLE
1185 , p5_a13 JTF_NUMBER_TABLE
1186 , p5_a14 JTF_DATE_TABLE
1187 , p5_a15 JTF_NUMBER_TABLE
1188 , p5_a16 JTF_NUMBER_TABLE
1189 , p5_a17 JTF_NUMBER_TABLE
1190 , p5_a18 JTF_NUMBER_TABLE
1191 , p5_a19 JTF_NUMBER_TABLE
1192 , p5_a20 JTF_VARCHAR2_TABLE_2000
1193 , p5_a21 JTF_VARCHAR2_TABLE_3000
1194 , p5_a22 JTF_VARCHAR2_TABLE_100
1195 , p5_a23 JTF_VARCHAR2_TABLE_500
1196 , p5_a24 JTF_VARCHAR2_TABLE_500
1197 , p5_a25 JTF_VARCHAR2_TABLE_500
1198 , p5_a26 JTF_VARCHAR2_TABLE_500
1199 , p5_a27 JTF_VARCHAR2_TABLE_500
1200 , p5_a28 JTF_VARCHAR2_TABLE_500
1201 , p5_a29 JTF_VARCHAR2_TABLE_500
1202 , p5_a30 JTF_VARCHAR2_TABLE_500
1203 , p5_a31 JTF_VARCHAR2_TABLE_500
1204 , p5_a32 JTF_VARCHAR2_TABLE_500
1205 , p5_a33 JTF_VARCHAR2_TABLE_500
1206 , p5_a34 JTF_VARCHAR2_TABLE_500
1207 , p5_a35 JTF_VARCHAR2_TABLE_500
1208 , p5_a36 JTF_VARCHAR2_TABLE_500
1209 , p5_a37 JTF_VARCHAR2_TABLE_500
1210 , p5_a38 JTF_NUMBER_TABLE
1211 , p5_a39 JTF_NUMBER_TABLE
1212 , p5_a40 JTF_NUMBER_TABLE
1213 , p5_a41 JTF_DATE_TABLE
1214 , p5_a42 JTF_NUMBER_TABLE
1215 , p5_a43 JTF_NUMBER_TABLE
1216 , p5_a44 JTF_DATE_TABLE
1217 , p5_a45 JTF_NUMBER_TABLE
1218 , p5_a46 JTF_DATE_TABLE
1219 , p5_a47 JTF_NUMBER_TABLE
1220 , p5_a48 JTF_VARCHAR2_TABLE_100
1221 , p5_a49 JTF_VARCHAR2_TABLE_100
1222 , p5_a50 JTF_NUMBER_TABLE
1223 , p5_a51 JTF_NUMBER_TABLE
1224 , p5_a52 JTF_VARCHAR2_TABLE_100
1225 , p5_a53 JTF_NUMBER_TABLE
1226 , p6_a0 out nocopy JTF_NUMBER_TABLE
1227 , p6_a1 out nocopy JTF_NUMBER_TABLE
1228 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1229 , p6_a3 out nocopy JTF_NUMBER_TABLE
1230 , p6_a4 out nocopy JTF_NUMBER_TABLE
1231 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1232 , p6_a6 out nocopy JTF_NUMBER_TABLE
1233 , p6_a7 out nocopy JTF_NUMBER_TABLE
1234 , p6_a8 out nocopy JTF_NUMBER_TABLE
1235 , p6_a9 out nocopy JTF_NUMBER_TABLE
1236 , p6_a10 out nocopy JTF_NUMBER_TABLE
1237 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
1238 , p6_a12 out nocopy JTF_NUMBER_TABLE
1239 , p6_a13 out nocopy JTF_NUMBER_TABLE
1240 , p6_a14 out nocopy JTF_DATE_TABLE
1241 , p6_a15 out nocopy JTF_NUMBER_TABLE
1242 , p6_a16 out nocopy JTF_NUMBER_TABLE
1243 , p6_a17 out nocopy JTF_NUMBER_TABLE
1244 , p6_a18 out nocopy JTF_NUMBER_TABLE
1245 , p6_a19 out nocopy JTF_NUMBER_TABLE
1246 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_2000
1247 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_3000
1248 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
1249 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1250 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1251 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1252 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1253 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1254 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1255 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1256 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1257 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1258 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1259 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
1260 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
1261 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
1262 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
1263 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
1264 , p6_a38 out nocopy JTF_NUMBER_TABLE
1265 , p6_a39 out nocopy JTF_NUMBER_TABLE
1266 , p6_a40 out nocopy JTF_NUMBER_TABLE
1267 , p6_a41 out nocopy JTF_DATE_TABLE
1268 , p6_a42 out nocopy JTF_NUMBER_TABLE
1269 , p6_a43 out nocopy JTF_NUMBER_TABLE
1270 , p6_a44 out nocopy JTF_DATE_TABLE
1271 , p6_a45 out nocopy JTF_NUMBER_TABLE
1272 , p6_a46 out nocopy JTF_DATE_TABLE
1273 , p6_a47 out nocopy JTF_NUMBER_TABLE
1274 , p6_a48 out nocopy JTF_VARCHAR2_TABLE_100
1275 , p6_a49 out nocopy JTF_VARCHAR2_TABLE_100
1276 , p6_a50 out nocopy JTF_NUMBER_TABLE
1277 , p6_a51 out nocopy JTF_NUMBER_TABLE
1278 , p6_a52 out nocopy JTF_VARCHAR2_TABLE_100
1279 , p6_a53 out nocopy JTF_NUMBER_TABLE
1280 )
1281
1282 as
1283 ddp_tplv_tbl okl_funding_pvt.tplv_tbl_type;
1284 ddx_tplv_tbl okl_funding_pvt.tplv_tbl_type;
1285 ddindx binary_integer; indx binary_integer;
1286 begin
1287
1288 -- copy data to the local IN or IN-OUT args, if any
1289
1290
1291
1292
1293
1294 okl_tpl_pvt_w.rosetta_table_copy_in_p8(ddp_tplv_tbl, p5_a0
1295 , p5_a1
1296 , p5_a2
1297 , p5_a3
1298 , p5_a4
1299 , p5_a5
1300 , p5_a6
1301 , p5_a7
1302 , p5_a8
1303 , p5_a9
1304 , p5_a10
1305 , p5_a11
1306 , p5_a12
1307 , p5_a13
1308 , p5_a14
1309 , p5_a15
1310 , p5_a16
1311 , p5_a17
1312 , p5_a18
1313 , p5_a19
1314 , p5_a20
1315 , p5_a21
1316 , p5_a22
1317 , p5_a23
1318 , p5_a24
1319 , p5_a25
1320 , p5_a26
1321 , p5_a27
1322 , p5_a28
1323 , p5_a29
1324 , p5_a30
1325 , p5_a31
1326 , p5_a32
1327 , p5_a33
1328 , p5_a34
1329 , p5_a35
1330 , p5_a36
1331 , p5_a37
1332 , p5_a38
1333 , p5_a39
1334 , p5_a40
1335 , p5_a41
1336 , p5_a42
1337 , p5_a43
1338 , p5_a44
1339 , p5_a45
1340 , p5_a46
1341 , p5_a47
1342 , p5_a48
1343 , p5_a49
1344 , p5_a50
1345 , p5_a51
1346 , p5_a52
1347 , p5_a53
1348 );
1349
1350
1351 -- here's the delegated call to the old PL/SQL routine
1352 okl_funding_pvt.update_funding_lines(p_api_version,
1353 p_init_msg_list,
1354 x_return_status,
1355 x_msg_count,
1356 x_msg_data,
1357 ddp_tplv_tbl,
1358 ddx_tplv_tbl);
1359
1360 -- copy data back from the local variables to OUT or IN-OUT args, if any
1361
1362
1363
1364
1365
1366
1367 okl_tpl_pvt_w.rosetta_table_copy_out_p8(ddx_tplv_tbl, p6_a0
1368 , p6_a1
1369 , p6_a2
1370 , p6_a3
1371 , p6_a4
1372 , p6_a5
1373 , p6_a6
1374 , p6_a7
1375 , p6_a8
1376 , p6_a9
1377 , p6_a10
1378 , p6_a11
1379 , p6_a12
1380 , p6_a13
1381 , p6_a14
1382 , p6_a15
1383 , p6_a16
1384 , p6_a17
1385 , p6_a18
1386 , p6_a19
1387 , p6_a20
1388 , p6_a21
1389 , p6_a22
1390 , p6_a23
1391 , p6_a24
1392 , p6_a25
1393 , p6_a26
1394 , p6_a27
1395 , p6_a28
1396 , p6_a29
1397 , p6_a30
1398 , p6_a31
1399 , p6_a32
1400 , p6_a33
1401 , p6_a34
1402 , p6_a35
1403 , p6_a36
1404 , p6_a37
1405 , p6_a38
1406 , p6_a39
1407 , p6_a40
1408 , p6_a41
1409 , p6_a42
1410 , p6_a43
1411 , p6_a44
1412 , p6_a45
1413 , p6_a46
1414 , p6_a47
1415 , p6_a48
1416 , p6_a49
1417 , p6_a50
1418 , p6_a51
1419 , p6_a52
1420 , p6_a53
1421 );
1422 end;
1423
1424 procedure sync_header_amount(p_api_version NUMBER
1425 , p_init_msg_list VARCHAR2
1426 , x_return_status out nocopy VARCHAR2
1427 , x_msg_count out nocopy NUMBER
1428 , x_msg_data out nocopy VARCHAR2
1429 , p5_a0 JTF_NUMBER_TABLE
1430 , p5_a1 JTF_NUMBER_TABLE
1431 , p5_a2 JTF_VARCHAR2_TABLE_100
1432 , p5_a3 JTF_NUMBER_TABLE
1433 , p5_a4 JTF_NUMBER_TABLE
1434 , p5_a5 JTF_VARCHAR2_TABLE_100
1435 , p5_a6 JTF_NUMBER_TABLE
1436 , p5_a7 JTF_NUMBER_TABLE
1437 , p5_a8 JTF_NUMBER_TABLE
1438 , p5_a9 JTF_NUMBER_TABLE
1439 , p5_a10 JTF_NUMBER_TABLE
1440 , p5_a11 JTF_VARCHAR2_TABLE_100
1441 , p5_a12 JTF_NUMBER_TABLE
1442 , p5_a13 JTF_NUMBER_TABLE
1443 , p5_a14 JTF_DATE_TABLE
1444 , p5_a15 JTF_NUMBER_TABLE
1445 , p5_a16 JTF_NUMBER_TABLE
1446 , p5_a17 JTF_NUMBER_TABLE
1447 , p5_a18 JTF_NUMBER_TABLE
1448 , p5_a19 JTF_NUMBER_TABLE
1449 , p5_a20 JTF_VARCHAR2_TABLE_2000
1450 , p5_a21 JTF_VARCHAR2_TABLE_3000
1451 , p5_a22 JTF_VARCHAR2_TABLE_100
1452 , p5_a23 JTF_VARCHAR2_TABLE_500
1453 , p5_a24 JTF_VARCHAR2_TABLE_500
1454 , p5_a25 JTF_VARCHAR2_TABLE_500
1455 , p5_a26 JTF_VARCHAR2_TABLE_500
1456 , p5_a27 JTF_VARCHAR2_TABLE_500
1457 , p5_a28 JTF_VARCHAR2_TABLE_500
1458 , p5_a29 JTF_VARCHAR2_TABLE_500
1459 , p5_a30 JTF_VARCHAR2_TABLE_500
1460 , p5_a31 JTF_VARCHAR2_TABLE_500
1461 , p5_a32 JTF_VARCHAR2_TABLE_500
1462 , p5_a33 JTF_VARCHAR2_TABLE_500
1463 , p5_a34 JTF_VARCHAR2_TABLE_500
1464 , p5_a35 JTF_VARCHAR2_TABLE_500
1465 , p5_a36 JTF_VARCHAR2_TABLE_500
1466 , p5_a37 JTF_VARCHAR2_TABLE_500
1467 , p5_a38 JTF_NUMBER_TABLE
1468 , p5_a39 JTF_NUMBER_TABLE
1469 , p5_a40 JTF_NUMBER_TABLE
1470 , p5_a41 JTF_DATE_TABLE
1471 , p5_a42 JTF_NUMBER_TABLE
1472 , p5_a43 JTF_NUMBER_TABLE
1473 , p5_a44 JTF_DATE_TABLE
1474 , p5_a45 JTF_NUMBER_TABLE
1475 , p5_a46 JTF_DATE_TABLE
1476 , p5_a47 JTF_NUMBER_TABLE
1477 , p5_a48 JTF_VARCHAR2_TABLE_100
1478 , p5_a49 JTF_VARCHAR2_TABLE_100
1479 , p5_a50 JTF_NUMBER_TABLE
1480 , p5_a51 JTF_NUMBER_TABLE
1481 , p5_a52 JTF_VARCHAR2_TABLE_100
1482 , p5_a53 JTF_NUMBER_TABLE
1483 )
1484
1485 as
1486 ddp_tplv_tbl okl_funding_pvt.tplv_tbl_type;
1487 ddindx binary_integer; indx binary_integer;
1488 begin
1489
1490 -- copy data to the local IN or IN-OUT args, if any
1491
1492
1493
1494
1495
1496 okl_tpl_pvt_w.rosetta_table_copy_in_p8(ddp_tplv_tbl, p5_a0
1497 , p5_a1
1498 , p5_a2
1499 , p5_a3
1500 , p5_a4
1501 , p5_a5
1502 , p5_a6
1503 , p5_a7
1504 , p5_a8
1505 , p5_a9
1506 , p5_a10
1507 , p5_a11
1508 , p5_a12
1509 , p5_a13
1510 , p5_a14
1511 , p5_a15
1512 , p5_a16
1513 , p5_a17
1514 , p5_a18
1515 , p5_a19
1516 , p5_a20
1517 , p5_a21
1518 , p5_a22
1519 , p5_a23
1520 , p5_a24
1521 , p5_a25
1522 , p5_a26
1523 , p5_a27
1524 , p5_a28
1525 , p5_a29
1526 , p5_a30
1527 , p5_a31
1528 , p5_a32
1529 , p5_a33
1530 , p5_a34
1531 , p5_a35
1532 , p5_a36
1533 , p5_a37
1534 , p5_a38
1535 , p5_a39
1536 , p5_a40
1537 , p5_a41
1538 , p5_a42
1539 , p5_a43
1540 , p5_a44
1541 , p5_a45
1542 , p5_a46
1543 , p5_a47
1544 , p5_a48
1545 , p5_a49
1546 , p5_a50
1547 , p5_a51
1548 , p5_a52
1549 , p5_a53
1550 );
1551
1552 -- here's the delegated call to the old PL/SQL routine
1553 okl_funding_pvt.sync_header_amount(p_api_version,
1554 p_init_msg_list,
1555 x_return_status,
1556 x_msg_count,
1557 x_msg_data,
1558 ddp_tplv_tbl);
1559
1560 -- copy data back from the local variables to OUT or IN-OUT args, if any
1561
1562
1563
1564
1565
1566 end;
1567
1568 function get_chr_exp_canbe_funded_amt(p_contract_id NUMBER
1569 , p_vendor_site_id NUMBER
1570 , p_due_date date
1571 ) return number
1572
1573 as
1574 ddp_due_date date;
1575 ddindx binary_integer; indx binary_integer;
1576 ddrosetta_retval number;
1577 begin
1578
1579 -- copy data to the local IN or IN-OUT args, if any
1580
1581
1582 ddp_due_date := rosetta_g_miss_date_in_map(p_due_date);
1583
1584 -- here's the delegated call to the old PL/SQL routine
1585 ddrosetta_retval := okl_funding_pvt.get_chr_exp_canbe_funded_amt(p_contract_id,
1586 p_vendor_site_id,
1587 ddp_due_date);
1588
1589 -- copy data back from the local variables to OUT or IN-OUT args, if any
1590
1591
1592
1593 return ddrosetta_retval;
1594 end;
1595
1596 function get_chr_exp_canbe_funded_amt(p_contract_id NUMBER
1597 , p_due_date date
1598 ) return number
1599
1600 as
1601 ddp_due_date date;
1602 ddindx binary_integer; indx binary_integer;
1603 ddrosetta_retval number;
1604 begin
1605
1606 -- copy data to the local IN or IN-OUT args, if any
1607
1608 ddp_due_date := rosetta_g_miss_date_in_map(p_due_date);
1609
1610 -- here's the delegated call to the old PL/SQL routine
1611 ddrosetta_retval := okl_funding_pvt.get_chr_exp_canbe_funded_amt(p_contract_id,
1612 ddp_due_date);
1613
1614 -- copy data back from the local variables to OUT or IN-OUT args, if any
1615
1616
1617 return ddrosetta_retval;
1618 end;
1619
1620 function is_kle_id_unique(p0_a0 JTF_NUMBER_TABLE
1621 , p0_a1 JTF_NUMBER_TABLE
1622 , p0_a2 JTF_VARCHAR2_TABLE_100
1623 , p0_a3 JTF_NUMBER_TABLE
1624 , p0_a4 JTF_NUMBER_TABLE
1625 , p0_a5 JTF_VARCHAR2_TABLE_100
1626 , p0_a6 JTF_NUMBER_TABLE
1627 , p0_a7 JTF_NUMBER_TABLE
1628 , p0_a8 JTF_NUMBER_TABLE
1629 , p0_a9 JTF_NUMBER_TABLE
1630 , p0_a10 JTF_NUMBER_TABLE
1631 , p0_a11 JTF_VARCHAR2_TABLE_100
1632 , p0_a12 JTF_NUMBER_TABLE
1633 , p0_a13 JTF_NUMBER_TABLE
1634 , p0_a14 JTF_DATE_TABLE
1635 , p0_a15 JTF_NUMBER_TABLE
1636 , p0_a16 JTF_NUMBER_TABLE
1637 , p0_a17 JTF_NUMBER_TABLE
1638 , p0_a18 JTF_NUMBER_TABLE
1639 , p0_a19 JTF_NUMBER_TABLE
1640 , p0_a20 JTF_VARCHAR2_TABLE_2000
1641 , p0_a21 JTF_VARCHAR2_TABLE_3000
1642 , p0_a22 JTF_VARCHAR2_TABLE_100
1643 , p0_a23 JTF_VARCHAR2_TABLE_500
1644 , p0_a24 JTF_VARCHAR2_TABLE_500
1645 , p0_a25 JTF_VARCHAR2_TABLE_500
1646 , p0_a26 JTF_VARCHAR2_TABLE_500
1647 , p0_a27 JTF_VARCHAR2_TABLE_500
1648 , p0_a28 JTF_VARCHAR2_TABLE_500
1649 , p0_a29 JTF_VARCHAR2_TABLE_500
1650 , p0_a30 JTF_VARCHAR2_TABLE_500
1651 , p0_a31 JTF_VARCHAR2_TABLE_500
1652 , p0_a32 JTF_VARCHAR2_TABLE_500
1653 , p0_a33 JTF_VARCHAR2_TABLE_500
1654 , p0_a34 JTF_VARCHAR2_TABLE_500
1655 , p0_a35 JTF_VARCHAR2_TABLE_500
1656 , p0_a36 JTF_VARCHAR2_TABLE_500
1657 , p0_a37 JTF_VARCHAR2_TABLE_500
1658 , p0_a38 JTF_NUMBER_TABLE
1659 , p0_a39 JTF_NUMBER_TABLE
1660 , p0_a40 JTF_NUMBER_TABLE
1661 , p0_a41 JTF_DATE_TABLE
1662 , p0_a42 JTF_NUMBER_TABLE
1663 , p0_a43 JTF_NUMBER_TABLE
1664 , p0_a44 JTF_DATE_TABLE
1665 , p0_a45 JTF_NUMBER_TABLE
1666 , p0_a46 JTF_DATE_TABLE
1667 , p0_a47 JTF_NUMBER_TABLE
1668 , p0_a48 JTF_VARCHAR2_TABLE_100
1669 , p0_a49 JTF_VARCHAR2_TABLE_100
1670 , p0_a50 JTF_NUMBER_TABLE
1671 , p0_a51 JTF_NUMBER_TABLE
1672 , p0_a52 JTF_VARCHAR2_TABLE_100
1673 , p0_a53 JTF_NUMBER_TABLE
1674 ) return varchar2
1675
1676 as
1677 ddp_tplv_tbl okl_funding_pvt.tplv_tbl_type;
1678 ddindx binary_integer; indx binary_integer;
1679 ddrosetta_retval varchar2(4000);
1680 begin
1681
1682 -- copy data to the local IN or IN-OUT args, if any
1683 okl_tpl_pvt_w.rosetta_table_copy_in_p8(ddp_tplv_tbl, p0_a0
1684 , p0_a1
1685 , p0_a2
1686 , p0_a3
1687 , p0_a4
1688 , p0_a5
1689 , p0_a6
1690 , p0_a7
1691 , p0_a8
1692 , p0_a9
1693 , p0_a10
1694 , p0_a11
1695 , p0_a12
1696 , p0_a13
1697 , p0_a14
1698 , p0_a15
1699 , p0_a16
1700 , p0_a17
1701 , p0_a18
1702 , p0_a19
1703 , p0_a20
1704 , p0_a21
1705 , p0_a22
1706 , p0_a23
1707 , p0_a24
1708 , p0_a25
1709 , p0_a26
1710 , p0_a27
1711 , p0_a28
1712 , p0_a29
1713 , p0_a30
1714 , p0_a31
1715 , p0_a32
1716 , p0_a33
1717 , p0_a34
1718 , p0_a35
1719 , p0_a36
1720 , p0_a37
1721 , p0_a38
1722 , p0_a39
1723 , p0_a40
1724 , p0_a41
1725 , p0_a42
1726 , p0_a43
1727 , p0_a44
1728 , p0_a45
1729 , p0_a46
1730 , p0_a47
1731 , p0_a48
1732 , p0_a49
1733 , p0_a50
1734 , p0_a51
1735 , p0_a52
1736 , p0_a53
1737 );
1738
1739 -- here's the delegated call to the old PL/SQL routine
1740 ddrosetta_retval := okl_funding_pvt.is_kle_id_unique(ddp_tplv_tbl);
1741
1742 -- copy data back from the local variables to OUT or IN-OUT args, if any
1743
1744 return ddrosetta_retval;
1745 end;
1746
1747 procedure contract_fee_canbe_funded(p_api_version NUMBER
1748 , p_init_msg_list VARCHAR2
1749 , x_return_status out nocopy VARCHAR2
1750 , x_msg_count out nocopy NUMBER
1751 , x_msg_data out nocopy VARCHAR2
1752 , x_value out nocopy NUMBER
1753 , p_contract_id NUMBER
1754 , p_fee_line_id NUMBER
1755 , p_effective_date date
1756 )
1757
1758 as
1759 ddp_effective_date date;
1760 ddindx binary_integer; indx binary_integer;
1761 begin
1762
1763 -- copy data to the local IN or IN-OUT args, if any
1764
1765
1766
1767
1768
1769
1770
1771
1772 ddp_effective_date := rosetta_g_miss_date_in_map(p_effective_date);
1773
1774 -- here's the delegated call to the old PL/SQL routine
1775 okl_funding_pvt.contract_fee_canbe_funded(p_api_version,
1776 p_init_msg_list,
1777 x_return_status,
1778 x_msg_count,
1779 x_msg_data,
1780 x_value,
1781 p_contract_id,
1782 p_fee_line_id,
1783 ddp_effective_date);
1784
1785 -- copy data back from the local variables to OUT or IN-OUT args, if any
1786
1787
1788
1789
1790
1791
1792
1793
1794 end;
1795
1796 function get_chr_fee_canbe_funded_amt(p_contract_id NUMBER
1797 , p_fee_line_id NUMBER
1798 , p_effective_date date
1799 ) return number
1800
1801 as
1802 ddp_effective_date date;
1803 ddindx binary_integer; indx binary_integer;
1804 ddrosetta_retval number;
1805 begin
1806
1807 -- copy data to the local IN or IN-OUT args, if any
1808
1809
1810 ddp_effective_date := rosetta_g_miss_date_in_map(p_effective_date);
1811
1812 -- here's the delegated call to the old PL/SQL routine
1813 ddrosetta_retval := okl_funding_pvt.get_chr_fee_canbe_funded_amt(p_contract_id,
1814 p_fee_line_id,
1815 ddp_effective_date);
1816
1817 -- copy data back from the local variables to OUT or IN-OUT args, if any
1818
1819
1820
1821 return ddrosetta_retval;
1822 end;
1823
1824 procedure is_contract_fully_funded(p_api_version NUMBER
1825 , p_init_msg_list VARCHAR2
1826 , x_return_status out nocopy VARCHAR2
1827 , x_msg_count out nocopy NUMBER
1828 , x_msg_data out nocopy VARCHAR2
1829 , x_value out nocopy number
1830 , p_contract_id NUMBER
1831 )
1832
1833 as
1834 ddx_value boolean;
1835 ddindx binary_integer; indx binary_integer;
1836 begin
1837
1838 -- copy data to the local IN or IN-OUT args, if any
1839
1840
1841
1842
1843
1844
1845
1846 -- here's the delegated call to the old PL/SQL routine
1847 okl_funding_pvt.is_contract_fully_funded(p_api_version,
1848 p_init_msg_list,
1849 x_return_status,
1850 x_msg_count,
1851 x_msg_data,
1852 ddx_value,
1853 p_contract_id);
1854
1855 -- copy data back from the local variables to OUT or IN-OUT args, if any
1856
1857
1858
1859
1860
1861 if ddx_value is null
1862 then x_value := null;
1863 elsif ddx_value
1864 then x_value := 1;
1865 else x_value := 0;
1866 end if;
1867
1868 end;
1869
1870 procedure is_contract_fully_funded(p_contract_id NUMBER
1871 , ddrosetta_retval_bool OUT NOCOPY NUMBER
1872 )
1873
1874 as
1875 ddindx binary_integer; indx binary_integer;
1876 ddrosetta_retval boolean;
1877 begin
1878
1879 -- copy data to the local IN or IN-OUT args, if any
1880
1881 -- here's the delegated call to the old PL/SQL routine
1882 ddrosetta_retval := okl_funding_pvt.is_contract_fully_funded(p_contract_id);
1883
1884 -- copy data back from the local variables to OUT or IN-OUT args, if any
1885 if ddrosetta_retval is null
1886 then ddrosetta_retval_bool := null;
1887 elsif ddrosetta_retval
1888 then ddrosetta_retval_bool := 1;
1889 else ddrosetta_retval_bool := 0;
1890 end if;
1891 end;
1892
1893 end okl_funding_pvt_w;