[Home] [Help]
PACKAGE BODY: APPS.IEM_EMAILACCOUNT_PUB_W
Source
1 package body iem_emailaccount_pub_w as
2 /* $Header: IEMVEMAB.pls 120.3 2006/05/16 08:41 txliu 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 ) as
281 ddindx binary_integer; indx binary_integer;
282 begin
283 if a0 is not null and a0.count > 0 then
284 if a0.count > 0 then
285 indx := a0.first;
286 ddindx := 1;
287 while true loop
288 t(ddindx).account_name := a0(indx);
289 t(ddindx).email_user := a1(indx);
290 t(ddindx).email_address := a2(indx);
291 t(ddindx).reply_to_address := a3(indx);
292 t(ddindx).from_name := a4(indx);
293 t(ddindx).email_account_id := a5(indx);
294 t(ddindx).smtp_server := a6(indx);
295 t(ddindx).port := a7(indx);
296 t(ddindx).template_category_id := a8(indx);
297 ddindx := ddindx+1;
298 if a0.last =indx
299 then exit;
300 end if;
301 indx := a0.next(indx);
302 end loop;
303 end if;
304 end if;
305 end rosetta_table_copy_in_p8;
306 procedure rosetta_table_copy_out_p8(t iem_emailaccount_pub.acntdetails_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
307 , a1 out nocopy JTF_VARCHAR2_TABLE_100
308 , a2 out nocopy JTF_VARCHAR2_TABLE_200
309 , a3 out nocopy JTF_VARCHAR2_TABLE_300
310 , a4 out nocopy JTF_VARCHAR2_TABLE_100
311 , a5 out nocopy JTF_NUMBER_TABLE
312 , a6 out nocopy JTF_VARCHAR2_TABLE_300
313 , a7 out nocopy JTF_NUMBER_TABLE
314 , a8 out nocopy JTF_NUMBER_TABLE
315 ) as
316 ddindx binary_integer; indx binary_integer;
317 begin
318 if t is null or t.count = 0 then
319 a0 := JTF_VARCHAR2_TABLE_300();
320 a1 := JTF_VARCHAR2_TABLE_100();
321 a2 := JTF_VARCHAR2_TABLE_200();
322 a3 := JTF_VARCHAR2_TABLE_300();
323 a4 := JTF_VARCHAR2_TABLE_100();
324 a5 := JTF_NUMBER_TABLE();
325 a6 := JTF_VARCHAR2_TABLE_300();
326 a7 := JTF_NUMBER_TABLE();
327 a8 := JTF_NUMBER_TABLE();
328 else
329 a0 := JTF_VARCHAR2_TABLE_300();
330 a1 := JTF_VARCHAR2_TABLE_100();
331 a2 := JTF_VARCHAR2_TABLE_200();
332 a3 := JTF_VARCHAR2_TABLE_300();
333 a4 := JTF_VARCHAR2_TABLE_100();
334 a5 := JTF_NUMBER_TABLE();
335 a6 := JTF_VARCHAR2_TABLE_300();
336 a7 := JTF_NUMBER_TABLE();
337 a8 := JTF_NUMBER_TABLE();
338 if t.count > 0 then
339 a0.extend(t.count);
340 a1.extend(t.count);
341 a2.extend(t.count);
342 a3.extend(t.count);
343 a4.extend(t.count);
344 a5.extend(t.count);
345 a6.extend(t.count);
346 a7.extend(t.count);
347 a8.extend(t.count);
348 ddindx := t.first;
349 indx := 1;
350 while true loop
351 a0(indx) := t(ddindx).account_name;
352 a1(indx) := t(ddindx).email_user;
353 a2(indx) := t(ddindx).email_address;
354 a3(indx) := t(ddindx).reply_to_address;
355 a4(indx) := t(ddindx).from_name;
356 a5(indx) := t(ddindx).email_account_id;
357 a6(indx) := t(ddindx).smtp_server;
358 a7(indx) := t(ddindx).port;
359 a8(indx) := t(ddindx).template_category_id;
360 indx := indx+1;
361 if t.last =ddindx
362 then exit;
363 end if;
364 ddindx := t.next(ddindx);
365 end loop;
366 end if;
367 end if;
368 end rosetta_table_copy_out_p8;
369
370 procedure rosetta_table_copy_in_p10(t out nocopy iem_emailaccount_pub.agntacntdetails_tbl_type, a0 JTF_NUMBER_TABLE
371 , a1 JTF_VARCHAR2_TABLE_300
372 , a2 JTF_VARCHAR2_TABLE_300
373 , a3 JTF_VARCHAR2_TABLE_100
374 , a4 JTF_VARCHAR2_TABLE_300
375 ) as
376 ddindx binary_integer; indx binary_integer;
377 begin
378 if a0 is not null and a0.count > 0 then
379 if a0.count > 0 then
380 indx := a0.first;
381 ddindx := 1;
382 while true loop
383 t(ddindx).resource_id := a0(indx);
384 t(ddindx).resource_name := a1(indx);
385 t(ddindx).user_name := a2(indx);
386 t(ddindx).role := a3(indx);
387 t(ddindx).last_login_time := a4(indx);
388 ddindx := ddindx+1;
389 if a0.last =indx
393 end loop;
390 then exit;
391 end if;
392 indx := a0.next(indx);
394 end if;
395 end if;
396 end rosetta_table_copy_in_p10;
397 procedure rosetta_table_copy_out_p10(t iem_emailaccount_pub.agntacntdetails_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
398 , a1 out nocopy JTF_VARCHAR2_TABLE_300
399 , a2 out nocopy JTF_VARCHAR2_TABLE_300
400 , a3 out nocopy JTF_VARCHAR2_TABLE_100
401 , a4 out nocopy JTF_VARCHAR2_TABLE_300
402 ) as
403 ddindx binary_integer; indx binary_integer;
404 begin
405 if t is null or t.count = 0 then
406 a0 := JTF_NUMBER_TABLE();
407 a1 := JTF_VARCHAR2_TABLE_300();
408 a2 := JTF_VARCHAR2_TABLE_300();
409 a3 := JTF_VARCHAR2_TABLE_100();
410 a4 := JTF_VARCHAR2_TABLE_300();
411 else
412 a0 := JTF_NUMBER_TABLE();
413 a1 := JTF_VARCHAR2_TABLE_300();
414 a2 := JTF_VARCHAR2_TABLE_300();
415 a3 := JTF_VARCHAR2_TABLE_100();
416 a4 := JTF_VARCHAR2_TABLE_300();
417 if t.count > 0 then
418 a0.extend(t.count);
419 a1.extend(t.count);
420 a2.extend(t.count);
421 a3.extend(t.count);
422 a4.extend(t.count);
423 ddindx := t.first;
424 indx := 1;
425 while true loop
426 a0(indx) := t(ddindx).resource_id;
427 a1(indx) := t(ddindx).resource_name;
428 a2(indx) := t(ddindx).user_name;
429 a3(indx) := t(ddindx).role;
430 a4(indx) := t(ddindx).last_login_time;
431 indx := indx+1;
432 if t.last =ddindx
433 then exit;
434 end if;
435 ddindx := t.next(ddindx);
436 end loop;
437 end if;
438 end if;
439 end rosetta_table_copy_out_p10;
440
441 procedure rosetta_table_copy_in_p12(t out nocopy iem_emailaccount_pub.agentacnt_tbl_type, a0 JTF_NUMBER_TABLE
442 , a1 JTF_NUMBER_TABLE
443 , a2 JTF_VARCHAR2_TABLE_300
444 , a3 JTF_VARCHAR2_TABLE_300
445 , a4 JTF_VARCHAR2_TABLE_300
446 , a5 JTF_VARCHAR2_TABLE_300
447 , a6 JTF_VARCHAR2_TABLE_300
448 , a7 JTF_VARCHAR2_TABLE_300
449 ) as
450 ddindx binary_integer; indx binary_integer;
451 begin
452 if a0 is not null and a0.count > 0 then
453 if a0.count > 0 then
454 indx := a0.first;
455 ddindx := 1;
456 while true loop
457 t(ddindx).agent_account_id := a0(indx);
458 t(ddindx).email_account_id := a1(indx);
459 t(ddindx).account_name := a2(indx);
460 t(ddindx).reply_to_address := a3(indx);
461 t(ddindx).from_address := a4(indx);
462 t(ddindx).from_name := a5(indx);
463 t(ddindx).user_name := a6(indx);
464 t(ddindx).signature := a7(indx);
465 ddindx := ddindx+1;
466 if a0.last =indx
467 then exit;
468 end if;
469 indx := a0.next(indx);
470 end loop;
471 end if;
472 end if;
473 end rosetta_table_copy_in_p12;
474 procedure rosetta_table_copy_out_p12(t iem_emailaccount_pub.agentacnt_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
475 , a1 out nocopy JTF_NUMBER_TABLE
476 , a2 out nocopy JTF_VARCHAR2_TABLE_300
477 , a3 out nocopy JTF_VARCHAR2_TABLE_300
478 , a4 out nocopy JTF_VARCHAR2_TABLE_300
479 , a5 out nocopy JTF_VARCHAR2_TABLE_300
480 , a6 out nocopy JTF_VARCHAR2_TABLE_300
481 , a7 out nocopy JTF_VARCHAR2_TABLE_300
482 ) as
483 ddindx binary_integer; indx binary_integer;
484 begin
485 if t is null or t.count = 0 then
486 a0 := JTF_NUMBER_TABLE();
487 a1 := JTF_NUMBER_TABLE();
488 a2 := JTF_VARCHAR2_TABLE_300();
489 a3 := JTF_VARCHAR2_TABLE_300();
490 a4 := JTF_VARCHAR2_TABLE_300();
491 a5 := JTF_VARCHAR2_TABLE_300();
492 a6 := JTF_VARCHAR2_TABLE_300();
493 a7 := JTF_VARCHAR2_TABLE_300();
494 else
495 a0 := JTF_NUMBER_TABLE();
496 a1 := JTF_NUMBER_TABLE();
497 a2 := JTF_VARCHAR2_TABLE_300();
498 a3 := JTF_VARCHAR2_TABLE_300();
499 a4 := JTF_VARCHAR2_TABLE_300();
500 a5 := JTF_VARCHAR2_TABLE_300();
501 a6 := JTF_VARCHAR2_TABLE_300();
502 a7 := JTF_VARCHAR2_TABLE_300();
503 if t.count > 0 then
504 a0.extend(t.count);
505 a1.extend(t.count);
506 a2.extend(t.count);
507 a3.extend(t.count);
508 a4.extend(t.count);
509 a5.extend(t.count);
510 a6.extend(t.count);
511 a7.extend(t.count);
512 ddindx := t.first;
513 indx := 1;
514 while true loop
515 a0(indx) := t(ddindx).agent_account_id;
516 a1(indx) := t(ddindx).email_account_id;
517 a2(indx) := t(ddindx).account_name;
518 a3(indx) := t(ddindx).reply_to_address;
519 a4(indx) := t(ddindx).from_address;
520 a5(indx) := t(ddindx).from_name;
521 a6(indx) := t(ddindx).user_name;
522 a7(indx) := t(ddindx).signature;
523 indx := indx+1;
524 if t.last =ddindx
525 then exit;
526 end if;
527 ddindx := t.next(ddindx);
528 end loop;
529 end if;
530 end if;
531 end rosetta_table_copy_out_p12;
532
533 procedure get_emailaccount_list(p_api_version_number NUMBER
537 , x_return_status out nocopy VARCHAR2
534 , p_init_msg_list VARCHAR2
535 , p_commit VARCHAR2
536 , p_resource_id NUMBER
538 , x_msg_count out nocopy NUMBER
539 , x_msg_data out nocopy VARCHAR2
540 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_300
541 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_300
542 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
543 , p7_a3 out nocopy JTF_NUMBER_TABLE
544 )
545
546 as
547 ddx_email_acnt_tbl iem_emailaccount_pub.emacnt_tbl_type;
548 ddindx binary_integer; indx binary_integer;
549 begin
550
551 -- copy data to the local IN or IN-OUT args, if any
552
553
554
555
556
557
558
559
560 -- here's the delegated call to the old PL/SQL routine
561 iem_emailaccount_pub.get_emailaccount_list(p_api_version_number,
562 p_init_msg_list,
563 p_commit,
564 p_resource_id,
565 x_return_status,
566 x_msg_count,
567 x_msg_data,
568 ddx_email_acnt_tbl);
569
570 -- copy data back from the local variables to OUT or IN-OUT args, if any
571
572
573
574
575
576
577
578 iem_emailaccount_pub_w.rosetta_table_copy_out_p1(ddx_email_acnt_tbl, p7_a0
579 , p7_a1
580 , p7_a2
581 , p7_a3
582 );
583 end;
584
585 procedure getemailheaders(p_agentname VARCHAR2
586 , p_top_n INTEGER
587 , p_top_option INTEGER
588 , p_folder_path VARCHAR2
589 , p4_a0 out nocopy JTF_NUMBER_TABLE
590 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_300
591 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_200
592 , p4_a3 out nocopy JTF_DATE_TABLE
593 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
594 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_300
595 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
596 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_300
597 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_300
598 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_300
599 , p4_a10 out nocopy JTF_NUMBER_TABLE
600 , p4_a11 out nocopy JTF_VARCHAR2_TABLE_300
601 )
602
603 as
604 ddmessage_headers iem_emailaccount_pub.msg_header_table;
605 ddindx binary_integer; indx binary_integer;
606 begin
607
608 -- copy data to the local IN or IN-OUT args, if any
609
610
611
612
613
614 -- here's the delegated call to the old PL/SQL routine
615 iem_emailaccount_pub.getemailheaders(p_agentname,
616 p_top_n,
617 p_top_option,
618 p_folder_path,
619 ddmessage_headers);
620
621 -- copy data back from the local variables to OUT or IN-OUT args, if any
622
623
624
625
626 iem_emailaccount_pub_w.rosetta_table_copy_out_p4(ddmessage_headers, p4_a0
627 , p4_a1
628 , p4_a2
629 , p4_a3
630 , p4_a4
631 , p4_a5
632 , p4_a6
633 , p4_a7
634 , p4_a8
635 , p4_a9
636 , p4_a10
637 , p4_a11
638 );
639 end;
640
641 procedure listagentaccounts(p_api_version_number NUMBER
642 , p_init_msg_list VARCHAR2
643 , p_commit VARCHAR2
644 , p_resource_id NUMBER
645 , x_return_status out nocopy VARCHAR2
646 , x_msg_count out nocopy NUMBER
647 , x_msg_data out nocopy VARCHAR2
648 , p7_a0 out nocopy JTF_NUMBER_TABLE
649 , p7_a1 out nocopy JTF_NUMBER_TABLE
650 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
651 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
652 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_300
653 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_300
654 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
655 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_300
656 )
657
658 as
659 ddx_agent_acnt_tbl iem_emailaccount_pub.agentacnt_tbl_type;
660 ddindx binary_integer; indx binary_integer;
661 begin
662
663 -- copy data to the local IN or IN-OUT args, if any
664
665
666
667
668
669
670
671
672 -- here's the delegated call to the old PL/SQL routine
673 iem_emailaccount_pub.listagentaccounts(p_api_version_number,
674 p_init_msg_list,
675 p_commit,
676 p_resource_id,
677 x_return_status,
678 x_msg_count,
679 x_msg_data,
680 ddx_agent_acnt_tbl);
681
682 -- copy data back from the local variables to OUT or IN-OUT args, if any
683
684
685
686
687
688
689
690 iem_emailaccount_pub_w.rosetta_table_copy_out_p12(ddx_agent_acnt_tbl, p7_a0
691 , p7_a1
692 , p7_a2
693 , p7_a3
694 , p7_a4
695 , p7_a5
696 , p7_a6
697 , p7_a7
698 );
699 end;
700
701 procedure listagentaccountdetails(p_api_version_number NUMBER
702 , p_init_msg_list VARCHAR2
703 , p_commit VARCHAR2
704 , p_email_account_id NUMBER
705 , p_roleid NUMBER
706 , p_resource_id NUMBER
707 , p_search_criteria VARCHAR2
708 , p_display_size NUMBER
709 , p_page_count NUMBER
710 , p_sort_by VARCHAR2
711 , p_sort_order NUMBER
712 , x_return_status out nocopy VARCHAR2
713 , x_msg_count out nocopy NUMBER
717 , p15_a1 out nocopy JTF_VARCHAR2_TABLE_300
714 , x_search_count out nocopy NUMBER
715 , x_msg_data out nocopy VARCHAR2
716 , p15_a0 out nocopy JTF_NUMBER_TABLE
718 , p15_a2 out nocopy JTF_VARCHAR2_TABLE_300
719 , p15_a3 out nocopy JTF_VARCHAR2_TABLE_100
720 , p15_a4 out nocopy JTF_VARCHAR2_TABLE_300
721 )
722
723 as
724 ddx_agent_acnt_dtl_data iem_emailaccount_pub.agntacntdetails_tbl_type;
725 ddindx binary_integer; indx binary_integer;
726 begin
727
728 -- copy data to the local IN or IN-OUT args, if any
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745 -- here's the delegated call to the old PL/SQL routine
746 iem_emailaccount_pub.listagentaccountdetails(p_api_version_number,
747 p_init_msg_list,
748 p_commit,
749 p_email_account_id,
750 p_roleid,
751 p_resource_id,
752 p_search_criteria,
753 p_display_size,
754 p_page_count,
755 p_sort_by,
756 p_sort_order,
757 x_return_status,
758 x_msg_count,
759 x_search_count,
760 x_msg_data,
761 ddx_agent_acnt_dtl_data);
762
763 -- copy data back from the local variables to OUT or IN-OUT args, if any
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779 iem_emailaccount_pub_w.rosetta_table_copy_out_p10(ddx_agent_acnt_dtl_data, p15_a0
780 , p15_a1
781 , p15_a2
782 , p15_a3
783 , p15_a4
784 );
785 end;
786
787 procedure listaccountdetails(p_api_version_number NUMBER
788 , p_init_msg_list VARCHAR2
789 , p_commit VARCHAR2
790 , p_email_account_id NUMBER
791 , x_return_status out nocopy VARCHAR2
792 , x_msg_count out nocopy NUMBER
793 , x_msg_data out nocopy VARCHAR2
794 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_300
795 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
796 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
797 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
798 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
799 , p7_a5 out nocopy JTF_NUMBER_TABLE
800 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
801 , p7_a7 out nocopy JTF_NUMBER_TABLE
802 , p7_a8 out nocopy JTF_NUMBER_TABLE
803 )
804
805 as
806 ddx_acnt_details_tbl iem_emailaccount_pub.acntdetails_tbl_type;
807 ddindx binary_integer; indx binary_integer;
808 begin
809
810 -- copy data to the local IN or IN-OUT args, if any
811
812
813
814
815
816
817
818
819 -- here's the delegated call to the old PL/SQL routine
820 iem_emailaccount_pub.listaccountdetails(p_api_version_number,
821 p_init_msg_list,
822 p_commit,
823 p_email_account_id,
824 x_return_status,
825 x_msg_count,
826 x_msg_data,
827 ddx_acnt_details_tbl);
828
829 -- copy data back from the local variables to OUT or IN-OUT args, if any
830
831
832
833
834
835
836
837 iem_emailaccount_pub_w.rosetta_table_copy_out_p8(ddx_acnt_details_tbl, p7_a0
838 , p7_a1
839 , p7_a2
840 , p7_a3
841 , p7_a4
842 , p7_a5
843 , p7_a6
844 , p7_a7
845 , p7_a8
846 );
847 end;
848
849 end iem_emailaccount_pub_w;