[Home] [Help]
PACKAGE BODY: APPS.CS_TP_TEMPLATES_PVT_W
Source
1 package body cs_tp_templates_pvt_w as
2 /* $Header: cstprtmb.pls 120.2 2005/06/30 11:07 appldev 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
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 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p1(t out nocopy cs_tp_templates_pvt.template_list, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_1000
24 , a2 JTF_VARCHAR2_TABLE_200
25 , a3 JTF_VARCHAR2_TABLE_200
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_600
28 , a6 JTF_VARCHAR2_TABLE_200
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_VARCHAR2_TABLE_100
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).mtemplateid := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).mtemplatename := a1(indx);
41 t(ddindx).mstartdate := a2(indx);
42 t(ddindx).menddate := a3(indx);
43 t(ddindx).mdefaultflag := a4(indx);
44 t(ddindx).mshortcode := a5(indx);
45 t(ddindx).mlast_updated_date := a6(indx);
46 t(ddindx).muniquestionnoteflag := a7(indx);
47 t(ddindx).muniquestionnotetype := a8(indx);
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p1;
57 procedure rosetta_table_copy_out_p1(t cs_tp_templates_pvt.template_list, a0 out nocopy JTF_NUMBER_TABLE
58 , a1 out nocopy JTF_VARCHAR2_TABLE_1000
59 , a2 out nocopy JTF_VARCHAR2_TABLE_200
60 , a3 out nocopy JTF_VARCHAR2_TABLE_200
61 , a4 out nocopy JTF_VARCHAR2_TABLE_100
62 , a5 out nocopy JTF_VARCHAR2_TABLE_600
63 , a6 out nocopy JTF_VARCHAR2_TABLE_200
64 , a7 out nocopy JTF_VARCHAR2_TABLE_100
65 , a8 out nocopy JTF_VARCHAR2_TABLE_100
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_VARCHAR2_TABLE_1000();
72 a2 := JTF_VARCHAR2_TABLE_200();
73 a3 := JTF_VARCHAR2_TABLE_200();
74 a4 := JTF_VARCHAR2_TABLE_100();
75 a5 := JTF_VARCHAR2_TABLE_600();
76 a6 := JTF_VARCHAR2_TABLE_200();
77 a7 := JTF_VARCHAR2_TABLE_100();
78 a8 := JTF_VARCHAR2_TABLE_100();
79 else
80 a0 := JTF_NUMBER_TABLE();
81 a1 := JTF_VARCHAR2_TABLE_1000();
82 a2 := JTF_VARCHAR2_TABLE_200();
83 a3 := JTF_VARCHAR2_TABLE_200();
84 a4 := JTF_VARCHAR2_TABLE_100();
85 a5 := JTF_VARCHAR2_TABLE_600();
86 a6 := JTF_VARCHAR2_TABLE_200();
87 a7 := JTF_VARCHAR2_TABLE_100();
88 a8 := JTF_VARCHAR2_TABLE_100();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := rosetta_g_miss_num_map(t(ddindx).mtemplateid);
103 a1(indx) := t(ddindx).mtemplatename;
104 a2(indx) := t(ddindx).mstartdate;
105 a3(indx) := t(ddindx).menddate;
106 a4(indx) := t(ddindx).mdefaultflag;
107 a5(indx) := t(ddindx).mshortcode;
108 a6(indx) := t(ddindx).mlast_updated_date;
109 a7(indx) := t(ddindx).muniquestionnoteflag;
110 a8(indx) := t(ddindx).muniquestionnotetype;
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p1;
120
121 procedure rosetta_table_copy_in_p3(t out nocopy cs_tp_templates_pvt.template_attribute_list, a0 JTF_NUMBER_TABLE
122 , a1 JTF_VARCHAR2_TABLE_1000
123 , a2 JTF_NUMBER_TABLE
124 , a3 JTF_NUMBER_TABLE
125 , a4 JTF_VARCHAR2_TABLE_200
126 , a5 JTF_NUMBER_TABLE
127 , a6 JTF_VARCHAR2_TABLE_200
128 , a7 JTF_VARCHAR2_TABLE_200
129 ) as
130 ddindx binary_integer; indx binary_integer;
131 begin
132 if a0 is not null and a0.count > 0 then
133 if a0.count > 0 then
134 indx := a0.first;
135 ddindx := 1;
136 while true loop
137 t(ddindx).mattributeid := rosetta_g_miss_num_map(a0(indx));
138 t(ddindx).mattributename := a1(indx);
139 t(ddindx).mstartthreshold := rosetta_g_miss_num_map(a2(indx));
140 t(ddindx).mendthreshold := rosetta_g_miss_num_map(a3(indx));
141 t(ddindx).mjtf_object_code := a4(indx);
142 t(ddindx).mother_id := rosetta_g_miss_num_map(a5(indx));
143 t(ddindx).mdefaultflag := a6(indx);
144 t(ddindx).mlast_updated_date := a7(indx);
145 ddindx := ddindx+1;
146 if a0.last =indx
147 then exit;
148 end if;
149 indx := a0.next(indx);
150 end loop;
151 end if;
152 end if;
153 end rosetta_table_copy_in_p3;
154 procedure rosetta_table_copy_out_p3(t cs_tp_templates_pvt.template_attribute_list, a0 out nocopy JTF_NUMBER_TABLE
155 , a1 out nocopy JTF_VARCHAR2_TABLE_1000
156 , a2 out nocopy JTF_NUMBER_TABLE
157 , a3 out nocopy JTF_NUMBER_TABLE
158 , a4 out nocopy JTF_VARCHAR2_TABLE_200
159 , a5 out nocopy JTF_NUMBER_TABLE
160 , a6 out nocopy JTF_VARCHAR2_TABLE_200
161 , a7 out nocopy JTF_VARCHAR2_TABLE_200
162 ) as
163 ddindx binary_integer; indx binary_integer;
164 begin
165 if t is null or t.count = 0 then
166 a0 := JTF_NUMBER_TABLE();
167 a1 := JTF_VARCHAR2_TABLE_1000();
168 a2 := JTF_NUMBER_TABLE();
169 a3 := JTF_NUMBER_TABLE();
170 a4 := JTF_VARCHAR2_TABLE_200();
171 a5 := JTF_NUMBER_TABLE();
172 a6 := JTF_VARCHAR2_TABLE_200();
173 a7 := JTF_VARCHAR2_TABLE_200();
174 else
175 a0 := JTF_NUMBER_TABLE();
176 a1 := JTF_VARCHAR2_TABLE_1000();
177 a2 := JTF_NUMBER_TABLE();
178 a3 := JTF_NUMBER_TABLE();
179 a4 := JTF_VARCHAR2_TABLE_200();
180 a5 := JTF_NUMBER_TABLE();
181 a6 := JTF_VARCHAR2_TABLE_200();
182 a7 := JTF_VARCHAR2_TABLE_200();
183 if t.count > 0 then
184 a0.extend(t.count);
185 a1.extend(t.count);
186 a2.extend(t.count);
187 a3.extend(t.count);
188 a4.extend(t.count);
189 a5.extend(t.count);
190 a6.extend(t.count);
191 a7.extend(t.count);
192 ddindx := t.first;
193 indx := 1;
194 while true loop
195 a0(indx) := rosetta_g_miss_num_map(t(ddindx).mattributeid);
196 a1(indx) := t(ddindx).mattributename;
197 a2(indx) := rosetta_g_miss_num_map(t(ddindx).mstartthreshold);
198 a3(indx) := rosetta_g_miss_num_map(t(ddindx).mendthreshold);
199 a4(indx) := t(ddindx).mjtf_object_code;
200 a5(indx) := rosetta_g_miss_num_map(t(ddindx).mother_id);
201 a6(indx) := t(ddindx).mdefaultflag;
202 a7(indx) := t(ddindx).mlast_updated_date;
203 indx := indx+1;
204 if t.last =ddindx
205 then exit;
206 end if;
207 ddindx := t.next(ddindx);
208 end loop;
209 end if;
210 end if;
211 end rosetta_table_copy_out_p3;
212
213 procedure rosetta_table_copy_in_p5(t out nocopy cs_tp_templates_pvt.template_link_list, a0 JTF_NUMBER_TABLE
214 , a1 JTF_VARCHAR2_TABLE_1000
215 , a2 JTF_VARCHAR2_TABLE_1000
216 , a3 JTF_VARCHAR2_TABLE_200
217 , a4 JTF_NUMBER_TABLE
218 , a5 JTF_VARCHAR2_TABLE_100
219 , a6 JTF_VARCHAR2_TABLE_100
220 , a7 JTF_VARCHAR2_TABLE_200
221 ) as
222 ddindx binary_integer; indx binary_integer;
223 begin
224 if a0 is not null and a0.count > 0 then
225 if a0.count > 0 then
226 indx := a0.first;
227 ddindx := 1;
228 while true loop
229 t(ddindx).mlinkid := rosetta_g_miss_num_map(a0(indx));
230 t(ddindx).mlinkname := a1(indx);
231 t(ddindx).mlinkdesc := a2(indx);
232 t(ddindx).mjtf_object_code := a3(indx);
233 t(ddindx).mother_id := rosetta_g_miss_num_map(a4(indx));
234 t(ddindx).lookup_code := a5(indx);
235 t(ddindx).lookup_type := a6(indx);
236 t(ddindx).mlast_updated_date := a7(indx);
237 ddindx := ddindx+1;
238 if a0.last =indx
239 then exit;
240 end if;
241 indx := a0.next(indx);
242 end loop;
243 end if;
244 end if;
245 end rosetta_table_copy_in_p5;
246 procedure rosetta_table_copy_out_p5(t cs_tp_templates_pvt.template_link_list, a0 out nocopy JTF_NUMBER_TABLE
247 , a1 out nocopy JTF_VARCHAR2_TABLE_1000
248 , a2 out nocopy JTF_VARCHAR2_TABLE_1000
249 , a3 out nocopy JTF_VARCHAR2_TABLE_200
250 , a4 out nocopy JTF_NUMBER_TABLE
251 , a5 out nocopy JTF_VARCHAR2_TABLE_100
252 , a6 out nocopy JTF_VARCHAR2_TABLE_100
253 , a7 out nocopy JTF_VARCHAR2_TABLE_200
254 ) as
255 ddindx binary_integer; indx binary_integer;
256 begin
257 if t is null or t.count = 0 then
258 a0 := JTF_NUMBER_TABLE();
259 a1 := JTF_VARCHAR2_TABLE_1000();
260 a2 := JTF_VARCHAR2_TABLE_1000();
261 a3 := JTF_VARCHAR2_TABLE_200();
262 a4 := JTF_NUMBER_TABLE();
263 a5 := JTF_VARCHAR2_TABLE_100();
264 a6 := JTF_VARCHAR2_TABLE_100();
265 a7 := JTF_VARCHAR2_TABLE_200();
266 else
267 a0 := JTF_NUMBER_TABLE();
268 a1 := JTF_VARCHAR2_TABLE_1000();
269 a2 := JTF_VARCHAR2_TABLE_1000();
270 a3 := JTF_VARCHAR2_TABLE_200();
271 a4 := JTF_NUMBER_TABLE();
272 a5 := JTF_VARCHAR2_TABLE_100();
273 a6 := JTF_VARCHAR2_TABLE_100();
274 a7 := JTF_VARCHAR2_TABLE_200();
275 if t.count > 0 then
276 a0.extend(t.count);
277 a1.extend(t.count);
278 a2.extend(t.count);
279 a3.extend(t.count);
280 a4.extend(t.count);
281 a5.extend(t.count);
282 a6.extend(t.count);
283 a7.extend(t.count);
284 ddindx := t.first;
285 indx := 1;
286 while true loop
287 a0(indx) := rosetta_g_miss_num_map(t(ddindx).mlinkid);
288 a1(indx) := t(ddindx).mlinkname;
289 a2(indx) := t(ddindx).mlinkdesc;
290 a3(indx) := t(ddindx).mjtf_object_code;
291 a4(indx) := rosetta_g_miss_num_map(t(ddindx).mother_id);
292 a5(indx) := t(ddindx).lookup_code;
293 a6(indx) := t(ddindx).lookup_type;
294 a7(indx) := t(ddindx).mlast_updated_date;
295 indx := indx+1;
296 if t.last =ddindx
297 then exit;
298 end if;
299 ddindx := t.next(ddindx);
300 end loop;
301 end if;
302 end if;
303 end rosetta_table_copy_out_p5;
304
305 procedure rosetta_table_copy_in_p7(t out nocopy cs_tp_templates_pvt.id_name_pairs, a0 JTF_VARCHAR2_TABLE_1000
306 , a1 JTF_VARCHAR2_TABLE_1000
307 ) as
308 ddindx binary_integer; indx binary_integer;
309 begin
310 if a0 is not null and a0.count > 0 then
311 if a0.count > 0 then
312 indx := a0.first;
313 ddindx := 1;
314 while true loop
315 t(ddindx).mobject_code := a0(indx);
316 t(ddindx).mname := a1(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_p7;
326 procedure rosetta_table_copy_out_p7(t cs_tp_templates_pvt.id_name_pairs, a0 out nocopy JTF_VARCHAR2_TABLE_1000
327 , a1 out nocopy JTF_VARCHAR2_TABLE_1000
328 ) as
329 ddindx binary_integer; indx binary_integer;
330 begin
331 if t is null or t.count = 0 then
332 a0 := JTF_VARCHAR2_TABLE_1000();
333 a1 := JTF_VARCHAR2_TABLE_1000();
334 else
335 a0 := JTF_VARCHAR2_TABLE_1000();
336 a1 := JTF_VARCHAR2_TABLE_1000();
337 if t.count > 0 then
338 a0.extend(t.count);
339 a1.extend(t.count);
340 ddindx := t.first;
341 indx := 1;
342 while true loop
343 a0(indx) := t(ddindx).mobject_code;
344 a1(indx) := t(ddindx).mname;
345 indx := indx+1;
346 if t.last =ddindx
347 then exit;
348 end if;
349 ddindx := t.next(ddindx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_out_p7;
354
355 procedure rosetta_table_copy_in_p9(t out nocopy cs_tp_templates_pvt.object_other_id_pairs, a0 JTF_NUMBER_TABLE
356 , a1 JTF_VARCHAR2_TABLE_100
357 , a2 JTF_VARCHAR2_TABLE_1000
358 ) as
359 ddindx binary_integer; indx binary_integer;
360 begin
361 if a0 is not null and a0.count > 0 then
362 if a0.count > 0 then
363 indx := a0.first;
364 ddindx := 1;
365 while true loop
366 t(ddindx).mother_id := rosetta_g_miss_num_map(a0(indx));
367 t(ddindx).mlookup_code := a1(indx);
368 t(ddindx).mobject_code := a2(indx);
369 ddindx := ddindx+1;
370 if a0.last =indx
371 then exit;
372 end if;
373 indx := a0.next(indx);
374 end loop;
375 end if;
376 end if;
377 end rosetta_table_copy_in_p9;
378 procedure rosetta_table_copy_out_p9(t cs_tp_templates_pvt.object_other_id_pairs, a0 out nocopy JTF_NUMBER_TABLE
379 , a1 out nocopy JTF_VARCHAR2_TABLE_100
380 , a2 out nocopy JTF_VARCHAR2_TABLE_1000
381 ) as
382 ddindx binary_integer; indx binary_integer;
383 begin
384 if t is null or t.count = 0 then
385 a0 := JTF_NUMBER_TABLE();
386 a1 := JTF_VARCHAR2_TABLE_100();
387 a2 := JTF_VARCHAR2_TABLE_1000();
388 else
389 a0 := JTF_NUMBER_TABLE();
390 a1 := JTF_VARCHAR2_TABLE_100();
391 a2 := JTF_VARCHAR2_TABLE_1000();
392 if t.count > 0 then
393 a0.extend(t.count);
394 a1.extend(t.count);
395 a2.extend(t.count);
396 ddindx := t.first;
397 indx := 1;
398 while true loop
399 a0(indx) := rosetta_g_miss_num_map(t(ddindx).mother_id);
400 a1(indx) := t(ddindx).mlookup_code;
401 a2(indx) := t(ddindx).mobject_code;
402 indx := indx+1;
403 if t.last =ddindx
404 then exit;
405 end if;
406 ddindx := t.next(ddindx);
407 end loop;
408 end if;
409 end if;
410 end rosetta_table_copy_out_p9;
411
412 procedure add_template(p_api_version_number NUMBER
413 , p_init_msg_list VARCHAR2
414 , p_commit VARCHAR
415 , x_msg_count out nocopy NUMBER
416 , x_msg_data out nocopy VARCHAR2
417 , x_return_status out nocopy VARCHAR2
418 , x_template_id out nocopy NUMBER
419 , p3_a0 NUMBER := 0-1962.0724
420 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
421 , p3_a2 VARCHAR2 := fnd_api.g_miss_char
422 , p3_a3 VARCHAR2 := fnd_api.g_miss_char
423 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
424 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
425 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
426 , p3_a7 VARCHAR2 := fnd_api.g_miss_char
427 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
428 )
429
430 as
431 ddp_one_template cs_tp_templates_pvt.template;
432 ddindx binary_integer; indx binary_integer;
433 begin
434
435 -- copy data to the local IN or IN-OUT args, if any
436
437
438
439 ddp_one_template.mtemplateid := rosetta_g_miss_num_map(p3_a0);
440 ddp_one_template.mtemplatename := p3_a1;
441 ddp_one_template.mstartdate := p3_a2;
442 ddp_one_template.menddate := p3_a3;
443 ddp_one_template.mdefaultflag := p3_a4;
444 ddp_one_template.mshortcode := p3_a5;
445 ddp_one_template.mlast_updated_date := p3_a6;
446 ddp_one_template.muniquestionnoteflag := p3_a7;
447 ddp_one_template.muniquestionnotetype := p3_a8;
448
449
450
451
452
453 -- here's the delegated call to the old PL/SQL routine
454 cs_tp_templates_pvt.add_template(p_api_version_number,
455 p_init_msg_list,
456 p_commit,
457 ddp_one_template,
458 x_msg_count,
459 x_msg_data,
460 x_return_status,
461 x_template_id);
462
463 -- copy data back from the local variables to OUT or IN-OUT args, if any
464
465
466
467
468
469
470
471 end;
472
473 procedure update_template(p_api_version_number NUMBER
474 , p_init_msg_list VARCHAR2
475 , p_commit VARCHAR
476 , x_msg_count out nocopy NUMBER
477 , x_msg_data out nocopy VARCHAR2
478 , x_return_status out nocopy VARCHAR2
479 , p3_a0 NUMBER := 0-1962.0724
480 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
481 , p3_a2 VARCHAR2 := fnd_api.g_miss_char
482 , p3_a3 VARCHAR2 := fnd_api.g_miss_char
483 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
484 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
485 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
486 , p3_a7 VARCHAR2 := fnd_api.g_miss_char
487 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
488 )
489
490 as
491 ddp_one_template cs_tp_templates_pvt.template;
492 ddindx binary_integer; indx binary_integer;
493 begin
494
495 -- copy data to the local IN or IN-OUT args, if any
496
497
498
499 ddp_one_template.mtemplateid := rosetta_g_miss_num_map(p3_a0);
500 ddp_one_template.mtemplatename := p3_a1;
501 ddp_one_template.mstartdate := p3_a2;
502 ddp_one_template.menddate := p3_a3;
503 ddp_one_template.mdefaultflag := p3_a4;
504 ddp_one_template.mshortcode := p3_a5;
505 ddp_one_template.mlast_updated_date := p3_a6;
506 ddp_one_template.muniquestionnoteflag := p3_a7;
507 ddp_one_template.muniquestionnotetype := p3_a8;
508
509
510
511
512 -- here's the delegated call to the old PL/SQL routine
513 cs_tp_templates_pvt.update_template(p_api_version_number,
514 p_init_msg_list,
515 p_commit,
516 ddp_one_template,
517 x_msg_count,
518 x_msg_data,
519 x_return_status);
520
521 -- copy data back from the local variables to OUT or IN-OUT args, if any
522
523
524
525
526
527
528 end;
529
530 procedure update_template_attributes(p_api_version_number NUMBER
531 , p_init_msg_list VARCHAR2
532 , p_commit VARCHAR
533 , p_template_id NUMBER
534 , p4_a0 JTF_NUMBER_TABLE
535 , p4_a1 JTF_VARCHAR2_TABLE_1000
536 , p4_a2 JTF_NUMBER_TABLE
537 , p4_a3 JTF_NUMBER_TABLE
538 , p4_a4 JTF_VARCHAR2_TABLE_200
539 , p4_a5 JTF_NUMBER_TABLE
540 , p4_a6 JTF_VARCHAR2_TABLE_200
541 , p4_a7 JTF_VARCHAR2_TABLE_200
542 , x_msg_count out nocopy NUMBER
543 , x_msg_data out nocopy VARCHAR2
544 , x_return_status out nocopy VARCHAR2
545 )
546
547 as
548 ddp_template_attributes cs_tp_templates_pvt.template_attribute_list;
549 ddindx binary_integer; indx binary_integer;
550 begin
551
552 -- copy data to the local IN or IN-OUT args, if any
553
554
555
556
557 cs_tp_templates_pvt_w.rosetta_table_copy_in_p3(ddp_template_attributes, p4_a0
558 , p4_a1
559 , p4_a2
560 , p4_a3
561 , p4_a4
562 , p4_a5
563 , p4_a6
564 , p4_a7
565 );
566
567
568
569
570 -- here's the delegated call to the old PL/SQL routine
571 cs_tp_templates_pvt.update_template_attributes(p_api_version_number,
572 p_init_msg_list,
573 p_commit,
574 p_template_id,
575 ddp_template_attributes,
576 x_msg_count,
577 x_msg_data,
578 x_return_status);
579
580 -- copy data back from the local variables to OUT or IN-OUT args, if any
581
582
583
584
585
586
587
588 end;
589
590 procedure update_template_links(p_api_version_number NUMBER
591 , p_init_msg_list VARCHAR2
592 , p_commit VARCHAR
593 , p_template_id NUMBER
594 , p_jtf_object_code VARCHAR2
595 , p5_a0 JTF_NUMBER_TABLE
596 , p5_a1 JTF_VARCHAR2_TABLE_1000
597 , p5_a2 JTF_VARCHAR2_TABLE_1000
598 , p5_a3 JTF_VARCHAR2_TABLE_200
599 , p5_a4 JTF_NUMBER_TABLE
600 , p5_a5 JTF_VARCHAR2_TABLE_100
604 , x_msg_data out nocopy VARCHAR2
601 , p5_a6 JTF_VARCHAR2_TABLE_100
602 , p5_a7 JTF_VARCHAR2_TABLE_200
603 , x_msg_count out nocopy NUMBER
605 , x_return_status out nocopy VARCHAR2
606 )
607
608 as
609 ddp_template_links cs_tp_templates_pvt.template_link_list;
610 ddindx binary_integer; indx binary_integer;
611 begin
612
613 -- copy data to the local IN or IN-OUT args, if any
614
615
616
617
618
619 cs_tp_templates_pvt_w.rosetta_table_copy_in_p5(ddp_template_links, p5_a0
620 , p5_a1
621 , p5_a2
622 , p5_a3
623 , p5_a4
624 , p5_a5
625 , p5_a6
626 , p5_a7
627 );
628
629
630
631
632 -- here's the delegated call to the old PL/SQL routine
633 cs_tp_templates_pvt.update_template_links(p_api_version_number,
634 p_init_msg_list,
635 p_commit,
636 p_template_id,
637 p_jtf_object_code,
638 ddp_template_links,
639 x_msg_count,
640 x_msg_data,
641 x_return_status);
642
643 -- copy data back from the local variables to OUT or IN-OUT args, if any
644
645
646
647
648
649
650
651
652 end;
653
654 procedure show_templates(p_api_version_number NUMBER
655 , p_init_msg_list VARCHAR2
656 , p_commit VARCHAR2
657 , p_template_name VARCHAR2
658 , p_start_template NUMBER
659 , p_end_template NUMBER
660 , p_display_order VARCHAR2
661 , x_msg_count out nocopy NUMBER
662 , x_msg_data out nocopy VARCHAR2
663 , x_return_status out nocopy VARCHAR2
664 , p10_a0 out nocopy JTF_NUMBER_TABLE
665 , p10_a1 out nocopy JTF_VARCHAR2_TABLE_1000
666 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_200
667 , p10_a3 out nocopy JTF_VARCHAR2_TABLE_200
668 , p10_a4 out nocopy JTF_VARCHAR2_TABLE_100
669 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_600
670 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_200
671 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_100
672 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_100
673 , x_total_templates out nocopy NUMBER
674 , x_retrieved_template_num out nocopy NUMBER
675 )
676
677 as
678 ddx_template_list_to_show cs_tp_templates_pvt.template_list;
679 ddindx binary_integer; indx binary_integer;
680 begin
681
682 -- copy data to the local IN or IN-OUT args, if any
683
684
685
686
687
688
689
690
691
692
693
694
695
696 -- here's the delegated call to the old PL/SQL routine
697 cs_tp_templates_pvt.show_templates(p_api_version_number,
698 p_init_msg_list,
699 p_commit,
700 p_template_name,
701 p_start_template,
702 p_end_template,
703 p_display_order,
704 x_msg_count,
705 x_msg_data,
706 x_return_status,
707 ddx_template_list_to_show,
708 x_total_templates,
709 x_retrieved_template_num);
710
711 -- copy data back from the local variables to OUT or IN-OUT args, if any
712
713
714
715
716
717
718
719
720
721
722 cs_tp_templates_pvt_w.rosetta_table_copy_out_p1(ddx_template_list_to_show, p10_a0
723 , p10_a1
724 , p10_a2
725 , p10_a3
726 , p10_a4
727 , p10_a5
728 , p10_a6
729 , p10_a7
730 , p10_a8
731 );
732
733
734 end;
735
736 procedure show_template(p_api_version_number NUMBER
737 , p_init_msg_list VARCHAR2
738 , p_commit VARCHAR
739 , p_template_id NUMBER
740 , x_msg_count out nocopy NUMBER
741 , x_msg_data out nocopy VARCHAR2
742 , x_return_status out nocopy VARCHAR2
743 , p7_a0 out nocopy NUMBER
744 , p7_a1 out nocopy VARCHAR2
745 , p7_a2 out nocopy VARCHAR2
746 , p7_a3 out nocopy VARCHAR2
747 , p7_a4 out nocopy VARCHAR2
748 , p7_a5 out nocopy VARCHAR2
749 , p7_a6 out nocopy VARCHAR2
750 , p7_a7 out nocopy VARCHAR2
751 , p7_a8 out nocopy VARCHAR2
752 )
753
754 as
755 ddx_template_to_show cs_tp_templates_pvt.template;
756 ddindx binary_integer; indx binary_integer;
757 begin
758
759 -- copy data to the local IN or IN-OUT args, if any
760
761
762
763
764
765
766
767
768 -- here's the delegated call to the old PL/SQL routine
769 cs_tp_templates_pvt.show_template(p_api_version_number,
770 p_init_msg_list,
771 p_commit,
772 p_template_id,
773 x_msg_count,
774 x_msg_data,
775 x_return_status,
776 ddx_template_to_show);
777
778 -- copy data back from the local variables to OUT or IN-OUT args, if any
779
780
781
785
782
783
784
786 p7_a0 := rosetta_g_miss_num_map(ddx_template_to_show.mtemplateid);
787 p7_a1 := ddx_template_to_show.mtemplatename;
788 p7_a2 := ddx_template_to_show.mstartdate;
789 p7_a3 := ddx_template_to_show.menddate;
790 p7_a4 := ddx_template_to_show.mdefaultflag;
791 p7_a5 := ddx_template_to_show.mshortcode;
792 p7_a6 := ddx_template_to_show.mlast_updated_date;
793 p7_a7 := ddx_template_to_show.muniquestionnoteflag;
794 p7_a8 := ddx_template_to_show.muniquestionnotetype;
795 end;
796
797 procedure show_templates_with_link(p_api_version_number NUMBER
798 , p_init_msg_list VARCHAR2
799 , p_commit VARCHAR
800 , p3_a0 JTF_NUMBER_TABLE
801 , p3_a1 JTF_VARCHAR2_TABLE_100
802 , p3_a2 JTF_VARCHAR2_TABLE_1000
803 , x_msg_count out nocopy NUMBER
804 , x_msg_data out nocopy VARCHAR2
805 , x_return_status out nocopy VARCHAR2
806 , p7_a0 out nocopy JTF_NUMBER_TABLE
807 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_1000
808 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
809 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_200
810 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
811 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_600
812 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_200
813 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
814 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
815 )
816
817 as
818 ddp_object_other_list cs_tp_templates_pvt.object_other_id_pairs;
819 ddx_template_list cs_tp_templates_pvt.template_list;
820 ddindx binary_integer; indx binary_integer;
821 begin
822
823 -- copy data to the local IN or IN-OUT args, if any
824
825
826
827 cs_tp_templates_pvt_w.rosetta_table_copy_in_p9(ddp_object_other_list, p3_a0
828 , p3_a1
829 , p3_a2
830 );
831
832
833
834
835
836 -- here's the delegated call to the old PL/SQL routine
837 cs_tp_templates_pvt.show_templates_with_link(p_api_version_number,
838 p_init_msg_list,
839 p_commit,
840 ddp_object_other_list,
841 x_msg_count,
842 x_msg_data,
843 x_return_status,
844 ddx_template_list);
845
846 -- copy data back from the local variables to OUT or IN-OUT args, if any
847
848
849
850
851
852
853
854 cs_tp_templates_pvt_w.rosetta_table_copy_out_p1(ddx_template_list, p7_a0
855 , p7_a1
856 , p7_a2
857 , p7_a3
858 , p7_a4
859 , p7_a5
860 , p7_a6
861 , p7_a7
862 , p7_a8
863 );
864 end;
865
866 procedure show_template_attributes(p_api_version_number NUMBER
867 , p_init_msg_list VARCHAR2
868 , p_commit VARCHAR
869 , p_template_id NUMBER
870 , p_jtf_object_code VARCHAR2
871 , x_msg_count out nocopy NUMBER
872 , x_msg_data out nocopy VARCHAR2
873 , x_return_status out nocopy VARCHAR2
874 , p8_a0 out nocopy JTF_NUMBER_TABLE
875 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_1000
876 , p8_a2 out nocopy JTF_NUMBER_TABLE
877 , p8_a3 out nocopy JTF_NUMBER_TABLE
878 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_200
879 , p8_a5 out nocopy JTF_NUMBER_TABLE
880 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_200
881 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_200
882 )
883
884 as
885 ddx_template_attributes cs_tp_templates_pvt.template_attribute_list;
886 ddindx binary_integer; indx binary_integer;
887 begin
888
889 -- copy data to the local IN or IN-OUT args, if any
890
891
892
893
894
895
896
897
898
899 -- here's the delegated call to the old PL/SQL routine
900 cs_tp_templates_pvt.show_template_attributes(p_api_version_number,
901 p_init_msg_list,
902 p_commit,
903 p_template_id,
904 p_jtf_object_code,
905 x_msg_count,
906 x_msg_data,
907 x_return_status,
908 ddx_template_attributes);
909
910 -- copy data back from the local variables to OUT or IN-OUT args, if any
911
912
913
914
915
916
917
918
919 cs_tp_templates_pvt_w.rosetta_table_copy_out_p3(ddx_template_attributes, p8_a0
920 , p8_a1
921 , p8_a2
922 , p8_a3
923 , p8_a4
924 , p8_a5
925 , p8_a6
926 , p8_a7
927 );
928 end;
929
930 procedure show_template_links(p_api_version_number NUMBER
931 , p_init_msg_list VARCHAR2
932 , p_commit VARCHAR
933 , p_template_id NUMBER
934 , p_jtf_object_code VARCHAR2
935 , x_msg_count out nocopy NUMBER
936 , x_msg_data out nocopy VARCHAR2
937 , x_return_status out nocopy VARCHAR2
938 , p8_a0 out nocopy JTF_NUMBER_TABLE
939 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_1000
940 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_1000
941 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_200
942 , p8_a4 out nocopy JTF_NUMBER_TABLE
943 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
947
944 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
945 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_200
946 )
948 as
949 ddx_template_links cs_tp_templates_pvt.template_link_list;
950 ddindx binary_integer; indx binary_integer;
951 begin
952
953 -- copy data to the local IN or IN-OUT args, if any
954
955
956
957
958
959
960
961
962
963 -- here's the delegated call to the old PL/SQL routine
964 cs_tp_templates_pvt.show_template_links(p_api_version_number,
965 p_init_msg_list,
966 p_commit,
967 p_template_id,
968 p_jtf_object_code,
969 x_msg_count,
970 x_msg_data,
971 x_return_status,
972 ddx_template_links);
973
974 -- copy data back from the local variables to OUT or IN-OUT args, if any
975
976
977
978
979
980
981
982
983 cs_tp_templates_pvt_w.rosetta_table_copy_out_p5(ddx_template_links, p8_a0
984 , p8_a1
985 , p8_a2
986 , p8_a3
987 , p8_a4
988 , p8_a5
989 , p8_a6
990 , p8_a7
991 );
992 end;
993
994 procedure show_non_asso_links(p_api_version_number NUMBER
995 , p_init_msg_list VARCHAR2
996 , p_commit VARCHAR
997 , p_template_id NUMBER
998 , p_jtf_object_code VARCHAR2
999 , x_msg_count out nocopy NUMBER
1000 , x_msg_data out nocopy VARCHAR2
1001 , x_return_status out nocopy VARCHAR2
1002 , p8_a0 out nocopy JTF_NUMBER_TABLE
1003 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_1000
1004 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_1000
1005 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_200
1006 , p8_a4 out nocopy JTF_NUMBER_TABLE
1007 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
1008 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
1009 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_200
1010 )
1011
1012 as
1013 ddx_template_link_list cs_tp_templates_pvt.template_link_list;
1014 ddindx binary_integer; indx binary_integer;
1015 begin
1016
1017 -- copy data to the local IN or IN-OUT args, if any
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027 -- here's the delegated call to the old PL/SQL routine
1028 cs_tp_templates_pvt.show_non_asso_links(p_api_version_number,
1029 p_init_msg_list,
1030 p_commit,
1031 p_template_id,
1032 p_jtf_object_code,
1033 x_msg_count,
1034 x_msg_data,
1035 x_return_status,
1036 ddx_template_link_list);
1037
1038 -- copy data back from the local variables to OUT or IN-OUT args, if any
1039
1040
1041
1042
1043
1044
1045
1046
1047 cs_tp_templates_pvt_w.rosetta_table_copy_out_p5(ddx_template_link_list, p8_a0
1048 , p8_a1
1049 , p8_a2
1050 , p8_a3
1051 , p8_a4
1052 , p8_a5
1053 , p8_a6
1054 , p8_a7
1055 );
1056 end;
1057
1058 procedure show_link_attribute_list(p_api_version_number NUMBER
1059 , p_init_msg_list VARCHAR2
1060 , p_commit VARCHAR2
1061 , p_identify VARCHAR2
1062 , x_msg_count out nocopy NUMBER
1063 , x_msg_data out nocopy VARCHAR2
1064 , x_return_status out nocopy VARCHAR2
1065 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_1000
1066 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_1000
1067 )
1068
1069 as
1070 ddx_idname_pairs cs_tp_templates_pvt.id_name_pairs;
1071 ddindx binary_integer; indx binary_integer;
1072 begin
1073
1074 -- copy data to the local IN or IN-OUT args, if any
1075
1076
1077
1078
1079
1080
1081
1082
1083 -- here's the delegated call to the old PL/SQL routine
1084 cs_tp_templates_pvt.show_link_attribute_list(p_api_version_number,
1085 p_init_msg_list,
1086 p_commit,
1087 p_identify,
1088 x_msg_count,
1089 x_msg_data,
1090 x_return_status,
1091 ddx_idname_pairs);
1092
1093 -- copy data back from the local variables to OUT or IN-OUT args, if any
1094
1095
1096
1097
1098
1099
1100
1101 cs_tp_templates_pvt_w.rosetta_table_copy_out_p7(ddx_idname_pairs, p7_a0
1102 , p7_a1
1103 );
1104 end;
1105
1106 procedure retrieve_constants(p_api_version_number NUMBER
1107 , p_init_msg_list VARCHAR2
1108 , p_commit VARCHAR2
1109 , x_msg_count out nocopy NUMBER
1110 , x_msg_data out nocopy VARCHAR2
1111 , x_return_status out nocopy VARCHAR2
1112 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_1000
1113 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_1000
1114 )
1115
1116 as
1117 ddx_idname_pairs cs_tp_templates_pvt.id_name_pairs;
1118 ddindx binary_integer; indx binary_integer;
1119 begin
1120
1121 -- copy data to the local IN or IN-OUT args, if any
1122
1123
1124
1125
1126
1127
1128
1129 -- here's the delegated call to the old PL/SQL routine
1133 x_msg_count,
1130 cs_tp_templates_pvt.retrieve_constants(p_api_version_number,
1131 p_init_msg_list,
1132 p_commit,
1134 x_msg_data,
1135 x_return_status,
1136 ddx_idname_pairs);
1137
1138 -- copy data back from the local variables to OUT or IN-OUT args, if any
1139
1140
1141
1142
1143
1144
1145 cs_tp_templates_pvt_w.rosetta_table_copy_out_p7(ddx_idname_pairs, p6_a0
1146 , p6_a1
1147 );
1148 end;
1149
1150 procedure show_default_template(p_api_version_number NUMBER
1151 , p_init_msg_list VARCHAR2
1152 , p_commit VARCHAR2
1153 , x_msg_count out nocopy NUMBER
1154 , x_msg_data out nocopy VARCHAR2
1155 , x_return_status out nocopy VARCHAR2
1156 , p6_a0 out nocopy NUMBER
1157 , p6_a1 out nocopy VARCHAR2
1158 , p6_a2 out nocopy VARCHAR2
1159 , p6_a3 out nocopy VARCHAR2
1160 , p6_a4 out nocopy VARCHAR2
1161 , p6_a5 out nocopy VARCHAR2
1162 , p6_a6 out nocopy VARCHAR2
1163 , p6_a7 out nocopy VARCHAR2
1164 , p6_a8 out nocopy VARCHAR2
1165 )
1166
1167 as
1168 ddx_default_template cs_tp_templates_pvt.template;
1169 ddindx binary_integer; indx binary_integer;
1170 begin
1171
1172 -- copy data to the local IN or IN-OUT args, if any
1173
1174
1175
1176
1177
1178
1179
1180 -- here's the delegated call to the old PL/SQL routine
1181 cs_tp_templates_pvt.show_default_template(p_api_version_number,
1182 p_init_msg_list,
1183 p_commit,
1184 x_msg_count,
1185 x_msg_data,
1186 x_return_status,
1187 ddx_default_template);
1188
1189 -- copy data back from the local variables to OUT or IN-OUT args, if any
1190
1191
1192
1193
1194
1195
1196 p6_a0 := rosetta_g_miss_num_map(ddx_default_template.mtemplateid);
1197 p6_a1 := ddx_default_template.mtemplatename;
1198 p6_a2 := ddx_default_template.mstartdate;
1199 p6_a3 := ddx_default_template.menddate;
1200 p6_a4 := ddx_default_template.mdefaultflag;
1201 p6_a5 := ddx_default_template.mshortcode;
1202 p6_a6 := ddx_default_template.mlast_updated_date;
1203 p6_a7 := ddx_default_template.muniquestionnoteflag;
1204 p6_a8 := ddx_default_template.muniquestionnotetype;
1205 end;
1206
1207 procedure show_template_links_two(p_api_version_number NUMBER
1208 , p_init_msg_list VARCHAR2
1209 , p_commit VARCHAR
1210 , p_template_id NUMBER
1211 , p_jtf_object_code VARCHAR2
1212 , p_start_link NUMBER
1213 , p_end_link NUMBER
1214 , x_msg_count out nocopy NUMBER
1215 , x_msg_data out nocopy VARCHAR2
1216 , x_return_status out nocopy VARCHAR2
1217 , p10_a0 out nocopy JTF_NUMBER_TABLE
1218 , p10_a1 out nocopy JTF_VARCHAR2_TABLE_1000
1219 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_1000
1220 , p10_a3 out nocopy JTF_VARCHAR2_TABLE_200
1221 , p10_a4 out nocopy JTF_NUMBER_TABLE
1222 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_100
1223 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
1224 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_200
1225 , x_total_link_number out nocopy NUMBER
1226 , x_retrieved_link_number out nocopy NUMBER
1227 )
1228
1229 as
1230 ddx_template_links cs_tp_templates_pvt.template_link_list;
1231 ddindx binary_integer; indx binary_integer;
1232 begin
1233
1234 -- copy data to the local IN or IN-OUT args, if any
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248 -- here's the delegated call to the old PL/SQL routine
1249 cs_tp_templates_pvt.show_template_links_two(p_api_version_number,
1250 p_init_msg_list,
1251 p_commit,
1252 p_template_id,
1253 p_jtf_object_code,
1254 p_start_link,
1255 p_end_link,
1256 x_msg_count,
1257 x_msg_data,
1258 x_return_status,
1259 ddx_template_links,
1260 x_total_link_number,
1261 x_retrieved_link_number);
1262
1263 -- copy data back from the local variables to OUT or IN-OUT args, if any
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274 cs_tp_templates_pvt_w.rosetta_table_copy_out_p5(ddx_template_links, p10_a0
1275 , p10_a1
1276 , p10_a2
1277 , p10_a3
1278 , p10_a4
1279 , p10_a5
1280 , p10_a6
1281 , p10_a7
1282 );
1283
1284
1285 end;
1286
1287 procedure show_non_asso_links_two(p_api_version_number NUMBER
1288 , p_init_msg_list VARCHAR2
1289 , p_commit VARCHAR
1290 , p_template_id NUMBER
1291 , p_jtf_object_code VARCHAR2
1292 , p_start_link NUMBER
1293 , p_end_link NUMBER
1294 , p_link_name VARCHAR2
1295 , x_msg_count out nocopy NUMBER
1296 , x_msg_data out nocopy VARCHAR2
1297 , x_return_status out nocopy VARCHAR2
1298 , p11_a0 out nocopy JTF_NUMBER_TABLE
1299 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_1000
1300 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_1000
1304 , p11_a6 out nocopy JTF_VARCHAR2_TABLE_100
1301 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_200
1302 , p11_a4 out nocopy JTF_NUMBER_TABLE
1303 , p11_a5 out nocopy JTF_VARCHAR2_TABLE_100
1305 , p11_a7 out nocopy JTF_VARCHAR2_TABLE_200
1306 , x_total_link_number out nocopy NUMBER
1307 , x_retrieved_link_number out nocopy NUMBER
1308 )
1309
1310 as
1311 ddx_template_link_list cs_tp_templates_pvt.template_link_list;
1312 ddindx binary_integer; indx binary_integer;
1313 begin
1314
1315 -- copy data to the local IN or IN-OUT args, if any
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330 -- here's the delegated call to the old PL/SQL routine
1331 cs_tp_templates_pvt.show_non_asso_links_two(p_api_version_number,
1332 p_init_msg_list,
1333 p_commit,
1334 p_template_id,
1335 p_jtf_object_code,
1336 p_start_link,
1337 p_end_link,
1338 p_link_name,
1339 x_msg_count,
1340 x_msg_data,
1341 x_return_status,
1342 ddx_template_link_list,
1343 x_total_link_number,
1344 x_retrieved_link_number);
1345
1346 -- copy data back from the local variables to OUT or IN-OUT args, if any
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358 cs_tp_templates_pvt_w.rosetta_table_copy_out_p5(ddx_template_link_list, p11_a0
1359 , p11_a1
1360 , p11_a2
1361 , p11_a3
1362 , p11_a4
1363 , p11_a5
1364 , p11_a6
1365 , p11_a7
1366 );
1367
1368
1369 end;
1370
1371 procedure delete_template_links(p_api_version_number NUMBER
1372 , p_init_msg_list VARCHAR2
1373 , p_commit VARCHAR
1374 , p_template_id NUMBER
1375 , p_jtf_object_code VARCHAR2
1376 , p5_a0 JTF_NUMBER_TABLE
1377 , p5_a1 JTF_VARCHAR2_TABLE_1000
1378 , p5_a2 JTF_VARCHAR2_TABLE_1000
1379 , p5_a3 JTF_VARCHAR2_TABLE_200
1380 , p5_a4 JTF_NUMBER_TABLE
1381 , p5_a5 JTF_VARCHAR2_TABLE_100
1382 , p5_a6 JTF_VARCHAR2_TABLE_100
1383 , p5_a7 JTF_VARCHAR2_TABLE_200
1384 , x_msg_count out nocopy NUMBER
1385 , x_msg_data out nocopy VARCHAR2
1386 , x_return_status out nocopy VARCHAR2
1387 )
1388
1389 as
1390 ddp_template_links cs_tp_templates_pvt.template_link_list;
1391 ddindx binary_integer; indx binary_integer;
1392 begin
1393
1394 -- copy data to the local IN or IN-OUT args, if any
1395
1396
1397
1398
1399
1400 cs_tp_templates_pvt_w.rosetta_table_copy_in_p5(ddp_template_links, p5_a0
1401 , p5_a1
1402 , p5_a2
1403 , p5_a3
1404 , p5_a4
1405 , p5_a5
1406 , p5_a6
1407 , p5_a7
1408 );
1409
1410
1411
1412
1413 -- here's the delegated call to the old PL/SQL routine
1414 cs_tp_templates_pvt.delete_template_links(p_api_version_number,
1415 p_init_msg_list,
1416 p_commit,
1417 p_template_id,
1418 p_jtf_object_code,
1419 ddp_template_links,
1420 x_msg_count,
1421 x_msg_data,
1422 x_return_status);
1423
1424 -- copy data back from the local variables to OUT or IN-OUT args, if any
1425
1426
1427
1428
1429
1430
1431
1432
1433 end;
1434
1435 procedure add_template_links(p_api_version_number NUMBER
1436 , p_init_msg_list VARCHAR2
1437 , p_commit VARCHAR
1438 , p_template_id NUMBER
1439 , p_jtf_object_code VARCHAR2
1440 , p5_a0 JTF_NUMBER_TABLE
1441 , p5_a1 JTF_VARCHAR2_TABLE_1000
1442 , p5_a2 JTF_VARCHAR2_TABLE_1000
1443 , p5_a3 JTF_VARCHAR2_TABLE_200
1444 , p5_a4 JTF_NUMBER_TABLE
1445 , p5_a5 JTF_VARCHAR2_TABLE_100
1446 , p5_a6 JTF_VARCHAR2_TABLE_100
1447 , p5_a7 JTF_VARCHAR2_TABLE_200
1448 , x_msg_count out nocopy NUMBER
1449 , x_msg_data out nocopy VARCHAR2
1450 , x_return_status out nocopy VARCHAR2
1451 )
1452
1453 as
1454 ddp_template_links cs_tp_templates_pvt.template_link_list;
1455 ddindx binary_integer; indx binary_integer;
1456 begin
1457
1458 -- copy data to the local IN or IN-OUT args, if any
1459
1460
1461
1462
1463
1464 cs_tp_templates_pvt_w.rosetta_table_copy_in_p5(ddp_template_links, p5_a0
1465 , p5_a1
1466 , p5_a2
1467 , p5_a3
1468 , p5_a4
1469 , p5_a5
1470 , p5_a6
1471 , p5_a7
1472 );
1473
1474
1475
1476
1477 -- here's the delegated call to the old PL/SQL routine
1478 cs_tp_templates_pvt.add_template_links(p_api_version_number,
1479 p_init_msg_list,
1480 p_commit,
1481 p_template_id,
1482 p_jtf_object_code,
1483 ddp_template_links,
1484 x_msg_count,
1485 x_msg_data,
1486 x_return_status);
1487
1488 -- copy data back from the local variables to OUT or IN-OUT args, if any
1489
1490
1491
1492
1493
1494
1495
1496
1497 end;
1498
1499 end cs_tp_templates_pvt_w;