[Home] [Help]
PACKAGE BODY: APPS.IEX_DUNNING_PUB_W
Source
1 package body iex_dunning_pub_w as
2 /* $Header: iexwdunb.pls 120.6 2005/07/07 19:59:25 ctlee ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
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_p1(t out nocopy iex_dunning_pub.ag_dn_xref_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_DATE_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_DATE_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_NUMBER_TABLE
39 ) as
40 ddindx binary_integer; indx binary_integer;
41 begin
42 if a0 is not null and a0.count > 0 then
43 if a0.count > 0 then
44 indx := a0.first;
45 ddindx := 1;
46 while true loop
47 t(ddindx).ag_dn_xref_id := rosetta_g_miss_num_map(a0(indx));
48 t(ddindx).aging_bucket_id := rosetta_g_miss_num_map(a1(indx));
49 t(ddindx).aging_bucket_line_id := rosetta_g_miss_num_map(a2(indx));
50 t(ddindx).callback_flag := a3(indx);
51 t(ddindx).callback_days := rosetta_g_miss_num_map(a4(indx));
52 t(ddindx).fm_method := a5(indx);
53 t(ddindx).template_id := rosetta_g_miss_num_map(a6(indx));
54 t(ddindx).xdo_template_id := rosetta_g_miss_num_map(a7(indx));
55 t(ddindx).score_range_low := rosetta_g_miss_num_map(a8(indx));
56 t(ddindx).score_range_high := rosetta_g_miss_num_map(a9(indx));
57 t(ddindx).dunning_level := a10(indx);
58 t(ddindx).object_version_number := rosetta_g_miss_num_map(a11(indx));
59 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
60 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a13(indx));
61 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
62 t(ddindx).created_by := rosetta_g_miss_num_map(a15(indx));
63 t(ddindx).last_update_login := rosetta_g_miss_num_map(a16(indx));
64 ddindx := ddindx+1;
65 if a0.last =indx
66 then exit;
67 end if;
68 indx := a0.next(indx);
69 end loop;
70 end if;
71 end if;
72 end rosetta_table_copy_in_p1;
73 procedure rosetta_table_copy_out_p1(t iex_dunning_pub.ag_dn_xref_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
74 , a1 out nocopy JTF_NUMBER_TABLE
75 , a2 out nocopy JTF_NUMBER_TABLE
76 , a3 out nocopy JTF_VARCHAR2_TABLE_100
77 , a4 out nocopy JTF_NUMBER_TABLE
78 , a5 out nocopy JTF_VARCHAR2_TABLE_100
79 , a6 out nocopy JTF_NUMBER_TABLE
80 , a7 out nocopy JTF_NUMBER_TABLE
81 , a8 out nocopy JTF_NUMBER_TABLE
82 , a9 out nocopy JTF_NUMBER_TABLE
83 , a10 out nocopy JTF_VARCHAR2_TABLE_100
84 , a11 out nocopy JTF_NUMBER_TABLE
85 , a12 out nocopy JTF_DATE_TABLE
86 , a13 out nocopy JTF_NUMBER_TABLE
87 , a14 out nocopy JTF_DATE_TABLE
88 , a15 out nocopy JTF_NUMBER_TABLE
89 , a16 out nocopy JTF_NUMBER_TABLE
90 ) as
91 ddindx binary_integer; indx binary_integer;
92 begin
93 if t is null or t.count = 0 then
94 a0 := JTF_NUMBER_TABLE();
95 a1 := JTF_NUMBER_TABLE();
96 a2 := JTF_NUMBER_TABLE();
97 a3 := JTF_VARCHAR2_TABLE_100();
98 a4 := JTF_NUMBER_TABLE();
99 a5 := JTF_VARCHAR2_TABLE_100();
100 a6 := JTF_NUMBER_TABLE();
101 a7 := JTF_NUMBER_TABLE();
102 a8 := JTF_NUMBER_TABLE();
103 a9 := JTF_NUMBER_TABLE();
104 a10 := JTF_VARCHAR2_TABLE_100();
105 a11 := JTF_NUMBER_TABLE();
106 a12 := JTF_DATE_TABLE();
107 a13 := JTF_NUMBER_TABLE();
108 a14 := JTF_DATE_TABLE();
109 a15 := JTF_NUMBER_TABLE();
110 a16 := JTF_NUMBER_TABLE();
111 else
112 a0 := JTF_NUMBER_TABLE();
113 a1 := JTF_NUMBER_TABLE();
114 a2 := JTF_NUMBER_TABLE();
115 a3 := JTF_VARCHAR2_TABLE_100();
116 a4 := JTF_NUMBER_TABLE();
117 a5 := JTF_VARCHAR2_TABLE_100();
118 a6 := JTF_NUMBER_TABLE();
119 a7 := JTF_NUMBER_TABLE();
120 a8 := JTF_NUMBER_TABLE();
121 a9 := JTF_NUMBER_TABLE();
122 a10 := JTF_VARCHAR2_TABLE_100();
123 a11 := JTF_NUMBER_TABLE();
124 a12 := JTF_DATE_TABLE();
125 a13 := JTF_NUMBER_TABLE();
126 a14 := JTF_DATE_TABLE();
127 a15 := JTF_NUMBER_TABLE();
128 a16 := JTF_NUMBER_TABLE();
129 if t.count > 0 then
130 a0.extend(t.count);
131 a1.extend(t.count);
132 a2.extend(t.count);
133 a3.extend(t.count);
134 a4.extend(t.count);
135 a5.extend(t.count);
136 a6.extend(t.count);
137 a7.extend(t.count);
138 a8.extend(t.count);
139 a9.extend(t.count);
140 a10.extend(t.count);
141 a11.extend(t.count);
142 a12.extend(t.count);
143 a13.extend(t.count);
144 a14.extend(t.count);
145 a15.extend(t.count);
146 a16.extend(t.count);
147 ddindx := t.first;
148 indx := 1;
149 while true loop
150 a0(indx) := rosetta_g_miss_num_map(t(ddindx).ag_dn_xref_id);
151 a1(indx) := rosetta_g_miss_num_map(t(ddindx).aging_bucket_id);
152 a2(indx) := rosetta_g_miss_num_map(t(ddindx).aging_bucket_line_id);
153 a3(indx) := t(ddindx).callback_flag;
154 a4(indx) := rosetta_g_miss_num_map(t(ddindx).callback_days);
155 a5(indx) := t(ddindx).fm_method;
156 a6(indx) := rosetta_g_miss_num_map(t(ddindx).template_id);
157 a7(indx) := rosetta_g_miss_num_map(t(ddindx).xdo_template_id);
158 a8(indx) := rosetta_g_miss_num_map(t(ddindx).score_range_low);
159 a9(indx) := rosetta_g_miss_num_map(t(ddindx).score_range_high);
160 a10(indx) := t(ddindx).dunning_level;
161 a11(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
162 a12(indx) := t(ddindx).last_update_date;
163 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
164 a14(indx) := t(ddindx).creation_date;
165 a15(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
166 a16(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
167 indx := indx+1;
168 if t.last =ddindx
169 then exit;
170 end if;
171 ddindx := t.next(ddindx);
172 end loop;
173 end if;
174 end if;
175 end rosetta_table_copy_out_p1;
176
177 procedure rosetta_table_copy_in_p2(t out nocopy iex_dunning_pub.ag_dn_xref_id_tbl_type, a0 JTF_NUMBER_TABLE) as
178 ddindx binary_integer; indx binary_integer;
179 begin
180 if a0 is not null and a0.count > 0 then
181 if a0.count > 0 then
182 indx := a0.first;
183 ddindx := 1;
184 while true loop
185 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
186 ddindx := ddindx+1;
187 if a0.last =indx
188 then exit;
189 end if;
190 indx := a0.next(indx);
191 end loop;
192 end if;
193 end if;
194 end rosetta_table_copy_in_p2;
195 procedure rosetta_table_copy_out_p2(t iex_dunning_pub.ag_dn_xref_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
196 ddindx binary_integer; indx binary_integer;
197 begin
198 if t is null or t.count = 0 then
199 a0 := JTF_NUMBER_TABLE();
200 else
201 a0 := JTF_NUMBER_TABLE();
202 if t.count > 0 then
203 a0.extend(t.count);
204 ddindx := t.first;
205 indx := 1;
206 while true loop
207 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
208 indx := indx+1;
209 if t.last =ddindx
210 then exit;
211 end if;
212 ddindx := t.next(ddindx);
213 end loop;
214 end if;
215 end if;
216 end rosetta_table_copy_out_p2;
217
218 procedure rosetta_table_copy_in_p8(t out nocopy iex_dunning_pub.dunning_tbl_type, a0 JTF_NUMBER_TABLE
219 , a1 JTF_NUMBER_TABLE
220 , a2 JTF_VARCHAR2_TABLE_100
221 , a3 JTF_DATE_TABLE
222 , a4 JTF_VARCHAR2_TABLE_300
223 , a5 JTF_NUMBER_TABLE
224 , a6 JTF_NUMBER_TABLE
225 , a7 JTF_NUMBER_TABLE
226 , a8 JTF_NUMBER_TABLE
227 , a9 JTF_NUMBER_TABLE
228 , a10 JTF_NUMBER_TABLE
229 , a11 JTF_VARCHAR2_TABLE_100
230 , a12 JTF_VARCHAR2_TABLE_100
231 , a13 JTF_NUMBER_TABLE
232 , a14 JTF_VARCHAR2_TABLE_100
233 , a15 JTF_NUMBER_TABLE
234 , a16 JTF_VARCHAR2_TABLE_100
235 , a17 JTF_DATE_TABLE
236 , a18 JTF_NUMBER_TABLE
237 , a19 JTF_DATE_TABLE
238 , a20 JTF_NUMBER_TABLE
239 , a21 JTF_NUMBER_TABLE
240 , a22 JTF_NUMBER_TABLE
241 , a23 JTF_VARCHAR2_TABLE_100
242 , a24 JTF_NUMBER_TABLE
243 , a25 JTF_NUMBER_TABLE
244 ) as
245 ddindx binary_integer; indx binary_integer;
246 begin
247 if a0 is not null and a0.count > 0 then
248 if a0.count > 0 then
249 indx := a0.first;
250 ddindx := 1;
251 while true loop
252 t(ddindx).dunning_id := rosetta_g_miss_num_map(a0(indx));
253 t(ddindx).template_id := rosetta_g_miss_num_map(a1(indx));
254 t(ddindx).callback_yn := a2(indx);
255 t(ddindx).callback_date := rosetta_g_miss_date_in_map(a3(indx));
256 t(ddindx).status := a4(indx);
257 t(ddindx).campaign_sched_id := rosetta_g_miss_num_map(a5(indx));
258 t(ddindx).delinquency_id := rosetta_g_miss_num_map(a6(indx));
259 t(ddindx).ffm_request_id := rosetta_g_miss_num_map(a7(indx));
260 t(ddindx).xml_request_id := rosetta_g_miss_num_map(a8(indx));
261 t(ddindx).xml_template_id := rosetta_g_miss_num_map(a9(indx));
262 t(ddindx).object_id := rosetta_g_miss_num_map(a10(indx));
263 t(ddindx).object_type := a11(indx);
264 t(ddindx).dunning_level := a12(indx);
265 t(ddindx).dunning_object_id := rosetta_g_miss_num_map(a13(indx));
266 t(ddindx).dunning_method := a14(indx);
267 t(ddindx).amount_due_remaining := rosetta_g_miss_num_map(a15(indx));
268 t(ddindx).currency_code := a16(indx);
269 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a17(indx));
270 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a18(indx));
271 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a19(indx));
272 t(ddindx).created_by := rosetta_g_miss_num_map(a20(indx));
273 t(ddindx).last_update_login := rosetta_g_miss_num_map(a21(indx));
274 t(ddindx).financial_charge := rosetta_g_miss_num_map(a22(indx));
275 t(ddindx).letter_name := a23(indx);
276 t(ddindx).interest_amt := rosetta_g_miss_num_map(a24(indx));
277 t(ddindx).dunning_plan_id := rosetta_g_miss_num_map(a25(indx));
278 ddindx := ddindx+1;
279 if a0.last =indx
280 then exit;
281 end if;
282 indx := a0.next(indx);
283 end loop;
284 end if;
285 end if;
286 end rosetta_table_copy_in_p8;
287 procedure rosetta_table_copy_out_p8(t iex_dunning_pub.dunning_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
288 , a1 out nocopy JTF_NUMBER_TABLE
289 , a2 out nocopy JTF_VARCHAR2_TABLE_100
290 , a3 out nocopy JTF_DATE_TABLE
291 , a4 out nocopy JTF_VARCHAR2_TABLE_300
292 , a5 out nocopy JTF_NUMBER_TABLE
293 , a6 out nocopy JTF_NUMBER_TABLE
294 , a7 out nocopy JTF_NUMBER_TABLE
295 , a8 out nocopy JTF_NUMBER_TABLE
296 , a9 out nocopy JTF_NUMBER_TABLE
297 , a10 out nocopy JTF_NUMBER_TABLE
298 , a11 out nocopy JTF_VARCHAR2_TABLE_100
299 , a12 out nocopy JTF_VARCHAR2_TABLE_100
300 , a13 out nocopy JTF_NUMBER_TABLE
301 , a14 out nocopy JTF_VARCHAR2_TABLE_100
302 , a15 out nocopy JTF_NUMBER_TABLE
303 , a16 out nocopy JTF_VARCHAR2_TABLE_100
304 , a17 out nocopy JTF_DATE_TABLE
305 , a18 out nocopy JTF_NUMBER_TABLE
306 , a19 out nocopy JTF_DATE_TABLE
307 , a20 out nocopy JTF_NUMBER_TABLE
308 , a21 out nocopy JTF_NUMBER_TABLE
309 , a22 out nocopy JTF_NUMBER_TABLE
310 , a23 out nocopy JTF_VARCHAR2_TABLE_100
311 , a24 out nocopy JTF_NUMBER_TABLE
312 , a25 out nocopy JTF_NUMBER_TABLE
313 ) as
314 ddindx binary_integer; indx binary_integer;
315 begin
316 if t is null or t.count = 0 then
317 a0 := JTF_NUMBER_TABLE();
318 a1 := JTF_NUMBER_TABLE();
319 a2 := JTF_VARCHAR2_TABLE_100();
320 a3 := JTF_DATE_TABLE();
321 a4 := JTF_VARCHAR2_TABLE_300();
322 a5 := JTF_NUMBER_TABLE();
323 a6 := JTF_NUMBER_TABLE();
324 a7 := JTF_NUMBER_TABLE();
325 a8 := JTF_NUMBER_TABLE();
326 a9 := JTF_NUMBER_TABLE();
327 a10 := JTF_NUMBER_TABLE();
328 a11 := JTF_VARCHAR2_TABLE_100();
329 a12 := JTF_VARCHAR2_TABLE_100();
330 a13 := JTF_NUMBER_TABLE();
331 a14 := JTF_VARCHAR2_TABLE_100();
332 a15 := JTF_NUMBER_TABLE();
333 a16 := JTF_VARCHAR2_TABLE_100();
334 a17 := JTF_DATE_TABLE();
335 a18 := JTF_NUMBER_TABLE();
336 a19 := JTF_DATE_TABLE();
337 a20 := JTF_NUMBER_TABLE();
338 a21 := JTF_NUMBER_TABLE();
339 a22 := JTF_NUMBER_TABLE();
340 a23 := JTF_VARCHAR2_TABLE_100();
341 a24 := JTF_NUMBER_TABLE();
342 a25 := JTF_NUMBER_TABLE();
343 else
344 a0 := JTF_NUMBER_TABLE();
345 a1 := JTF_NUMBER_TABLE();
346 a2 := JTF_VARCHAR2_TABLE_100();
347 a3 := JTF_DATE_TABLE();
348 a4 := JTF_VARCHAR2_TABLE_300();
349 a5 := JTF_NUMBER_TABLE();
350 a6 := JTF_NUMBER_TABLE();
351 a7 := JTF_NUMBER_TABLE();
352 a8 := JTF_NUMBER_TABLE();
353 a9 := JTF_NUMBER_TABLE();
354 a10 := JTF_NUMBER_TABLE();
355 a11 := JTF_VARCHAR2_TABLE_100();
356 a12 := JTF_VARCHAR2_TABLE_100();
357 a13 := JTF_NUMBER_TABLE();
358 a14 := JTF_VARCHAR2_TABLE_100();
359 a15 := JTF_NUMBER_TABLE();
360 a16 := JTF_VARCHAR2_TABLE_100();
361 a17 := JTF_DATE_TABLE();
362 a18 := JTF_NUMBER_TABLE();
363 a19 := JTF_DATE_TABLE();
364 a20 := JTF_NUMBER_TABLE();
365 a21 := JTF_NUMBER_TABLE();
366 a22 := JTF_NUMBER_TABLE();
367 a23 := JTF_VARCHAR2_TABLE_100();
368 a24 := JTF_NUMBER_TABLE();
369 a25 := JTF_NUMBER_TABLE();
370 if t.count > 0 then
371 a0.extend(t.count);
372 a1.extend(t.count);
373 a2.extend(t.count);
374 a3.extend(t.count);
375 a4.extend(t.count);
376 a5.extend(t.count);
377 a6.extend(t.count);
378 a7.extend(t.count);
379 a8.extend(t.count);
380 a9.extend(t.count);
381 a10.extend(t.count);
382 a11.extend(t.count);
383 a12.extend(t.count);
384 a13.extend(t.count);
385 a14.extend(t.count);
386 a15.extend(t.count);
387 a16.extend(t.count);
388 a17.extend(t.count);
389 a18.extend(t.count);
390 a19.extend(t.count);
391 a20.extend(t.count);
392 a21.extend(t.count);
393 a22.extend(t.count);
394 a23.extend(t.count);
395 a24.extend(t.count);
396 a25.extend(t.count);
397 ddindx := t.first;
398 indx := 1;
399 while true loop
400 a0(indx) := rosetta_g_miss_num_map(t(ddindx).dunning_id);
401 a1(indx) := rosetta_g_miss_num_map(t(ddindx).template_id);
402 a2(indx) := t(ddindx).callback_yn;
403 a3(indx) := t(ddindx).callback_date;
404 a4(indx) := t(ddindx).status;
405 a5(indx) := rosetta_g_miss_num_map(t(ddindx).campaign_sched_id);
406 a6(indx) := rosetta_g_miss_num_map(t(ddindx).delinquency_id);
407 a7(indx) := rosetta_g_miss_num_map(t(ddindx).ffm_request_id);
408 a8(indx) := rosetta_g_miss_num_map(t(ddindx).xml_request_id);
409 a9(indx) := rosetta_g_miss_num_map(t(ddindx).xml_template_id);
410 a10(indx) := rosetta_g_miss_num_map(t(ddindx).object_id);
411 a11(indx) := t(ddindx).object_type;
412 a12(indx) := t(ddindx).dunning_level;
413 a13(indx) := rosetta_g_miss_num_map(t(ddindx).dunning_object_id);
414 a14(indx) := t(ddindx).dunning_method;
415 a15(indx) := rosetta_g_miss_num_map(t(ddindx).amount_due_remaining);
416 a16(indx) := t(ddindx).currency_code;
417 a17(indx) := t(ddindx).last_update_date;
418 a18(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
419 a19(indx) := t(ddindx).creation_date;
420 a20(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
421 a21(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
422 a22(indx) := rosetta_g_miss_num_map(t(ddindx).financial_charge);
423 a23(indx) := t(ddindx).letter_name;
424 a24(indx) := rosetta_g_miss_num_map(t(ddindx).interest_amt);
425 a25(indx) := rosetta_g_miss_num_map(t(ddindx).dunning_plan_id);
426 indx := indx+1;
427 if t.last =ddindx
428 then exit;
429 end if;
430 ddindx := t.next(ddindx);
431 end loop;
432 end if;
433 end if;
434 end rosetta_table_copy_out_p8;
435
436 procedure rosetta_table_copy_in_p9(t out nocopy iex_dunning_pub.delid_numlist, a0 JTF_NUMBER_TABLE) as
437 ddindx binary_integer; indx binary_integer;
438 begin
439 if a0 is null then
440 t := null;
441 elsif a0.count = 0 then
442 t := iex_dunning_pub.delid_numlist();
443 else
444 if a0.count > 0 then
445 t := iex_dunning_pub.delid_numlist();
446 t.extend(a0.count);
447 indx := a0.first;
448 ddindx := 1;
449 while true loop
450 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
451 ddindx := ddindx+1;
452 if a0.last =indx
453 then exit;
454 end if;
455 indx := a0.next(indx);
456 end loop;
457 end if;
458 end if;
459 end rosetta_table_copy_in_p9;
460 procedure rosetta_table_copy_out_p9(t iex_dunning_pub.delid_numlist, a0 out nocopy JTF_NUMBER_TABLE) as
461 ddindx binary_integer; indx binary_integer;
462 begin
463 if t is null then
464 a0 := null;
465 elsif t.count = 0 then
466 a0 := JTF_NUMBER_TABLE();
467 else
468 a0 := JTF_NUMBER_TABLE();
469 if t.count > 0 then
470 a0.extend(t.count);
471 ddindx := t.first;
472 indx := 1;
473 while true loop
474 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
475 indx := indx+1;
476 if t.last =ddindx
477 then exit;
478 end if;
479 ddindx := t.next(ddindx);
480 end loop;
481 end if;
482 end if;
483 end rosetta_table_copy_out_p9;
484
485 procedure create_ag_dn_xref(p_api_version NUMBER
486 , p_init_msg_list VARCHAR2
487 , p_commit VARCHAR2
488 , p3_a0 JTF_NUMBER_TABLE
489 , p3_a1 JTF_NUMBER_TABLE
490 , p3_a2 JTF_NUMBER_TABLE
491 , p3_a3 JTF_VARCHAR2_TABLE_100
492 , p3_a4 JTF_NUMBER_TABLE
493 , p3_a5 JTF_VARCHAR2_TABLE_100
494 , p3_a6 JTF_NUMBER_TABLE
495 , p3_a7 JTF_NUMBER_TABLE
496 , p3_a8 JTF_NUMBER_TABLE
497 , p3_a9 JTF_NUMBER_TABLE
498 , p3_a10 JTF_VARCHAR2_TABLE_100
499 , p3_a11 JTF_NUMBER_TABLE
500 , p3_a12 JTF_DATE_TABLE
501 , p3_a13 JTF_NUMBER_TABLE
502 , p3_a14 JTF_DATE_TABLE
503 , p3_a15 JTF_NUMBER_TABLE
504 , p3_a16 JTF_NUMBER_TABLE
505 , x_return_status out nocopy VARCHAR2
506 , x_msg_count out nocopy NUMBER
507 , x_msg_data out nocopy VARCHAR2
508 , x_ag_dn_xref_id_tbl out nocopy JTF_NUMBER_TABLE
509 )
510
511 as
512 ddp_ag_dn_xref_tbl iex_dunning_pub.ag_dn_xref_tbl_type;
513 ddx_ag_dn_xref_id_tbl iex_dunning_pub.ag_dn_xref_id_tbl_type;
514 ddindx binary_integer; indx binary_integer;
515 begin
516
517 -- copy data to the local IN or IN-OUT args, if any
518
519
520
521 iex_dunning_pub_w.rosetta_table_copy_in_p1(ddp_ag_dn_xref_tbl, p3_a0
522 , p3_a1
523 , p3_a2
524 , p3_a3
525 , p3_a4
526 , p3_a5
527 , p3_a6
528 , p3_a7
529 , p3_a8
530 , p3_a9
531 , p3_a10
532 , p3_a11
533 , p3_a12
534 , p3_a13
535 , p3_a14
536 , p3_a15
537 , p3_a16
538 );
539
540
541
542
543
544 -- here's the delegated call to the old PL/SQL routine
545 iex_dunning_pub.create_ag_dn_xref(p_api_version,
546 p_init_msg_list,
547 p_commit,
548 ddp_ag_dn_xref_tbl,
549 x_return_status,
550 x_msg_count,
551 x_msg_data,
552 ddx_ag_dn_xref_id_tbl);
553
554 -- copy data back from the local variables to OUT or IN-OUT args, if any
555
556
557
558
559
560
561
562 iex_dunning_pub_w.rosetta_table_copy_out_p2(ddx_ag_dn_xref_id_tbl, x_ag_dn_xref_id_tbl);
563 end;
564
565 procedure update_ag_dn_xref(p_api_version NUMBER
566 , p_init_msg_list VARCHAR2
567 , p_commit VARCHAR2
568 , p3_a0 JTF_NUMBER_TABLE
569 , p3_a1 JTF_NUMBER_TABLE
570 , p3_a2 JTF_NUMBER_TABLE
571 , p3_a3 JTF_VARCHAR2_TABLE_100
572 , p3_a4 JTF_NUMBER_TABLE
573 , p3_a5 JTF_VARCHAR2_TABLE_100
574 , p3_a6 JTF_NUMBER_TABLE
575 , p3_a7 JTF_NUMBER_TABLE
576 , p3_a8 JTF_NUMBER_TABLE
577 , p3_a9 JTF_NUMBER_TABLE
578 , p3_a10 JTF_VARCHAR2_TABLE_100
579 , p3_a11 JTF_NUMBER_TABLE
580 , p3_a12 JTF_DATE_TABLE
581 , p3_a13 JTF_NUMBER_TABLE
582 , p3_a14 JTF_DATE_TABLE
583 , p3_a15 JTF_NUMBER_TABLE
584 , p3_a16 JTF_NUMBER_TABLE
585 , x_return_status out nocopy VARCHAR2
586 , x_msg_count out nocopy NUMBER
587 , x_msg_data out nocopy VARCHAR2
588 )
589
590 as
591 ddp_ag_dn_xref_tbl iex_dunning_pub.ag_dn_xref_tbl_type;
592 ddindx binary_integer; indx binary_integer;
593 begin
594
595 -- copy data to the local IN or IN-OUT args, if any
596
597
598
599 iex_dunning_pub_w.rosetta_table_copy_in_p1(ddp_ag_dn_xref_tbl, p3_a0
600 , p3_a1
601 , p3_a2
602 , p3_a3
603 , p3_a4
604 , p3_a5
605 , p3_a6
606 , p3_a7
607 , p3_a8
608 , p3_a9
609 , p3_a10
610 , p3_a11
611 , p3_a12
612 , p3_a13
613 , p3_a14
614 , p3_a15
615 , p3_a16
616 );
617
618
619
620
621 -- here's the delegated call to the old PL/SQL routine
622 iex_dunning_pub.update_ag_dn_xref(p_api_version,
623 p_init_msg_list,
624 p_commit,
625 ddp_ag_dn_xref_tbl,
626 x_return_status,
627 x_msg_count,
628 x_msg_data);
629
630 -- copy data back from the local variables to OUT or IN-OUT args, if any
631
632
633
634
635
636
637 end;
638
639 end iex_dunning_pub_w;