[Home] [Help]
PACKAGE BODY: APPS.IEM_MAILITEM_PUB_W
Source
1 package body iem_mailitem_pub_w as
2 /* $Header: IEMPMICB.pls 120.2 2006/05/16 08:51 txliu 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 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_mailitem_pub.email_count_tbl, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_VARCHAR2_TABLE_100
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 ) as
26 ddindx binary_integer; indx binary_integer;
27 begin
28 if a0 is not null and a0.count > 0 then
29 if a0.count > 0 then
30 indx := a0.first;
31 ddindx := 1;
32 while true loop
33 t(ddindx).email_account_id := a0(indx);
34 t(ddindx).rt_classification_id := a1(indx);
35 t(ddindx).rt_classification_name := a2(indx);
36 t(ddindx).email_account_name := a3(indx);
37 t(ddindx).email_que_count := a4(indx);
38 t(ddindx).email_acq_count := a5(indx);
39 t(ddindx).email_max_qwait := a6(indx);
40 t(ddindx).email_max_await := a7(indx);
41 t(ddindx).email_status := a8(indx);
42 ddindx := ddindx+1;
43 if a0.last =indx
44 then exit;
45 end if;
46 indx := a0.next(indx);
47 end loop;
48 end if;
49 end if;
50 end rosetta_table_copy_in_p1;
51 procedure rosetta_table_copy_out_p1(t iem_mailitem_pub.email_count_tbl, a0 out nocopy JTF_NUMBER_TABLE
52 , a1 out nocopy JTF_NUMBER_TABLE
53 , a2 out nocopy JTF_VARCHAR2_TABLE_100
54 , a3 out nocopy JTF_VARCHAR2_TABLE_100
55 , a4 out nocopy JTF_NUMBER_TABLE
56 , a5 out nocopy JTF_NUMBER_TABLE
57 , a6 out nocopy JTF_NUMBER_TABLE
58 , a7 out nocopy JTF_NUMBER_TABLE
59 , a8 out nocopy JTF_NUMBER_TABLE
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if t is null or t.count = 0 then
64 a0 := JTF_NUMBER_TABLE();
65 a1 := JTF_NUMBER_TABLE();
66 a2 := JTF_VARCHAR2_TABLE_100();
67 a3 := JTF_VARCHAR2_TABLE_100();
68 a4 := JTF_NUMBER_TABLE();
69 a5 := JTF_NUMBER_TABLE();
70 a6 := JTF_NUMBER_TABLE();
71 a7 := JTF_NUMBER_TABLE();
72 a8 := JTF_NUMBER_TABLE();
73 else
74 a0 := JTF_NUMBER_TABLE();
75 a1 := JTF_NUMBER_TABLE();
76 a2 := JTF_VARCHAR2_TABLE_100();
77 a3 := JTF_VARCHAR2_TABLE_100();
78 a4 := JTF_NUMBER_TABLE();
79 a5 := JTF_NUMBER_TABLE();
80 a6 := JTF_NUMBER_TABLE();
81 a7 := JTF_NUMBER_TABLE();
82 a8 := JTF_NUMBER_TABLE();
83 if t.count > 0 then
84 a0.extend(t.count);
85 a1.extend(t.count);
86 a2.extend(t.count);
87 a3.extend(t.count);
88 a4.extend(t.count);
89 a5.extend(t.count);
90 a6.extend(t.count);
91 a7.extend(t.count);
92 a8.extend(t.count);
93 ddindx := t.first;
94 indx := 1;
95 while true loop
96 a0(indx) := t(ddindx).email_account_id;
97 a1(indx) := t(ddindx).rt_classification_id;
98 a2(indx) := t(ddindx).rt_classification_name;
99 a3(indx) := t(ddindx).email_account_name;
100 a4(indx) := t(ddindx).email_que_count;
101 a5(indx) := t(ddindx).email_acq_count;
102 a6(indx) := t(ddindx).email_max_qwait;
103 a7(indx) := t(ddindx).email_max_await;
104 a8(indx) := t(ddindx).email_status;
105 indx := indx+1;
106 if t.last =ddindx
107 then exit;
108 end if;
109 ddindx := t.next(ddindx);
110 end loop;
111 end if;
112 end if;
113 end rosetta_table_copy_out_p1;
114
115 procedure rosetta_table_copy_in_p3(t out nocopy iem_mailitem_pub.class_count_tbl, a0 JTF_NUMBER_TABLE
116 , a1 JTF_VARCHAR2_TABLE_100
117 , a2 JTF_NUMBER_TABLE
118 ) as
119 ddindx binary_integer; indx binary_integer;
120 begin
121 if a0 is not null and a0.count > 0 then
122 if a0.count > 0 then
123 indx := a0.first;
124 ddindx := 1;
125 while true loop
126 t(ddindx).rt_classification_id := a0(indx);
127 t(ddindx).rt_classification_name := a1(indx);
128 t(ddindx).email_count := a2(indx);
129 ddindx := ddindx+1;
130 if a0.last =indx
131 then exit;
132 end if;
133 indx := a0.next(indx);
134 end loop;
135 end if;
136 end if;
137 end rosetta_table_copy_in_p3;
138 procedure rosetta_table_copy_out_p3(t iem_mailitem_pub.class_count_tbl, a0 out nocopy JTF_NUMBER_TABLE
139 , a1 out nocopy JTF_VARCHAR2_TABLE_100
140 , a2 out nocopy JTF_NUMBER_TABLE
141 ) as
142 ddindx binary_integer; indx binary_integer;
143 begin
144 if t is null or t.count = 0 then
145 a0 := JTF_NUMBER_TABLE();
146 a1 := JTF_VARCHAR2_TABLE_100();
147 a2 := JTF_NUMBER_TABLE();
148 else
149 a0 := JTF_NUMBER_TABLE();
150 a1 := JTF_VARCHAR2_TABLE_100();
151 a2 := JTF_NUMBER_TABLE();
152 if t.count > 0 then
153 a0.extend(t.count);
154 a1.extend(t.count);
155 a2.extend(t.count);
156 ddindx := t.first;
157 indx := 1;
158 while true loop
159 a0(indx) := t(ddindx).rt_classification_id;
160 a1(indx) := t(ddindx).rt_classification_name;
161 a2(indx) := t(ddindx).email_count;
162 indx := indx+1;
163 if t.last =ddindx
164 then exit;
165 end if;
166 ddindx := t.next(ddindx);
167 end loop;
168 end if;
169 end if;
170 end rosetta_table_copy_out_p3;
171
172 procedure rosetta_table_copy_in_p4(t out nocopy iem_mailitem_pub.t_number_table, a0 JTF_NUMBER_TABLE) as
173 ddindx binary_integer; indx binary_integer;
174 begin
175 if a0 is null then
176 t := null;
177 elsif a0.count = 0 then
178 t := iem_mailitem_pub.t_number_table();
179 else
180 if a0.count > 0 then
181 t := iem_mailitem_pub.t_number_table();
182 t.extend(a0.count);
183 indx := a0.first;
184 ddindx := 1;
185 while true loop
186 t(ddindx) := a0(indx);
187 ddindx := ddindx+1;
188 if a0.last =indx
189 then exit;
190 end if;
191 indx := a0.next(indx);
192 end loop;
193 end if;
194 end if;
195 end rosetta_table_copy_in_p4;
196 procedure rosetta_table_copy_out_p4(t iem_mailitem_pub.t_number_table, a0 out nocopy JTF_NUMBER_TABLE) as
197 ddindx binary_integer; indx binary_integer;
198 begin
199 if t is null then
200 a0 := null;
201 elsif t.count = 0 then
202 a0 := JTF_NUMBER_TABLE();
203 else
204 a0 := JTF_NUMBER_TABLE();
205 if t.count > 0 then
206 a0.extend(t.count);
207 ddindx := t.first;
208 indx := 1;
209 while true loop
210 a0(indx) := t(ddindx);
211 indx := indx+1;
212 if t.last =ddindx
213 then exit;
214 end if;
215 ddindx := t.next(ddindx);
216 end loop;
217 end if;
218 end if;
219 end rosetta_table_copy_out_p4;
220
221 procedure rosetta_table_copy_in_p6(t out nocopy iem_mailitem_pub.acq_email_info_tbl, a0 JTF_NUMBER_TABLE
222 , a1 JTF_NUMBER_TABLE
223 , a2 JTF_VARCHAR2_TABLE_100
224 , a3 JTF_NUMBER_TABLE
225 , a4 JTF_NUMBER_TABLE
226 , a5 JTF_NUMBER_TABLE
227 , a6 JTF_VARCHAR2_TABLE_100
228 , a7 JTF_VARCHAR2_TABLE_200
229 , a8 JTF_VARCHAR2_TABLE_300
230 , a9 JTF_VARCHAR2_TABLE_100
231 , a10 JTF_VARCHAR2_TABLE_100
232 , a11 JTF_VARCHAR2_TABLE_100
233 , a12 JTF_VARCHAR2_TABLE_100
234 , a13 JTF_NUMBER_TABLE
235 , a14 JTF_VARCHAR2_TABLE_100
236 , a15 JTF_VARCHAR2_TABLE_300
237 ) as
238 ddindx binary_integer; indx binary_integer;
239 begin
240 if a0 is not null and a0.count > 0 then
241 if a0.count > 0 then
242 indx := a0.first;
243 ddindx := 1;
244 while true loop
245 t(ddindx).message_id := a0(indx);
246 t(ddindx).rt_classification_id := a1(indx);
247 t(ddindx).rt_classification_name := a2(indx);
248 t(ddindx).rt_media_item_id := a3(indx);
249 t(ddindx).rt_interaction_id := a4(indx);
250 t(ddindx).email_account_id := a5(indx);
251 t(ddindx).message_flag := a6(indx);
252 t(ddindx).sender_name := a7(indx);
253 t(ddindx).subject := a8(indx);
254 t(ddindx).priority := a9(indx);
255 t(ddindx).msg_status := a10(indx);
256 t(ddindx).sent_date := a11(indx);
257 t(ddindx).mail_item_status := a12(indx);
258 t(ddindx).from_agent_id := a13(indx);
259 t(ddindx).read_status := a14(indx);
260 t(ddindx).description := a15(indx);
261 ddindx := ddindx+1;
262 if a0.last =indx
263 then exit;
264 end if;
265 indx := a0.next(indx);
266 end loop;
267 end if;
268 end if;
269 end rosetta_table_copy_in_p6;
270 procedure rosetta_table_copy_out_p6(t iem_mailitem_pub.acq_email_info_tbl, a0 out nocopy JTF_NUMBER_TABLE
271 , a1 out nocopy JTF_NUMBER_TABLE
272 , a2 out nocopy JTF_VARCHAR2_TABLE_100
273 , a3 out nocopy JTF_NUMBER_TABLE
274 , a4 out nocopy JTF_NUMBER_TABLE
275 , a5 out nocopy JTF_NUMBER_TABLE
276 , a6 out nocopy JTF_VARCHAR2_TABLE_100
277 , a7 out nocopy JTF_VARCHAR2_TABLE_200
278 , a8 out nocopy JTF_VARCHAR2_TABLE_300
279 , a9 out nocopy JTF_VARCHAR2_TABLE_100
280 , a10 out nocopy JTF_VARCHAR2_TABLE_100
281 , a11 out nocopy JTF_VARCHAR2_TABLE_100
282 , a12 out nocopy JTF_VARCHAR2_TABLE_100
283 , a13 out nocopy JTF_NUMBER_TABLE
284 , a14 out nocopy JTF_VARCHAR2_TABLE_100
285 , a15 out nocopy JTF_VARCHAR2_TABLE_300
286 ) as
287 ddindx binary_integer; indx binary_integer;
288 begin
289 if t is null or t.count = 0 then
290 a0 := JTF_NUMBER_TABLE();
291 a1 := JTF_NUMBER_TABLE();
292 a2 := JTF_VARCHAR2_TABLE_100();
293 a3 := JTF_NUMBER_TABLE();
294 a4 := JTF_NUMBER_TABLE();
295 a5 := JTF_NUMBER_TABLE();
296 a6 := JTF_VARCHAR2_TABLE_100();
297 a7 := JTF_VARCHAR2_TABLE_200();
298 a8 := JTF_VARCHAR2_TABLE_300();
299 a9 := JTF_VARCHAR2_TABLE_100();
300 a10 := JTF_VARCHAR2_TABLE_100();
301 a11 := JTF_VARCHAR2_TABLE_100();
302 a12 := JTF_VARCHAR2_TABLE_100();
303 a13 := JTF_NUMBER_TABLE();
304 a14 := JTF_VARCHAR2_TABLE_100();
305 a15 := JTF_VARCHAR2_TABLE_300();
306 else
307 a0 := JTF_NUMBER_TABLE();
308 a1 := JTF_NUMBER_TABLE();
309 a2 := JTF_VARCHAR2_TABLE_100();
310 a3 := JTF_NUMBER_TABLE();
311 a4 := JTF_NUMBER_TABLE();
312 a5 := JTF_NUMBER_TABLE();
313 a6 := JTF_VARCHAR2_TABLE_100();
314 a7 := JTF_VARCHAR2_TABLE_200();
315 a8 := JTF_VARCHAR2_TABLE_300();
316 a9 := JTF_VARCHAR2_TABLE_100();
317 a10 := JTF_VARCHAR2_TABLE_100();
318 a11 := JTF_VARCHAR2_TABLE_100();
319 a12 := JTF_VARCHAR2_TABLE_100();
320 a13 := JTF_NUMBER_TABLE();
321 a14 := JTF_VARCHAR2_TABLE_100();
322 a15 := JTF_VARCHAR2_TABLE_300();
323 if t.count > 0 then
324 a0.extend(t.count);
325 a1.extend(t.count);
326 a2.extend(t.count);
327 a3.extend(t.count);
328 a4.extend(t.count);
329 a5.extend(t.count);
330 a6.extend(t.count);
331 a7.extend(t.count);
332 a8.extend(t.count);
333 a9.extend(t.count);
334 a10.extend(t.count);
335 a11.extend(t.count);
336 a12.extend(t.count);
337 a13.extend(t.count);
338 a14.extend(t.count);
339 a15.extend(t.count);
340 ddindx := t.first;
341 indx := 1;
342 while true loop
343 a0(indx) := t(ddindx).message_id;
344 a1(indx) := t(ddindx).rt_classification_id;
345 a2(indx) := t(ddindx).rt_classification_name;
346 a3(indx) := t(ddindx).rt_media_item_id;
347 a4(indx) := t(ddindx).rt_interaction_id;
348 a5(indx) := t(ddindx).email_account_id;
349 a6(indx) := t(ddindx).message_flag;
350 a7(indx) := t(ddindx).sender_name;
351 a8(indx) := t(ddindx).subject;
352 a9(indx) := t(ddindx).priority;
353 a10(indx) := t(ddindx).msg_status;
354 a11(indx) := t(ddindx).sent_date;
355 a12(indx) := t(ddindx).mail_item_status;
356 a13(indx) := t(ddindx).from_agent_id;
357 a14(indx) := t(ddindx).read_status;
358 a15(indx) := t(ddindx).description;
359 indx := indx+1;
360 if t.last =ddindx
361 then exit;
362 end if;
363 ddindx := t.next(ddindx);
364 end loop;
365 end if;
366 end if;
367 end rosetta_table_copy_out_p6;
368
369 procedure rosetta_table_copy_in_p8(t out nocopy iem_mailitem_pub.keyvals_tbl_type, a0 JTF_VARCHAR2_TABLE_100
370 , a1 JTF_VARCHAR2_TABLE_300
371 , a2 JTF_VARCHAR2_TABLE_100
372 ) as
373 ddindx binary_integer; indx binary_integer;
374 begin
375 if a0 is not null and a0.count > 0 then
376 if a0.count > 0 then
377 indx := a0.first;
378 ddindx := 1;
379 while true loop
380 t(ddindx).key := a0(indx);
381 t(ddindx).value := a1(indx);
382 t(ddindx).datatype := a2(indx);
383 ddindx := ddindx+1;
384 if a0.last =indx
385 then exit;
386 end if;
387 indx := a0.next(indx);
388 end loop;
389 end if;
390 end if;
391 end rosetta_table_copy_in_p8;
392 procedure rosetta_table_copy_out_p8(t iem_mailitem_pub.keyvals_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
393 , a1 out nocopy JTF_VARCHAR2_TABLE_300
394 , a2 out nocopy JTF_VARCHAR2_TABLE_100
395 ) as
396 ddindx binary_integer; indx binary_integer;
397 begin
398 if t is null or t.count = 0 then
399 a0 := JTF_VARCHAR2_TABLE_100();
400 a1 := JTF_VARCHAR2_TABLE_300();
401 a2 := JTF_VARCHAR2_TABLE_100();
402 else
403 a0 := JTF_VARCHAR2_TABLE_100();
404 a1 := JTF_VARCHAR2_TABLE_300();
405 a2 := JTF_VARCHAR2_TABLE_100();
406 if t.count > 0 then
407 a0.extend(t.count);
408 a1.extend(t.count);
409 a2.extend(t.count);
410 ddindx := t.first;
411 indx := 1;
415 a2(indx) := t(ddindx).datatype;
412 while true loop
413 a0(indx) := t(ddindx).key;
414 a1(indx) := t(ddindx).value;
416 indx := indx+1;
417 if t.last =ddindx
418 then exit;
419 end if;
420 ddindx := t.next(ddindx);
421 end loop;
422 end if;
423 end if;
424 end rosetta_table_copy_out_p8;
425
426 procedure getmailitemcount(p_api_version_number NUMBER
427 , p_init_msg_list VARCHAR2
428 , p_commit VARCHAR2
429 , p_resource_id NUMBER
430 , p_tbl JTF_NUMBER_TABLE
431 , p5_a0 out nocopy JTF_NUMBER_TABLE
432 , p5_a1 out nocopy JTF_NUMBER_TABLE
433 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
434 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
435 , p5_a4 out nocopy JTF_NUMBER_TABLE
436 , p5_a5 out nocopy JTF_NUMBER_TABLE
437 , p5_a6 out nocopy JTF_NUMBER_TABLE
438 , p5_a7 out nocopy JTF_NUMBER_TABLE
439 , p5_a8 out nocopy JTF_NUMBER_TABLE
440 , x_return_status out nocopy VARCHAR2
441 , x_msg_count out nocopy NUMBER
442 , x_msg_data out nocopy VARCHAR2
443 )
444
445 as
446 ddp_tbl iem_mailitem_pub.t_number_table;
447 ddx_email_count iem_mailitem_pub.email_count_tbl;
448 ddindx binary_integer; indx binary_integer;
449 begin
450
451 -- copy data to the local IN or IN-OUT args, if any
452
453
454
455
456 iem_mailitem_pub_w.rosetta_table_copy_in_p4(ddp_tbl, p_tbl);
457
458
459
460
461
462 -- here's the delegated call to the old PL/SQL routine
463 iem_mailitem_pub.getmailitemcount(p_api_version_number,
464 p_init_msg_list,
465 p_commit,
466 p_resource_id,
467 ddp_tbl,
468 ddx_email_count,
469 x_return_status,
470 x_msg_count,
471 x_msg_data);
472
473 -- copy data back from the local variables to OUT or IN-OUT args, if any
474
475
476
477
478
479 iem_mailitem_pub_w.rosetta_table_copy_out_p1(ddx_email_count, p5_a0
480 , p5_a1
481 , p5_a2
482 , p5_a3
483 , p5_a4
484 , p5_a5
485 , p5_a6
486 , p5_a7
487 , p5_a8
488 );
489
490
491
492 end;
493
494 procedure getmailitemcount(p_api_version_number NUMBER
495 , p_init_msg_list VARCHAR2
496 , p_commit VARCHAR2
497 , p_resource_id NUMBER
498 , p_tbl JTF_NUMBER_TABLE
499 , p_email_account_id NUMBER
500 , p6_a0 out nocopy JTF_NUMBER_TABLE
501 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
502 , p6_a2 out nocopy JTF_NUMBER_TABLE
503 , x_return_status out nocopy VARCHAR2
504 , x_msg_count out nocopy NUMBER
505 , x_msg_data out nocopy VARCHAR2
506 )
507
508 as
509 ddp_tbl iem_mailitem_pub.t_number_table;
510 ddx_class_bin iem_mailitem_pub.class_count_tbl;
511 ddindx binary_integer; indx binary_integer;
512 begin
513
514 -- copy data to the local IN or IN-OUT args, if any
515
516
517
518
519 iem_mailitem_pub_w.rosetta_table_copy_in_p4(ddp_tbl, p_tbl);
520
521
522
523
524
525
526 -- here's the delegated call to the old PL/SQL routine
527 iem_mailitem_pub.getmailitemcount(p_api_version_number,
528 p_init_msg_list,
529 p_commit,
530 p_resource_id,
531 ddp_tbl,
532 p_email_account_id,
533 ddx_class_bin,
534 x_return_status,
535 x_msg_count,
536 x_msg_data);
537
538 -- copy data back from the local variables to OUT or IN-OUT args, if any
539
540
541
542
543
544
545 iem_mailitem_pub_w.rosetta_table_copy_out_p3(ddx_class_bin, p6_a0
546 , p6_a1
547 , p6_a2
548 );
549
550
551
552 end;
553
554 procedure getmailitemcount(p_api_version_number NUMBER
555 , p_init_msg_list VARCHAR2
556 , p_commit VARCHAR2
557 , p_email_account_id NUMBER
558 , p4_a0 out nocopy JTF_NUMBER_TABLE
559 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
560 , p4_a2 out nocopy JTF_NUMBER_TABLE
561 , x_return_status out nocopy VARCHAR2
562 , x_msg_count out nocopy NUMBER
563 , x_msg_data out nocopy VARCHAR2
564 )
565
566 as
567 ddx_class_bin iem_mailitem_pub.class_count_tbl;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574
575
576
577
578
579
580 -- here's the delegated call to the old PL/SQL routine
581 iem_mailitem_pub.getmailitemcount(p_api_version_number,
582 p_init_msg_list,
583 p_commit,
584 p_email_account_id,
585 ddx_class_bin,
586 x_return_status,
587 x_msg_count,
588 x_msg_data);
589
590 -- copy data back from the local variables to OUT or IN-OUT args, if any
591
592
593
594
598 );
595 iem_mailitem_pub_w.rosetta_table_copy_out_p3(ddx_class_bin, p4_a0
596 , p4_a1
597 , p4_a2
599
600
601
602 end;
603
604 procedure getmailitemcount(p_api_version_number NUMBER
605 , p_init_msg_list VARCHAR2
606 , p_commit VARCHAR2
607 , p_resource_id NUMBER
608 , p_tbl JTF_NUMBER_TABLE
609 , p_email_account_id NUMBER
610 , p_classification_id NUMBER
611 , x_count out nocopy NUMBER
612 , x_return_status out nocopy VARCHAR2
613 , x_msg_count out nocopy NUMBER
614 , x_msg_data out nocopy VARCHAR2
615 )
616
617 as
618 ddp_tbl iem_mailitem_pub.t_number_table;
619 ddindx binary_integer; indx binary_integer;
620 begin
621
622 -- copy data to the local IN or IN-OUT args, if any
623
624
625
626
627 iem_mailitem_pub_w.rosetta_table_copy_in_p4(ddp_tbl, p_tbl);
628
629
630
631
632
633
634
635 -- here's the delegated call to the old PL/SQL routine
636 iem_mailitem_pub.getmailitemcount(p_api_version_number,
637 p_init_msg_list,
638 p_commit,
639 p_resource_id,
640 ddp_tbl,
641 p_email_account_id,
642 p_classification_id,
643 x_count,
644 x_return_status,
645 x_msg_count,
646 x_msg_data);
647
648 -- copy data back from the local variables to OUT or IN-OUT args, if any
649
650
651
652
653
654
655
656
657
658
659 end;
660
661 procedure getmailitem(p_api_version_number NUMBER
662 , p_init_msg_list VARCHAR2
663 , p_commit VARCHAR2
664 , p_resource_id NUMBER
665 , p_tbl JTF_NUMBER_TABLE
666 , p_rt_classification NUMBER
667 , p_account_id NUMBER
668 , p7_a0 out nocopy NUMBER
669 , p7_a1 out nocopy NUMBER
670 , p7_a2 out nocopy NUMBER
671 , p7_a3 out nocopy NUMBER
672 , p7_a4 out nocopy NUMBER
673 , p7_a5 out nocopy VARCHAR2
674 , p7_a6 out nocopy DATE
675 , p7_a7 out nocopy NUMBER
676 , p7_a8 out nocopy NUMBER
677 , p7_a9 out nocopy NUMBER
678 , p7_a10 out nocopy NUMBER
679 , p7_a11 out nocopy NUMBER
680 , p7_a12 out nocopy NUMBER
681 , p7_a13 out nocopy VARCHAR2
682 , p7_a14 out nocopy VARCHAR2
683 , p7_a15 out nocopy VARCHAR2
684 , p7_a16 out nocopy VARCHAR2
685 , p7_a17 out nocopy VARCHAR2
686 , p7_a18 out nocopy NUMBER
687 , p7_a19 out nocopy NUMBER
688 , p7_a20 out nocopy VARCHAR2
689 , p7_a21 out nocopy VARCHAR2
690 , p7_a22 out nocopy NUMBER
691 , p7_a23 out nocopy NUMBER
692 , p7_a24 out nocopy DATE
693 , p7_a25 out nocopy NUMBER
694 , p7_a26 out nocopy DATE
695 , p7_a27 out nocopy NUMBER
696 , p7_a28 out nocopy VARCHAR2
697 , p7_a29 out nocopy VARCHAR2
698 , p7_a30 out nocopy VARCHAR2
699 , p7_a31 out nocopy VARCHAR2
700 , p7_a32 out nocopy VARCHAR2
701 , p7_a33 out nocopy VARCHAR2
702 , p7_a34 out nocopy VARCHAR2
703 , p7_a35 out nocopy VARCHAR2
704 , p7_a36 out nocopy VARCHAR2
705 , p7_a37 out nocopy VARCHAR2
706 , p7_a38 out nocopy VARCHAR2
707 , p7_a39 out nocopy VARCHAR2
708 , p7_a40 out nocopy VARCHAR2
709 , p7_a41 out nocopy VARCHAR2
710 , p7_a42 out nocopy VARCHAR2
711 , p7_a43 out nocopy NUMBER
712 , x_return_status out nocopy VARCHAR2
713 , x_msg_count out nocopy NUMBER
714 , x_msg_data out nocopy VARCHAR2
715 )
716
717 as
718 ddp_tbl iem_mailitem_pub.t_number_table;
719 ddx_email_data iem_rt_proc_emails%rowtype;
720 ddindx binary_integer; indx binary_integer;
721 begin
722
723 -- copy data to the local IN or IN-OUT args, if any
724
725
726
727
728 iem_mailitem_pub_w.rosetta_table_copy_in_p4(ddp_tbl, p_tbl);
729
730
731
732
733
734
735
736 -- here's the delegated call to the old PL/SQL routine
737 iem_mailitem_pub.getmailitem(p_api_version_number,
738 p_init_msg_list,
739 p_commit,
740 p_resource_id,
741 ddp_tbl,
742 p_rt_classification,
743 p_account_id,
744 ddx_email_data,
745 x_return_status,
746 x_msg_count,
747 x_msg_data);
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 p7_a0 := ddx_email_data.message_id;
758 p7_a1 := ddx_email_data.email_account_id;
759 p7_a2 := ddx_email_data.priority;
760 p7_a3 := ddx_email_data.resource_id;
761 p7_a4 := ddx_email_data.group_id;
762 p7_a5 := ddx_email_data.sent_date;
763 p7_a6 := ddx_email_data.received_date;
764 p7_a7 := ddx_email_data.rt_classification_id;
765 p7_a8 := ddx_email_data.customer_id;
766 p7_a9 := ddx_email_data.contact_id;
770 p7_a13 := ddx_email_data.message_flag;
767 p7_a10 := ddx_email_data.relationship_id;
768 p7_a11 := ddx_email_data.ih_interaction_id;
769 p7_a12 := ddx_email_data.ih_media_item_id;
771 p7_a14 := ddx_email_data.msg_status;
772 p7_a15 := ddx_email_data.mail_item_status;
773 p7_a16 := ddx_email_data.mail_proc_status;
774 p7_a17 := ddx_email_data.queue_status;
775 p7_a18 := ddx_email_data.category_map_id;
776 p7_a19 := ddx_email_data.rule_id;
777 p7_a20 := ddx_email_data.subject;
778 p7_a21 := ddx_email_data.from_address;
779 p7_a22 := ddx_email_data.from_resource_id;
780 p7_a23 := ddx_email_data.created_by;
781 p7_a24 := ddx_email_data.creation_date;
782 p7_a25 := ddx_email_data.last_updated_by;
783 p7_a26 := ddx_email_data.last_update_date;
784 p7_a27 := ddx_email_data.last_update_login;
785 p7_a28 := ddx_email_data.attribute1;
786 p7_a29 := ddx_email_data.attribute2;
787 p7_a30 := ddx_email_data.attribute3;
788 p7_a31 := ddx_email_data.attribute4;
789 p7_a32 := ddx_email_data.attribute5;
790 p7_a33 := ddx_email_data.attribute6;
791 p7_a34 := ddx_email_data.attribute7;
792 p7_a35 := ddx_email_data.attribute8;
793 p7_a36 := ddx_email_data.attribute9;
794 p7_a37 := ddx_email_data.attribute10;
795 p7_a38 := ddx_email_data.attribute11;
796 p7_a39 := ddx_email_data.attribute12;
797 p7_a40 := ddx_email_data.attribute13;
798 p7_a41 := ddx_email_data.attribute14;
799 p7_a42 := ddx_email_data.attribute15;
800 p7_a43 := ddx_email_data.security_group_id;
801
802
803
804 end;
805
806 procedure getmailitem(p_api_version_number NUMBER
807 , p_init_msg_list VARCHAR2
808 , p_commit VARCHAR2
809 , p_resource_id NUMBER
810 , p_tbl JTF_NUMBER_TABLE
811 , p_rt_classification NUMBER
812 , p_account_id NUMBER
813 , p7_a0 out nocopy NUMBER
814 , p7_a1 out nocopy NUMBER
815 , p7_a2 out nocopy NUMBER
816 , p7_a3 out nocopy NUMBER
817 , p7_a4 out nocopy NUMBER
818 , p7_a5 out nocopy VARCHAR2
819 , p7_a6 out nocopy DATE
820 , p7_a7 out nocopy NUMBER
821 , p7_a8 out nocopy NUMBER
822 , p7_a9 out nocopy NUMBER
823 , p7_a10 out nocopy NUMBER
824 , p7_a11 out nocopy NUMBER
825 , p7_a12 out nocopy NUMBER
826 , p7_a13 out nocopy VARCHAR2
827 , p7_a14 out nocopy VARCHAR2
828 , p7_a15 out nocopy VARCHAR2
829 , p7_a16 out nocopy VARCHAR2
830 , p7_a17 out nocopy VARCHAR2
831 , p7_a18 out nocopy NUMBER
832 , p7_a19 out nocopy NUMBER
833 , p7_a20 out nocopy VARCHAR2
834 , p7_a21 out nocopy VARCHAR2
835 , p7_a22 out nocopy NUMBER
836 , p7_a23 out nocopy NUMBER
837 , p7_a24 out nocopy DATE
838 , p7_a25 out nocopy NUMBER
839 , p7_a26 out nocopy DATE
840 , p7_a27 out nocopy NUMBER
841 , p7_a28 out nocopy VARCHAR2
842 , p7_a29 out nocopy VARCHAR2
843 , p7_a30 out nocopy VARCHAR2
844 , p7_a31 out nocopy VARCHAR2
845 , p7_a32 out nocopy VARCHAR2
846 , p7_a33 out nocopy VARCHAR2
847 , p7_a34 out nocopy VARCHAR2
848 , p7_a35 out nocopy VARCHAR2
849 , p7_a36 out nocopy VARCHAR2
850 , p7_a37 out nocopy VARCHAR2
851 , p7_a38 out nocopy VARCHAR2
852 , p7_a39 out nocopy VARCHAR2
853 , p7_a40 out nocopy VARCHAR2
854 , p7_a41 out nocopy VARCHAR2
855 , p7_a42 out nocopy VARCHAR2
856 , p7_a43 out nocopy NUMBER
857 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
858 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_300
859 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
860 , x_encrypted_id out nocopy VARCHAR2
861 , x_return_status out nocopy VARCHAR2
862 , x_msg_count out nocopy NUMBER
863 , x_msg_data out nocopy VARCHAR2
864 )
865
866 as
867 ddp_tbl iem_mailitem_pub.t_number_table;
868 ddx_email_data iem_rt_proc_emails%rowtype;
869 ddx_tag_key_value iem_mailitem_pub.keyvals_tbl_type;
870 ddindx binary_integer; indx binary_integer;
871 begin
872
873 -- copy data to the local IN or IN-OUT args, if any
874
875
876
877
878 iem_mailitem_pub_w.rosetta_table_copy_in_p4(ddp_tbl, p_tbl);
879
880
881
882
883
884
885
886
887
888 -- here's the delegated call to the old PL/SQL routine
889 iem_mailitem_pub.getmailitem(p_api_version_number,
890 p_init_msg_list,
891 p_commit,
892 p_resource_id,
893 ddp_tbl,
894 p_rt_classification,
895 p_account_id,
896 ddx_email_data,
897 ddx_tag_key_value,
898 x_encrypted_id,
899 x_return_status,
900 x_msg_count,
901 x_msg_data);
902
903 -- copy data back from the local variables to OUT or IN-OUT args, if any
904
905
906
907
908
909
910
911 p7_a0 := ddx_email_data.message_id;
912 p7_a1 := ddx_email_data.email_account_id;
913 p7_a2 := ddx_email_data.priority;
914 p7_a3 := ddx_email_data.resource_id;
915 p7_a4 := ddx_email_data.group_id;
919 p7_a8 := ddx_email_data.customer_id;
916 p7_a5 := ddx_email_data.sent_date;
917 p7_a6 := ddx_email_data.received_date;
918 p7_a7 := ddx_email_data.rt_classification_id;
920 p7_a9 := ddx_email_data.contact_id;
921 p7_a10 := ddx_email_data.relationship_id;
922 p7_a11 := ddx_email_data.ih_interaction_id;
923 p7_a12 := ddx_email_data.ih_media_item_id;
924 p7_a13 := ddx_email_data.message_flag;
925 p7_a14 := ddx_email_data.msg_status;
926 p7_a15 := ddx_email_data.mail_item_status;
927 p7_a16 := ddx_email_data.mail_proc_status;
928 p7_a17 := ddx_email_data.queue_status;
929 p7_a18 := ddx_email_data.category_map_id;
930 p7_a19 := ddx_email_data.rule_id;
931 p7_a20 := ddx_email_data.subject;
932 p7_a21 := ddx_email_data.from_address;
933 p7_a22 := ddx_email_data.from_resource_id;
934 p7_a23 := ddx_email_data.created_by;
935 p7_a24 := ddx_email_data.creation_date;
936 p7_a25 := ddx_email_data.last_updated_by;
937 p7_a26 := ddx_email_data.last_update_date;
938 p7_a27 := ddx_email_data.last_update_login;
939 p7_a28 := ddx_email_data.attribute1;
940 p7_a29 := ddx_email_data.attribute2;
941 p7_a30 := ddx_email_data.attribute3;
942 p7_a31 := ddx_email_data.attribute4;
943 p7_a32 := ddx_email_data.attribute5;
944 p7_a33 := ddx_email_data.attribute6;
945 p7_a34 := ddx_email_data.attribute7;
946 p7_a35 := ddx_email_data.attribute8;
947 p7_a36 := ddx_email_data.attribute9;
948 p7_a37 := ddx_email_data.attribute10;
949 p7_a38 := ddx_email_data.attribute11;
950 p7_a39 := ddx_email_data.attribute12;
951 p7_a40 := ddx_email_data.attribute13;
952 p7_a41 := ddx_email_data.attribute14;
953 p7_a42 := ddx_email_data.attribute15;
954 p7_a43 := ddx_email_data.security_group_id;
955
956 iem_mailitem_pub_w.rosetta_table_copy_out_p8(ddx_tag_key_value, p8_a0
957 , p8_a1
958 , p8_a2
959 );
960
961
962
963
964 end;
965
966 procedure getmailitem(p_api_version_number NUMBER
967 , p_init_msg_list VARCHAR2
968 , p_commit VARCHAR2
969 , p_resource_id NUMBER
970 , p_acct_rt_class_id NUMBER
971 , p5_a0 out nocopy NUMBER
972 , p5_a1 out nocopy NUMBER
973 , p5_a2 out nocopy NUMBER
974 , p5_a3 out nocopy NUMBER
975 , p5_a4 out nocopy NUMBER
976 , p5_a5 out nocopy VARCHAR2
977 , p5_a6 out nocopy DATE
978 , p5_a7 out nocopy NUMBER
979 , p5_a8 out nocopy NUMBER
980 , p5_a9 out nocopy NUMBER
981 , p5_a10 out nocopy NUMBER
982 , p5_a11 out nocopy NUMBER
983 , p5_a12 out nocopy NUMBER
984 , p5_a13 out nocopy VARCHAR2
985 , p5_a14 out nocopy VARCHAR2
986 , p5_a15 out nocopy VARCHAR2
987 , p5_a16 out nocopy VARCHAR2
988 , p5_a17 out nocopy VARCHAR2
989 , p5_a18 out nocopy NUMBER
990 , p5_a19 out nocopy NUMBER
991 , p5_a20 out nocopy VARCHAR2
992 , p5_a21 out nocopy VARCHAR2
993 , p5_a22 out nocopy NUMBER
994 , p5_a23 out nocopy NUMBER
995 , p5_a24 out nocopy DATE
996 , p5_a25 out nocopy NUMBER
997 , p5_a26 out nocopy DATE
998 , p5_a27 out nocopy NUMBER
999 , p5_a28 out nocopy VARCHAR2
1000 , p5_a29 out nocopy VARCHAR2
1001 , p5_a30 out nocopy VARCHAR2
1002 , p5_a31 out nocopy VARCHAR2
1003 , p5_a32 out nocopy VARCHAR2
1004 , p5_a33 out nocopy VARCHAR2
1005 , p5_a34 out nocopy VARCHAR2
1006 , p5_a35 out nocopy VARCHAR2
1007 , p5_a36 out nocopy VARCHAR2
1008 , p5_a37 out nocopy VARCHAR2
1009 , p5_a38 out nocopy VARCHAR2
1010 , p5_a39 out nocopy VARCHAR2
1011 , p5_a40 out nocopy VARCHAR2
1012 , p5_a41 out nocopy VARCHAR2
1013 , p5_a42 out nocopy VARCHAR2
1014 , p5_a43 out nocopy NUMBER
1015 , x_return_status out nocopy VARCHAR2
1016 , x_msg_count out nocopy NUMBER
1017 , x_msg_data out nocopy VARCHAR2
1018 )
1019
1020 as
1021 ddx_email_data iem_rt_proc_emails%rowtype;
1022 ddindx binary_integer; indx binary_integer;
1023 begin
1024
1025 -- copy data to the local IN or IN-OUT args, if any
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035 -- here's the delegated call to the old PL/SQL routine
1036 iem_mailitem_pub.getmailitem(p_api_version_number,
1037 p_init_msg_list,
1038 p_commit,
1039 p_resource_id,
1040 p_acct_rt_class_id,
1041 ddx_email_data,
1042 x_return_status,
1043 x_msg_count,
1044 x_msg_data);
1045
1046 -- copy data back from the local variables to OUT or IN-OUT args, if any
1047
1048
1049
1050
1051
1052 p5_a0 := ddx_email_data.message_id;
1053 p5_a1 := ddx_email_data.email_account_id;
1054 p5_a2 := ddx_email_data.priority;
1055 p5_a3 := ddx_email_data.resource_id;
1056 p5_a4 := ddx_email_data.group_id;
1057 p5_a5 := ddx_email_data.sent_date;
1058 p5_a6 := ddx_email_data.received_date;
1059 p5_a7 := ddx_email_data.rt_classification_id;
1060 p5_a8 := ddx_email_data.customer_id;
1061 p5_a9 := ddx_email_data.contact_id;
1065 p5_a13 := ddx_email_data.message_flag;
1062 p5_a10 := ddx_email_data.relationship_id;
1063 p5_a11 := ddx_email_data.ih_interaction_id;
1064 p5_a12 := ddx_email_data.ih_media_item_id;
1066 p5_a14 := ddx_email_data.msg_status;
1067 p5_a15 := ddx_email_data.mail_item_status;
1068 p5_a16 := ddx_email_data.mail_proc_status;
1069 p5_a17 := ddx_email_data.queue_status;
1070 p5_a18 := ddx_email_data.category_map_id;
1071 p5_a19 := ddx_email_data.rule_id;
1072 p5_a20 := ddx_email_data.subject;
1073 p5_a21 := ddx_email_data.from_address;
1074 p5_a22 := ddx_email_data.from_resource_id;
1075 p5_a23 := ddx_email_data.created_by;
1076 p5_a24 := ddx_email_data.creation_date;
1077 p5_a25 := ddx_email_data.last_updated_by;
1078 p5_a26 := ddx_email_data.last_update_date;
1079 p5_a27 := ddx_email_data.last_update_login;
1080 p5_a28 := ddx_email_data.attribute1;
1081 p5_a29 := ddx_email_data.attribute2;
1082 p5_a30 := ddx_email_data.attribute3;
1083 p5_a31 := ddx_email_data.attribute4;
1084 p5_a32 := ddx_email_data.attribute5;
1085 p5_a33 := ddx_email_data.attribute6;
1086 p5_a34 := ddx_email_data.attribute7;
1087 p5_a35 := ddx_email_data.attribute8;
1088 p5_a36 := ddx_email_data.attribute9;
1089 p5_a37 := ddx_email_data.attribute10;
1090 p5_a38 := ddx_email_data.attribute11;
1091 p5_a39 := ddx_email_data.attribute12;
1092 p5_a40 := ddx_email_data.attribute13;
1093 p5_a41 := ddx_email_data.attribute14;
1094 p5_a42 := ddx_email_data.attribute15;
1095 p5_a43 := ddx_email_data.security_group_id;
1096
1097
1098
1099 end;
1100
1101 procedure getgroupdetails(p_api_version_number NUMBER
1102 , p_init_msg_list VARCHAR2
1103 , p_commit VARCHAR2
1104 , p_resource_id NUMBER
1105 , x_tbl out nocopy JTF_NUMBER_TABLE
1106 , x_return_status out nocopy VARCHAR2
1107 , x_msg_count out nocopy NUMBER
1108 , x_msg_data out nocopy VARCHAR2
1109 )
1110
1111 as
1112 ddx_tbl iem_mailitem_pub.t_number_table;
1113 ddindx binary_integer; indx binary_integer;
1114 begin
1115
1116 -- copy data to the local IN or IN-OUT args, if any
1117
1118
1119
1120
1121
1122
1123
1124
1125 -- here's the delegated call to the old PL/SQL routine
1126 iem_mailitem_pub.getgroupdetails(p_api_version_number,
1127 p_init_msg_list,
1128 p_commit,
1129 p_resource_id,
1130 ddx_tbl,
1131 x_return_status,
1132 x_msg_count,
1133 x_msg_data);
1134
1135 -- copy data back from the local variables to OUT or IN-OUT args, if any
1136
1137
1138
1139
1140 iem_mailitem_pub_w.rosetta_table_copy_out_p4(ddx_tbl, x_tbl);
1141
1142
1143
1144 end;
1145
1146 procedure updatemailitem(p_api_version_number NUMBER
1147 , p_init_msg_list VARCHAR2
1148 , p_commit VARCHAR2
1149 , p3_a0 NUMBER
1150 , p3_a1 NUMBER
1151 , p3_a2 NUMBER
1152 , p3_a3 NUMBER
1153 , p3_a4 NUMBER
1154 , p3_a5 VARCHAR2
1155 , p3_a6 DATE
1156 , p3_a7 NUMBER
1157 , p3_a8 NUMBER
1158 , p3_a9 NUMBER
1159 , p3_a10 NUMBER
1160 , p3_a11 NUMBER
1161 , p3_a12 NUMBER
1162 , p3_a13 VARCHAR2
1163 , p3_a14 VARCHAR2
1164 , p3_a15 VARCHAR2
1165 , p3_a16 VARCHAR2
1166 , p3_a17 VARCHAR2
1167 , p3_a18 NUMBER
1168 , p3_a19 NUMBER
1169 , p3_a20 VARCHAR2
1170 , p3_a21 VARCHAR2
1171 , p3_a22 NUMBER
1172 , p3_a23 NUMBER
1173 , p3_a24 DATE
1174 , p3_a25 NUMBER
1175 , p3_a26 DATE
1176 , p3_a27 NUMBER
1177 , p3_a28 VARCHAR2
1178 , p3_a29 VARCHAR2
1179 , p3_a30 VARCHAR2
1180 , p3_a31 VARCHAR2
1181 , p3_a32 VARCHAR2
1182 , p3_a33 VARCHAR2
1183 , p3_a34 VARCHAR2
1184 , p3_a35 VARCHAR2
1185 , p3_a36 VARCHAR2
1186 , p3_a37 VARCHAR2
1187 , p3_a38 VARCHAR2
1188 , p3_a39 VARCHAR2
1189 , p3_a40 VARCHAR2
1190 , p3_a41 VARCHAR2
1191 , p3_a42 VARCHAR2
1192 , p3_a43 NUMBER
1193 , x_return_status out nocopy VARCHAR2
1194 , x_msg_count out nocopy NUMBER
1195 , x_msg_data out nocopy VARCHAR2
1196 )
1197
1198 as
1199 ddp_email_data iem_rt_proc_emails%rowtype;
1200 ddindx binary_integer; indx binary_integer;
1201 begin
1202
1203 -- copy data to the local IN or IN-OUT args, if any
1204
1205
1206
1207 ddp_email_data.message_id := p3_a0;
1208 ddp_email_data.email_account_id := p3_a1;
1209 ddp_email_data.priority := p3_a2;
1210 ddp_email_data.resource_id := p3_a3;
1211 ddp_email_data.group_id := p3_a4;
1212 ddp_email_data.sent_date := p3_a5;
1213 ddp_email_data.received_date := rosetta_g_miss_date_in_map(p3_a6);
1214 ddp_email_data.rt_classification_id := p3_a7;
1215 ddp_email_data.customer_id := p3_a8;
1216 ddp_email_data.contact_id := p3_a9;
1220 ddp_email_data.message_flag := p3_a13;
1217 ddp_email_data.relationship_id := p3_a10;
1218 ddp_email_data.ih_interaction_id := p3_a11;
1219 ddp_email_data.ih_media_item_id := p3_a12;
1221 ddp_email_data.msg_status := p3_a14;
1222 ddp_email_data.mail_item_status := p3_a15;
1223 ddp_email_data.mail_proc_status := p3_a16;
1224 ddp_email_data.queue_status := p3_a17;
1225 ddp_email_data.category_map_id := p3_a18;
1226 ddp_email_data.rule_id := p3_a19;
1227 ddp_email_data.subject := p3_a20;
1228 ddp_email_data.from_address := p3_a21;
1229 ddp_email_data.from_resource_id := p3_a22;
1230 ddp_email_data.created_by := p3_a23;
1231 ddp_email_data.creation_date := rosetta_g_miss_date_in_map(p3_a24);
1232 ddp_email_data.last_updated_by := p3_a25;
1233 ddp_email_data.last_update_date := rosetta_g_miss_date_in_map(p3_a26);
1234 ddp_email_data.last_update_login := p3_a27;
1235 ddp_email_data.attribute1 := p3_a28;
1236 ddp_email_data.attribute2 := p3_a29;
1237 ddp_email_data.attribute3 := p3_a30;
1238 ddp_email_data.attribute4 := p3_a31;
1239 ddp_email_data.attribute5 := p3_a32;
1240 ddp_email_data.attribute6 := p3_a33;
1241 ddp_email_data.attribute7 := p3_a34;
1242 ddp_email_data.attribute8 := p3_a35;
1243 ddp_email_data.attribute9 := p3_a36;
1244 ddp_email_data.attribute10 := p3_a37;
1245 ddp_email_data.attribute11 := p3_a38;
1246 ddp_email_data.attribute12 := p3_a39;
1247 ddp_email_data.attribute13 := p3_a40;
1248 ddp_email_data.attribute14 := p3_a41;
1249 ddp_email_data.attribute15 := p3_a42;
1250 ddp_email_data.security_group_id := p3_a43;
1251
1252
1253
1254
1255 -- here's the delegated call to the old PL/SQL routine
1256 iem_mailitem_pub.updatemailitem(p_api_version_number,
1257 p_init_msg_list,
1258 p_commit,
1259 ddp_email_data,
1260 x_return_status,
1261 x_msg_count,
1262 x_msg_data);
1263
1264 -- copy data back from the local variables to OUT or IN-OUT args, if any
1265
1266
1267
1268
1269
1270
1271 end;
1272
1273 procedure getmailiteminfo(p_api_version_number NUMBER
1274 , p_init_msg_list VARCHAR2
1275 , p_commit VARCHAR2
1276 , p_message_id NUMBER
1277 , p_account_id NUMBER
1278 , p_agent_id NUMBER
1279 , p6_a0 out nocopy NUMBER
1280 , p6_a1 out nocopy NUMBER
1281 , p6_a2 out nocopy NUMBER
1282 , p6_a3 out nocopy NUMBER
1283 , p6_a4 out nocopy NUMBER
1284 , p6_a5 out nocopy VARCHAR2
1285 , p6_a6 out nocopy DATE
1286 , p6_a7 out nocopy NUMBER
1287 , p6_a8 out nocopy NUMBER
1288 , p6_a9 out nocopy NUMBER
1289 , p6_a10 out nocopy NUMBER
1290 , p6_a11 out nocopy NUMBER
1291 , p6_a12 out nocopy NUMBER
1292 , p6_a13 out nocopy VARCHAR2
1293 , p6_a14 out nocopy VARCHAR2
1294 , p6_a15 out nocopy VARCHAR2
1295 , p6_a16 out nocopy VARCHAR2
1296 , p6_a17 out nocopy VARCHAR2
1297 , p6_a18 out nocopy NUMBER
1298 , p6_a19 out nocopy NUMBER
1299 , p6_a20 out nocopy VARCHAR2
1300 , p6_a21 out nocopy VARCHAR2
1301 , p6_a22 out nocopy NUMBER
1302 , p6_a23 out nocopy NUMBER
1303 , p6_a24 out nocopy DATE
1304 , p6_a25 out nocopy NUMBER
1305 , p6_a26 out nocopy DATE
1306 , p6_a27 out nocopy NUMBER
1307 , p6_a28 out nocopy VARCHAR2
1308 , p6_a29 out nocopy VARCHAR2
1309 , p6_a30 out nocopy VARCHAR2
1310 , p6_a31 out nocopy VARCHAR2
1311 , p6_a32 out nocopy VARCHAR2
1312 , p6_a33 out nocopy VARCHAR2
1313 , p6_a34 out nocopy VARCHAR2
1314 , p6_a35 out nocopy VARCHAR2
1315 , p6_a36 out nocopy VARCHAR2
1316 , p6_a37 out nocopy VARCHAR2
1317 , p6_a38 out nocopy VARCHAR2
1318 , p6_a39 out nocopy VARCHAR2
1319 , p6_a40 out nocopy VARCHAR2
1320 , p6_a41 out nocopy VARCHAR2
1321 , p6_a42 out nocopy VARCHAR2
1322 , p6_a43 out nocopy NUMBER
1323 , x_return_status out nocopy VARCHAR2
1324 , x_msg_count out nocopy NUMBER
1325 , x_msg_data out nocopy VARCHAR2
1326 )
1327
1328 as
1329 ddx_email_data iem_rt_proc_emails%rowtype;
1330 ddindx binary_integer; indx binary_integer;
1331 begin
1332
1333 -- copy data to the local IN or IN-OUT args, if any
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344 -- here's the delegated call to the old PL/SQL routine
1345 iem_mailitem_pub.getmailiteminfo(p_api_version_number,
1346 p_init_msg_list,
1347 p_commit,
1348 p_message_id,
1349 p_account_id,
1350 p_agent_id,
1351 ddx_email_data,
1352 x_return_status,
1353 x_msg_count,
1354 x_msg_data);
1355
1356 -- copy data back from the local variables to OUT or IN-OUT args, if any
1357
1358
1359
1360
1361
1362
1363 p6_a0 := ddx_email_data.message_id;
1364 p6_a1 := ddx_email_data.email_account_id;
1365 p6_a2 := ddx_email_data.priority;
1366 p6_a3 := ddx_email_data.resource_id;
1370 p6_a7 := ddx_email_data.rt_classification_id;
1367 p6_a4 := ddx_email_data.group_id;
1368 p6_a5 := ddx_email_data.sent_date;
1369 p6_a6 := ddx_email_data.received_date;
1371 p6_a8 := ddx_email_data.customer_id;
1372 p6_a9 := ddx_email_data.contact_id;
1373 p6_a10 := ddx_email_data.relationship_id;
1374 p6_a11 := ddx_email_data.ih_interaction_id;
1375 p6_a12 := ddx_email_data.ih_media_item_id;
1376 p6_a13 := ddx_email_data.message_flag;
1377 p6_a14 := ddx_email_data.msg_status;
1378 p6_a15 := ddx_email_data.mail_item_status;
1379 p6_a16 := ddx_email_data.mail_proc_status;
1380 p6_a17 := ddx_email_data.queue_status;
1381 p6_a18 := ddx_email_data.category_map_id;
1382 p6_a19 := ddx_email_data.rule_id;
1383 p6_a20 := ddx_email_data.subject;
1384 p6_a21 := ddx_email_data.from_address;
1385 p6_a22 := ddx_email_data.from_resource_id;
1386 p6_a23 := ddx_email_data.created_by;
1387 p6_a24 := ddx_email_data.creation_date;
1388 p6_a25 := ddx_email_data.last_updated_by;
1389 p6_a26 := ddx_email_data.last_update_date;
1390 p6_a27 := ddx_email_data.last_update_login;
1391 p6_a28 := ddx_email_data.attribute1;
1392 p6_a29 := ddx_email_data.attribute2;
1393 p6_a30 := ddx_email_data.attribute3;
1394 p6_a31 := ddx_email_data.attribute4;
1395 p6_a32 := ddx_email_data.attribute5;
1396 p6_a33 := ddx_email_data.attribute6;
1397 p6_a34 := ddx_email_data.attribute7;
1398 p6_a35 := ddx_email_data.attribute8;
1399 p6_a36 := ddx_email_data.attribute9;
1400 p6_a37 := ddx_email_data.attribute10;
1401 p6_a38 := ddx_email_data.attribute11;
1402 p6_a39 := ddx_email_data.attribute12;
1403 p6_a40 := ddx_email_data.attribute13;
1404 p6_a41 := ddx_email_data.attribute14;
1405 p6_a42 := ddx_email_data.attribute15;
1406 p6_a43 := ddx_email_data.security_group_id;
1407
1408
1409
1410 end;
1411
1412 procedure getemailheaders(p_api_version_number NUMBER
1413 , p_init_msg_list VARCHAR2
1414 , p_commit VARCHAR2
1415 , p_resource_id NUMBER
1416 , p_email_account_id NUMBER
1417 , p_display_size NUMBER
1418 , p_page_count NUMBER
1419 , p_sort_by VARCHAR2
1420 , p_sort_order NUMBER
1421 , x_total_message out nocopy NUMBER
1422 , p10_a0 out nocopy JTF_NUMBER_TABLE
1423 , p10_a1 out nocopy JTF_NUMBER_TABLE
1424 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_100
1425 , p10_a3 out nocopy JTF_NUMBER_TABLE
1426 , p10_a4 out nocopy JTF_NUMBER_TABLE
1427 , p10_a5 out nocopy JTF_NUMBER_TABLE
1428 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
1429 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_200
1430 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_300
1431 , p10_a9 out nocopy JTF_VARCHAR2_TABLE_100
1432 , p10_a10 out nocopy JTF_VARCHAR2_TABLE_100
1433 , p10_a11 out nocopy JTF_VARCHAR2_TABLE_100
1434 , p10_a12 out nocopy JTF_VARCHAR2_TABLE_100
1435 , p10_a13 out nocopy JTF_NUMBER_TABLE
1436 , p10_a14 out nocopy JTF_VARCHAR2_TABLE_100
1437 , p10_a15 out nocopy JTF_VARCHAR2_TABLE_300
1438 , x_return_status out nocopy VARCHAR2
1439 , x_msg_count out nocopy NUMBER
1440 , x_msg_data out nocopy VARCHAR2
1441 )
1442
1443 as
1444 ddx_acq_email_data iem_mailitem_pub.acq_email_info_tbl;
1445 ddindx binary_integer; indx binary_integer;
1446 begin
1447
1448 -- copy data to the local IN or IN-OUT args, if any
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463 -- here's the delegated call to the old PL/SQL routine
1464 iem_mailitem_pub.getemailheaders(p_api_version_number,
1465 p_init_msg_list,
1466 p_commit,
1467 p_resource_id,
1468 p_email_account_id,
1469 p_display_size,
1470 p_page_count,
1471 p_sort_by,
1472 p_sort_order,
1473 x_total_message,
1474 ddx_acq_email_data,
1475 x_return_status,
1476 x_msg_count,
1477 x_msg_data);
1478
1479 -- copy data back from the local variables to OUT or IN-OUT args, if any
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490 iem_mailitem_pub_w.rosetta_table_copy_out_p6(ddx_acq_email_data, p10_a0
1491 , p10_a1
1492 , p10_a2
1493 , p10_a3
1494 , p10_a4
1495 , p10_a5
1496 , p10_a6
1497 , p10_a7
1498 , p10_a8
1499 , p10_a9
1500 , p10_a10
1501 , p10_a11
1502 , p10_a12
1503 , p10_a13
1504 , p10_a14
1505 , p10_a15
1506 );
1507
1508
1509
1510 end;
1511
1512 procedure getqueueitemdata(p_api_version_number NUMBER
1513 , p_init_msg_list VARCHAR2
1514 , p_commit VARCHAR2
1515 , p_message_id NUMBER
1516 , p_from_agent_id NUMBER
1517 , p_to_agent_id NUMBER
1518 , p_mail_item_status VARCHAR2
1519 , p7_a0 out nocopy NUMBER
1520 , p7_a1 out nocopy NUMBER
1521 , p7_a2 out nocopy NUMBER
1522 , p7_a3 out nocopy NUMBER
1523 , p7_a4 out nocopy NUMBER
1524 , p7_a5 out nocopy VARCHAR2
1525 , p7_a6 out nocopy DATE
1526 , p7_a7 out nocopy NUMBER
1527 , p7_a8 out nocopy NUMBER
1528 , p7_a9 out nocopy NUMBER
1529 , p7_a10 out nocopy NUMBER
1530 , p7_a11 out nocopy NUMBER
1531 , p7_a12 out nocopy NUMBER
1532 , p7_a13 out nocopy VARCHAR2
1533 , p7_a14 out nocopy VARCHAR2
1534 , p7_a15 out nocopy VARCHAR2
1535 , p7_a16 out nocopy VARCHAR2
1536 , p7_a17 out nocopy VARCHAR2
1537 , p7_a18 out nocopy NUMBER
1538 , p7_a19 out nocopy NUMBER
1539 , p7_a20 out nocopy VARCHAR2
1540 , p7_a21 out nocopy VARCHAR2
1541 , p7_a22 out nocopy NUMBER
1542 , p7_a23 out nocopy NUMBER
1543 , p7_a24 out nocopy DATE
1544 , p7_a25 out nocopy NUMBER
1545 , p7_a26 out nocopy DATE
1546 , p7_a27 out nocopy NUMBER
1547 , p7_a28 out nocopy VARCHAR2
1548 , p7_a29 out nocopy VARCHAR2
1549 , p7_a30 out nocopy VARCHAR2
1550 , p7_a31 out nocopy VARCHAR2
1551 , p7_a32 out nocopy VARCHAR2
1552 , p7_a33 out nocopy VARCHAR2
1553 , p7_a34 out nocopy VARCHAR2
1554 , p7_a35 out nocopy VARCHAR2
1555 , p7_a36 out nocopy VARCHAR2
1556 , p7_a37 out nocopy VARCHAR2
1557 , p7_a38 out nocopy VARCHAR2
1558 , p7_a39 out nocopy VARCHAR2
1559 , p7_a40 out nocopy VARCHAR2
1560 , p7_a41 out nocopy VARCHAR2
1561 , p7_a42 out nocopy VARCHAR2
1562 , p7_a43 out nocopy NUMBER
1563 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
1564 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_300
1565 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
1566 , x_encrypted_id out nocopy VARCHAR2
1567 , x_return_status out nocopy VARCHAR2
1568 , x_msg_count out nocopy NUMBER
1569 , x_msg_data out nocopy VARCHAR2
1570 )
1571
1572 as
1573 ddx_email_data iem_rt_proc_emails%rowtype;
1574 ddx_tag_key_value iem_mailitem_pub.keyvals_tbl_type;
1575 ddindx binary_integer; indx binary_integer;
1576 begin
1577
1578 -- copy data to the local IN or IN-OUT args, if any
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592 -- here's the delegated call to the old PL/SQL routine
1593 iem_mailitem_pub.getqueueitemdata(p_api_version_number,
1594 p_init_msg_list,
1595 p_commit,
1596 p_message_id,
1597 p_from_agent_id,
1598 p_to_agent_id,
1599 p_mail_item_status,
1600 ddx_email_data,
1601 ddx_tag_key_value,
1602 x_encrypted_id,
1603 x_return_status,
1604 x_msg_count,
1605 x_msg_data);
1606
1607 -- copy data back from the local variables to OUT or IN-OUT args, if any
1608
1609
1610
1611
1612
1613
1614
1615 p7_a0 := ddx_email_data.message_id;
1616 p7_a1 := ddx_email_data.email_account_id;
1617 p7_a2 := ddx_email_data.priority;
1618 p7_a3 := ddx_email_data.resource_id;
1619 p7_a4 := ddx_email_data.group_id;
1620 p7_a5 := ddx_email_data.sent_date;
1621 p7_a6 := ddx_email_data.received_date;
1622 p7_a7 := ddx_email_data.rt_classification_id;
1623 p7_a8 := ddx_email_data.customer_id;
1624 p7_a9 := ddx_email_data.contact_id;
1625 p7_a10 := ddx_email_data.relationship_id;
1626 p7_a11 := ddx_email_data.ih_interaction_id;
1627 p7_a12 := ddx_email_data.ih_media_item_id;
1628 p7_a13 := ddx_email_data.message_flag;
1629 p7_a14 := ddx_email_data.msg_status;
1630 p7_a15 := ddx_email_data.mail_item_status;
1631 p7_a16 := ddx_email_data.mail_proc_status;
1632 p7_a17 := ddx_email_data.queue_status;
1633 p7_a18 := ddx_email_data.category_map_id;
1634 p7_a19 := ddx_email_data.rule_id;
1635 p7_a20 := ddx_email_data.subject;
1636 p7_a21 := ddx_email_data.from_address;
1637 p7_a22 := ddx_email_data.from_resource_id;
1638 p7_a23 := ddx_email_data.created_by;
1639 p7_a24 := ddx_email_data.creation_date;
1640 p7_a25 := ddx_email_data.last_updated_by;
1641 p7_a26 := ddx_email_data.last_update_date;
1642 p7_a27 := ddx_email_data.last_update_login;
1643 p7_a28 := ddx_email_data.attribute1;
1644 p7_a29 := ddx_email_data.attribute2;
1645 p7_a30 := ddx_email_data.attribute3;
1646 p7_a31 := ddx_email_data.attribute4;
1647 p7_a32 := ddx_email_data.attribute5;
1648 p7_a33 := ddx_email_data.attribute6;
1649 p7_a34 := ddx_email_data.attribute7;
1650 p7_a35 := ddx_email_data.attribute8;
1651 p7_a36 := ddx_email_data.attribute9;
1652 p7_a37 := ddx_email_data.attribute10;
1653 p7_a38 := ddx_email_data.attribute11;
1654 p7_a39 := ddx_email_data.attribute12;
1655 p7_a40 := ddx_email_data.attribute13;
1656 p7_a41 := ddx_email_data.attribute14;
1657 p7_a42 := ddx_email_data.attribute15;
1658 p7_a43 := ddx_email_data.security_group_id;
1659
1660 iem_mailitem_pub_w.rosetta_table_copy_out_p8(ddx_tag_key_value, p8_a0
1661 , p8_a1
1662 , p8_a2
1663 );
1664
1665
1666
1667
1668 end;
1669
1670 end iem_mailitem_pub_w;