[Home] [Help]
PACKAGE BODY: APPS.OZF_TASK_TEMPLATE_PVT_W
Source
1 package body ozf_task_template_pvt_w as
2 /* $Header: ozfwtteb.pls 115.0 2003/06/26 05:12:54 mchang 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 ozf_task_template_pvt.ozf_task_template_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_VARCHAR2_TABLE_100
15 , a2 JTF_VARCHAR2_TABLE_4000
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_VARCHAR2_TABLE_100
21 , a8 JTF_NUMBER_TABLE
22 , a9 JTF_VARCHAR2_TABLE_100
23 , a10 JTF_NUMBER_TABLE
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_NUMBER_TABLE
26 , a13 JTF_VARCHAR2_TABLE_100
27 , a14 JTF_NUMBER_TABLE
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_200
30 , a17 JTF_VARCHAR2_TABLE_200
31 , a18 JTF_VARCHAR2_TABLE_200
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_VARCHAR2_TABLE_200
34 , a21 JTF_VARCHAR2_TABLE_200
35 , a22 JTF_VARCHAR2_TABLE_200
36 , a23 JTF_VARCHAR2_TABLE_200
37 , a24 JTF_VARCHAR2_TABLE_200
38 , a25 JTF_VARCHAR2_TABLE_200
39 , a26 JTF_VARCHAR2_TABLE_200
40 , a27 JTF_VARCHAR2_TABLE_200
41 , a28 JTF_VARCHAR2_TABLE_200
42 , a29 JTF_VARCHAR2_TABLE_200
43 , a30 JTF_VARCHAR2_TABLE_200
44 ) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count=0 then
48 t := ozf_task_template_pvt.ozf_task_template_tbl_type();
49 elsif a0 is not null and a0.count > 0 then
50 if a0.count > 0 then
51 t := ozf_task_template_pvt.ozf_task_template_tbl_type();
52 t.extend(a0.count);
53 indx := a0.first;
54 ddindx := 1;
55 while true loop
56 t(ddindx).task_template_id := a0(indx);
57 t(ddindx).task_name := a1(indx);
58 t(ddindx).description := a2(indx);
59 t(ddindx).reason_code_id := a3(indx);
60 t(ddindx).reason_code := a4(indx);
61 t(ddindx).task_number := a5(indx);
62 t(ddindx).task_type_id := a6(indx);
63 t(ddindx).task_type_name := a7(indx);
64 t(ddindx).task_status_id := a8(indx);
65 t(ddindx).task_status_name := a9(indx);
66 t(ddindx).task_priority_id := a10(indx);
67 t(ddindx).task_priority_name := a11(indx);
68 t(ddindx).duration := a12(indx);
69 t(ddindx).duration_uom := a13(indx);
70 t(ddindx).object_version_number := a14(indx);
71 t(ddindx).attribute_category := a15(indx);
72 t(ddindx).attribute1 := a16(indx);
73 t(ddindx).attribute2 := a17(indx);
74 t(ddindx).attribute3 := a18(indx);
75 t(ddindx).attribute4 := a19(indx);
76 t(ddindx).attribute5 := a20(indx);
77 t(ddindx).attribute6 := a21(indx);
78 t(ddindx).attribute7 := a22(indx);
79 t(ddindx).attribute8 := a23(indx);
80 t(ddindx).attribute9 := a24(indx);
81 t(ddindx).attribute10 := a25(indx);
82 t(ddindx).attribute11 := a26(indx);
83 t(ddindx).attribute12 := a27(indx);
84 t(ddindx).attribute13 := a28(indx);
85 t(ddindx).attribute14 := a29(indx);
86 t(ddindx).attribute15 := a30(indx);
87 ddindx := ddindx+1;
88 if a0.last =indx
89 then exit;
90 end if;
91 indx := a0.next(indx);
92 end loop;
93 end if;
94 end if;
95 end rosetta_table_copy_in_p1;
96 procedure rosetta_table_copy_out_p1(t ozf_task_template_pvt.ozf_task_template_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
97 , a1 out nocopy JTF_VARCHAR2_TABLE_100
98 , a2 out nocopy JTF_VARCHAR2_TABLE_4000
99 , a3 out nocopy JTF_NUMBER_TABLE
100 , a4 out nocopy JTF_VARCHAR2_TABLE_100
101 , a5 out nocopy JTF_VARCHAR2_TABLE_100
102 , a6 out nocopy JTF_NUMBER_TABLE
103 , a7 out nocopy JTF_VARCHAR2_TABLE_100
104 , a8 out nocopy JTF_NUMBER_TABLE
105 , a9 out nocopy JTF_VARCHAR2_TABLE_100
106 , a10 out nocopy JTF_NUMBER_TABLE
107 , a11 out nocopy JTF_VARCHAR2_TABLE_100
108 , a12 out nocopy JTF_NUMBER_TABLE
109 , a13 out nocopy JTF_VARCHAR2_TABLE_100
110 , a14 out nocopy JTF_NUMBER_TABLE
111 , a15 out nocopy JTF_VARCHAR2_TABLE_100
112 , a16 out nocopy JTF_VARCHAR2_TABLE_200
113 , a17 out nocopy JTF_VARCHAR2_TABLE_200
114 , a18 out nocopy JTF_VARCHAR2_TABLE_200
115 , a19 out nocopy JTF_VARCHAR2_TABLE_200
116 , a20 out nocopy JTF_VARCHAR2_TABLE_200
117 , a21 out nocopy JTF_VARCHAR2_TABLE_200
118 , a22 out nocopy JTF_VARCHAR2_TABLE_200
119 , a23 out nocopy JTF_VARCHAR2_TABLE_200
120 , a24 out nocopy JTF_VARCHAR2_TABLE_200
121 , a25 out nocopy JTF_VARCHAR2_TABLE_200
122 , a26 out nocopy JTF_VARCHAR2_TABLE_200
123 , a27 out nocopy JTF_VARCHAR2_TABLE_200
124 , a28 out nocopy JTF_VARCHAR2_TABLE_200
125 , a29 out nocopy JTF_VARCHAR2_TABLE_200
126 , a30 out nocopy JTF_VARCHAR2_TABLE_200
127 ) as
128 ddindx binary_integer; indx binary_integer;
129 begin
130 if t is null then
131 a0 := null;
132 a1 := null;
133 a2 := null;
134 a3 := null;
135 a4 := null;
136 a5 := null;
137 a6 := null;
138 a7 := null;
139 a8 := null;
140 a9 := null;
141 a10 := null;
142 a11 := null;
143 a12 := null;
144 a13 := null;
145 a14 := null;
146 a15 := null;
147 a16 := null;
148 a17 := null;
149 a18 := null;
150 a19 := null;
151 a20 := null;
152 a21 := null;
153 a22 := null;
154 a23 := null;
155 a24 := null;
156 a25 := null;
157 a26 := null;
158 a27 := null;
159 a28 := null;
160 a29 := null;
161 a30 := null;
162 elsif t.count = 0 then
163 a0 := JTF_NUMBER_TABLE();
164 a1 := JTF_VARCHAR2_TABLE_100();
165 a2 := JTF_VARCHAR2_TABLE_4000();
166 a3 := JTF_NUMBER_TABLE();
167 a4 := JTF_VARCHAR2_TABLE_100();
168 a5 := JTF_VARCHAR2_TABLE_100();
169 a6 := JTF_NUMBER_TABLE();
170 a7 := JTF_VARCHAR2_TABLE_100();
171 a8 := JTF_NUMBER_TABLE();
172 a9 := JTF_VARCHAR2_TABLE_100();
173 a10 := JTF_NUMBER_TABLE();
174 a11 := JTF_VARCHAR2_TABLE_100();
175 a12 := JTF_NUMBER_TABLE();
176 a13 := JTF_VARCHAR2_TABLE_100();
177 a14 := JTF_NUMBER_TABLE();
178 a15 := JTF_VARCHAR2_TABLE_100();
179 a16 := JTF_VARCHAR2_TABLE_200();
180 a17 := JTF_VARCHAR2_TABLE_200();
181 a18 := JTF_VARCHAR2_TABLE_200();
182 a19 := JTF_VARCHAR2_TABLE_200();
183 a20 := JTF_VARCHAR2_TABLE_200();
184 a21 := JTF_VARCHAR2_TABLE_200();
185 a22 := JTF_VARCHAR2_TABLE_200();
186 a23 := JTF_VARCHAR2_TABLE_200();
187 a24 := JTF_VARCHAR2_TABLE_200();
188 a25 := JTF_VARCHAR2_TABLE_200();
189 a26 := JTF_VARCHAR2_TABLE_200();
190 a27 := JTF_VARCHAR2_TABLE_200();
191 a28 := JTF_VARCHAR2_TABLE_200();
192 a29 := JTF_VARCHAR2_TABLE_200();
193 a30 := JTF_VARCHAR2_TABLE_200();
194 else
195 a0 := JTF_NUMBER_TABLE();
196 a1 := JTF_VARCHAR2_TABLE_100();
197 a2 := JTF_VARCHAR2_TABLE_4000();
198 a3 := JTF_NUMBER_TABLE();
199 a4 := JTF_VARCHAR2_TABLE_100();
200 a5 := JTF_VARCHAR2_TABLE_100();
201 a6 := JTF_NUMBER_TABLE();
202 a7 := JTF_VARCHAR2_TABLE_100();
203 a8 := JTF_NUMBER_TABLE();
204 a9 := JTF_VARCHAR2_TABLE_100();
205 a10 := JTF_NUMBER_TABLE();
206 a11 := JTF_VARCHAR2_TABLE_100();
207 a12 := JTF_NUMBER_TABLE();
208 a13 := JTF_VARCHAR2_TABLE_100();
209 a14 := JTF_NUMBER_TABLE();
210 a15 := JTF_VARCHAR2_TABLE_100();
211 a16 := JTF_VARCHAR2_TABLE_200();
212 a17 := JTF_VARCHAR2_TABLE_200();
213 a18 := JTF_VARCHAR2_TABLE_200();
214 a19 := JTF_VARCHAR2_TABLE_200();
215 a20 := JTF_VARCHAR2_TABLE_200();
216 a21 := JTF_VARCHAR2_TABLE_200();
217 a22 := JTF_VARCHAR2_TABLE_200();
218 a23 := JTF_VARCHAR2_TABLE_200();
219 a24 := JTF_VARCHAR2_TABLE_200();
220 a25 := JTF_VARCHAR2_TABLE_200();
221 a26 := JTF_VARCHAR2_TABLE_200();
222 a27 := JTF_VARCHAR2_TABLE_200();
223 a28 := JTF_VARCHAR2_TABLE_200();
224 a29 := JTF_VARCHAR2_TABLE_200();
225 a30 := JTF_VARCHAR2_TABLE_200();
226 if t.count > 0 then
227 a0.extend(t.count);
228 a1.extend(t.count);
229 a2.extend(t.count);
230 a3.extend(t.count);
231 a4.extend(t.count);
232 a5.extend(t.count);
233 a6.extend(t.count);
234 a7.extend(t.count);
235 a8.extend(t.count);
236 a9.extend(t.count);
237 a10.extend(t.count);
238 a11.extend(t.count);
239 a12.extend(t.count);
240 a13.extend(t.count);
241 a14.extend(t.count);
242 a15.extend(t.count);
243 a16.extend(t.count);
244 a17.extend(t.count);
245 a18.extend(t.count);
246 a19.extend(t.count);
247 a20.extend(t.count);
248 a21.extend(t.count);
249 a22.extend(t.count);
250 a23.extend(t.count);
251 a24.extend(t.count);
252 a25.extend(t.count);
253 a26.extend(t.count);
254 a27.extend(t.count);
255 a28.extend(t.count);
256 a29.extend(t.count);
257 a30.extend(t.count);
258 ddindx := t.first;
259 indx := 1;
260 while true loop
261 a0(indx) := t(ddindx).task_template_id;
262 a1(indx) := t(ddindx).task_name;
263 a2(indx) := t(ddindx).description;
264 a3(indx) := t(ddindx).reason_code_id;
265 a4(indx) := t(ddindx).reason_code;
266 a5(indx) := t(ddindx).task_number;
267 a6(indx) := t(ddindx).task_type_id;
268 a7(indx) := t(ddindx).task_type_name;
269 a8(indx) := t(ddindx).task_status_id;
270 a9(indx) := t(ddindx).task_status_name;
271 a10(indx) := t(ddindx).task_priority_id;
272 a11(indx) := t(ddindx).task_priority_name;
273 a12(indx) := t(ddindx).duration;
274 a13(indx) := t(ddindx).duration_uom;
275 a14(indx) := t(ddindx).object_version_number;
276 a15(indx) := t(ddindx).attribute_category;
277 a16(indx) := t(ddindx).attribute1;
278 a17(indx) := t(ddindx).attribute2;
279 a18(indx) := t(ddindx).attribute3;
280 a19(indx) := t(ddindx).attribute4;
281 a20(indx) := t(ddindx).attribute5;
282 a21(indx) := t(ddindx).attribute6;
283 a22(indx) := t(ddindx).attribute7;
284 a23(indx) := t(ddindx).attribute8;
285 a24(indx) := t(ddindx).attribute9;
286 a25(indx) := t(ddindx).attribute10;
287 a26(indx) := t(ddindx).attribute11;
288 a27(indx) := t(ddindx).attribute12;
289 a28(indx) := t(ddindx).attribute13;
290 a29(indx) := t(ddindx).attribute14;
291 a30(indx) := t(ddindx).attribute15;
292 indx := indx+1;
293 if t.last =ddindx
294 then exit;
295 end if;
296 ddindx := t.next(ddindx);
297 end loop;
298 end if;
299 end if;
300 end rosetta_table_copy_out_p1;
301
302 procedure rosetta_table_copy_in_p2(t out nocopy ozf_task_template_pvt.ozf_number_tbl_type, a0 JTF_NUMBER_TABLE) as
303 ddindx binary_integer; indx binary_integer;
304 begin
305 if a0 is null then
306 t := null;
307 elsif a0.count = 0 then
308 t := ozf_task_template_pvt.ozf_number_tbl_type();
309 else
310 if a0.count > 0 then
311 t := ozf_task_template_pvt.ozf_number_tbl_type();
312 t.extend(a0.count);
313 indx := a0.first;
314 ddindx := 1;
315 while true loop
316 t(ddindx) := a0(indx);
317 ddindx := ddindx+1;
318 if a0.last =indx
319 then exit;
320 end if;
321 indx := a0.next(indx);
322 end loop;
323 end if;
324 end if;
325 end rosetta_table_copy_in_p2;
326 procedure rosetta_table_copy_out_p2(t ozf_task_template_pvt.ozf_number_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
327 ddindx binary_integer; indx binary_integer;
328 begin
329 if t is null then
330 a0 := null;
331 elsif t.count = 0 then
332 a0 := JTF_NUMBER_TABLE();
333 else
334 a0 := JTF_NUMBER_TABLE();
335 if t.count > 0 then
336 a0.extend(t.count);
337 ddindx := t.first;
338 indx := 1;
339 while true loop
340 a0(indx) := t(ddindx);
341 indx := indx+1;
342 if t.last =ddindx
343 then exit;
344 end if;
345 ddindx := t.next(ddindx);
346 end loop;
347 end if;
348 end if;
349 end rosetta_table_copy_out_p2;
350
351 procedure create_tasktemplate(p_api_version NUMBER
352 , p_init_msg_list VARCHAR2
353 , p_commit VARCHAR2
354 , p_validation_level NUMBER
355 , x_return_status out nocopy VARCHAR2
356 , x_msg_data out nocopy VARCHAR2
357 , x_msg_count out nocopy NUMBER
358 , p7_a0 JTF_NUMBER_TABLE
359 , p7_a1 JTF_VARCHAR2_TABLE_100
360 , p7_a2 JTF_VARCHAR2_TABLE_4000
361 , p7_a3 JTF_NUMBER_TABLE
362 , p7_a4 JTF_VARCHAR2_TABLE_100
363 , p7_a5 JTF_VARCHAR2_TABLE_100
364 , p7_a6 JTF_NUMBER_TABLE
365 , p7_a7 JTF_VARCHAR2_TABLE_100
366 , p7_a8 JTF_NUMBER_TABLE
367 , p7_a9 JTF_VARCHAR2_TABLE_100
368 , p7_a10 JTF_NUMBER_TABLE
369 , p7_a11 JTF_VARCHAR2_TABLE_100
370 , p7_a12 JTF_NUMBER_TABLE
371 , p7_a13 JTF_VARCHAR2_TABLE_100
372 , p7_a14 JTF_NUMBER_TABLE
373 , p7_a15 JTF_VARCHAR2_TABLE_100
374 , p7_a16 JTF_VARCHAR2_TABLE_200
375 , p7_a17 JTF_VARCHAR2_TABLE_200
376 , p7_a18 JTF_VARCHAR2_TABLE_200
377 , p7_a19 JTF_VARCHAR2_TABLE_200
378 , p7_a20 JTF_VARCHAR2_TABLE_200
379 , p7_a21 JTF_VARCHAR2_TABLE_200
380 , p7_a22 JTF_VARCHAR2_TABLE_200
381 , p7_a23 JTF_VARCHAR2_TABLE_200
382 , p7_a24 JTF_VARCHAR2_TABLE_200
383 , p7_a25 JTF_VARCHAR2_TABLE_200
384 , p7_a26 JTF_VARCHAR2_TABLE_200
385 , p7_a27 JTF_VARCHAR2_TABLE_200
386 , p7_a28 JTF_VARCHAR2_TABLE_200
387 , p7_a29 JTF_VARCHAR2_TABLE_200
388 , p7_a30 JTF_VARCHAR2_TABLE_200
389 , x_task_template_id out nocopy JTF_NUMBER_TABLE
390 )
391
392 as
393 ddp_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
394 ddx_task_template_id ozf_task_template_pvt.ozf_number_tbl_type;
395 ddindx binary_integer; indx binary_integer;
396 begin
397
398 -- copy data to the local IN or IN-OUT args, if any
399
400
401
402
403
404
405
406 ozf_task_template_pvt_w.rosetta_table_copy_in_p1(ddp_task_template, p7_a0
407 , p7_a1
408 , p7_a2
409 , p7_a3
410 , p7_a4
411 , p7_a5
412 , p7_a6
413 , p7_a7
414 , p7_a8
415 , p7_a9
416 , p7_a10
417 , p7_a11
418 , p7_a12
419 , p7_a13
420 , p7_a14
421 , p7_a15
422 , p7_a16
423 , p7_a17
424 , p7_a18
425 , p7_a19
426 , p7_a20
427 , p7_a21
428 , p7_a22
429 , p7_a23
430 , p7_a24
431 , p7_a25
432 , p7_a26
433 , p7_a27
434 , p7_a28
435 , p7_a29
436 , p7_a30
437 );
438
439
440 -- here's the delegated call to the old PL/SQL routine
441 ozf_task_template_pvt.create_tasktemplate(p_api_version,
442 p_init_msg_list,
443 p_commit,
444 p_validation_level,
445 x_return_status,
446 x_msg_data,
447 x_msg_count,
448 ddp_task_template,
449 ddx_task_template_id);
450
451 -- copy data back from the local variables to OUT or IN-OUT args, if any
452
453
454
455
456
457
458
459
460 ozf_task_template_pvt_w.rosetta_table_copy_out_p2(ddx_task_template_id, x_task_template_id);
461 end;
462
463 procedure update_tasktemplate(p_api_version NUMBER
464 , p_init_msg_list VARCHAR2
465 , p_commit VARCHAR2
466 , p_validation_level NUMBER
467 , x_return_status out nocopy VARCHAR2
468 , x_msg_data out nocopy VARCHAR2
469 , x_msg_count out nocopy NUMBER
470 , p7_a0 JTF_NUMBER_TABLE
471 , p7_a1 JTF_VARCHAR2_TABLE_100
472 , p7_a2 JTF_VARCHAR2_TABLE_4000
473 , p7_a3 JTF_NUMBER_TABLE
474 , p7_a4 JTF_VARCHAR2_TABLE_100
475 , p7_a5 JTF_VARCHAR2_TABLE_100
476 , p7_a6 JTF_NUMBER_TABLE
477 , p7_a7 JTF_VARCHAR2_TABLE_100
478 , p7_a8 JTF_NUMBER_TABLE
479 , p7_a9 JTF_VARCHAR2_TABLE_100
480 , p7_a10 JTF_NUMBER_TABLE
481 , p7_a11 JTF_VARCHAR2_TABLE_100
482 , p7_a12 JTF_NUMBER_TABLE
483 , p7_a13 JTF_VARCHAR2_TABLE_100
484 , p7_a14 JTF_NUMBER_TABLE
485 , p7_a15 JTF_VARCHAR2_TABLE_100
486 , p7_a16 JTF_VARCHAR2_TABLE_200
487 , p7_a17 JTF_VARCHAR2_TABLE_200
488 , p7_a18 JTF_VARCHAR2_TABLE_200
489 , p7_a19 JTF_VARCHAR2_TABLE_200
490 , p7_a20 JTF_VARCHAR2_TABLE_200
491 , p7_a21 JTF_VARCHAR2_TABLE_200
492 , p7_a22 JTF_VARCHAR2_TABLE_200
493 , p7_a23 JTF_VARCHAR2_TABLE_200
494 , p7_a24 JTF_VARCHAR2_TABLE_200
495 , p7_a25 JTF_VARCHAR2_TABLE_200
496 , p7_a26 JTF_VARCHAR2_TABLE_200
497 , p7_a27 JTF_VARCHAR2_TABLE_200
498 , p7_a28 JTF_VARCHAR2_TABLE_200
499 , p7_a29 JTF_VARCHAR2_TABLE_200
500 , p7_a30 JTF_VARCHAR2_TABLE_200
501 , x_object_version_number out nocopy JTF_NUMBER_TABLE
502 )
503
504 as
505 ddp_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
506 ddx_object_version_number ozf_task_template_pvt.ozf_number_tbl_type;
507 ddindx binary_integer; indx binary_integer;
508 begin
509
510 -- copy data to the local IN or IN-OUT args, if any
511
512
513
514
515
516
517
518 ozf_task_template_pvt_w.rosetta_table_copy_in_p1(ddp_task_template, p7_a0
519 , p7_a1
520 , p7_a2
521 , p7_a3
522 , p7_a4
523 , p7_a5
524 , p7_a6
525 , p7_a7
526 , p7_a8
527 , p7_a9
528 , p7_a10
529 , p7_a11
530 , p7_a12
531 , p7_a13
532 , p7_a14
533 , p7_a15
534 , p7_a16
535 , p7_a17
536 , p7_a18
537 , p7_a19
538 , p7_a20
539 , p7_a21
540 , p7_a22
541 , p7_a23
542 , p7_a24
543 , p7_a25
544 , p7_a26
545 , p7_a27
546 , p7_a28
547 , p7_a29
548 , p7_a30
549 );
550
551
552 -- here's the delegated call to the old PL/SQL routine
553 ozf_task_template_pvt.update_tasktemplate(p_api_version,
554 p_init_msg_list,
555 p_commit,
556 p_validation_level,
557 x_return_status,
558 x_msg_data,
559 x_msg_count,
560 ddp_task_template,
561 ddx_object_version_number);
562
563 -- copy data back from the local variables to OUT or IN-OUT args, if any
564
565
566
567
568
569
570
571
572 ozf_task_template_pvt_w.rosetta_table_copy_out_p2(ddx_object_version_number, x_object_version_number);
573 end;
574
575 procedure delete_tasktemplate(p_api_version NUMBER
576 , p_init_msg_list VARCHAR2
577 , p_commit VARCHAR2
578 , p_validation_level NUMBER
579 , x_return_status out nocopy VARCHAR2
580 , x_msg_data out nocopy VARCHAR2
581 , x_msg_count out nocopy NUMBER
582 , p_task_template_id JTF_NUMBER_TABLE
583 , p_object_version_number JTF_NUMBER_TABLE
584 )
585
586 as
587 ddp_task_template_id ozf_task_template_pvt.ozf_number_tbl_type;
588 ddp_object_version_number ozf_task_template_pvt.ozf_number_tbl_type;
589 ddindx binary_integer; indx binary_integer;
590 begin
591
592 -- copy data to the local IN or IN-OUT args, if any
593
594
595
596
597
598
599
600 ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_task_template_id, p_task_template_id);
601
602 ozf_task_template_pvt_w.rosetta_table_copy_in_p2(ddp_object_version_number, p_object_version_number);
603
604 -- here's the delegated call to the old PL/SQL routine
605 ozf_task_template_pvt.delete_tasktemplate(p_api_version,
606 p_init_msg_list,
607 p_commit,
608 p_validation_level,
609 x_return_status,
610 x_msg_data,
611 x_msg_count,
612 ddp_task_template_id,
613 ddp_object_version_number);
614
615 -- copy data back from the local variables to OUT or IN-OUT args, if any
616
617
618
619
620
621
622
623
624 end;
625
626 procedure get_tasktemplate(p_api_version NUMBER
627 , p_init_msg_list VARCHAR2
628 , p_commit VARCHAR2
629 , p_validation_level NUMBER
630 , x_return_status out nocopy VARCHAR2
631 , x_msg_data out nocopy VARCHAR2
632 , x_msg_count out nocopy NUMBER
633 , p_reason_code_id NUMBER
634 , p8_a0 out nocopy JTF_NUMBER_TABLE
635 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
636 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_4000
637 , p8_a3 out nocopy JTF_NUMBER_TABLE
638 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
639 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
640 , p8_a6 out nocopy JTF_NUMBER_TABLE
641 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
642 , p8_a8 out nocopy JTF_NUMBER_TABLE
643 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
644 , p8_a10 out nocopy JTF_NUMBER_TABLE
645 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
646 , p8_a12 out nocopy JTF_NUMBER_TABLE
647 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_100
648 , p8_a14 out nocopy JTF_NUMBER_TABLE
649 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
650 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_200
651 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_200
652 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_200
653 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_200
654 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_200
655 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_200
656 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_200
657 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_200
658 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_200
659 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_200
660 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_200
661 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_200
662 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_200
663 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_200
664 , p8_a30 out nocopy JTF_VARCHAR2_TABLE_200
665 )
666
667 as
668 ddx_task_template ozf_task_template_pvt.ozf_task_template_tbl_type;
669 ddindx binary_integer; indx binary_integer;
670 begin
671
672 -- copy data to the local IN or IN-OUT args, if any
673
674
675
676
677
678
679
680
681
682 -- here's the delegated call to the old PL/SQL routine
683 ozf_task_template_pvt.get_tasktemplate(p_api_version,
684 p_init_msg_list,
685 p_commit,
686 p_validation_level,
687 x_return_status,
688 x_msg_data,
689 x_msg_count,
690 p_reason_code_id,
691 ddx_task_template);
692
693 -- copy data back from the local variables to OUT or IN-OUT args, if any
694
695
696
697
698
699
700
701
702 ozf_task_template_pvt_w.rosetta_table_copy_out_p1(ddx_task_template, p8_a0
703 , p8_a1
704 , p8_a2
705 , p8_a3
706 , p8_a4
707 , p8_a5
708 , p8_a6
709 , p8_a7
710 , p8_a8
711 , p8_a9
712 , p8_a10
713 , p8_a11
714 , p8_a12
715 , p8_a13
716 , p8_a14
717 , p8_a15
718 , p8_a16
719 , p8_a17
720 , p8_a18
721 , p8_a19
722 , p8_a20
723 , p8_a21
724 , p8_a22
725 , p8_a23
726 , p8_a24
727 , p8_a25
728 , p8_a26
729 , p8_a27
730 , p8_a28
731 , p8_a29
732 , p8_a30
733 );
734 end;
735
736 procedure validate_tasktemplate(p_api_version NUMBER
737 , p_init_msg_list VARCHAR2
738 , p_validation_level NUMBER
739 , x_return_status out nocopy VARCHAR2
740 , x_msg_count out nocopy NUMBER
741 , x_msg_data out nocopy VARCHAR2
742 , p6_a0 NUMBER
743 , p6_a1 VARCHAR2
744 , p6_a2 VARCHAR2
745 , p6_a3 NUMBER
746 , p6_a4 VARCHAR2
747 , p6_a5 VARCHAR2
748 , p6_a6 NUMBER
749 , p6_a7 VARCHAR2
750 , p6_a8 NUMBER
751 , p6_a9 VARCHAR2
752 , p6_a10 NUMBER
753 , p6_a11 VARCHAR2
754 , p6_a12 NUMBER
755 , p6_a13 VARCHAR2
756 , p6_a14 NUMBER
757 , p6_a15 VARCHAR2
758 , p6_a16 VARCHAR2
759 , p6_a17 VARCHAR2
760 , p6_a18 VARCHAR2
761 , p6_a19 VARCHAR2
762 , p6_a20 VARCHAR2
763 , p6_a21 VARCHAR2
764 , p6_a22 VARCHAR2
765 , p6_a23 VARCHAR2
766 , p6_a24 VARCHAR2
767 , p6_a25 VARCHAR2
768 , p6_a26 VARCHAR2
769 , p6_a27 VARCHAR2
770 , p6_a28 VARCHAR2
771 , p6_a29 VARCHAR2
772 , p6_a30 VARCHAR2
773 )
774
775 as
776 ddp_task_template ozf_task_template_pvt.ozf_task_template_rec_type;
777 ddindx binary_integer; indx binary_integer;
778 begin
779
780 -- copy data to the local IN or IN-OUT args, if any
781
782
783
784
785
786
787 ddp_task_template.task_template_id := p6_a0;
788 ddp_task_template.task_name := p6_a1;
789 ddp_task_template.description := p6_a2;
790 ddp_task_template.reason_code_id := p6_a3;
791 ddp_task_template.reason_code := p6_a4;
792 ddp_task_template.task_number := p6_a5;
793 ddp_task_template.task_type_id := p6_a6;
794 ddp_task_template.task_type_name := p6_a7;
795 ddp_task_template.task_status_id := p6_a8;
796 ddp_task_template.task_status_name := p6_a9;
797 ddp_task_template.task_priority_id := p6_a10;
798 ddp_task_template.task_priority_name := p6_a11;
799 ddp_task_template.duration := p6_a12;
800 ddp_task_template.duration_uom := p6_a13;
801 ddp_task_template.object_version_number := p6_a14;
802 ddp_task_template.attribute_category := p6_a15;
803 ddp_task_template.attribute1 := p6_a16;
804 ddp_task_template.attribute2 := p6_a17;
805 ddp_task_template.attribute3 := p6_a18;
806 ddp_task_template.attribute4 := p6_a19;
807 ddp_task_template.attribute5 := p6_a20;
808 ddp_task_template.attribute6 := p6_a21;
809 ddp_task_template.attribute7 := p6_a22;
810 ddp_task_template.attribute8 := p6_a23;
811 ddp_task_template.attribute9 := p6_a24;
812 ddp_task_template.attribute10 := p6_a25;
813 ddp_task_template.attribute11 := p6_a26;
814 ddp_task_template.attribute12 := p6_a27;
815 ddp_task_template.attribute13 := p6_a28;
816 ddp_task_template.attribute14 := p6_a29;
817 ddp_task_template.attribute15 := p6_a30;
818
819 -- here's the delegated call to the old PL/SQL routine
820 ozf_task_template_pvt.validate_tasktemplate(p_api_version,
821 p_init_msg_list,
822 p_validation_level,
823 x_return_status,
824 x_msg_count,
825 x_msg_data,
826 ddp_task_template);
827
828 -- copy data back from the local variables to OUT or IN-OUT args, if any
829
830
831
832
833
834
835 end;
836
837 procedure check_tasktemplate_items(p_validation_mode VARCHAR2
838 , x_return_status out nocopy VARCHAR2
839 , p2_a0 NUMBER
840 , p2_a1 VARCHAR2
841 , p2_a2 VARCHAR2
842 , p2_a3 NUMBER
843 , p2_a4 VARCHAR2
844 , p2_a5 VARCHAR2
845 , p2_a6 NUMBER
846 , p2_a7 VARCHAR2
847 , p2_a8 NUMBER
848 , p2_a9 VARCHAR2
849 , p2_a10 NUMBER
850 , p2_a11 VARCHAR2
851 , p2_a12 NUMBER
852 , p2_a13 VARCHAR2
853 , p2_a14 NUMBER
854 , p2_a15 VARCHAR2
855 , p2_a16 VARCHAR2
856 , p2_a17 VARCHAR2
857 , p2_a18 VARCHAR2
858 , p2_a19 VARCHAR2
859 , p2_a20 VARCHAR2
860 , p2_a21 VARCHAR2
861 , p2_a22 VARCHAR2
862 , p2_a23 VARCHAR2
863 , p2_a24 VARCHAR2
864 , p2_a25 VARCHAR2
865 , p2_a26 VARCHAR2
866 , p2_a27 VARCHAR2
867 , p2_a28 VARCHAR2
868 , p2_a29 VARCHAR2
869 , p2_a30 VARCHAR2
870 )
871
872 as
873 ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
874 ddindx binary_integer; indx binary_integer;
875 begin
876
877 -- copy data to the local IN or IN-OUT args, if any
878
879
880 ddp_task_template_rec.task_template_id := p2_a0;
881 ddp_task_template_rec.task_name := p2_a1;
882 ddp_task_template_rec.description := p2_a2;
883 ddp_task_template_rec.reason_code_id := p2_a3;
884 ddp_task_template_rec.reason_code := p2_a4;
885 ddp_task_template_rec.task_number := p2_a5;
886 ddp_task_template_rec.task_type_id := p2_a6;
887 ddp_task_template_rec.task_type_name := p2_a7;
888 ddp_task_template_rec.task_status_id := p2_a8;
889 ddp_task_template_rec.task_status_name := p2_a9;
890 ddp_task_template_rec.task_priority_id := p2_a10;
891 ddp_task_template_rec.task_priority_name := p2_a11;
892 ddp_task_template_rec.duration := p2_a12;
893 ddp_task_template_rec.duration_uom := p2_a13;
894 ddp_task_template_rec.object_version_number := p2_a14;
895 ddp_task_template_rec.attribute_category := p2_a15;
896 ddp_task_template_rec.attribute1 := p2_a16;
897 ddp_task_template_rec.attribute2 := p2_a17;
898 ddp_task_template_rec.attribute3 := p2_a18;
899 ddp_task_template_rec.attribute4 := p2_a19;
900 ddp_task_template_rec.attribute5 := p2_a20;
901 ddp_task_template_rec.attribute6 := p2_a21;
902 ddp_task_template_rec.attribute7 := p2_a22;
903 ddp_task_template_rec.attribute8 := p2_a23;
904 ddp_task_template_rec.attribute9 := p2_a24;
905 ddp_task_template_rec.attribute10 := p2_a25;
906 ddp_task_template_rec.attribute11 := p2_a26;
907 ddp_task_template_rec.attribute12 := p2_a27;
908 ddp_task_template_rec.attribute13 := p2_a28;
909 ddp_task_template_rec.attribute14 := p2_a29;
910 ddp_task_template_rec.attribute15 := p2_a30;
911
912 -- here's the delegated call to the old PL/SQL routine
913 ozf_task_template_pvt.check_tasktemplate_items(p_validation_mode,
914 x_return_status,
915 ddp_task_template_rec);
916
917 -- copy data back from the local variables to OUT or IN-OUT args, if any
918
919
920 end;
921
922 procedure check_tasktemplate_record(p0_a0 NUMBER
923 , p0_a1 VARCHAR2
924 , p0_a2 VARCHAR2
925 , p0_a3 NUMBER
926 , p0_a4 VARCHAR2
927 , p0_a5 VARCHAR2
928 , p0_a6 NUMBER
929 , p0_a7 VARCHAR2
930 , p0_a8 NUMBER
931 , p0_a9 VARCHAR2
932 , p0_a10 NUMBER
933 , p0_a11 VARCHAR2
934 , p0_a12 NUMBER
935 , p0_a13 VARCHAR2
936 , p0_a14 NUMBER
937 , p0_a15 VARCHAR2
938 , p0_a16 VARCHAR2
939 , p0_a17 VARCHAR2
940 , p0_a18 VARCHAR2
941 , p0_a19 VARCHAR2
942 , p0_a20 VARCHAR2
943 , p0_a21 VARCHAR2
944 , p0_a22 VARCHAR2
945 , p0_a23 VARCHAR2
946 , p0_a24 VARCHAR2
947 , p0_a25 VARCHAR2
948 , p0_a26 VARCHAR2
949 , p0_a27 VARCHAR2
950 , p0_a28 VARCHAR2
951 , p0_a29 VARCHAR2
952 , p0_a30 VARCHAR2
953 , p1_a0 NUMBER
954 , p1_a1 VARCHAR2
955 , p1_a2 VARCHAR2
956 , p1_a3 NUMBER
957 , p1_a4 VARCHAR2
958 , p1_a5 VARCHAR2
959 , p1_a6 NUMBER
960 , p1_a7 VARCHAR2
961 , p1_a8 NUMBER
962 , p1_a9 VARCHAR2
963 , p1_a10 NUMBER
964 , p1_a11 VARCHAR2
965 , p1_a12 NUMBER
966 , p1_a13 VARCHAR2
967 , p1_a14 NUMBER
968 , p1_a15 VARCHAR2
969 , p1_a16 VARCHAR2
970 , p1_a17 VARCHAR2
971 , p1_a18 VARCHAR2
972 , p1_a19 VARCHAR2
973 , p1_a20 VARCHAR2
974 , p1_a21 VARCHAR2
975 , p1_a22 VARCHAR2
976 , p1_a23 VARCHAR2
977 , p1_a24 VARCHAR2
978 , p1_a25 VARCHAR2
979 , p1_a26 VARCHAR2
980 , p1_a27 VARCHAR2
981 , p1_a28 VARCHAR2
982 , p1_a29 VARCHAR2
983 , p1_a30 VARCHAR2
984 , x_return_status out nocopy VARCHAR2
985 )
986
987 as
988 ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
989 ddp_complete_rec ozf_task_template_pvt.ozf_task_template_rec_type;
990 ddindx binary_integer; indx binary_integer;
991 begin
992
993 -- copy data to the local IN or IN-OUT args, if any
994 ddp_task_template_rec.task_template_id := p0_a0;
995 ddp_task_template_rec.task_name := p0_a1;
996 ddp_task_template_rec.description := p0_a2;
997 ddp_task_template_rec.reason_code_id := p0_a3;
998 ddp_task_template_rec.reason_code := p0_a4;
999 ddp_task_template_rec.task_number := p0_a5;
1000 ddp_task_template_rec.task_type_id := p0_a6;
1001 ddp_task_template_rec.task_type_name := p0_a7;
1002 ddp_task_template_rec.task_status_id := p0_a8;
1003 ddp_task_template_rec.task_status_name := p0_a9;
1004 ddp_task_template_rec.task_priority_id := p0_a10;
1005 ddp_task_template_rec.task_priority_name := p0_a11;
1006 ddp_task_template_rec.duration := p0_a12;
1007 ddp_task_template_rec.duration_uom := p0_a13;
1008 ddp_task_template_rec.object_version_number := p0_a14;
1009 ddp_task_template_rec.attribute_category := p0_a15;
1010 ddp_task_template_rec.attribute1 := p0_a16;
1011 ddp_task_template_rec.attribute2 := p0_a17;
1012 ddp_task_template_rec.attribute3 := p0_a18;
1013 ddp_task_template_rec.attribute4 := p0_a19;
1014 ddp_task_template_rec.attribute5 := p0_a20;
1015 ddp_task_template_rec.attribute6 := p0_a21;
1016 ddp_task_template_rec.attribute7 := p0_a22;
1017 ddp_task_template_rec.attribute8 := p0_a23;
1018 ddp_task_template_rec.attribute9 := p0_a24;
1019 ddp_task_template_rec.attribute10 := p0_a25;
1020 ddp_task_template_rec.attribute11 := p0_a26;
1021 ddp_task_template_rec.attribute12 := p0_a27;
1022 ddp_task_template_rec.attribute13 := p0_a28;
1023 ddp_task_template_rec.attribute14 := p0_a29;
1024 ddp_task_template_rec.attribute15 := p0_a30;
1025
1026 ddp_complete_rec.task_template_id := p1_a0;
1027 ddp_complete_rec.task_name := p1_a1;
1028 ddp_complete_rec.description := p1_a2;
1029 ddp_complete_rec.reason_code_id := p1_a3;
1030 ddp_complete_rec.reason_code := p1_a4;
1031 ddp_complete_rec.task_number := p1_a5;
1032 ddp_complete_rec.task_type_id := p1_a6;
1033 ddp_complete_rec.task_type_name := p1_a7;
1034 ddp_complete_rec.task_status_id := p1_a8;
1035 ddp_complete_rec.task_status_name := p1_a9;
1036 ddp_complete_rec.task_priority_id := p1_a10;
1037 ddp_complete_rec.task_priority_name := p1_a11;
1038 ddp_complete_rec.duration := p1_a12;
1039 ddp_complete_rec.duration_uom := p1_a13;
1040 ddp_complete_rec.object_version_number := p1_a14;
1041 ddp_complete_rec.attribute_category := p1_a15;
1042 ddp_complete_rec.attribute1 := p1_a16;
1043 ddp_complete_rec.attribute2 := p1_a17;
1044 ddp_complete_rec.attribute3 := p1_a18;
1045 ddp_complete_rec.attribute4 := p1_a19;
1046 ddp_complete_rec.attribute5 := p1_a20;
1047 ddp_complete_rec.attribute6 := p1_a21;
1048 ddp_complete_rec.attribute7 := p1_a22;
1049 ddp_complete_rec.attribute8 := p1_a23;
1050 ddp_complete_rec.attribute9 := p1_a24;
1051 ddp_complete_rec.attribute10 := p1_a25;
1052 ddp_complete_rec.attribute11 := p1_a26;
1053 ddp_complete_rec.attribute12 := p1_a27;
1054 ddp_complete_rec.attribute13 := p1_a28;
1055 ddp_complete_rec.attribute14 := p1_a29;
1056 ddp_complete_rec.attribute15 := p1_a30;
1057
1058
1059 -- here's the delegated call to the old PL/SQL routine
1060 ozf_task_template_pvt.check_tasktemplate_record(ddp_task_template_rec,
1061 ddp_complete_rec,
1062 x_return_status);
1063
1064 -- copy data back from the local variables to OUT or IN-OUT args, if any
1065
1066
1067 end;
1068
1069 procedure init_reason_rec(p0_a0 out nocopy NUMBER
1070 , p0_a1 out nocopy VARCHAR2
1071 , p0_a2 out nocopy VARCHAR2
1072 , p0_a3 out nocopy NUMBER
1073 , p0_a4 out nocopy VARCHAR2
1074 , p0_a5 out nocopy VARCHAR2
1075 , p0_a6 out nocopy NUMBER
1076 , p0_a7 out nocopy VARCHAR2
1077 , p0_a8 out nocopy NUMBER
1078 , p0_a9 out nocopy VARCHAR2
1079 , p0_a10 out nocopy NUMBER
1080 , p0_a11 out nocopy VARCHAR2
1081 , p0_a12 out nocopy NUMBER
1082 , p0_a13 out nocopy VARCHAR2
1083 , p0_a14 out nocopy NUMBER
1084 , p0_a15 out nocopy VARCHAR2
1085 , p0_a16 out nocopy VARCHAR2
1086 , p0_a17 out nocopy VARCHAR2
1087 , p0_a18 out nocopy VARCHAR2
1088 , p0_a19 out nocopy VARCHAR2
1089 , p0_a20 out nocopy VARCHAR2
1090 , p0_a21 out nocopy VARCHAR2
1091 , p0_a22 out nocopy VARCHAR2
1092 , p0_a23 out nocopy VARCHAR2
1093 , p0_a24 out nocopy VARCHAR2
1094 , p0_a25 out nocopy VARCHAR2
1095 , p0_a26 out nocopy VARCHAR2
1096 , p0_a27 out nocopy VARCHAR2
1097 , p0_a28 out nocopy VARCHAR2
1098 , p0_a29 out nocopy VARCHAR2
1099 , p0_a30 out nocopy VARCHAR2
1100 )
1101
1102 as
1103 ddx_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1104 ddindx binary_integer; indx binary_integer;
1105 begin
1106
1107 -- copy data to the local IN or IN-OUT args, if any
1108
1109 -- here's the delegated call to the old PL/SQL routine
1110 ozf_task_template_pvt.init_reason_rec(ddx_task_template_rec);
1111
1112 -- copy data back from the local variables to OUT or IN-OUT args, if any
1113 p0_a0 := ddx_task_template_rec.task_template_id;
1114 p0_a1 := ddx_task_template_rec.task_name;
1115 p0_a2 := ddx_task_template_rec.description;
1116 p0_a3 := ddx_task_template_rec.reason_code_id;
1117 p0_a4 := ddx_task_template_rec.reason_code;
1118 p0_a5 := ddx_task_template_rec.task_number;
1119 p0_a6 := ddx_task_template_rec.task_type_id;
1120 p0_a7 := ddx_task_template_rec.task_type_name;
1121 p0_a8 := ddx_task_template_rec.task_status_id;
1122 p0_a9 := ddx_task_template_rec.task_status_name;
1123 p0_a10 := ddx_task_template_rec.task_priority_id;
1124 p0_a11 := ddx_task_template_rec.task_priority_name;
1125 p0_a12 := ddx_task_template_rec.duration;
1126 p0_a13 := ddx_task_template_rec.duration_uom;
1127 p0_a14 := ddx_task_template_rec.object_version_number;
1128 p0_a15 := ddx_task_template_rec.attribute_category;
1129 p0_a16 := ddx_task_template_rec.attribute1;
1130 p0_a17 := ddx_task_template_rec.attribute2;
1131 p0_a18 := ddx_task_template_rec.attribute3;
1132 p0_a19 := ddx_task_template_rec.attribute4;
1133 p0_a20 := ddx_task_template_rec.attribute5;
1134 p0_a21 := ddx_task_template_rec.attribute6;
1135 p0_a22 := ddx_task_template_rec.attribute7;
1136 p0_a23 := ddx_task_template_rec.attribute8;
1137 p0_a24 := ddx_task_template_rec.attribute9;
1138 p0_a25 := ddx_task_template_rec.attribute10;
1139 p0_a26 := ddx_task_template_rec.attribute11;
1140 p0_a27 := ddx_task_template_rec.attribute12;
1141 p0_a28 := ddx_task_template_rec.attribute13;
1142 p0_a29 := ddx_task_template_rec.attribute14;
1143 p0_a30 := ddx_task_template_rec.attribute15;
1144 end;
1145
1146 procedure complete_tasktemplate_rec(p0_a0 NUMBER
1147 , p0_a1 VARCHAR2
1148 , p0_a2 VARCHAR2
1149 , p0_a3 NUMBER
1150 , p0_a4 VARCHAR2
1151 , p0_a5 VARCHAR2
1152 , p0_a6 NUMBER
1153 , p0_a7 VARCHAR2
1154 , p0_a8 NUMBER
1155 , p0_a9 VARCHAR2
1156 , p0_a10 NUMBER
1157 , p0_a11 VARCHAR2
1158 , p0_a12 NUMBER
1159 , p0_a13 VARCHAR2
1160 , p0_a14 NUMBER
1161 , p0_a15 VARCHAR2
1162 , p0_a16 VARCHAR2
1163 , p0_a17 VARCHAR2
1164 , p0_a18 VARCHAR2
1165 , p0_a19 VARCHAR2
1166 , p0_a20 VARCHAR2
1167 , p0_a21 VARCHAR2
1168 , p0_a22 VARCHAR2
1169 , p0_a23 VARCHAR2
1170 , p0_a24 VARCHAR2
1171 , p0_a25 VARCHAR2
1172 , p0_a26 VARCHAR2
1173 , p0_a27 VARCHAR2
1174 , p0_a28 VARCHAR2
1175 , p0_a29 VARCHAR2
1176 , p0_a30 VARCHAR2
1177 , p1_a0 out nocopy NUMBER
1178 , p1_a1 out nocopy VARCHAR2
1179 , p1_a2 out nocopy VARCHAR2
1180 , p1_a3 out nocopy NUMBER
1181 , p1_a4 out nocopy VARCHAR2
1182 , p1_a5 out nocopy VARCHAR2
1183 , p1_a6 out nocopy NUMBER
1184 , p1_a7 out nocopy VARCHAR2
1185 , p1_a8 out nocopy NUMBER
1186 , p1_a9 out nocopy VARCHAR2
1187 , p1_a10 out nocopy NUMBER
1188 , p1_a11 out nocopy VARCHAR2
1189 , p1_a12 out nocopy NUMBER
1190 , p1_a13 out nocopy VARCHAR2
1191 , p1_a14 out nocopy NUMBER
1192 , p1_a15 out nocopy VARCHAR2
1193 , p1_a16 out nocopy VARCHAR2
1194 , p1_a17 out nocopy VARCHAR2
1195 , p1_a18 out nocopy VARCHAR2
1196 , p1_a19 out nocopy VARCHAR2
1197 , p1_a20 out nocopy VARCHAR2
1198 , p1_a21 out nocopy VARCHAR2
1199 , p1_a22 out nocopy VARCHAR2
1200 , p1_a23 out nocopy VARCHAR2
1201 , p1_a24 out nocopy VARCHAR2
1202 , p1_a25 out nocopy VARCHAR2
1203 , p1_a26 out nocopy VARCHAR2
1204 , p1_a27 out nocopy VARCHAR2
1205 , p1_a28 out nocopy VARCHAR2
1206 , p1_a29 out nocopy VARCHAR2
1207 , p1_a30 out nocopy VARCHAR2
1208 )
1209
1210 as
1211 ddp_task_template_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1212 ddx_complete_rec ozf_task_template_pvt.ozf_task_template_rec_type;
1213 ddindx binary_integer; indx binary_integer;
1214 begin
1215
1216 -- copy data to the local IN or IN-OUT args, if any
1217 ddp_task_template_rec.task_template_id := p0_a0;
1218 ddp_task_template_rec.task_name := p0_a1;
1219 ddp_task_template_rec.description := p0_a2;
1220 ddp_task_template_rec.reason_code_id := p0_a3;
1221 ddp_task_template_rec.reason_code := p0_a4;
1222 ddp_task_template_rec.task_number := p0_a5;
1223 ddp_task_template_rec.task_type_id := p0_a6;
1224 ddp_task_template_rec.task_type_name := p0_a7;
1225 ddp_task_template_rec.task_status_id := p0_a8;
1226 ddp_task_template_rec.task_status_name := p0_a9;
1227 ddp_task_template_rec.task_priority_id := p0_a10;
1228 ddp_task_template_rec.task_priority_name := p0_a11;
1229 ddp_task_template_rec.duration := p0_a12;
1230 ddp_task_template_rec.duration_uom := p0_a13;
1231 ddp_task_template_rec.object_version_number := p0_a14;
1232 ddp_task_template_rec.attribute_category := p0_a15;
1233 ddp_task_template_rec.attribute1 := p0_a16;
1234 ddp_task_template_rec.attribute2 := p0_a17;
1235 ddp_task_template_rec.attribute3 := p0_a18;
1236 ddp_task_template_rec.attribute4 := p0_a19;
1237 ddp_task_template_rec.attribute5 := p0_a20;
1238 ddp_task_template_rec.attribute6 := p0_a21;
1239 ddp_task_template_rec.attribute7 := p0_a22;
1240 ddp_task_template_rec.attribute8 := p0_a23;
1241 ddp_task_template_rec.attribute9 := p0_a24;
1242 ddp_task_template_rec.attribute10 := p0_a25;
1243 ddp_task_template_rec.attribute11 := p0_a26;
1244 ddp_task_template_rec.attribute12 := p0_a27;
1245 ddp_task_template_rec.attribute13 := p0_a28;
1246 ddp_task_template_rec.attribute14 := p0_a29;
1247 ddp_task_template_rec.attribute15 := p0_a30;
1248
1249
1250 -- here's the delegated call to the old PL/SQL routine
1251 ozf_task_template_pvt.complete_tasktemplate_rec(ddp_task_template_rec,
1252 ddx_complete_rec);
1253
1254 -- copy data back from the local variables to OUT or IN-OUT args, if any
1255
1256 p1_a0 := ddx_complete_rec.task_template_id;
1257 p1_a1 := ddx_complete_rec.task_name;
1258 p1_a2 := ddx_complete_rec.description;
1259 p1_a3 := ddx_complete_rec.reason_code_id;
1260 p1_a4 := ddx_complete_rec.reason_code;
1261 p1_a5 := ddx_complete_rec.task_number;
1262 p1_a6 := ddx_complete_rec.task_type_id;
1263 p1_a7 := ddx_complete_rec.task_type_name;
1264 p1_a8 := ddx_complete_rec.task_status_id;
1265 p1_a9 := ddx_complete_rec.task_status_name;
1266 p1_a10 := ddx_complete_rec.task_priority_id;
1267 p1_a11 := ddx_complete_rec.task_priority_name;
1268 p1_a12 := ddx_complete_rec.duration;
1269 p1_a13 := ddx_complete_rec.duration_uom;
1270 p1_a14 := ddx_complete_rec.object_version_number;
1271 p1_a15 := ddx_complete_rec.attribute_category;
1272 p1_a16 := ddx_complete_rec.attribute1;
1273 p1_a17 := ddx_complete_rec.attribute2;
1274 p1_a18 := ddx_complete_rec.attribute3;
1275 p1_a19 := ddx_complete_rec.attribute4;
1276 p1_a20 := ddx_complete_rec.attribute5;
1277 p1_a21 := ddx_complete_rec.attribute6;
1278 p1_a22 := ddx_complete_rec.attribute7;
1279 p1_a23 := ddx_complete_rec.attribute8;
1280 p1_a24 := ddx_complete_rec.attribute9;
1281 p1_a25 := ddx_complete_rec.attribute10;
1282 p1_a26 := ddx_complete_rec.attribute11;
1283 p1_a27 := ddx_complete_rec.attribute12;
1284 p1_a28 := ddx_complete_rec.attribute13;
1285 p1_a29 := ddx_complete_rec.attribute14;
1286 p1_a30 := ddx_complete_rec.attribute15;
1287 end;
1288
1289 end ozf_task_template_pvt_w;