[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_DISPOSITION_PVT_W
Source
1 package body ahl_prd_disposition_pvt_w as
2 /* $Header: AHLWDISB.pls 120.3.12020000.2 2012/12/13 05:17:50 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_p6(t out nocopy ahl_prd_disposition_pvt.disposition_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_VARCHAR2_TABLE_100
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_DATE_TABLE
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_DATE_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_NUMBER_TABLE
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_VARCHAR2_TABLE_100
41 , a25 JTF_VARCHAR2_TABLE_100
42 , a26 JTF_NUMBER_TABLE
43 , a27 JTF_VARCHAR2_TABLE_100
44 , a28 JTF_VARCHAR2_TABLE_2000
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_VARCHAR2_TABLE_100
47 , a31 JTF_VARCHAR2_TABLE_300
48 , a32 JTF_NUMBER_TABLE
49 , a33 JTF_VARCHAR2_TABLE_100
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_VARCHAR2_TABLE_200
52 , a36 JTF_VARCHAR2_TABLE_200
53 , a37 JTF_VARCHAR2_TABLE_100
54 , a38 JTF_VARCHAR2_TABLE_100
55 , a39 JTF_VARCHAR2_TABLE_100
56 , a40 JTF_VARCHAR2_TABLE_100
57 , a41 JTF_VARCHAR2_TABLE_100
58 , a42 JTF_VARCHAR2_TABLE_100
59 , a43 JTF_NUMBER_TABLE
60 , a44 JTF_VARCHAR2_TABLE_100
61 , a45 JTF_VARCHAR2_TABLE_100
62 , a46 JTF_NUMBER_TABLE
63 , a47 JTF_NUMBER_TABLE
64 , a48 JTF_VARCHAR2_TABLE_100
65 , a49 JTF_VARCHAR2_TABLE_100
66 , a50 JTF_VARCHAR2_TABLE_100
67 , a51 JTF_VARCHAR2_TABLE_200
68 , a52 JTF_VARCHAR2_TABLE_200
69 , a53 JTF_VARCHAR2_TABLE_200
70 , a54 JTF_VARCHAR2_TABLE_200
71 , a55 JTF_VARCHAR2_TABLE_200
72 , a56 JTF_VARCHAR2_TABLE_200
73 , a57 JTF_VARCHAR2_TABLE_200
74 , a58 JTF_VARCHAR2_TABLE_200
75 , a59 JTF_VARCHAR2_TABLE_200
76 , a60 JTF_VARCHAR2_TABLE_200
77 , a61 JTF_VARCHAR2_TABLE_200
78 , a62 JTF_VARCHAR2_TABLE_200
79 , a63 JTF_VARCHAR2_TABLE_200
80 , a64 JTF_VARCHAR2_TABLE_200
81 , a65 JTF_VARCHAR2_TABLE_200
82 ) as
83 ddindx binary_integer; indx binary_integer;
84 begin
85 if a0 is not null and a0.count > 0 then
86 if a0.count > 0 then
87 indx := a0.first;
88 ddindx := 1;
89 while true loop
90 t(ddindx).disposition_id := a0(indx);
91 t(ddindx).operation_flag := a1(indx);
92 t(ddindx).object_version_number := a2(indx);
93 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a3(indx));
94 t(ddindx).last_updated_by := a4(indx);
95 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a5(indx));
96 t(ddindx).created_by := a6(indx);
97 t(ddindx).last_update_login := a7(indx);
98 t(ddindx).workorder_id := a8(indx);
99 t(ddindx).part_change_id := a9(indx);
100 t(ddindx).path_position_id := a10(indx);
101 t(ddindx).inventory_item_id := a11(indx);
102 t(ddindx).item_org_id := a12(indx);
103 t(ddindx).item_group_id := a13(indx);
104 t(ddindx).condition_id := a14(indx);
105 t(ddindx).instance_id := a15(indx);
106 t(ddindx).collection_id := a16(indx);
107 t(ddindx).primary_service_request_id := a17(indx);
108 t(ddindx).non_routine_workorder_id := a18(indx);
109 t(ddindx).wo_operation_id := a19(indx);
110 t(ddindx).item_revision := a20(indx);
111 t(ddindx).serial_number := a21(indx);
112 t(ddindx).lot_number := a22(indx);
113 t(ddindx).immediate_disposition_code := a23(indx);
114 t(ddindx).secondary_disposition_code := a24(indx);
115 t(ddindx).status_code := a25(indx);
116 t(ddindx).quantity := a26(indx);
117 t(ddindx).uom := a27(indx);
118 t(ddindx).comments := a28(indx);
119 t(ddindx).severity_id := a29(indx);
120 t(ddindx).problem_code := a30(indx);
121 t(ddindx).summary := a31(indx);
122 t(ddindx).duration := a32(indx);
123 t(ddindx).create_work_order_option := a33(indx);
124 t(ddindx).immediate_disposition := a34(indx);
125 t(ddindx).secondary_disposition := a35(indx);
126 t(ddindx).condition_meaning := a36(indx);
127 t(ddindx).instance_number := a37(indx);
128 t(ddindx).item_number := a38(indx);
129 t(ddindx).item_group_name := a39(indx);
130 t(ddindx).disposition_status := a40(indx);
131 t(ddindx).severity_name := a41(indx);
132 t(ddindx).problem_meaning := a42(indx);
133 t(ddindx).operation_sequence := a43(indx);
134 t(ddindx).resolution_code := a44(indx);
135 t(ddindx).resolution_meaning := a45(indx);
136 t(ddindx).parent_instance_id := a46(indx);
137 t(ddindx).security_group_id := a47(indx);
138 t(ddindx).service_type_code := a48(indx);
139 t(ddindx).service_type := a49(indx);
140 t(ddindx).attribute_category := a50(indx);
141 t(ddindx).attribute1 := a51(indx);
142 t(ddindx).attribute2 := a52(indx);
143 t(ddindx).attribute3 := a53(indx);
144 t(ddindx).attribute4 := a54(indx);
145 t(ddindx).attribute5 := a55(indx);
146 t(ddindx).attribute6 := a56(indx);
147 t(ddindx).attribute7 := a57(indx);
148 t(ddindx).attribute8 := a58(indx);
149 t(ddindx).attribute9 := a59(indx);
150 t(ddindx).attribute10 := a60(indx);
151 t(ddindx).attribute11 := a61(indx);
152 t(ddindx).attribute12 := a62(indx);
153 t(ddindx).attribute13 := a63(indx);
154 t(ddindx).attribute14 := a64(indx);
155 t(ddindx).attribute15 := a65(indx);
156 ddindx := ddindx+1;
157 if a0.last =indx
158 then exit;
159 end if;
160 indx := a0.next(indx);
161 end loop;
162 end if;
163 end if;
164 end rosetta_table_copy_in_p6;
165 procedure rosetta_table_copy_out_p6(t ahl_prd_disposition_pvt.disposition_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
166 , a1 out nocopy JTF_VARCHAR2_TABLE_100
167 , a2 out nocopy JTF_NUMBER_TABLE
168 , a3 out nocopy JTF_DATE_TABLE
169 , a4 out nocopy JTF_NUMBER_TABLE
170 , a5 out nocopy JTF_DATE_TABLE
171 , a6 out nocopy JTF_NUMBER_TABLE
172 , a7 out nocopy JTF_NUMBER_TABLE
173 , a8 out nocopy JTF_NUMBER_TABLE
174 , a9 out nocopy JTF_NUMBER_TABLE
175 , a10 out nocopy JTF_NUMBER_TABLE
176 , a11 out nocopy JTF_NUMBER_TABLE
177 , a12 out nocopy JTF_NUMBER_TABLE
178 , a13 out nocopy JTF_NUMBER_TABLE
179 , a14 out nocopy JTF_NUMBER_TABLE
180 , a15 out nocopy JTF_NUMBER_TABLE
181 , a16 out nocopy JTF_NUMBER_TABLE
182 , a17 out nocopy JTF_NUMBER_TABLE
183 , a18 out nocopy JTF_NUMBER_TABLE
184 , a19 out nocopy JTF_NUMBER_TABLE
185 , a20 out nocopy JTF_VARCHAR2_TABLE_100
186 , a21 out nocopy JTF_VARCHAR2_TABLE_100
187 , a22 out nocopy JTF_VARCHAR2_TABLE_100
188 , a23 out nocopy JTF_VARCHAR2_TABLE_100
189 , a24 out nocopy JTF_VARCHAR2_TABLE_100
190 , a25 out nocopy JTF_VARCHAR2_TABLE_100
191 , a26 out nocopy JTF_NUMBER_TABLE
192 , a27 out nocopy JTF_VARCHAR2_TABLE_100
193 , a28 out nocopy JTF_VARCHAR2_TABLE_2000
194 , a29 out nocopy JTF_NUMBER_TABLE
195 , a30 out nocopy JTF_VARCHAR2_TABLE_100
196 , a31 out nocopy JTF_VARCHAR2_TABLE_300
197 , a32 out nocopy JTF_NUMBER_TABLE
198 , a33 out nocopy JTF_VARCHAR2_TABLE_100
199 , a34 out nocopy JTF_VARCHAR2_TABLE_200
200 , a35 out nocopy JTF_VARCHAR2_TABLE_200
201 , a36 out nocopy JTF_VARCHAR2_TABLE_200
202 , a37 out nocopy JTF_VARCHAR2_TABLE_100
203 , a38 out nocopy JTF_VARCHAR2_TABLE_100
204 , a39 out nocopy JTF_VARCHAR2_TABLE_100
205 , a40 out nocopy JTF_VARCHAR2_TABLE_100
206 , a41 out nocopy JTF_VARCHAR2_TABLE_100
207 , a42 out nocopy JTF_VARCHAR2_TABLE_100
208 , a43 out nocopy JTF_NUMBER_TABLE
209 , a44 out nocopy JTF_VARCHAR2_TABLE_100
210 , a45 out nocopy JTF_VARCHAR2_TABLE_100
211 , a46 out nocopy JTF_NUMBER_TABLE
212 , a47 out nocopy JTF_NUMBER_TABLE
213 , a48 out nocopy JTF_VARCHAR2_TABLE_100
214 , a49 out nocopy JTF_VARCHAR2_TABLE_100
215 , a50 out nocopy JTF_VARCHAR2_TABLE_100
216 , a51 out nocopy JTF_VARCHAR2_TABLE_200
217 , a52 out nocopy JTF_VARCHAR2_TABLE_200
218 , a53 out nocopy JTF_VARCHAR2_TABLE_200
219 , a54 out nocopy JTF_VARCHAR2_TABLE_200
220 , a55 out nocopy JTF_VARCHAR2_TABLE_200
221 , a56 out nocopy JTF_VARCHAR2_TABLE_200
222 , a57 out nocopy JTF_VARCHAR2_TABLE_200
223 , a58 out nocopy JTF_VARCHAR2_TABLE_200
224 , a59 out nocopy JTF_VARCHAR2_TABLE_200
225 , a60 out nocopy JTF_VARCHAR2_TABLE_200
226 , a61 out nocopy JTF_VARCHAR2_TABLE_200
227 , a62 out nocopy JTF_VARCHAR2_TABLE_200
228 , a63 out nocopy JTF_VARCHAR2_TABLE_200
229 , a64 out nocopy JTF_VARCHAR2_TABLE_200
230 , a65 out nocopy JTF_VARCHAR2_TABLE_200
231 ) as
232 ddindx binary_integer; indx binary_integer;
233 begin
234 if t is null or t.count = 0 then
235 a0 := JTF_NUMBER_TABLE();
236 a1 := JTF_VARCHAR2_TABLE_100();
237 a2 := JTF_NUMBER_TABLE();
238 a3 := JTF_DATE_TABLE();
239 a4 := JTF_NUMBER_TABLE();
240 a5 := JTF_DATE_TABLE();
241 a6 := JTF_NUMBER_TABLE();
242 a7 := JTF_NUMBER_TABLE();
243 a8 := JTF_NUMBER_TABLE();
244 a9 := JTF_NUMBER_TABLE();
245 a10 := JTF_NUMBER_TABLE();
246 a11 := JTF_NUMBER_TABLE();
247 a12 := JTF_NUMBER_TABLE();
248 a13 := JTF_NUMBER_TABLE();
249 a14 := JTF_NUMBER_TABLE();
250 a15 := JTF_NUMBER_TABLE();
251 a16 := JTF_NUMBER_TABLE();
252 a17 := JTF_NUMBER_TABLE();
253 a18 := JTF_NUMBER_TABLE();
254 a19 := JTF_NUMBER_TABLE();
255 a20 := JTF_VARCHAR2_TABLE_100();
256 a21 := JTF_VARCHAR2_TABLE_100();
257 a22 := JTF_VARCHAR2_TABLE_100();
258 a23 := JTF_VARCHAR2_TABLE_100();
259 a24 := JTF_VARCHAR2_TABLE_100();
260 a25 := JTF_VARCHAR2_TABLE_100();
261 a26 := JTF_NUMBER_TABLE();
262 a27 := JTF_VARCHAR2_TABLE_100();
263 a28 := JTF_VARCHAR2_TABLE_2000();
264 a29 := JTF_NUMBER_TABLE();
265 a30 := JTF_VARCHAR2_TABLE_100();
266 a31 := JTF_VARCHAR2_TABLE_300();
267 a32 := JTF_NUMBER_TABLE();
268 a33 := JTF_VARCHAR2_TABLE_100();
269 a34 := JTF_VARCHAR2_TABLE_200();
270 a35 := JTF_VARCHAR2_TABLE_200();
271 a36 := JTF_VARCHAR2_TABLE_200();
272 a37 := JTF_VARCHAR2_TABLE_100();
273 a38 := JTF_VARCHAR2_TABLE_100();
274 a39 := JTF_VARCHAR2_TABLE_100();
275 a40 := JTF_VARCHAR2_TABLE_100();
276 a41 := JTF_VARCHAR2_TABLE_100();
277 a42 := JTF_VARCHAR2_TABLE_100();
278 a43 := JTF_NUMBER_TABLE();
279 a44 := JTF_VARCHAR2_TABLE_100();
280 a45 := JTF_VARCHAR2_TABLE_100();
281 a46 := JTF_NUMBER_TABLE();
282 a47 := JTF_NUMBER_TABLE();
283 a48 := JTF_VARCHAR2_TABLE_100();
284 a49 := JTF_VARCHAR2_TABLE_100();
285 a50 := JTF_VARCHAR2_TABLE_100();
286 a51 := JTF_VARCHAR2_TABLE_200();
287 a52 := JTF_VARCHAR2_TABLE_200();
288 a53 := JTF_VARCHAR2_TABLE_200();
289 a54 := JTF_VARCHAR2_TABLE_200();
290 a55 := JTF_VARCHAR2_TABLE_200();
291 a56 := JTF_VARCHAR2_TABLE_200();
292 a57 := JTF_VARCHAR2_TABLE_200();
293 a58 := JTF_VARCHAR2_TABLE_200();
294 a59 := JTF_VARCHAR2_TABLE_200();
295 a60 := JTF_VARCHAR2_TABLE_200();
296 a61 := JTF_VARCHAR2_TABLE_200();
297 a62 := JTF_VARCHAR2_TABLE_200();
298 a63 := JTF_VARCHAR2_TABLE_200();
299 a64 := JTF_VARCHAR2_TABLE_200();
300 a65 := JTF_VARCHAR2_TABLE_200();
301 else
305 a3 := JTF_DATE_TABLE();
302 a0 := JTF_NUMBER_TABLE();
303 a1 := JTF_VARCHAR2_TABLE_100();
304 a2 := JTF_NUMBER_TABLE();
306 a4 := JTF_NUMBER_TABLE();
307 a5 := JTF_DATE_TABLE();
308 a6 := JTF_NUMBER_TABLE();
309 a7 := JTF_NUMBER_TABLE();
310 a8 := JTF_NUMBER_TABLE();
311 a9 := JTF_NUMBER_TABLE();
312 a10 := JTF_NUMBER_TABLE();
313 a11 := JTF_NUMBER_TABLE();
314 a12 := JTF_NUMBER_TABLE();
315 a13 := JTF_NUMBER_TABLE();
316 a14 := JTF_NUMBER_TABLE();
317 a15 := JTF_NUMBER_TABLE();
318 a16 := JTF_NUMBER_TABLE();
319 a17 := JTF_NUMBER_TABLE();
320 a18 := JTF_NUMBER_TABLE();
321 a19 := JTF_NUMBER_TABLE();
322 a20 := JTF_VARCHAR2_TABLE_100();
323 a21 := JTF_VARCHAR2_TABLE_100();
324 a22 := JTF_VARCHAR2_TABLE_100();
325 a23 := JTF_VARCHAR2_TABLE_100();
326 a24 := JTF_VARCHAR2_TABLE_100();
327 a25 := JTF_VARCHAR2_TABLE_100();
328 a26 := JTF_NUMBER_TABLE();
329 a27 := JTF_VARCHAR2_TABLE_100();
330 a28 := JTF_VARCHAR2_TABLE_2000();
331 a29 := JTF_NUMBER_TABLE();
332 a30 := JTF_VARCHAR2_TABLE_100();
333 a31 := JTF_VARCHAR2_TABLE_300();
334 a32 := JTF_NUMBER_TABLE();
335 a33 := JTF_VARCHAR2_TABLE_100();
336 a34 := JTF_VARCHAR2_TABLE_200();
337 a35 := JTF_VARCHAR2_TABLE_200();
338 a36 := JTF_VARCHAR2_TABLE_200();
339 a37 := JTF_VARCHAR2_TABLE_100();
340 a38 := JTF_VARCHAR2_TABLE_100();
341 a39 := JTF_VARCHAR2_TABLE_100();
342 a40 := JTF_VARCHAR2_TABLE_100();
343 a41 := JTF_VARCHAR2_TABLE_100();
344 a42 := JTF_VARCHAR2_TABLE_100();
345 a43 := JTF_NUMBER_TABLE();
346 a44 := JTF_VARCHAR2_TABLE_100();
347 a45 := JTF_VARCHAR2_TABLE_100();
348 a46 := JTF_NUMBER_TABLE();
349 a47 := JTF_NUMBER_TABLE();
350 a48 := JTF_VARCHAR2_TABLE_100();
351 a49 := JTF_VARCHAR2_TABLE_100();
352 a50 := JTF_VARCHAR2_TABLE_100();
353 a51 := JTF_VARCHAR2_TABLE_200();
354 a52 := JTF_VARCHAR2_TABLE_200();
355 a53 := JTF_VARCHAR2_TABLE_200();
356 a54 := JTF_VARCHAR2_TABLE_200();
357 a55 := JTF_VARCHAR2_TABLE_200();
358 a56 := JTF_VARCHAR2_TABLE_200();
359 a57 := JTF_VARCHAR2_TABLE_200();
360 a58 := JTF_VARCHAR2_TABLE_200();
361 a59 := JTF_VARCHAR2_TABLE_200();
362 a60 := JTF_VARCHAR2_TABLE_200();
363 a61 := JTF_VARCHAR2_TABLE_200();
364 a62 := JTF_VARCHAR2_TABLE_200();
365 a63 := JTF_VARCHAR2_TABLE_200();
366 a64 := JTF_VARCHAR2_TABLE_200();
367 a65 := JTF_VARCHAR2_TABLE_200();
368 if t.count > 0 then
369 a0.extend(t.count);
370 a1.extend(t.count);
371 a2.extend(t.count);
372 a3.extend(t.count);
373 a4.extend(t.count);
374 a5.extend(t.count);
375 a6.extend(t.count);
376 a7.extend(t.count);
377 a8.extend(t.count);
378 a9.extend(t.count);
379 a10.extend(t.count);
380 a11.extend(t.count);
381 a12.extend(t.count);
382 a13.extend(t.count);
383 a14.extend(t.count);
384 a15.extend(t.count);
385 a16.extend(t.count);
386 a17.extend(t.count);
387 a18.extend(t.count);
388 a19.extend(t.count);
389 a20.extend(t.count);
390 a21.extend(t.count);
391 a22.extend(t.count);
392 a23.extend(t.count);
393 a24.extend(t.count);
394 a25.extend(t.count);
395 a26.extend(t.count);
396 a27.extend(t.count);
397 a28.extend(t.count);
398 a29.extend(t.count);
399 a30.extend(t.count);
400 a31.extend(t.count);
401 a32.extend(t.count);
402 a33.extend(t.count);
403 a34.extend(t.count);
404 a35.extend(t.count);
405 a36.extend(t.count);
406 a37.extend(t.count);
407 a38.extend(t.count);
408 a39.extend(t.count);
409 a40.extend(t.count);
410 a41.extend(t.count);
411 a42.extend(t.count);
412 a43.extend(t.count);
413 a44.extend(t.count);
414 a45.extend(t.count);
415 a46.extend(t.count);
416 a47.extend(t.count);
417 a48.extend(t.count);
418 a49.extend(t.count);
419 a50.extend(t.count);
420 a51.extend(t.count);
421 a52.extend(t.count);
422 a53.extend(t.count);
423 a54.extend(t.count);
424 a55.extend(t.count);
425 a56.extend(t.count);
426 a57.extend(t.count);
427 a58.extend(t.count);
428 a59.extend(t.count);
429 a60.extend(t.count);
430 a61.extend(t.count);
431 a62.extend(t.count);
432 a63.extend(t.count);
433 a64.extend(t.count);
434 a65.extend(t.count);
435 ddindx := t.first;
436 indx := 1;
437 while true loop
438 a0(indx) := t(ddindx).disposition_id;
439 a1(indx) := t(ddindx).operation_flag;
440 a2(indx) := t(ddindx).object_version_number;
441 a3(indx) := t(ddindx).last_update_date;
442 a4(indx) := t(ddindx).last_updated_by;
443 a5(indx) := t(ddindx).creation_date;
444 a6(indx) := t(ddindx).created_by;
445 a7(indx) := t(ddindx).last_update_login;
446 a8(indx) := t(ddindx).workorder_id;
447 a9(indx) := t(ddindx).part_change_id;
448 a10(indx) := t(ddindx).path_position_id;
449 a11(indx) := t(ddindx).inventory_item_id;
450 a12(indx) := t(ddindx).item_org_id;
454 a16(indx) := t(ddindx).collection_id;
451 a13(indx) := t(ddindx).item_group_id;
452 a14(indx) := t(ddindx).condition_id;
453 a15(indx) := t(ddindx).instance_id;
455 a17(indx) := t(ddindx).primary_service_request_id;
456 a18(indx) := t(ddindx).non_routine_workorder_id;
457 a19(indx) := t(ddindx).wo_operation_id;
458 a20(indx) := t(ddindx).item_revision;
459 a21(indx) := t(ddindx).serial_number;
460 a22(indx) := t(ddindx).lot_number;
461 a23(indx) := t(ddindx).immediate_disposition_code;
462 a24(indx) := t(ddindx).secondary_disposition_code;
463 a25(indx) := t(ddindx).status_code;
464 a26(indx) := t(ddindx).quantity;
465 a27(indx) := t(ddindx).uom;
466 a28(indx) := t(ddindx).comments;
467 a29(indx) := t(ddindx).severity_id;
468 a30(indx) := t(ddindx).problem_code;
469 a31(indx) := t(ddindx).summary;
470 a32(indx) := t(ddindx).duration;
471 a33(indx) := t(ddindx).create_work_order_option;
472 a34(indx) := t(ddindx).immediate_disposition;
473 a35(indx) := t(ddindx).secondary_disposition;
474 a36(indx) := t(ddindx).condition_meaning;
475 a37(indx) := t(ddindx).instance_number;
476 a38(indx) := t(ddindx).item_number;
477 a39(indx) := t(ddindx).item_group_name;
478 a40(indx) := t(ddindx).disposition_status;
479 a41(indx) := t(ddindx).severity_name;
480 a42(indx) := t(ddindx).problem_meaning;
481 a43(indx) := t(ddindx).operation_sequence;
482 a44(indx) := t(ddindx).resolution_code;
483 a45(indx) := t(ddindx).resolution_meaning;
484 a46(indx) := t(ddindx).parent_instance_id;
485 a47(indx) := t(ddindx).security_group_id;
486 a48(indx) := t(ddindx).service_type_code;
487 a49(indx) := t(ddindx).service_type;
488 a50(indx) := t(ddindx).attribute_category;
489 a51(indx) := t(ddindx).attribute1;
490 a52(indx) := t(ddindx).attribute2;
491 a53(indx) := t(ddindx).attribute3;
492 a54(indx) := t(ddindx).attribute4;
493 a55(indx) := t(ddindx).attribute5;
494 a56(indx) := t(ddindx).attribute6;
495 a57(indx) := t(ddindx).attribute7;
496 a58(indx) := t(ddindx).attribute8;
497 a59(indx) := t(ddindx).attribute9;
498 a60(indx) := t(ddindx).attribute10;
499 a61(indx) := t(ddindx).attribute11;
500 a62(indx) := t(ddindx).attribute12;
501 a63(indx) := t(ddindx).attribute13;
502 a64(indx) := t(ddindx).attribute14;
503 a65(indx) := t(ddindx).attribute15;
504 indx := indx+1;
505 if t.last =ddindx
506 then exit;
507 end if;
508 ddindx := t.next(ddindx);
509 end loop;
510 end if;
511 end if;
512 end rosetta_table_copy_out_p6;
513
514 procedure process_disposition(p_api_version NUMBER
515 , p_init_msg_list VARCHAR2
516 , p_commit VARCHAR2
517 , p_validation_level NUMBER
518 , p_module_type VARCHAR2
519 , p5_a0 in out nocopy NUMBER
520 , p5_a1 in out nocopy VARCHAR2
521 , p5_a2 in out nocopy NUMBER
522 , p5_a3 in out nocopy DATE
523 , p5_a4 in out nocopy NUMBER
524 , p5_a5 in out nocopy DATE
525 , p5_a6 in out nocopy NUMBER
526 , p5_a7 in out nocopy NUMBER
527 , p5_a8 in out nocopy NUMBER
528 , p5_a9 in out nocopy NUMBER
529 , p5_a10 in out nocopy NUMBER
530 , p5_a11 in out nocopy NUMBER
531 , p5_a12 in out nocopy NUMBER
532 , p5_a13 in out nocopy NUMBER
533 , p5_a14 in out nocopy NUMBER
534 , p5_a15 in out nocopy NUMBER
535 , p5_a16 in out nocopy NUMBER
536 , p5_a17 in out nocopy NUMBER
537 , p5_a18 in out nocopy NUMBER
538 , p5_a19 in out nocopy NUMBER
539 , p5_a20 in out nocopy VARCHAR
540 , p5_a21 in out nocopy VARCHAR2
541 , p5_a22 in out nocopy VARCHAR2
542 , p5_a23 in out nocopy VARCHAR2
543 , p5_a24 in out nocopy VARCHAR2
544 , p5_a25 in out nocopy VARCHAR2
545 , p5_a26 in out nocopy NUMBER
546 , p5_a27 in out nocopy VARCHAR2
547 , p5_a28 in out nocopy VARCHAR2
548 , p5_a29 in out nocopy NUMBER
549 , p5_a30 in out nocopy VARCHAR
550 , p5_a31 in out nocopy VARCHAR
551 , p5_a32 in out nocopy NUMBER
552 , p5_a33 in out nocopy VARCHAR2
553 , p5_a34 in out nocopy VARCHAR
554 , p5_a35 in out nocopy VARCHAR
555 , p5_a36 in out nocopy VARCHAR
556 , p5_a37 in out nocopy VARCHAR
557 , p5_a38 in out nocopy VARCHAR
558 , p5_a39 in out nocopy VARCHAR
559 , p5_a40 in out nocopy VARCHAR
560 , p5_a41 in out nocopy VARCHAR2
561 , p5_a42 in out nocopy VARCHAR2
562 , p5_a43 in out nocopy NUMBER
563 , p5_a44 in out nocopy VARCHAR2
564 , p5_a45 in out nocopy VARCHAR2
565 , p5_a46 in out nocopy NUMBER
566 , p5_a47 in out nocopy NUMBER
567 , p5_a48 in out nocopy VARCHAR2
568 , p5_a49 in out nocopy VARCHAR2
569 , p5_a50 in out nocopy VARCHAR2
570 , p5_a51 in out nocopy VARCHAR2
571 , p5_a52 in out nocopy VARCHAR2
572 , p5_a53 in out nocopy VARCHAR2
573 , p5_a54 in out nocopy VARCHAR2
574 , p5_a55 in out nocopy VARCHAR2
575 , p5_a56 in out nocopy VARCHAR2
576 , p5_a57 in out nocopy VARCHAR2
577 , p5_a58 in out nocopy VARCHAR2
578 , p5_a59 in out nocopy VARCHAR2
579 , p5_a60 in out nocopy VARCHAR2
580 , p5_a61 in out nocopy VARCHAR2
581 , p5_a62 in out nocopy VARCHAR2
582 , p5_a63 in out nocopy VARCHAR2
583 , p5_a64 in out nocopy VARCHAR2
587 , p6_a2 JTF_NUMBER_TABLE
584 , p5_a65 in out nocopy VARCHAR2
585 , p6_a0 JTF_NUMBER_TABLE
586 , p6_a1 JTF_VARCHAR2_TABLE_100
588 , p6_a3 JTF_NUMBER_TABLE
589 , p6_a4 JTF_NUMBER_TABLE
590 , p6_a5 JTF_NUMBER_TABLE
591 , p6_a6 JTF_VARCHAR2_TABLE_100
592 , p6_a7 JTF_NUMBER_TABLE
593 , p6_a8 JTF_VARCHAR2_TABLE_100
594 , p6_a9 JTF_NUMBER_TABLE
595 , x_return_status out nocopy VARCHAR2
596 , x_msg_count out nocopy NUMBER
597 , x_msg_data out nocopy VARCHAR2
598 )
599
600 as
601 ddp_x_disposition_rec ahl_prd_disposition_pvt.disposition_rec_type;
602 ddp_mr_asso_tbl ahl_prd_nonroutine_pvt.mr_association_tbl_type;
603 ddindx binary_integer; indx binary_integer;
604 begin
605
606 -- copy data to the local IN or IN-OUT args, if any
607
608
609
610
611
612 ddp_x_disposition_rec.disposition_id := p5_a0;
613 ddp_x_disposition_rec.operation_flag := p5_a1;
614 ddp_x_disposition_rec.object_version_number := p5_a2;
615 ddp_x_disposition_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a3);
616 ddp_x_disposition_rec.last_updated_by := p5_a4;
617 ddp_x_disposition_rec.creation_date := rosetta_g_miss_date_in_map(p5_a5);
618 ddp_x_disposition_rec.created_by := p5_a6;
619 ddp_x_disposition_rec.last_update_login := p5_a7;
620 ddp_x_disposition_rec.workorder_id := p5_a8;
621 ddp_x_disposition_rec.part_change_id := p5_a9;
622 ddp_x_disposition_rec.path_position_id := p5_a10;
623 ddp_x_disposition_rec.inventory_item_id := p5_a11;
624 ddp_x_disposition_rec.item_org_id := p5_a12;
625 ddp_x_disposition_rec.item_group_id := p5_a13;
626 ddp_x_disposition_rec.condition_id := p5_a14;
627 ddp_x_disposition_rec.instance_id := p5_a15;
628 ddp_x_disposition_rec.collection_id := p5_a16;
629 ddp_x_disposition_rec.primary_service_request_id := p5_a17;
630 ddp_x_disposition_rec.non_routine_workorder_id := p5_a18;
631 ddp_x_disposition_rec.wo_operation_id := p5_a19;
632 ddp_x_disposition_rec.item_revision := p5_a20;
633 ddp_x_disposition_rec.serial_number := p5_a21;
634 ddp_x_disposition_rec.lot_number := p5_a22;
635 ddp_x_disposition_rec.immediate_disposition_code := p5_a23;
636 ddp_x_disposition_rec.secondary_disposition_code := p5_a24;
637 ddp_x_disposition_rec.status_code := p5_a25;
638 ddp_x_disposition_rec.quantity := p5_a26;
639 ddp_x_disposition_rec.uom := p5_a27;
640 ddp_x_disposition_rec.comments := p5_a28;
641 ddp_x_disposition_rec.severity_id := p5_a29;
642 ddp_x_disposition_rec.problem_code := p5_a30;
643 ddp_x_disposition_rec.summary := p5_a31;
644 ddp_x_disposition_rec.duration := p5_a32;
645 ddp_x_disposition_rec.create_work_order_option := p5_a33;
646 ddp_x_disposition_rec.immediate_disposition := p5_a34;
647 ddp_x_disposition_rec.secondary_disposition := p5_a35;
648 ddp_x_disposition_rec.condition_meaning := p5_a36;
649 ddp_x_disposition_rec.instance_number := p5_a37;
650 ddp_x_disposition_rec.item_number := p5_a38;
651 ddp_x_disposition_rec.item_group_name := p5_a39;
652 ddp_x_disposition_rec.disposition_status := p5_a40;
653 ddp_x_disposition_rec.severity_name := p5_a41;
654 ddp_x_disposition_rec.problem_meaning := p5_a42;
655 ddp_x_disposition_rec.operation_sequence := p5_a43;
656 ddp_x_disposition_rec.resolution_code := p5_a44;
657 ddp_x_disposition_rec.resolution_meaning := p5_a45;
658 ddp_x_disposition_rec.parent_instance_id := p5_a46;
659 ddp_x_disposition_rec.security_group_id := p5_a47;
660 ddp_x_disposition_rec.service_type_code := p5_a48;
661 ddp_x_disposition_rec.service_type := p5_a49;
662 ddp_x_disposition_rec.attribute_category := p5_a50;
663 ddp_x_disposition_rec.attribute1 := p5_a51;
664 ddp_x_disposition_rec.attribute2 := p5_a52;
665 ddp_x_disposition_rec.attribute3 := p5_a53;
666 ddp_x_disposition_rec.attribute4 := p5_a54;
667 ddp_x_disposition_rec.attribute5 := p5_a55;
668 ddp_x_disposition_rec.attribute6 := p5_a56;
669 ddp_x_disposition_rec.attribute7 := p5_a57;
670 ddp_x_disposition_rec.attribute8 := p5_a58;
671 ddp_x_disposition_rec.attribute9 := p5_a59;
672 ddp_x_disposition_rec.attribute10 := p5_a60;
673 ddp_x_disposition_rec.attribute11 := p5_a61;
674 ddp_x_disposition_rec.attribute12 := p5_a62;
675 ddp_x_disposition_rec.attribute13 := p5_a63;
676 ddp_x_disposition_rec.attribute14 := p5_a64;
677 ddp_x_disposition_rec.attribute15 := p5_a65;
678
679 ahl_prd_nonroutine_pvt_w.rosetta_table_copy_in_p4(ddp_mr_asso_tbl, p6_a0
680 , p6_a1
681 , p6_a2
682 , p6_a3
683 , p6_a4
684 , p6_a5
685 , p6_a6
686 , p6_a7
687 , p6_a8
688 , p6_a9
689 );
690
691
692
693
694 -- here's the delegated call to the old PL/SQL routine
695 ahl_prd_disposition_pvt.process_disposition(p_api_version,
696 p_init_msg_list,
697 p_commit,
698 p_validation_level,
699 p_module_type,
700 ddp_x_disposition_rec,
701 ddp_mr_asso_tbl,
702 x_return_status,
703 x_msg_count,
704 x_msg_data);
705
706 -- copy data back from the local variables to OUT or IN-OUT args, if any
707
708
709
710
711
712 p5_a0 := ddp_x_disposition_rec.disposition_id;
713 p5_a1 := ddp_x_disposition_rec.operation_flag;
714 p5_a2 := ddp_x_disposition_rec.object_version_number;
715 p5_a3 := ddp_x_disposition_rec.last_update_date;
716 p5_a4 := ddp_x_disposition_rec.last_updated_by;
717 p5_a5 := ddp_x_disposition_rec.creation_date;
718 p5_a6 := ddp_x_disposition_rec.created_by;
719 p5_a7 := ddp_x_disposition_rec.last_update_login;
720 p5_a8 := ddp_x_disposition_rec.workorder_id;
721 p5_a9 := ddp_x_disposition_rec.part_change_id;
722 p5_a10 := ddp_x_disposition_rec.path_position_id;
723 p5_a11 := ddp_x_disposition_rec.inventory_item_id;
724 p5_a12 := ddp_x_disposition_rec.item_org_id;
725 p5_a13 := ddp_x_disposition_rec.item_group_id;
726 p5_a14 := ddp_x_disposition_rec.condition_id;
727 p5_a15 := ddp_x_disposition_rec.instance_id;
728 p5_a16 := ddp_x_disposition_rec.collection_id;
729 p5_a17 := ddp_x_disposition_rec.primary_service_request_id;
730 p5_a18 := ddp_x_disposition_rec.non_routine_workorder_id;
731 p5_a19 := ddp_x_disposition_rec.wo_operation_id;
732 p5_a20 := ddp_x_disposition_rec.item_revision;
733 p5_a21 := ddp_x_disposition_rec.serial_number;
734 p5_a22 := ddp_x_disposition_rec.lot_number;
735 p5_a23 := ddp_x_disposition_rec.immediate_disposition_code;
736 p5_a24 := ddp_x_disposition_rec.secondary_disposition_code;
737 p5_a25 := ddp_x_disposition_rec.status_code;
738 p5_a26 := ddp_x_disposition_rec.quantity;
739 p5_a27 := ddp_x_disposition_rec.uom;
740 p5_a28 := ddp_x_disposition_rec.comments;
741 p5_a29 := ddp_x_disposition_rec.severity_id;
742 p5_a30 := ddp_x_disposition_rec.problem_code;
743 p5_a31 := ddp_x_disposition_rec.summary;
744 p5_a32 := ddp_x_disposition_rec.duration;
745 p5_a33 := ddp_x_disposition_rec.create_work_order_option;
746 p5_a34 := ddp_x_disposition_rec.immediate_disposition;
747 p5_a35 := ddp_x_disposition_rec.secondary_disposition;
748 p5_a36 := ddp_x_disposition_rec.condition_meaning;
749 p5_a37 := ddp_x_disposition_rec.instance_number;
750 p5_a38 := ddp_x_disposition_rec.item_number;
751 p5_a39 := ddp_x_disposition_rec.item_group_name;
752 p5_a40 := ddp_x_disposition_rec.disposition_status;
753 p5_a41 := ddp_x_disposition_rec.severity_name;
754 p5_a42 := ddp_x_disposition_rec.problem_meaning;
755 p5_a43 := ddp_x_disposition_rec.operation_sequence;
756 p5_a44 := ddp_x_disposition_rec.resolution_code;
757 p5_a45 := ddp_x_disposition_rec.resolution_meaning;
758 p5_a46 := ddp_x_disposition_rec.parent_instance_id;
759 p5_a47 := ddp_x_disposition_rec.security_group_id;
760 p5_a48 := ddp_x_disposition_rec.service_type_code;
761 p5_a49 := ddp_x_disposition_rec.service_type;
762 p5_a50 := ddp_x_disposition_rec.attribute_category;
763 p5_a51 := ddp_x_disposition_rec.attribute1;
764 p5_a52 := ddp_x_disposition_rec.attribute2;
765 p5_a53 := ddp_x_disposition_rec.attribute3;
766 p5_a54 := ddp_x_disposition_rec.attribute4;
767 p5_a55 := ddp_x_disposition_rec.attribute5;
768 p5_a56 := ddp_x_disposition_rec.attribute6;
769 p5_a57 := ddp_x_disposition_rec.attribute7;
770 p5_a58 := ddp_x_disposition_rec.attribute8;
771 p5_a59 := ddp_x_disposition_rec.attribute9;
772 p5_a60 := ddp_x_disposition_rec.attribute10;
773 p5_a61 := ddp_x_disposition_rec.attribute11;
774 p5_a62 := ddp_x_disposition_rec.attribute12;
775 p5_a63 := ddp_x_disposition_rec.attribute13;
776 p5_a64 := ddp_x_disposition_rec.attribute14;
777 p5_a65 := ddp_x_disposition_rec.attribute15;
778
779
780
781
782 end;
783
784 end ahl_prd_disposition_pvt_w;