[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_K_ARTICLE_PVT_W
Source
1 package body okl_vp_k_article_pvt_w as
2 /* $Header: OKLECARB.pls 120.2 2005/08/04 01:38:43 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_pvt.catv_rec_type;
84 ddx_catv_rec okl_vp_k_article_pvt.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_pvt.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_pvt.catv_rec_type;
267 ddx_catv_rec okl_vp_k_article_pvt.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_pvt.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_pvt.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_pvt.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 end okl_vp_k_article_pvt_w;