[Home] [Help]
PACKAGE BODY: APPS.AHL_RM_RT_OPER_RESOURCE_PVT_W
Source
1 package body ahl_rm_rt_oper_resource_pvt_w as
2 /* $Header: AHLWRORB.pls 120.1.12010000.2 2008/12/29 14:23:26 bachandr 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_p1(t out nocopy ahl_rm_rt_oper_resource_pvt.rt_oper_resource_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_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_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_VARCHAR2_TABLE_100
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_VARCHAR2_TABLE_100
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_NUMBER_TABLE
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_VARCHAR2_TABLE_200
41 , a25 JTF_VARCHAR2_TABLE_200
42 , a26 JTF_VARCHAR2_TABLE_200
43 , a27 JTF_VARCHAR2_TABLE_200
44 , a28 JTF_VARCHAR2_TABLE_200
45 , a29 JTF_VARCHAR2_TABLE_200
46 , a30 JTF_VARCHAR2_TABLE_200
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 JTF_VARCHAR2_TABLE_200
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_VARCHAR2_TABLE_200
52 , a36 JTF_VARCHAR2_TABLE_200
53 , a37 JTF_VARCHAR2_TABLE_200
54 , a38 JTF_VARCHAR2_TABLE_200
55 , a39 JTF_VARCHAR2_TABLE_100
56 , a40 JTF_NUMBER_TABLE
57 ) as
58 ddindx binary_integer; indx binary_integer;
59 begin
60 if a0 is not null and a0.count > 0 then
61 if a0.count > 0 then
62 indx := a0.first;
63 ddindx := 1;
64 while true loop
65 t(ddindx).rt_oper_resource_id := a0(indx);
66 t(ddindx).object_version_number := a1(indx);
67 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
68 t(ddindx).last_updated_by := a3(indx);
69 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
70 t(ddindx).created_by := a5(indx);
71 t(ddindx).last_update_login := a6(indx);
72 t(ddindx).aso_resource_id := a7(indx);
73 t(ddindx).aso_resource_name := a8(indx);
74 t(ddindx).resource_type_id := a9(indx);
75 t(ddindx).resource_type := a10(indx);
76 t(ddindx).quantity := a11(indx);
77 t(ddindx).duration := a12(indx);
78 t(ddindx).activity_id := a13(indx);
79 t(ddindx).activity := a14(indx);
80 t(ddindx).cost_basis_id := a15(indx);
81 t(ddindx).cost_basis := a16(indx);
82 t(ddindx).scheduled_type_id := a17(indx);
83 t(ddindx).scheduled_type := a18(indx);
84 t(ddindx).autocharge_type_id := a19(indx);
85 t(ddindx).autocharge_type := a20(indx);
86 t(ddindx).standard_rate_flag := a21(indx);
87 t(ddindx).standard_rate := a22(indx);
88 t(ddindx).attribute_category := a23(indx);
89 t(ddindx).attribute1 := a24(indx);
90 t(ddindx).attribute2 := a25(indx);
91 t(ddindx).attribute3 := a26(indx);
92 t(ddindx).attribute4 := a27(indx);
93 t(ddindx).attribute5 := a28(indx);
94 t(ddindx).attribute6 := a29(indx);
95 t(ddindx).attribute7 := a30(indx);
96 t(ddindx).attribute8 := a31(indx);
97 t(ddindx).attribute9 := a32(indx);
98 t(ddindx).attribute10 := a33(indx);
99 t(ddindx).attribute11 := a34(indx);
100 t(ddindx).attribute12 := a35(indx);
101 t(ddindx).attribute13 := a36(indx);
102 t(ddindx).attribute14 := a37(indx);
103 t(ddindx).attribute15 := a38(indx);
104 t(ddindx).dml_operation := a39(indx);
105 t(ddindx).schedule_seq := a40(indx);
106 ddindx := ddindx+1;
107 if a0.last =indx
108 then exit;
109 end if;
110 indx := a0.next(indx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_in_p1;
115 procedure rosetta_table_copy_out_p1(t ahl_rm_rt_oper_resource_pvt.rt_oper_resource_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
116 , a1 out nocopy JTF_NUMBER_TABLE
117 , a2 out nocopy JTF_DATE_TABLE
118 , a3 out nocopy JTF_NUMBER_TABLE
119 , a4 out nocopy JTF_DATE_TABLE
120 , a5 out nocopy JTF_NUMBER_TABLE
121 , a6 out nocopy JTF_NUMBER_TABLE
122 , a7 out nocopy JTF_NUMBER_TABLE
123 , a8 out nocopy JTF_VARCHAR2_TABLE_100
124 , a9 out nocopy JTF_NUMBER_TABLE
125 , a10 out nocopy JTF_VARCHAR2_TABLE_100
126 , a11 out nocopy JTF_NUMBER_TABLE
127 , a12 out nocopy JTF_NUMBER_TABLE
128 , a13 out nocopy JTF_NUMBER_TABLE
129 , a14 out nocopy JTF_VARCHAR2_TABLE_100
130 , a15 out nocopy JTF_NUMBER_TABLE
131 , a16 out nocopy JTF_VARCHAR2_TABLE_100
132 , a17 out nocopy JTF_NUMBER_TABLE
133 , a18 out nocopy JTF_VARCHAR2_TABLE_100
134 , a19 out nocopy JTF_NUMBER_TABLE
135 , a20 out nocopy JTF_VARCHAR2_TABLE_100
136 , a21 out nocopy JTF_NUMBER_TABLE
137 , a22 out nocopy JTF_VARCHAR2_TABLE_100
138 , a23 out nocopy JTF_VARCHAR2_TABLE_100
139 , a24 out nocopy JTF_VARCHAR2_TABLE_200
140 , a25 out nocopy JTF_VARCHAR2_TABLE_200
141 , a26 out nocopy JTF_VARCHAR2_TABLE_200
142 , a27 out nocopy JTF_VARCHAR2_TABLE_200
143 , a28 out nocopy JTF_VARCHAR2_TABLE_200
144 , a29 out nocopy JTF_VARCHAR2_TABLE_200
145 , a30 out nocopy JTF_VARCHAR2_TABLE_200
146 , a31 out nocopy JTF_VARCHAR2_TABLE_200
147 , a32 out nocopy JTF_VARCHAR2_TABLE_200
148 , a33 out nocopy JTF_VARCHAR2_TABLE_200
149 , a34 out nocopy JTF_VARCHAR2_TABLE_200
150 , a35 out nocopy JTF_VARCHAR2_TABLE_200
151 , a36 out nocopy JTF_VARCHAR2_TABLE_200
152 , a37 out nocopy JTF_VARCHAR2_TABLE_200
153 , a38 out nocopy JTF_VARCHAR2_TABLE_200
154 , a39 out nocopy JTF_VARCHAR2_TABLE_100
155 , a40 out nocopy JTF_NUMBER_TABLE
156 ) as
157 ddindx binary_integer; indx binary_integer;
158 begin
159 if t is null or t.count = 0 then
160 a0 := JTF_NUMBER_TABLE();
161 a1 := JTF_NUMBER_TABLE();
162 a2 := JTF_DATE_TABLE();
163 a3 := JTF_NUMBER_TABLE();
164 a4 := JTF_DATE_TABLE();
165 a5 := JTF_NUMBER_TABLE();
166 a6 := JTF_NUMBER_TABLE();
167 a7 := JTF_NUMBER_TABLE();
168 a8 := JTF_VARCHAR2_TABLE_100();
169 a9 := JTF_NUMBER_TABLE();
170 a10 := JTF_VARCHAR2_TABLE_100();
171 a11 := JTF_NUMBER_TABLE();
172 a12 := JTF_NUMBER_TABLE();
173 a13 := JTF_NUMBER_TABLE();
174 a14 := JTF_VARCHAR2_TABLE_100();
175 a15 := JTF_NUMBER_TABLE();
176 a16 := JTF_VARCHAR2_TABLE_100();
177 a17 := JTF_NUMBER_TABLE();
178 a18 := JTF_VARCHAR2_TABLE_100();
179 a19 := JTF_NUMBER_TABLE();
180 a20 := JTF_VARCHAR2_TABLE_100();
181 a21 := JTF_NUMBER_TABLE();
182 a22 := JTF_VARCHAR2_TABLE_100();
183 a23 := JTF_VARCHAR2_TABLE_100();
184 a24 := JTF_VARCHAR2_TABLE_200();
185 a25 := JTF_VARCHAR2_TABLE_200();
186 a26 := JTF_VARCHAR2_TABLE_200();
187 a27 := JTF_VARCHAR2_TABLE_200();
188 a28 := JTF_VARCHAR2_TABLE_200();
189 a29 := JTF_VARCHAR2_TABLE_200();
190 a30 := JTF_VARCHAR2_TABLE_200();
191 a31 := JTF_VARCHAR2_TABLE_200();
192 a32 := JTF_VARCHAR2_TABLE_200();
193 a33 := JTF_VARCHAR2_TABLE_200();
194 a34 := JTF_VARCHAR2_TABLE_200();
195 a35 := JTF_VARCHAR2_TABLE_200();
196 a36 := JTF_VARCHAR2_TABLE_200();
197 a37 := JTF_VARCHAR2_TABLE_200();
198 a38 := JTF_VARCHAR2_TABLE_200();
199 a39 := JTF_VARCHAR2_TABLE_100();
200 a40 := JTF_NUMBER_TABLE();
201 else
202 a0 := JTF_NUMBER_TABLE();
203 a1 := JTF_NUMBER_TABLE();
204 a2 := JTF_DATE_TABLE();
205 a3 := JTF_NUMBER_TABLE();
206 a4 := JTF_DATE_TABLE();
207 a5 := JTF_NUMBER_TABLE();
208 a6 := JTF_NUMBER_TABLE();
209 a7 := JTF_NUMBER_TABLE();
210 a8 := JTF_VARCHAR2_TABLE_100();
211 a9 := JTF_NUMBER_TABLE();
212 a10 := JTF_VARCHAR2_TABLE_100();
213 a11 := JTF_NUMBER_TABLE();
214 a12 := JTF_NUMBER_TABLE();
215 a13 := JTF_NUMBER_TABLE();
216 a14 := JTF_VARCHAR2_TABLE_100();
217 a15 := JTF_NUMBER_TABLE();
218 a16 := JTF_VARCHAR2_TABLE_100();
219 a17 := JTF_NUMBER_TABLE();
220 a18 := JTF_VARCHAR2_TABLE_100();
221 a19 := JTF_NUMBER_TABLE();
222 a20 := JTF_VARCHAR2_TABLE_100();
223 a21 := JTF_NUMBER_TABLE();
224 a22 := JTF_VARCHAR2_TABLE_100();
225 a23 := JTF_VARCHAR2_TABLE_100();
226 a24 := JTF_VARCHAR2_TABLE_200();
227 a25 := JTF_VARCHAR2_TABLE_200();
228 a26 := JTF_VARCHAR2_TABLE_200();
229 a27 := JTF_VARCHAR2_TABLE_200();
230 a28 := JTF_VARCHAR2_TABLE_200();
231 a29 := JTF_VARCHAR2_TABLE_200();
232 a30 := JTF_VARCHAR2_TABLE_200();
233 a31 := JTF_VARCHAR2_TABLE_200();
234 a32 := JTF_VARCHAR2_TABLE_200();
235 a33 := JTF_VARCHAR2_TABLE_200();
236 a34 := JTF_VARCHAR2_TABLE_200();
237 a35 := JTF_VARCHAR2_TABLE_200();
238 a36 := JTF_VARCHAR2_TABLE_200();
239 a37 := JTF_VARCHAR2_TABLE_200();
240 a38 := JTF_VARCHAR2_TABLE_200();
241 a39 := JTF_VARCHAR2_TABLE_100();
242 a40 := JTF_NUMBER_TABLE();
243 if t.count > 0 then
244 a0.extend(t.count);
245 a1.extend(t.count);
246 a2.extend(t.count);
247 a3.extend(t.count);
248 a4.extend(t.count);
249 a5.extend(t.count);
250 a6.extend(t.count);
251 a7.extend(t.count);
252 a8.extend(t.count);
253 a9.extend(t.count);
254 a10.extend(t.count);
255 a11.extend(t.count);
256 a12.extend(t.count);
257 a13.extend(t.count);
258 a14.extend(t.count);
259 a15.extend(t.count);
260 a16.extend(t.count);
261 a17.extend(t.count);
262 a18.extend(t.count);
263 a19.extend(t.count);
264 a20.extend(t.count);
265 a21.extend(t.count);
266 a22.extend(t.count);
267 a23.extend(t.count);
268 a24.extend(t.count);
269 a25.extend(t.count);
270 a26.extend(t.count);
271 a27.extend(t.count);
272 a28.extend(t.count);
273 a29.extend(t.count);
274 a30.extend(t.count);
275 a31.extend(t.count);
276 a32.extend(t.count);
277 a33.extend(t.count);
278 a34.extend(t.count);
279 a35.extend(t.count);
280 a36.extend(t.count);
281 a37.extend(t.count);
282 a38.extend(t.count);
283 a39.extend(t.count);
284 a40.extend(t.count);
285 ddindx := t.first;
286 indx := 1;
287 while true loop
288 a0(indx) := t(ddindx).rt_oper_resource_id;
289 a1(indx) := t(ddindx).object_version_number;
290 a2(indx) := t(ddindx).last_update_date;
291 a3(indx) := t(ddindx).last_updated_by;
292 a4(indx) := t(ddindx).creation_date;
293 a5(indx) := t(ddindx).created_by;
294 a6(indx) := t(ddindx).last_update_login;
295 a7(indx) := t(ddindx).aso_resource_id;
296 a8(indx) := t(ddindx).aso_resource_name;
297 a9(indx) := t(ddindx).resource_type_id;
298 a10(indx) := t(ddindx).resource_type;
299 a11(indx) := t(ddindx).quantity;
300 a12(indx) := t(ddindx).duration;
301 a13(indx) := t(ddindx).activity_id;
302 a14(indx) := t(ddindx).activity;
303 a15(indx) := t(ddindx).cost_basis_id;
304 a16(indx) := t(ddindx).cost_basis;
305 a17(indx) := t(ddindx).scheduled_type_id;
306 a18(indx) := t(ddindx).scheduled_type;
307 a19(indx) := t(ddindx).autocharge_type_id;
308 a20(indx) := t(ddindx).autocharge_type;
309 a21(indx) := t(ddindx).standard_rate_flag;
310 a22(indx) := t(ddindx).standard_rate;
311 a23(indx) := t(ddindx).attribute_category;
312 a24(indx) := t(ddindx).attribute1;
313 a25(indx) := t(ddindx).attribute2;
314 a26(indx) := t(ddindx).attribute3;
315 a27(indx) := t(ddindx).attribute4;
316 a28(indx) := t(ddindx).attribute5;
317 a29(indx) := t(ddindx).attribute6;
318 a30(indx) := t(ddindx).attribute7;
319 a31(indx) := t(ddindx).attribute8;
320 a32(indx) := t(ddindx).attribute9;
321 a33(indx) := t(ddindx).attribute10;
322 a34(indx) := t(ddindx).attribute11;
323 a35(indx) := t(ddindx).attribute12;
324 a36(indx) := t(ddindx).attribute13;
325 a37(indx) := t(ddindx).attribute14;
326 a38(indx) := t(ddindx).attribute15;
327 a39(indx) := t(ddindx).dml_operation;
328 a40(indx) := t(ddindx).schedule_seq;
329 indx := indx+1;
330 if t.last =ddindx
331 then exit;
332 end if;
333 ddindx := t.next(ddindx);
334 end loop;
335 end if;
336 end if;
337 end rosetta_table_copy_out_p1;
338
342 , a3 JTF_NUMBER_TABLE
339 procedure rosetta_table_copy_in_p4(t out nocopy ahl_rm_rt_oper_resource_pvt.alt_resource_tbl_type, a0 JTF_NUMBER_TABLE
340 , a1 JTF_NUMBER_TABLE
341 , a2 JTF_DATE_TABLE
343 , a4 JTF_DATE_TABLE
344 , a5 JTF_NUMBER_TABLE
345 , a6 JTF_NUMBER_TABLE
346 , a7 JTF_NUMBER_TABLE
347 , a8 JTF_VARCHAR2_TABLE_100
348 , a9 JTF_NUMBER_TABLE
349 , a10 JTF_NUMBER_TABLE
350 , a11 JTF_VARCHAR2_TABLE_100
351 , a12 JTF_VARCHAR2_TABLE_200
352 , a13 JTF_VARCHAR2_TABLE_200
353 , a14 JTF_VARCHAR2_TABLE_200
354 , a15 JTF_VARCHAR2_TABLE_200
355 , a16 JTF_VARCHAR2_TABLE_200
356 , a17 JTF_VARCHAR2_TABLE_200
357 , a18 JTF_VARCHAR2_TABLE_200
358 , a19 JTF_VARCHAR2_TABLE_200
359 , a20 JTF_VARCHAR2_TABLE_200
360 , a21 JTF_VARCHAR2_TABLE_200
361 , a22 JTF_VARCHAR2_TABLE_200
362 , a23 JTF_VARCHAR2_TABLE_200
363 , a24 JTF_VARCHAR2_TABLE_200
364 , a25 JTF_VARCHAR2_TABLE_200
365 , a26 JTF_VARCHAR2_TABLE_200
366 , a27 JTF_VARCHAR2_TABLE_100
367 ) as
368 ddindx binary_integer; indx binary_integer;
369 begin
370 if a0 is not null and a0.count > 0 then
371 if a0.count > 0 then
372 indx := a0.first;
373 ddindx := 1;
374 while true loop
375 t(ddindx).alternate_resource_id := a0(indx);
376 t(ddindx).object_version_number := a1(indx);
377 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
378 t(ddindx).last_updated_by := a3(indx);
379 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
380 t(ddindx).created_by := a5(indx);
381 t(ddindx).last_update_login := a6(indx);
382 t(ddindx).aso_resource_id := a7(indx);
383 t(ddindx).aso_resource_name := a8(indx);
384 t(ddindx).priority := a9(indx);
385 t(ddindx).aso_resource_type_id := a10(indx);
386 t(ddindx).attribute_category := a11(indx);
387 t(ddindx).attribute1 := a12(indx);
388 t(ddindx).attribute2 := a13(indx);
389 t(ddindx).attribute3 := a14(indx);
390 t(ddindx).attribute4 := a15(indx);
391 t(ddindx).attribute5 := a16(indx);
392 t(ddindx).attribute6 := a17(indx);
393 t(ddindx).attribute7 := a18(indx);
394 t(ddindx).attribute8 := a19(indx);
395 t(ddindx).attribute9 := a20(indx);
396 t(ddindx).attribute10 := a21(indx);
397 t(ddindx).attribute11 := a22(indx);
398 t(ddindx).attribute12 := a23(indx);
399 t(ddindx).attribute13 := a24(indx);
400 t(ddindx).attribute14 := a25(indx);
401 t(ddindx).attribute15 := a26(indx);
402 t(ddindx).dml_operation := a27(indx);
403 ddindx := ddindx+1;
404 if a0.last =indx
405 then exit;
406 end if;
407 indx := a0.next(indx);
408 end loop;
409 end if;
410 end if;
411 end rosetta_table_copy_in_p4;
412 procedure rosetta_table_copy_out_p4(t ahl_rm_rt_oper_resource_pvt.alt_resource_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
413 , a1 out nocopy JTF_NUMBER_TABLE
414 , a2 out nocopy JTF_DATE_TABLE
415 , a3 out nocopy JTF_NUMBER_TABLE
416 , a4 out nocopy JTF_DATE_TABLE
417 , a5 out nocopy JTF_NUMBER_TABLE
418 , a6 out nocopy JTF_NUMBER_TABLE
419 , a7 out nocopy JTF_NUMBER_TABLE
420 , a8 out nocopy JTF_VARCHAR2_TABLE_100
421 , a9 out nocopy JTF_NUMBER_TABLE
422 , a10 out nocopy JTF_NUMBER_TABLE
423 , a11 out nocopy JTF_VARCHAR2_TABLE_100
424 , a12 out nocopy JTF_VARCHAR2_TABLE_200
425 , a13 out nocopy JTF_VARCHAR2_TABLE_200
426 , a14 out nocopy JTF_VARCHAR2_TABLE_200
427 , a15 out nocopy JTF_VARCHAR2_TABLE_200
428 , a16 out nocopy JTF_VARCHAR2_TABLE_200
429 , a17 out nocopy JTF_VARCHAR2_TABLE_200
430 , a18 out nocopy JTF_VARCHAR2_TABLE_200
431 , a19 out nocopy JTF_VARCHAR2_TABLE_200
432 , a20 out nocopy JTF_VARCHAR2_TABLE_200
433 , a21 out nocopy JTF_VARCHAR2_TABLE_200
434 , a22 out nocopy JTF_VARCHAR2_TABLE_200
435 , a23 out nocopy JTF_VARCHAR2_TABLE_200
436 , a24 out nocopy JTF_VARCHAR2_TABLE_200
437 , a25 out nocopy JTF_VARCHAR2_TABLE_200
438 , a26 out nocopy JTF_VARCHAR2_TABLE_200
439 , a27 out nocopy JTF_VARCHAR2_TABLE_100
440 ) as
441 ddindx binary_integer; indx binary_integer;
442 begin
443 if t is null or t.count = 0 then
444 a0 := JTF_NUMBER_TABLE();
445 a1 := JTF_NUMBER_TABLE();
446 a2 := JTF_DATE_TABLE();
447 a3 := JTF_NUMBER_TABLE();
448 a4 := JTF_DATE_TABLE();
449 a5 := JTF_NUMBER_TABLE();
450 a6 := JTF_NUMBER_TABLE();
451 a7 := JTF_NUMBER_TABLE();
452 a8 := JTF_VARCHAR2_TABLE_100();
453 a9 := JTF_NUMBER_TABLE();
454 a10 := JTF_NUMBER_TABLE();
455 a11 := JTF_VARCHAR2_TABLE_100();
456 a12 := JTF_VARCHAR2_TABLE_200();
457 a13 := JTF_VARCHAR2_TABLE_200();
458 a14 := JTF_VARCHAR2_TABLE_200();
459 a15 := JTF_VARCHAR2_TABLE_200();
460 a16 := JTF_VARCHAR2_TABLE_200();
461 a17 := JTF_VARCHAR2_TABLE_200();
462 a18 := JTF_VARCHAR2_TABLE_200();
463 a19 := JTF_VARCHAR2_TABLE_200();
464 a20 := JTF_VARCHAR2_TABLE_200();
465 a21 := JTF_VARCHAR2_TABLE_200();
469 a25 := JTF_VARCHAR2_TABLE_200();
466 a22 := JTF_VARCHAR2_TABLE_200();
467 a23 := JTF_VARCHAR2_TABLE_200();
468 a24 := JTF_VARCHAR2_TABLE_200();
470 a26 := JTF_VARCHAR2_TABLE_200();
471 a27 := JTF_VARCHAR2_TABLE_100();
472 else
473 a0 := JTF_NUMBER_TABLE();
474 a1 := JTF_NUMBER_TABLE();
475 a2 := JTF_DATE_TABLE();
476 a3 := JTF_NUMBER_TABLE();
477 a4 := JTF_DATE_TABLE();
478 a5 := JTF_NUMBER_TABLE();
479 a6 := JTF_NUMBER_TABLE();
480 a7 := JTF_NUMBER_TABLE();
481 a8 := JTF_VARCHAR2_TABLE_100();
482 a9 := JTF_NUMBER_TABLE();
483 a10 := JTF_NUMBER_TABLE();
484 a11 := JTF_VARCHAR2_TABLE_100();
485 a12 := JTF_VARCHAR2_TABLE_200();
486 a13 := JTF_VARCHAR2_TABLE_200();
487 a14 := JTF_VARCHAR2_TABLE_200();
488 a15 := JTF_VARCHAR2_TABLE_200();
489 a16 := JTF_VARCHAR2_TABLE_200();
490 a17 := JTF_VARCHAR2_TABLE_200();
491 a18 := JTF_VARCHAR2_TABLE_200();
492 a19 := JTF_VARCHAR2_TABLE_200();
493 a20 := JTF_VARCHAR2_TABLE_200();
494 a21 := JTF_VARCHAR2_TABLE_200();
495 a22 := JTF_VARCHAR2_TABLE_200();
496 a23 := JTF_VARCHAR2_TABLE_200();
497 a24 := JTF_VARCHAR2_TABLE_200();
498 a25 := JTF_VARCHAR2_TABLE_200();
499 a26 := JTF_VARCHAR2_TABLE_200();
500 a27 := JTF_VARCHAR2_TABLE_100();
501 if t.count > 0 then
502 a0.extend(t.count);
503 a1.extend(t.count);
504 a2.extend(t.count);
505 a3.extend(t.count);
506 a4.extend(t.count);
507 a5.extend(t.count);
508 a6.extend(t.count);
509 a7.extend(t.count);
510 a8.extend(t.count);
511 a9.extend(t.count);
512 a10.extend(t.count);
513 a11.extend(t.count);
514 a12.extend(t.count);
515 a13.extend(t.count);
516 a14.extend(t.count);
517 a15.extend(t.count);
518 a16.extend(t.count);
519 a17.extend(t.count);
520 a18.extend(t.count);
521 a19.extend(t.count);
522 a20.extend(t.count);
523 a21.extend(t.count);
524 a22.extend(t.count);
525 a23.extend(t.count);
526 a24.extend(t.count);
527 a25.extend(t.count);
528 a26.extend(t.count);
529 a27.extend(t.count);
530 ddindx := t.first;
531 indx := 1;
532 while true loop
533 a0(indx) := t(ddindx).alternate_resource_id;
534 a1(indx) := t(ddindx).object_version_number;
535 a2(indx) := t(ddindx).last_update_date;
536 a3(indx) := t(ddindx).last_updated_by;
537 a4(indx) := t(ddindx).creation_date;
538 a5(indx) := t(ddindx).created_by;
539 a6(indx) := t(ddindx).last_update_login;
540 a7(indx) := t(ddindx).aso_resource_id;
541 a8(indx) := t(ddindx).aso_resource_name;
542 a9(indx) := t(ddindx).priority;
543 a10(indx) := t(ddindx).aso_resource_type_id;
544 a11(indx) := t(ddindx).attribute_category;
545 a12(indx) := t(ddindx).attribute1;
546 a13(indx) := t(ddindx).attribute2;
547 a14(indx) := t(ddindx).attribute3;
548 a15(indx) := t(ddindx).attribute4;
549 a16(indx) := t(ddindx).attribute5;
550 a17(indx) := t(ddindx).attribute6;
551 a18(indx) := t(ddindx).attribute7;
552 a19(indx) := t(ddindx).attribute8;
553 a20(indx) := t(ddindx).attribute9;
554 a21(indx) := t(ddindx).attribute10;
555 a22(indx) := t(ddindx).attribute11;
556 a23(indx) := t(ddindx).attribute12;
557 a24(indx) := t(ddindx).attribute13;
558 a25(indx) := t(ddindx).attribute14;
559 a26(indx) := t(ddindx).attribute15;
560 a27(indx) := t(ddindx).dml_operation;
561 indx := indx+1;
562 if t.last =ddindx
563 then exit;
564 end if;
565 ddindx := t.next(ddindx);
566 end loop;
567 end if;
568 end if;
569 end rosetta_table_copy_out_p4;
570
571 procedure process_rt_oper_resource(p_api_version NUMBER
572 , p_init_msg_list VARCHAR2
573 , p_commit VARCHAR2
574 , p_validation_level NUMBER
575 , p_default VARCHAR2
576 , p_module_type VARCHAR2
577 , x_return_status out nocopy VARCHAR2
578 , x_msg_count out nocopy NUMBER
579 , x_msg_data out nocopy VARCHAR2
580 , p9_a0 in out nocopy JTF_NUMBER_TABLE
581 , p9_a1 in out nocopy JTF_NUMBER_TABLE
582 , p9_a2 in out nocopy JTF_DATE_TABLE
583 , p9_a3 in out nocopy JTF_NUMBER_TABLE
584 , p9_a4 in out nocopy JTF_DATE_TABLE
585 , p9_a5 in out nocopy JTF_NUMBER_TABLE
586 , p9_a6 in out nocopy JTF_NUMBER_TABLE
587 , p9_a7 in out nocopy JTF_NUMBER_TABLE
588 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_100
589 , p9_a9 in out nocopy JTF_NUMBER_TABLE
590 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
591 , p9_a11 in out nocopy JTF_NUMBER_TABLE
592 , p9_a12 in out nocopy JTF_NUMBER_TABLE
593 , p9_a13 in out nocopy JTF_NUMBER_TABLE
594 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_100
595 , p9_a15 in out nocopy JTF_NUMBER_TABLE
596 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_100
600 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_100
597 , p9_a17 in out nocopy JTF_NUMBER_TABLE
598 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_100
599 , p9_a19 in out nocopy JTF_NUMBER_TABLE
601 , p9_a21 in out nocopy JTF_NUMBER_TABLE
602 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_100
603 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_100
604 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
605 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
606 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
607 , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
608 , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
609 , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_200
610 , p9_a30 in out nocopy JTF_VARCHAR2_TABLE_200
611 , p9_a31 in out nocopy JTF_VARCHAR2_TABLE_200
612 , p9_a32 in out nocopy JTF_VARCHAR2_TABLE_200
613 , p9_a33 in out nocopy JTF_VARCHAR2_TABLE_200
614 , p9_a34 in out nocopy JTF_VARCHAR2_TABLE_200
615 , p9_a35 in out nocopy JTF_VARCHAR2_TABLE_200
616 , p9_a36 in out nocopy JTF_VARCHAR2_TABLE_200
617 , p9_a37 in out nocopy JTF_VARCHAR2_TABLE_200
618 , p9_a38 in out nocopy JTF_VARCHAR2_TABLE_200
619 , p9_a39 in out nocopy JTF_VARCHAR2_TABLE_100
620 , p9_a40 in out nocopy JTF_NUMBER_TABLE
621 , p_association_type_code VARCHAR2
622 , p_object_id NUMBER
623 )
624
625 as
626 ddp_x_rt_oper_resource_tbl ahl_rm_rt_oper_resource_pvt.rt_oper_resource_tbl_type;
627 ddindx binary_integer; indx binary_integer;
628 begin
629
630 -- copy data to the local IN or IN-OUT args, if any
631
632
633
634
635
636
637
638
639
640 ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_in_p1(ddp_x_rt_oper_resource_tbl, p9_a0
641 , p9_a1
642 , p9_a2
643 , p9_a3
644 , p9_a4
645 , p9_a5
646 , p9_a6
647 , p9_a7
648 , p9_a8
649 , p9_a9
650 , p9_a10
651 , p9_a11
652 , p9_a12
653 , p9_a13
654 , p9_a14
655 , p9_a15
656 , p9_a16
657 , p9_a17
658 , p9_a18
659 , p9_a19
660 , p9_a20
661 , p9_a21
662 , p9_a22
663 , p9_a23
664 , p9_a24
665 , p9_a25
666 , p9_a26
667 , p9_a27
668 , p9_a28
669 , p9_a29
670 , p9_a30
671 , p9_a31
672 , p9_a32
673 , p9_a33
674 , p9_a34
675 , p9_a35
676 , p9_a36
677 , p9_a37
678 , p9_a38
679 , p9_a39
680 , p9_a40
681 );
682
683
684
685 -- here's the delegated call to the old PL/SQL routine
686 ahl_rm_rt_oper_resource_pvt.process_rt_oper_resource(p_api_version,
687 p_init_msg_list,
688 p_commit,
689 p_validation_level,
690 p_default,
691 p_module_type,
692 x_return_status,
693 x_msg_count,
694 x_msg_data,
695 ddp_x_rt_oper_resource_tbl,
696 p_association_type_code,
697 p_object_id);
698
699 -- copy data back from the local variables to OUT or IN-OUT args, if any
700
701
702
703
704
705
706
707
708
709 ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_out_p1(ddp_x_rt_oper_resource_tbl, p9_a0
710 , p9_a1
711 , p9_a2
712 , p9_a3
713 , p9_a4
714 , p9_a5
715 , p9_a6
716 , p9_a7
717 , p9_a8
718 , p9_a9
719 , p9_a10
720 , p9_a11
721 , p9_a12
722 , p9_a13
723 , p9_a14
724 , p9_a15
725 , p9_a16
726 , p9_a17
727 , p9_a18
728 , p9_a19
729 , p9_a20
730 , p9_a21
731 , p9_a22
732 , p9_a23
733 , p9_a24
734 , p9_a25
735 , p9_a26
736 , p9_a27
737 , p9_a28
738 , p9_a29
739 , p9_a30
740 , p9_a31
741 , p9_a32
742 , p9_a33
743 , p9_a34
744 , p9_a35
745 , p9_a36
746 , p9_a37
747 , p9_a38
748 , p9_a39
749 , p9_a40
750 );
751
752
753 end;
754
755 procedure define_cost_parameter(p_api_version NUMBER
756 , p_init_msg_list VARCHAR2
757 , p_commit VARCHAR2
758 , p_validation_level NUMBER
759 , p_default VARCHAR2
760 , p_module_type VARCHAR2
761 , x_return_status out nocopy VARCHAR2
762 , x_msg_count out nocopy NUMBER
763 , x_msg_data out nocopy VARCHAR2
764 , p9_a0 in out nocopy NUMBER
765 , p9_a1 in out nocopy NUMBER
766 , p9_a2 in out nocopy NUMBER
767 , p9_a3 in out nocopy VARCHAR2
768 , p9_a4 in out nocopy NUMBER
769 , p9_a5 in out nocopy VARCHAR2
770 , p9_a6 in out nocopy NUMBER
771 , p9_a7 in out nocopy VARCHAR2
772 , p9_a8 in out nocopy NUMBER
773 , p9_a9 in out nocopy VARCHAR2
774 , p9_a10 in out nocopy NUMBER
775 , p9_a11 in out nocopy VARCHAR2
776 )
780 ddindx binary_integer; indx binary_integer;
777
778 as
779 ddp_x_rt_oper_cost_rec ahl_rm_rt_oper_resource_pvt.rt_oper_cost_rec_type;
781 begin
782
783 -- copy data to the local IN or IN-OUT args, if any
784
785
786
787
788
789
790
791
792
793 ddp_x_rt_oper_cost_rec.rt_oper_resource_id := p9_a0;
794 ddp_x_rt_oper_cost_rec.object_version_number := p9_a1;
795 ddp_x_rt_oper_cost_rec.activity_id := p9_a2;
796 ddp_x_rt_oper_cost_rec.activity := p9_a3;
797 ddp_x_rt_oper_cost_rec.cost_basis_id := p9_a4;
798 ddp_x_rt_oper_cost_rec.cost_basis := p9_a5;
799 ddp_x_rt_oper_cost_rec.scheduled_type_id := p9_a6;
800 ddp_x_rt_oper_cost_rec.scheduled_type := p9_a7;
801 ddp_x_rt_oper_cost_rec.autocharge_type_id := p9_a8;
802 ddp_x_rt_oper_cost_rec.autocharge_type := p9_a9;
803 ddp_x_rt_oper_cost_rec.standard_rate_flag := p9_a10;
804 ddp_x_rt_oper_cost_rec.standard_rate := p9_a11;
805
806 -- here's the delegated call to the old PL/SQL routine
807 ahl_rm_rt_oper_resource_pvt.define_cost_parameter(p_api_version,
808 p_init_msg_list,
809 p_commit,
810 p_validation_level,
811 p_default,
812 p_module_type,
813 x_return_status,
814 x_msg_count,
815 x_msg_data,
816 ddp_x_rt_oper_cost_rec);
817
818 -- copy data back from the local variables to OUT or IN-OUT args, if any
819
820
821
822
823
824
825
826
827
828 p9_a0 := ddp_x_rt_oper_cost_rec.rt_oper_resource_id;
829 p9_a1 := ddp_x_rt_oper_cost_rec.object_version_number;
830 p9_a2 := ddp_x_rt_oper_cost_rec.activity_id;
831 p9_a3 := ddp_x_rt_oper_cost_rec.activity;
832 p9_a4 := ddp_x_rt_oper_cost_rec.cost_basis_id;
833 p9_a5 := ddp_x_rt_oper_cost_rec.cost_basis;
834 p9_a6 := ddp_x_rt_oper_cost_rec.scheduled_type_id;
835 p9_a7 := ddp_x_rt_oper_cost_rec.scheduled_type;
836 p9_a8 := ddp_x_rt_oper_cost_rec.autocharge_type_id;
837 p9_a9 := ddp_x_rt_oper_cost_rec.autocharge_type;
838 p9_a10 := ddp_x_rt_oper_cost_rec.standard_rate_flag;
839 p9_a11 := ddp_x_rt_oper_cost_rec.standard_rate;
840 end;
841
842 procedure process_alternate_resource(p_api_version NUMBER
843 , p_init_msg_list VARCHAR2
844 , p_commit VARCHAR2
845 , p_validation_level NUMBER
846 , p_default VARCHAR2
847 , p_module_type VARCHAR2
848 , x_return_status out nocopy VARCHAR2
849 , x_msg_count out nocopy NUMBER
850 , x_msg_data out nocopy VARCHAR2
851 , p_rt_oper_resource_id NUMBER
852 , p10_a0 in out nocopy JTF_NUMBER_TABLE
853 , p10_a1 in out nocopy JTF_NUMBER_TABLE
854 , p10_a2 in out nocopy JTF_DATE_TABLE
855 , p10_a3 in out nocopy JTF_NUMBER_TABLE
856 , p10_a4 in out nocopy JTF_DATE_TABLE
857 , p10_a5 in out nocopy JTF_NUMBER_TABLE
858 , p10_a6 in out nocopy JTF_NUMBER_TABLE
859 , p10_a7 in out nocopy JTF_NUMBER_TABLE
860 , p10_a8 in out nocopy JTF_VARCHAR2_TABLE_100
861 , p10_a9 in out nocopy JTF_NUMBER_TABLE
862 , p10_a10 in out nocopy JTF_NUMBER_TABLE
863 , p10_a11 in out nocopy JTF_VARCHAR2_TABLE_100
864 , p10_a12 in out nocopy JTF_VARCHAR2_TABLE_200
865 , p10_a13 in out nocopy JTF_VARCHAR2_TABLE_200
866 , p10_a14 in out nocopy JTF_VARCHAR2_TABLE_200
867 , p10_a15 in out nocopy JTF_VARCHAR2_TABLE_200
868 , p10_a16 in out nocopy JTF_VARCHAR2_TABLE_200
869 , p10_a17 in out nocopy JTF_VARCHAR2_TABLE_200
870 , p10_a18 in out nocopy JTF_VARCHAR2_TABLE_200
871 , p10_a19 in out nocopy JTF_VARCHAR2_TABLE_200
872 , p10_a20 in out nocopy JTF_VARCHAR2_TABLE_200
873 , p10_a21 in out nocopy JTF_VARCHAR2_TABLE_200
874 , p10_a22 in out nocopy JTF_VARCHAR2_TABLE_200
875 , p10_a23 in out nocopy JTF_VARCHAR2_TABLE_200
876 , p10_a24 in out nocopy JTF_VARCHAR2_TABLE_200
877 , p10_a25 in out nocopy JTF_VARCHAR2_TABLE_200
878 , p10_a26 in out nocopy JTF_VARCHAR2_TABLE_200
879 , p10_a27 in out nocopy JTF_VARCHAR2_TABLE_100
880 )
881
882 as
883 ddp_x_alt_resource_tbl ahl_rm_rt_oper_resource_pvt.alt_resource_tbl_type;
884 ddindx binary_integer; indx binary_integer;
885 begin
886
887 -- copy data to the local IN or IN-OUT args, if any
888
889
890
891
892
893
894
895
896
897
898 ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_in_p4(ddp_x_alt_resource_tbl, p10_a0
899 , p10_a1
900 , p10_a2
901 , p10_a3
902 , p10_a4
903 , p10_a5
904 , p10_a6
905 , p10_a7
906 , p10_a8
907 , p10_a9
908 , p10_a10
909 , p10_a11
910 , p10_a12
911 , p10_a13
912 , p10_a14
913 , p10_a15
914 , p10_a16
915 , p10_a17
916 , p10_a18
917 , p10_a19
918 , p10_a20
919 , p10_a21
920 , p10_a22
921 , p10_a23
922 , p10_a24
923 , p10_a25
924 , p10_a26
925 , p10_a27
926 );
927
928 -- here's the delegated call to the old PL/SQL routine
929 ahl_rm_rt_oper_resource_pvt.process_alternate_resource(p_api_version,
930 p_init_msg_list,
931 p_commit,
932 p_validation_level,
933 p_default,
934 p_module_type,
935 x_return_status,
936 x_msg_count,
937 x_msg_data,
938 p_rt_oper_resource_id,
939 ddp_x_alt_resource_tbl);
940
941 -- copy data back from the local variables to OUT or IN-OUT args, if any
942
943
944
945
946
947
948
949
950
951
952 ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_out_p4(ddp_x_alt_resource_tbl, p10_a0
953 , p10_a1
954 , p10_a2
955 , p10_a3
956 , p10_a4
957 , p10_a5
958 , p10_a6
959 , p10_a7
960 , p10_a8
961 , p10_a9
962 , p10_a10
963 , p10_a11
964 , p10_a12
965 , p10_a13
966 , p10_a14
967 , p10_a15
968 , p10_a16
969 , p10_a17
970 , p10_a18
971 , p10_a19
972 , p10_a20
973 , p10_a21
974 , p10_a22
975 , p10_a23
976 , p10_a24
977 , p10_a25
978 , p10_a26
979 , p10_a27
980 );
981 end;
982
983 end ahl_rm_rt_oper_resource_pvt_w;