[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_TASKS_LINKS_PVT_W
Source
1 package body ahl_vwp_tasks_links_pvt_w as
2 /* $Header: AHLWTLNB.pls 120.0.12020000.2 2012/12/14 06:53:39 shnatu ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_vwp_tasks_links_pvt.task_link_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_DATE_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_VARCHAR2_TABLE_200
18 , a15 JTF_VARCHAR2_TABLE_200
19 , a16 JTF_VARCHAR2_TABLE_200
20 , a17 JTF_VARCHAR2_TABLE_200
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_VARCHAR2_TABLE_200
29 , a26 JTF_VARCHAR2_TABLE_200
30 , a27 JTF_VARCHAR2_TABLE_200
31 , a28 JTF_VARCHAR2_TABLE_200
32 , a29 JTF_VARCHAR2_TABLE_100
33 ) as
34 ddindx binary_integer; indx binary_integer;
35 begin
36 if a0 is not null and a0.count > 0 then
37 if a0.count > 0 then
38 indx := a0.first;
39 ddindx := 1;
40 while true loop
41 t(ddindx).task_link_id := a0(indx);
42 t(ddindx).object_version_number := a1(indx);
43 t(ddindx).last_update_date := a2(indx);
44 t(ddindx).last_updated_by := a3(indx);
45 t(ddindx).creation_date := a4(indx);
46 t(ddindx).created_by := a5(indx);
47 t(ddindx).last_update_login := a6(indx);
48 t(ddindx).visit_task_id := a7(indx);
49 t(ddindx).parent_task_id := a8(indx);
50 t(ddindx).start_from_hour := a9(indx);
51 t(ddindx).visit_task_number := a10(indx);
52 t(ddindx).visit_task_name := a11(indx);
53 t(ddindx).hierarchy_indicator := a12(indx);
54 t(ddindx).attribute_category := a13(indx);
55 t(ddindx).attribute1 := a14(indx);
56 t(ddindx).attribute2 := a15(indx);
57 t(ddindx).attribute3 := a16(indx);
58 t(ddindx).attribute4 := a17(indx);
59 t(ddindx).attribute5 := a18(indx);
60 t(ddindx).attribute6 := a19(indx);
61 t(ddindx).attribute7 := a20(indx);
62 t(ddindx).attribute8 := a21(indx);
63 t(ddindx).attribute9 := a22(indx);
64 t(ddindx).attribute10 := a23(indx);
65 t(ddindx).attribute11 := a24(indx);
66 t(ddindx).attribute12 := a25(indx);
67 t(ddindx).attribute13 := a26(indx);
68 t(ddindx).attribute14 := a27(indx);
69 t(ddindx).attribute15 := a28(indx);
70 t(ddindx).dml_operation := a29(indx);
71 ddindx := ddindx+1;
72 if a0.last =indx
73 then exit;
74 end if;
75 indx := a0.next(indx);
76 end loop;
77 end if;
78 end if;
79 end rosetta_table_copy_in_p1;
80 procedure rosetta_table_copy_out_p1(t ahl_vwp_tasks_links_pvt.task_link_tbl, a0 out nocopy JTF_NUMBER_TABLE
81 , a1 out nocopy JTF_NUMBER_TABLE
82 , a2 out nocopy JTF_DATE_TABLE
83 , a3 out nocopy JTF_NUMBER_TABLE
84 , a4 out nocopy JTF_DATE_TABLE
85 , a5 out nocopy JTF_NUMBER_TABLE
86 , a6 out nocopy JTF_NUMBER_TABLE
87 , a7 out nocopy JTF_NUMBER_TABLE
88 , a8 out nocopy JTF_NUMBER_TABLE
89 , a9 out nocopy JTF_NUMBER_TABLE
90 , a10 out nocopy JTF_VARCHAR2_TABLE_100
91 , a11 out nocopy JTF_VARCHAR2_TABLE_100
92 , a12 out nocopy JTF_VARCHAR2_TABLE_100
93 , a13 out nocopy JTF_VARCHAR2_TABLE_100
94 , a14 out nocopy JTF_VARCHAR2_TABLE_200
95 , a15 out nocopy JTF_VARCHAR2_TABLE_200
96 , a16 out nocopy JTF_VARCHAR2_TABLE_200
97 , a17 out nocopy JTF_VARCHAR2_TABLE_200
98 , a18 out nocopy JTF_VARCHAR2_TABLE_200
99 , a19 out nocopy JTF_VARCHAR2_TABLE_200
100 , a20 out nocopy JTF_VARCHAR2_TABLE_200
101 , a21 out nocopy JTF_VARCHAR2_TABLE_200
102 , a22 out nocopy JTF_VARCHAR2_TABLE_200
103 , a23 out nocopy JTF_VARCHAR2_TABLE_200
104 , a24 out nocopy JTF_VARCHAR2_TABLE_200
105 , a25 out nocopy JTF_VARCHAR2_TABLE_200
106 , a26 out nocopy JTF_VARCHAR2_TABLE_200
107 , a27 out nocopy JTF_VARCHAR2_TABLE_200
108 , a28 out nocopy JTF_VARCHAR2_TABLE_200
109 , a29 out nocopy JTF_VARCHAR2_TABLE_100
110 ) as
111 ddindx binary_integer; indx binary_integer;
112 begin
113 if t is null or t.count = 0 then
114 a0 := JTF_NUMBER_TABLE();
115 a1 := JTF_NUMBER_TABLE();
116 a2 := JTF_DATE_TABLE();
117 a3 := JTF_NUMBER_TABLE();
118 a4 := JTF_DATE_TABLE();
119 a5 := JTF_NUMBER_TABLE();
120 a6 := JTF_NUMBER_TABLE();
121 a7 := JTF_NUMBER_TABLE();
122 a8 := JTF_NUMBER_TABLE();
123 a9 := JTF_NUMBER_TABLE();
124 a10 := JTF_VARCHAR2_TABLE_100();
125 a11 := JTF_VARCHAR2_TABLE_100();
126 a12 := JTF_VARCHAR2_TABLE_100();
127 a13 := JTF_VARCHAR2_TABLE_100();
128 a14 := JTF_VARCHAR2_TABLE_200();
129 a15 := JTF_VARCHAR2_TABLE_200();
130 a16 := JTF_VARCHAR2_TABLE_200();
131 a17 := JTF_VARCHAR2_TABLE_200();
132 a18 := JTF_VARCHAR2_TABLE_200();
133 a19 := JTF_VARCHAR2_TABLE_200();
134 a20 := JTF_VARCHAR2_TABLE_200();
135 a21 := JTF_VARCHAR2_TABLE_200();
136 a22 := JTF_VARCHAR2_TABLE_200();
137 a23 := JTF_VARCHAR2_TABLE_200();
138 a24 := JTF_VARCHAR2_TABLE_200();
139 a25 := JTF_VARCHAR2_TABLE_200();
140 a26 := JTF_VARCHAR2_TABLE_200();
141 a27 := JTF_VARCHAR2_TABLE_200();
142 a28 := JTF_VARCHAR2_TABLE_200();
143 a29 := JTF_VARCHAR2_TABLE_100();
144 else
145 a0 := JTF_NUMBER_TABLE();
146 a1 := JTF_NUMBER_TABLE();
147 a2 := JTF_DATE_TABLE();
148 a3 := JTF_NUMBER_TABLE();
149 a4 := JTF_DATE_TABLE();
150 a5 := JTF_NUMBER_TABLE();
151 a6 := JTF_NUMBER_TABLE();
152 a7 := JTF_NUMBER_TABLE();
153 a8 := JTF_NUMBER_TABLE();
154 a9 := JTF_NUMBER_TABLE();
155 a10 := JTF_VARCHAR2_TABLE_100();
156 a11 := JTF_VARCHAR2_TABLE_100();
157 a12 := JTF_VARCHAR2_TABLE_100();
158 a13 := JTF_VARCHAR2_TABLE_100();
159 a14 := JTF_VARCHAR2_TABLE_200();
160 a15 := JTF_VARCHAR2_TABLE_200();
161 a16 := JTF_VARCHAR2_TABLE_200();
162 a17 := JTF_VARCHAR2_TABLE_200();
163 a18 := JTF_VARCHAR2_TABLE_200();
164 a19 := JTF_VARCHAR2_TABLE_200();
165 a20 := JTF_VARCHAR2_TABLE_200();
166 a21 := JTF_VARCHAR2_TABLE_200();
167 a22 := JTF_VARCHAR2_TABLE_200();
168 a23 := JTF_VARCHAR2_TABLE_200();
169 a24 := JTF_VARCHAR2_TABLE_200();
170 a25 := JTF_VARCHAR2_TABLE_200();
171 a26 := JTF_VARCHAR2_TABLE_200();
172 a27 := JTF_VARCHAR2_TABLE_200();
173 a28 := JTF_VARCHAR2_TABLE_200();
174 a29 := JTF_VARCHAR2_TABLE_100();
175 if t.count > 0 then
176 a0.extend(t.count);
177 a1.extend(t.count);
178 a2.extend(t.count);
179 a3.extend(t.count);
180 a4.extend(t.count);
181 a5.extend(t.count);
182 a6.extend(t.count);
183 a7.extend(t.count);
184 a8.extend(t.count);
185 a9.extend(t.count);
186 a10.extend(t.count);
187 a11.extend(t.count);
188 a12.extend(t.count);
189 a13.extend(t.count);
190 a14.extend(t.count);
191 a15.extend(t.count);
192 a16.extend(t.count);
193 a17.extend(t.count);
194 a18.extend(t.count);
195 a19.extend(t.count);
196 a20.extend(t.count);
197 a21.extend(t.count);
198 a22.extend(t.count);
199 a23.extend(t.count);
200 a24.extend(t.count);
201 a25.extend(t.count);
202 a26.extend(t.count);
203 a27.extend(t.count);
204 a28.extend(t.count);
205 a29.extend(t.count);
206 ddindx := t.first;
207 indx := 1;
208 while true loop
209 a0(indx) := t(ddindx).task_link_id;
210 a1(indx) := t(ddindx).object_version_number;
211 a2(indx) := t(ddindx).last_update_date;
212 a3(indx) := t(ddindx).last_updated_by;
213 a4(indx) := t(ddindx).creation_date;
214 a5(indx) := t(ddindx).created_by;
215 a6(indx) := t(ddindx).last_update_login;
216 a7(indx) := t(ddindx).visit_task_id;
217 a8(indx) := t(ddindx).parent_task_id;
218 a9(indx) := t(ddindx).start_from_hour;
219 a10(indx) := t(ddindx).visit_task_number;
220 a11(indx) := t(ddindx).visit_task_name;
221 a12(indx) := t(ddindx).hierarchy_indicator;
222 a13(indx) := t(ddindx).attribute_category;
223 a14(indx) := t(ddindx).attribute1;
224 a15(indx) := t(ddindx).attribute2;
225 a16(indx) := t(ddindx).attribute3;
226 a17(indx) := t(ddindx).attribute4;
227 a18(indx) := t(ddindx).attribute5;
228 a19(indx) := t(ddindx).attribute6;
229 a20(indx) := t(ddindx).attribute7;
230 a21(indx) := t(ddindx).attribute8;
231 a22(indx) := t(ddindx).attribute9;
232 a23(indx) := t(ddindx).attribute10;
233 a24(indx) := t(ddindx).attribute11;
234 a25(indx) := t(ddindx).attribute12;
235 a26(indx) := t(ddindx).attribute13;
236 a27(indx) := t(ddindx).attribute14;
237 a28(indx) := t(ddindx).attribute15;
238 a29(indx) := t(ddindx).dml_operation;
239 indx := indx+1;
240 if t.last =ddindx
241 then exit;
242 end if;
243 ddindx := t.next(ddindx);
244 end loop;
245 end if;
246 end if;
247 end rosetta_table_copy_out_p1;
248
249 procedure process_task_links(p_api_version NUMBER
250 , p_init_msg_list VARCHAR2
251 , p_commit VARCHAR2
252 , p_validation_level NUMBER
253 , p_default VARCHAR2
254 , p_module_type VARCHAR2
255 , x_return_status out nocopy VARCHAR2
256 , x_msg_count out nocopy NUMBER
257 , x_msg_data out nocopy VARCHAR2
258 , p9_a0 in out nocopy JTF_NUMBER_TABLE
259 , p9_a1 in out nocopy JTF_NUMBER_TABLE
260 , p9_a2 in out nocopy JTF_DATE_TABLE
261 , p9_a3 in out nocopy JTF_NUMBER_TABLE
262 , p9_a4 in out nocopy JTF_DATE_TABLE
263 , p9_a5 in out nocopy JTF_NUMBER_TABLE
264 , p9_a6 in out nocopy JTF_NUMBER_TABLE
265 , p9_a7 in out nocopy JTF_NUMBER_TABLE
266 , p9_a8 in out nocopy JTF_NUMBER_TABLE
267 , p9_a9 in out nocopy JTF_NUMBER_TABLE
268 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
269 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
270 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_100
271 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_100
272 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
273 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
274 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
275 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
276 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
277 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
278 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
279 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
280 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
281 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
282 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
283 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
284 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
285 , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
286 , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
287 , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_100
288 )
289
290 as
291 ddp_x_task_link_tbl ahl_vwp_tasks_links_pvt.task_link_tbl;
292 ddindx binary_integer; indx binary_integer;
293 begin
294
295 -- copy data to the local IN or IN-OUT args, if any
296
297
298
299
300
301
302
303
304
305 ahl_vwp_tasks_links_pvt_w.rosetta_table_copy_in_p1(ddp_x_task_link_tbl, p9_a0
306 , p9_a1
307 , p9_a2
308 , p9_a3
309 , p9_a4
310 , p9_a5
311 , p9_a6
312 , p9_a7
313 , p9_a8
314 , p9_a9
315 , p9_a10
316 , p9_a11
317 , p9_a12
318 , p9_a13
319 , p9_a14
320 , p9_a15
321 , p9_a16
322 , p9_a17
323 , p9_a18
324 , p9_a19
325 , p9_a20
326 , p9_a21
327 , p9_a22
328 , p9_a23
329 , p9_a24
330 , p9_a25
331 , p9_a26
332 , p9_a27
333 , p9_a28
334 , p9_a29
335 );
336
337 -- here's the delegated call to the old PL/SQL routine
338 ahl_vwp_tasks_links_pvt.process_task_links(p_api_version,
339 p_init_msg_list,
340 p_commit,
341 p_validation_level,
342 p_default,
343 p_module_type,
344 x_return_status,
345 x_msg_count,
346 x_msg_data,
347 ddp_x_task_link_tbl);
348
349 -- copy data back from the local variables to OUT or IN-OUT args, if any
350
351
352
353
354
355
356
357
358
359 ahl_vwp_tasks_links_pvt_w.rosetta_table_copy_out_p1(ddp_x_task_link_tbl, p9_a0
360 , p9_a1
361 , p9_a2
362 , p9_a3
363 , p9_a4
364 , p9_a5
365 , p9_a6
366 , p9_a7
367 , p9_a8
368 , p9_a9
369 , p9_a10
370 , p9_a11
371 , p9_a12
372 , p9_a13
373 , p9_a14
374 , p9_a15
375 , p9_a16
376 , p9_a17
377 , p9_a18
378 , p9_a19
379 , p9_a20
380 , p9_a21
381 , p9_a22
382 , p9_a23
383 , p9_a24
384 , p9_a25
385 , p9_a26
386 , p9_a27
387 , p9_a28
388 , p9_a29
389 );
390 end;
391
392 procedure create_task_links(p0_a0 in out nocopy NUMBER
393 , p0_a1 in out nocopy NUMBER
394 , p0_a2 in out nocopy DATE
395 , p0_a3 in out nocopy NUMBER
396 , p0_a4 in out nocopy DATE
397 , p0_a5 in out nocopy NUMBER
398 , p0_a6 in out nocopy NUMBER
399 , p0_a7 in out nocopy NUMBER
400 , p0_a8 in out nocopy NUMBER
401 , p0_a9 in out nocopy NUMBER
402 , p0_a10 in out nocopy VARCHAR2
403 , p0_a11 in out nocopy VARCHAR2
404 , p0_a12 in out nocopy VARCHAR2
405 , p0_a13 in out nocopy VARCHAR2
406 , p0_a14 in out nocopy VARCHAR2
407 , p0_a15 in out nocopy VARCHAR2
408 , p0_a16 in out nocopy VARCHAR2
409 , p0_a17 in out nocopy VARCHAR2
410 , p0_a18 in out nocopy VARCHAR2
411 , p0_a19 in out nocopy VARCHAR2
412 , p0_a20 in out nocopy VARCHAR2
413 , p0_a21 in out nocopy VARCHAR2
414 , p0_a22 in out nocopy VARCHAR2
415 , p0_a23 in out nocopy VARCHAR2
416 , p0_a24 in out nocopy VARCHAR2
417 , p0_a25 in out nocopy VARCHAR2
418 , p0_a26 in out nocopy VARCHAR2
419 , p0_a27 in out nocopy VARCHAR2
420 , p0_a28 in out nocopy VARCHAR2
421 , p0_a29 in out nocopy VARCHAR2
422 )
423
424 as
425 ddp_task_link_rec ahl_vwp_tasks_links_pvt.task_link_rec;
426 ddindx binary_integer; indx binary_integer;
427 begin
428
429 -- copy data to the local IN or IN-OUT args, if any
430 ddp_task_link_rec.task_link_id := p0_a0;
431 ddp_task_link_rec.object_version_number := p0_a1;
432 ddp_task_link_rec.last_update_date := p0_a2;
433 ddp_task_link_rec.last_updated_by := p0_a3;
434 ddp_task_link_rec.creation_date := p0_a4;
435 ddp_task_link_rec.created_by := p0_a5;
436 ddp_task_link_rec.last_update_login := p0_a6;
437 ddp_task_link_rec.visit_task_id := p0_a7;
438 ddp_task_link_rec.parent_task_id := p0_a8;
439 ddp_task_link_rec.start_from_hour := p0_a9;
440 ddp_task_link_rec.visit_task_number := p0_a10;
441 ddp_task_link_rec.visit_task_name := p0_a11;
442 ddp_task_link_rec.hierarchy_indicator := p0_a12;
443 ddp_task_link_rec.attribute_category := p0_a13;
444 ddp_task_link_rec.attribute1 := p0_a14;
445 ddp_task_link_rec.attribute2 := p0_a15;
446 ddp_task_link_rec.attribute3 := p0_a16;
447 ddp_task_link_rec.attribute4 := p0_a17;
448 ddp_task_link_rec.attribute5 := p0_a18;
449 ddp_task_link_rec.attribute6 := p0_a19;
450 ddp_task_link_rec.attribute7 := p0_a20;
451 ddp_task_link_rec.attribute8 := p0_a21;
452 ddp_task_link_rec.attribute9 := p0_a22;
453 ddp_task_link_rec.attribute10 := p0_a23;
454 ddp_task_link_rec.attribute11 := p0_a24;
455 ddp_task_link_rec.attribute12 := p0_a25;
456 ddp_task_link_rec.attribute13 := p0_a26;
457 ddp_task_link_rec.attribute14 := p0_a27;
458 ddp_task_link_rec.attribute15 := p0_a28;
459 ddp_task_link_rec.dml_operation := p0_a29;
460
461 -- here's the delegated call to the old PL/SQL routine
462 ahl_vwp_tasks_links_pvt.create_task_links(ddp_task_link_rec);
463
464 -- copy data back from the local variables to OUT or IN-OUT args, if any
465 p0_a0 := ddp_task_link_rec.task_link_id;
466 p0_a1 := ddp_task_link_rec.object_version_number;
467 p0_a2 := ddp_task_link_rec.last_update_date;
468 p0_a3 := ddp_task_link_rec.last_updated_by;
469 p0_a4 := ddp_task_link_rec.creation_date;
470 p0_a5 := ddp_task_link_rec.created_by;
471 p0_a6 := ddp_task_link_rec.last_update_login;
472 p0_a7 := ddp_task_link_rec.visit_task_id;
473 p0_a8 := ddp_task_link_rec.parent_task_id;
474 p0_a9 := ddp_task_link_rec.start_from_hour;
475 p0_a10 := ddp_task_link_rec.visit_task_number;
476 p0_a11 := ddp_task_link_rec.visit_task_name;
477 p0_a12 := ddp_task_link_rec.hierarchy_indicator;
478 p0_a13 := ddp_task_link_rec.attribute_category;
479 p0_a14 := ddp_task_link_rec.attribute1;
480 p0_a15 := ddp_task_link_rec.attribute2;
481 p0_a16 := ddp_task_link_rec.attribute3;
482 p0_a17 := ddp_task_link_rec.attribute4;
483 p0_a18 := ddp_task_link_rec.attribute5;
484 p0_a19 := ddp_task_link_rec.attribute6;
485 p0_a20 := ddp_task_link_rec.attribute7;
486 p0_a21 := ddp_task_link_rec.attribute8;
487 p0_a22 := ddp_task_link_rec.attribute9;
488 p0_a23 := ddp_task_link_rec.attribute10;
489 p0_a24 := ddp_task_link_rec.attribute11;
490 p0_a25 := ddp_task_link_rec.attribute12;
491 p0_a26 := ddp_task_link_rec.attribute13;
492 p0_a27 := ddp_task_link_rec.attribute14;
493 p0_a28 := ddp_task_link_rec.attribute15;
494 p0_a29 := ddp_task_link_rec.dml_operation;
495 end;
496
497 end ahl_vwp_tasks_links_pvt_w;