[Home] [Help]
PACKAGE BODY: APPS.AHL_COMPLETIONS_PVT_W
Source
1 package body ahl_completions_pvt_w as
2 /* $Header: AHLWPRCB.pls 120.5.12020000.2 2012/12/14 03:38:46 shnatu ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy ahl_completions_pvt.workorder_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_VARCHAR2_TABLE_100
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_DATE_TABLE
25 , a9 JTF_DATE_TABLE
26 , a10 JTF_DATE_TABLE
27 , a11 JTF_DATE_TABLE
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_NUMBER_TABLE
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_VARCHAR2_TABLE_100
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_NUMBER_TABLE
40 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count > 0 then
44 if a0.count > 0 then
45 indx := a0.first;
46 ddindx := 1;
47 while true loop
48 t(ddindx).workorder_id := a0(indx);
49 t(ddindx).object_version_number := a1(indx);
50 t(ddindx).workorder_name := a2(indx);
51 t(ddindx).master_workorder_flag := a3(indx);
52 t(ddindx).wip_entity_id := a4(indx);
53 t(ddindx).organization_id := a5(indx);
54 t(ddindx).plan_id := a6(indx);
55 t(ddindx).collection_id := a7(indx);
56 t(ddindx).scheduled_start_date := rosetta_g_miss_date_in_map(a8(indx));
57 t(ddindx).scheduled_end_date := rosetta_g_miss_date_in_map(a9(indx));
58 t(ddindx).actual_start_date := rosetta_g_miss_date_in_map(a10(indx));
59 t(ddindx).actual_end_date := rosetta_g_miss_date_in_map(a11(indx));
60 t(ddindx).status_code := a12(indx);
61 t(ddindx).status := a13(indx);
62 t(ddindx).route_id := a14(indx);
63 t(ddindx).unit_effectivity_id := a15(indx);
64 t(ddindx).ue_object_version_number := a16(indx);
65 t(ddindx).automatic_signoff_flag := a17(indx);
66 t(ddindx).item_instance_id := a18(indx);
67 t(ddindx).completion_subinventory := a19(indx);
68 t(ddindx).completion_locator_id := a20(indx);
69 t(ddindx).lot_number := a21(indx);
70 t(ddindx).serial_number := a22(indx);
71 t(ddindx).txn_quantity := a23(indx);
72 ddindx := ddindx+1;
73 if a0.last =indx
74 then exit;
75 end if;
76 indx := a0.next(indx);
77 end loop;
78 end if;
79 end if;
80 end rosetta_table_copy_in_p1;
81 procedure rosetta_table_copy_out_p1(t ahl_completions_pvt.workorder_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
82 , a1 out nocopy JTF_NUMBER_TABLE
83 , a2 out nocopy JTF_VARCHAR2_TABLE_100
84 , a3 out nocopy JTF_VARCHAR2_TABLE_100
85 , a4 out nocopy JTF_NUMBER_TABLE
86 , a5 out nocopy JTF_NUMBER_TABLE
87 , a6 out nocopy JTF_NUMBER_TABLE
88 , a7 out nocopy JTF_NUMBER_TABLE
89 , a8 out nocopy JTF_DATE_TABLE
90 , a9 out nocopy JTF_DATE_TABLE
91 , a10 out nocopy JTF_DATE_TABLE
92 , a11 out nocopy JTF_DATE_TABLE
93 , a12 out nocopy JTF_VARCHAR2_TABLE_100
94 , a13 out nocopy JTF_VARCHAR2_TABLE_100
95 , a14 out nocopy JTF_NUMBER_TABLE
96 , a15 out nocopy JTF_NUMBER_TABLE
97 , a16 out nocopy JTF_NUMBER_TABLE
98 , a17 out nocopy JTF_VARCHAR2_TABLE_100
99 , a18 out nocopy JTF_NUMBER_TABLE
100 , a19 out nocopy JTF_VARCHAR2_TABLE_100
101 , a20 out nocopy JTF_VARCHAR2_TABLE_100
102 , a21 out nocopy JTF_VARCHAR2_TABLE_100
103 , a22 out nocopy JTF_VARCHAR2_TABLE_100
104 , a23 out nocopy JTF_NUMBER_TABLE
105 ) as
106 ddindx binary_integer; indx binary_integer;
107 begin
108 if t is null or t.count = 0 then
109 a0 := JTF_NUMBER_TABLE();
110 a1 := JTF_NUMBER_TABLE();
111 a2 := JTF_VARCHAR2_TABLE_100();
112 a3 := JTF_VARCHAR2_TABLE_100();
113 a4 := JTF_NUMBER_TABLE();
114 a5 := JTF_NUMBER_TABLE();
115 a6 := JTF_NUMBER_TABLE();
116 a7 := JTF_NUMBER_TABLE();
117 a8 := JTF_DATE_TABLE();
118 a9 := JTF_DATE_TABLE();
119 a10 := JTF_DATE_TABLE();
120 a11 := JTF_DATE_TABLE();
121 a12 := JTF_VARCHAR2_TABLE_100();
122 a13 := JTF_VARCHAR2_TABLE_100();
123 a14 := JTF_NUMBER_TABLE();
124 a15 := JTF_NUMBER_TABLE();
125 a16 := JTF_NUMBER_TABLE();
126 a17 := JTF_VARCHAR2_TABLE_100();
127 a18 := JTF_NUMBER_TABLE();
128 a19 := JTF_VARCHAR2_TABLE_100();
129 a20 := JTF_VARCHAR2_TABLE_100();
130 a21 := JTF_VARCHAR2_TABLE_100();
131 a22 := JTF_VARCHAR2_TABLE_100();
132 a23 := JTF_NUMBER_TABLE();
133 else
134 a0 := JTF_NUMBER_TABLE();
135 a1 := JTF_NUMBER_TABLE();
136 a2 := JTF_VARCHAR2_TABLE_100();
137 a3 := JTF_VARCHAR2_TABLE_100();
138 a4 := JTF_NUMBER_TABLE();
139 a5 := JTF_NUMBER_TABLE();
140 a6 := JTF_NUMBER_TABLE();
141 a7 := JTF_NUMBER_TABLE();
142 a8 := JTF_DATE_TABLE();
143 a9 := JTF_DATE_TABLE();
144 a10 := JTF_DATE_TABLE();
145 a11 := JTF_DATE_TABLE();
146 a12 := JTF_VARCHAR2_TABLE_100();
147 a13 := JTF_VARCHAR2_TABLE_100();
148 a14 := JTF_NUMBER_TABLE();
149 a15 := JTF_NUMBER_TABLE();
150 a16 := JTF_NUMBER_TABLE();
151 a17 := JTF_VARCHAR2_TABLE_100();
152 a18 := JTF_NUMBER_TABLE();
153 a19 := JTF_VARCHAR2_TABLE_100();
154 a20 := JTF_VARCHAR2_TABLE_100();
155 a21 := JTF_VARCHAR2_TABLE_100();
156 a22 := JTF_VARCHAR2_TABLE_100();
157 a23 := JTF_NUMBER_TABLE();
158 if t.count > 0 then
159 a0.extend(t.count);
160 a1.extend(t.count);
161 a2.extend(t.count);
162 a3.extend(t.count);
163 a4.extend(t.count);
164 a5.extend(t.count);
165 a6.extend(t.count);
166 a7.extend(t.count);
167 a8.extend(t.count);
168 a9.extend(t.count);
169 a10.extend(t.count);
170 a11.extend(t.count);
171 a12.extend(t.count);
172 a13.extend(t.count);
173 a14.extend(t.count);
174 a15.extend(t.count);
175 a16.extend(t.count);
176 a17.extend(t.count);
177 a18.extend(t.count);
178 a19.extend(t.count);
179 a20.extend(t.count);
180 a21.extend(t.count);
181 a22.extend(t.count);
182 a23.extend(t.count);
183 ddindx := t.first;
184 indx := 1;
185 while true loop
186 a0(indx) := t(ddindx).workorder_id;
187 a1(indx) := t(ddindx).object_version_number;
188 a2(indx) := t(ddindx).workorder_name;
189 a3(indx) := t(ddindx).master_workorder_flag;
190 a4(indx) := t(ddindx).wip_entity_id;
191 a5(indx) := t(ddindx).organization_id;
192 a6(indx) := t(ddindx).plan_id;
193 a7(indx) := t(ddindx).collection_id;
194 a8(indx) := t(ddindx).scheduled_start_date;
195 a9(indx) := t(ddindx).scheduled_end_date;
196 a10(indx) := t(ddindx).actual_start_date;
197 a11(indx) := t(ddindx).actual_end_date;
198 a12(indx) := t(ddindx).status_code;
199 a13(indx) := t(ddindx).status;
200 a14(indx) := t(ddindx).route_id;
201 a15(indx) := t(ddindx).unit_effectivity_id;
202 a16(indx) := t(ddindx).ue_object_version_number;
203 a17(indx) := t(ddindx).automatic_signoff_flag;
204 a18(indx) := t(ddindx).item_instance_id;
205 a19(indx) := t(ddindx).completion_subinventory;
206 a20(indx) := t(ddindx).completion_locator_id;
207 a21(indx) := t(ddindx).lot_number;
208 a22(indx) := t(ddindx).serial_number;
209 a23(indx) := t(ddindx).txn_quantity;
210 indx := indx+1;
211 if t.last =ddindx
212 then exit;
213 end if;
214 ddindx := t.next(ddindx);
215 end loop;
216 end if;
217 end if;
218 end rosetta_table_copy_out_p1;
219
220 procedure rosetta_table_copy_in_p3(t out nocopy ahl_completions_pvt.operation_tbl_type, a0 JTF_NUMBER_TABLE
221 , a1 JTF_NUMBER_TABLE
222 , a2 JTF_NUMBER_TABLE
223 , a3 JTF_VARCHAR2_TABLE_100
224 , a4 JTF_NUMBER_TABLE
225 , a5 JTF_NUMBER_TABLE
226 , a6 JTF_NUMBER_TABLE
227 , a7 JTF_VARCHAR2_TABLE_2000
228 , a8 JTF_NUMBER_TABLE
229 , a9 JTF_NUMBER_TABLE
230 , a10 JTF_DATE_TABLE
231 , a11 JTF_DATE_TABLE
232 , a12 JTF_DATE_TABLE
233 , a13 JTF_DATE_TABLE
234 , a14 JTF_VARCHAR2_TABLE_100
235 , a15 JTF_VARCHAR2_TABLE_100
236 ) as
237 ddindx binary_integer; indx binary_integer;
238 begin
239 if a0 is not null and a0.count > 0 then
240 if a0.count > 0 then
241 indx := a0.first;
242 ddindx := 1;
243 while true loop
244 t(ddindx).workorder_operation_id := a0(indx);
245 t(ddindx).object_version_number := a1(indx);
246 t(ddindx).workorder_id := a2(indx);
247 t(ddindx).workorder_name := a3(indx);
248 t(ddindx).wip_entity_id := a4(indx);
249 t(ddindx).operation_sequence_num := a5(indx);
250 t(ddindx).organization_id := a6(indx);
251 t(ddindx).description := a7(indx);
252 t(ddindx).plan_id := a8(indx);
253 t(ddindx).collection_id := a9(indx);
254 t(ddindx).scheduled_start_date := rosetta_g_miss_date_in_map(a10(indx));
255 t(ddindx).scheduled_end_date := rosetta_g_miss_date_in_map(a11(indx));
256 t(ddindx).actual_start_date := rosetta_g_miss_date_in_map(a12(indx));
257 t(ddindx).actual_end_date := rosetta_g_miss_date_in_map(a13(indx));
258 t(ddindx).status_code := a14(indx);
259 t(ddindx).status := a15(indx);
260 ddindx := ddindx+1;
261 if a0.last =indx
262 then exit;
263 end if;
264 indx := a0.next(indx);
265 end loop;
266 end if;
267 end if;
268 end rosetta_table_copy_in_p3;
269 procedure rosetta_table_copy_out_p3(t ahl_completions_pvt.operation_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
270 , a1 out nocopy JTF_NUMBER_TABLE
271 , a2 out nocopy JTF_NUMBER_TABLE
272 , a3 out nocopy JTF_VARCHAR2_TABLE_100
273 , a4 out nocopy JTF_NUMBER_TABLE
274 , a5 out nocopy JTF_NUMBER_TABLE
275 , a6 out nocopy JTF_NUMBER_TABLE
276 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
277 , a8 out nocopy JTF_NUMBER_TABLE
278 , a9 out nocopy JTF_NUMBER_TABLE
279 , a10 out nocopy JTF_DATE_TABLE
280 , a11 out nocopy JTF_DATE_TABLE
281 , a12 out nocopy JTF_DATE_TABLE
282 , a13 out nocopy JTF_DATE_TABLE
283 , a14 out nocopy JTF_VARCHAR2_TABLE_100
284 , a15 out nocopy JTF_VARCHAR2_TABLE_100
285 ) as
286 ddindx binary_integer; indx binary_integer;
287 begin
288 if t is null or t.count = 0 then
289 a0 := JTF_NUMBER_TABLE();
290 a1 := JTF_NUMBER_TABLE();
291 a2 := JTF_NUMBER_TABLE();
292 a3 := JTF_VARCHAR2_TABLE_100();
293 a4 := JTF_NUMBER_TABLE();
294 a5 := JTF_NUMBER_TABLE();
295 a6 := JTF_NUMBER_TABLE();
296 a7 := JTF_VARCHAR2_TABLE_2000();
297 a8 := JTF_NUMBER_TABLE();
298 a9 := JTF_NUMBER_TABLE();
299 a10 := JTF_DATE_TABLE();
300 a11 := JTF_DATE_TABLE();
301 a12 := JTF_DATE_TABLE();
302 a13 := JTF_DATE_TABLE();
303 a14 := JTF_VARCHAR2_TABLE_100();
304 a15 := JTF_VARCHAR2_TABLE_100();
305 else
306 a0 := JTF_NUMBER_TABLE();
307 a1 := JTF_NUMBER_TABLE();
308 a2 := JTF_NUMBER_TABLE();
309 a3 := JTF_VARCHAR2_TABLE_100();
310 a4 := JTF_NUMBER_TABLE();
311 a5 := JTF_NUMBER_TABLE();
312 a6 := JTF_NUMBER_TABLE();
313 a7 := JTF_VARCHAR2_TABLE_2000();
314 a8 := JTF_NUMBER_TABLE();
315 a9 := JTF_NUMBER_TABLE();
316 a10 := JTF_DATE_TABLE();
317 a11 := JTF_DATE_TABLE();
318 a12 := JTF_DATE_TABLE();
319 a13 := JTF_DATE_TABLE();
320 a14 := JTF_VARCHAR2_TABLE_100();
321 a15 := JTF_VARCHAR2_TABLE_100();
322 if t.count > 0 then
323 a0.extend(t.count);
324 a1.extend(t.count);
325 a2.extend(t.count);
326 a3.extend(t.count);
327 a4.extend(t.count);
328 a5.extend(t.count);
329 a6.extend(t.count);
330 a7.extend(t.count);
331 a8.extend(t.count);
332 a9.extend(t.count);
333 a10.extend(t.count);
334 a11.extend(t.count);
335 a12.extend(t.count);
339 ddindx := t.first;
336 a13.extend(t.count);
337 a14.extend(t.count);
338 a15.extend(t.count);
340 indx := 1;
341 while true loop
342 a0(indx) := t(ddindx).workorder_operation_id;
343 a1(indx) := t(ddindx).object_version_number;
344 a2(indx) := t(ddindx).workorder_id;
345 a3(indx) := t(ddindx).workorder_name;
346 a4(indx) := t(ddindx).wip_entity_id;
347 a5(indx) := t(ddindx).operation_sequence_num;
348 a6(indx) := t(ddindx).organization_id;
349 a7(indx) := t(ddindx).description;
350 a8(indx) := t(ddindx).plan_id;
351 a9(indx) := t(ddindx).collection_id;
352 a10(indx) := t(ddindx).scheduled_start_date;
353 a11(indx) := t(ddindx).scheduled_end_date;
354 a12(indx) := t(ddindx).actual_start_date;
355 a13(indx) := t(ddindx).actual_end_date;
356 a14(indx) := t(ddindx).status_code;
357 a15(indx) := t(ddindx).status;
358 indx := indx+1;
359 if t.last =ddindx
360 then exit;
361 end if;
362 ddindx := t.next(ddindx);
363 end loop;
364 end if;
365 end if;
366 end rosetta_table_copy_out_p3;
367
368 procedure rosetta_table_copy_in_p7(t out nocopy ahl_completions_pvt.mr_tbl_type, a0 JTF_NUMBER_TABLE
369 , a1 JTF_NUMBER_TABLE
370 , a2 JTF_VARCHAR2_TABLE_100
371 , a3 JTF_VARCHAR2_TABLE_100
372 , a4 JTF_NUMBER_TABLE
373 , a5 JTF_NUMBER_TABLE
374 , a6 JTF_VARCHAR2_TABLE_100
375 , a7 JTF_VARCHAR2_TABLE_200
376 , a8 JTF_NUMBER_TABLE
377 , a9 JTF_NUMBER_TABLE
378 , a10 JTF_NUMBER_TABLE
379 , a11 JTF_DATE_TABLE
380 ) as
381 ddindx binary_integer; indx binary_integer;
382 begin
383 if a0 is not null and a0.count > 0 then
384 if a0.count > 0 then
385 indx := a0.first;
386 ddindx := 1;
387 while true loop
388 t(ddindx).unit_effectivity_id := a0(indx);
389 t(ddindx).ue_object_version_no := a1(indx);
390 t(ddindx).ue_status := a2(indx);
391 t(ddindx).ue_status_code := a3(indx);
392 t(ddindx).mr_header_id := a4(indx);
393 t(ddindx).incident_id := a5(indx);
394 t(ddindx).mr_title := a6(indx);
395 t(ddindx).qa_inspection_type := a7(indx);
396 t(ddindx).qa_plan_id := a8(indx);
397 t(ddindx).qa_collection_id := a9(indx);
398 t(ddindx).item_instance_id := a10(indx);
399 t(ddindx).actual_end_date := rosetta_g_miss_date_in_map(a11(indx));
400 ddindx := ddindx+1;
401 if a0.last =indx
402 then exit;
403 end if;
404 indx := a0.next(indx);
405 end loop;
406 end if;
407 end if;
408 end rosetta_table_copy_in_p7;
409 procedure rosetta_table_copy_out_p7(t ahl_completions_pvt.mr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
410 , a1 out nocopy JTF_NUMBER_TABLE
411 , a2 out nocopy JTF_VARCHAR2_TABLE_100
412 , a3 out nocopy JTF_VARCHAR2_TABLE_100
413 , a4 out nocopy JTF_NUMBER_TABLE
414 , a5 out nocopy JTF_NUMBER_TABLE
415 , a6 out nocopy JTF_VARCHAR2_TABLE_100
416 , a7 out nocopy JTF_VARCHAR2_TABLE_200
417 , a8 out nocopy JTF_NUMBER_TABLE
418 , a9 out nocopy JTF_NUMBER_TABLE
419 , a10 out nocopy JTF_NUMBER_TABLE
420 , a11 out nocopy JTF_DATE_TABLE
421 ) as
422 ddindx binary_integer; indx binary_integer;
423 begin
424 if t is null or t.count = 0 then
425 a0 := JTF_NUMBER_TABLE();
426 a1 := JTF_NUMBER_TABLE();
427 a2 := JTF_VARCHAR2_TABLE_100();
428 a3 := JTF_VARCHAR2_TABLE_100();
429 a4 := JTF_NUMBER_TABLE();
430 a5 := JTF_NUMBER_TABLE();
431 a6 := JTF_VARCHAR2_TABLE_100();
432 a7 := JTF_VARCHAR2_TABLE_200();
433 a8 := JTF_NUMBER_TABLE();
434 a9 := JTF_NUMBER_TABLE();
435 a10 := JTF_NUMBER_TABLE();
436 a11 := JTF_DATE_TABLE();
437 else
438 a0 := JTF_NUMBER_TABLE();
439 a1 := JTF_NUMBER_TABLE();
440 a2 := JTF_VARCHAR2_TABLE_100();
441 a3 := JTF_VARCHAR2_TABLE_100();
442 a4 := JTF_NUMBER_TABLE();
443 a5 := JTF_NUMBER_TABLE();
444 a6 := JTF_VARCHAR2_TABLE_100();
445 a7 := JTF_VARCHAR2_TABLE_200();
446 a8 := JTF_NUMBER_TABLE();
447 a9 := JTF_NUMBER_TABLE();
448 a10 := JTF_NUMBER_TABLE();
449 a11 := JTF_DATE_TABLE();
450 if t.count > 0 then
451 a0.extend(t.count);
452 a1.extend(t.count);
453 a2.extend(t.count);
454 a3.extend(t.count);
455 a4.extend(t.count);
456 a5.extend(t.count);
457 a6.extend(t.count);
458 a7.extend(t.count);
459 a8.extend(t.count);
460 a9.extend(t.count);
461 a10.extend(t.count);
462 a11.extend(t.count);
463 ddindx := t.first;
464 indx := 1;
465 while true loop
466 a0(indx) := t(ddindx).unit_effectivity_id;
467 a1(indx) := t(ddindx).ue_object_version_no;
468 a2(indx) := t(ddindx).ue_status;
469 a3(indx) := t(ddindx).ue_status_code;
470 a4(indx) := t(ddindx).mr_header_id;
471 a5(indx) := t(ddindx).incident_id;
472 a6(indx) := t(ddindx).mr_title;
473 a7(indx) := t(ddindx).qa_inspection_type;
474 a8(indx) := t(ddindx).qa_plan_id;
475 a9(indx) := t(ddindx).qa_collection_id;
476 a10(indx) := t(ddindx).item_instance_id;
477 a11(indx) := t(ddindx).actual_end_date;
478 indx := indx+1;
479 if t.last =ddindx
480 then exit;
484 end if;
481 end if;
482 ddindx := t.next(ddindx);
483 end loop;
485 end if;
486 end rosetta_table_copy_out_p7;
487
488 procedure rosetta_table_copy_in_p9(t out nocopy ahl_completions_pvt.counter_tbl_type, a0 JTF_NUMBER_TABLE
489 , a1 JTF_NUMBER_TABLE
490 , a2 JTF_NUMBER_TABLE
491 , a3 JTF_NUMBER_TABLE
492 , a4 JTF_NUMBER_TABLE
493 , a5 JTF_NUMBER_TABLE
494 , a6 JTF_VARCHAR2_TABLE_100
495 , a7 JTF_NUMBER_TABLE
496 ) as
497 ddindx binary_integer; indx binary_integer;
498 begin
499 if a0 is not null and a0.count > 0 then
500 if a0.count > 0 then
501 indx := a0.first;
502 ddindx := 1;
503 while true loop
504 t(ddindx).item_instance_id := a0(indx);
505 t(ddindx).counter_id := a1(indx);
506 t(ddindx).counter_group_id := a2(indx);
507 t(ddindx).counter_value_id := a3(indx);
508 t(ddindx).counter_reading := a4(indx);
509 t(ddindx).prev_net_curr_diff := a5(indx);
510 t(ddindx).counter_type := a6(indx);
511 t(ddindx).reset_value := a7(indx);
512 ddindx := ddindx+1;
513 if a0.last =indx
514 then exit;
515 end if;
516 indx := a0.next(indx);
517 end loop;
518 end if;
519 end if;
520 end rosetta_table_copy_in_p9;
521 procedure rosetta_table_copy_out_p9(t ahl_completions_pvt.counter_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
522 , a1 out nocopy JTF_NUMBER_TABLE
523 , a2 out nocopy JTF_NUMBER_TABLE
524 , a3 out nocopy JTF_NUMBER_TABLE
525 , a4 out nocopy JTF_NUMBER_TABLE
526 , a5 out nocopy JTF_NUMBER_TABLE
527 , a6 out nocopy JTF_VARCHAR2_TABLE_100
528 , a7 out nocopy JTF_NUMBER_TABLE
529 ) as
530 ddindx binary_integer; indx binary_integer;
531 begin
532 if t is null or t.count = 0 then
533 a0 := JTF_NUMBER_TABLE();
534 a1 := JTF_NUMBER_TABLE();
535 a2 := JTF_NUMBER_TABLE();
536 a3 := JTF_NUMBER_TABLE();
537 a4 := JTF_NUMBER_TABLE();
538 a5 := JTF_NUMBER_TABLE();
539 a6 := JTF_VARCHAR2_TABLE_100();
540 a7 := JTF_NUMBER_TABLE();
541 else
542 a0 := JTF_NUMBER_TABLE();
543 a1 := JTF_NUMBER_TABLE();
544 a2 := JTF_NUMBER_TABLE();
545 a3 := JTF_NUMBER_TABLE();
546 a4 := JTF_NUMBER_TABLE();
547 a5 := JTF_NUMBER_TABLE();
548 a6 := JTF_VARCHAR2_TABLE_100();
549 a7 := JTF_NUMBER_TABLE();
550 if t.count > 0 then
551 a0.extend(t.count);
552 a1.extend(t.count);
553 a2.extend(t.count);
554 a3.extend(t.count);
555 a4.extend(t.count);
556 a5.extend(t.count);
557 a6.extend(t.count);
558 a7.extend(t.count);
559 ddindx := t.first;
560 indx := 1;
561 while true loop
562 a0(indx) := t(ddindx).item_instance_id;
563 a1(indx) := t(ddindx).counter_id;
564 a2(indx) := t(ddindx).counter_group_id;
565 a3(indx) := t(ddindx).counter_value_id;
566 a4(indx) := t(ddindx).counter_reading;
567 a5(indx) := t(ddindx).prev_net_curr_diff;
568 a6(indx) := t(ddindx).counter_type;
569 a7(indx) := t(ddindx).reset_value;
570 indx := indx+1;
571 if t.last =ddindx
572 then exit;
573 end if;
574 ddindx := t.next(ddindx);
575 end loop;
576 end if;
577 end if;
578 end rosetta_table_copy_out_p9;
579
580 procedure rosetta_table_copy_in_p10(t out nocopy ahl_completions_pvt.route_tbl_type, a0 JTF_NUMBER_TABLE) as
581 ddindx binary_integer; indx binary_integer;
582 begin
583 if a0 is not null and a0.count > 0 then
584 if a0.count > 0 then
585 indx := a0.first;
586 ddindx := 1;
587 while true loop
588 t(ddindx) := a0(indx);
589 ddindx := ddindx+1;
590 if a0.last =indx
591 then exit;
592 end if;
593 indx := a0.next(indx);
594 end loop;
595 end if;
596 end if;
597 end rosetta_table_copy_in_p10;
598 procedure rosetta_table_copy_out_p10(t ahl_completions_pvt.route_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
599 ddindx binary_integer; indx binary_integer;
600 begin
601 if t is null or t.count = 0 then
602 a0 := JTF_NUMBER_TABLE();
603 else
604 a0 := JTF_NUMBER_TABLE();
605 if t.count > 0 then
606 a0.extend(t.count);
607 ddindx := t.first;
608 indx := 1;
609 while true loop
610 a0(indx) := t(ddindx);
611 indx := indx+1;
612 if t.last =ddindx
613 then exit;
614 end if;
615 ddindx := t.next(ddindx);
616 end loop;
617 end if;
618 end if;
619 end rosetta_table_copy_out_p10;
620
621 procedure rosetta_table_copy_in_p18(t out nocopy ahl_completions_pvt.resource_req_tbl_type, a0 JTF_NUMBER_TABLE
622 , a1 JTF_VARCHAR2_TABLE_100
623 , a2 JTF_NUMBER_TABLE
624 , a3 JTF_NUMBER_TABLE
625 , a4 JTF_NUMBER_TABLE
626 , a5 JTF_NUMBER_TABLE
627 , a6 JTF_VARCHAR2_TABLE_100
628 , a7 JTF_NUMBER_TABLE
629 , a8 JTF_NUMBER_TABLE
630 , a9 JTF_NUMBER_TABLE
631 , a10 JTF_NUMBER_TABLE
632 , a11 JTF_VARCHAR2_TABLE_100
633 , a12 JTF_NUMBER_TABLE
634 , a13 JTF_NUMBER_TABLE
635 ) as
636 ddindx binary_integer; indx binary_integer;
637 begin
638 if a0 is not null and a0.count > 0 then
642 while true loop
639 if a0.count > 0 then
640 indx := a0.first;
641 ddindx := 1;
643 t(ddindx).wip_entity_id := a0(indx);
644 t(ddindx).workorder_name := a1(indx);
645 t(ddindx).workorder_id := a2(indx);
646 t(ddindx).workorder_operation_id := a3(indx);
647 t(ddindx).operation_seq_num := a4(indx);
648 t(ddindx).resource_seq_num := a5(indx);
649 t(ddindx).resource_name := a6(indx);
650 t(ddindx).organization_id := a7(indx);
651 t(ddindx).department_id := a8(indx);
652 t(ddindx).resource_id := a9(indx);
653 t(ddindx).resource_type := a10(indx);
654 t(ddindx).uom_code := a11(indx);
655 t(ddindx).usage_rate_or_amount := a12(indx);
656 t(ddindx).transaction_quantity := a13(indx);
657 ddindx := ddindx+1;
658 if a0.last =indx
659 then exit;
660 end if;
661 indx := a0.next(indx);
662 end loop;
663 end if;
664 end if;
665 end rosetta_table_copy_in_p18;
666 procedure rosetta_table_copy_out_p18(t ahl_completions_pvt.resource_req_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
667 , a1 out nocopy JTF_VARCHAR2_TABLE_100
668 , a2 out nocopy JTF_NUMBER_TABLE
669 , a3 out nocopy JTF_NUMBER_TABLE
670 , a4 out nocopy JTF_NUMBER_TABLE
671 , a5 out nocopy JTF_NUMBER_TABLE
672 , a6 out nocopy JTF_VARCHAR2_TABLE_100
673 , a7 out nocopy JTF_NUMBER_TABLE
674 , a8 out nocopy JTF_NUMBER_TABLE
675 , a9 out nocopy JTF_NUMBER_TABLE
676 , a10 out nocopy JTF_NUMBER_TABLE
677 , a11 out nocopy JTF_VARCHAR2_TABLE_100
678 , a12 out nocopy JTF_NUMBER_TABLE
679 , a13 out nocopy JTF_NUMBER_TABLE
680 ) as
681 ddindx binary_integer; indx binary_integer;
682 begin
683 if t is null or t.count = 0 then
684 a0 := JTF_NUMBER_TABLE();
685 a1 := JTF_VARCHAR2_TABLE_100();
686 a2 := JTF_NUMBER_TABLE();
687 a3 := JTF_NUMBER_TABLE();
688 a4 := JTF_NUMBER_TABLE();
689 a5 := JTF_NUMBER_TABLE();
690 a6 := JTF_VARCHAR2_TABLE_100();
691 a7 := JTF_NUMBER_TABLE();
692 a8 := JTF_NUMBER_TABLE();
693 a9 := JTF_NUMBER_TABLE();
694 a10 := JTF_NUMBER_TABLE();
695 a11 := JTF_VARCHAR2_TABLE_100();
696 a12 := JTF_NUMBER_TABLE();
697 a13 := JTF_NUMBER_TABLE();
698 else
699 a0 := JTF_NUMBER_TABLE();
700 a1 := JTF_VARCHAR2_TABLE_100();
701 a2 := JTF_NUMBER_TABLE();
702 a3 := JTF_NUMBER_TABLE();
703 a4 := JTF_NUMBER_TABLE();
704 a5 := JTF_NUMBER_TABLE();
705 a6 := JTF_VARCHAR2_TABLE_100();
706 a7 := JTF_NUMBER_TABLE();
707 a8 := JTF_NUMBER_TABLE();
708 a9 := JTF_NUMBER_TABLE();
709 a10 := JTF_NUMBER_TABLE();
710 a11 := JTF_VARCHAR2_TABLE_100();
711 a12 := JTF_NUMBER_TABLE();
712 a13 := JTF_NUMBER_TABLE();
713 if t.count > 0 then
714 a0.extend(t.count);
715 a1.extend(t.count);
716 a2.extend(t.count);
717 a3.extend(t.count);
718 a4.extend(t.count);
719 a5.extend(t.count);
720 a6.extend(t.count);
721 a7.extend(t.count);
722 a8.extend(t.count);
723 a9.extend(t.count);
724 a10.extend(t.count);
725 a11.extend(t.count);
726 a12.extend(t.count);
727 a13.extend(t.count);
728 ddindx := t.first;
729 indx := 1;
730 while true loop
731 a0(indx) := t(ddindx).wip_entity_id;
732 a1(indx) := t(ddindx).workorder_name;
733 a2(indx) := t(ddindx).workorder_id;
734 a3(indx) := t(ddindx).workorder_operation_id;
735 a4(indx) := t(ddindx).operation_seq_num;
736 a5(indx) := t(ddindx).resource_seq_num;
737 a6(indx) := t(ddindx).resource_name;
738 a7(indx) := t(ddindx).organization_id;
739 a8(indx) := t(ddindx).department_id;
740 a9(indx) := t(ddindx).resource_id;
741 a10(indx) := t(ddindx).resource_type;
742 a11(indx) := t(ddindx).uom_code;
743 a12(indx) := t(ddindx).usage_rate_or_amount;
744 a13(indx) := t(ddindx).transaction_quantity;
745 indx := indx+1;
746 if t.last =ddindx
747 then exit;
748 end if;
749 ddindx := t.next(ddindx);
750 end loop;
751 end if;
752 end if;
753 end rosetta_table_copy_out_p18;
754
755 procedure complete_mr_instance(p_api_version NUMBER
756 , p_init_msg_list VARCHAR2
757 , p_commit VARCHAR2
758 , p_validation_level NUMBER
759 , p_default VARCHAR2
760 , p_module_type VARCHAR2
761 , x_return_status out nocopy VARCHAR2
762 , x_msg_count out nocopy NUMBER
763 , x_msg_data out nocopy VARCHAR2
764 , p9_a0 in out nocopy NUMBER
765 , p9_a1 in out nocopy NUMBER
766 , p9_a2 in out nocopy VARCHAR2
767 , p9_a3 in out nocopy VARCHAR2
768 , p9_a4 in out nocopy NUMBER
769 , p9_a5 in out nocopy NUMBER
770 , p9_a6 in out nocopy VARCHAR2
771 , p9_a7 in out nocopy VARCHAR2
772 , p9_a8 in out nocopy NUMBER
773 , p9_a9 in out nocopy NUMBER
774 , p9_a10 in out nocopy NUMBER
775 , p9_a11 in out nocopy DATE
776 )
777
778 as
779 ddp_x_mr_rec ahl_completions_pvt.mr_rec_type;
780 ddindx binary_integer; indx binary_integer;
781 begin
782
783 -- copy data to the local IN or IN-OUT args, if any
784
785
786
787
788
789
790
791
792
796 ddp_x_mr_rec.ue_status_code := p9_a3;
793 ddp_x_mr_rec.unit_effectivity_id := p9_a0;
794 ddp_x_mr_rec.ue_object_version_no := p9_a1;
795 ddp_x_mr_rec.ue_status := p9_a2;
797 ddp_x_mr_rec.mr_header_id := p9_a4;
798 ddp_x_mr_rec.incident_id := p9_a5;
799 ddp_x_mr_rec.mr_title := p9_a6;
800 ddp_x_mr_rec.qa_inspection_type := p9_a7;
801 ddp_x_mr_rec.qa_plan_id := p9_a8;
802 ddp_x_mr_rec.qa_collection_id := p9_a9;
803 ddp_x_mr_rec.item_instance_id := p9_a10;
804 ddp_x_mr_rec.actual_end_date := rosetta_g_miss_date_in_map(p9_a11);
805
806 -- here's the delegated call to the old PL/SQL routine
807 ahl_completions_pvt.complete_mr_instance(p_api_version,
808 p_init_msg_list,
809 p_commit,
810 p_validation_level,
811 p_default,
812 p_module_type,
813 x_return_status,
814 x_msg_count,
815 x_msg_data,
816 ddp_x_mr_rec);
817
818 -- copy data back from the local variables to OUT or IN-OUT args, if any
819
820
821
822
823
824
825
826
827
828 p9_a0 := ddp_x_mr_rec.unit_effectivity_id;
829 p9_a1 := ddp_x_mr_rec.ue_object_version_no;
830 p9_a2 := ddp_x_mr_rec.ue_status;
831 p9_a3 := ddp_x_mr_rec.ue_status_code;
832 p9_a4 := ddp_x_mr_rec.mr_header_id;
833 p9_a5 := ddp_x_mr_rec.incident_id;
834 p9_a6 := ddp_x_mr_rec.mr_title;
835 p9_a7 := ddp_x_mr_rec.qa_inspection_type;
836 p9_a8 := ddp_x_mr_rec.qa_plan_id;
837 p9_a9 := ddp_x_mr_rec.qa_collection_id;
838 p9_a10 := ddp_x_mr_rec.item_instance_id;
839 p9_a11 := ddp_x_mr_rec.actual_end_date;
840 end;
841
842 procedure signoff_mr_instance(p_api_version NUMBER
843 , p_init_msg_list VARCHAR2
844 , p_commit VARCHAR2
845 , p_validation_level NUMBER
846 , p_default VARCHAR2
847 , p_module_type VARCHAR2
848 , x_return_status out nocopy VARCHAR2
849 , x_msg_count out nocopy NUMBER
850 , x_msg_data out nocopy VARCHAR2
851 , p9_a0 NUMBER
852 , p9_a1 NUMBER
853 , p9_a2 VARCHAR2
854 , p9_a3 VARCHAR2
855 , p9_a4 VARCHAR2
856 , p9_a5 DATE
857 , p9_a6 DATE
858 , p9_a7 VARCHAR2
859 , p9_a8 VARCHAR2
860 , p9_a9 VARCHAR2
861 , p9_a10 VARCHAR2
862 , p9_a11 VARCHAR2
863 )
864
865 as
866 ddp_signoff_mr_rec ahl_completions_pvt.signoff_mr_rec_type;
867 ddindx binary_integer; indx binary_integer;
868 begin
869
870 -- copy data to the local IN or IN-OUT args, if any
871
872
873
874
875
876
877
878
879
883 ddp_signoff_mr_rec.complete_job_ops_flag := p9_a3;
880 ddp_signoff_mr_rec.unit_effectivity_id := p9_a0;
881 ddp_signoff_mr_rec.object_version_number := p9_a1;
882 ddp_signoff_mr_rec.signoff_child_mrs_flag := p9_a2;
884 ddp_signoff_mr_rec.default_actual_dates_flag := p9_a4;
885 ddp_signoff_mr_rec.actual_start_date := rosetta_g_miss_date_in_map(p9_a5);
886 ddp_signoff_mr_rec.actual_end_date := rosetta_g_miss_date_in_map(p9_a6);
887 ddp_signoff_mr_rec.wo_comp_dates_flag := p9_a7;
888 ddp_signoff_mr_rec.wo_childmr_dates_flag := p9_a8;
889 ddp_signoff_mr_rec.transact_resource_flag := p9_a9;
890 ddp_signoff_mr_rec.employee_number := p9_a10;
891 ddp_signoff_mr_rec.serial_number := p9_a11;
892
893 -- here's the delegated call to the old PL/SQL routine
894 ahl_completions_pvt.signoff_mr_instance(p_api_version,
895 p_init_msg_list,
896 p_commit,
897 p_validation_level,
898 p_default,
899 p_module_type,
900 x_return_status,
901 x_msg_count,
902 x_msg_data,
906
903 ddp_signoff_mr_rec);
904
905 -- copy data back from the local variables to OUT or IN-OUT args, if any
907
908
909
910
911
912
913
914
915 end;
916
917 procedure close_visit(p_api_version NUMBER
918 , p_init_msg_list VARCHAR2
919 , p_commit VARCHAR2
920 , p_validation_level NUMBER
921 , p_default VARCHAR2
922 , p_module_type VARCHAR2
923 , x_return_status out nocopy VARCHAR2
924 , x_msg_count out nocopy NUMBER
925 , x_msg_data out nocopy VARCHAR2
926 , p9_a0 NUMBER
927 , p9_a1 NUMBER
928 , p9_a2 VARCHAR2
929 , p9_a3 VARCHAR2
930 , p9_a4 VARCHAR2
931 , p9_a5 DATE
932 , p9_a6 DATE
933 , p9_a7 VARCHAR2
934 , p9_a8 VARCHAR2
935 , p9_a9 VARCHAR2
936 , p9_a10 VARCHAR2
937 , p9_a11 VARCHAR2
938 , p9_a12 VARCHAR2
939 )
940
941 as
942 ddp_close_visit_rec ahl_completions_pvt.close_visit_rec_type;
943 ddindx binary_integer; indx binary_integer;
944 begin
945
946 -- copy data to the local IN or IN-OUT args, if any
947
948
949
950
951
952
953
954
955
956 ddp_close_visit_rec.visit_id := p9_a0;
957 ddp_close_visit_rec.object_version_number := p9_a1;
958 ddp_close_visit_rec.signoff_mrs_flag := p9_a2;
959 ddp_close_visit_rec.complete_job_ops_flag := p9_a3;
960 ddp_close_visit_rec.default_actual_dates_flag := p9_a4;
961 ddp_close_visit_rec.actual_start_date := rosetta_g_miss_date_in_map(p9_a5);
962 ddp_close_visit_rec.actual_end_date := rosetta_g_miss_date_in_map(p9_a6);
963 ddp_close_visit_rec.wo_comp_dates_flag := p9_a7;
964 ddp_close_visit_rec.wo_childmr_dates_flag := p9_a8;
965 ddp_close_visit_rec.transact_resource_flag := p9_a9;
966 ddp_close_visit_rec.employee_number := p9_a10;
967 ddp_close_visit_rec.serial_number := p9_a11;
968 ddp_close_visit_rec.check_unit_complete_flag := p9_a12;
969
970 -- here's the delegated call to the old PL/SQL routine
971 ahl_completions_pvt.close_visit(p_api_version,
972 p_init_msg_list,
973 p_commit,
974 p_validation_level,
975 p_default,
976 p_module_type,
977 x_return_status,
978 x_msg_count,
979 x_msg_data,
980 ddp_close_visit_rec);
981
982 -- copy data back from the local variables to OUT or IN-OUT args, if any
983
984
985
986
987
988
989
990
991
992 end;
993
994 procedure get_default_op_actual_dates(x_return_status out nocopy VARCHAR2
995 , x_msg_count out nocopy NUMBER
996 , x_msg_data out nocopy VARCHAR2
997 , p3_a0 in out nocopy JTF_NUMBER_TABLE
998 , p3_a1 in out nocopy JTF_NUMBER_TABLE
999 , p3_a2 in out nocopy JTF_NUMBER_TABLE
1000 , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1001 , p3_a4 in out nocopy JTF_NUMBER_TABLE
1002 , p3_a5 in out nocopy JTF_NUMBER_TABLE
1003 , p3_a6 in out nocopy JTF_NUMBER_TABLE
1004 , p3_a7 in out nocopy JTF_VARCHAR2_TABLE_2000
1005 , p3_a8 in out nocopy JTF_NUMBER_TABLE
1006 , p3_a9 in out nocopy JTF_NUMBER_TABLE
1007 , p3_a10 in out nocopy JTF_DATE_TABLE
1008 , p3_a11 in out nocopy JTF_DATE_TABLE
1009 , p3_a12 in out nocopy JTF_DATE_TABLE
1010 , p3_a13 in out nocopy JTF_DATE_TABLE
1011 , p3_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1012 , p3_a15 in out nocopy JTF_VARCHAR2_TABLE_100
1013 )
1014
1015 as
1016 ddp_x_operation_tbl ahl_completions_pvt.operation_tbl_type;
1017 ddindx binary_integer; indx binary_integer;
1018 begin
1019
1020 -- copy data to the local IN or IN-OUT args, if any
1021
1022
1023
1024 ahl_completions_pvt_w.rosetta_table_copy_in_p3(ddp_x_operation_tbl, p3_a0
1025 , p3_a1
1026 , p3_a2
1027 , p3_a3
1028 , p3_a4
1029 , p3_a5
1030 , p3_a6
1031 , p3_a7
1032 , p3_a8
1033 , p3_a9
1034 , p3_a10
1035 , p3_a11
1036 , p3_a12
1037 , p3_a13
1038 , p3_a14
1039 , p3_a15
1040 );
1041
1042 -- here's the delegated call to the old PL/SQL routine
1043 ahl_completions_pvt.get_default_op_actual_dates(x_return_status,
1044 x_msg_count,
1045 x_msg_data,
1046 ddp_x_operation_tbl);
1047
1048 -- copy data back from the local variables to OUT or IN-OUT args, if any
1049
1050
1051
1052 ahl_completions_pvt_w.rosetta_table_copy_out_p3(ddp_x_operation_tbl, p3_a0
1053 , p3_a1
1054 , p3_a2
1055 , p3_a3
1056 , p3_a4
1057 , p3_a5
1058 , p3_a6
1059 , p3_a7
1060 , p3_a8
1061 , p3_a9
1062 , p3_a10
1063 , p3_a11
1064 , p3_a12
1065 , p3_a13
1066 , p3_a14
1067 , p3_a15
1068 );
1069 end;
1070
1071 procedure get_op_actual_dates(x_return_status out nocopy VARCHAR2
1072 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1073 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1074 , p1_a2 in out nocopy JTF_NUMBER_TABLE
1075 , p1_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1076 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1077 , p1_a5 in out nocopy JTF_NUMBER_TABLE
1078 , p1_a6 in out nocopy JTF_NUMBER_TABLE
1079 , p1_a7 in out nocopy JTF_VARCHAR2_TABLE_2000
1080 , p1_a8 in out nocopy JTF_NUMBER_TABLE
1081 , p1_a9 in out nocopy JTF_NUMBER_TABLE
1082 , p1_a10 in out nocopy JTF_DATE_TABLE
1086 , p1_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1083 , p1_a11 in out nocopy JTF_DATE_TABLE
1084 , p1_a12 in out nocopy JTF_DATE_TABLE
1085 , p1_a13 in out nocopy JTF_DATE_TABLE
1087 , p1_a15 in out nocopy JTF_VARCHAR2_TABLE_100
1088 )
1089
1090 as
1091 ddp_x_operation_tbl ahl_completions_pvt.operation_tbl_type;
1092 ddindx binary_integer; indx binary_integer;
1093 begin
1094
1095 -- copy data to the local IN or IN-OUT args, if any
1096
1097 ahl_completions_pvt_w.rosetta_table_copy_in_p3(ddp_x_operation_tbl, p1_a0
1098 , p1_a1
1099 , p1_a2
1100 , p1_a3
1101 , p1_a4
1102 , p1_a5
1103 , p1_a6
1104 , p1_a7
1105 , p1_a8
1106 , p1_a9
1107 , p1_a10
1108 , p1_a11
1109 , p1_a12
1110 , p1_a13
1111 , p1_a14
1112 , p1_a15
1113 );
1114
1115 -- here's the delegated call to the old PL/SQL routine
1116 ahl_completions_pvt.get_op_actual_dates(x_return_status,
1117 ddp_x_operation_tbl);
1118
1119 -- copy data back from the local variables to OUT or IN-OUT args, if any
1120
1121 ahl_completions_pvt_w.rosetta_table_copy_out_p3(ddp_x_operation_tbl, p1_a0
1122 , p1_a1
1123 , p1_a2
1124 , p1_a3
1125 , p1_a4
1126 , p1_a5
1127 , p1_a6
1128 , p1_a7
1129 , p1_a8
1130 , p1_a9
1131 , p1_a10
1132 , p1_a11
1133 , p1_a12
1134 , p1_a13
1135 , p1_a14
1136 , p1_a15
1137 );
1138 end;
1139
1140 function is_signoff_date_overlapping(p_actual_start_date date
1141 , p_actual_end_date date
1142 , p_unit_effectivity_id NUMBER
1143 , p_visit_id NUMBER
1144 ) return varchar2
1145
1146 as
1147 ddp_actual_start_date date;
1148 ddp_actual_end_date date;
1149 ddindx binary_integer; indx binary_integer;
1150 ddrosetta_retval varchar2(4000);
1151 begin
1152
1153 -- copy data to the local IN or IN-OUT args, if any
1154 ddp_actual_start_date := rosetta_g_miss_date_in_map(p_actual_start_date);
1155
1156 ddp_actual_end_date := rosetta_g_miss_date_in_map(p_actual_end_date);
1157
1158
1159
1160 -- here's the delegated call to the old PL/SQL routine
1161 ddrosetta_retval := ahl_completions_pvt.is_signoff_date_overlapping(ddp_actual_start_date,
1162 ddp_actual_end_date,
1163 p_unit_effectivity_id,
1164 p_visit_id);
1165
1166 -- copy data back from the local variables to OUT or IN-OUT args, if any
1167
1168
1169
1170
1171 return ddrosetta_retval;
1172 end;
1173
1174 function get_reset_counters(p_mr_header_id NUMBER
1175 , p_item_instance_id NUMBER
1176 , p_actual_date date
1177 , p3_a0 out nocopy JTF_NUMBER_TABLE
1178 , p3_a1 out nocopy JTF_NUMBER_TABLE
1179 , p3_a2 out nocopy JTF_NUMBER_TABLE
1180 , p3_a3 out nocopy JTF_NUMBER_TABLE
1181 , p3_a4 out nocopy JTF_NUMBER_TABLE
1182 , p3_a5 out nocopy JTF_NUMBER_TABLE
1183 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_100
1184 , p3_a7 out nocopy JTF_NUMBER_TABLE
1185 ) return varchar2
1186
1187 as
1188 ddp_actual_date date;
1189 ddx_counter_tbl ahl_completions_pvt.counter_tbl_type;
1190 ddindx binary_integer; indx binary_integer;
1191 ddrosetta_retval varchar2(4000);
1192 begin
1193
1194 -- copy data to the local IN or IN-OUT args, if any
1195
1196
1197 ddp_actual_date := rosetta_g_miss_date_in_map(p_actual_date);
1198
1199
1200 -- here's the delegated call to the old PL/SQL routine
1201 ddrosetta_retval := ahl_completions_pvt.get_reset_counters(p_mr_header_id,
1202 p_item_instance_id,
1203 ddp_actual_date,
1204 ddx_counter_tbl);
1205
1206 -- copy data back from the local variables to OUT or IN-OUT args, if any
1207
1208
1209
1210 ahl_completions_pvt_w.rosetta_table_copy_out_p9(ddx_counter_tbl, p3_a0
1211 , p3_a1
1212 , p3_a2
1213 , p3_a3
1214 , p3_a4
1215 , p3_a5
1216 , p3_a6
1217 , p3_a7
1218 );
1219
1220 return ddrosetta_retval;
1221 end;
1222
1223 function reset_counters(p0_a0 NUMBER
1224 , p0_a1 NUMBER
1225 , p0_a2 VARCHAR2
1226 , p0_a3 VARCHAR2
1227 , p0_a4 NUMBER
1228 , p0_a5 NUMBER
1229 , p0_a6 VARCHAR2
1230 , p0_a7 VARCHAR2
1231 , p0_a8 NUMBER
1232 , p0_a9 NUMBER
1233 , p0_a10 NUMBER
1234 , p0_a11 DATE
1235 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1236 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1237 , p1_a2 in out nocopy JTF_NUMBER_TABLE
1238 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1239 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1240 , p1_a5 in out nocopy JTF_NUMBER_TABLE
1241 , p1_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1242 , p1_a7 in out nocopy JTF_NUMBER_TABLE
1243 , p_actual_end_date date
1244 , x_msg_count out nocopy VARCHAR2
1245 , x_msg_data out nocopy VARCHAR2
1246 ) return varchar2
1247
1248 as
1249 ddp_mr_rec ahl_completions_pvt.mr_rec_type;
1250 ddp_x_counter_tbl ahl_completions_pvt.counter_tbl_type;
1251 ddp_actual_end_date date;
1252 ddindx binary_integer; indx binary_integer;
1253 ddrosetta_retval varchar2(4000);
1254 begin
1255
1256 -- copy data to the local IN or IN-OUT args, if any
1257 ddp_mr_rec.unit_effectivity_id := p0_a0;
1258 ddp_mr_rec.ue_object_version_no := p0_a1;
1259 ddp_mr_rec.ue_status := p0_a2;
1263 ddp_mr_rec.mr_title := p0_a6;
1260 ddp_mr_rec.ue_status_code := p0_a3;
1261 ddp_mr_rec.mr_header_id := p0_a4;
1262 ddp_mr_rec.incident_id := p0_a5;
1264 ddp_mr_rec.qa_inspection_type := p0_a7;
1265 ddp_mr_rec.qa_plan_id := p0_a8;
1266 ddp_mr_rec.qa_collection_id := p0_a9;
1267 ddp_mr_rec.item_instance_id := p0_a10;
1268 ddp_mr_rec.actual_end_date := rosetta_g_miss_date_in_map(p0_a11);
1269
1270 ahl_completions_pvt_w.rosetta_table_copy_in_p9(ddp_x_counter_tbl, p1_a0
1271 , p1_a1
1272 , p1_a2
1273 , p1_a3
1274 , p1_a4
1275 , p1_a5
1276 , p1_a6
1277 , p1_a7
1278 );
1279
1280 ddp_actual_end_date := rosetta_g_miss_date_in_map(p_actual_end_date);
1281
1282
1283
1284 -- here's the delegated call to the old PL/SQL routine
1285 ddrosetta_retval := ahl_completions_pvt.reset_counters(ddp_mr_rec,
1286 ddp_x_counter_tbl,
1287 ddp_actual_end_date,
1288 x_msg_count,
1289 x_msg_data);
1290
1294 , p1_a1
1291 -- copy data back from the local variables to OUT or IN-OUT args, if any
1292
1293 ahl_completions_pvt_w.rosetta_table_copy_out_p9(ddp_x_counter_tbl, p1_a0
1295 , p1_a2
1296 , p1_a3
1297 , p1_a4
1298 , p1_a5
1299 , p1_a6
1300 , p1_a7
1301 );
1302
1303
1304
1305
1306 return ddrosetta_retval;
1307 end;
1308
1309 function get_cp_counters(p_item_instance_id NUMBER
1310 , p_wip_entity_id NUMBER
1311 , p_actual_date date
1312 , p3_a0 out nocopy JTF_NUMBER_TABLE
1313 , p3_a1 out nocopy JTF_NUMBER_TABLE
1314 , p3_a2 out nocopy JTF_NUMBER_TABLE
1315 , p3_a3 out nocopy JTF_NUMBER_TABLE
1316 , p3_a4 out nocopy JTF_NUMBER_TABLE
1317 , p3_a5 out nocopy JTF_NUMBER_TABLE
1318 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_100
1319 , p3_a7 out nocopy JTF_NUMBER_TABLE
1320 ) return varchar2
1321
1322 as
1323 ddp_actual_date date;
1324 ddx_counter_tbl ahl_completions_pvt.counter_tbl_type;
1325 ddindx binary_integer; indx binary_integer;
1326 ddrosetta_retval varchar2(4000);
1327 begin
1328
1329 -- copy data to the local IN or IN-OUT args, if any
1330
1331
1332 ddp_actual_date := rosetta_g_miss_date_in_map(p_actual_date);
1333
1334
1335 -- here's the delegated call to the old PL/SQL routine
1336 ddrosetta_retval := ahl_completions_pvt.get_cp_counters(p_item_instance_id,
1337 p_wip_entity_id,
1338 ddp_actual_date,
1339 ddx_counter_tbl);
1340
1341 -- copy data back from the local variables to OUT or IN-OUT args, if any
1342
1343
1344
1345 ahl_completions_pvt_w.rosetta_table_copy_out_p9(ddx_counter_tbl, p3_a0
1346 , p3_a1
1347 , p3_a2
1348 , p3_a3
1349 , p3_a4
1350 , p3_a5
1351 , p3_a6
1352 , p3_a7
1353 );
1354
1355 return ddrosetta_retval;
1356 end;
1357
1358 function update_ump(p_unit_effectivity_id NUMBER
1359 , p_ue_object_version NUMBER
1360 , p_actual_end_date date
1361 , p3_a0 JTF_NUMBER_TABLE
1362 , p3_a1 JTF_NUMBER_TABLE
1363 , p3_a2 JTF_NUMBER_TABLE
1364 , p3_a3 JTF_NUMBER_TABLE
1365 , p3_a4 JTF_NUMBER_TABLE
1366 , p3_a5 JTF_NUMBER_TABLE
1367 , p3_a6 JTF_VARCHAR2_TABLE_100
1368 , p3_a7 JTF_NUMBER_TABLE
1369 , p_dml_flag VARCHAR2
1370 , x_msg_count out nocopy VARCHAR2
1371 , x_msg_data out nocopy VARCHAR2
1372 ) return varchar2
1373
1374 as
1375 ddp_actual_end_date date;
1376 ddp_counter_tbl ahl_completions_pvt.counter_tbl_type;
1377 ddindx binary_integer; indx binary_integer;
1378 ddrosetta_retval varchar2(4000);
1379 begin
1380
1381 -- copy data to the local IN or IN-OUT args, if any
1382
1383
1384 ddp_actual_end_date := rosetta_g_miss_date_in_map(p_actual_end_date);
1385
1386 ahl_completions_pvt_w.rosetta_table_copy_in_p9(ddp_counter_tbl, p3_a0
1387 , p3_a1
1388 , p3_a2
1389 , p3_a3
1390 , p3_a4
1391 , p3_a5
1392 , p3_a6
1393 , p3_a7
1394 );
1395
1396
1397
1398
1399 -- here's the delegated call to the old PL/SQL routine
1400 ddrosetta_retval := ahl_completions_pvt.update_ump(p_unit_effectivity_id,
1401 p_ue_object_version,
1402 ddp_actual_end_date,
1403 ddp_counter_tbl,
1404 p_dml_flag,
1405 x_msg_count,
1406 x_msg_data);
1407
1408 -- copy data back from the local variables to OUT or IN-OUT args, if any
1409
1410
1411
1415
1412
1413
1414
1416 return ddrosetta_retval;
1417 end;
1418
1419 end ahl_completions_pvt_w;