[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_RULES_PVT_W
Source
1 package body ahl_vwp_rules_pvt_w as
2 /* $Header: AHLWRULB.pls 120.6.12020000.2 2012/12/14 06:11:57 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_p3(t out nocopy ahl_vwp_rules_pvt.mr_serial_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 ) as
20 ddindx binary_integer; indx binary_integer;
21 begin
22 if a0 is not null and a0.count > 0 then
23 if a0.count > 0 then
24 indx := a0.first;
25 ddindx := 1;
26 while true loop
27 t(ddindx).mr_id := a0(indx);
28 t(ddindx).serial_id := a1(indx);
29 t(ddindx).ue_id := a2(indx);
30 ddindx := ddindx+1;
31 if a0.last =indx
32 then exit;
33 end if;
34 indx := a0.next(indx);
35 end loop;
36 end if;
37 end if;
38 end rosetta_table_copy_in_p3;
39 procedure rosetta_table_copy_out_p3(t ahl_vwp_rules_pvt.mr_serial_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
40 , a1 out nocopy JTF_NUMBER_TABLE
41 , a2 out nocopy JTF_NUMBER_TABLE
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if t is null or t.count = 0 then
46 a0 := JTF_NUMBER_TABLE();
47 a1 := JTF_NUMBER_TABLE();
48 a2 := JTF_NUMBER_TABLE();
49 else
50 a0 := JTF_NUMBER_TABLE();
51 a1 := JTF_NUMBER_TABLE();
52 a2 := JTF_NUMBER_TABLE();
53 if t.count > 0 then
54 a0.extend(t.count);
55 a1.extend(t.count);
56 a2.extend(t.count);
57 ddindx := t.first;
58 indx := 1;
59 while true loop
60 a0(indx) := t(ddindx).mr_id;
61 a1(indx) := t(ddindx).serial_id;
62 a2(indx) := t(ddindx).ue_id;
63 indx := indx+1;
64 if t.last =ddindx
65 then exit;
66 end if;
67 ddindx := t.next(ddindx);
68 end loop;
69 end if;
70 end if;
71 end rosetta_table_copy_out_p3;
72
73 procedure rosetta_table_copy_in_p4(t out nocopy ahl_vwp_rules_pvt.item_tbl_type, a0 JTF_NUMBER_TABLE
74 , a1 JTF_NUMBER_TABLE
75 , a2 JTF_NUMBER_TABLE
76 , a3 JTF_NUMBER_TABLE
77 , a4 JTF_DATE_TABLE
78 , a5 JTF_VARCHAR2_TABLE_100
79 ) as
80 ddindx binary_integer; indx binary_integer;
81 begin
82 if a0 is not null and a0.count > 0 then
83 if a0.count > 0 then
84 indx := a0.first;
85 ddindx := 1;
86 while true loop
87 t(ddindx).item_id := a0(indx);
88 t(ddindx).visit_task_id := a1(indx);
89 t(ddindx).quantity := a2(indx);
90 t(ddindx).duration := a3(indx);
91 t(ddindx).effective_date := rosetta_g_miss_date_in_map(a4(indx));
92 t(ddindx).uom_code := a5(indx);
93 ddindx := ddindx+1;
94 if a0.last =indx
95 then exit;
96 end if;
97 indx := a0.next(indx);
98 end loop;
99 end if;
100 end if;
101 end rosetta_table_copy_in_p4;
102 procedure rosetta_table_copy_out_p4(t ahl_vwp_rules_pvt.item_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
103 , a1 out nocopy JTF_NUMBER_TABLE
104 , a2 out nocopy JTF_NUMBER_TABLE
105 , a3 out nocopy JTF_NUMBER_TABLE
106 , a4 out nocopy JTF_DATE_TABLE
107 , a5 out nocopy JTF_VARCHAR2_TABLE_100
108 ) as
109 ddindx binary_integer; indx binary_integer;
110 begin
111 if t is null or t.count = 0 then
112 a0 := JTF_NUMBER_TABLE();
113 a1 := JTF_NUMBER_TABLE();
114 a2 := JTF_NUMBER_TABLE();
115 a3 := JTF_NUMBER_TABLE();
116 a4 := JTF_DATE_TABLE();
117 a5 := JTF_VARCHAR2_TABLE_100();
118 else
119 a0 := JTF_NUMBER_TABLE();
120 a1 := JTF_NUMBER_TABLE();
121 a2 := JTF_NUMBER_TABLE();
122 a3 := JTF_NUMBER_TABLE();
123 a4 := JTF_DATE_TABLE();
124 a5 := JTF_VARCHAR2_TABLE_100();
125 if t.count > 0 then
126 a0.extend(t.count);
127 a1.extend(t.count);
128 a2.extend(t.count);
129 a3.extend(t.count);
130 a4.extend(t.count);
131 a5.extend(t.count);
132 ddindx := t.first;
133 indx := 1;
134 while true loop
135 a0(indx) := t(ddindx).item_id;
136 a1(indx) := t(ddindx).visit_task_id;
137 a2(indx) := t(ddindx).quantity;
138 a3(indx) := t(ddindx).duration;
139 a4(indx) := t(ddindx).effective_date;
140 a5(indx) := t(ddindx).uom_code;
141 indx := indx+1;
142 if t.last =ddindx
143 then exit;
144 end if;
145 ddindx := t.next(ddindx);
146 end loop;
147 end if;
148 end if;
149 end rosetta_table_copy_out_p4;
150
151 procedure rosetta_table_copy_in_p5(t out nocopy ahl_vwp_rules_pvt.task_tbl_type, a0 JTF_NUMBER_TABLE
152 , a1 JTF_NUMBER_TABLE
153 , a2 JTF_NUMBER_TABLE
154 , a3 JTF_VARCHAR2_TABLE_100
155 , a4 JTF_NUMBER_TABLE
156 , a5 JTF_NUMBER_TABLE
157 , a6 JTF_VARCHAR2_TABLE_100
158 , a7 JTF_NUMBER_TABLE
159 , a8 JTF_NUMBER_TABLE
160 , a9 JTF_NUMBER_TABLE
161 , a10 JTF_VARCHAR2_TABLE_100
162 , a11 JTF_NUMBER_TABLE
163 , a12 JTF_VARCHAR2_TABLE_100
164 , a13 JTF_NUMBER_TABLE
165 , a14 JTF_NUMBER_TABLE
166 , a15 JTF_VARCHAR2_TABLE_300
167 , a16 JTF_NUMBER_TABLE
168 , a17 JTF_VARCHAR2_TABLE_100
169 , a18 JTF_NUMBER_TABLE
170 , a19 JTF_NUMBER_TABLE
171 , a20 JTF_NUMBER_TABLE
172 , a21 JTF_VARCHAR2_TABLE_100
173 , a22 JTF_NUMBER_TABLE
174 , a23 JTF_VARCHAR2_TABLE_100
175 , a24 JTF_NUMBER_TABLE
176 , a25 JTF_NUMBER_TABLE
177 , a26 JTF_NUMBER_TABLE
178 , a27 JTF_VARCHAR2_TABLE_100
179 , a28 JTF_VARCHAR2_TABLE_100
180 , a29 JTF_VARCHAR2_TABLE_100
181 , a30 JTF_VARCHAR2_TABLE_4000
182 , a31 JTF_VARCHAR2_TABLE_100
183 , a32 JTF_VARCHAR2_TABLE_100
184 , a33 JTF_NUMBER_TABLE
185 , a34 JTF_DATE_TABLE
186 , a35 JTF_NUMBER_TABLE
187 , a36 JTF_DATE_TABLE
188 , a37 JTF_NUMBER_TABLE
189 , a38 JTF_NUMBER_TABLE
190 , a39 JTF_VARCHAR2_TABLE_100
191 , a40 JTF_VARCHAR2_TABLE_200
192 , a41 JTF_VARCHAR2_TABLE_200
193 , a42 JTF_VARCHAR2_TABLE_200
194 , a43 JTF_VARCHAR2_TABLE_200
195 , a44 JTF_VARCHAR2_TABLE_200
196 , a45 JTF_VARCHAR2_TABLE_200
197 , a46 JTF_VARCHAR2_TABLE_200
198 , a47 JTF_VARCHAR2_TABLE_200
199 , a48 JTF_VARCHAR2_TABLE_200
200 , a49 JTF_VARCHAR2_TABLE_200
201 , a50 JTF_VARCHAR2_TABLE_200
202 , a51 JTF_VARCHAR2_TABLE_200
203 , a52 JTF_VARCHAR2_TABLE_200
204 , a53 JTF_VARCHAR2_TABLE_200
205 , a54 JTF_VARCHAR2_TABLE_200
206 , a55 JTF_DATE_TABLE
207 , a56 JTF_DATE_TABLE
208 , a57 JTF_DATE_TABLE
209 , a58 JTF_VARCHAR2_TABLE_100
210 , a59 JTF_VARCHAR2_TABLE_100
211 , a60 JTF_NUMBER_TABLE
212 , a61 JTF_NUMBER_TABLE
213 , a62 JTF_VARCHAR2_TABLE_100
214 , a63 JTF_NUMBER_TABLE
215 , a64 JTF_VARCHAR2_TABLE_300
216 , a65 JTF_VARCHAR2_TABLE_100
217 , a66 JTF_DATE_TABLE
218 , a67 JTF_DATE_TABLE
219 , a68 JTF_VARCHAR2_TABLE_100
220 , a69 JTF_VARCHAR2_TABLE_100
221 , a70 JTF_VARCHAR2_TABLE_100
222 , a71 JTF_NUMBER_TABLE
223 , a72 JTF_VARCHAR2_TABLE_100
224 , a73 JTF_NUMBER_TABLE
225 , a74 JTF_VARCHAR2_TABLE_100
226 , a75 JTF_VARCHAR2_TABLE_100
227 , a76 JTF_VARCHAR2_TABLE_100
228 , a77 JTF_VARCHAR2_TABLE_100
229 , a78 JTF_DATE_TABLE
230 , a79 JTF_DATE_TABLE
231 , a80 JTF_NUMBER_TABLE
232 , a81 JTF_NUMBER_TABLE
233 , a82 JTF_NUMBER_TABLE
234 , a83 JTF_VARCHAR2_TABLE_100
235 , a84 JTF_VARCHAR2_TABLE_100
236 , a85 JTF_VARCHAR2_TABLE_100
237 , a86 JTF_VARCHAR2_TABLE_100
238 , a87 JTF_VARCHAR2_TABLE_100
239 , a88 JTF_VARCHAR2_TABLE_100
240 , a89 JTF_VARCHAR2_TABLE_100
241 , a90 JTF_VARCHAR2_TABLE_100
242 , a91 JTF_VARCHAR2_TABLE_100
243 , a92 JTF_VARCHAR2_TABLE_100
244 , a93 JTF_NUMBER_TABLE
245 , a94 JTF_VARCHAR2_TABLE_300
246 ) as
247 ddindx binary_integer; indx binary_integer;
248 begin
249 if a0 is not null and a0.count > 0 then
250 if a0.count > 0 then
251 indx := a0.first;
252 ddindx := 1;
253 while true loop
254 t(ddindx).visit_task_id := a0(indx);
255 t(ddindx).visit_task_number := a1(indx);
256 t(ddindx).visit_id := a2(indx);
257 t(ddindx).template_flag := a3(indx);
258 t(ddindx).inventory_item_id := a4(indx);
259 t(ddindx).item_organization_id := a5(indx);
260 t(ddindx).item_name := a6(indx);
261 t(ddindx).cost_parent_id := a7(indx);
262 t(ddindx).cost_parent_number := a8(indx);
263 t(ddindx).mr_route_id := a9(indx);
264 t(ddindx).route_number := a10(indx);
265 t(ddindx).mr_id := a11(indx);
266 t(ddindx).mr_title := a12(indx);
267 t(ddindx).unit_effectivity_id := a13(indx);
268 t(ddindx).department_id := a14(indx);
269 t(ddindx).dept_name := a15(indx);
270 t(ddindx).service_request_id := a16(indx);
271 t(ddindx).service_request_number := a17(indx);
272 t(ddindx).originating_task_id := a18(indx);
273 t(ddindx).orginating_task_number := a19(indx);
274 t(ddindx).instance_id := a20(indx);
275 t(ddindx).serial_number := a21(indx);
276 t(ddindx).project_task_id := a22(indx);
277 t(ddindx).project_task_number := a23(indx);
278 t(ddindx).primary_visit_task_id := a24(indx);
279 t(ddindx).start_from_hour := a25(indx);
280 t(ddindx).duration := a26(indx);
281 t(ddindx).task_type_code := a27(indx);
282 t(ddindx).task_type_value := a28(indx);
283 t(ddindx).visit_task_name := a29(indx);
284 t(ddindx).description := a30(indx);
285 t(ddindx).task_status_code := a31(indx);
286 t(ddindx).task_status_value := a32(indx);
287 t(ddindx).object_version_number := a33(indx);
288 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a34(indx));
289 t(ddindx).last_updated_by := a35(indx);
290 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a36(indx));
291 t(ddindx).created_by := a37(indx);
292 t(ddindx).last_update_login := a38(indx);
293 t(ddindx).attribute_category := a39(indx);
294 t(ddindx).attribute1 := a40(indx);
295 t(ddindx).attribute2 := a41(indx);
296 t(ddindx).attribute3 := a42(indx);
297 t(ddindx).attribute4 := a43(indx);
298 t(ddindx).attribute5 := a44(indx);
299 t(ddindx).attribute6 := a45(indx);
300 t(ddindx).attribute7 := a46(indx);
301 t(ddindx).attribute8 := a47(indx);
302 t(ddindx).attribute9 := a48(indx);
303 t(ddindx).attribute10 := a49(indx);
304 t(ddindx).attribute11 := a50(indx);
305 t(ddindx).attribute12 := a51(indx);
306 t(ddindx).attribute13 := a52(indx);
307 t(ddindx).attribute14 := a53(indx);
308 t(ddindx).attribute15 := a54(indx);
309 t(ddindx).task_start_date := rosetta_g_miss_date_in_map(a55(indx));
310 t(ddindx).task_end_date := rosetta_g_miss_date_in_map(a56(indx));
311 t(ddindx).due_by_date := rosetta_g_miss_date_in_map(a57(indx));
312 t(ddindx).zone_name := a58(indx);
313 t(ddindx).sub_zone_name := a59(indx);
314 t(ddindx).tolerance_after := a60(indx);
315 t(ddindx).tolerance_before := a61(indx);
316 t(ddindx).tolerance_uom := a62(indx);
317 t(ddindx).workorder_id := a63(indx);
318 t(ddindx).wo_name := a64(indx);
319 t(ddindx).wo_status := a65(indx);
320 t(ddindx).wo_start_date := rosetta_g_miss_date_in_map(a66(indx));
321 t(ddindx).wo_end_date := rosetta_g_miss_date_in_map(a67(indx));
322 t(ddindx).operation_flag := a68(indx);
323 t(ddindx).is_production_flag := a69(indx);
324 t(ddindx).create_job_flag := a70(indx);
325 t(ddindx).stage_id := a71(indx);
326 t(ddindx).stage_name := a72(indx);
327 t(ddindx).quantity := a73(indx);
328 t(ddindx).uom := a74(indx);
329 t(ddindx).instance_number := a75(indx);
330 t(ddindx).service_type_code := a76(indx);
331 t(ddindx).service_type := a77(indx);
332 t(ddindx).past_task_start_date := rosetta_g_miss_date_in_map(a78(indx));
333 t(ddindx).past_task_end_date := rosetta_g_miss_date_in_map(a79(indx));
334 t(ddindx).route_id := a80(indx);
335 t(ddindx).warranty_entitlement_id := a81(indx);
336 t(ddindx).contract_number := a82(indx);
337 t(ddindx).entitlement_status := a83(indx);
338 t(ddindx).entitlement_status_code := a84(indx);
339 t(ddindx).claim_name := a85(indx);
340 t(ddindx).claim_status := a86(indx);
341 t(ddindx).claim_status_code := a87(indx);
342 t(ddindx).task_warranty := a88(indx);
343 t(ddindx).instance_warranty := a89(indx);
344 t(ddindx).warranty_not_appl_flag := a90(indx);
345 t(ddindx).stage_type_code := a91(indx);
346 t(ddindx).return_to_supply_flag := a92(indx);
347 t(ddindx).target_qty := a93(indx);
348 t(ddindx).repair_batch_name := a94(indx);
349 ddindx := ddindx+1;
350 if a0.last =indx
351 then exit;
352 end if;
353 indx := a0.next(indx);
354 end loop;
355 end if;
356 end if;
357 end rosetta_table_copy_in_p5;
358 procedure rosetta_table_copy_out_p5(t ahl_vwp_rules_pvt.task_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
359 , a1 out nocopy JTF_NUMBER_TABLE
360 , a2 out nocopy JTF_NUMBER_TABLE
361 , a3 out nocopy JTF_VARCHAR2_TABLE_100
362 , a4 out nocopy JTF_NUMBER_TABLE
363 , a5 out nocopy JTF_NUMBER_TABLE
364 , a6 out nocopy JTF_VARCHAR2_TABLE_100
365 , a7 out nocopy JTF_NUMBER_TABLE
366 , a8 out nocopy JTF_NUMBER_TABLE
367 , a9 out nocopy JTF_NUMBER_TABLE
368 , a10 out nocopy JTF_VARCHAR2_TABLE_100
369 , a11 out nocopy JTF_NUMBER_TABLE
370 , a12 out nocopy JTF_VARCHAR2_TABLE_100
371 , a13 out nocopy JTF_NUMBER_TABLE
372 , a14 out nocopy JTF_NUMBER_TABLE
373 , a15 out nocopy JTF_VARCHAR2_TABLE_300
374 , a16 out nocopy JTF_NUMBER_TABLE
375 , a17 out nocopy JTF_VARCHAR2_TABLE_100
376 , a18 out nocopy JTF_NUMBER_TABLE
377 , a19 out nocopy JTF_NUMBER_TABLE
378 , a20 out nocopy JTF_NUMBER_TABLE
379 , a21 out nocopy JTF_VARCHAR2_TABLE_100
380 , a22 out nocopy JTF_NUMBER_TABLE
381 , a23 out nocopy JTF_VARCHAR2_TABLE_100
382 , a24 out nocopy JTF_NUMBER_TABLE
383 , a25 out nocopy JTF_NUMBER_TABLE
384 , a26 out nocopy JTF_NUMBER_TABLE
385 , a27 out nocopy JTF_VARCHAR2_TABLE_100
386 , a28 out nocopy JTF_VARCHAR2_TABLE_100
387 , a29 out nocopy JTF_VARCHAR2_TABLE_100
388 , a30 out nocopy JTF_VARCHAR2_TABLE_4000
389 , a31 out nocopy JTF_VARCHAR2_TABLE_100
390 , a32 out nocopy JTF_VARCHAR2_TABLE_100
391 , a33 out nocopy JTF_NUMBER_TABLE
392 , a34 out nocopy JTF_DATE_TABLE
393 , a35 out nocopy JTF_NUMBER_TABLE
394 , a36 out nocopy JTF_DATE_TABLE
395 , a37 out nocopy JTF_NUMBER_TABLE
396 , a38 out nocopy JTF_NUMBER_TABLE
397 , a39 out nocopy JTF_VARCHAR2_TABLE_100
398 , a40 out nocopy JTF_VARCHAR2_TABLE_200
399 , a41 out nocopy JTF_VARCHAR2_TABLE_200
400 , a42 out nocopy JTF_VARCHAR2_TABLE_200
401 , a43 out nocopy JTF_VARCHAR2_TABLE_200
402 , a44 out nocopy JTF_VARCHAR2_TABLE_200
403 , a45 out nocopy JTF_VARCHAR2_TABLE_200
404 , a46 out nocopy JTF_VARCHAR2_TABLE_200
405 , a47 out nocopy JTF_VARCHAR2_TABLE_200
406 , a48 out nocopy JTF_VARCHAR2_TABLE_200
407 , a49 out nocopy JTF_VARCHAR2_TABLE_200
408 , a50 out nocopy JTF_VARCHAR2_TABLE_200
409 , a51 out nocopy JTF_VARCHAR2_TABLE_200
410 , a52 out nocopy JTF_VARCHAR2_TABLE_200
411 , a53 out nocopy JTF_VARCHAR2_TABLE_200
412 , a54 out nocopy JTF_VARCHAR2_TABLE_200
413 , a55 out nocopy JTF_DATE_TABLE
414 , a56 out nocopy JTF_DATE_TABLE
415 , a57 out nocopy JTF_DATE_TABLE
416 , a58 out nocopy JTF_VARCHAR2_TABLE_100
417 , a59 out nocopy JTF_VARCHAR2_TABLE_100
418 , a60 out nocopy JTF_NUMBER_TABLE
419 , a61 out nocopy JTF_NUMBER_TABLE
420 , a62 out nocopy JTF_VARCHAR2_TABLE_100
421 , a63 out nocopy JTF_NUMBER_TABLE
422 , a64 out nocopy JTF_VARCHAR2_TABLE_300
423 , a65 out nocopy JTF_VARCHAR2_TABLE_100
424 , a66 out nocopy JTF_DATE_TABLE
425 , a67 out nocopy JTF_DATE_TABLE
426 , a68 out nocopy JTF_VARCHAR2_TABLE_100
427 , a69 out nocopy JTF_VARCHAR2_TABLE_100
428 , a70 out nocopy JTF_VARCHAR2_TABLE_100
429 , a71 out nocopy JTF_NUMBER_TABLE
430 , a72 out nocopy JTF_VARCHAR2_TABLE_100
431 , a73 out nocopy JTF_NUMBER_TABLE
432 , a74 out nocopy JTF_VARCHAR2_TABLE_100
433 , a75 out nocopy JTF_VARCHAR2_TABLE_100
434 , a76 out nocopy JTF_VARCHAR2_TABLE_100
435 , a77 out nocopy JTF_VARCHAR2_TABLE_100
436 , a78 out nocopy JTF_DATE_TABLE
437 , a79 out nocopy JTF_DATE_TABLE
438 , a80 out nocopy JTF_NUMBER_TABLE
439 , a81 out nocopy JTF_NUMBER_TABLE
440 , a82 out nocopy JTF_NUMBER_TABLE
441 , a83 out nocopy JTF_VARCHAR2_TABLE_100
442 , a84 out nocopy JTF_VARCHAR2_TABLE_100
443 , a85 out nocopy JTF_VARCHAR2_TABLE_100
444 , a86 out nocopy JTF_VARCHAR2_TABLE_100
445 , a87 out nocopy JTF_VARCHAR2_TABLE_100
446 , a88 out nocopy JTF_VARCHAR2_TABLE_100
447 , a89 out nocopy JTF_VARCHAR2_TABLE_100
448 , a90 out nocopy JTF_VARCHAR2_TABLE_100
449 , a91 out nocopy JTF_VARCHAR2_TABLE_100
450 , a92 out nocopy JTF_VARCHAR2_TABLE_100
451 , a93 out nocopy JTF_NUMBER_TABLE
452 , a94 out nocopy JTF_VARCHAR2_TABLE_300
453 ) as
454 ddindx binary_integer; indx binary_integer;
455 begin
456 if t is null or t.count = 0 then
457 a0 := JTF_NUMBER_TABLE();
458 a1 := JTF_NUMBER_TABLE();
459 a2 := JTF_NUMBER_TABLE();
460 a3 := JTF_VARCHAR2_TABLE_100();
461 a4 := JTF_NUMBER_TABLE();
462 a5 := JTF_NUMBER_TABLE();
463 a6 := JTF_VARCHAR2_TABLE_100();
464 a7 := JTF_NUMBER_TABLE();
465 a8 := JTF_NUMBER_TABLE();
466 a9 := JTF_NUMBER_TABLE();
467 a10 := JTF_VARCHAR2_TABLE_100();
468 a11 := JTF_NUMBER_TABLE();
469 a12 := JTF_VARCHAR2_TABLE_100();
470 a13 := JTF_NUMBER_TABLE();
471 a14 := JTF_NUMBER_TABLE();
472 a15 := JTF_VARCHAR2_TABLE_300();
473 a16 := JTF_NUMBER_TABLE();
474 a17 := JTF_VARCHAR2_TABLE_100();
475 a18 := JTF_NUMBER_TABLE();
476 a19 := JTF_NUMBER_TABLE();
477 a20 := JTF_NUMBER_TABLE();
478 a21 := JTF_VARCHAR2_TABLE_100();
479 a22 := JTF_NUMBER_TABLE();
480 a23 := JTF_VARCHAR2_TABLE_100();
481 a24 := JTF_NUMBER_TABLE();
482 a25 := JTF_NUMBER_TABLE();
483 a26 := JTF_NUMBER_TABLE();
484 a27 := JTF_VARCHAR2_TABLE_100();
485 a28 := JTF_VARCHAR2_TABLE_100();
486 a29 := JTF_VARCHAR2_TABLE_100();
487 a30 := JTF_VARCHAR2_TABLE_4000();
488 a31 := JTF_VARCHAR2_TABLE_100();
489 a32 := JTF_VARCHAR2_TABLE_100();
490 a33 := JTF_NUMBER_TABLE();
491 a34 := JTF_DATE_TABLE();
492 a35 := JTF_NUMBER_TABLE();
493 a36 := JTF_DATE_TABLE();
494 a37 := JTF_NUMBER_TABLE();
495 a38 := JTF_NUMBER_TABLE();
496 a39 := JTF_VARCHAR2_TABLE_100();
497 a40 := JTF_VARCHAR2_TABLE_200();
498 a41 := JTF_VARCHAR2_TABLE_200();
499 a42 := JTF_VARCHAR2_TABLE_200();
500 a43 := JTF_VARCHAR2_TABLE_200();
501 a44 := JTF_VARCHAR2_TABLE_200();
502 a45 := JTF_VARCHAR2_TABLE_200();
503 a46 := JTF_VARCHAR2_TABLE_200();
504 a47 := JTF_VARCHAR2_TABLE_200();
505 a48 := JTF_VARCHAR2_TABLE_200();
506 a49 := JTF_VARCHAR2_TABLE_200();
507 a50 := JTF_VARCHAR2_TABLE_200();
508 a51 := JTF_VARCHAR2_TABLE_200();
509 a52 := JTF_VARCHAR2_TABLE_200();
510 a53 := JTF_VARCHAR2_TABLE_200();
511 a54 := JTF_VARCHAR2_TABLE_200();
512 a55 := JTF_DATE_TABLE();
513 a56 := JTF_DATE_TABLE();
514 a57 := JTF_DATE_TABLE();
515 a58 := JTF_VARCHAR2_TABLE_100();
516 a59 := JTF_VARCHAR2_TABLE_100();
517 a60 := JTF_NUMBER_TABLE();
518 a61 := JTF_NUMBER_TABLE();
519 a62 := JTF_VARCHAR2_TABLE_100();
520 a63 := JTF_NUMBER_TABLE();
521 a64 := JTF_VARCHAR2_TABLE_300();
522 a65 := JTF_VARCHAR2_TABLE_100();
523 a66 := JTF_DATE_TABLE();
524 a67 := JTF_DATE_TABLE();
525 a68 := JTF_VARCHAR2_TABLE_100();
526 a69 := JTF_VARCHAR2_TABLE_100();
527 a70 := JTF_VARCHAR2_TABLE_100();
528 a71 := JTF_NUMBER_TABLE();
529 a72 := JTF_VARCHAR2_TABLE_100();
530 a73 := JTF_NUMBER_TABLE();
531 a74 := JTF_VARCHAR2_TABLE_100();
532 a75 := JTF_VARCHAR2_TABLE_100();
533 a76 := JTF_VARCHAR2_TABLE_100();
534 a77 := JTF_VARCHAR2_TABLE_100();
535 a78 := JTF_DATE_TABLE();
536 a79 := JTF_DATE_TABLE();
537 a80 := JTF_NUMBER_TABLE();
538 a81 := JTF_NUMBER_TABLE();
539 a82 := JTF_NUMBER_TABLE();
540 a83 := JTF_VARCHAR2_TABLE_100();
541 a84 := JTF_VARCHAR2_TABLE_100();
542 a85 := JTF_VARCHAR2_TABLE_100();
543 a86 := JTF_VARCHAR2_TABLE_100();
544 a87 := JTF_VARCHAR2_TABLE_100();
545 a88 := JTF_VARCHAR2_TABLE_100();
546 a89 := JTF_VARCHAR2_TABLE_100();
547 a90 := JTF_VARCHAR2_TABLE_100();
548 a91 := JTF_VARCHAR2_TABLE_100();
549 a92 := JTF_VARCHAR2_TABLE_100();
550 a93 := JTF_NUMBER_TABLE();
551 a94 := JTF_VARCHAR2_TABLE_300();
552 else
553 a0 := JTF_NUMBER_TABLE();
554 a1 := JTF_NUMBER_TABLE();
555 a2 := JTF_NUMBER_TABLE();
556 a3 := JTF_VARCHAR2_TABLE_100();
557 a4 := JTF_NUMBER_TABLE();
558 a5 := JTF_NUMBER_TABLE();
559 a6 := JTF_VARCHAR2_TABLE_100();
560 a7 := JTF_NUMBER_TABLE();
561 a8 := JTF_NUMBER_TABLE();
562 a9 := JTF_NUMBER_TABLE();
563 a10 := JTF_VARCHAR2_TABLE_100();
564 a11 := JTF_NUMBER_TABLE();
565 a12 := JTF_VARCHAR2_TABLE_100();
566 a13 := JTF_NUMBER_TABLE();
567 a14 := JTF_NUMBER_TABLE();
568 a15 := JTF_VARCHAR2_TABLE_300();
569 a16 := JTF_NUMBER_TABLE();
570 a17 := JTF_VARCHAR2_TABLE_100();
571 a18 := JTF_NUMBER_TABLE();
572 a19 := JTF_NUMBER_TABLE();
573 a20 := JTF_NUMBER_TABLE();
574 a21 := JTF_VARCHAR2_TABLE_100();
575 a22 := JTF_NUMBER_TABLE();
576 a23 := JTF_VARCHAR2_TABLE_100();
577 a24 := JTF_NUMBER_TABLE();
578 a25 := JTF_NUMBER_TABLE();
579 a26 := JTF_NUMBER_TABLE();
580 a27 := JTF_VARCHAR2_TABLE_100();
581 a28 := JTF_VARCHAR2_TABLE_100();
582 a29 := JTF_VARCHAR2_TABLE_100();
583 a30 := JTF_VARCHAR2_TABLE_4000();
584 a31 := JTF_VARCHAR2_TABLE_100();
585 a32 := JTF_VARCHAR2_TABLE_100();
586 a33 := JTF_NUMBER_TABLE();
587 a34 := JTF_DATE_TABLE();
588 a35 := JTF_NUMBER_TABLE();
589 a36 := JTF_DATE_TABLE();
590 a37 := JTF_NUMBER_TABLE();
591 a38 := JTF_NUMBER_TABLE();
592 a39 := JTF_VARCHAR2_TABLE_100();
593 a40 := JTF_VARCHAR2_TABLE_200();
594 a41 := JTF_VARCHAR2_TABLE_200();
595 a42 := JTF_VARCHAR2_TABLE_200();
596 a43 := JTF_VARCHAR2_TABLE_200();
597 a44 := JTF_VARCHAR2_TABLE_200();
598 a45 := JTF_VARCHAR2_TABLE_200();
599 a46 := JTF_VARCHAR2_TABLE_200();
600 a47 := JTF_VARCHAR2_TABLE_200();
601 a48 := JTF_VARCHAR2_TABLE_200();
602 a49 := JTF_VARCHAR2_TABLE_200();
603 a50 := JTF_VARCHAR2_TABLE_200();
604 a51 := JTF_VARCHAR2_TABLE_200();
605 a52 := JTF_VARCHAR2_TABLE_200();
606 a53 := JTF_VARCHAR2_TABLE_200();
607 a54 := JTF_VARCHAR2_TABLE_200();
608 a55 := JTF_DATE_TABLE();
609 a56 := JTF_DATE_TABLE();
610 a57 := JTF_DATE_TABLE();
611 a58 := JTF_VARCHAR2_TABLE_100();
612 a59 := JTF_VARCHAR2_TABLE_100();
613 a60 := JTF_NUMBER_TABLE();
614 a61 := JTF_NUMBER_TABLE();
615 a62 := JTF_VARCHAR2_TABLE_100();
616 a63 := JTF_NUMBER_TABLE();
617 a64 := JTF_VARCHAR2_TABLE_300();
618 a65 := JTF_VARCHAR2_TABLE_100();
619 a66 := JTF_DATE_TABLE();
620 a67 := JTF_DATE_TABLE();
621 a68 := JTF_VARCHAR2_TABLE_100();
622 a69 := JTF_VARCHAR2_TABLE_100();
623 a70 := JTF_VARCHAR2_TABLE_100();
624 a71 := JTF_NUMBER_TABLE();
625 a72 := JTF_VARCHAR2_TABLE_100();
626 a73 := JTF_NUMBER_TABLE();
627 a74 := JTF_VARCHAR2_TABLE_100();
628 a75 := JTF_VARCHAR2_TABLE_100();
629 a76 := JTF_VARCHAR2_TABLE_100();
630 a77 := JTF_VARCHAR2_TABLE_100();
631 a78 := JTF_DATE_TABLE();
632 a79 := JTF_DATE_TABLE();
633 a80 := JTF_NUMBER_TABLE();
634 a81 := JTF_NUMBER_TABLE();
635 a82 := JTF_NUMBER_TABLE();
636 a83 := JTF_VARCHAR2_TABLE_100();
637 a84 := JTF_VARCHAR2_TABLE_100();
638 a85 := JTF_VARCHAR2_TABLE_100();
639 a86 := JTF_VARCHAR2_TABLE_100();
640 a87 := JTF_VARCHAR2_TABLE_100();
641 a88 := JTF_VARCHAR2_TABLE_100();
642 a89 := JTF_VARCHAR2_TABLE_100();
643 a90 := JTF_VARCHAR2_TABLE_100();
644 a91 := JTF_VARCHAR2_TABLE_100();
645 a92 := JTF_VARCHAR2_TABLE_100();
646 a93 := JTF_NUMBER_TABLE();
647 a94 := JTF_VARCHAR2_TABLE_300();
648 if t.count > 0 then
649 a0.extend(t.count);
650 a1.extend(t.count);
651 a2.extend(t.count);
652 a3.extend(t.count);
653 a4.extend(t.count);
654 a5.extend(t.count);
655 a6.extend(t.count);
656 a7.extend(t.count);
657 a8.extend(t.count);
658 a9.extend(t.count);
659 a10.extend(t.count);
660 a11.extend(t.count);
661 a12.extend(t.count);
662 a13.extend(t.count);
663 a14.extend(t.count);
664 a15.extend(t.count);
665 a16.extend(t.count);
666 a17.extend(t.count);
667 a18.extend(t.count);
668 a19.extend(t.count);
669 a20.extend(t.count);
670 a21.extend(t.count);
671 a22.extend(t.count);
672 a23.extend(t.count);
673 a24.extend(t.count);
674 a25.extend(t.count);
675 a26.extend(t.count);
676 a27.extend(t.count);
677 a28.extend(t.count);
678 a29.extend(t.count);
679 a30.extend(t.count);
680 a31.extend(t.count);
681 a32.extend(t.count);
682 a33.extend(t.count);
683 a34.extend(t.count);
684 a35.extend(t.count);
685 a36.extend(t.count);
686 a37.extend(t.count);
687 a38.extend(t.count);
688 a39.extend(t.count);
689 a40.extend(t.count);
690 a41.extend(t.count);
691 a42.extend(t.count);
692 a43.extend(t.count);
693 a44.extend(t.count);
694 a45.extend(t.count);
695 a46.extend(t.count);
696 a47.extend(t.count);
697 a48.extend(t.count);
698 a49.extend(t.count);
699 a50.extend(t.count);
700 a51.extend(t.count);
701 a52.extend(t.count);
702 a53.extend(t.count);
703 a54.extend(t.count);
704 a55.extend(t.count);
705 a56.extend(t.count);
706 a57.extend(t.count);
707 a58.extend(t.count);
708 a59.extend(t.count);
709 a60.extend(t.count);
710 a61.extend(t.count);
711 a62.extend(t.count);
712 a63.extend(t.count);
713 a64.extend(t.count);
714 a65.extend(t.count);
715 a66.extend(t.count);
716 a67.extend(t.count);
717 a68.extend(t.count);
718 a69.extend(t.count);
719 a70.extend(t.count);
720 a71.extend(t.count);
721 a72.extend(t.count);
722 a73.extend(t.count);
723 a74.extend(t.count);
724 a75.extend(t.count);
725 a76.extend(t.count);
726 a77.extend(t.count);
727 a78.extend(t.count);
728 a79.extend(t.count);
729 a80.extend(t.count);
730 a81.extend(t.count);
731 a82.extend(t.count);
732 a83.extend(t.count);
733 a84.extend(t.count);
734 a85.extend(t.count);
735 a86.extend(t.count);
736 a87.extend(t.count);
737 a88.extend(t.count);
738 a89.extend(t.count);
739 a90.extend(t.count);
740 a91.extend(t.count);
741 a92.extend(t.count);
742 a93.extend(t.count);
743 a94.extend(t.count);
744 ddindx := t.first;
745 indx := 1;
746 while true loop
747 a0(indx) := t(ddindx).visit_task_id;
748 a1(indx) := t(ddindx).visit_task_number;
749 a2(indx) := t(ddindx).visit_id;
750 a3(indx) := t(ddindx).template_flag;
751 a4(indx) := t(ddindx).inventory_item_id;
752 a5(indx) := t(ddindx).item_organization_id;
753 a6(indx) := t(ddindx).item_name;
754 a7(indx) := t(ddindx).cost_parent_id;
755 a8(indx) := t(ddindx).cost_parent_number;
756 a9(indx) := t(ddindx).mr_route_id;
757 a10(indx) := t(ddindx).route_number;
758 a11(indx) := t(ddindx).mr_id;
759 a12(indx) := t(ddindx).mr_title;
760 a13(indx) := t(ddindx).unit_effectivity_id;
761 a14(indx) := t(ddindx).department_id;
762 a15(indx) := t(ddindx).dept_name;
763 a16(indx) := t(ddindx).service_request_id;
764 a17(indx) := t(ddindx).service_request_number;
765 a18(indx) := t(ddindx).originating_task_id;
766 a19(indx) := t(ddindx).orginating_task_number;
767 a20(indx) := t(ddindx).instance_id;
768 a21(indx) := t(ddindx).serial_number;
769 a22(indx) := t(ddindx).project_task_id;
770 a23(indx) := t(ddindx).project_task_number;
771 a24(indx) := t(ddindx).primary_visit_task_id;
772 a25(indx) := t(ddindx).start_from_hour;
773 a26(indx) := t(ddindx).duration;
774 a27(indx) := t(ddindx).task_type_code;
775 a28(indx) := t(ddindx).task_type_value;
776 a29(indx) := t(ddindx).visit_task_name;
777 a30(indx) := t(ddindx).description;
778 a31(indx) := t(ddindx).task_status_code;
779 a32(indx) := t(ddindx).task_status_value;
780 a33(indx) := t(ddindx).object_version_number;
781 a34(indx) := t(ddindx).last_update_date;
782 a35(indx) := t(ddindx).last_updated_by;
783 a36(indx) := t(ddindx).creation_date;
784 a37(indx) := t(ddindx).created_by;
785 a38(indx) := t(ddindx).last_update_login;
786 a39(indx) := t(ddindx).attribute_category;
787 a40(indx) := t(ddindx).attribute1;
788 a41(indx) := t(ddindx).attribute2;
789 a42(indx) := t(ddindx).attribute3;
790 a43(indx) := t(ddindx).attribute4;
791 a44(indx) := t(ddindx).attribute5;
792 a45(indx) := t(ddindx).attribute6;
793 a46(indx) := t(ddindx).attribute7;
794 a47(indx) := t(ddindx).attribute8;
795 a48(indx) := t(ddindx).attribute9;
796 a49(indx) := t(ddindx).attribute10;
797 a50(indx) := t(ddindx).attribute11;
798 a51(indx) := t(ddindx).attribute12;
799 a52(indx) := t(ddindx).attribute13;
800 a53(indx) := t(ddindx).attribute14;
801 a54(indx) := t(ddindx).attribute15;
802 a55(indx) := t(ddindx).task_start_date;
803 a56(indx) := t(ddindx).task_end_date;
804 a57(indx) := t(ddindx).due_by_date;
805 a58(indx) := t(ddindx).zone_name;
806 a59(indx) := t(ddindx).sub_zone_name;
807 a60(indx) := t(ddindx).tolerance_after;
808 a61(indx) := t(ddindx).tolerance_before;
809 a62(indx) := t(ddindx).tolerance_uom;
810 a63(indx) := t(ddindx).workorder_id;
811 a64(indx) := t(ddindx).wo_name;
812 a65(indx) := t(ddindx).wo_status;
813 a66(indx) := t(ddindx).wo_start_date;
814 a67(indx) := t(ddindx).wo_end_date;
815 a68(indx) := t(ddindx).operation_flag;
816 a69(indx) := t(ddindx).is_production_flag;
817 a70(indx) := t(ddindx).create_job_flag;
818 a71(indx) := t(ddindx).stage_id;
819 a72(indx) := t(ddindx).stage_name;
820 a73(indx) := t(ddindx).quantity;
821 a74(indx) := t(ddindx).uom;
822 a75(indx) := t(ddindx).instance_number;
823 a76(indx) := t(ddindx).service_type_code;
824 a77(indx) := t(ddindx).service_type;
825 a78(indx) := t(ddindx).past_task_start_date;
826 a79(indx) := t(ddindx).past_task_end_date;
827 a80(indx) := t(ddindx).route_id;
828 a81(indx) := t(ddindx).warranty_entitlement_id;
829 a82(indx) := t(ddindx).contract_number;
830 a83(indx) := t(ddindx).entitlement_status;
831 a84(indx) := t(ddindx).entitlement_status_code;
832 a85(indx) := t(ddindx).claim_name;
833 a86(indx) := t(ddindx).claim_status;
834 a87(indx) := t(ddindx).claim_status_code;
835 a88(indx) := t(ddindx).task_warranty;
836 a89(indx) := t(ddindx).instance_warranty;
837 a90(indx) := t(ddindx).warranty_not_appl_flag;
838 a91(indx) := t(ddindx).stage_type_code;
839 a92(indx) := t(ddindx).return_to_supply_flag;
840 a93(indx) := t(ddindx).target_qty;
841 a94(indx) := t(ddindx).repair_batch_name;
842 indx := indx+1;
843 if t.last =ddindx
844 then exit;
845 end if;
846 ddindx := t.next(ddindx);
847 end loop;
848 end if;
849 end if;
850 end rosetta_table_copy_out_p5;
851
852 procedure insert_tasks(p_visit_id NUMBER
853 , p_unit_id NUMBER
854 , p_serial_id NUMBER
855 , p_service_id NUMBER
856 , p_dept_id NUMBER
857 , p_item_id NUMBER
858 , p_item_org_id NUMBER
859 , p_mr_id NUMBER
860 , p_mr_route_id NUMBER
861 , p_parent_id NUMBER
862 , p_flag VARCHAR2
863 , p_stage_id NUMBER
864 , p_past_task_start_date date
865 , p_past_task_end_date date
866 , p_quantity NUMBER
867 , p_task_start_date date
868 , p_service_type_code VARCHAR2
869 , x_task_id out nocopy NUMBER
870 , x_return_status out nocopy VARCHAR2
871 , x_msg_count out nocopy NUMBER
872 , x_msg_data out nocopy VARCHAR2
873 )
874
875 as
876 ddp_past_task_start_date date;
877 ddp_past_task_end_date date;
878 ddp_task_start_date date;
879 ddindx binary_integer; indx binary_integer;
880 begin
881
882 -- copy data to the local IN or IN-OUT args, if any
883
884
885
886
887
888
889
890
891
892
893
894
895 ddp_past_task_start_date := rosetta_g_miss_date_in_map(p_past_task_start_date);
896
897 ddp_past_task_end_date := rosetta_g_miss_date_in_map(p_past_task_end_date);
898
899
900 ddp_task_start_date := rosetta_g_miss_date_in_map(p_task_start_date);
901
902
903
904
905
906
907 -- here's the delegated call to the old PL/SQL routine
908 ahl_vwp_rules_pvt.insert_tasks(p_visit_id,
909 p_unit_id,
910 p_serial_id,
911 p_service_id,
912 p_dept_id,
913 p_item_id,
914 p_item_org_id,
915 p_mr_id,
916 p_mr_route_id,
917 p_parent_id,
918 p_flag,
919 p_stage_id,
920 ddp_past_task_start_date,
921 ddp_past_task_end_date,
922 p_quantity,
923 ddp_task_start_date,
924 p_service_type_code,
925 x_task_id,
926 x_return_status,
927 x_msg_count,
928 x_msg_data);
929
930 -- copy data back from the local variables to OUT or IN-OUT args, if any
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951 end;
952
953 procedure tech_dependency(p_visit_id NUMBER
954 , p_task_type VARCHAR2
955 , p2_a0 JTF_NUMBER_TABLE
956 , p2_a1 JTF_NUMBER_TABLE
957 , p2_a2 JTF_NUMBER_TABLE
958 , x_return_status out nocopy VARCHAR2
959 )
960
961 as
962 ddp_mr_serial_tbl ahl_vwp_rules_pvt.mr_serial_tbl_type;
963 ddindx binary_integer; indx binary_integer;
964 begin
965
966 -- copy data to the local IN or IN-OUT args, if any
967
968
969 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p3(ddp_mr_serial_tbl, p2_a0
970 , p2_a1
971 , p2_a2
972 );
973
974
975 -- here's the delegated call to the old PL/SQL routine
976 ahl_vwp_rules_pvt.tech_dependency(p_visit_id,
977 p_task_type,
978 ddp_mr_serial_tbl,
979 x_return_status);
980
981 -- copy data back from the local variables to OUT or IN-OUT args, if any
982
983
984
985 end;
986
987 procedure create_tasks_for_mr(p_visit_id NUMBER
988 , p_unit_id NUMBER
989 , p_item_id NUMBER
990 , p_org_id NUMBER
991 , p_serial_id NUMBER
992 , p_mr_id NUMBER
993 , p_department_id NUMBER
994 , p_service_req_id NUMBER
995 , p_past_task_start_date date
996 , p_past_task_end_date date
997 , p_quantity NUMBER
998 , p_task_start_date date
999 , p_service_type_code VARCHAR2
1000 , p_x_parent_mr_id in out nocopy NUMBER
1001 , x_return_status out nocopy VARCHAR2
1002 )
1003
1004 as
1005 ddp_past_task_start_date date;
1006 ddp_past_task_end_date date;
1007 ddp_task_start_date date;
1008 ddindx binary_integer; indx binary_integer;
1009 begin
1010
1011 -- copy data to the local IN or IN-OUT args, if any
1012
1013
1014
1015
1016
1017
1018
1019
1020 ddp_past_task_start_date := rosetta_g_miss_date_in_map(p_past_task_start_date);
1021
1022 ddp_past_task_end_date := rosetta_g_miss_date_in_map(p_past_task_end_date);
1023
1024
1025 ddp_task_start_date := rosetta_g_miss_date_in_map(p_task_start_date);
1026
1027
1028
1029
1030 -- here's the delegated call to the old PL/SQL routine
1031 ahl_vwp_rules_pvt.create_tasks_for_mr(p_visit_id,
1032 p_unit_id,
1033 p_item_id,
1034 p_org_id,
1035 p_serial_id,
1036 p_mr_id,
1037 p_department_id,
1038 p_service_req_id,
1039 ddp_past_task_start_date,
1040 ddp_past_task_end_date,
1041 p_quantity,
1042 ddp_task_start_date,
1043 p_service_type_code,
1044 p_x_parent_mr_id,
1045 x_return_status);
1046
1047 -- copy data back from the local variables to OUT or IN-OUT args, if any
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062 end;
1063
1064 procedure merge_for_unique_items(p0_a0 JTF_NUMBER_TABLE
1065 , p0_a1 JTF_NUMBER_TABLE
1066 , p0_a2 JTF_NUMBER_TABLE
1067 , p0_a3 JTF_NUMBER_TABLE
1068 , p0_a4 JTF_DATE_TABLE
1069 , p0_a5 JTF_VARCHAR2_TABLE_100
1070 , p1_a0 JTF_NUMBER_TABLE
1071 , p1_a1 JTF_NUMBER_TABLE
1072 , p1_a2 JTF_NUMBER_TABLE
1073 , p1_a3 JTF_NUMBER_TABLE
1074 , p1_a4 JTF_DATE_TABLE
1075 , p1_a5 JTF_VARCHAR2_TABLE_100
1076 , p2_a0 out nocopy JTF_NUMBER_TABLE
1077 , p2_a1 out nocopy JTF_NUMBER_TABLE
1078 , p2_a2 out nocopy JTF_NUMBER_TABLE
1079 , p2_a3 out nocopy JTF_NUMBER_TABLE
1080 , p2_a4 out nocopy JTF_DATE_TABLE
1081 , p2_a5 out nocopy JTF_VARCHAR2_TABLE_100
1082 )
1083
1084 as
1085 ddp_item_tbl1 ahl_vwp_rules_pvt.item_tbl_type;
1086 ddp_item_tbl2 ahl_vwp_rules_pvt.item_tbl_type;
1087 ddx_item_tbl ahl_vwp_rules_pvt.item_tbl_type;
1088 ddindx binary_integer; indx binary_integer;
1089 begin
1090
1091 -- copy data to the local IN or IN-OUT args, if any
1092 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p4(ddp_item_tbl1, p0_a0
1093 , p0_a1
1094 , p0_a2
1095 , p0_a3
1096 , p0_a4
1097 , p0_a5
1098 );
1099
1100 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p4(ddp_item_tbl2, p1_a0
1101 , p1_a1
1102 , p1_a2
1103 , p1_a3
1104 , p1_a4
1105 , p1_a5
1106 );
1107
1108
1109 -- here's the delegated call to the old PL/SQL routine
1110 ahl_vwp_rules_pvt.merge_for_unique_items(ddp_item_tbl1,
1111 ddp_item_tbl2,
1112 ddx_item_tbl);
1113
1114 -- copy data back from the local variables to OUT or IN-OUT args, if any
1115
1116
1117 ahl_vwp_rules_pvt_w.rosetta_table_copy_out_p4(ddx_item_tbl, p2_a0
1118 , p2_a1
1119 , p2_a2
1120 , p2_a3
1121 , p2_a4
1122 , p2_a5
1123 );
1124 end;
1125
1126 procedure validate_past_task_dates(p0_a0 in out nocopy NUMBER
1127 , p0_a1 in out nocopy NUMBER
1128 , p0_a2 in out nocopy NUMBER
1129 , p0_a3 in out nocopy VARCHAR2
1130 , p0_a4 in out nocopy NUMBER
1131 , p0_a5 in out nocopy NUMBER
1132 , p0_a6 in out nocopy VARCHAR2
1133 , p0_a7 in out nocopy NUMBER
1134 , p0_a8 in out nocopy NUMBER
1135 , p0_a9 in out nocopy NUMBER
1136 , p0_a10 in out nocopy VARCHAR2
1137 , p0_a11 in out nocopy NUMBER
1138 , p0_a12 in out nocopy VARCHAR2
1139 , p0_a13 in out nocopy NUMBER
1140 , p0_a14 in out nocopy NUMBER
1141 , p0_a15 in out nocopy VARCHAR2
1142 , p0_a16 in out nocopy NUMBER
1143 , p0_a17 in out nocopy VARCHAR2
1144 , p0_a18 in out nocopy NUMBER
1145 , p0_a19 in out nocopy NUMBER
1146 , p0_a20 in out nocopy NUMBER
1147 , p0_a21 in out nocopy VARCHAR2
1148 , p0_a22 in out nocopy NUMBER
1149 , p0_a23 in out nocopy VARCHAR2
1150 , p0_a24 in out nocopy NUMBER
1151 , p0_a25 in out nocopy NUMBER
1152 , p0_a26 in out nocopy NUMBER
1153 , p0_a27 in out nocopy VARCHAR2
1154 , p0_a28 in out nocopy VARCHAR2
1155 , p0_a29 in out nocopy VARCHAR2
1156 , p0_a30 in out nocopy VARCHAR2
1157 , p0_a31 in out nocopy VARCHAR2
1158 , p0_a32 in out nocopy VARCHAR2
1159 , p0_a33 in out nocopy NUMBER
1160 , p0_a34 in out nocopy DATE
1161 , p0_a35 in out nocopy NUMBER
1162 , p0_a36 in out nocopy DATE
1163 , p0_a37 in out nocopy NUMBER
1164 , p0_a38 in out nocopy NUMBER
1165 , p0_a39 in out nocopy VARCHAR2
1166 , p0_a40 in out nocopy VARCHAR2
1167 , p0_a41 in out nocopy VARCHAR2
1168 , p0_a42 in out nocopy VARCHAR2
1169 , p0_a43 in out nocopy VARCHAR2
1170 , p0_a44 in out nocopy VARCHAR2
1171 , p0_a45 in out nocopy VARCHAR2
1172 , p0_a46 in out nocopy VARCHAR2
1173 , p0_a47 in out nocopy VARCHAR2
1174 , p0_a48 in out nocopy VARCHAR2
1175 , p0_a49 in out nocopy VARCHAR2
1176 , p0_a50 in out nocopy VARCHAR2
1177 , p0_a51 in out nocopy VARCHAR2
1178 , p0_a52 in out nocopy VARCHAR2
1179 , p0_a53 in out nocopy VARCHAR2
1180 , p0_a54 in out nocopy VARCHAR2
1181 , p0_a55 in out nocopy DATE
1182 , p0_a56 in out nocopy DATE
1183 , p0_a57 in out nocopy DATE
1184 , p0_a58 in out nocopy VARCHAR2
1185 , p0_a59 in out nocopy VARCHAR2
1186 , p0_a60 in out nocopy NUMBER
1187 , p0_a61 in out nocopy NUMBER
1188 , p0_a62 in out nocopy VARCHAR2
1189 , p0_a63 in out nocopy NUMBER
1190 , p0_a64 in out nocopy VARCHAR2
1191 , p0_a65 in out nocopy VARCHAR2
1192 , p0_a66 in out nocopy DATE
1193 , p0_a67 in out nocopy DATE
1194 , p0_a68 in out nocopy VARCHAR2
1195 , p0_a69 in out nocopy VARCHAR2
1196 , p0_a70 in out nocopy VARCHAR2
1197 , p0_a71 in out nocopy NUMBER
1198 , p0_a72 in out nocopy VARCHAR2
1199 , p0_a73 in out nocopy NUMBER
1200 , p0_a74 in out nocopy VARCHAR2
1201 , p0_a75 in out nocopy VARCHAR2
1202 , p0_a76 in out nocopy VARCHAR2
1203 , p0_a77 in out nocopy VARCHAR2
1204 , p0_a78 in out nocopy DATE
1205 , p0_a79 in out nocopy DATE
1206 , p0_a80 in out nocopy NUMBER
1207 , p0_a81 in out nocopy NUMBER
1208 , p0_a82 in out nocopy NUMBER
1209 , p0_a83 in out nocopy VARCHAR2
1210 , p0_a84 in out nocopy VARCHAR2
1211 , p0_a85 in out nocopy VARCHAR2
1212 , p0_a86 in out nocopy VARCHAR2
1213 , p0_a87 in out nocopy VARCHAR2
1214 , p0_a88 in out nocopy VARCHAR2
1215 , p0_a89 in out nocopy VARCHAR2
1216 , p0_a90 in out nocopy VARCHAR2
1217 , p0_a91 in out nocopy VARCHAR2
1218 , p0_a92 in out nocopy VARCHAR2
1219 , p0_a93 in out nocopy NUMBER
1220 , p0_a94 in out nocopy VARCHAR2
1221 , x_return_status out nocopy VARCHAR2
1222 )
1223
1224 as
1225 ddp_task_rec ahl_vwp_rules_pvt.task_rec_type;
1226 ddindx binary_integer; indx binary_integer;
1227 begin
1228
1229 -- copy data to the local IN or IN-OUT args, if any
1230 ddp_task_rec.visit_task_id := p0_a0;
1231 ddp_task_rec.visit_task_number := p0_a1;
1232 ddp_task_rec.visit_id := p0_a2;
1233 ddp_task_rec.template_flag := p0_a3;
1234 ddp_task_rec.inventory_item_id := p0_a4;
1235 ddp_task_rec.item_organization_id := p0_a5;
1236 ddp_task_rec.item_name := p0_a6;
1237 ddp_task_rec.cost_parent_id := p0_a7;
1238 ddp_task_rec.cost_parent_number := p0_a8;
1239 ddp_task_rec.mr_route_id := p0_a9;
1240 ddp_task_rec.route_number := p0_a10;
1241 ddp_task_rec.mr_id := p0_a11;
1242 ddp_task_rec.mr_title := p0_a12;
1243 ddp_task_rec.unit_effectivity_id := p0_a13;
1244 ddp_task_rec.department_id := p0_a14;
1245 ddp_task_rec.dept_name := p0_a15;
1246 ddp_task_rec.service_request_id := p0_a16;
1247 ddp_task_rec.service_request_number := p0_a17;
1248 ddp_task_rec.originating_task_id := p0_a18;
1249 ddp_task_rec.orginating_task_number := p0_a19;
1250 ddp_task_rec.instance_id := p0_a20;
1251 ddp_task_rec.serial_number := p0_a21;
1252 ddp_task_rec.project_task_id := p0_a22;
1253 ddp_task_rec.project_task_number := p0_a23;
1254 ddp_task_rec.primary_visit_task_id := p0_a24;
1255 ddp_task_rec.start_from_hour := p0_a25;
1256 ddp_task_rec.duration := p0_a26;
1257 ddp_task_rec.task_type_code := p0_a27;
1258 ddp_task_rec.task_type_value := p0_a28;
1259 ddp_task_rec.visit_task_name := p0_a29;
1260 ddp_task_rec.description := p0_a30;
1261 ddp_task_rec.task_status_code := p0_a31;
1262 ddp_task_rec.task_status_value := p0_a32;
1263 ddp_task_rec.object_version_number := p0_a33;
1264 ddp_task_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a34);
1265 ddp_task_rec.last_updated_by := p0_a35;
1266 ddp_task_rec.creation_date := rosetta_g_miss_date_in_map(p0_a36);
1267 ddp_task_rec.created_by := p0_a37;
1268 ddp_task_rec.last_update_login := p0_a38;
1269 ddp_task_rec.attribute_category := p0_a39;
1270 ddp_task_rec.attribute1 := p0_a40;
1271 ddp_task_rec.attribute2 := p0_a41;
1272 ddp_task_rec.attribute3 := p0_a42;
1273 ddp_task_rec.attribute4 := p0_a43;
1274 ddp_task_rec.attribute5 := p0_a44;
1275 ddp_task_rec.attribute6 := p0_a45;
1276 ddp_task_rec.attribute7 := p0_a46;
1277 ddp_task_rec.attribute8 := p0_a47;
1278 ddp_task_rec.attribute9 := p0_a48;
1279 ddp_task_rec.attribute10 := p0_a49;
1280 ddp_task_rec.attribute11 := p0_a50;
1281 ddp_task_rec.attribute12 := p0_a51;
1282 ddp_task_rec.attribute13 := p0_a52;
1283 ddp_task_rec.attribute14 := p0_a53;
1284 ddp_task_rec.attribute15 := p0_a54;
1285 ddp_task_rec.task_start_date := rosetta_g_miss_date_in_map(p0_a55);
1286 ddp_task_rec.task_end_date := rosetta_g_miss_date_in_map(p0_a56);
1287 ddp_task_rec.due_by_date := rosetta_g_miss_date_in_map(p0_a57);
1288 ddp_task_rec.zone_name := p0_a58;
1289 ddp_task_rec.sub_zone_name := p0_a59;
1290 ddp_task_rec.tolerance_after := p0_a60;
1291 ddp_task_rec.tolerance_before := p0_a61;
1292 ddp_task_rec.tolerance_uom := p0_a62;
1293 ddp_task_rec.workorder_id := p0_a63;
1294 ddp_task_rec.wo_name := p0_a64;
1295 ddp_task_rec.wo_status := p0_a65;
1296 ddp_task_rec.wo_start_date := rosetta_g_miss_date_in_map(p0_a66);
1297 ddp_task_rec.wo_end_date := rosetta_g_miss_date_in_map(p0_a67);
1298 ddp_task_rec.operation_flag := p0_a68;
1299 ddp_task_rec.is_production_flag := p0_a69;
1300 ddp_task_rec.create_job_flag := p0_a70;
1301 ddp_task_rec.stage_id := p0_a71;
1302 ddp_task_rec.stage_name := p0_a72;
1303 ddp_task_rec.quantity := p0_a73;
1304 ddp_task_rec.uom := p0_a74;
1305 ddp_task_rec.instance_number := p0_a75;
1306 ddp_task_rec.service_type_code := p0_a76;
1307 ddp_task_rec.service_type := p0_a77;
1308 ddp_task_rec.past_task_start_date := rosetta_g_miss_date_in_map(p0_a78);
1309 ddp_task_rec.past_task_end_date := rosetta_g_miss_date_in_map(p0_a79);
1310 ddp_task_rec.route_id := p0_a80;
1311 ddp_task_rec.warranty_entitlement_id := p0_a81;
1312 ddp_task_rec.contract_number := p0_a82;
1313 ddp_task_rec.entitlement_status := p0_a83;
1314 ddp_task_rec.entitlement_status_code := p0_a84;
1315 ddp_task_rec.claim_name := p0_a85;
1316 ddp_task_rec.claim_status := p0_a86;
1317 ddp_task_rec.claim_status_code := p0_a87;
1318 ddp_task_rec.task_warranty := p0_a88;
1319 ddp_task_rec.instance_warranty := p0_a89;
1320 ddp_task_rec.warranty_not_appl_flag := p0_a90;
1321 ddp_task_rec.stage_type_code := p0_a91;
1322 ddp_task_rec.return_to_supply_flag := p0_a92;
1323 ddp_task_rec.target_qty := p0_a93;
1324 ddp_task_rec.repair_batch_name := p0_a94;
1325
1326
1327 -- here's the delegated call to the old PL/SQL routine
1328 ahl_vwp_rules_pvt.validate_past_task_dates(ddp_task_rec,
1329 x_return_status);
1330
1331 -- copy data back from the local variables to OUT or IN-OUT args, if any
1332 p0_a0 := ddp_task_rec.visit_task_id;
1333 p0_a1 := ddp_task_rec.visit_task_number;
1334 p0_a2 := ddp_task_rec.visit_id;
1335 p0_a3 := ddp_task_rec.template_flag;
1336 p0_a4 := ddp_task_rec.inventory_item_id;
1337 p0_a5 := ddp_task_rec.item_organization_id;
1338 p0_a6 := ddp_task_rec.item_name;
1339 p0_a7 := ddp_task_rec.cost_parent_id;
1340 p0_a8 := ddp_task_rec.cost_parent_number;
1341 p0_a9 := ddp_task_rec.mr_route_id;
1342 p0_a10 := ddp_task_rec.route_number;
1343 p0_a11 := ddp_task_rec.mr_id;
1344 p0_a12 := ddp_task_rec.mr_title;
1345 p0_a13 := ddp_task_rec.unit_effectivity_id;
1346 p0_a14 := ddp_task_rec.department_id;
1347 p0_a15 := ddp_task_rec.dept_name;
1348 p0_a16 := ddp_task_rec.service_request_id;
1349 p0_a17 := ddp_task_rec.service_request_number;
1350 p0_a18 := ddp_task_rec.originating_task_id;
1351 p0_a19 := ddp_task_rec.orginating_task_number;
1352 p0_a20 := ddp_task_rec.instance_id;
1353 p0_a21 := ddp_task_rec.serial_number;
1354 p0_a22 := ddp_task_rec.project_task_id;
1355 p0_a23 := ddp_task_rec.project_task_number;
1356 p0_a24 := ddp_task_rec.primary_visit_task_id;
1357 p0_a25 := ddp_task_rec.start_from_hour;
1358 p0_a26 := ddp_task_rec.duration;
1359 p0_a27 := ddp_task_rec.task_type_code;
1360 p0_a28 := ddp_task_rec.task_type_value;
1361 p0_a29 := ddp_task_rec.visit_task_name;
1362 p0_a30 := ddp_task_rec.description;
1363 p0_a31 := ddp_task_rec.task_status_code;
1364 p0_a32 := ddp_task_rec.task_status_value;
1365 p0_a33 := ddp_task_rec.object_version_number;
1366 p0_a34 := ddp_task_rec.last_update_date;
1367 p0_a35 := ddp_task_rec.last_updated_by;
1368 p0_a36 := ddp_task_rec.creation_date;
1369 p0_a37 := ddp_task_rec.created_by;
1370 p0_a38 := ddp_task_rec.last_update_login;
1371 p0_a39 := ddp_task_rec.attribute_category;
1372 p0_a40 := ddp_task_rec.attribute1;
1373 p0_a41 := ddp_task_rec.attribute2;
1374 p0_a42 := ddp_task_rec.attribute3;
1375 p0_a43 := ddp_task_rec.attribute4;
1376 p0_a44 := ddp_task_rec.attribute5;
1377 p0_a45 := ddp_task_rec.attribute6;
1378 p0_a46 := ddp_task_rec.attribute7;
1379 p0_a47 := ddp_task_rec.attribute8;
1380 p0_a48 := ddp_task_rec.attribute9;
1381 p0_a49 := ddp_task_rec.attribute10;
1382 p0_a50 := ddp_task_rec.attribute11;
1383 p0_a51 := ddp_task_rec.attribute12;
1384 p0_a52 := ddp_task_rec.attribute13;
1385 p0_a53 := ddp_task_rec.attribute14;
1386 p0_a54 := ddp_task_rec.attribute15;
1387 p0_a55 := ddp_task_rec.task_start_date;
1388 p0_a56 := ddp_task_rec.task_end_date;
1389 p0_a57 := ddp_task_rec.due_by_date;
1390 p0_a58 := ddp_task_rec.zone_name;
1391 p0_a59 := ddp_task_rec.sub_zone_name;
1392 p0_a60 := ddp_task_rec.tolerance_after;
1393 p0_a61 := ddp_task_rec.tolerance_before;
1394 p0_a62 := ddp_task_rec.tolerance_uom;
1395 p0_a63 := ddp_task_rec.workorder_id;
1396 p0_a64 := ddp_task_rec.wo_name;
1397 p0_a65 := ddp_task_rec.wo_status;
1398 p0_a66 := ddp_task_rec.wo_start_date;
1399 p0_a67 := ddp_task_rec.wo_end_date;
1400 p0_a68 := ddp_task_rec.operation_flag;
1401 p0_a69 := ddp_task_rec.is_production_flag;
1402 p0_a70 := ddp_task_rec.create_job_flag;
1403 p0_a71 := ddp_task_rec.stage_id;
1404 p0_a72 := ddp_task_rec.stage_name;
1405 p0_a73 := ddp_task_rec.quantity;
1406 p0_a74 := ddp_task_rec.uom;
1407 p0_a75 := ddp_task_rec.instance_number;
1408 p0_a76 := ddp_task_rec.service_type_code;
1409 p0_a77 := ddp_task_rec.service_type;
1410 p0_a78 := ddp_task_rec.past_task_start_date;
1411 p0_a79 := ddp_task_rec.past_task_end_date;
1412 p0_a80 := ddp_task_rec.route_id;
1413 p0_a81 := ddp_task_rec.warranty_entitlement_id;
1414 p0_a82 := ddp_task_rec.contract_number;
1415 p0_a83 := ddp_task_rec.entitlement_status;
1416 p0_a84 := ddp_task_rec.entitlement_status_code;
1417 p0_a85 := ddp_task_rec.claim_name;
1418 p0_a86 := ddp_task_rec.claim_status;
1419 p0_a87 := ddp_task_rec.claim_status_code;
1420 p0_a88 := ddp_task_rec.task_warranty;
1421 p0_a89 := ddp_task_rec.instance_warranty;
1422 p0_a90 := ddp_task_rec.warranty_not_appl_flag;
1423 p0_a91 := ddp_task_rec.stage_type_code;
1424 p0_a92 := ddp_task_rec.return_to_supply_flag;
1425 p0_a93 := ddp_task_rec.target_qty;
1426 p0_a94 := ddp_task_rec.repair_batch_name;
1427
1428 end;
1429
1430 procedure get_warranty_rec_for_create(p_task_id NUMBER
1431 , p_instance_id NUMBER
1432 , p_service_req_id NUMBER
1433 , p3_a0 out nocopy JTF_NUMBER_TABLE
1434 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
1435 , p3_a2 out nocopy JTF_NUMBER_TABLE
1436 , p3_a3 out nocopy JTF_DATE_TABLE
1437 , p3_a4 out nocopy JTF_NUMBER_TABLE
1438 , p3_a5 out nocopy JTF_DATE_TABLE
1439 , p3_a6 out nocopy JTF_NUMBER_TABLE
1440 , p3_a7 out nocopy JTF_NUMBER_TABLE
1441 , p3_a8 out nocopy JTF_NUMBER_TABLE
1442 , p3_a9 out nocopy JTF_NUMBER_TABLE
1443 , p3_a10 out nocopy JTF_VARCHAR2_TABLE_100
1444 , p3_a11 out nocopy JTF_NUMBER_TABLE
1445 , p3_a12 out nocopy JTF_NUMBER_TABLE
1446 , p3_a13 out nocopy JTF_NUMBER_TABLE
1447 , p3_a14 out nocopy JTF_NUMBER_TABLE
1448 , p3_a15 out nocopy JTF_NUMBER_TABLE
1449 , p3_a16 out nocopy JTF_NUMBER_TABLE
1450 , p3_a17 out nocopy JTF_VARCHAR2_TABLE_100
1451 , p3_a18 out nocopy JTF_VARCHAR2_TABLE_100
1452 , p3_a19 out nocopy JTF_NUMBER_TABLE
1453 , p3_a20 out nocopy JTF_VARCHAR2_TABLE_100
1454 , p3_a21 out nocopy JTF_VARCHAR2_TABLE_200
1455 , p3_a22 out nocopy JTF_VARCHAR2_TABLE_200
1456 , p3_a23 out nocopy JTF_VARCHAR2_TABLE_200
1457 , p3_a24 out nocopy JTF_VARCHAR2_TABLE_200
1458 , p3_a25 out nocopy JTF_VARCHAR2_TABLE_200
1459 , p3_a26 out nocopy JTF_VARCHAR2_TABLE_200
1460 , p3_a27 out nocopy JTF_VARCHAR2_TABLE_200
1461 , p3_a28 out nocopy JTF_VARCHAR2_TABLE_200
1462 , p3_a29 out nocopy JTF_VARCHAR2_TABLE_200
1463 , p3_a30 out nocopy JTF_VARCHAR2_TABLE_200
1464 , p3_a31 out nocopy JTF_VARCHAR2_TABLE_200
1465 , p3_a32 out nocopy JTF_VARCHAR2_TABLE_200
1466 , p3_a33 out nocopy JTF_VARCHAR2_TABLE_200
1467 , p3_a34 out nocopy JTF_VARCHAR2_TABLE_200
1468 , p3_a35 out nocopy JTF_VARCHAR2_TABLE_200
1469 )
1470
1471 as
1472 ddx_warranty_entl_tbl ahl_warranty_entl_pvt.warranty_entl_tbl_type;
1473 ddindx binary_integer; indx binary_integer;
1474 begin
1475
1476 -- copy data to the local IN or IN-OUT args, if any
1477
1478
1479
1480
1481 -- here's the delegated call to the old PL/SQL routine
1482 ahl_vwp_rules_pvt.get_warranty_rec_for_create(p_task_id,
1483 p_instance_id,
1484 p_service_req_id,
1485 ddx_warranty_entl_tbl);
1486
1487 -- copy data back from the local variables to OUT or IN-OUT args, if any
1488
1489
1490
1491 ahl_warranty_entl_pvt_w.rosetta_table_copy_out_p19(ddx_warranty_entl_tbl, p3_a0
1492 , p3_a1
1493 , p3_a2
1494 , p3_a3
1495 , p3_a4
1496 , p3_a5
1497 , p3_a6
1498 , p3_a7
1499 , p3_a8
1500 , p3_a9
1501 , p3_a10
1502 , p3_a11
1503 , p3_a12
1504 , p3_a13
1505 , p3_a14
1506 , p3_a15
1507 , p3_a16
1508 , p3_a17
1509 , p3_a18
1510 , p3_a19
1511 , p3_a20
1512 , p3_a21
1513 , p3_a22
1514 , p3_a23
1515 , p3_a24
1516 , p3_a25
1517 , p3_a26
1518 , p3_a27
1519 , p3_a28
1520 , p3_a29
1521 , p3_a30
1522 , p3_a31
1523 , p3_a32
1524 , p3_a33
1525 , p3_a34
1526 , p3_a35
1527 );
1528 end;
1529
1530 procedure get_warranty_rec_for_update(p0_a0 NUMBER
1531 , p0_a1 NUMBER
1532 , p0_a2 NUMBER
1533 , p0_a3 VARCHAR2
1534 , p0_a4 NUMBER
1535 , p0_a5 NUMBER
1536 , p0_a6 VARCHAR2
1537 , p0_a7 NUMBER
1538 , p0_a8 NUMBER
1539 , p0_a9 NUMBER
1540 , p0_a10 VARCHAR2
1541 , p0_a11 NUMBER
1542 , p0_a12 VARCHAR2
1543 , p0_a13 NUMBER
1544 , p0_a14 NUMBER
1545 , p0_a15 VARCHAR2
1546 , p0_a16 NUMBER
1547 , p0_a17 VARCHAR2
1548 , p0_a18 NUMBER
1549 , p0_a19 NUMBER
1550 , p0_a20 NUMBER
1551 , p0_a21 VARCHAR2
1552 , p0_a22 NUMBER
1553 , p0_a23 VARCHAR2
1554 , p0_a24 NUMBER
1555 , p0_a25 NUMBER
1556 , p0_a26 NUMBER
1557 , p0_a27 VARCHAR2
1558 , p0_a28 VARCHAR2
1559 , p0_a29 VARCHAR2
1560 , p0_a30 VARCHAR2
1561 , p0_a31 VARCHAR2
1562 , p0_a32 VARCHAR2
1563 , p0_a33 NUMBER
1564 , p0_a34 DATE
1565 , p0_a35 NUMBER
1566 , p0_a36 DATE
1567 , p0_a37 NUMBER
1568 , p0_a38 NUMBER
1569 , p0_a39 VARCHAR2
1570 , p0_a40 VARCHAR2
1571 , p0_a41 VARCHAR2
1572 , p0_a42 VARCHAR2
1573 , p0_a43 VARCHAR2
1574 , p0_a44 VARCHAR2
1575 , p0_a45 VARCHAR2
1576 , p0_a46 VARCHAR2
1577 , p0_a47 VARCHAR2
1578 , p0_a48 VARCHAR2
1579 , p0_a49 VARCHAR2
1580 , p0_a50 VARCHAR2
1581 , p0_a51 VARCHAR2
1582 , p0_a52 VARCHAR2
1583 , p0_a53 VARCHAR2
1584 , p0_a54 VARCHAR2
1585 , p0_a55 DATE
1586 , p0_a56 DATE
1587 , p0_a57 DATE
1588 , p0_a58 VARCHAR2
1589 , p0_a59 VARCHAR2
1590 , p0_a60 NUMBER
1591 , p0_a61 NUMBER
1592 , p0_a62 VARCHAR2
1593 , p0_a63 NUMBER
1594 , p0_a64 VARCHAR2
1595 , p0_a65 VARCHAR2
1596 , p0_a66 DATE
1597 , p0_a67 DATE
1598 , p0_a68 VARCHAR2
1599 , p0_a69 VARCHAR2
1600 , p0_a70 VARCHAR2
1601 , p0_a71 NUMBER
1602 , p0_a72 VARCHAR2
1603 , p0_a73 NUMBER
1604 , p0_a74 VARCHAR2
1605 , p0_a75 VARCHAR2
1606 , p0_a76 VARCHAR2
1607 , p0_a77 VARCHAR2
1608 , p0_a78 DATE
1609 , p0_a79 DATE
1610 , p0_a80 NUMBER
1611 , p0_a81 NUMBER
1612 , p0_a82 NUMBER
1613 , p0_a83 VARCHAR2
1614 , p0_a84 VARCHAR2
1615 , p0_a85 VARCHAR2
1616 , p0_a86 VARCHAR2
1617 , p0_a87 VARCHAR2
1618 , p0_a88 VARCHAR2
1619 , p0_a89 VARCHAR2
1620 , p0_a90 VARCHAR2
1621 , p0_a91 VARCHAR2
1622 , p0_a92 VARCHAR2
1623 , p0_a93 NUMBER
1624 , p0_a94 VARCHAR2
1625 , p1_a0 out nocopy JTF_NUMBER_TABLE
1626 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1627 , p1_a2 out nocopy JTF_NUMBER_TABLE
1628 , p1_a3 out nocopy JTF_DATE_TABLE
1629 , p1_a4 out nocopy JTF_NUMBER_TABLE
1630 , p1_a5 out nocopy JTF_DATE_TABLE
1631 , p1_a6 out nocopy JTF_NUMBER_TABLE
1632 , p1_a7 out nocopy JTF_NUMBER_TABLE
1633 , p1_a8 out nocopy JTF_NUMBER_TABLE
1634 , p1_a9 out nocopy JTF_NUMBER_TABLE
1635 , p1_a10 out nocopy JTF_VARCHAR2_TABLE_100
1636 , p1_a11 out nocopy JTF_NUMBER_TABLE
1637 , p1_a12 out nocopy JTF_NUMBER_TABLE
1638 , p1_a13 out nocopy JTF_NUMBER_TABLE
1639 , p1_a14 out nocopy JTF_NUMBER_TABLE
1640 , p1_a15 out nocopy JTF_NUMBER_TABLE
1641 , p1_a16 out nocopy JTF_NUMBER_TABLE
1642 , p1_a17 out nocopy JTF_VARCHAR2_TABLE_100
1643 , p1_a18 out nocopy JTF_VARCHAR2_TABLE_100
1644 , p1_a19 out nocopy JTF_NUMBER_TABLE
1645 , p1_a20 out nocopy JTF_VARCHAR2_TABLE_100
1646 , p1_a21 out nocopy JTF_VARCHAR2_TABLE_200
1647 , p1_a22 out nocopy JTF_VARCHAR2_TABLE_200
1648 , p1_a23 out nocopy JTF_VARCHAR2_TABLE_200
1649 , p1_a24 out nocopy JTF_VARCHAR2_TABLE_200
1650 , p1_a25 out nocopy JTF_VARCHAR2_TABLE_200
1651 , p1_a26 out nocopy JTF_VARCHAR2_TABLE_200
1652 , p1_a27 out nocopy JTF_VARCHAR2_TABLE_200
1653 , p1_a28 out nocopy JTF_VARCHAR2_TABLE_200
1654 , p1_a29 out nocopy JTF_VARCHAR2_TABLE_200
1655 , p1_a30 out nocopy JTF_VARCHAR2_TABLE_200
1656 , p1_a31 out nocopy JTF_VARCHAR2_TABLE_200
1657 , p1_a32 out nocopy JTF_VARCHAR2_TABLE_200
1658 , p1_a33 out nocopy JTF_VARCHAR2_TABLE_200
1659 , p1_a34 out nocopy JTF_VARCHAR2_TABLE_200
1660 , p1_a35 out nocopy JTF_VARCHAR2_TABLE_200
1661 )
1662
1663 as
1664 ddp_task_rec ahl_vwp_rules_pvt.task_rec_type;
1665 ddx_warranty_entl_tbl ahl_warranty_entl_pvt.warranty_entl_tbl_type;
1666 ddindx binary_integer; indx binary_integer;
1667 begin
1668
1669 -- copy data to the local IN or IN-OUT args, if any
1670 ddp_task_rec.visit_task_id := p0_a0;
1671 ddp_task_rec.visit_task_number := p0_a1;
1672 ddp_task_rec.visit_id := p0_a2;
1673 ddp_task_rec.template_flag := p0_a3;
1674 ddp_task_rec.inventory_item_id := p0_a4;
1675 ddp_task_rec.item_organization_id := p0_a5;
1676 ddp_task_rec.item_name := p0_a6;
1677 ddp_task_rec.cost_parent_id := p0_a7;
1678 ddp_task_rec.cost_parent_number := p0_a8;
1679 ddp_task_rec.mr_route_id := p0_a9;
1680 ddp_task_rec.route_number := p0_a10;
1681 ddp_task_rec.mr_id := p0_a11;
1682 ddp_task_rec.mr_title := p0_a12;
1683 ddp_task_rec.unit_effectivity_id := p0_a13;
1684 ddp_task_rec.department_id := p0_a14;
1685 ddp_task_rec.dept_name := p0_a15;
1686 ddp_task_rec.service_request_id := p0_a16;
1687 ddp_task_rec.service_request_number := p0_a17;
1688 ddp_task_rec.originating_task_id := p0_a18;
1689 ddp_task_rec.orginating_task_number := p0_a19;
1690 ddp_task_rec.instance_id := p0_a20;
1691 ddp_task_rec.serial_number := p0_a21;
1692 ddp_task_rec.project_task_id := p0_a22;
1693 ddp_task_rec.project_task_number := p0_a23;
1694 ddp_task_rec.primary_visit_task_id := p0_a24;
1695 ddp_task_rec.start_from_hour := p0_a25;
1696 ddp_task_rec.duration := p0_a26;
1697 ddp_task_rec.task_type_code := p0_a27;
1698 ddp_task_rec.task_type_value := p0_a28;
1699 ddp_task_rec.visit_task_name := p0_a29;
1700 ddp_task_rec.description := p0_a30;
1701 ddp_task_rec.task_status_code := p0_a31;
1702 ddp_task_rec.task_status_value := p0_a32;
1703 ddp_task_rec.object_version_number := p0_a33;
1704 ddp_task_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a34);
1705 ddp_task_rec.last_updated_by := p0_a35;
1706 ddp_task_rec.creation_date := rosetta_g_miss_date_in_map(p0_a36);
1707 ddp_task_rec.created_by := p0_a37;
1708 ddp_task_rec.last_update_login := p0_a38;
1709 ddp_task_rec.attribute_category := p0_a39;
1710 ddp_task_rec.attribute1 := p0_a40;
1711 ddp_task_rec.attribute2 := p0_a41;
1712 ddp_task_rec.attribute3 := p0_a42;
1713 ddp_task_rec.attribute4 := p0_a43;
1714 ddp_task_rec.attribute5 := p0_a44;
1715 ddp_task_rec.attribute6 := p0_a45;
1716 ddp_task_rec.attribute7 := p0_a46;
1717 ddp_task_rec.attribute8 := p0_a47;
1718 ddp_task_rec.attribute9 := p0_a48;
1719 ddp_task_rec.attribute10 := p0_a49;
1720 ddp_task_rec.attribute11 := p0_a50;
1721 ddp_task_rec.attribute12 := p0_a51;
1722 ddp_task_rec.attribute13 := p0_a52;
1723 ddp_task_rec.attribute14 := p0_a53;
1724 ddp_task_rec.attribute15 := p0_a54;
1725 ddp_task_rec.task_start_date := rosetta_g_miss_date_in_map(p0_a55);
1726 ddp_task_rec.task_end_date := rosetta_g_miss_date_in_map(p0_a56);
1727 ddp_task_rec.due_by_date := rosetta_g_miss_date_in_map(p0_a57);
1728 ddp_task_rec.zone_name := p0_a58;
1729 ddp_task_rec.sub_zone_name := p0_a59;
1730 ddp_task_rec.tolerance_after := p0_a60;
1731 ddp_task_rec.tolerance_before := p0_a61;
1732 ddp_task_rec.tolerance_uom := p0_a62;
1733 ddp_task_rec.workorder_id := p0_a63;
1734 ddp_task_rec.wo_name := p0_a64;
1735 ddp_task_rec.wo_status := p0_a65;
1736 ddp_task_rec.wo_start_date := rosetta_g_miss_date_in_map(p0_a66);
1737 ddp_task_rec.wo_end_date := rosetta_g_miss_date_in_map(p0_a67);
1738 ddp_task_rec.operation_flag := p0_a68;
1739 ddp_task_rec.is_production_flag := p0_a69;
1740 ddp_task_rec.create_job_flag := p0_a70;
1741 ddp_task_rec.stage_id := p0_a71;
1742 ddp_task_rec.stage_name := p0_a72;
1743 ddp_task_rec.quantity := p0_a73;
1744 ddp_task_rec.uom := p0_a74;
1745 ddp_task_rec.instance_number := p0_a75;
1746 ddp_task_rec.service_type_code := p0_a76;
1747 ddp_task_rec.service_type := p0_a77;
1748 ddp_task_rec.past_task_start_date := rosetta_g_miss_date_in_map(p0_a78);
1749 ddp_task_rec.past_task_end_date := rosetta_g_miss_date_in_map(p0_a79);
1750 ddp_task_rec.route_id := p0_a80;
1751 ddp_task_rec.warranty_entitlement_id := p0_a81;
1752 ddp_task_rec.contract_number := p0_a82;
1753 ddp_task_rec.entitlement_status := p0_a83;
1754 ddp_task_rec.entitlement_status_code := p0_a84;
1755 ddp_task_rec.claim_name := p0_a85;
1756 ddp_task_rec.claim_status := p0_a86;
1757 ddp_task_rec.claim_status_code := p0_a87;
1758 ddp_task_rec.task_warranty := p0_a88;
1759 ddp_task_rec.instance_warranty := p0_a89;
1760 ddp_task_rec.warranty_not_appl_flag := p0_a90;
1761 ddp_task_rec.stage_type_code := p0_a91;
1762 ddp_task_rec.return_to_supply_flag := p0_a92;
1763 ddp_task_rec.target_qty := p0_a93;
1764 ddp_task_rec.repair_batch_name := p0_a94;
1765
1766
1767 -- here's the delegated call to the old PL/SQL routine
1768 ahl_vwp_rules_pvt.get_warranty_rec_for_update(ddp_task_rec,
1769 ddx_warranty_entl_tbl);
1770
1771 -- copy data back from the local variables to OUT or IN-OUT args, if any
1772
1773 ahl_warranty_entl_pvt_w.rosetta_table_copy_out_p19(ddx_warranty_entl_tbl, p1_a0
1774 , p1_a1
1775 , p1_a2
1776 , p1_a3
1777 , p1_a4
1778 , p1_a5
1779 , p1_a6
1780 , p1_a7
1781 , p1_a8
1782 , p1_a9
1783 , p1_a10
1784 , p1_a11
1785 , p1_a12
1786 , p1_a13
1787 , p1_a14
1788 , p1_a15
1789 , p1_a16
1790 , p1_a17
1791 , p1_a18
1792 , p1_a19
1793 , p1_a20
1794 , p1_a21
1795 , p1_a22
1796 , p1_a23
1797 , p1_a24
1798 , p1_a25
1799 , p1_a26
1800 , p1_a27
1801 , p1_a28
1802 , p1_a29
1803 , p1_a30
1804 , p1_a31
1805 , p1_a32
1806 , p1_a33
1807 , p1_a34
1808 , p1_a35
1809 );
1810 end;
1811
1812 procedure handle_task_dependency(p_api_version NUMBER
1813 , p_init_msg_list VARCHAR2
1814 , p_commit VARCHAR2
1815 , p_validation_level NUMBER
1816 , p_visit_id NUMBER
1817 , p5_a0 JTF_NUMBER_TABLE
1818 , p5_a1 JTF_NUMBER_TABLE
1819 , p5_a2 JTF_NUMBER_TABLE
1820 , p5_a3 JTF_VARCHAR2_TABLE_100
1821 , p5_a4 JTF_NUMBER_TABLE
1822 , p5_a5 JTF_NUMBER_TABLE
1823 , p5_a6 JTF_VARCHAR2_TABLE_100
1824 , p5_a7 JTF_NUMBER_TABLE
1825 , p5_a8 JTF_NUMBER_TABLE
1826 , p5_a9 JTF_NUMBER_TABLE
1827 , p5_a10 JTF_VARCHAR2_TABLE_100
1828 , p5_a11 JTF_NUMBER_TABLE
1829 , p5_a12 JTF_VARCHAR2_TABLE_100
1830 , p5_a13 JTF_NUMBER_TABLE
1831 , p5_a14 JTF_NUMBER_TABLE
1832 , p5_a15 JTF_VARCHAR2_TABLE_300
1833 , p5_a16 JTF_NUMBER_TABLE
1834 , p5_a17 JTF_VARCHAR2_TABLE_100
1835 , p5_a18 JTF_NUMBER_TABLE
1836 , p5_a19 JTF_NUMBER_TABLE
1837 , p5_a20 JTF_NUMBER_TABLE
1838 , p5_a21 JTF_VARCHAR2_TABLE_100
1839 , p5_a22 JTF_NUMBER_TABLE
1840 , p5_a23 JTF_VARCHAR2_TABLE_100
1841 , p5_a24 JTF_NUMBER_TABLE
1842 , p5_a25 JTF_NUMBER_TABLE
1843 , p5_a26 JTF_NUMBER_TABLE
1844 , p5_a27 JTF_VARCHAR2_TABLE_100
1845 , p5_a28 JTF_VARCHAR2_TABLE_100
1846 , p5_a29 JTF_VARCHAR2_TABLE_100
1847 , p5_a30 JTF_VARCHAR2_TABLE_4000
1848 , p5_a31 JTF_VARCHAR2_TABLE_100
1849 , p5_a32 JTF_VARCHAR2_TABLE_100
1850 , p5_a33 JTF_NUMBER_TABLE
1851 , p5_a34 JTF_DATE_TABLE
1852 , p5_a35 JTF_NUMBER_TABLE
1853 , p5_a36 JTF_DATE_TABLE
1854 , p5_a37 JTF_NUMBER_TABLE
1855 , p5_a38 JTF_NUMBER_TABLE
1856 , p5_a39 JTF_VARCHAR2_TABLE_100
1857 , p5_a40 JTF_VARCHAR2_TABLE_200
1858 , p5_a41 JTF_VARCHAR2_TABLE_200
1859 , p5_a42 JTF_VARCHAR2_TABLE_200
1860 , p5_a43 JTF_VARCHAR2_TABLE_200
1861 , p5_a44 JTF_VARCHAR2_TABLE_200
1862 , p5_a45 JTF_VARCHAR2_TABLE_200
1863 , p5_a46 JTF_VARCHAR2_TABLE_200
1864 , p5_a47 JTF_VARCHAR2_TABLE_200
1865 , p5_a48 JTF_VARCHAR2_TABLE_200
1866 , p5_a49 JTF_VARCHAR2_TABLE_200
1867 , p5_a50 JTF_VARCHAR2_TABLE_200
1868 , p5_a51 JTF_VARCHAR2_TABLE_200
1869 , p5_a52 JTF_VARCHAR2_TABLE_200
1870 , p5_a53 JTF_VARCHAR2_TABLE_200
1871 , p5_a54 JTF_VARCHAR2_TABLE_200
1872 , p5_a55 JTF_DATE_TABLE
1873 , p5_a56 JTF_DATE_TABLE
1874 , p5_a57 JTF_DATE_TABLE
1875 , p5_a58 JTF_VARCHAR2_TABLE_100
1876 , p5_a59 JTF_VARCHAR2_TABLE_100
1877 , p5_a60 JTF_NUMBER_TABLE
1878 , p5_a61 JTF_NUMBER_TABLE
1879 , p5_a62 JTF_VARCHAR2_TABLE_100
1880 , p5_a63 JTF_NUMBER_TABLE
1881 , p5_a64 JTF_VARCHAR2_TABLE_300
1882 , p5_a65 JTF_VARCHAR2_TABLE_100
1883 , p5_a66 JTF_DATE_TABLE
1884 , p5_a67 JTF_DATE_TABLE
1885 , p5_a68 JTF_VARCHAR2_TABLE_100
1886 , p5_a69 JTF_VARCHAR2_TABLE_100
1887 , p5_a70 JTF_VARCHAR2_TABLE_100
1888 , p5_a71 JTF_NUMBER_TABLE
1889 , p5_a72 JTF_VARCHAR2_TABLE_100
1890 , p5_a73 JTF_NUMBER_TABLE
1891 , p5_a74 JTF_VARCHAR2_TABLE_100
1892 , p5_a75 JTF_VARCHAR2_TABLE_100
1893 , p5_a76 JTF_VARCHAR2_TABLE_100
1894 , p5_a77 JTF_VARCHAR2_TABLE_100
1895 , p5_a78 JTF_DATE_TABLE
1896 , p5_a79 JTF_DATE_TABLE
1897 , p5_a80 JTF_NUMBER_TABLE
1898 , p5_a81 JTF_NUMBER_TABLE
1899 , p5_a82 JTF_NUMBER_TABLE
1900 , p5_a83 JTF_VARCHAR2_TABLE_100
1901 , p5_a84 JTF_VARCHAR2_TABLE_100
1902 , p5_a85 JTF_VARCHAR2_TABLE_100
1903 , p5_a86 JTF_VARCHAR2_TABLE_100
1904 , p5_a87 JTF_VARCHAR2_TABLE_100
1905 , p5_a88 JTF_VARCHAR2_TABLE_100
1906 , p5_a89 JTF_VARCHAR2_TABLE_100
1907 , p5_a90 JTF_VARCHAR2_TABLE_100
1908 , p5_a91 JTF_VARCHAR2_TABLE_100
1909 , p5_a92 JTF_VARCHAR2_TABLE_100
1910 , p5_a93 JTF_NUMBER_TABLE
1911 , p5_a94 JTF_VARCHAR2_TABLE_300
1912 , x_return_status out nocopy VARCHAR2
1913 , x_msg_count out nocopy NUMBER
1914 , x_msg_data out nocopy VARCHAR2
1915 )
1916
1917 as
1918 ddp_task_tbl ahl_vwp_rules_pvt.task_tbl_type;
1919 ddindx binary_integer; indx binary_integer;
1920 begin
1921
1922 -- copy data to the local IN or IN-OUT args, if any
1923
1924
1925
1926
1927
1928 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_task_tbl, p5_a0
1929 , p5_a1
1930 , p5_a2
1931 , p5_a3
1932 , p5_a4
1933 , p5_a5
1934 , p5_a6
1935 , p5_a7
1936 , p5_a8
1937 , p5_a9
1938 , p5_a10
1939 , p5_a11
1940 , p5_a12
1941 , p5_a13
1942 , p5_a14
1943 , p5_a15
1944 , p5_a16
1945 , p5_a17
1946 , p5_a18
1947 , p5_a19
1948 , p5_a20
1949 , p5_a21
1950 , p5_a22
1951 , p5_a23
1952 , p5_a24
1953 , p5_a25
1954 , p5_a26
1955 , p5_a27
1956 , p5_a28
1957 , p5_a29
1958 , p5_a30
1959 , p5_a31
1960 , p5_a32
1961 , p5_a33
1962 , p5_a34
1963 , p5_a35
1964 , p5_a36
1965 , p5_a37
1966 , p5_a38
1967 , p5_a39
1968 , p5_a40
1969 , p5_a41
1970 , p5_a42
1971 , p5_a43
1972 , p5_a44
1973 , p5_a45
1974 , p5_a46
1975 , p5_a47
1976 , p5_a48
1977 , p5_a49
1978 , p5_a50
1979 , p5_a51
1980 , p5_a52
1981 , p5_a53
1982 , p5_a54
1983 , p5_a55
1984 , p5_a56
1985 , p5_a57
1986 , p5_a58
1987 , p5_a59
1988 , p5_a60
1989 , p5_a61
1990 , p5_a62
1991 , p5_a63
1992 , p5_a64
1993 , p5_a65
1994 , p5_a66
1995 , p5_a67
1996 , p5_a68
1997 , p5_a69
1998 , p5_a70
1999 , p5_a71
2000 , p5_a72
2001 , p5_a73
2002 , p5_a74
2003 , p5_a75
2004 , p5_a76
2005 , p5_a77
2006 , p5_a78
2007 , p5_a79
2008 , p5_a80
2009 , p5_a81
2010 , p5_a82
2011 , p5_a83
2012 , p5_a84
2013 , p5_a85
2014 , p5_a86
2015 , p5_a87
2016 , p5_a88
2017 , p5_a89
2018 , p5_a90
2019 , p5_a91
2020 , p5_a92
2021 , p5_a93
2022 , p5_a94
2023 );
2024
2025
2026
2027
2028 -- here's the delegated call to the old PL/SQL routine
2029 ahl_vwp_rules_pvt.handle_task_dependency(p_api_version,
2030 p_init_msg_list,
2031 p_commit,
2032 p_validation_level,
2033 p_visit_id,
2034 ddp_task_tbl,
2035 x_return_status,
2036 x_msg_count,
2037 x_msg_data);
2038
2039 -- copy data back from the local variables to OUT or IN-OUT args, if any
2040
2041
2042
2043
2044
2045
2046
2047
2048 end;
2049
2050 procedure warranty_not_applicable(p_api_version NUMBER
2051 , p_init_msg_list VARCHAR2
2052 , p_commit VARCHAR2
2053 , p_validation_level NUMBER
2054 , p4_a0 JTF_NUMBER_TABLE
2055 , p4_a1 JTF_NUMBER_TABLE
2056 , p4_a2 JTF_NUMBER_TABLE
2057 , p4_a3 JTF_VARCHAR2_TABLE_100
2058 , p4_a4 JTF_NUMBER_TABLE
2059 , p4_a5 JTF_NUMBER_TABLE
2060 , p4_a6 JTF_VARCHAR2_TABLE_100
2061 , p4_a7 JTF_NUMBER_TABLE
2062 , p4_a8 JTF_NUMBER_TABLE
2063 , p4_a9 JTF_NUMBER_TABLE
2064 , p4_a10 JTF_VARCHAR2_TABLE_100
2065 , p4_a11 JTF_NUMBER_TABLE
2066 , p4_a12 JTF_VARCHAR2_TABLE_100
2067 , p4_a13 JTF_NUMBER_TABLE
2068 , p4_a14 JTF_NUMBER_TABLE
2069 , p4_a15 JTF_VARCHAR2_TABLE_300
2070 , p4_a16 JTF_NUMBER_TABLE
2071 , p4_a17 JTF_VARCHAR2_TABLE_100
2072 , p4_a18 JTF_NUMBER_TABLE
2073 , p4_a19 JTF_NUMBER_TABLE
2074 , p4_a20 JTF_NUMBER_TABLE
2075 , p4_a21 JTF_VARCHAR2_TABLE_100
2076 , p4_a22 JTF_NUMBER_TABLE
2077 , p4_a23 JTF_VARCHAR2_TABLE_100
2078 , p4_a24 JTF_NUMBER_TABLE
2079 , p4_a25 JTF_NUMBER_TABLE
2080 , p4_a26 JTF_NUMBER_TABLE
2081 , p4_a27 JTF_VARCHAR2_TABLE_100
2082 , p4_a28 JTF_VARCHAR2_TABLE_100
2083 , p4_a29 JTF_VARCHAR2_TABLE_100
2084 , p4_a30 JTF_VARCHAR2_TABLE_4000
2085 , p4_a31 JTF_VARCHAR2_TABLE_100
2086 , p4_a32 JTF_VARCHAR2_TABLE_100
2087 , p4_a33 JTF_NUMBER_TABLE
2088 , p4_a34 JTF_DATE_TABLE
2089 , p4_a35 JTF_NUMBER_TABLE
2090 , p4_a36 JTF_DATE_TABLE
2091 , p4_a37 JTF_NUMBER_TABLE
2092 , p4_a38 JTF_NUMBER_TABLE
2093 , p4_a39 JTF_VARCHAR2_TABLE_100
2094 , p4_a40 JTF_VARCHAR2_TABLE_200
2095 , p4_a41 JTF_VARCHAR2_TABLE_200
2096 , p4_a42 JTF_VARCHAR2_TABLE_200
2097 , p4_a43 JTF_VARCHAR2_TABLE_200
2098 , p4_a44 JTF_VARCHAR2_TABLE_200
2099 , p4_a45 JTF_VARCHAR2_TABLE_200
2100 , p4_a46 JTF_VARCHAR2_TABLE_200
2101 , p4_a47 JTF_VARCHAR2_TABLE_200
2102 , p4_a48 JTF_VARCHAR2_TABLE_200
2103 , p4_a49 JTF_VARCHAR2_TABLE_200
2104 , p4_a50 JTF_VARCHAR2_TABLE_200
2105 , p4_a51 JTF_VARCHAR2_TABLE_200
2106 , p4_a52 JTF_VARCHAR2_TABLE_200
2107 , p4_a53 JTF_VARCHAR2_TABLE_200
2108 , p4_a54 JTF_VARCHAR2_TABLE_200
2109 , p4_a55 JTF_DATE_TABLE
2110 , p4_a56 JTF_DATE_TABLE
2111 , p4_a57 JTF_DATE_TABLE
2112 , p4_a58 JTF_VARCHAR2_TABLE_100
2113 , p4_a59 JTF_VARCHAR2_TABLE_100
2114 , p4_a60 JTF_NUMBER_TABLE
2115 , p4_a61 JTF_NUMBER_TABLE
2116 , p4_a62 JTF_VARCHAR2_TABLE_100
2117 , p4_a63 JTF_NUMBER_TABLE
2118 , p4_a64 JTF_VARCHAR2_TABLE_300
2119 , p4_a65 JTF_VARCHAR2_TABLE_100
2120 , p4_a66 JTF_DATE_TABLE
2121 , p4_a67 JTF_DATE_TABLE
2122 , p4_a68 JTF_VARCHAR2_TABLE_100
2123 , p4_a69 JTF_VARCHAR2_TABLE_100
2124 , p4_a70 JTF_VARCHAR2_TABLE_100
2125 , p4_a71 JTF_NUMBER_TABLE
2126 , p4_a72 JTF_VARCHAR2_TABLE_100
2127 , p4_a73 JTF_NUMBER_TABLE
2128 , p4_a74 JTF_VARCHAR2_TABLE_100
2129 , p4_a75 JTF_VARCHAR2_TABLE_100
2130 , p4_a76 JTF_VARCHAR2_TABLE_100
2131 , p4_a77 JTF_VARCHAR2_TABLE_100
2132 , p4_a78 JTF_DATE_TABLE
2133 , p4_a79 JTF_DATE_TABLE
2134 , p4_a80 JTF_NUMBER_TABLE
2135 , p4_a81 JTF_NUMBER_TABLE
2136 , p4_a82 JTF_NUMBER_TABLE
2137 , p4_a83 JTF_VARCHAR2_TABLE_100
2138 , p4_a84 JTF_VARCHAR2_TABLE_100
2139 , p4_a85 JTF_VARCHAR2_TABLE_100
2140 , p4_a86 JTF_VARCHAR2_TABLE_100
2141 , p4_a87 JTF_VARCHAR2_TABLE_100
2142 , p4_a88 JTF_VARCHAR2_TABLE_100
2143 , p4_a89 JTF_VARCHAR2_TABLE_100
2144 , p4_a90 JTF_VARCHAR2_TABLE_100
2145 , p4_a91 JTF_VARCHAR2_TABLE_100
2146 , p4_a92 JTF_VARCHAR2_TABLE_100
2147 , p4_a93 JTF_NUMBER_TABLE
2148 , p4_a94 JTF_VARCHAR2_TABLE_300
2149 , x_return_status out nocopy VARCHAR2
2150 , x_msg_count out nocopy NUMBER
2151 , x_msg_data out nocopy VARCHAR2
2152 )
2153
2154 as
2155 ddp_task_tbl ahl_vwp_rules_pvt.task_tbl_type;
2156 ddindx binary_integer; indx binary_integer;
2157 begin
2158
2159 -- copy data to the local IN or IN-OUT args, if any
2160
2161
2162
2163
2164 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_task_tbl, p4_a0
2165 , p4_a1
2166 , p4_a2
2167 , p4_a3
2168 , p4_a4
2169 , p4_a5
2170 , p4_a6
2171 , p4_a7
2172 , p4_a8
2173 , p4_a9
2174 , p4_a10
2175 , p4_a11
2176 , p4_a12
2177 , p4_a13
2178 , p4_a14
2179 , p4_a15
2180 , p4_a16
2181 , p4_a17
2182 , p4_a18
2183 , p4_a19
2184 , p4_a20
2185 , p4_a21
2186 , p4_a22
2187 , p4_a23
2188 , p4_a24
2189 , p4_a25
2190 , p4_a26
2191 , p4_a27
2192 , p4_a28
2193 , p4_a29
2194 , p4_a30
2195 , p4_a31
2196 , p4_a32
2197 , p4_a33
2198 , p4_a34
2199 , p4_a35
2200 , p4_a36
2201 , p4_a37
2202 , p4_a38
2203 , p4_a39
2204 , p4_a40
2205 , p4_a41
2206 , p4_a42
2207 , p4_a43
2208 , p4_a44
2209 , p4_a45
2210 , p4_a46
2211 , p4_a47
2212 , p4_a48
2213 , p4_a49
2214 , p4_a50
2215 , p4_a51
2216 , p4_a52
2217 , p4_a53
2218 , p4_a54
2219 , p4_a55
2220 , p4_a56
2221 , p4_a57
2222 , p4_a58
2223 , p4_a59
2224 , p4_a60
2225 , p4_a61
2226 , p4_a62
2227 , p4_a63
2228 , p4_a64
2229 , p4_a65
2230 , p4_a66
2231 , p4_a67
2232 , p4_a68
2233 , p4_a69
2234 , p4_a70
2235 , p4_a71
2236 , p4_a72
2237 , p4_a73
2238 , p4_a74
2239 , p4_a75
2240 , p4_a76
2241 , p4_a77
2242 , p4_a78
2243 , p4_a79
2244 , p4_a80
2245 , p4_a81
2246 , p4_a82
2247 , p4_a83
2248 , p4_a84
2249 , p4_a85
2250 , p4_a86
2251 , p4_a87
2252 , p4_a88
2253 , p4_a89
2254 , p4_a90
2255 , p4_a91
2256 , p4_a92
2257 , p4_a93
2258 , p4_a94
2259 );
2260
2261
2262
2263
2264 -- here's the delegated call to the old PL/SQL routine
2265 ahl_vwp_rules_pvt.warranty_not_applicable(p_api_version,
2266 p_init_msg_list,
2267 p_commit,
2268 p_validation_level,
2269 ddp_task_tbl,
2270 x_return_status,
2271 x_msg_count,
2272 x_msg_data);
2273
2274 -- copy data back from the local variables to OUT or IN-OUT args, if any
2275
2276
2277
2278
2279
2280
2281
2282 end;
2283
2284 procedure add_return_to_supply(p_api_version NUMBER
2285 , p_init_msg_list VARCHAR2
2286 , p_commit VARCHAR2
2287 , p_validation_level NUMBER
2288 , p4_a0 JTF_NUMBER_TABLE
2289 , p4_a1 JTF_NUMBER_TABLE
2290 , p4_a2 JTF_NUMBER_TABLE
2291 , p4_a3 JTF_VARCHAR2_TABLE_100
2292 , p4_a4 JTF_NUMBER_TABLE
2293 , p4_a5 JTF_NUMBER_TABLE
2294 , p4_a6 JTF_VARCHAR2_TABLE_100
2295 , p4_a7 JTF_NUMBER_TABLE
2296 , p4_a8 JTF_NUMBER_TABLE
2297 , p4_a9 JTF_NUMBER_TABLE
2298 , p4_a10 JTF_VARCHAR2_TABLE_100
2299 , p4_a11 JTF_NUMBER_TABLE
2300 , p4_a12 JTF_VARCHAR2_TABLE_100
2301 , p4_a13 JTF_NUMBER_TABLE
2302 , p4_a14 JTF_NUMBER_TABLE
2303 , p4_a15 JTF_VARCHAR2_TABLE_300
2304 , p4_a16 JTF_NUMBER_TABLE
2305 , p4_a17 JTF_VARCHAR2_TABLE_100
2306 , p4_a18 JTF_NUMBER_TABLE
2307 , p4_a19 JTF_NUMBER_TABLE
2308 , p4_a20 JTF_NUMBER_TABLE
2309 , p4_a21 JTF_VARCHAR2_TABLE_100
2310 , p4_a22 JTF_NUMBER_TABLE
2311 , p4_a23 JTF_VARCHAR2_TABLE_100
2312 , p4_a24 JTF_NUMBER_TABLE
2313 , p4_a25 JTF_NUMBER_TABLE
2314 , p4_a26 JTF_NUMBER_TABLE
2315 , p4_a27 JTF_VARCHAR2_TABLE_100
2316 , p4_a28 JTF_VARCHAR2_TABLE_100
2317 , p4_a29 JTF_VARCHAR2_TABLE_100
2318 , p4_a30 JTF_VARCHAR2_TABLE_4000
2319 , p4_a31 JTF_VARCHAR2_TABLE_100
2320 , p4_a32 JTF_VARCHAR2_TABLE_100
2321 , p4_a33 JTF_NUMBER_TABLE
2322 , p4_a34 JTF_DATE_TABLE
2323 , p4_a35 JTF_NUMBER_TABLE
2324 , p4_a36 JTF_DATE_TABLE
2325 , p4_a37 JTF_NUMBER_TABLE
2326 , p4_a38 JTF_NUMBER_TABLE
2327 , p4_a39 JTF_VARCHAR2_TABLE_100
2328 , p4_a40 JTF_VARCHAR2_TABLE_200
2329 , p4_a41 JTF_VARCHAR2_TABLE_200
2330 , p4_a42 JTF_VARCHAR2_TABLE_200
2331 , p4_a43 JTF_VARCHAR2_TABLE_200
2332 , p4_a44 JTF_VARCHAR2_TABLE_200
2333 , p4_a45 JTF_VARCHAR2_TABLE_200
2334 , p4_a46 JTF_VARCHAR2_TABLE_200
2335 , p4_a47 JTF_VARCHAR2_TABLE_200
2336 , p4_a48 JTF_VARCHAR2_TABLE_200
2337 , p4_a49 JTF_VARCHAR2_TABLE_200
2338 , p4_a50 JTF_VARCHAR2_TABLE_200
2339 , p4_a51 JTF_VARCHAR2_TABLE_200
2340 , p4_a52 JTF_VARCHAR2_TABLE_200
2341 , p4_a53 JTF_VARCHAR2_TABLE_200
2342 , p4_a54 JTF_VARCHAR2_TABLE_200
2343 , p4_a55 JTF_DATE_TABLE
2344 , p4_a56 JTF_DATE_TABLE
2345 , p4_a57 JTF_DATE_TABLE
2346 , p4_a58 JTF_VARCHAR2_TABLE_100
2347 , p4_a59 JTF_VARCHAR2_TABLE_100
2348 , p4_a60 JTF_NUMBER_TABLE
2349 , p4_a61 JTF_NUMBER_TABLE
2350 , p4_a62 JTF_VARCHAR2_TABLE_100
2351 , p4_a63 JTF_NUMBER_TABLE
2352 , p4_a64 JTF_VARCHAR2_TABLE_300
2353 , p4_a65 JTF_VARCHAR2_TABLE_100
2354 , p4_a66 JTF_DATE_TABLE
2355 , p4_a67 JTF_DATE_TABLE
2356 , p4_a68 JTF_VARCHAR2_TABLE_100
2357 , p4_a69 JTF_VARCHAR2_TABLE_100
2358 , p4_a70 JTF_VARCHAR2_TABLE_100
2359 , p4_a71 JTF_NUMBER_TABLE
2360 , p4_a72 JTF_VARCHAR2_TABLE_100
2361 , p4_a73 JTF_NUMBER_TABLE
2362 , p4_a74 JTF_VARCHAR2_TABLE_100
2363 , p4_a75 JTF_VARCHAR2_TABLE_100
2364 , p4_a76 JTF_VARCHAR2_TABLE_100
2365 , p4_a77 JTF_VARCHAR2_TABLE_100
2366 , p4_a78 JTF_DATE_TABLE
2367 , p4_a79 JTF_DATE_TABLE
2368 , p4_a80 JTF_NUMBER_TABLE
2369 , p4_a81 JTF_NUMBER_TABLE
2370 , p4_a82 JTF_NUMBER_TABLE
2371 , p4_a83 JTF_VARCHAR2_TABLE_100
2372 , p4_a84 JTF_VARCHAR2_TABLE_100
2373 , p4_a85 JTF_VARCHAR2_TABLE_100
2374 , p4_a86 JTF_VARCHAR2_TABLE_100
2375 , p4_a87 JTF_VARCHAR2_TABLE_100
2376 , p4_a88 JTF_VARCHAR2_TABLE_100
2377 , p4_a89 JTF_VARCHAR2_TABLE_100
2378 , p4_a90 JTF_VARCHAR2_TABLE_100
2379 , p4_a91 JTF_VARCHAR2_TABLE_100
2380 , p4_a92 JTF_VARCHAR2_TABLE_100
2381 , p4_a93 JTF_NUMBER_TABLE
2382 , p4_a94 JTF_VARCHAR2_TABLE_300
2383 , x_return_status out nocopy VARCHAR2
2384 , x_msg_count out nocopy NUMBER
2385 , x_msg_data out nocopy VARCHAR2
2386 )
2387
2388 as
2389 ddp_task_tbl_type ahl_vwp_rules_pvt.task_tbl_type;
2390 ddindx binary_integer; indx binary_integer;
2391 begin
2392
2393 -- copy data to the local IN or IN-OUT args, if any
2394
2395
2396
2397
2398 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_task_tbl_type, p4_a0
2399 , p4_a1
2400 , p4_a2
2401 , p4_a3
2402 , p4_a4
2403 , p4_a5
2404 , p4_a6
2405 , p4_a7
2406 , p4_a8
2407 , p4_a9
2408 , p4_a10
2409 , p4_a11
2410 , p4_a12
2411 , p4_a13
2412 , p4_a14
2413 , p4_a15
2414 , p4_a16
2415 , p4_a17
2416 , p4_a18
2417 , p4_a19
2418 , p4_a20
2419 , p4_a21
2420 , p4_a22
2421 , p4_a23
2422 , p4_a24
2423 , p4_a25
2424 , p4_a26
2425 , p4_a27
2426 , p4_a28
2427 , p4_a29
2428 , p4_a30
2429 , p4_a31
2430 , p4_a32
2431 , p4_a33
2432 , p4_a34
2433 , p4_a35
2434 , p4_a36
2435 , p4_a37
2436 , p4_a38
2437 , p4_a39
2438 , p4_a40
2439 , p4_a41
2440 , p4_a42
2441 , p4_a43
2442 , p4_a44
2443 , p4_a45
2444 , p4_a46
2445 , p4_a47
2446 , p4_a48
2447 , p4_a49
2448 , p4_a50
2449 , p4_a51
2450 , p4_a52
2451 , p4_a53
2452 , p4_a54
2453 , p4_a55
2454 , p4_a56
2455 , p4_a57
2456 , p4_a58
2457 , p4_a59
2458 , p4_a60
2459 , p4_a61
2460 , p4_a62
2461 , p4_a63
2462 , p4_a64
2463 , p4_a65
2464 , p4_a66
2465 , p4_a67
2466 , p4_a68
2467 , p4_a69
2468 , p4_a70
2469 , p4_a71
2470 , p4_a72
2471 , p4_a73
2472 , p4_a74
2473 , p4_a75
2474 , p4_a76
2475 , p4_a77
2476 , p4_a78
2477 , p4_a79
2478 , p4_a80
2479 , p4_a81
2480 , p4_a82
2481 , p4_a83
2482 , p4_a84
2483 , p4_a85
2484 , p4_a86
2485 , p4_a87
2486 , p4_a88
2487 , p4_a89
2488 , p4_a90
2489 , p4_a91
2490 , p4_a92
2491 , p4_a93
2492 , p4_a94
2493 );
2494
2495
2496
2497
2498 -- here's the delegated call to the old PL/SQL routine
2499 ahl_vwp_rules_pvt.add_return_to_supply(p_api_version,
2500 p_init_msg_list,
2501 p_commit,
2502 p_validation_level,
2503 ddp_task_tbl_type,
2504 x_return_status,
2505 x_msg_count,
2506 x_msg_data);
2507
2508 -- copy data back from the local variables to OUT or IN-OUT args, if any
2509
2510
2511
2512
2513
2514
2515
2516 end;
2517
2518 procedure remove_return_to_supply(p_api_version NUMBER
2519 , p_init_msg_list VARCHAR2
2520 , p_commit VARCHAR2
2521 , p_validation_level NUMBER
2522 , p4_a0 JTF_NUMBER_TABLE
2523 , p4_a1 JTF_NUMBER_TABLE
2524 , p4_a2 JTF_NUMBER_TABLE
2525 , p4_a3 JTF_VARCHAR2_TABLE_100
2526 , p4_a4 JTF_NUMBER_TABLE
2527 , p4_a5 JTF_NUMBER_TABLE
2528 , p4_a6 JTF_VARCHAR2_TABLE_100
2529 , p4_a7 JTF_NUMBER_TABLE
2530 , p4_a8 JTF_NUMBER_TABLE
2531 , p4_a9 JTF_NUMBER_TABLE
2532 , p4_a10 JTF_VARCHAR2_TABLE_100
2533 , p4_a11 JTF_NUMBER_TABLE
2534 , p4_a12 JTF_VARCHAR2_TABLE_100
2535 , p4_a13 JTF_NUMBER_TABLE
2536 , p4_a14 JTF_NUMBER_TABLE
2537 , p4_a15 JTF_VARCHAR2_TABLE_300
2538 , p4_a16 JTF_NUMBER_TABLE
2539 , p4_a17 JTF_VARCHAR2_TABLE_100
2540 , p4_a18 JTF_NUMBER_TABLE
2541 , p4_a19 JTF_NUMBER_TABLE
2542 , p4_a20 JTF_NUMBER_TABLE
2543 , p4_a21 JTF_VARCHAR2_TABLE_100
2544 , p4_a22 JTF_NUMBER_TABLE
2545 , p4_a23 JTF_VARCHAR2_TABLE_100
2546 , p4_a24 JTF_NUMBER_TABLE
2547 , p4_a25 JTF_NUMBER_TABLE
2548 , p4_a26 JTF_NUMBER_TABLE
2549 , p4_a27 JTF_VARCHAR2_TABLE_100
2550 , p4_a28 JTF_VARCHAR2_TABLE_100
2551 , p4_a29 JTF_VARCHAR2_TABLE_100
2552 , p4_a30 JTF_VARCHAR2_TABLE_4000
2553 , p4_a31 JTF_VARCHAR2_TABLE_100
2554 , p4_a32 JTF_VARCHAR2_TABLE_100
2555 , p4_a33 JTF_NUMBER_TABLE
2556 , p4_a34 JTF_DATE_TABLE
2557 , p4_a35 JTF_NUMBER_TABLE
2558 , p4_a36 JTF_DATE_TABLE
2559 , p4_a37 JTF_NUMBER_TABLE
2560 , p4_a38 JTF_NUMBER_TABLE
2561 , p4_a39 JTF_VARCHAR2_TABLE_100
2562 , p4_a40 JTF_VARCHAR2_TABLE_200
2563 , p4_a41 JTF_VARCHAR2_TABLE_200
2564 , p4_a42 JTF_VARCHAR2_TABLE_200
2565 , p4_a43 JTF_VARCHAR2_TABLE_200
2566 , p4_a44 JTF_VARCHAR2_TABLE_200
2567 , p4_a45 JTF_VARCHAR2_TABLE_200
2568 , p4_a46 JTF_VARCHAR2_TABLE_200
2569 , p4_a47 JTF_VARCHAR2_TABLE_200
2570 , p4_a48 JTF_VARCHAR2_TABLE_200
2571 , p4_a49 JTF_VARCHAR2_TABLE_200
2572 , p4_a50 JTF_VARCHAR2_TABLE_200
2573 , p4_a51 JTF_VARCHAR2_TABLE_200
2574 , p4_a52 JTF_VARCHAR2_TABLE_200
2575 , p4_a53 JTF_VARCHAR2_TABLE_200
2576 , p4_a54 JTF_VARCHAR2_TABLE_200
2577 , p4_a55 JTF_DATE_TABLE
2578 , p4_a56 JTF_DATE_TABLE
2579 , p4_a57 JTF_DATE_TABLE
2580 , p4_a58 JTF_VARCHAR2_TABLE_100
2581 , p4_a59 JTF_VARCHAR2_TABLE_100
2582 , p4_a60 JTF_NUMBER_TABLE
2583 , p4_a61 JTF_NUMBER_TABLE
2584 , p4_a62 JTF_VARCHAR2_TABLE_100
2585 , p4_a63 JTF_NUMBER_TABLE
2586 , p4_a64 JTF_VARCHAR2_TABLE_300
2587 , p4_a65 JTF_VARCHAR2_TABLE_100
2588 , p4_a66 JTF_DATE_TABLE
2589 , p4_a67 JTF_DATE_TABLE
2590 , p4_a68 JTF_VARCHAR2_TABLE_100
2591 , p4_a69 JTF_VARCHAR2_TABLE_100
2592 , p4_a70 JTF_VARCHAR2_TABLE_100
2593 , p4_a71 JTF_NUMBER_TABLE
2594 , p4_a72 JTF_VARCHAR2_TABLE_100
2595 , p4_a73 JTF_NUMBER_TABLE
2596 , p4_a74 JTF_VARCHAR2_TABLE_100
2597 , p4_a75 JTF_VARCHAR2_TABLE_100
2598 , p4_a76 JTF_VARCHAR2_TABLE_100
2599 , p4_a77 JTF_VARCHAR2_TABLE_100
2600 , p4_a78 JTF_DATE_TABLE
2601 , p4_a79 JTF_DATE_TABLE
2602 , p4_a80 JTF_NUMBER_TABLE
2603 , p4_a81 JTF_NUMBER_TABLE
2604 , p4_a82 JTF_NUMBER_TABLE
2605 , p4_a83 JTF_VARCHAR2_TABLE_100
2606 , p4_a84 JTF_VARCHAR2_TABLE_100
2607 , p4_a85 JTF_VARCHAR2_TABLE_100
2608 , p4_a86 JTF_VARCHAR2_TABLE_100
2609 , p4_a87 JTF_VARCHAR2_TABLE_100
2610 , p4_a88 JTF_VARCHAR2_TABLE_100
2611 , p4_a89 JTF_VARCHAR2_TABLE_100
2612 , p4_a90 JTF_VARCHAR2_TABLE_100
2613 , p4_a91 JTF_VARCHAR2_TABLE_100
2614 , p4_a92 JTF_VARCHAR2_TABLE_100
2615 , p4_a93 JTF_NUMBER_TABLE
2616 , p4_a94 JTF_VARCHAR2_TABLE_300
2617 , x_return_status out nocopy VARCHAR2
2618 , x_msg_count out nocopy NUMBER
2619 , x_msg_data out nocopy VARCHAR2
2620 )
2621
2622 as
2623 ddp_task_tbl_type ahl_vwp_rules_pvt.task_tbl_type;
2624 ddindx binary_integer; indx binary_integer;
2625 begin
2626
2627 -- copy data to the local IN or IN-OUT args, if any
2628
2629
2630
2631
2632 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_task_tbl_type, p4_a0
2633 , p4_a1
2634 , p4_a2
2635 , p4_a3
2636 , p4_a4
2637 , p4_a5
2638 , p4_a6
2639 , p4_a7
2640 , p4_a8
2641 , p4_a9
2642 , p4_a10
2643 , p4_a11
2644 , p4_a12
2645 , p4_a13
2646 , p4_a14
2647 , p4_a15
2648 , p4_a16
2649 , p4_a17
2650 , p4_a18
2651 , p4_a19
2652 , p4_a20
2653 , p4_a21
2654 , p4_a22
2655 , p4_a23
2656 , p4_a24
2657 , p4_a25
2658 , p4_a26
2659 , p4_a27
2660 , p4_a28
2661 , p4_a29
2662 , p4_a30
2663 , p4_a31
2664 , p4_a32
2665 , p4_a33
2666 , p4_a34
2667 , p4_a35
2668 , p4_a36
2669 , p4_a37
2670 , p4_a38
2671 , p4_a39
2672 , p4_a40
2673 , p4_a41
2674 , p4_a42
2675 , p4_a43
2676 , p4_a44
2677 , p4_a45
2678 , p4_a46
2679 , p4_a47
2680 , p4_a48
2681 , p4_a49
2682 , p4_a50
2683 , p4_a51
2684 , p4_a52
2685 , p4_a53
2686 , p4_a54
2687 , p4_a55
2688 , p4_a56
2689 , p4_a57
2690 , p4_a58
2691 , p4_a59
2692 , p4_a60
2693 , p4_a61
2694 , p4_a62
2695 , p4_a63
2696 , p4_a64
2697 , p4_a65
2698 , p4_a66
2699 , p4_a67
2700 , p4_a68
2701 , p4_a69
2702 , p4_a70
2703 , p4_a71
2704 , p4_a72
2705 , p4_a73
2706 , p4_a74
2707 , p4_a75
2708 , p4_a76
2709 , p4_a77
2710 , p4_a78
2711 , p4_a79
2712 , p4_a80
2713 , p4_a81
2714 , p4_a82
2715 , p4_a83
2716 , p4_a84
2717 , p4_a85
2718 , p4_a86
2719 , p4_a87
2720 , p4_a88
2721 , p4_a89
2722 , p4_a90
2723 , p4_a91
2724 , p4_a92
2725 , p4_a93
2726 , p4_a94
2727 );
2728
2729
2730
2731
2732 -- here's the delegated call to the old PL/SQL routine
2733 ahl_vwp_rules_pvt.remove_return_to_supply(p_api_version,
2734 p_init_msg_list,
2735 p_commit,
2736 p_validation_level,
2737 ddp_task_tbl_type,
2738 x_return_status,
2739 x_msg_count,
2740 x_msg_data);
2741
2742 -- copy data back from the local variables to OUT or IN-OUT args, if any
2743
2744
2745
2746
2747
2748
2749
2750 end;
2751
2752 procedure validate_return_to_supply(p_api_version NUMBER
2753 , p_init_msg_list VARCHAR2
2754 , p_commit VARCHAR2
2755 , p_validation_level NUMBER
2756 , p_module_type VARCHAR2
2757 , p_visit_id NUMBER
2758 , p6_a0 JTF_NUMBER_TABLE
2759 , p6_a1 JTF_NUMBER_TABLE
2760 , p6_a2 JTF_NUMBER_TABLE
2761 , p6_a3 JTF_VARCHAR2_TABLE_100
2762 , p6_a4 JTF_NUMBER_TABLE
2763 , p6_a5 JTF_NUMBER_TABLE
2764 , p6_a6 JTF_VARCHAR2_TABLE_100
2765 , p6_a7 JTF_NUMBER_TABLE
2766 , p6_a8 JTF_NUMBER_TABLE
2767 , p6_a9 JTF_NUMBER_TABLE
2768 , p6_a10 JTF_VARCHAR2_TABLE_100
2769 , p6_a11 JTF_NUMBER_TABLE
2770 , p6_a12 JTF_VARCHAR2_TABLE_100
2771 , p6_a13 JTF_NUMBER_TABLE
2772 , p6_a14 JTF_NUMBER_TABLE
2773 , p6_a15 JTF_VARCHAR2_TABLE_300
2774 , p6_a16 JTF_NUMBER_TABLE
2775 , p6_a17 JTF_VARCHAR2_TABLE_100
2776 , p6_a18 JTF_NUMBER_TABLE
2777 , p6_a19 JTF_NUMBER_TABLE
2778 , p6_a20 JTF_NUMBER_TABLE
2779 , p6_a21 JTF_VARCHAR2_TABLE_100
2780 , p6_a22 JTF_NUMBER_TABLE
2781 , p6_a23 JTF_VARCHAR2_TABLE_100
2782 , p6_a24 JTF_NUMBER_TABLE
2783 , p6_a25 JTF_NUMBER_TABLE
2784 , p6_a26 JTF_NUMBER_TABLE
2785 , p6_a27 JTF_VARCHAR2_TABLE_100
2786 , p6_a28 JTF_VARCHAR2_TABLE_100
2787 , p6_a29 JTF_VARCHAR2_TABLE_100
2788 , p6_a30 JTF_VARCHAR2_TABLE_4000
2789 , p6_a31 JTF_VARCHAR2_TABLE_100
2790 , p6_a32 JTF_VARCHAR2_TABLE_100
2791 , p6_a33 JTF_NUMBER_TABLE
2792 , p6_a34 JTF_DATE_TABLE
2793 , p6_a35 JTF_NUMBER_TABLE
2794 , p6_a36 JTF_DATE_TABLE
2795 , p6_a37 JTF_NUMBER_TABLE
2796 , p6_a38 JTF_NUMBER_TABLE
2797 , p6_a39 JTF_VARCHAR2_TABLE_100
2798 , p6_a40 JTF_VARCHAR2_TABLE_200
2799 , p6_a41 JTF_VARCHAR2_TABLE_200
2800 , p6_a42 JTF_VARCHAR2_TABLE_200
2801 , p6_a43 JTF_VARCHAR2_TABLE_200
2802 , p6_a44 JTF_VARCHAR2_TABLE_200
2803 , p6_a45 JTF_VARCHAR2_TABLE_200
2804 , p6_a46 JTF_VARCHAR2_TABLE_200
2805 , p6_a47 JTF_VARCHAR2_TABLE_200
2806 , p6_a48 JTF_VARCHAR2_TABLE_200
2807 , p6_a49 JTF_VARCHAR2_TABLE_200
2808 , p6_a50 JTF_VARCHAR2_TABLE_200
2809 , p6_a51 JTF_VARCHAR2_TABLE_200
2810 , p6_a52 JTF_VARCHAR2_TABLE_200
2811 , p6_a53 JTF_VARCHAR2_TABLE_200
2812 , p6_a54 JTF_VARCHAR2_TABLE_200
2813 , p6_a55 JTF_DATE_TABLE
2814 , p6_a56 JTF_DATE_TABLE
2815 , p6_a57 JTF_DATE_TABLE
2816 , p6_a58 JTF_VARCHAR2_TABLE_100
2817 , p6_a59 JTF_VARCHAR2_TABLE_100
2818 , p6_a60 JTF_NUMBER_TABLE
2819 , p6_a61 JTF_NUMBER_TABLE
2820 , p6_a62 JTF_VARCHAR2_TABLE_100
2821 , p6_a63 JTF_NUMBER_TABLE
2822 , p6_a64 JTF_VARCHAR2_TABLE_300
2823 , p6_a65 JTF_VARCHAR2_TABLE_100
2824 , p6_a66 JTF_DATE_TABLE
2825 , p6_a67 JTF_DATE_TABLE
2826 , p6_a68 JTF_VARCHAR2_TABLE_100
2827 , p6_a69 JTF_VARCHAR2_TABLE_100
2828 , p6_a70 JTF_VARCHAR2_TABLE_100
2829 , p6_a71 JTF_NUMBER_TABLE
2830 , p6_a72 JTF_VARCHAR2_TABLE_100
2831 , p6_a73 JTF_NUMBER_TABLE
2832 , p6_a74 JTF_VARCHAR2_TABLE_100
2833 , p6_a75 JTF_VARCHAR2_TABLE_100
2834 , p6_a76 JTF_VARCHAR2_TABLE_100
2835 , p6_a77 JTF_VARCHAR2_TABLE_100
2836 , p6_a78 JTF_DATE_TABLE
2837 , p6_a79 JTF_DATE_TABLE
2838 , p6_a80 JTF_NUMBER_TABLE
2839 , p6_a81 JTF_NUMBER_TABLE
2840 , p6_a82 JTF_NUMBER_TABLE
2841 , p6_a83 JTF_VARCHAR2_TABLE_100
2842 , p6_a84 JTF_VARCHAR2_TABLE_100
2843 , p6_a85 JTF_VARCHAR2_TABLE_100
2844 , p6_a86 JTF_VARCHAR2_TABLE_100
2845 , p6_a87 JTF_VARCHAR2_TABLE_100
2846 , p6_a88 JTF_VARCHAR2_TABLE_100
2847 , p6_a89 JTF_VARCHAR2_TABLE_100
2848 , p6_a90 JTF_VARCHAR2_TABLE_100
2849 , p6_a91 JTF_VARCHAR2_TABLE_100
2850 , p6_a92 JTF_VARCHAR2_TABLE_100
2851 , p6_a93 JTF_NUMBER_TABLE
2852 , p6_a94 JTF_VARCHAR2_TABLE_300
2853 , x_return_status out nocopy VARCHAR2
2854 , x_msg_count out nocopy NUMBER
2855 , x_msg_data out nocopy VARCHAR2
2856 )
2857
2858 as
2859 ddp_tasks_tbl ahl_vwp_rules_pvt.task_tbl_type;
2860 ddindx binary_integer; indx binary_integer;
2861 begin
2862
2863 -- copy data to the local IN or IN-OUT args, if any
2864
2865
2866
2867
2868
2869
2870 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_tasks_tbl, p6_a0
2871 , p6_a1
2872 , p6_a2
2873 , p6_a3
2874 , p6_a4
2875 , p6_a5
2876 , p6_a6
2877 , p6_a7
2878 , p6_a8
2879 , p6_a9
2880 , p6_a10
2881 , p6_a11
2882 , p6_a12
2883 , p6_a13
2884 , p6_a14
2885 , p6_a15
2886 , p6_a16
2887 , p6_a17
2888 , p6_a18
2889 , p6_a19
2890 , p6_a20
2891 , p6_a21
2892 , p6_a22
2893 , p6_a23
2894 , p6_a24
2895 , p6_a25
2896 , p6_a26
2897 , p6_a27
2898 , p6_a28
2899 , p6_a29
2900 , p6_a30
2901 , p6_a31
2902 , p6_a32
2903 , p6_a33
2904 , p6_a34
2905 , p6_a35
2906 , p6_a36
2907 , p6_a37
2908 , p6_a38
2909 , p6_a39
2910 , p6_a40
2911 , p6_a41
2912 , p6_a42
2913 , p6_a43
2914 , p6_a44
2915 , p6_a45
2916 , p6_a46
2917 , p6_a47
2918 , p6_a48
2919 , p6_a49
2920 , p6_a50
2921 , p6_a51
2922 , p6_a52
2923 , p6_a53
2924 , p6_a54
2925 , p6_a55
2926 , p6_a56
2927 , p6_a57
2928 , p6_a58
2929 , p6_a59
2930 , p6_a60
2931 , p6_a61
2932 , p6_a62
2933 , p6_a63
2934 , p6_a64
2935 , p6_a65
2936 , p6_a66
2937 , p6_a67
2938 , p6_a68
2939 , p6_a69
2940 , p6_a70
2941 , p6_a71
2942 , p6_a72
2943 , p6_a73
2944 , p6_a74
2945 , p6_a75
2946 , p6_a76
2947 , p6_a77
2948 , p6_a78
2949 , p6_a79
2950 , p6_a80
2951 , p6_a81
2952 , p6_a82
2953 , p6_a83
2954 , p6_a84
2955 , p6_a85
2956 , p6_a86
2957 , p6_a87
2958 , p6_a88
2959 , p6_a89
2960 , p6_a90
2961 , p6_a91
2962 , p6_a92
2963 , p6_a93
2964 , p6_a94
2965 );
2966
2967
2968
2969
2970 -- here's the delegated call to the old PL/SQL routine
2971 ahl_vwp_rules_pvt.validate_return_to_supply(p_api_version,
2972 p_init_msg_list,
2973 p_commit,
2974 p_validation_level,
2975 p_module_type,
2976 p_visit_id,
2977 ddp_tasks_tbl,
2978 x_return_status,
2979 x_msg_count,
2980 x_msg_data);
2981
2982 -- copy data back from the local variables to OUT or IN-OUT args, if any
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992 end;
2993
2994 procedure flag_duplicate_task(p_api_version NUMBER
2995 , p_init_msg_list VARCHAR2
2996 , p_commit VARCHAR2
2997 , p_validation_level NUMBER
2998 , p_module_type VARCHAR2
2999 , p5_a0 JTF_NUMBER_TABLE
3000 , p5_a1 JTF_NUMBER_TABLE
3001 , p5_a2 JTF_NUMBER_TABLE
3002 , p5_a3 JTF_VARCHAR2_TABLE_100
3003 , p5_a4 JTF_NUMBER_TABLE
3004 , p5_a5 JTF_NUMBER_TABLE
3005 , p5_a6 JTF_VARCHAR2_TABLE_100
3006 , p5_a7 JTF_NUMBER_TABLE
3007 , p5_a8 JTF_NUMBER_TABLE
3008 , p5_a9 JTF_NUMBER_TABLE
3009 , p5_a10 JTF_VARCHAR2_TABLE_100
3010 , p5_a11 JTF_NUMBER_TABLE
3011 , p5_a12 JTF_VARCHAR2_TABLE_100
3012 , p5_a13 JTF_NUMBER_TABLE
3013 , p5_a14 JTF_NUMBER_TABLE
3014 , p5_a15 JTF_VARCHAR2_TABLE_300
3015 , p5_a16 JTF_NUMBER_TABLE
3016 , p5_a17 JTF_VARCHAR2_TABLE_100
3017 , p5_a18 JTF_NUMBER_TABLE
3018 , p5_a19 JTF_NUMBER_TABLE
3019 , p5_a20 JTF_NUMBER_TABLE
3020 , p5_a21 JTF_VARCHAR2_TABLE_100
3021 , p5_a22 JTF_NUMBER_TABLE
3022 , p5_a23 JTF_VARCHAR2_TABLE_100
3023 , p5_a24 JTF_NUMBER_TABLE
3024 , p5_a25 JTF_NUMBER_TABLE
3025 , p5_a26 JTF_NUMBER_TABLE
3026 , p5_a27 JTF_VARCHAR2_TABLE_100
3027 , p5_a28 JTF_VARCHAR2_TABLE_100
3028 , p5_a29 JTF_VARCHAR2_TABLE_100
3029 , p5_a30 JTF_VARCHAR2_TABLE_4000
3030 , p5_a31 JTF_VARCHAR2_TABLE_100
3031 , p5_a32 JTF_VARCHAR2_TABLE_100
3032 , p5_a33 JTF_NUMBER_TABLE
3033 , p5_a34 JTF_DATE_TABLE
3034 , p5_a35 JTF_NUMBER_TABLE
3035 , p5_a36 JTF_DATE_TABLE
3036 , p5_a37 JTF_NUMBER_TABLE
3037 , p5_a38 JTF_NUMBER_TABLE
3038 , p5_a39 JTF_VARCHAR2_TABLE_100
3039 , p5_a40 JTF_VARCHAR2_TABLE_200
3040 , p5_a41 JTF_VARCHAR2_TABLE_200
3041 , p5_a42 JTF_VARCHAR2_TABLE_200
3042 , p5_a43 JTF_VARCHAR2_TABLE_200
3043 , p5_a44 JTF_VARCHAR2_TABLE_200
3044 , p5_a45 JTF_VARCHAR2_TABLE_200
3045 , p5_a46 JTF_VARCHAR2_TABLE_200
3046 , p5_a47 JTF_VARCHAR2_TABLE_200
3047 , p5_a48 JTF_VARCHAR2_TABLE_200
3048 , p5_a49 JTF_VARCHAR2_TABLE_200
3049 , p5_a50 JTF_VARCHAR2_TABLE_200
3050 , p5_a51 JTF_VARCHAR2_TABLE_200
3051 , p5_a52 JTF_VARCHAR2_TABLE_200
3052 , p5_a53 JTF_VARCHAR2_TABLE_200
3053 , p5_a54 JTF_VARCHAR2_TABLE_200
3054 , p5_a55 JTF_DATE_TABLE
3055 , p5_a56 JTF_DATE_TABLE
3056 , p5_a57 JTF_DATE_TABLE
3057 , p5_a58 JTF_VARCHAR2_TABLE_100
3058 , p5_a59 JTF_VARCHAR2_TABLE_100
3059 , p5_a60 JTF_NUMBER_TABLE
3060 , p5_a61 JTF_NUMBER_TABLE
3061 , p5_a62 JTF_VARCHAR2_TABLE_100
3062 , p5_a63 JTF_NUMBER_TABLE
3063 , p5_a64 JTF_VARCHAR2_TABLE_300
3064 , p5_a65 JTF_VARCHAR2_TABLE_100
3065 , p5_a66 JTF_DATE_TABLE
3066 , p5_a67 JTF_DATE_TABLE
3067 , p5_a68 JTF_VARCHAR2_TABLE_100
3068 , p5_a69 JTF_VARCHAR2_TABLE_100
3069 , p5_a70 JTF_VARCHAR2_TABLE_100
3070 , p5_a71 JTF_NUMBER_TABLE
3071 , p5_a72 JTF_VARCHAR2_TABLE_100
3072 , p5_a73 JTF_NUMBER_TABLE
3073 , p5_a74 JTF_VARCHAR2_TABLE_100
3074 , p5_a75 JTF_VARCHAR2_TABLE_100
3075 , p5_a76 JTF_VARCHAR2_TABLE_100
3076 , p5_a77 JTF_VARCHAR2_TABLE_100
3077 , p5_a78 JTF_DATE_TABLE
3078 , p5_a79 JTF_DATE_TABLE
3079 , p5_a80 JTF_NUMBER_TABLE
3080 , p5_a81 JTF_NUMBER_TABLE
3081 , p5_a82 JTF_NUMBER_TABLE
3082 , p5_a83 JTF_VARCHAR2_TABLE_100
3083 , p5_a84 JTF_VARCHAR2_TABLE_100
3084 , p5_a85 JTF_VARCHAR2_TABLE_100
3085 , p5_a86 JTF_VARCHAR2_TABLE_100
3086 , p5_a87 JTF_VARCHAR2_TABLE_100
3087 , p5_a88 JTF_VARCHAR2_TABLE_100
3088 , p5_a89 JTF_VARCHAR2_TABLE_100
3089 , p5_a90 JTF_VARCHAR2_TABLE_100
3090 , p5_a91 JTF_VARCHAR2_TABLE_100
3091 , p5_a92 JTF_VARCHAR2_TABLE_100
3092 , p5_a93 JTF_NUMBER_TABLE
3093 , p5_a94 JTF_VARCHAR2_TABLE_300
3094 , x_return_status out nocopy VARCHAR2
3095 , x_msg_count out nocopy NUMBER
3096 , x_msg_data out nocopy VARCHAR2
3097 )
3098
3099 as
3100 ddp_task_rec_tbl ahl_vwp_rules_pvt.task_tbl_type;
3101 ddindx binary_integer; indx binary_integer;
3102 begin
3103
3104 -- copy data to the local IN or IN-OUT args, if any
3105
3106
3107
3108
3109
3110 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_task_rec_tbl, p5_a0
3111 , p5_a1
3112 , p5_a2
3113 , p5_a3
3114 , p5_a4
3115 , p5_a5
3116 , p5_a6
3117 , p5_a7
3118 , p5_a8
3119 , p5_a9
3120 , p5_a10
3121 , p5_a11
3122 , p5_a12
3123 , p5_a13
3124 , p5_a14
3125 , p5_a15
3126 , p5_a16
3127 , p5_a17
3128 , p5_a18
3129 , p5_a19
3130 , p5_a20
3131 , p5_a21
3132 , p5_a22
3133 , p5_a23
3134 , p5_a24
3135 , p5_a25
3136 , p5_a26
3137 , p5_a27
3138 , p5_a28
3139 , p5_a29
3140 , p5_a30
3141 , p5_a31
3142 , p5_a32
3143 , p5_a33
3144 , p5_a34
3145 , p5_a35
3146 , p5_a36
3147 , p5_a37
3148 , p5_a38
3149 , p5_a39
3150 , p5_a40
3151 , p5_a41
3152 , p5_a42
3153 , p5_a43
3154 , p5_a44
3155 , p5_a45
3156 , p5_a46
3157 , p5_a47
3158 , p5_a48
3159 , p5_a49
3160 , p5_a50
3161 , p5_a51
3162 , p5_a52
3163 , p5_a53
3164 , p5_a54
3165 , p5_a55
3166 , p5_a56
3167 , p5_a57
3168 , p5_a58
3169 , p5_a59
3170 , p5_a60
3171 , p5_a61
3172 , p5_a62
3173 , p5_a63
3174 , p5_a64
3175 , p5_a65
3176 , p5_a66
3177 , p5_a67
3178 , p5_a68
3179 , p5_a69
3180 , p5_a70
3181 , p5_a71
3182 , p5_a72
3183 , p5_a73
3184 , p5_a74
3185 , p5_a75
3186 , p5_a76
3187 , p5_a77
3188 , p5_a78
3189 , p5_a79
3190 , p5_a80
3191 , p5_a81
3192 , p5_a82
3193 , p5_a83
3194 , p5_a84
3195 , p5_a85
3196 , p5_a86
3197 , p5_a87
3198 , p5_a88
3199 , p5_a89
3200 , p5_a90
3201 , p5_a91
3202 , p5_a92
3203 , p5_a93
3204 , p5_a94
3205 );
3206
3207
3208
3209
3210 -- here's the delegated call to the old PL/SQL routine
3211 ahl_vwp_rules_pvt.flag_duplicate_task(p_api_version,
3212 p_init_msg_list,
3213 p_commit,
3214 p_validation_level,
3215 p_module_type,
3216 ddp_task_rec_tbl,
3217 x_return_status,
3218 x_msg_count,
3219 x_msg_data);
3220
3221 -- copy data back from the local variables to OUT or IN-OUT args, if any
3222
3223
3224
3225
3226
3227
3228
3229
3230 end;
3231
3232 procedure remove_duplicate_task_flag(p_api_version NUMBER
3233 , p_init_msg_list VARCHAR2
3234 , p_commit VARCHAR2
3235 , p_validation_level NUMBER
3236 , p_module_type VARCHAR2
3237 , p5_a0 JTF_NUMBER_TABLE
3238 , p5_a1 JTF_NUMBER_TABLE
3239 , p5_a2 JTF_NUMBER_TABLE
3240 , p5_a3 JTF_VARCHAR2_TABLE_100
3241 , p5_a4 JTF_NUMBER_TABLE
3242 , p5_a5 JTF_NUMBER_TABLE
3243 , p5_a6 JTF_VARCHAR2_TABLE_100
3244 , p5_a7 JTF_NUMBER_TABLE
3245 , p5_a8 JTF_NUMBER_TABLE
3246 , p5_a9 JTF_NUMBER_TABLE
3247 , p5_a10 JTF_VARCHAR2_TABLE_100
3248 , p5_a11 JTF_NUMBER_TABLE
3249 , p5_a12 JTF_VARCHAR2_TABLE_100
3250 , p5_a13 JTF_NUMBER_TABLE
3251 , p5_a14 JTF_NUMBER_TABLE
3252 , p5_a15 JTF_VARCHAR2_TABLE_300
3253 , p5_a16 JTF_NUMBER_TABLE
3254 , p5_a17 JTF_VARCHAR2_TABLE_100
3255 , p5_a18 JTF_NUMBER_TABLE
3256 , p5_a19 JTF_NUMBER_TABLE
3257 , p5_a20 JTF_NUMBER_TABLE
3258 , p5_a21 JTF_VARCHAR2_TABLE_100
3259 , p5_a22 JTF_NUMBER_TABLE
3260 , p5_a23 JTF_VARCHAR2_TABLE_100
3261 , p5_a24 JTF_NUMBER_TABLE
3262 , p5_a25 JTF_NUMBER_TABLE
3263 , p5_a26 JTF_NUMBER_TABLE
3264 , p5_a27 JTF_VARCHAR2_TABLE_100
3265 , p5_a28 JTF_VARCHAR2_TABLE_100
3266 , p5_a29 JTF_VARCHAR2_TABLE_100
3267 , p5_a30 JTF_VARCHAR2_TABLE_4000
3268 , p5_a31 JTF_VARCHAR2_TABLE_100
3269 , p5_a32 JTF_VARCHAR2_TABLE_100
3270 , p5_a33 JTF_NUMBER_TABLE
3271 , p5_a34 JTF_DATE_TABLE
3272 , p5_a35 JTF_NUMBER_TABLE
3273 , p5_a36 JTF_DATE_TABLE
3274 , p5_a37 JTF_NUMBER_TABLE
3275 , p5_a38 JTF_NUMBER_TABLE
3276 , p5_a39 JTF_VARCHAR2_TABLE_100
3277 , p5_a40 JTF_VARCHAR2_TABLE_200
3278 , p5_a41 JTF_VARCHAR2_TABLE_200
3279 , p5_a42 JTF_VARCHAR2_TABLE_200
3280 , p5_a43 JTF_VARCHAR2_TABLE_200
3281 , p5_a44 JTF_VARCHAR2_TABLE_200
3282 , p5_a45 JTF_VARCHAR2_TABLE_200
3283 , p5_a46 JTF_VARCHAR2_TABLE_200
3284 , p5_a47 JTF_VARCHAR2_TABLE_200
3285 , p5_a48 JTF_VARCHAR2_TABLE_200
3286 , p5_a49 JTF_VARCHAR2_TABLE_200
3287 , p5_a50 JTF_VARCHAR2_TABLE_200
3288 , p5_a51 JTF_VARCHAR2_TABLE_200
3289 , p5_a52 JTF_VARCHAR2_TABLE_200
3290 , p5_a53 JTF_VARCHAR2_TABLE_200
3291 , p5_a54 JTF_VARCHAR2_TABLE_200
3292 , p5_a55 JTF_DATE_TABLE
3293 , p5_a56 JTF_DATE_TABLE
3294 , p5_a57 JTF_DATE_TABLE
3295 , p5_a58 JTF_VARCHAR2_TABLE_100
3296 , p5_a59 JTF_VARCHAR2_TABLE_100
3297 , p5_a60 JTF_NUMBER_TABLE
3298 , p5_a61 JTF_NUMBER_TABLE
3299 , p5_a62 JTF_VARCHAR2_TABLE_100
3300 , p5_a63 JTF_NUMBER_TABLE
3301 , p5_a64 JTF_VARCHAR2_TABLE_300
3302 , p5_a65 JTF_VARCHAR2_TABLE_100
3303 , p5_a66 JTF_DATE_TABLE
3304 , p5_a67 JTF_DATE_TABLE
3305 , p5_a68 JTF_VARCHAR2_TABLE_100
3306 , p5_a69 JTF_VARCHAR2_TABLE_100
3307 , p5_a70 JTF_VARCHAR2_TABLE_100
3308 , p5_a71 JTF_NUMBER_TABLE
3309 , p5_a72 JTF_VARCHAR2_TABLE_100
3310 , p5_a73 JTF_NUMBER_TABLE
3311 , p5_a74 JTF_VARCHAR2_TABLE_100
3312 , p5_a75 JTF_VARCHAR2_TABLE_100
3313 , p5_a76 JTF_VARCHAR2_TABLE_100
3314 , p5_a77 JTF_VARCHAR2_TABLE_100
3315 , p5_a78 JTF_DATE_TABLE
3316 , p5_a79 JTF_DATE_TABLE
3317 , p5_a80 JTF_NUMBER_TABLE
3318 , p5_a81 JTF_NUMBER_TABLE
3319 , p5_a82 JTF_NUMBER_TABLE
3320 , p5_a83 JTF_VARCHAR2_TABLE_100
3321 , p5_a84 JTF_VARCHAR2_TABLE_100
3322 , p5_a85 JTF_VARCHAR2_TABLE_100
3323 , p5_a86 JTF_VARCHAR2_TABLE_100
3324 , p5_a87 JTF_VARCHAR2_TABLE_100
3325 , p5_a88 JTF_VARCHAR2_TABLE_100
3326 , p5_a89 JTF_VARCHAR2_TABLE_100
3327 , p5_a90 JTF_VARCHAR2_TABLE_100
3328 , p5_a91 JTF_VARCHAR2_TABLE_100
3329 , p5_a92 JTF_VARCHAR2_TABLE_100
3330 , p5_a93 JTF_NUMBER_TABLE
3331 , p5_a94 JTF_VARCHAR2_TABLE_300
3332 , x_return_status out nocopy VARCHAR2
3333 , x_msg_count out nocopy NUMBER
3334 , x_msg_data out nocopy VARCHAR2
3335 )
3336
3337 as
3338 ddp_task_rec_tbl ahl_vwp_rules_pvt.task_tbl_type;
3339 ddindx binary_integer; indx binary_integer;
3340 begin
3341
3342 -- copy data to the local IN or IN-OUT args, if any
3343
3344
3345
3346
3347
3348 ahl_vwp_rules_pvt_w.rosetta_table_copy_in_p5(ddp_task_rec_tbl, p5_a0
3349 , p5_a1
3350 , p5_a2
3351 , p5_a3
3352 , p5_a4
3353 , p5_a5
3354 , p5_a6
3355 , p5_a7
3356 , p5_a8
3357 , p5_a9
3358 , p5_a10
3359 , p5_a11
3360 , p5_a12
3361 , p5_a13
3362 , p5_a14
3363 , p5_a15
3364 , p5_a16
3365 , p5_a17
3366 , p5_a18
3367 , p5_a19
3368 , p5_a20
3369 , p5_a21
3370 , p5_a22
3371 , p5_a23
3372 , p5_a24
3373 , p5_a25
3374 , p5_a26
3375 , p5_a27
3376 , p5_a28
3377 , p5_a29
3378 , p5_a30
3379 , p5_a31
3380 , p5_a32
3381 , p5_a33
3382 , p5_a34
3383 , p5_a35
3384 , p5_a36
3385 , p5_a37
3386 , p5_a38
3387 , p5_a39
3388 , p5_a40
3389 , p5_a41
3390 , p5_a42
3391 , p5_a43
3392 , p5_a44
3393 , p5_a45
3394 , p5_a46
3395 , p5_a47
3396 , p5_a48
3397 , p5_a49
3398 , p5_a50
3399 , p5_a51
3400 , p5_a52
3401 , p5_a53
3402 , p5_a54
3403 , p5_a55
3404 , p5_a56
3405 , p5_a57
3406 , p5_a58
3407 , p5_a59
3408 , p5_a60
3409 , p5_a61
3410 , p5_a62
3411 , p5_a63
3412 , p5_a64
3413 , p5_a65
3414 , p5_a66
3415 , p5_a67
3416 , p5_a68
3417 , p5_a69
3418 , p5_a70
3419 , p5_a71
3420 , p5_a72
3421 , p5_a73
3422 , p5_a74
3423 , p5_a75
3424 , p5_a76
3425 , p5_a77
3426 , p5_a78
3427 , p5_a79
3428 , p5_a80
3429 , p5_a81
3430 , p5_a82
3431 , p5_a83
3432 , p5_a84
3433 , p5_a85
3434 , p5_a86
3435 , p5_a87
3436 , p5_a88
3437 , p5_a89
3438 , p5_a90
3439 , p5_a91
3440 , p5_a92
3441 , p5_a93
3442 , p5_a94
3443 );
3444
3445
3446
3447
3448 -- here's the delegated call to the old PL/SQL routine
3449 ahl_vwp_rules_pvt.remove_duplicate_task_flag(p_api_version,
3450 p_init_msg_list,
3451 p_commit,
3452 p_validation_level,
3453 p_module_type,
3454 ddp_task_rec_tbl,
3455 x_return_status,
3456 x_msg_count,
3457 x_msg_data);
3458
3459 -- copy data back from the local variables to OUT or IN-OUT args, if any
3460
3461
3462
3463
3464
3465
3466
3467
3468 end;
3469
3470 end ahl_vwp_rules_pvt_w;