[Home] [Help]
PACKAGE BODY: APPS.AHL_PP_RESRC_ASSIGN_PVT_W
Source
1 package body ahl_pp_resrc_assign_pvt_w as
2 /* $Header: AHLWASGB.pls 120.2 2005/07/15 23:46 rroy noship $ */
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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p1(t out nocopy ahl_pp_resrc_assign_pvt.resrc_assign_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_NUMBER_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_NUMBER_TABLE
24 , a11 JTF_NUMBER_TABLE
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_300
27 , a14 JTF_NUMBER_TABLE
28 , a15 JTF_NUMBER_TABLE
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_NUMBER_TABLE
31 , a18 JTF_DATE_TABLE
32 , a19 JTF_NUMBER_TABLE
33 , a20 JTF_NUMBER_TABLE
34 , a21 JTF_DATE_TABLE
35 , a22 JTF_NUMBER_TABLE
36 , a23 JTF_NUMBER_TABLE
37 , a24 JTF_VARCHAR2_TABLE_100
38 , a25 JTF_DATE_TABLE
39 , a26 JTF_NUMBER_TABLE
40 , a27 JTF_NUMBER_TABLE
41 , a28 JTF_NUMBER_TABLE
42 , a29 JTF_DATE_TABLE
43 , a30 JTF_NUMBER_TABLE
44 , a31 JTF_DATE_TABLE
45 , a32 JTF_NUMBER_TABLE
46 , a33 JTF_VARCHAR2_TABLE_100
47 , a34 JTF_VARCHAR2_TABLE_200
48 , a35 JTF_VARCHAR2_TABLE_200
49 , a36 JTF_VARCHAR2_TABLE_200
50 , a37 JTF_VARCHAR2_TABLE_200
51 , a38 JTF_VARCHAR2_TABLE_200
52 , a39 JTF_VARCHAR2_TABLE_200
53 , a40 JTF_VARCHAR2_TABLE_200
54 , a41 JTF_VARCHAR2_TABLE_200
55 , a42 JTF_VARCHAR2_TABLE_200
56 , a43 JTF_VARCHAR2_TABLE_200
57 , a44 JTF_VARCHAR2_TABLE_200
58 , a45 JTF_VARCHAR2_TABLE_200
59 , a46 JTF_VARCHAR2_TABLE_200
60 , a47 JTF_VARCHAR2_TABLE_200
61 , a48 JTF_VARCHAR2_TABLE_200
62 , a49 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).assignment_id := a0(indx);
72 t(ddindx).workorder_id := a1(indx);
73 t(ddindx).workorder_operation_id := a2(indx);
74 t(ddindx).wip_entity_id := a3(indx);
75 t(ddindx).organization_id := a4(indx);
76 t(ddindx).operation_seq_number := a5(indx);
77 t(ddindx).resource_seq_number := a6(indx);
78 t(ddindx).resource_type_code := a7(indx);
79 t(ddindx).resource_type_name := a8(indx);
80 t(ddindx).oper_resource_id := a9(indx);
81 t(ddindx).department_id := a10(indx);
82 t(ddindx).employee_id := a11(indx);
83 t(ddindx).employee_number := a12(indx);
84 t(ddindx).employee_name := a13(indx);
85 t(ddindx).inventory_item_id := a14(indx);
86 t(ddindx).item_organization_id := a15(indx);
87 t(ddindx).serial_number := a16(indx);
88 t(ddindx).instance_id := a17(indx);
89 t(ddindx).assign_start_date := rosetta_g_miss_date_in_map(a18(indx));
90 t(ddindx).assign_start_hour := a19(indx);
91 t(ddindx).assign_start_min := a20(indx);
92 t(ddindx).assign_end_date := rosetta_g_miss_date_in_map(a21(indx));
93 t(ddindx).assign_end_hour := a22(indx);
94 t(ddindx).assign_end_min := a23(indx);
95 t(ddindx).self_assigned_flag := a24(indx);
96 t(ddindx).login_date := rosetta_g_miss_date_in_map(a25(indx));
97 t(ddindx).object_version_number := a26(indx);
98 t(ddindx).security_group_id := a27(indx);
99 t(ddindx).last_update_login := a28(indx);
100 t(ddindx).last_updated_date := rosetta_g_miss_date_in_map(a29(indx));
101 t(ddindx).last_uddated_by := a30(indx);
102 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a31(indx));
103 t(ddindx).created_by := a32(indx);
104 t(ddindx).attribute_category := a33(indx);
105 t(ddindx).attribute1 := a34(indx);
106 t(ddindx).attribute2 := a35(indx);
107 t(ddindx).attribute3 := a36(indx);
108 t(ddindx).attribute4 := a37(indx);
109 t(ddindx).attribute5 := a38(indx);
110 t(ddindx).attribute6 := a39(indx);
111 t(ddindx).attribute7 := a40(indx);
112 t(ddindx).attribute8 := a41(indx);
113 t(ddindx).attribute9 := a42(indx);
114 t(ddindx).attribute10 := a43(indx);
115 t(ddindx).attribute11 := a44(indx);
116 t(ddindx).attribute12 := a45(indx);
117 t(ddindx).attribute13 := a46(indx);
118 t(ddindx).attribute14 := a47(indx);
119 t(ddindx).attribute15 := a48(indx);
120 t(ddindx).operation_flag := a49(indx);
121 ddindx := ddindx+1;
122 if a0.last =indx
123 then exit;
124 end if;
125 indx := a0.next(indx);
126 end loop;
127 end if;
128 end if;
129 end rosetta_table_copy_in_p1;
130 procedure rosetta_table_copy_out_p1(t ahl_pp_resrc_assign_pvt.resrc_assign_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
131 , a1 out nocopy JTF_NUMBER_TABLE
132 , a2 out nocopy JTF_NUMBER_TABLE
133 , a3 out nocopy JTF_NUMBER_TABLE
134 , a4 out nocopy JTF_NUMBER_TABLE
135 , a5 out nocopy JTF_NUMBER_TABLE
136 , a6 out nocopy JTF_NUMBER_TABLE
137 , a7 out nocopy JTF_NUMBER_TABLE
138 , a8 out nocopy JTF_VARCHAR2_TABLE_100
139 , a9 out nocopy JTF_NUMBER_TABLE
140 , a10 out nocopy JTF_NUMBER_TABLE
141 , a11 out nocopy JTF_NUMBER_TABLE
142 , a12 out nocopy JTF_VARCHAR2_TABLE_100
143 , a13 out nocopy JTF_VARCHAR2_TABLE_300
144 , a14 out nocopy JTF_NUMBER_TABLE
145 , a15 out nocopy JTF_NUMBER_TABLE
146 , a16 out nocopy JTF_VARCHAR2_TABLE_100
147 , a17 out nocopy JTF_NUMBER_TABLE
148 , a18 out nocopy JTF_DATE_TABLE
149 , a19 out nocopy JTF_NUMBER_TABLE
150 , a20 out nocopy JTF_NUMBER_TABLE
151 , a21 out nocopy JTF_DATE_TABLE
152 , a22 out nocopy JTF_NUMBER_TABLE
153 , a23 out nocopy JTF_NUMBER_TABLE
154 , a24 out nocopy JTF_VARCHAR2_TABLE_100
155 , a25 out nocopy JTF_DATE_TABLE
156 , a26 out nocopy JTF_NUMBER_TABLE
157 , a27 out nocopy JTF_NUMBER_TABLE
158 , a28 out nocopy JTF_NUMBER_TABLE
159 , a29 out nocopy JTF_DATE_TABLE
160 , a30 out nocopy JTF_NUMBER_TABLE
161 , a31 out nocopy JTF_DATE_TABLE
162 , a32 out nocopy JTF_NUMBER_TABLE
163 , a33 out nocopy JTF_VARCHAR2_TABLE_100
164 , a34 out nocopy JTF_VARCHAR2_TABLE_200
165 , a35 out nocopy JTF_VARCHAR2_TABLE_200
166 , a36 out nocopy JTF_VARCHAR2_TABLE_200
167 , a37 out nocopy JTF_VARCHAR2_TABLE_200
168 , a38 out nocopy JTF_VARCHAR2_TABLE_200
169 , a39 out nocopy JTF_VARCHAR2_TABLE_200
170 , a40 out nocopy JTF_VARCHAR2_TABLE_200
171 , a41 out nocopy JTF_VARCHAR2_TABLE_200
172 , a42 out nocopy JTF_VARCHAR2_TABLE_200
173 , a43 out nocopy JTF_VARCHAR2_TABLE_200
174 , a44 out nocopy JTF_VARCHAR2_TABLE_200
175 , a45 out nocopy JTF_VARCHAR2_TABLE_200
176 , a46 out nocopy JTF_VARCHAR2_TABLE_200
177 , a47 out nocopy JTF_VARCHAR2_TABLE_200
178 , a48 out nocopy JTF_VARCHAR2_TABLE_200
179 , a49 out nocopy JTF_VARCHAR2_TABLE_100
180 ) as
181 ddindx binary_integer; indx binary_integer;
182 begin
183 if t is null or t.count = 0 then
184 a0 := JTF_NUMBER_TABLE();
185 a1 := JTF_NUMBER_TABLE();
186 a2 := JTF_NUMBER_TABLE();
187 a3 := JTF_NUMBER_TABLE();
188 a4 := JTF_NUMBER_TABLE();
189 a5 := JTF_NUMBER_TABLE();
190 a6 := JTF_NUMBER_TABLE();
191 a7 := JTF_NUMBER_TABLE();
192 a8 := JTF_VARCHAR2_TABLE_100();
193 a9 := JTF_NUMBER_TABLE();
194 a10 := JTF_NUMBER_TABLE();
195 a11 := JTF_NUMBER_TABLE();
196 a12 := JTF_VARCHAR2_TABLE_100();
197 a13 := JTF_VARCHAR2_TABLE_300();
198 a14 := JTF_NUMBER_TABLE();
199 a15 := JTF_NUMBER_TABLE();
200 a16 := JTF_VARCHAR2_TABLE_100();
201 a17 := JTF_NUMBER_TABLE();
202 a18 := JTF_DATE_TABLE();
203 a19 := JTF_NUMBER_TABLE();
204 a20 := JTF_NUMBER_TABLE();
205 a21 := JTF_DATE_TABLE();
206 a22 := JTF_NUMBER_TABLE();
207 a23 := JTF_NUMBER_TABLE();
208 a24 := JTF_VARCHAR2_TABLE_100();
209 a25 := JTF_DATE_TABLE();
210 a26 := JTF_NUMBER_TABLE();
211 a27 := JTF_NUMBER_TABLE();
212 a28 := JTF_NUMBER_TABLE();
213 a29 := JTF_DATE_TABLE();
214 a30 := JTF_NUMBER_TABLE();
215 a31 := JTF_DATE_TABLE();
216 a32 := JTF_NUMBER_TABLE();
217 a33 := JTF_VARCHAR2_TABLE_100();
218 a34 := JTF_VARCHAR2_TABLE_200();
219 a35 := JTF_VARCHAR2_TABLE_200();
220 a36 := JTF_VARCHAR2_TABLE_200();
221 a37 := JTF_VARCHAR2_TABLE_200();
222 a38 := JTF_VARCHAR2_TABLE_200();
223 a39 := JTF_VARCHAR2_TABLE_200();
224 a40 := JTF_VARCHAR2_TABLE_200();
225 a41 := JTF_VARCHAR2_TABLE_200();
226 a42 := JTF_VARCHAR2_TABLE_200();
227 a43 := JTF_VARCHAR2_TABLE_200();
228 a44 := JTF_VARCHAR2_TABLE_200();
229 a45 := JTF_VARCHAR2_TABLE_200();
230 a46 := JTF_VARCHAR2_TABLE_200();
231 a47 := JTF_VARCHAR2_TABLE_200();
232 a48 := JTF_VARCHAR2_TABLE_200();
233 a49 := JTF_VARCHAR2_TABLE_100();
234 else
235 a0 := JTF_NUMBER_TABLE();
236 a1 := JTF_NUMBER_TABLE();
237 a2 := JTF_NUMBER_TABLE();
238 a3 := JTF_NUMBER_TABLE();
239 a4 := JTF_NUMBER_TABLE();
240 a5 := JTF_NUMBER_TABLE();
241 a6 := JTF_NUMBER_TABLE();
242 a7 := JTF_NUMBER_TABLE();
243 a8 := JTF_VARCHAR2_TABLE_100();
244 a9 := JTF_NUMBER_TABLE();
245 a10 := JTF_NUMBER_TABLE();
246 a11 := JTF_NUMBER_TABLE();
247 a12 := JTF_VARCHAR2_TABLE_100();
248 a13 := JTF_VARCHAR2_TABLE_300();
249 a14 := JTF_NUMBER_TABLE();
250 a15 := JTF_NUMBER_TABLE();
251 a16 := JTF_VARCHAR2_TABLE_100();
252 a17 := JTF_NUMBER_TABLE();
253 a18 := JTF_DATE_TABLE();
254 a19 := JTF_NUMBER_TABLE();
255 a20 := JTF_NUMBER_TABLE();
256 a21 := JTF_DATE_TABLE();
257 a22 := JTF_NUMBER_TABLE();
258 a23 := JTF_NUMBER_TABLE();
259 a24 := JTF_VARCHAR2_TABLE_100();
260 a25 := JTF_DATE_TABLE();
261 a26 := JTF_NUMBER_TABLE();
262 a27 := JTF_NUMBER_TABLE();
263 a28 := JTF_NUMBER_TABLE();
264 a29 := JTF_DATE_TABLE();
265 a30 := JTF_NUMBER_TABLE();
266 a31 := JTF_DATE_TABLE();
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_200();
273 a38 := JTF_VARCHAR2_TABLE_200();
274 a39 := JTF_VARCHAR2_TABLE_200();
275 a40 := JTF_VARCHAR2_TABLE_200();
276 a41 := JTF_VARCHAR2_TABLE_200();
277 a42 := JTF_VARCHAR2_TABLE_200();
278 a43 := JTF_VARCHAR2_TABLE_200();
279 a44 := JTF_VARCHAR2_TABLE_200();
280 a45 := JTF_VARCHAR2_TABLE_200();
281 a46 := JTF_VARCHAR2_TABLE_200();
282 a47 := JTF_VARCHAR2_TABLE_200();
283 a48 := JTF_VARCHAR2_TABLE_200();
284 a49 := JTF_VARCHAR2_TABLE_100();
285 if t.count > 0 then
286 a0.extend(t.count);
287 a1.extend(t.count);
288 a2.extend(t.count);
289 a3.extend(t.count);
290 a4.extend(t.count);
291 a5.extend(t.count);
292 a6.extend(t.count);
293 a7.extend(t.count);
294 a8.extend(t.count);
295 a9.extend(t.count);
296 a10.extend(t.count);
297 a11.extend(t.count);
298 a12.extend(t.count);
299 a13.extend(t.count);
300 a14.extend(t.count);
301 a15.extend(t.count);
302 a16.extend(t.count);
303 a17.extend(t.count);
304 a18.extend(t.count);
305 a19.extend(t.count);
306 a20.extend(t.count);
307 a21.extend(t.count);
308 a22.extend(t.count);
309 a23.extend(t.count);
310 a24.extend(t.count);
311 a25.extend(t.count);
312 a26.extend(t.count);
313 a27.extend(t.count);
314 a28.extend(t.count);
315 a29.extend(t.count);
316 a30.extend(t.count);
317 a31.extend(t.count);
318 a32.extend(t.count);
319 a33.extend(t.count);
320 a34.extend(t.count);
321 a35.extend(t.count);
322 a36.extend(t.count);
323 a37.extend(t.count);
324 a38.extend(t.count);
325 a39.extend(t.count);
326 a40.extend(t.count);
327 a41.extend(t.count);
328 a42.extend(t.count);
329 a43.extend(t.count);
330 a44.extend(t.count);
331 a45.extend(t.count);
332 a46.extend(t.count);
333 a47.extend(t.count);
334 a48.extend(t.count);
335 a49.extend(t.count);
336 ddindx := t.first;
337 indx := 1;
338 while true loop
339 a0(indx) := t(ddindx).assignment_id;
340 a1(indx) := t(ddindx).workorder_id;
341 a2(indx) := t(ddindx).workorder_operation_id;
342 a3(indx) := t(ddindx).wip_entity_id;
343 a4(indx) := t(ddindx).organization_id;
344 a5(indx) := t(ddindx).operation_seq_number;
345 a6(indx) := t(ddindx).resource_seq_number;
346 a7(indx) := t(ddindx).resource_type_code;
347 a8(indx) := t(ddindx).resource_type_name;
348 a9(indx) := t(ddindx).oper_resource_id;
349 a10(indx) := t(ddindx).department_id;
350 a11(indx) := t(ddindx).employee_id;
351 a12(indx) := t(ddindx).employee_number;
352 a13(indx) := t(ddindx).employee_name;
353 a14(indx) := t(ddindx).inventory_item_id;
354 a15(indx) := t(ddindx).item_organization_id;
355 a16(indx) := t(ddindx).serial_number;
356 a17(indx) := t(ddindx).instance_id;
357 a18(indx) := t(ddindx).assign_start_date;
358 a19(indx) := t(ddindx).assign_start_hour;
359 a20(indx) := t(ddindx).assign_start_min;
360 a21(indx) := t(ddindx).assign_end_date;
361 a22(indx) := t(ddindx).assign_end_hour;
362 a23(indx) := t(ddindx).assign_end_min;
363 a24(indx) := t(ddindx).self_assigned_flag;
364 a25(indx) := t(ddindx).login_date;
365 a26(indx) := t(ddindx).object_version_number;
366 a27(indx) := t(ddindx).security_group_id;
367 a28(indx) := t(ddindx).last_update_login;
368 a29(indx) := t(ddindx).last_updated_date;
369 a30(indx) := t(ddindx).last_uddated_by;
370 a31(indx) := t(ddindx).creation_date;
371 a32(indx) := t(ddindx).created_by;
372 a33(indx) := t(ddindx).attribute_category;
373 a34(indx) := t(ddindx).attribute1;
374 a35(indx) := t(ddindx).attribute2;
375 a36(indx) := t(ddindx).attribute3;
376 a37(indx) := t(ddindx).attribute4;
377 a38(indx) := t(ddindx).attribute5;
378 a39(indx) := t(ddindx).attribute6;
379 a40(indx) := t(ddindx).attribute7;
380 a41(indx) := t(ddindx).attribute8;
381 a42(indx) := t(ddindx).attribute9;
382 a43(indx) := t(ddindx).attribute10;
383 a44(indx) := t(ddindx).attribute11;
384 a45(indx) := t(ddindx).attribute12;
385 a46(indx) := t(ddindx).attribute13;
386 a47(indx) := t(ddindx).attribute14;
387 a48(indx) := t(ddindx).attribute15;
388 a49(indx) := t(ddindx).operation_flag;
389 indx := indx+1;
393 ddindx := t.next(ddindx);
390 if t.last =ddindx
391 then exit;
392 end if;
394 end loop;
395 end if;
396 end if;
397 end rosetta_table_copy_out_p1;
398
399 procedure process_resrc_assign(p_api_version NUMBER
400 , p_init_msg_list VARCHAR2
401 , p_commit VARCHAR2
402 , p_validation_level NUMBER
403 , p_module_type VARCHAR2
404 , p_operation_flag VARCHAR2
405 , p6_a0 in out nocopy JTF_NUMBER_TABLE
406 , p6_a1 in out nocopy JTF_NUMBER_TABLE
407 , p6_a2 in out nocopy JTF_NUMBER_TABLE
408 , p6_a3 in out nocopy JTF_NUMBER_TABLE
409 , p6_a4 in out nocopy JTF_NUMBER_TABLE
410 , p6_a5 in out nocopy JTF_NUMBER_TABLE
411 , p6_a6 in out nocopy JTF_NUMBER_TABLE
412 , p6_a7 in out nocopy JTF_NUMBER_TABLE
413 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_100
414 , p6_a9 in out nocopy JTF_NUMBER_TABLE
415 , p6_a10 in out nocopy JTF_NUMBER_TABLE
416 , p6_a11 in out nocopy JTF_NUMBER_TABLE
417 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_100
418 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_300
419 , p6_a14 in out nocopy JTF_NUMBER_TABLE
420 , p6_a15 in out nocopy JTF_NUMBER_TABLE
421 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_100
422 , p6_a17 in out nocopy JTF_NUMBER_TABLE
423 , p6_a18 in out nocopy JTF_DATE_TABLE
424 , p6_a19 in out nocopy JTF_NUMBER_TABLE
425 , p6_a20 in out nocopy JTF_NUMBER_TABLE
426 , p6_a21 in out nocopy JTF_DATE_TABLE
427 , p6_a22 in out nocopy JTF_NUMBER_TABLE
428 , p6_a23 in out nocopy JTF_NUMBER_TABLE
429 , p6_a24 in out nocopy JTF_VARCHAR2_TABLE_100
430 , p6_a25 in out nocopy JTF_DATE_TABLE
431 , p6_a26 in out nocopy JTF_NUMBER_TABLE
432 , p6_a27 in out nocopy JTF_NUMBER_TABLE
433 , p6_a28 in out nocopy JTF_NUMBER_TABLE
434 , p6_a29 in out nocopy JTF_DATE_TABLE
435 , p6_a30 in out nocopy JTF_NUMBER_TABLE
436 , p6_a31 in out nocopy JTF_DATE_TABLE
437 , p6_a32 in out nocopy JTF_NUMBER_TABLE
438 , p6_a33 in out nocopy JTF_VARCHAR2_TABLE_100
439 , p6_a34 in out nocopy JTF_VARCHAR2_TABLE_200
440 , p6_a35 in out nocopy JTF_VARCHAR2_TABLE_200
441 , p6_a36 in out nocopy JTF_VARCHAR2_TABLE_200
442 , p6_a37 in out nocopy JTF_VARCHAR2_TABLE_200
443 , p6_a38 in out nocopy JTF_VARCHAR2_TABLE_200
444 , p6_a39 in out nocopy JTF_VARCHAR2_TABLE_200
445 , p6_a40 in out nocopy JTF_VARCHAR2_TABLE_200
446 , p6_a41 in out nocopy JTF_VARCHAR2_TABLE_200
447 , p6_a42 in out nocopy JTF_VARCHAR2_TABLE_200
448 , p6_a43 in out nocopy JTF_VARCHAR2_TABLE_200
449 , p6_a44 in out nocopy JTF_VARCHAR2_TABLE_200
450 , p6_a45 in out nocopy JTF_VARCHAR2_TABLE_200
451 , p6_a46 in out nocopy JTF_VARCHAR2_TABLE_200
452 , p6_a47 in out nocopy JTF_VARCHAR2_TABLE_200
453 , p6_a48 in out nocopy JTF_VARCHAR2_TABLE_200
454 , p6_a49 in out nocopy JTF_VARCHAR2_TABLE_100
455 , x_return_status out nocopy VARCHAR2
456 , x_msg_count out nocopy NUMBER
457 , x_msg_data out nocopy VARCHAR2
458 )
459
460 as
461 ddp_x_resrc_assign_tbl ahl_pp_resrc_assign_pvt.resrc_assign_tbl_type;
462 ddindx binary_integer; indx binary_integer;
463 begin
464
465 -- copy data to the local IN or IN-OUT args, if any
466
467
468
469
470
471
472 ahl_pp_resrc_assign_pvt_w.rosetta_table_copy_in_p1(ddp_x_resrc_assign_tbl, p6_a0
473 , p6_a1
474 , p6_a2
475 , p6_a3
476 , p6_a4
477 , p6_a5
478 , p6_a6
479 , p6_a7
480 , p6_a8
481 , p6_a9
482 , p6_a10
483 , p6_a11
484 , p6_a12
485 , p6_a13
486 , p6_a14
487 , p6_a15
488 , p6_a16
489 , p6_a17
490 , p6_a18
491 , p6_a19
492 , p6_a20
493 , p6_a21
494 , p6_a22
495 , p6_a23
496 , p6_a24
497 , p6_a25
498 , p6_a26
499 , p6_a27
500 , p6_a28
501 , p6_a29
502 , p6_a30
503 , p6_a31
504 , p6_a32
505 , p6_a33
506 , p6_a34
507 , p6_a35
508 , p6_a36
509 , p6_a37
510 , p6_a38
511 , p6_a39
512 , p6_a40
513 , p6_a41
514 , p6_a42
515 , p6_a43
516 , p6_a44
517 , p6_a45
518 , p6_a46
519 , p6_a47
520 , p6_a48
521 , p6_a49
522 );
523
524
525
526
527 -- here's the delegated call to the old PL/SQL routine
528 ahl_pp_resrc_assign_pvt.process_resrc_assign(p_api_version,
529 p_init_msg_list,
530 p_commit,
531 p_validation_level,
532 p_module_type,
533 p_operation_flag,
534 ddp_x_resrc_assign_tbl,
535 x_return_status,
536 x_msg_count,
537 x_msg_data);
538
539 -- copy data back from the local variables to OUT or IN-OUT args, if any
540
541
542
543
544
545
546 ahl_pp_resrc_assign_pvt_w.rosetta_table_copy_out_p1(ddp_x_resrc_assign_tbl, p6_a0
547 , p6_a1
548 , p6_a2
549 , p6_a3
550 , p6_a4
551 , p6_a5
552 , p6_a6
553 , p6_a7
554 , p6_a8
555 , p6_a9
556 , p6_a10
557 , p6_a11
558 , p6_a12
559 , p6_a13
560 , p6_a14
561 , p6_a15
562 , p6_a16
563 , p6_a17
564 , p6_a18
565 , p6_a19
566 , p6_a20
567 , p6_a21
568 , p6_a22
569 , p6_a23
570 , p6_a24
571 , p6_a25
572 , p6_a26
573 , p6_a27
574 , p6_a28
575 , p6_a29
576 , p6_a30
577 , p6_a31
578 , p6_a32
579 , p6_a33
580 , p6_a34
581 , p6_a35
582 , p6_a36
583 , p6_a37
584 , p6_a38
585 , p6_a39
586 , p6_a40
587 , p6_a41
588 , p6_a42
589 , p6_a43
590 , p6_a44
591 , p6_a45
592 , p6_a46
593 , p6_a47
594 , p6_a48
595 , p6_a49
596 );
597
598
599
600 end;
601
602 end ahl_pp_resrc_assign_pvt_w;