[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_PROJ_PROD_PVT_W
Source
1 package body ahl_vwp_proj_prod_pvt_w as
2 /* $Header: AHLWPRDB.pls 120.2 2008/01/16 06:04:43 rnahata 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy ahl_vwp_proj_prod_pvt.error_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_VARCHAR2_TABLE_2000
18 ) as
19 ddindx binary_integer; indx binary_integer;
20 begin
21 if a0 is not null and a0.count > 0 then
22 if a0.count > 0 then
23 indx := a0.first;
24 ddindx := 1;
25 while true loop
26 t(ddindx).msg_index := a0(indx);
27 t(ddindx).msg_data := a1(indx);
28 ddindx := ddindx+1;
29 if a0.last =indx
30 then exit;
31 end if;
32 indx := a0.next(indx);
33 end loop;
34 end if;
35 end if;
36 end rosetta_table_copy_in_p1;
37 procedure rosetta_table_copy_out_p1(t ahl_vwp_proj_prod_pvt.error_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
38 , a1 out nocopy JTF_VARCHAR2_TABLE_2000
39 ) as
40 ddindx binary_integer; indx binary_integer;
41 begin
42 if t is null or t.count = 0 then
43 a0 := JTF_NUMBER_TABLE();
44 a1 := JTF_VARCHAR2_TABLE_2000();
45 else
46 a0 := JTF_NUMBER_TABLE();
47 a1 := JTF_VARCHAR2_TABLE_2000();
48 if t.count > 0 then
49 a0.extend(t.count);
50 a1.extend(t.count);
51 ddindx := t.first;
52 indx := 1;
53 while true loop
54 a0(indx) := t(ddindx).msg_index;
55 a1(indx) := t(ddindx).msg_data;
56 indx := indx+1;
57 if t.last =ddindx
58 then exit;
59 end if;
60 ddindx := t.next(ddindx);
61 end loop;
62 end if;
63 end if;
64 end rosetta_table_copy_out_p1;
65
66 procedure rosetta_table_copy_in_p2(t out nocopy ahl_vwp_proj_prod_pvt.task_tbl_type, a0 JTF_NUMBER_TABLE
67 , a1 JTF_NUMBER_TABLE
68 , a2 JTF_NUMBER_TABLE
69 , a3 JTF_VARCHAR2_TABLE_100
70 , a4 JTF_NUMBER_TABLE
71 , a5 JTF_NUMBER_TABLE
72 , a6 JTF_VARCHAR2_TABLE_100
73 , a7 JTF_NUMBER_TABLE
74 , a8 JTF_NUMBER_TABLE
75 , a9 JTF_NUMBER_TABLE
76 , a10 JTF_VARCHAR2_TABLE_100
77 , a11 JTF_NUMBER_TABLE
78 , a12 JTF_VARCHAR2_TABLE_100
79 , a13 JTF_NUMBER_TABLE
80 , a14 JTF_NUMBER_TABLE
81 , a15 JTF_VARCHAR2_TABLE_300
82 , a16 JTF_NUMBER_TABLE
83 , a17 JTF_VARCHAR2_TABLE_100
84 , a18 JTF_NUMBER_TABLE
85 , a19 JTF_NUMBER_TABLE
86 , a20 JTF_NUMBER_TABLE
87 , a21 JTF_VARCHAR2_TABLE_100
88 , a22 JTF_NUMBER_TABLE
89 , a23 JTF_NUMBER_TABLE
90 , a24 JTF_NUMBER_TABLE
91 , a25 JTF_NUMBER_TABLE
92 , a26 JTF_NUMBER_TABLE
93 , a27 JTF_VARCHAR2_TABLE_100
94 , a28 JTF_VARCHAR2_TABLE_100
95 , a29 JTF_VARCHAR2_TABLE_100
96 , a30 JTF_VARCHAR2_TABLE_4000
97 , a31 JTF_VARCHAR2_TABLE_100
98 , a32 JTF_VARCHAR2_TABLE_100
99 , a33 JTF_NUMBER_TABLE
100 , a34 JTF_DATE_TABLE
101 , a35 JTF_NUMBER_TABLE
102 , a36 JTF_DATE_TABLE
103 , a37 JTF_NUMBER_TABLE
104 , a38 JTF_NUMBER_TABLE
105 , a39 JTF_VARCHAR2_TABLE_100
106 , a40 JTF_VARCHAR2_TABLE_200
107 , a41 JTF_VARCHAR2_TABLE_200
108 , a42 JTF_VARCHAR2_TABLE_200
109 , a43 JTF_VARCHAR2_TABLE_200
110 , a44 JTF_VARCHAR2_TABLE_200
111 , a45 JTF_VARCHAR2_TABLE_200
112 , a46 JTF_VARCHAR2_TABLE_200
113 , a47 JTF_VARCHAR2_TABLE_200
114 , a48 JTF_VARCHAR2_TABLE_200
115 , a49 JTF_VARCHAR2_TABLE_200
116 , a50 JTF_VARCHAR2_TABLE_200
117 , a51 JTF_VARCHAR2_TABLE_200
118 , a52 JTF_VARCHAR2_TABLE_200
119 , a53 JTF_VARCHAR2_TABLE_200
120 , a54 JTF_VARCHAR2_TABLE_200
121 , a55 JTF_DATE_TABLE
122 , a56 JTF_DATE_TABLE
123 , a57 JTF_DATE_TABLE
124 , a58 JTF_VARCHAR2_TABLE_100
125 , a59 JTF_VARCHAR2_TABLE_100
126 , a60 JTF_NUMBER_TABLE
127 , a61 JTF_NUMBER_TABLE
128 , a62 JTF_VARCHAR2_TABLE_100
129 , a63 JTF_NUMBER_TABLE
130 , a64 JTF_VARCHAR2_TABLE_300
131 , a65 JTF_VARCHAR2_TABLE_100
132 , a66 JTF_DATE_TABLE
133 , a67 JTF_DATE_TABLE
134 , a68 JTF_VARCHAR2_TABLE_100
135 , a69 JTF_VARCHAR2_TABLE_100
136 , a70 JTF_VARCHAR2_TABLE_100
137 , a71 JTF_NUMBER_TABLE
138 , a72 JTF_VARCHAR2_TABLE_100
139 , a73 JTF_NUMBER_TABLE
140 , a74 JTF_VARCHAR2_TABLE_100
141 , a75 JTF_VARCHAR2_TABLE_100
142 ) as
143 ddindx binary_integer; indx binary_integer;
144 begin
145 if a0 is not null and a0.count > 0 then
146 if a0.count > 0 then
147 indx := a0.first;
148 ddindx := 1;
149 while true loop
150 t(ddindx).visit_task_id := a0(indx);
151 t(ddindx).visit_task_number := a1(indx);
152 t(ddindx).visit_id := a2(indx);
153 t(ddindx).template_flag := a3(indx);
154 t(ddindx).inventory_item_id := a4(indx);
155 t(ddindx).item_organization_id := a5(indx);
156 t(ddindx).item_name := a6(indx);
157 t(ddindx).cost_parent_id := a7(indx);
158 t(ddindx).cost_parent_number := a8(indx);
159 t(ddindx).mr_route_id := a9(indx);
160 t(ddindx).route_number := a10(indx);
161 t(ddindx).mr_id := a11(indx);
162 t(ddindx).mr_title := a12(indx);
163 t(ddindx).unit_effectivity_id := a13(indx);
164 t(ddindx).department_id := a14(indx);
165 t(ddindx).dept_name := a15(indx);
166 t(ddindx).service_request_id := a16(indx);
167 t(ddindx).service_request_number := a17(indx);
168 t(ddindx).originating_task_id := a18(indx);
169 t(ddindx).orginating_task_number := a19(indx);
170 t(ddindx).instance_id := a20(indx);
171 t(ddindx).serial_number := a21(indx);
172 t(ddindx).project_task_id := a22(indx);
173 t(ddindx).project_task_number := a23(indx);
174 t(ddindx).primary_visit_task_id := a24(indx);
175 t(ddindx).start_from_hour := a25(indx);
176 t(ddindx).duration := a26(indx);
177 t(ddindx).task_type_code := a27(indx);
178 t(ddindx).task_type_value := a28(indx);
179 t(ddindx).visit_task_name := a29(indx);
180 t(ddindx).description := a30(indx);
181 t(ddindx).task_status_code := a31(indx);
182 t(ddindx).task_status_value := a32(indx);
183 t(ddindx).object_version_number := a33(indx);
184 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a34(indx));
185 t(ddindx).last_updated_by := a35(indx);
186 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a36(indx));
187 t(ddindx).created_by := a37(indx);
188 t(ddindx).last_update_login := a38(indx);
189 t(ddindx).attribute_category := a39(indx);
190 t(ddindx).attribute1 := a40(indx);
191 t(ddindx).attribute2 := a41(indx);
192 t(ddindx).attribute3 := a42(indx);
193 t(ddindx).attribute4 := a43(indx);
194 t(ddindx).attribute5 := a44(indx);
195 t(ddindx).attribute6 := a45(indx);
196 t(ddindx).attribute7 := a46(indx);
197 t(ddindx).attribute8 := a47(indx);
198 t(ddindx).attribute9 := a48(indx);
199 t(ddindx).attribute10 := a49(indx);
200 t(ddindx).attribute11 := a50(indx);
201 t(ddindx).attribute12 := a51(indx);
202 t(ddindx).attribute13 := a52(indx);
203 t(ddindx).attribute14 := a53(indx);
204 t(ddindx).attribute15 := a54(indx);
205 t(ddindx).task_start_date := rosetta_g_miss_date_in_map(a55(indx));
206 t(ddindx).task_end_date := rosetta_g_miss_date_in_map(a56(indx));
207 t(ddindx).due_by_date := rosetta_g_miss_date_in_map(a57(indx));
208 t(ddindx).zone_name := a58(indx);
209 t(ddindx).sub_zone_name := a59(indx);
210 t(ddindx).tolerance_after := a60(indx);
211 t(ddindx).tolerance_before := a61(indx);
212 t(ddindx).tolerance_uom := a62(indx);
213 t(ddindx).workorder_id := a63(indx);
214 t(ddindx).wo_name := a64(indx);
215 t(ddindx).wo_status := a65(indx);
216 t(ddindx).wo_start_date := rosetta_g_miss_date_in_map(a66(indx));
217 t(ddindx).wo_end_date := rosetta_g_miss_date_in_map(a67(indx));
218 t(ddindx).operation_flag := a68(indx);
219 t(ddindx).is_production_flag := a69(indx);
220 t(ddindx).create_job_flag := a70(indx);
221 t(ddindx).stage_id := a71(indx);
222 t(ddindx).stage_name := a72(indx);
223 t(ddindx).quantity := a73(indx);
224 t(ddindx).uom := a74(indx);
225 t(ddindx).instance_number := a75(indx);
226 ddindx := ddindx+1;
227 if a0.last =indx
228 then exit;
229 end if;
230 indx := a0.next(indx);
231 end loop;
232 end if;
233 end if;
234 end rosetta_table_copy_in_p2;
235 procedure rosetta_table_copy_out_p2(t ahl_vwp_proj_prod_pvt.task_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
236 , a1 out nocopy JTF_NUMBER_TABLE
237 , a2 out nocopy JTF_NUMBER_TABLE
238 , a3 out nocopy JTF_VARCHAR2_TABLE_100
239 , a4 out nocopy JTF_NUMBER_TABLE
240 , a5 out nocopy JTF_NUMBER_TABLE
241 , a6 out nocopy JTF_VARCHAR2_TABLE_100
242 , a7 out nocopy JTF_NUMBER_TABLE
243 , a8 out nocopy JTF_NUMBER_TABLE
244 , a9 out nocopy JTF_NUMBER_TABLE
245 , a10 out nocopy JTF_VARCHAR2_TABLE_100
246 , a11 out nocopy JTF_NUMBER_TABLE
247 , a12 out nocopy JTF_VARCHAR2_TABLE_100
248 , a13 out nocopy JTF_NUMBER_TABLE
249 , a14 out nocopy JTF_NUMBER_TABLE
250 , a15 out nocopy JTF_VARCHAR2_TABLE_300
251 , a16 out nocopy JTF_NUMBER_TABLE
252 , a17 out nocopy JTF_VARCHAR2_TABLE_100
253 , a18 out nocopy JTF_NUMBER_TABLE
254 , a19 out nocopy JTF_NUMBER_TABLE
255 , a20 out nocopy JTF_NUMBER_TABLE
256 , a21 out nocopy JTF_VARCHAR2_TABLE_100
257 , a22 out nocopy JTF_NUMBER_TABLE
258 , a23 out nocopy JTF_NUMBER_TABLE
259 , a24 out nocopy JTF_NUMBER_TABLE
260 , a25 out nocopy JTF_NUMBER_TABLE
261 , a26 out nocopy JTF_NUMBER_TABLE
262 , a27 out nocopy JTF_VARCHAR2_TABLE_100
263 , a28 out nocopy JTF_VARCHAR2_TABLE_100
264 , a29 out nocopy JTF_VARCHAR2_TABLE_100
265 , a30 out nocopy JTF_VARCHAR2_TABLE_4000
266 , a31 out nocopy JTF_VARCHAR2_TABLE_100
267 , a32 out nocopy JTF_VARCHAR2_TABLE_100
268 , a33 out nocopy JTF_NUMBER_TABLE
269 , a34 out nocopy JTF_DATE_TABLE
270 , a35 out nocopy JTF_NUMBER_TABLE
271 , a36 out nocopy JTF_DATE_TABLE
272 , a37 out nocopy JTF_NUMBER_TABLE
273 , a38 out nocopy JTF_NUMBER_TABLE
274 , a39 out nocopy JTF_VARCHAR2_TABLE_100
275 , a40 out nocopy JTF_VARCHAR2_TABLE_200
276 , a41 out nocopy JTF_VARCHAR2_TABLE_200
277 , a42 out nocopy JTF_VARCHAR2_TABLE_200
278 , a43 out nocopy JTF_VARCHAR2_TABLE_200
279 , a44 out nocopy JTF_VARCHAR2_TABLE_200
280 , a45 out nocopy JTF_VARCHAR2_TABLE_200
281 , a46 out nocopy JTF_VARCHAR2_TABLE_200
282 , a47 out nocopy JTF_VARCHAR2_TABLE_200
283 , a48 out nocopy JTF_VARCHAR2_TABLE_200
284 , a49 out nocopy JTF_VARCHAR2_TABLE_200
285 , a50 out nocopy JTF_VARCHAR2_TABLE_200
286 , a51 out nocopy JTF_VARCHAR2_TABLE_200
287 , a52 out nocopy JTF_VARCHAR2_TABLE_200
288 , a53 out nocopy JTF_VARCHAR2_TABLE_200
289 , a54 out nocopy JTF_VARCHAR2_TABLE_200
290 , a55 out nocopy JTF_DATE_TABLE
291 , a56 out nocopy JTF_DATE_TABLE
292 , a57 out nocopy JTF_DATE_TABLE
293 , a58 out nocopy JTF_VARCHAR2_TABLE_100
294 , a59 out nocopy JTF_VARCHAR2_TABLE_100
295 , a60 out nocopy JTF_NUMBER_TABLE
296 , a61 out nocopy JTF_NUMBER_TABLE
297 , a62 out nocopy JTF_VARCHAR2_TABLE_100
298 , a63 out nocopy JTF_NUMBER_TABLE
299 , a64 out nocopy JTF_VARCHAR2_TABLE_300
300 , a65 out nocopy JTF_VARCHAR2_TABLE_100
301 , a66 out nocopy JTF_DATE_TABLE
302 , a67 out nocopy JTF_DATE_TABLE
303 , a68 out nocopy JTF_VARCHAR2_TABLE_100
304 , a69 out nocopy JTF_VARCHAR2_TABLE_100
305 , a70 out nocopy JTF_VARCHAR2_TABLE_100
306 , a71 out nocopy JTF_NUMBER_TABLE
307 , a72 out nocopy JTF_VARCHAR2_TABLE_100
308 , a73 out nocopy JTF_NUMBER_TABLE
309 , a74 out nocopy JTF_VARCHAR2_TABLE_100
310 , a75 out nocopy JTF_VARCHAR2_TABLE_100
311 ) as
312 ddindx binary_integer; indx binary_integer;
313 begin
314 if t is null or t.count = 0 then
315 a0 := JTF_NUMBER_TABLE();
316 a1 := JTF_NUMBER_TABLE();
317 a2 := JTF_NUMBER_TABLE();
318 a3 := JTF_VARCHAR2_TABLE_100();
319 a4 := JTF_NUMBER_TABLE();
320 a5 := JTF_NUMBER_TABLE();
321 a6 := JTF_VARCHAR2_TABLE_100();
322 a7 := JTF_NUMBER_TABLE();
323 a8 := JTF_NUMBER_TABLE();
324 a9 := JTF_NUMBER_TABLE();
325 a10 := JTF_VARCHAR2_TABLE_100();
326 a11 := JTF_NUMBER_TABLE();
327 a12 := JTF_VARCHAR2_TABLE_100();
328 a13 := JTF_NUMBER_TABLE();
329 a14 := JTF_NUMBER_TABLE();
330 a15 := JTF_VARCHAR2_TABLE_300();
331 a16 := JTF_NUMBER_TABLE();
332 a17 := JTF_VARCHAR2_TABLE_100();
333 a18 := JTF_NUMBER_TABLE();
334 a19 := JTF_NUMBER_TABLE();
335 a20 := JTF_NUMBER_TABLE();
336 a21 := JTF_VARCHAR2_TABLE_100();
337 a22 := JTF_NUMBER_TABLE();
338 a23 := JTF_NUMBER_TABLE();
339 a24 := JTF_NUMBER_TABLE();
340 a25 := JTF_NUMBER_TABLE();
341 a26 := JTF_NUMBER_TABLE();
342 a27 := JTF_VARCHAR2_TABLE_100();
343 a28 := JTF_VARCHAR2_TABLE_100();
344 a29 := JTF_VARCHAR2_TABLE_100();
345 a30 := JTF_VARCHAR2_TABLE_4000();
346 a31 := JTF_VARCHAR2_TABLE_100();
347 a32 := JTF_VARCHAR2_TABLE_100();
348 a33 := JTF_NUMBER_TABLE();
349 a34 := JTF_DATE_TABLE();
350 a35 := JTF_NUMBER_TABLE();
351 a36 := JTF_DATE_TABLE();
352 a37 := JTF_NUMBER_TABLE();
353 a38 := JTF_NUMBER_TABLE();
354 a39 := JTF_VARCHAR2_TABLE_100();
355 a40 := JTF_VARCHAR2_TABLE_200();
356 a41 := JTF_VARCHAR2_TABLE_200();
357 a42 := JTF_VARCHAR2_TABLE_200();
358 a43 := JTF_VARCHAR2_TABLE_200();
359 a44 := JTF_VARCHAR2_TABLE_200();
360 a45 := JTF_VARCHAR2_TABLE_200();
361 a46 := JTF_VARCHAR2_TABLE_200();
362 a47 := JTF_VARCHAR2_TABLE_200();
363 a48 := JTF_VARCHAR2_TABLE_200();
364 a49 := JTF_VARCHAR2_TABLE_200();
365 a50 := JTF_VARCHAR2_TABLE_200();
366 a51 := JTF_VARCHAR2_TABLE_200();
367 a52 := JTF_VARCHAR2_TABLE_200();
368 a53 := JTF_VARCHAR2_TABLE_200();
369 a54 := JTF_VARCHAR2_TABLE_200();
370 a55 := JTF_DATE_TABLE();
371 a56 := JTF_DATE_TABLE();
372 a57 := JTF_DATE_TABLE();
373 a58 := JTF_VARCHAR2_TABLE_100();
374 a59 := JTF_VARCHAR2_TABLE_100();
375 a60 := JTF_NUMBER_TABLE();
376 a61 := JTF_NUMBER_TABLE();
380 a65 := JTF_VARCHAR2_TABLE_100();
377 a62 := JTF_VARCHAR2_TABLE_100();
378 a63 := JTF_NUMBER_TABLE();
379 a64 := JTF_VARCHAR2_TABLE_300();
381 a66 := JTF_DATE_TABLE();
382 a67 := JTF_DATE_TABLE();
383 a68 := JTF_VARCHAR2_TABLE_100();
384 a69 := JTF_VARCHAR2_TABLE_100();
385 a70 := JTF_VARCHAR2_TABLE_100();
386 a71 := JTF_NUMBER_TABLE();
387 a72 := JTF_VARCHAR2_TABLE_100();
388 a73 := JTF_NUMBER_TABLE();
389 a74 := JTF_VARCHAR2_TABLE_100();
390 a75 := JTF_VARCHAR2_TABLE_100();
391 else
392 a0 := JTF_NUMBER_TABLE();
393 a1 := JTF_NUMBER_TABLE();
394 a2 := JTF_NUMBER_TABLE();
395 a3 := JTF_VARCHAR2_TABLE_100();
396 a4 := JTF_NUMBER_TABLE();
397 a5 := JTF_NUMBER_TABLE();
398 a6 := JTF_VARCHAR2_TABLE_100();
399 a7 := JTF_NUMBER_TABLE();
400 a8 := JTF_NUMBER_TABLE();
401 a9 := JTF_NUMBER_TABLE();
402 a10 := JTF_VARCHAR2_TABLE_100();
403 a11 := JTF_NUMBER_TABLE();
404 a12 := JTF_VARCHAR2_TABLE_100();
405 a13 := JTF_NUMBER_TABLE();
406 a14 := JTF_NUMBER_TABLE();
407 a15 := JTF_VARCHAR2_TABLE_300();
408 a16 := JTF_NUMBER_TABLE();
409 a17 := JTF_VARCHAR2_TABLE_100();
410 a18 := JTF_NUMBER_TABLE();
411 a19 := JTF_NUMBER_TABLE();
412 a20 := JTF_NUMBER_TABLE();
413 a21 := JTF_VARCHAR2_TABLE_100();
414 a22 := JTF_NUMBER_TABLE();
415 a23 := JTF_NUMBER_TABLE();
416 a24 := JTF_NUMBER_TABLE();
417 a25 := JTF_NUMBER_TABLE();
418 a26 := JTF_NUMBER_TABLE();
419 a27 := JTF_VARCHAR2_TABLE_100();
420 a28 := JTF_VARCHAR2_TABLE_100();
421 a29 := JTF_VARCHAR2_TABLE_100();
422 a30 := JTF_VARCHAR2_TABLE_4000();
423 a31 := JTF_VARCHAR2_TABLE_100();
424 a32 := JTF_VARCHAR2_TABLE_100();
425 a33 := JTF_NUMBER_TABLE();
426 a34 := JTF_DATE_TABLE();
427 a35 := JTF_NUMBER_TABLE();
428 a36 := JTF_DATE_TABLE();
429 a37 := JTF_NUMBER_TABLE();
430 a38 := JTF_NUMBER_TABLE();
431 a39 := JTF_VARCHAR2_TABLE_100();
432 a40 := JTF_VARCHAR2_TABLE_200();
433 a41 := JTF_VARCHAR2_TABLE_200();
434 a42 := JTF_VARCHAR2_TABLE_200();
435 a43 := JTF_VARCHAR2_TABLE_200();
436 a44 := JTF_VARCHAR2_TABLE_200();
437 a45 := JTF_VARCHAR2_TABLE_200();
438 a46 := JTF_VARCHAR2_TABLE_200();
439 a47 := JTF_VARCHAR2_TABLE_200();
440 a48 := JTF_VARCHAR2_TABLE_200();
441 a49 := JTF_VARCHAR2_TABLE_200();
442 a50 := JTF_VARCHAR2_TABLE_200();
443 a51 := JTF_VARCHAR2_TABLE_200();
444 a52 := JTF_VARCHAR2_TABLE_200();
445 a53 := JTF_VARCHAR2_TABLE_200();
446 a54 := JTF_VARCHAR2_TABLE_200();
447 a55 := JTF_DATE_TABLE();
448 a56 := JTF_DATE_TABLE();
449 a57 := JTF_DATE_TABLE();
450 a58 := JTF_VARCHAR2_TABLE_100();
451 a59 := JTF_VARCHAR2_TABLE_100();
452 a60 := JTF_NUMBER_TABLE();
453 a61 := JTF_NUMBER_TABLE();
454 a62 := JTF_VARCHAR2_TABLE_100();
455 a63 := JTF_NUMBER_TABLE();
456 a64 := JTF_VARCHAR2_TABLE_300();
457 a65 := JTF_VARCHAR2_TABLE_100();
458 a66 := JTF_DATE_TABLE();
459 a67 := JTF_DATE_TABLE();
460 a68 := JTF_VARCHAR2_TABLE_100();
461 a69 := JTF_VARCHAR2_TABLE_100();
462 a70 := JTF_VARCHAR2_TABLE_100();
463 a71 := JTF_NUMBER_TABLE();
464 a72 := JTF_VARCHAR2_TABLE_100();
465 a73 := JTF_NUMBER_TABLE();
466 a74 := JTF_VARCHAR2_TABLE_100();
467 a75 := JTF_VARCHAR2_TABLE_100();
468 if t.count > 0 then
469 a0.extend(t.count);
470 a1.extend(t.count);
471 a2.extend(t.count);
472 a3.extend(t.count);
473 a4.extend(t.count);
474 a5.extend(t.count);
475 a6.extend(t.count);
476 a7.extend(t.count);
477 a8.extend(t.count);
478 a9.extend(t.count);
479 a10.extend(t.count);
480 a11.extend(t.count);
481 a12.extend(t.count);
482 a13.extend(t.count);
483 a14.extend(t.count);
484 a15.extend(t.count);
485 a16.extend(t.count);
486 a17.extend(t.count);
487 a18.extend(t.count);
488 a19.extend(t.count);
489 a20.extend(t.count);
490 a21.extend(t.count);
491 a22.extend(t.count);
492 a23.extend(t.count);
493 a24.extend(t.count);
494 a25.extend(t.count);
495 a26.extend(t.count);
496 a27.extend(t.count);
497 a28.extend(t.count);
498 a29.extend(t.count);
499 a30.extend(t.count);
500 a31.extend(t.count);
501 a32.extend(t.count);
502 a33.extend(t.count);
503 a34.extend(t.count);
504 a35.extend(t.count);
505 a36.extend(t.count);
506 a37.extend(t.count);
507 a38.extend(t.count);
508 a39.extend(t.count);
509 a40.extend(t.count);
510 a41.extend(t.count);
511 a42.extend(t.count);
512 a43.extend(t.count);
513 a44.extend(t.count);
514 a45.extend(t.count);
515 a46.extend(t.count);
516 a47.extend(t.count);
520 a51.extend(t.count);
517 a48.extend(t.count);
518 a49.extend(t.count);
519 a50.extend(t.count);
521 a52.extend(t.count);
522 a53.extend(t.count);
523 a54.extend(t.count);
524 a55.extend(t.count);
525 a56.extend(t.count);
526 a57.extend(t.count);
527 a58.extend(t.count);
528 a59.extend(t.count);
529 a60.extend(t.count);
530 a61.extend(t.count);
531 a62.extend(t.count);
532 a63.extend(t.count);
533 a64.extend(t.count);
534 a65.extend(t.count);
535 a66.extend(t.count);
536 a67.extend(t.count);
537 a68.extend(t.count);
538 a69.extend(t.count);
539 a70.extend(t.count);
540 a71.extend(t.count);
541 a72.extend(t.count);
542 a73.extend(t.count);
543 a74.extend(t.count);
544 a75.extend(t.count);
545 ddindx := t.first;
546 indx := 1;
547 while true loop
548 a0(indx) := t(ddindx).visit_task_id;
549 a1(indx) := t(ddindx).visit_task_number;
550 a2(indx) := t(ddindx).visit_id;
551 a3(indx) := t(ddindx).template_flag;
552 a4(indx) := t(ddindx).inventory_item_id;
553 a5(indx) := t(ddindx).item_organization_id;
554 a6(indx) := t(ddindx).item_name;
555 a7(indx) := t(ddindx).cost_parent_id;
556 a8(indx) := t(ddindx).cost_parent_number;
557 a9(indx) := t(ddindx).mr_route_id;
558 a10(indx) := t(ddindx).route_number;
559 a11(indx) := t(ddindx).mr_id;
560 a12(indx) := t(ddindx).mr_title;
561 a13(indx) := t(ddindx).unit_effectivity_id;
562 a14(indx) := t(ddindx).department_id;
563 a15(indx) := t(ddindx).dept_name;
564 a16(indx) := t(ddindx).service_request_id;
565 a17(indx) := t(ddindx).service_request_number;
566 a18(indx) := t(ddindx).originating_task_id;
567 a19(indx) := t(ddindx).orginating_task_number;
568 a20(indx) := t(ddindx).instance_id;
569 a21(indx) := t(ddindx).serial_number;
570 a22(indx) := t(ddindx).project_task_id;
571 a23(indx) := t(ddindx).project_task_number;
572 a24(indx) := t(ddindx).primary_visit_task_id;
573 a25(indx) := t(ddindx).start_from_hour;
574 a26(indx) := t(ddindx).duration;
575 a27(indx) := t(ddindx).task_type_code;
576 a28(indx) := t(ddindx).task_type_value;
577 a29(indx) := t(ddindx).visit_task_name;
578 a30(indx) := t(ddindx).description;
579 a31(indx) := t(ddindx).task_status_code;
580 a32(indx) := t(ddindx).task_status_value;
581 a33(indx) := t(ddindx).object_version_number;
582 a34(indx) := t(ddindx).last_update_date;
583 a35(indx) := t(ddindx).last_updated_by;
584 a36(indx) := t(ddindx).creation_date;
585 a37(indx) := t(ddindx).created_by;
586 a38(indx) := t(ddindx).last_update_login;
587 a39(indx) := t(ddindx).attribute_category;
588 a40(indx) := t(ddindx).attribute1;
589 a41(indx) := t(ddindx).attribute2;
590 a42(indx) := t(ddindx).attribute3;
591 a43(indx) := t(ddindx).attribute4;
592 a44(indx) := t(ddindx).attribute5;
593 a45(indx) := t(ddindx).attribute6;
594 a46(indx) := t(ddindx).attribute7;
595 a47(indx) := t(ddindx).attribute8;
596 a48(indx) := t(ddindx).attribute9;
597 a49(indx) := t(ddindx).attribute10;
598 a50(indx) := t(ddindx).attribute11;
599 a51(indx) := t(ddindx).attribute12;
600 a52(indx) := t(ddindx).attribute13;
601 a53(indx) := t(ddindx).attribute14;
602 a54(indx) := t(ddindx).attribute15;
603 a55(indx) := t(ddindx).task_start_date;
604 a56(indx) := t(ddindx).task_end_date;
605 a57(indx) := t(ddindx).due_by_date;
606 a58(indx) := t(ddindx).zone_name;
607 a59(indx) := t(ddindx).sub_zone_name;
608 a60(indx) := t(ddindx).tolerance_after;
609 a61(indx) := t(ddindx).tolerance_before;
610 a62(indx) := t(ddindx).tolerance_uom;
611 a63(indx) := t(ddindx).workorder_id;
612 a64(indx) := t(ddindx).wo_name;
613 a65(indx) := t(ddindx).wo_status;
614 a66(indx) := t(ddindx).wo_start_date;
615 a67(indx) := t(ddindx).wo_end_date;
616 a68(indx) := t(ddindx).operation_flag;
617 a69(indx) := t(ddindx).is_production_flag;
618 a70(indx) := t(ddindx).create_job_flag;
619 a71(indx) := t(ddindx).stage_id;
620 a72(indx) := t(ddindx).stage_name;
621 a73(indx) := t(ddindx).quantity;
622 a74(indx) := t(ddindx).uom;
623 a75(indx) := t(ddindx).instance_number;
624 indx := indx+1;
625 if t.last =ddindx
626 then exit;
627 end if;
628 ddindx := t.next(ddindx);
629 end loop;
630 end if;
631 end if;
632 end rosetta_table_copy_out_p2;
633
634 procedure validate_before_production(p_api_version NUMBER
635 , p_init_msg_list VARCHAR2
636 , p_commit VARCHAR2
637 , p_validation_level NUMBER
638 , p_module_type VARCHAR2
639 , p_visit_id NUMBER
640 , p6_a0 out nocopy JTF_NUMBER_TABLE
644 , x_msg_data out nocopy VARCHAR2
641 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_2000
642 , x_return_status out nocopy VARCHAR2
643 , x_msg_count out nocopy NUMBER
645 )
646
647 as
648 ddx_error_tbl ahl_vwp_proj_prod_pvt.error_tbl_type;
649 ddindx binary_integer; indx binary_integer;
650 begin
651
652 -- copy data to the local IN or IN-OUT args, if any
653
654
655
656
657
658
659
660
661
662
663 -- here's the delegated call to the old PL/SQL routine
664 ahl_vwp_proj_prod_pvt.validate_before_production(p_api_version,
665 p_init_msg_list,
666 p_commit,
667 p_validation_level,
668 p_module_type,
669 p_visit_id,
670 ddx_error_tbl,
671 x_return_status,
672 x_msg_count,
673 x_msg_data);
674
675 -- copy data back from the local variables to OUT or IN-OUT args, if any
676
677
678
679
680
681
682 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_out_p1(ddx_error_tbl, p6_a0
683 , p6_a1
684 );
685
686
687
688 end;
689
690 procedure create_job_tasks(p_api_version NUMBER
691 , p_init_msg_list VARCHAR2
692 , p_commit VARCHAR2
693 , p_validation_level NUMBER
694 , p_module_type VARCHAR2
695 , p5_a0 in out nocopy JTF_NUMBER_TABLE
696 , p5_a1 in out nocopy JTF_NUMBER_TABLE
697 , p5_a2 in out nocopy JTF_NUMBER_TABLE
698 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
699 , p5_a4 in out nocopy JTF_NUMBER_TABLE
700 , p5_a5 in out nocopy JTF_NUMBER_TABLE
701 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
702 , p5_a7 in out nocopy JTF_NUMBER_TABLE
703 , p5_a8 in out nocopy JTF_NUMBER_TABLE
704 , p5_a9 in out nocopy JTF_NUMBER_TABLE
705 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
706 , p5_a11 in out nocopy JTF_NUMBER_TABLE
707 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
708 , p5_a13 in out nocopy JTF_NUMBER_TABLE
709 , p5_a14 in out nocopy JTF_NUMBER_TABLE
710 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_300
711 , p5_a16 in out nocopy JTF_NUMBER_TABLE
712 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
713 , p5_a18 in out nocopy JTF_NUMBER_TABLE
714 , p5_a19 in out nocopy JTF_NUMBER_TABLE
715 , p5_a20 in out nocopy JTF_NUMBER_TABLE
716 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_100
717 , p5_a22 in out nocopy JTF_NUMBER_TABLE
718 , p5_a23 in out nocopy JTF_NUMBER_TABLE
719 , p5_a24 in out nocopy JTF_NUMBER_TABLE
720 , p5_a25 in out nocopy JTF_NUMBER_TABLE
721 , p5_a26 in out nocopy JTF_NUMBER_TABLE
722 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
723 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_100
724 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_100
725 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_4000
726 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_100
727 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_100
728 , p5_a33 in out nocopy JTF_NUMBER_TABLE
729 , p5_a34 in out nocopy JTF_DATE_TABLE
730 , p5_a35 in out nocopy JTF_NUMBER_TABLE
731 , p5_a36 in out nocopy JTF_DATE_TABLE
732 , p5_a37 in out nocopy JTF_NUMBER_TABLE
733 , p5_a38 in out nocopy JTF_NUMBER_TABLE
734 , p5_a39 in out nocopy JTF_VARCHAR2_TABLE_100
735 , p5_a40 in out nocopy JTF_VARCHAR2_TABLE_200
736 , p5_a41 in out nocopy JTF_VARCHAR2_TABLE_200
737 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_200
738 , p5_a43 in out nocopy JTF_VARCHAR2_TABLE_200
739 , p5_a44 in out nocopy JTF_VARCHAR2_TABLE_200
740 , p5_a45 in out nocopy JTF_VARCHAR2_TABLE_200
741 , p5_a46 in out nocopy JTF_VARCHAR2_TABLE_200
742 , p5_a47 in out nocopy JTF_VARCHAR2_TABLE_200
743 , p5_a48 in out nocopy JTF_VARCHAR2_TABLE_200
744 , p5_a49 in out nocopy JTF_VARCHAR2_TABLE_200
745 , p5_a50 in out nocopy JTF_VARCHAR2_TABLE_200
746 , p5_a51 in out nocopy JTF_VARCHAR2_TABLE_200
747 , p5_a52 in out nocopy JTF_VARCHAR2_TABLE_200
748 , p5_a53 in out nocopy JTF_VARCHAR2_TABLE_200
749 , p5_a54 in out nocopy JTF_VARCHAR2_TABLE_200
750 , p5_a55 in out nocopy JTF_DATE_TABLE
751 , p5_a56 in out nocopy JTF_DATE_TABLE
752 , p5_a57 in out nocopy JTF_DATE_TABLE
753 , p5_a58 in out nocopy JTF_VARCHAR2_TABLE_100
754 , p5_a59 in out nocopy JTF_VARCHAR2_TABLE_100
755 , p5_a60 in out nocopy JTF_NUMBER_TABLE
756 , p5_a61 in out nocopy JTF_NUMBER_TABLE
757 , p5_a62 in out nocopy JTF_VARCHAR2_TABLE_100
758 , p5_a63 in out nocopy JTF_NUMBER_TABLE
759 , p5_a64 in out nocopy JTF_VARCHAR2_TABLE_300
760 , p5_a65 in out nocopy JTF_VARCHAR2_TABLE_100
761 , p5_a66 in out nocopy JTF_DATE_TABLE
762 , p5_a67 in out nocopy JTF_DATE_TABLE
763 , p5_a68 in out nocopy JTF_VARCHAR2_TABLE_100
764 , p5_a69 in out nocopy JTF_VARCHAR2_TABLE_100
765 , p5_a70 in out nocopy JTF_VARCHAR2_TABLE_100
766 , p5_a71 in out nocopy JTF_NUMBER_TABLE
767 , p5_a72 in out nocopy JTF_VARCHAR2_TABLE_100
768 , p5_a73 in out nocopy JTF_NUMBER_TABLE
769 , p5_a74 in out nocopy JTF_VARCHAR2_TABLE_100
770 , p5_a75 in out nocopy JTF_VARCHAR2_TABLE_100
771 , x_return_status out nocopy VARCHAR2
772 , x_msg_count out nocopy NUMBER
773 , x_msg_data out nocopy VARCHAR2
774 )
775
776 as
777 ddp_x_task_tbl ahl_vwp_proj_prod_pvt.task_tbl_type;
778 ddindx binary_integer; indx binary_integer;
782
779 begin
780
781 -- copy data to the local IN or IN-OUT args, if any
783
784
785
786
787 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_in_p2(ddp_x_task_tbl, p5_a0
788 , p5_a1
789 , p5_a2
790 , p5_a3
791 , p5_a4
792 , p5_a5
793 , p5_a6
794 , p5_a7
795 , p5_a8
796 , p5_a9
797 , p5_a10
798 , p5_a11
799 , p5_a12
800 , p5_a13
801 , p5_a14
802 , p5_a15
803 , p5_a16
804 , p5_a17
805 , p5_a18
806 , p5_a19
807 , p5_a20
808 , p5_a21
809 , p5_a22
810 , p5_a23
811 , p5_a24
812 , p5_a25
813 , p5_a26
814 , p5_a27
815 , p5_a28
816 , p5_a29
817 , p5_a30
818 , p5_a31
819 , p5_a32
820 , p5_a33
821 , p5_a34
822 , p5_a35
823 , p5_a36
824 , p5_a37
825 , p5_a38
826 , p5_a39
827 , p5_a40
828 , p5_a41
829 , p5_a42
830 , p5_a43
831 , p5_a44
832 , p5_a45
833 , p5_a46
834 , p5_a47
835 , p5_a48
836 , p5_a49
837 , p5_a50
838 , p5_a51
839 , p5_a52
840 , p5_a53
841 , p5_a54
842 , p5_a55
843 , p5_a56
844 , p5_a57
845 , p5_a58
846 , p5_a59
847 , p5_a60
848 , p5_a61
849 , p5_a62
850 , p5_a63
851 , p5_a64
852 , p5_a65
853 , p5_a66
854 , p5_a67
855 , p5_a68
856 , p5_a69
857 , p5_a70
858 , p5_a71
859 , p5_a72
860 , p5_a73
861 , p5_a74
862 , p5_a75
863 );
864
865
866
867
868 -- here's the delegated call to the old PL/SQL routine
869 ahl_vwp_proj_prod_pvt.create_job_tasks(p_api_version,
870 p_init_msg_list,
871 p_commit,
872 p_validation_level,
873 p_module_type,
874 ddp_x_task_tbl,
875 x_return_status,
876 x_msg_count,
877 x_msg_data);
878
879 -- copy data back from the local variables to OUT or IN-OUT args, if any
880
881
882
883
884
885 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_out_p2(ddp_x_task_tbl, p5_a0
886 , p5_a1
887 , p5_a2
888 , p5_a3
889 , p5_a4
890 , p5_a5
891 , p5_a6
892 , p5_a7
893 , p5_a8
894 , p5_a9
895 , p5_a10
896 , p5_a11
897 , p5_a12
898 , p5_a13
899 , p5_a14
900 , p5_a15
901 , p5_a16
902 , p5_a17
903 , p5_a18
904 , p5_a19
905 , p5_a20
906 , p5_a21
907 , p5_a22
908 , p5_a23
909 , p5_a24
910 , p5_a25
911 , p5_a26
912 , p5_a27
913 , p5_a28
914 , p5_a29
915 , p5_a30
916 , p5_a31
917 , p5_a32
918 , p5_a33
919 , p5_a34
920 , p5_a35
921 , p5_a36
922 , p5_a37
923 , p5_a38
924 , p5_a39
925 , p5_a40
926 , p5_a41
927 , p5_a42
928 , p5_a43
929 , p5_a44
930 , p5_a45
931 , p5_a46
932 , p5_a47
933 , p5_a48
934 , p5_a49
935 , p5_a50
936 , p5_a51
937 , p5_a52
938 , p5_a53
939 , p5_a54
940 , p5_a55
941 , p5_a56
942 , p5_a57
943 , p5_a58
944 , p5_a59
945 , p5_a60
946 , p5_a61
947 , p5_a62
948 , p5_a63
949 , p5_a64
950 , p5_a65
951 , p5_a66
952 , p5_a67
953 , p5_a68
954 , p5_a69
955 , p5_a70
956 , p5_a71
957 , p5_a72
958 , p5_a73
959 , p5_a74
960 , p5_a75
961 );
962
963
964
965 end;
966
967 procedure release_tasks(p_api_version NUMBER
968 , p_init_msg_list VARCHAR2
969 , p_commit VARCHAR2
970 , p_validation_level NUMBER
971 , p_module_type VARCHAR2
972 , p_visit_id NUMBER
973 , p6_a0 JTF_NUMBER_TABLE
974 , p6_a1 JTF_NUMBER_TABLE
975 , p6_a2 JTF_NUMBER_TABLE
976 , p6_a3 JTF_VARCHAR2_TABLE_100
977 , p6_a4 JTF_NUMBER_TABLE
978 , p6_a5 JTF_NUMBER_TABLE
979 , p6_a6 JTF_VARCHAR2_TABLE_100
980 , p6_a7 JTF_NUMBER_TABLE
981 , p6_a8 JTF_NUMBER_TABLE
982 , p6_a9 JTF_NUMBER_TABLE
983 , p6_a10 JTF_VARCHAR2_TABLE_100
984 , p6_a11 JTF_NUMBER_TABLE
985 , p6_a12 JTF_VARCHAR2_TABLE_100
986 , p6_a13 JTF_NUMBER_TABLE
987 , p6_a14 JTF_NUMBER_TABLE
988 , p6_a15 JTF_VARCHAR2_TABLE_300
989 , p6_a16 JTF_NUMBER_TABLE
990 , p6_a17 JTF_VARCHAR2_TABLE_100
991 , p6_a18 JTF_NUMBER_TABLE
995 , p6_a22 JTF_NUMBER_TABLE
992 , p6_a19 JTF_NUMBER_TABLE
993 , p6_a20 JTF_NUMBER_TABLE
994 , p6_a21 JTF_VARCHAR2_TABLE_100
996 , p6_a23 JTF_NUMBER_TABLE
997 , p6_a24 JTF_NUMBER_TABLE
998 , p6_a25 JTF_NUMBER_TABLE
999 , p6_a26 JTF_NUMBER_TABLE
1000 , p6_a27 JTF_VARCHAR2_TABLE_100
1001 , p6_a28 JTF_VARCHAR2_TABLE_100
1002 , p6_a29 JTF_VARCHAR2_TABLE_100
1003 , p6_a30 JTF_VARCHAR2_TABLE_4000
1004 , p6_a31 JTF_VARCHAR2_TABLE_100
1005 , p6_a32 JTF_VARCHAR2_TABLE_100
1006 , p6_a33 JTF_NUMBER_TABLE
1007 , p6_a34 JTF_DATE_TABLE
1008 , p6_a35 JTF_NUMBER_TABLE
1009 , p6_a36 JTF_DATE_TABLE
1010 , p6_a37 JTF_NUMBER_TABLE
1011 , p6_a38 JTF_NUMBER_TABLE
1012 , p6_a39 JTF_VARCHAR2_TABLE_100
1013 , p6_a40 JTF_VARCHAR2_TABLE_200
1014 , p6_a41 JTF_VARCHAR2_TABLE_200
1015 , p6_a42 JTF_VARCHAR2_TABLE_200
1016 , p6_a43 JTF_VARCHAR2_TABLE_200
1017 , p6_a44 JTF_VARCHAR2_TABLE_200
1018 , p6_a45 JTF_VARCHAR2_TABLE_200
1019 , p6_a46 JTF_VARCHAR2_TABLE_200
1020 , p6_a47 JTF_VARCHAR2_TABLE_200
1021 , p6_a48 JTF_VARCHAR2_TABLE_200
1022 , p6_a49 JTF_VARCHAR2_TABLE_200
1023 , p6_a50 JTF_VARCHAR2_TABLE_200
1024 , p6_a51 JTF_VARCHAR2_TABLE_200
1025 , p6_a52 JTF_VARCHAR2_TABLE_200
1026 , p6_a53 JTF_VARCHAR2_TABLE_200
1027 , p6_a54 JTF_VARCHAR2_TABLE_200
1028 , p6_a55 JTF_DATE_TABLE
1029 , p6_a56 JTF_DATE_TABLE
1030 , p6_a57 JTF_DATE_TABLE
1031 , p6_a58 JTF_VARCHAR2_TABLE_100
1032 , p6_a59 JTF_VARCHAR2_TABLE_100
1033 , p6_a60 JTF_NUMBER_TABLE
1034 , p6_a61 JTF_NUMBER_TABLE
1035 , p6_a62 JTF_VARCHAR2_TABLE_100
1036 , p6_a63 JTF_NUMBER_TABLE
1037 , p6_a64 JTF_VARCHAR2_TABLE_300
1038 , p6_a65 JTF_VARCHAR2_TABLE_100
1039 , p6_a66 JTF_DATE_TABLE
1040 , p6_a67 JTF_DATE_TABLE
1041 , p6_a68 JTF_VARCHAR2_TABLE_100
1042 , p6_a69 JTF_VARCHAR2_TABLE_100
1043 , p6_a70 JTF_VARCHAR2_TABLE_100
1044 , p6_a71 JTF_NUMBER_TABLE
1045 , p6_a72 JTF_VARCHAR2_TABLE_100
1046 , p6_a73 JTF_NUMBER_TABLE
1047 , p6_a74 JTF_VARCHAR2_TABLE_100
1048 , p6_a75 JTF_VARCHAR2_TABLE_100
1049 , p_release_flag VARCHAR2
1050 , x_return_status out nocopy VARCHAR2
1051 , x_msg_count out nocopy NUMBER
1052 , x_msg_data out nocopy VARCHAR2
1053 )
1054
1055 as
1056 ddp_tasks_tbl ahl_vwp_proj_prod_pvt.task_tbl_type;
1057 ddindx binary_integer; indx binary_integer;
1058 begin
1059
1060 -- copy data to the local IN or IN-OUT args, if any
1061
1062
1063
1064
1065
1066
1067 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_in_p2(ddp_tasks_tbl, p6_a0
1068 , p6_a1
1069 , p6_a2
1070 , p6_a3
1071 , p6_a4
1072 , p6_a5
1073 , p6_a6
1074 , p6_a7
1075 , p6_a8
1076 , p6_a9
1077 , p6_a10
1078 , p6_a11
1079 , p6_a12
1080 , p6_a13
1081 , p6_a14
1082 , p6_a15
1083 , p6_a16
1084 , p6_a17
1085 , p6_a18
1086 , p6_a19
1087 , p6_a20
1088 , p6_a21
1089 , p6_a22
1090 , p6_a23
1091 , p6_a24
1092 , p6_a25
1093 , p6_a26
1094 , p6_a27
1095 , p6_a28
1096 , p6_a29
1097 , p6_a30
1098 , p6_a31
1099 , p6_a32
1100 , p6_a33
1101 , p6_a34
1102 , p6_a35
1103 , p6_a36
1104 , p6_a37
1105 , p6_a38
1106 , p6_a39
1107 , p6_a40
1108 , p6_a41
1109 , p6_a42
1110 , p6_a43
1111 , p6_a44
1112 , p6_a45
1113 , p6_a46
1114 , p6_a47
1115 , p6_a48
1116 , p6_a49
1117 , p6_a50
1118 , p6_a51
1119 , p6_a52
1123 , p6_a56
1120 , p6_a53
1121 , p6_a54
1122 , p6_a55
1124 , p6_a57
1125 , p6_a58
1126 , p6_a59
1127 , p6_a60
1128 , p6_a61
1129 , p6_a62
1130 , p6_a63
1131 , p6_a64
1132 , p6_a65
1133 , p6_a66
1134 , p6_a67
1135 , p6_a68
1136 , p6_a69
1137 , p6_a70
1138 , p6_a71
1139 , p6_a72
1140 , p6_a73
1141 , p6_a74
1142 , p6_a75
1143 );
1144
1145
1146
1147
1148
1149 -- here's the delegated call to the old PL/SQL routine
1150 ahl_vwp_proj_prod_pvt.release_tasks(p_api_version,
1151 p_init_msg_list,
1152 p_commit,
1153 p_validation_level,
1154 p_module_type,
1155 p_visit_id,
1156 ddp_tasks_tbl,
1157 p_release_flag,
1158 x_return_status,
1159 x_msg_count,
1160 x_msg_data);
1161
1162 -- copy data back from the local variables to OUT or IN-OUT args, if any
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173 end;
1174
1175 end ahl_vwp_proj_prod_pvt_w;