[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.8.12020000.2 2012/12/14 05:49:44 shnatu 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 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_VARCHAR2_TABLE_100
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 , a76 JTF_VARCHAR2_TABLE_100
143 , a77 JTF_VARCHAR2_TABLE_100
144 , a78 JTF_DATE_TABLE
145 , a79 JTF_DATE_TABLE
146 , a80 JTF_NUMBER_TABLE
147 , a81 JTF_NUMBER_TABLE
148 , a82 JTF_NUMBER_TABLE
149 , a83 JTF_VARCHAR2_TABLE_100
150 , a84 JTF_VARCHAR2_TABLE_100
151 , a85 JTF_VARCHAR2_TABLE_100
152 , a86 JTF_VARCHAR2_TABLE_100
153 , a87 JTF_VARCHAR2_TABLE_100
154 , a88 JTF_VARCHAR2_TABLE_100
155 , a89 JTF_VARCHAR2_TABLE_100
156 , a90 JTF_VARCHAR2_TABLE_100
157 , a91 JTF_VARCHAR2_TABLE_100
158 , a92 JTF_VARCHAR2_TABLE_100
159 , a93 JTF_NUMBER_TABLE
160 , a94 JTF_VARCHAR2_TABLE_300
161 ) as
162 ddindx binary_integer; indx binary_integer;
163 begin
164 if a0 is not null and a0.count > 0 then
165 if a0.count > 0 then
166 indx := a0.first;
167 ddindx := 1;
168 while true loop
169 t(ddindx).visit_task_id := a0(indx);
170 t(ddindx).visit_task_number := a1(indx);
171 t(ddindx).visit_id := a2(indx);
172 t(ddindx).template_flag := a3(indx);
173 t(ddindx).inventory_item_id := a4(indx);
174 t(ddindx).item_organization_id := a5(indx);
175 t(ddindx).item_name := a6(indx);
176 t(ddindx).cost_parent_id := a7(indx);
177 t(ddindx).cost_parent_number := a8(indx);
178 t(ddindx).mr_route_id := a9(indx);
179 t(ddindx).route_number := a10(indx);
180 t(ddindx).mr_id := a11(indx);
181 t(ddindx).mr_title := a12(indx);
182 t(ddindx).unit_effectivity_id := a13(indx);
183 t(ddindx).department_id := a14(indx);
184 t(ddindx).dept_name := a15(indx);
185 t(ddindx).service_request_id := a16(indx);
186 t(ddindx).service_request_number := a17(indx);
187 t(ddindx).originating_task_id := a18(indx);
188 t(ddindx).orginating_task_number := a19(indx);
189 t(ddindx).instance_id := a20(indx);
190 t(ddindx).serial_number := a21(indx);
191 t(ddindx).project_task_id := a22(indx);
192 t(ddindx).project_task_number := a23(indx);
193 t(ddindx).primary_visit_task_id := a24(indx);
194 t(ddindx).start_from_hour := a25(indx);
195 t(ddindx).duration := a26(indx);
196 t(ddindx).task_type_code := a27(indx);
197 t(ddindx).task_type_value := a28(indx);
198 t(ddindx).visit_task_name := a29(indx);
199 t(ddindx).description := a30(indx);
200 t(ddindx).task_status_code := a31(indx);
201 t(ddindx).task_status_value := a32(indx);
202 t(ddindx).object_version_number := a33(indx);
203 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a34(indx));
204 t(ddindx).last_updated_by := a35(indx);
205 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a36(indx));
206 t(ddindx).created_by := a37(indx);
207 t(ddindx).last_update_login := a38(indx);
208 t(ddindx).attribute_category := a39(indx);
209 t(ddindx).attribute1 := a40(indx);
210 t(ddindx).attribute2 := a41(indx);
211 t(ddindx).attribute3 := a42(indx);
212 t(ddindx).attribute4 := a43(indx);
213 t(ddindx).attribute5 := a44(indx);
214 t(ddindx).attribute6 := a45(indx);
215 t(ddindx).attribute7 := a46(indx);
216 t(ddindx).attribute8 := a47(indx);
217 t(ddindx).attribute9 := a48(indx);
218 t(ddindx).attribute10 := a49(indx);
219 t(ddindx).attribute11 := a50(indx);
220 t(ddindx).attribute12 := a51(indx);
221 t(ddindx).attribute13 := a52(indx);
222 t(ddindx).attribute14 := a53(indx);
223 t(ddindx).attribute15 := a54(indx);
224 t(ddindx).task_start_date := rosetta_g_miss_date_in_map(a55(indx));
225 t(ddindx).task_end_date := rosetta_g_miss_date_in_map(a56(indx));
226 t(ddindx).due_by_date := rosetta_g_miss_date_in_map(a57(indx));
227 t(ddindx).zone_name := a58(indx);
228 t(ddindx).sub_zone_name := a59(indx);
229 t(ddindx).tolerance_after := a60(indx);
230 t(ddindx).tolerance_before := a61(indx);
231 t(ddindx).tolerance_uom := a62(indx);
232 t(ddindx).workorder_id := a63(indx);
233 t(ddindx).wo_name := a64(indx);
234 t(ddindx).wo_status := a65(indx);
235 t(ddindx).wo_start_date := rosetta_g_miss_date_in_map(a66(indx));
236 t(ddindx).wo_end_date := rosetta_g_miss_date_in_map(a67(indx));
237 t(ddindx).operation_flag := a68(indx);
238 t(ddindx).is_production_flag := a69(indx);
239 t(ddindx).create_job_flag := a70(indx);
240 t(ddindx).stage_id := a71(indx);
241 t(ddindx).stage_name := a72(indx);
242 t(ddindx).quantity := a73(indx);
243 t(ddindx).uom := a74(indx);
244 t(ddindx).instance_number := a75(indx);
245 t(ddindx).service_type_code := a76(indx);
246 t(ddindx).service_type := a77(indx);
247 t(ddindx).past_task_start_date := rosetta_g_miss_date_in_map(a78(indx));
248 t(ddindx).past_task_end_date := rosetta_g_miss_date_in_map(a79(indx));
249 t(ddindx).route_id := a80(indx);
250 t(ddindx).warranty_entitlement_id := a81(indx);
251 t(ddindx).contract_number := a82(indx);
252 t(ddindx).entitlement_status := a83(indx);
253 t(ddindx).entitlement_status_code := a84(indx);
254 t(ddindx).claim_name := a85(indx);
255 t(ddindx).claim_status := a86(indx);
256 t(ddindx).claim_status_code := a87(indx);
257 t(ddindx).task_warranty := a88(indx);
258 t(ddindx).instance_warranty := a89(indx);
259 t(ddindx).warranty_not_appl_flag := a90(indx);
260 t(ddindx).stage_type_code := a91(indx);
261 t(ddindx).return_to_supply_flag := a92(indx);
262 t(ddindx).target_qty := a93(indx);
263 t(ddindx).repair_batch_name := a94(indx);
264 ddindx := ddindx+1;
265 if a0.last =indx
266 then exit;
267 end if;
268 indx := a0.next(indx);
269 end loop;
270 end if;
271 end if;
272 end rosetta_table_copy_in_p2;
273 procedure rosetta_table_copy_out_p2(t ahl_vwp_proj_prod_pvt.task_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
274 , a1 out nocopy JTF_NUMBER_TABLE
275 , a2 out nocopy JTF_NUMBER_TABLE
276 , a3 out nocopy JTF_VARCHAR2_TABLE_100
277 , a4 out nocopy JTF_NUMBER_TABLE
278 , a5 out nocopy JTF_NUMBER_TABLE
279 , a6 out nocopy JTF_VARCHAR2_TABLE_100
280 , a7 out nocopy JTF_NUMBER_TABLE
281 , a8 out nocopy JTF_NUMBER_TABLE
282 , a9 out nocopy JTF_NUMBER_TABLE
283 , a10 out nocopy JTF_VARCHAR2_TABLE_100
284 , a11 out nocopy JTF_NUMBER_TABLE
285 , a12 out nocopy JTF_VARCHAR2_TABLE_100
286 , a13 out nocopy JTF_NUMBER_TABLE
287 , a14 out nocopy JTF_NUMBER_TABLE
288 , a15 out nocopy JTF_VARCHAR2_TABLE_300
289 , a16 out nocopy JTF_NUMBER_TABLE
290 , a17 out nocopy JTF_VARCHAR2_TABLE_100
291 , a18 out nocopy JTF_NUMBER_TABLE
292 , a19 out nocopy JTF_NUMBER_TABLE
293 , a20 out nocopy JTF_NUMBER_TABLE
294 , a21 out nocopy JTF_VARCHAR2_TABLE_100
295 , a22 out nocopy JTF_NUMBER_TABLE
296 , a23 out nocopy JTF_VARCHAR2_TABLE_100
297 , a24 out nocopy JTF_NUMBER_TABLE
298 , a25 out nocopy JTF_NUMBER_TABLE
299 , a26 out nocopy JTF_NUMBER_TABLE
300 , a27 out nocopy JTF_VARCHAR2_TABLE_100
301 , a28 out nocopy JTF_VARCHAR2_TABLE_100
302 , a29 out nocopy JTF_VARCHAR2_TABLE_100
303 , a30 out nocopy JTF_VARCHAR2_TABLE_4000
304 , a31 out nocopy JTF_VARCHAR2_TABLE_100
305 , a32 out nocopy JTF_VARCHAR2_TABLE_100
306 , a33 out nocopy JTF_NUMBER_TABLE
307 , a34 out nocopy JTF_DATE_TABLE
308 , a35 out nocopy JTF_NUMBER_TABLE
309 , a36 out nocopy JTF_DATE_TABLE
310 , a37 out nocopy JTF_NUMBER_TABLE
311 , a38 out nocopy JTF_NUMBER_TABLE
312 , a39 out nocopy JTF_VARCHAR2_TABLE_100
313 , a40 out nocopy JTF_VARCHAR2_TABLE_200
314 , a41 out nocopy JTF_VARCHAR2_TABLE_200
315 , a42 out nocopy JTF_VARCHAR2_TABLE_200
316 , a43 out nocopy JTF_VARCHAR2_TABLE_200
317 , a44 out nocopy JTF_VARCHAR2_TABLE_200
318 , a45 out nocopy JTF_VARCHAR2_TABLE_200
319 , a46 out nocopy JTF_VARCHAR2_TABLE_200
320 , a47 out nocopy JTF_VARCHAR2_TABLE_200
321 , a48 out nocopy JTF_VARCHAR2_TABLE_200
322 , a49 out nocopy JTF_VARCHAR2_TABLE_200
323 , a50 out nocopy JTF_VARCHAR2_TABLE_200
324 , a51 out nocopy JTF_VARCHAR2_TABLE_200
325 , a52 out nocopy JTF_VARCHAR2_TABLE_200
326 , a53 out nocopy JTF_VARCHAR2_TABLE_200
327 , a54 out nocopy JTF_VARCHAR2_TABLE_200
328 , a55 out nocopy JTF_DATE_TABLE
329 , a56 out nocopy JTF_DATE_TABLE
330 , a57 out nocopy JTF_DATE_TABLE
331 , a58 out nocopy JTF_VARCHAR2_TABLE_100
332 , a59 out nocopy JTF_VARCHAR2_TABLE_100
333 , a60 out nocopy JTF_NUMBER_TABLE
334 , a61 out nocopy JTF_NUMBER_TABLE
335 , a62 out nocopy JTF_VARCHAR2_TABLE_100
336 , a63 out nocopy JTF_NUMBER_TABLE
337 , a64 out nocopy JTF_VARCHAR2_TABLE_300
338 , a65 out nocopy JTF_VARCHAR2_TABLE_100
339 , a66 out nocopy JTF_DATE_TABLE
340 , a67 out nocopy JTF_DATE_TABLE
341 , a68 out nocopy JTF_VARCHAR2_TABLE_100
342 , a69 out nocopy JTF_VARCHAR2_TABLE_100
343 , a70 out nocopy JTF_VARCHAR2_TABLE_100
344 , a71 out nocopy JTF_NUMBER_TABLE
345 , a72 out nocopy JTF_VARCHAR2_TABLE_100
346 , a73 out nocopy JTF_NUMBER_TABLE
347 , a74 out nocopy JTF_VARCHAR2_TABLE_100
348 , a75 out nocopy JTF_VARCHAR2_TABLE_100
349 , a76 out nocopy JTF_VARCHAR2_TABLE_100
350 , a77 out nocopy JTF_VARCHAR2_TABLE_100
351 , a78 out nocopy JTF_DATE_TABLE
352 , a79 out nocopy JTF_DATE_TABLE
353 , a80 out nocopy JTF_NUMBER_TABLE
354 , a81 out nocopy JTF_NUMBER_TABLE
355 , a82 out nocopy JTF_NUMBER_TABLE
356 , a83 out nocopy JTF_VARCHAR2_TABLE_100
357 , a84 out nocopy JTF_VARCHAR2_TABLE_100
358 , a85 out nocopy JTF_VARCHAR2_TABLE_100
359 , a86 out nocopy JTF_VARCHAR2_TABLE_100
360 , a87 out nocopy JTF_VARCHAR2_TABLE_100
361 , a88 out nocopy JTF_VARCHAR2_TABLE_100
362 , a89 out nocopy JTF_VARCHAR2_TABLE_100
363 , a90 out nocopy JTF_VARCHAR2_TABLE_100
364 , a91 out nocopy JTF_VARCHAR2_TABLE_100
365 , a92 out nocopy JTF_VARCHAR2_TABLE_100
366 , a93 out nocopy JTF_NUMBER_TABLE
367 , a94 out nocopy JTF_VARCHAR2_TABLE_300
368 ) as
369 ddindx binary_integer; indx binary_integer;
370 begin
371 if t is null or t.count = 0 then
372 a0 := JTF_NUMBER_TABLE();
373 a1 := JTF_NUMBER_TABLE();
374 a2 := JTF_NUMBER_TABLE();
375 a3 := JTF_VARCHAR2_TABLE_100();
376 a4 := JTF_NUMBER_TABLE();
377 a5 := JTF_NUMBER_TABLE();
378 a6 := JTF_VARCHAR2_TABLE_100();
379 a7 := JTF_NUMBER_TABLE();
380 a8 := JTF_NUMBER_TABLE();
381 a9 := JTF_NUMBER_TABLE();
382 a10 := JTF_VARCHAR2_TABLE_100();
383 a11 := JTF_NUMBER_TABLE();
384 a12 := JTF_VARCHAR2_TABLE_100();
385 a13 := JTF_NUMBER_TABLE();
386 a14 := JTF_NUMBER_TABLE();
387 a15 := JTF_VARCHAR2_TABLE_300();
388 a16 := JTF_NUMBER_TABLE();
389 a17 := JTF_VARCHAR2_TABLE_100();
390 a18 := JTF_NUMBER_TABLE();
391 a19 := JTF_NUMBER_TABLE();
392 a20 := JTF_NUMBER_TABLE();
393 a21 := JTF_VARCHAR2_TABLE_100();
394 a22 := JTF_NUMBER_TABLE();
395 a23 := JTF_VARCHAR2_TABLE_100();
396 a24 := JTF_NUMBER_TABLE();
397 a25 := JTF_NUMBER_TABLE();
398 a26 := JTF_NUMBER_TABLE();
399 a27 := JTF_VARCHAR2_TABLE_100();
400 a28 := JTF_VARCHAR2_TABLE_100();
401 a29 := JTF_VARCHAR2_TABLE_100();
402 a30 := JTF_VARCHAR2_TABLE_4000();
403 a31 := JTF_VARCHAR2_TABLE_100();
404 a32 := JTF_VARCHAR2_TABLE_100();
405 a33 := JTF_NUMBER_TABLE();
406 a34 := JTF_DATE_TABLE();
407 a35 := JTF_NUMBER_TABLE();
408 a36 := JTF_DATE_TABLE();
409 a37 := JTF_NUMBER_TABLE();
410 a38 := JTF_NUMBER_TABLE();
411 a39 := JTF_VARCHAR2_TABLE_100();
412 a40 := JTF_VARCHAR2_TABLE_200();
413 a41 := JTF_VARCHAR2_TABLE_200();
414 a42 := JTF_VARCHAR2_TABLE_200();
415 a43 := JTF_VARCHAR2_TABLE_200();
416 a44 := JTF_VARCHAR2_TABLE_200();
417 a45 := JTF_VARCHAR2_TABLE_200();
418 a46 := JTF_VARCHAR2_TABLE_200();
419 a47 := JTF_VARCHAR2_TABLE_200();
420 a48 := JTF_VARCHAR2_TABLE_200();
421 a49 := JTF_VARCHAR2_TABLE_200();
422 a50 := JTF_VARCHAR2_TABLE_200();
423 a51 := JTF_VARCHAR2_TABLE_200();
424 a52 := JTF_VARCHAR2_TABLE_200();
425 a53 := JTF_VARCHAR2_TABLE_200();
426 a54 := JTF_VARCHAR2_TABLE_200();
427 a55 := JTF_DATE_TABLE();
428 a56 := JTF_DATE_TABLE();
429 a57 := JTF_DATE_TABLE();
430 a58 := JTF_VARCHAR2_TABLE_100();
431 a59 := JTF_VARCHAR2_TABLE_100();
432 a60 := JTF_NUMBER_TABLE();
433 a61 := JTF_NUMBER_TABLE();
434 a62 := JTF_VARCHAR2_TABLE_100();
435 a63 := JTF_NUMBER_TABLE();
436 a64 := JTF_VARCHAR2_TABLE_300();
437 a65 := JTF_VARCHAR2_TABLE_100();
438 a66 := JTF_DATE_TABLE();
439 a67 := JTF_DATE_TABLE();
440 a68 := JTF_VARCHAR2_TABLE_100();
441 a69 := JTF_VARCHAR2_TABLE_100();
442 a70 := JTF_VARCHAR2_TABLE_100();
443 a71 := JTF_NUMBER_TABLE();
444 a72 := JTF_VARCHAR2_TABLE_100();
445 a73 := JTF_NUMBER_TABLE();
446 a74 := JTF_VARCHAR2_TABLE_100();
447 a75 := JTF_VARCHAR2_TABLE_100();
448 a76 := JTF_VARCHAR2_TABLE_100();
449 a77 := JTF_VARCHAR2_TABLE_100();
450 a78 := JTF_DATE_TABLE();
451 a79 := JTF_DATE_TABLE();
452 a80 := JTF_NUMBER_TABLE();
453 a81 := JTF_NUMBER_TABLE();
454 a82 := JTF_NUMBER_TABLE();
455 a83 := JTF_VARCHAR2_TABLE_100();
456 a84 := JTF_VARCHAR2_TABLE_100();
457 a85 := JTF_VARCHAR2_TABLE_100();
458 a86 := JTF_VARCHAR2_TABLE_100();
459 a87 := JTF_VARCHAR2_TABLE_100();
460 a88 := JTF_VARCHAR2_TABLE_100();
461 a89 := JTF_VARCHAR2_TABLE_100();
462 a90 := JTF_VARCHAR2_TABLE_100();
463 a91 := JTF_VARCHAR2_TABLE_100();
464 a92 := JTF_VARCHAR2_TABLE_100();
465 a93 := JTF_NUMBER_TABLE();
466 a94 := JTF_VARCHAR2_TABLE_300();
467 else
468 a0 := JTF_NUMBER_TABLE();
469 a1 := JTF_NUMBER_TABLE();
470 a2 := JTF_NUMBER_TABLE();
471 a3 := JTF_VARCHAR2_TABLE_100();
472 a4 := JTF_NUMBER_TABLE();
473 a5 := JTF_NUMBER_TABLE();
474 a6 := JTF_VARCHAR2_TABLE_100();
475 a7 := JTF_NUMBER_TABLE();
476 a8 := JTF_NUMBER_TABLE();
477 a9 := JTF_NUMBER_TABLE();
478 a10 := JTF_VARCHAR2_TABLE_100();
479 a11 := JTF_NUMBER_TABLE();
480 a12 := JTF_VARCHAR2_TABLE_100();
481 a13 := JTF_NUMBER_TABLE();
482 a14 := JTF_NUMBER_TABLE();
483 a15 := JTF_VARCHAR2_TABLE_300();
484 a16 := JTF_NUMBER_TABLE();
485 a17 := JTF_VARCHAR2_TABLE_100();
486 a18 := JTF_NUMBER_TABLE();
487 a19 := JTF_NUMBER_TABLE();
488 a20 := JTF_NUMBER_TABLE();
489 a21 := JTF_VARCHAR2_TABLE_100();
490 a22 := JTF_NUMBER_TABLE();
491 a23 := JTF_VARCHAR2_TABLE_100();
492 a24 := JTF_NUMBER_TABLE();
493 a25 := JTF_NUMBER_TABLE();
494 a26 := JTF_NUMBER_TABLE();
495 a27 := JTF_VARCHAR2_TABLE_100();
496 a28 := JTF_VARCHAR2_TABLE_100();
497 a29 := JTF_VARCHAR2_TABLE_100();
498 a30 := JTF_VARCHAR2_TABLE_4000();
499 a31 := JTF_VARCHAR2_TABLE_100();
500 a32 := JTF_VARCHAR2_TABLE_100();
501 a33 := JTF_NUMBER_TABLE();
502 a34 := JTF_DATE_TABLE();
503 a35 := JTF_NUMBER_TABLE();
504 a36 := JTF_DATE_TABLE();
505 a37 := JTF_NUMBER_TABLE();
506 a38 := JTF_NUMBER_TABLE();
507 a39 := JTF_VARCHAR2_TABLE_100();
508 a40 := JTF_VARCHAR2_TABLE_200();
509 a41 := JTF_VARCHAR2_TABLE_200();
510 a42 := JTF_VARCHAR2_TABLE_200();
511 a43 := JTF_VARCHAR2_TABLE_200();
512 a44 := JTF_VARCHAR2_TABLE_200();
513 a45 := JTF_VARCHAR2_TABLE_200();
514 a46 := JTF_VARCHAR2_TABLE_200();
515 a47 := JTF_VARCHAR2_TABLE_200();
516 a48 := JTF_VARCHAR2_TABLE_200();
517 a49 := JTF_VARCHAR2_TABLE_200();
518 a50 := JTF_VARCHAR2_TABLE_200();
519 a51 := JTF_VARCHAR2_TABLE_200();
520 a52 := JTF_VARCHAR2_TABLE_200();
521 a53 := JTF_VARCHAR2_TABLE_200();
522 a54 := JTF_VARCHAR2_TABLE_200();
523 a55 := JTF_DATE_TABLE();
524 a56 := JTF_DATE_TABLE();
525 a57 := JTF_DATE_TABLE();
526 a58 := JTF_VARCHAR2_TABLE_100();
527 a59 := JTF_VARCHAR2_TABLE_100();
528 a60 := JTF_NUMBER_TABLE();
529 a61 := JTF_NUMBER_TABLE();
530 a62 := JTF_VARCHAR2_TABLE_100();
531 a63 := JTF_NUMBER_TABLE();
532 a64 := JTF_VARCHAR2_TABLE_300();
533 a65 := JTF_VARCHAR2_TABLE_100();
534 a66 := JTF_DATE_TABLE();
535 a67 := JTF_DATE_TABLE();
536 a68 := JTF_VARCHAR2_TABLE_100();
537 a69 := JTF_VARCHAR2_TABLE_100();
538 a70 := JTF_VARCHAR2_TABLE_100();
539 a71 := JTF_NUMBER_TABLE();
540 a72 := JTF_VARCHAR2_TABLE_100();
541 a73 := JTF_NUMBER_TABLE();
542 a74 := JTF_VARCHAR2_TABLE_100();
543 a75 := JTF_VARCHAR2_TABLE_100();
544 a76 := JTF_VARCHAR2_TABLE_100();
545 a77 := JTF_VARCHAR2_TABLE_100();
546 a78 := JTF_DATE_TABLE();
547 a79 := JTF_DATE_TABLE();
548 a80 := JTF_NUMBER_TABLE();
549 a81 := JTF_NUMBER_TABLE();
550 a82 := JTF_NUMBER_TABLE();
551 a83 := JTF_VARCHAR2_TABLE_100();
552 a84 := JTF_VARCHAR2_TABLE_100();
553 a85 := JTF_VARCHAR2_TABLE_100();
554 a86 := JTF_VARCHAR2_TABLE_100();
555 a87 := JTF_VARCHAR2_TABLE_100();
556 a88 := JTF_VARCHAR2_TABLE_100();
557 a89 := JTF_VARCHAR2_TABLE_100();
558 a90 := JTF_VARCHAR2_TABLE_100();
559 a91 := JTF_VARCHAR2_TABLE_100();
560 a92 := JTF_VARCHAR2_TABLE_100();
561 a93 := JTF_NUMBER_TABLE();
562 a94 := JTF_VARCHAR2_TABLE_300();
563 if t.count > 0 then
564 a0.extend(t.count);
565 a1.extend(t.count);
566 a2.extend(t.count);
567 a3.extend(t.count);
568 a4.extend(t.count);
569 a5.extend(t.count);
570 a6.extend(t.count);
571 a7.extend(t.count);
572 a8.extend(t.count);
573 a9.extend(t.count);
574 a10.extend(t.count);
575 a11.extend(t.count);
576 a12.extend(t.count);
577 a13.extend(t.count);
578 a14.extend(t.count);
579 a15.extend(t.count);
580 a16.extend(t.count);
581 a17.extend(t.count);
582 a18.extend(t.count);
583 a19.extend(t.count);
584 a20.extend(t.count);
585 a21.extend(t.count);
586 a22.extend(t.count);
587 a23.extend(t.count);
588 a24.extend(t.count);
589 a25.extend(t.count);
590 a26.extend(t.count);
591 a27.extend(t.count);
592 a28.extend(t.count);
593 a29.extend(t.count);
594 a30.extend(t.count);
595 a31.extend(t.count);
596 a32.extend(t.count);
597 a33.extend(t.count);
598 a34.extend(t.count);
599 a35.extend(t.count);
600 a36.extend(t.count);
601 a37.extend(t.count);
602 a38.extend(t.count);
603 a39.extend(t.count);
604 a40.extend(t.count);
605 a41.extend(t.count);
606 a42.extend(t.count);
607 a43.extend(t.count);
608 a44.extend(t.count);
609 a45.extend(t.count);
610 a46.extend(t.count);
611 a47.extend(t.count);
612 a48.extend(t.count);
613 a49.extend(t.count);
614 a50.extend(t.count);
615 a51.extend(t.count);
616 a52.extend(t.count);
617 a53.extend(t.count);
618 a54.extend(t.count);
619 a55.extend(t.count);
620 a56.extend(t.count);
621 a57.extend(t.count);
622 a58.extend(t.count);
623 a59.extend(t.count);
624 a60.extend(t.count);
625 a61.extend(t.count);
626 a62.extend(t.count);
627 a63.extend(t.count);
628 a64.extend(t.count);
629 a65.extend(t.count);
630 a66.extend(t.count);
631 a67.extend(t.count);
632 a68.extend(t.count);
633 a69.extend(t.count);
634 a70.extend(t.count);
635 a71.extend(t.count);
636 a72.extend(t.count);
637 a73.extend(t.count);
638 a74.extend(t.count);
639 a75.extend(t.count);
640 a76.extend(t.count);
641 a77.extend(t.count);
642 a78.extend(t.count);
643 a79.extend(t.count);
644 a80.extend(t.count);
645 a81.extend(t.count);
646 a82.extend(t.count);
647 a83.extend(t.count);
648 a84.extend(t.count);
649 a85.extend(t.count);
650 a86.extend(t.count);
651 a87.extend(t.count);
652 a88.extend(t.count);
653 a89.extend(t.count);
654 a90.extend(t.count);
655 a91.extend(t.count);
656 a92.extend(t.count);
657 a93.extend(t.count);
658 a94.extend(t.count);
659 ddindx := t.first;
660 indx := 1;
661 while true loop
662 a0(indx) := t(ddindx).visit_task_id;
663 a1(indx) := t(ddindx).visit_task_number;
664 a2(indx) := t(ddindx).visit_id;
665 a3(indx) := t(ddindx).template_flag;
666 a4(indx) := t(ddindx).inventory_item_id;
667 a5(indx) := t(ddindx).item_organization_id;
668 a6(indx) := t(ddindx).item_name;
669 a7(indx) := t(ddindx).cost_parent_id;
670 a8(indx) := t(ddindx).cost_parent_number;
671 a9(indx) := t(ddindx).mr_route_id;
672 a10(indx) := t(ddindx).route_number;
673 a11(indx) := t(ddindx).mr_id;
674 a12(indx) := t(ddindx).mr_title;
675 a13(indx) := t(ddindx).unit_effectivity_id;
676 a14(indx) := t(ddindx).department_id;
677 a15(indx) := t(ddindx).dept_name;
678 a16(indx) := t(ddindx).service_request_id;
679 a17(indx) := t(ddindx).service_request_number;
680 a18(indx) := t(ddindx).originating_task_id;
681 a19(indx) := t(ddindx).orginating_task_number;
682 a20(indx) := t(ddindx).instance_id;
683 a21(indx) := t(ddindx).serial_number;
684 a22(indx) := t(ddindx).project_task_id;
685 a23(indx) := t(ddindx).project_task_number;
686 a24(indx) := t(ddindx).primary_visit_task_id;
687 a25(indx) := t(ddindx).start_from_hour;
688 a26(indx) := t(ddindx).duration;
689 a27(indx) := t(ddindx).task_type_code;
690 a28(indx) := t(ddindx).task_type_value;
691 a29(indx) := t(ddindx).visit_task_name;
692 a30(indx) := t(ddindx).description;
693 a31(indx) := t(ddindx).task_status_code;
694 a32(indx) := t(ddindx).task_status_value;
695 a33(indx) := t(ddindx).object_version_number;
696 a34(indx) := t(ddindx).last_update_date;
697 a35(indx) := t(ddindx).last_updated_by;
698 a36(indx) := t(ddindx).creation_date;
699 a37(indx) := t(ddindx).created_by;
700 a38(indx) := t(ddindx).last_update_login;
701 a39(indx) := t(ddindx).attribute_category;
702 a40(indx) := t(ddindx).attribute1;
703 a41(indx) := t(ddindx).attribute2;
704 a42(indx) := t(ddindx).attribute3;
705 a43(indx) := t(ddindx).attribute4;
706 a44(indx) := t(ddindx).attribute5;
707 a45(indx) := t(ddindx).attribute6;
708 a46(indx) := t(ddindx).attribute7;
709 a47(indx) := t(ddindx).attribute8;
710 a48(indx) := t(ddindx).attribute9;
711 a49(indx) := t(ddindx).attribute10;
712 a50(indx) := t(ddindx).attribute11;
713 a51(indx) := t(ddindx).attribute12;
714 a52(indx) := t(ddindx).attribute13;
715 a53(indx) := t(ddindx).attribute14;
716 a54(indx) := t(ddindx).attribute15;
717 a55(indx) := t(ddindx).task_start_date;
718 a56(indx) := t(ddindx).task_end_date;
719 a57(indx) := t(ddindx).due_by_date;
720 a58(indx) := t(ddindx).zone_name;
721 a59(indx) := t(ddindx).sub_zone_name;
722 a60(indx) := t(ddindx).tolerance_after;
723 a61(indx) := t(ddindx).tolerance_before;
724 a62(indx) := t(ddindx).tolerance_uom;
725 a63(indx) := t(ddindx).workorder_id;
726 a64(indx) := t(ddindx).wo_name;
727 a65(indx) := t(ddindx).wo_status;
728 a66(indx) := t(ddindx).wo_start_date;
729 a67(indx) := t(ddindx).wo_end_date;
730 a68(indx) := t(ddindx).operation_flag;
731 a69(indx) := t(ddindx).is_production_flag;
732 a70(indx) := t(ddindx).create_job_flag;
733 a71(indx) := t(ddindx).stage_id;
734 a72(indx) := t(ddindx).stage_name;
735 a73(indx) := t(ddindx).quantity;
736 a74(indx) := t(ddindx).uom;
737 a75(indx) := t(ddindx).instance_number;
738 a76(indx) := t(ddindx).service_type_code;
739 a77(indx) := t(ddindx).service_type;
740 a78(indx) := t(ddindx).past_task_start_date;
741 a79(indx) := t(ddindx).past_task_end_date;
742 a80(indx) := t(ddindx).route_id;
743 a81(indx) := t(ddindx).warranty_entitlement_id;
744 a82(indx) := t(ddindx).contract_number;
745 a83(indx) := t(ddindx).entitlement_status;
746 a84(indx) := t(ddindx).entitlement_status_code;
747 a85(indx) := t(ddindx).claim_name;
748 a86(indx) := t(ddindx).claim_status;
749 a87(indx) := t(ddindx).claim_status_code;
750 a88(indx) := t(ddindx).task_warranty;
751 a89(indx) := t(ddindx).instance_warranty;
752 a90(indx) := t(ddindx).warranty_not_appl_flag;
753 a91(indx) := t(ddindx).stage_type_code;
754 a92(indx) := t(ddindx).return_to_supply_flag;
755 a93(indx) := t(ddindx).target_qty;
756 a94(indx) := t(ddindx).repair_batch_name;
757 indx := indx+1;
758 if t.last =ddindx
759 then exit;
760 end if;
761 ddindx := t.next(ddindx);
762 end loop;
763 end if;
764 end if;
765 end rosetta_table_copy_out_p2;
766
767 procedure validate_before_production(p_api_version NUMBER
768 , p_init_msg_list VARCHAR2
769 , p_commit VARCHAR2
770 , p_validation_level NUMBER
771 , p_module_type VARCHAR2
772 , p_visit_id NUMBER
773 , p6_a0 out nocopy JTF_NUMBER_TABLE
774 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_2000
775 , x_return_status out nocopy VARCHAR2
776 , x_msg_count out nocopy NUMBER
777 , x_msg_data out nocopy VARCHAR2
778 )
779
780 as
781 ddx_error_tbl ahl_vwp_proj_prod_pvt.error_tbl_type;
782 ddindx binary_integer; indx binary_integer;
783 begin
784
785 -- copy data to the local IN or IN-OUT args, if any
786
787
788
789
790
791
792
793
794
795
796 -- here's the delegated call to the old PL/SQL routine
797 ahl_vwp_proj_prod_pvt.validate_before_production(p_api_version,
798 p_init_msg_list,
799 p_commit,
800 p_validation_level,
801 p_module_type,
802 p_visit_id,
803 ddx_error_tbl,
804 x_return_status,
805 x_msg_count,
806 x_msg_data);
807
808 -- copy data back from the local variables to OUT or IN-OUT args, if any
809
810
811
812
813
814
815 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_out_p1(ddx_error_tbl, p6_a0
816 , p6_a1
817 );
818
819
820
821 end;
822
823 procedure create_job_tasks(p_api_version NUMBER
824 , p_init_msg_list VARCHAR2
825 , p_commit VARCHAR2
826 , p_validation_level NUMBER
827 , p_module_type VARCHAR2
828 , p5_a0 in out nocopy JTF_NUMBER_TABLE
829 , p5_a1 in out nocopy JTF_NUMBER_TABLE
830 , p5_a2 in out nocopy JTF_NUMBER_TABLE
831 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
832 , p5_a4 in out nocopy JTF_NUMBER_TABLE
833 , p5_a5 in out nocopy JTF_NUMBER_TABLE
834 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
835 , p5_a7 in out nocopy JTF_NUMBER_TABLE
836 , p5_a8 in out nocopy JTF_NUMBER_TABLE
837 , p5_a9 in out nocopy JTF_NUMBER_TABLE
838 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
839 , p5_a11 in out nocopy JTF_NUMBER_TABLE
840 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
841 , p5_a13 in out nocopy JTF_NUMBER_TABLE
842 , p5_a14 in out nocopy JTF_NUMBER_TABLE
843 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_300
844 , p5_a16 in out nocopy JTF_NUMBER_TABLE
845 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
846 , p5_a18 in out nocopy JTF_NUMBER_TABLE
847 , p5_a19 in out nocopy JTF_NUMBER_TABLE
848 , p5_a20 in out nocopy JTF_NUMBER_TABLE
849 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_100
850 , p5_a22 in out nocopy JTF_NUMBER_TABLE
851 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_100
852 , p5_a24 in out nocopy JTF_NUMBER_TABLE
853 , p5_a25 in out nocopy JTF_NUMBER_TABLE
854 , p5_a26 in out nocopy JTF_NUMBER_TABLE
855 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
856 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_100
857 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_100
858 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_4000
859 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_100
860 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_100
861 , p5_a33 in out nocopy JTF_NUMBER_TABLE
862 , p5_a34 in out nocopy JTF_DATE_TABLE
863 , p5_a35 in out nocopy JTF_NUMBER_TABLE
864 , p5_a36 in out nocopy JTF_DATE_TABLE
865 , p5_a37 in out nocopy JTF_NUMBER_TABLE
866 , p5_a38 in out nocopy JTF_NUMBER_TABLE
867 , p5_a39 in out nocopy JTF_VARCHAR2_TABLE_100
868 , p5_a40 in out nocopy JTF_VARCHAR2_TABLE_200
869 , p5_a41 in out nocopy JTF_VARCHAR2_TABLE_200
870 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_200
871 , p5_a43 in out nocopy JTF_VARCHAR2_TABLE_200
872 , p5_a44 in out nocopy JTF_VARCHAR2_TABLE_200
873 , p5_a45 in out nocopy JTF_VARCHAR2_TABLE_200
874 , p5_a46 in out nocopy JTF_VARCHAR2_TABLE_200
875 , p5_a47 in out nocopy JTF_VARCHAR2_TABLE_200
876 , p5_a48 in out nocopy JTF_VARCHAR2_TABLE_200
877 , p5_a49 in out nocopy JTF_VARCHAR2_TABLE_200
878 , p5_a50 in out nocopy JTF_VARCHAR2_TABLE_200
879 , p5_a51 in out nocopy JTF_VARCHAR2_TABLE_200
880 , p5_a52 in out nocopy JTF_VARCHAR2_TABLE_200
881 , p5_a53 in out nocopy JTF_VARCHAR2_TABLE_200
882 , p5_a54 in out nocopy JTF_VARCHAR2_TABLE_200
883 , p5_a55 in out nocopy JTF_DATE_TABLE
884 , p5_a56 in out nocopy JTF_DATE_TABLE
885 , p5_a57 in out nocopy JTF_DATE_TABLE
886 , p5_a58 in out nocopy JTF_VARCHAR2_TABLE_100
887 , p5_a59 in out nocopy JTF_VARCHAR2_TABLE_100
888 , p5_a60 in out nocopy JTF_NUMBER_TABLE
889 , p5_a61 in out nocopy JTF_NUMBER_TABLE
890 , p5_a62 in out nocopy JTF_VARCHAR2_TABLE_100
891 , p5_a63 in out nocopy JTF_NUMBER_TABLE
892 , p5_a64 in out nocopy JTF_VARCHAR2_TABLE_300
893 , p5_a65 in out nocopy JTF_VARCHAR2_TABLE_100
894 , p5_a66 in out nocopy JTF_DATE_TABLE
895 , p5_a67 in out nocopy JTF_DATE_TABLE
896 , p5_a68 in out nocopy JTF_VARCHAR2_TABLE_100
897 , p5_a69 in out nocopy JTF_VARCHAR2_TABLE_100
898 , p5_a70 in out nocopy JTF_VARCHAR2_TABLE_100
899 , p5_a71 in out nocopy JTF_NUMBER_TABLE
900 , p5_a72 in out nocopy JTF_VARCHAR2_TABLE_100
901 , p5_a73 in out nocopy JTF_NUMBER_TABLE
902 , p5_a74 in out nocopy JTF_VARCHAR2_TABLE_100
903 , p5_a75 in out nocopy JTF_VARCHAR2_TABLE_100
904 , p5_a76 in out nocopy JTF_VARCHAR2_TABLE_100
905 , p5_a77 in out nocopy JTF_VARCHAR2_TABLE_100
906 , p5_a78 in out nocopy JTF_DATE_TABLE
907 , p5_a79 in out nocopy JTF_DATE_TABLE
908 , p5_a80 in out nocopy JTF_NUMBER_TABLE
909 , p5_a81 in out nocopy JTF_NUMBER_TABLE
910 , p5_a82 in out nocopy JTF_NUMBER_TABLE
911 , p5_a83 in out nocopy JTF_VARCHAR2_TABLE_100
912 , p5_a84 in out nocopy JTF_VARCHAR2_TABLE_100
913 , p5_a85 in out nocopy JTF_VARCHAR2_TABLE_100
914 , p5_a86 in out nocopy JTF_VARCHAR2_TABLE_100
915 , p5_a87 in out nocopy JTF_VARCHAR2_TABLE_100
916 , p5_a88 in out nocopy JTF_VARCHAR2_TABLE_100
917 , p5_a89 in out nocopy JTF_VARCHAR2_TABLE_100
918 , p5_a90 in out nocopy JTF_VARCHAR2_TABLE_100
919 , p5_a91 in out nocopy JTF_VARCHAR2_TABLE_100
920 , p5_a92 in out nocopy JTF_VARCHAR2_TABLE_100
921 , p5_a93 in out nocopy JTF_NUMBER_TABLE
922 , p5_a94 in out nocopy JTF_VARCHAR2_TABLE_300
923 , x_return_status out nocopy VARCHAR2
924 , x_msg_count out nocopy NUMBER
925 , x_msg_data out nocopy VARCHAR2
926 )
927
928 as
929 ddp_x_task_tbl ahl_vwp_proj_prod_pvt.task_tbl_type;
930 ddindx binary_integer; indx binary_integer;
931 begin
932
933 -- copy data to the local IN or IN-OUT args, if any
934
935
936
937
938
939 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_in_p2(ddp_x_task_tbl, p5_a0
940 , p5_a1
941 , p5_a2
942 , p5_a3
943 , p5_a4
944 , p5_a5
945 , p5_a6
946 , p5_a7
947 , p5_a8
948 , p5_a9
949 , p5_a10
950 , p5_a11
951 , p5_a12
952 , p5_a13
953 , p5_a14
954 , p5_a15
955 , p5_a16
956 , p5_a17
957 , p5_a18
958 , p5_a19
959 , p5_a20
960 , p5_a21
961 , p5_a22
962 , p5_a23
963 , p5_a24
964 , p5_a25
965 , p5_a26
966 , p5_a27
967 , p5_a28
968 , p5_a29
969 , p5_a30
970 , p5_a31
971 , p5_a32
972 , p5_a33
973 , p5_a34
974 , p5_a35
975 , p5_a36
976 , p5_a37
977 , p5_a38
978 , p5_a39
979 , p5_a40
980 , p5_a41
981 , p5_a42
982 , p5_a43
983 , p5_a44
984 , p5_a45
985 , p5_a46
986 , p5_a47
987 , p5_a48
988 , p5_a49
989 , p5_a50
990 , p5_a51
991 , p5_a52
992 , p5_a53
993 , p5_a54
994 , p5_a55
995 , p5_a56
996 , p5_a57
997 , p5_a58
998 , p5_a59
999 , p5_a60
1000 , p5_a61
1001 , p5_a62
1002 , p5_a63
1003 , p5_a64
1004 , p5_a65
1005 , p5_a66
1006 , p5_a67
1007 , p5_a68
1008 , p5_a69
1009 , p5_a70
1010 , p5_a71
1011 , p5_a72
1012 , p5_a73
1013 , p5_a74
1014 , p5_a75
1015 , p5_a76
1016 , p5_a77
1017 , p5_a78
1018 , p5_a79
1019 , p5_a80
1020 , p5_a81
1021 , p5_a82
1022 , p5_a83
1023 , p5_a84
1024 , p5_a85
1025 , p5_a86
1026 , p5_a87
1027 , p5_a88
1028 , p5_a89
1029 , p5_a90
1030 , p5_a91
1031 , p5_a92
1032 , p5_a93
1033 , p5_a94
1034 );
1035
1036
1037
1038
1039 -- here's the delegated call to the old PL/SQL routine
1040 ahl_vwp_proj_prod_pvt.create_job_tasks(p_api_version,
1041 p_init_msg_list,
1042 p_commit,
1043 p_validation_level,
1044 p_module_type,
1045 ddp_x_task_tbl,
1046 x_return_status,
1047 x_msg_count,
1048 x_msg_data);
1049
1050 -- copy data back from the local variables to OUT or IN-OUT args, if any
1051
1052
1053
1054
1055
1056 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_out_p2(ddp_x_task_tbl, p5_a0
1057 , p5_a1
1058 , p5_a2
1059 , p5_a3
1060 , p5_a4
1061 , p5_a5
1062 , p5_a6
1063 , p5_a7
1064 , p5_a8
1065 , p5_a9
1066 , p5_a10
1067 , p5_a11
1068 , p5_a12
1069 , p5_a13
1070 , p5_a14
1071 , p5_a15
1072 , p5_a16
1073 , p5_a17
1074 , p5_a18
1075 , p5_a19
1076 , p5_a20
1077 , p5_a21
1078 , p5_a22
1079 , p5_a23
1080 , p5_a24
1081 , p5_a25
1082 , p5_a26
1083 , p5_a27
1084 , p5_a28
1085 , p5_a29
1086 , p5_a30
1087 , p5_a31
1088 , p5_a32
1089 , p5_a33
1090 , p5_a34
1091 , p5_a35
1092 , p5_a36
1093 , p5_a37
1094 , p5_a38
1095 , p5_a39
1096 , p5_a40
1097 , p5_a41
1098 , p5_a42
1099 , p5_a43
1100 , p5_a44
1101 , p5_a45
1102 , p5_a46
1103 , p5_a47
1104 , p5_a48
1105 , p5_a49
1106 , p5_a50
1107 , p5_a51
1108 , p5_a52
1109 , p5_a53
1110 , p5_a54
1111 , p5_a55
1112 , p5_a56
1113 , p5_a57
1114 , p5_a58
1115 , p5_a59
1116 , p5_a60
1117 , p5_a61
1118 , p5_a62
1119 , p5_a63
1120 , p5_a64
1121 , p5_a65
1122 , p5_a66
1123 , p5_a67
1124 , p5_a68
1125 , p5_a69
1126 , p5_a70
1127 , p5_a71
1128 , p5_a72
1129 , p5_a73
1130 , p5_a74
1131 , p5_a75
1132 , p5_a76
1133 , p5_a77
1134 , p5_a78
1135 , p5_a79
1136 , p5_a80
1137 , p5_a81
1138 , p5_a82
1139 , p5_a83
1140 , p5_a84
1141 , p5_a85
1142 , p5_a86
1143 , p5_a87
1144 , p5_a88
1145 , p5_a89
1146 , p5_a90
1147 , p5_a91
1148 , p5_a92
1149 , p5_a93
1150 , p5_a94
1151 );
1152
1153
1154
1155 end;
1156
1157 procedure release_tasks(p_api_version NUMBER
1158 , p_init_msg_list VARCHAR2
1159 , p_commit VARCHAR2
1160 , p_validation_level NUMBER
1161 , p_module_type VARCHAR2
1162 , p_visit_id NUMBER
1163 , p6_a0 JTF_NUMBER_TABLE
1164 , p6_a1 JTF_NUMBER_TABLE
1165 , p6_a2 JTF_NUMBER_TABLE
1166 , p6_a3 JTF_VARCHAR2_TABLE_100
1167 , p6_a4 JTF_NUMBER_TABLE
1168 , p6_a5 JTF_NUMBER_TABLE
1169 , p6_a6 JTF_VARCHAR2_TABLE_100
1170 , p6_a7 JTF_NUMBER_TABLE
1171 , p6_a8 JTF_NUMBER_TABLE
1172 , p6_a9 JTF_NUMBER_TABLE
1173 , p6_a10 JTF_VARCHAR2_TABLE_100
1174 , p6_a11 JTF_NUMBER_TABLE
1175 , p6_a12 JTF_VARCHAR2_TABLE_100
1176 , p6_a13 JTF_NUMBER_TABLE
1177 , p6_a14 JTF_NUMBER_TABLE
1178 , p6_a15 JTF_VARCHAR2_TABLE_300
1179 , p6_a16 JTF_NUMBER_TABLE
1180 , p6_a17 JTF_VARCHAR2_TABLE_100
1181 , p6_a18 JTF_NUMBER_TABLE
1182 , p6_a19 JTF_NUMBER_TABLE
1183 , p6_a20 JTF_NUMBER_TABLE
1184 , p6_a21 JTF_VARCHAR2_TABLE_100
1185 , p6_a22 JTF_NUMBER_TABLE
1186 , p6_a23 JTF_VARCHAR2_TABLE_100
1187 , p6_a24 JTF_NUMBER_TABLE
1188 , p6_a25 JTF_NUMBER_TABLE
1189 , p6_a26 JTF_NUMBER_TABLE
1190 , p6_a27 JTF_VARCHAR2_TABLE_100
1191 , p6_a28 JTF_VARCHAR2_TABLE_100
1192 , p6_a29 JTF_VARCHAR2_TABLE_100
1193 , p6_a30 JTF_VARCHAR2_TABLE_4000
1194 , p6_a31 JTF_VARCHAR2_TABLE_100
1195 , p6_a32 JTF_VARCHAR2_TABLE_100
1196 , p6_a33 JTF_NUMBER_TABLE
1197 , p6_a34 JTF_DATE_TABLE
1198 , p6_a35 JTF_NUMBER_TABLE
1199 , p6_a36 JTF_DATE_TABLE
1200 , p6_a37 JTF_NUMBER_TABLE
1201 , p6_a38 JTF_NUMBER_TABLE
1202 , p6_a39 JTF_VARCHAR2_TABLE_100
1203 , p6_a40 JTF_VARCHAR2_TABLE_200
1204 , p6_a41 JTF_VARCHAR2_TABLE_200
1205 , p6_a42 JTF_VARCHAR2_TABLE_200
1206 , p6_a43 JTF_VARCHAR2_TABLE_200
1207 , p6_a44 JTF_VARCHAR2_TABLE_200
1208 , p6_a45 JTF_VARCHAR2_TABLE_200
1209 , p6_a46 JTF_VARCHAR2_TABLE_200
1210 , p6_a47 JTF_VARCHAR2_TABLE_200
1211 , p6_a48 JTF_VARCHAR2_TABLE_200
1212 , p6_a49 JTF_VARCHAR2_TABLE_200
1213 , p6_a50 JTF_VARCHAR2_TABLE_200
1214 , p6_a51 JTF_VARCHAR2_TABLE_200
1215 , p6_a52 JTF_VARCHAR2_TABLE_200
1216 , p6_a53 JTF_VARCHAR2_TABLE_200
1217 , p6_a54 JTF_VARCHAR2_TABLE_200
1218 , p6_a55 JTF_DATE_TABLE
1219 , p6_a56 JTF_DATE_TABLE
1220 , p6_a57 JTF_DATE_TABLE
1221 , p6_a58 JTF_VARCHAR2_TABLE_100
1222 , p6_a59 JTF_VARCHAR2_TABLE_100
1223 , p6_a60 JTF_NUMBER_TABLE
1224 , p6_a61 JTF_NUMBER_TABLE
1225 , p6_a62 JTF_VARCHAR2_TABLE_100
1226 , p6_a63 JTF_NUMBER_TABLE
1227 , p6_a64 JTF_VARCHAR2_TABLE_300
1228 , p6_a65 JTF_VARCHAR2_TABLE_100
1229 , p6_a66 JTF_DATE_TABLE
1230 , p6_a67 JTF_DATE_TABLE
1231 , p6_a68 JTF_VARCHAR2_TABLE_100
1232 , p6_a69 JTF_VARCHAR2_TABLE_100
1233 , p6_a70 JTF_VARCHAR2_TABLE_100
1234 , p6_a71 JTF_NUMBER_TABLE
1235 , p6_a72 JTF_VARCHAR2_TABLE_100
1236 , p6_a73 JTF_NUMBER_TABLE
1237 , p6_a74 JTF_VARCHAR2_TABLE_100
1238 , p6_a75 JTF_VARCHAR2_TABLE_100
1239 , p6_a76 JTF_VARCHAR2_TABLE_100
1240 , p6_a77 JTF_VARCHAR2_TABLE_100
1241 , p6_a78 JTF_DATE_TABLE
1242 , p6_a79 JTF_DATE_TABLE
1243 , p6_a80 JTF_NUMBER_TABLE
1244 , p6_a81 JTF_NUMBER_TABLE
1245 , p6_a82 JTF_NUMBER_TABLE
1246 , p6_a83 JTF_VARCHAR2_TABLE_100
1247 , p6_a84 JTF_VARCHAR2_TABLE_100
1248 , p6_a85 JTF_VARCHAR2_TABLE_100
1249 , p6_a86 JTF_VARCHAR2_TABLE_100
1250 , p6_a87 JTF_VARCHAR2_TABLE_100
1251 , p6_a88 JTF_VARCHAR2_TABLE_100
1252 , p6_a89 JTF_VARCHAR2_TABLE_100
1253 , p6_a90 JTF_VARCHAR2_TABLE_100
1254 , p6_a91 JTF_VARCHAR2_TABLE_100
1255 , p6_a92 JTF_VARCHAR2_TABLE_100
1256 , p6_a93 JTF_NUMBER_TABLE
1257 , p6_a94 JTF_VARCHAR2_TABLE_300
1258 , p_release_flag VARCHAR2
1259 , x_return_status out nocopy VARCHAR2
1260 , x_msg_count out nocopy NUMBER
1261 , x_msg_data out nocopy VARCHAR2
1262 )
1263
1264 as
1265 ddp_tasks_tbl ahl_vwp_proj_prod_pvt.task_tbl_type;
1266 ddindx binary_integer; indx binary_integer;
1267 begin
1268
1269 -- copy data to the local IN or IN-OUT args, if any
1270
1271
1272
1273
1274
1275
1276 ahl_vwp_proj_prod_pvt_w.rosetta_table_copy_in_p2(ddp_tasks_tbl, p6_a0
1277 , p6_a1
1278 , p6_a2
1279 , p6_a3
1280 , p6_a4
1281 , p6_a5
1282 , p6_a6
1283 , p6_a7
1284 , p6_a8
1285 , p6_a9
1286 , p6_a10
1287 , p6_a11
1288 , p6_a12
1289 , p6_a13
1290 , p6_a14
1291 , p6_a15
1292 , p6_a16
1293 , p6_a17
1294 , p6_a18
1295 , p6_a19
1296 , p6_a20
1297 , p6_a21
1298 , p6_a22
1299 , p6_a23
1300 , p6_a24
1301 , p6_a25
1302 , p6_a26
1303 , p6_a27
1304 , p6_a28
1305 , p6_a29
1306 , p6_a30
1307 , p6_a31
1308 , p6_a32
1309 , p6_a33
1310 , p6_a34
1311 , p6_a35
1312 , p6_a36
1313 , p6_a37
1314 , p6_a38
1315 , p6_a39
1316 , p6_a40
1317 , p6_a41
1318 , p6_a42
1319 , p6_a43
1320 , p6_a44
1321 , p6_a45
1322 , p6_a46
1323 , p6_a47
1324 , p6_a48
1325 , p6_a49
1326 , p6_a50
1327 , p6_a51
1328 , p6_a52
1329 , p6_a53
1330 , p6_a54
1331 , p6_a55
1332 , p6_a56
1333 , p6_a57
1334 , p6_a58
1335 , p6_a59
1336 , p6_a60
1337 , p6_a61
1338 , p6_a62
1339 , p6_a63
1340 , p6_a64
1341 , p6_a65
1342 , p6_a66
1343 , p6_a67
1344 , p6_a68
1345 , p6_a69
1346 , p6_a70
1347 , p6_a71
1348 , p6_a72
1349 , p6_a73
1350 , p6_a74
1351 , p6_a75
1352 , p6_a76
1353 , p6_a77
1354 , p6_a78
1355 , p6_a79
1356 , p6_a80
1357 , p6_a81
1358 , p6_a82
1359 , p6_a83
1360 , p6_a84
1361 , p6_a85
1362 , p6_a86
1363 , p6_a87
1364 , p6_a88
1365 , p6_a89
1366 , p6_a90
1367 , p6_a91
1368 , p6_a92
1369 , p6_a93
1370 , p6_a94
1371 );
1372
1373
1374
1375
1376
1377 -- here's the delegated call to the old PL/SQL routine
1378 ahl_vwp_proj_prod_pvt.release_tasks(p_api_version,
1379 p_init_msg_list,
1380 p_commit,
1381 p_validation_level,
1382 p_module_type,
1383 p_visit_id,
1384 ddp_tasks_tbl,
1385 p_release_flag,
1386 x_return_status,
1387 x_msg_count,
1388 x_msg_data);
1389
1390 -- copy data back from the local variables to OUT or IN-OUT args, if any
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401 end;
1402
1403 procedure update_project_task_times(p0_a0 JTF_NUMBER_TABLE
1404 , p0_a1 JTF_NUMBER_TABLE
1405 , p0_a2 JTF_NUMBER_TABLE
1406 , p0_a3 JTF_NUMBER_TABLE
1407 , p0_a4 JTF_NUMBER_TABLE
1408 , p0_a5 JTF_VARCHAR2_TABLE_100
1409 , p0_a6 JTF_VARCHAR2_TABLE_300
1410 , p0_a7 JTF_NUMBER_TABLE
1411 , p0_a8 JTF_VARCHAR2_TABLE_300
1412 , p0_a9 JTF_VARCHAR2_TABLE_100
1413 , p0_a10 JTF_VARCHAR2_TABLE_300
1414 , p0_a11 JTF_NUMBER_TABLE
1415 , p0_a12 JTF_VARCHAR2_TABLE_100
1416 , p0_a13 JTF_VARCHAR2_TABLE_100
1417 , p0_a14 JTF_VARCHAR2_TABLE_100
1418 , p0_a15 JTF_DATE_TABLE
1419 , p0_a16 JTF_NUMBER_TABLE
1420 , p0_a17 JTF_NUMBER_TABLE
1421 , p0_a18 JTF_DATE_TABLE
1422 , p0_a19 JTF_NUMBER_TABLE
1423 , p0_a20 JTF_NUMBER_TABLE
1424 , p0_a21 JTF_DATE_TABLE
1425 , p0_a22 JTF_NUMBER_TABLE
1426 , p0_a23 JTF_NUMBER_TABLE
1427 , p0_a24 JTF_DATE_TABLE
1428 , p0_a25 JTF_NUMBER_TABLE
1429 , p0_a26 JTF_NUMBER_TABLE
1430 , p0_a27 JTF_NUMBER_TABLE
1431 , p0_a28 JTF_NUMBER_TABLE
1432 , p0_a29 JTF_VARCHAR2_TABLE_100
1433 , p0_a30 JTF_VARCHAR2_TABLE_100
1434 , p0_a31 JTF_VARCHAR2_TABLE_100
1435 , p0_a32 JTF_VARCHAR2_TABLE_300
1436 , p0_a33 JTF_VARCHAR2_TABLE_100
1437 , p0_a34 JTF_VARCHAR2_TABLE_100
1438 , p0_a35 JTF_VARCHAR2_TABLE_100
1439 , p0_a36 JTF_NUMBER_TABLE
1440 , p0_a37 JTF_VARCHAR2_TABLE_300
1441 , p0_a38 JTF_NUMBER_TABLE
1442 , p0_a39 JTF_VARCHAR2_TABLE_100
1443 , p0_a40 JTF_NUMBER_TABLE
1444 , p0_a41 JTF_VARCHAR2_TABLE_100
1445 , p0_a42 JTF_NUMBER_TABLE
1446 , p0_a43 JTF_NUMBER_TABLE
1447 , p0_a44 JTF_VARCHAR2_TABLE_100
1448 , p0_a45 JTF_NUMBER_TABLE
1449 , p0_a46 JTF_NUMBER_TABLE
1450 , p0_a47 JTF_NUMBER_TABLE
1451 , p0_a48 JTF_VARCHAR2_TABLE_100
1452 , p0_a49 JTF_NUMBER_TABLE
1453 , p0_a50 JTF_NUMBER_TABLE
1454 , p0_a51 JTF_VARCHAR2_TABLE_100
1455 , p0_a52 JTF_VARCHAR2_TABLE_100
1456 , p0_a53 JTF_NUMBER_TABLE
1457 , p0_a54 JTF_NUMBER_TABLE
1458 , p0_a55 JTF_VARCHAR2_TABLE_300
1459 , p0_a56 JTF_VARCHAR2_TABLE_100
1460 , p0_a57 JTF_VARCHAR2_TABLE_100
1461 , p0_a58 JTF_NUMBER_TABLE
1462 , p0_a59 JTF_NUMBER_TABLE
1463 , p0_a60 JTF_NUMBER_TABLE
1464 , p0_a61 JTF_NUMBER_TABLE
1465 , p0_a62 JTF_NUMBER_TABLE
1466 , p0_a63 JTF_NUMBER_TABLE
1467 , p0_a64 JTF_NUMBER_TABLE
1468 , p0_a65 JTF_NUMBER_TABLE
1469 , p0_a66 JTF_VARCHAR2_TABLE_100
1470 , p0_a67 JTF_VARCHAR2_TABLE_100
1471 , p0_a68 JTF_NUMBER_TABLE
1472 , p0_a69 JTF_VARCHAR2_TABLE_100
1473 , p0_a70 JTF_NUMBER_TABLE
1474 , p0_a71 JTF_NUMBER_TABLE
1475 , p0_a72 JTF_NUMBER_TABLE
1476 , p0_a73 JTF_NUMBER_TABLE
1477 , p0_a74 JTF_VARCHAR2_TABLE_100
1478 , p0_a75 JTF_NUMBER_TABLE
1479 , p0_a76 JTF_NUMBER_TABLE
1480 , p0_a77 JTF_VARCHAR2_TABLE_100
1481 , p0_a78 JTF_VARCHAR2_TABLE_200
1482 , p0_a79 JTF_VARCHAR2_TABLE_200
1483 , p0_a80 JTF_VARCHAR2_TABLE_200
1484 , p0_a81 JTF_VARCHAR2_TABLE_200
1485 , p0_a82 JTF_VARCHAR2_TABLE_200
1486 , p0_a83 JTF_VARCHAR2_TABLE_200
1487 , p0_a84 JTF_VARCHAR2_TABLE_200
1488 , p0_a85 JTF_VARCHAR2_TABLE_200
1489 , p0_a86 JTF_VARCHAR2_TABLE_200
1490 , p0_a87 JTF_VARCHAR2_TABLE_200
1491 , p0_a88 JTF_VARCHAR2_TABLE_200
1492 , p0_a89 JTF_VARCHAR2_TABLE_200
1493 , p0_a90 JTF_VARCHAR2_TABLE_200
1494 , p0_a91 JTF_VARCHAR2_TABLE_200
1495 , p0_a92 JTF_VARCHAR2_TABLE_200
1496 , p0_a93 JTF_DATE_TABLE
1497 , p0_a94 JTF_NUMBER_TABLE
1498 , p0_a95 JTF_DATE_TABLE
1499 , p0_a96 JTF_NUMBER_TABLE
1500 , p0_a97 JTF_NUMBER_TABLE
1501 , p0_a98 JTF_VARCHAR2_TABLE_100
1502 , p0_a99 JTF_VARCHAR2_TABLE_100
1503 , p0_a100 JTF_VARCHAR2_TABLE_100
1504 , p0_a101 JTF_NUMBER_TABLE
1505 , p0_a102 JTF_VARCHAR2_TABLE_100
1506 , p0_a103 JTF_VARCHAR2_TABLE_100
1507 , p0_a104 JTF_VARCHAR2_TABLE_100
1508 , p_commit VARCHAR2
1509 , x_return_status out nocopy VARCHAR2
1510 , x_msg_count out nocopy NUMBER
1511 , x_msg_data out nocopy VARCHAR2
1512 )
1513
1514 as
1515 ddp_prd_workorder_tbl ahl_prd_workorder_pvt.prd_workorder_tbl;
1516 ddindx binary_integer; indx binary_integer;
1517 begin
1518
1519 -- copy data to the local IN or IN-OUT args, if any
1520 ahl_prd_workorder_pvt_w.rosetta_table_copy_in_p3(ddp_prd_workorder_tbl, p0_a0
1521 , p0_a1
1522 , p0_a2
1523 , p0_a3
1524 , p0_a4
1525 , p0_a5
1526 , p0_a6
1527 , p0_a7
1528 , p0_a8
1529 , p0_a9
1530 , p0_a10
1531 , p0_a11
1532 , p0_a12
1533 , p0_a13
1534 , p0_a14
1535 , p0_a15
1536 , p0_a16
1537 , p0_a17
1538 , p0_a18
1539 , p0_a19
1540 , p0_a20
1541 , p0_a21
1542 , p0_a22
1543 , p0_a23
1544 , p0_a24
1545 , p0_a25
1546 , p0_a26
1547 , p0_a27
1548 , p0_a28
1549 , p0_a29
1550 , p0_a30
1551 , p0_a31
1552 , p0_a32
1553 , p0_a33
1554 , p0_a34
1555 , p0_a35
1556 , p0_a36
1557 , p0_a37
1558 , p0_a38
1559 , p0_a39
1560 , p0_a40
1561 , p0_a41
1562 , p0_a42
1563 , p0_a43
1564 , p0_a44
1565 , p0_a45
1566 , p0_a46
1567 , p0_a47
1568 , p0_a48
1569 , p0_a49
1570 , p0_a50
1571 , p0_a51
1572 , p0_a52
1573 , p0_a53
1574 , p0_a54
1575 , p0_a55
1576 , p0_a56
1577 , p0_a57
1578 , p0_a58
1579 , p0_a59
1580 , p0_a60
1581 , p0_a61
1582 , p0_a62
1583 , p0_a63
1584 , p0_a64
1585 , p0_a65
1586 , p0_a66
1587 , p0_a67
1588 , p0_a68
1589 , p0_a69
1590 , p0_a70
1591 , p0_a71
1592 , p0_a72
1593 , p0_a73
1594 , p0_a74
1595 , p0_a75
1596 , p0_a76
1597 , p0_a77
1598 , p0_a78
1599 , p0_a79
1600 , p0_a80
1601 , p0_a81
1602 , p0_a82
1603 , p0_a83
1604 , p0_a84
1605 , p0_a85
1606 , p0_a86
1607 , p0_a87
1608 , p0_a88
1609 , p0_a89
1610 , p0_a90
1611 , p0_a91
1612 , p0_a92
1613 , p0_a93
1614 , p0_a94
1615 , p0_a95
1616 , p0_a96
1617 , p0_a97
1618 , p0_a98
1619 , p0_a99
1620 , p0_a100
1621 , p0_a101
1622 , p0_a102
1623 , p0_a103
1624 , p0_a104
1625 );
1626
1627
1628
1629
1630
1631 -- here's the delegated call to the old PL/SQL routine
1632 ahl_vwp_proj_prod_pvt.update_project_task_times(ddp_prd_workorder_tbl,
1633 p_commit,
1634 x_return_status,
1635 x_msg_count,
1636 x_msg_data);
1637
1638 -- copy data back from the local variables to OUT or IN-OUT args, if any
1639
1640
1641
1642
1643 end;
1644
1645 procedure push_stages_to_production(p_api_version NUMBER
1646 , p_init_msg_list VARCHAR2
1647 , p_commit VARCHAR2
1648 , p_validation_level NUMBER
1649 , p_module_type VARCHAR2
1650 , p_visit_id NUMBER
1651 , p6_a0 JTF_NUMBER_TABLE
1652 , p6_a1 JTF_NUMBER_TABLE
1653 , p6_a2 JTF_VARCHAR2_TABLE_100
1654 , p6_a3 JTF_NUMBER_TABLE
1655 , p6_a4 JTF_DATE_TABLE
1656 , p6_a5 JTF_DATE_TABLE
1657 , p6_a6 JTF_DATE_TABLE
1658 , p6_a7 JTF_VARCHAR2_TABLE_100
1659 , p6_a8 JTF_NUMBER_TABLE
1660 , p6_a9 JTF_DATE_TABLE
1661 , p6_a10 JTF_NUMBER_TABLE
1662 , p6_a11 JTF_VARCHAR2_TABLE_100
1663 , p6_a12 JTF_VARCHAR2_TABLE_200
1664 , p6_a13 JTF_VARCHAR2_TABLE_200
1665 , p6_a14 JTF_VARCHAR2_TABLE_200
1666 , p6_a15 JTF_VARCHAR2_TABLE_200
1667 , p6_a16 JTF_VARCHAR2_TABLE_200
1668 , p6_a17 JTF_VARCHAR2_TABLE_200
1669 , p6_a18 JTF_VARCHAR2_TABLE_200
1670 , p6_a19 JTF_VARCHAR2_TABLE_200
1671 , p6_a20 JTF_VARCHAR2_TABLE_200
1672 , p6_a21 JTF_VARCHAR2_TABLE_200
1673 , p6_a22 JTF_VARCHAR2_TABLE_200
1674 , p6_a23 JTF_VARCHAR2_TABLE_200
1675 , p6_a24 JTF_VARCHAR2_TABLE_200
1676 , p6_a25 JTF_VARCHAR2_TABLE_200
1677 , p6_a26 JTF_VARCHAR2_TABLE_200
1678 , p_release_flag VARCHAR2
1679 , x_return_status out nocopy VARCHAR2
1680 , x_msg_count out nocopy NUMBER
1681 , x_msg_data out nocopy VARCHAR2
1682 )
1683
1684 as
1685 ddp_stages_tbl ahl_vwp_visits_stages_pvt.visit_stages_tbl_type;
1686 ddindx binary_integer; indx binary_integer;
1687 begin
1688
1689 -- copy data to the local IN or IN-OUT args, if any
1690
1691
1692
1693
1694
1695
1696 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_in_p5(ddp_stages_tbl, p6_a0
1697 , p6_a1
1698 , p6_a2
1699 , p6_a3
1700 , p6_a4
1701 , p6_a5
1702 , p6_a6
1703 , p6_a7
1704 , p6_a8
1705 , p6_a9
1706 , p6_a10
1707 , p6_a11
1708 , p6_a12
1709 , p6_a13
1710 , p6_a14
1711 , p6_a15
1712 , p6_a16
1713 , p6_a17
1714 , p6_a18
1715 , p6_a19
1716 , p6_a20
1717 , p6_a21
1718 , p6_a22
1719 , p6_a23
1720 , p6_a24
1721 , p6_a25
1722 , p6_a26
1723 );
1724
1725
1726
1727
1728
1729 -- here's the delegated call to the old PL/SQL routine
1730 ahl_vwp_proj_prod_pvt.push_stages_to_production(p_api_version,
1731 p_init_msg_list,
1732 p_commit,
1733 p_validation_level,
1734 p_module_type,
1735 p_visit_id,
1736 ddp_stages_tbl,
1737 p_release_flag,
1738 x_return_status,
1739 x_msg_count,
1740 x_msg_data);
1741
1742 -- copy data back from the local variables to OUT or IN-OUT args, if any
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753 end;
1754
1755 end ahl_vwp_proj_prod_pvt_w;