[Home] [Help]
PACKAGE BODY: APPS.AMV_MYCHANNEL_PVT_W
Source
1 package body amv_mychannel_pvt_w as
2 /* $Header: amvwmycb.pls 120.2 2005/06/30 08:22 appldev 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 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p0(t out nocopy amv_mychannel_pvt.amv_number_varray_type, a0 JTF_NUMBER_TABLE) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is null then
26 t := null;
27 elsif a0.count = 0 then
28 t := amv_mychannel_pvt.amv_number_varray_type();
29 else
30 if a0.count > 0 then
31 t := amv_mychannel_pvt.amv_number_varray_type();
32 t.extend(a0.count);
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p0;
46 procedure rosetta_table_copy_out_p0(t amv_mychannel_pvt.amv_number_varray_type, a0 out nocopy JTF_NUMBER_TABLE) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if t is null then
50 a0 := null;
51 elsif t.count = 0 then
52 a0 := JTF_NUMBER_TABLE();
53 else
54 a0 := JTF_NUMBER_TABLE();
55 if t.count > 0 then
56 a0.extend(t.count);
57 ddindx := t.first;
58 indx := 1;
59 while true loop
60 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
61 indx := indx+1;
62 if t.last =ddindx
63 then exit;
64 end if;
65 ddindx := t.next(ddindx);
66 end loop;
67 end if;
68 end if;
69 end rosetta_table_copy_out_p0;
70
71 procedure rosetta_table_copy_in_p4(t out nocopy amv_mychannel_pvt.amv_cat_hierarchy_varray_type, a0 JTF_NUMBER_TABLE
72 , a1 JTF_NUMBER_TABLE
73 , a2 JTF_VARCHAR2_TABLE_300
74 ) as
75 ddindx binary_integer; indx binary_integer;
76 begin
77 if a0 is not null and a0.count=0 then
78 t := amv_mychannel_pvt.amv_cat_hierarchy_varray_type();
79 elsif a0 is not null and a0.count > 0 then
80 if a0.count > 0 then
81 t := amv_mychannel_pvt.amv_cat_hierarchy_varray_type();
82 t.extend(a0.count);
83 indx := a0.first;
84 ddindx := 1;
85 while true loop
86 t(ddindx).hierarchy_level := rosetta_g_miss_num_map(a0(indx));
87 t(ddindx).id := rosetta_g_miss_num_map(a1(indx));
88 t(ddindx).name := a2(indx);
89 ddindx := ddindx+1;
90 if a0.last =indx
91 then exit;
92 end if;
93 indx := a0.next(indx);
94 end loop;
95 end if;
96 end if;
97 end rosetta_table_copy_in_p4;
98 procedure rosetta_table_copy_out_p4(t amv_mychannel_pvt.amv_cat_hierarchy_varray_type, a0 out nocopy JTF_NUMBER_TABLE
99 , a1 out nocopy JTF_NUMBER_TABLE
100 , a2 out nocopy JTF_VARCHAR2_TABLE_300
101 ) as
102 ddindx binary_integer; indx binary_integer;
103 begin
104 if t is null then
105 a0 := null;
106 a1 := null;
107 a2 := null;
108 elsif t.count = 0 then
109 a0 := JTF_NUMBER_TABLE();
110 a1 := JTF_NUMBER_TABLE();
111 a2 := JTF_VARCHAR2_TABLE_300();
112 else
113 a0 := JTF_NUMBER_TABLE();
114 a1 := JTF_NUMBER_TABLE();
115 a2 := JTF_VARCHAR2_TABLE_300();
116 if t.count > 0 then
117 a0.extend(t.count);
118 a1.extend(t.count);
119 a2.extend(t.count);
120 ddindx := t.first;
121 indx := 1;
122 while true loop
123 a0(indx) := rosetta_g_miss_num_map(t(ddindx).hierarchy_level);
124 a1(indx) := rosetta_g_miss_num_map(t(ddindx).id);
125 a2(indx) := t(ddindx).name;
126 indx := indx+1;
127 if t.last =ddindx
128 then exit;
129 end if;
130 ddindx := t.next(ddindx);
131 end loop;
132 end if;
133 end if;
134 end rosetta_table_copy_out_p4;
135
136 procedure rosetta_table_copy_in_p6(t out nocopy amv_mychannel_pvt.amv_my_channel_varray_type, 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_100
144 , a8 JTF_NUMBER_TABLE
145 , a9 JTF_VARCHAR2_TABLE_100
146 , a10 JTF_VARCHAR2_TABLE_100
147 , a11 JTF_VARCHAR2_TABLE_100
148 ) as
149 ddindx binary_integer; indx binary_integer;
150 begin
151 if a0 is not null and a0.count=0 then
152 t := amv_mychannel_pvt.amv_my_channel_varray_type();
153 elsif a0 is not null and a0.count > 0 then
154 if a0.count > 0 then
155 t := amv_mychannel_pvt.amv_my_channel_varray_type();
156 t.extend(a0.count);
157 indx := a0.first;
158 ddindx := 1;
159 while true loop
160 t(ddindx).my_channel_id := rosetta_g_miss_num_map(a0(indx));
161 t(ddindx).channel_type := a1(indx);
162 t(ddindx).access_level_type := a2(indx);
163 t(ddindx).user_or_group_id := rosetta_g_miss_num_map(a3(indx));
164 t(ddindx).user_or_group_type := a4(indx);
165 t(ddindx).subscribing_to_id := rosetta_g_miss_num_map(a5(indx));
166 t(ddindx).subscribing_to_type := a6(indx);
167 t(ddindx).subscription_reason_type := a7(indx);
168 t(ddindx).order_number := rosetta_g_miss_num_map(a8(indx));
169 t(ddindx).status := a9(indx);
170 t(ddindx).notify_flag := a10(indx);
171 t(ddindx).notification_interval_type := a11(indx);
172 ddindx := ddindx+1;
173 if a0.last =indx
174 then exit;
175 end if;
176 indx := a0.next(indx);
177 end loop;
178 end if;
179 end if;
180 end rosetta_table_copy_in_p6;
181 procedure rosetta_table_copy_out_p6(t amv_mychannel_pvt.amv_my_channel_varray_type, a0 out nocopy JTF_NUMBER_TABLE
182 , a1 out nocopy JTF_VARCHAR2_TABLE_100
183 , a2 out nocopy JTF_VARCHAR2_TABLE_100
184 , a3 out nocopy JTF_NUMBER_TABLE
185 , a4 out nocopy JTF_VARCHAR2_TABLE_100
186 , a5 out nocopy JTF_NUMBER_TABLE
187 , a6 out nocopy JTF_VARCHAR2_TABLE_100
188 , a7 out nocopy JTF_VARCHAR2_TABLE_100
189 , a8 out nocopy JTF_NUMBER_TABLE
190 , a9 out nocopy JTF_VARCHAR2_TABLE_100
191 , a10 out nocopy JTF_VARCHAR2_TABLE_100
192 , a11 out nocopy JTF_VARCHAR2_TABLE_100
193 ) as
194 ddindx binary_integer; indx binary_integer;
195 begin
196 if t is null then
197 a0 := null;
198 a1 := null;
199 a2 := null;
200 a3 := null;
201 a4 := null;
202 a5 := null;
203 a6 := null;
204 a7 := null;
205 a8 := null;
206 a9 := null;
207 a10 := null;
208 a11 := null;
209 elsif t.count = 0 then
210 a0 := JTF_NUMBER_TABLE();
211 a1 := JTF_VARCHAR2_TABLE_100();
212 a2 := JTF_VARCHAR2_TABLE_100();
213 a3 := JTF_NUMBER_TABLE();
214 a4 := JTF_VARCHAR2_TABLE_100();
215 a5 := JTF_NUMBER_TABLE();
216 a6 := JTF_VARCHAR2_TABLE_100();
217 a7 := JTF_VARCHAR2_TABLE_100();
218 a8 := JTF_NUMBER_TABLE();
219 a9 := JTF_VARCHAR2_TABLE_100();
220 a10 := JTF_VARCHAR2_TABLE_100();
221 a11 := JTF_VARCHAR2_TABLE_100();
222 else
223 a0 := JTF_NUMBER_TABLE();
224 a1 := JTF_VARCHAR2_TABLE_100();
225 a2 := JTF_VARCHAR2_TABLE_100();
226 a3 := JTF_NUMBER_TABLE();
227 a4 := JTF_VARCHAR2_TABLE_100();
228 a5 := JTF_NUMBER_TABLE();
229 a6 := JTF_VARCHAR2_TABLE_100();
230 a7 := JTF_VARCHAR2_TABLE_100();
231 a8 := JTF_NUMBER_TABLE();
232 a9 := JTF_VARCHAR2_TABLE_100();
233 a10 := JTF_VARCHAR2_TABLE_100();
234 a11 := JTF_VARCHAR2_TABLE_100();
235 if t.count > 0 then
236 a0.extend(t.count);
237 a1.extend(t.count);
238 a2.extend(t.count);
239 a3.extend(t.count);
240 a4.extend(t.count);
241 a5.extend(t.count);
242 a6.extend(t.count);
243 a7.extend(t.count);
244 a8.extend(t.count);
245 a9.extend(t.count);
246 a10.extend(t.count);
247 a11.extend(t.count);
248 ddindx := t.first;
249 indx := 1;
250 while true loop
251 a0(indx) := rosetta_g_miss_num_map(t(ddindx).my_channel_id);
252 a1(indx) := t(ddindx).channel_type;
253 a2(indx) := t(ddindx).access_level_type;
254 a3(indx) := rosetta_g_miss_num_map(t(ddindx).user_or_group_id);
255 a4(indx) := t(ddindx).user_or_group_type;
256 a5(indx) := rosetta_g_miss_num_map(t(ddindx).subscribing_to_id);
257 a6(indx) := t(ddindx).subscribing_to_type;
258 a7(indx) := t(ddindx).subscription_reason_type;
259 a8(indx) := rosetta_g_miss_num_map(t(ddindx).order_number);
260 a9(indx) := t(ddindx).status;
261 a10(indx) := t(ddindx).notify_flag;
262 a11(indx) := t(ddindx).notification_interval_type;
263 indx := indx+1;
264 if t.last =ddindx
265 then exit;
266 end if;
267 ddindx := t.next(ddindx);
268 end loop;
269 end if;
270 end if;
271 end rosetta_table_copy_out_p6;
272
273 procedure rosetta_table_copy_in_p8(t out nocopy amv_mychannel_pvt.amv_wf_notif_varray_type, a0 JTF_NUMBER_TABLE
274 , a1 JTF_VARCHAR2_TABLE_4000
275 , a2 JTF_DATE_TABLE
276 , a3 JTF_DATE_TABLE
277 , a4 JTF_DATE_TABLE
278 , a5 JTF_VARCHAR2_TABLE_100
279 , a6 JTF_NUMBER_TABLE
280 , a7 JTF_VARCHAR2_TABLE_100
281 ) as
282 ddindx binary_integer; indx binary_integer;
283 begin
284 if a0 is not null and a0.count=0 then
285 t := amv_mychannel_pvt.amv_wf_notif_varray_type();
286 elsif a0 is not null and a0.count > 0 then
287 if a0.count > 0 then
288 t := amv_mychannel_pvt.amv_wf_notif_varray_type();
289 t.extend(a0.count);
290 indx := a0.first;
291 ddindx := 1;
292 while true loop
293 t(ddindx).notification_id := rosetta_g_miss_num_map(a0(indx));
294 t(ddindx).subject := a1(indx);
295 t(ddindx).begin_date := rosetta_g_miss_date_in_map(a2(indx));
296 t(ddindx).end_date := rosetta_g_miss_date_in_map(a3(indx));
297 t(ddindx).due_date := rosetta_g_miss_date_in_map(a4(indx));
298 t(ddindx).status := a5(indx);
299 t(ddindx).priority := rosetta_g_miss_num_map(a6(indx));
300 t(ddindx).type := a7(indx);
301 ddindx := ddindx+1;
302 if a0.last =indx
303 then exit;
304 end if;
305 indx := a0.next(indx);
306 end loop;
307 end if;
308 end if;
309 end rosetta_table_copy_in_p8;
310 procedure rosetta_table_copy_out_p8(t amv_mychannel_pvt.amv_wf_notif_varray_type, a0 out nocopy JTF_NUMBER_TABLE
311 , a1 out nocopy JTF_VARCHAR2_TABLE_4000
312 , a2 out nocopy JTF_DATE_TABLE
313 , a3 out nocopy JTF_DATE_TABLE
314 , a4 out nocopy JTF_DATE_TABLE
315 , a5 out nocopy JTF_VARCHAR2_TABLE_100
316 , a6 out nocopy JTF_NUMBER_TABLE
317 , a7 out nocopy JTF_VARCHAR2_TABLE_100
318 ) as
319 ddindx binary_integer; indx binary_integer;
320 begin
321 if t is null then
322 a0 := null;
323 a1 := null;
324 a2 := null;
325 a3 := null;
326 a4 := null;
327 a5 := null;
328 a6 := null;
329 a7 := null;
330 elsif t.count = 0 then
331 a0 := JTF_NUMBER_TABLE();
332 a1 := JTF_VARCHAR2_TABLE_4000();
333 a2 := JTF_DATE_TABLE();
334 a3 := JTF_DATE_TABLE();
335 a4 := JTF_DATE_TABLE();
336 a5 := JTF_VARCHAR2_TABLE_100();
337 a6 := JTF_NUMBER_TABLE();
338 a7 := JTF_VARCHAR2_TABLE_100();
339 else
340 a0 := JTF_NUMBER_TABLE();
341 a1 := JTF_VARCHAR2_TABLE_4000();
342 a2 := JTF_DATE_TABLE();
343 a3 := JTF_DATE_TABLE();
344 a4 := JTF_DATE_TABLE();
345 a5 := JTF_VARCHAR2_TABLE_100();
346 a6 := JTF_NUMBER_TABLE();
347 a7 := JTF_VARCHAR2_TABLE_100();
348 if t.count > 0 then
349 a0.extend(t.count);
350 a1.extend(t.count);
351 a2.extend(t.count);
352 a3.extend(t.count);
353 a4.extend(t.count);
354 a5.extend(t.count);
355 a6.extend(t.count);
356 a7.extend(t.count);
357 ddindx := t.first;
358 indx := 1;
359 while true loop
360 a0(indx) := rosetta_g_miss_num_map(t(ddindx).notification_id);
361 a1(indx) := t(ddindx).subject;
362 a2(indx) := t(ddindx).begin_date;
363 a3(indx) := t(ddindx).end_date;
364 a4(indx) := t(ddindx).due_date;
365 a5(indx) := t(ddindx).status;
366 a6(indx) := rosetta_g_miss_num_map(t(ddindx).priority);
367 a7(indx) := t(ddindx).type;
368 indx := indx+1;
369 if t.last =ddindx
370 then exit;
371 end if;
372 ddindx := t.next(ddindx);
373 end loop;
374 end if;
375 end if;
376 end rosetta_table_copy_out_p8;
377
378 procedure rosetta_table_copy_in_p10(t out nocopy amv_mychannel_pvt.amv_itemdisplay_varray_type, a0 JTF_NUMBER_TABLE
379 , a1 JTF_VARCHAR2_TABLE_300
380 , a2 JTF_VARCHAR2_TABLE_2000
381 , a3 JTF_VARCHAR2_TABLE_100
382 ) as
383 ddindx binary_integer; indx binary_integer;
384 begin
385 if a0 is not null and a0.count=0 then
386 t := amv_mychannel_pvt.amv_itemdisplay_varray_type();
387 elsif a0 is not null and a0.count > 0 then
388 if a0.count > 0 then
389 t := amv_mychannel_pvt.amv_itemdisplay_varray_type();
390 t.extend(a0.count);
391 indx := a0.first;
392 ddindx := 1;
393 while true loop
394 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
395 t(ddindx).name := a1(indx);
396 t(ddindx).description := a2(indx);
397 t(ddindx).type := a3(indx);
398 ddindx := ddindx+1;
399 if a0.last =indx
400 then exit;
401 end if;
402 indx := a0.next(indx);
403 end loop;
404 end if;
405 end if;
406 end rosetta_table_copy_in_p10;
407 procedure rosetta_table_copy_out_p10(t amv_mychannel_pvt.amv_itemdisplay_varray_type, a0 out nocopy JTF_NUMBER_TABLE
408 , a1 out nocopy JTF_VARCHAR2_TABLE_300
409 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
410 , a3 out nocopy JTF_VARCHAR2_TABLE_100
411 ) as
412 ddindx binary_integer; indx binary_integer;
413 begin
414 if t is null then
415 a0 := null;
416 a1 := null;
417 a2 := null;
418 a3 := null;
419 elsif t.count = 0 then
420 a0 := JTF_NUMBER_TABLE();
421 a1 := JTF_VARCHAR2_TABLE_300();
422 a2 := JTF_VARCHAR2_TABLE_2000();
423 a3 := JTF_VARCHAR2_TABLE_100();
424 else
425 a0 := JTF_NUMBER_TABLE();
426 a1 := JTF_VARCHAR2_TABLE_300();
427 a2 := JTF_VARCHAR2_TABLE_2000();
428 a3 := JTF_VARCHAR2_TABLE_100();
429 if t.count > 0 then
430 a0.extend(t.count);
431 a1.extend(t.count);
432 a2.extend(t.count);
433 a3.extend(t.count);
434 ddindx := t.first;
435 indx := 1;
436 while true loop
437 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
438 a1(indx) := t(ddindx).name;
439 a2(indx) := t(ddindx).description;
440 a3(indx) := t(ddindx).type;
441 indx := indx+1;
442 if t.last =ddindx
443 then exit;
444 end if;
445 ddindx := t.next(ddindx);
446 end loop;
447 end if;
448 end if;
449 end rosetta_table_copy_out_p10;
450
451 procedure add_subscription(p_api_version NUMBER
452 , p_init_msg_list VARCHAR2
453 , p_commit VARCHAR2
454 , p_validation_level NUMBER
455 , x_return_status out nocopy VARCHAR2
456 , x_msg_count out nocopy NUMBER
457 , x_msg_data out nocopy VARCHAR2
458 , p_check_login_user VARCHAR2
459 , x_mychannel_id out nocopy NUMBER
460 , p8_a0 NUMBER := 0-1962.0724
461 , p8_a1 VARCHAR2 := fnd_api.g_miss_char
462 , p8_a2 VARCHAR2 := fnd_api.g_miss_char
463 , p8_a3 NUMBER := 0-1962.0724
464 , p8_a4 VARCHAR2 := fnd_api.g_miss_char
465 , p8_a5 NUMBER := 0-1962.0724
466 , p8_a6 VARCHAR2 := fnd_api.g_miss_char
467 , p8_a7 VARCHAR2 := fnd_api.g_miss_char
468 , p8_a8 NUMBER := 0-1962.0724
469 , p8_a9 VARCHAR2 := fnd_api.g_miss_char
470 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
471 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
472 )
473
474 as
475 ddp_mychannel_obj amv_mychannel_pvt.amv_my_channel_obj_type;
476 ddindx binary_integer; indx binary_integer;
477 begin
478
479 -- copy data to the local IN or IN-OUT args, if any
480
481
482
483
484
485
486
487
488 ddp_mychannel_obj.my_channel_id := rosetta_g_miss_num_map(p8_a0);
489 ddp_mychannel_obj.channel_type := p8_a1;
490 ddp_mychannel_obj.access_level_type := p8_a2;
491 ddp_mychannel_obj.user_or_group_id := rosetta_g_miss_num_map(p8_a3);
492 ddp_mychannel_obj.user_or_group_type := p8_a4;
493 ddp_mychannel_obj.subscribing_to_id := rosetta_g_miss_num_map(p8_a5);
494 ddp_mychannel_obj.subscribing_to_type := p8_a6;
495 ddp_mychannel_obj.subscription_reason_type := p8_a7;
496 ddp_mychannel_obj.order_number := rosetta_g_miss_num_map(p8_a8);
497 ddp_mychannel_obj.status := p8_a9;
498 ddp_mychannel_obj.notify_flag := p8_a10;
499 ddp_mychannel_obj.notification_interval_type := p8_a11;
500
501
502 -- here's the delegated call to the old PL/SQL routine
503 amv_mychannel_pvt.add_subscription(p_api_version,
504 p_init_msg_list,
505 p_commit,
506 p_validation_level,
507 x_return_status,
508 x_msg_count,
509 x_msg_data,
510 p_check_login_user,
511 ddp_mychannel_obj,
512 x_mychannel_id);
513
514 -- copy data back from the local variables to OUT or IN-OUT args, if any
515
516
517
518
519
520
521
522
523
524 end;
525
526 procedure update_mychannel(p_api_version NUMBER
527 , p_init_msg_list VARCHAR2
528 , p_commit VARCHAR2
529 , p_validation_level NUMBER
530 , x_return_status out nocopy VARCHAR2
531 , x_msg_count out nocopy NUMBER
532 , x_msg_data out nocopy VARCHAR2
533 , p_check_login_user VARCHAR2
534 , p8_a0 NUMBER := 0-1962.0724
535 , p8_a1 VARCHAR2 := fnd_api.g_miss_char
536 , p8_a2 VARCHAR2 := fnd_api.g_miss_char
537 , p8_a3 NUMBER := 0-1962.0724
538 , p8_a4 VARCHAR2 := fnd_api.g_miss_char
539 , p8_a5 NUMBER := 0-1962.0724
540 , p8_a6 VARCHAR2 := fnd_api.g_miss_char
541 , p8_a7 VARCHAR2 := fnd_api.g_miss_char
542 , p8_a8 NUMBER := 0-1962.0724
543 , p8_a9 VARCHAR2 := fnd_api.g_miss_char
544 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
545 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
546 )
547
548 as
549 ddp_mychannel_obj amv_mychannel_pvt.amv_my_channel_obj_type;
550 ddindx binary_integer; indx binary_integer;
551 begin
552
553 -- copy data to the local IN or IN-OUT args, if any
554
555
556
557
558
559
560
561
562 ddp_mychannel_obj.my_channel_id := rosetta_g_miss_num_map(p8_a0);
563 ddp_mychannel_obj.channel_type := p8_a1;
564 ddp_mychannel_obj.access_level_type := p8_a2;
565 ddp_mychannel_obj.user_or_group_id := rosetta_g_miss_num_map(p8_a3);
566 ddp_mychannel_obj.user_or_group_type := p8_a4;
567 ddp_mychannel_obj.subscribing_to_id := rosetta_g_miss_num_map(p8_a5);
568 ddp_mychannel_obj.subscribing_to_type := p8_a6;
569 ddp_mychannel_obj.subscription_reason_type := p8_a7;
570 ddp_mychannel_obj.order_number := rosetta_g_miss_num_map(p8_a8);
571 ddp_mychannel_obj.status := p8_a9;
572 ddp_mychannel_obj.notify_flag := p8_a10;
573 ddp_mychannel_obj.notification_interval_type := p8_a11;
574
575 -- here's the delegated call to the old PL/SQL routine
576 amv_mychannel_pvt.update_mychannel(p_api_version,
577 p_init_msg_list,
578 p_commit,
579 p_validation_level,
580 x_return_status,
581 x_msg_count,
582 x_msg_data,
583 p_check_login_user,
584 ddp_mychannel_obj);
585
586 -- copy data back from the local variables to OUT or IN-OUT args, if any
587
588
589
590
591
592
593
594
595 end;
596
597 procedure get_mychannels(p_api_version NUMBER
598 , p_init_msg_list VARCHAR2
599 , p_validation_level NUMBER
600 , x_return_status out nocopy VARCHAR2
601 , x_msg_count out nocopy NUMBER
602 , x_msg_data out nocopy VARCHAR2
603 , p_check_login_user VARCHAR2
604 , p_user_id NUMBER
605 , p8_a0 out nocopy JTF_NUMBER_TABLE
606 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
607 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
608 , p8_a3 out nocopy JTF_NUMBER_TABLE
609 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
610 , p8_a5 out nocopy JTF_NUMBER_TABLE
611 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
612 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
613 , p8_a8 out nocopy JTF_NUMBER_TABLE
614 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
615 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_100
616 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
617 )
618
619 as
620 ddx_mychannel_array amv_mychannel_pvt.amv_my_channel_varray_type;
621 ddindx binary_integer; indx binary_integer;
622 begin
623
624 -- copy data to the local IN or IN-OUT args, if any
625
626
627
628
629
630
631
632
633
634 -- here's the delegated call to the old PL/SQL routine
635 amv_mychannel_pvt.get_mychannels(p_api_version,
636 p_init_msg_list,
637 p_validation_level,
638 x_return_status,
639 x_msg_count,
640 x_msg_data,
641 p_check_login_user,
642 p_user_id,
643 ddx_mychannel_array);
644
645 -- copy data back from the local variables to OUT or IN-OUT args, if any
646
647
648
649
650
651
652
653
654 amv_mychannel_pvt_w.rosetta_table_copy_out_p6(ddx_mychannel_array, p8_a0
655 , p8_a1
656 , p8_a2
657 , p8_a3
658 , p8_a4
659 , p8_a5
660 , p8_a6
661 , p8_a7
662 , p8_a8
663 , p8_a9
664 , p8_a10
665 , p8_a11
666 );
667 end;
668
669 procedure get_mychannelspercategory(p_api_version NUMBER
670 , p_init_msg_list VARCHAR2
671 , p_validation_level NUMBER
672 , x_return_status out nocopy VARCHAR2
673 , x_msg_count out nocopy NUMBER
674 , x_msg_data out nocopy VARCHAR2
675 , p_check_login_user VARCHAR2
676 , p_user_id NUMBER
677 , p_category_id NUMBER
678 , x_channel_array out nocopy JTF_NUMBER_TABLE
679 )
680
681 as
682 ddx_channel_array amv_mychannel_pvt.amv_number_varray_type;
683 ddindx binary_integer; indx binary_integer;
684 begin
685
686 -- copy data to the local IN or IN-OUT args, if any
687
688
689
690
691
692
693
694
695
696
697 -- here's the delegated call to the old PL/SQL routine
698 amv_mychannel_pvt.get_mychannelspercategory(p_api_version,
699 p_init_msg_list,
700 p_validation_level,
701 x_return_status,
702 x_msg_count,
703 x_msg_data,
704 p_check_login_user,
705 p_user_id,
706 p_category_id,
707 ddx_channel_array);
708
709 -- copy data back from the local variables to OUT or IN-OUT args, if any
710
711
712
713
714
715
716
717
718
719 amv_mychannel_pvt_w.rosetta_table_copy_out_p0(ddx_channel_array, x_channel_array);
720 end;
721
722 procedure get_mynotifications(p_api_version NUMBER
723 , p_init_msg_list VARCHAR2
724 , p_validation_level NUMBER
725 , x_return_status out nocopy VARCHAR2
726 , x_msg_count out nocopy NUMBER
727 , x_msg_data out nocopy VARCHAR2
728 , p_check_login_user VARCHAR2
729 , p_resource_id NUMBER
730 , p_user_id NUMBER
731 , p_user_name VARCHAR2
732 , p_notification_type VARCHAR2
733 , x_notification_url out nocopy VARCHAR2
734 , p12_a0 out nocopy JTF_NUMBER_TABLE
735 , p12_a1 out nocopy JTF_VARCHAR2_TABLE_4000
736 , p12_a2 out nocopy JTF_DATE_TABLE
737 , p12_a3 out nocopy JTF_DATE_TABLE
738 , p12_a4 out nocopy JTF_DATE_TABLE
739 , p12_a5 out nocopy JTF_VARCHAR2_TABLE_100
740 , p12_a6 out nocopy JTF_NUMBER_TABLE
741 , p12_a7 out nocopy JTF_VARCHAR2_TABLE_100
742 )
743
744 as
745 ddx_notifications_array amv_mychannel_pvt.amv_wf_notif_varray_type;
746 ddindx binary_integer; indx binary_integer;
747 begin
748
749 -- copy data to the local IN or IN-OUT args, if any
750
751
752
753
754
755
756
757
758
759
760
761
762
763 -- here's the delegated call to the old PL/SQL routine
764 amv_mychannel_pvt.get_mynotifications(p_api_version,
765 p_init_msg_list,
766 p_validation_level,
767 x_return_status,
768 x_msg_count,
769 x_msg_data,
770 p_check_login_user,
771 p_resource_id,
772 p_user_id,
773 p_user_name,
774 p_notification_type,
775 x_notification_url,
776 ddx_notifications_array);
777
778 -- copy data back from the local variables to OUT or IN-OUT args, if any
779
780
781
782
783
784
785
786
787
788
789
790
791 amv_mychannel_pvt_w.rosetta_table_copy_out_p8(ddx_notifications_array, p12_a0
792 , p12_a1
793 , p12_a2
794 , p12_a3
795 , p12_a4
796 , p12_a5
797 , p12_a6
798 , p12_a7
799 );
800 end;
801
802 procedure get_itemsperuser(p_api_version NUMBER
803 , p_init_msg_list VARCHAR2
804 , p_validation_level NUMBER
805 , x_return_status out nocopy VARCHAR2
806 , x_msg_count out nocopy NUMBER
807 , x_msg_data out nocopy VARCHAR2
808 , p_check_login_user VARCHAR2
809 , p_user_id NUMBER
810 , p9_a0 out nocopy NUMBER
811 , p9_a1 out nocopy NUMBER
812 , p9_a2 out nocopy NUMBER
813 , p10_a0 out nocopy JTF_NUMBER_TABLE
814 , p10_a1 out nocopy JTF_NUMBER_TABLE
815 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_300
816 , p8_a0 NUMBER := 0-1962.0724
817 , p8_a1 NUMBER := 0-1962.0724
818 , p8_a2 VARCHAR2 := fnd_api.g_miss_char
819 )
820
821 as
822 ddp_request_obj amv_mychannel_pvt.amv_request_obj_type;
823 ddx_return_obj amv_mychannel_pvt.amv_return_obj_type;
824 ddx_items_array amv_mychannel_pvt.amv_cat_hierarchy_varray_type;
825 ddindx binary_integer; indx binary_integer;
826 begin
827
828 -- copy data to the local IN or IN-OUT args, if any
829
830
831
832
833
834
835
836
837 ddp_request_obj.records_requested := rosetta_g_miss_num_map(p8_a0);
838 ddp_request_obj.start_record_position := rosetta_g_miss_num_map(p8_a1);
839 ddp_request_obj.return_total_count_flag := p8_a2;
840
841
842
843 -- here's the delegated call to the old PL/SQL routine
844 amv_mychannel_pvt.get_itemsperuser(p_api_version,
845 p_init_msg_list,
846 p_validation_level,
847 x_return_status,
848 x_msg_count,
849 x_msg_data,
850 p_check_login_user,
851 p_user_id,
852 ddp_request_obj,
853 ddx_return_obj,
854 ddx_items_array);
855
856 -- copy data back from the local variables to OUT or IN-OUT args, if any
857
858
859
860
861
862
863
864
865
866 p9_a0 := rosetta_g_miss_num_map(ddx_return_obj.returned_record_count);
867 p9_a1 := rosetta_g_miss_num_map(ddx_return_obj.next_record_position);
868 p9_a2 := rosetta_g_miss_num_map(ddx_return_obj.total_record_count);
869
870 amv_mychannel_pvt_w.rosetta_table_copy_out_p4(ddx_items_array, p10_a0
871 , p10_a1
872 , p10_a2
873 );
874 end;
875
876 procedure get_useritems(p_api_version NUMBER
877 , p_init_msg_list VARCHAR2
878 , p_validation_level NUMBER
879 , x_return_status out nocopy VARCHAR2
880 , x_msg_count out nocopy NUMBER
881 , x_msg_data out nocopy VARCHAR2
882 , p_check_login_user VARCHAR2
883 , p_application_id NUMBER
884 , p_user_id NUMBER
885 , p10_a0 out nocopy NUMBER
886 , p10_a1 out nocopy NUMBER
887 , p10_a2 out nocopy NUMBER
888 , p11_a0 out nocopy JTF_NUMBER_TABLE
889 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_300
890 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_2000
891 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_100
892 , p9_a0 NUMBER := 0-1962.0724
893 , p9_a1 NUMBER := 0-1962.0724
894 , p9_a2 VARCHAR2 := fnd_api.g_miss_char
895 )
896
897 as
898 ddp_request_obj amv_mychannel_pvt.amv_request_obj_type;
899 ddx_return_obj amv_mychannel_pvt.amv_return_obj_type;
900 ddx_items_array amv_mychannel_pvt.amv_itemdisplay_varray_type;
901 ddindx binary_integer; indx binary_integer;
902 begin
903
904 -- copy data to the local IN or IN-OUT args, if any
905
906
907
908
909
910
911
912
913
914 ddp_request_obj.records_requested := rosetta_g_miss_num_map(p9_a0);
915 ddp_request_obj.start_record_position := rosetta_g_miss_num_map(p9_a1);
916 ddp_request_obj.return_total_count_flag := p9_a2;
917
918
919
920 -- here's the delegated call to the old PL/SQL routine
921 amv_mychannel_pvt.get_useritems(p_api_version,
922 p_init_msg_list,
923 p_validation_level,
924 x_return_status,
925 x_msg_count,
926 x_msg_data,
927 p_check_login_user,
928 p_application_id,
929 p_user_id,
930 ddp_request_obj,
931 ddx_return_obj,
932 ddx_items_array);
933
934 -- copy data back from the local variables to OUT or IN-OUT args, if any
935
936
937
938
939
940
941
942
943
944
945 p10_a0 := rosetta_g_miss_num_map(ddx_return_obj.returned_record_count);
946 p10_a1 := rosetta_g_miss_num_map(ddx_return_obj.next_record_position);
947 p10_a2 := rosetta_g_miss_num_map(ddx_return_obj.total_record_count);
948
949 amv_mychannel_pvt_w.rosetta_table_copy_out_p10(ddx_items_array, p11_a0
950 , p11_a1
951 , p11_a2
952 , p11_a3
953 );
954 end;
955
956 end amv_mychannel_pvt_w;