[Home] [Help]
PACKAGE BODY: APPS.AHL_LTP_MATRL_AVAL_PUB_W
Source
1 package body ahl_ltp_matrl_aval_pub_w as
2 /* $Header: AHLWMTAB.pls 120.2 2008/02/25 11:36:54 rnahata ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p3(t out nocopy ahl_ltp_matrl_aval_pub.material_availability_tbl, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_VARCHAR2_TABLE_100
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_DATE_TABLE
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_DATE_TABLE
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_VARCHAR2_TABLE_2000
34 , a18 JTF_VARCHAR2_TABLE_100
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).schedule_material_id := a0(indx);
44 t(ddindx).object_version_number := a1(indx);
45 t(ddindx).inventory_item_id := a2(indx);
46 t(ddindx).item := a3(indx);
47 t(ddindx).mr_route_id := a4(indx);
48 t(ddindx).visit_id := a5(indx);
49 t(ddindx).visit_task_id := a6(indx);
50 t(ddindx).organization_id := a7(indx);
51 t(ddindx).task_name := a8(indx);
52 t(ddindx).task_status_code := a9(indx);
53 t(ddindx).task_status_meaning := a10(indx);
54 t(ddindx).req_arrival_date := rosetta_g_miss_date_in_map(a11(indx));
55 t(ddindx).quantity_available := a12(indx);
56 t(ddindx).quantity := a13(indx);
57 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a14(indx));
58 t(ddindx).uom := a15(indx);
59 t(ddindx).error_code := a16(indx);
60 t(ddindx).error_message := a17(indx);
61 t(ddindx).plan_name := a18(indx);
62 ddindx := ddindx+1;
63 if a0.last =indx
64 then exit;
65 end if;
66 indx := a0.next(indx);
67 end loop;
68 end if;
69 end if;
70 end rosetta_table_copy_in_p3;
71 procedure rosetta_table_copy_out_p3(t ahl_ltp_matrl_aval_pub.material_availability_tbl, a0 out nocopy JTF_NUMBER_TABLE
72 , a1 out nocopy JTF_NUMBER_TABLE
73 , a2 out nocopy JTF_NUMBER_TABLE
74 , a3 out nocopy JTF_VARCHAR2_TABLE_100
75 , a4 out nocopy JTF_NUMBER_TABLE
76 , a5 out nocopy JTF_NUMBER_TABLE
77 , a6 out nocopy JTF_NUMBER_TABLE
78 , a7 out nocopy JTF_NUMBER_TABLE
79 , a8 out nocopy JTF_VARCHAR2_TABLE_100
80 , a9 out nocopy JTF_VARCHAR2_TABLE_100
81 , a10 out nocopy JTF_VARCHAR2_TABLE_100
82 , a11 out nocopy JTF_DATE_TABLE
83 , a12 out nocopy JTF_NUMBER_TABLE
84 , a13 out nocopy JTF_NUMBER_TABLE
85 , a14 out nocopy JTF_DATE_TABLE
86 , a15 out nocopy JTF_VARCHAR2_TABLE_100
87 , a16 out nocopy JTF_NUMBER_TABLE
88 , a17 out nocopy JTF_VARCHAR2_TABLE_2000
89 , a18 out nocopy JTF_VARCHAR2_TABLE_100
90 ) as
91 ddindx binary_integer; indx binary_integer;
92 begin
93 if t is null or t.count = 0 then
94 a0 := JTF_NUMBER_TABLE();
95 a1 := JTF_NUMBER_TABLE();
96 a2 := JTF_NUMBER_TABLE();
97 a3 := JTF_VARCHAR2_TABLE_100();
98 a4 := JTF_NUMBER_TABLE();
99 a5 := JTF_NUMBER_TABLE();
100 a6 := JTF_NUMBER_TABLE();
101 a7 := JTF_NUMBER_TABLE();
102 a8 := JTF_VARCHAR2_TABLE_100();
103 a9 := JTF_VARCHAR2_TABLE_100();
104 a10 := JTF_VARCHAR2_TABLE_100();
105 a11 := JTF_DATE_TABLE();
106 a12 := JTF_NUMBER_TABLE();
107 a13 := JTF_NUMBER_TABLE();
108 a14 := JTF_DATE_TABLE();
109 a15 := JTF_VARCHAR2_TABLE_100();
110 a16 := JTF_NUMBER_TABLE();
111 a17 := JTF_VARCHAR2_TABLE_2000();
112 a18 := JTF_VARCHAR2_TABLE_100();
113 else
114 a0 := JTF_NUMBER_TABLE();
115 a1 := JTF_NUMBER_TABLE();
116 a2 := JTF_NUMBER_TABLE();
117 a3 := JTF_VARCHAR2_TABLE_100();
118 a4 := JTF_NUMBER_TABLE();
119 a5 := JTF_NUMBER_TABLE();
120 a6 := JTF_NUMBER_TABLE();
121 a7 := JTF_NUMBER_TABLE();
122 a8 := JTF_VARCHAR2_TABLE_100();
123 a9 := JTF_VARCHAR2_TABLE_100();
124 a10 := JTF_VARCHAR2_TABLE_100();
125 a11 := JTF_DATE_TABLE();
126 a12 := JTF_NUMBER_TABLE();
127 a13 := JTF_NUMBER_TABLE();
128 a14 := JTF_DATE_TABLE();
129 a15 := JTF_VARCHAR2_TABLE_100();
130 a16 := JTF_NUMBER_TABLE();
131 a17 := JTF_VARCHAR2_TABLE_2000();
132 a18 := JTF_VARCHAR2_TABLE_100();
133 if t.count > 0 then
134 a0.extend(t.count);
135 a1.extend(t.count);
136 a2.extend(t.count);
137 a3.extend(t.count);
138 a4.extend(t.count);
139 a5.extend(t.count);
140 a6.extend(t.count);
141 a7.extend(t.count);
142 a8.extend(t.count);
143 a9.extend(t.count);
144 a10.extend(t.count);
145 a11.extend(t.count);
146 a12.extend(t.count);
147 a13.extend(t.count);
148 a14.extend(t.count);
149 a15.extend(t.count);
150 a16.extend(t.count);
151 a17.extend(t.count);
152 a18.extend(t.count);
153 ddindx := t.first;
154 indx := 1;
155 while true loop
156 a0(indx) := t(ddindx).schedule_material_id;
157 a1(indx) := t(ddindx).object_version_number;
158 a2(indx) := t(ddindx).inventory_item_id;
159 a3(indx) := t(ddindx).item;
160 a4(indx) := t(ddindx).mr_route_id;
161 a5(indx) := t(ddindx).visit_id;
162 a6(indx) := t(ddindx).visit_task_id;
163 a7(indx) := t(ddindx).organization_id;
164 a8(indx) := t(ddindx).task_name;
165 a9(indx) := t(ddindx).task_status_code;
166 a10(indx) := t(ddindx).task_status_meaning;
167 a11(indx) := t(ddindx).req_arrival_date;
168 a12(indx) := t(ddindx).quantity_available;
169 a13(indx) := t(ddindx).quantity;
170 a14(indx) := t(ddindx).scheduled_date;
171 a15(indx) := t(ddindx).uom;
172 a16(indx) := t(ddindx).error_code;
173 a17(indx) := t(ddindx).error_message;
174 a18(indx) := t(ddindx).plan_name;
175 indx := indx+1;
176 if t.last =ddindx
177 then exit;
178 end if;
179 ddindx := t.next(ddindx);
180 end loop;
181 end if;
182 end if;
183 end rosetta_table_copy_out_p3;
184
185 procedure rosetta_table_copy_in_p4(t out nocopy ahl_ltp_matrl_aval_pub.task_req_matrl_tbl, a0 JTF_NUMBER_TABLE
186 , a1 JTF_NUMBER_TABLE
187 , a2 JTF_NUMBER_TABLE
188 , a3 JTF_VARCHAR2_TABLE_100
189 , a4 JTF_VARCHAR2_TABLE_100
190 , a5 JTF_VARCHAR2_TABLE_100
191 , a6 JTF_NUMBER_TABLE
192 , a7 JTF_NUMBER_TABLE
193 , a8 JTF_NUMBER_TABLE
194 , a9 JTF_VARCHAR2_TABLE_100
195 , a10 JTF_DATE_TABLE
196 , a11 JTF_VARCHAR2_TABLE_100
197 , a12 JTF_NUMBER_TABLE
198 , a13 JTF_DATE_TABLE
199 , a14 JTF_VARCHAR2_TABLE_300
200 , a15 JTF_NUMBER_TABLE
201 ) as
202 ddindx binary_integer; indx binary_integer;
203 begin
204 if a0 is not null and a0.count > 0 then
205 if a0.count > 0 then
206 indx := a0.first;
207 ddindx := 1;
208 while true loop
209 t(ddindx).schedule_material_id := a0(indx);
210 t(ddindx).object_version_number := a1(indx);
211 t(ddindx).visit_task_id := a2(indx);
212 t(ddindx).task_name := a3(indx);
213 t(ddindx).task_status_code := a4(indx);
214 t(ddindx).task_status_meaning := a5(indx);
215 t(ddindx).mr_route_id := a6(indx);
216 t(ddindx).inventory_item_id := a7(indx);
217 t(ddindx).item_group_id := a8(indx);
218 t(ddindx).item := a9(indx);
219 t(ddindx).req_arrival_date := rosetta_g_miss_date_in_map(a10(indx));
220 t(ddindx).uom_code := a11(indx);
221 t(ddindx).quantity_available := a12(indx);
222 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a13(indx));
223 t(ddindx).planned_order := a14(indx);
224 t(ddindx).quantity := a15(indx);
225 ddindx := ddindx+1;
226 if a0.last =indx
227 then exit;
228 end if;
229 indx := a0.next(indx);
230 end loop;
231 end if;
232 end if;
233 end rosetta_table_copy_in_p4;
234 procedure rosetta_table_copy_out_p4(t ahl_ltp_matrl_aval_pub.task_req_matrl_tbl, a0 out nocopy JTF_NUMBER_TABLE
235 , a1 out nocopy JTF_NUMBER_TABLE
236 , a2 out nocopy JTF_NUMBER_TABLE
237 , a3 out nocopy JTF_VARCHAR2_TABLE_100
238 , a4 out nocopy JTF_VARCHAR2_TABLE_100
239 , a5 out nocopy JTF_VARCHAR2_TABLE_100
240 , a6 out nocopy JTF_NUMBER_TABLE
241 , a7 out nocopy JTF_NUMBER_TABLE
242 , a8 out nocopy JTF_NUMBER_TABLE
243 , a9 out nocopy JTF_VARCHAR2_TABLE_100
244 , a10 out nocopy JTF_DATE_TABLE
245 , a11 out nocopy JTF_VARCHAR2_TABLE_100
246 , a12 out nocopy JTF_NUMBER_TABLE
247 , a13 out nocopy JTF_DATE_TABLE
248 , a14 out nocopy JTF_VARCHAR2_TABLE_300
249 , a15 out nocopy JTF_NUMBER_TABLE
250 ) as
251 ddindx binary_integer; indx binary_integer;
252 begin
253 if t is null or t.count = 0 then
254 a0 := JTF_NUMBER_TABLE();
255 a1 := JTF_NUMBER_TABLE();
256 a2 := JTF_NUMBER_TABLE();
257 a3 := JTF_VARCHAR2_TABLE_100();
258 a4 := JTF_VARCHAR2_TABLE_100();
259 a5 := JTF_VARCHAR2_TABLE_100();
260 a6 := JTF_NUMBER_TABLE();
261 a7 := JTF_NUMBER_TABLE();
262 a8 := JTF_NUMBER_TABLE();
263 a9 := JTF_VARCHAR2_TABLE_100();
264 a10 := JTF_DATE_TABLE();
265 a11 := JTF_VARCHAR2_TABLE_100();
266 a12 := JTF_NUMBER_TABLE();
267 a13 := JTF_DATE_TABLE();
268 a14 := JTF_VARCHAR2_TABLE_300();
269 a15 := JTF_NUMBER_TABLE();
270 else
271 a0 := JTF_NUMBER_TABLE();
272 a1 := JTF_NUMBER_TABLE();
273 a2 := JTF_NUMBER_TABLE();
274 a3 := JTF_VARCHAR2_TABLE_100();
275 a4 := JTF_VARCHAR2_TABLE_100();
276 a5 := JTF_VARCHAR2_TABLE_100();
277 a6 := JTF_NUMBER_TABLE();
278 a7 := JTF_NUMBER_TABLE();
279 a8 := JTF_NUMBER_TABLE();
280 a9 := JTF_VARCHAR2_TABLE_100();
281 a10 := JTF_DATE_TABLE();
282 a11 := JTF_VARCHAR2_TABLE_100();
283 a12 := JTF_NUMBER_TABLE();
284 a13 := JTF_DATE_TABLE();
285 a14 := JTF_VARCHAR2_TABLE_300();
286 a15 := JTF_NUMBER_TABLE();
287 if t.count > 0 then
288 a0.extend(t.count);
289 a1.extend(t.count);
290 a2.extend(t.count);
291 a3.extend(t.count);
292 a4.extend(t.count);
293 a5.extend(t.count);
294 a6.extend(t.count);
295 a7.extend(t.count);
296 a8.extend(t.count);
297 a9.extend(t.count);
298 a10.extend(t.count);
299 a11.extend(t.count);
300 a12.extend(t.count);
301 a13.extend(t.count);
302 a14.extend(t.count);
303 a15.extend(t.count);
304 ddindx := t.first;
305 indx := 1;
306 while true loop
307 a0(indx) := t(ddindx).schedule_material_id;
308 a1(indx) := t(ddindx).object_version_number;
309 a2(indx) := t(ddindx).visit_task_id;
310 a3(indx) := t(ddindx).task_name;
311 a4(indx) := t(ddindx).task_status_code;
312 a5(indx) := t(ddindx).task_status_meaning;
313 a6(indx) := t(ddindx).mr_route_id;
314 a7(indx) := t(ddindx).inventory_item_id;
315 a8(indx) := t(ddindx).item_group_id;
316 a9(indx) := t(ddindx).item;
317 a10(indx) := t(ddindx).req_arrival_date;
318 a11(indx) := t(ddindx).uom_code;
319 a12(indx) := t(ddindx).quantity_available;
320 a13(indx) := t(ddindx).scheduled_date;
321 a14(indx) := t(ddindx).planned_order;
322 a15(indx) := t(ddindx).quantity;
323 indx := indx+1;
324 if t.last =ddindx
325 then exit;
326 end if;
327 ddindx := t.next(ddindx);
328 end loop;
329 end if;
330 end if;
331 end rosetta_table_copy_out_p4;
332
333 procedure rosetta_table_copy_in_p5(t out nocopy ahl_ltp_matrl_aval_pub.planned_matrl_tbl, a0 JTF_NUMBER_TABLE
334 , a1 JTF_NUMBER_TABLE
335 , a2 JTF_NUMBER_TABLE
336 , a3 JTF_VARCHAR2_TABLE_100
337 , a4 JTF_NUMBER_TABLE
338 , a5 JTF_NUMBER_TABLE
339 , a6 JTF_NUMBER_TABLE
340 , a7 JTF_VARCHAR2_TABLE_300
341 , a8 JTF_VARCHAR2_TABLE_100
342 , a9 JTF_VARCHAR2_TABLE_100
343 , a10 JTF_VARCHAR2_TABLE_100
344 , a11 JTF_DATE_TABLE
345 , a12 JTF_NUMBER_TABLE
346 , a13 JTF_NUMBER_TABLE
347 , a14 JTF_DATE_TABLE
348 , a15 JTF_VARCHAR2_TABLE_100
349 , a16 JTF_VARCHAR2_TABLE_100
350 , a17 JTF_VARCHAR2_TABLE_100
354 ddindx binary_integer; indx binary_integer;
351 , a18 JTF_NUMBER_TABLE
352 , a19 JTF_VARCHAR2_TABLE_2000
353 ) as
355 begin
356 if a0 is not null and a0.count > 0 then
357 if a0.count > 0 then
358 indx := a0.first;
359 ddindx := 1;
360 while true loop
361 t(ddindx).schedule_material_id := a0(indx);
362 t(ddindx).object_version_number := a1(indx);
363 t(ddindx).inventory_item_id := a2(indx);
364 t(ddindx).item_description := a3(indx);
365 t(ddindx).visit_id := a4(indx);
366 t(ddindx).visit_task_id := a5(indx);
367 t(ddindx).organization_id := a6(indx);
368 t(ddindx).planned_order := a7(indx);
369 t(ddindx).task_name := a8(indx);
370 t(ddindx).task_status_code := a9(indx);
371 t(ddindx).task_status_meaning := a10(indx);
372 t(ddindx).requested_date := rosetta_g_miss_date_in_map(a11(indx));
373 t(ddindx).required_quantity := a12(indx);
374 t(ddindx).quantity_available := a13(indx);
375 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a14(indx));
376 t(ddindx).primary_uom_code := a15(indx);
377 t(ddindx).primary_uom := a16(indx);
378 t(ddindx).mat_status := a17(indx);
379 t(ddindx).error_code := a18(indx);
380 t(ddindx).error_message := a19(indx);
381 ddindx := ddindx+1;
382 if a0.last =indx
383 then exit;
384 end if;
385 indx := a0.next(indx);
386 end loop;
387 end if;
388 end if;
389 end rosetta_table_copy_in_p5;
390 procedure rosetta_table_copy_out_p5(t ahl_ltp_matrl_aval_pub.planned_matrl_tbl, a0 out nocopy JTF_NUMBER_TABLE
391 , a1 out nocopy JTF_NUMBER_TABLE
392 , a2 out nocopy JTF_NUMBER_TABLE
393 , a3 out nocopy JTF_VARCHAR2_TABLE_100
394 , a4 out nocopy JTF_NUMBER_TABLE
395 , a5 out nocopy JTF_NUMBER_TABLE
396 , a6 out nocopy JTF_NUMBER_TABLE
397 , a7 out nocopy JTF_VARCHAR2_TABLE_300
398 , a8 out nocopy JTF_VARCHAR2_TABLE_100
399 , a9 out nocopy JTF_VARCHAR2_TABLE_100
400 , a10 out nocopy JTF_VARCHAR2_TABLE_100
401 , a11 out nocopy JTF_DATE_TABLE
402 , a12 out nocopy JTF_NUMBER_TABLE
403 , a13 out nocopy JTF_NUMBER_TABLE
404 , a14 out nocopy JTF_DATE_TABLE
405 , a15 out nocopy JTF_VARCHAR2_TABLE_100
406 , a16 out nocopy JTF_VARCHAR2_TABLE_100
407 , a17 out nocopy JTF_VARCHAR2_TABLE_100
408 , a18 out nocopy JTF_NUMBER_TABLE
409 , a19 out nocopy JTF_VARCHAR2_TABLE_2000
410 ) as
411 ddindx binary_integer; indx binary_integer;
412 begin
413 if t is null or t.count = 0 then
414 a0 := JTF_NUMBER_TABLE();
415 a1 := JTF_NUMBER_TABLE();
416 a2 := JTF_NUMBER_TABLE();
417 a3 := JTF_VARCHAR2_TABLE_100();
418 a4 := JTF_NUMBER_TABLE();
419 a5 := JTF_NUMBER_TABLE();
420 a6 := JTF_NUMBER_TABLE();
421 a7 := JTF_VARCHAR2_TABLE_300();
422 a8 := JTF_VARCHAR2_TABLE_100();
423 a9 := JTF_VARCHAR2_TABLE_100();
424 a10 := JTF_VARCHAR2_TABLE_100();
425 a11 := JTF_DATE_TABLE();
426 a12 := JTF_NUMBER_TABLE();
427 a13 := JTF_NUMBER_TABLE();
428 a14 := JTF_DATE_TABLE();
429 a15 := JTF_VARCHAR2_TABLE_100();
430 a16 := JTF_VARCHAR2_TABLE_100();
431 a17 := JTF_VARCHAR2_TABLE_100();
432 a18 := JTF_NUMBER_TABLE();
433 a19 := JTF_VARCHAR2_TABLE_2000();
434 else
435 a0 := JTF_NUMBER_TABLE();
436 a1 := JTF_NUMBER_TABLE();
437 a2 := JTF_NUMBER_TABLE();
438 a3 := JTF_VARCHAR2_TABLE_100();
439 a4 := JTF_NUMBER_TABLE();
440 a5 := JTF_NUMBER_TABLE();
441 a6 := JTF_NUMBER_TABLE();
442 a7 := JTF_VARCHAR2_TABLE_300();
443 a8 := JTF_VARCHAR2_TABLE_100();
444 a9 := JTF_VARCHAR2_TABLE_100();
445 a10 := JTF_VARCHAR2_TABLE_100();
446 a11 := JTF_DATE_TABLE();
447 a12 := JTF_NUMBER_TABLE();
448 a13 := JTF_NUMBER_TABLE();
449 a14 := JTF_DATE_TABLE();
450 a15 := JTF_VARCHAR2_TABLE_100();
451 a16 := JTF_VARCHAR2_TABLE_100();
452 a17 := JTF_VARCHAR2_TABLE_100();
453 a18 := JTF_NUMBER_TABLE();
454 a19 := JTF_VARCHAR2_TABLE_2000();
455 if t.count > 0 then
456 a0.extend(t.count);
457 a1.extend(t.count);
458 a2.extend(t.count);
459 a3.extend(t.count);
460 a4.extend(t.count);
461 a5.extend(t.count);
462 a6.extend(t.count);
463 a7.extend(t.count);
464 a8.extend(t.count);
465 a9.extend(t.count);
466 a10.extend(t.count);
467 a11.extend(t.count);
468 a12.extend(t.count);
469 a13.extend(t.count);
470 a14.extend(t.count);
471 a15.extend(t.count);
472 a16.extend(t.count);
473 a17.extend(t.count);
474 a18.extend(t.count);
475 a19.extend(t.count);
476 ddindx := t.first;
477 indx := 1;
478 while true loop
479 a0(indx) := t(ddindx).schedule_material_id;
480 a1(indx) := t(ddindx).object_version_number;
481 a2(indx) := t(ddindx).inventory_item_id;
482 a3(indx) := t(ddindx).item_description;
486 a7(indx) := t(ddindx).planned_order;
483 a4(indx) := t(ddindx).visit_id;
484 a5(indx) := t(ddindx).visit_task_id;
485 a6(indx) := t(ddindx).organization_id;
487 a8(indx) := t(ddindx).task_name;
488 a9(indx) := t(ddindx).task_status_code;
489 a10(indx) := t(ddindx).task_status_meaning;
490 a11(indx) := t(ddindx).requested_date;
491 a12(indx) := t(ddindx).required_quantity;
492 a13(indx) := t(ddindx).quantity_available;
493 a14(indx) := t(ddindx).scheduled_date;
494 a15(indx) := t(ddindx).primary_uom_code;
495 a16(indx) := t(ddindx).primary_uom;
496 a17(indx) := t(ddindx).mat_status;
497 a18(indx) := t(ddindx).error_code;
498 a19(indx) := t(ddindx).error_message;
499 indx := indx+1;
500 if t.last =ddindx
501 then exit;
502 end if;
503 ddindx := t.next(ddindx);
504 end loop;
505 end if;
506 end if;
507 end rosetta_table_copy_out_p5;
508
509 procedure check_material_aval(p_api_version NUMBER
510 , p_init_msg_list VARCHAR2
511 , p_commit VARCHAR2
512 , p_validation_level NUMBER
513 , p_module_type VARCHAR2
514 , p5_a0 in out nocopy JTF_NUMBER_TABLE
515 , p5_a1 in out nocopy JTF_NUMBER_TABLE
516 , p5_a2 in out nocopy JTF_NUMBER_TABLE
517 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
518 , p5_a4 in out nocopy JTF_NUMBER_TABLE
519 , p5_a5 in out nocopy JTF_NUMBER_TABLE
520 , p5_a6 in out nocopy JTF_NUMBER_TABLE
521 , p5_a7 in out nocopy JTF_NUMBER_TABLE
522 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_100
523 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
524 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
525 , p5_a11 in out nocopy JTF_DATE_TABLE
526 , p5_a12 in out nocopy JTF_NUMBER_TABLE
527 , p5_a13 in out nocopy JTF_NUMBER_TABLE
528 , p5_a14 in out nocopy JTF_DATE_TABLE
529 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
530 , p5_a16 in out nocopy JTF_NUMBER_TABLE
531 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_2000
532 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
533 , x_return_status out nocopy VARCHAR2
534 , x_msg_count out nocopy NUMBER
535 , x_msg_data out nocopy VARCHAR2
536 )
537
538 as
539 ddp_x_material_avl_tbl ahl_ltp_matrl_aval_pub.material_availability_tbl;
540 ddindx binary_integer; indx binary_integer;
541 begin
542
543 -- copy data to the local IN or IN-OUT args, if any
544
545
546
547
548
549 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_in_p3(ddp_x_material_avl_tbl, p5_a0
550 , p5_a1
551 , p5_a2
552 , p5_a3
553 , p5_a4
554 , p5_a5
555 , p5_a6
556 , p5_a7
557 , p5_a8
558 , p5_a9
559 , p5_a10
560 , p5_a11
561 , p5_a12
562 , p5_a13
563 , p5_a14
564 , p5_a15
565 , p5_a16
566 , p5_a17
567 , p5_a18
568 );
569
570
571
572
573 -- here's the delegated call to the old PL/SQL routine
574 ahl_ltp_matrl_aval_pub.check_material_aval(p_api_version,
575 p_init_msg_list,
576 p_commit,
577 p_validation_level,
578 p_module_type,
579 ddp_x_material_avl_tbl,
580 x_return_status,
581 x_msg_count,
582 x_msg_data);
583
584 -- copy data back from the local variables to OUT or IN-OUT args, if any
585
586
587
588
589
590 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p3(ddp_x_material_avl_tbl, p5_a0
591 , p5_a1
592 , p5_a2
593 , p5_a3
594 , p5_a4
595 , p5_a5
596 , p5_a6
597 , p5_a7
598 , p5_a8
599 , p5_a9
600 , p5_a10
601 , p5_a11
602 , p5_a12
603 , p5_a13
604 , p5_a14
605 , p5_a15
606 , p5_a16
607 , p5_a17
608 , p5_a18
609 );
610
611
612
613 end;
614
615 procedure get_visit_task_materials(p_api_version NUMBER
616 , p_init_msg_list VARCHAR2
617 , p_commit VARCHAR2
618 , p_validation_level NUMBER
619 , p_module_type VARCHAR2
620 , p_visit_id NUMBER
621 , p6_a0 out nocopy JTF_NUMBER_TABLE
622 , p6_a1 out nocopy JTF_NUMBER_TABLE
623 , p6_a2 out nocopy JTF_NUMBER_TABLE
624 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
625 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
626 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
627 , p6_a6 out nocopy JTF_NUMBER_TABLE
628 , p6_a7 out nocopy JTF_NUMBER_TABLE
629 , p6_a8 out nocopy JTF_NUMBER_TABLE
630 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
631 , p6_a10 out nocopy JTF_DATE_TABLE
632 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
633 , p6_a12 out nocopy JTF_NUMBER_TABLE
634 , p6_a13 out nocopy JTF_DATE_TABLE
635 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_300
636 , p6_a15 out nocopy JTF_NUMBER_TABLE
637 , x_return_status out nocopy VARCHAR2
641
638 , x_msg_count out nocopy NUMBER
639 , x_msg_data out nocopy VARCHAR2
640 )
642 as
643 ddx_task_req_matrl_tbl ahl_ltp_matrl_aval_pub.task_req_matrl_tbl;
644 ddindx binary_integer; indx binary_integer;
645 begin
646
647 -- copy data to the local IN or IN-OUT args, if any
648
649
650
651
652
653
654
655
656
657
658 -- here's the delegated call to the old PL/SQL routine
659 ahl_ltp_matrl_aval_pub.get_visit_task_materials(p_api_version,
660 p_init_msg_list,
661 p_commit,
662 p_validation_level,
663 p_module_type,
664 p_visit_id,
665 ddx_task_req_matrl_tbl,
666 x_return_status,
667 x_msg_count,
668 x_msg_data);
669
670 -- copy data back from the local variables to OUT or IN-OUT args, if any
671
672
673
674
675
676
677 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p4(ddx_task_req_matrl_tbl, p6_a0
678 , p6_a1
679 , p6_a2
680 , p6_a3
681 , p6_a4
682 , p6_a5
683 , p6_a6
684 , p6_a7
685 , p6_a8
686 , p6_a9
687 , p6_a10
688 , p6_a11
689 , p6_a12
690 , p6_a13
691 , p6_a14
692 , p6_a15
693 );
694
695
696
697 end;
698
699 procedure check_materials_for_all(p_api_version NUMBER
700 , p_init_msg_list VARCHAR2
701 , p_commit VARCHAR2
702 , p_validation_level NUMBER
703 , p_module_type VARCHAR2
704 , p_visit_id NUMBER
705 , p6_a0 out nocopy JTF_NUMBER_TABLE
706 , p6_a1 out nocopy JTF_NUMBER_TABLE
707 , p6_a2 out nocopy JTF_NUMBER_TABLE
708 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
709 , p6_a4 out nocopy JTF_NUMBER_TABLE
710 , p6_a5 out nocopy JTF_NUMBER_TABLE
711 , p6_a6 out nocopy JTF_NUMBER_TABLE
712 , p6_a7 out nocopy JTF_NUMBER_TABLE
713 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
714 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
715 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
716 , p6_a11 out nocopy JTF_DATE_TABLE
717 , p6_a12 out nocopy JTF_NUMBER_TABLE
718 , p6_a13 out nocopy JTF_NUMBER_TABLE
719 , p6_a14 out nocopy JTF_DATE_TABLE
720 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
721 , p6_a16 out nocopy JTF_NUMBER_TABLE
722 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_2000
723 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
724 , x_return_status out nocopy VARCHAR2
725 , x_msg_count out nocopy NUMBER
726 , x_msg_data out nocopy VARCHAR2
727 )
728
729 as
730 ddx_task_matrl_aval_tbl ahl_ltp_matrl_aval_pub.material_availability_tbl;
731 ddindx binary_integer; indx binary_integer;
732 begin
733
734 -- copy data to the local IN or IN-OUT args, if any
735
736
737
738
739
740
741
742
743
744
745 -- here's the delegated call to the old PL/SQL routine
746 ahl_ltp_matrl_aval_pub.check_materials_for_all(p_api_version,
747 p_init_msg_list,
748 p_commit,
749 p_validation_level,
750 p_module_type,
751 p_visit_id,
752 ddx_task_matrl_aval_tbl,
753 x_return_status,
754 x_msg_count,
755 x_msg_data);
756
757 -- copy data back from the local variables to OUT or IN-OUT args, if any
758
759
760
761
762
763
764 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p3(ddx_task_matrl_aval_tbl, p6_a0
765 , p6_a1
766 , p6_a2
767 , p6_a3
768 , p6_a4
769 , p6_a5
770 , p6_a6
771 , p6_a7
772 , p6_a8
773 , p6_a9
774 , p6_a10
775 , p6_a11
776 , p6_a12
777 , p6_a13
778 , p6_a14
779 , p6_a15
780 , p6_a16
781 , p6_a17
782 , p6_a18
783 );
784
785
786
787 end;
788
789 procedure schedule_planned_matrls(p_api_version NUMBER
790 , p_init_msg_list VARCHAR2
791 , p_commit VARCHAR2
792 , p_validation_level NUMBER
793 , p_module_type VARCHAR2
794 , p5_a0 in out nocopy JTF_NUMBER_TABLE
795 , p5_a1 in out nocopy JTF_NUMBER_TABLE
796 , p5_a2 in out nocopy JTF_NUMBER_TABLE
797 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
798 , p5_a4 in out nocopy JTF_NUMBER_TABLE
799 , p5_a5 in out nocopy JTF_NUMBER_TABLE
800 , p5_a6 in out nocopy JTF_NUMBER_TABLE
801 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_300
802 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_100
803 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
804 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
805 , p5_a11 in out nocopy JTF_DATE_TABLE
806 , p5_a12 in out nocopy JTF_NUMBER_TABLE
807 , p5_a13 in out nocopy JTF_NUMBER_TABLE
808 , p5_a14 in out nocopy JTF_DATE_TABLE
809 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
810 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_100
811 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
815 , x_msg_count out nocopy NUMBER
812 , p5_a18 in out nocopy JTF_NUMBER_TABLE
813 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_2000
814 , x_return_status out nocopy VARCHAR2
816 , x_msg_data out nocopy VARCHAR2
817 )
818
819 as
820 ddp_x_planned_matrl_tbl ahl_ltp_matrl_aval_pub.planned_matrl_tbl;
821 ddindx binary_integer; indx binary_integer;
822 begin
823
824 -- copy data to the local IN or IN-OUT args, if any
825
826
827
828
829
830 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_in_p5(ddp_x_planned_matrl_tbl, p5_a0
831 , p5_a1
832 , p5_a2
833 , p5_a3
834 , p5_a4
835 , p5_a5
836 , p5_a6
837 , p5_a7
838 , p5_a8
839 , p5_a9
840 , p5_a10
841 , p5_a11
842 , p5_a12
843 , p5_a13
844 , p5_a14
845 , p5_a15
846 , p5_a16
847 , p5_a17
848 , p5_a18
849 , p5_a19
850 );
851
852
853
854
855 -- here's the delegated call to the old PL/SQL routine
856 ahl_ltp_matrl_aval_pub.schedule_planned_matrls(p_api_version,
857 p_init_msg_list,
858 p_commit,
859 p_validation_level,
860 p_module_type,
861 ddp_x_planned_matrl_tbl,
862 x_return_status,
863 x_msg_count,
864 x_msg_data);
865
866 -- copy data back from the local variables to OUT or IN-OUT args, if any
867
868
869
870
871
872 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p5(ddp_x_planned_matrl_tbl, p5_a0
873 , p5_a1
874 , p5_a2
875 , p5_a3
876 , p5_a4
877 , p5_a5
878 , p5_a6
879 , p5_a7
880 , p5_a8
881 , p5_a9
882 , p5_a10
883 , p5_a11
884 , p5_a12
885 , p5_a13
886 , p5_a14
887 , p5_a15
888 , p5_a16
889 , p5_a17
890 , p5_a18
891 , p5_a19
892 );
893
894
895
896 end;
897
898 procedure schedule_all_materials(p_api_version NUMBER
899 , p_init_msg_list VARCHAR2
900 , p_commit VARCHAR2
901 , p_validation_level NUMBER
902 , p_module_type VARCHAR2
903 , p_visit_id NUMBER
904 , p6_a0 out nocopy JTF_NUMBER_TABLE
905 , p6_a1 out nocopy JTF_NUMBER_TABLE
906 , p6_a2 out nocopy JTF_NUMBER_TABLE
907 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
908 , p6_a4 out nocopy JTF_NUMBER_TABLE
909 , p6_a5 out nocopy JTF_NUMBER_TABLE
910 , p6_a6 out nocopy JTF_NUMBER_TABLE
911 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_300
912 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
913 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
914 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
915 , p6_a11 out nocopy JTF_DATE_TABLE
916 , p6_a12 out nocopy JTF_NUMBER_TABLE
917 , p6_a13 out nocopy JTF_NUMBER_TABLE
918 , p6_a14 out nocopy JTF_DATE_TABLE
919 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
920 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
921 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
922 , p6_a18 out nocopy JTF_NUMBER_TABLE
923 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_2000
924 , x_return_status out nocopy VARCHAR2
925 , x_msg_count out nocopy NUMBER
926 , x_msg_data out nocopy VARCHAR2
927 )
928
929 as
930 ddx_planned_matrl_tbl ahl_ltp_matrl_aval_pub.planned_matrl_tbl;
931 ddindx binary_integer; indx binary_integer;
932 begin
933
934 -- copy data to the local IN or IN-OUT args, if any
935
936
937
938
939
940
941
942
943
944
945 -- here's the delegated call to the old PL/SQL routine
946 ahl_ltp_matrl_aval_pub.schedule_all_materials(p_api_version,
947 p_init_msg_list,
948 p_commit,
949 p_validation_level,
950 p_module_type,
951 p_visit_id,
952 ddx_planned_matrl_tbl,
953 x_return_status,
954 x_msg_count,
955 x_msg_data);
956
957 -- copy data back from the local variables to OUT or IN-OUT args, if any
958
959
960
961
962
963
964 ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p5(ddx_planned_matrl_tbl, p6_a0
965 , p6_a1
966 , p6_a2
967 , p6_a3
968 , p6_a4
969 , p6_a5
970 , p6_a6
971 , p6_a7
972 , p6_a8
973 , p6_a9
974 , p6_a10
975 , p6_a11
976 , p6_a12
977 , p6_a13
978 , p6_a14
979 , p6_a15
980 , p6_a16
981 , p6_a17
982 , p6_a18
983 , p6_a19
984 );
985
986
987
988 end;
989
990 end ahl_ltp_matrl_aval_pub_w;