[Home] [Help]
PACKAGE BODY: APPS.CAC_VIEW_PVT_W
Source
1 package body cac_view_pvt_w as
2 /* $Header: cacvpwb.pls 120.3 2006/02/22 07:23:26 sankgupt noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cac_view_pvt.callsttbltype, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_400
6 , a3 JTF_VARCHAR2_TABLE_100
7 ) as
8 ddindx binary_integer; indx binary_integer;
9 begin
10 if a0 is not null and a0.count > 0 then
11 if a0.count > 0 then
12 indx := a0.first;
13 ddindx := 1;
14 while true loop
15 t(ddindx).resourceid := a0(indx);
16 t(ddindx).resourcetype := a1(indx);
17 t(ddindx).calendarname := a2(indx);
18 t(ddindx).accesslevel := a3(indx);
19 ddindx := ddindx+1;
20 if a0.last =indx
21 then exit;
22 end if;
23 indx := a0.next(indx);
24 end loop;
25 end if;
26 end if;
27 end rosetta_table_copy_in_p1;
28 procedure rosetta_table_copy_out_p1(t cac_view_pvt.callsttbltype, a0 out nocopy JTF_NUMBER_TABLE
29 , a1 out nocopy JTF_VARCHAR2_TABLE_100
30 , a2 out nocopy JTF_VARCHAR2_TABLE_400
31 , a3 out nocopy JTF_VARCHAR2_TABLE_100
32 ) as
33 ddindx binary_integer; indx binary_integer;
34 begin
35 if t is null or t.count = 0 then
36 a0 := JTF_NUMBER_TABLE();
37 a1 := JTF_VARCHAR2_TABLE_100();
38 a2 := JTF_VARCHAR2_TABLE_400();
39 a3 := JTF_VARCHAR2_TABLE_100();
40 else
41 a0 := JTF_NUMBER_TABLE();
42 a1 := JTF_VARCHAR2_TABLE_100();
43 a2 := JTF_VARCHAR2_TABLE_400();
44 a3 := JTF_VARCHAR2_TABLE_100();
45 if t.count > 0 then
46 a0.extend(t.count);
47 a1.extend(t.count);
48 a2.extend(t.count);
49 a3.extend(t.count);
50 ddindx := t.first;
51 indx := 1;
52 while true loop
53 a0(indx) := t(ddindx).resourceid;
54 a1(indx) := t(ddindx).resourcetype;
55 a2(indx) := t(ddindx).calendarname;
56 a3(indx) := t(ddindx).accesslevel;
57 indx := indx+1;
58 if t.last =ddindx
59 then exit;
60 end if;
61 ddindx := t.next(ddindx);
62 end loop;
63 end if;
64 end if;
65 end rosetta_table_copy_out_p1;
66
67 procedure rosetta_table_copy_in_p4(t out nocopy cac_view_pvt.queryouttab, a0 JTF_NUMBER_TABLE
68 , a1 JTF_NUMBER_TABLE
69 , a2 JTF_VARCHAR2_TABLE_100
70 , a3 JTF_VARCHAR2_TABLE_2000
71 , a4 JTF_VARCHAR2_TABLE_2000
72 , a5 JTF_VARCHAR2_TABLE_100
73 , a6 JTF_NUMBER_TABLE
74 , a7 JTF_NUMBER_TABLE
75 , a8 JTF_NUMBER_TABLE
76 , a9 JTF_NUMBER_TABLE
77 , a10 JTF_NUMBER_TABLE
78 , a11 JTF_DATE_TABLE
79 , a12 JTF_VARCHAR2_TABLE_100
80 , a13 JTF_DATE_TABLE
81 , a14 JTF_VARCHAR2_TABLE_2000
82 , a15 JTF_VARCHAR2_TABLE_2000
83 , a16 JTF_VARCHAR2_TABLE_2000
84 , a17 JTF_VARCHAR2_TABLE_4000
85 , a18 JTF_VARCHAR2_TABLE_100
86 , a19 JTF_VARCHAR2_TABLE_100
87 , a20 JTF_VARCHAR2_TABLE_100
88 , a21 JTF_VARCHAR2_TABLE_100
89 , a22 JTF_VARCHAR2_TABLE_100
90 , a23 JTF_VARCHAR2_TABLE_400
91 , a24 JTF_VARCHAR2_TABLE_4000
92 , a25 JTF_NUMBER_TABLE
93 , a26 JTF_VARCHAR2_TABLE_100
94 , a27 JTF_VARCHAR2_TABLE_100
95 ) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if a0 is not null and a0.count > 0 then
99 if a0.count > 0 then
100 indx := a0.first;
101 ddindx := 1;
102 while true loop
103 t(ddindx).itemdisplaytype := a0(indx);
104 t(ddindx).itemsourceid := a1(indx);
105 t(ddindx).itemsourcecode := a2(indx);
106 t(ddindx).source := a3(indx);
107 t(ddindx).customer := a4(indx);
108 t(ddindx).itemname := a5(indx);
109 t(ddindx).accesslevel := a6(indx);
110 t(ddindx).assignmentstatus := a7(indx);
111 t(ddindx).inviteindicator := a8(indx);
112 t(ddindx).repeatindicator := a9(indx);
113 t(ddindx).remindindicator := a10(indx);
114 t(ddindx).startdate := a11(indx);
115 t(ddindx).sourceobjecttypecode := a12(indx);
116 t(ddindx).enddate := a13(indx);
117 t(ddindx).url := a14(indx);
118 t(ddindx).urlparamlist := a15(indx);
119 t(ddindx).attendees := a16(indx);
120 t(ddindx).location := a17(indx);
121 t(ddindx).customerconfirmation := a18(indx);
122 t(ddindx).status := a19(indx);
123 t(ddindx).assigneestatus := a20(indx);
124 t(ddindx).priority := a21(indx);
125 t(ddindx).tasktype := a22(indx);
126 t(ddindx).owner := a23(indx);
127 t(ddindx).description := a24(indx);
128 t(ddindx).grouprsid := a25(indx);
129 t(ddindx).freebusytype := a26(indx);
130 t(ddindx).displaycolor := a27(indx);
131 ddindx := ddindx+1;
132 if a0.last =indx
133 then exit;
134 end if;
135 indx := a0.next(indx);
136 end loop;
137 end if;
138 end if;
139 end rosetta_table_copy_in_p4;
140 procedure rosetta_table_copy_out_p4(t cac_view_pvt.queryouttab, a0 out nocopy JTF_NUMBER_TABLE
141 , a1 out nocopy JTF_NUMBER_TABLE
142 , a2 out nocopy JTF_VARCHAR2_TABLE_100
143 , a3 out nocopy JTF_VARCHAR2_TABLE_2000
144 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
145 , a5 out nocopy JTF_VARCHAR2_TABLE_100
146 , a6 out nocopy JTF_NUMBER_TABLE
147 , a7 out nocopy JTF_NUMBER_TABLE
148 , a8 out nocopy JTF_NUMBER_TABLE
149 , a9 out nocopy JTF_NUMBER_TABLE
150 , a10 out nocopy JTF_NUMBER_TABLE
151 , a11 out nocopy JTF_DATE_TABLE
152 , a12 out nocopy JTF_VARCHAR2_TABLE_100
153 , a13 out nocopy JTF_DATE_TABLE
154 , a14 out nocopy JTF_VARCHAR2_TABLE_2000
155 , a15 out nocopy JTF_VARCHAR2_TABLE_2000
156 , a16 out nocopy JTF_VARCHAR2_TABLE_2000
157 , a17 out nocopy JTF_VARCHAR2_TABLE_4000
158 , a18 out nocopy JTF_VARCHAR2_TABLE_100
159 , a19 out nocopy JTF_VARCHAR2_TABLE_100
160 , a20 out nocopy JTF_VARCHAR2_TABLE_100
161 , a21 out nocopy JTF_VARCHAR2_TABLE_100
162 , a22 out nocopy JTF_VARCHAR2_TABLE_100
163 , a23 out nocopy JTF_VARCHAR2_TABLE_400
164 , a24 out nocopy JTF_VARCHAR2_TABLE_4000
165 , a25 out nocopy JTF_NUMBER_TABLE
166 , a26 out nocopy JTF_VARCHAR2_TABLE_100
167 , a27 out nocopy JTF_VARCHAR2_TABLE_100
168 ) as
169 ddindx binary_integer; indx binary_integer;
170 begin
171 if t is null or t.count = 0 then
172 a0 := JTF_NUMBER_TABLE();
173 a1 := JTF_NUMBER_TABLE();
174 a2 := JTF_VARCHAR2_TABLE_100();
175 a3 := JTF_VARCHAR2_TABLE_2000();
176 a4 := JTF_VARCHAR2_TABLE_2000();
177 a5 := JTF_VARCHAR2_TABLE_100();
178 a6 := JTF_NUMBER_TABLE();
179 a7 := JTF_NUMBER_TABLE();
180 a8 := JTF_NUMBER_TABLE();
181 a9 := JTF_NUMBER_TABLE();
182 a10 := JTF_NUMBER_TABLE();
183 a11 := JTF_DATE_TABLE();
184 a12 := JTF_VARCHAR2_TABLE_100();
185 a13 := JTF_DATE_TABLE();
186 a14 := JTF_VARCHAR2_TABLE_2000();
187 a15 := JTF_VARCHAR2_TABLE_2000();
188 a16 := JTF_VARCHAR2_TABLE_2000();
189 a17 := JTF_VARCHAR2_TABLE_4000();
190 a18 := JTF_VARCHAR2_TABLE_100();
191 a19 := JTF_VARCHAR2_TABLE_100();
192 a20 := JTF_VARCHAR2_TABLE_100();
193 a21 := JTF_VARCHAR2_TABLE_100();
194 a22 := JTF_VARCHAR2_TABLE_100();
195 a23 := JTF_VARCHAR2_TABLE_400();
196 a24 := JTF_VARCHAR2_TABLE_4000();
197 a25 := JTF_NUMBER_TABLE();
198 a26 := JTF_VARCHAR2_TABLE_100();
199 a27 := JTF_VARCHAR2_TABLE_100();
200 else
201 a0 := JTF_NUMBER_TABLE();
202 a1 := JTF_NUMBER_TABLE();
203 a2 := JTF_VARCHAR2_TABLE_100();
204 a3 := JTF_VARCHAR2_TABLE_2000();
205 a4 := JTF_VARCHAR2_TABLE_2000();
206 a5 := JTF_VARCHAR2_TABLE_100();
207 a6 := JTF_NUMBER_TABLE();
208 a7 := JTF_NUMBER_TABLE();
209 a8 := JTF_NUMBER_TABLE();
210 a9 := JTF_NUMBER_TABLE();
211 a10 := JTF_NUMBER_TABLE();
212 a11 := JTF_DATE_TABLE();
213 a12 := JTF_VARCHAR2_TABLE_100();
214 a13 := JTF_DATE_TABLE();
215 a14 := JTF_VARCHAR2_TABLE_2000();
216 a15 := JTF_VARCHAR2_TABLE_2000();
217 a16 := JTF_VARCHAR2_TABLE_2000();
218 a17 := JTF_VARCHAR2_TABLE_4000();
219 a18 := JTF_VARCHAR2_TABLE_100();
220 a19 := JTF_VARCHAR2_TABLE_100();
221 a20 := JTF_VARCHAR2_TABLE_100();
222 a21 := JTF_VARCHAR2_TABLE_100();
223 a22 := JTF_VARCHAR2_TABLE_100();
224 a23 := JTF_VARCHAR2_TABLE_400();
225 a24 := JTF_VARCHAR2_TABLE_4000();
226 a25 := JTF_NUMBER_TABLE();
227 a26 := JTF_VARCHAR2_TABLE_100();
228 a27 := JTF_VARCHAR2_TABLE_100();
229 if t.count > 0 then
230 a0.extend(t.count);
231 a1.extend(t.count);
232 a2.extend(t.count);
233 a3.extend(t.count);
234 a4.extend(t.count);
235 a5.extend(t.count);
236 a6.extend(t.count);
237 a7.extend(t.count);
238 a8.extend(t.count);
239 a9.extend(t.count);
240 a10.extend(t.count);
241 a11.extend(t.count);
242 a12.extend(t.count);
243 a13.extend(t.count);
244 a14.extend(t.count);
245 a15.extend(t.count);
246 a16.extend(t.count);
247 a17.extend(t.count);
248 a18.extend(t.count);
249 a19.extend(t.count);
250 a20.extend(t.count);
251 a21.extend(t.count);
252 a22.extend(t.count);
253 a23.extend(t.count);
254 a24.extend(t.count);
255 a25.extend(t.count);
256 a26.extend(t.count);
257 a27.extend(t.count);
258 ddindx := t.first;
259 indx := 1;
260 while true loop
261 a0(indx) := t(ddindx).itemdisplaytype;
262 a1(indx) := t(ddindx).itemsourceid;
263 a2(indx) := t(ddindx).itemsourcecode;
264 a3(indx) := t(ddindx).source;
265 a4(indx) := t(ddindx).customer;
266 a5(indx) := t(ddindx).itemname;
267 a6(indx) := t(ddindx).accesslevel;
268 a7(indx) := t(ddindx).assignmentstatus;
269 a8(indx) := t(ddindx).inviteindicator;
270 a9(indx) := t(ddindx).repeatindicator;
271 a10(indx) := t(ddindx).remindindicator;
272 a11(indx) := t(ddindx).startdate;
273 a12(indx) := t(ddindx).sourceobjecttypecode;
274 a13(indx) := t(ddindx).enddate;
275 a14(indx) := t(ddindx).url;
276 a15(indx) := t(ddindx).urlparamlist;
277 a16(indx) := t(ddindx).attendees;
278 a17(indx) := t(ddindx).location;
279 a18(indx) := t(ddindx).customerconfirmation;
280 a19(indx) := t(ddindx).status;
281 a20(indx) := t(ddindx).assigneestatus;
282 a21(indx) := t(ddindx).priority;
283 a22(indx) := t(ddindx).tasktype;
284 a23(indx) := t(ddindx).owner;
285 a24(indx) := t(ddindx).description;
286 a25(indx) := t(ddindx).grouprsid;
287 a26(indx) := t(ddindx).freebusytype;
288 a27(indx) := t(ddindx).displaycolor;
289 indx := indx+1;
290 if t.last =ddindx
291 then exit;
292 end if;
293 ddindx := t.next(ddindx);
294 end loop;
295 end if;
296 end if;
297 end rosetta_table_copy_out_p4;
298
299 procedure getcalendarlist(p_api_version NUMBER
300 , p_init_msg_list VARCHAR2
301 , p_validation_level NUMBER
302 , x_return_status out nocopy VARCHAR2
303 , x_msg_count out nocopy NUMBER
304 , x_msg_data out nocopy VARCHAR2
305 , p_resourceid in out nocopy NUMBER
306 , p_resourcetype in out nocopy VARCHAR2
307 , p_userid NUMBER
308 , p9_a0 out nocopy JTF_NUMBER_TABLE
309 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
310 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_400
311 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
312 )
313
314 as
315 ddx_calendarlist cac_view_pvt.callsttbltype;
316 ddindx binary_integer; indx binary_integer;
317 begin
318
319 -- copy data to the local IN or IN-OUT args, if any
320
321
322
323
324
325
326
327
328
329
330 -- here's the delegated call to the old PL/SQL routine
331 cac_view_pvt.getcalendarlist(p_api_version,
332 p_init_msg_list,
333 p_validation_level,
334 x_return_status,
335 x_msg_count,
336 x_msg_data,
337 p_resourceid,
338 p_resourcetype,
339 p_userid,
340 ddx_calendarlist);
341
342 -- copy data back from the local variables to OUT or IN-OUT args, if any
343
344
345
346
347
348
349
350
351
352 cac_view_pvt_w.rosetta_table_copy_out_p1(ddx_calendarlist, p9_a0
353 , p9_a1
354 , p9_a2
355 , p9_a3
356 );
357 end;
358
359 procedure getview(p_api_version NUMBER
360 , p_init_msg_list VARCHAR2
361 , p_validation_level NUMBER
362 , x_return_status out nocopy VARCHAR2
363 , x_msg_count out nocopy NUMBER
364 , x_msg_data out nocopy VARCHAR2
365 , p6_a0 NUMBER
366 , p6_a1 NUMBER
367 , p6_a2 VARCHAR2
368 , p6_a3 NUMBER
369 , p6_a4 VARCHAR2
370 , p6_a5 NUMBER
371 , p6_a6 DATE
372 , p6_a7 DATE
373 , p6_a8 NUMBER
374 , p6_a9 CHAR
375 , p6_a10 CHAR
376 , p6_a11 CHAR
377 , p6_a12 CHAR
378 , p6_a13 CHAR
379 , p6_a14 CHAR
380 , p6_a15 CHAR
381 , p6_a16 CHAR
382 , p6_a17 CHAR
383 , p6_a18 CHAR
384 , p6_a19 CHAR
385 , p6_a20 CHAR
386 , p6_a21 CHAR
387 , p6_a22 CHAR
388 , p6_a23 CHAR
389 , p6_a24 CHAR
390 , p6_a25 CHAR
391 , p6_a26 CHAR
392 , p6_a27 CHAR
393 , p6_a28 CHAR
394 , p6_a29 CHAR
395 , p6_a30 CHAR
396 , p6_a31 CHAR
397 , p6_a32 CHAR
398 , p6_a33 NUMBER
399 , p7_a0 out nocopy JTF_NUMBER_TABLE
400 , p7_a1 out nocopy JTF_NUMBER_TABLE
401 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
402 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_2000
403 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_2000
404 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
405 , p7_a6 out nocopy JTF_NUMBER_TABLE
406 , p7_a7 out nocopy JTF_NUMBER_TABLE
407 , p7_a8 out nocopy JTF_NUMBER_TABLE
408 , p7_a9 out nocopy JTF_NUMBER_TABLE
409 , p7_a10 out nocopy JTF_NUMBER_TABLE
410 , p7_a11 out nocopy JTF_DATE_TABLE
411 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_100
412 , p7_a13 out nocopy JTF_DATE_TABLE
413 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_2000
414 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_2000
415 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_2000
416 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_4000
417 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_100
418 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_100
419 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_100
420 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_100
421 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
422 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_400
423 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_4000
424 , p7_a25 out nocopy JTF_NUMBER_TABLE
425 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_100
426 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_100
427 )
428
429 as
430 ddp_input cac_view_pvt.queryin;
431 ddx_displayitems cac_view_pvt.queryouttab;
432 ddindx binary_integer; indx binary_integer;
433 begin
434
435 -- copy data to the local IN or IN-OUT args, if any
436
437
438
439
440
441
442 ddp_input.userid := p6_a0;
443 ddp_input.loggedonrsid := p6_a1;
444 ddp_input.loggedonrstype := p6_a2;
445 ddp_input.queryrsid := p6_a3;
446 ddp_input.queryrstype := p6_a4;
447 ddp_input.emploctimezoneid := p6_a5;
448 ddp_input.startdate := p6_a6;
449 ddp_input.enddate := p6_a7;
450 ddp_input.querymode := p6_a8;
451 ddp_input.showapts := p6_a9;
452 ddp_input.showtasks := p6_a10;
453 ddp_input.showevents := p6_a11;
454 ddp_input.showopeninvite := p6_a12;
455 ddp_input.showdeclined := p6_a13;
456 ddp_input.showbookings := p6_a14;
457 ddp_input.showhrcalendarevents := p6_a15;
458 ddp_input.showschedules := p6_a16;
459 ddp_input.aptfirstdetail := p6_a17;
460 ddp_input.aptseconddetail := p6_a18;
461 ddp_input.aptthirddetail := p6_a19;
462 ddp_input.invfirstdetail := p6_a20;
463 ddp_input.invseconddetail := p6_a21;
464 ddp_input.invthirddetail := p6_a22;
465 ddp_input.declfirstdetail := p6_a23;
466 ddp_input.declseconddetail := p6_a24;
467 ddp_input.declthirddetail := p6_a25;
468 ddp_input.showbusytask := p6_a26;
469 ddp_input.showfreetask := p6_a27;
470 ddp_input.showtentativetask := p6_a28;
471 ddp_input.taskfirstdetail := p6_a29;
472 ddp_input.taskseconddetail := p6_a30;
473 ddp_input.taskthirddetail := p6_a31;
474 ddp_input.usecalendarsecurity := p6_a32;
475 ddp_input.viewtimezoneid := p6_a33;
476
477
478 -- here's the delegated call to the old PL/SQL routine
479 cac_view_pvt.getview(p_api_version,
480 p_init_msg_list,
481 p_validation_level,
482 x_return_status,
483 x_msg_count,
484 x_msg_data,
485 ddp_input,
486 ddx_displayitems);
487
488 -- copy data back from the local variables to OUT or IN-OUT args, if any
489
490
491
492
493
494
495
496 cac_view_pvt_w.rosetta_table_copy_out_p4(ddx_displayitems, p7_a0
497 , p7_a1
498 , p7_a2
499 , p7_a3
500 , p7_a4
501 , p7_a5
502 , p7_a6
503 , p7_a7
504 , p7_a8
505 , p7_a9
506 , p7_a10
507 , p7_a11
508 , p7_a12
509 , p7_a13
510 , p7_a14
511 , p7_a15
512 , p7_a16
513 , p7_a17
514 , p7_a18
515 , p7_a19
516 , p7_a20
517 , p7_a21
518 , p7_a22
519 , p7_a23
520 , p7_a24
521 , p7_a25
522 , p7_a26
523 , p7_a27
524 );
525 end;
526
527 end cac_view_pvt_w;