[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_K_ARTICLE_PUB_W
Source
1 package body okl_vp_k_article_pub_w as
2 /* $Header: OKLUCARB.pls 120.3 2005/08/04 01:39:22 manumanu noship $ */
3 procedure create_k_article(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 NUMBER
9 , p5_a1 NUMBER
10 , p5_a2 NUMBER
11 , p5_a3 NUMBER
12 , p5_a4 NUMBER
13 , p5_a5 VARCHAR2
14 , p5_a6 NUMBER
15 , p5_a7 VARCHAR2
16 , p5_a8 VARCHAR2
17 , p5_a9 NUMBER
18 , p5_a10 VARCHAR2
19 , p5_a11 VARCHAR2
20 , p5_a12 VARCHAR2
21 , p5_a13 VARCHAR2
22 , p5_a14 VARCHAR2
23 , p5_a15 VARCHAR2
24 , p5_a16 VARCHAR2
25 , p5_a17 VARCHAR2
26 , p5_a18 VARCHAR2
27 , p5_a19 VARCHAR2
28 , p5_a20 VARCHAR2
29 , p5_a21 VARCHAR2
30 , p5_a22 VARCHAR2
31 , p5_a23 VARCHAR2
32 , p5_a24 VARCHAR2
33 , p5_a25 VARCHAR2
34 , p5_a26 VARCHAR2
35 , p5_a27 VARCHAR2
36 , p5_a28 VARCHAR2
37 , p5_a29 VARCHAR2
38 , p5_a30 VARCHAR2
39 , p5_a31 NUMBER
40 , p5_a32 DATE
41 , p5_a33 NUMBER
42 , p5_a34 DATE
43 , p5_a35 NUMBER
44 , p6_a0 out nocopy NUMBER
45 , p6_a1 out nocopy NUMBER
46 , p6_a2 out nocopy NUMBER
47 , p6_a3 out nocopy NUMBER
48 , p6_a4 out nocopy NUMBER
49 , p6_a5 out nocopy VARCHAR2
50 , p6_a6 out nocopy NUMBER
51 , p6_a7 out nocopy VARCHAR2
52 , p6_a8 out nocopy VARCHAR2
53 , p6_a9 out nocopy NUMBER
54 , p6_a10 out nocopy VARCHAR2
55 , p6_a11 out nocopy VARCHAR2
56 , p6_a12 out nocopy VARCHAR2
57 , p6_a13 out nocopy VARCHAR2
58 , p6_a14 out nocopy VARCHAR2
59 , p6_a15 out nocopy VARCHAR2
60 , p6_a16 out nocopy VARCHAR2
61 , p6_a17 out nocopy VARCHAR2
62 , p6_a18 out nocopy VARCHAR2
63 , p6_a19 out nocopy VARCHAR2
64 , p6_a20 out nocopy VARCHAR2
65 , p6_a21 out nocopy VARCHAR2
66 , p6_a22 out nocopy VARCHAR2
67 , p6_a23 out nocopy VARCHAR2
68 , p6_a24 out nocopy VARCHAR2
69 , p6_a25 out nocopy VARCHAR2
70 , p6_a26 out nocopy VARCHAR2
71 , p6_a27 out nocopy VARCHAR2
72 , p6_a28 out nocopy VARCHAR2
73 , p6_a29 out nocopy VARCHAR2
74 , p6_a30 out nocopy VARCHAR2
75 , p6_a31 out nocopy NUMBER
76 , p6_a32 out nocopy DATE
77 , p6_a33 out nocopy NUMBER
78 , p6_a34 out nocopy DATE
79 , p6_a35 out nocopy NUMBER
80 )
81
82 as
83 ddp_catv_rec okl_vp_k_article_pub.catv_rec_type;
84 ddx_catv_rec okl_vp_k_article_pub.catv_rec_type;
85 ddindx binary_integer; indx binary_integer;
86 begin
87
88 -- copy data to the local IN or IN-OUT args, if any
89
90
91
92
93
94 ddp_catv_rec.id := p5_a0;
95 ddp_catv_rec.chr_id := p5_a1;
96 ddp_catv_rec.cle_id := p5_a2;
97 ddp_catv_rec.cat_id := p5_a3;
98 ddp_catv_rec.object_version_number := p5_a4;
99 ddp_catv_rec.sfwt_flag := p5_a5;
100 ddp_catv_rec.sav_sae_id := p5_a6;
101 ddp_catv_rec.sav_sav_release := p5_a7;
102 ddp_catv_rec.sbt_code := p5_a8;
103 ddp_catv_rec.dnz_chr_id := p5_a9;
104 ddp_catv_rec.comments := p5_a10;
105 ddp_catv_rec.fulltext_yn := p5_a11;
106 ddp_catv_rec.variation_description := p5_a12;
107 ddp_catv_rec.name := p5_a13;
108 ddp_catv_rec.attribute_category := p5_a14;
109 ddp_catv_rec.attribute1 := p5_a15;
110 ddp_catv_rec.attribute2 := p5_a16;
111 ddp_catv_rec.attribute3 := p5_a17;
112 ddp_catv_rec.attribute4 := p5_a18;
113 ddp_catv_rec.attribute5 := p5_a19;
114 ddp_catv_rec.attribute6 := p5_a20;
115 ddp_catv_rec.attribute7 := p5_a21;
116 ddp_catv_rec.attribute8 := p5_a22;
117 ddp_catv_rec.attribute9 := p5_a23;
118 ddp_catv_rec.attribute10 := p5_a24;
119 ddp_catv_rec.attribute11 := p5_a25;
120 ddp_catv_rec.attribute12 := p5_a26;
121 ddp_catv_rec.attribute13 := p5_a27;
122 ddp_catv_rec.attribute14 := p5_a28;
123 ddp_catv_rec.attribute15 := p5_a29;
124 ddp_catv_rec.cat_type := p5_a30;
125 ddp_catv_rec.created_by := p5_a31;
126 ddp_catv_rec.creation_date := p5_a32;
127 ddp_catv_rec.last_updated_by := p5_a33;
128 ddp_catv_rec.last_update_date := p5_a34;
129 ddp_catv_rec.last_update_login := p5_a35;
130
131
132 -- here's the delegated call to the old PL/SQL routine
133 okl_vp_k_article_pub.create_k_article(p_api_version,
134 p_init_msg_list,
135 x_return_status,
136 x_msg_count,
137 x_msg_data,
138 ddp_catv_rec,
139 ddx_catv_rec);
140
141 -- copy data back from the local variables to OUT or IN-OUT args, if any
142
143
144
145
146
147
148 p6_a0 := ddx_catv_rec.id;
149 p6_a1 := ddx_catv_rec.chr_id;
150 p6_a2 := ddx_catv_rec.cle_id;
151 p6_a3 := ddx_catv_rec.cat_id;
152 p6_a4 := ddx_catv_rec.object_version_number;
153 p6_a5 := ddx_catv_rec.sfwt_flag;
154 p6_a6 := ddx_catv_rec.sav_sae_id;
155 p6_a7 := ddx_catv_rec.sav_sav_release;
156 p6_a8 := ddx_catv_rec.sbt_code;
157 p6_a9 := ddx_catv_rec.dnz_chr_id;
158 p6_a10 := ddx_catv_rec.comments;
159 p6_a11 := ddx_catv_rec.fulltext_yn;
160 p6_a12 := ddx_catv_rec.variation_description;
161 p6_a13 := ddx_catv_rec.name;
162 p6_a14 := ddx_catv_rec.attribute_category;
163 p6_a15 := ddx_catv_rec.attribute1;
164 p6_a16 := ddx_catv_rec.attribute2;
165 p6_a17 := ddx_catv_rec.attribute3;
166 p6_a18 := ddx_catv_rec.attribute4;
167 p6_a19 := ddx_catv_rec.attribute5;
168 p6_a20 := ddx_catv_rec.attribute6;
169 p6_a21 := ddx_catv_rec.attribute7;
170 p6_a22 := ddx_catv_rec.attribute8;
171 p6_a23 := ddx_catv_rec.attribute9;
172 p6_a24 := ddx_catv_rec.attribute10;
173 p6_a25 := ddx_catv_rec.attribute11;
174 p6_a26 := ddx_catv_rec.attribute12;
175 p6_a27 := ddx_catv_rec.attribute13;
176 p6_a28 := ddx_catv_rec.attribute14;
177 p6_a29 := ddx_catv_rec.attribute15;
178 p6_a30 := ddx_catv_rec.cat_type;
179 p6_a31 := ddx_catv_rec.created_by;
180 p6_a32 := ddx_catv_rec.creation_date;
181 p6_a33 := ddx_catv_rec.last_updated_by;
182 p6_a34 := ddx_catv_rec.last_update_date;
183 p6_a35 := ddx_catv_rec.last_update_login;
184 end;
185
186 procedure update_k_article(p_api_version NUMBER
187 , p_init_msg_list VARCHAR2
188 , x_return_status out nocopy VARCHAR2
189 , x_msg_count out nocopy NUMBER
190 , x_msg_data out nocopy VARCHAR2
191 , p5_a0 NUMBER
192 , p5_a1 NUMBER
193 , p5_a2 NUMBER
194 , p5_a3 NUMBER
195 , p5_a4 NUMBER
196 , p5_a5 VARCHAR2
197 , p5_a6 NUMBER
198 , p5_a7 VARCHAR2
199 , p5_a8 VARCHAR2
200 , p5_a9 NUMBER
201 , p5_a10 VARCHAR2
202 , p5_a11 VARCHAR2
203 , p5_a12 VARCHAR2
204 , p5_a13 VARCHAR2
205 , p5_a14 VARCHAR2
206 , p5_a15 VARCHAR2
207 , p5_a16 VARCHAR2
208 , p5_a17 VARCHAR2
209 , p5_a18 VARCHAR2
210 , p5_a19 VARCHAR2
211 , p5_a20 VARCHAR2
212 , p5_a21 VARCHAR2
213 , p5_a22 VARCHAR2
214 , p5_a23 VARCHAR2
215 , p5_a24 VARCHAR2
216 , p5_a25 VARCHAR2
217 , p5_a26 VARCHAR2
218 , p5_a27 VARCHAR2
219 , p5_a28 VARCHAR2
220 , p5_a29 VARCHAR2
221 , p5_a30 VARCHAR2
222 , p5_a31 NUMBER
223 , p5_a32 DATE
224 , p5_a33 NUMBER
225 , p5_a34 DATE
226 , p5_a35 NUMBER
227 , p6_a0 out nocopy NUMBER
228 , p6_a1 out nocopy NUMBER
229 , p6_a2 out nocopy NUMBER
230 , p6_a3 out nocopy NUMBER
231 , p6_a4 out nocopy NUMBER
232 , p6_a5 out nocopy VARCHAR2
233 , p6_a6 out nocopy NUMBER
234 , p6_a7 out nocopy VARCHAR2
235 , p6_a8 out nocopy VARCHAR2
236 , p6_a9 out nocopy NUMBER
237 , p6_a10 out nocopy VARCHAR2
238 , p6_a11 out nocopy VARCHAR2
239 , p6_a12 out nocopy VARCHAR2
240 , p6_a13 out nocopy VARCHAR2
241 , p6_a14 out nocopy VARCHAR2
242 , p6_a15 out nocopy VARCHAR2
243 , p6_a16 out nocopy VARCHAR2
244 , p6_a17 out nocopy VARCHAR2
245 , p6_a18 out nocopy VARCHAR2
246 , p6_a19 out nocopy VARCHAR2
247 , p6_a20 out nocopy VARCHAR2
248 , p6_a21 out nocopy VARCHAR2
249 , p6_a22 out nocopy VARCHAR2
250 , p6_a23 out nocopy VARCHAR2
251 , p6_a24 out nocopy VARCHAR2
252 , p6_a25 out nocopy VARCHAR2
253 , p6_a26 out nocopy VARCHAR2
254 , p6_a27 out nocopy VARCHAR2
255 , p6_a28 out nocopy VARCHAR2
256 , p6_a29 out nocopy VARCHAR2
257 , p6_a30 out nocopy VARCHAR2
258 , p6_a31 out nocopy NUMBER
259 , p6_a32 out nocopy DATE
260 , p6_a33 out nocopy NUMBER
261 , p6_a34 out nocopy DATE
262 , p6_a35 out nocopy NUMBER
263 )
264
265 as
266 ddp_catv_rec okl_vp_k_article_pub.catv_rec_type;
267 ddx_catv_rec okl_vp_k_article_pub.catv_rec_type;
268 ddindx binary_integer; indx binary_integer;
269 begin
270
271 -- copy data to the local IN or IN-OUT args, if any
272
273
274
275
276
277 ddp_catv_rec.id := p5_a0;
278 ddp_catv_rec.chr_id := p5_a1;
279 ddp_catv_rec.cle_id := p5_a2;
280 ddp_catv_rec.cat_id := p5_a3;
281 ddp_catv_rec.object_version_number := p5_a4;
282 ddp_catv_rec.sfwt_flag := p5_a5;
283 ddp_catv_rec.sav_sae_id := p5_a6;
284 ddp_catv_rec.sav_sav_release := p5_a7;
285 ddp_catv_rec.sbt_code := p5_a8;
286 ddp_catv_rec.dnz_chr_id := p5_a9;
287 ddp_catv_rec.comments := p5_a10;
288 ddp_catv_rec.fulltext_yn := p5_a11;
289 ddp_catv_rec.variation_description := p5_a12;
290 ddp_catv_rec.name := p5_a13;
291 ddp_catv_rec.attribute_category := p5_a14;
292 ddp_catv_rec.attribute1 := p5_a15;
293 ddp_catv_rec.attribute2 := p5_a16;
294 ddp_catv_rec.attribute3 := p5_a17;
295 ddp_catv_rec.attribute4 := p5_a18;
296 ddp_catv_rec.attribute5 := p5_a19;
297 ddp_catv_rec.attribute6 := p5_a20;
298 ddp_catv_rec.attribute7 := p5_a21;
299 ddp_catv_rec.attribute8 := p5_a22;
300 ddp_catv_rec.attribute9 := p5_a23;
301 ddp_catv_rec.attribute10 := p5_a24;
302 ddp_catv_rec.attribute11 := p5_a25;
303 ddp_catv_rec.attribute12 := p5_a26;
304 ddp_catv_rec.attribute13 := p5_a27;
305 ddp_catv_rec.attribute14 := p5_a28;
306 ddp_catv_rec.attribute15 := p5_a29;
307 ddp_catv_rec.cat_type := p5_a30;
308 ddp_catv_rec.created_by := p5_a31;
309 ddp_catv_rec.creation_date := p5_a32;
310 ddp_catv_rec.last_updated_by := p5_a33;
311 ddp_catv_rec.last_update_date := p5_a34;
312 ddp_catv_rec.last_update_login := p5_a35;
313
314
315 -- here's the delegated call to the old PL/SQL routine
316 okl_vp_k_article_pub.update_k_article(p_api_version,
317 p_init_msg_list,
318 x_return_status,
319 x_msg_count,
320 x_msg_data,
321 ddp_catv_rec,
322 ddx_catv_rec);
323
324 -- copy data back from the local variables to OUT or IN-OUT args, if any
325
326
327
328
329
330
331 p6_a0 := ddx_catv_rec.id;
332 p6_a1 := ddx_catv_rec.chr_id;
333 p6_a2 := ddx_catv_rec.cle_id;
334 p6_a3 := ddx_catv_rec.cat_id;
335 p6_a4 := ddx_catv_rec.object_version_number;
336 p6_a5 := ddx_catv_rec.sfwt_flag;
337 p6_a6 := ddx_catv_rec.sav_sae_id;
338 p6_a7 := ddx_catv_rec.sav_sav_release;
339 p6_a8 := ddx_catv_rec.sbt_code;
340 p6_a9 := ddx_catv_rec.dnz_chr_id;
341 p6_a10 := ddx_catv_rec.comments;
342 p6_a11 := ddx_catv_rec.fulltext_yn;
343 p6_a12 := ddx_catv_rec.variation_description;
344 p6_a13 := ddx_catv_rec.name;
345 p6_a14 := ddx_catv_rec.attribute_category;
346 p6_a15 := ddx_catv_rec.attribute1;
347 p6_a16 := ddx_catv_rec.attribute2;
348 p6_a17 := ddx_catv_rec.attribute3;
349 p6_a18 := ddx_catv_rec.attribute4;
350 p6_a19 := ddx_catv_rec.attribute5;
351 p6_a20 := ddx_catv_rec.attribute6;
352 p6_a21 := ddx_catv_rec.attribute7;
353 p6_a22 := ddx_catv_rec.attribute8;
354 p6_a23 := ddx_catv_rec.attribute9;
355 p6_a24 := ddx_catv_rec.attribute10;
356 p6_a25 := ddx_catv_rec.attribute11;
357 p6_a26 := ddx_catv_rec.attribute12;
358 p6_a27 := ddx_catv_rec.attribute13;
359 p6_a28 := ddx_catv_rec.attribute14;
360 p6_a29 := ddx_catv_rec.attribute15;
361 p6_a30 := ddx_catv_rec.cat_type;
362 p6_a31 := ddx_catv_rec.created_by;
363 p6_a32 := ddx_catv_rec.creation_date;
364 p6_a33 := ddx_catv_rec.last_updated_by;
365 p6_a34 := ddx_catv_rec.last_update_date;
366 p6_a35 := ddx_catv_rec.last_update_login;
367 end;
368
369 procedure delete_k_article(p_api_version NUMBER
370 , p_init_msg_list VARCHAR2
371 , x_return_status out nocopy VARCHAR2
372 , x_msg_count out nocopy NUMBER
373 , x_msg_data out nocopy VARCHAR2
374 , p5_a0 NUMBER
375 , p5_a1 NUMBER
376 , p5_a2 NUMBER
377 , p5_a3 NUMBER
378 , p5_a4 NUMBER
379 , p5_a5 VARCHAR2
380 , p5_a6 NUMBER
381 , p5_a7 VARCHAR2
382 , p5_a8 VARCHAR2
383 , p5_a9 NUMBER
384 , p5_a10 VARCHAR2
385 , p5_a11 VARCHAR2
386 , p5_a12 VARCHAR2
387 , p5_a13 VARCHAR2
388 , p5_a14 VARCHAR2
389 , p5_a15 VARCHAR2
390 , p5_a16 VARCHAR2
391 , p5_a17 VARCHAR2
392 , p5_a18 VARCHAR2
393 , p5_a19 VARCHAR2
394 , p5_a20 VARCHAR2
395 , p5_a21 VARCHAR2
396 , p5_a22 VARCHAR2
397 , p5_a23 VARCHAR2
398 , p5_a24 VARCHAR2
399 , p5_a25 VARCHAR2
400 , p5_a26 VARCHAR2
401 , p5_a27 VARCHAR2
402 , p5_a28 VARCHAR2
403 , p5_a29 VARCHAR2
404 , p5_a30 VARCHAR2
405 , p5_a31 NUMBER
406 , p5_a32 DATE
407 , p5_a33 NUMBER
408 , p5_a34 DATE
409 , p5_a35 NUMBER
410 )
411
412 as
413 ddp_catv_rec okl_vp_k_article_pub.catv_rec_type;
414 ddindx binary_integer; indx binary_integer;
415 begin
416
417 -- copy data to the local IN or IN-OUT args, if any
418
419
420
421
422
423 ddp_catv_rec.id := p5_a0;
424 ddp_catv_rec.chr_id := p5_a1;
425 ddp_catv_rec.cle_id := p5_a2;
426 ddp_catv_rec.cat_id := p5_a3;
427 ddp_catv_rec.object_version_number := p5_a4;
428 ddp_catv_rec.sfwt_flag := p5_a5;
429 ddp_catv_rec.sav_sae_id := p5_a6;
430 ddp_catv_rec.sav_sav_release := p5_a7;
431 ddp_catv_rec.sbt_code := p5_a8;
432 ddp_catv_rec.dnz_chr_id := p5_a9;
433 ddp_catv_rec.comments := p5_a10;
434 ddp_catv_rec.fulltext_yn := p5_a11;
435 ddp_catv_rec.variation_description := p5_a12;
436 ddp_catv_rec.name := p5_a13;
437 ddp_catv_rec.attribute_category := p5_a14;
438 ddp_catv_rec.attribute1 := p5_a15;
439 ddp_catv_rec.attribute2 := p5_a16;
440 ddp_catv_rec.attribute3 := p5_a17;
441 ddp_catv_rec.attribute4 := p5_a18;
442 ddp_catv_rec.attribute5 := p5_a19;
443 ddp_catv_rec.attribute6 := p5_a20;
444 ddp_catv_rec.attribute7 := p5_a21;
445 ddp_catv_rec.attribute8 := p5_a22;
446 ddp_catv_rec.attribute9 := p5_a23;
447 ddp_catv_rec.attribute10 := p5_a24;
448 ddp_catv_rec.attribute11 := p5_a25;
449 ddp_catv_rec.attribute12 := p5_a26;
450 ddp_catv_rec.attribute13 := p5_a27;
451 ddp_catv_rec.attribute14 := p5_a28;
452 ddp_catv_rec.attribute15 := p5_a29;
453 ddp_catv_rec.cat_type := p5_a30;
454 ddp_catv_rec.created_by := p5_a31;
455 ddp_catv_rec.creation_date := p5_a32;
456 ddp_catv_rec.last_updated_by := p5_a33;
457 ddp_catv_rec.last_update_date := p5_a34;
458 ddp_catv_rec.last_update_login := p5_a35;
459
460 -- here's the delegated call to the old PL/SQL routine
461 okl_vp_k_article_pub.delete_k_article(p_api_version,
462 p_init_msg_list,
463 x_return_status,
464 x_msg_count,
465 x_msg_data,
466 ddp_catv_rec);
467
468 -- copy data back from the local variables to OUT or IN-OUT args, if any
469
470
471
472
473
474 end;
475
476 procedure create_k_article(p_api_version NUMBER
477 , p_init_msg_list VARCHAR2
478 , x_return_status out nocopy VARCHAR2
479 , x_msg_count out nocopy NUMBER
480 , x_msg_data out nocopy VARCHAR2
481 , p5_a0 JTF_NUMBER_TABLE
482 , p5_a1 JTF_NUMBER_TABLE
483 , p5_a2 JTF_NUMBER_TABLE
484 , p5_a3 JTF_NUMBER_TABLE
485 , p5_a4 JTF_NUMBER_TABLE
486 , p5_a5 JTF_VARCHAR2_TABLE_100
487 , p5_a6 JTF_NUMBER_TABLE
488 , p5_a7 JTF_VARCHAR2_TABLE_200
489 , p5_a8 JTF_VARCHAR2_TABLE_100
490 , p5_a9 JTF_NUMBER_TABLE
491 , p5_a10 JTF_VARCHAR2_TABLE_2000
492 , p5_a11 JTF_VARCHAR2_TABLE_100
493 , p5_a12 JTF_VARCHAR2_TABLE_300
494 , p5_a13 JTF_VARCHAR2_TABLE_200
495 , p5_a14 JTF_VARCHAR2_TABLE_100
496 , p5_a15 JTF_VARCHAR2_TABLE_500
497 , p5_a16 JTF_VARCHAR2_TABLE_500
498 , p5_a17 JTF_VARCHAR2_TABLE_500
499 , p5_a18 JTF_VARCHAR2_TABLE_500
500 , p5_a19 JTF_VARCHAR2_TABLE_500
501 , p5_a20 JTF_VARCHAR2_TABLE_500
502 , p5_a21 JTF_VARCHAR2_TABLE_500
503 , p5_a22 JTF_VARCHAR2_TABLE_500
504 , p5_a23 JTF_VARCHAR2_TABLE_500
505 , p5_a24 JTF_VARCHAR2_TABLE_500
506 , p5_a25 JTF_VARCHAR2_TABLE_500
507 , p5_a26 JTF_VARCHAR2_TABLE_500
508 , p5_a27 JTF_VARCHAR2_TABLE_500
509 , p5_a28 JTF_VARCHAR2_TABLE_500
510 , p5_a29 JTF_VARCHAR2_TABLE_500
511 , p5_a30 JTF_VARCHAR2_TABLE_100
512 , p5_a31 JTF_NUMBER_TABLE
513 , p5_a32 JTF_DATE_TABLE
514 , p5_a33 JTF_NUMBER_TABLE
515 , p5_a34 JTF_DATE_TABLE
516 , p5_a35 JTF_NUMBER_TABLE
517 , p6_a0 out nocopy JTF_NUMBER_TABLE
518 , p6_a1 out nocopy JTF_NUMBER_TABLE
519 , p6_a2 out nocopy JTF_NUMBER_TABLE
520 , p6_a3 out nocopy JTF_NUMBER_TABLE
521 , p6_a4 out nocopy JTF_NUMBER_TABLE
522 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
523 , p6_a6 out nocopy JTF_NUMBER_TABLE
524 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
525 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
526 , p6_a9 out nocopy JTF_NUMBER_TABLE
527 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
528 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
529 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_300
530 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_200
531 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
532 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
533 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
534 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
535 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
536 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
537 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
538 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
539 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
540 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
541 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
542 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
543 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
544 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
545 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
546 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
547 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
548 , p6_a31 out nocopy JTF_NUMBER_TABLE
549 , p6_a32 out nocopy JTF_DATE_TABLE
550 , p6_a33 out nocopy JTF_NUMBER_TABLE
551 , p6_a34 out nocopy JTF_DATE_TABLE
552 , p6_a35 out nocopy JTF_NUMBER_TABLE
553 )
554
555 as
556 ddp_catv_tbl okl_vp_k_article_pub.catv_tbl_type;
557 ddx_catv_tbl okl_vp_k_article_pub.catv_tbl_type;
558 ddindx binary_integer; indx binary_integer;
559 begin
560
561 -- copy data to the local IN or IN-OUT args, if any
562
563
564
565
566
567 okl_okc_migration_a_pvt_w.rosetta_table_copy_in_p3(ddp_catv_tbl, p5_a0
568 , p5_a1
569 , p5_a2
570 , p5_a3
571 , p5_a4
572 , p5_a5
573 , p5_a6
574 , p5_a7
575 , p5_a8
576 , p5_a9
577 , p5_a10
578 , p5_a11
579 , p5_a12
580 , p5_a13
581 , p5_a14
582 , p5_a15
583 , p5_a16
584 , p5_a17
585 , p5_a18
586 , p5_a19
587 , p5_a20
588 , p5_a21
589 , p5_a22
590 , p5_a23
591 , p5_a24
592 , p5_a25
593 , p5_a26
594 , p5_a27
595 , p5_a28
596 , p5_a29
597 , p5_a30
598 , p5_a31
599 , p5_a32
600 , p5_a33
601 , p5_a34
602 , p5_a35
603 );
604
605
606 -- here's the delegated call to the old PL/SQL routine
607 okl_vp_k_article_pub.create_k_article(p_api_version,
608 p_init_msg_list,
609 x_return_status,
610 x_msg_count,
611 x_msg_data,
612 ddp_catv_tbl,
613 ddx_catv_tbl);
614
615 -- copy data back from the local variables to OUT or IN-OUT args, if any
616
617
618
619
620
621
622 okl_okc_migration_a_pvt_w.rosetta_table_copy_out_p3(ddx_catv_tbl, p6_a0
623 , p6_a1
624 , p6_a2
625 , p6_a3
626 , p6_a4
627 , p6_a5
628 , p6_a6
629 , p6_a7
630 , p6_a8
631 , p6_a9
632 , p6_a10
633 , p6_a11
634 , p6_a12
635 , p6_a13
636 , p6_a14
637 , p6_a15
638 , p6_a16
639 , p6_a17
640 , p6_a18
641 , p6_a19
642 , p6_a20
643 , p6_a21
644 , p6_a22
645 , p6_a23
646 , p6_a24
647 , p6_a25
648 , p6_a26
649 , p6_a27
650 , p6_a28
651 , p6_a29
652 , p6_a30
653 , p6_a31
654 , p6_a32
655 , p6_a33
656 , p6_a34
657 , p6_a35
658 );
659 end;
660
661 procedure update_k_article(p_api_version NUMBER
662 , p_init_msg_list VARCHAR2
663 , x_return_status out nocopy VARCHAR2
664 , x_msg_count out nocopy NUMBER
665 , x_msg_data out nocopy VARCHAR2
666 , p5_a0 JTF_NUMBER_TABLE
667 , p5_a1 JTF_NUMBER_TABLE
668 , p5_a2 JTF_NUMBER_TABLE
669 , p5_a3 JTF_NUMBER_TABLE
670 , p5_a4 JTF_NUMBER_TABLE
671 , p5_a5 JTF_VARCHAR2_TABLE_100
672 , p5_a6 JTF_NUMBER_TABLE
673 , p5_a7 JTF_VARCHAR2_TABLE_200
674 , p5_a8 JTF_VARCHAR2_TABLE_100
675 , p5_a9 JTF_NUMBER_TABLE
676 , p5_a10 JTF_VARCHAR2_TABLE_2000
677 , p5_a11 JTF_VARCHAR2_TABLE_100
678 , p5_a12 JTF_VARCHAR2_TABLE_300
679 , p5_a13 JTF_VARCHAR2_TABLE_200
680 , p5_a14 JTF_VARCHAR2_TABLE_100
681 , p5_a15 JTF_VARCHAR2_TABLE_500
682 , p5_a16 JTF_VARCHAR2_TABLE_500
683 , p5_a17 JTF_VARCHAR2_TABLE_500
684 , p5_a18 JTF_VARCHAR2_TABLE_500
685 , p5_a19 JTF_VARCHAR2_TABLE_500
686 , p5_a20 JTF_VARCHAR2_TABLE_500
687 , p5_a21 JTF_VARCHAR2_TABLE_500
688 , p5_a22 JTF_VARCHAR2_TABLE_500
689 , p5_a23 JTF_VARCHAR2_TABLE_500
690 , p5_a24 JTF_VARCHAR2_TABLE_500
691 , p5_a25 JTF_VARCHAR2_TABLE_500
692 , p5_a26 JTF_VARCHAR2_TABLE_500
693 , p5_a27 JTF_VARCHAR2_TABLE_500
694 , p5_a28 JTF_VARCHAR2_TABLE_500
695 , p5_a29 JTF_VARCHAR2_TABLE_500
696 , p5_a30 JTF_VARCHAR2_TABLE_100
697 , p5_a31 JTF_NUMBER_TABLE
698 , p5_a32 JTF_DATE_TABLE
699 , p5_a33 JTF_NUMBER_TABLE
700 , p5_a34 JTF_DATE_TABLE
701 , p5_a35 JTF_NUMBER_TABLE
702 , p6_a0 out nocopy JTF_NUMBER_TABLE
703 , p6_a1 out nocopy JTF_NUMBER_TABLE
704 , p6_a2 out nocopy JTF_NUMBER_TABLE
705 , p6_a3 out nocopy JTF_NUMBER_TABLE
706 , p6_a4 out nocopy JTF_NUMBER_TABLE
707 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
708 , p6_a6 out nocopy JTF_NUMBER_TABLE
709 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
710 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
711 , p6_a9 out nocopy JTF_NUMBER_TABLE
712 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
713 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
714 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_300
715 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_200
716 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
717 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
718 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
719 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
720 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
721 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
722 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
723 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
724 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
725 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
726 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
727 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
728 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
729 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
730 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
731 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
732 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
733 , p6_a31 out nocopy JTF_NUMBER_TABLE
734 , p6_a32 out nocopy JTF_DATE_TABLE
735 , p6_a33 out nocopy JTF_NUMBER_TABLE
736 , p6_a34 out nocopy JTF_DATE_TABLE
737 , p6_a35 out nocopy JTF_NUMBER_TABLE
738 )
739
740 as
741 ddp_catv_tbl okl_vp_k_article_pub.catv_tbl_type;
742 ddx_catv_tbl okl_vp_k_article_pub.catv_tbl_type;
743 ddindx binary_integer; indx binary_integer;
744 begin
745
746 -- copy data to the local IN or IN-OUT args, if any
747
748
749
750
751
752 okl_okc_migration_a_pvt_w.rosetta_table_copy_in_p3(ddp_catv_tbl, p5_a0
753 , p5_a1
754 , p5_a2
755 , p5_a3
756 , p5_a4
757 , p5_a5
758 , p5_a6
759 , p5_a7
760 , p5_a8
761 , p5_a9
762 , p5_a10
763 , p5_a11
764 , p5_a12
765 , p5_a13
766 , p5_a14
767 , p5_a15
768 , p5_a16
769 , p5_a17
770 , p5_a18
771 , p5_a19
772 , p5_a20
773 , p5_a21
774 , p5_a22
775 , p5_a23
776 , p5_a24
777 , p5_a25
778 , p5_a26
779 , p5_a27
780 , p5_a28
781 , p5_a29
782 , p5_a30
783 , p5_a31
784 , p5_a32
785 , p5_a33
786 , p5_a34
787 , p5_a35
788 );
789
790
791 -- here's the delegated call to the old PL/SQL routine
792 okl_vp_k_article_pub.update_k_article(p_api_version,
793 p_init_msg_list,
794 x_return_status,
795 x_msg_count,
796 x_msg_data,
797 ddp_catv_tbl,
798 ddx_catv_tbl);
799
800 -- copy data back from the local variables to OUT or IN-OUT args, if any
801
802
803
804
805
806
807 okl_okc_migration_a_pvt_w.rosetta_table_copy_out_p3(ddx_catv_tbl, p6_a0
808 , p6_a1
809 , p6_a2
810 , p6_a3
811 , p6_a4
812 , p6_a5
813 , p6_a6
814 , p6_a7
815 , p6_a8
816 , p6_a9
817 , p6_a10
818 , p6_a11
819 , p6_a12
820 , p6_a13
821 , p6_a14
822 , p6_a15
823 , p6_a16
824 , p6_a17
825 , p6_a18
826 , p6_a19
827 , p6_a20
828 , p6_a21
829 , p6_a22
830 , p6_a23
831 , p6_a24
832 , p6_a25
833 , p6_a26
834 , p6_a27
835 , p6_a28
836 , p6_a29
837 , p6_a30
838 , p6_a31
839 , p6_a32
840 , p6_a33
841 , p6_a34
842 , p6_a35
843 );
844 end;
845
846 procedure delete_k_article(p_api_version NUMBER
847 , p_init_msg_list VARCHAR2
848 , x_return_status out nocopy VARCHAR2
849 , x_msg_count out nocopy NUMBER
850 , x_msg_data out nocopy VARCHAR2
851 , p5_a0 JTF_NUMBER_TABLE
852 , p5_a1 JTF_NUMBER_TABLE
853 , p5_a2 JTF_NUMBER_TABLE
854 , p5_a3 JTF_NUMBER_TABLE
855 , p5_a4 JTF_NUMBER_TABLE
856 , p5_a5 JTF_VARCHAR2_TABLE_100
857 , p5_a6 JTF_NUMBER_TABLE
858 , p5_a7 JTF_VARCHAR2_TABLE_200
859 , p5_a8 JTF_VARCHAR2_TABLE_100
860 , p5_a9 JTF_NUMBER_TABLE
861 , p5_a10 JTF_VARCHAR2_TABLE_2000
862 , p5_a11 JTF_VARCHAR2_TABLE_100
863 , p5_a12 JTF_VARCHAR2_TABLE_300
864 , p5_a13 JTF_VARCHAR2_TABLE_200
865 , p5_a14 JTF_VARCHAR2_TABLE_100
866 , p5_a15 JTF_VARCHAR2_TABLE_500
867 , p5_a16 JTF_VARCHAR2_TABLE_500
868 , p5_a17 JTF_VARCHAR2_TABLE_500
869 , p5_a18 JTF_VARCHAR2_TABLE_500
870 , p5_a19 JTF_VARCHAR2_TABLE_500
871 , p5_a20 JTF_VARCHAR2_TABLE_500
872 , p5_a21 JTF_VARCHAR2_TABLE_500
873 , p5_a22 JTF_VARCHAR2_TABLE_500
874 , p5_a23 JTF_VARCHAR2_TABLE_500
875 , p5_a24 JTF_VARCHAR2_TABLE_500
876 , p5_a25 JTF_VARCHAR2_TABLE_500
877 , p5_a26 JTF_VARCHAR2_TABLE_500
878 , p5_a27 JTF_VARCHAR2_TABLE_500
879 , p5_a28 JTF_VARCHAR2_TABLE_500
880 , p5_a29 JTF_VARCHAR2_TABLE_500
881 , p5_a30 JTF_VARCHAR2_TABLE_100
882 , p5_a31 JTF_NUMBER_TABLE
883 , p5_a32 JTF_DATE_TABLE
884 , p5_a33 JTF_NUMBER_TABLE
885 , p5_a34 JTF_DATE_TABLE
886 , p5_a35 JTF_NUMBER_TABLE
887 )
888
889 as
890 ddp_catv_tbl okl_vp_k_article_pub.catv_tbl_type;
891 ddindx binary_integer; indx binary_integer;
892 begin
893
894 -- copy data to the local IN or IN-OUT args, if any
895
896
897
898
899
900 okl_okc_migration_a_pvt_w.rosetta_table_copy_in_p3(ddp_catv_tbl, p5_a0
901 , p5_a1
902 , p5_a2
903 , p5_a3
904 , p5_a4
905 , p5_a5
906 , p5_a6
907 , p5_a7
908 , p5_a8
909 , p5_a9
910 , p5_a10
911 , p5_a11
912 , p5_a12
913 , p5_a13
914 , p5_a14
915 , p5_a15
916 , p5_a16
917 , p5_a17
918 , p5_a18
919 , p5_a19
920 , p5_a20
921 , p5_a21
922 , p5_a22
923 , p5_a23
924 , p5_a24
925 , p5_a25
926 , p5_a26
927 , p5_a27
928 , p5_a28
929 , p5_a29
930 , p5_a30
931 , p5_a31
932 , p5_a32
933 , p5_a33
934 , p5_a34
935 , p5_a35
936 );
937
938 -- here's the delegated call to the old PL/SQL routine
939 okl_vp_k_article_pub.delete_k_article(p_api_version,
940 p_init_msg_list,
941 x_return_status,
942 x_msg_count,
943 x_msg_data,
944 ddp_catv_tbl);
945
946 -- copy data back from the local variables to OUT or IN-OUT args, if any
947
948
949
950
951
952 end;
953
954 end okl_vp_k_article_pub_w;