[Home] [Help]
PACKAGE BODY: APPS.IEM_EMAILACCOUNT_PUB_W
Source
1 package body iem_emailaccount_pub_w as
2 /* $Header: IEMVEMAB.pls 120.5 2011/12/25 17:36:47 lkullamb ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy iem_emailaccount_pub.emacnt_tbl_type, a0 JTF_VARCHAR2_TABLE_300
17 , a1 JTF_VARCHAR2_TABLE_300
18 , a2 JTF_VARCHAR2_TABLE_200
19 , a3 JTF_NUMBER_TABLE
20 ) as
21 ddindx binary_integer; indx binary_integer;
22 begin
23 if a0 is not null and a0.count > 0 then
24 if a0.count > 0 then
25 indx := a0.first;
26 ddindx := 1;
27 while true loop
28 t(ddindx).account_name := a0(indx);
29 t(ddindx).db_user := a1(indx);
30 t(ddindx).account_password := a2(indx);
31 t(ddindx).account_id := a3(indx);
32 ddindx := ddindx+1;
33 if a0.last =indx
34 then exit;
35 end if;
36 indx := a0.next(indx);
37 end loop;
38 end if;
39 end if;
40 end rosetta_table_copy_in_p1;
41 procedure rosetta_table_copy_out_p1(t iem_emailaccount_pub.emacnt_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
42 , a1 out nocopy JTF_VARCHAR2_TABLE_300
43 , a2 out nocopy JTF_VARCHAR2_TABLE_200
44 , a3 out nocopy JTF_NUMBER_TABLE
45 ) as
46 ddindx binary_integer; indx binary_integer;
47 begin
48 if t is null or t.count = 0 then
49 a0 := JTF_VARCHAR2_TABLE_300();
50 a1 := JTF_VARCHAR2_TABLE_300();
51 a2 := JTF_VARCHAR2_TABLE_200();
52 a3 := JTF_NUMBER_TABLE();
53 else
54 a0 := JTF_VARCHAR2_TABLE_300();
55 a1 := JTF_VARCHAR2_TABLE_300();
56 a2 := JTF_VARCHAR2_TABLE_200();
57 a3 := JTF_NUMBER_TABLE();
58 if t.count > 0 then
59 a0.extend(t.count);
60 a1.extend(t.count);
61 a2.extend(t.count);
62 a3.extend(t.count);
63 ddindx := t.first;
64 indx := 1;
65 while true loop
66 a0(indx) := t(ddindx).account_name;
67 a1(indx) := t(ddindx).db_user;
68 a2(indx) := t(ddindx).account_password;
69 a3(indx) := t(ddindx).account_id;
70 indx := indx+1;
71 if t.last =ddindx
72 then exit;
73 end if;
74 ddindx := t.next(ddindx);
75 end loop;
76 end if;
77 end if;
78 end rosetta_table_copy_out_p1;
79
80 procedure rosetta_table_copy_in_p4(t out nocopy iem_emailaccount_pub.msg_header_table, a0 JTF_NUMBER_TABLE
81 , a1 JTF_VARCHAR2_TABLE_300
82 , a2 JTF_VARCHAR2_TABLE_200
83 , a3 JTF_DATE_TABLE
84 , a4 JTF_VARCHAR2_TABLE_100
85 , a5 JTF_VARCHAR2_TABLE_300
86 , a6 JTF_VARCHAR2_TABLE_100
87 , a7 JTF_VARCHAR2_TABLE_300
88 , a8 JTF_VARCHAR2_TABLE_300
89 , a9 JTF_VARCHAR2_TABLE_300
90 , a10 JTF_NUMBER_TABLE
91 , a11 JTF_VARCHAR2_TABLE_300
92 ) as
93 ddindx binary_integer; indx binary_integer;
94 begin
95 if a0 is not null and a0.count > 0 then
96 if a0.count > 0 then
97 indx := a0.first;
98 ddindx := 1;
99 while true loop
100 t(ddindx).msg_id := a0(indx);
101 t(ddindx).smtp_msg_id := a1(indx);
102 t(ddindx).sender_name := a2(indx);
103 t(ddindx).received_date := rosetta_g_miss_date_in_map(a3(indx));
104 t(ddindx).from_str := a4(indx);
105 t(ddindx).to_str := a5(indx);
106 t(ddindx).priority := a6(indx);
107 t(ddindx).replyto := a7(indx);
108 t(ddindx).subject := a8(indx);
109 t(ddindx).classification := a9(indx);
110 t(ddindx).score := a10(indx);
111 t(ddindx).folder_path := a11(indx);
112 ddindx := ddindx+1;
113 if a0.last =indx
114 then exit;
115 end if;
116 indx := a0.next(indx);
117 end loop;
118 end if;
119 end if;
120 end rosetta_table_copy_in_p4;
121 procedure rosetta_table_copy_out_p4(t iem_emailaccount_pub.msg_header_table, a0 out nocopy JTF_NUMBER_TABLE
122 , a1 out nocopy JTF_VARCHAR2_TABLE_300
123 , a2 out nocopy JTF_VARCHAR2_TABLE_200
124 , a3 out nocopy JTF_DATE_TABLE
125 , a4 out nocopy JTF_VARCHAR2_TABLE_100
126 , a5 out nocopy JTF_VARCHAR2_TABLE_300
127 , a6 out nocopy JTF_VARCHAR2_TABLE_100
128 , a7 out nocopy JTF_VARCHAR2_TABLE_300
129 , a8 out nocopy JTF_VARCHAR2_TABLE_300
130 , a9 out nocopy JTF_VARCHAR2_TABLE_300
131 , a10 out nocopy JTF_NUMBER_TABLE
132 , a11 out nocopy JTF_VARCHAR2_TABLE_300
133 ) as
134 ddindx binary_integer; indx binary_integer;
135 begin
136 if t is null or t.count = 0 then
137 a0 := JTF_NUMBER_TABLE();
138 a1 := JTF_VARCHAR2_TABLE_300();
139 a2 := JTF_VARCHAR2_TABLE_200();
140 a3 := JTF_DATE_TABLE();
141 a4 := JTF_VARCHAR2_TABLE_100();
142 a5 := JTF_VARCHAR2_TABLE_300();
143 a6 := JTF_VARCHAR2_TABLE_100();
144 a7 := JTF_VARCHAR2_TABLE_300();
145 a8 := JTF_VARCHAR2_TABLE_300();
146 a9 := JTF_VARCHAR2_TABLE_300();
147 a10 := JTF_NUMBER_TABLE();
148 a11 := JTF_VARCHAR2_TABLE_300();
149 else
150 a0 := JTF_NUMBER_TABLE();
151 a1 := JTF_VARCHAR2_TABLE_300();
152 a2 := JTF_VARCHAR2_TABLE_200();
153 a3 := JTF_DATE_TABLE();
154 a4 := JTF_VARCHAR2_TABLE_100();
155 a5 := JTF_VARCHAR2_TABLE_300();
156 a6 := JTF_VARCHAR2_TABLE_100();
157 a7 := JTF_VARCHAR2_TABLE_300();
158 a8 := JTF_VARCHAR2_TABLE_300();
159 a9 := JTF_VARCHAR2_TABLE_300();
160 a10 := JTF_NUMBER_TABLE();
161 a11 := JTF_VARCHAR2_TABLE_300();
162 if t.count > 0 then
163 a0.extend(t.count);
164 a1.extend(t.count);
165 a2.extend(t.count);
166 a3.extend(t.count);
167 a4.extend(t.count);
168 a5.extend(t.count);
169 a6.extend(t.count);
170 a7.extend(t.count);
171 a8.extend(t.count);
172 a9.extend(t.count);
173 a10.extend(t.count);
174 a11.extend(t.count);
175 ddindx := t.first;
176 indx := 1;
177 while true loop
178 a0(indx) := t(ddindx).msg_id;
179 a1(indx) := t(ddindx).smtp_msg_id;
180 a2(indx) := t(ddindx).sender_name;
181 a3(indx) := t(ddindx).received_date;
182 a4(indx) := t(ddindx).from_str;
183 a5(indx) := t(ddindx).to_str;
184 a6(indx) := t(ddindx).priority;
185 a7(indx) := t(ddindx).replyto;
186 a8(indx) := t(ddindx).subject;
187 a9(indx) := t(ddindx).classification;
188 a10(indx) := t(ddindx).score;
189 a11(indx) := t(ddindx).folder_path;
190 indx := indx+1;
191 if t.last =ddindx
192 then exit;
193 end if;
194 ddindx := t.next(ddindx);
195 end loop;
196 end if;
197 end if;
198 end rosetta_table_copy_out_p4;
199
200 procedure rosetta_table_copy_in_p6(t out nocopy iem_emailaccount_pub.account_info_table, a0 JTF_VARCHAR2_TABLE_100
201 , a1 JTF_VARCHAR2_TABLE_100
202 , a2 JTF_VARCHAR2_TABLE_200
203 , a3 JTF_NUMBER_TABLE
204 , a4 JTF_NUMBER_TABLE
205 ) as
206 ddindx binary_integer; indx binary_integer;
207 begin
208 if a0 is not null and a0.count > 0 then
209 if a0.count > 0 then
210 indx := a0.first;
211 ddindx := 1;
212 while true loop
213 t(ddindx).email_user := a0(indx);
214 t(ddindx).email_password := a1(indx);
215 t(ddindx).domain := a2(indx);
216 t(ddindx).db_server_id := a3(indx);
217 t(ddindx).email_account_id := a4(indx);
218 ddindx := ddindx+1;
219 if a0.last =indx
220 then exit;
221 end if;
222 indx := a0.next(indx);
223 end loop;
224 end if;
225 end if;
226 end rosetta_table_copy_in_p6;
227 procedure rosetta_table_copy_out_p6(t iem_emailaccount_pub.account_info_table, a0 out nocopy JTF_VARCHAR2_TABLE_100
228 , a1 out nocopy JTF_VARCHAR2_TABLE_100
229 , a2 out nocopy JTF_VARCHAR2_TABLE_200
230 , a3 out nocopy JTF_NUMBER_TABLE
231 , a4 out nocopy JTF_NUMBER_TABLE
232 ) as
233 ddindx binary_integer; indx binary_integer;
234 begin
235 if t is null or t.count = 0 then
236 a0 := JTF_VARCHAR2_TABLE_100();
237 a1 := JTF_VARCHAR2_TABLE_100();
238 a2 := JTF_VARCHAR2_TABLE_200();
239 a3 := JTF_NUMBER_TABLE();
240 a4 := JTF_NUMBER_TABLE();
241 else
242 a0 := JTF_VARCHAR2_TABLE_100();
243 a1 := JTF_VARCHAR2_TABLE_100();
244 a2 := JTF_VARCHAR2_TABLE_200();
245 a3 := JTF_NUMBER_TABLE();
246 a4 := JTF_NUMBER_TABLE();
247 if t.count > 0 then
248 a0.extend(t.count);
249 a1.extend(t.count);
250 a2.extend(t.count);
251 a3.extend(t.count);
252 a4.extend(t.count);
253 ddindx := t.first;
254 indx := 1;
255 while true loop
256 a0(indx) := t(ddindx).email_user;
257 a1(indx) := t(ddindx).email_password;
258 a2(indx) := t(ddindx).domain;
259 a3(indx) := t(ddindx).db_server_id;
260 a4(indx) := t(ddindx).email_account_id;
261 indx := indx+1;
262 if t.last =ddindx
263 then exit;
264 end if;
265 ddindx := t.next(ddindx);
266 end loop;
267 end if;
268 end if;
269 end rosetta_table_copy_out_p6;
270
271 procedure rosetta_table_copy_in_p8(t out nocopy iem_emailaccount_pub.acntdetails_tbl_type, a0 JTF_VARCHAR2_TABLE_300
272 , a1 JTF_VARCHAR2_TABLE_100
273 , a2 JTF_VARCHAR2_TABLE_200
274 , a3 JTF_VARCHAR2_TABLE_300
275 , a4 JTF_VARCHAR2_TABLE_100
276 , a5 JTF_NUMBER_TABLE
277 , a6 JTF_VARCHAR2_TABLE_300
278 , a7 JTF_NUMBER_TABLE
279 , a8 JTF_NUMBER_TABLE
280 , a9 JTF_VARCHAR2_TABLE_100
281 ) as
282 ddindx binary_integer; indx binary_integer;
283 begin
284 if a0 is not null and a0.count > 0 then
285 if a0.count > 0 then
286 indx := a0.first;
287 ddindx := 1;
288 while true loop
289 t(ddindx).account_name := a0(indx);
290 t(ddindx).email_user := a1(indx);
291 t(ddindx).email_address := a2(indx);
292 t(ddindx).reply_to_address := a3(indx);
293 t(ddindx).from_name := a4(indx);
294 t(ddindx).email_account_id := a5(indx);
295 t(ddindx).smtp_server := a6(indx);
296 t(ddindx).port := a7(indx);
297 t(ddindx).template_category_id := a8(indx);
298 t(ddindx).ssl_connection_flag := a9(indx);
299 ddindx := ddindx+1;
300 if a0.last =indx
301 then exit;
302 end if;
303 indx := a0.next(indx);
304 end loop;
305 end if;
306 end if;
307 end rosetta_table_copy_in_p8;
308 procedure rosetta_table_copy_out_p8(t iem_emailaccount_pub.acntdetails_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
309 , a1 out nocopy JTF_VARCHAR2_TABLE_100
310 , a2 out nocopy JTF_VARCHAR2_TABLE_200
311 , a3 out nocopy JTF_VARCHAR2_TABLE_300
312 , a4 out nocopy JTF_VARCHAR2_TABLE_100
313 , a5 out nocopy JTF_NUMBER_TABLE
314 , a6 out nocopy JTF_VARCHAR2_TABLE_300
315 , a7 out nocopy JTF_NUMBER_TABLE
316 , a8 out nocopy JTF_NUMBER_TABLE
317 , a9 out nocopy JTF_VARCHAR2_TABLE_100
318 ) as
319 ddindx binary_integer; indx binary_integer;
320 begin
321 if t is null or t.count = 0 then
322 a0 := JTF_VARCHAR2_TABLE_300();
323 a1 := JTF_VARCHAR2_TABLE_100();
324 a2 := JTF_VARCHAR2_TABLE_200();
325 a3 := JTF_VARCHAR2_TABLE_300();
326 a4 := JTF_VARCHAR2_TABLE_100();
327 a5 := JTF_NUMBER_TABLE();
328 a6 := JTF_VARCHAR2_TABLE_300();
329 a7 := JTF_NUMBER_TABLE();
330 a8 := JTF_NUMBER_TABLE();
331 a9 := JTF_VARCHAR2_TABLE_100();
332 else
333 a0 := JTF_VARCHAR2_TABLE_300();
334 a1 := JTF_VARCHAR2_TABLE_100();
335 a2 := JTF_VARCHAR2_TABLE_200();
336 a3 := JTF_VARCHAR2_TABLE_300();
337 a4 := JTF_VARCHAR2_TABLE_100();
338 a5 := JTF_NUMBER_TABLE();
339 a6 := JTF_VARCHAR2_TABLE_300();
340 a7 := JTF_NUMBER_TABLE();
341 a8 := JTF_NUMBER_TABLE();
342 a9 := JTF_VARCHAR2_TABLE_100();
343 if t.count > 0 then
344 a0.extend(t.count);
345 a1.extend(t.count);
346 a2.extend(t.count);
347 a3.extend(t.count);
348 a4.extend(t.count);
349 a5.extend(t.count);
350 a6.extend(t.count);
351 a7.extend(t.count);
352 a8.extend(t.count);
353 a9.extend(t.count);
354 ddindx := t.first;
355 indx := 1;
356 while true loop
357 a0(indx) := t(ddindx).account_name;
358 a1(indx) := t(ddindx).email_user;
359 a2(indx) := t(ddindx).email_address;
360 a3(indx) := t(ddindx).reply_to_address;
361 a4(indx) := t(ddindx).from_name;
362 a5(indx) := t(ddindx).email_account_id;
363 a6(indx) := t(ddindx).smtp_server;
364 a7(indx) := t(ddindx).port;
365 a8(indx) := t(ddindx).template_category_id;
366 a9(indx) := t(ddindx).ssl_connection_flag;
367 indx := indx+1;
368 if t.last =ddindx
369 then exit;
370 end if;
371 ddindx := t.next(ddindx);
372 end loop;
373 end if;
374 end if;
375 end rosetta_table_copy_out_p8;
376
377 procedure rosetta_table_copy_in_p10(t out nocopy iem_emailaccount_pub.agntacntdetails_tbl_type, a0 JTF_NUMBER_TABLE
378 , a1 JTF_VARCHAR2_TABLE_300
379 , a2 JTF_VARCHAR2_TABLE_300
383 ddindx binary_integer; indx binary_integer;
380 , a3 JTF_VARCHAR2_TABLE_100
381 , a4 JTF_VARCHAR2_TABLE_300
382 ) as
384 begin
385 if a0 is not null and a0.count > 0 then
386 if a0.count > 0 then
387 indx := a0.first;
388 ddindx := 1;
389 while true loop
390 t(ddindx).resource_id := a0(indx);
391 t(ddindx).resource_name := a1(indx);
392 t(ddindx).user_name := a2(indx);
393 t(ddindx).role := a3(indx);
394 t(ddindx).last_login_time := a4(indx);
395 ddindx := ddindx+1;
396 if a0.last =indx
397 then exit;
398 end if;
399 indx := a0.next(indx);
400 end loop;
401 end if;
402 end if;
403 end rosetta_table_copy_in_p10;
404 procedure rosetta_table_copy_out_p10(t iem_emailaccount_pub.agntacntdetails_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
405 , a1 out nocopy JTF_VARCHAR2_TABLE_300
406 , a2 out nocopy JTF_VARCHAR2_TABLE_300
407 , a3 out nocopy JTF_VARCHAR2_TABLE_100
408 , a4 out nocopy JTF_VARCHAR2_TABLE_300
409 ) as
410 ddindx binary_integer; indx binary_integer;
411 begin
412 if t is null or t.count = 0 then
413 a0 := JTF_NUMBER_TABLE();
414 a1 := JTF_VARCHAR2_TABLE_300();
415 a2 := JTF_VARCHAR2_TABLE_300();
416 a3 := JTF_VARCHAR2_TABLE_100();
417 a4 := JTF_VARCHAR2_TABLE_300();
418 else
419 a0 := JTF_NUMBER_TABLE();
420 a1 := JTF_VARCHAR2_TABLE_300();
421 a2 := JTF_VARCHAR2_TABLE_300();
422 a3 := JTF_VARCHAR2_TABLE_100();
423 a4 := JTF_VARCHAR2_TABLE_300();
424 if t.count > 0 then
425 a0.extend(t.count);
426 a1.extend(t.count);
427 a2.extend(t.count);
428 a3.extend(t.count);
429 a4.extend(t.count);
430 ddindx := t.first;
431 indx := 1;
432 while true loop
433 a0(indx) := t(ddindx).resource_id;
434 a1(indx) := t(ddindx).resource_name;
435 a2(indx) := t(ddindx).user_name;
436 a3(indx) := t(ddindx).role;
437 a4(indx) := t(ddindx).last_login_time;
438 indx := indx+1;
439 if t.last =ddindx
440 then exit;
441 end if;
442 ddindx := t.next(ddindx);
443 end loop;
444 end if;
445 end if;
446 end rosetta_table_copy_out_p10;
447
448 procedure rosetta_table_copy_in_p12(t out nocopy iem_emailaccount_pub.agentacnt_tbl_type, a0 JTF_NUMBER_TABLE
449 , a1 JTF_NUMBER_TABLE
450 , a2 JTF_VARCHAR2_TABLE_300
451 , a3 JTF_VARCHAR2_TABLE_300
452 , a4 JTF_VARCHAR2_TABLE_300
453 , a5 JTF_VARCHAR2_TABLE_300
454 , a6 JTF_VARCHAR2_TABLE_300
455 , a7 JTF_VARCHAR2_TABLE_300
456 ) as
457 ddindx binary_integer; indx binary_integer;
458 begin
459 if a0 is not null and a0.count > 0 then
460 if a0.count > 0 then
461 indx := a0.first;
462 ddindx := 1;
463 while true loop
464 t(ddindx).agent_account_id := a0(indx);
465 t(ddindx).email_account_id := a1(indx);
466 t(ddindx).account_name := a2(indx);
467 t(ddindx).reply_to_address := a3(indx);
468 t(ddindx).from_address := a4(indx);
469 t(ddindx).from_name := a5(indx);
470 t(ddindx).user_name := a6(indx);
471 t(ddindx).signature := a7(indx);
472 ddindx := ddindx+1;
473 if a0.last =indx
474 then exit;
475 end if;
476 indx := a0.next(indx);
477 end loop;
478 end if;
479 end if;
480 end rosetta_table_copy_in_p12;
481 procedure rosetta_table_copy_out_p12(t iem_emailaccount_pub.agentacnt_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
482 , a1 out nocopy JTF_NUMBER_TABLE
483 , a2 out nocopy JTF_VARCHAR2_TABLE_300
484 , a3 out nocopy JTF_VARCHAR2_TABLE_300
485 , a4 out nocopy JTF_VARCHAR2_TABLE_300
486 , a5 out nocopy JTF_VARCHAR2_TABLE_300
487 , a6 out nocopy JTF_VARCHAR2_TABLE_300
488 , a7 out nocopy JTF_VARCHAR2_TABLE_300
489 ) as
490 ddindx binary_integer; indx binary_integer;
491 begin
492 if t is null or t.count = 0 then
493 a0 := JTF_NUMBER_TABLE();
494 a1 := JTF_NUMBER_TABLE();
495 a2 := JTF_VARCHAR2_TABLE_300();
496 a3 := JTF_VARCHAR2_TABLE_300();
497 a4 := JTF_VARCHAR2_TABLE_300();
498 a5 := JTF_VARCHAR2_TABLE_300();
499 a6 := JTF_VARCHAR2_TABLE_300();
500 a7 := JTF_VARCHAR2_TABLE_300();
501 else
502 a0 := JTF_NUMBER_TABLE();
503 a1 := JTF_NUMBER_TABLE();
504 a2 := JTF_VARCHAR2_TABLE_300();
505 a3 := JTF_VARCHAR2_TABLE_300();
506 a4 := JTF_VARCHAR2_TABLE_300();
507 a5 := JTF_VARCHAR2_TABLE_300();
508 a6 := JTF_VARCHAR2_TABLE_300();
509 a7 := JTF_VARCHAR2_TABLE_300();
510 if t.count > 0 then
511 a0.extend(t.count);
512 a1.extend(t.count);
513 a2.extend(t.count);
514 a3.extend(t.count);
515 a4.extend(t.count);
516 a5.extend(t.count);
517 a6.extend(t.count);
518 a7.extend(t.count);
519 ddindx := t.first;
523 a1(indx) := t(ddindx).email_account_id;
520 indx := 1;
521 while true loop
522 a0(indx) := t(ddindx).agent_account_id;
524 a2(indx) := t(ddindx).account_name;
525 a3(indx) := t(ddindx).reply_to_address;
526 a4(indx) := t(ddindx).from_address;
527 a5(indx) := t(ddindx).from_name;
528 a6(indx) := t(ddindx).user_name;
529 a7(indx) := t(ddindx).signature;
530 indx := indx+1;
531 if t.last =ddindx
532 then exit;
533 end if;
534 ddindx := t.next(ddindx);
535 end loop;
536 end if;
537 end if;
538 end rosetta_table_copy_out_p12;
539
540 procedure get_emailaccount_list(p_api_version_number NUMBER
541 , p_init_msg_list VARCHAR2
542 , p_commit VARCHAR2
543 , p_resource_id NUMBER
544 , x_return_status out nocopy VARCHAR2
545 , x_msg_count out nocopy NUMBER
546 , x_msg_data out nocopy VARCHAR2
547 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_300
548 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_300
549 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
550 , p7_a3 out nocopy JTF_NUMBER_TABLE
551 )
552
553 as
554 ddx_email_acnt_tbl iem_emailaccount_pub.emacnt_tbl_type;
555 ddindx binary_integer; indx binary_integer;
556 begin
557
558 -- copy data to the local IN or IN-OUT args, if any
559
560
561
562
563
564
565
566
567 -- here's the delegated call to the old PL/SQL routine
568 iem_emailaccount_pub.get_emailaccount_list(p_api_version_number,
569 p_init_msg_list,
570 p_commit,
571 p_resource_id,
572 x_return_status,
573 x_msg_count,
574 x_msg_data,
575 ddx_email_acnt_tbl);
576
577 -- copy data back from the local variables to OUT or IN-OUT args, if any
578
579
580
581
582
583
584
585 iem_emailaccount_pub_w.rosetta_table_copy_out_p1(ddx_email_acnt_tbl, p7_a0
586 , p7_a1
587 , p7_a2
588 , p7_a3
589 );
590 end;
591
592 procedure getemailheaders(p_agentname VARCHAR2
593 , p_top_n INTEGER
594 , p_top_option INTEGER
595 , p_folder_path VARCHAR2
596 , p4_a0 out nocopy JTF_NUMBER_TABLE
597 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_300
598 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_200
599 , p4_a3 out nocopy JTF_DATE_TABLE
600 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
601 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_300
602 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
603 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_300
604 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_300
605 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_300
606 , p4_a10 out nocopy JTF_NUMBER_TABLE
607 , p4_a11 out nocopy JTF_VARCHAR2_TABLE_300
608 )
609
610 as
611 ddmessage_headers iem_emailaccount_pub.msg_header_table;
612 ddindx binary_integer; indx binary_integer;
613 begin
614
615 -- copy data to the local IN or IN-OUT args, if any
616
617
618
619
620
621 -- here's the delegated call to the old PL/SQL routine
622 iem_emailaccount_pub.getemailheaders(p_agentname,
623 p_top_n,
624 p_top_option,
625 p_folder_path,
626 ddmessage_headers);
627
628 -- copy data back from the local variables to OUT or IN-OUT args, if any
629
630
631
632
633 iem_emailaccount_pub_w.rosetta_table_copy_out_p4(ddmessage_headers, p4_a0
634 , p4_a1
635 , p4_a2
636 , p4_a3
637 , p4_a4
638 , p4_a5
639 , p4_a6
640 , p4_a7
641 , p4_a8
642 , p4_a9
643 , p4_a10
644 , p4_a11
645 );
646 end;
647
648 procedure listagentaccounts(p_api_version_number NUMBER
649 , p_init_msg_list VARCHAR2
650 , p_commit VARCHAR2
651 , p_resource_id NUMBER
652 , x_return_status out nocopy VARCHAR2
653 , x_msg_count out nocopy NUMBER
654 , x_msg_data out nocopy VARCHAR2
655 , p7_a0 out nocopy JTF_NUMBER_TABLE
656 , p7_a1 out nocopy JTF_NUMBER_TABLE
657 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
658 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
659 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_300
660 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_300
661 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
662 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_300
663 )
664
665 as
666 ddx_agent_acnt_tbl iem_emailaccount_pub.agentacnt_tbl_type;
667 ddindx binary_integer; indx binary_integer;
668 begin
669
670 -- copy data to the local IN or IN-OUT args, if any
671
672
673
674
675
676
677
678
679 -- here's the delegated call to the old PL/SQL routine
680 iem_emailaccount_pub.listagentaccounts(p_api_version_number,
681 p_init_msg_list,
682 p_commit,
683 p_resource_id,
684 x_return_status,
685 x_msg_count,
689 -- copy data back from the local variables to OUT or IN-OUT args, if any
686 x_msg_data,
687 ddx_agent_acnt_tbl);
688
690
691
692
693
694
695
696
697 iem_emailaccount_pub_w.rosetta_table_copy_out_p12(ddx_agent_acnt_tbl, p7_a0
698 , p7_a1
699 , p7_a2
700 , p7_a3
701 , p7_a4
702 , p7_a5
703 , p7_a6
704 , p7_a7
705 );
706 end;
707
708 procedure listagentcpaccounts(p_api_version_number NUMBER
709 , p_init_msg_list VARCHAR2
710 , p_commit VARCHAR2
711 , p_resource_id NUMBER
712 , x_return_status out nocopy VARCHAR2
713 , x_msg_count out nocopy NUMBER
714 , x_msg_data out nocopy VARCHAR2
715 , p7_a0 out nocopy JTF_NUMBER_TABLE
716 , p7_a1 out nocopy JTF_NUMBER_TABLE
717 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
718 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
719 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_300
720 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_300
721 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
722 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_300
723 )
724
725 as
726 ddx_agent_acnt_tbl iem_emailaccount_pub.agentacnt_tbl_type;
727 ddindx binary_integer; indx binary_integer;
728 begin
729
730 -- copy data to the local IN or IN-OUT args, if any
731
732
733
734
735
736
737
738
739 -- here's the delegated call to the old PL/SQL routine
740 iem_emailaccount_pub.listagentcpaccounts(p_api_version_number,
741 p_init_msg_list,
742 p_commit,
743 p_resource_id,
744 x_return_status,
745 x_msg_count,
746 x_msg_data,
747 ddx_agent_acnt_tbl);
748
749 -- copy data back from the local variables to OUT or IN-OUT args, if any
750
751
752
753
754
755
756
757 iem_emailaccount_pub_w.rosetta_table_copy_out_p12(ddx_agent_acnt_tbl, p7_a0
758 , p7_a1
759 , p7_a2
760 , p7_a3
761 , p7_a4
762 , p7_a5
763 , p7_a6
764 , p7_a7
765 );
766 end;
767
768 procedure listagentaccountdetails(p_api_version_number NUMBER
769 , p_init_msg_list VARCHAR2
770 , p_commit VARCHAR2
771 , p_email_account_id NUMBER
772 , p_roleid NUMBER
773 , p_resource_id NUMBER
774 , p_search_criteria VARCHAR2
775 , p_display_size NUMBER
776 , p_page_count NUMBER
777 , p_sort_by VARCHAR2
778 , p_sort_order NUMBER
779 , x_return_status out nocopy VARCHAR2
780 , x_msg_count out nocopy NUMBER
781 , x_search_count out nocopy NUMBER
782 , x_msg_data out nocopy VARCHAR2
783 , p15_a0 out nocopy JTF_NUMBER_TABLE
784 , p15_a1 out nocopy JTF_VARCHAR2_TABLE_300
785 , p15_a2 out nocopy JTF_VARCHAR2_TABLE_300
786 , p15_a3 out nocopy JTF_VARCHAR2_TABLE_100
787 , p15_a4 out nocopy JTF_VARCHAR2_TABLE_300
788 )
789
790 as
791 ddx_agent_acnt_dtl_data iem_emailaccount_pub.agntacntdetails_tbl_type;
792 ddindx binary_integer; indx binary_integer;
793 begin
794
795 -- copy data to the local IN or IN-OUT args, if any
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812 -- here's the delegated call to the old PL/SQL routine
813 iem_emailaccount_pub.listagentaccountdetails(p_api_version_number,
814 p_init_msg_list,
815 p_commit,
816 p_email_account_id,
817 p_roleid,
818 p_resource_id,
819 p_search_criteria,
820 p_display_size,
821 p_page_count,
822 p_sort_by,
823 p_sort_order,
824 x_return_status,
825 x_msg_count,
826 x_search_count,
827 x_msg_data,
828 ddx_agent_acnt_dtl_data);
829
830 -- copy data back from the local variables to OUT or IN-OUT args, if any
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846 iem_emailaccount_pub_w.rosetta_table_copy_out_p10(ddx_agent_acnt_dtl_data, p15_a0
847 , p15_a1
848 , p15_a2
849 , p15_a3
850 , p15_a4
851 );
852 end;
853
854 procedure listaccountdetails(p_api_version_number NUMBER
855 , p_init_msg_list VARCHAR2
856 , p_commit VARCHAR2
857 , p_email_account_id NUMBER
858 , x_return_status out nocopy VARCHAR2
859 , x_msg_count out nocopy NUMBER
860 , x_msg_data out nocopy VARCHAR2
861 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_300
862 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
863 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
864 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
865 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
866 , p7_a5 out nocopy JTF_NUMBER_TABLE
867 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
868 , p7_a7 out nocopy JTF_NUMBER_TABLE
869 , p7_a8 out nocopy JTF_NUMBER_TABLE
870 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
871 )
872
873 as
874 ddx_acnt_details_tbl iem_emailaccount_pub.acntdetails_tbl_type;
875 ddindx binary_integer; indx binary_integer;
876 begin
877
878 -- copy data to the local IN or IN-OUT args, if any
879
880
881
882
883
884
885
886
887 -- here's the delegated call to the old PL/SQL routine
888 iem_emailaccount_pub.listaccountdetails(p_api_version_number,
889 p_init_msg_list,
890 p_commit,
891 p_email_account_id,
892 x_return_status,
893 x_msg_count,
894 x_msg_data,
895 ddx_acnt_details_tbl);
896
897 -- copy data back from the local variables to OUT or IN-OUT args, if any
898
899
900
901
902
903
904
905 iem_emailaccount_pub_w.rosetta_table_copy_out_p8(ddx_acnt_details_tbl, p7_a0
906 , p7_a1
907 , p7_a2
908 , p7_a3
909 , p7_a4
910 , p7_a5
911 , p7_a6
912 , p7_a7
913 , p7_a8
914 , p7_a9
915 );
916 end;
917
918 end iem_emailaccount_pub_w;