[Home] [Help]
PACKAGE BODY: APPS.AHL_COMPLETIONS_PVT_W
Source
1 package body ahl_completions_pvt_w as
2 /* $Header: AHLWPRCB.pls 120.1 2005/07/04 10:48 rroy noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_completions_pvt.workorder_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_100
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_NUMBER_TABLE
27 ) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if a0 is not null and a0.count > 0 then
31 if a0.count > 0 then
32 indx := a0.first;
33 ddindx := 1;
34 while true loop
35 t(ddindx).workorder_id := a0(indx);
36 t(ddindx).object_version_number := a1(indx);
37 t(ddindx).workorder_name := a2(indx);
38 t(ddindx).master_workorder_flag := a3(indx);
39 t(ddindx).wip_entity_id := a4(indx);
40 t(ddindx).organization_id := a5(indx);
41 t(ddindx).plan_id := a6(indx);
42 t(ddindx).collection_id := a7(indx);
43 t(ddindx).scheduled_start_date := a8(indx);
44 t(ddindx).scheduled_end_date := a9(indx);
45 t(ddindx).actual_start_date := a10(indx);
46 t(ddindx).actual_end_date := a11(indx);
47 t(ddindx).status_code := a12(indx);
48 t(ddindx).status := a13(indx);
49 t(ddindx).route_id := a14(indx);
50 t(ddindx).unit_effectivity_id := a15(indx);
51 t(ddindx).ue_object_version_number := a16(indx);
52 t(ddindx).automatic_signoff_flag := a17(indx);
53 t(ddindx).item_instance_id := a18(indx);
54 t(ddindx).completion_subinventory := a19(indx);
55 t(ddindx).completion_locator_id := a20(indx);
56 t(ddindx).lot_number := a21(indx);
57 t(ddindx).serial_number := a22(indx);
58 t(ddindx).txn_quantity := a23(indx);
59 ddindx := ddindx+1;
60 if a0.last =indx
61 then exit;
62 end if;
63 indx := a0.next(indx);
64 end loop;
65 end if;
66 end if;
67 end rosetta_table_copy_in_p1;
68 procedure rosetta_table_copy_out_p1(t ahl_completions_pvt.workorder_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
69 , a1 out nocopy JTF_NUMBER_TABLE
70 , a2 out nocopy JTF_VARCHAR2_TABLE_100
71 , a3 out nocopy JTF_VARCHAR2_TABLE_100
72 , a4 out nocopy JTF_NUMBER_TABLE
73 , a5 out nocopy JTF_NUMBER_TABLE
74 , a6 out nocopy JTF_NUMBER_TABLE
75 , a7 out nocopy JTF_NUMBER_TABLE
76 , a8 out nocopy JTF_DATE_TABLE
77 , a9 out nocopy JTF_DATE_TABLE
78 , a10 out nocopy JTF_DATE_TABLE
79 , a11 out nocopy JTF_DATE_TABLE
80 , a12 out nocopy JTF_VARCHAR2_TABLE_100
81 , a13 out nocopy JTF_VARCHAR2_TABLE_100
82 , a14 out nocopy JTF_NUMBER_TABLE
83 , a15 out nocopy JTF_NUMBER_TABLE
84 , a16 out nocopy JTF_NUMBER_TABLE
85 , a17 out nocopy JTF_VARCHAR2_TABLE_100
86 , a18 out nocopy JTF_NUMBER_TABLE
87 , a19 out nocopy JTF_VARCHAR2_TABLE_100
88 , a20 out nocopy JTF_VARCHAR2_TABLE_100
89 , a21 out nocopy JTF_VARCHAR2_TABLE_100
90 , a22 out nocopy JTF_VARCHAR2_TABLE_100
91 , a23 out nocopy JTF_NUMBER_TABLE
92 ) as
93 ddindx binary_integer; indx binary_integer;
94 begin
95 if t is null or t.count = 0 then
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_NUMBER_TABLE();
98 a2 := JTF_VARCHAR2_TABLE_100();
99 a3 := JTF_VARCHAR2_TABLE_100();
100 a4 := JTF_NUMBER_TABLE();
101 a5 := JTF_NUMBER_TABLE();
102 a6 := JTF_NUMBER_TABLE();
103 a7 := JTF_NUMBER_TABLE();
104 a8 := JTF_DATE_TABLE();
105 a9 := JTF_DATE_TABLE();
106 a10 := JTF_DATE_TABLE();
107 a11 := JTF_DATE_TABLE();
108 a12 := JTF_VARCHAR2_TABLE_100();
109 a13 := JTF_VARCHAR2_TABLE_100();
110 a14 := JTF_NUMBER_TABLE();
111 a15 := JTF_NUMBER_TABLE();
112 a16 := JTF_NUMBER_TABLE();
113 a17 := JTF_VARCHAR2_TABLE_100();
114 a18 := JTF_NUMBER_TABLE();
115 a19 := JTF_VARCHAR2_TABLE_100();
116 a20 := JTF_VARCHAR2_TABLE_100();
117 a21 := JTF_VARCHAR2_TABLE_100();
118 a22 := JTF_VARCHAR2_TABLE_100();
119 a23 := JTF_NUMBER_TABLE();
120 else
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_NUMBER_TABLE();
123 a2 := JTF_VARCHAR2_TABLE_100();
124 a3 := JTF_VARCHAR2_TABLE_100();
125 a4 := JTF_NUMBER_TABLE();
126 a5 := JTF_NUMBER_TABLE();
127 a6 := JTF_NUMBER_TABLE();
128 a7 := JTF_NUMBER_TABLE();
129 a8 := JTF_DATE_TABLE();
130 a9 := JTF_DATE_TABLE();
131 a10 := JTF_DATE_TABLE();
132 a11 := JTF_DATE_TABLE();
133 a12 := JTF_VARCHAR2_TABLE_100();
134 a13 := JTF_VARCHAR2_TABLE_100();
135 a14 := JTF_NUMBER_TABLE();
136 a15 := JTF_NUMBER_TABLE();
137 a16 := JTF_NUMBER_TABLE();
138 a17 := JTF_VARCHAR2_TABLE_100();
139 a18 := JTF_NUMBER_TABLE();
140 a19 := JTF_VARCHAR2_TABLE_100();
141 a20 := JTF_VARCHAR2_TABLE_100();
142 a21 := JTF_VARCHAR2_TABLE_100();
143 a22 := JTF_VARCHAR2_TABLE_100();
144 a23 := JTF_NUMBER_TABLE();
145 if t.count > 0 then
146 a0.extend(t.count);
147 a1.extend(t.count);
148 a2.extend(t.count);
149 a3.extend(t.count);
150 a4.extend(t.count);
151 a5.extend(t.count);
152 a6.extend(t.count);
153 a7.extend(t.count);
154 a8.extend(t.count);
155 a9.extend(t.count);
156 a10.extend(t.count);
157 a11.extend(t.count);
158 a12.extend(t.count);
159 a13.extend(t.count);
160 a14.extend(t.count);
161 a15.extend(t.count);
162 a16.extend(t.count);
163 a17.extend(t.count);
164 a18.extend(t.count);
165 a19.extend(t.count);
166 a20.extend(t.count);
167 a21.extend(t.count);
168 a22.extend(t.count);
169 a23.extend(t.count);
170 ddindx := t.first;
171 indx := 1;
172 while true loop
173 a0(indx) := t(ddindx).workorder_id;
174 a1(indx) := t(ddindx).object_version_number;
175 a2(indx) := t(ddindx).workorder_name;
176 a3(indx) := t(ddindx).master_workorder_flag;
177 a4(indx) := t(ddindx).wip_entity_id;
178 a5(indx) := t(ddindx).organization_id;
179 a6(indx) := t(ddindx).plan_id;
180 a7(indx) := t(ddindx).collection_id;
181 a8(indx) := t(ddindx).scheduled_start_date;
182 a9(indx) := t(ddindx).scheduled_end_date;
183 a10(indx) := t(ddindx).actual_start_date;
184 a11(indx) := t(ddindx).actual_end_date;
185 a12(indx) := t(ddindx).status_code;
186 a13(indx) := t(ddindx).status;
187 a14(indx) := t(ddindx).route_id;
188 a15(indx) := t(ddindx).unit_effectivity_id;
189 a16(indx) := t(ddindx).ue_object_version_number;
190 a17(indx) := t(ddindx).automatic_signoff_flag;
191 a18(indx) := t(ddindx).item_instance_id;
192 a19(indx) := t(ddindx).completion_subinventory;
193 a20(indx) := t(ddindx).completion_locator_id;
194 a21(indx) := t(ddindx).lot_number;
195 a22(indx) := t(ddindx).serial_number;
196 a23(indx) := t(ddindx).txn_quantity;
197 indx := indx+1;
198 if t.last =ddindx
199 then exit;
200 end if;
201 ddindx := t.next(ddindx);
202 end loop;
203 end if;
204 end if;
205 end rosetta_table_copy_out_p1;
206
207 procedure rosetta_table_copy_in_p3(t out nocopy ahl_completions_pvt.operation_tbl_type, a0 JTF_NUMBER_TABLE
208 , a1 JTF_NUMBER_TABLE
209 , a2 JTF_NUMBER_TABLE
210 , a3 JTF_VARCHAR2_TABLE_100
211 , a4 JTF_NUMBER_TABLE
212 , a5 JTF_NUMBER_TABLE
213 , a6 JTF_NUMBER_TABLE
214 , a7 JTF_VARCHAR2_TABLE_2000
215 , a8 JTF_NUMBER_TABLE
216 , a9 JTF_NUMBER_TABLE
217 , a10 JTF_DATE_TABLE
218 , a11 JTF_DATE_TABLE
219 , a12 JTF_DATE_TABLE
220 , a13 JTF_DATE_TABLE
221 , a14 JTF_VARCHAR2_TABLE_100
222 , a15 JTF_VARCHAR2_TABLE_100
223 ) as
224 ddindx binary_integer; indx binary_integer;
225 begin
226 if a0 is not null and a0.count > 0 then
227 if a0.count > 0 then
228 indx := a0.first;
229 ddindx := 1;
230 while true loop
231 t(ddindx).workorder_operation_id := a0(indx);
232 t(ddindx).object_version_number := a1(indx);
233 t(ddindx).workorder_id := a2(indx);
234 t(ddindx).workorder_name := a3(indx);
235 t(ddindx).wip_entity_id := a4(indx);
236 t(ddindx).operation_sequence_num := a5(indx);
237 t(ddindx).organization_id := a6(indx);
238 t(ddindx).description := a7(indx);
239 t(ddindx).plan_id := a8(indx);
240 t(ddindx).collection_id := a9(indx);
241 t(ddindx).scheduled_start_date := a10(indx);
242 t(ddindx).scheduled_end_date := a11(indx);
243 t(ddindx).actual_start_date := a12(indx);
244 t(ddindx).actual_end_date := a13(indx);
245 t(ddindx).status_code := a14(indx);
246 t(ddindx).status := a15(indx);
247 ddindx := ddindx+1;
248 if a0.last =indx
249 then exit;
250 end if;
251 indx := a0.next(indx);
252 end loop;
253 end if;
254 end if;
255 end rosetta_table_copy_in_p3;
256 procedure rosetta_table_copy_out_p3(t ahl_completions_pvt.operation_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
257 , a1 out nocopy JTF_NUMBER_TABLE
258 , a2 out nocopy JTF_NUMBER_TABLE
259 , a3 out nocopy JTF_VARCHAR2_TABLE_100
260 , a4 out nocopy JTF_NUMBER_TABLE
261 , a5 out nocopy JTF_NUMBER_TABLE
262 , a6 out nocopy JTF_NUMBER_TABLE
263 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
264 , a8 out nocopy JTF_NUMBER_TABLE
265 , a9 out nocopy JTF_NUMBER_TABLE
266 , a10 out nocopy JTF_DATE_TABLE
267 , a11 out nocopy JTF_DATE_TABLE
268 , a12 out nocopy JTF_DATE_TABLE
269 , a13 out nocopy JTF_DATE_TABLE
270 , a14 out nocopy JTF_VARCHAR2_TABLE_100
271 , a15 out nocopy JTF_VARCHAR2_TABLE_100
272 ) as
273 ddindx binary_integer; indx binary_integer;
274 begin
275 if t is null or t.count = 0 then
276 a0 := JTF_NUMBER_TABLE();
277 a1 := JTF_NUMBER_TABLE();
278 a2 := JTF_NUMBER_TABLE();
279 a3 := JTF_VARCHAR2_TABLE_100();
280 a4 := JTF_NUMBER_TABLE();
281 a5 := JTF_NUMBER_TABLE();
282 a6 := JTF_NUMBER_TABLE();
283 a7 := JTF_VARCHAR2_TABLE_2000();
284 a8 := JTF_NUMBER_TABLE();
285 a9 := JTF_NUMBER_TABLE();
286 a10 := JTF_DATE_TABLE();
287 a11 := JTF_DATE_TABLE();
288 a12 := JTF_DATE_TABLE();
289 a13 := JTF_DATE_TABLE();
290 a14 := JTF_VARCHAR2_TABLE_100();
291 a15 := JTF_VARCHAR2_TABLE_100();
292 else
293 a0 := JTF_NUMBER_TABLE();
294 a1 := JTF_NUMBER_TABLE();
295 a2 := JTF_NUMBER_TABLE();
296 a3 := JTF_VARCHAR2_TABLE_100();
297 a4 := JTF_NUMBER_TABLE();
298 a5 := JTF_NUMBER_TABLE();
299 a6 := JTF_NUMBER_TABLE();
300 a7 := JTF_VARCHAR2_TABLE_2000();
301 a8 := JTF_NUMBER_TABLE();
302 a9 := JTF_NUMBER_TABLE();
303 a10 := JTF_DATE_TABLE();
304 a11 := JTF_DATE_TABLE();
305 a12 := JTF_DATE_TABLE();
306 a13 := JTF_DATE_TABLE();
307 a14 := JTF_VARCHAR2_TABLE_100();
308 a15 := JTF_VARCHAR2_TABLE_100();
309 if t.count > 0 then
310 a0.extend(t.count);
311 a1.extend(t.count);
312 a2.extend(t.count);
313 a3.extend(t.count);
314 a4.extend(t.count);
315 a5.extend(t.count);
316 a6.extend(t.count);
317 a7.extend(t.count);
318 a8.extend(t.count);
319 a9.extend(t.count);
320 a10.extend(t.count);
321 a11.extend(t.count);
322 a12.extend(t.count);
323 a13.extend(t.count);
324 a14.extend(t.count);
325 a15.extend(t.count);
326 ddindx := t.first;
327 indx := 1;
328 while true loop
329 a0(indx) := t(ddindx).workorder_operation_id;
330 a1(indx) := t(ddindx).object_version_number;
331 a2(indx) := t(ddindx).workorder_id;
332 a3(indx) := t(ddindx).workorder_name;
333 a4(indx) := t(ddindx).wip_entity_id;
334 a5(indx) := t(ddindx).operation_sequence_num;
335 a6(indx) := t(ddindx).organization_id;
336 a7(indx) := t(ddindx).description;
337 a8(indx) := t(ddindx).plan_id;
338 a9(indx) := t(ddindx).collection_id;
339 a10(indx) := t(ddindx).scheduled_start_date;
340 a11(indx) := t(ddindx).scheduled_end_date;
341 a12(indx) := t(ddindx).actual_start_date;
342 a13(indx) := t(ddindx).actual_end_date;
343 a14(indx) := t(ddindx).status_code;
344 a15(indx) := t(ddindx).status;
345 indx := indx+1;
346 if t.last =ddindx
347 then exit;
348 end if;
349 ddindx := t.next(ddindx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_out_p3;
354
355 procedure rosetta_table_copy_in_p7(t out nocopy ahl_completions_pvt.mr_tbl_type, a0 JTF_NUMBER_TABLE
356 , a1 JTF_NUMBER_TABLE
357 , a2 JTF_VARCHAR2_TABLE_100
358 , a3 JTF_VARCHAR2_TABLE_100
359 , a4 JTF_NUMBER_TABLE
360 , a5 JTF_NUMBER_TABLE
361 , a6 JTF_VARCHAR2_TABLE_100
362 , a7 JTF_VARCHAR2_TABLE_200
363 , a8 JTF_NUMBER_TABLE
364 , a9 JTF_NUMBER_TABLE
365 , a10 JTF_NUMBER_TABLE
366 , a11 JTF_DATE_TABLE
367 ) as
368 ddindx binary_integer; indx binary_integer;
369 begin
370 if a0 is not null and a0.count > 0 then
371 if a0.count > 0 then
372 indx := a0.first;
373 ddindx := 1;
374 while true loop
375 t(ddindx).unit_effectivity_id := a0(indx);
376 t(ddindx).ue_object_version_no := a1(indx);
377 t(ddindx).ue_status := a2(indx);
378 t(ddindx).ue_status_code := a3(indx);
379 t(ddindx).mr_header_id := a4(indx);
380 t(ddindx).incident_id := a5(indx);
381 t(ddindx).mr_title := a6(indx);
382 t(ddindx).qa_inspection_type := a7(indx);
383 t(ddindx).qa_plan_id := a8(indx);
384 t(ddindx).qa_collection_id := a9(indx);
385 t(ddindx).item_instance_id := a10(indx);
386 t(ddindx).actual_end_date := a11(indx);
387 ddindx := ddindx+1;
388 if a0.last =indx
389 then exit;
390 end if;
391 indx := a0.next(indx);
392 end loop;
393 end if;
394 end if;
395 end rosetta_table_copy_in_p7;
396 procedure rosetta_table_copy_out_p7(t ahl_completions_pvt.mr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
397 , a1 out nocopy JTF_NUMBER_TABLE
398 , a2 out nocopy JTF_VARCHAR2_TABLE_100
399 , a3 out nocopy JTF_VARCHAR2_TABLE_100
400 , a4 out nocopy JTF_NUMBER_TABLE
401 , a5 out nocopy JTF_NUMBER_TABLE
402 , a6 out nocopy JTF_VARCHAR2_TABLE_100
403 , a7 out nocopy JTF_VARCHAR2_TABLE_200
404 , a8 out nocopy JTF_NUMBER_TABLE
405 , a9 out nocopy JTF_NUMBER_TABLE
406 , a10 out nocopy JTF_NUMBER_TABLE
407 , a11 out nocopy JTF_DATE_TABLE
408 ) as
409 ddindx binary_integer; indx binary_integer;
410 begin
411 if t is null or t.count = 0 then
412 a0 := JTF_NUMBER_TABLE();
413 a1 := JTF_NUMBER_TABLE();
414 a2 := JTF_VARCHAR2_TABLE_100();
415 a3 := JTF_VARCHAR2_TABLE_100();
416 a4 := JTF_NUMBER_TABLE();
417 a5 := JTF_NUMBER_TABLE();
418 a6 := JTF_VARCHAR2_TABLE_100();
419 a7 := JTF_VARCHAR2_TABLE_200();
420 a8 := JTF_NUMBER_TABLE();
421 a9 := JTF_NUMBER_TABLE();
422 a10 := JTF_NUMBER_TABLE();
423 a11 := JTF_DATE_TABLE();
424 else
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 if t.count > 0 then
438 a0.extend(t.count);
439 a1.extend(t.count);
440 a2.extend(t.count);
441 a3.extend(t.count);
442 a4.extend(t.count);
443 a5.extend(t.count);
444 a6.extend(t.count);
445 a7.extend(t.count);
446 a8.extend(t.count);
447 a9.extend(t.count);
448 a10.extend(t.count);
449 a11.extend(t.count);
450 ddindx := t.first;
451 indx := 1;
452 while true loop
453 a0(indx) := t(ddindx).unit_effectivity_id;
454 a1(indx) := t(ddindx).ue_object_version_no;
455 a2(indx) := t(ddindx).ue_status;
456 a3(indx) := t(ddindx).ue_status_code;
457 a4(indx) := t(ddindx).mr_header_id;
458 a5(indx) := t(ddindx).incident_id;
459 a6(indx) := t(ddindx).mr_title;
460 a7(indx) := t(ddindx).qa_inspection_type;
461 a8(indx) := t(ddindx).qa_plan_id;
462 a9(indx) := t(ddindx).qa_collection_id;
463 a10(indx) := t(ddindx).item_instance_id;
464 a11(indx) := t(ddindx).actual_end_date;
465 indx := indx+1;
466 if t.last =ddindx
467 then exit;
468 end if;
469 ddindx := t.next(ddindx);
470 end loop;
471 end if;
472 end if;
473 end rosetta_table_copy_out_p7;
474
475 procedure rosetta_table_copy_in_p9(t out nocopy ahl_completions_pvt.counter_tbl_type, a0 JTF_NUMBER_TABLE
476 , a1 JTF_NUMBER_TABLE
477 , a2 JTF_NUMBER_TABLE
478 , a3 JTF_NUMBER_TABLE
479 , a4 JTF_NUMBER_TABLE
480 , a5 JTF_NUMBER_TABLE
481 , a6 JTF_VARCHAR2_TABLE_100
482 , a7 JTF_NUMBER_TABLE
483 ) as
484 ddindx binary_integer; indx binary_integer;
485 begin
486 if a0 is not null and a0.count > 0 then
487 if a0.count > 0 then
488 indx := a0.first;
489 ddindx := 1;
490 while true loop
491 t(ddindx).item_instance_id := a0(indx);
492 t(ddindx).counter_id := a1(indx);
493 t(ddindx).counter_group_id := a2(indx);
494 t(ddindx).counter_value_id := a3(indx);
495 t(ddindx).counter_reading := a4(indx);
496 t(ddindx).prev_net_curr_diff := a5(indx);
497 t(ddindx).counter_type := a6(indx);
498 t(ddindx).reset_value := a7(indx);
499 ddindx := ddindx+1;
500 if a0.last =indx
501 then exit;
502 end if;
503 indx := a0.next(indx);
504 end loop;
505 end if;
506 end if;
507 end rosetta_table_copy_in_p9;
508 procedure rosetta_table_copy_out_p9(t ahl_completions_pvt.counter_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
509 , a1 out nocopy JTF_NUMBER_TABLE
510 , a2 out nocopy JTF_NUMBER_TABLE
511 , a3 out nocopy JTF_NUMBER_TABLE
512 , a4 out nocopy JTF_NUMBER_TABLE
513 , a5 out nocopy JTF_NUMBER_TABLE
514 , a6 out nocopy JTF_VARCHAR2_TABLE_100
515 , a7 out nocopy JTF_NUMBER_TABLE
516 ) as
517 ddindx binary_integer; indx binary_integer;
518 begin
519 if t is null or t.count = 0 then
520 a0 := JTF_NUMBER_TABLE();
521 a1 := JTF_NUMBER_TABLE();
522 a2 := JTF_NUMBER_TABLE();
523 a3 := JTF_NUMBER_TABLE();
524 a4 := JTF_NUMBER_TABLE();
525 a5 := JTF_NUMBER_TABLE();
526 a6 := JTF_VARCHAR2_TABLE_100();
527 a7 := JTF_NUMBER_TABLE();
528 else
529 a0 := JTF_NUMBER_TABLE();
530 a1 := JTF_NUMBER_TABLE();
531 a2 := JTF_NUMBER_TABLE();
532 a3 := JTF_NUMBER_TABLE();
533 a4 := JTF_NUMBER_TABLE();
534 a5 := JTF_NUMBER_TABLE();
535 a6 := JTF_VARCHAR2_TABLE_100();
536 a7 := JTF_NUMBER_TABLE();
537 if t.count > 0 then
538 a0.extend(t.count);
539 a1.extend(t.count);
540 a2.extend(t.count);
541 a3.extend(t.count);
542 a4.extend(t.count);
543 a5.extend(t.count);
544 a6.extend(t.count);
545 a7.extend(t.count);
546 ddindx := t.first;
547 indx := 1;
548 while true loop
549 a0(indx) := t(ddindx).item_instance_id;
550 a1(indx) := t(ddindx).counter_id;
551 a2(indx) := t(ddindx).counter_group_id;
552 a3(indx) := t(ddindx).counter_value_id;
553 a4(indx) := t(ddindx).counter_reading;
554 a5(indx) := t(ddindx).prev_net_curr_diff;
555 a6(indx) := t(ddindx).counter_type;
556 a7(indx) := t(ddindx).reset_value;
557 indx := indx+1;
558 if t.last =ddindx
559 then exit;
560 end if;
561 ddindx := t.next(ddindx);
562 end loop;
563 end if;
564 end if;
565 end rosetta_table_copy_out_p9;
566
567 procedure rosetta_table_copy_in_p10(t out nocopy ahl_completions_pvt.route_tbl_type, a0 JTF_NUMBER_TABLE) as
568 ddindx binary_integer; indx binary_integer;
569 begin
570 if a0 is not null and a0.count > 0 then
571 if a0.count > 0 then
572 indx := a0.first;
573 ddindx := 1;
574 while true loop
575 t(ddindx) := a0(indx);
576 ddindx := ddindx+1;
577 if a0.last =indx
578 then exit;
579 end if;
580 indx := a0.next(indx);
581 end loop;
582 end if;
583 end if;
584 end rosetta_table_copy_in_p10;
585 procedure rosetta_table_copy_out_p10(t ahl_completions_pvt.route_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
586 ddindx binary_integer; indx binary_integer;
587 begin
588 if t is null or t.count = 0 then
589 a0 := JTF_NUMBER_TABLE();
590 else
591 a0 := JTF_NUMBER_TABLE();
592 if t.count > 0 then
593 a0.extend(t.count);
594 ddindx := t.first;
595 indx := 1;
596 while true loop
597 a0(indx) := t(ddindx);
598 indx := indx+1;
599 if t.last =ddindx
600 then exit;
601 end if;
602 ddindx := t.next(ddindx);
603 end loop;
604 end if;
605 end if;
606 end rosetta_table_copy_out_p10;
607
608 procedure rosetta_table_copy_in_p18(t out nocopy ahl_completions_pvt.resource_req_tbl_type, a0 JTF_NUMBER_TABLE
609 , a1 JTF_VARCHAR2_TABLE_100
610 , a2 JTF_NUMBER_TABLE
611 , a3 JTF_NUMBER_TABLE
612 , a4 JTF_NUMBER_TABLE
613 , a5 JTF_NUMBER_TABLE
614 , a6 JTF_NUMBER_TABLE
615 , a7 JTF_NUMBER_TABLE
616 , a8 JTF_VARCHAR2_TABLE_100
617 , a9 JTF_NUMBER_TABLE
618 , a10 JTF_NUMBER_TABLE
619 ) as
620 ddindx binary_integer; indx binary_integer;
621 begin
622 if a0 is not null and a0.count > 0 then
623 if a0.count > 0 then
624 indx := a0.first;
625 ddindx := 1;
626 while true loop
627 t(ddindx).wip_entity_id := a0(indx);
628 t(ddindx).workorder_name := a1(indx);
629 t(ddindx).operation_seq_num := a2(indx);
630 t(ddindx).resource_seq_num := a3(indx);
631 t(ddindx).organization_id := a4(indx);
632 t(ddindx).department_id := a5(indx);
633 t(ddindx).resource_id := a6(indx);
634 t(ddindx).resource_type := a7(indx);
635 t(ddindx).uom_code := a8(indx);
636 t(ddindx).usage_rate_or_amount := a9(indx);
637 t(ddindx).transaction_quantity := a10(indx);
638 ddindx := ddindx+1;
639 if a0.last =indx
640 then exit;
641 end if;
642 indx := a0.next(indx);
643 end loop;
644 end if;
645 end if;
646 end rosetta_table_copy_in_p18;
647 procedure rosetta_table_copy_out_p18(t ahl_completions_pvt.resource_req_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
648 , a1 out nocopy JTF_VARCHAR2_TABLE_100
649 , a2 out nocopy JTF_NUMBER_TABLE
650 , a3 out nocopy JTF_NUMBER_TABLE
651 , a4 out nocopy JTF_NUMBER_TABLE
652 , a5 out nocopy JTF_NUMBER_TABLE
653 , a6 out nocopy JTF_NUMBER_TABLE
654 , a7 out nocopy JTF_NUMBER_TABLE
655 , a8 out nocopy JTF_VARCHAR2_TABLE_100
656 , a9 out nocopy JTF_NUMBER_TABLE
657 , a10 out nocopy JTF_NUMBER_TABLE
658 ) as
659 ddindx binary_integer; indx binary_integer;
660 begin
661 if t is null or t.count = 0 then
662 a0 := JTF_NUMBER_TABLE();
663 a1 := JTF_VARCHAR2_TABLE_100();
664 a2 := JTF_NUMBER_TABLE();
665 a3 := JTF_NUMBER_TABLE();
666 a4 := JTF_NUMBER_TABLE();
667 a5 := JTF_NUMBER_TABLE();
668 a6 := JTF_NUMBER_TABLE();
669 a7 := JTF_NUMBER_TABLE();
670 a8 := JTF_VARCHAR2_TABLE_100();
671 a9 := JTF_NUMBER_TABLE();
672 a10 := JTF_NUMBER_TABLE();
673 else
674 a0 := JTF_NUMBER_TABLE();
675 a1 := JTF_VARCHAR2_TABLE_100();
676 a2 := JTF_NUMBER_TABLE();
677 a3 := JTF_NUMBER_TABLE();
678 a4 := JTF_NUMBER_TABLE();
679 a5 := JTF_NUMBER_TABLE();
680 a6 := JTF_NUMBER_TABLE();
681 a7 := JTF_NUMBER_TABLE();
682 a8 := JTF_VARCHAR2_TABLE_100();
683 a9 := JTF_NUMBER_TABLE();
684 a10 := JTF_NUMBER_TABLE();
685 if t.count > 0 then
686 a0.extend(t.count);
687 a1.extend(t.count);
688 a2.extend(t.count);
689 a3.extend(t.count);
690 a4.extend(t.count);
691 a5.extend(t.count);
692 a6.extend(t.count);
693 a7.extend(t.count);
694 a8.extend(t.count);
695 a9.extend(t.count);
696 a10.extend(t.count);
697 ddindx := t.first;
698 indx := 1;
699 while true loop
700 a0(indx) := t(ddindx).wip_entity_id;
701 a1(indx) := t(ddindx).workorder_name;
702 a2(indx) := t(ddindx).operation_seq_num;
703 a3(indx) := t(ddindx).resource_seq_num;
704 a4(indx) := t(ddindx).organization_id;
705 a5(indx) := t(ddindx).department_id;
706 a6(indx) := t(ddindx).resource_id;
707 a7(indx) := t(ddindx).resource_type;
708 a8(indx) := t(ddindx).uom_code;
709 a9(indx) := t(ddindx).usage_rate_or_amount;
710 a10(indx) := t(ddindx).transaction_quantity;
711 indx := indx+1;
712 if t.last =ddindx
713 then exit;
714 end if;
715 ddindx := t.next(ddindx);
716 end loop;
717 end if;
718 end if;
719 end rosetta_table_copy_out_p18;
720
721 procedure complete_mr_instance(p_api_version NUMBER
722 , p_init_msg_list VARCHAR2
723 , p_commit VARCHAR2
724 , p_validation_level NUMBER
725 , p_default VARCHAR2
726 , p_module_type VARCHAR2
727 , x_return_status out nocopy VARCHAR2
728 , x_msg_count out nocopy NUMBER
729 , x_msg_data out nocopy VARCHAR2
730 , p9_a0 in out nocopy NUMBER
731 , p9_a1 in out nocopy NUMBER
732 , p9_a2 in out nocopy VARCHAR2
733 , p9_a3 in out nocopy VARCHAR2
734 , p9_a4 in out nocopy NUMBER
735 , p9_a5 in out nocopy NUMBER
736 , p9_a6 in out nocopy VARCHAR2
737 , p9_a7 in out nocopy VARCHAR2
738 , p9_a8 in out nocopy NUMBER
739 , p9_a9 in out nocopy NUMBER
740 , p9_a10 in out nocopy NUMBER
741 , p9_a11 in out nocopy DATE
742 )
743
744 as
745 ddp_x_mr_rec ahl_completions_pvt.mr_rec_type;
746 ddindx binary_integer; indx binary_integer;
747 begin
748
749 -- copy data to the local IN or IN-OUT args, if any
750
751
752
753
754
755
756
757
758
759 ddp_x_mr_rec.unit_effectivity_id := p9_a0;
760 ddp_x_mr_rec.ue_object_version_no := p9_a1;
761 ddp_x_mr_rec.ue_status := p9_a2;
762 ddp_x_mr_rec.ue_status_code := p9_a3;
763 ddp_x_mr_rec.mr_header_id := p9_a4;
764 ddp_x_mr_rec.incident_id := p9_a5;
765 ddp_x_mr_rec.mr_title := p9_a6;
766 ddp_x_mr_rec.qa_inspection_type := p9_a7;
767 ddp_x_mr_rec.qa_plan_id := p9_a8;
768 ddp_x_mr_rec.qa_collection_id := p9_a9;
769 ddp_x_mr_rec.item_instance_id := p9_a10;
770 ddp_x_mr_rec.actual_end_date := p9_a11;
771
772 -- here's the delegated call to the old PL/SQL routine
773 ahl_completions_pvt.complete_mr_instance(p_api_version,
774 p_init_msg_list,
775 p_commit,
776 p_validation_level,
777 p_default,
778 p_module_type,
779 x_return_status,
780 x_msg_count,
781 x_msg_data,
782 ddp_x_mr_rec);
783
784 -- copy data back from the local variables to OUT or IN-OUT args, if any
785
786
787
788
789
790
791
792
793
794 p9_a0 := ddp_x_mr_rec.unit_effectivity_id;
795 p9_a1 := ddp_x_mr_rec.ue_object_version_no;
796 p9_a2 := ddp_x_mr_rec.ue_status;
797 p9_a3 := ddp_x_mr_rec.ue_status_code;
798 p9_a4 := ddp_x_mr_rec.mr_header_id;
799 p9_a5 := ddp_x_mr_rec.incident_id;
800 p9_a6 := ddp_x_mr_rec.mr_title;
801 p9_a7 := ddp_x_mr_rec.qa_inspection_type;
802 p9_a8 := ddp_x_mr_rec.qa_plan_id;
803 p9_a9 := ddp_x_mr_rec.qa_collection_id;
804 p9_a10 := ddp_x_mr_rec.item_instance_id;
805 p9_a11 := ddp_x_mr_rec.actual_end_date;
806 end;
807
808 procedure signoff_mr_instance(p_api_version NUMBER
809 , p_init_msg_list VARCHAR2
810 , p_commit VARCHAR2
811 , p_validation_level NUMBER
812 , p_default VARCHAR2
813 , p_module_type VARCHAR2
814 , x_return_status out nocopy VARCHAR2
815 , x_msg_count out nocopy NUMBER
816 , x_msg_data out nocopy VARCHAR2
817 , p9_a0 NUMBER
818 , p9_a1 NUMBER
819 , p9_a2 VARCHAR2
820 , p9_a3 VARCHAR2
821 , p9_a4 VARCHAR2
822 , p9_a5 DATE
823 , p9_a6 DATE
824 , p9_a7 VARCHAR2
825 , p9_a8 VARCHAR2
826 , p9_a9 VARCHAR2
827 )
828
829 as
830 ddp_signoff_mr_rec ahl_completions_pvt.signoff_mr_rec_type;
831 ddindx binary_integer; indx binary_integer;
832 begin
833
834 -- copy data to the local IN or IN-OUT args, if any
835
836
837
838
839
840
841
842
843
844 ddp_signoff_mr_rec.unit_effectivity_id := p9_a0;
845 ddp_signoff_mr_rec.object_version_number := p9_a1;
846 ddp_signoff_mr_rec.signoff_child_mrs_flag := p9_a2;
847 ddp_signoff_mr_rec.complete_job_ops_flag := p9_a3;
848 ddp_signoff_mr_rec.default_actual_dates_flag := p9_a4;
849 ddp_signoff_mr_rec.actual_start_date := p9_a5;
850 ddp_signoff_mr_rec.actual_end_date := p9_a6;
851 ddp_signoff_mr_rec.transact_resource_flag := p9_a7;
852 ddp_signoff_mr_rec.employee_number := p9_a8;
853 ddp_signoff_mr_rec.serial_number := p9_a9;
854
855 -- here's the delegated call to the old PL/SQL routine
856 ahl_completions_pvt.signoff_mr_instance(p_api_version,
857 p_init_msg_list,
858 p_commit,
859 p_validation_level,
860 p_default,
861 p_module_type,
862 x_return_status,
863 x_msg_count,
864 x_msg_data,
865 ddp_signoff_mr_rec);
866
867 -- copy data back from the local variables to OUT or IN-OUT args, if any
868
869
870
871
872
873
874
875
876
877 end;
878
879 procedure close_visit(p_api_version NUMBER
880 , p_init_msg_list VARCHAR2
881 , p_commit VARCHAR2
882 , p_validation_level NUMBER
883 , p_default VARCHAR2
884 , p_module_type VARCHAR2
885 , x_return_status out nocopy VARCHAR2
886 , x_msg_count out nocopy NUMBER
887 , x_msg_data out nocopy VARCHAR2
888 , p9_a0 NUMBER
889 , p9_a1 NUMBER
890 , p9_a2 VARCHAR2
891 , p9_a3 VARCHAR2
892 , p9_a4 VARCHAR2
893 , p9_a5 DATE
894 , p9_a6 DATE
895 , p9_a7 VARCHAR2
896 , p9_a8 VARCHAR2
897 , p9_a9 VARCHAR2
898 )
899
900 as
901 ddp_close_visit_rec ahl_completions_pvt.close_visit_rec_type;
902 ddindx binary_integer; indx binary_integer;
903 begin
904
905 -- copy data to the local IN or IN-OUT args, if any
906
907
908
909
910
911
912
913
914
915 ddp_close_visit_rec.visit_id := p9_a0;
916 ddp_close_visit_rec.object_version_number := p9_a1;
917 ddp_close_visit_rec.signoff_mrs_flag := p9_a2;
918 ddp_close_visit_rec.complete_job_ops_flag := p9_a3;
919 ddp_close_visit_rec.default_actual_dates_flag := p9_a4;
920 ddp_close_visit_rec.actual_start_date := p9_a5;
921 ddp_close_visit_rec.actual_end_date := p9_a6;
922 ddp_close_visit_rec.transact_resource_flag := p9_a7;
923 ddp_close_visit_rec.employee_number := p9_a8;
924 ddp_close_visit_rec.serial_number := p9_a9;
925
926 -- here's the delegated call to the old PL/SQL routine
927 ahl_completions_pvt.close_visit(p_api_version,
928 p_init_msg_list,
929 p_commit,
930 p_validation_level,
931 p_default,
932 p_module_type,
933 x_return_status,
934 x_msg_count,
935 x_msg_data,
936 ddp_close_visit_rec);
937
938 -- copy data back from the local variables to OUT or IN-OUT args, if any
939
940
941
942
943
944
945
946
947
948 end;
949
950 procedure get_default_op_actual_dates(x_return_status out nocopy VARCHAR2
951 , x_msg_count out nocopy NUMBER
952 , x_msg_data out nocopy VARCHAR2
953 , p3_a0 in out nocopy JTF_NUMBER_TABLE
954 , p3_a1 in out nocopy JTF_NUMBER_TABLE
955 , p3_a2 in out nocopy JTF_NUMBER_TABLE
956 , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_100
957 , p3_a4 in out nocopy JTF_NUMBER_TABLE
958 , p3_a5 in out nocopy JTF_NUMBER_TABLE
959 , p3_a6 in out nocopy JTF_NUMBER_TABLE
960 , p3_a7 in out nocopy JTF_VARCHAR2_TABLE_2000
961 , p3_a8 in out nocopy JTF_NUMBER_TABLE
962 , p3_a9 in out nocopy JTF_NUMBER_TABLE
963 , p3_a10 in out nocopy JTF_DATE_TABLE
964 , p3_a11 in out nocopy JTF_DATE_TABLE
965 , p3_a12 in out nocopy JTF_DATE_TABLE
966 , p3_a13 in out nocopy JTF_DATE_TABLE
967 , p3_a14 in out nocopy JTF_VARCHAR2_TABLE_100
968 , p3_a15 in out nocopy JTF_VARCHAR2_TABLE_100
969 )
970
971 as
972 ddp_x_operation_tbl ahl_completions_pvt.operation_tbl_type;
973 ddindx binary_integer; indx binary_integer;
974 begin
975
976 -- copy data to the local IN or IN-OUT args, if any
977
978
979
980 ahl_completions_pvt_w.rosetta_table_copy_in_p3(ddp_x_operation_tbl, p3_a0
981 , p3_a1
982 , p3_a2
983 , p3_a3
984 , p3_a4
985 , p3_a5
986 , p3_a6
987 , p3_a7
988 , p3_a8
989 , p3_a9
990 , p3_a10
991 , p3_a11
992 , p3_a12
993 , p3_a13
994 , p3_a14
995 , p3_a15
996 );
997
998 -- here's the delegated call to the old PL/SQL routine
999 ahl_completions_pvt.get_default_op_actual_dates(x_return_status,
1000 x_msg_count,
1001 x_msg_data,
1002 ddp_x_operation_tbl);
1003
1004 -- copy data back from the local variables to OUT or IN-OUT args, if any
1005
1006
1007
1008 ahl_completions_pvt_w.rosetta_table_copy_out_p3(ddp_x_operation_tbl, p3_a0
1009 , p3_a1
1010 , p3_a2
1011 , p3_a3
1012 , p3_a4
1013 , p3_a5
1014 , p3_a6
1015 , p3_a7
1016 , p3_a8
1017 , p3_a9
1018 , p3_a10
1019 , p3_a11
1020 , p3_a12
1021 , p3_a13
1022 , p3_a14
1023 , p3_a15
1024 );
1025 end;
1026
1027 procedure get_op_actual_dates(x_return_status out nocopy VARCHAR2
1028 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1029 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1030 , p1_a2 in out nocopy JTF_NUMBER_TABLE
1031 , p1_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1032 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1033 , p1_a5 in out nocopy JTF_NUMBER_TABLE
1034 , p1_a6 in out nocopy JTF_NUMBER_TABLE
1035 , p1_a7 in out nocopy JTF_VARCHAR2_TABLE_2000
1036 , p1_a8 in out nocopy JTF_NUMBER_TABLE
1037 , p1_a9 in out nocopy JTF_NUMBER_TABLE
1038 , p1_a10 in out nocopy JTF_DATE_TABLE
1039 , p1_a11 in out nocopy JTF_DATE_TABLE
1040 , p1_a12 in out nocopy JTF_DATE_TABLE
1041 , p1_a13 in out nocopy JTF_DATE_TABLE
1042 , p1_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1043 , p1_a15 in out nocopy JTF_VARCHAR2_TABLE_100
1044 )
1045
1046 as
1047 ddp_x_operation_tbl ahl_completions_pvt.operation_tbl_type;
1048 ddindx binary_integer; indx binary_integer;
1049 begin
1050
1051 -- copy data to the local IN or IN-OUT args, if any
1052
1053 ahl_completions_pvt_w.rosetta_table_copy_in_p3(ddp_x_operation_tbl, p1_a0
1054 , p1_a1
1055 , p1_a2
1056 , p1_a3
1057 , p1_a4
1058 , p1_a5
1059 , p1_a6
1060 , p1_a7
1061 , p1_a8
1062 , p1_a9
1063 , p1_a10
1064 , p1_a11
1065 , p1_a12
1066 , p1_a13
1067 , p1_a14
1068 , p1_a15
1069 );
1070
1071 -- here's the delegated call to the old PL/SQL routine
1072 ahl_completions_pvt.get_op_actual_dates(x_return_status,
1073 ddp_x_operation_tbl);
1074
1075 -- copy data back from the local variables to OUT or IN-OUT args, if any
1076
1077 ahl_completions_pvt_w.rosetta_table_copy_out_p3(ddp_x_operation_tbl, p1_a0
1078 , p1_a1
1079 , p1_a2
1080 , p1_a3
1081 , p1_a4
1082 , p1_a5
1083 , p1_a6
1084 , p1_a7
1085 , p1_a8
1086 , p1_a9
1087 , p1_a10
1088 , p1_a11
1089 , p1_a12
1090 , p1_a13
1091 , p1_a14
1092 , p1_a15
1093 );
1094 end;
1095
1096 end ahl_completions_pvt_w;