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