[Home] [Help]
PACKAGE BODY: APPS.JTF_EC_PUB_W
Source
1 package body jtf_ec_pub_w as
2 /* $Header: jtfpecwb.pls 115.1 2002/02/14 13:07:33 pkm ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p7(t out jtf_ec_pub.esc_ref_docs_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_200
30 , a8 JTF_VARCHAR2_TABLE_200
31 , a9 JTF_VARCHAR2_TABLE_200
32 , a10 JTF_VARCHAR2_TABLE_200
33 , a11 JTF_VARCHAR2_TABLE_200
34 , a12 JTF_VARCHAR2_TABLE_200
35 , a13 JTF_VARCHAR2_TABLE_200
36 , a14 JTF_VARCHAR2_TABLE_200
37 , a15 JTF_VARCHAR2_TABLE_200
38 , a16 JTF_VARCHAR2_TABLE_200
39 , a17 JTF_VARCHAR2_TABLE_200
40 , a18 JTF_VARCHAR2_TABLE_200
41 , a19 JTF_VARCHAR2_TABLE_200
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_VARCHAR2_TABLE_200
45 ) as
46 ddindx binary_integer; indx binary_integer;
47 begin
48 if a0 is not null and a0.count > 0 then
49 if a0.count > 0 then
50 indx := a0.first;
51 ddindx := 1;
52 while true loop
53 t(ddindx).reference_id := rosetta_g_miss_num_map(a0(indx));
54 t(ddindx).object_type_code := a1(indx);
55 t(ddindx).object_name := a2(indx);
56 t(ddindx).object_id := rosetta_g_miss_num_map(a3(indx));
57 t(ddindx).reference_code := a4(indx);
58 t(ddindx).object_version_number := rosetta_g_miss_num_map(a5(indx));
59 t(ddindx).action_code := a6(indx);
60 t(ddindx).attribute1 := a7(indx);
61 t(ddindx).attribute2 := a8(indx);
62 t(ddindx).attribute3 := a9(indx);
63 t(ddindx).attribute4 := a10(indx);
64 t(ddindx).attribute5 := a11(indx);
65 t(ddindx).attribute6 := a12(indx);
66 t(ddindx).attribute7 := a13(indx);
67 t(ddindx).attribute8 := a14(indx);
68 t(ddindx).attribute9 := a15(indx);
69 t(ddindx).attribute10 := a16(indx);
70 t(ddindx).attribute11 := a17(indx);
71 t(ddindx).attribute12 := a18(indx);
72 t(ddindx).attribute13 := a19(indx);
73 t(ddindx).attribute14 := a20(indx);
74 t(ddindx).attribute15 := a21(indx);
75 t(ddindx).attribute_category := a22(indx);
76 ddindx := ddindx+1;
77 if a0.last =indx
78 then exit;
79 end if;
80 indx := a0.next(indx);
81 end loop;
82 end if;
83 end if;
84 end rosetta_table_copy_in_p7;
85 procedure rosetta_table_copy_out_p7(t jtf_ec_pub.esc_ref_docs_tbl_type, a0 out JTF_NUMBER_TABLE
86 , a1 out JTF_VARCHAR2_TABLE_100
87 , a2 out JTF_VARCHAR2_TABLE_100
88 , a3 out JTF_NUMBER_TABLE
89 , a4 out JTF_VARCHAR2_TABLE_100
90 , a5 out JTF_NUMBER_TABLE
91 , a6 out JTF_VARCHAR2_TABLE_100
92 , a7 out JTF_VARCHAR2_TABLE_200
93 , a8 out JTF_VARCHAR2_TABLE_200
94 , a9 out JTF_VARCHAR2_TABLE_200
95 , a10 out JTF_VARCHAR2_TABLE_200
96 , a11 out JTF_VARCHAR2_TABLE_200
97 , a12 out JTF_VARCHAR2_TABLE_200
98 , a13 out JTF_VARCHAR2_TABLE_200
99 , a14 out JTF_VARCHAR2_TABLE_200
100 , a15 out JTF_VARCHAR2_TABLE_200
101 , a16 out JTF_VARCHAR2_TABLE_200
102 , a17 out JTF_VARCHAR2_TABLE_200
103 , a18 out JTF_VARCHAR2_TABLE_200
104 , a19 out JTF_VARCHAR2_TABLE_200
105 , a20 out JTF_VARCHAR2_TABLE_200
106 , a21 out JTF_VARCHAR2_TABLE_200
107 , a22 out JTF_VARCHAR2_TABLE_200
108 ) as
109 ddindx binary_integer; indx binary_integer;
110 begin
111 if t is null or t.count = 0 then
112 a0 := JTF_NUMBER_TABLE();
113 a1 := JTF_VARCHAR2_TABLE_100();
114 a2 := JTF_VARCHAR2_TABLE_100();
115 a3 := JTF_NUMBER_TABLE();
116 a4 := JTF_VARCHAR2_TABLE_100();
117 a5 := JTF_NUMBER_TABLE();
118 a6 := JTF_VARCHAR2_TABLE_100();
119 a7 := JTF_VARCHAR2_TABLE_200();
120 a8 := JTF_VARCHAR2_TABLE_200();
121 a9 := JTF_VARCHAR2_TABLE_200();
122 a10 := JTF_VARCHAR2_TABLE_200();
123 a11 := JTF_VARCHAR2_TABLE_200();
124 a12 := JTF_VARCHAR2_TABLE_200();
125 a13 := JTF_VARCHAR2_TABLE_200();
126 a14 := JTF_VARCHAR2_TABLE_200();
127 a15 := JTF_VARCHAR2_TABLE_200();
128 a16 := JTF_VARCHAR2_TABLE_200();
129 a17 := JTF_VARCHAR2_TABLE_200();
130 a18 := JTF_VARCHAR2_TABLE_200();
131 a19 := JTF_VARCHAR2_TABLE_200();
132 a20 := JTF_VARCHAR2_TABLE_200();
133 a21 := JTF_VARCHAR2_TABLE_200();
134 a22 := JTF_VARCHAR2_TABLE_200();
135 else
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_VARCHAR2_TABLE_100();
138 a2 := JTF_VARCHAR2_TABLE_100();
139 a3 := JTF_NUMBER_TABLE();
140 a4 := JTF_VARCHAR2_TABLE_100();
141 a5 := JTF_NUMBER_TABLE();
142 a6 := JTF_VARCHAR2_TABLE_100();
143 a7 := JTF_VARCHAR2_TABLE_200();
144 a8 := JTF_VARCHAR2_TABLE_200();
145 a9 := JTF_VARCHAR2_TABLE_200();
146 a10 := JTF_VARCHAR2_TABLE_200();
147 a11 := JTF_VARCHAR2_TABLE_200();
148 a12 := JTF_VARCHAR2_TABLE_200();
149 a13 := JTF_VARCHAR2_TABLE_200();
150 a14 := JTF_VARCHAR2_TABLE_200();
151 a15 := JTF_VARCHAR2_TABLE_200();
152 a16 := JTF_VARCHAR2_TABLE_200();
153 a17 := JTF_VARCHAR2_TABLE_200();
154 a18 := JTF_VARCHAR2_TABLE_200();
155 a19 := JTF_VARCHAR2_TABLE_200();
156 a20 := JTF_VARCHAR2_TABLE_200();
157 a21 := JTF_VARCHAR2_TABLE_200();
158 a22 := JTF_VARCHAR2_TABLE_200();
159 if t.count > 0 then
160 a0.extend(t.count);
161 a1.extend(t.count);
162 a2.extend(t.count);
163 a3.extend(t.count);
164 a4.extend(t.count);
165 a5.extend(t.count);
166 a6.extend(t.count);
167 a7.extend(t.count);
168 a8.extend(t.count);
169 a9.extend(t.count);
170 a10.extend(t.count);
171 a11.extend(t.count);
172 a12.extend(t.count);
173 a13.extend(t.count);
174 a14.extend(t.count);
175 a15.extend(t.count);
176 a16.extend(t.count);
177 a17.extend(t.count);
178 a18.extend(t.count);
179 a19.extend(t.count);
180 a20.extend(t.count);
181 a21.extend(t.count);
182 a22.extend(t.count);
183 ddindx := t.first;
184 indx := 1;
185 while true loop
186 a0(indx) := rosetta_g_miss_num_map(t(ddindx).reference_id);
187 a1(indx) := t(ddindx).object_type_code;
188 a2(indx) := t(ddindx).object_name;
189 a3(indx) := rosetta_g_miss_num_map(t(ddindx).object_id);
190 a4(indx) := t(ddindx).reference_code;
191 a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
192 a6(indx) := t(ddindx).action_code;
193 a7(indx) := t(ddindx).attribute1;
194 a8(indx) := t(ddindx).attribute2;
195 a9(indx) := t(ddindx).attribute3;
196 a10(indx) := t(ddindx).attribute4;
197 a11(indx) := t(ddindx).attribute5;
198 a12(indx) := t(ddindx).attribute6;
199 a13(indx) := t(ddindx).attribute7;
200 a14(indx) := t(ddindx).attribute8;
201 a15(indx) := t(ddindx).attribute9;
202 a16(indx) := t(ddindx).attribute10;
203 a17(indx) := t(ddindx).attribute11;
204 a18(indx) := t(ddindx).attribute12;
205 a19(indx) := t(ddindx).attribute13;
206 a20(indx) := t(ddindx).attribute14;
207 a21(indx) := t(ddindx).attribute15;
208 a22(indx) := t(ddindx).attribute_category;
209 indx := indx+1;
210 if t.last =ddindx
211 then exit;
212 end if;
213 ddindx := t.next(ddindx);
214 end loop;
215 end if;
216 end if;
217 end rosetta_table_copy_out_p7;
218
219 procedure rosetta_table_copy_in_p9(t out jtf_ec_pub.esc_contacts_tbl_type, a0 JTF_NUMBER_TABLE
220 , a1 JTF_NUMBER_TABLE
221 , a2 JTF_NUMBER_TABLE
222 , a3 JTF_VARCHAR2_TABLE_100
223 , a4 JTF_VARCHAR2_TABLE_100
224 , a5 JTF_VARCHAR2_TABLE_100
225 , a6 JTF_VARCHAR2_TABLE_100
226 , a7 JTF_VARCHAR2_TABLE_200
227 , a8 JTF_VARCHAR2_TABLE_200
228 , a9 JTF_VARCHAR2_TABLE_200
229 , a10 JTF_VARCHAR2_TABLE_200
230 , a11 JTF_VARCHAR2_TABLE_200
231 , a12 JTF_VARCHAR2_TABLE_200
232 , a13 JTF_VARCHAR2_TABLE_200
233 , a14 JTF_VARCHAR2_TABLE_200
234 , a15 JTF_VARCHAR2_TABLE_200
235 , a16 JTF_VARCHAR2_TABLE_200
236 , a17 JTF_VARCHAR2_TABLE_200
237 , a18 JTF_VARCHAR2_TABLE_200
238 , a19 JTF_VARCHAR2_TABLE_200
239 , a20 JTF_VARCHAR2_TABLE_200
240 , a21 JTF_VARCHAR2_TABLE_200
241 , a22 JTF_VARCHAR2_TABLE_200
242 ) as
243 ddindx binary_integer; indx binary_integer;
244 begin
245 if a0 is not null and a0.count > 0 then
246 if a0.count > 0 then
247 indx := a0.first;
248 ddindx := 1;
249 while true loop
250 t(ddindx).contact_id := rosetta_g_miss_num_map(a0(indx));
251 t(ddindx).task_contact_id := rosetta_g_miss_num_map(a1(indx));
252 t(ddindx).object_version_number := rosetta_g_miss_num_map(a2(indx));
253 t(ddindx).contact_type_code := a3(indx);
254 t(ddindx).escalation_notify_flag := a4(indx);
255 t(ddindx).escalation_requester_flag := a5(indx);
256 t(ddindx).action_code := a6(indx);
257 t(ddindx).attribute1 := a7(indx);
258 t(ddindx).attribute2 := a8(indx);
259 t(ddindx).attribute3 := a9(indx);
260 t(ddindx).attribute4 := a10(indx);
261 t(ddindx).attribute5 := a11(indx);
262 t(ddindx).attribute6 := a12(indx);
263 t(ddindx).attribute7 := a13(indx);
264 t(ddindx).attribute8 := a14(indx);
265 t(ddindx).attribute9 := a15(indx);
266 t(ddindx).attribute10 := a16(indx);
267 t(ddindx).attribute11 := a17(indx);
268 t(ddindx).attribute12 := a18(indx);
269 t(ddindx).attribute13 := a19(indx);
270 t(ddindx).attribute14 := a20(indx);
271 t(ddindx).attribute15 := a21(indx);
272 t(ddindx).attribute_category := a22(indx);
273 ddindx := ddindx+1;
274 if a0.last =indx
275 then exit;
276 end if;
277 indx := a0.next(indx);
278 end loop;
279 end if;
280 end if;
281 end rosetta_table_copy_in_p9;
282 procedure rosetta_table_copy_out_p9(t jtf_ec_pub.esc_contacts_tbl_type, a0 out JTF_NUMBER_TABLE
283 , a1 out JTF_NUMBER_TABLE
284 , a2 out JTF_NUMBER_TABLE
285 , a3 out JTF_VARCHAR2_TABLE_100
286 , a4 out JTF_VARCHAR2_TABLE_100
287 , a5 out JTF_VARCHAR2_TABLE_100
288 , a6 out JTF_VARCHAR2_TABLE_100
289 , a7 out JTF_VARCHAR2_TABLE_200
290 , a8 out JTF_VARCHAR2_TABLE_200
291 , a9 out JTF_VARCHAR2_TABLE_200
292 , a10 out JTF_VARCHAR2_TABLE_200
293 , a11 out JTF_VARCHAR2_TABLE_200
294 , a12 out JTF_VARCHAR2_TABLE_200
295 , a13 out JTF_VARCHAR2_TABLE_200
296 , a14 out JTF_VARCHAR2_TABLE_200
297 , a15 out JTF_VARCHAR2_TABLE_200
298 , a16 out JTF_VARCHAR2_TABLE_200
299 , a17 out JTF_VARCHAR2_TABLE_200
300 , a18 out JTF_VARCHAR2_TABLE_200
301 , a19 out JTF_VARCHAR2_TABLE_200
302 , a20 out JTF_VARCHAR2_TABLE_200
303 , a21 out JTF_VARCHAR2_TABLE_200
304 , a22 out JTF_VARCHAR2_TABLE_200
305 ) as
306 ddindx binary_integer; indx binary_integer;
307 begin
308 if t is null or t.count = 0 then
309 a0 := JTF_NUMBER_TABLE();
310 a1 := JTF_NUMBER_TABLE();
311 a2 := JTF_NUMBER_TABLE();
312 a3 := JTF_VARCHAR2_TABLE_100();
313 a4 := JTF_VARCHAR2_TABLE_100();
314 a5 := JTF_VARCHAR2_TABLE_100();
315 a6 := JTF_VARCHAR2_TABLE_100();
316 a7 := JTF_VARCHAR2_TABLE_200();
317 a8 := JTF_VARCHAR2_TABLE_200();
318 a9 := JTF_VARCHAR2_TABLE_200();
319 a10 := JTF_VARCHAR2_TABLE_200();
320 a11 := JTF_VARCHAR2_TABLE_200();
321 a12 := JTF_VARCHAR2_TABLE_200();
322 a13 := JTF_VARCHAR2_TABLE_200();
323 a14 := JTF_VARCHAR2_TABLE_200();
324 a15 := JTF_VARCHAR2_TABLE_200();
325 a16 := JTF_VARCHAR2_TABLE_200();
326 a17 := JTF_VARCHAR2_TABLE_200();
327 a18 := JTF_VARCHAR2_TABLE_200();
328 a19 := JTF_VARCHAR2_TABLE_200();
329 a20 := JTF_VARCHAR2_TABLE_200();
330 a21 := JTF_VARCHAR2_TABLE_200();
331 a22 := JTF_VARCHAR2_TABLE_200();
332 else
333 a0 := JTF_NUMBER_TABLE();
334 a1 := JTF_NUMBER_TABLE();
335 a2 := JTF_NUMBER_TABLE();
336 a3 := JTF_VARCHAR2_TABLE_100();
337 a4 := JTF_VARCHAR2_TABLE_100();
338 a5 := JTF_VARCHAR2_TABLE_100();
339 a6 := JTF_VARCHAR2_TABLE_100();
340 a7 := JTF_VARCHAR2_TABLE_200();
341 a8 := JTF_VARCHAR2_TABLE_200();
342 a9 := JTF_VARCHAR2_TABLE_200();
343 a10 := JTF_VARCHAR2_TABLE_200();
344 a11 := JTF_VARCHAR2_TABLE_200();
345 a12 := JTF_VARCHAR2_TABLE_200();
346 a13 := JTF_VARCHAR2_TABLE_200();
347 a14 := JTF_VARCHAR2_TABLE_200();
348 a15 := JTF_VARCHAR2_TABLE_200();
349 a16 := JTF_VARCHAR2_TABLE_200();
350 a17 := JTF_VARCHAR2_TABLE_200();
351 a18 := JTF_VARCHAR2_TABLE_200();
352 a19 := JTF_VARCHAR2_TABLE_200();
353 a20 := JTF_VARCHAR2_TABLE_200();
354 a21 := JTF_VARCHAR2_TABLE_200();
355 a22 := JTF_VARCHAR2_TABLE_200();
356 if t.count > 0 then
357 a0.extend(t.count);
358 a1.extend(t.count);
359 a2.extend(t.count);
360 a3.extend(t.count);
361 a4.extend(t.count);
362 a5.extend(t.count);
363 a6.extend(t.count);
364 a7.extend(t.count);
365 a8.extend(t.count);
366 a9.extend(t.count);
367 a10.extend(t.count);
368 a11.extend(t.count);
369 a12.extend(t.count);
370 a13.extend(t.count);
371 a14.extend(t.count);
372 a15.extend(t.count);
373 a16.extend(t.count);
374 a17.extend(t.count);
375 a18.extend(t.count);
376 a19.extend(t.count);
377 a20.extend(t.count);
378 a21.extend(t.count);
379 a22.extend(t.count);
380 ddindx := t.first;
381 indx := 1;
382 while true loop
383 a0(indx) := rosetta_g_miss_num_map(t(ddindx).contact_id);
384 a1(indx) := rosetta_g_miss_num_map(t(ddindx).task_contact_id);
385 a2(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
386 a3(indx) := t(ddindx).contact_type_code;
387 a4(indx) := t(ddindx).escalation_notify_flag;
388 a5(indx) := t(ddindx).escalation_requester_flag;
389 a6(indx) := t(ddindx).action_code;
390 a7(indx) := t(ddindx).attribute1;
391 a8(indx) := t(ddindx).attribute2;
392 a9(indx) := t(ddindx).attribute3;
393 a10(indx) := t(ddindx).attribute4;
394 a11(indx) := t(ddindx).attribute5;
395 a12(indx) := t(ddindx).attribute6;
396 a13(indx) := t(ddindx).attribute7;
397 a14(indx) := t(ddindx).attribute8;
398 a15(indx) := t(ddindx).attribute9;
399 a16(indx) := t(ddindx).attribute10;
400 a17(indx) := t(ddindx).attribute11;
401 a18(indx) := t(ddindx).attribute12;
402 a19(indx) := t(ddindx).attribute13;
403 a20(indx) := t(ddindx).attribute14;
404 a21(indx) := t(ddindx).attribute15;
405 a22(indx) := t(ddindx).attribute_category;
406 indx := indx+1;
407 if t.last =ddindx
408 then exit;
409 end if;
410 ddindx := t.next(ddindx);
411 end loop;
412 end if;
413 end if;
414 end rosetta_table_copy_out_p9;
415
416 procedure rosetta_table_copy_in_p11(t out jtf_ec_pub.esc_cont_points_tbl_type, a0 JTF_NUMBER_TABLE
417 , a1 JTF_VARCHAR2_TABLE_100
418 , a2 JTF_NUMBER_TABLE
419 , a3 JTF_NUMBER_TABLE
420 , a4 JTF_NUMBER_TABLE
421 , a5 JTF_VARCHAR2_TABLE_100
422 , a6 JTF_VARCHAR2_TABLE_200
423 , a7 JTF_VARCHAR2_TABLE_200
424 , a8 JTF_VARCHAR2_TABLE_200
425 , a9 JTF_VARCHAR2_TABLE_200
426 , a10 JTF_VARCHAR2_TABLE_200
427 , a11 JTF_VARCHAR2_TABLE_200
428 , a12 JTF_VARCHAR2_TABLE_200
429 , a13 JTF_VARCHAR2_TABLE_200
430 , a14 JTF_VARCHAR2_TABLE_200
431 , a15 JTF_VARCHAR2_TABLE_200
432 , a16 JTF_VARCHAR2_TABLE_200
433 , a17 JTF_VARCHAR2_TABLE_200
434 , a18 JTF_VARCHAR2_TABLE_200
435 , a19 JTF_VARCHAR2_TABLE_200
436 , a20 JTF_VARCHAR2_TABLE_200
437 , a21 JTF_VARCHAR2_TABLE_200
438 ) as
439 ddindx binary_integer; indx binary_integer;
440 begin
441 if a0 is not null and a0.count > 0 then
442 if a0.count > 0 then
443 indx := a0.first;
444 ddindx := 1;
445 while true loop
446 t(ddindx).contact_id := rosetta_g_miss_num_map(a0(indx));
447 t(ddindx).contact_type_code := a1(indx);
448 t(ddindx).contact_point_id := rosetta_g_miss_num_map(a2(indx));
449 t(ddindx).task_phone_id := rosetta_g_miss_num_map(a3(indx));
450 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
451 t(ddindx).action_code := a5(indx);
452 t(ddindx).attribute1 := a6(indx);
453 t(ddindx).attribute2 := a7(indx);
454 t(ddindx).attribute3 := a8(indx);
455 t(ddindx).attribute4 := a9(indx);
456 t(ddindx).attribute5 := a10(indx);
457 t(ddindx).attribute6 := a11(indx);
458 t(ddindx).attribute7 := a12(indx);
459 t(ddindx).attribute8 := a13(indx);
460 t(ddindx).attribute9 := a14(indx);
461 t(ddindx).attribute10 := a15(indx);
462 t(ddindx).attribute11 := a16(indx);
463 t(ddindx).attribute12 := a17(indx);
464 t(ddindx).attribute13 := a18(indx);
465 t(ddindx).attribute14 := a19(indx);
466 t(ddindx).attribute15 := a20(indx);
467 t(ddindx).attribute_category := a21(indx);
468 ddindx := ddindx+1;
469 if a0.last =indx
470 then exit;
471 end if;
472 indx := a0.next(indx);
473 end loop;
474 end if;
475 end if;
476 end rosetta_table_copy_in_p11;
477 procedure rosetta_table_copy_out_p11(t jtf_ec_pub.esc_cont_points_tbl_type, a0 out JTF_NUMBER_TABLE
478 , a1 out JTF_VARCHAR2_TABLE_100
479 , a2 out JTF_NUMBER_TABLE
480 , a3 out JTF_NUMBER_TABLE
481 , a4 out JTF_NUMBER_TABLE
482 , a5 out JTF_VARCHAR2_TABLE_100
483 , a6 out JTF_VARCHAR2_TABLE_200
484 , a7 out JTF_VARCHAR2_TABLE_200
485 , a8 out JTF_VARCHAR2_TABLE_200
486 , a9 out JTF_VARCHAR2_TABLE_200
487 , a10 out JTF_VARCHAR2_TABLE_200
488 , a11 out JTF_VARCHAR2_TABLE_200
489 , a12 out JTF_VARCHAR2_TABLE_200
490 , a13 out JTF_VARCHAR2_TABLE_200
491 , a14 out JTF_VARCHAR2_TABLE_200
492 , a15 out JTF_VARCHAR2_TABLE_200
493 , a16 out JTF_VARCHAR2_TABLE_200
494 , a17 out JTF_VARCHAR2_TABLE_200
495 , a18 out JTF_VARCHAR2_TABLE_200
496 , a19 out JTF_VARCHAR2_TABLE_200
497 , a20 out JTF_VARCHAR2_TABLE_200
498 , a21 out JTF_VARCHAR2_TABLE_200
499 ) as
500 ddindx binary_integer; indx binary_integer;
501 begin
502 if t is null or t.count = 0 then
503 a0 := JTF_NUMBER_TABLE();
504 a1 := JTF_VARCHAR2_TABLE_100();
505 a2 := JTF_NUMBER_TABLE();
506 a3 := JTF_NUMBER_TABLE();
507 a4 := JTF_NUMBER_TABLE();
508 a5 := JTF_VARCHAR2_TABLE_100();
509 a6 := JTF_VARCHAR2_TABLE_200();
510 a7 := JTF_VARCHAR2_TABLE_200();
511 a8 := JTF_VARCHAR2_TABLE_200();
512 a9 := JTF_VARCHAR2_TABLE_200();
513 a10 := JTF_VARCHAR2_TABLE_200();
514 a11 := JTF_VARCHAR2_TABLE_200();
515 a12 := JTF_VARCHAR2_TABLE_200();
516 a13 := JTF_VARCHAR2_TABLE_200();
517 a14 := JTF_VARCHAR2_TABLE_200();
518 a15 := JTF_VARCHAR2_TABLE_200();
519 a16 := JTF_VARCHAR2_TABLE_200();
520 a17 := JTF_VARCHAR2_TABLE_200();
521 a18 := JTF_VARCHAR2_TABLE_200();
522 a19 := JTF_VARCHAR2_TABLE_200();
523 a20 := JTF_VARCHAR2_TABLE_200();
524 a21 := JTF_VARCHAR2_TABLE_200();
525 else
526 a0 := JTF_NUMBER_TABLE();
527 a1 := JTF_VARCHAR2_TABLE_100();
528 a2 := JTF_NUMBER_TABLE();
529 a3 := JTF_NUMBER_TABLE();
530 a4 := JTF_NUMBER_TABLE();
531 a5 := JTF_VARCHAR2_TABLE_100();
532 a6 := JTF_VARCHAR2_TABLE_200();
533 a7 := JTF_VARCHAR2_TABLE_200();
534 a8 := JTF_VARCHAR2_TABLE_200();
535 a9 := JTF_VARCHAR2_TABLE_200();
536 a10 := JTF_VARCHAR2_TABLE_200();
537 a11 := JTF_VARCHAR2_TABLE_200();
538 a12 := JTF_VARCHAR2_TABLE_200();
539 a13 := JTF_VARCHAR2_TABLE_200();
540 a14 := JTF_VARCHAR2_TABLE_200();
541 a15 := JTF_VARCHAR2_TABLE_200();
542 a16 := JTF_VARCHAR2_TABLE_200();
543 a17 := JTF_VARCHAR2_TABLE_200();
544 a18 := JTF_VARCHAR2_TABLE_200();
545 a19 := JTF_VARCHAR2_TABLE_200();
546 a20 := JTF_VARCHAR2_TABLE_200();
547 a21 := JTF_VARCHAR2_TABLE_200();
548 if t.count > 0 then
549 a0.extend(t.count);
550 a1.extend(t.count);
551 a2.extend(t.count);
552 a3.extend(t.count);
553 a4.extend(t.count);
554 a5.extend(t.count);
555 a6.extend(t.count);
556 a7.extend(t.count);
557 a8.extend(t.count);
558 a9.extend(t.count);
559 a10.extend(t.count);
560 a11.extend(t.count);
561 a12.extend(t.count);
562 a13.extend(t.count);
563 a14.extend(t.count);
564 a15.extend(t.count);
565 a16.extend(t.count);
566 a17.extend(t.count);
567 a18.extend(t.count);
568 a19.extend(t.count);
569 a20.extend(t.count);
570 a21.extend(t.count);
571 ddindx := t.first;
572 indx := 1;
573 while true loop
574 a0(indx) := rosetta_g_miss_num_map(t(ddindx).contact_id);
575 a1(indx) := t(ddindx).contact_type_code;
576 a2(indx) := rosetta_g_miss_num_map(t(ddindx).contact_point_id);
577 a3(indx) := rosetta_g_miss_num_map(t(ddindx).task_phone_id);
578 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
579 a5(indx) := t(ddindx).action_code;
580 a6(indx) := t(ddindx).attribute1;
581 a7(indx) := t(ddindx).attribute2;
582 a8(indx) := t(ddindx).attribute3;
583 a9(indx) := t(ddindx).attribute4;
584 a10(indx) := t(ddindx).attribute5;
585 a11(indx) := t(ddindx).attribute6;
586 a12(indx) := t(ddindx).attribute7;
587 a13(indx) := t(ddindx).attribute8;
588 a14(indx) := t(ddindx).attribute9;
589 a15(indx) := t(ddindx).attribute10;
590 a16(indx) := t(ddindx).attribute11;
591 a17(indx) := t(ddindx).attribute12;
592 a18(indx) := t(ddindx).attribute13;
593 a19(indx) := t(ddindx).attribute14;
594 a20(indx) := t(ddindx).attribute15;
595 a21(indx) := t(ddindx).attribute_category;
596 indx := indx+1;
597 if t.last =ddindx
598 then exit;
599 end if;
600 ddindx := t.next(ddindx);
601 end loop;
602 end if;
603 end if;
604 end rosetta_table_copy_out_p11;
605
606 procedure rosetta_table_copy_in_p13(t out jtf_ec_pub.notes_tbl_type, a0 JTF_VARCHAR2_TABLE_100
607 , a1 JTF_NUMBER_TABLE
608 , a2 JTF_VARCHAR2_TABLE_2000
609 , a3 JTF_VARCHAR2_TABLE_32767
610 , a4 JTF_VARCHAR2_TABLE_300
611 , a5 JTF_VARCHAR2_TABLE_100
612 , a6 JTF_VARCHAR2_TABLE_300
613 , a7 JTF_NUMBER_TABLE
614 , a8 JTF_VARCHAR2_TABLE_300
615 , a9 JTF_NUMBER_TABLE
616 , a10 JTF_VARCHAR2_TABLE_300
617 , a11 JTF_NUMBER_TABLE
618 ) as
619 ddindx binary_integer; indx binary_integer;
620 begin
621 if a0 is not null and a0.count > 0 then
622 if a0.count > 0 then
623 indx := a0.first;
624 ddindx := 1;
625 while true loop
626 t(ddindx).action_code := a0(indx);
627 t(ddindx).note_id := rosetta_g_miss_num_map(a1(indx));
628 t(ddindx).note := a2(indx);
629 t(ddindx).note_detail := a3(indx);
630 t(ddindx).note_type := a4(indx);
631 t(ddindx).note_status := a5(indx);
632 t(ddindx).note_context_type_01 := a6(indx);
633 t(ddindx).note_context_type_id_01 := rosetta_g_miss_num_map(a7(indx));
634 t(ddindx).note_context_type_02 := a8(indx);
635 t(ddindx).note_context_type_id_02 := rosetta_g_miss_num_map(a9(indx));
636 t(ddindx).note_context_type_03 := a10(indx);
637 t(ddindx).note_context_type_id_03 := rosetta_g_miss_num_map(a11(indx));
638 ddindx := ddindx+1;
639 if a0.last =indx
640 then exit;
641 end if;
642 indx := a0.next(indx);
643 end loop;
644 end if;
645 end if;
646 end rosetta_table_copy_in_p13;
647 procedure rosetta_table_copy_out_p13(t jtf_ec_pub.notes_tbl_type, a0 out JTF_VARCHAR2_TABLE_100
648 , a1 out JTF_NUMBER_TABLE
649 , a2 out JTF_VARCHAR2_TABLE_2000
650 , a3 out JTF_VARCHAR2_TABLE_32767
651 , a4 out JTF_VARCHAR2_TABLE_300
652 , a5 out JTF_VARCHAR2_TABLE_100
653 , a6 out JTF_VARCHAR2_TABLE_300
654 , a7 out JTF_NUMBER_TABLE
655 , a8 out JTF_VARCHAR2_TABLE_300
656 , a9 out JTF_NUMBER_TABLE
657 , a10 out JTF_VARCHAR2_TABLE_300
658 , a11 out JTF_NUMBER_TABLE
659 ) as
660 ddindx binary_integer; indx binary_integer;
661 begin
662 if t is null or t.count = 0 then
663 a0 := JTF_VARCHAR2_TABLE_100();
664 a1 := JTF_NUMBER_TABLE();
665 a2 := JTF_VARCHAR2_TABLE_2000();
666 a3 := JTF_VARCHAR2_TABLE_32767();
667 a4 := JTF_VARCHAR2_TABLE_300();
668 a5 := JTF_VARCHAR2_TABLE_100();
669 a6 := JTF_VARCHAR2_TABLE_300();
670 a7 := JTF_NUMBER_TABLE();
671 a8 := JTF_VARCHAR2_TABLE_300();
672 a9 := JTF_NUMBER_TABLE();
673 a10 := JTF_VARCHAR2_TABLE_300();
674 a11 := JTF_NUMBER_TABLE();
675 else
676 a0 := JTF_VARCHAR2_TABLE_100();
677 a1 := JTF_NUMBER_TABLE();
678 a2 := JTF_VARCHAR2_TABLE_2000();
679 a3 := JTF_VARCHAR2_TABLE_32767();
680 a4 := JTF_VARCHAR2_TABLE_300();
681 a5 := JTF_VARCHAR2_TABLE_100();
682 a6 := JTF_VARCHAR2_TABLE_300();
683 a7 := JTF_NUMBER_TABLE();
684 a8 := JTF_VARCHAR2_TABLE_300();
685 a9 := JTF_NUMBER_TABLE();
686 a10 := JTF_VARCHAR2_TABLE_300();
687 a11 := JTF_NUMBER_TABLE();
688 if t.count > 0 then
689 a0.extend(t.count);
690 a1.extend(t.count);
691 a2.extend(t.count);
692 a3.extend(t.count);
693 a4.extend(t.count);
694 a5.extend(t.count);
695 a6.extend(t.count);
696 a7.extend(t.count);
697 a8.extend(t.count);
698 a9.extend(t.count);
699 a10.extend(t.count);
700 a11.extend(t.count);
701 ddindx := t.first;
702 indx := 1;
703 while true loop
704 a0(indx) := t(ddindx).action_code;
705 a1(indx) := rosetta_g_miss_num_map(t(ddindx).note_id);
706 a2(indx) := t(ddindx).note;
707 a3(indx) := t(ddindx).note_detail;
708 a4(indx) := t(ddindx).note_type;
709 a5(indx) := t(ddindx).note_status;
710 a6(indx) := t(ddindx).note_context_type_01;
711 a7(indx) := rosetta_g_miss_num_map(t(ddindx).note_context_type_id_01);
712 a8(indx) := t(ddindx).note_context_type_02;
713 a9(indx) := rosetta_g_miss_num_map(t(ddindx).note_context_type_id_02);
714 a10(indx) := t(ddindx).note_context_type_03;
715 a11(indx) := rosetta_g_miss_num_map(t(ddindx).note_context_type_id_03);
716 indx := indx+1;
717 if t.last =ddindx
718 then exit;
719 end if;
720 ddindx := t.next(ddindx);
721 end loop;
722 end if;
723 end if;
724 end rosetta_table_copy_out_p13;
725
726 procedure create_escalation(p_api_version NUMBER
727 , p_init_msg_list VARCHAR2
728 , p_commit VARCHAR2
729 , x_return_status out VARCHAR2
730 , x_msg_count out NUMBER
731 , x_msg_data out VARCHAR2
732 , p_resp_appl_id NUMBER
733 , p_resp_id NUMBER
734 , p_user_id NUMBER
735 , p_login_id NUMBER
736 , p_esc_id NUMBER
737 , p11_a0 VARCHAR2
738 , p11_a1 VARCHAR2
739 , p11_a2 VARCHAR2
740 , p11_a3 NUMBER
741 , p11_a4 DATE
742 , p11_a5 NUMBER
743 , p11_a6 NUMBER
744 , p11_a7 VARCHAR2
745 , p11_a8 NUMBER
746 , p11_a9 VARCHAR2
747 , p11_a10 NUMBER
748 , p11_a11 VARCHAR2
749 , p11_a12 DATE
750 , p11_a13 VARCHAR2
751 , p11_a14 VARCHAR2
752 , p11_a15 VARCHAR2
753 , p11_a16 VARCHAR2
754 , p11_a17 VARCHAR2
755 , p11_a18 VARCHAR2
756 , p11_a19 VARCHAR2
757 , p11_a20 VARCHAR2
758 , p11_a21 VARCHAR2
759 , p11_a22 VARCHAR2
760 , p11_a23 VARCHAR2
761 , p11_a24 VARCHAR2
762 , p11_a25 VARCHAR2
763 , p11_a26 VARCHAR2
764 , p11_a27 VARCHAR2
765 , p11_a28 VARCHAR2
766 , p11_a29 VARCHAR2
767 , p11_a30 VARCHAR2
768 , p12_a0 JTF_NUMBER_TABLE
769 , p12_a1 JTF_VARCHAR2_TABLE_100
770 , p12_a2 JTF_VARCHAR2_TABLE_100
771 , p12_a3 JTF_NUMBER_TABLE
772 , p12_a4 JTF_VARCHAR2_TABLE_100
773 , p12_a5 JTF_NUMBER_TABLE
774 , p12_a6 JTF_VARCHAR2_TABLE_100
775 , p12_a7 JTF_VARCHAR2_TABLE_200
776 , p12_a8 JTF_VARCHAR2_TABLE_200
777 , p12_a9 JTF_VARCHAR2_TABLE_200
778 , p12_a10 JTF_VARCHAR2_TABLE_200
779 , p12_a11 JTF_VARCHAR2_TABLE_200
780 , p12_a12 JTF_VARCHAR2_TABLE_200
781 , p12_a13 JTF_VARCHAR2_TABLE_200
782 , p12_a14 JTF_VARCHAR2_TABLE_200
783 , p12_a15 JTF_VARCHAR2_TABLE_200
784 , p12_a16 JTF_VARCHAR2_TABLE_200
785 , p12_a17 JTF_VARCHAR2_TABLE_200
786 , p12_a18 JTF_VARCHAR2_TABLE_200
787 , p12_a19 JTF_VARCHAR2_TABLE_200
788 , p12_a20 JTF_VARCHAR2_TABLE_200
789 , p12_a21 JTF_VARCHAR2_TABLE_200
790 , p12_a22 JTF_VARCHAR2_TABLE_200
791 , p13_a0 JTF_NUMBER_TABLE
792 , p13_a1 JTF_NUMBER_TABLE
793 , p13_a2 JTF_NUMBER_TABLE
794 , p13_a3 JTF_VARCHAR2_TABLE_100
795 , p13_a4 JTF_VARCHAR2_TABLE_100
796 , p13_a5 JTF_VARCHAR2_TABLE_100
797 , p13_a6 JTF_VARCHAR2_TABLE_100
798 , p13_a7 JTF_VARCHAR2_TABLE_200
799 , p13_a8 JTF_VARCHAR2_TABLE_200
800 , p13_a9 JTF_VARCHAR2_TABLE_200
801 , p13_a10 JTF_VARCHAR2_TABLE_200
802 , p13_a11 JTF_VARCHAR2_TABLE_200
803 , p13_a12 JTF_VARCHAR2_TABLE_200
804 , p13_a13 JTF_VARCHAR2_TABLE_200
805 , p13_a14 JTF_VARCHAR2_TABLE_200
806 , p13_a15 JTF_VARCHAR2_TABLE_200
807 , p13_a16 JTF_VARCHAR2_TABLE_200
808 , p13_a17 JTF_VARCHAR2_TABLE_200
809 , p13_a18 JTF_VARCHAR2_TABLE_200
810 , p13_a19 JTF_VARCHAR2_TABLE_200
811 , p13_a20 JTF_VARCHAR2_TABLE_200
812 , p13_a21 JTF_VARCHAR2_TABLE_200
813 , p13_a22 JTF_VARCHAR2_TABLE_200
814 , p14_a0 JTF_NUMBER_TABLE
815 , p14_a1 JTF_VARCHAR2_TABLE_100
816 , p14_a2 JTF_NUMBER_TABLE
817 , p14_a3 JTF_NUMBER_TABLE
818 , p14_a4 JTF_NUMBER_TABLE
819 , p14_a5 JTF_VARCHAR2_TABLE_100
820 , p14_a6 JTF_VARCHAR2_TABLE_200
821 , p14_a7 JTF_VARCHAR2_TABLE_200
822 , p14_a8 JTF_VARCHAR2_TABLE_200
823 , p14_a9 JTF_VARCHAR2_TABLE_200
824 , p14_a10 JTF_VARCHAR2_TABLE_200
825 , p14_a11 JTF_VARCHAR2_TABLE_200
826 , p14_a12 JTF_VARCHAR2_TABLE_200
827 , p14_a13 JTF_VARCHAR2_TABLE_200
828 , p14_a14 JTF_VARCHAR2_TABLE_200
829 , p14_a15 JTF_VARCHAR2_TABLE_200
830 , p14_a16 JTF_VARCHAR2_TABLE_200
831 , p14_a17 JTF_VARCHAR2_TABLE_200
832 , p14_a18 JTF_VARCHAR2_TABLE_200
833 , p14_a19 JTF_VARCHAR2_TABLE_200
834 , p14_a20 JTF_VARCHAR2_TABLE_200
835 , p14_a21 JTF_VARCHAR2_TABLE_200
836 , p15_a0 JTF_VARCHAR2_TABLE_100
837 , p15_a1 JTF_NUMBER_TABLE
838 , p15_a2 JTF_VARCHAR2_TABLE_2000
839 , p15_a3 JTF_VARCHAR2_TABLE_32767
840 , p15_a4 JTF_VARCHAR2_TABLE_300
841 , p15_a5 JTF_VARCHAR2_TABLE_100
842 , p15_a6 JTF_VARCHAR2_TABLE_300
843 , p15_a7 JTF_NUMBER_TABLE
844 , p15_a8 JTF_VARCHAR2_TABLE_300
845 , p15_a9 JTF_NUMBER_TABLE
846 , p15_a10 JTF_VARCHAR2_TABLE_300
847 , p15_a11 JTF_NUMBER_TABLE
848 , x_esc_id out NUMBER
849 , x_esc_number out NUMBER
850 , x_workflow_process_id out VARCHAR2
851 )
852 as
853 ddp_esc_record jtf_ec_pub.esc_rec_type;
854 ddp_reference_documents jtf_ec_pub.esc_ref_docs_tbl_type;
855 ddp_esc_contacts jtf_ec_pub.esc_contacts_tbl_type;
856 ddp_cont_points jtf_ec_pub.esc_cont_points_tbl_type;
857 ddp_notes jtf_ec_pub.notes_tbl_type;
858 ddindx binary_integer; indx binary_integer;
859 begin
860
861 -- copy data to the local IN or IN-OUT args, if any
862
863
864
865
866
867
868
869
870
871
872
873 ddp_esc_record.esc_name := p11_a0;
874 ddp_esc_record.esc_description := p11_a1;
875 ddp_esc_record.status_name := p11_a2;
876 ddp_esc_record.status_id := rosetta_g_miss_num_map(p11_a3);
877 ddp_esc_record.esc_open_date := rosetta_g_miss_date_in_map(p11_a4);
878 ddp_esc_record.esc_owner_id := rosetta_g_miss_num_map(p11_a5);
879 ddp_esc_record.customer_id := rosetta_g_miss_num_map(p11_a6);
880 ddp_esc_record.customer_number := p11_a7;
881 ddp_esc_record.cust_account_id := rosetta_g_miss_num_map(p11_a8);
882 ddp_esc_record.cust_account_number := p11_a9;
883 ddp_esc_record.cust_address_id := rosetta_g_miss_num_map(p11_a10);
884 ddp_esc_record.cust_address_number := p11_a11;
885 ddp_esc_record.esc_target_date := rosetta_g_miss_date_in_map(p11_a12);
886 ddp_esc_record.reason_code := p11_a13;
887 ddp_esc_record.escalation_level := p11_a14;
888 ddp_esc_record.attribute1 := p11_a15;
889 ddp_esc_record.attribute2 := p11_a16;
890 ddp_esc_record.attribute3 := p11_a17;
891 ddp_esc_record.attribute4 := p11_a18;
892 ddp_esc_record.attribute5 := p11_a19;
893 ddp_esc_record.attribute6 := p11_a20;
894 ddp_esc_record.attribute7 := p11_a21;
895 ddp_esc_record.attribute8 := p11_a22;
896 ddp_esc_record.attribute9 := p11_a23;
897 ddp_esc_record.attribute10 := p11_a24;
898 ddp_esc_record.attribute11 := p11_a25;
899 ddp_esc_record.attribute12 := p11_a26;
900 ddp_esc_record.attribute13 := p11_a27;
901 ddp_esc_record.attribute14 := p11_a28;
902 ddp_esc_record.attribute15 := p11_a29;
903 ddp_esc_record.attribute_category := p11_a30;
904
905 jtf_ec_pub_w.rosetta_table_copy_in_p7(ddp_reference_documents, p12_a0
906 , p12_a1
907 , p12_a2
908 , p12_a3
909 , p12_a4
910 , p12_a5
911 , p12_a6
912 , p12_a7
913 , p12_a8
914 , p12_a9
915 , p12_a10
916 , p12_a11
917 , p12_a12
918 , p12_a13
919 , p12_a14
920 , p12_a15
921 , p12_a16
922 , p12_a17
923 , p12_a18
924 , p12_a19
925 , p12_a20
926 , p12_a21
927 , p12_a22
928 );
929
930 jtf_ec_pub_w.rosetta_table_copy_in_p9(ddp_esc_contacts, p13_a0
931 , p13_a1
932 , p13_a2
933 , p13_a3
934 , p13_a4
935 , p13_a5
936 , p13_a6
937 , p13_a7
938 , p13_a8
939 , p13_a9
940 , p13_a10
941 , p13_a11
942 , p13_a12
943 , p13_a13
944 , p13_a14
945 , p13_a15
946 , p13_a16
947 , p13_a17
948 , p13_a18
949 , p13_a19
950 , p13_a20
951 , p13_a21
952 , p13_a22
953 );
954
955 jtf_ec_pub_w.rosetta_table_copy_in_p11(ddp_cont_points, p14_a0
956 , p14_a1
957 , p14_a2
958 , p14_a3
959 , p14_a4
960 , p14_a5
961 , p14_a6
962 , p14_a7
963 , p14_a8
964 , p14_a9
965 , p14_a10
966 , p14_a11
967 , p14_a12
968 , p14_a13
969 , p14_a14
970 , p14_a15
971 , p14_a16
972 , p14_a17
973 , p14_a18
974 , p14_a19
975 , p14_a20
976 , p14_a21
977 );
978
979 jtf_ec_pub_w.rosetta_table_copy_in_p13(ddp_notes, p15_a0
980 , p15_a1
981 , p15_a2
982 , p15_a3
983 , p15_a4
984 , p15_a5
985 , p15_a6
986 , p15_a7
987 , p15_a8
988 , p15_a9
989 , p15_a10
990 , p15_a11
991 );
992
993
994
995
996 -- here's the delegated call to the old PL/SQL routine
997 jtf_ec_pub.create_escalation(p_api_version,
998 p_init_msg_list,
999 p_commit,
1000 x_return_status,
1001 x_msg_count,
1002 x_msg_data,
1003 p_resp_appl_id,
1004 p_resp_id,
1005 p_user_id,
1006 p_login_id,
1007 p_esc_id,
1008 ddp_esc_record,
1009 ddp_reference_documents,
1010 ddp_esc_contacts,
1011 ddp_cont_points,
1012 ddp_notes,
1013 x_esc_id,
1014 x_esc_number,
1015 x_workflow_process_id);
1016
1017 -- copy data back from the local OUT or IN-OUT args, if any
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036 end;
1037
1038 procedure update_escalation(p_api_version NUMBER
1039 , p_init_msg_list VARCHAR2
1040 , p_commit VARCHAR2
1041 , x_return_status out VARCHAR2
1042 , x_msg_count out NUMBER
1043 , x_msg_data out VARCHAR2
1044 , p_resp_appl_id NUMBER
1045 , p_resp_id NUMBER
1046 , p_user_id NUMBER
1047 , p_login_id NUMBER
1048 , p_esc_id NUMBER
1049 , p_esc_number VARCHAR2
1050 , p_object_version NUMBER
1051 , p13_a0 VARCHAR2
1052 , p13_a1 VARCHAR2
1053 , p13_a2 VARCHAR2
1054 , p13_a3 NUMBER
1055 , p13_a4 DATE
1056 , p13_a5 NUMBER
1057 , p13_a6 NUMBER
1058 , p13_a7 VARCHAR2
1059 , p13_a8 NUMBER
1060 , p13_a9 VARCHAR2
1061 , p13_a10 NUMBER
1062 , p13_a11 VARCHAR2
1063 , p13_a12 DATE
1064 , p13_a13 VARCHAR2
1065 , p13_a14 VARCHAR2
1066 , p13_a15 VARCHAR2
1067 , p13_a16 VARCHAR2
1068 , p13_a17 VARCHAR2
1069 , p13_a18 VARCHAR2
1070 , p13_a19 VARCHAR2
1071 , p13_a20 VARCHAR2
1072 , p13_a21 VARCHAR2
1073 , p13_a22 VARCHAR2
1074 , p13_a23 VARCHAR2
1075 , p13_a24 VARCHAR2
1076 , p13_a25 VARCHAR2
1077 , p13_a26 VARCHAR2
1078 , p13_a27 VARCHAR2
1079 , p13_a28 VARCHAR2
1080 , p13_a29 VARCHAR2
1081 , p13_a30 VARCHAR2
1082 , p14_a0 JTF_NUMBER_TABLE
1083 , p14_a1 JTF_VARCHAR2_TABLE_100
1084 , p14_a2 JTF_VARCHAR2_TABLE_100
1085 , p14_a3 JTF_NUMBER_TABLE
1086 , p14_a4 JTF_VARCHAR2_TABLE_100
1087 , p14_a5 JTF_NUMBER_TABLE
1088 , p14_a6 JTF_VARCHAR2_TABLE_100
1089 , p14_a7 JTF_VARCHAR2_TABLE_200
1090 , p14_a8 JTF_VARCHAR2_TABLE_200
1091 , p14_a9 JTF_VARCHAR2_TABLE_200
1092 , p14_a10 JTF_VARCHAR2_TABLE_200
1093 , p14_a11 JTF_VARCHAR2_TABLE_200
1094 , p14_a12 JTF_VARCHAR2_TABLE_200
1095 , p14_a13 JTF_VARCHAR2_TABLE_200
1096 , p14_a14 JTF_VARCHAR2_TABLE_200
1097 , p14_a15 JTF_VARCHAR2_TABLE_200
1098 , p14_a16 JTF_VARCHAR2_TABLE_200
1099 , p14_a17 JTF_VARCHAR2_TABLE_200
1100 , p14_a18 JTF_VARCHAR2_TABLE_200
1101 , p14_a19 JTF_VARCHAR2_TABLE_200
1102 , p14_a20 JTF_VARCHAR2_TABLE_200
1103 , p14_a21 JTF_VARCHAR2_TABLE_200
1104 , p14_a22 JTF_VARCHAR2_TABLE_200
1105 , p15_a0 JTF_NUMBER_TABLE
1106 , p15_a1 JTF_NUMBER_TABLE
1107 , p15_a2 JTF_NUMBER_TABLE
1108 , p15_a3 JTF_VARCHAR2_TABLE_100
1109 , p15_a4 JTF_VARCHAR2_TABLE_100
1110 , p15_a5 JTF_VARCHAR2_TABLE_100
1111 , p15_a6 JTF_VARCHAR2_TABLE_100
1112 , p15_a7 JTF_VARCHAR2_TABLE_200
1113 , p15_a8 JTF_VARCHAR2_TABLE_200
1114 , p15_a9 JTF_VARCHAR2_TABLE_200
1115 , p15_a10 JTF_VARCHAR2_TABLE_200
1116 , p15_a11 JTF_VARCHAR2_TABLE_200
1117 , p15_a12 JTF_VARCHAR2_TABLE_200
1118 , p15_a13 JTF_VARCHAR2_TABLE_200
1119 , p15_a14 JTF_VARCHAR2_TABLE_200
1120 , p15_a15 JTF_VARCHAR2_TABLE_200
1121 , p15_a16 JTF_VARCHAR2_TABLE_200
1122 , p15_a17 JTF_VARCHAR2_TABLE_200
1123 , p15_a18 JTF_VARCHAR2_TABLE_200
1124 , p15_a19 JTF_VARCHAR2_TABLE_200
1125 , p15_a20 JTF_VARCHAR2_TABLE_200
1126 , p15_a21 JTF_VARCHAR2_TABLE_200
1127 , p15_a22 JTF_VARCHAR2_TABLE_200
1128 , p16_a0 JTF_NUMBER_TABLE
1129 , p16_a1 JTF_VARCHAR2_TABLE_100
1130 , p16_a2 JTF_NUMBER_TABLE
1131 , p16_a3 JTF_NUMBER_TABLE
1132 , p16_a4 JTF_NUMBER_TABLE
1133 , p16_a5 JTF_VARCHAR2_TABLE_100
1134 , p16_a6 JTF_VARCHAR2_TABLE_200
1135 , p16_a7 JTF_VARCHAR2_TABLE_200
1136 , p16_a8 JTF_VARCHAR2_TABLE_200
1137 , p16_a9 JTF_VARCHAR2_TABLE_200
1138 , p16_a10 JTF_VARCHAR2_TABLE_200
1139 , p16_a11 JTF_VARCHAR2_TABLE_200
1140 , p16_a12 JTF_VARCHAR2_TABLE_200
1141 , p16_a13 JTF_VARCHAR2_TABLE_200
1142 , p16_a14 JTF_VARCHAR2_TABLE_200
1143 , p16_a15 JTF_VARCHAR2_TABLE_200
1144 , p16_a16 JTF_VARCHAR2_TABLE_200
1145 , p16_a17 JTF_VARCHAR2_TABLE_200
1146 , p16_a18 JTF_VARCHAR2_TABLE_200
1147 , p16_a19 JTF_VARCHAR2_TABLE_200
1148 , p16_a20 JTF_VARCHAR2_TABLE_200
1149 , p16_a21 JTF_VARCHAR2_TABLE_200
1150 , p17_a0 JTF_VARCHAR2_TABLE_100
1151 , p17_a1 JTF_NUMBER_TABLE
1152 , p17_a2 JTF_VARCHAR2_TABLE_2000
1153 , p17_a3 JTF_VARCHAR2_TABLE_32767
1154 , p17_a4 JTF_VARCHAR2_TABLE_300
1155 , p17_a5 JTF_VARCHAR2_TABLE_100
1156 , p17_a6 JTF_VARCHAR2_TABLE_300
1157 , p17_a7 JTF_NUMBER_TABLE
1158 , p17_a8 JTF_VARCHAR2_TABLE_300
1159 , p17_a9 JTF_NUMBER_TABLE
1160 , p17_a10 JTF_VARCHAR2_TABLE_300
1161 , p17_a11 JTF_NUMBER_TABLE
1162 , x_object_version_number out NUMBER
1163 , x_workflow_process_id out VARCHAR2
1164 )
1165 as
1166 ddp_esc_record jtf_ec_pub.esc_rec_type;
1167 ddp_reference_documents jtf_ec_pub.esc_ref_docs_tbl_type;
1168 ddp_esc_contacts jtf_ec_pub.esc_contacts_tbl_type;
1169 ddp_cont_points jtf_ec_pub.esc_cont_points_tbl_type;
1170 ddp_notes jtf_ec_pub.notes_tbl_type;
1171 ddindx binary_integer; indx binary_integer;
1172 begin
1173
1174 -- copy data to the local IN or IN-OUT args, if any
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188 ddp_esc_record.esc_name := p13_a0;
1189 ddp_esc_record.esc_description := p13_a1;
1190 ddp_esc_record.status_name := p13_a2;
1191 ddp_esc_record.status_id := rosetta_g_miss_num_map(p13_a3);
1192 ddp_esc_record.esc_open_date := rosetta_g_miss_date_in_map(p13_a4);
1193 ddp_esc_record.esc_owner_id := rosetta_g_miss_num_map(p13_a5);
1194 ddp_esc_record.customer_id := rosetta_g_miss_num_map(p13_a6);
1195 ddp_esc_record.customer_number := p13_a7;
1196 ddp_esc_record.cust_account_id := rosetta_g_miss_num_map(p13_a8);
1197 ddp_esc_record.cust_account_number := p13_a9;
1198 ddp_esc_record.cust_address_id := rosetta_g_miss_num_map(p13_a10);
1199 ddp_esc_record.cust_address_number := p13_a11;
1200 ddp_esc_record.esc_target_date := rosetta_g_miss_date_in_map(p13_a12);
1201 ddp_esc_record.reason_code := p13_a13;
1202 ddp_esc_record.escalation_level := p13_a14;
1203 ddp_esc_record.attribute1 := p13_a15;
1204 ddp_esc_record.attribute2 := p13_a16;
1205 ddp_esc_record.attribute3 := p13_a17;
1206 ddp_esc_record.attribute4 := p13_a18;
1207 ddp_esc_record.attribute5 := p13_a19;
1208 ddp_esc_record.attribute6 := p13_a20;
1209 ddp_esc_record.attribute7 := p13_a21;
1210 ddp_esc_record.attribute8 := p13_a22;
1211 ddp_esc_record.attribute9 := p13_a23;
1212 ddp_esc_record.attribute10 := p13_a24;
1213 ddp_esc_record.attribute11 := p13_a25;
1214 ddp_esc_record.attribute12 := p13_a26;
1215 ddp_esc_record.attribute13 := p13_a27;
1216 ddp_esc_record.attribute14 := p13_a28;
1217 ddp_esc_record.attribute15 := p13_a29;
1218 ddp_esc_record.attribute_category := p13_a30;
1219
1220 jtf_ec_pub_w.rosetta_table_copy_in_p7(ddp_reference_documents, p14_a0
1221 , p14_a1
1222 , p14_a2
1223 , p14_a3
1224 , p14_a4
1225 , p14_a5
1226 , p14_a6
1227 , p14_a7
1228 , p14_a8
1229 , p14_a9
1230 , p14_a10
1231 , p14_a11
1232 , p14_a12
1233 , p14_a13
1234 , p14_a14
1235 , p14_a15
1236 , p14_a16
1237 , p14_a17
1238 , p14_a18
1239 , p14_a19
1240 , p14_a20
1241 , p14_a21
1242 , p14_a22
1243 );
1244
1245 jtf_ec_pub_w.rosetta_table_copy_in_p9(ddp_esc_contacts, p15_a0
1246 , p15_a1
1247 , p15_a2
1248 , p15_a3
1249 , p15_a4
1250 , p15_a5
1251 , p15_a6
1252 , p15_a7
1253 , p15_a8
1254 , p15_a9
1255 , p15_a10
1256 , p15_a11
1257 , p15_a12
1258 , p15_a13
1259 , p15_a14
1260 , p15_a15
1261 , p15_a16
1262 , p15_a17
1263 , p15_a18
1264 , p15_a19
1265 , p15_a20
1266 , p15_a21
1267 , p15_a22
1268 );
1269
1270 jtf_ec_pub_w.rosetta_table_copy_in_p11(ddp_cont_points, p16_a0
1271 , p16_a1
1272 , p16_a2
1273 , p16_a3
1274 , p16_a4
1275 , p16_a5
1276 , p16_a6
1277 , p16_a7
1278 , p16_a8
1279 , p16_a9
1280 , p16_a10
1281 , p16_a11
1282 , p16_a12
1283 , p16_a13
1284 , p16_a14
1285 , p16_a15
1286 , p16_a16
1287 , p16_a17
1288 , p16_a18
1289 , p16_a19
1290 , p16_a20
1291 , p16_a21
1292 );
1293
1294 jtf_ec_pub_w.rosetta_table_copy_in_p13(ddp_notes, p17_a0
1295 , p17_a1
1296 , p17_a2
1297 , p17_a3
1298 , p17_a4
1299 , p17_a5
1300 , p17_a6
1301 , p17_a7
1302 , p17_a8
1303 , p17_a9
1304 , p17_a10
1305 , p17_a11
1306 );
1307
1308
1309
1310 -- here's the delegated call to the old PL/SQL routine
1311 jtf_ec_pub.update_escalation(p_api_version,
1312 p_init_msg_list,
1313 p_commit,
1314 x_return_status,
1315 x_msg_count,
1316 x_msg_data,
1317 p_resp_appl_id,
1318 p_resp_id,
1319 p_user_id,
1320 p_login_id,
1321 p_esc_id,
1322 p_esc_number,
1323 p_object_version,
1324 ddp_esc_record,
1325 ddp_reference_documents,
1326 ddp_esc_contacts,
1327 ddp_cont_points,
1328 ddp_notes,
1329 x_object_version_number,
1330 x_workflow_process_id);
1331
1332 -- copy data back from the local OUT or IN-OUT args, if any
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352 end;
1353
1354 end jtf_ec_pub_w;