[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 115.4 2003/08/21 18:34:22 shbhanda noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
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 procedure rosetta_table_copy_in_p1(t out nocopy ahl_vwp_tasks_links_pvt.task_link_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_DATE_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_DATE_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_NUMBER_TABLE
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_100
27 , a14 JTF_VARCHAR2_TABLE_200
28 , a15 JTF_VARCHAR2_TABLE_200
29 , a16 JTF_VARCHAR2_TABLE_200
30 , a17 JTF_VARCHAR2_TABLE_200
31 , a18 JTF_VARCHAR2_TABLE_200
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_VARCHAR2_TABLE_200
34 , a21 JTF_VARCHAR2_TABLE_200
35 , a22 JTF_VARCHAR2_TABLE_200
36 , a23 JTF_VARCHAR2_TABLE_200
37 , a24 JTF_VARCHAR2_TABLE_200
38 , a25 JTF_VARCHAR2_TABLE_200
39 , a26 JTF_VARCHAR2_TABLE_200
40 , a27 JTF_VARCHAR2_TABLE_200
41 , a28 JTF_VARCHAR2_TABLE_200
42 , a29 JTF_VARCHAR2_TABLE_100
43 ) as
44 ddindx binary_integer; indx binary_integer;
45 begin
46 if a0 is not null and a0.count > 0 then
47 if a0.count > 0 then
48 indx := a0.first;
49 ddindx := 1;
50 while true loop
51 t(ddindx).task_link_id := a0(indx);
52 t(ddindx).object_version_number := a1(indx);
53 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
54 t(ddindx).last_updated_by := a3(indx);
55 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
56 t(ddindx).created_by := a5(indx);
57 t(ddindx).last_update_login := a6(indx);
58 t(ddindx).visit_task_id := a7(indx);
59 t(ddindx).parent_task_id := a8(indx);
60 t(ddindx).start_from_hour := a9(indx);
61 t(ddindx).visit_task_number := a10(indx);
62 t(ddindx).visit_task_name := a11(indx);
63 t(ddindx).hierarchy_indicator := a12(indx);
64 t(ddindx).attribute_category := a13(indx);
65 t(ddindx).attribute1 := a14(indx);
66 t(ddindx).attribute2 := a15(indx);
67 t(ddindx).attribute3 := a16(indx);
68 t(ddindx).attribute4 := a17(indx);
69 t(ddindx).attribute5 := a18(indx);
70 t(ddindx).attribute6 := a19(indx);
71 t(ddindx).attribute7 := a20(indx);
72 t(ddindx).attribute8 := a21(indx);
73 t(ddindx).attribute9 := a22(indx);
74 t(ddindx).attribute10 := a23(indx);
75 t(ddindx).attribute11 := a24(indx);
76 t(ddindx).attribute12 := a25(indx);
77 t(ddindx).attribute13 := a26(indx);
78 t(ddindx).attribute14 := a27(indx);
79 t(ddindx).attribute15 := a28(indx);
80 t(ddindx).dml_operation := a29(indx);
81 ddindx := ddindx+1;
82 if a0.last =indx
83 then exit;
84 end if;
85 indx := a0.next(indx);
86 end loop;
87 end if;
88 end if;
89 end rosetta_table_copy_in_p1;
90 procedure rosetta_table_copy_out_p1(t ahl_vwp_tasks_links_pvt.task_link_tbl, a0 out nocopy JTF_NUMBER_TABLE
91 , a1 out nocopy JTF_NUMBER_TABLE
92 , a2 out nocopy JTF_DATE_TABLE
93 , a3 out nocopy JTF_NUMBER_TABLE
94 , a4 out nocopy JTF_DATE_TABLE
95 , a5 out nocopy JTF_NUMBER_TABLE
96 , a6 out nocopy JTF_NUMBER_TABLE
97 , a7 out nocopy JTF_NUMBER_TABLE
98 , a8 out nocopy JTF_NUMBER_TABLE
99 , a9 out nocopy JTF_NUMBER_TABLE
100 , a10 out nocopy JTF_VARCHAR2_TABLE_100
101 , a11 out nocopy JTF_VARCHAR2_TABLE_100
102 , a12 out nocopy JTF_VARCHAR2_TABLE_100
103 , a13 out nocopy JTF_VARCHAR2_TABLE_100
104 , a14 out nocopy JTF_VARCHAR2_TABLE_200
105 , a15 out nocopy JTF_VARCHAR2_TABLE_200
106 , a16 out nocopy JTF_VARCHAR2_TABLE_200
107 , a17 out nocopy JTF_VARCHAR2_TABLE_200
108 , a18 out nocopy JTF_VARCHAR2_TABLE_200
109 , a19 out nocopy JTF_VARCHAR2_TABLE_200
110 , a20 out nocopy JTF_VARCHAR2_TABLE_200
111 , a21 out nocopy JTF_VARCHAR2_TABLE_200
112 , a22 out nocopy JTF_VARCHAR2_TABLE_200
113 , a23 out nocopy JTF_VARCHAR2_TABLE_200
114 , a24 out nocopy JTF_VARCHAR2_TABLE_200
115 , a25 out nocopy JTF_VARCHAR2_TABLE_200
116 , a26 out nocopy JTF_VARCHAR2_TABLE_200
117 , a27 out nocopy JTF_VARCHAR2_TABLE_200
118 , a28 out nocopy JTF_VARCHAR2_TABLE_200
119 , a29 out nocopy JTF_VARCHAR2_TABLE_100
120 ) as
121 ddindx binary_integer; indx binary_integer;
122 begin
123 if t is null or t.count = 0 then
124 a0 := JTF_NUMBER_TABLE();
125 a1 := JTF_NUMBER_TABLE();
126 a2 := JTF_DATE_TABLE();
127 a3 := JTF_NUMBER_TABLE();
128 a4 := JTF_DATE_TABLE();
129 a5 := JTF_NUMBER_TABLE();
130 a6 := JTF_NUMBER_TABLE();
131 a7 := JTF_NUMBER_TABLE();
132 a8 := JTF_NUMBER_TABLE();
133 a9 := JTF_NUMBER_TABLE();
134 a10 := JTF_VARCHAR2_TABLE_100();
135 a11 := JTF_VARCHAR2_TABLE_100();
136 a12 := JTF_VARCHAR2_TABLE_100();
137 a13 := JTF_VARCHAR2_TABLE_100();
138 a14 := JTF_VARCHAR2_TABLE_200();
139 a15 := JTF_VARCHAR2_TABLE_200();
140 a16 := JTF_VARCHAR2_TABLE_200();
141 a17 := JTF_VARCHAR2_TABLE_200();
142 a18 := JTF_VARCHAR2_TABLE_200();
143 a19 := JTF_VARCHAR2_TABLE_200();
144 a20 := JTF_VARCHAR2_TABLE_200();
145 a21 := JTF_VARCHAR2_TABLE_200();
146 a22 := JTF_VARCHAR2_TABLE_200();
147 a23 := JTF_VARCHAR2_TABLE_200();
148 a24 := JTF_VARCHAR2_TABLE_200();
149 a25 := JTF_VARCHAR2_TABLE_200();
150 a26 := JTF_VARCHAR2_TABLE_200();
151 a27 := JTF_VARCHAR2_TABLE_200();
152 a28 := JTF_VARCHAR2_TABLE_200();
153 a29 := JTF_VARCHAR2_TABLE_100();
154 else
155 a0 := JTF_NUMBER_TABLE();
156 a1 := JTF_NUMBER_TABLE();
157 a2 := JTF_DATE_TABLE();
158 a3 := JTF_NUMBER_TABLE();
159 a4 := JTF_DATE_TABLE();
160 a5 := JTF_NUMBER_TABLE();
161 a6 := JTF_NUMBER_TABLE();
162 a7 := JTF_NUMBER_TABLE();
163 a8 := JTF_NUMBER_TABLE();
164 a9 := JTF_NUMBER_TABLE();
165 a10 := JTF_VARCHAR2_TABLE_100();
166 a11 := JTF_VARCHAR2_TABLE_100();
167 a12 := JTF_VARCHAR2_TABLE_100();
168 a13 := JTF_VARCHAR2_TABLE_100();
169 a14 := JTF_VARCHAR2_TABLE_200();
170 a15 := JTF_VARCHAR2_TABLE_200();
171 a16 := JTF_VARCHAR2_TABLE_200();
172 a17 := JTF_VARCHAR2_TABLE_200();
173 a18 := JTF_VARCHAR2_TABLE_200();
174 a19 := JTF_VARCHAR2_TABLE_200();
175 a20 := JTF_VARCHAR2_TABLE_200();
176 a21 := JTF_VARCHAR2_TABLE_200();
177 a22 := JTF_VARCHAR2_TABLE_200();
178 a23 := JTF_VARCHAR2_TABLE_200();
179 a24 := JTF_VARCHAR2_TABLE_200();
180 a25 := JTF_VARCHAR2_TABLE_200();
181 a26 := JTF_VARCHAR2_TABLE_200();
182 a27 := JTF_VARCHAR2_TABLE_200();
183 a28 := JTF_VARCHAR2_TABLE_200();
184 a29 := JTF_VARCHAR2_TABLE_100();
185 if t.count > 0 then
186 a0.extend(t.count);
187 a1.extend(t.count);
188 a2.extend(t.count);
189 a3.extend(t.count);
190 a4.extend(t.count);
191 a5.extend(t.count);
192 a6.extend(t.count);
193 a7.extend(t.count);
194 a8.extend(t.count);
195 a9.extend(t.count);
196 a10.extend(t.count);
197 a11.extend(t.count);
198 a12.extend(t.count);
199 a13.extend(t.count);
200 a14.extend(t.count);
201 a15.extend(t.count);
202 a16.extend(t.count);
203 a17.extend(t.count);
204 a18.extend(t.count);
205 a19.extend(t.count);
206 a20.extend(t.count);
207 a21.extend(t.count);
208 a22.extend(t.count);
209 a23.extend(t.count);
210 a24.extend(t.count);
211 a25.extend(t.count);
212 a26.extend(t.count);
213 a27.extend(t.count);
214 a28.extend(t.count);
215 a29.extend(t.count);
216 ddindx := t.first;
217 indx := 1;
218 while true loop
219 a0(indx) := t(ddindx).task_link_id;
220 a1(indx) := t(ddindx).object_version_number;
221 a2(indx) := t(ddindx).last_update_date;
222 a3(indx) := t(ddindx).last_updated_by;
223 a4(indx) := t(ddindx).creation_date;
224 a5(indx) := t(ddindx).created_by;
225 a6(indx) := t(ddindx).last_update_login;
226 a7(indx) := t(ddindx).visit_task_id;
227 a8(indx) := t(ddindx).parent_task_id;
228 a9(indx) := t(ddindx).start_from_hour;
229 a10(indx) := t(ddindx).visit_task_number;
230 a11(indx) := t(ddindx).visit_task_name;
231 a12(indx) := t(ddindx).hierarchy_indicator;
232 a13(indx) := t(ddindx).attribute_category;
233 a14(indx) := t(ddindx).attribute1;
234 a15(indx) := t(ddindx).attribute2;
235 a16(indx) := t(ddindx).attribute3;
236 a17(indx) := t(ddindx).attribute4;
237 a18(indx) := t(ddindx).attribute5;
238 a19(indx) := t(ddindx).attribute6;
239 a20(indx) := t(ddindx).attribute7;
240 a21(indx) := t(ddindx).attribute8;
241 a22(indx) := t(ddindx).attribute9;
242 a23(indx) := t(ddindx).attribute10;
243 a24(indx) := t(ddindx).attribute11;
244 a25(indx) := t(ddindx).attribute12;
245 a26(indx) := t(ddindx).attribute13;
246 a27(indx) := t(ddindx).attribute14;
247 a28(indx) := t(ddindx).attribute15;
248 a29(indx) := t(ddindx).dml_operation;
249 indx := indx+1;
250 if t.last =ddindx
251 then exit;
252 end if;
253 ddindx := t.next(ddindx);
254 end loop;
255 end if;
256 end if;
257 end rosetta_table_copy_out_p1;
258
259 procedure process_task_links(p_api_version NUMBER
260 , p_init_msg_list VARCHAR2
261 , p_commit VARCHAR2
262 , p_validation_level NUMBER
263 , p_default VARCHAR2
264 , p_module_type VARCHAR2
265 , x_return_status out nocopy VARCHAR2
266 , x_msg_count out nocopy NUMBER
267 , x_msg_data out nocopy VARCHAR2
268 , p9_a0 in out nocopy JTF_NUMBER_TABLE
269 , p9_a1 in out nocopy JTF_NUMBER_TABLE
270 , p9_a2 in out nocopy JTF_DATE_TABLE
271 , p9_a3 in out nocopy JTF_NUMBER_TABLE
272 , p9_a4 in out nocopy JTF_DATE_TABLE
276 , p9_a8 in out nocopy JTF_NUMBER_TABLE
273 , p9_a5 in out nocopy JTF_NUMBER_TABLE
274 , p9_a6 in out nocopy JTF_NUMBER_TABLE
275 , p9_a7 in out nocopy JTF_NUMBER_TABLE
277 , p9_a9 in out nocopy JTF_NUMBER_TABLE
278 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
279 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
280 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_100
281 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_100
282 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
283 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
284 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
285 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
286 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
287 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
288 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
289 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
290 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
291 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
292 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
293 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
294 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
295 , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
296 , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
297 , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_100
298 )
299
300 as
301 ddp_x_task_link_tbl ahl_vwp_tasks_links_pvt.task_link_tbl;
302 ddindx binary_integer; indx binary_integer;
303 begin
304
305 -- copy data to the local IN or IN-OUT args, if any
306
307
308
309
310
311
312
313
314
315 ahl_vwp_tasks_links_pvt_w.rosetta_table_copy_in_p1(ddp_x_task_link_tbl, p9_a0
316 , p9_a1
317 , p9_a2
318 , p9_a3
319 , p9_a4
320 , p9_a5
321 , p9_a6
322 , p9_a7
323 , p9_a8
324 , p9_a9
325 , p9_a10
326 , p9_a11
327 , p9_a12
328 , p9_a13
329 , p9_a14
330 , p9_a15
331 , p9_a16
332 , p9_a17
333 , p9_a18
334 , p9_a19
335 , p9_a20
336 , p9_a21
337 , p9_a22
338 , p9_a23
339 , p9_a24
340 , p9_a25
341 , p9_a26
342 , p9_a27
343 , p9_a28
344 , p9_a29
345 );
346
347 -- here's the delegated call to the old PL/SQL routine
348 ahl_vwp_tasks_links_pvt.process_task_links(p_api_version,
349 p_init_msg_list,
350 p_commit,
351 p_validation_level,
352 p_default,
353 p_module_type,
354 x_return_status,
355 x_msg_count,
356 x_msg_data,
357 ddp_x_task_link_tbl);
358
359 -- copy data back from the local variables to OUT or IN-OUT args, if any
360
361
362
363
364
365
366
367
368
369 ahl_vwp_tasks_links_pvt_w.rosetta_table_copy_out_p1(ddp_x_task_link_tbl, p9_a0
370 , p9_a1
371 , p9_a2
372 , p9_a3
373 , p9_a4
374 , p9_a5
375 , p9_a6
376 , p9_a7
377 , p9_a8
378 , p9_a9
379 , p9_a10
380 , p9_a11
381 , p9_a12
382 , p9_a13
383 , p9_a14
384 , p9_a15
385 , p9_a16
386 , p9_a17
387 , p9_a18
388 , p9_a19
389 , p9_a20
390 , p9_a21
391 , p9_a22
392 , p9_a23
393 , p9_a24
394 , p9_a25
395 , p9_a26
396 , p9_a27
397 , p9_a28
398 , p9_a29
399 );
400 end;
401
402 end ahl_vwp_tasks_links_pvt_w;