[Home] [Help]
PACKAGE BODY: APPS.IEM_EMAILPROC_PVT_W
Source
1 package body iem_emailproc_pvt_w as
2 /* $Header: iemvepcb.pls 115.5 2003/08/19 20:45:01 liangxia 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 procedure rosetta_table_copy_in_p5(t out nocopy iem_emailproc_pvt.emailproc_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_VARCHAR2_TABLE_300
15 , a2 JTF_VARCHAR2_TABLE_300
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_300
19 , a6 JTF_VARCHAR2_TABLE_100
20 , a7 JTF_VARCHAR2_TABLE_100
21 ) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if a0 is not null and a0.count > 0 then
25 if a0.count > 0 then
26 indx := a0.first;
27 ddindx := 1;
28 while true loop
29 t(ddindx).emailproc_id := a0(indx);
30 t(ddindx).name := a1(indx);
31 t(ddindx).description := a2(indx);
32 t(ddindx).type := a3(indx);
33 t(ddindx).rule_type := a4(indx);
34 t(ddindx).created_by := a5(indx);
35 t(ddindx).action := a6(indx);
36 t(ddindx).creation_date := a7(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p5;
46 procedure rosetta_table_copy_out_p5(t iem_emailproc_pvt.emailproc_tbl, a0 out nocopy JTF_NUMBER_TABLE
47 , a1 out nocopy JTF_VARCHAR2_TABLE_300
48 , a2 out nocopy JTF_VARCHAR2_TABLE_300
49 , a3 out nocopy JTF_VARCHAR2_TABLE_100
50 , a4 out nocopy JTF_VARCHAR2_TABLE_100
51 , a5 out nocopy JTF_VARCHAR2_TABLE_300
52 , a6 out nocopy JTF_VARCHAR2_TABLE_100
53 , a7 out nocopy JTF_VARCHAR2_TABLE_100
54 ) as
55 ddindx binary_integer; indx binary_integer;
56 begin
57 if t is null or t.count = 0 then
58 a0 := JTF_NUMBER_TABLE();
59 a1 := JTF_VARCHAR2_TABLE_300();
60 a2 := JTF_VARCHAR2_TABLE_300();
61 a3 := JTF_VARCHAR2_TABLE_100();
62 a4 := JTF_VARCHAR2_TABLE_100();
63 a5 := JTF_VARCHAR2_TABLE_300();
64 a6 := JTF_VARCHAR2_TABLE_100();
65 a7 := JTF_VARCHAR2_TABLE_100();
66 else
67 a0 := JTF_NUMBER_TABLE();
68 a1 := JTF_VARCHAR2_TABLE_300();
69 a2 := JTF_VARCHAR2_TABLE_300();
70 a3 := JTF_VARCHAR2_TABLE_100();
71 a4 := JTF_VARCHAR2_TABLE_100();
72 a5 := JTF_VARCHAR2_TABLE_300();
73 a6 := JTF_VARCHAR2_TABLE_100();
74 a7 := JTF_VARCHAR2_TABLE_100();
75 if t.count > 0 then
76 a0.extend(t.count);
77 a1.extend(t.count);
78 a2.extend(t.count);
79 a3.extend(t.count);
80 a4.extend(t.count);
81 a5.extend(t.count);
82 a6.extend(t.count);
83 a7.extend(t.count);
84 ddindx := t.first;
85 indx := 1;
86 while true loop
87 a0(indx) := t(ddindx).emailproc_id;
88 a1(indx) := t(ddindx).name;
89 a2(indx) := t(ddindx).description;
90 a3(indx) := t(ddindx).type;
91 a4(indx) := t(ddindx).rule_type;
92 a5(indx) := t(ddindx).created_by;
93 a6(indx) := t(ddindx).action;
94 a7(indx) := t(ddindx).creation_date;
95 indx := indx+1;
96 if t.last =ddindx
97 then exit;
98 end if;
99 ddindx := t.next(ddindx);
100 end loop;
101 end if;
102 end if;
103 end rosetta_table_copy_out_p5;
104
105 procedure rosetta_table_copy_in_p7(t out nocopy iem_emailproc_pvt.acctemailproc_tbl, a0 JTF_NUMBER_TABLE
106 , a1 JTF_NUMBER_TABLE
107 , a2 JTF_VARCHAR2_TABLE_300
108 , a3 JTF_VARCHAR2_TABLE_300
109 , a4 JTF_VARCHAR2_TABLE_100
110 , a5 JTF_VARCHAR2_TABLE_100
111 , a6 JTF_VARCHAR2_TABLE_100
112 , a7 JTF_NUMBER_TABLE
113 , a8 JTF_VARCHAR2_TABLE_100
114 ) as
115 ddindx binary_integer; indx binary_integer;
116 begin
117 if a0 is not null and a0.count > 0 then
118 if a0.count > 0 then
119 indx := a0.first;
120 ddindx := 1;
121 while true loop
122 t(ddindx).account_emailproc_id := a0(indx);
123 t(ddindx).emailproc_id := a1(indx);
124 t(ddindx).name := a2(indx);
125 t(ddindx).description := a3(indx);
126 t(ddindx).type := a4(indx);
127 t(ddindx).rule_type := a5(indx);
128 t(ddindx).action := a6(indx);
129 t(ddindx).priority := a7(indx);
130 t(ddindx).enabled_flag := a8(indx);
131 ddindx := ddindx+1;
132 if a0.last =indx
133 then exit;
134 end if;
135 indx := a0.next(indx);
136 end loop;
137 end if;
138 end if;
139 end rosetta_table_copy_in_p7;
140 procedure rosetta_table_copy_out_p7(t iem_emailproc_pvt.acctemailproc_tbl, a0 out nocopy JTF_NUMBER_TABLE
141 , a1 out nocopy JTF_NUMBER_TABLE
142 , a2 out nocopy JTF_VARCHAR2_TABLE_300
143 , a3 out nocopy JTF_VARCHAR2_TABLE_300
144 , a4 out nocopy JTF_VARCHAR2_TABLE_100
145 , a5 out nocopy JTF_VARCHAR2_TABLE_100
146 , a6 out nocopy JTF_VARCHAR2_TABLE_100
147 , a7 out nocopy JTF_NUMBER_TABLE
148 , a8 out nocopy JTF_VARCHAR2_TABLE_100
149 ) as
150 ddindx binary_integer; indx binary_integer;
151 begin
152 if t is null or t.count = 0 then
153 a0 := JTF_NUMBER_TABLE();
154 a1 := JTF_NUMBER_TABLE();
155 a2 := JTF_VARCHAR2_TABLE_300();
156 a3 := JTF_VARCHAR2_TABLE_300();
157 a4 := JTF_VARCHAR2_TABLE_100();
158 a5 := JTF_VARCHAR2_TABLE_100();
159 a6 := JTF_VARCHAR2_TABLE_100();
160 a7 := JTF_NUMBER_TABLE();
161 a8 := JTF_VARCHAR2_TABLE_100();
162 else
163 a0 := JTF_NUMBER_TABLE();
164 a1 := JTF_NUMBER_TABLE();
165 a2 := JTF_VARCHAR2_TABLE_300();
166 a3 := JTF_VARCHAR2_TABLE_300();
167 a4 := JTF_VARCHAR2_TABLE_100();
168 a5 := JTF_VARCHAR2_TABLE_100();
169 a6 := JTF_VARCHAR2_TABLE_100();
170 a7 := JTF_NUMBER_TABLE();
171 a8 := JTF_VARCHAR2_TABLE_100();
172 if t.count > 0 then
173 a0.extend(t.count);
174 a1.extend(t.count);
175 a2.extend(t.count);
176 a3.extend(t.count);
177 a4.extend(t.count);
178 a5.extend(t.count);
179 a6.extend(t.count);
180 a7.extend(t.count);
181 a8.extend(t.count);
182 ddindx := t.first;
183 indx := 1;
184 while true loop
185 a0(indx) := t(ddindx).account_emailproc_id;
186 a1(indx) := t(ddindx).emailproc_id;
187 a2(indx) := t(ddindx).name;
188 a3(indx) := t(ddindx).description;
189 a4(indx) := t(ddindx).type;
190 a5(indx) := t(ddindx).rule_type;
191 a6(indx) := t(ddindx).action;
192 a7(indx) := t(ddindx).priority;
193 a8(indx) := t(ddindx).enabled_flag;
194 indx := indx+1;
195 if t.last =ddindx
196 then exit;
197 end if;
198 ddindx := t.next(ddindx);
199 end loop;
200 end if;
201 end if;
202 end rosetta_table_copy_out_p7;
203
204 procedure loademailproc(p_api_version_number NUMBER
205 , p_init_msg_list VARCHAR2
206 , p_commit VARCHAR2
207 , p3_a0 out nocopy JTF_NUMBER_TABLE
208 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_300
209 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_300
210 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_100
211 , p3_a4 out nocopy JTF_VARCHAR2_TABLE_100
212 , p3_a5 out nocopy JTF_VARCHAR2_TABLE_300
213 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_100
214 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_100
215 , p4_a0 out nocopy JTF_NUMBER_TABLE
216 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_300
217 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_300
218 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_100
219 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
220 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_300
221 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
222 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_100
223 , p5_a0 out nocopy JTF_NUMBER_TABLE
224 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_300
225 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_300
226 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
227 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
228 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_300
229 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
230 , p5_a7 out nocopy JTF_VARCHAR2_TABLE_100
231 , p6_a0 out nocopy JTF_NUMBER_TABLE
232 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_300
233 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_300
234 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
235 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
236 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_300
237 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
238 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
239 , p7_a0 out nocopy JTF_NUMBER_TABLE
240 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_300
241 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
242 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
243 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
244 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_300
245 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
246 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
247 , p8_a0 out nocopy JTF_NUMBER_TABLE
248 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_300
249 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_300
250 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
251 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
252 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_300
253 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
254 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
255 , p9_a0 out nocopy JTF_NUMBER_TABLE
256 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_300
257 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_300
258 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
259 , p9_a4 out nocopy JTF_VARCHAR2_TABLE_100
260 , p9_a5 out nocopy JTF_VARCHAR2_TABLE_300
261 , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
262 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
263 , p10_a0 out nocopy JTF_NUMBER_TABLE
264 , p10_a1 out nocopy JTF_VARCHAR2_TABLE_300
265 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_300
266 , p10_a3 out nocopy JTF_VARCHAR2_TABLE_100
267 , p10_a4 out nocopy JTF_VARCHAR2_TABLE_100
268 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_300
269 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
270 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_100
271 , x_return_status out nocopy VARCHAR2
272 , x_msg_count out nocopy NUMBER
273 , x_msg_data out nocopy VARCHAR2
274 )
275
276 as
277 ddx_classification iem_emailproc_pvt.emailproc_tbl;
278 ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279 ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280 ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281 ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282 ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283 ddx_document iem_emailproc_pvt.emailproc_tbl;
284 ddx_route iem_emailproc_pvt.emailproc_tbl;
285 ddindx binary_integer; indx binary_integer;
286 begin
287
288 -- copy data to the local IN or IN-OUT args, if any
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303 -- here's the delegated call to the old PL/SQL routine
304 iem_emailproc_pvt.loademailproc(p_api_version_number,
305 p_init_msg_list,
306 p_commit,
307 ddx_classification,
308 ddx_autodelete,
309 ddx_autoack,
310 ddx_autoproc,
311 ddx_redirect,
312 ddx_3rs,
313 ddx_document,
314 ddx_route,
315 x_return_status,
316 x_msg_count,
317 x_msg_data);
318
319 -- copy data back from the local variables to OUT or IN-OUT args, if any
320
321
322
323 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_classification, p3_a0
324 , p3_a1
325 , p3_a2
326 , p3_a3
327 , p3_a4
328 , p3_a5
329 , p3_a6
330 , p3_a7
331 );
332
333 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_autodelete, p4_a0
334 , p4_a1
335 , p4_a2
336 , p4_a3
337 , p4_a4
338 , p4_a5
339 , p4_a6
340 , p4_a7
341 );
342
343 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_autoack, p5_a0
344 , p5_a1
345 , p5_a2
346 , p5_a3
347 , p5_a4
348 , p5_a5
349 , p5_a6
350 , p5_a7
351 );
352
353 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_autoproc, p6_a0
354 , p6_a1
355 , p6_a2
356 , p6_a3
357 , p6_a4
358 , p6_a5
359 , p6_a6
360 , p6_a7
361 );
362
363 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_redirect, p7_a0
364 , p7_a1
365 , p7_a2
366 , p7_a3
367 , p7_a4
368 , p7_a5
369 , p7_a6
370 , p7_a7
371 );
372
373 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_3rs, p8_a0
374 , p8_a1
375 , p8_a2
376 , p8_a3
377 , p8_a4
378 , p8_a5
379 , p8_a6
380 , p8_a7
381 );
382
383 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_document, p9_a0
384 , p9_a1
385 , p9_a2
386 , p9_a3
387 , p9_a4
388 , p9_a5
389 , p9_a6
390 , p9_a7
391 );
392
393 iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_route, p10_a0
394 , p10_a1
395 , p10_a2
396 , p10_a3
397 , p10_a4
398 , p10_a5
399 , p10_a6
400 , p10_a7
401 );
402
403
404
405 end;
406
407 procedure loadacctemailproc(p_api_version_number NUMBER
408 , p_init_msg_list VARCHAR2
409 , p_commit VARCHAR2
410 , p_acct_id NUMBER
411 , p4_a0 out nocopy JTF_NUMBER_TABLE
412 , p4_a1 out nocopy JTF_NUMBER_TABLE
413 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_300
414 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_300
415 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
416 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
417 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
418 , p4_a7 out nocopy JTF_NUMBER_TABLE
419 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_100
420 , p5_a0 out nocopy JTF_NUMBER_TABLE
421 , p5_a1 out nocopy JTF_NUMBER_TABLE
422 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_300
423 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_300
424 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
425 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
426 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
427 , p5_a7 out nocopy JTF_NUMBER_TABLE
428 , p5_a8 out nocopy JTF_VARCHAR2_TABLE_100
429 , p6_a0 out nocopy JTF_NUMBER_TABLE
430 , p6_a1 out nocopy JTF_NUMBER_TABLE
431 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_300
432 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
433 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
434 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
435 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
436 , p6_a7 out nocopy JTF_NUMBER_TABLE
437 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
438 , p7_a0 out nocopy JTF_NUMBER_TABLE
439 , p7_a1 out nocopy JTF_NUMBER_TABLE
440 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
441 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
442 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
443 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
444 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
445 , p7_a7 out nocopy JTF_NUMBER_TABLE
446 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
447 , p8_a0 out nocopy JTF_NUMBER_TABLE
448 , p8_a1 out nocopy JTF_NUMBER_TABLE
449 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_300
450 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_300
451 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
452 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
453 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
454 , p8_a7 out nocopy JTF_NUMBER_TABLE
455 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
456 , p9_a0 out nocopy JTF_NUMBER_TABLE
457 , p9_a1 out nocopy JTF_NUMBER_TABLE
458 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_300
459 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
460 , p9_a4 out nocopy JTF_VARCHAR2_TABLE_100
461 , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
462 , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
463 , p9_a7 out nocopy JTF_NUMBER_TABLE
464 , p9_a8 out nocopy JTF_VARCHAR2_TABLE_100
465 , p10_a0 out nocopy JTF_NUMBER_TABLE
466 , p10_a1 out nocopy JTF_NUMBER_TABLE
467 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_300
468 , p10_a3 out nocopy JTF_VARCHAR2_TABLE_300
469 , p10_a4 out nocopy JTF_VARCHAR2_TABLE_100
470 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_100
471 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
472 , p10_a7 out nocopy JTF_NUMBER_TABLE
473 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_100
474 , p11_a0 out nocopy JTF_NUMBER_TABLE
475 , p11_a1 out nocopy JTF_NUMBER_TABLE
476 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_300
477 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_300
478 , p11_a4 out nocopy JTF_VARCHAR2_TABLE_100
479 , p11_a5 out nocopy JTF_VARCHAR2_TABLE_100
480 , p11_a6 out nocopy JTF_VARCHAR2_TABLE_100
481 , p11_a7 out nocopy JTF_NUMBER_TABLE
482 , p11_a8 out nocopy JTF_VARCHAR2_TABLE_100
483 , x_return_status out nocopy VARCHAR2
484 , x_msg_count out nocopy NUMBER
485 , x_msg_data out nocopy VARCHAR2
486 )
487
488 as
489 ddx_classification iem_emailproc_pvt.acctemailproc_tbl;
490 ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491 ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492 ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493 ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494 ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495 ddx_document iem_emailproc_pvt.acctemailproc_tbl;
496 ddx_route iem_emailproc_pvt.acctemailproc_tbl;
497 ddindx binary_integer; indx binary_integer;
498 begin
499
500 -- copy data to the local IN or IN-OUT args, if any
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516 -- here's the delegated call to the old PL/SQL routine
517 iem_emailproc_pvt.loadacctemailproc(p_api_version_number,
518 p_init_msg_list,
519 p_commit,
520 p_acct_id,
521 ddx_classification,
522 ddx_autodelete,
523 ddx_autoack,
524 ddx_autoproc,
525 ddx_redirect,
526 ddx_3rs,
527 ddx_document,
528 ddx_route,
529 x_return_status,
530 x_msg_count,
531 x_msg_data);
532
533 -- copy data back from the local variables to OUT or IN-OUT args, if any
534
535
536
537
538 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_classification, p4_a0
539 , p4_a1
540 , p4_a2
541 , p4_a3
542 , p4_a4
543 , p4_a5
544 , p4_a6
545 , p4_a7
546 , p4_a8
547 );
548
549 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_autodelete, p5_a0
550 , p5_a1
551 , p5_a2
552 , p5_a3
553 , p5_a4
554 , p5_a5
555 , p5_a6
556 , p5_a7
557 , p5_a8
558 );
559
560 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_autoack, p6_a0
561 , p6_a1
562 , p6_a2
563 , p6_a3
564 , p6_a4
565 , p6_a5
566 , p6_a6
567 , p6_a7
568 , p6_a8
569 );
570
571 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_autoproc, p7_a0
572 , p7_a1
573 , p7_a2
574 , p7_a3
575 , p7_a4
576 , p7_a5
577 , p7_a6
578 , p7_a7
579 , p7_a8
580 );
581
582 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_redirect, p8_a0
583 , p8_a1
584 , p8_a2
585 , p8_a3
586 , p8_a4
587 , p8_a5
588 , p8_a6
589 , p8_a7
590 , p8_a8
591 );
592
593 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_3rs, p9_a0
594 , p9_a1
595 , p9_a2
596 , p9_a3
597 , p9_a4
598 , p9_a5
599 , p9_a6
600 , p9_a7
601 , p9_a8
602 );
603
604 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_document, p10_a0
605 , p10_a1
606 , p10_a2
607 , p10_a3
608 , p10_a4
609 , p10_a5
610 , p10_a6
611 , p10_a7
612 , p10_a8
613 );
614
615 iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_route, p11_a0
616 , p11_a1
617 , p11_a2
618 , p11_a3
619 , p11_a4
620 , p11_a5
621 , p11_a6
622 , p11_a7
623 , p11_a8
624 );
625
626
627
628 end;
629
630 end iem_emailproc_pvt_w;