[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.5.12020000.2 2012/12/14 05:56:18 shnatu ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_VARCHAR2_TABLE_100
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_VARCHAR2_TABLE_300
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_NUMBER_TABLE
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_DATE_TABLE
33 , a17 JTF_DATE_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_NUMBER_TABLE
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_NUMBER_TABLE
40 , a24 JTF_VARCHAR2_TABLE_100
41 , a25 JTF_NUMBER_TABLE
42 , a26 JTF_VARCHAR2_TABLE_100
43 , a27 JTF_NUMBER_TABLE
44 , a28 JTF_VARCHAR2_TABLE_100
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_VARCHAR2_TABLE_100
47 , a31 JTF_NUMBER_TABLE
48 , a32 JTF_NUMBER_TABLE
49 , a33 JTF_NUMBER_TABLE
50 , a34 JTF_DATE_TABLE
51 , a35 JTF_DATE_TABLE
52 , a36 JTF_NUMBER_TABLE
53 , a37 JTF_NUMBER_TABLE
54 , a38 JTF_NUMBER_TABLE
55 , a39 JTF_DATE_TABLE
56 , a40 JTF_NUMBER_TABLE
57 , a41 JTF_DATE_TABLE
58 , a42 JTF_NUMBER_TABLE
59 , a43 JTF_VARCHAR2_TABLE_100
60 , a44 JTF_VARCHAR2_TABLE_200
61 , a45 JTF_VARCHAR2_TABLE_200
62 , a46 JTF_VARCHAR2_TABLE_200
63 , a47 JTF_VARCHAR2_TABLE_200
64 , a48 JTF_VARCHAR2_TABLE_200
65 , a49 JTF_VARCHAR2_TABLE_200
66 , a50 JTF_VARCHAR2_TABLE_200
67 , a51 JTF_VARCHAR2_TABLE_200
68 , a52 JTF_VARCHAR2_TABLE_200
69 , a53 JTF_VARCHAR2_TABLE_200
70 , a54 JTF_VARCHAR2_TABLE_200
71 , a55 JTF_VARCHAR2_TABLE_200
72 , a56 JTF_VARCHAR2_TABLE_200
73 , a57 JTF_VARCHAR2_TABLE_200
74 , a58 JTF_VARCHAR2_TABLE_200
75 , a59 JTF_VARCHAR2_TABLE_100
76 , a60 JTF_VARCHAR2_TABLE_100
77 ) as
78 ddindx binary_integer; indx binary_integer;
79 begin
80 if a0 is not null and a0.count > 0 then
81 if a0.count > 0 then
82 indx := a0.first;
83 ddindx := 1;
84 while true loop
85 t(ddindx).operation_resource_id := a0(indx);
86 t(ddindx).resource_seq_number := a1(indx);
87 t(ddindx).operation_seq_number := a2(indx);
88 t(ddindx).schedule_seq_num := a3(indx);
89 t(ddindx).workorder_id := a4(indx);
90 t(ddindx).job_number := a5(indx);
91 t(ddindx).wip_entity_id := a6(indx);
92 t(ddindx).workorder_operation_id := a7(indx);
93 t(ddindx).organization_id := a8(indx);
94 t(ddindx).rt_oper_resource_id := a9(indx);
95 t(ddindx).department_id := a10(indx);
96 t(ddindx).department_name := a11(indx);
97 t(ddindx).resource_type_code := a12(indx);
98 t(ddindx).resource_type_name := a13(indx);
99 t(ddindx).resource_id := a14(indx);
100 t(ddindx).resource_name := a15(indx);
101 t(ddindx).oper_start_date := rosetta_g_miss_date_in_map(a16(indx));
102 t(ddindx).oper_end_date := rosetta_g_miss_date_in_map(a17(indx));
103 t(ddindx).duration := a18(indx);
104 t(ddindx).quantity := a19(indx);
105 t(ddindx).set_up := a20(indx);
106 t(ddindx).uom_code := a21(indx);
107 t(ddindx).uom_name := a22(indx);
108 t(ddindx).cost_basis_code := a23(indx);
109 t(ddindx).cost_basis_name := a24(indx);
110 t(ddindx).charge_type_code := a25(indx);
111 t(ddindx).charge_type_name := a26(indx);
112 t(ddindx).scheduled_type_code := a27(indx);
113 t(ddindx).scheduled_type_name := a28(indx);
114 t(ddindx).std_rate_flag_code := a29(indx);
115 t(ddindx).std_rate_flag_name := a30(indx);
116 t(ddindx).total_required := a31(indx);
117 t(ddindx).applied_num := a32(indx);
118 t(ddindx).open_num := a33(indx);
119 t(ddindx).req_start_date := rosetta_g_miss_date_in_map(a34(indx));
120 t(ddindx).req_end_date := rosetta_g_miss_date_in_map(a35(indx));
121 t(ddindx).object_version_number := a36(indx);
122 t(ddindx).security_group_id := a37(indx);
123 t(ddindx).last_update_login := a38(indx);
124 t(ddindx).last_updated_date := rosetta_g_miss_date_in_map(a39(indx));
125 t(ddindx).last_uddated_by := a40(indx);
126 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a41(indx));
127 t(ddindx).created_by := a42(indx);
128 t(ddindx).attribute_category := a43(indx);
129 t(ddindx).attribute1 := a44(indx);
130 t(ddindx).attribute2 := a45(indx);
131 t(ddindx).attribute3 := a46(indx);
132 t(ddindx).attribute4 := a47(indx);
133 t(ddindx).attribute5 := a48(indx);
134 t(ddindx).attribute6 := a49(indx);
135 t(ddindx).attribute7 := a50(indx);
136 t(ddindx).attribute8 := a51(indx);
137 t(ddindx).attribute9 := a52(indx);
138 t(ddindx).attribute10 := a53(indx);
139 t(ddindx).attribute11 := a54(indx);
140 t(ddindx).attribute12 := a55(indx);
141 t(ddindx).attribute13 := a56(indx);
142 t(ddindx).attribute14 := a57(indx);
143 t(ddindx).attribute15 := a58(indx);
144 t(ddindx).operation_flag := a59(indx);
145 t(ddindx).is_unit_locked := a60(indx);
146 ddindx := ddindx+1;
147 if a0.last =indx
148 then exit;
149 end if;
150 indx := a0.next(indx);
151 end loop;
152 end if;
153 end if;
154 end rosetta_table_copy_in_p1;
155 procedure rosetta_table_copy_out_p1(t ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
156 , a1 out nocopy JTF_NUMBER_TABLE
157 , a2 out nocopy JTF_NUMBER_TABLE
158 , a3 out nocopy JTF_NUMBER_TABLE
159 , a4 out nocopy JTF_NUMBER_TABLE
160 , a5 out nocopy JTF_VARCHAR2_TABLE_100
161 , a6 out nocopy JTF_NUMBER_TABLE
162 , a7 out nocopy JTF_NUMBER_TABLE
163 , a8 out nocopy JTF_NUMBER_TABLE
164 , a9 out nocopy JTF_NUMBER_TABLE
165 , a10 out nocopy JTF_NUMBER_TABLE
166 , a11 out nocopy JTF_VARCHAR2_TABLE_300
167 , a12 out nocopy JTF_NUMBER_TABLE
168 , a13 out nocopy JTF_VARCHAR2_TABLE_100
169 , a14 out nocopy JTF_NUMBER_TABLE
170 , a15 out nocopy JTF_VARCHAR2_TABLE_100
171 , a16 out nocopy JTF_DATE_TABLE
172 , a17 out nocopy JTF_DATE_TABLE
173 , a18 out nocopy JTF_NUMBER_TABLE
174 , a19 out nocopy JTF_NUMBER_TABLE
175 , a20 out nocopy JTF_NUMBER_TABLE
176 , a21 out nocopy JTF_VARCHAR2_TABLE_100
177 , a22 out nocopy JTF_VARCHAR2_TABLE_100
178 , a23 out nocopy JTF_NUMBER_TABLE
179 , a24 out nocopy JTF_VARCHAR2_TABLE_100
180 , a25 out nocopy JTF_NUMBER_TABLE
181 , a26 out nocopy JTF_VARCHAR2_TABLE_100
182 , a27 out nocopy JTF_NUMBER_TABLE
183 , a28 out nocopy JTF_VARCHAR2_TABLE_100
184 , a29 out nocopy JTF_NUMBER_TABLE
185 , a30 out nocopy JTF_VARCHAR2_TABLE_100
186 , a31 out nocopy JTF_NUMBER_TABLE
187 , a32 out nocopy JTF_NUMBER_TABLE
188 , a33 out nocopy JTF_NUMBER_TABLE
189 , a34 out nocopy JTF_DATE_TABLE
190 , a35 out nocopy JTF_DATE_TABLE
191 , a36 out nocopy JTF_NUMBER_TABLE
192 , a37 out nocopy JTF_NUMBER_TABLE
193 , a38 out nocopy JTF_NUMBER_TABLE
194 , a39 out nocopy JTF_DATE_TABLE
195 , a40 out nocopy JTF_NUMBER_TABLE
196 , a41 out nocopy JTF_DATE_TABLE
197 , a42 out nocopy JTF_NUMBER_TABLE
198 , a43 out nocopy JTF_VARCHAR2_TABLE_100
199 , a44 out nocopy JTF_VARCHAR2_TABLE_200
200 , a45 out nocopy JTF_VARCHAR2_TABLE_200
201 , a46 out nocopy JTF_VARCHAR2_TABLE_200
202 , a47 out nocopy JTF_VARCHAR2_TABLE_200
203 , a48 out nocopy JTF_VARCHAR2_TABLE_200
204 , a49 out nocopy JTF_VARCHAR2_TABLE_200
205 , a50 out nocopy JTF_VARCHAR2_TABLE_200
206 , a51 out nocopy JTF_VARCHAR2_TABLE_200
207 , a52 out nocopy JTF_VARCHAR2_TABLE_200
208 , a53 out nocopy JTF_VARCHAR2_TABLE_200
209 , a54 out nocopy JTF_VARCHAR2_TABLE_200
210 , a55 out nocopy JTF_VARCHAR2_TABLE_200
211 , a56 out nocopy JTF_VARCHAR2_TABLE_200
212 , a57 out nocopy JTF_VARCHAR2_TABLE_200
213 , a58 out nocopy JTF_VARCHAR2_TABLE_200
214 , a59 out nocopy JTF_VARCHAR2_TABLE_100
215 , a60 out nocopy JTF_VARCHAR2_TABLE_100
216 ) as
217 ddindx binary_integer; indx binary_integer;
218 begin
219 if t is null or t.count = 0 then
220 a0 := JTF_NUMBER_TABLE();
221 a1 := JTF_NUMBER_TABLE();
222 a2 := JTF_NUMBER_TABLE();
223 a3 := JTF_NUMBER_TABLE();
224 a4 := JTF_NUMBER_TABLE();
225 a5 := JTF_VARCHAR2_TABLE_100();
226 a6 := JTF_NUMBER_TABLE();
227 a7 := JTF_NUMBER_TABLE();
228 a8 := JTF_NUMBER_TABLE();
229 a9 := JTF_NUMBER_TABLE();
230 a10 := JTF_NUMBER_TABLE();
231 a11 := JTF_VARCHAR2_TABLE_300();
232 a12 := JTF_NUMBER_TABLE();
233 a13 := JTF_VARCHAR2_TABLE_100();
234 a14 := JTF_NUMBER_TABLE();
235 a15 := JTF_VARCHAR2_TABLE_100();
236 a16 := JTF_DATE_TABLE();
237 a17 := JTF_DATE_TABLE();
238 a18 := JTF_NUMBER_TABLE();
239 a19 := JTF_NUMBER_TABLE();
240 a20 := JTF_NUMBER_TABLE();
241 a21 := JTF_VARCHAR2_TABLE_100();
242 a22 := JTF_VARCHAR2_TABLE_100();
243 a23 := JTF_NUMBER_TABLE();
244 a24 := JTF_VARCHAR2_TABLE_100();
245 a25 := JTF_NUMBER_TABLE();
246 a26 := JTF_VARCHAR2_TABLE_100();
247 a27 := JTF_NUMBER_TABLE();
248 a28 := JTF_VARCHAR2_TABLE_100();
249 a29 := JTF_NUMBER_TABLE();
250 a30 := JTF_VARCHAR2_TABLE_100();
251 a31 := JTF_NUMBER_TABLE();
252 a32 := JTF_NUMBER_TABLE();
253 a33 := JTF_NUMBER_TABLE();
254 a34 := JTF_DATE_TABLE();
255 a35 := JTF_DATE_TABLE();
256 a36 := JTF_NUMBER_TABLE();
257 a37 := JTF_NUMBER_TABLE();
258 a38 := JTF_NUMBER_TABLE();
259 a39 := JTF_DATE_TABLE();
260 a40 := JTF_NUMBER_TABLE();
261 a41 := JTF_DATE_TABLE();
262 a42 := JTF_NUMBER_TABLE();
263 a43 := JTF_VARCHAR2_TABLE_100();
264 a44 := JTF_VARCHAR2_TABLE_200();
265 a45 := JTF_VARCHAR2_TABLE_200();
266 a46 := JTF_VARCHAR2_TABLE_200();
267 a47 := JTF_VARCHAR2_TABLE_200();
268 a48 := JTF_VARCHAR2_TABLE_200();
269 a49 := JTF_VARCHAR2_TABLE_200();
270 a50 := JTF_VARCHAR2_TABLE_200();
271 a51 := JTF_VARCHAR2_TABLE_200();
272 a52 := JTF_VARCHAR2_TABLE_200();
273 a53 := JTF_VARCHAR2_TABLE_200();
274 a54 := JTF_VARCHAR2_TABLE_200();
275 a55 := JTF_VARCHAR2_TABLE_200();
276 a56 := JTF_VARCHAR2_TABLE_200();
277 a57 := JTF_VARCHAR2_TABLE_200();
278 a58 := JTF_VARCHAR2_TABLE_200();
279 a59 := JTF_VARCHAR2_TABLE_100();
280 a60 := JTF_VARCHAR2_TABLE_100();
281 else
282 a0 := JTF_NUMBER_TABLE();
283 a1 := JTF_NUMBER_TABLE();
284 a2 := JTF_NUMBER_TABLE();
285 a3 := JTF_NUMBER_TABLE();
286 a4 := JTF_NUMBER_TABLE();
287 a5 := JTF_VARCHAR2_TABLE_100();
288 a6 := JTF_NUMBER_TABLE();
289 a7 := JTF_NUMBER_TABLE();
290 a8 := JTF_NUMBER_TABLE();
291 a9 := JTF_NUMBER_TABLE();
292 a10 := JTF_NUMBER_TABLE();
293 a11 := JTF_VARCHAR2_TABLE_300();
294 a12 := JTF_NUMBER_TABLE();
295 a13 := JTF_VARCHAR2_TABLE_100();
296 a14 := JTF_NUMBER_TABLE();
297 a15 := JTF_VARCHAR2_TABLE_100();
298 a16 := JTF_DATE_TABLE();
299 a17 := JTF_DATE_TABLE();
300 a18 := JTF_NUMBER_TABLE();
301 a19 := JTF_NUMBER_TABLE();
302 a20 := JTF_NUMBER_TABLE();
303 a21 := JTF_VARCHAR2_TABLE_100();
304 a22 := JTF_VARCHAR2_TABLE_100();
305 a23 := JTF_NUMBER_TABLE();
306 a24 := JTF_VARCHAR2_TABLE_100();
307 a25 := JTF_NUMBER_TABLE();
308 a26 := JTF_VARCHAR2_TABLE_100();
309 a27 := JTF_NUMBER_TABLE();
310 a28 := JTF_VARCHAR2_TABLE_100();
311 a29 := JTF_NUMBER_TABLE();
312 a30 := JTF_VARCHAR2_TABLE_100();
313 a31 := JTF_NUMBER_TABLE();
314 a32 := JTF_NUMBER_TABLE();
315 a33 := JTF_NUMBER_TABLE();
316 a34 := JTF_DATE_TABLE();
317 a35 := JTF_DATE_TABLE();
318 a36 := JTF_NUMBER_TABLE();
319 a37 := JTF_NUMBER_TABLE();
320 a38 := JTF_NUMBER_TABLE();
321 a39 := JTF_DATE_TABLE();
322 a40 := JTF_NUMBER_TABLE();
323 a41 := JTF_DATE_TABLE();
324 a42 := JTF_NUMBER_TABLE();
325 a43 := JTF_VARCHAR2_TABLE_100();
326 a44 := JTF_VARCHAR2_TABLE_200();
327 a45 := JTF_VARCHAR2_TABLE_200();
328 a46 := JTF_VARCHAR2_TABLE_200();
329 a47 := JTF_VARCHAR2_TABLE_200();
330 a48 := JTF_VARCHAR2_TABLE_200();
331 a49 := JTF_VARCHAR2_TABLE_200();
332 a50 := JTF_VARCHAR2_TABLE_200();
333 a51 := JTF_VARCHAR2_TABLE_200();
334 a52 := JTF_VARCHAR2_TABLE_200();
335 a53 := JTF_VARCHAR2_TABLE_200();
336 a54 := JTF_VARCHAR2_TABLE_200();
337 a55 := JTF_VARCHAR2_TABLE_200();
338 a56 := JTF_VARCHAR2_TABLE_200();
339 a57 := JTF_VARCHAR2_TABLE_200();
340 a58 := JTF_VARCHAR2_TABLE_200();
341 a59 := JTF_VARCHAR2_TABLE_100();
342 a60 := JTF_VARCHAR2_TABLE_100();
343 if t.count > 0 then
344 a0.extend(t.count);
345 a1.extend(t.count);
346 a2.extend(t.count);
347 a3.extend(t.count);
348 a4.extend(t.count);
349 a5.extend(t.count);
350 a6.extend(t.count);
351 a7.extend(t.count);
352 a8.extend(t.count);
353 a9.extend(t.count);
354 a10.extend(t.count);
355 a11.extend(t.count);
356 a12.extend(t.count);
357 a13.extend(t.count);
358 a14.extend(t.count);
359 a15.extend(t.count);
360 a16.extend(t.count);
361 a17.extend(t.count);
362 a18.extend(t.count);
363 a19.extend(t.count);
364 a20.extend(t.count);
365 a21.extend(t.count);
366 a22.extend(t.count);
367 a23.extend(t.count);
368 a24.extend(t.count);
369 a25.extend(t.count);
370 a26.extend(t.count);
371 a27.extend(t.count);
372 a28.extend(t.count);
373 a29.extend(t.count);
374 a30.extend(t.count);
375 a31.extend(t.count);
376 a32.extend(t.count);
377 a33.extend(t.count);
378 a34.extend(t.count);
379 a35.extend(t.count);
380 a36.extend(t.count);
381 a37.extend(t.count);
382 a38.extend(t.count);
383 a39.extend(t.count);
384 a40.extend(t.count);
385 a41.extend(t.count);
386 a42.extend(t.count);
387 a43.extend(t.count);
388 a44.extend(t.count);
389 a45.extend(t.count);
390 a46.extend(t.count);
391 a47.extend(t.count);
392 a48.extend(t.count);
393 a49.extend(t.count);
394 a50.extend(t.count);
395 a51.extend(t.count);
396 a52.extend(t.count);
397 a53.extend(t.count);
398 a54.extend(t.count);
399 a55.extend(t.count);
400 a56.extend(t.count);
401 a57.extend(t.count);
402 a58.extend(t.count);
403 a59.extend(t.count);
404 a60.extend(t.count);
405 ddindx := t.first;
406 indx := 1;
407 while true loop
408 a0(indx) := t(ddindx).operation_resource_id;
409 a1(indx) := t(ddindx).resource_seq_number;
410 a2(indx) := t(ddindx).operation_seq_number;
411 a3(indx) := t(ddindx).schedule_seq_num;
412 a4(indx) := t(ddindx).workorder_id;
413 a5(indx) := t(ddindx).job_number;
414 a6(indx) := t(ddindx).wip_entity_id;
415 a7(indx) := t(ddindx).workorder_operation_id;
416 a8(indx) := t(ddindx).organization_id;
417 a9(indx) := t(ddindx).rt_oper_resource_id;
418 a10(indx) := t(ddindx).department_id;
419 a11(indx) := t(ddindx).department_name;
420 a12(indx) := t(ddindx).resource_type_code;
421 a13(indx) := t(ddindx).resource_type_name;
422 a14(indx) := t(ddindx).resource_id;
423 a15(indx) := t(ddindx).resource_name;
424 a16(indx) := t(ddindx).oper_start_date;
425 a17(indx) := t(ddindx).oper_end_date;
426 a18(indx) := t(ddindx).duration;
427 a19(indx) := t(ddindx).quantity;
428 a20(indx) := t(ddindx).set_up;
429 a21(indx) := t(ddindx).uom_code;
430 a22(indx) := t(ddindx).uom_name;
431 a23(indx) := t(ddindx).cost_basis_code;
432 a24(indx) := t(ddindx).cost_basis_name;
433 a25(indx) := t(ddindx).charge_type_code;
434 a26(indx) := t(ddindx).charge_type_name;
435 a27(indx) := t(ddindx).scheduled_type_code;
436 a28(indx) := t(ddindx).scheduled_type_name;
437 a29(indx) := t(ddindx).std_rate_flag_code;
438 a30(indx) := t(ddindx).std_rate_flag_name;
439 a31(indx) := t(ddindx).total_required;
440 a32(indx) := t(ddindx).applied_num;
441 a33(indx) := t(ddindx).open_num;
442 a34(indx) := t(ddindx).req_start_date;
443 a35(indx) := t(ddindx).req_end_date;
444 a36(indx) := t(ddindx).object_version_number;
445 a37(indx) := t(ddindx).security_group_id;
446 a38(indx) := t(ddindx).last_update_login;
447 a39(indx) := t(ddindx).last_updated_date;
448 a40(indx) := t(ddindx).last_uddated_by;
449 a41(indx) := t(ddindx).creation_date;
450 a42(indx) := t(ddindx).created_by;
451 a43(indx) := t(ddindx).attribute_category;
452 a44(indx) := t(ddindx).attribute1;
453 a45(indx) := t(ddindx).attribute2;
454 a46(indx) := t(ddindx).attribute3;
455 a47(indx) := t(ddindx).attribute4;
456 a48(indx) := t(ddindx).attribute5;
457 a49(indx) := t(ddindx).attribute6;
458 a50(indx) := t(ddindx).attribute7;
459 a51(indx) := t(ddindx).attribute8;
460 a52(indx) := t(ddindx).attribute9;
461 a53(indx) := t(ddindx).attribute10;
462 a54(indx) := t(ddindx).attribute11;
463 a55(indx) := t(ddindx).attribute12;
464 a56(indx) := t(ddindx).attribute13;
465 a57(indx) := t(ddindx).attribute14;
466 a58(indx) := t(ddindx).attribute15;
467 a59(indx) := t(ddindx).operation_flag;
468 a60(indx) := t(ddindx).is_unit_locked;
469 indx := indx+1;
470 if t.last =ddindx
471 then exit;
472 end if;
473 ddindx := t.next(ddindx);
474 end loop;
475 end if;
476 end if;
477 end rosetta_table_copy_out_p1;
478
479 procedure process_resrc_require(p_api_version NUMBER
480 , p_init_msg_list VARCHAR2
481 , p_commit VARCHAR2
482 , p_validation_level NUMBER
483 , p_module_type VARCHAR2
484 , p_operation_flag VARCHAR2
485 , p_interface_flag VARCHAR2
486 , p7_a0 in out nocopy JTF_NUMBER_TABLE
487 , p7_a1 in out nocopy JTF_NUMBER_TABLE
488 , p7_a2 in out nocopy JTF_NUMBER_TABLE
489 , p7_a3 in out nocopy JTF_NUMBER_TABLE
490 , p7_a4 in out nocopy JTF_NUMBER_TABLE
491 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
492 , p7_a6 in out nocopy JTF_NUMBER_TABLE
493 , p7_a7 in out nocopy JTF_NUMBER_TABLE
494 , p7_a8 in out nocopy JTF_NUMBER_TABLE
495 , p7_a9 in out nocopy JTF_NUMBER_TABLE
496 , p7_a10 in out nocopy JTF_NUMBER_TABLE
497 , p7_a11 in out nocopy JTF_VARCHAR2_TABLE_300
498 , p7_a12 in out nocopy JTF_NUMBER_TABLE
499 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_100
500 , p7_a14 in out nocopy JTF_NUMBER_TABLE
501 , p7_a15 in out nocopy JTF_VARCHAR2_TABLE_100
502 , p7_a16 in out nocopy JTF_DATE_TABLE
503 , p7_a17 in out nocopy JTF_DATE_TABLE
504 , p7_a18 in out nocopy JTF_NUMBER_TABLE
505 , p7_a19 in out nocopy JTF_NUMBER_TABLE
506 , p7_a20 in out nocopy JTF_NUMBER_TABLE
507 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_100
508 , p7_a22 in out nocopy JTF_VARCHAR2_TABLE_100
509 , p7_a23 in out nocopy JTF_NUMBER_TABLE
510 , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_100
511 , p7_a25 in out nocopy JTF_NUMBER_TABLE
512 , p7_a26 in out nocopy JTF_VARCHAR2_TABLE_100
513 , p7_a27 in out nocopy JTF_NUMBER_TABLE
514 , p7_a28 in out nocopy JTF_VARCHAR2_TABLE_100
515 , p7_a29 in out nocopy JTF_NUMBER_TABLE
516 , p7_a30 in out nocopy JTF_VARCHAR2_TABLE_100
517 , p7_a31 in out nocopy JTF_NUMBER_TABLE
518 , p7_a32 in out nocopy JTF_NUMBER_TABLE
519 , p7_a33 in out nocopy JTF_NUMBER_TABLE
520 , p7_a34 in out nocopy JTF_DATE_TABLE
521 , p7_a35 in out nocopy JTF_DATE_TABLE
522 , p7_a36 in out nocopy JTF_NUMBER_TABLE
523 , p7_a37 in out nocopy JTF_NUMBER_TABLE
524 , p7_a38 in out nocopy JTF_NUMBER_TABLE
525 , p7_a39 in out nocopy JTF_DATE_TABLE
526 , p7_a40 in out nocopy JTF_NUMBER_TABLE
527 , p7_a41 in out nocopy JTF_DATE_TABLE
528 , p7_a42 in out nocopy JTF_NUMBER_TABLE
529 , p7_a43 in out nocopy JTF_VARCHAR2_TABLE_100
530 , p7_a44 in out nocopy JTF_VARCHAR2_TABLE_200
531 , p7_a45 in out nocopy JTF_VARCHAR2_TABLE_200
532 , p7_a46 in out nocopy JTF_VARCHAR2_TABLE_200
533 , p7_a47 in out nocopy JTF_VARCHAR2_TABLE_200
534 , p7_a48 in out nocopy JTF_VARCHAR2_TABLE_200
535 , p7_a49 in out nocopy JTF_VARCHAR2_TABLE_200
536 , p7_a50 in out nocopy JTF_VARCHAR2_TABLE_200
537 , p7_a51 in out nocopy JTF_VARCHAR2_TABLE_200
538 , p7_a52 in out nocopy JTF_VARCHAR2_TABLE_200
539 , p7_a53 in out nocopy JTF_VARCHAR2_TABLE_200
540 , p7_a54 in out nocopy JTF_VARCHAR2_TABLE_200
541 , p7_a55 in out nocopy JTF_VARCHAR2_TABLE_200
542 , p7_a56 in out nocopy JTF_VARCHAR2_TABLE_200
543 , p7_a57 in out nocopy JTF_VARCHAR2_TABLE_200
544 , p7_a58 in out nocopy JTF_VARCHAR2_TABLE_200
545 , p7_a59 in out nocopy JTF_VARCHAR2_TABLE_100
546 , p7_a60 in out nocopy JTF_VARCHAR2_TABLE_100
547 , x_return_status out nocopy VARCHAR2
548 , x_msg_count out nocopy NUMBER
549 , x_msg_data out nocopy VARCHAR2
550 )
551
552 as
553 ddp_x_resrc_require_tbl ahl_pp_resrc_require_pvt.resrc_require_tbl_type;
554 ddindx binary_integer; indx binary_integer;
555 begin
556
557 -- copy data to the local IN or IN-OUT args, if any
558
559
560
561
562
563
564
565 ahl_pp_resrc_require_pvt_w.rosetta_table_copy_in_p1(ddp_x_resrc_require_tbl, p7_a0
566 , p7_a1
567 , p7_a2
568 , p7_a3
569 , p7_a4
570 , p7_a5
571 , p7_a6
572 , p7_a7
573 , p7_a8
574 , p7_a9
575 , p7_a10
576 , p7_a11
577 , p7_a12
578 , p7_a13
579 , p7_a14
580 , p7_a15
581 , p7_a16
582 , p7_a17
583 , p7_a18
584 , p7_a19
585 , p7_a20
586 , p7_a21
587 , p7_a22
588 , p7_a23
589 , p7_a24
590 , p7_a25
591 , p7_a26
592 , p7_a27
593 , p7_a28
594 , p7_a29
595 , p7_a30
596 , p7_a31
597 , p7_a32
598 , p7_a33
599 , p7_a34
600 , p7_a35
601 , p7_a36
602 , p7_a37
603 , p7_a38
604 , p7_a39
605 , p7_a40
606 , p7_a41
607 , p7_a42
608 , p7_a43
609 , p7_a44
610 , p7_a45
611 , p7_a46
612 , p7_a47
613 , p7_a48
614 , p7_a49
615 , p7_a50
616 , p7_a51
617 , p7_a52
618 , p7_a53
619 , p7_a54
620 , p7_a55
621 , p7_a56
622 , p7_a57
623 , p7_a58
624 , p7_a59
625 , p7_a60
626 );
627
628
629
630
631 -- here's the delegated call to the old PL/SQL routine
632 ahl_pp_resrc_require_pvt.process_resrc_require(p_api_version,
633 p_init_msg_list,
634 p_commit,
635 p_validation_level,
636 p_module_type,
637 p_operation_flag,
638 p_interface_flag,
639 ddp_x_resrc_require_tbl,
640 x_return_status,
641 x_msg_count,
642 x_msg_data);
643
644 -- copy data back from the local variables to OUT or IN-OUT args, if any
645
646
647
648
649
650
651
652 ahl_pp_resrc_require_pvt_w.rosetta_table_copy_out_p1(ddp_x_resrc_require_tbl, p7_a0
653 , p7_a1
654 , p7_a2
655 , p7_a3
656 , p7_a4
657 , p7_a5
658 , p7_a6
659 , p7_a7
660 , p7_a8
661 , p7_a9
662 , p7_a10
663 , p7_a11
664 , p7_a12
665 , p7_a13
666 , p7_a14
667 , p7_a15
668 , p7_a16
669 , p7_a17
670 , p7_a18
671 , p7_a19
672 , p7_a20
673 , p7_a21
674 , p7_a22
675 , p7_a23
676 , p7_a24
677 , p7_a25
678 , p7_a26
679 , p7_a27
680 , p7_a28
681 , p7_a29
682 , p7_a30
683 , p7_a31
684 , p7_a32
685 , p7_a33
686 , p7_a34
687 , p7_a35
688 , p7_a36
689 , p7_a37
690 , p7_a38
691 , p7_a39
692 , p7_a40
693 , p7_a41
694 , p7_a42
695 , p7_a43
696 , p7_a44
697 , p7_a45
698 , p7_a46
699 , p7_a47
700 , p7_a48
701 , p7_a49
702 , p7_a50
703 , p7_a51
704 , p7_a52
705 , p7_a53
706 , p7_a54
707 , p7_a55
708 , p7_a56
709 , p7_a57
710 , p7_a58
711 , p7_a59
712 , p7_a60
713 );
714
715
716
717 end;
718
719 procedure expand_master_wo_dates(p0_a0 in out nocopy NUMBER
720 , p0_a1 in out nocopy NUMBER
721 , p0_a2 in out nocopy NUMBER
722 , p0_a3 in out nocopy NUMBER
723 , p0_a4 in out nocopy NUMBER
724 , p0_a5 in out nocopy VARCHAR2
725 , p0_a6 in out nocopy NUMBER
726 , p0_a7 in out nocopy NUMBER
727 , p0_a8 in out nocopy NUMBER
728 , p0_a9 in out nocopy NUMBER
729 , p0_a10 in out nocopy NUMBER
730 , p0_a11 in out nocopy VARCHAR2
731 , p0_a12 in out nocopy NUMBER
732 , p0_a13 in out nocopy VARCHAR2
733 , p0_a14 in out nocopy NUMBER
734 , p0_a15 in out nocopy VARCHAR2
735 , p0_a16 in out nocopy DATE
736 , p0_a17 in out nocopy DATE
737 , p0_a18 in out nocopy NUMBER
738 , p0_a19 in out nocopy NUMBER
739 , p0_a20 in out nocopy NUMBER
740 , p0_a21 in out nocopy VARCHAR2
741 , p0_a22 in out nocopy VARCHAR2
742 , p0_a23 in out nocopy NUMBER
743 , p0_a24 in out nocopy VARCHAR2
744 , p0_a25 in out nocopy NUMBER
745 , p0_a26 in out nocopy VARCHAR2
746 , p0_a27 in out nocopy NUMBER
747 , p0_a28 in out nocopy VARCHAR2
748 , p0_a29 in out nocopy NUMBER
749 , p0_a30 in out nocopy VARCHAR2
750 , p0_a31 in out nocopy NUMBER
751 , p0_a32 in out nocopy NUMBER
752 , p0_a33 in out nocopy NUMBER
753 , p0_a34 in out nocopy DATE
754 , p0_a35 in out nocopy DATE
755 , p0_a36 in out nocopy NUMBER
756 , p0_a37 in out nocopy NUMBER
757 , p0_a38 in out nocopy NUMBER
758 , p0_a39 in out nocopy DATE
759 , p0_a40 in out nocopy NUMBER
760 , p0_a41 in out nocopy DATE
761 , p0_a42 in out nocopy NUMBER
762 , p0_a43 in out nocopy VARCHAR2
763 , p0_a44 in out nocopy VARCHAR2
764 , p0_a45 in out nocopy VARCHAR2
765 , p0_a46 in out nocopy VARCHAR2
766 , p0_a47 in out nocopy VARCHAR2
767 , p0_a48 in out nocopy VARCHAR2
768 , p0_a49 in out nocopy VARCHAR2
769 , p0_a50 in out nocopy VARCHAR2
770 , p0_a51 in out nocopy VARCHAR2
771 , p0_a52 in out nocopy VARCHAR2
772 , p0_a53 in out nocopy VARCHAR2
773 , p0_a54 in out nocopy VARCHAR2
774 , p0_a55 in out nocopy VARCHAR2
775 , p0_a56 in out nocopy VARCHAR2
776 , p0_a57 in out nocopy VARCHAR2
777 , p0_a58 in out nocopy VARCHAR2
778 , p0_a59 in out nocopy VARCHAR2
779 , p0_a60 in out nocopy VARCHAR2
780 )
781
782 as
783 ddl_resrc_require_rec ahl_pp_resrc_require_pvt.resrc_require_rec_type;
784 ddindx binary_integer; indx binary_integer;
785 begin
786
787 -- copy data to the local IN or IN-OUT args, if any
788 ddl_resrc_require_rec.operation_resource_id := p0_a0;
789 ddl_resrc_require_rec.resource_seq_number := p0_a1;
790 ddl_resrc_require_rec.operation_seq_number := p0_a2;
791 ddl_resrc_require_rec.schedule_seq_num := p0_a3;
792 ddl_resrc_require_rec.workorder_id := p0_a4;
793 ddl_resrc_require_rec.job_number := p0_a5;
794 ddl_resrc_require_rec.wip_entity_id := p0_a6;
795 ddl_resrc_require_rec.workorder_operation_id := p0_a7;
796 ddl_resrc_require_rec.organization_id := p0_a8;
797 ddl_resrc_require_rec.rt_oper_resource_id := p0_a9;
798 ddl_resrc_require_rec.department_id := p0_a10;
799 ddl_resrc_require_rec.department_name := p0_a11;
800 ddl_resrc_require_rec.resource_type_code := p0_a12;
801 ddl_resrc_require_rec.resource_type_name := p0_a13;
802 ddl_resrc_require_rec.resource_id := p0_a14;
803 ddl_resrc_require_rec.resource_name := p0_a15;
804 ddl_resrc_require_rec.oper_start_date := rosetta_g_miss_date_in_map(p0_a16);
805 ddl_resrc_require_rec.oper_end_date := rosetta_g_miss_date_in_map(p0_a17);
806 ddl_resrc_require_rec.duration := p0_a18;
807 ddl_resrc_require_rec.quantity := p0_a19;
808 ddl_resrc_require_rec.set_up := p0_a20;
809 ddl_resrc_require_rec.uom_code := p0_a21;
810 ddl_resrc_require_rec.uom_name := p0_a22;
811 ddl_resrc_require_rec.cost_basis_code := p0_a23;
812 ddl_resrc_require_rec.cost_basis_name := p0_a24;
813 ddl_resrc_require_rec.charge_type_code := p0_a25;
814 ddl_resrc_require_rec.charge_type_name := p0_a26;
815 ddl_resrc_require_rec.scheduled_type_code := p0_a27;
816 ddl_resrc_require_rec.scheduled_type_name := p0_a28;
817 ddl_resrc_require_rec.std_rate_flag_code := p0_a29;
818 ddl_resrc_require_rec.std_rate_flag_name := p0_a30;
819 ddl_resrc_require_rec.total_required := p0_a31;
820 ddl_resrc_require_rec.applied_num := p0_a32;
821 ddl_resrc_require_rec.open_num := p0_a33;
822 ddl_resrc_require_rec.req_start_date := rosetta_g_miss_date_in_map(p0_a34);
823 ddl_resrc_require_rec.req_end_date := rosetta_g_miss_date_in_map(p0_a35);
824 ddl_resrc_require_rec.object_version_number := p0_a36;
825 ddl_resrc_require_rec.security_group_id := p0_a37;
826 ddl_resrc_require_rec.last_update_login := p0_a38;
827 ddl_resrc_require_rec.last_updated_date := rosetta_g_miss_date_in_map(p0_a39);
828 ddl_resrc_require_rec.last_uddated_by := p0_a40;
829 ddl_resrc_require_rec.creation_date := rosetta_g_miss_date_in_map(p0_a41);
830 ddl_resrc_require_rec.created_by := p0_a42;
831 ddl_resrc_require_rec.attribute_category := p0_a43;
832 ddl_resrc_require_rec.attribute1 := p0_a44;
833 ddl_resrc_require_rec.attribute2 := p0_a45;
834 ddl_resrc_require_rec.attribute3 := p0_a46;
835 ddl_resrc_require_rec.attribute4 := p0_a47;
836 ddl_resrc_require_rec.attribute5 := p0_a48;
837 ddl_resrc_require_rec.attribute6 := p0_a49;
838 ddl_resrc_require_rec.attribute7 := p0_a50;
839 ddl_resrc_require_rec.attribute8 := p0_a51;
840 ddl_resrc_require_rec.attribute9 := p0_a52;
841 ddl_resrc_require_rec.attribute10 := p0_a53;
842 ddl_resrc_require_rec.attribute11 := p0_a54;
843 ddl_resrc_require_rec.attribute12 := p0_a55;
844 ddl_resrc_require_rec.attribute13 := p0_a56;
845 ddl_resrc_require_rec.attribute14 := p0_a57;
846 ddl_resrc_require_rec.attribute15 := p0_a58;
847 ddl_resrc_require_rec.operation_flag := p0_a59;
848 ddl_resrc_require_rec.is_unit_locked := p0_a60;
849
850 -- here's the delegated call to the old PL/SQL routine
851 ahl_pp_resrc_require_pvt.expand_master_wo_dates(ddl_resrc_require_rec);
852
853 -- copy data back from the local variables to OUT or IN-OUT args, if any
854 p0_a0 := ddl_resrc_require_rec.operation_resource_id;
855 p0_a1 := ddl_resrc_require_rec.resource_seq_number;
856 p0_a2 := ddl_resrc_require_rec.operation_seq_number;
857 p0_a3 := ddl_resrc_require_rec.schedule_seq_num;
858 p0_a4 := ddl_resrc_require_rec.workorder_id;
859 p0_a5 := ddl_resrc_require_rec.job_number;
860 p0_a6 := ddl_resrc_require_rec.wip_entity_id;
861 p0_a7 := ddl_resrc_require_rec.workorder_operation_id;
862 p0_a8 := ddl_resrc_require_rec.organization_id;
863 p0_a9 := ddl_resrc_require_rec.rt_oper_resource_id;
864 p0_a10 := ddl_resrc_require_rec.department_id;
865 p0_a11 := ddl_resrc_require_rec.department_name;
866 p0_a12 := ddl_resrc_require_rec.resource_type_code;
867 p0_a13 := ddl_resrc_require_rec.resource_type_name;
868 p0_a14 := ddl_resrc_require_rec.resource_id;
869 p0_a15 := ddl_resrc_require_rec.resource_name;
870 p0_a16 := ddl_resrc_require_rec.oper_start_date;
871 p0_a17 := ddl_resrc_require_rec.oper_end_date;
872 p0_a18 := ddl_resrc_require_rec.duration;
873 p0_a19 := ddl_resrc_require_rec.quantity;
874 p0_a20 := ddl_resrc_require_rec.set_up;
875 p0_a21 := ddl_resrc_require_rec.uom_code;
876 p0_a22 := ddl_resrc_require_rec.uom_name;
877 p0_a23 := ddl_resrc_require_rec.cost_basis_code;
878 p0_a24 := ddl_resrc_require_rec.cost_basis_name;
879 p0_a25 := ddl_resrc_require_rec.charge_type_code;
880 p0_a26 := ddl_resrc_require_rec.charge_type_name;
881 p0_a27 := ddl_resrc_require_rec.scheduled_type_code;
882 p0_a28 := ddl_resrc_require_rec.scheduled_type_name;
883 p0_a29 := ddl_resrc_require_rec.std_rate_flag_code;
884 p0_a30 := ddl_resrc_require_rec.std_rate_flag_name;
885 p0_a31 := ddl_resrc_require_rec.total_required;
886 p0_a32 := ddl_resrc_require_rec.applied_num;
887 p0_a33 := ddl_resrc_require_rec.open_num;
888 p0_a34 := ddl_resrc_require_rec.req_start_date;
889 p0_a35 := ddl_resrc_require_rec.req_end_date;
890 p0_a36 := ddl_resrc_require_rec.object_version_number;
891 p0_a37 := ddl_resrc_require_rec.security_group_id;
892 p0_a38 := ddl_resrc_require_rec.last_update_login;
893 p0_a39 := ddl_resrc_require_rec.last_updated_date;
894 p0_a40 := ddl_resrc_require_rec.last_uddated_by;
895 p0_a41 := ddl_resrc_require_rec.creation_date;
896 p0_a42 := ddl_resrc_require_rec.created_by;
897 p0_a43 := ddl_resrc_require_rec.attribute_category;
898 p0_a44 := ddl_resrc_require_rec.attribute1;
899 p0_a45 := ddl_resrc_require_rec.attribute2;
900 p0_a46 := ddl_resrc_require_rec.attribute3;
901 p0_a47 := ddl_resrc_require_rec.attribute4;
902 p0_a48 := ddl_resrc_require_rec.attribute5;
903 p0_a49 := ddl_resrc_require_rec.attribute6;
904 p0_a50 := ddl_resrc_require_rec.attribute7;
905 p0_a51 := ddl_resrc_require_rec.attribute8;
906 p0_a52 := ddl_resrc_require_rec.attribute9;
907 p0_a53 := ddl_resrc_require_rec.attribute10;
908 p0_a54 := ddl_resrc_require_rec.attribute11;
909 p0_a55 := ddl_resrc_require_rec.attribute12;
910 p0_a56 := ddl_resrc_require_rec.attribute13;
911 p0_a57 := ddl_resrc_require_rec.attribute14;
912 p0_a58 := ddl_resrc_require_rec.attribute15;
913 p0_a59 := ddl_resrc_require_rec.operation_flag;
914 p0_a60 := ddl_resrc_require_rec.is_unit_locked;
915 end;
916
917 end ahl_pp_resrc_require_pvt_w;