[Home] [Help]
PACKAGE BODY: APPS.OKL_MAINTAIN_FEE_PVT_W
Source
1 package body okl_maintain_fee_pvt_w as
2 /* $Header: OKLUFEEB.pls 120.13 2006/03/02 23:47:09 smereddy 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p18(t out nocopy okl_maintain_fee_pvt.fee_types_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_300
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_200
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_200
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_400
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_200
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_DATE_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_NUMBER_TABLE
39 , a17 JTF_DATE_TABLE
40 , a18 JTF_VARCHAR2_TABLE_100
41 , a19 JTF_VARCHAR2_TABLE_100
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_VARCHAR2_TABLE_500
44 , a22 JTF_VARCHAR2_TABLE_500
45 , a23 JTF_VARCHAR2_TABLE_500
46 , a24 JTF_VARCHAR2_TABLE_500
47 , a25 JTF_VARCHAR2_TABLE_500
48 , a26 JTF_VARCHAR2_TABLE_500
49 , a27 JTF_VARCHAR2_TABLE_500
50 , a28 JTF_VARCHAR2_TABLE_500
51 , a29 JTF_VARCHAR2_TABLE_500
52 , a30 JTF_VARCHAR2_TABLE_500
53 , a31 JTF_VARCHAR2_TABLE_500
54 , a32 JTF_VARCHAR2_TABLE_500
55 , a33 JTF_VARCHAR2_TABLE_500
56 , a34 JTF_VARCHAR2_TABLE_500
57 , a35 JTF_VARCHAR2_TABLE_100
58 ) as
59 ddindx binary_integer; indx binary_integer;
60 begin
61 if a0 is not null and a0.count > 0 then
62 if a0.count > 0 then
63 indx := a0.first;
64 ddindx := 1;
65 while true loop
66 t(ddindx).line_id := rosetta_g_miss_num_map(a0(indx));
67 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a1(indx));
68 t(ddindx).fee_type := a2(indx);
69 t(ddindx).item_id := rosetta_g_miss_num_map(a3(indx));
70 t(ddindx).item_name := a4(indx);
71 t(ddindx).item_id1 := a5(indx);
72 t(ddindx).item_id2 := a6(indx);
73 t(ddindx).party_id := rosetta_g_miss_num_map(a7(indx));
74 t(ddindx).party_name := a8(indx);
75 t(ddindx).party_id1 := a9(indx);
76 t(ddindx).party_id2 := a10(indx);
77 t(ddindx).effective_from := rosetta_g_miss_date_in_map(a11(indx));
78 t(ddindx).effective_to := rosetta_g_miss_date_in_map(a12(indx));
79 t(ddindx).amount := rosetta_g_miss_num_map(a13(indx));
80 t(ddindx).initial_direct_cost := rosetta_g_miss_num_map(a14(indx));
81 t(ddindx).roll_qt := rosetta_g_miss_num_map(a15(indx));
82 t(ddindx).qte_id := rosetta_g_miss_num_map(a16(indx));
83 t(ddindx).funding_date := rosetta_g_miss_date_in_map(a17(indx));
84 t(ddindx).fee_purpose_code := a18(indx);
85 t(ddindx).attribute_category := a19(indx);
86 t(ddindx).attribute1 := a20(indx);
87 t(ddindx).attribute2 := a21(indx);
88 t(ddindx).attribute3 := a22(indx);
89 t(ddindx).attribute4 := a23(indx);
90 t(ddindx).attribute5 := a24(indx);
91 t(ddindx).attribute6 := a25(indx);
92 t(ddindx).attribute7 := a26(indx);
93 t(ddindx).attribute8 := a27(indx);
94 t(ddindx).attribute9 := a28(indx);
95 t(ddindx).attribute10 := a29(indx);
96 t(ddindx).attribute11 := a30(indx);
97 t(ddindx).attribute12 := a31(indx);
98 t(ddindx).attribute13 := a32(indx);
99 t(ddindx).attribute14 := a33(indx);
100 t(ddindx).attribute15 := a34(indx);
101 t(ddindx).validate_dff_yn := a35(indx);
102 ddindx := ddindx+1;
103 if a0.last =indx
104 then exit;
105 end if;
106 indx := a0.next(indx);
107 end loop;
108 end if;
109 end if;
110 end rosetta_table_copy_in_p18;
111 procedure rosetta_table_copy_out_p18(t okl_maintain_fee_pvt.fee_types_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
112 , a1 out nocopy JTF_NUMBER_TABLE
113 , a2 out nocopy JTF_VARCHAR2_TABLE_300
114 , a3 out nocopy JTF_NUMBER_TABLE
115 , a4 out nocopy JTF_VARCHAR2_TABLE_200
116 , a5 out nocopy JTF_VARCHAR2_TABLE_100
117 , a6 out nocopy JTF_VARCHAR2_TABLE_200
118 , a7 out nocopy JTF_NUMBER_TABLE
119 , a8 out nocopy JTF_VARCHAR2_TABLE_400
120 , a9 out nocopy JTF_VARCHAR2_TABLE_100
121 , a10 out nocopy JTF_VARCHAR2_TABLE_200
122 , a11 out nocopy JTF_DATE_TABLE
123 , a12 out nocopy JTF_DATE_TABLE
124 , a13 out nocopy JTF_NUMBER_TABLE
125 , a14 out nocopy JTF_NUMBER_TABLE
126 , a15 out nocopy JTF_NUMBER_TABLE
127 , a16 out nocopy JTF_NUMBER_TABLE
128 , a17 out nocopy JTF_DATE_TABLE
129 , a18 out nocopy JTF_VARCHAR2_TABLE_100
130 , a19 out nocopy JTF_VARCHAR2_TABLE_100
131 , a20 out nocopy JTF_VARCHAR2_TABLE_500
132 , a21 out nocopy JTF_VARCHAR2_TABLE_500
133 , a22 out nocopy JTF_VARCHAR2_TABLE_500
134 , a23 out nocopy JTF_VARCHAR2_TABLE_500
135 , a24 out nocopy JTF_VARCHAR2_TABLE_500
136 , a25 out nocopy JTF_VARCHAR2_TABLE_500
137 , a26 out nocopy JTF_VARCHAR2_TABLE_500
138 , a27 out nocopy JTF_VARCHAR2_TABLE_500
139 , a28 out nocopy JTF_VARCHAR2_TABLE_500
140 , a29 out nocopy JTF_VARCHAR2_TABLE_500
141 , a30 out nocopy JTF_VARCHAR2_TABLE_500
142 , a31 out nocopy JTF_VARCHAR2_TABLE_500
143 , a32 out nocopy JTF_VARCHAR2_TABLE_500
144 , a33 out nocopy JTF_VARCHAR2_TABLE_500
145 , a34 out nocopy JTF_VARCHAR2_TABLE_500
146 , a35 out nocopy JTF_VARCHAR2_TABLE_100
147 ) as
148 ddindx binary_integer; indx binary_integer;
149 begin
150 if t is null or t.count = 0 then
151 a0 := JTF_NUMBER_TABLE();
152 a1 := JTF_NUMBER_TABLE();
153 a2 := JTF_VARCHAR2_TABLE_300();
154 a3 := JTF_NUMBER_TABLE();
155 a4 := JTF_VARCHAR2_TABLE_200();
156 a5 := JTF_VARCHAR2_TABLE_100();
157 a6 := JTF_VARCHAR2_TABLE_200();
158 a7 := JTF_NUMBER_TABLE();
159 a8 := JTF_VARCHAR2_TABLE_400();
160 a9 := JTF_VARCHAR2_TABLE_100();
161 a10 := JTF_VARCHAR2_TABLE_200();
162 a11 := JTF_DATE_TABLE();
163 a12 := JTF_DATE_TABLE();
164 a13 := JTF_NUMBER_TABLE();
165 a14 := JTF_NUMBER_TABLE();
166 a15 := JTF_NUMBER_TABLE();
167 a16 := JTF_NUMBER_TABLE();
168 a17 := JTF_DATE_TABLE();
169 a18 := JTF_VARCHAR2_TABLE_100();
170 a19 := JTF_VARCHAR2_TABLE_100();
171 a20 := JTF_VARCHAR2_TABLE_500();
172 a21 := JTF_VARCHAR2_TABLE_500();
173 a22 := JTF_VARCHAR2_TABLE_500();
174 a23 := JTF_VARCHAR2_TABLE_500();
175 a24 := JTF_VARCHAR2_TABLE_500();
176 a25 := JTF_VARCHAR2_TABLE_500();
177 a26 := JTF_VARCHAR2_TABLE_500();
178 a27 := JTF_VARCHAR2_TABLE_500();
179 a28 := JTF_VARCHAR2_TABLE_500();
180 a29 := JTF_VARCHAR2_TABLE_500();
181 a30 := JTF_VARCHAR2_TABLE_500();
182 a31 := JTF_VARCHAR2_TABLE_500();
183 a32 := JTF_VARCHAR2_TABLE_500();
184 a33 := JTF_VARCHAR2_TABLE_500();
185 a34 := JTF_VARCHAR2_TABLE_500();
186 a35 := JTF_VARCHAR2_TABLE_100();
187 else
188 a0 := JTF_NUMBER_TABLE();
189 a1 := JTF_NUMBER_TABLE();
190 a2 := JTF_VARCHAR2_TABLE_300();
191 a3 := JTF_NUMBER_TABLE();
192 a4 := JTF_VARCHAR2_TABLE_200();
193 a5 := JTF_VARCHAR2_TABLE_100();
194 a6 := JTF_VARCHAR2_TABLE_200();
195 a7 := JTF_NUMBER_TABLE();
196 a8 := JTF_VARCHAR2_TABLE_400();
197 a9 := JTF_VARCHAR2_TABLE_100();
198 a10 := JTF_VARCHAR2_TABLE_200();
199 a11 := JTF_DATE_TABLE();
200 a12 := JTF_DATE_TABLE();
201 a13 := JTF_NUMBER_TABLE();
202 a14 := JTF_NUMBER_TABLE();
203 a15 := JTF_NUMBER_TABLE();
204 a16 := JTF_NUMBER_TABLE();
205 a17 := JTF_DATE_TABLE();
206 a18 := JTF_VARCHAR2_TABLE_100();
207 a19 := JTF_VARCHAR2_TABLE_100();
208 a20 := JTF_VARCHAR2_TABLE_500();
209 a21 := JTF_VARCHAR2_TABLE_500();
210 a22 := JTF_VARCHAR2_TABLE_500();
211 a23 := JTF_VARCHAR2_TABLE_500();
212 a24 := JTF_VARCHAR2_TABLE_500();
213 a25 := JTF_VARCHAR2_TABLE_500();
214 a26 := JTF_VARCHAR2_TABLE_500();
215 a27 := JTF_VARCHAR2_TABLE_500();
216 a28 := JTF_VARCHAR2_TABLE_500();
217 a29 := JTF_VARCHAR2_TABLE_500();
218 a30 := JTF_VARCHAR2_TABLE_500();
219 a31 := JTF_VARCHAR2_TABLE_500();
220 a32 := JTF_VARCHAR2_TABLE_500();
221 a33 := JTF_VARCHAR2_TABLE_500();
222 a34 := JTF_VARCHAR2_TABLE_500();
223 a35 := JTF_VARCHAR2_TABLE_100();
224 if t.count > 0 then
225 a0.extend(t.count);
226 a1.extend(t.count);
227 a2.extend(t.count);
228 a3.extend(t.count);
229 a4.extend(t.count);
230 a5.extend(t.count);
231 a6.extend(t.count);
232 a7.extend(t.count);
233 a8.extend(t.count);
234 a9.extend(t.count);
235 a10.extend(t.count);
236 a11.extend(t.count);
237 a12.extend(t.count);
238 a13.extend(t.count);
239 a14.extend(t.count);
240 a15.extend(t.count);
241 a16.extend(t.count);
242 a17.extend(t.count);
243 a18.extend(t.count);
244 a19.extend(t.count);
245 a20.extend(t.count);
246 a21.extend(t.count);
247 a22.extend(t.count);
248 a23.extend(t.count);
249 a24.extend(t.count);
250 a25.extend(t.count);
251 a26.extend(t.count);
252 a27.extend(t.count);
253 a28.extend(t.count);
254 a29.extend(t.count);
255 a30.extend(t.count);
256 a31.extend(t.count);
257 a32.extend(t.count);
258 a33.extend(t.count);
259 a34.extend(t.count);
260 a35.extend(t.count);
261 ddindx := t.first;
262 indx := 1;
263 while true loop
264 a0(indx) := rosetta_g_miss_num_map(t(ddindx).line_id);
265 a1(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
266 a2(indx) := t(ddindx).fee_type;
267 a3(indx) := rosetta_g_miss_num_map(t(ddindx).item_id);
268 a4(indx) := t(ddindx).item_name;
269 a5(indx) := t(ddindx).item_id1;
270 a6(indx) := t(ddindx).item_id2;
271 a7(indx) := rosetta_g_miss_num_map(t(ddindx).party_id);
272 a8(indx) := t(ddindx).party_name;
273 a9(indx) := t(ddindx).party_id1;
274 a10(indx) := t(ddindx).party_id2;
275 a11(indx) := t(ddindx).effective_from;
276 a12(indx) := t(ddindx).effective_to;
277 a13(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
278 a14(indx) := rosetta_g_miss_num_map(t(ddindx).initial_direct_cost);
279 a15(indx) := rosetta_g_miss_num_map(t(ddindx).roll_qt);
280 a16(indx) := rosetta_g_miss_num_map(t(ddindx).qte_id);
281 a17(indx) := t(ddindx).funding_date;
282 a18(indx) := t(ddindx).fee_purpose_code;
283 a19(indx) := t(ddindx).attribute_category;
284 a20(indx) := t(ddindx).attribute1;
285 a21(indx) := t(ddindx).attribute2;
286 a22(indx) := t(ddindx).attribute3;
287 a23(indx) := t(ddindx).attribute4;
288 a24(indx) := t(ddindx).attribute5;
289 a25(indx) := t(ddindx).attribute6;
290 a26(indx) := t(ddindx).attribute7;
291 a27(indx) := t(ddindx).attribute8;
292 a28(indx) := t(ddindx).attribute9;
293 a29(indx) := t(ddindx).attribute10;
294 a30(indx) := t(ddindx).attribute11;
295 a31(indx) := t(ddindx).attribute12;
296 a32(indx) := t(ddindx).attribute13;
297 a33(indx) := t(ddindx).attribute14;
298 a34(indx) := t(ddindx).attribute15;
299 a35(indx) := t(ddindx).validate_dff_yn;
300 indx := indx+1;
301 if t.last =ddindx
302 then exit;
303 end if;
304 ddindx := t.next(ddindx);
305 end loop;
306 end if;
307 end if;
308 end rosetta_table_copy_out_p18;
309
310 procedure rosetta_table_copy_in_p20(t out nocopy okl_maintain_fee_pvt.passthru_dtl_tbl_type, a0 JTF_NUMBER_TABLE
311 , a1 JTF_NUMBER_TABLE
312 , a2 JTF_NUMBER_TABLE
313 , a3 JTF_VARCHAR2_TABLE_100
314 , a4 JTF_NUMBER_TABLE
315 , a5 JTF_DATE_TABLE
316 , a6 JTF_VARCHAR2_TABLE_100
317 , a7 JTF_VARCHAR2_TABLE_200
318 , a8 JTF_DATE_TABLE
319 , a9 JTF_DATE_TABLE
320 , a10 JTF_NUMBER_TABLE
321 , a11 JTF_NUMBER_TABLE
322 , a12 JTF_NUMBER_TABLE
323 , a13 JTF_NUMBER_TABLE
324 , a14 JTF_NUMBER_TABLE
325 , a15 JTF_VARCHAR2_TABLE_100
326 , a16 JTF_VARCHAR2_TABLE_100
327 , a17 JTF_NUMBER_TABLE
328 , a18 JTF_VARCHAR2_TABLE_100
329 , a19 JTF_DATE_TABLE
330 , a20 JTF_VARCHAR2_TABLE_100
331 , a21 JTF_NUMBER_TABLE
332 , a22 JTF_VARCHAR2_TABLE_100
333 , a23 JTF_NUMBER_TABLE
334 , a24 JTF_NUMBER_TABLE
335 , a25 JTF_VARCHAR2_TABLE_100
336 , a26 JTF_NUMBER_TABLE
337 , a27 JTF_NUMBER_TABLE
338 , a28 JTF_NUMBER_TABLE
339 , a29 JTF_NUMBER_TABLE
340 , a30 JTF_NUMBER_TABLE
341 , a31 JTF_VARCHAR2_TABLE_100
342 , a32 JTF_NUMBER_TABLE
343 , a33 JTF_DATE_TABLE
344 , a34 JTF_VARCHAR2_TABLE_100
345 , a35 JTF_VARCHAR2_TABLE_200
346 , a36 JTF_DATE_TABLE
347 , a37 JTF_DATE_TABLE
348 , a38 JTF_NUMBER_TABLE
349 , a39 JTF_NUMBER_TABLE
350 , a40 JTF_NUMBER_TABLE
351 , a41 JTF_NUMBER_TABLE
352 , a42 JTF_NUMBER_TABLE
353 , a43 JTF_VARCHAR2_TABLE_100
354 , a44 JTF_VARCHAR2_TABLE_100
355 , a45 JTF_NUMBER_TABLE
356 , a46 JTF_VARCHAR2_TABLE_100
357 , a47 JTF_DATE_TABLE
358 , a48 JTF_VARCHAR2_TABLE_100
359 , a49 JTF_NUMBER_TABLE
360 , a50 JTF_VARCHAR2_TABLE_100
361 , a51 JTF_NUMBER_TABLE
362 , a52 JTF_NUMBER_TABLE
363 , a53 JTF_VARCHAR2_TABLE_100
364 , a54 JTF_NUMBER_TABLE
365 , a55 JTF_NUMBER_TABLE
366 ) as
367 ddindx binary_integer; indx binary_integer;
368 begin
369 if a0 is not null and a0.count > 0 then
370 if a0.count > 0 then
371 indx := a0.first;
372 ddindx := 1;
373 while true loop
374 t(ddindx).b_dnz_chr_id := rosetta_g_miss_num_map(a0(indx));
375 t(ddindx).b_cle_id := rosetta_g_miss_num_map(a1(indx));
376 t(ddindx).b_ppl_id := rosetta_g_miss_num_map(a2(indx));
377 t(ddindx).b_passthru_term := a3(indx);
378 t(ddindx).b_passthru_stream_type_id := rosetta_g_miss_num_map(a4(indx));
379 t(ddindx).b_passthru_start_date := rosetta_g_miss_date_in_map(a5(indx));
380 t(ddindx).b_payout_basis := a6(indx);
381 t(ddindx).b_payout_basis_formula := a7(indx);
382 t(ddindx).b_effective_from := rosetta_g_miss_date_in_map(a8(indx));
383 t(ddindx).b_effective_to := rosetta_g_miss_date_in_map(a9(indx));
384 t(ddindx).b_payment_dtls_id := rosetta_g_miss_num_map(a10(indx));
385 t(ddindx).b_cpl_id := rosetta_g_miss_num_map(a11(indx));
386 t(ddindx).b_vendor_id := rosetta_g_miss_num_map(a12(indx));
387 t(ddindx).b_pay_site_id := rosetta_g_miss_num_map(a13(indx));
388 t(ddindx).b_payment_term_id := rosetta_g_miss_num_map(a14(indx));
389 t(ddindx).b_payment_method_code := a15(indx);
390 t(ddindx).b_pay_group_code := a16(indx);
391 t(ddindx).b_payment_hdr_id := rosetta_g_miss_num_map(a17(indx));
392 t(ddindx).b_payment_basis := a18(indx);
393 t(ddindx).b_payment_start_date := rosetta_g_miss_date_in_map(a19(indx));
394 t(ddindx).b_payment_frequency := a20(indx);
395 t(ddindx).b_remit_days := rosetta_g_miss_num_map(a21(indx));
396 t(ddindx).b_disbursement_basis := a22(indx);
397 t(ddindx).b_disbursement_fixed_amount := rosetta_g_miss_num_map(a23(indx));
398 t(ddindx).b_disbursement_percent := rosetta_g_miss_num_map(a24(indx));
399 t(ddindx).b_processing_fee_basis := a25(indx);
400 t(ddindx).b_processing_fee_fixed_amount := rosetta_g_miss_num_map(a26(indx));
401 t(ddindx).b_processing_fee_percent := rosetta_g_miss_num_map(a27(indx));
402 t(ddindx).e_dnz_chr_id := rosetta_g_miss_num_map(a28(indx));
403 t(ddindx).e_cle_id := rosetta_g_miss_num_map(a29(indx));
404 t(ddindx).e_ppl_id := rosetta_g_miss_num_map(a30(indx));
405 t(ddindx).e_passthru_term := a31(indx);
406 t(ddindx).e_passthru_stream_type_id := rosetta_g_miss_num_map(a32(indx));
407 t(ddindx).e_passthru_start_date := rosetta_g_miss_date_in_map(a33(indx));
408 t(ddindx).e_payout_basis := a34(indx);
409 t(ddindx).e_payout_basis_formula := a35(indx);
410 t(ddindx).e_effective_from := rosetta_g_miss_date_in_map(a36(indx));
411 t(ddindx).e_effective_to := rosetta_g_miss_date_in_map(a37(indx));
412 t(ddindx).e_payment_dtls_id := rosetta_g_miss_num_map(a38(indx));
413 t(ddindx).e_cpl_id := rosetta_g_miss_num_map(a39(indx));
414 t(ddindx).e_vendor_id := rosetta_g_miss_num_map(a40(indx));
415 t(ddindx).e_pay_site_id := rosetta_g_miss_num_map(a41(indx));
416 t(ddindx).e_payment_term_id := rosetta_g_miss_num_map(a42(indx));
417 t(ddindx).e_payment_method_code := a43(indx);
418 t(ddindx).e_pay_group_code := a44(indx);
419 t(ddindx).e_payment_hdr_id := rosetta_g_miss_num_map(a45(indx));
420 t(ddindx).e_payment_basis := a46(indx);
421 t(ddindx).e_payment_start_date := rosetta_g_miss_date_in_map(a47(indx));
422 t(ddindx).e_payment_frequency := a48(indx);
423 t(ddindx).e_remit_days := rosetta_g_miss_num_map(a49(indx));
424 t(ddindx).e_disbursement_basis := a50(indx);
425 t(ddindx).e_disbursement_fixed_amount := rosetta_g_miss_num_map(a51(indx));
426 t(ddindx).e_disbursement_percent := rosetta_g_miss_num_map(a52(indx));
427 t(ddindx).e_processing_fee_basis := a53(indx);
428 t(ddindx).e_processing_fee_fixed_amount := rosetta_g_miss_num_map(a54(indx));
429 t(ddindx).e_processing_fee_percent := rosetta_g_miss_num_map(a55(indx));
430 ddindx := ddindx+1;
431 if a0.last =indx
432 then exit;
433 end if;
434 indx := a0.next(indx);
435 end loop;
436 end if;
437 end if;
438 end rosetta_table_copy_in_p20;
439 procedure rosetta_table_copy_out_p20(t okl_maintain_fee_pvt.passthru_dtl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
440 , a1 out nocopy JTF_NUMBER_TABLE
441 , a2 out nocopy JTF_NUMBER_TABLE
442 , a3 out nocopy JTF_VARCHAR2_TABLE_100
443 , a4 out nocopy JTF_NUMBER_TABLE
444 , a5 out nocopy JTF_DATE_TABLE
445 , a6 out nocopy JTF_VARCHAR2_TABLE_100
446 , a7 out nocopy JTF_VARCHAR2_TABLE_200
447 , a8 out nocopy JTF_DATE_TABLE
448 , a9 out nocopy JTF_DATE_TABLE
449 , a10 out nocopy JTF_NUMBER_TABLE
450 , a11 out nocopy JTF_NUMBER_TABLE
451 , a12 out nocopy JTF_NUMBER_TABLE
452 , a13 out nocopy JTF_NUMBER_TABLE
453 , a14 out nocopy JTF_NUMBER_TABLE
454 , a15 out nocopy JTF_VARCHAR2_TABLE_100
455 , a16 out nocopy JTF_VARCHAR2_TABLE_100
456 , a17 out nocopy JTF_NUMBER_TABLE
457 , a18 out nocopy JTF_VARCHAR2_TABLE_100
458 , a19 out nocopy JTF_DATE_TABLE
459 , a20 out nocopy JTF_VARCHAR2_TABLE_100
460 , a21 out nocopy JTF_NUMBER_TABLE
461 , a22 out nocopy JTF_VARCHAR2_TABLE_100
462 , a23 out nocopy JTF_NUMBER_TABLE
463 , a24 out nocopy JTF_NUMBER_TABLE
464 , a25 out nocopy JTF_VARCHAR2_TABLE_100
465 , a26 out nocopy JTF_NUMBER_TABLE
466 , a27 out nocopy JTF_NUMBER_TABLE
467 , a28 out nocopy JTF_NUMBER_TABLE
468 , a29 out nocopy JTF_NUMBER_TABLE
469 , a30 out nocopy JTF_NUMBER_TABLE
470 , a31 out nocopy JTF_VARCHAR2_TABLE_100
471 , a32 out nocopy JTF_NUMBER_TABLE
472 , a33 out nocopy JTF_DATE_TABLE
473 , a34 out nocopy JTF_VARCHAR2_TABLE_100
474 , a35 out nocopy JTF_VARCHAR2_TABLE_200
475 , a36 out nocopy JTF_DATE_TABLE
476 , a37 out nocopy JTF_DATE_TABLE
477 , a38 out nocopy JTF_NUMBER_TABLE
478 , a39 out nocopy JTF_NUMBER_TABLE
479 , a40 out nocopy JTF_NUMBER_TABLE
480 , a41 out nocopy JTF_NUMBER_TABLE
481 , a42 out nocopy JTF_NUMBER_TABLE
482 , a43 out nocopy JTF_VARCHAR2_TABLE_100
483 , a44 out nocopy JTF_VARCHAR2_TABLE_100
484 , a45 out nocopy JTF_NUMBER_TABLE
485 , a46 out nocopy JTF_VARCHAR2_TABLE_100
486 , a47 out nocopy JTF_DATE_TABLE
487 , a48 out nocopy JTF_VARCHAR2_TABLE_100
488 , a49 out nocopy JTF_NUMBER_TABLE
489 , a50 out nocopy JTF_VARCHAR2_TABLE_100
490 , a51 out nocopy JTF_NUMBER_TABLE
491 , a52 out nocopy JTF_NUMBER_TABLE
492 , a53 out nocopy JTF_VARCHAR2_TABLE_100
493 , a54 out nocopy JTF_NUMBER_TABLE
494 , a55 out nocopy JTF_NUMBER_TABLE
495 ) as
496 ddindx binary_integer; indx binary_integer;
497 begin
498 if t is null or t.count = 0 then
499 a0 := JTF_NUMBER_TABLE();
500 a1 := JTF_NUMBER_TABLE();
501 a2 := JTF_NUMBER_TABLE();
502 a3 := JTF_VARCHAR2_TABLE_100();
503 a4 := JTF_NUMBER_TABLE();
504 a5 := JTF_DATE_TABLE();
505 a6 := JTF_VARCHAR2_TABLE_100();
506 a7 := JTF_VARCHAR2_TABLE_200();
507 a8 := JTF_DATE_TABLE();
508 a9 := JTF_DATE_TABLE();
509 a10 := JTF_NUMBER_TABLE();
510 a11 := JTF_NUMBER_TABLE();
511 a12 := JTF_NUMBER_TABLE();
512 a13 := JTF_NUMBER_TABLE();
513 a14 := JTF_NUMBER_TABLE();
514 a15 := JTF_VARCHAR2_TABLE_100();
515 a16 := JTF_VARCHAR2_TABLE_100();
516 a17 := JTF_NUMBER_TABLE();
517 a18 := JTF_VARCHAR2_TABLE_100();
518 a19 := JTF_DATE_TABLE();
519 a20 := JTF_VARCHAR2_TABLE_100();
520 a21 := JTF_NUMBER_TABLE();
521 a22 := JTF_VARCHAR2_TABLE_100();
522 a23 := JTF_NUMBER_TABLE();
523 a24 := JTF_NUMBER_TABLE();
524 a25 := JTF_VARCHAR2_TABLE_100();
525 a26 := JTF_NUMBER_TABLE();
526 a27 := JTF_NUMBER_TABLE();
527 a28 := JTF_NUMBER_TABLE();
528 a29 := JTF_NUMBER_TABLE();
529 a30 := JTF_NUMBER_TABLE();
530 a31 := JTF_VARCHAR2_TABLE_100();
531 a32 := JTF_NUMBER_TABLE();
532 a33 := JTF_DATE_TABLE();
533 a34 := JTF_VARCHAR2_TABLE_100();
534 a35 := JTF_VARCHAR2_TABLE_200();
535 a36 := JTF_DATE_TABLE();
536 a37 := JTF_DATE_TABLE();
537 a38 := JTF_NUMBER_TABLE();
538 a39 := JTF_NUMBER_TABLE();
539 a40 := JTF_NUMBER_TABLE();
540 a41 := JTF_NUMBER_TABLE();
541 a42 := JTF_NUMBER_TABLE();
542 a43 := JTF_VARCHAR2_TABLE_100();
543 a44 := JTF_VARCHAR2_TABLE_100();
544 a45 := JTF_NUMBER_TABLE();
545 a46 := JTF_VARCHAR2_TABLE_100();
546 a47 := JTF_DATE_TABLE();
547 a48 := JTF_VARCHAR2_TABLE_100();
548 a49 := JTF_NUMBER_TABLE();
549 a50 := JTF_VARCHAR2_TABLE_100();
550 a51 := JTF_NUMBER_TABLE();
551 a52 := JTF_NUMBER_TABLE();
552 a53 := JTF_VARCHAR2_TABLE_100();
553 a54 := JTF_NUMBER_TABLE();
554 a55 := JTF_NUMBER_TABLE();
555 else
556 a0 := JTF_NUMBER_TABLE();
557 a1 := JTF_NUMBER_TABLE();
558 a2 := JTF_NUMBER_TABLE();
559 a3 := JTF_VARCHAR2_TABLE_100();
560 a4 := JTF_NUMBER_TABLE();
561 a5 := JTF_DATE_TABLE();
562 a6 := JTF_VARCHAR2_TABLE_100();
563 a7 := JTF_VARCHAR2_TABLE_200();
564 a8 := JTF_DATE_TABLE();
565 a9 := JTF_DATE_TABLE();
566 a10 := JTF_NUMBER_TABLE();
567 a11 := JTF_NUMBER_TABLE();
568 a12 := JTF_NUMBER_TABLE();
569 a13 := JTF_NUMBER_TABLE();
570 a14 := JTF_NUMBER_TABLE();
571 a15 := JTF_VARCHAR2_TABLE_100();
572 a16 := JTF_VARCHAR2_TABLE_100();
573 a17 := JTF_NUMBER_TABLE();
574 a18 := JTF_VARCHAR2_TABLE_100();
575 a19 := JTF_DATE_TABLE();
576 a20 := JTF_VARCHAR2_TABLE_100();
577 a21 := JTF_NUMBER_TABLE();
578 a22 := JTF_VARCHAR2_TABLE_100();
579 a23 := JTF_NUMBER_TABLE();
580 a24 := JTF_NUMBER_TABLE();
581 a25 := JTF_VARCHAR2_TABLE_100();
582 a26 := JTF_NUMBER_TABLE();
583 a27 := JTF_NUMBER_TABLE();
584 a28 := JTF_NUMBER_TABLE();
585 a29 := JTF_NUMBER_TABLE();
586 a30 := JTF_NUMBER_TABLE();
587 a31 := JTF_VARCHAR2_TABLE_100();
588 a32 := JTF_NUMBER_TABLE();
589 a33 := JTF_DATE_TABLE();
590 a34 := JTF_VARCHAR2_TABLE_100();
591 a35 := JTF_VARCHAR2_TABLE_200();
592 a36 := JTF_DATE_TABLE();
593 a37 := JTF_DATE_TABLE();
594 a38 := JTF_NUMBER_TABLE();
595 a39 := JTF_NUMBER_TABLE();
596 a40 := JTF_NUMBER_TABLE();
597 a41 := JTF_NUMBER_TABLE();
598 a42 := JTF_NUMBER_TABLE();
599 a43 := JTF_VARCHAR2_TABLE_100();
600 a44 := JTF_VARCHAR2_TABLE_100();
601 a45 := JTF_NUMBER_TABLE();
602 a46 := JTF_VARCHAR2_TABLE_100();
603 a47 := JTF_DATE_TABLE();
604 a48 := JTF_VARCHAR2_TABLE_100();
605 a49 := JTF_NUMBER_TABLE();
606 a50 := JTF_VARCHAR2_TABLE_100();
607 a51 := JTF_NUMBER_TABLE();
608 a52 := JTF_NUMBER_TABLE();
609 a53 := JTF_VARCHAR2_TABLE_100();
610 a54 := JTF_NUMBER_TABLE();
611 a55 := JTF_NUMBER_TABLE();
612 if t.count > 0 then
613 a0.extend(t.count);
614 a1.extend(t.count);
615 a2.extend(t.count);
616 a3.extend(t.count);
617 a4.extend(t.count);
618 a5.extend(t.count);
619 a6.extend(t.count);
620 a7.extend(t.count);
621 a8.extend(t.count);
622 a9.extend(t.count);
623 a10.extend(t.count);
624 a11.extend(t.count);
625 a12.extend(t.count);
626 a13.extend(t.count);
627 a14.extend(t.count);
628 a15.extend(t.count);
629 a16.extend(t.count);
630 a17.extend(t.count);
631 a18.extend(t.count);
632 a19.extend(t.count);
633 a20.extend(t.count);
634 a21.extend(t.count);
635 a22.extend(t.count);
636 a23.extend(t.count);
637 a24.extend(t.count);
638 a25.extend(t.count);
639 a26.extend(t.count);
640 a27.extend(t.count);
641 a28.extend(t.count);
642 a29.extend(t.count);
643 a30.extend(t.count);
644 a31.extend(t.count);
645 a32.extend(t.count);
646 a33.extend(t.count);
647 a34.extend(t.count);
648 a35.extend(t.count);
649 a36.extend(t.count);
650 a37.extend(t.count);
651 a38.extend(t.count);
652 a39.extend(t.count);
653 a40.extend(t.count);
654 a41.extend(t.count);
655 a42.extend(t.count);
656 a43.extend(t.count);
657 a44.extend(t.count);
658 a45.extend(t.count);
659 a46.extend(t.count);
660 a47.extend(t.count);
661 a48.extend(t.count);
662 a49.extend(t.count);
663 a50.extend(t.count);
664 a51.extend(t.count);
665 a52.extend(t.count);
666 a53.extend(t.count);
667 a54.extend(t.count);
668 a55.extend(t.count);
669 ddindx := t.first;
670 indx := 1;
671 while true loop
672 a0(indx) := rosetta_g_miss_num_map(t(ddindx).b_dnz_chr_id);
673 a1(indx) := rosetta_g_miss_num_map(t(ddindx).b_cle_id);
674 a2(indx) := rosetta_g_miss_num_map(t(ddindx).b_ppl_id);
675 a3(indx) := t(ddindx).b_passthru_term;
676 a4(indx) := rosetta_g_miss_num_map(t(ddindx).b_passthru_stream_type_id);
677 a5(indx) := t(ddindx).b_passthru_start_date;
678 a6(indx) := t(ddindx).b_payout_basis;
679 a7(indx) := t(ddindx).b_payout_basis_formula;
680 a8(indx) := t(ddindx).b_effective_from;
681 a9(indx) := t(ddindx).b_effective_to;
682 a10(indx) := rosetta_g_miss_num_map(t(ddindx).b_payment_dtls_id);
683 a11(indx) := rosetta_g_miss_num_map(t(ddindx).b_cpl_id);
684 a12(indx) := rosetta_g_miss_num_map(t(ddindx).b_vendor_id);
685 a13(indx) := rosetta_g_miss_num_map(t(ddindx).b_pay_site_id);
686 a14(indx) := rosetta_g_miss_num_map(t(ddindx).b_payment_term_id);
687 a15(indx) := t(ddindx).b_payment_method_code;
688 a16(indx) := t(ddindx).b_pay_group_code;
689 a17(indx) := rosetta_g_miss_num_map(t(ddindx).b_payment_hdr_id);
690 a18(indx) := t(ddindx).b_payment_basis;
691 a19(indx) := t(ddindx).b_payment_start_date;
692 a20(indx) := t(ddindx).b_payment_frequency;
693 a21(indx) := rosetta_g_miss_num_map(t(ddindx).b_remit_days);
694 a22(indx) := t(ddindx).b_disbursement_basis;
695 a23(indx) := rosetta_g_miss_num_map(t(ddindx).b_disbursement_fixed_amount);
696 a24(indx) := rosetta_g_miss_num_map(t(ddindx).b_disbursement_percent);
697 a25(indx) := t(ddindx).b_processing_fee_basis;
698 a26(indx) := rosetta_g_miss_num_map(t(ddindx).b_processing_fee_fixed_amount);
699 a27(indx) := rosetta_g_miss_num_map(t(ddindx).b_processing_fee_percent);
700 a28(indx) := rosetta_g_miss_num_map(t(ddindx).e_dnz_chr_id);
701 a29(indx) := rosetta_g_miss_num_map(t(ddindx).e_cle_id);
702 a30(indx) := rosetta_g_miss_num_map(t(ddindx).e_ppl_id);
703 a31(indx) := t(ddindx).e_passthru_term;
704 a32(indx) := rosetta_g_miss_num_map(t(ddindx).e_passthru_stream_type_id);
705 a33(indx) := t(ddindx).e_passthru_start_date;
706 a34(indx) := t(ddindx).e_payout_basis;
707 a35(indx) := t(ddindx).e_payout_basis_formula;
708 a36(indx) := t(ddindx).e_effective_from;
709 a37(indx) := t(ddindx).e_effective_to;
710 a38(indx) := rosetta_g_miss_num_map(t(ddindx).e_payment_dtls_id);
711 a39(indx) := rosetta_g_miss_num_map(t(ddindx).e_cpl_id);
712 a40(indx) := rosetta_g_miss_num_map(t(ddindx).e_vendor_id);
713 a41(indx) := rosetta_g_miss_num_map(t(ddindx).e_pay_site_id);
714 a42(indx) := rosetta_g_miss_num_map(t(ddindx).e_payment_term_id);
715 a43(indx) := t(ddindx).e_payment_method_code;
716 a44(indx) := t(ddindx).e_pay_group_code;
717 a45(indx) := rosetta_g_miss_num_map(t(ddindx).e_payment_hdr_id);
718 a46(indx) := t(ddindx).e_payment_basis;
719 a47(indx) := t(ddindx).e_payment_start_date;
720 a48(indx) := t(ddindx).e_payment_frequency;
721 a49(indx) := rosetta_g_miss_num_map(t(ddindx).e_remit_days);
722 a50(indx) := t(ddindx).e_disbursement_basis;
723 a51(indx) := rosetta_g_miss_num_map(t(ddindx).e_disbursement_fixed_amount);
724 a52(indx) := rosetta_g_miss_num_map(t(ddindx).e_disbursement_percent);
725 a53(indx) := t(ddindx).e_processing_fee_basis;
726 a54(indx) := rosetta_g_miss_num_map(t(ddindx).e_processing_fee_fixed_amount);
727 a55(indx) := rosetta_g_miss_num_map(t(ddindx).e_processing_fee_percent);
728 indx := indx+1;
729 if t.last =ddindx
730 then exit;
731 end if;
732 ddindx := t.next(ddindx);
733 end loop;
734 end if;
735 end if;
736 end rosetta_table_copy_out_p20;
737
738 procedure rosetta_table_copy_in_p22(t out nocopy okl_maintain_fee_pvt.passthru_tbl_type, a0 JTF_NUMBER_TABLE
739 , a1 JTF_NUMBER_TABLE
740 , a2 JTF_NUMBER_TABLE
741 , a3 JTF_NUMBER_TABLE
742 , a4 JTF_DATE_TABLE
743 , a5 JTF_VARCHAR2_TABLE_100
744 , a6 JTF_VARCHAR2_TABLE_100
745 , a7 JTF_VARCHAR2_TABLE_100
746 , a8 JTF_VARCHAR2_TABLE_200
747 , a9 JTF_VARCHAR2_TABLE_100
748 , a10 JTF_NUMBER_TABLE
749 , a11 JTF_NUMBER_TABLE
750 ) as
751 ddindx binary_integer; indx binary_integer;
752 begin
753 if a0 is not null and a0.count > 0 then
754 if a0.count > 0 then
755 indx := a0.first;
756 ddindx := 1;
757 while true loop
758 t(ddindx).base_id := rosetta_g_miss_num_map(a0(indx));
759 t(ddindx).evergreen_id := rosetta_g_miss_num_map(a1(indx));
760 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a2(indx));
761 t(ddindx).cle_id := rosetta_g_miss_num_map(a3(indx));
762 t(ddindx).passthru_start_date := rosetta_g_miss_date_in_map(a4(indx));
763 t(ddindx).payout_basis := a5(indx);
764 t(ddindx).evergreen_eligible_yn := a6(indx);
765 t(ddindx).evergreen_payout_basis := a7(indx);
766 t(ddindx).evergreen_payout_basis_formula := a8(indx);
767 t(ddindx).passthru_term := a9(indx);
768 t(ddindx).base_stream_type_id := rosetta_g_miss_num_map(a10(indx));
769 t(ddindx).evg_stream_type_id := rosetta_g_miss_num_map(a11(indx));
770 ddindx := ddindx+1;
771 if a0.last =indx
772 then exit;
773 end if;
774 indx := a0.next(indx);
775 end loop;
776 end if;
777 end if;
778 end rosetta_table_copy_in_p22;
779 procedure rosetta_table_copy_out_p22(t okl_maintain_fee_pvt.passthru_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
780 , a1 out nocopy JTF_NUMBER_TABLE
781 , a2 out nocopy JTF_NUMBER_TABLE
782 , a3 out nocopy JTF_NUMBER_TABLE
783 , a4 out nocopy JTF_DATE_TABLE
784 , a5 out nocopy JTF_VARCHAR2_TABLE_100
785 , a6 out nocopy JTF_VARCHAR2_TABLE_100
786 , a7 out nocopy JTF_VARCHAR2_TABLE_100
787 , a8 out nocopy JTF_VARCHAR2_TABLE_200
788 , a9 out nocopy JTF_VARCHAR2_TABLE_100
789 , a10 out nocopy JTF_NUMBER_TABLE
790 , a11 out nocopy JTF_NUMBER_TABLE
791 ) as
792 ddindx binary_integer; indx binary_integer;
793 begin
794 if t is null or t.count = 0 then
795 a0 := JTF_NUMBER_TABLE();
796 a1 := JTF_NUMBER_TABLE();
797 a2 := JTF_NUMBER_TABLE();
798 a3 := JTF_NUMBER_TABLE();
799 a4 := JTF_DATE_TABLE();
800 a5 := JTF_VARCHAR2_TABLE_100();
801 a6 := JTF_VARCHAR2_TABLE_100();
802 a7 := JTF_VARCHAR2_TABLE_100();
803 a8 := JTF_VARCHAR2_TABLE_200();
804 a9 := JTF_VARCHAR2_TABLE_100();
805 a10 := JTF_NUMBER_TABLE();
806 a11 := JTF_NUMBER_TABLE();
807 else
808 a0 := JTF_NUMBER_TABLE();
809 a1 := JTF_NUMBER_TABLE();
810 a2 := JTF_NUMBER_TABLE();
811 a3 := JTF_NUMBER_TABLE();
812 a4 := JTF_DATE_TABLE();
813 a5 := JTF_VARCHAR2_TABLE_100();
814 a6 := JTF_VARCHAR2_TABLE_100();
815 a7 := JTF_VARCHAR2_TABLE_100();
816 a8 := JTF_VARCHAR2_TABLE_200();
817 a9 := JTF_VARCHAR2_TABLE_100();
818 a10 := JTF_NUMBER_TABLE();
819 a11 := JTF_NUMBER_TABLE();
820 if t.count > 0 then
821 a0.extend(t.count);
822 a1.extend(t.count);
823 a2.extend(t.count);
824 a3.extend(t.count);
825 a4.extend(t.count);
826 a5.extend(t.count);
827 a6.extend(t.count);
828 a7.extend(t.count);
829 a8.extend(t.count);
830 a9.extend(t.count);
831 a10.extend(t.count);
832 a11.extend(t.count);
833 ddindx := t.first;
834 indx := 1;
835 while true loop
836 a0(indx) := rosetta_g_miss_num_map(t(ddindx).base_id);
837 a1(indx) := rosetta_g_miss_num_map(t(ddindx).evergreen_id);
838 a2(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
839 a3(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
840 a4(indx) := t(ddindx).passthru_start_date;
841 a5(indx) := t(ddindx).payout_basis;
842 a6(indx) := t(ddindx).evergreen_eligible_yn;
843 a7(indx) := t(ddindx).evergreen_payout_basis;
844 a8(indx) := t(ddindx).evergreen_payout_basis_formula;
845 a9(indx) := t(ddindx).passthru_term;
846 a10(indx) := rosetta_g_miss_num_map(t(ddindx).base_stream_type_id);
847 a11(indx) := rosetta_g_miss_num_map(t(ddindx).evg_stream_type_id);
848 indx := indx+1;
849 if t.last =ddindx
850 then exit;
851 end if;
852 ddindx := t.next(ddindx);
853 end loop;
854 end if;
855 end if;
856 end rosetta_table_copy_out_p22;
857
858 procedure rosetta_table_copy_in_p24(t out nocopy okl_maintain_fee_pvt.party_tab_type, a0 JTF_NUMBER_TABLE
859 , a1 JTF_VARCHAR2_TABLE_100
860 , a2 JTF_VARCHAR2_TABLE_500
861 , a3 JTF_VARCHAR2_TABLE_500
862 , a4 JTF_VARCHAR2_TABLE_500
863 , a5 JTF_VARCHAR2_TABLE_500
864 , a6 JTF_VARCHAR2_TABLE_500
865 , a7 JTF_VARCHAR2_TABLE_500
866 , a8 JTF_VARCHAR2_TABLE_500
867 , a9 JTF_VARCHAR2_TABLE_500
868 , a10 JTF_VARCHAR2_TABLE_500
869 , a11 JTF_VARCHAR2_TABLE_500
870 , a12 JTF_VARCHAR2_TABLE_500
871 , a13 JTF_VARCHAR2_TABLE_500
872 , a14 JTF_VARCHAR2_TABLE_500
873 , a15 JTF_VARCHAR2_TABLE_500
874 , a16 JTF_VARCHAR2_TABLE_500
875 , a17 JTF_VARCHAR2_TABLE_100
876 , a18 JTF_VARCHAR2_TABLE_200
877 , a19 JTF_VARCHAR2_TABLE_100
878 , a20 JTF_VARCHAR2_TABLE_100
879 , a21 JTF_NUMBER_TABLE
880 , a22 JTF_NUMBER_TABLE
881 , a23 JTF_NUMBER_TABLE
882 ) as
883 ddindx binary_integer; indx binary_integer;
884 begin
885 if a0 is not null and a0.count > 0 then
886 if a0.count > 0 then
887 indx := a0.first;
888 ddindx := 1;
889 while true loop
890 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
891 t(ddindx).attribute_category := a1(indx);
892 t(ddindx).attribute1 := a2(indx);
893 t(ddindx).attribute2 := a3(indx);
894 t(ddindx).attribute3 := a4(indx);
895 t(ddindx).attribute4 := a5(indx);
896 t(ddindx).attribute5 := a6(indx);
897 t(ddindx).attribute6 := a7(indx);
898 t(ddindx).attribute7 := a8(indx);
899 t(ddindx).attribute8 := a9(indx);
900 t(ddindx).attribute9 := a10(indx);
901 t(ddindx).attribute10 := a11(indx);
902 t(ddindx).attribute11 := a12(indx);
903 t(ddindx).attribute12 := a13(indx);
904 t(ddindx).attribute13 := a14(indx);
905 t(ddindx).attribute14 := a15(indx);
906 t(ddindx).attribute15 := a16(indx);
907 t(ddindx).object1_id1 := a17(indx);
908 t(ddindx).object1_id2 := a18(indx);
909 t(ddindx).jtot_object1_code := a19(indx);
910 t(ddindx).rle_code := a20(indx);
911 t(ddindx).chr_id := rosetta_g_miss_num_map(a21(indx));
912 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a22(indx));
913 t(ddindx).cle_id := rosetta_g_miss_num_map(a23(indx));
914 ddindx := ddindx+1;
915 if a0.last =indx
916 then exit;
917 end if;
918 indx := a0.next(indx);
919 end loop;
920 end if;
921 end if;
922 end rosetta_table_copy_in_p24;
923 procedure rosetta_table_copy_out_p24(t okl_maintain_fee_pvt.party_tab_type, a0 out nocopy JTF_NUMBER_TABLE
924 , a1 out nocopy JTF_VARCHAR2_TABLE_100
925 , a2 out nocopy JTF_VARCHAR2_TABLE_500
926 , a3 out nocopy JTF_VARCHAR2_TABLE_500
927 , a4 out nocopy JTF_VARCHAR2_TABLE_500
928 , a5 out nocopy JTF_VARCHAR2_TABLE_500
929 , a6 out nocopy JTF_VARCHAR2_TABLE_500
930 , a7 out nocopy JTF_VARCHAR2_TABLE_500
931 , a8 out nocopy JTF_VARCHAR2_TABLE_500
932 , a9 out nocopy JTF_VARCHAR2_TABLE_500
933 , a10 out nocopy JTF_VARCHAR2_TABLE_500
934 , a11 out nocopy JTF_VARCHAR2_TABLE_500
935 , a12 out nocopy JTF_VARCHAR2_TABLE_500
936 , a13 out nocopy JTF_VARCHAR2_TABLE_500
937 , a14 out nocopy JTF_VARCHAR2_TABLE_500
938 , a15 out nocopy JTF_VARCHAR2_TABLE_500
939 , a16 out nocopy JTF_VARCHAR2_TABLE_500
940 , a17 out nocopy JTF_VARCHAR2_TABLE_100
941 , a18 out nocopy JTF_VARCHAR2_TABLE_200
942 , a19 out nocopy JTF_VARCHAR2_TABLE_100
943 , a20 out nocopy JTF_VARCHAR2_TABLE_100
944 , a21 out nocopy JTF_NUMBER_TABLE
945 , a22 out nocopy JTF_NUMBER_TABLE
946 , a23 out nocopy JTF_NUMBER_TABLE
947 ) as
948 ddindx binary_integer; indx binary_integer;
949 begin
950 if t is null or t.count = 0 then
951 a0 := JTF_NUMBER_TABLE();
952 a1 := JTF_VARCHAR2_TABLE_100();
953 a2 := JTF_VARCHAR2_TABLE_500();
954 a3 := JTF_VARCHAR2_TABLE_500();
955 a4 := JTF_VARCHAR2_TABLE_500();
956 a5 := JTF_VARCHAR2_TABLE_500();
957 a6 := JTF_VARCHAR2_TABLE_500();
958 a7 := JTF_VARCHAR2_TABLE_500();
959 a8 := JTF_VARCHAR2_TABLE_500();
960 a9 := JTF_VARCHAR2_TABLE_500();
961 a10 := JTF_VARCHAR2_TABLE_500();
962 a11 := JTF_VARCHAR2_TABLE_500();
963 a12 := JTF_VARCHAR2_TABLE_500();
964 a13 := JTF_VARCHAR2_TABLE_500();
965 a14 := JTF_VARCHAR2_TABLE_500();
966 a15 := JTF_VARCHAR2_TABLE_500();
967 a16 := JTF_VARCHAR2_TABLE_500();
968 a17 := JTF_VARCHAR2_TABLE_100();
969 a18 := JTF_VARCHAR2_TABLE_200();
970 a19 := JTF_VARCHAR2_TABLE_100();
971 a20 := JTF_VARCHAR2_TABLE_100();
972 a21 := JTF_NUMBER_TABLE();
973 a22 := JTF_NUMBER_TABLE();
974 a23 := JTF_NUMBER_TABLE();
975 else
976 a0 := JTF_NUMBER_TABLE();
977 a1 := JTF_VARCHAR2_TABLE_100();
978 a2 := JTF_VARCHAR2_TABLE_500();
979 a3 := JTF_VARCHAR2_TABLE_500();
980 a4 := JTF_VARCHAR2_TABLE_500();
981 a5 := JTF_VARCHAR2_TABLE_500();
982 a6 := JTF_VARCHAR2_TABLE_500();
983 a7 := JTF_VARCHAR2_TABLE_500();
984 a8 := JTF_VARCHAR2_TABLE_500();
985 a9 := JTF_VARCHAR2_TABLE_500();
986 a10 := JTF_VARCHAR2_TABLE_500();
987 a11 := JTF_VARCHAR2_TABLE_500();
988 a12 := JTF_VARCHAR2_TABLE_500();
989 a13 := JTF_VARCHAR2_TABLE_500();
990 a14 := JTF_VARCHAR2_TABLE_500();
991 a15 := JTF_VARCHAR2_TABLE_500();
992 a16 := JTF_VARCHAR2_TABLE_500();
993 a17 := JTF_VARCHAR2_TABLE_100();
994 a18 := JTF_VARCHAR2_TABLE_200();
995 a19 := JTF_VARCHAR2_TABLE_100();
996 a20 := JTF_VARCHAR2_TABLE_100();
997 a21 := JTF_NUMBER_TABLE();
998 a22 := JTF_NUMBER_TABLE();
999 a23 := JTF_NUMBER_TABLE();
1000 if t.count > 0 then
1001 a0.extend(t.count);
1002 a1.extend(t.count);
1003 a2.extend(t.count);
1004 a3.extend(t.count);
1005 a4.extend(t.count);
1006 a5.extend(t.count);
1007 a6.extend(t.count);
1008 a7.extend(t.count);
1009 a8.extend(t.count);
1010 a9.extend(t.count);
1011 a10.extend(t.count);
1012 a11.extend(t.count);
1013 a12.extend(t.count);
1014 a13.extend(t.count);
1015 a14.extend(t.count);
1016 a15.extend(t.count);
1017 a16.extend(t.count);
1018 a17.extend(t.count);
1019 a18.extend(t.count);
1020 a19.extend(t.count);
1021 a20.extend(t.count);
1022 a21.extend(t.count);
1023 a22.extend(t.count);
1024 a23.extend(t.count);
1025 ddindx := t.first;
1026 indx := 1;
1027 while true loop
1028 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
1029 a1(indx) := t(ddindx).attribute_category;
1030 a2(indx) := t(ddindx).attribute1;
1031 a3(indx) := t(ddindx).attribute2;
1032 a4(indx) := t(ddindx).attribute3;
1033 a5(indx) := t(ddindx).attribute4;
1034 a6(indx) := t(ddindx).attribute5;
1035 a7(indx) := t(ddindx).attribute6;
1036 a8(indx) := t(ddindx).attribute7;
1037 a9(indx) := t(ddindx).attribute8;
1038 a10(indx) := t(ddindx).attribute9;
1039 a11(indx) := t(ddindx).attribute10;
1040 a12(indx) := t(ddindx).attribute11;
1041 a13(indx) := t(ddindx).attribute12;
1042 a14(indx) := t(ddindx).attribute13;
1043 a15(indx) := t(ddindx).attribute14;
1044 a16(indx) := t(ddindx).attribute15;
1045 a17(indx) := t(ddindx).object1_id1;
1046 a18(indx) := t(ddindx).object1_id2;
1047 a19(indx) := t(ddindx).jtot_object1_code;
1048 a20(indx) := t(ddindx).rle_code;
1049 a21(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
1050 a22(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
1051 a23(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
1052 indx := indx+1;
1053 if t.last =ddindx
1054 then exit;
1055 end if;
1056 ddindx := t.next(ddindx);
1057 end loop;
1058 end if;
1059 end if;
1060 end rosetta_table_copy_out_p24;
1061
1062 procedure create_payment_dtls(p_api_version NUMBER
1063 , p_init_msg_list VARCHAR2
1064 , x_return_status out nocopy VARCHAR2
1065 , x_msg_count out nocopy NUMBER
1066 , x_msg_data out nocopy VARCHAR2
1067 , p6_a0 out nocopy NUMBER
1068 , p6_a1 out nocopy NUMBER
1069 , p6_a2 out nocopy NUMBER
1070 , p6_a3 out nocopy VARCHAR2
1071 , p6_a4 out nocopy NUMBER
1072 , p6_a5 out nocopy DATE
1073 , p6_a6 out nocopy VARCHAR2
1074 , p6_a7 out nocopy VARCHAR2
1075 , p6_a8 out nocopy DATE
1076 , p6_a9 out nocopy DATE
1077 , p6_a10 out nocopy NUMBER
1078 , p6_a11 out nocopy NUMBER
1079 , p6_a12 out nocopy NUMBER
1080 , p6_a13 out nocopy NUMBER
1081 , p6_a14 out nocopy NUMBER
1082 , p6_a15 out nocopy VARCHAR2
1083 , p6_a16 out nocopy VARCHAR2
1084 , p6_a17 out nocopy NUMBER
1085 , p6_a18 out nocopy VARCHAR2
1086 , p6_a19 out nocopy DATE
1087 , p6_a20 out nocopy VARCHAR2
1088 , p6_a21 out nocopy NUMBER
1089 , p6_a22 out nocopy VARCHAR2
1090 , p6_a23 out nocopy NUMBER
1091 , p6_a24 out nocopy NUMBER
1092 , p6_a25 out nocopy VARCHAR2
1093 , p6_a26 out nocopy NUMBER
1094 , p6_a27 out nocopy NUMBER
1095 , p6_a28 out nocopy NUMBER
1096 , p6_a29 out nocopy NUMBER
1097 , p6_a30 out nocopy NUMBER
1098 , p6_a31 out nocopy VARCHAR2
1099 , p6_a32 out nocopy NUMBER
1100 , p6_a33 out nocopy DATE
1101 , p6_a34 out nocopy VARCHAR2
1102 , p6_a35 out nocopy VARCHAR2
1103 , p6_a36 out nocopy DATE
1104 , p6_a37 out nocopy DATE
1105 , p6_a38 out nocopy NUMBER
1106 , p6_a39 out nocopy NUMBER
1107 , p6_a40 out nocopy NUMBER
1108 , p6_a41 out nocopy NUMBER
1109 , p6_a42 out nocopy NUMBER
1110 , p6_a43 out nocopy VARCHAR2
1111 , p6_a44 out nocopy VARCHAR2
1112 , p6_a45 out nocopy NUMBER
1113 , p6_a46 out nocopy VARCHAR2
1114 , p6_a47 out nocopy DATE
1115 , p6_a48 out nocopy VARCHAR2
1116 , p6_a49 out nocopy NUMBER
1117 , p6_a50 out nocopy VARCHAR2
1118 , p6_a51 out nocopy NUMBER
1119 , p6_a52 out nocopy NUMBER
1120 , p6_a53 out nocopy VARCHAR2
1121 , p6_a54 out nocopy NUMBER
1122 , p6_a55 out nocopy NUMBER
1123 , p5_a0 NUMBER := 0-1962.0724
1124 , p5_a1 NUMBER := 0-1962.0724
1125 , p5_a2 NUMBER := 0-1962.0724
1126 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1127 , p5_a4 NUMBER := 0-1962.0724
1128 , p5_a5 DATE := fnd_api.g_miss_date
1129 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1130 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1131 , p5_a8 DATE := fnd_api.g_miss_date
1132 , p5_a9 DATE := fnd_api.g_miss_date
1133 , p5_a10 NUMBER := 0-1962.0724
1134 , p5_a11 NUMBER := 0-1962.0724
1135 , p5_a12 NUMBER := 0-1962.0724
1136 , p5_a13 NUMBER := 0-1962.0724
1137 , p5_a14 NUMBER := 0-1962.0724
1138 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1139 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1140 , p5_a17 NUMBER := 0-1962.0724
1141 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1142 , p5_a19 DATE := fnd_api.g_miss_date
1143 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1144 , p5_a21 NUMBER := 0-1962.0724
1145 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1146 , p5_a23 NUMBER := 0-1962.0724
1147 , p5_a24 NUMBER := 0-1962.0724
1148 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1149 , p5_a26 NUMBER := 0-1962.0724
1150 , p5_a27 NUMBER := 0-1962.0724
1151 , p5_a28 NUMBER := 0-1962.0724
1152 , p5_a29 NUMBER := 0-1962.0724
1153 , p5_a30 NUMBER := 0-1962.0724
1154 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1155 , p5_a32 NUMBER := 0-1962.0724
1156 , p5_a33 DATE := fnd_api.g_miss_date
1157 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1158 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1159 , p5_a36 DATE := fnd_api.g_miss_date
1160 , p5_a37 DATE := fnd_api.g_miss_date
1161 , p5_a38 NUMBER := 0-1962.0724
1162 , p5_a39 NUMBER := 0-1962.0724
1163 , p5_a40 NUMBER := 0-1962.0724
1164 , p5_a41 NUMBER := 0-1962.0724
1165 , p5_a42 NUMBER := 0-1962.0724
1166 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1167 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
1168 , p5_a45 NUMBER := 0-1962.0724
1169 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
1170 , p5_a47 DATE := fnd_api.g_miss_date
1171 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
1172 , p5_a49 NUMBER := 0-1962.0724
1173 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
1174 , p5_a51 NUMBER := 0-1962.0724
1175 , p5_a52 NUMBER := 0-1962.0724
1176 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
1177 , p5_a54 NUMBER := 0-1962.0724
1178 , p5_a55 NUMBER := 0-1962.0724
1179 )
1180
1181 as
1182 ddp_passthru_dtl_rec okl_maintain_fee_pvt.passthru_dtl_rec_type;
1183 ddx_passthru_dtl_rec okl_maintain_fee_pvt.passthru_dtl_rec_type;
1184 ddindx binary_integer; indx binary_integer;
1185 begin
1186
1187 -- copy data to the local IN or IN-OUT args, if any
1188
1189
1190
1191
1192
1193 ddp_passthru_dtl_rec.b_dnz_chr_id := rosetta_g_miss_num_map(p5_a0);
1194 ddp_passthru_dtl_rec.b_cle_id := rosetta_g_miss_num_map(p5_a1);
1195 ddp_passthru_dtl_rec.b_ppl_id := rosetta_g_miss_num_map(p5_a2);
1196 ddp_passthru_dtl_rec.b_passthru_term := p5_a3;
1197 ddp_passthru_dtl_rec.b_passthru_stream_type_id := rosetta_g_miss_num_map(p5_a4);
1198 ddp_passthru_dtl_rec.b_passthru_start_date := rosetta_g_miss_date_in_map(p5_a5);
1199 ddp_passthru_dtl_rec.b_payout_basis := p5_a6;
1200 ddp_passthru_dtl_rec.b_payout_basis_formula := p5_a7;
1201 ddp_passthru_dtl_rec.b_effective_from := rosetta_g_miss_date_in_map(p5_a8);
1202 ddp_passthru_dtl_rec.b_effective_to := rosetta_g_miss_date_in_map(p5_a9);
1203 ddp_passthru_dtl_rec.b_payment_dtls_id := rosetta_g_miss_num_map(p5_a10);
1204 ddp_passthru_dtl_rec.b_cpl_id := rosetta_g_miss_num_map(p5_a11);
1205 ddp_passthru_dtl_rec.b_vendor_id := rosetta_g_miss_num_map(p5_a12);
1206 ddp_passthru_dtl_rec.b_pay_site_id := rosetta_g_miss_num_map(p5_a13);
1207 ddp_passthru_dtl_rec.b_payment_term_id := rosetta_g_miss_num_map(p5_a14);
1208 ddp_passthru_dtl_rec.b_payment_method_code := p5_a15;
1209 ddp_passthru_dtl_rec.b_pay_group_code := p5_a16;
1210 ddp_passthru_dtl_rec.b_payment_hdr_id := rosetta_g_miss_num_map(p5_a17);
1211 ddp_passthru_dtl_rec.b_payment_basis := p5_a18;
1212 ddp_passthru_dtl_rec.b_payment_start_date := rosetta_g_miss_date_in_map(p5_a19);
1213 ddp_passthru_dtl_rec.b_payment_frequency := p5_a20;
1214 ddp_passthru_dtl_rec.b_remit_days := rosetta_g_miss_num_map(p5_a21);
1215 ddp_passthru_dtl_rec.b_disbursement_basis := p5_a22;
1216 ddp_passthru_dtl_rec.b_disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a23);
1217 ddp_passthru_dtl_rec.b_disbursement_percent := rosetta_g_miss_num_map(p5_a24);
1218 ddp_passthru_dtl_rec.b_processing_fee_basis := p5_a25;
1219 ddp_passthru_dtl_rec.b_processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a26);
1220 ddp_passthru_dtl_rec.b_processing_fee_percent := rosetta_g_miss_num_map(p5_a27);
1221 ddp_passthru_dtl_rec.e_dnz_chr_id := rosetta_g_miss_num_map(p5_a28);
1222 ddp_passthru_dtl_rec.e_cle_id := rosetta_g_miss_num_map(p5_a29);
1223 ddp_passthru_dtl_rec.e_ppl_id := rosetta_g_miss_num_map(p5_a30);
1224 ddp_passthru_dtl_rec.e_passthru_term := p5_a31;
1225 ddp_passthru_dtl_rec.e_passthru_stream_type_id := rosetta_g_miss_num_map(p5_a32);
1226 ddp_passthru_dtl_rec.e_passthru_start_date := rosetta_g_miss_date_in_map(p5_a33);
1227 ddp_passthru_dtl_rec.e_payout_basis := p5_a34;
1228 ddp_passthru_dtl_rec.e_payout_basis_formula := p5_a35;
1229 ddp_passthru_dtl_rec.e_effective_from := rosetta_g_miss_date_in_map(p5_a36);
1230 ddp_passthru_dtl_rec.e_effective_to := rosetta_g_miss_date_in_map(p5_a37);
1231 ddp_passthru_dtl_rec.e_payment_dtls_id := rosetta_g_miss_num_map(p5_a38);
1232 ddp_passthru_dtl_rec.e_cpl_id := rosetta_g_miss_num_map(p5_a39);
1233 ddp_passthru_dtl_rec.e_vendor_id := rosetta_g_miss_num_map(p5_a40);
1234 ddp_passthru_dtl_rec.e_pay_site_id := rosetta_g_miss_num_map(p5_a41);
1235 ddp_passthru_dtl_rec.e_payment_term_id := rosetta_g_miss_num_map(p5_a42);
1236 ddp_passthru_dtl_rec.e_payment_method_code := p5_a43;
1237 ddp_passthru_dtl_rec.e_pay_group_code := p5_a44;
1238 ddp_passthru_dtl_rec.e_payment_hdr_id := rosetta_g_miss_num_map(p5_a45);
1239 ddp_passthru_dtl_rec.e_payment_basis := p5_a46;
1240 ddp_passthru_dtl_rec.e_payment_start_date := rosetta_g_miss_date_in_map(p5_a47);
1241 ddp_passthru_dtl_rec.e_payment_frequency := p5_a48;
1242 ddp_passthru_dtl_rec.e_remit_days := rosetta_g_miss_num_map(p5_a49);
1243 ddp_passthru_dtl_rec.e_disbursement_basis := p5_a50;
1244 ddp_passthru_dtl_rec.e_disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a51);
1245 ddp_passthru_dtl_rec.e_disbursement_percent := rosetta_g_miss_num_map(p5_a52);
1246 ddp_passthru_dtl_rec.e_processing_fee_basis := p5_a53;
1247 ddp_passthru_dtl_rec.e_processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a54);
1248 ddp_passthru_dtl_rec.e_processing_fee_percent := rosetta_g_miss_num_map(p5_a55);
1249
1250
1251 -- here's the delegated call to the old PL/SQL routine
1252 okl_maintain_fee_pvt.create_payment_dtls(p_api_version,
1253 p_init_msg_list,
1254 x_return_status,
1255 x_msg_count,
1256 x_msg_data,
1257 ddp_passthru_dtl_rec,
1258 ddx_passthru_dtl_rec);
1259
1260 -- copy data back from the local variables to OUT or IN-OUT args, if any
1261
1262
1263
1264
1265
1266
1267 p6_a0 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_dnz_chr_id);
1268 p6_a1 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_cle_id);
1269 p6_a2 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_ppl_id);
1270 p6_a3 := ddx_passthru_dtl_rec.b_passthru_term;
1271 p6_a4 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_passthru_stream_type_id);
1272 p6_a5 := ddx_passthru_dtl_rec.b_passthru_start_date;
1273 p6_a6 := ddx_passthru_dtl_rec.b_payout_basis;
1274 p6_a7 := ddx_passthru_dtl_rec.b_payout_basis_formula;
1275 p6_a8 := ddx_passthru_dtl_rec.b_effective_from;
1276 p6_a9 := ddx_passthru_dtl_rec.b_effective_to;
1277 p6_a10 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_payment_dtls_id);
1278 p6_a11 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_cpl_id);
1279 p6_a12 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_vendor_id);
1280 p6_a13 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_pay_site_id);
1281 p6_a14 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_payment_term_id);
1282 p6_a15 := ddx_passthru_dtl_rec.b_payment_method_code;
1283 p6_a16 := ddx_passthru_dtl_rec.b_pay_group_code;
1284 p6_a17 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_payment_hdr_id);
1285 p6_a18 := ddx_passthru_dtl_rec.b_payment_basis;
1286 p6_a19 := ddx_passthru_dtl_rec.b_payment_start_date;
1287 p6_a20 := ddx_passthru_dtl_rec.b_payment_frequency;
1288 p6_a21 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_remit_days);
1289 p6_a22 := ddx_passthru_dtl_rec.b_disbursement_basis;
1290 p6_a23 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_disbursement_fixed_amount);
1291 p6_a24 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_disbursement_percent);
1292 p6_a25 := ddx_passthru_dtl_rec.b_processing_fee_basis;
1293 p6_a26 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_processing_fee_fixed_amount);
1294 p6_a27 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.b_processing_fee_percent);
1295 p6_a28 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_dnz_chr_id);
1296 p6_a29 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_cle_id);
1297 p6_a30 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_ppl_id);
1298 p6_a31 := ddx_passthru_dtl_rec.e_passthru_term;
1299 p6_a32 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_passthru_stream_type_id);
1300 p6_a33 := ddx_passthru_dtl_rec.e_passthru_start_date;
1301 p6_a34 := ddx_passthru_dtl_rec.e_payout_basis;
1302 p6_a35 := ddx_passthru_dtl_rec.e_payout_basis_formula;
1303 p6_a36 := ddx_passthru_dtl_rec.e_effective_from;
1304 p6_a37 := ddx_passthru_dtl_rec.e_effective_to;
1305 p6_a38 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_payment_dtls_id);
1306 p6_a39 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_cpl_id);
1307 p6_a40 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_vendor_id);
1308 p6_a41 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_pay_site_id);
1309 p6_a42 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_payment_term_id);
1310 p6_a43 := ddx_passthru_dtl_rec.e_payment_method_code;
1311 p6_a44 := ddx_passthru_dtl_rec.e_pay_group_code;
1312 p6_a45 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_payment_hdr_id);
1313 p6_a46 := ddx_passthru_dtl_rec.e_payment_basis;
1314 p6_a47 := ddx_passthru_dtl_rec.e_payment_start_date;
1315 p6_a48 := ddx_passthru_dtl_rec.e_payment_frequency;
1316 p6_a49 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_remit_days);
1317 p6_a50 := ddx_passthru_dtl_rec.e_disbursement_basis;
1318 p6_a51 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_disbursement_fixed_amount);
1319 p6_a52 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_disbursement_percent);
1320 p6_a53 := ddx_passthru_dtl_rec.e_processing_fee_basis;
1321 p6_a54 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_processing_fee_fixed_amount);
1322 p6_a55 := rosetta_g_miss_num_map(ddx_passthru_dtl_rec.e_processing_fee_percent);
1323 end;
1324
1325 procedure create_payment_hdrs(p_api_version NUMBER
1326 , p_init_msg_list VARCHAR2
1327 , x_return_status out nocopy VARCHAR2
1328 , x_msg_count out nocopy NUMBER
1329 , x_msg_data out nocopy VARCHAR2
1330 , p6_a0 out nocopy NUMBER
1331 , p6_a1 out nocopy NUMBER
1332 , p6_a2 out nocopy NUMBER
1333 , p6_a3 out nocopy NUMBER
1334 , p6_a4 out nocopy DATE
1335 , p6_a5 out nocopy VARCHAR2
1336 , p6_a6 out nocopy VARCHAR2
1337 , p6_a7 out nocopy VARCHAR2
1338 , p6_a8 out nocopy VARCHAR2
1339 , p6_a9 out nocopy VARCHAR2
1340 , p6_a10 out nocopy NUMBER
1341 , p6_a11 out nocopy NUMBER
1342 , p5_a0 NUMBER := 0-1962.0724
1343 , p5_a1 NUMBER := 0-1962.0724
1344 , p5_a2 NUMBER := 0-1962.0724
1345 , p5_a3 NUMBER := 0-1962.0724
1346 , p5_a4 DATE := fnd_api.g_miss_date
1347 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1348 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1349 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1350 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1351 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1352 , p5_a10 NUMBER := 0-1962.0724
1353 , p5_a11 NUMBER := 0-1962.0724
1354 )
1355
1356 as
1357 ddp_passthru_rec okl_maintain_fee_pvt.passthru_rec_type;
1358 ddx_passthru_rec okl_maintain_fee_pvt.passthru_rec_type;
1359 ddindx binary_integer; indx binary_integer;
1360 begin
1361
1362 -- copy data to the local IN or IN-OUT args, if any
1363
1364
1365
1366
1367
1368 ddp_passthru_rec.base_id := rosetta_g_miss_num_map(p5_a0);
1369 ddp_passthru_rec.evergreen_id := rosetta_g_miss_num_map(p5_a1);
1370 ddp_passthru_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a2);
1371 ddp_passthru_rec.cle_id := rosetta_g_miss_num_map(p5_a3);
1372 ddp_passthru_rec.passthru_start_date := rosetta_g_miss_date_in_map(p5_a4);
1373 ddp_passthru_rec.payout_basis := p5_a5;
1374 ddp_passthru_rec.evergreen_eligible_yn := p5_a6;
1375 ddp_passthru_rec.evergreen_payout_basis := p5_a7;
1376 ddp_passthru_rec.evergreen_payout_basis_formula := p5_a8;
1377 ddp_passthru_rec.passthru_term := p5_a9;
1378 ddp_passthru_rec.base_stream_type_id := rosetta_g_miss_num_map(p5_a10);
1379 ddp_passthru_rec.evg_stream_type_id := rosetta_g_miss_num_map(p5_a11);
1380
1381
1382 -- here's the delegated call to the old PL/SQL routine
1383 okl_maintain_fee_pvt.create_payment_hdrs(p_api_version,
1384 p_init_msg_list,
1385 x_return_status,
1386 x_msg_count,
1387 x_msg_data,
1388 ddp_passthru_rec,
1389 ddx_passthru_rec);
1390
1391 -- copy data back from the local variables to OUT or IN-OUT args, if any
1392
1393
1394
1395
1396
1397
1398 p6_a0 := rosetta_g_miss_num_map(ddx_passthru_rec.base_id);
1399 p6_a1 := rosetta_g_miss_num_map(ddx_passthru_rec.evergreen_id);
1400 p6_a2 := rosetta_g_miss_num_map(ddx_passthru_rec.dnz_chr_id);
1401 p6_a3 := rosetta_g_miss_num_map(ddx_passthru_rec.cle_id);
1402 p6_a4 := ddx_passthru_rec.passthru_start_date;
1403 p6_a5 := ddx_passthru_rec.payout_basis;
1404 p6_a6 := ddx_passthru_rec.evergreen_eligible_yn;
1405 p6_a7 := ddx_passthru_rec.evergreen_payout_basis;
1406 p6_a8 := ddx_passthru_rec.evergreen_payout_basis_formula;
1407 p6_a9 := ddx_passthru_rec.passthru_term;
1408 p6_a10 := rosetta_g_miss_num_map(ddx_passthru_rec.base_stream_type_id);
1409 p6_a11 := rosetta_g_miss_num_map(ddx_passthru_rec.evg_stream_type_id);
1410 end;
1411
1412 procedure delete_payment_hdrs(p_api_version NUMBER
1413 , p_init_msg_list VARCHAR2
1414 , x_return_status out nocopy VARCHAR2
1415 , x_msg_count out nocopy NUMBER
1416 , x_msg_data out nocopy VARCHAR2
1417 , p5_a0 NUMBER := 0-1962.0724
1418 , p5_a1 NUMBER := 0-1962.0724
1419 , p5_a2 NUMBER := 0-1962.0724
1420 , p5_a3 NUMBER := 0-1962.0724
1421 , p5_a4 DATE := fnd_api.g_miss_date
1422 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1423 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1424 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1425 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1426 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1427 , p5_a10 NUMBER := 0-1962.0724
1428 , p5_a11 NUMBER := 0-1962.0724
1429 )
1430
1431 as
1432 ddp_passthru_rec okl_maintain_fee_pvt.passthru_rec_type;
1433 ddindx binary_integer; indx binary_integer;
1434 begin
1435
1436 -- copy data to the local IN or IN-OUT args, if any
1437
1438
1439
1440
1441
1442 ddp_passthru_rec.base_id := rosetta_g_miss_num_map(p5_a0);
1443 ddp_passthru_rec.evergreen_id := rosetta_g_miss_num_map(p5_a1);
1444 ddp_passthru_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a2);
1445 ddp_passthru_rec.cle_id := rosetta_g_miss_num_map(p5_a3);
1446 ddp_passthru_rec.passthru_start_date := rosetta_g_miss_date_in_map(p5_a4);
1447 ddp_passthru_rec.payout_basis := p5_a5;
1448 ddp_passthru_rec.evergreen_eligible_yn := p5_a6;
1449 ddp_passthru_rec.evergreen_payout_basis := p5_a7;
1450 ddp_passthru_rec.evergreen_payout_basis_formula := p5_a8;
1451 ddp_passthru_rec.passthru_term := p5_a9;
1452 ddp_passthru_rec.base_stream_type_id := rosetta_g_miss_num_map(p5_a10);
1453 ddp_passthru_rec.evg_stream_type_id := rosetta_g_miss_num_map(p5_a11);
1454
1455 -- here's the delegated call to the old PL/SQL routine
1456 okl_maintain_fee_pvt.delete_payment_hdrs(p_api_version,
1457 p_init_msg_list,
1458 x_return_status,
1459 x_msg_count,
1460 x_msg_data,
1461 ddp_passthru_rec);
1462
1463 -- copy data back from the local variables to OUT or IN-OUT args, if any
1464
1465
1466
1467
1468
1469 end;
1470
1471 procedure create_fee_type(p_api_version NUMBER
1472 , p_init_msg_list VARCHAR2
1473 , x_return_status out nocopy VARCHAR2
1474 , x_msg_count out nocopy NUMBER
1475 , x_msg_data out nocopy VARCHAR2
1476 , p6_a0 out nocopy NUMBER
1477 , p6_a1 out nocopy NUMBER
1478 , p6_a2 out nocopy VARCHAR2
1479 , p6_a3 out nocopy NUMBER
1480 , p6_a4 out nocopy VARCHAR2
1481 , p6_a5 out nocopy VARCHAR2
1482 , p6_a6 out nocopy VARCHAR2
1483 , p6_a7 out nocopy NUMBER
1484 , p6_a8 out nocopy VARCHAR2
1485 , p6_a9 out nocopy VARCHAR2
1486 , p6_a10 out nocopy VARCHAR2
1487 , p6_a11 out nocopy DATE
1488 , p6_a12 out nocopy DATE
1489 , p6_a13 out nocopy NUMBER
1490 , p6_a14 out nocopy NUMBER
1491 , p6_a15 out nocopy NUMBER
1492 , p6_a16 out nocopy NUMBER
1493 , p6_a17 out nocopy DATE
1494 , p6_a18 out nocopy VARCHAR2
1495 , p6_a19 out nocopy VARCHAR2
1496 , p6_a20 out nocopy VARCHAR2
1497 , p6_a21 out nocopy VARCHAR2
1498 , p6_a22 out nocopy VARCHAR2
1499 , p6_a23 out nocopy VARCHAR2
1500 , p6_a24 out nocopy VARCHAR2
1501 , p6_a25 out nocopy VARCHAR2
1502 , p6_a26 out nocopy VARCHAR2
1503 , p6_a27 out nocopy VARCHAR2
1504 , p6_a28 out nocopy VARCHAR2
1505 , p6_a29 out nocopy VARCHAR2
1506 , p6_a30 out nocopy VARCHAR2
1507 , p6_a31 out nocopy VARCHAR2
1508 , p6_a32 out nocopy VARCHAR2
1509 , p6_a33 out nocopy VARCHAR2
1510 , p6_a34 out nocopy VARCHAR2
1511 , p6_a35 out nocopy VARCHAR2
1512 , p5_a0 NUMBER := 0-1962.0724
1513 , p5_a1 NUMBER := 0-1962.0724
1514 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1515 , p5_a3 NUMBER := 0-1962.0724
1516 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1517 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1518 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1519 , p5_a7 NUMBER := 0-1962.0724
1520 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1521 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1522 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1523 , p5_a11 DATE := fnd_api.g_miss_date
1524 , p5_a12 DATE := fnd_api.g_miss_date
1525 , p5_a13 NUMBER := 0-1962.0724
1526 , p5_a14 NUMBER := 0-1962.0724
1527 , p5_a15 NUMBER := 0-1962.0724
1528 , p5_a16 NUMBER := 0-1962.0724
1529 , p5_a17 DATE := fnd_api.g_miss_date
1530 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1531 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1532 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1533 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1534 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1535 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1536 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1537 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1538 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1539 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1540 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1541 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1542 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1543 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1544 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1545 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1546 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1547 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1548 )
1549
1550 as
1551 ddp_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
1552 ddx_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
1553 ddindx binary_integer; indx binary_integer;
1554 begin
1555
1556 -- copy data to the local IN or IN-OUT args, if any
1557
1558
1559
1560
1561
1562 ddp_fee_types_rec.line_id := rosetta_g_miss_num_map(p5_a0);
1563 ddp_fee_types_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
1564 ddp_fee_types_rec.fee_type := p5_a2;
1565 ddp_fee_types_rec.item_id := rosetta_g_miss_num_map(p5_a3);
1566 ddp_fee_types_rec.item_name := p5_a4;
1567 ddp_fee_types_rec.item_id1 := p5_a5;
1568 ddp_fee_types_rec.item_id2 := p5_a6;
1569 ddp_fee_types_rec.party_id := rosetta_g_miss_num_map(p5_a7);
1570 ddp_fee_types_rec.party_name := p5_a8;
1571 ddp_fee_types_rec.party_id1 := p5_a9;
1572 ddp_fee_types_rec.party_id2 := p5_a10;
1573 ddp_fee_types_rec.effective_from := rosetta_g_miss_date_in_map(p5_a11);
1574 ddp_fee_types_rec.effective_to := rosetta_g_miss_date_in_map(p5_a12);
1575 ddp_fee_types_rec.amount := rosetta_g_miss_num_map(p5_a13);
1576 ddp_fee_types_rec.initial_direct_cost := rosetta_g_miss_num_map(p5_a14);
1577 ddp_fee_types_rec.roll_qt := rosetta_g_miss_num_map(p5_a15);
1578 ddp_fee_types_rec.qte_id := rosetta_g_miss_num_map(p5_a16);
1579 ddp_fee_types_rec.funding_date := rosetta_g_miss_date_in_map(p5_a17);
1580 ddp_fee_types_rec.fee_purpose_code := p5_a18;
1581 ddp_fee_types_rec.attribute_category := p5_a19;
1582 ddp_fee_types_rec.attribute1 := p5_a20;
1583 ddp_fee_types_rec.attribute2 := p5_a21;
1584 ddp_fee_types_rec.attribute3 := p5_a22;
1585 ddp_fee_types_rec.attribute4 := p5_a23;
1586 ddp_fee_types_rec.attribute5 := p5_a24;
1587 ddp_fee_types_rec.attribute6 := p5_a25;
1588 ddp_fee_types_rec.attribute7 := p5_a26;
1589 ddp_fee_types_rec.attribute8 := p5_a27;
1590 ddp_fee_types_rec.attribute9 := p5_a28;
1591 ddp_fee_types_rec.attribute10 := p5_a29;
1592 ddp_fee_types_rec.attribute11 := p5_a30;
1593 ddp_fee_types_rec.attribute12 := p5_a31;
1594 ddp_fee_types_rec.attribute13 := p5_a32;
1595 ddp_fee_types_rec.attribute14 := p5_a33;
1596 ddp_fee_types_rec.attribute15 := p5_a34;
1597 ddp_fee_types_rec.validate_dff_yn := p5_a35;
1598
1599
1600 -- here's the delegated call to the old PL/SQL routine
1601 okl_maintain_fee_pvt.create_fee_type(p_api_version,
1602 p_init_msg_list,
1603 x_return_status,
1604 x_msg_count,
1605 x_msg_data,
1606 ddp_fee_types_rec,
1607 ddx_fee_types_rec);
1608
1609 -- copy data back from the local variables to OUT or IN-OUT args, if any
1610
1611
1612
1613
1614
1615
1616 p6_a0 := rosetta_g_miss_num_map(ddx_fee_types_rec.line_id);
1617 p6_a1 := rosetta_g_miss_num_map(ddx_fee_types_rec.dnz_chr_id);
1618 p6_a2 := ddx_fee_types_rec.fee_type;
1619 p6_a3 := rosetta_g_miss_num_map(ddx_fee_types_rec.item_id);
1620 p6_a4 := ddx_fee_types_rec.item_name;
1621 p6_a5 := ddx_fee_types_rec.item_id1;
1622 p6_a6 := ddx_fee_types_rec.item_id2;
1623 p6_a7 := rosetta_g_miss_num_map(ddx_fee_types_rec.party_id);
1624 p6_a8 := ddx_fee_types_rec.party_name;
1625 p6_a9 := ddx_fee_types_rec.party_id1;
1626 p6_a10 := ddx_fee_types_rec.party_id2;
1627 p6_a11 := ddx_fee_types_rec.effective_from;
1628 p6_a12 := ddx_fee_types_rec.effective_to;
1629 p6_a13 := rosetta_g_miss_num_map(ddx_fee_types_rec.amount);
1630 p6_a14 := rosetta_g_miss_num_map(ddx_fee_types_rec.initial_direct_cost);
1631 p6_a15 := rosetta_g_miss_num_map(ddx_fee_types_rec.roll_qt);
1632 p6_a16 := rosetta_g_miss_num_map(ddx_fee_types_rec.qte_id);
1633 p6_a17 := ddx_fee_types_rec.funding_date;
1634 p6_a18 := ddx_fee_types_rec.fee_purpose_code;
1635 p6_a19 := ddx_fee_types_rec.attribute_category;
1636 p6_a20 := ddx_fee_types_rec.attribute1;
1637 p6_a21 := ddx_fee_types_rec.attribute2;
1638 p6_a22 := ddx_fee_types_rec.attribute3;
1639 p6_a23 := ddx_fee_types_rec.attribute4;
1640 p6_a24 := ddx_fee_types_rec.attribute5;
1641 p6_a25 := ddx_fee_types_rec.attribute6;
1642 p6_a26 := ddx_fee_types_rec.attribute7;
1643 p6_a27 := ddx_fee_types_rec.attribute8;
1644 p6_a28 := ddx_fee_types_rec.attribute9;
1645 p6_a29 := ddx_fee_types_rec.attribute10;
1646 p6_a30 := ddx_fee_types_rec.attribute11;
1647 p6_a31 := ddx_fee_types_rec.attribute12;
1648 p6_a32 := ddx_fee_types_rec.attribute13;
1649 p6_a33 := ddx_fee_types_rec.attribute14;
1650 p6_a34 := ddx_fee_types_rec.attribute15;
1651 p6_a35 := ddx_fee_types_rec.validate_dff_yn;
1652 end;
1653
1654 procedure validate_fee_type(p_api_version NUMBER
1655 , p_init_msg_list VARCHAR2
1656 , x_return_status out nocopy VARCHAR2
1657 , x_msg_count out nocopy NUMBER
1658 , x_msg_data out nocopy VARCHAR2
1659 , p6_a0 out nocopy NUMBER
1660 , p6_a1 out nocopy NUMBER
1661 , p6_a2 out nocopy VARCHAR2
1662 , p6_a3 out nocopy NUMBER
1663 , p6_a4 out nocopy VARCHAR2
1664 , p6_a5 out nocopy VARCHAR2
1665 , p6_a6 out nocopy VARCHAR2
1666 , p6_a7 out nocopy NUMBER
1667 , p6_a8 out nocopy VARCHAR2
1668 , p6_a9 out nocopy VARCHAR2
1669 , p6_a10 out nocopy VARCHAR2
1670 , p6_a11 out nocopy DATE
1671 , p6_a12 out nocopy DATE
1672 , p6_a13 out nocopy NUMBER
1673 , p6_a14 out nocopy NUMBER
1674 , p6_a15 out nocopy NUMBER
1675 , p6_a16 out nocopy NUMBER
1676 , p6_a17 out nocopy DATE
1677 , p6_a18 out nocopy VARCHAR2
1678 , p6_a19 out nocopy VARCHAR2
1679 , p6_a20 out nocopy VARCHAR2
1680 , p6_a21 out nocopy VARCHAR2
1681 , p6_a22 out nocopy VARCHAR2
1682 , p6_a23 out nocopy VARCHAR2
1683 , p6_a24 out nocopy VARCHAR2
1684 , p6_a25 out nocopy VARCHAR2
1685 , p6_a26 out nocopy VARCHAR2
1686 , p6_a27 out nocopy VARCHAR2
1687 , p6_a28 out nocopy VARCHAR2
1688 , p6_a29 out nocopy VARCHAR2
1689 , p6_a30 out nocopy VARCHAR2
1690 , p6_a31 out nocopy VARCHAR2
1691 , p6_a32 out nocopy VARCHAR2
1692 , p6_a33 out nocopy VARCHAR2
1693 , p6_a34 out nocopy VARCHAR2
1694 , p6_a35 out nocopy VARCHAR2
1695 , p5_a0 NUMBER := 0-1962.0724
1696 , p5_a1 NUMBER := 0-1962.0724
1697 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1698 , p5_a3 NUMBER := 0-1962.0724
1699 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1700 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1701 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1702 , p5_a7 NUMBER := 0-1962.0724
1703 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1704 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1705 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1706 , p5_a11 DATE := fnd_api.g_miss_date
1707 , p5_a12 DATE := fnd_api.g_miss_date
1708 , p5_a13 NUMBER := 0-1962.0724
1709 , p5_a14 NUMBER := 0-1962.0724
1710 , p5_a15 NUMBER := 0-1962.0724
1711 , p5_a16 NUMBER := 0-1962.0724
1712 , p5_a17 DATE := fnd_api.g_miss_date
1713 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1714 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1715 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1716 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1717 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1718 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1719 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1720 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1721 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1722 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1723 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1724 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1725 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1726 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1727 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1728 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1729 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1730 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1731 )
1732
1733 as
1734 ddp_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
1735 ddx_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
1736 ddindx binary_integer; indx binary_integer;
1737 begin
1738
1739 -- copy data to the local IN or IN-OUT args, if any
1740
1741
1742
1743
1744
1745 ddp_fee_types_rec.line_id := rosetta_g_miss_num_map(p5_a0);
1746 ddp_fee_types_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
1747 ddp_fee_types_rec.fee_type := p5_a2;
1748 ddp_fee_types_rec.item_id := rosetta_g_miss_num_map(p5_a3);
1749 ddp_fee_types_rec.item_name := p5_a4;
1750 ddp_fee_types_rec.item_id1 := p5_a5;
1751 ddp_fee_types_rec.item_id2 := p5_a6;
1752 ddp_fee_types_rec.party_id := rosetta_g_miss_num_map(p5_a7);
1753 ddp_fee_types_rec.party_name := p5_a8;
1754 ddp_fee_types_rec.party_id1 := p5_a9;
1755 ddp_fee_types_rec.party_id2 := p5_a10;
1756 ddp_fee_types_rec.effective_from := rosetta_g_miss_date_in_map(p5_a11);
1757 ddp_fee_types_rec.effective_to := rosetta_g_miss_date_in_map(p5_a12);
1758 ddp_fee_types_rec.amount := rosetta_g_miss_num_map(p5_a13);
1759 ddp_fee_types_rec.initial_direct_cost := rosetta_g_miss_num_map(p5_a14);
1760 ddp_fee_types_rec.roll_qt := rosetta_g_miss_num_map(p5_a15);
1761 ddp_fee_types_rec.qte_id := rosetta_g_miss_num_map(p5_a16);
1762 ddp_fee_types_rec.funding_date := rosetta_g_miss_date_in_map(p5_a17);
1763 ddp_fee_types_rec.fee_purpose_code := p5_a18;
1764 ddp_fee_types_rec.attribute_category := p5_a19;
1765 ddp_fee_types_rec.attribute1 := p5_a20;
1766 ddp_fee_types_rec.attribute2 := p5_a21;
1767 ddp_fee_types_rec.attribute3 := p5_a22;
1768 ddp_fee_types_rec.attribute4 := p5_a23;
1769 ddp_fee_types_rec.attribute5 := p5_a24;
1770 ddp_fee_types_rec.attribute6 := p5_a25;
1771 ddp_fee_types_rec.attribute7 := p5_a26;
1772 ddp_fee_types_rec.attribute8 := p5_a27;
1773 ddp_fee_types_rec.attribute9 := p5_a28;
1774 ddp_fee_types_rec.attribute10 := p5_a29;
1775 ddp_fee_types_rec.attribute11 := p5_a30;
1776 ddp_fee_types_rec.attribute12 := p5_a31;
1777 ddp_fee_types_rec.attribute13 := p5_a32;
1778 ddp_fee_types_rec.attribute14 := p5_a33;
1779 ddp_fee_types_rec.attribute15 := p5_a34;
1780 ddp_fee_types_rec.validate_dff_yn := p5_a35;
1781
1782
1783 -- here's the delegated call to the old PL/SQL routine
1784 okl_maintain_fee_pvt.validate_fee_type(p_api_version,
1785 p_init_msg_list,
1786 x_return_status,
1787 x_msg_count,
1788 x_msg_data,
1789 ddp_fee_types_rec,
1790 ddx_fee_types_rec);
1791
1792 -- copy data back from the local variables to OUT or IN-OUT args, if any
1793
1794
1795
1796
1797
1798
1799 p6_a0 := rosetta_g_miss_num_map(ddx_fee_types_rec.line_id);
1800 p6_a1 := rosetta_g_miss_num_map(ddx_fee_types_rec.dnz_chr_id);
1801 p6_a2 := ddx_fee_types_rec.fee_type;
1802 p6_a3 := rosetta_g_miss_num_map(ddx_fee_types_rec.item_id);
1803 p6_a4 := ddx_fee_types_rec.item_name;
1804 p6_a5 := ddx_fee_types_rec.item_id1;
1805 p6_a6 := ddx_fee_types_rec.item_id2;
1806 p6_a7 := rosetta_g_miss_num_map(ddx_fee_types_rec.party_id);
1807 p6_a8 := ddx_fee_types_rec.party_name;
1808 p6_a9 := ddx_fee_types_rec.party_id1;
1809 p6_a10 := ddx_fee_types_rec.party_id2;
1810 p6_a11 := ddx_fee_types_rec.effective_from;
1811 p6_a12 := ddx_fee_types_rec.effective_to;
1812 p6_a13 := rosetta_g_miss_num_map(ddx_fee_types_rec.amount);
1813 p6_a14 := rosetta_g_miss_num_map(ddx_fee_types_rec.initial_direct_cost);
1814 p6_a15 := rosetta_g_miss_num_map(ddx_fee_types_rec.roll_qt);
1815 p6_a16 := rosetta_g_miss_num_map(ddx_fee_types_rec.qte_id);
1816 p6_a17 := ddx_fee_types_rec.funding_date;
1817 p6_a18 := ddx_fee_types_rec.fee_purpose_code;
1818 p6_a19 := ddx_fee_types_rec.attribute_category;
1819 p6_a20 := ddx_fee_types_rec.attribute1;
1820 p6_a21 := ddx_fee_types_rec.attribute2;
1821 p6_a22 := ddx_fee_types_rec.attribute3;
1822 p6_a23 := ddx_fee_types_rec.attribute4;
1823 p6_a24 := ddx_fee_types_rec.attribute5;
1824 p6_a25 := ddx_fee_types_rec.attribute6;
1825 p6_a26 := ddx_fee_types_rec.attribute7;
1826 p6_a27 := ddx_fee_types_rec.attribute8;
1827 p6_a28 := ddx_fee_types_rec.attribute9;
1828 p6_a29 := ddx_fee_types_rec.attribute10;
1829 p6_a30 := ddx_fee_types_rec.attribute11;
1830 p6_a31 := ddx_fee_types_rec.attribute12;
1831 p6_a32 := ddx_fee_types_rec.attribute13;
1832 p6_a33 := ddx_fee_types_rec.attribute14;
1833 p6_a34 := ddx_fee_types_rec.attribute15;
1834 p6_a35 := ddx_fee_types_rec.validate_dff_yn;
1835 end;
1836
1837 procedure update_fee_type(p_api_version NUMBER
1838 , p_init_msg_list VARCHAR2
1839 , x_return_status out nocopy VARCHAR2
1840 , x_msg_count out nocopy NUMBER
1841 , x_msg_data out nocopy VARCHAR2
1842 , p6_a0 out nocopy NUMBER
1843 , p6_a1 out nocopy NUMBER
1844 , p6_a2 out nocopy VARCHAR2
1845 , p6_a3 out nocopy NUMBER
1846 , p6_a4 out nocopy VARCHAR2
1847 , p6_a5 out nocopy VARCHAR2
1848 , p6_a6 out nocopy VARCHAR2
1849 , p6_a7 out nocopy NUMBER
1850 , p6_a8 out nocopy VARCHAR2
1851 , p6_a9 out nocopy VARCHAR2
1852 , p6_a10 out nocopy VARCHAR2
1853 , p6_a11 out nocopy DATE
1854 , p6_a12 out nocopy DATE
1855 , p6_a13 out nocopy NUMBER
1856 , p6_a14 out nocopy NUMBER
1857 , p6_a15 out nocopy NUMBER
1858 , p6_a16 out nocopy NUMBER
1859 , p6_a17 out nocopy DATE
1860 , p6_a18 out nocopy VARCHAR2
1861 , p6_a19 out nocopy VARCHAR2
1862 , p6_a20 out nocopy VARCHAR2
1863 , p6_a21 out nocopy VARCHAR2
1864 , p6_a22 out nocopy VARCHAR2
1865 , p6_a23 out nocopy VARCHAR2
1866 , p6_a24 out nocopy VARCHAR2
1867 , p6_a25 out nocopy VARCHAR2
1868 , p6_a26 out nocopy VARCHAR2
1869 , p6_a27 out nocopy VARCHAR2
1870 , p6_a28 out nocopy VARCHAR2
1871 , p6_a29 out nocopy VARCHAR2
1872 , p6_a30 out nocopy VARCHAR2
1873 , p6_a31 out nocopy VARCHAR2
1874 , p6_a32 out nocopy VARCHAR2
1875 , p6_a33 out nocopy VARCHAR2
1876 , p6_a34 out nocopy VARCHAR2
1877 , p6_a35 out nocopy VARCHAR2
1878 , p5_a0 NUMBER := 0-1962.0724
1879 , p5_a1 NUMBER := 0-1962.0724
1880 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1881 , p5_a3 NUMBER := 0-1962.0724
1882 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1883 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1884 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1885 , p5_a7 NUMBER := 0-1962.0724
1886 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1887 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1888 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1889 , p5_a11 DATE := fnd_api.g_miss_date
1890 , p5_a12 DATE := fnd_api.g_miss_date
1891 , p5_a13 NUMBER := 0-1962.0724
1892 , p5_a14 NUMBER := 0-1962.0724
1893 , p5_a15 NUMBER := 0-1962.0724
1894 , p5_a16 NUMBER := 0-1962.0724
1895 , p5_a17 DATE := fnd_api.g_miss_date
1896 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1897 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1898 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1899 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1900 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1901 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1902 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1903 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1904 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1905 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1906 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1907 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1908 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1909 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1910 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1911 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1912 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1913 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1914 )
1915
1916 as
1917 ddp_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
1918 ddx_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
1919 ddindx binary_integer; indx binary_integer;
1920 begin
1921
1922 -- copy data to the local IN or IN-OUT args, if any
1923
1924
1925
1926
1927
1928 ddp_fee_types_rec.line_id := rosetta_g_miss_num_map(p5_a0);
1929 ddp_fee_types_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
1930 ddp_fee_types_rec.fee_type := p5_a2;
1931 ddp_fee_types_rec.item_id := rosetta_g_miss_num_map(p5_a3);
1932 ddp_fee_types_rec.item_name := p5_a4;
1933 ddp_fee_types_rec.item_id1 := p5_a5;
1934 ddp_fee_types_rec.item_id2 := p5_a6;
1935 ddp_fee_types_rec.party_id := rosetta_g_miss_num_map(p5_a7);
1936 ddp_fee_types_rec.party_name := p5_a8;
1937 ddp_fee_types_rec.party_id1 := p5_a9;
1938 ddp_fee_types_rec.party_id2 := p5_a10;
1939 ddp_fee_types_rec.effective_from := rosetta_g_miss_date_in_map(p5_a11);
1940 ddp_fee_types_rec.effective_to := rosetta_g_miss_date_in_map(p5_a12);
1941 ddp_fee_types_rec.amount := rosetta_g_miss_num_map(p5_a13);
1942 ddp_fee_types_rec.initial_direct_cost := rosetta_g_miss_num_map(p5_a14);
1943 ddp_fee_types_rec.roll_qt := rosetta_g_miss_num_map(p5_a15);
1944 ddp_fee_types_rec.qte_id := rosetta_g_miss_num_map(p5_a16);
1945 ddp_fee_types_rec.funding_date := rosetta_g_miss_date_in_map(p5_a17);
1946 ddp_fee_types_rec.fee_purpose_code := p5_a18;
1947 ddp_fee_types_rec.attribute_category := p5_a19;
1948 ddp_fee_types_rec.attribute1 := p5_a20;
1949 ddp_fee_types_rec.attribute2 := p5_a21;
1950 ddp_fee_types_rec.attribute3 := p5_a22;
1951 ddp_fee_types_rec.attribute4 := p5_a23;
1952 ddp_fee_types_rec.attribute5 := p5_a24;
1953 ddp_fee_types_rec.attribute6 := p5_a25;
1954 ddp_fee_types_rec.attribute7 := p5_a26;
1955 ddp_fee_types_rec.attribute8 := p5_a27;
1956 ddp_fee_types_rec.attribute9 := p5_a28;
1957 ddp_fee_types_rec.attribute10 := p5_a29;
1958 ddp_fee_types_rec.attribute11 := p5_a30;
1959 ddp_fee_types_rec.attribute12 := p5_a31;
1960 ddp_fee_types_rec.attribute13 := p5_a32;
1961 ddp_fee_types_rec.attribute14 := p5_a33;
1962 ddp_fee_types_rec.attribute15 := p5_a34;
1963 ddp_fee_types_rec.validate_dff_yn := p5_a35;
1964
1965
1966 -- here's the delegated call to the old PL/SQL routine
1967 okl_maintain_fee_pvt.update_fee_type(p_api_version,
1968 p_init_msg_list,
1969 x_return_status,
1970 x_msg_count,
1971 x_msg_data,
1972 ddp_fee_types_rec,
1973 ddx_fee_types_rec);
1974
1975 -- copy data back from the local variables to OUT or IN-OUT args, if any
1976
1977
1978
1979
1980
1981
1982 p6_a0 := rosetta_g_miss_num_map(ddx_fee_types_rec.line_id);
1983 p6_a1 := rosetta_g_miss_num_map(ddx_fee_types_rec.dnz_chr_id);
1984 p6_a2 := ddx_fee_types_rec.fee_type;
1985 p6_a3 := rosetta_g_miss_num_map(ddx_fee_types_rec.item_id);
1986 p6_a4 := ddx_fee_types_rec.item_name;
1987 p6_a5 := ddx_fee_types_rec.item_id1;
1988 p6_a6 := ddx_fee_types_rec.item_id2;
1989 p6_a7 := rosetta_g_miss_num_map(ddx_fee_types_rec.party_id);
1990 p6_a8 := ddx_fee_types_rec.party_name;
1991 p6_a9 := ddx_fee_types_rec.party_id1;
1992 p6_a10 := ddx_fee_types_rec.party_id2;
1993 p6_a11 := ddx_fee_types_rec.effective_from;
1994 p6_a12 := ddx_fee_types_rec.effective_to;
1995 p6_a13 := rosetta_g_miss_num_map(ddx_fee_types_rec.amount);
1996 p6_a14 := rosetta_g_miss_num_map(ddx_fee_types_rec.initial_direct_cost);
1997 p6_a15 := rosetta_g_miss_num_map(ddx_fee_types_rec.roll_qt);
1998 p6_a16 := rosetta_g_miss_num_map(ddx_fee_types_rec.qte_id);
1999 p6_a17 := ddx_fee_types_rec.funding_date;
2000 p6_a18 := ddx_fee_types_rec.fee_purpose_code;
2001 p6_a19 := ddx_fee_types_rec.attribute_category;
2002 p6_a20 := ddx_fee_types_rec.attribute1;
2003 p6_a21 := ddx_fee_types_rec.attribute2;
2004 p6_a22 := ddx_fee_types_rec.attribute3;
2005 p6_a23 := ddx_fee_types_rec.attribute4;
2006 p6_a24 := ddx_fee_types_rec.attribute5;
2007 p6_a25 := ddx_fee_types_rec.attribute6;
2008 p6_a26 := ddx_fee_types_rec.attribute7;
2009 p6_a27 := ddx_fee_types_rec.attribute8;
2010 p6_a28 := ddx_fee_types_rec.attribute9;
2011 p6_a29 := ddx_fee_types_rec.attribute10;
2012 p6_a30 := ddx_fee_types_rec.attribute11;
2013 p6_a31 := ddx_fee_types_rec.attribute12;
2014 p6_a32 := ddx_fee_types_rec.attribute13;
2015 p6_a33 := ddx_fee_types_rec.attribute14;
2016 p6_a34 := ddx_fee_types_rec.attribute15;
2017 p6_a35 := ddx_fee_types_rec.validate_dff_yn;
2018 end;
2019
2020 procedure delete_fee_type(p_api_version NUMBER
2021 , p_init_msg_list VARCHAR2
2022 , x_return_status out nocopy VARCHAR2
2023 , x_msg_count out nocopy NUMBER
2024 , x_msg_data out nocopy VARCHAR2
2025 , p5_a0 NUMBER := 0-1962.0724
2026 , p5_a1 NUMBER := 0-1962.0724
2027 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2028 , p5_a3 NUMBER := 0-1962.0724
2029 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
2030 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
2031 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2032 , p5_a7 NUMBER := 0-1962.0724
2033 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2034 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2035 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2036 , p5_a11 DATE := fnd_api.g_miss_date
2037 , p5_a12 DATE := fnd_api.g_miss_date
2038 , p5_a13 NUMBER := 0-1962.0724
2039 , p5_a14 NUMBER := 0-1962.0724
2040 , p5_a15 NUMBER := 0-1962.0724
2041 , p5_a16 NUMBER := 0-1962.0724
2042 , p5_a17 DATE := fnd_api.g_miss_date
2043 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2044 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2045 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2046 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2047 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2048 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2049 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2050 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2051 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2052 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2053 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2054 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
2055 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
2056 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
2057 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
2058 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
2059 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
2060 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
2061 )
2062
2063 as
2064 ddp_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
2065 ddindx binary_integer; indx binary_integer;
2066 begin
2067
2068 -- copy data to the local IN or IN-OUT args, if any
2069
2070
2071
2072
2073
2074 ddp_fee_types_rec.line_id := rosetta_g_miss_num_map(p5_a0);
2075 ddp_fee_types_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
2076 ddp_fee_types_rec.fee_type := p5_a2;
2077 ddp_fee_types_rec.item_id := rosetta_g_miss_num_map(p5_a3);
2078 ddp_fee_types_rec.item_name := p5_a4;
2079 ddp_fee_types_rec.item_id1 := p5_a5;
2080 ddp_fee_types_rec.item_id2 := p5_a6;
2081 ddp_fee_types_rec.party_id := rosetta_g_miss_num_map(p5_a7);
2082 ddp_fee_types_rec.party_name := p5_a8;
2083 ddp_fee_types_rec.party_id1 := p5_a9;
2084 ddp_fee_types_rec.party_id2 := p5_a10;
2085 ddp_fee_types_rec.effective_from := rosetta_g_miss_date_in_map(p5_a11);
2086 ddp_fee_types_rec.effective_to := rosetta_g_miss_date_in_map(p5_a12);
2087 ddp_fee_types_rec.amount := rosetta_g_miss_num_map(p5_a13);
2088 ddp_fee_types_rec.initial_direct_cost := rosetta_g_miss_num_map(p5_a14);
2089 ddp_fee_types_rec.roll_qt := rosetta_g_miss_num_map(p5_a15);
2090 ddp_fee_types_rec.qte_id := rosetta_g_miss_num_map(p5_a16);
2091 ddp_fee_types_rec.funding_date := rosetta_g_miss_date_in_map(p5_a17);
2092 ddp_fee_types_rec.fee_purpose_code := p5_a18;
2093 ddp_fee_types_rec.attribute_category := p5_a19;
2094 ddp_fee_types_rec.attribute1 := p5_a20;
2095 ddp_fee_types_rec.attribute2 := p5_a21;
2096 ddp_fee_types_rec.attribute3 := p5_a22;
2097 ddp_fee_types_rec.attribute4 := p5_a23;
2098 ddp_fee_types_rec.attribute5 := p5_a24;
2099 ddp_fee_types_rec.attribute6 := p5_a25;
2100 ddp_fee_types_rec.attribute7 := p5_a26;
2101 ddp_fee_types_rec.attribute8 := p5_a27;
2102 ddp_fee_types_rec.attribute9 := p5_a28;
2103 ddp_fee_types_rec.attribute10 := p5_a29;
2104 ddp_fee_types_rec.attribute11 := p5_a30;
2105 ddp_fee_types_rec.attribute12 := p5_a31;
2106 ddp_fee_types_rec.attribute13 := p5_a32;
2107 ddp_fee_types_rec.attribute14 := p5_a33;
2108 ddp_fee_types_rec.attribute15 := p5_a34;
2109 ddp_fee_types_rec.validate_dff_yn := p5_a35;
2110
2111 -- here's the delegated call to the old PL/SQL routine
2112 okl_maintain_fee_pvt.delete_fee_type(p_api_version,
2113 p_init_msg_list,
2114 x_return_status,
2115 x_msg_count,
2116 x_msg_data,
2117 ddp_fee_types_rec);
2118
2119 -- copy data back from the local variables to OUT or IN-OUT args, if any
2120
2121
2122
2123
2124
2125 end;
2126
2127 procedure validate_rollover_feeline(p_api_version NUMBER
2128 , p_init_msg_list VARCHAR2
2129 , x_return_status out nocopy VARCHAR2
2130 , x_msg_count out nocopy NUMBER
2131 , x_msg_data out nocopy VARCHAR2
2132 , p_chr_id NUMBER
2133 , p_qte_id NUMBER
2134 , p_for_qa_check number
2135 )
2136
2137 as
2138 ddp_for_qa_check boolean;
2139 ddindx binary_integer; indx binary_integer;
2140 begin
2141
2142 -- copy data to the local IN or IN-OUT args, if any
2143
2144
2145
2146
2147
2148
2149
2150 if p_for_qa_check is null
2151 then ddp_for_qa_check := null;
2152 elsif p_for_qa_check = 0
2153 then ddp_for_qa_check := false;
2154 else ddp_for_qa_check := true;
2155 end if;
2156
2157 -- here's the delegated call to the old PL/SQL routine
2158 okl_maintain_fee_pvt.validate_rollover_feeline(p_api_version,
2159 p_init_msg_list,
2160 x_return_status,
2161 x_msg_count,
2162 x_msg_data,
2163 p_chr_id,
2164 p_qte_id,
2165 ddp_for_qa_check);
2166
2167 -- copy data back from the local variables to OUT or IN-OUT args, if any
2168
2169
2170
2171
2172
2173
2174
2175 end;
2176
2177 procedure process_rvi_stream(p_api_version NUMBER
2178 , p_init_msg_list VARCHAR2
2179 , x_return_status out nocopy VARCHAR2
2180 , x_msg_count out nocopy NUMBER
2181 , x_msg_data out nocopy VARCHAR2
2182 , p_check_box_value VARCHAR2
2183 , p7_a0 out nocopy NUMBER
2184 , p7_a1 out nocopy NUMBER
2185 , p7_a2 out nocopy VARCHAR2
2186 , p7_a3 out nocopy NUMBER
2187 , p7_a4 out nocopy VARCHAR2
2188 , p7_a5 out nocopy VARCHAR2
2189 , p7_a6 out nocopy VARCHAR2
2190 , p7_a7 out nocopy NUMBER
2191 , p7_a8 out nocopy VARCHAR2
2192 , p7_a9 out nocopy VARCHAR2
2193 , p7_a10 out nocopy VARCHAR2
2194 , p7_a11 out nocopy DATE
2195 , p7_a12 out nocopy DATE
2196 , p7_a13 out nocopy NUMBER
2197 , p7_a14 out nocopy NUMBER
2198 , p7_a15 out nocopy NUMBER
2199 , p7_a16 out nocopy NUMBER
2200 , p7_a17 out nocopy DATE
2201 , p7_a18 out nocopy VARCHAR2
2202 , p7_a19 out nocopy VARCHAR2
2203 , p7_a20 out nocopy VARCHAR2
2204 , p7_a21 out nocopy VARCHAR2
2205 , p7_a22 out nocopy VARCHAR2
2206 , p7_a23 out nocopy VARCHAR2
2207 , p7_a24 out nocopy VARCHAR2
2208 , p7_a25 out nocopy VARCHAR2
2209 , p7_a26 out nocopy VARCHAR2
2210 , p7_a27 out nocopy VARCHAR2
2211 , p7_a28 out nocopy VARCHAR2
2212 , p7_a29 out nocopy VARCHAR2
2213 , p7_a30 out nocopy VARCHAR2
2214 , p7_a31 out nocopy VARCHAR2
2215 , p7_a32 out nocopy VARCHAR2
2216 , p7_a33 out nocopy VARCHAR2
2217 , p7_a34 out nocopy VARCHAR2
2218 , p7_a35 out nocopy VARCHAR2
2219 , p6_a0 NUMBER := 0-1962.0724
2220 , p6_a1 NUMBER := 0-1962.0724
2221 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
2222 , p6_a3 NUMBER := 0-1962.0724
2223 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
2224 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
2225 , p6_a6 VARCHAR2 := fnd_api.g_miss_char
2226 , p6_a7 NUMBER := 0-1962.0724
2227 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
2228 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
2229 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
2230 , p6_a11 DATE := fnd_api.g_miss_date
2231 , p6_a12 DATE := fnd_api.g_miss_date
2232 , p6_a13 NUMBER := 0-1962.0724
2233 , p6_a14 NUMBER := 0-1962.0724
2234 , p6_a15 NUMBER := 0-1962.0724
2235 , p6_a16 NUMBER := 0-1962.0724
2236 , p6_a17 DATE := fnd_api.g_miss_date
2237 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
2238 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
2239 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
2240 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
2241 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
2242 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
2243 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
2244 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
2245 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
2246 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
2247 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
2248 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
2249 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
2250 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
2251 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
2252 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
2253 , p6_a34 VARCHAR2 := fnd_api.g_miss_char
2254 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
2255 )
2256
2257 as
2258 ddp_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
2259 ddx_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
2260 ddindx binary_integer; indx binary_integer;
2261 begin
2262
2263 -- copy data to the local IN or IN-OUT args, if any
2264
2265
2266
2267
2268
2269
2270 ddp_fee_types_rec.line_id := rosetta_g_miss_num_map(p6_a0);
2271 ddp_fee_types_rec.dnz_chr_id := rosetta_g_miss_num_map(p6_a1);
2272 ddp_fee_types_rec.fee_type := p6_a2;
2273 ddp_fee_types_rec.item_id := rosetta_g_miss_num_map(p6_a3);
2274 ddp_fee_types_rec.item_name := p6_a4;
2275 ddp_fee_types_rec.item_id1 := p6_a5;
2276 ddp_fee_types_rec.item_id2 := p6_a6;
2277 ddp_fee_types_rec.party_id := rosetta_g_miss_num_map(p6_a7);
2278 ddp_fee_types_rec.party_name := p6_a8;
2279 ddp_fee_types_rec.party_id1 := p6_a9;
2280 ddp_fee_types_rec.party_id2 := p6_a10;
2281 ddp_fee_types_rec.effective_from := rosetta_g_miss_date_in_map(p6_a11);
2282 ddp_fee_types_rec.effective_to := rosetta_g_miss_date_in_map(p6_a12);
2283 ddp_fee_types_rec.amount := rosetta_g_miss_num_map(p6_a13);
2284 ddp_fee_types_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a14);
2285 ddp_fee_types_rec.roll_qt := rosetta_g_miss_num_map(p6_a15);
2286 ddp_fee_types_rec.qte_id := rosetta_g_miss_num_map(p6_a16);
2287 ddp_fee_types_rec.funding_date := rosetta_g_miss_date_in_map(p6_a17);
2288 ddp_fee_types_rec.fee_purpose_code := p6_a18;
2289 ddp_fee_types_rec.attribute_category := p6_a19;
2290 ddp_fee_types_rec.attribute1 := p6_a20;
2291 ddp_fee_types_rec.attribute2 := p6_a21;
2292 ddp_fee_types_rec.attribute3 := p6_a22;
2293 ddp_fee_types_rec.attribute4 := p6_a23;
2294 ddp_fee_types_rec.attribute5 := p6_a24;
2295 ddp_fee_types_rec.attribute6 := p6_a25;
2296 ddp_fee_types_rec.attribute7 := p6_a26;
2297 ddp_fee_types_rec.attribute8 := p6_a27;
2298 ddp_fee_types_rec.attribute9 := p6_a28;
2299 ddp_fee_types_rec.attribute10 := p6_a29;
2300 ddp_fee_types_rec.attribute11 := p6_a30;
2301 ddp_fee_types_rec.attribute12 := p6_a31;
2302 ddp_fee_types_rec.attribute13 := p6_a32;
2303 ddp_fee_types_rec.attribute14 := p6_a33;
2304 ddp_fee_types_rec.attribute15 := p6_a34;
2305 ddp_fee_types_rec.validate_dff_yn := p6_a35;
2306
2307
2308 -- here's the delegated call to the old PL/SQL routine
2309 okl_maintain_fee_pvt.process_rvi_stream(p_api_version,
2310 p_init_msg_list,
2311 x_return_status,
2312 x_msg_count,
2313 x_msg_data,
2314 p_check_box_value,
2315 ddp_fee_types_rec,
2316 ddx_fee_types_rec);
2317
2318 -- copy data back from the local variables to OUT or IN-OUT args, if any
2319
2320
2321
2322
2323
2324
2325
2326 p7_a0 := rosetta_g_miss_num_map(ddx_fee_types_rec.line_id);
2327 p7_a1 := rosetta_g_miss_num_map(ddx_fee_types_rec.dnz_chr_id);
2328 p7_a2 := ddx_fee_types_rec.fee_type;
2329 p7_a3 := rosetta_g_miss_num_map(ddx_fee_types_rec.item_id);
2330 p7_a4 := ddx_fee_types_rec.item_name;
2331 p7_a5 := ddx_fee_types_rec.item_id1;
2332 p7_a6 := ddx_fee_types_rec.item_id2;
2333 p7_a7 := rosetta_g_miss_num_map(ddx_fee_types_rec.party_id);
2334 p7_a8 := ddx_fee_types_rec.party_name;
2335 p7_a9 := ddx_fee_types_rec.party_id1;
2336 p7_a10 := ddx_fee_types_rec.party_id2;
2337 p7_a11 := ddx_fee_types_rec.effective_from;
2338 p7_a12 := ddx_fee_types_rec.effective_to;
2339 p7_a13 := rosetta_g_miss_num_map(ddx_fee_types_rec.amount);
2340 p7_a14 := rosetta_g_miss_num_map(ddx_fee_types_rec.initial_direct_cost);
2341 p7_a15 := rosetta_g_miss_num_map(ddx_fee_types_rec.roll_qt);
2342 p7_a16 := rosetta_g_miss_num_map(ddx_fee_types_rec.qte_id);
2343 p7_a17 := ddx_fee_types_rec.funding_date;
2344 p7_a18 := ddx_fee_types_rec.fee_purpose_code;
2345 p7_a19 := ddx_fee_types_rec.attribute_category;
2346 p7_a20 := ddx_fee_types_rec.attribute1;
2347 p7_a21 := ddx_fee_types_rec.attribute2;
2348 p7_a22 := ddx_fee_types_rec.attribute3;
2349 p7_a23 := ddx_fee_types_rec.attribute4;
2350 p7_a24 := ddx_fee_types_rec.attribute5;
2351 p7_a25 := ddx_fee_types_rec.attribute6;
2352 p7_a26 := ddx_fee_types_rec.attribute7;
2353 p7_a27 := ddx_fee_types_rec.attribute8;
2354 p7_a28 := ddx_fee_types_rec.attribute9;
2355 p7_a29 := ddx_fee_types_rec.attribute10;
2356 p7_a30 := ddx_fee_types_rec.attribute11;
2357 p7_a31 := ddx_fee_types_rec.attribute12;
2358 p7_a32 := ddx_fee_types_rec.attribute13;
2359 p7_a33 := ddx_fee_types_rec.attribute14;
2360 p7_a34 := ddx_fee_types_rec.attribute15;
2361 p7_a35 := ddx_fee_types_rec.validate_dff_yn;
2362 end;
2363
2364 procedure create_party(p_api_version NUMBER
2365 , p_init_msg_list VARCHAR2
2366 , x_return_status out nocopy VARCHAR2
2367 , x_msg_count out nocopy NUMBER
2368 , x_msg_data out nocopy VARCHAR2
2369 , p6_a0 out nocopy NUMBER
2370 , p6_a1 out nocopy VARCHAR2
2371 , p6_a2 out nocopy VARCHAR2
2372 , p6_a3 out nocopy VARCHAR2
2373 , p6_a4 out nocopy VARCHAR2
2374 , p6_a5 out nocopy VARCHAR2
2375 , p6_a6 out nocopy VARCHAR2
2376 , p6_a7 out nocopy VARCHAR2
2377 , p6_a8 out nocopy VARCHAR2
2378 , p6_a9 out nocopy VARCHAR2
2379 , p6_a10 out nocopy VARCHAR2
2380 , p6_a11 out nocopy VARCHAR2
2381 , p6_a12 out nocopy VARCHAR2
2382 , p6_a13 out nocopy VARCHAR2
2383 , p6_a14 out nocopy VARCHAR2
2384 , p6_a15 out nocopy VARCHAR2
2385 , p6_a16 out nocopy VARCHAR2
2386 , p6_a17 out nocopy VARCHAR2
2387 , p6_a18 out nocopy VARCHAR2
2388 , p6_a19 out nocopy VARCHAR2
2389 , p6_a20 out nocopy VARCHAR2
2390 , p6_a21 out nocopy NUMBER
2391 , p6_a22 out nocopy NUMBER
2392 , p6_a23 out nocopy NUMBER
2393 , p5_a0 NUMBER := 0-1962.0724
2394 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
2395 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2396 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
2397 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
2398 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
2399 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2400 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2401 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2402 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2403 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2404 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2405 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2406 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2407 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2408 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2409 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2410 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2411 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2412 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2413 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2414 , p5_a21 NUMBER := 0-1962.0724
2415 , p5_a22 NUMBER := 0-1962.0724
2416 , p5_a23 NUMBER := 0-1962.0724
2417 )
2418
2419 as
2420 ddp_kpl_rec okl_maintain_fee_pvt.party_rec_type;
2421 ddx_kpl_rec okl_maintain_fee_pvt.party_rec_type;
2422 ddindx binary_integer; indx binary_integer;
2423 begin
2424
2425 -- copy data to the local IN or IN-OUT args, if any
2426
2427
2428
2429
2430
2431 ddp_kpl_rec.id := rosetta_g_miss_num_map(p5_a0);
2432 ddp_kpl_rec.attribute_category := p5_a1;
2433 ddp_kpl_rec.attribute1 := p5_a2;
2434 ddp_kpl_rec.attribute2 := p5_a3;
2435 ddp_kpl_rec.attribute3 := p5_a4;
2436 ddp_kpl_rec.attribute4 := p5_a5;
2437 ddp_kpl_rec.attribute5 := p5_a6;
2438 ddp_kpl_rec.attribute6 := p5_a7;
2439 ddp_kpl_rec.attribute7 := p5_a8;
2440 ddp_kpl_rec.attribute8 := p5_a9;
2441 ddp_kpl_rec.attribute9 := p5_a10;
2442 ddp_kpl_rec.attribute10 := p5_a11;
2443 ddp_kpl_rec.attribute11 := p5_a12;
2444 ddp_kpl_rec.attribute12 := p5_a13;
2445 ddp_kpl_rec.attribute13 := p5_a14;
2446 ddp_kpl_rec.attribute14 := p5_a15;
2447 ddp_kpl_rec.attribute15 := p5_a16;
2448 ddp_kpl_rec.object1_id1 := p5_a17;
2449 ddp_kpl_rec.object1_id2 := p5_a18;
2450 ddp_kpl_rec.jtot_object1_code := p5_a19;
2451 ddp_kpl_rec.rle_code := p5_a20;
2452 ddp_kpl_rec.chr_id := rosetta_g_miss_num_map(p5_a21);
2453 ddp_kpl_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a22);
2454 ddp_kpl_rec.cle_id := rosetta_g_miss_num_map(p5_a23);
2455
2456
2457 -- here's the delegated call to the old PL/SQL routine
2458 okl_maintain_fee_pvt.create_party(p_api_version,
2459 p_init_msg_list,
2460 x_return_status,
2461 x_msg_count,
2462 x_msg_data,
2463 ddp_kpl_rec,
2464 ddx_kpl_rec);
2465
2466 -- copy data back from the local variables to OUT or IN-OUT args, if any
2467
2468
2469
2470
2471
2472
2473 p6_a0 := rosetta_g_miss_num_map(ddx_kpl_rec.id);
2474 p6_a1 := ddx_kpl_rec.attribute_category;
2475 p6_a2 := ddx_kpl_rec.attribute1;
2476 p6_a3 := ddx_kpl_rec.attribute2;
2477 p6_a4 := ddx_kpl_rec.attribute3;
2478 p6_a5 := ddx_kpl_rec.attribute4;
2479 p6_a6 := ddx_kpl_rec.attribute5;
2480 p6_a7 := ddx_kpl_rec.attribute6;
2481 p6_a8 := ddx_kpl_rec.attribute7;
2482 p6_a9 := ddx_kpl_rec.attribute8;
2483 p6_a10 := ddx_kpl_rec.attribute9;
2484 p6_a11 := ddx_kpl_rec.attribute10;
2485 p6_a12 := ddx_kpl_rec.attribute11;
2486 p6_a13 := ddx_kpl_rec.attribute12;
2487 p6_a14 := ddx_kpl_rec.attribute13;
2488 p6_a15 := ddx_kpl_rec.attribute14;
2489 p6_a16 := ddx_kpl_rec.attribute15;
2490 p6_a17 := ddx_kpl_rec.object1_id1;
2491 p6_a18 := ddx_kpl_rec.object1_id2;
2492 p6_a19 := ddx_kpl_rec.jtot_object1_code;
2493 p6_a20 := ddx_kpl_rec.rle_code;
2494 p6_a21 := rosetta_g_miss_num_map(ddx_kpl_rec.chr_id);
2495 p6_a22 := rosetta_g_miss_num_map(ddx_kpl_rec.dnz_chr_id);
2496 p6_a23 := rosetta_g_miss_num_map(ddx_kpl_rec.cle_id);
2497 end;
2498
2499 procedure update_party(p_api_version NUMBER
2500 , p_init_msg_list VARCHAR2
2501 , x_return_status out nocopy VARCHAR2
2502 , x_msg_count out nocopy NUMBER
2503 , x_msg_data out nocopy VARCHAR2
2504 , p6_a0 out nocopy NUMBER
2505 , p6_a1 out nocopy VARCHAR2
2506 , p6_a2 out nocopy VARCHAR2
2507 , p6_a3 out nocopy VARCHAR2
2508 , p6_a4 out nocopy VARCHAR2
2509 , p6_a5 out nocopy VARCHAR2
2510 , p6_a6 out nocopy VARCHAR2
2511 , p6_a7 out nocopy VARCHAR2
2512 , p6_a8 out nocopy VARCHAR2
2513 , p6_a9 out nocopy VARCHAR2
2514 , p6_a10 out nocopy VARCHAR2
2515 , p6_a11 out nocopy VARCHAR2
2516 , p6_a12 out nocopy VARCHAR2
2517 , p6_a13 out nocopy VARCHAR2
2518 , p6_a14 out nocopy VARCHAR2
2519 , p6_a15 out nocopy VARCHAR2
2520 , p6_a16 out nocopy VARCHAR2
2521 , p6_a17 out nocopy VARCHAR2
2522 , p6_a18 out nocopy VARCHAR2
2523 , p6_a19 out nocopy VARCHAR2
2524 , p6_a20 out nocopy VARCHAR2
2525 , p6_a21 out nocopy NUMBER
2526 , p6_a22 out nocopy NUMBER
2527 , p6_a23 out nocopy NUMBER
2528 , p5_a0 NUMBER := 0-1962.0724
2529 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
2530 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2531 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
2532 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
2533 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
2534 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2535 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2536 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2537 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2538 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2539 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2540 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2541 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2542 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2543 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2544 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2545 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2546 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2547 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2548 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2549 , p5_a21 NUMBER := 0-1962.0724
2550 , p5_a22 NUMBER := 0-1962.0724
2551 , p5_a23 NUMBER := 0-1962.0724
2552 )
2553
2554 as
2555 ddp_kpl_rec okl_maintain_fee_pvt.party_rec_type;
2556 ddx_kpl_rec okl_maintain_fee_pvt.party_rec_type;
2557 ddindx binary_integer; indx binary_integer;
2558 begin
2559
2560 -- copy data to the local IN or IN-OUT args, if any
2561
2562
2563
2564
2565
2566 ddp_kpl_rec.id := rosetta_g_miss_num_map(p5_a0);
2567 ddp_kpl_rec.attribute_category := p5_a1;
2568 ddp_kpl_rec.attribute1 := p5_a2;
2569 ddp_kpl_rec.attribute2 := p5_a3;
2570 ddp_kpl_rec.attribute3 := p5_a4;
2571 ddp_kpl_rec.attribute4 := p5_a5;
2572 ddp_kpl_rec.attribute5 := p5_a6;
2573 ddp_kpl_rec.attribute6 := p5_a7;
2574 ddp_kpl_rec.attribute7 := p5_a8;
2575 ddp_kpl_rec.attribute8 := p5_a9;
2576 ddp_kpl_rec.attribute9 := p5_a10;
2577 ddp_kpl_rec.attribute10 := p5_a11;
2578 ddp_kpl_rec.attribute11 := p5_a12;
2579 ddp_kpl_rec.attribute12 := p5_a13;
2580 ddp_kpl_rec.attribute13 := p5_a14;
2581 ddp_kpl_rec.attribute14 := p5_a15;
2582 ddp_kpl_rec.attribute15 := p5_a16;
2583 ddp_kpl_rec.object1_id1 := p5_a17;
2584 ddp_kpl_rec.object1_id2 := p5_a18;
2585 ddp_kpl_rec.jtot_object1_code := p5_a19;
2586 ddp_kpl_rec.rle_code := p5_a20;
2587 ddp_kpl_rec.chr_id := rosetta_g_miss_num_map(p5_a21);
2588 ddp_kpl_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a22);
2589 ddp_kpl_rec.cle_id := rosetta_g_miss_num_map(p5_a23);
2590
2591
2592 -- here's the delegated call to the old PL/SQL routine
2593 okl_maintain_fee_pvt.update_party(p_api_version,
2594 p_init_msg_list,
2595 x_return_status,
2596 x_msg_count,
2597 x_msg_data,
2598 ddp_kpl_rec,
2599 ddx_kpl_rec);
2600
2601 -- copy data back from the local variables to OUT or IN-OUT args, if any
2602
2603
2604
2605
2606
2607
2608 p6_a0 := rosetta_g_miss_num_map(ddx_kpl_rec.id);
2609 p6_a1 := ddx_kpl_rec.attribute_category;
2610 p6_a2 := ddx_kpl_rec.attribute1;
2611 p6_a3 := ddx_kpl_rec.attribute2;
2612 p6_a4 := ddx_kpl_rec.attribute3;
2613 p6_a5 := ddx_kpl_rec.attribute4;
2614 p6_a6 := ddx_kpl_rec.attribute5;
2615 p6_a7 := ddx_kpl_rec.attribute6;
2616 p6_a8 := ddx_kpl_rec.attribute7;
2617 p6_a9 := ddx_kpl_rec.attribute8;
2618 p6_a10 := ddx_kpl_rec.attribute9;
2619 p6_a11 := ddx_kpl_rec.attribute10;
2620 p6_a12 := ddx_kpl_rec.attribute11;
2621 p6_a13 := ddx_kpl_rec.attribute12;
2622 p6_a14 := ddx_kpl_rec.attribute13;
2623 p6_a15 := ddx_kpl_rec.attribute14;
2624 p6_a16 := ddx_kpl_rec.attribute15;
2625 p6_a17 := ddx_kpl_rec.object1_id1;
2626 p6_a18 := ddx_kpl_rec.object1_id2;
2627 p6_a19 := ddx_kpl_rec.jtot_object1_code;
2628 p6_a20 := ddx_kpl_rec.rle_code;
2629 p6_a21 := rosetta_g_miss_num_map(ddx_kpl_rec.chr_id);
2630 p6_a22 := rosetta_g_miss_num_map(ddx_kpl_rec.dnz_chr_id);
2631 p6_a23 := rosetta_g_miss_num_map(ddx_kpl_rec.cle_id);
2632 end;
2633
2634 end okl_maintain_fee_pvt_w;