[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_RESOURCE_TRANX_PVT_W
Source
1 package body ahl_prd_resource_tranx_pvt_w as
2 /* $Header: AHLWTRSB.pls 120.2 2006/01/19 16:48 sikumar noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_prd_resource_tranx_pvt.prd_resource_txns_tbl, 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_NUMBER_TABLE
9 , a6 JTF_VARCHAR2_TABLE_300
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_300
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_VARCHAR2_TABLE_100
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_NUMBER_TABLE
24 , a21 JTF_VARCHAR2_TABLE_100
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_VARCHAR2_TABLE_100
27 , a24 JTF_VARCHAR2_TABLE_100
28 , a25 JTF_VARCHAR2_TABLE_100
29 , a26 JTF_VARCHAR2_TABLE_300
30 , a27 JTF_DATE_TABLE
31 , a28 JTF_DATE_TABLE
32 ) as
33 ddindx binary_integer; indx binary_integer;
34 begin
35 if a0 is not null and a0.count > 0 then
36 if a0.count > 0 then
37 indx := a0.first;
38 ddindx := 1;
39 while true loop
40 t(ddindx).workorder_id := a0(indx);
41 t(ddindx).workorder_operation_id := a1(indx);
42 t(ddindx).operation_resource_id := a2(indx);
43 t(ddindx).organization_id := a3(indx);
44 t(ddindx).operation_sequence_num := a4(indx);
45 t(ddindx).resource_sequence_num := a5(indx);
46 t(ddindx).resource_name := a6(indx);
47 t(ddindx).resource_id := a7(indx);
48 t(ddindx).employee_num := a8(indx);
49 t(ddindx).employee_name := a9(indx);
50 t(ddindx).person_id := a10(indx);
51 t(ddindx).department_code := a11(indx);
52 t(ddindx).department_id := a12(indx);
53 t(ddindx).serial_number := a13(indx);
54 t(ddindx).instance_id := a14(indx);
55 t(ddindx).qty := a15(indx);
56 t(ddindx).uom_code := a16(indx);
57 t(ddindx).uom_meaning := a17(indx);
58 t(ddindx).activity_meaning := a18(indx);
59 t(ddindx).activity_id := a19(indx);
60 t(ddindx).reason_id := a20(indx);
61 t(ddindx).reason := a21(indx);
62 t(ddindx).reference := a22(indx);
63 t(ddindx).dml_operation := a23(indx);
64 t(ddindx).resource_type_code := a24(indx);
65 t(ddindx).resource_type_name := a25(indx);
66 t(ddindx).department_name := a26(indx);
67 t(ddindx).transaction_date := a27(indx);
68 t(ddindx).end_date := a28(indx);
69 ddindx := ddindx+1;
70 if a0.last =indx
71 then exit;
72 end if;
73 indx := a0.next(indx);
74 end loop;
75 end if;
76 end if;
77 end rosetta_table_copy_in_p1;
78 procedure rosetta_table_copy_out_p1(t ahl_prd_resource_tranx_pvt.prd_resource_txns_tbl, a0 out nocopy JTF_NUMBER_TABLE
79 , a1 out nocopy JTF_NUMBER_TABLE
80 , a2 out nocopy JTF_NUMBER_TABLE
81 , a3 out nocopy JTF_NUMBER_TABLE
82 , a4 out nocopy JTF_NUMBER_TABLE
83 , a5 out nocopy JTF_NUMBER_TABLE
84 , a6 out nocopy JTF_VARCHAR2_TABLE_300
85 , a7 out nocopy JTF_NUMBER_TABLE
86 , a8 out nocopy JTF_VARCHAR2_TABLE_100
87 , a9 out nocopy JTF_VARCHAR2_TABLE_300
88 , a10 out nocopy JTF_NUMBER_TABLE
89 , a11 out nocopy JTF_VARCHAR2_TABLE_100
90 , a12 out nocopy JTF_NUMBER_TABLE
91 , a13 out nocopy JTF_VARCHAR2_TABLE_100
92 , a14 out nocopy JTF_NUMBER_TABLE
93 , a15 out nocopy JTF_NUMBER_TABLE
94 , a16 out nocopy JTF_VARCHAR2_TABLE_100
95 , a17 out nocopy JTF_VARCHAR2_TABLE_100
96 , a18 out nocopy JTF_VARCHAR2_TABLE_100
97 , a19 out nocopy JTF_NUMBER_TABLE
98 , a20 out nocopy JTF_NUMBER_TABLE
99 , a21 out nocopy JTF_VARCHAR2_TABLE_100
100 , a22 out nocopy JTF_VARCHAR2_TABLE_100
101 , a23 out nocopy JTF_VARCHAR2_TABLE_100
102 , a24 out nocopy JTF_VARCHAR2_TABLE_100
103 , a25 out nocopy JTF_VARCHAR2_TABLE_100
104 , a26 out nocopy JTF_VARCHAR2_TABLE_300
105 , a27 out nocopy JTF_DATE_TABLE
106 , a28 out nocopy JTF_DATE_TABLE
107 ) as
108 ddindx binary_integer; indx binary_integer;
109 begin
110 if t is null or t.count = 0 then
111 a0 := JTF_NUMBER_TABLE();
112 a1 := JTF_NUMBER_TABLE();
113 a2 := JTF_NUMBER_TABLE();
114 a3 := JTF_NUMBER_TABLE();
115 a4 := JTF_NUMBER_TABLE();
116 a5 := JTF_NUMBER_TABLE();
117 a6 := JTF_VARCHAR2_TABLE_300();
118 a7 := JTF_NUMBER_TABLE();
119 a8 := JTF_VARCHAR2_TABLE_100();
120 a9 := JTF_VARCHAR2_TABLE_300();
121 a10 := JTF_NUMBER_TABLE();
122 a11 := JTF_VARCHAR2_TABLE_100();
123 a12 := JTF_NUMBER_TABLE();
124 a13 := JTF_VARCHAR2_TABLE_100();
125 a14 := JTF_NUMBER_TABLE();
126 a15 := JTF_NUMBER_TABLE();
127 a16 := JTF_VARCHAR2_TABLE_100();
128 a17 := JTF_VARCHAR2_TABLE_100();
129 a18 := JTF_VARCHAR2_TABLE_100();
130 a19 := JTF_NUMBER_TABLE();
131 a20 := JTF_NUMBER_TABLE();
132 a21 := JTF_VARCHAR2_TABLE_100();
133 a22 := JTF_VARCHAR2_TABLE_100();
134 a23 := JTF_VARCHAR2_TABLE_100();
135 a24 := JTF_VARCHAR2_TABLE_100();
136 a25 := JTF_VARCHAR2_TABLE_100();
137 a26 := JTF_VARCHAR2_TABLE_300();
138 a27 := JTF_DATE_TABLE();
139 a28 := JTF_DATE_TABLE();
140 else
141 a0 := JTF_NUMBER_TABLE();
142 a1 := JTF_NUMBER_TABLE();
143 a2 := JTF_NUMBER_TABLE();
144 a3 := JTF_NUMBER_TABLE();
145 a4 := JTF_NUMBER_TABLE();
146 a5 := JTF_NUMBER_TABLE();
147 a6 := JTF_VARCHAR2_TABLE_300();
148 a7 := JTF_NUMBER_TABLE();
149 a8 := JTF_VARCHAR2_TABLE_100();
150 a9 := JTF_VARCHAR2_TABLE_300();
151 a10 := JTF_NUMBER_TABLE();
152 a11 := JTF_VARCHAR2_TABLE_100();
153 a12 := JTF_NUMBER_TABLE();
154 a13 := JTF_VARCHAR2_TABLE_100();
155 a14 := JTF_NUMBER_TABLE();
156 a15 := JTF_NUMBER_TABLE();
157 a16 := JTF_VARCHAR2_TABLE_100();
158 a17 := JTF_VARCHAR2_TABLE_100();
159 a18 := JTF_VARCHAR2_TABLE_100();
160 a19 := JTF_NUMBER_TABLE();
161 a20 := JTF_NUMBER_TABLE();
162 a21 := JTF_VARCHAR2_TABLE_100();
163 a22 := JTF_VARCHAR2_TABLE_100();
164 a23 := JTF_VARCHAR2_TABLE_100();
165 a24 := JTF_VARCHAR2_TABLE_100();
166 a25 := JTF_VARCHAR2_TABLE_100();
167 a26 := JTF_VARCHAR2_TABLE_300();
168 a27 := JTF_DATE_TABLE();
169 a28 := JTF_DATE_TABLE();
170 if t.count > 0 then
171 a0.extend(t.count);
172 a1.extend(t.count);
173 a2.extend(t.count);
174 a3.extend(t.count);
175 a4.extend(t.count);
176 a5.extend(t.count);
177 a6.extend(t.count);
178 a7.extend(t.count);
179 a8.extend(t.count);
180 a9.extend(t.count);
181 a10.extend(t.count);
182 a11.extend(t.count);
183 a12.extend(t.count);
184 a13.extend(t.count);
185 a14.extend(t.count);
186 a15.extend(t.count);
187 a16.extend(t.count);
188 a17.extend(t.count);
189 a18.extend(t.count);
190 a19.extend(t.count);
191 a20.extend(t.count);
192 a21.extend(t.count);
193 a22.extend(t.count);
194 a23.extend(t.count);
195 a24.extend(t.count);
196 a25.extend(t.count);
197 a26.extend(t.count);
198 a27.extend(t.count);
199 a28.extend(t.count);
200 ddindx := t.first;
201 indx := 1;
202 while true loop
203 a0(indx) := t(ddindx).workorder_id;
204 a1(indx) := t(ddindx).workorder_operation_id;
205 a2(indx) := t(ddindx).operation_resource_id;
206 a3(indx) := t(ddindx).organization_id;
207 a4(indx) := t(ddindx).operation_sequence_num;
208 a5(indx) := t(ddindx).resource_sequence_num;
209 a6(indx) := t(ddindx).resource_name;
210 a7(indx) := t(ddindx).resource_id;
211 a8(indx) := t(ddindx).employee_num;
212 a9(indx) := t(ddindx).employee_name;
213 a10(indx) := t(ddindx).person_id;
214 a11(indx) := t(ddindx).department_code;
215 a12(indx) := t(ddindx).department_id;
216 a13(indx) := t(ddindx).serial_number;
217 a14(indx) := t(ddindx).instance_id;
218 a15(indx) := t(ddindx).qty;
219 a16(indx) := t(ddindx).uom_code;
220 a17(indx) := t(ddindx).uom_meaning;
221 a18(indx) := t(ddindx).activity_meaning;
222 a19(indx) := t(ddindx).activity_id;
223 a20(indx) := t(ddindx).reason_id;
224 a21(indx) := t(ddindx).reason;
225 a22(indx) := t(ddindx).reference;
226 a23(indx) := t(ddindx).dml_operation;
227 a24(indx) := t(ddindx).resource_type_code;
228 a25(indx) := t(ddindx).resource_type_name;
229 a26(indx) := t(ddindx).department_name;
230 a27(indx) := t(ddindx).transaction_date;
231 a28(indx) := t(ddindx).end_date;
232 indx := indx+1;
233 if t.last =ddindx
234 then exit;
235 end if;
236 ddindx := t.next(ddindx);
237 end loop;
238 end if;
239 end if;
240 end rosetta_table_copy_out_p1;
241
242 procedure rosetta_table_copy_in_p3(t out nocopy ahl_prd_resource_tranx_pvt.prd_myworkorder_txns_tbl, a0 JTF_NUMBER_TABLE
243 , a1 JTF_NUMBER_TABLE
244 , a2 JTF_NUMBER_TABLE
245 , a3 JTF_NUMBER_TABLE
246 , a4 JTF_NUMBER_TABLE
247 , a5 JTF_NUMBER_TABLE
248 , a6 JTF_NUMBER_TABLE
249 , a7 JTF_NUMBER_TABLE
250 , a8 JTF_VARCHAR2_TABLE_100
251 , a9 JTF_NUMBER_TABLE
252 , a10 JTF_NUMBER_TABLE
253 , a11 JTF_VARCHAR2_TABLE_100
254 ) as
255 ddindx binary_integer; indx binary_integer;
256 begin
257 if a0 is not null and a0.count > 0 then
258 if a0.count > 0 then
259 indx := a0.first;
260 ddindx := 1;
261 while true loop
262 t(ddindx).workorder_id := a0(indx);
263 t(ddindx).workorder_operation_id := a1(indx);
264 t(ddindx).assignment_id := a2(indx);
265 t(ddindx).resource_sequence := a3(indx);
266 t(ddindx).operation_sequence := a4(indx);
267 t(ddindx).employee_id := a5(indx);
268 t(ddindx).total_transacted_hours := a6(indx);
269 t(ddindx).transacted_hours := a7(indx);
270 t(ddindx).dml_operation := a8(indx);
271 t(ddindx).object_version_number := a9(indx);
272 t(ddindx).op_object_version_number := a10(indx);
273 t(ddindx).operation_complete := a11(indx);
274 ddindx := ddindx+1;
275 if a0.last =indx
276 then exit;
277 end if;
278 indx := a0.next(indx);
279 end loop;
280 end if;
281 end if;
282 end rosetta_table_copy_in_p3;
283 procedure rosetta_table_copy_out_p3(t ahl_prd_resource_tranx_pvt.prd_myworkorder_txns_tbl, a0 out nocopy JTF_NUMBER_TABLE
284 , a1 out nocopy JTF_NUMBER_TABLE
285 , a2 out nocopy JTF_NUMBER_TABLE
286 , a3 out nocopy JTF_NUMBER_TABLE
287 , a4 out nocopy JTF_NUMBER_TABLE
288 , a5 out nocopy JTF_NUMBER_TABLE
289 , a6 out nocopy JTF_NUMBER_TABLE
290 , a7 out nocopy JTF_NUMBER_TABLE
291 , a8 out nocopy JTF_VARCHAR2_TABLE_100
292 , a9 out nocopy JTF_NUMBER_TABLE
293 , a10 out nocopy JTF_NUMBER_TABLE
294 , a11 out nocopy JTF_VARCHAR2_TABLE_100
295 ) as
296 ddindx binary_integer; indx binary_integer;
297 begin
298 if t is null or t.count = 0 then
299 a0 := JTF_NUMBER_TABLE();
300 a1 := JTF_NUMBER_TABLE();
301 a2 := JTF_NUMBER_TABLE();
302 a3 := JTF_NUMBER_TABLE();
303 a4 := JTF_NUMBER_TABLE();
304 a5 := JTF_NUMBER_TABLE();
305 a6 := JTF_NUMBER_TABLE();
306 a7 := JTF_NUMBER_TABLE();
307 a8 := JTF_VARCHAR2_TABLE_100();
308 a9 := JTF_NUMBER_TABLE();
309 a10 := JTF_NUMBER_TABLE();
310 a11 := JTF_VARCHAR2_TABLE_100();
311 else
312 a0 := JTF_NUMBER_TABLE();
313 a1 := JTF_NUMBER_TABLE();
314 a2 := JTF_NUMBER_TABLE();
315 a3 := JTF_NUMBER_TABLE();
316 a4 := JTF_NUMBER_TABLE();
317 a5 := JTF_NUMBER_TABLE();
318 a6 := JTF_NUMBER_TABLE();
319 a7 := JTF_NUMBER_TABLE();
320 a8 := JTF_VARCHAR2_TABLE_100();
321 a9 := JTF_NUMBER_TABLE();
322 a10 := JTF_NUMBER_TABLE();
323 a11 := JTF_VARCHAR2_TABLE_100();
324 if t.count > 0 then
325 a0.extend(t.count);
326 a1.extend(t.count);
327 a2.extend(t.count);
328 a3.extend(t.count);
329 a4.extend(t.count);
330 a5.extend(t.count);
331 a6.extend(t.count);
332 a7.extend(t.count);
333 a8.extend(t.count);
334 a9.extend(t.count);
335 a10.extend(t.count);
336 a11.extend(t.count);
337 ddindx := t.first;
338 indx := 1;
339 while true loop
340 a0(indx) := t(ddindx).workorder_id;
341 a1(indx) := t(ddindx).workorder_operation_id;
342 a2(indx) := t(ddindx).assignment_id;
343 a3(indx) := t(ddindx).resource_sequence;
344 a4(indx) := t(ddindx).operation_sequence;
345 a5(indx) := t(ddindx).employee_id;
346 a6(indx) := t(ddindx).total_transacted_hours;
347 a7(indx) := t(ddindx).transacted_hours;
348 a8(indx) := t(ddindx).dml_operation;
349 a9(indx) := t(ddindx).object_version_number;
350 a10(indx) := t(ddindx).op_object_version_number;
351 a11(indx) := t(ddindx).operation_complete;
352 indx := indx+1;
353 if t.last =ddindx
354 then exit;
355 end if;
356 ddindx := t.next(ddindx);
357 end loop;
358 end if;
359 end if;
360 end rosetta_table_copy_out_p3;
361
362 procedure process_resource_txns(p_api_version NUMBER
363 , p_init_msg_list VARCHAR2
364 , p_commit VARCHAR2
365 , p_validation_level NUMBER
366 , p_default VARCHAR2
367 , p_module_type VARCHAR2
368 , x_return_status out nocopy VARCHAR2
369 , x_msg_count out nocopy NUMBER
370 , x_msg_data out nocopy VARCHAR2
371 , p9_a0 in out nocopy JTF_NUMBER_TABLE
372 , p9_a1 in out nocopy JTF_NUMBER_TABLE
373 , p9_a2 in out nocopy JTF_NUMBER_TABLE
374 , p9_a3 in out nocopy JTF_NUMBER_TABLE
375 , p9_a4 in out nocopy JTF_NUMBER_TABLE
376 , p9_a5 in out nocopy JTF_NUMBER_TABLE
377 , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_300
378 , p9_a7 in out nocopy JTF_NUMBER_TABLE
379 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_100
380 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_300
381 , p9_a10 in out nocopy JTF_NUMBER_TABLE
382 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
383 , p9_a12 in out nocopy JTF_NUMBER_TABLE
384 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_100
385 , p9_a14 in out nocopy JTF_NUMBER_TABLE
386 , p9_a15 in out nocopy JTF_NUMBER_TABLE
387 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_100
388 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_100
389 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_100
390 , p9_a19 in out nocopy JTF_NUMBER_TABLE
391 , p9_a20 in out nocopy JTF_NUMBER_TABLE
392 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_100
393 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_100
394 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_100
395 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_100
396 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_100
397 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_300
398 , p9_a27 in out nocopy JTF_DATE_TABLE
399 , p9_a28 in out nocopy JTF_DATE_TABLE
400 )
401
402 as
403 ddp_x_prd_resrc_txn_tbl ahl_prd_resource_tranx_pvt.prd_resource_txns_tbl;
404 ddindx binary_integer; indx binary_integer;
405 begin
406
407 -- copy data to the local IN or IN-OUT args, if any
408
409
410
411
412
413
414
415
416
417 ahl_prd_resource_tranx_pvt_w.rosetta_table_copy_in_p1(ddp_x_prd_resrc_txn_tbl, p9_a0
418 , p9_a1
419 , p9_a2
420 , p9_a3
421 , p9_a4
422 , p9_a5
423 , p9_a6
424 , p9_a7
425 , p9_a8
426 , p9_a9
427 , p9_a10
428 , p9_a11
429 , p9_a12
430 , p9_a13
431 , p9_a14
432 , p9_a15
433 , p9_a16
434 , p9_a17
435 , p9_a18
436 , p9_a19
437 , p9_a20
438 , p9_a21
439 , p9_a22
440 , p9_a23
441 , p9_a24
442 , p9_a25
443 , p9_a26
444 , p9_a27
445 , p9_a28
446 );
447
448 -- here's the delegated call to the old PL/SQL routine
449 ahl_prd_resource_tranx_pvt.process_resource_txns(p_api_version,
450 p_init_msg_list,
451 p_commit,
452 p_validation_level,
453 p_default,
454 p_module_type,
455 x_return_status,
456 x_msg_count,
457 x_msg_data,
458 ddp_x_prd_resrc_txn_tbl);
459
460 -- copy data back from the local variables to OUT or IN-OUT args, if any
461
462
463
464
465
466
467
468
469
470 ahl_prd_resource_tranx_pvt_w.rosetta_table_copy_out_p1(ddp_x_prd_resrc_txn_tbl, p9_a0
471 , p9_a1
472 , p9_a2
473 , p9_a3
474 , p9_a4
475 , p9_a5
476 , p9_a6
477 , p9_a7
478 , p9_a8
479 , p9_a9
480 , p9_a10
481 , p9_a11
482 , p9_a12
483 , p9_a13
484 , p9_a14
485 , p9_a15
486 , p9_a16
487 , p9_a17
488 , p9_a18
489 , p9_a19
490 , p9_a20
491 , p9_a21
492 , p9_a22
493 , p9_a23
494 , p9_a24
495 , p9_a25
496 , p9_a26
497 , p9_a27
498 , p9_a28
499 );
500 end;
501
502 procedure process_myworkorder_txns(p_api_version NUMBER
503 , p_init_msg_list VARCHAR2
504 , p_commit VARCHAR2
505 , p_validation_level NUMBER
506 , p_default VARCHAR2
507 , p_module_type VARCHAR2
508 , x_return_status out nocopy VARCHAR2
509 , x_msg_count out nocopy NUMBER
510 , x_msg_data out nocopy VARCHAR2
511 , p9_a0 in out nocopy JTF_NUMBER_TABLE
512 , p9_a1 in out nocopy JTF_NUMBER_TABLE
513 , p9_a2 in out nocopy JTF_NUMBER_TABLE
514 , p9_a3 in out nocopy JTF_NUMBER_TABLE
515 , p9_a4 in out nocopy JTF_NUMBER_TABLE
516 , p9_a5 in out nocopy JTF_NUMBER_TABLE
517 , p9_a6 in out nocopy JTF_NUMBER_TABLE
518 , p9_a7 in out nocopy JTF_NUMBER_TABLE
519 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_100
520 , p9_a9 in out nocopy JTF_NUMBER_TABLE
521 , p9_a10 in out nocopy JTF_NUMBER_TABLE
522 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
523 )
524
525 as
526 ddp_x_prd_myworkorder_txn_tbl ahl_prd_resource_tranx_pvt.prd_myworkorder_txns_tbl;
527 ddindx binary_integer; indx binary_integer;
528 begin
529
530 -- copy data to the local IN or IN-OUT args, if any
531
532
533
534
535
536
537
538
539
540 ahl_prd_resource_tranx_pvt_w.rosetta_table_copy_in_p3(ddp_x_prd_myworkorder_txn_tbl, p9_a0
541 , p9_a1
542 , p9_a2
543 , p9_a3
544 , p9_a4
545 , p9_a5
546 , p9_a6
547 , p9_a7
548 , p9_a8
549 , p9_a9
550 , p9_a10
551 , p9_a11
552 );
553
554 -- here's the delegated call to the old PL/SQL routine
555 ahl_prd_resource_tranx_pvt.process_myworkorder_txns(p_api_version,
556 p_init_msg_list,
557 p_commit,
558 p_validation_level,
559 p_default,
560 p_module_type,
561 x_return_status,
562 x_msg_count,
563 x_msg_data,
564 ddp_x_prd_myworkorder_txn_tbl);
565
566 -- copy data back from the local variables to OUT or IN-OUT args, if any
567
568
569
570
571
572
573
574
575
576 ahl_prd_resource_tranx_pvt_w.rosetta_table_copy_out_p3(ddp_x_prd_myworkorder_txn_tbl, p9_a0
577 , p9_a1
578 , p9_a2
579 , p9_a3
580 , p9_a4
581 , p9_a5
582 , p9_a6
583 , p9_a7
584 , p9_a8
585 , p9_a9
586 , p9_a10
587 , p9_a11
588 );
589 end;
590
591 procedure get_resource_txn_defaults(p_api_version NUMBER
592 , p_init_msg_list VARCHAR2
593 , p_module_type VARCHAR2
594 , x_return_status out nocopy VARCHAR2
595 , x_msg_count out nocopy NUMBER
596 , x_msg_data out nocopy VARCHAR2
597 , p_employee_id NUMBER
598 , p_workorder_id NUMBER
599 , p_operation_seq_num NUMBER
600 , p_function_name VARCHAR2
601 , p10_a0 out nocopy JTF_NUMBER_TABLE
602 , p10_a1 out nocopy JTF_NUMBER_TABLE
603 , p10_a2 out nocopy JTF_NUMBER_TABLE
604 , p10_a3 out nocopy JTF_NUMBER_TABLE
605 , p10_a4 out nocopy JTF_NUMBER_TABLE
606 , p10_a5 out nocopy JTF_NUMBER_TABLE
607 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_300
608 , p10_a7 out nocopy JTF_NUMBER_TABLE
609 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_100
610 , p10_a9 out nocopy JTF_VARCHAR2_TABLE_300
611 , p10_a10 out nocopy JTF_NUMBER_TABLE
612 , p10_a11 out nocopy JTF_VARCHAR2_TABLE_100
613 , p10_a12 out nocopy JTF_NUMBER_TABLE
614 , p10_a13 out nocopy JTF_VARCHAR2_TABLE_100
615 , p10_a14 out nocopy JTF_NUMBER_TABLE
616 , p10_a15 out nocopy JTF_NUMBER_TABLE
617 , p10_a16 out nocopy JTF_VARCHAR2_TABLE_100
618 , p10_a17 out nocopy JTF_VARCHAR2_TABLE_100
619 , p10_a18 out nocopy JTF_VARCHAR2_TABLE_100
620 , p10_a19 out nocopy JTF_NUMBER_TABLE
621 , p10_a20 out nocopy JTF_NUMBER_TABLE
622 , p10_a21 out nocopy JTF_VARCHAR2_TABLE_100
623 , p10_a22 out nocopy JTF_VARCHAR2_TABLE_100
624 , p10_a23 out nocopy JTF_VARCHAR2_TABLE_100
625 , p10_a24 out nocopy JTF_VARCHAR2_TABLE_100
626 , p10_a25 out nocopy JTF_VARCHAR2_TABLE_100
627 , p10_a26 out nocopy JTF_VARCHAR2_TABLE_300
628 , p10_a27 out nocopy JTF_DATE_TABLE
629 , p10_a28 out nocopy JTF_DATE_TABLE
630 )
631
632 as
633 ddx_resource_txn_tbl ahl_prd_resource_tranx_pvt.prd_resource_txns_tbl;
634 ddindx binary_integer; indx binary_integer;
635 begin
636
637 -- copy data to the local IN or IN-OUT args, if any
638
639
640
641
642
643
644
645
646
647
648
649 -- here's the delegated call to the old PL/SQL routine
650 ahl_prd_resource_tranx_pvt.get_resource_txn_defaults(p_api_version,
651 p_init_msg_list,
652 p_module_type,
653 x_return_status,
654 x_msg_count,
655 x_msg_data,
656 p_employee_id,
657 p_workorder_id,
658 p_operation_seq_num,
659 p_function_name,
660 ddx_resource_txn_tbl);
661
662 -- copy data back from the local variables to OUT or IN-OUT args, if any
663
664
665
666
667
668
669
670
671
672
673 ahl_prd_resource_tranx_pvt_w.rosetta_table_copy_out_p1(ddx_resource_txn_tbl, p10_a0
674 , p10_a1
675 , p10_a2
676 , p10_a3
677 , p10_a4
678 , p10_a5
679 , p10_a6
680 , p10_a7
681 , p10_a8
682 , p10_a9
683 , p10_a10
684 , p10_a11
685 , p10_a12
686 , p10_a13
687 , p10_a14
688 , p10_a15
689 , p10_a16
690 , p10_a17
691 , p10_a18
692 , p10_a19
693 , p10_a20
694 , p10_a21
695 , p10_a22
696 , p10_a23
697 , p10_a24
698 , p10_a25
699 , p10_a26
700 , p10_a27
701 , p10_a28
702 );
703 end;
704
705 end ahl_prd_resource_tranx_pvt_w;