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