[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_MTLTXN_PVT_W
Source
1 package body ahl_prd_mtltxn_pvt_w as
2 /* $Header: AHLWMTXB.pls 120.8.12020000.2 2012/12/13 06:25:22 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_p5(t out nocopy ahl_prd_mtltxn_pvt.ahl_mtltxn_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_VARCHAR2_TABLE_100
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_VARCHAR2_TABLE_300
23 , a7 JTF_VARCHAR2_TABLE_300
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_VARCHAR2_TABLE_300
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_NUMBER_TABLE
39 , a23 JTF_VARCHAR2_TABLE_300
40 , a24 JTF_VARCHAR2_TABLE_300
41 , a25 JTF_NUMBER_TABLE
42 , a26 JTF_NUMBER_TABLE
43 , a27 JTF_VARCHAR2_TABLE_100
44 , a28 JTF_VARCHAR2_TABLE_100
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_VARCHAR2_TABLE_300
47 , a31 JTF_VARCHAR2_TABLE_100
48 , a32 JTF_VARCHAR2_TABLE_100
49 , a33 JTF_NUMBER_TABLE
50 , a34 JTF_VARCHAR2_TABLE_100
51 , a35 JTF_NUMBER_TABLE
52 , a36 JTF_NUMBER_TABLE
53 , a37 JTF_DATE_TABLE
54 , a38 JTF_NUMBER_TABLE
55 , a39 JTF_VARCHAR2_TABLE_300
56 , a40 JTF_NUMBER_TABLE
57 , a41 JTF_VARCHAR2_TABLE_100
58 , a42 JTF_VARCHAR2_TABLE_100
59 , a43 JTF_VARCHAR2_TABLE_100
60 , a44 JTF_VARCHAR2_TABLE_100
61 , a45 JTF_VARCHAR2_TABLE_100
62 , a46 JTF_VARCHAR2_TABLE_100
63 , a47 JTF_VARCHAR2_TABLE_100
64 , a48 JTF_VARCHAR2_TABLE_200
65 , a49 JTF_VARCHAR2_TABLE_200
66 , a50 JTF_VARCHAR2_TABLE_200
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 ) as
80 ddindx binary_integer; indx binary_integer;
81 begin
82 if a0 is not null and a0.count > 0 then
83 if a0.count > 0 then
84 indx := a0.first;
85 ddindx := 1;
86 while true loop
87 t(ddindx).ahl_mtltxn_id := a0(indx);
88 t(ddindx).workorder_id := a1(indx);
89 t(ddindx).workorder_name := a2(indx);
90 t(ddindx).workorder_status := a3(indx);
91 t(ddindx).workorder_status_code := a4(indx);
92 t(ddindx).inventory_item_id := a5(indx);
93 t(ddindx).inventory_item_segments := a6(indx);
94 t(ddindx).inventory_item_description := a7(indx);
95 t(ddindx).item_instance_number := a8(indx);
96 t(ddindx).item_instance_id := a9(indx);
97 t(ddindx).revision := a10(indx);
98 t(ddindx).organization_id := a11(indx);
99 t(ddindx).condition := a12(indx);
100 t(ddindx).condition_desc := a13(indx);
101 t(ddindx).subinventory_name := a14(indx);
102 t(ddindx).locator_id := a15(indx);
103 t(ddindx).locator_segments := a16(indx);
104 t(ddindx).quantity := a17(indx);
105 t(ddindx).net_total_qty := a18(indx);
106 t(ddindx).net_quantity := a19(indx);
107 t(ddindx).uom := a20(indx);
108 t(ddindx).uom_desc := a21(indx);
109 t(ddindx).transaction_type_id := a22(indx);
110 t(ddindx).transaction_type_name := a23(indx);
111 t(ddindx).transaction_reference := a24(indx);
112 t(ddindx).wip_entity_id := a25(indx);
113 t(ddindx).operation_seq_num := a26(indx);
114 t(ddindx).serial_number := a27(indx);
115 t(ddindx).lot_number := a28(indx);
116 t(ddindx).reason_id := a29(indx);
117 t(ddindx).reason_name := a30(indx);
118 t(ddindx).problem_code := a31(indx);
119 t(ddindx).problem_code_meaning := a32(indx);
120 t(ddindx).target_visit_id := a33(indx);
121 t(ddindx).sr_summary := a34(indx);
122 t(ddindx).qa_collection_id := a35(indx);
123 t(ddindx).workorder_operation_id := a36(indx);
124 t(ddindx).transaction_date := rosetta_g_miss_date_in_map(a37(indx));
125 t(ddindx).recepient_id := a38(indx);
126 t(ddindx).recepient_name := a39(indx);
127 t(ddindx).disposition_id := a40(indx);
128 t(ddindx).disposition_name := a41(indx);
129 t(ddindx).move_to_project_flag := a42(indx);
130 t(ddindx).visit_locator_flag := a43(indx);
131 t(ddindx).create_wo_option := a44(indx);
132 t(ddindx).service_type := a45(indx);
133 t(ddindx).service_type_code := a46(indx);
134 t(ddindx).attribute_category := a47(indx);
135 t(ddindx).attribute1 := a48(indx);
136 t(ddindx).attribute2 := a49(indx);
137 t(ddindx).attribute3 := a50(indx);
138 t(ddindx).attribute4 := a51(indx);
139 t(ddindx).attribute5 := a52(indx);
140 t(ddindx).attribute6 := a53(indx);
141 t(ddindx).attribute7 := a54(indx);
142 t(ddindx).attribute8 := a55(indx);
143 t(ddindx).attribute9 := a56(indx);
144 t(ddindx).attribute10 := a57(indx);
145 t(ddindx).attribute11 := a58(indx);
146 t(ddindx).attribute12 := a59(indx);
147 t(ddindx).attribute13 := a60(indx);
148 t(ddindx).attribute14 := a61(indx);
149 t(ddindx).attribute15 := a62(indx);
150 ddindx := ddindx+1;
151 if a0.last =indx
152 then exit;
153 end if;
154 indx := a0.next(indx);
155 end loop;
156 end if;
157 end if;
158 end rosetta_table_copy_in_p5;
159 procedure rosetta_table_copy_out_p5(t ahl_prd_mtltxn_pvt.ahl_mtltxn_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
160 , a1 out nocopy JTF_NUMBER_TABLE
161 , a2 out nocopy JTF_VARCHAR2_TABLE_100
162 , a3 out nocopy JTF_VARCHAR2_TABLE_100
163 , a4 out nocopy JTF_VARCHAR2_TABLE_100
164 , a5 out nocopy JTF_NUMBER_TABLE
165 , a6 out nocopy JTF_VARCHAR2_TABLE_300
166 , a7 out nocopy JTF_VARCHAR2_TABLE_300
167 , a8 out nocopy JTF_VARCHAR2_TABLE_100
168 , a9 out nocopy JTF_NUMBER_TABLE
169 , a10 out nocopy JTF_VARCHAR2_TABLE_100
170 , a11 out nocopy JTF_NUMBER_TABLE
171 , a12 out nocopy JTF_NUMBER_TABLE
172 , a13 out nocopy JTF_VARCHAR2_TABLE_100
173 , a14 out nocopy JTF_VARCHAR2_TABLE_100
174 , a15 out nocopy JTF_NUMBER_TABLE
175 , a16 out nocopy JTF_VARCHAR2_TABLE_300
176 , a17 out nocopy JTF_NUMBER_TABLE
177 , a18 out nocopy JTF_NUMBER_TABLE
178 , a19 out nocopy JTF_NUMBER_TABLE
179 , a20 out nocopy JTF_VARCHAR2_TABLE_100
180 , a21 out nocopy JTF_VARCHAR2_TABLE_100
181 , a22 out nocopy JTF_NUMBER_TABLE
182 , a23 out nocopy JTF_VARCHAR2_TABLE_300
183 , a24 out nocopy JTF_VARCHAR2_TABLE_300
184 , a25 out nocopy JTF_NUMBER_TABLE
185 , a26 out nocopy JTF_NUMBER_TABLE
186 , a27 out nocopy JTF_VARCHAR2_TABLE_100
187 , a28 out nocopy JTF_VARCHAR2_TABLE_100
188 , a29 out nocopy JTF_NUMBER_TABLE
189 , a30 out nocopy JTF_VARCHAR2_TABLE_300
190 , a31 out nocopy JTF_VARCHAR2_TABLE_100
191 , a32 out nocopy JTF_VARCHAR2_TABLE_100
192 , a33 out nocopy JTF_NUMBER_TABLE
193 , a34 out nocopy JTF_VARCHAR2_TABLE_100
194 , a35 out nocopy JTF_NUMBER_TABLE
195 , a36 out nocopy JTF_NUMBER_TABLE
196 , a37 out nocopy JTF_DATE_TABLE
197 , a38 out nocopy JTF_NUMBER_TABLE
198 , a39 out nocopy JTF_VARCHAR2_TABLE_300
199 , a40 out nocopy JTF_NUMBER_TABLE
200 , a41 out nocopy JTF_VARCHAR2_TABLE_100
201 , a42 out nocopy JTF_VARCHAR2_TABLE_100
202 , a43 out nocopy JTF_VARCHAR2_TABLE_100
203 , a44 out nocopy JTF_VARCHAR2_TABLE_100
204 , a45 out nocopy JTF_VARCHAR2_TABLE_100
205 , a46 out nocopy JTF_VARCHAR2_TABLE_100
206 , a47 out nocopy JTF_VARCHAR2_TABLE_100
207 , a48 out nocopy JTF_VARCHAR2_TABLE_200
208 , a49 out nocopy JTF_VARCHAR2_TABLE_200
209 , a50 out nocopy JTF_VARCHAR2_TABLE_200
210 , a51 out nocopy JTF_VARCHAR2_TABLE_200
211 , a52 out nocopy JTF_VARCHAR2_TABLE_200
212 , a53 out nocopy JTF_VARCHAR2_TABLE_200
213 , a54 out nocopy JTF_VARCHAR2_TABLE_200
214 , a55 out nocopy JTF_VARCHAR2_TABLE_200
215 , a56 out nocopy JTF_VARCHAR2_TABLE_200
216 , a57 out nocopy JTF_VARCHAR2_TABLE_200
217 , a58 out nocopy JTF_VARCHAR2_TABLE_200
218 , a59 out nocopy JTF_VARCHAR2_TABLE_200
219 , a60 out nocopy JTF_VARCHAR2_TABLE_200
220 , a61 out nocopy JTF_VARCHAR2_TABLE_200
221 , a62 out nocopy JTF_VARCHAR2_TABLE_200
222 ) as
223 ddindx binary_integer; indx binary_integer;
224 begin
225 if t is null or t.count = 0 then
226 a0 := JTF_NUMBER_TABLE();
227 a1 := JTF_NUMBER_TABLE();
228 a2 := JTF_VARCHAR2_TABLE_100();
229 a3 := JTF_VARCHAR2_TABLE_100();
230 a4 := JTF_VARCHAR2_TABLE_100();
231 a5 := JTF_NUMBER_TABLE();
232 a6 := JTF_VARCHAR2_TABLE_300();
233 a7 := JTF_VARCHAR2_TABLE_300();
234 a8 := JTF_VARCHAR2_TABLE_100();
235 a9 := JTF_NUMBER_TABLE();
236 a10 := JTF_VARCHAR2_TABLE_100();
237 a11 := JTF_NUMBER_TABLE();
238 a12 := JTF_NUMBER_TABLE();
239 a13 := JTF_VARCHAR2_TABLE_100();
240 a14 := JTF_VARCHAR2_TABLE_100();
241 a15 := JTF_NUMBER_TABLE();
242 a16 := JTF_VARCHAR2_TABLE_300();
243 a17 := JTF_NUMBER_TABLE();
244 a18 := JTF_NUMBER_TABLE();
245 a19 := JTF_NUMBER_TABLE();
246 a20 := JTF_VARCHAR2_TABLE_100();
247 a21 := JTF_VARCHAR2_TABLE_100();
248 a22 := JTF_NUMBER_TABLE();
249 a23 := JTF_VARCHAR2_TABLE_300();
250 a24 := JTF_VARCHAR2_TABLE_300();
251 a25 := JTF_NUMBER_TABLE();
252 a26 := JTF_NUMBER_TABLE();
253 a27 := JTF_VARCHAR2_TABLE_100();
254 a28 := JTF_VARCHAR2_TABLE_100();
255 a29 := JTF_NUMBER_TABLE();
256 a30 := JTF_VARCHAR2_TABLE_300();
257 a31 := JTF_VARCHAR2_TABLE_100();
258 a32 := JTF_VARCHAR2_TABLE_100();
259 a33 := JTF_NUMBER_TABLE();
260 a34 := JTF_VARCHAR2_TABLE_100();
261 a35 := JTF_NUMBER_TABLE();
262 a36 := JTF_NUMBER_TABLE();
263 a37 := JTF_DATE_TABLE();
264 a38 := JTF_NUMBER_TABLE();
265 a39 := JTF_VARCHAR2_TABLE_300();
266 a40 := JTF_NUMBER_TABLE();
267 a41 := JTF_VARCHAR2_TABLE_100();
268 a42 := JTF_VARCHAR2_TABLE_100();
269 a43 := JTF_VARCHAR2_TABLE_100();
270 a44 := JTF_VARCHAR2_TABLE_100();
271 a45 := JTF_VARCHAR2_TABLE_100();
272 a46 := JTF_VARCHAR2_TABLE_100();
273 a47 := JTF_VARCHAR2_TABLE_100();
274 a48 := JTF_VARCHAR2_TABLE_200();
275 a49 := JTF_VARCHAR2_TABLE_200();
276 a50 := JTF_VARCHAR2_TABLE_200();
277 a51 := JTF_VARCHAR2_TABLE_200();
278 a52 := JTF_VARCHAR2_TABLE_200();
279 a53 := JTF_VARCHAR2_TABLE_200();
280 a54 := JTF_VARCHAR2_TABLE_200();
281 a55 := JTF_VARCHAR2_TABLE_200();
282 a56 := JTF_VARCHAR2_TABLE_200();
283 a57 := JTF_VARCHAR2_TABLE_200();
284 a58 := JTF_VARCHAR2_TABLE_200();
285 a59 := JTF_VARCHAR2_TABLE_200();
286 a60 := JTF_VARCHAR2_TABLE_200();
287 a61 := JTF_VARCHAR2_TABLE_200();
288 a62 := JTF_VARCHAR2_TABLE_200();
289 else
290 a0 := JTF_NUMBER_TABLE();
291 a1 := JTF_NUMBER_TABLE();
292 a2 := JTF_VARCHAR2_TABLE_100();
293 a3 := JTF_VARCHAR2_TABLE_100();
294 a4 := JTF_VARCHAR2_TABLE_100();
295 a5 := JTF_NUMBER_TABLE();
296 a6 := JTF_VARCHAR2_TABLE_300();
297 a7 := JTF_VARCHAR2_TABLE_300();
298 a8 := JTF_VARCHAR2_TABLE_100();
299 a9 := JTF_NUMBER_TABLE();
300 a10 := JTF_VARCHAR2_TABLE_100();
301 a11 := JTF_NUMBER_TABLE();
302 a12 := JTF_NUMBER_TABLE();
303 a13 := JTF_VARCHAR2_TABLE_100();
304 a14 := JTF_VARCHAR2_TABLE_100();
305 a15 := JTF_NUMBER_TABLE();
306 a16 := JTF_VARCHAR2_TABLE_300();
307 a17 := JTF_NUMBER_TABLE();
308 a18 := JTF_NUMBER_TABLE();
309 a19 := JTF_NUMBER_TABLE();
310 a20 := JTF_VARCHAR2_TABLE_100();
311 a21 := JTF_VARCHAR2_TABLE_100();
312 a22 := JTF_NUMBER_TABLE();
313 a23 := JTF_VARCHAR2_TABLE_300();
314 a24 := JTF_VARCHAR2_TABLE_300();
315 a25 := JTF_NUMBER_TABLE();
316 a26 := JTF_NUMBER_TABLE();
317 a27 := JTF_VARCHAR2_TABLE_100();
318 a28 := JTF_VARCHAR2_TABLE_100();
319 a29 := JTF_NUMBER_TABLE();
320 a30 := JTF_VARCHAR2_TABLE_300();
321 a31 := JTF_VARCHAR2_TABLE_100();
322 a32 := JTF_VARCHAR2_TABLE_100();
323 a33 := JTF_NUMBER_TABLE();
324 a34 := JTF_VARCHAR2_TABLE_100();
325 a35 := JTF_NUMBER_TABLE();
326 a36 := JTF_NUMBER_TABLE();
327 a37 := JTF_DATE_TABLE();
328 a38 := JTF_NUMBER_TABLE();
329 a39 := JTF_VARCHAR2_TABLE_300();
330 a40 := JTF_NUMBER_TABLE();
331 a41 := JTF_VARCHAR2_TABLE_100();
332 a42 := JTF_VARCHAR2_TABLE_100();
333 a43 := JTF_VARCHAR2_TABLE_100();
334 a44 := JTF_VARCHAR2_TABLE_100();
335 a45 := JTF_VARCHAR2_TABLE_100();
336 a46 := JTF_VARCHAR2_TABLE_100();
337 a47 := JTF_VARCHAR2_TABLE_100();
338 a48 := JTF_VARCHAR2_TABLE_200();
339 a49 := JTF_VARCHAR2_TABLE_200();
340 a50 := JTF_VARCHAR2_TABLE_200();
341 a51 := JTF_VARCHAR2_TABLE_200();
342 a52 := JTF_VARCHAR2_TABLE_200();
343 a53 := JTF_VARCHAR2_TABLE_200();
344 a54 := JTF_VARCHAR2_TABLE_200();
345 a55 := JTF_VARCHAR2_TABLE_200();
346 a56 := JTF_VARCHAR2_TABLE_200();
347 a57 := JTF_VARCHAR2_TABLE_200();
348 a58 := JTF_VARCHAR2_TABLE_200();
349 a59 := JTF_VARCHAR2_TABLE_200();
350 a60 := JTF_VARCHAR2_TABLE_200();
351 a61 := JTF_VARCHAR2_TABLE_200();
352 a62 := JTF_VARCHAR2_TABLE_200();
353 if t.count > 0 then
354 a0.extend(t.count);
355 a1.extend(t.count);
356 a2.extend(t.count);
357 a3.extend(t.count);
358 a4.extend(t.count);
359 a5.extend(t.count);
360 a6.extend(t.count);
361 a7.extend(t.count);
362 a8.extend(t.count);
363 a9.extend(t.count);
364 a10.extend(t.count);
365 a11.extend(t.count);
366 a12.extend(t.count);
367 a13.extend(t.count);
368 a14.extend(t.count);
369 a15.extend(t.count);
370 a16.extend(t.count);
371 a17.extend(t.count);
372 a18.extend(t.count);
373 a19.extend(t.count);
374 a20.extend(t.count);
375 a21.extend(t.count);
376 a22.extend(t.count);
377 a23.extend(t.count);
378 a24.extend(t.count);
379 a25.extend(t.count);
380 a26.extend(t.count);
381 a27.extend(t.count);
382 a28.extend(t.count);
383 a29.extend(t.count);
384 a30.extend(t.count);
385 a31.extend(t.count);
386 a32.extend(t.count);
387 a33.extend(t.count);
388 a34.extend(t.count);
389 a35.extend(t.count);
390 a36.extend(t.count);
391 a37.extend(t.count);
392 a38.extend(t.count);
393 a39.extend(t.count);
394 a40.extend(t.count);
395 a41.extend(t.count);
396 a42.extend(t.count);
397 a43.extend(t.count);
398 a44.extend(t.count);
399 a45.extend(t.count);
400 a46.extend(t.count);
401 a47.extend(t.count);
402 a48.extend(t.count);
403 a49.extend(t.count);
404 a50.extend(t.count);
405 a51.extend(t.count);
406 a52.extend(t.count);
407 a53.extend(t.count);
408 a54.extend(t.count);
409 a55.extend(t.count);
410 a56.extend(t.count);
411 a57.extend(t.count);
412 a58.extend(t.count);
413 a59.extend(t.count);
414 a60.extend(t.count);
415 a61.extend(t.count);
416 a62.extend(t.count);
417 ddindx := t.first;
418 indx := 1;
419 while true loop
420 a0(indx) := t(ddindx).ahl_mtltxn_id;
421 a1(indx) := t(ddindx).workorder_id;
422 a2(indx) := t(ddindx).workorder_name;
423 a3(indx) := t(ddindx).workorder_status;
424 a4(indx) := t(ddindx).workorder_status_code;
425 a5(indx) := t(ddindx).inventory_item_id;
426 a6(indx) := t(ddindx).inventory_item_segments;
427 a7(indx) := t(ddindx).inventory_item_description;
428 a8(indx) := t(ddindx).item_instance_number;
429 a9(indx) := t(ddindx).item_instance_id;
430 a10(indx) := t(ddindx).revision;
431 a11(indx) := t(ddindx).organization_id;
432 a12(indx) := t(ddindx).condition;
433 a13(indx) := t(ddindx).condition_desc;
434 a14(indx) := t(ddindx).subinventory_name;
435 a15(indx) := t(ddindx).locator_id;
436 a16(indx) := t(ddindx).locator_segments;
437 a17(indx) := t(ddindx).quantity;
438 a18(indx) := t(ddindx).net_total_qty;
439 a19(indx) := t(ddindx).net_quantity;
440 a20(indx) := t(ddindx).uom;
441 a21(indx) := t(ddindx).uom_desc;
442 a22(indx) := t(ddindx).transaction_type_id;
443 a23(indx) := t(ddindx).transaction_type_name;
444 a24(indx) := t(ddindx).transaction_reference;
445 a25(indx) := t(ddindx).wip_entity_id;
446 a26(indx) := t(ddindx).operation_seq_num;
447 a27(indx) := t(ddindx).serial_number;
448 a28(indx) := t(ddindx).lot_number;
449 a29(indx) := t(ddindx).reason_id;
450 a30(indx) := t(ddindx).reason_name;
451 a31(indx) := t(ddindx).problem_code;
452 a32(indx) := t(ddindx).problem_code_meaning;
453 a33(indx) := t(ddindx).target_visit_id;
454 a34(indx) := t(ddindx).sr_summary;
455 a35(indx) := t(ddindx).qa_collection_id;
456 a36(indx) := t(ddindx).workorder_operation_id;
457 a37(indx) := t(ddindx).transaction_date;
458 a38(indx) := t(ddindx).recepient_id;
459 a39(indx) := t(ddindx).recepient_name;
460 a40(indx) := t(ddindx).disposition_id;
461 a41(indx) := t(ddindx).disposition_name;
462 a42(indx) := t(ddindx).move_to_project_flag;
463 a43(indx) := t(ddindx).visit_locator_flag;
464 a44(indx) := t(ddindx).create_wo_option;
465 a45(indx) := t(ddindx).service_type;
466 a46(indx) := t(ddindx).service_type_code;
467 a47(indx) := t(ddindx).attribute_category;
468 a48(indx) := t(ddindx).attribute1;
469 a49(indx) := t(ddindx).attribute2;
470 a50(indx) := t(ddindx).attribute3;
471 a51(indx) := t(ddindx).attribute4;
472 a52(indx) := t(ddindx).attribute5;
473 a53(indx) := t(ddindx).attribute6;
474 a54(indx) := t(ddindx).attribute7;
475 a55(indx) := t(ddindx).attribute8;
476 a56(indx) := t(ddindx).attribute9;
477 a57(indx) := t(ddindx).attribute10;
478 a58(indx) := t(ddindx).attribute11;
479 a59(indx) := t(ddindx).attribute12;
480 a60(indx) := t(ddindx).attribute13;
481 a61(indx) := t(ddindx).attribute14;
482 a62(indx) := t(ddindx).attribute15;
483 indx := indx+1;
484 if t.last =ddindx
485 then exit;
486 end if;
487 ddindx := t.next(ddindx);
488 end loop;
489 end if;
490 end if;
491 end rosetta_table_copy_out_p5;
492
493 procedure rosetta_table_copy_in_p6(t out nocopy ahl_prd_mtltxn_pvt.ahl_mtl_txn_id_tbl, a0 JTF_NUMBER_TABLE) as
494 ddindx binary_integer; indx binary_integer;
495 begin
496 if a0 is not null and a0.count > 0 then
497 if a0.count > 0 then
498 indx := a0.first;
499 ddindx := 1;
500 while true loop
501 t(ddindx) := a0(indx);
502 ddindx := ddindx+1;
503 if a0.last =indx
504 then exit;
505 end if;
506 indx := a0.next(indx);
507 end loop;
508 end if;
509 end if;
510 end rosetta_table_copy_in_p6;
511 procedure rosetta_table_copy_out_p6(t ahl_prd_mtltxn_pvt.ahl_mtl_txn_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
512 ddindx binary_integer; indx binary_integer;
513 begin
514 if t is null or t.count = 0 then
515 a0 := JTF_NUMBER_TABLE();
516 else
517 a0 := JTF_NUMBER_TABLE();
518 if t.count > 0 then
519 a0.extend(t.count);
520 ddindx := t.first;
521 indx := 1;
522 while true loop
523 a0(indx) := t(ddindx);
524 indx := indx+1;
525 if t.last =ddindx
526 then exit;
527 end if;
528 ddindx := t.next(ddindx);
529 end loop;
530 end if;
531 end if;
532 end rosetta_table_copy_out_p6;
533
534 procedure perform_mtl_txn(p_api_version NUMBER
535 , p_init_msg_list VARCHAR2
536 , p_commit VARCHAR2
537 , p_validation_level NUMBER
538 , p_default VARCHAR2
539 , p_module_type VARCHAR2
540 , p_create_sr VARCHAR2
541 , p7_a0 in out nocopy JTF_NUMBER_TABLE
542 , p7_a1 in out nocopy JTF_NUMBER_TABLE
543 , p7_a2 in out nocopy JTF_VARCHAR2_TABLE_100
544 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_100
545 , p7_a4 in out nocopy JTF_VARCHAR2_TABLE_100
546 , p7_a5 in out nocopy JTF_NUMBER_TABLE
547 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_300
548 , p7_a7 in out nocopy JTF_VARCHAR2_TABLE_300
549 , p7_a8 in out nocopy JTF_VARCHAR2_TABLE_100
550 , p7_a9 in out nocopy JTF_NUMBER_TABLE
551 , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_100
552 , p7_a11 in out nocopy JTF_NUMBER_TABLE
553 , p7_a12 in out nocopy JTF_NUMBER_TABLE
554 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_100
555 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_100
556 , p7_a15 in out nocopy JTF_NUMBER_TABLE
557 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_300
558 , p7_a17 in out nocopy JTF_NUMBER_TABLE
559 , p7_a18 in out nocopy JTF_NUMBER_TABLE
560 , p7_a19 in out nocopy JTF_NUMBER_TABLE
561 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_100
562 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_100
563 , p7_a22 in out nocopy JTF_NUMBER_TABLE
564 , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_300
565 , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_300
566 , p7_a25 in out nocopy JTF_NUMBER_TABLE
567 , p7_a26 in out nocopy JTF_NUMBER_TABLE
568 , p7_a27 in out nocopy JTF_VARCHAR2_TABLE_100
569 , p7_a28 in out nocopy JTF_VARCHAR2_TABLE_100
570 , p7_a29 in out nocopy JTF_NUMBER_TABLE
571 , p7_a30 in out nocopy JTF_VARCHAR2_TABLE_300
572 , p7_a31 in out nocopy JTF_VARCHAR2_TABLE_100
573 , p7_a32 in out nocopy JTF_VARCHAR2_TABLE_100
574 , p7_a33 in out nocopy JTF_NUMBER_TABLE
575 , p7_a34 in out nocopy JTF_VARCHAR2_TABLE_100
576 , p7_a35 in out nocopy JTF_NUMBER_TABLE
577 , p7_a36 in out nocopy JTF_NUMBER_TABLE
578 , p7_a37 in out nocopy JTF_DATE_TABLE
579 , p7_a38 in out nocopy JTF_NUMBER_TABLE
580 , p7_a39 in out nocopy JTF_VARCHAR2_TABLE_300
581 , p7_a40 in out nocopy JTF_NUMBER_TABLE
582 , p7_a41 in out nocopy JTF_VARCHAR2_TABLE_100
583 , p7_a42 in out nocopy JTF_VARCHAR2_TABLE_100
584 , p7_a43 in out nocopy JTF_VARCHAR2_TABLE_100
585 , p7_a44 in out nocopy JTF_VARCHAR2_TABLE_100
586 , p7_a45 in out nocopy JTF_VARCHAR2_TABLE_100
587 , p7_a46 in out nocopy JTF_VARCHAR2_TABLE_100
588 , p7_a47 in out nocopy JTF_VARCHAR2_TABLE_100
589 , p7_a48 in out nocopy JTF_VARCHAR2_TABLE_200
590 , p7_a49 in out nocopy JTF_VARCHAR2_TABLE_200
591 , p7_a50 in out nocopy JTF_VARCHAR2_TABLE_200
592 , p7_a51 in out nocopy JTF_VARCHAR2_TABLE_200
593 , p7_a52 in out nocopy JTF_VARCHAR2_TABLE_200
594 , p7_a53 in out nocopy JTF_VARCHAR2_TABLE_200
595 , p7_a54 in out nocopy JTF_VARCHAR2_TABLE_200
596 , p7_a55 in out nocopy JTF_VARCHAR2_TABLE_200
597 , p7_a56 in out nocopy JTF_VARCHAR2_TABLE_200
598 , p7_a57 in out nocopy JTF_VARCHAR2_TABLE_200
599 , p7_a58 in out nocopy JTF_VARCHAR2_TABLE_200
600 , p7_a59 in out nocopy JTF_VARCHAR2_TABLE_200
601 , p7_a60 in out nocopy JTF_VARCHAR2_TABLE_200
602 , p7_a61 in out nocopy JTF_VARCHAR2_TABLE_200
603 , p7_a62 in out nocopy JTF_VARCHAR2_TABLE_200
604 , x_return_status out nocopy VARCHAR2
605 , x_msg_count out nocopy NUMBER
606 , x_msg_data out nocopy VARCHAR2
607 )
608
609 as
610 ddp_x_ahl_mtltxn_tbl ahl_prd_mtltxn_pvt.ahl_mtltxn_tbl_type;
611 ddindx binary_integer; indx binary_integer;
612 begin
613
614 -- copy data to the local IN or IN-OUT args, if any
615
616
617
618
619
620
621
622 ahl_prd_mtltxn_pvt_w.rosetta_table_copy_in_p5(ddp_x_ahl_mtltxn_tbl, p7_a0
623 , p7_a1
624 , p7_a2
625 , p7_a3
626 , p7_a4
627 , p7_a5
628 , p7_a6
629 , p7_a7
630 , p7_a8
631 , p7_a9
632 , p7_a10
633 , p7_a11
634 , p7_a12
635 , p7_a13
636 , p7_a14
637 , p7_a15
638 , p7_a16
639 , p7_a17
640 , p7_a18
641 , p7_a19
642 , p7_a20
643 , p7_a21
644 , p7_a22
645 , p7_a23
646 , p7_a24
647 , p7_a25
648 , p7_a26
649 , p7_a27
650 , p7_a28
651 , p7_a29
652 , p7_a30
653 , p7_a31
654 , p7_a32
655 , p7_a33
656 , p7_a34
657 , p7_a35
658 , p7_a36
659 , p7_a37
660 , p7_a38
661 , p7_a39
662 , p7_a40
663 , p7_a41
664 , p7_a42
665 , p7_a43
666 , p7_a44
667 , p7_a45
668 , p7_a46
669 , p7_a47
670 , p7_a48
671 , p7_a49
672 , p7_a50
673 , p7_a51
674 , p7_a52
675 , p7_a53
676 , p7_a54
677 , p7_a55
678 , p7_a56
679 , p7_a57
680 , p7_a58
681 , p7_a59
682 , p7_a60
683 , p7_a61
684 , p7_a62
685 );
686
687
688
689
690 -- here's the delegated call to the old PL/SQL routine
691 ahl_prd_mtltxn_pvt.perform_mtl_txn(p_api_version,
692 p_init_msg_list,
693 p_commit,
694 p_validation_level,
695 p_default,
696 p_module_type,
697 p_create_sr,
698 ddp_x_ahl_mtltxn_tbl,
699 x_return_status,
700 x_msg_count,
701 x_msg_data);
702
703 -- copy data back from the local variables to OUT or IN-OUT args, if any
704
705
706
707
708
709
710
711 ahl_prd_mtltxn_pvt_w.rosetta_table_copy_out_p5(ddp_x_ahl_mtltxn_tbl, p7_a0
712 , p7_a1
713 , p7_a2
714 , p7_a3
715 , p7_a4
716 , p7_a5
717 , p7_a6
718 , p7_a7
719 , p7_a8
720 , p7_a9
721 , p7_a10
722 , p7_a11
723 , p7_a12
724 , p7_a13
725 , p7_a14
726 , p7_a15
727 , p7_a16
728 , p7_a17
729 , p7_a18
730 , p7_a19
731 , p7_a20
732 , p7_a21
733 , p7_a22
734 , p7_a23
735 , p7_a24
736 , p7_a25
737 , p7_a26
738 , p7_a27
739 , p7_a28
740 , p7_a29
741 , p7_a30
742 , p7_a31
743 , p7_a32
744 , p7_a33
745 , p7_a34
746 , p7_a35
747 , p7_a36
748 , p7_a37
749 , p7_a38
750 , p7_a39
751 , p7_a40
752 , p7_a41
753 , p7_a42
754 , p7_a43
755 , p7_a44
756 , p7_a45
757 , p7_a46
758 , p7_a47
759 , p7_a48
760 , p7_a49
761 , p7_a50
762 , p7_a51
763 , p7_a52
764 , p7_a53
765 , p7_a54
766 , p7_a55
767 , p7_a56
768 , p7_a57
769 , p7_a58
770 , p7_a59
771 , p7_a60
772 , p7_a61
773 , p7_a62
774 );
775
776
777
778 end;
779
780 procedure validate_txn_rec(p0_a0 in out nocopy NUMBER
781 , p0_a1 in out nocopy NUMBER
782 , p0_a2 in out nocopy VARCHAR2
783 , p0_a3 in out nocopy VARCHAR2
784 , p0_a4 in out nocopy VARCHAR2
785 , p0_a5 in out nocopy NUMBER
786 , p0_a6 in out nocopy VARCHAR2
787 , p0_a7 in out nocopy VARCHAR2
788 , p0_a8 in out nocopy VARCHAR2
789 , p0_a9 in out nocopy NUMBER
790 , p0_a10 in out nocopy VARCHAR2
791 , p0_a11 in out nocopy NUMBER
792 , p0_a12 in out nocopy NUMBER
793 , p0_a13 in out nocopy VARCHAR2
794 , p0_a14 in out nocopy VARCHAR2
795 , p0_a15 in out nocopy NUMBER
796 , p0_a16 in out nocopy VARCHAR2
797 , p0_a17 in out nocopy NUMBER
798 , p0_a18 in out nocopy NUMBER
799 , p0_a19 in out nocopy NUMBER
800 , p0_a20 in out nocopy VARCHAR2
801 , p0_a21 in out nocopy VARCHAR2
802 , p0_a22 in out nocopy NUMBER
803 , p0_a23 in out nocopy VARCHAR2
804 , p0_a24 in out nocopy VARCHAR2
805 , p0_a25 in out nocopy NUMBER
806 , p0_a26 in out nocopy NUMBER
807 , p0_a27 in out nocopy VARCHAR2
808 , p0_a28 in out nocopy VARCHAR2
809 , p0_a29 in out nocopy NUMBER
810 , p0_a30 in out nocopy VARCHAR2
811 , p0_a31 in out nocopy VARCHAR2
812 , p0_a32 in out nocopy VARCHAR2
813 , p0_a33 in out nocopy NUMBER
814 , p0_a34 in out nocopy VARCHAR2
815 , p0_a35 in out nocopy NUMBER
816 , p0_a36 in out nocopy NUMBER
817 , p0_a37 in out nocopy DATE
818 , p0_a38 in out nocopy NUMBER
819 , p0_a39 in out nocopy VARCHAR2
820 , p0_a40 in out nocopy NUMBER
821 , p0_a41 in out nocopy VARCHAR2
822 , p0_a42 in out nocopy VARCHAR2
823 , p0_a43 in out nocopy VARCHAR2
824 , p0_a44 in out nocopy VARCHAR2
825 , p0_a45 in out nocopy VARCHAR
826 , p0_a46 in out nocopy VARCHAR
827 , p0_a47 in out nocopy VARCHAR2
828 , p0_a48 in out nocopy VARCHAR2
829 , p0_a49 in out nocopy VARCHAR2
830 , p0_a50 in out nocopy VARCHAR2
831 , p0_a51 in out nocopy VARCHAR2
832 , p0_a52 in out nocopy VARCHAR2
833 , p0_a53 in out nocopy VARCHAR2
834 , p0_a54 in out nocopy VARCHAR2
835 , p0_a55 in out nocopy VARCHAR2
836 , p0_a56 in out nocopy VARCHAR2
837 , p0_a57 in out nocopy VARCHAR2
838 , p0_a58 in out nocopy VARCHAR2
839 , p0_a59 in out nocopy VARCHAR2
840 , p0_a60 in out nocopy VARCHAR2
841 , p0_a61 in out nocopy VARCHAR2
842 , p0_a62 in out nocopy VARCHAR2
843 , x_item_instance_id out nocopy NUMBER
844 , x_eam_item_type_id out nocopy NUMBER
845 , x_return_status out nocopy VARCHAR2
846 , x_msg_count out nocopy NUMBER
847 , x_msg_data out nocopy VARCHAR2
848 )
849
850 as
851 ddp_x_ahl_mtltxn_rec ahl_prd_mtltxn_pvt.ahl_mtltxn_rec_type;
852 ddindx binary_integer; indx binary_integer;
853 begin
854
855 -- copy data to the local IN or IN-OUT args, if any
856 ddp_x_ahl_mtltxn_rec.ahl_mtltxn_id := p0_a0;
857 ddp_x_ahl_mtltxn_rec.workorder_id := p0_a1;
858 ddp_x_ahl_mtltxn_rec.workorder_name := p0_a2;
859 ddp_x_ahl_mtltxn_rec.workorder_status := p0_a3;
860 ddp_x_ahl_mtltxn_rec.workorder_status_code := p0_a4;
861 ddp_x_ahl_mtltxn_rec.inventory_item_id := p0_a5;
862 ddp_x_ahl_mtltxn_rec.inventory_item_segments := p0_a6;
863 ddp_x_ahl_mtltxn_rec.inventory_item_description := p0_a7;
864 ddp_x_ahl_mtltxn_rec.item_instance_number := p0_a8;
865 ddp_x_ahl_mtltxn_rec.item_instance_id := p0_a9;
866 ddp_x_ahl_mtltxn_rec.revision := p0_a10;
867 ddp_x_ahl_mtltxn_rec.organization_id := p0_a11;
868 ddp_x_ahl_mtltxn_rec.condition := p0_a12;
869 ddp_x_ahl_mtltxn_rec.condition_desc := p0_a13;
870 ddp_x_ahl_mtltxn_rec.subinventory_name := p0_a14;
871 ddp_x_ahl_mtltxn_rec.locator_id := p0_a15;
872 ddp_x_ahl_mtltxn_rec.locator_segments := p0_a16;
873 ddp_x_ahl_mtltxn_rec.quantity := p0_a17;
874 ddp_x_ahl_mtltxn_rec.net_total_qty := p0_a18;
875 ddp_x_ahl_mtltxn_rec.net_quantity := p0_a19;
876 ddp_x_ahl_mtltxn_rec.uom := p0_a20;
877 ddp_x_ahl_mtltxn_rec.uom_desc := p0_a21;
878 ddp_x_ahl_mtltxn_rec.transaction_type_id := p0_a22;
879 ddp_x_ahl_mtltxn_rec.transaction_type_name := p0_a23;
880 ddp_x_ahl_mtltxn_rec.transaction_reference := p0_a24;
881 ddp_x_ahl_mtltxn_rec.wip_entity_id := p0_a25;
882 ddp_x_ahl_mtltxn_rec.operation_seq_num := p0_a26;
883 ddp_x_ahl_mtltxn_rec.serial_number := p0_a27;
884 ddp_x_ahl_mtltxn_rec.lot_number := p0_a28;
885 ddp_x_ahl_mtltxn_rec.reason_id := p0_a29;
886 ddp_x_ahl_mtltxn_rec.reason_name := p0_a30;
887 ddp_x_ahl_mtltxn_rec.problem_code := p0_a31;
888 ddp_x_ahl_mtltxn_rec.problem_code_meaning := p0_a32;
889 ddp_x_ahl_mtltxn_rec.target_visit_id := p0_a33;
890 ddp_x_ahl_mtltxn_rec.sr_summary := p0_a34;
891 ddp_x_ahl_mtltxn_rec.qa_collection_id := p0_a35;
892 ddp_x_ahl_mtltxn_rec.workorder_operation_id := p0_a36;
893 ddp_x_ahl_mtltxn_rec.transaction_date := rosetta_g_miss_date_in_map(p0_a37);
894 ddp_x_ahl_mtltxn_rec.recepient_id := p0_a38;
895 ddp_x_ahl_mtltxn_rec.recepient_name := p0_a39;
896 ddp_x_ahl_mtltxn_rec.disposition_id := p0_a40;
897 ddp_x_ahl_mtltxn_rec.disposition_name := p0_a41;
898 ddp_x_ahl_mtltxn_rec.move_to_project_flag := p0_a42;
899 ddp_x_ahl_mtltxn_rec.visit_locator_flag := p0_a43;
900 ddp_x_ahl_mtltxn_rec.create_wo_option := p0_a44;
901 ddp_x_ahl_mtltxn_rec.service_type := p0_a45;
902 ddp_x_ahl_mtltxn_rec.service_type_code := p0_a46;
903 ddp_x_ahl_mtltxn_rec.attribute_category := p0_a47;
904 ddp_x_ahl_mtltxn_rec.attribute1 := p0_a48;
905 ddp_x_ahl_mtltxn_rec.attribute2 := p0_a49;
906 ddp_x_ahl_mtltxn_rec.attribute3 := p0_a50;
907 ddp_x_ahl_mtltxn_rec.attribute4 := p0_a51;
908 ddp_x_ahl_mtltxn_rec.attribute5 := p0_a52;
909 ddp_x_ahl_mtltxn_rec.attribute6 := p0_a53;
910 ddp_x_ahl_mtltxn_rec.attribute7 := p0_a54;
911 ddp_x_ahl_mtltxn_rec.attribute8 := p0_a55;
912 ddp_x_ahl_mtltxn_rec.attribute9 := p0_a56;
913 ddp_x_ahl_mtltxn_rec.attribute10 := p0_a57;
914 ddp_x_ahl_mtltxn_rec.attribute11 := p0_a58;
915 ddp_x_ahl_mtltxn_rec.attribute12 := p0_a59;
916 ddp_x_ahl_mtltxn_rec.attribute13 := p0_a60;
917 ddp_x_ahl_mtltxn_rec.attribute14 := p0_a61;
918 ddp_x_ahl_mtltxn_rec.attribute15 := p0_a62;
919
920
921
922
923
924
925 -- here's the delegated call to the old PL/SQL routine
926 ahl_prd_mtltxn_pvt.validate_txn_rec(ddp_x_ahl_mtltxn_rec,
927 x_item_instance_id,
928 x_eam_item_type_id,
929 x_return_status,
930 x_msg_count,
931 x_msg_data);
932
933 -- copy data back from the local variables to OUT or IN-OUT args, if any
934 p0_a0 := ddp_x_ahl_mtltxn_rec.ahl_mtltxn_id;
935 p0_a1 := ddp_x_ahl_mtltxn_rec.workorder_id;
936 p0_a2 := ddp_x_ahl_mtltxn_rec.workorder_name;
937 p0_a3 := ddp_x_ahl_mtltxn_rec.workorder_status;
938 p0_a4 := ddp_x_ahl_mtltxn_rec.workorder_status_code;
939 p0_a5 := ddp_x_ahl_mtltxn_rec.inventory_item_id;
940 p0_a6 := ddp_x_ahl_mtltxn_rec.inventory_item_segments;
941 p0_a7 := ddp_x_ahl_mtltxn_rec.inventory_item_description;
942 p0_a8 := ddp_x_ahl_mtltxn_rec.item_instance_number;
943 p0_a9 := ddp_x_ahl_mtltxn_rec.item_instance_id;
944 p0_a10 := ddp_x_ahl_mtltxn_rec.revision;
945 p0_a11 := ddp_x_ahl_mtltxn_rec.organization_id;
946 p0_a12 := ddp_x_ahl_mtltxn_rec.condition;
947 p0_a13 := ddp_x_ahl_mtltxn_rec.condition_desc;
948 p0_a14 := ddp_x_ahl_mtltxn_rec.subinventory_name;
949 p0_a15 := ddp_x_ahl_mtltxn_rec.locator_id;
950 p0_a16 := ddp_x_ahl_mtltxn_rec.locator_segments;
951 p0_a17 := ddp_x_ahl_mtltxn_rec.quantity;
952 p0_a18 := ddp_x_ahl_mtltxn_rec.net_total_qty;
953 p0_a19 := ddp_x_ahl_mtltxn_rec.net_quantity;
954 p0_a20 := ddp_x_ahl_mtltxn_rec.uom;
955 p0_a21 := ddp_x_ahl_mtltxn_rec.uom_desc;
956 p0_a22 := ddp_x_ahl_mtltxn_rec.transaction_type_id;
957 p0_a23 := ddp_x_ahl_mtltxn_rec.transaction_type_name;
958 p0_a24 := ddp_x_ahl_mtltxn_rec.transaction_reference;
959 p0_a25 := ddp_x_ahl_mtltxn_rec.wip_entity_id;
960 p0_a26 := ddp_x_ahl_mtltxn_rec.operation_seq_num;
961 p0_a27 := ddp_x_ahl_mtltxn_rec.serial_number;
962 p0_a28 := ddp_x_ahl_mtltxn_rec.lot_number;
963 p0_a29 := ddp_x_ahl_mtltxn_rec.reason_id;
964 p0_a30 := ddp_x_ahl_mtltxn_rec.reason_name;
965 p0_a31 := ddp_x_ahl_mtltxn_rec.problem_code;
966 p0_a32 := ddp_x_ahl_mtltxn_rec.problem_code_meaning;
967 p0_a33 := ddp_x_ahl_mtltxn_rec.target_visit_id;
968 p0_a34 := ddp_x_ahl_mtltxn_rec.sr_summary;
969 p0_a35 := ddp_x_ahl_mtltxn_rec.qa_collection_id;
970 p0_a36 := ddp_x_ahl_mtltxn_rec.workorder_operation_id;
971 p0_a37 := ddp_x_ahl_mtltxn_rec.transaction_date;
972 p0_a38 := ddp_x_ahl_mtltxn_rec.recepient_id;
973 p0_a39 := ddp_x_ahl_mtltxn_rec.recepient_name;
974 p0_a40 := ddp_x_ahl_mtltxn_rec.disposition_id;
975 p0_a41 := ddp_x_ahl_mtltxn_rec.disposition_name;
976 p0_a42 := ddp_x_ahl_mtltxn_rec.move_to_project_flag;
977 p0_a43 := ddp_x_ahl_mtltxn_rec.visit_locator_flag;
978 p0_a44 := ddp_x_ahl_mtltxn_rec.create_wo_option;
979 p0_a45 := ddp_x_ahl_mtltxn_rec.service_type;
980 p0_a46 := ddp_x_ahl_mtltxn_rec.service_type_code;
981 p0_a47 := ddp_x_ahl_mtltxn_rec.attribute_category;
982 p0_a48 := ddp_x_ahl_mtltxn_rec.attribute1;
983 p0_a49 := ddp_x_ahl_mtltxn_rec.attribute2;
984 p0_a50 := ddp_x_ahl_mtltxn_rec.attribute3;
985 p0_a51 := ddp_x_ahl_mtltxn_rec.attribute4;
986 p0_a52 := ddp_x_ahl_mtltxn_rec.attribute5;
987 p0_a53 := ddp_x_ahl_mtltxn_rec.attribute6;
988 p0_a54 := ddp_x_ahl_mtltxn_rec.attribute7;
989 p0_a55 := ddp_x_ahl_mtltxn_rec.attribute8;
990 p0_a56 := ddp_x_ahl_mtltxn_rec.attribute9;
991 p0_a57 := ddp_x_ahl_mtltxn_rec.attribute10;
992 p0_a58 := ddp_x_ahl_mtltxn_rec.attribute11;
993 p0_a59 := ddp_x_ahl_mtltxn_rec.attribute12;
994 p0_a60 := ddp_x_ahl_mtltxn_rec.attribute13;
995 p0_a61 := ddp_x_ahl_mtltxn_rec.attribute14;
996 p0_a62 := ddp_x_ahl_mtltxn_rec.attribute15;
997
998
999
1000
1001
1002 end;
1003
1004 procedure get_mtl_trans_returns(p_api_version NUMBER
1005 , p_init_msg_list VARCHAR2
1006 , p_commit VARCHAR2
1007 , p_validation_level NUMBER
1008 , p_default VARCHAR2
1009 , p_module_type VARCHAR2
1010 , x_return_status out nocopy VARCHAR2
1011 , x_msg_count out nocopy NUMBER
1012 , x_msg_data out nocopy VARCHAR2
1013 , p9_a0 VARCHAR2
1014 , p9_a1 VARCHAR2
1015 , p9_a2 VARCHAR2
1016 , p9_a3 VARCHAR2
1017 , p9_a4 DATE
1018 , p9_a5 DATE
1019 , p9_a6 VARCHAR2
1020 , p9_a7 NUMBER
1021 , p9_a8 VARCHAR2
1022 , p9_a9 VARCHAR2
1023 , p9_a10 NUMBER
1024 , p10_a0 in out nocopy JTF_NUMBER_TABLE
1025 , p10_a1 in out nocopy JTF_NUMBER_TABLE
1026 , p10_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1027 , p10_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1028 , p10_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1029 , p10_a5 in out nocopy JTF_NUMBER_TABLE
1030 , p10_a6 in out nocopy JTF_VARCHAR2_TABLE_300
1031 , p10_a7 in out nocopy JTF_VARCHAR2_TABLE_300
1032 , p10_a8 in out nocopy JTF_VARCHAR2_TABLE_100
1033 , p10_a9 in out nocopy JTF_NUMBER_TABLE
1034 , p10_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1035 , p10_a11 in out nocopy JTF_NUMBER_TABLE
1036 , p10_a12 in out nocopy JTF_NUMBER_TABLE
1037 , p10_a13 in out nocopy JTF_VARCHAR2_TABLE_100
1038 , p10_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1039 , p10_a15 in out nocopy JTF_NUMBER_TABLE
1040 , p10_a16 in out nocopy JTF_VARCHAR2_TABLE_300
1041 , p10_a17 in out nocopy JTF_NUMBER_TABLE
1042 , p10_a18 in out nocopy JTF_NUMBER_TABLE
1043 , p10_a19 in out nocopy JTF_NUMBER_TABLE
1044 , p10_a20 in out nocopy JTF_VARCHAR2_TABLE_100
1045 , p10_a21 in out nocopy JTF_VARCHAR2_TABLE_100
1046 , p10_a22 in out nocopy JTF_NUMBER_TABLE
1047 , p10_a23 in out nocopy JTF_VARCHAR2_TABLE_300
1048 , p10_a24 in out nocopy JTF_VARCHAR2_TABLE_300
1049 , p10_a25 in out nocopy JTF_NUMBER_TABLE
1050 , p10_a26 in out nocopy JTF_NUMBER_TABLE
1051 , p10_a27 in out nocopy JTF_VARCHAR2_TABLE_100
1052 , p10_a28 in out nocopy JTF_VARCHAR2_TABLE_100
1053 , p10_a29 in out nocopy JTF_NUMBER_TABLE
1054 , p10_a30 in out nocopy JTF_VARCHAR2_TABLE_300
1055 , p10_a31 in out nocopy JTF_VARCHAR2_TABLE_100
1056 , p10_a32 in out nocopy JTF_VARCHAR2_TABLE_100
1057 , p10_a33 in out nocopy JTF_NUMBER_TABLE
1058 , p10_a34 in out nocopy JTF_VARCHAR2_TABLE_100
1059 , p10_a35 in out nocopy JTF_NUMBER_TABLE
1060 , p10_a36 in out nocopy JTF_NUMBER_TABLE
1061 , p10_a37 in out nocopy JTF_DATE_TABLE
1062 , p10_a38 in out nocopy JTF_NUMBER_TABLE
1063 , p10_a39 in out nocopy JTF_VARCHAR2_TABLE_300
1064 , p10_a40 in out nocopy JTF_NUMBER_TABLE
1065 , p10_a41 in out nocopy JTF_VARCHAR2_TABLE_100
1066 , p10_a42 in out nocopy JTF_VARCHAR2_TABLE_100
1067 , p10_a43 in out nocopy JTF_VARCHAR2_TABLE_100
1068 , p10_a44 in out nocopy JTF_VARCHAR2_TABLE_100
1069 , p10_a45 in out nocopy JTF_VARCHAR2_TABLE_100
1070 , p10_a46 in out nocopy JTF_VARCHAR2_TABLE_100
1071 , p10_a47 in out nocopy JTF_VARCHAR2_TABLE_100
1072 , p10_a48 in out nocopy JTF_VARCHAR2_TABLE_200
1073 , p10_a49 in out nocopy JTF_VARCHAR2_TABLE_200
1074 , p10_a50 in out nocopy JTF_VARCHAR2_TABLE_200
1075 , p10_a51 in out nocopy JTF_VARCHAR2_TABLE_200
1076 , p10_a52 in out nocopy JTF_VARCHAR2_TABLE_200
1077 , p10_a53 in out nocopy JTF_VARCHAR2_TABLE_200
1078 , p10_a54 in out nocopy JTF_VARCHAR2_TABLE_200
1079 , p10_a55 in out nocopy JTF_VARCHAR2_TABLE_200
1080 , p10_a56 in out nocopy JTF_VARCHAR2_TABLE_200
1081 , p10_a57 in out nocopy JTF_VARCHAR2_TABLE_200
1082 , p10_a58 in out nocopy JTF_VARCHAR2_TABLE_200
1083 , p10_a59 in out nocopy JTF_VARCHAR2_TABLE_200
1084 , p10_a60 in out nocopy JTF_VARCHAR2_TABLE_200
1085 , p10_a61 in out nocopy JTF_VARCHAR2_TABLE_200
1086 , p10_a62 in out nocopy JTF_VARCHAR2_TABLE_200
1087 )
1088
1089 as
1090 ddp_prd_mtltxn_criteria_rec ahl_prd_mtltxn_pvt.prd_mtltxn_criteria_rec;
1091 ddx_ahl_mtltxn_tbl ahl_prd_mtltxn_pvt.ahl_mtltxn_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
1098
1099
1100
1101
1102
1103
1104
1105 ddp_prd_mtltxn_criteria_rec.job_number := p9_a0;
1106 ddp_prd_mtltxn_criteria_rec.priority := p9_a1;
1107 ddp_prd_mtltxn_criteria_rec.organization_name := p9_a2;
1108 ddp_prd_mtltxn_criteria_rec.concatenated_segments := p9_a3;
1109 ddp_prd_mtltxn_criteria_rec.requested_date_from := rosetta_g_miss_date_in_map(p9_a4);
1110 ddp_prd_mtltxn_criteria_rec.requested_date_to := rosetta_g_miss_date_in_map(p9_a5);
1111 ddp_prd_mtltxn_criteria_rec.incident_number := p9_a6;
1112 ddp_prd_mtltxn_criteria_rec.visit_number := p9_a7;
1113 ddp_prd_mtltxn_criteria_rec.department_name := p9_a8;
1114 ddp_prd_mtltxn_criteria_rec.disposition_name := p9_a9;
1115 ddp_prd_mtltxn_criteria_rec.transaction_type := p9_a10;
1116
1117 ahl_prd_mtltxn_pvt_w.rosetta_table_copy_in_p5(ddx_ahl_mtltxn_tbl, p10_a0
1118 , p10_a1
1119 , p10_a2
1120 , p10_a3
1121 , p10_a4
1122 , p10_a5
1123 , p10_a6
1124 , p10_a7
1125 , p10_a8
1126 , p10_a9
1127 , p10_a10
1128 , p10_a11
1129 , p10_a12
1130 , p10_a13
1131 , p10_a14
1132 , p10_a15
1133 , p10_a16
1134 , p10_a17
1135 , p10_a18
1136 , p10_a19
1137 , p10_a20
1138 , p10_a21
1139 , p10_a22
1140 , p10_a23
1141 , p10_a24
1142 , p10_a25
1143 , p10_a26
1144 , p10_a27
1145 , p10_a28
1146 , p10_a29
1147 , p10_a30
1148 , p10_a31
1149 , p10_a32
1150 , p10_a33
1151 , p10_a34
1152 , p10_a35
1153 , p10_a36
1154 , p10_a37
1155 , p10_a38
1156 , p10_a39
1157 , p10_a40
1158 , p10_a41
1159 , p10_a42
1160 , p10_a43
1161 , p10_a44
1162 , p10_a45
1163 , p10_a46
1164 , p10_a47
1165 , p10_a48
1166 , p10_a49
1167 , p10_a50
1168 , p10_a51
1169 , p10_a52
1170 , p10_a53
1171 , p10_a54
1172 , p10_a55
1173 , p10_a56
1174 , p10_a57
1175 , p10_a58
1176 , p10_a59
1177 , p10_a60
1178 , p10_a61
1179 , p10_a62
1180 );
1181
1182 -- here's the delegated call to the old PL/SQL routine
1183 ahl_prd_mtltxn_pvt.get_mtl_trans_returns(p_api_version,
1184 p_init_msg_list,
1185 p_commit,
1186 p_validation_level,
1187 p_default,
1188 p_module_type,
1189 x_return_status,
1190 x_msg_count,
1191 x_msg_data,
1192 ddp_prd_mtltxn_criteria_rec,
1193 ddx_ahl_mtltxn_tbl);
1194
1195 -- copy data back from the local variables to OUT or IN-OUT args, if any
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206 ahl_prd_mtltxn_pvt_w.rosetta_table_copy_out_p5(ddx_ahl_mtltxn_tbl, p10_a0
1207 , p10_a1
1208 , p10_a2
1209 , p10_a3
1210 , p10_a4
1211 , p10_a5
1212 , p10_a6
1213 , p10_a7
1214 , p10_a8
1215 , p10_a9
1216 , p10_a10
1217 , p10_a11
1218 , p10_a12
1219 , p10_a13
1220 , p10_a14
1221 , p10_a15
1222 , p10_a16
1223 , p10_a17
1224 , p10_a18
1225 , p10_a19
1226 , p10_a20
1227 , p10_a21
1228 , p10_a22
1229 , p10_a23
1230 , p10_a24
1231 , p10_a25
1232 , p10_a26
1233 , p10_a27
1234 , p10_a28
1235 , p10_a29
1236 , p10_a30
1237 , p10_a31
1238 , p10_a32
1239 , p10_a33
1240 , p10_a34
1241 , p10_a35
1242 , p10_a36
1243 , p10_a37
1244 , p10_a38
1245 , p10_a39
1246 , p10_a40
1247 , p10_a41
1248 , p10_a42
1249 , p10_a43
1250 , p10_a44
1251 , p10_a45
1252 , p10_a46
1253 , p10_a47
1254 , p10_a48
1255 , p10_a49
1256 , p10_a50
1257 , p10_a51
1258 , p10_a52
1259 , p10_a53
1260 , p10_a54
1261 , p10_a55
1262 , p10_a56
1263 , p10_a57
1264 , p10_a58
1265 , p10_a59
1266 , p10_a60
1267 , p10_a61
1268 , p10_a62
1269 );
1270 end;
1271
1272 end ahl_prd_mtltxn_pvt_w;