[Home] [Help]
PACKAGE BODY: APPS.AHL_PP_RESRC_REQUIRE_PVT_W
Source
1 package body ahl_pp_resrc_require_pvt_w as
2 /* $Header: AHLWREQB.pls 120.2.12010000.3 2008/12/28 02:04:50 sracha ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_300
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_DATE_TABLE
19 , a16 JTF_DATE_TABLE
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_100
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_VARCHAR2_TABLE_100
27 , a24 JTF_NUMBER_TABLE
28 , a25 JTF_VARCHAR2_TABLE_100
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_VARCHAR2_TABLE_100
31 , a28 JTF_NUMBER_TABLE
32 , a29 JTF_VARCHAR2_TABLE_100
33 , a30 JTF_NUMBER_TABLE
34 , a31 JTF_NUMBER_TABLE
35 , a32 JTF_NUMBER_TABLE
36 , a33 JTF_DATE_TABLE
37 , a34 JTF_DATE_TABLE
38 , a35 JTF_NUMBER_TABLE
39 , a36 JTF_NUMBER_TABLE
40 , a37 JTF_NUMBER_TABLE
41 , a38 JTF_DATE_TABLE
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_DATE_TABLE
44 , a41 JTF_NUMBER_TABLE
45 , a42 JTF_VARCHAR2_TABLE_100
46 , a43 JTF_VARCHAR2_TABLE_200
47 , a44 JTF_VARCHAR2_TABLE_200
48 , a45 JTF_VARCHAR2_TABLE_200
49 , a46 JTF_VARCHAR2_TABLE_200
50 , a47 JTF_VARCHAR2_TABLE_200
51 , a48 JTF_VARCHAR2_TABLE_200
52 , a49 JTF_VARCHAR2_TABLE_200
53 , a50 JTF_VARCHAR2_TABLE_200
54 , a51 JTF_VARCHAR2_TABLE_200
55 , a52 JTF_VARCHAR2_TABLE_200
56 , a53 JTF_VARCHAR2_TABLE_200
57 , a54 JTF_VARCHAR2_TABLE_200
58 , a55 JTF_VARCHAR2_TABLE_200
59 , a56 JTF_VARCHAR2_TABLE_200
60 , a57 JTF_VARCHAR2_TABLE_200
61 , a58 JTF_VARCHAR2_TABLE_100
62 , a59 JTF_VARCHAR2_TABLE_100
63 ) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if a0 is not null and a0.count > 0 then
67 if a0.count > 0 then
68 indx := a0.first;
69 ddindx := 1;
70 while true loop
71 t(ddindx).operation_resource_id := a0(indx);
72 t(ddindx).resource_seq_number := a1(indx);
73 t(ddindx).operation_seq_number := a2(indx);
74 t(ddindx).schedule_seq_num := a3(indx);
75 t(ddindx).workorder_id := a4(indx);
76 t(ddindx).job_number := a5(indx);
77 t(ddindx).wip_entity_id := a6(indx);
78 t(ddindx).workorder_operation_id := a7(indx);
79 t(ddindx).organization_id := a8(indx);
80 t(ddindx).department_id := a9(indx);
81 t(ddindx).department_name := a10(indx);
82 t(ddindx).resource_type_code := a11(indx);
83 t(ddindx).resource_type_name := a12(indx);
84 t(ddindx).resource_id := a13(indx);
85 t(ddindx).resource_name := a14(indx);
86 t(ddindx).oper_start_date := a15(indx);
87 t(ddindx).oper_end_date := a16(indx);
88 t(ddindx).duration := a17(indx);
89 t(ddindx).quantity := a18(indx);
90 t(ddindx).set_up := a19(indx);
91 t(ddindx).uom_code := a20(indx);
92 t(ddindx).uom_name := a21(indx);
93 t(ddindx).cost_basis_code := a22(indx);
94 t(ddindx).cost_basis_name := a23(indx);
95 t(ddindx).charge_type_code := a24(indx);
96 t(ddindx).charge_type_name := a25(indx);
97 t(ddindx).scheduled_type_code := a26(indx);
98 t(ddindx).scheduled_type_name := a27(indx);
99 t(ddindx).std_rate_flag_code := a28(indx);
100 t(ddindx).std_rate_flag_name := a29(indx);
101 t(ddindx).total_required := a30(indx);
102 t(ddindx).applied_num := a31(indx);
103 t(ddindx).open_num := a32(indx);
104 t(ddindx).req_start_date := a33(indx);
105 t(ddindx).req_end_date := a34(indx);
106 t(ddindx).object_version_number := a35(indx);
107 t(ddindx).security_group_id := a36(indx);
108 t(ddindx).last_update_login := a37(indx);
109 t(ddindx).last_updated_date := a38(indx);
110 t(ddindx).last_uddated_by := a39(indx);
111 t(ddindx).creation_date := a40(indx);
112 t(ddindx).created_by := a41(indx);
113 t(ddindx).attribute_category := a42(indx);
114 t(ddindx).attribute1 := a43(indx);
115 t(ddindx).attribute2 := a44(indx);
116 t(ddindx).attribute3 := a45(indx);
117 t(ddindx).attribute4 := a46(indx);
118 t(ddindx).attribute5 := a47(indx);
119 t(ddindx).attribute6 := a48(indx);
120 t(ddindx).attribute7 := a49(indx);
121 t(ddindx).attribute8 := a50(indx);
122 t(ddindx).attribute9 := a51(indx);
123 t(ddindx).attribute10 := a52(indx);
124 t(ddindx).attribute11 := a53(indx);
125 t(ddindx).attribute12 := a54(indx);
126 t(ddindx).attribute13 := a55(indx);
127 t(ddindx).attribute14 := a56(indx);
128 t(ddindx).attribute15 := a57(indx);
129 t(ddindx).operation_flag := a58(indx);
130 t(ddindx).is_unit_locked := a59(indx);
131 ddindx := ddindx+1;
132 if a0.last =indx
133 then exit;
134 end if;
135 indx := a0.next(indx);
136 end loop;
137 end if;
138 end if;
139 end rosetta_table_copy_in_p1;
140 procedure rosetta_table_copy_out_p1(t ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
141 , a1 out nocopy JTF_NUMBER_TABLE
142 , a2 out nocopy JTF_NUMBER_TABLE
143 , a3 out nocopy JTF_NUMBER_TABLE
144 , a4 out nocopy JTF_NUMBER_TABLE
145 , a5 out nocopy JTF_VARCHAR2_TABLE_100
146 , a6 out nocopy JTF_NUMBER_TABLE
147 , a7 out nocopy JTF_NUMBER_TABLE
148 , a8 out nocopy JTF_NUMBER_TABLE
149 , a9 out nocopy JTF_NUMBER_TABLE
150 , a10 out nocopy JTF_VARCHAR2_TABLE_300
151 , a11 out nocopy JTF_NUMBER_TABLE
152 , a12 out nocopy JTF_VARCHAR2_TABLE_100
153 , a13 out nocopy JTF_NUMBER_TABLE
154 , a14 out nocopy JTF_VARCHAR2_TABLE_100
155 , a15 out nocopy JTF_DATE_TABLE
156 , a16 out nocopy JTF_DATE_TABLE
157 , a17 out nocopy JTF_NUMBER_TABLE
158 , a18 out nocopy JTF_NUMBER_TABLE
159 , a19 out nocopy JTF_NUMBER_TABLE
160 , a20 out nocopy JTF_VARCHAR2_TABLE_100
161 , a21 out nocopy JTF_VARCHAR2_TABLE_100
162 , a22 out nocopy JTF_NUMBER_TABLE
163 , a23 out nocopy JTF_VARCHAR2_TABLE_100
164 , a24 out nocopy JTF_NUMBER_TABLE
165 , a25 out nocopy JTF_VARCHAR2_TABLE_100
166 , a26 out nocopy JTF_NUMBER_TABLE
167 , a27 out nocopy JTF_VARCHAR2_TABLE_100
168 , a28 out nocopy JTF_NUMBER_TABLE
169 , a29 out nocopy JTF_VARCHAR2_TABLE_100
170 , a30 out nocopy JTF_NUMBER_TABLE
171 , a31 out nocopy JTF_NUMBER_TABLE
172 , a32 out nocopy JTF_NUMBER_TABLE
173 , a33 out nocopy JTF_DATE_TABLE
174 , a34 out nocopy JTF_DATE_TABLE
175 , a35 out nocopy JTF_NUMBER_TABLE
176 , a36 out nocopy JTF_NUMBER_TABLE
177 , a37 out nocopy JTF_NUMBER_TABLE
178 , a38 out nocopy JTF_DATE_TABLE
179 , a39 out nocopy JTF_NUMBER_TABLE
180 , a40 out nocopy JTF_DATE_TABLE
181 , a41 out nocopy JTF_NUMBER_TABLE
182 , a42 out nocopy JTF_VARCHAR2_TABLE_100
183 , a43 out nocopy JTF_VARCHAR2_TABLE_200
184 , a44 out nocopy JTF_VARCHAR2_TABLE_200
185 , a45 out nocopy JTF_VARCHAR2_TABLE_200
186 , a46 out nocopy JTF_VARCHAR2_TABLE_200
187 , a47 out nocopy JTF_VARCHAR2_TABLE_200
188 , a48 out nocopy JTF_VARCHAR2_TABLE_200
189 , a49 out nocopy JTF_VARCHAR2_TABLE_200
190 , a50 out nocopy JTF_VARCHAR2_TABLE_200
191 , a51 out nocopy JTF_VARCHAR2_TABLE_200
192 , a52 out nocopy JTF_VARCHAR2_TABLE_200
193 , a53 out nocopy JTF_VARCHAR2_TABLE_200
194 , a54 out nocopy JTF_VARCHAR2_TABLE_200
195 , a55 out nocopy JTF_VARCHAR2_TABLE_200
196 , a56 out nocopy JTF_VARCHAR2_TABLE_200
197 , a57 out nocopy JTF_VARCHAR2_TABLE_200
198 , a58 out nocopy JTF_VARCHAR2_TABLE_100
199 , a59 out nocopy JTF_VARCHAR2_TABLE_100
200 ) as
201 ddindx binary_integer; indx binary_integer;
202 begin
203 if t is null or t.count = 0 then
204 a0 := JTF_NUMBER_TABLE();
205 a1 := JTF_NUMBER_TABLE();
206 a2 := JTF_NUMBER_TABLE();
207 a3 := JTF_NUMBER_TABLE();
208 a4 := JTF_NUMBER_TABLE();
209 a5 := JTF_VARCHAR2_TABLE_100();
210 a6 := JTF_NUMBER_TABLE();
211 a7 := JTF_NUMBER_TABLE();
212 a8 := JTF_NUMBER_TABLE();
213 a9 := JTF_NUMBER_TABLE();
214 a10 := JTF_VARCHAR2_TABLE_300();
215 a11 := JTF_NUMBER_TABLE();
216 a12 := JTF_VARCHAR2_TABLE_100();
217 a13 := JTF_NUMBER_TABLE();
218 a14 := JTF_VARCHAR2_TABLE_100();
219 a15 := JTF_DATE_TABLE();
220 a16 := JTF_DATE_TABLE();
221 a17 := JTF_NUMBER_TABLE();
222 a18 := JTF_NUMBER_TABLE();
223 a19 := JTF_NUMBER_TABLE();
224 a20 := JTF_VARCHAR2_TABLE_100();
225 a21 := JTF_VARCHAR2_TABLE_100();
226 a22 := JTF_NUMBER_TABLE();
227 a23 := JTF_VARCHAR2_TABLE_100();
228 a24 := JTF_NUMBER_TABLE();
229 a25 := JTF_VARCHAR2_TABLE_100();
230 a26 := JTF_NUMBER_TABLE();
231 a27 := JTF_VARCHAR2_TABLE_100();
232 a28 := JTF_NUMBER_TABLE();
233 a29 := JTF_VARCHAR2_TABLE_100();
234 a30 := JTF_NUMBER_TABLE();
235 a31 := JTF_NUMBER_TABLE();
236 a32 := JTF_NUMBER_TABLE();
237 a33 := JTF_DATE_TABLE();
238 a34 := JTF_DATE_TABLE();
239 a35 := JTF_NUMBER_TABLE();
240 a36 := JTF_NUMBER_TABLE();
241 a37 := JTF_NUMBER_TABLE();
242 a38 := JTF_DATE_TABLE();
243 a39 := JTF_NUMBER_TABLE();
244 a40 := JTF_DATE_TABLE();
245 a41 := JTF_NUMBER_TABLE();
246 a42 := JTF_VARCHAR2_TABLE_100();
247 a43 := JTF_VARCHAR2_TABLE_200();
248 a44 := JTF_VARCHAR2_TABLE_200();
249 a45 := JTF_VARCHAR2_TABLE_200();
250 a46 := JTF_VARCHAR2_TABLE_200();
251 a47 := JTF_VARCHAR2_TABLE_200();
252 a48 := JTF_VARCHAR2_TABLE_200();
253 a49 := JTF_VARCHAR2_TABLE_200();
254 a50 := JTF_VARCHAR2_TABLE_200();
255 a51 := JTF_VARCHAR2_TABLE_200();
256 a52 := JTF_VARCHAR2_TABLE_200();
257 a53 := JTF_VARCHAR2_TABLE_200();
258 a54 := JTF_VARCHAR2_TABLE_200();
259 a55 := JTF_VARCHAR2_TABLE_200();
260 a56 := JTF_VARCHAR2_TABLE_200();
261 a57 := JTF_VARCHAR2_TABLE_200();
262 a58 := JTF_VARCHAR2_TABLE_100();
263 a59 := JTF_VARCHAR2_TABLE_100();
264 else
265 a0 := JTF_NUMBER_TABLE();
266 a1 := JTF_NUMBER_TABLE();
267 a2 := JTF_NUMBER_TABLE();
268 a3 := JTF_NUMBER_TABLE();
269 a4 := JTF_NUMBER_TABLE();
270 a5 := JTF_VARCHAR2_TABLE_100();
271 a6 := JTF_NUMBER_TABLE();
272 a7 := JTF_NUMBER_TABLE();
273 a8 := JTF_NUMBER_TABLE();
274 a9 := JTF_NUMBER_TABLE();
275 a10 := JTF_VARCHAR2_TABLE_300();
276 a11 := JTF_NUMBER_TABLE();
277 a12 := JTF_VARCHAR2_TABLE_100();
278 a13 := JTF_NUMBER_TABLE();
279 a14 := JTF_VARCHAR2_TABLE_100();
280 a15 := JTF_DATE_TABLE();
281 a16 := JTF_DATE_TABLE();
282 a17 := JTF_NUMBER_TABLE();
283 a18 := JTF_NUMBER_TABLE();
284 a19 := JTF_NUMBER_TABLE();
285 a20 := JTF_VARCHAR2_TABLE_100();
286 a21 := JTF_VARCHAR2_TABLE_100();
287 a22 := JTF_NUMBER_TABLE();
288 a23 := JTF_VARCHAR2_TABLE_100();
289 a24 := JTF_NUMBER_TABLE();
290 a25 := JTF_VARCHAR2_TABLE_100();
291 a26 := JTF_NUMBER_TABLE();
292 a27 := JTF_VARCHAR2_TABLE_100();
293 a28 := JTF_NUMBER_TABLE();
294 a29 := JTF_VARCHAR2_TABLE_100();
295 a30 := JTF_NUMBER_TABLE();
296 a31 := JTF_NUMBER_TABLE();
297 a32 := JTF_NUMBER_TABLE();
298 a33 := JTF_DATE_TABLE();
299 a34 := JTF_DATE_TABLE();
300 a35 := JTF_NUMBER_TABLE();
301 a36 := JTF_NUMBER_TABLE();
302 a37 := JTF_NUMBER_TABLE();
303 a38 := JTF_DATE_TABLE();
304 a39 := JTF_NUMBER_TABLE();
305 a40 := JTF_DATE_TABLE();
306 a41 := JTF_NUMBER_TABLE();
307 a42 := JTF_VARCHAR2_TABLE_100();
308 a43 := JTF_VARCHAR2_TABLE_200();
309 a44 := JTF_VARCHAR2_TABLE_200();
310 a45 := JTF_VARCHAR2_TABLE_200();
311 a46 := JTF_VARCHAR2_TABLE_200();
312 a47 := JTF_VARCHAR2_TABLE_200();
313 a48 := JTF_VARCHAR2_TABLE_200();
314 a49 := JTF_VARCHAR2_TABLE_200();
315 a50 := JTF_VARCHAR2_TABLE_200();
316 a51 := JTF_VARCHAR2_TABLE_200();
317 a52 := JTF_VARCHAR2_TABLE_200();
318 a53 := JTF_VARCHAR2_TABLE_200();
319 a54 := JTF_VARCHAR2_TABLE_200();
320 a55 := JTF_VARCHAR2_TABLE_200();
321 a56 := JTF_VARCHAR2_TABLE_200();
322 a57 := JTF_VARCHAR2_TABLE_200();
323 a58 := JTF_VARCHAR2_TABLE_100();
324 a59 := JTF_VARCHAR2_TABLE_100();
325 if t.count > 0 then
326 a0.extend(t.count);
327 a1.extend(t.count);
328 a2.extend(t.count);
329 a3.extend(t.count);
330 a4.extend(t.count);
331 a5.extend(t.count);
332 a6.extend(t.count);
333 a7.extend(t.count);
334 a8.extend(t.count);
335 a9.extend(t.count);
336 a10.extend(t.count);
337 a11.extend(t.count);
338 a12.extend(t.count);
339 a13.extend(t.count);
340 a14.extend(t.count);
341 a15.extend(t.count);
342 a16.extend(t.count);
343 a17.extend(t.count);
344 a18.extend(t.count);
345 a19.extend(t.count);
346 a20.extend(t.count);
347 a21.extend(t.count);
348 a22.extend(t.count);
349 a23.extend(t.count);
350 a24.extend(t.count);
351 a25.extend(t.count);
352 a26.extend(t.count);
353 a27.extend(t.count);
354 a28.extend(t.count);
355 a29.extend(t.count);
356 a30.extend(t.count);
357 a31.extend(t.count);
358 a32.extend(t.count);
359 a33.extend(t.count);
360 a34.extend(t.count);
361 a35.extend(t.count);
362 a36.extend(t.count);
363 a37.extend(t.count);
364 a38.extend(t.count);
365 a39.extend(t.count);
366 a40.extend(t.count);
367 a41.extend(t.count);
368 a42.extend(t.count);
369 a43.extend(t.count);
370 a44.extend(t.count);
371 a45.extend(t.count);
372 a46.extend(t.count);
373 a47.extend(t.count);
374 a48.extend(t.count);
375 a49.extend(t.count);
376 a50.extend(t.count);
377 a51.extend(t.count);
378 a52.extend(t.count);
379 a53.extend(t.count);
380 a54.extend(t.count);
381 a55.extend(t.count);
382 a56.extend(t.count);
383 a57.extend(t.count);
384 a58.extend(t.count);
385 a59.extend(t.count);
386 ddindx := t.first;
387 indx := 1;
388 while true loop
389 a0(indx) := t(ddindx).operation_resource_id;
390 a1(indx) := t(ddindx).resource_seq_number;
391 a2(indx) := t(ddindx).operation_seq_number;
392 a3(indx) := t(ddindx).schedule_seq_num;
393 a4(indx) := t(ddindx).workorder_id;
394 a5(indx) := t(ddindx).job_number;
395 a6(indx) := t(ddindx).wip_entity_id;
396 a7(indx) := t(ddindx).workorder_operation_id;
397 a8(indx) := t(ddindx).organization_id;
398 a9(indx) := t(ddindx).department_id;
399 a10(indx) := t(ddindx).department_name;
400 a11(indx) := t(ddindx).resource_type_code;
401 a12(indx) := t(ddindx).resource_type_name;
402 a13(indx) := t(ddindx).resource_id;
403 a14(indx) := t(ddindx).resource_name;
404 a15(indx) := t(ddindx).oper_start_date;
405 a16(indx) := t(ddindx).oper_end_date;
406 a17(indx) := t(ddindx).duration;
407 a18(indx) := t(ddindx).quantity;
408 a19(indx) := t(ddindx).set_up;
409 a20(indx) := t(ddindx).uom_code;
410 a21(indx) := t(ddindx).uom_name;
411 a22(indx) := t(ddindx).cost_basis_code;
412 a23(indx) := t(ddindx).cost_basis_name;
413 a24(indx) := t(ddindx).charge_type_code;
414 a25(indx) := t(ddindx).charge_type_name;
415 a26(indx) := t(ddindx).scheduled_type_code;
416 a27(indx) := t(ddindx).scheduled_type_name;
417 a28(indx) := t(ddindx).std_rate_flag_code;
418 a29(indx) := t(ddindx).std_rate_flag_name;
419 a30(indx) := t(ddindx).total_required;
420 a31(indx) := t(ddindx).applied_num;
421 a32(indx) := t(ddindx).open_num;
422 a33(indx) := t(ddindx).req_start_date;
423 a34(indx) := t(ddindx).req_end_date;
424 a35(indx) := t(ddindx).object_version_number;
425 a36(indx) := t(ddindx).security_group_id;
426 a37(indx) := t(ddindx).last_update_login;
427 a38(indx) := t(ddindx).last_updated_date;
428 a39(indx) := t(ddindx).last_uddated_by;
429 a40(indx) := t(ddindx).creation_date;
430 a41(indx) := t(ddindx).created_by;
431 a42(indx) := t(ddindx).attribute_category;
432 a43(indx) := t(ddindx).attribute1;
433 a44(indx) := t(ddindx).attribute2;
434 a45(indx) := t(ddindx).attribute3;
435 a46(indx) := t(ddindx).attribute4;
436 a47(indx) := t(ddindx).attribute5;
437 a48(indx) := t(ddindx).attribute6;
438 a49(indx) := t(ddindx).attribute7;
439 a50(indx) := t(ddindx).attribute8;
440 a51(indx) := t(ddindx).attribute9;
441 a52(indx) := t(ddindx).attribute10;
442 a53(indx) := t(ddindx).attribute11;
443 a54(indx) := t(ddindx).attribute12;
444 a55(indx) := t(ddindx).attribute13;
445 a56(indx) := t(ddindx).attribute14;
446 a57(indx) := t(ddindx).attribute15;
447 a58(indx) := t(ddindx).operation_flag;
448 a59(indx) := t(ddindx).is_unit_locked;
449 indx := indx+1;
450 if t.last =ddindx
451 then exit;
452 end if;
453 ddindx := t.next(ddindx);
454 end loop;
455 end if;
456 end if;
457 end rosetta_table_copy_out_p1;
458
459 procedure process_resrc_require(p_api_version NUMBER
460 , p_init_msg_list VARCHAR2
461 , p_commit VARCHAR2
462 , p_validation_level NUMBER
463 , p_module_type VARCHAR2
464 , p_operation_flag VARCHAR2
465 , p_interface_flag VARCHAR2
466 , p7_a0 in out nocopy JTF_NUMBER_TABLE
467 , p7_a1 in out nocopy JTF_NUMBER_TABLE
468 , p7_a2 in out nocopy JTF_NUMBER_TABLE
469 , p7_a3 in out nocopy JTF_NUMBER_TABLE
470 , p7_a4 in out nocopy JTF_NUMBER_TABLE
471 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
472 , p7_a6 in out nocopy JTF_NUMBER_TABLE
473 , p7_a7 in out nocopy JTF_NUMBER_TABLE
474 , p7_a8 in out nocopy JTF_NUMBER_TABLE
475 , p7_a9 in out nocopy JTF_NUMBER_TABLE
476 , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_300
477 , p7_a11 in out nocopy JTF_NUMBER_TABLE
478 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_100
479 , p7_a13 in out nocopy JTF_NUMBER_TABLE
480 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_100
481 , p7_a15 in out nocopy JTF_DATE_TABLE
482 , p7_a16 in out nocopy JTF_DATE_TABLE
483 , p7_a17 in out nocopy JTF_NUMBER_TABLE
484 , p7_a18 in out nocopy JTF_NUMBER_TABLE
485 , p7_a19 in out nocopy JTF_NUMBER_TABLE
486 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_100
487 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_100
488 , p7_a22 in out nocopy JTF_NUMBER_TABLE
489 , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_100
490 , p7_a24 in out nocopy JTF_NUMBER_TABLE
491 , p7_a25 in out nocopy JTF_VARCHAR2_TABLE_100
492 , p7_a26 in out nocopy JTF_NUMBER_TABLE
493 , p7_a27 in out nocopy JTF_VARCHAR2_TABLE_100
494 , p7_a28 in out nocopy JTF_NUMBER_TABLE
495 , p7_a29 in out nocopy JTF_VARCHAR2_TABLE_100
496 , p7_a30 in out nocopy JTF_NUMBER_TABLE
497 , p7_a31 in out nocopy JTF_NUMBER_TABLE
498 , p7_a32 in out nocopy JTF_NUMBER_TABLE
499 , p7_a33 in out nocopy JTF_DATE_TABLE
500 , p7_a34 in out nocopy JTF_DATE_TABLE
501 , p7_a35 in out nocopy JTF_NUMBER_TABLE
502 , p7_a36 in out nocopy JTF_NUMBER_TABLE
503 , p7_a37 in out nocopy JTF_NUMBER_TABLE
504 , p7_a38 in out nocopy JTF_DATE_TABLE
505 , p7_a39 in out nocopy JTF_NUMBER_TABLE
506 , p7_a40 in out nocopy JTF_DATE_TABLE
507 , p7_a41 in out nocopy JTF_NUMBER_TABLE
508 , p7_a42 in out nocopy JTF_VARCHAR2_TABLE_100
509 , p7_a43 in out nocopy JTF_VARCHAR2_TABLE_200
510 , p7_a44 in out nocopy JTF_VARCHAR2_TABLE_200
511 , p7_a45 in out nocopy JTF_VARCHAR2_TABLE_200
512 , p7_a46 in out nocopy JTF_VARCHAR2_TABLE_200
513 , p7_a47 in out nocopy JTF_VARCHAR2_TABLE_200
514 , p7_a48 in out nocopy JTF_VARCHAR2_TABLE_200
515 , p7_a49 in out nocopy JTF_VARCHAR2_TABLE_200
516 , p7_a50 in out nocopy JTF_VARCHAR2_TABLE_200
517 , p7_a51 in out nocopy JTF_VARCHAR2_TABLE_200
518 , p7_a52 in out nocopy JTF_VARCHAR2_TABLE_200
519 , p7_a53 in out nocopy JTF_VARCHAR2_TABLE_200
520 , p7_a54 in out nocopy JTF_VARCHAR2_TABLE_200
521 , p7_a55 in out nocopy JTF_VARCHAR2_TABLE_200
522 , p7_a56 in out nocopy JTF_VARCHAR2_TABLE_200
523 , p7_a57 in out nocopy JTF_VARCHAR2_TABLE_200
524 , p7_a58 in out nocopy JTF_VARCHAR2_TABLE_100
525 , p7_a59 in out nocopy JTF_VARCHAR2_TABLE_100
526 , x_return_status out nocopy VARCHAR2
527 , x_msg_count out nocopy NUMBER
528 , x_msg_data out nocopy VARCHAR2
529 )
530
531 as
532 ddp_x_resrc_require_tbl ahl_pp_resrc_require_pvt.resrc_require_tbl_type;
533 ddindx binary_integer; indx binary_integer;
534 begin
535
536 -- copy data to the local IN or IN-OUT args, if any
537
538
539
540
541
542
543
544 ahl_pp_resrc_require_pvt_w.rosetta_table_copy_in_p1(ddp_x_resrc_require_tbl, p7_a0
545 , p7_a1
546 , p7_a2
547 , p7_a3
548 , p7_a4
549 , p7_a5
550 , p7_a6
551 , p7_a7
552 , p7_a8
553 , p7_a9
554 , p7_a10
555 , p7_a11
556 , p7_a12
557 , p7_a13
558 , p7_a14
559 , p7_a15
560 , p7_a16
561 , p7_a17
562 , p7_a18
563 , p7_a19
564 , p7_a20
565 , p7_a21
566 , p7_a22
567 , p7_a23
568 , p7_a24
569 , p7_a25
570 , p7_a26
571 , p7_a27
572 , p7_a28
573 , p7_a29
574 , p7_a30
575 , p7_a31
576 , p7_a32
577 , p7_a33
578 , p7_a34
579 , p7_a35
580 , p7_a36
581 , p7_a37
582 , p7_a38
583 , p7_a39
584 , p7_a40
585 , p7_a41
586 , p7_a42
587 , p7_a43
588 , p7_a44
589 , p7_a45
590 , p7_a46
591 , p7_a47
592 , p7_a48
593 , p7_a49
594 , p7_a50
595 , p7_a51
596 , p7_a52
597 , p7_a53
598 , p7_a54
599 , p7_a55
600 , p7_a56
601 , p7_a57
602 , p7_a58
603 , p7_a59
604 );
605
606
607
608
609 -- here's the delegated call to the old PL/SQL routine
610 ahl_pp_resrc_require_pvt.process_resrc_require(p_api_version,
611 p_init_msg_list,
612 p_commit,
613 p_validation_level,
614 p_module_type,
615 p_operation_flag,
616 p_interface_flag,
617 ddp_x_resrc_require_tbl,
618 x_return_status,
619 x_msg_count,
620 x_msg_data);
621
622 -- copy data back from the local variables to OUT or IN-OUT args, if any
623
624
625
626
627
628
629
630 ahl_pp_resrc_require_pvt_w.rosetta_table_copy_out_p1(ddp_x_resrc_require_tbl, p7_a0
631 , p7_a1
632 , p7_a2
633 , p7_a3
634 , p7_a4
635 , p7_a5
636 , p7_a6
637 , p7_a7
638 , p7_a8
639 , p7_a9
640 , p7_a10
641 , p7_a11
642 , p7_a12
643 , p7_a13
644 , p7_a14
645 , p7_a15
646 , p7_a16
647 , p7_a17
648 , p7_a18
649 , p7_a19
650 , p7_a20
651 , p7_a21
652 , p7_a22
653 , p7_a23
654 , p7_a24
655 , p7_a25
656 , p7_a26
657 , p7_a27
658 , p7_a28
659 , p7_a29
660 , p7_a30
661 , p7_a31
662 , p7_a32
663 , p7_a33
664 , p7_a34
665 , p7_a35
666 , p7_a36
667 , p7_a37
668 , p7_a38
669 , p7_a39
670 , p7_a40
671 , p7_a41
672 , p7_a42
673 , p7_a43
674 , p7_a44
675 , p7_a45
676 , p7_a46
677 , p7_a47
678 , p7_a48
679 , p7_a49
680 , p7_a50
681 , p7_a51
682 , p7_a52
683 , p7_a53
684 , p7_a54
685 , p7_a55
686 , p7_a56
687 , p7_a57
688 , p7_a58
689 , p7_a59
690 );
691
692
693
694 end;
695
696 end ahl_pp_resrc_require_pvt_w;