[Home] [Help]
PACKAGE BODY: APPS.OKL_ASSET_CNDTNS_PUB_W
Source
1 package body okl_asset_cndtns_pub_w as
2 /* $Header: OKLUACDB.pls 120.1 2005/07/07 13:09:32 asawanka 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 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 insert_asset_cndtns(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_VARCHAR2_TABLE_100
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_NUMBER_TABLE
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_DATE_TABLE
35 , p5_a8 JTF_VARCHAR2_TABLE_100
36 , p5_a9 JTF_VARCHAR2_TABLE_500
37 , p5_a10 JTF_VARCHAR2_TABLE_500
38 , p5_a11 JTF_VARCHAR2_TABLE_500
39 , p5_a12 JTF_VARCHAR2_TABLE_500
40 , p5_a13 JTF_VARCHAR2_TABLE_500
41 , p5_a14 JTF_VARCHAR2_TABLE_500
42 , p5_a15 JTF_VARCHAR2_TABLE_500
43 , p5_a16 JTF_VARCHAR2_TABLE_500
44 , p5_a17 JTF_VARCHAR2_TABLE_500
45 , p5_a18 JTF_VARCHAR2_TABLE_500
46 , p5_a19 JTF_VARCHAR2_TABLE_500
47 , p5_a20 JTF_VARCHAR2_TABLE_500
48 , p5_a21 JTF_VARCHAR2_TABLE_500
49 , p5_a22 JTF_VARCHAR2_TABLE_500
50 , p5_a23 JTF_VARCHAR2_TABLE_500
51 , p5_a24 JTF_NUMBER_TABLE
52 , p5_a25 JTF_NUMBER_TABLE
53 , p5_a26 JTF_NUMBER_TABLE
54 , p5_a27 JTF_NUMBER_TABLE
55 , p5_a28 JTF_DATE_TABLE
56 , p5_a29 JTF_NUMBER_TABLE
57 , p5_a30 JTF_DATE_TABLE
58 , p5_a31 JTF_NUMBER_TABLE
59 , p5_a32 JTF_DATE_TABLE
60 , p5_a33 JTF_NUMBER_TABLE
61 , p6_a0 out nocopy JTF_NUMBER_TABLE
62 , p6_a1 out nocopy JTF_NUMBER_TABLE
63 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
64 , p6_a3 out nocopy JTF_NUMBER_TABLE
65 , p6_a4 out nocopy JTF_NUMBER_TABLE
66 , p6_a5 out nocopy JTF_NUMBER_TABLE
67 , p6_a6 out nocopy JTF_NUMBER_TABLE
68 , p6_a7 out nocopy JTF_DATE_TABLE
69 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
70 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
71 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
72 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
73 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
74 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
75 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
76 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
77 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
78 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
79 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
80 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
81 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
82 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
83 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
84 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
85 , p6_a24 out nocopy JTF_NUMBER_TABLE
86 , p6_a25 out nocopy JTF_NUMBER_TABLE
87 , p6_a26 out nocopy JTF_NUMBER_TABLE
88 , p6_a27 out nocopy JTF_NUMBER_TABLE
89 , p6_a28 out nocopy JTF_DATE_TABLE
90 , p6_a29 out nocopy JTF_NUMBER_TABLE
91 , p6_a30 out nocopy JTF_DATE_TABLE
92 , p6_a31 out nocopy JTF_NUMBER_TABLE
93 , p6_a32 out nocopy JTF_DATE_TABLE
94 , p6_a33 out nocopy JTF_NUMBER_TABLE
95 )
96
97 as
98 ddp_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
99 ddx_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
100 ddindx binary_integer; indx binary_integer;
101 begin
102
103 -- copy data to the local IN or IN-OUT args, if any
104
105
106
107
108
109 okl_acd_pvt_w.rosetta_table_copy_in_p5(ddp_acdv_tbl, p5_a0
110 , p5_a1
111 , p5_a2
112 , p5_a3
113 , p5_a4
114 , p5_a5
115 , p5_a6
116 , p5_a7
117 , p5_a8
118 , p5_a9
119 , p5_a10
120 , p5_a11
121 , p5_a12
122 , p5_a13
123 , p5_a14
124 , p5_a15
125 , p5_a16
126 , p5_a17
127 , p5_a18
128 , p5_a19
129 , p5_a20
130 , p5_a21
131 , p5_a22
132 , p5_a23
133 , p5_a24
134 , p5_a25
135 , p5_a26
136 , p5_a27
137 , p5_a28
138 , p5_a29
139 , p5_a30
140 , p5_a31
141 , p5_a32
142 , p5_a33
143 );
144
145
146 -- here's the delegated call to the old PL/SQL routine
147 okl_asset_cndtns_pub.insert_asset_cndtns(p_api_version,
148 p_init_msg_list,
149 x_return_status,
150 x_msg_count,
151 x_msg_data,
152 ddp_acdv_tbl,
153 ddx_acdv_tbl);
154
155 -- copy data back from the local variables to OUT or IN-OUT args, if any
156
157
158
159
160
161
162 okl_acd_pvt_w.rosetta_table_copy_out_p5(ddx_acdv_tbl, p6_a0
163 , p6_a1
164 , p6_a2
165 , p6_a3
166 , p6_a4
167 , p6_a5
168 , p6_a6
169 , p6_a7
170 , p6_a8
171 , p6_a9
172 , p6_a10
173 , p6_a11
174 , p6_a12
175 , p6_a13
176 , p6_a14
177 , p6_a15
178 , p6_a16
179 , p6_a17
180 , p6_a18
181 , p6_a19
182 , p6_a20
183 , p6_a21
184 , p6_a22
185 , p6_a23
186 , p6_a24
187 , p6_a25
188 , p6_a26
189 , p6_a27
190 , p6_a28
191 , p6_a29
192 , p6_a30
193 , p6_a31
194 , p6_a32
195 , p6_a33
196 );
197 end;
198
199 procedure insert_asset_cndtns(p_api_version NUMBER
200 , p_init_msg_list VARCHAR2
201 , x_return_status out nocopy VARCHAR2
202 , x_msg_count out nocopy NUMBER
203 , x_msg_data out nocopy VARCHAR2
204 , p6_a0 out nocopy NUMBER
205 , p6_a1 out nocopy NUMBER
206 , p6_a2 out nocopy VARCHAR2
207 , p6_a3 out nocopy NUMBER
208 , p6_a4 out nocopy NUMBER
209 , p6_a5 out nocopy NUMBER
210 , p6_a6 out nocopy NUMBER
211 , p6_a7 out nocopy DATE
212 , p6_a8 out nocopy VARCHAR2
213 , p6_a9 out nocopy VARCHAR2
214 , p6_a10 out nocopy VARCHAR2
215 , p6_a11 out nocopy VARCHAR2
216 , p6_a12 out nocopy VARCHAR2
217 , p6_a13 out nocopy VARCHAR2
218 , p6_a14 out nocopy VARCHAR2
219 , p6_a15 out nocopy VARCHAR2
220 , p6_a16 out nocopy VARCHAR2
221 , p6_a17 out nocopy VARCHAR2
222 , p6_a18 out nocopy VARCHAR2
223 , p6_a19 out nocopy VARCHAR2
224 , p6_a20 out nocopy VARCHAR2
225 , p6_a21 out nocopy VARCHAR2
226 , p6_a22 out nocopy VARCHAR2
227 , p6_a23 out nocopy VARCHAR2
228 , p6_a24 out nocopy NUMBER
229 , p6_a25 out nocopy NUMBER
230 , p6_a26 out nocopy NUMBER
231 , p6_a27 out nocopy NUMBER
232 , p6_a28 out nocopy DATE
233 , p6_a29 out nocopy NUMBER
234 , p6_a30 out nocopy DATE
235 , p6_a31 out nocopy NUMBER
236 , p6_a32 out nocopy DATE
237 , p6_a33 out nocopy NUMBER
238 , p5_a0 NUMBER := 0-1962.0724
239 , p5_a1 NUMBER := 0-1962.0724
240 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
241 , p5_a3 NUMBER := 0-1962.0724
242 , p5_a4 NUMBER := 0-1962.0724
243 , p5_a5 NUMBER := 0-1962.0724
244 , p5_a6 NUMBER := 0-1962.0724
245 , p5_a7 DATE := fnd_api.g_miss_date
246 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
247 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
248 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
249 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
250 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
251 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
252 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
253 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
254 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
255 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
256 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
257 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
258 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
259 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
260 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
261 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
262 , p5_a24 NUMBER := 0-1962.0724
263 , p5_a25 NUMBER := 0-1962.0724
264 , p5_a26 NUMBER := 0-1962.0724
265 , p5_a27 NUMBER := 0-1962.0724
266 , p5_a28 DATE := fnd_api.g_miss_date
267 , p5_a29 NUMBER := 0-1962.0724
268 , p5_a30 DATE := fnd_api.g_miss_date
269 , p5_a31 NUMBER := 0-1962.0724
270 , p5_a32 DATE := fnd_api.g_miss_date
271 , p5_a33 NUMBER := 0-1962.0724
272 )
273
274 as
275 ddp_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
276 ddx_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
277 ddindx binary_integer; indx binary_integer;
278 begin
279
280 -- copy data to the local IN or IN-OUT args, if any
281
282
283
284
285
286 ddp_acdv_rec.id := rosetta_g_miss_num_map(p5_a0);
287 ddp_acdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
288 ddp_acdv_rec.cdn_code := p5_a2;
289 ddp_acdv_rec.iln_id := rosetta_g_miss_num_map(p5_a3);
290 ddp_acdv_rec.isp_id := rosetta_g_miss_num_map(p5_a4);
291 ddp_acdv_rec.clm_id := rosetta_g_miss_num_map(p5_a5);
292 ddp_acdv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
293 ddp_acdv_rec.date_report := rosetta_g_miss_date_in_map(p5_a7);
294 ddp_acdv_rec.attribute_category := p5_a8;
295 ddp_acdv_rec.attribute1 := p5_a9;
296 ddp_acdv_rec.attribute2 := p5_a10;
297 ddp_acdv_rec.attribute3 := p5_a11;
298 ddp_acdv_rec.attribute4 := p5_a12;
299 ddp_acdv_rec.attribute5 := p5_a13;
300 ddp_acdv_rec.attribute6 := p5_a14;
301 ddp_acdv_rec.attribute7 := p5_a15;
302 ddp_acdv_rec.attribute8 := p5_a16;
303 ddp_acdv_rec.attribute9 := p5_a17;
304 ddp_acdv_rec.attribute10 := p5_a18;
305 ddp_acdv_rec.attribute11 := p5_a19;
306 ddp_acdv_rec.attribute12 := p5_a20;
307 ddp_acdv_rec.attribute13 := p5_a21;
308 ddp_acdv_rec.attribute14 := p5_a22;
309 ddp_acdv_rec.attribute15 := p5_a23;
310 ddp_acdv_rec.org_id := rosetta_g_miss_num_map(p5_a24);
311 ddp_acdv_rec.request_id := rosetta_g_miss_num_map(p5_a25);
312 ddp_acdv_rec.program_application_id := rosetta_g_miss_num_map(p5_a26);
313 ddp_acdv_rec.program_id := rosetta_g_miss_num_map(p5_a27);
314 ddp_acdv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a28);
315 ddp_acdv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
316 ddp_acdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
317 ddp_acdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
318 ddp_acdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
319 ddp_acdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
320
321
322 -- here's the delegated call to the old PL/SQL routine
323 okl_asset_cndtns_pub.insert_asset_cndtns(p_api_version,
324 p_init_msg_list,
325 x_return_status,
326 x_msg_count,
327 x_msg_data,
328 ddp_acdv_rec,
329 ddx_acdv_rec);
330
331 -- copy data back from the local variables to OUT or IN-OUT args, if any
332
333
334
335
336
337
338 p6_a0 := rosetta_g_miss_num_map(ddx_acdv_rec.id);
339 p6_a1 := rosetta_g_miss_num_map(ddx_acdv_rec.object_version_number);
340 p6_a2 := ddx_acdv_rec.cdn_code;
341 p6_a3 := rosetta_g_miss_num_map(ddx_acdv_rec.iln_id);
342 p6_a4 := rosetta_g_miss_num_map(ddx_acdv_rec.isp_id);
343 p6_a5 := rosetta_g_miss_num_map(ddx_acdv_rec.clm_id);
344 p6_a6 := rosetta_g_miss_num_map(ddx_acdv_rec.kle_id);
345 p6_a7 := ddx_acdv_rec.date_report;
346 p6_a8 := ddx_acdv_rec.attribute_category;
347 p6_a9 := ddx_acdv_rec.attribute1;
348 p6_a10 := ddx_acdv_rec.attribute2;
349 p6_a11 := ddx_acdv_rec.attribute3;
350 p6_a12 := ddx_acdv_rec.attribute4;
351 p6_a13 := ddx_acdv_rec.attribute5;
352 p6_a14 := ddx_acdv_rec.attribute6;
353 p6_a15 := ddx_acdv_rec.attribute7;
354 p6_a16 := ddx_acdv_rec.attribute8;
355 p6_a17 := ddx_acdv_rec.attribute9;
356 p6_a18 := ddx_acdv_rec.attribute10;
357 p6_a19 := ddx_acdv_rec.attribute11;
358 p6_a20 := ddx_acdv_rec.attribute12;
359 p6_a21 := ddx_acdv_rec.attribute13;
360 p6_a22 := ddx_acdv_rec.attribute14;
361 p6_a23 := ddx_acdv_rec.attribute15;
362 p6_a24 := rosetta_g_miss_num_map(ddx_acdv_rec.org_id);
363 p6_a25 := rosetta_g_miss_num_map(ddx_acdv_rec.request_id);
364 p6_a26 := rosetta_g_miss_num_map(ddx_acdv_rec.program_application_id);
365 p6_a27 := rosetta_g_miss_num_map(ddx_acdv_rec.program_id);
366 p6_a28 := ddx_acdv_rec.program_update_date;
367 p6_a29 := rosetta_g_miss_num_map(ddx_acdv_rec.created_by);
368 p6_a30 := ddx_acdv_rec.creation_date;
369 p6_a31 := rosetta_g_miss_num_map(ddx_acdv_rec.last_updated_by);
370 p6_a32 := ddx_acdv_rec.last_update_date;
371 p6_a33 := rosetta_g_miss_num_map(ddx_acdv_rec.last_update_login);
372 end;
373
374 procedure lock_asset_cndtns(p_api_version NUMBER
375 , p_init_msg_list VARCHAR2
376 , x_return_status out nocopy VARCHAR2
377 , x_msg_count out nocopy NUMBER
378 , x_msg_data out nocopy VARCHAR2
379 , p5_a0 JTF_NUMBER_TABLE
380 , p5_a1 JTF_NUMBER_TABLE
381 , p5_a2 JTF_VARCHAR2_TABLE_100
382 , p5_a3 JTF_NUMBER_TABLE
383 , p5_a4 JTF_NUMBER_TABLE
384 , p5_a5 JTF_NUMBER_TABLE
385 , p5_a6 JTF_NUMBER_TABLE
386 , p5_a7 JTF_DATE_TABLE
387 , p5_a8 JTF_VARCHAR2_TABLE_100
388 , p5_a9 JTF_VARCHAR2_TABLE_500
389 , p5_a10 JTF_VARCHAR2_TABLE_500
390 , p5_a11 JTF_VARCHAR2_TABLE_500
391 , p5_a12 JTF_VARCHAR2_TABLE_500
392 , p5_a13 JTF_VARCHAR2_TABLE_500
393 , p5_a14 JTF_VARCHAR2_TABLE_500
394 , p5_a15 JTF_VARCHAR2_TABLE_500
395 , p5_a16 JTF_VARCHAR2_TABLE_500
396 , p5_a17 JTF_VARCHAR2_TABLE_500
397 , p5_a18 JTF_VARCHAR2_TABLE_500
398 , p5_a19 JTF_VARCHAR2_TABLE_500
399 , p5_a20 JTF_VARCHAR2_TABLE_500
400 , p5_a21 JTF_VARCHAR2_TABLE_500
401 , p5_a22 JTF_VARCHAR2_TABLE_500
402 , p5_a23 JTF_VARCHAR2_TABLE_500
403 , p5_a24 JTF_NUMBER_TABLE
404 , p5_a25 JTF_NUMBER_TABLE
405 , p5_a26 JTF_NUMBER_TABLE
406 , p5_a27 JTF_NUMBER_TABLE
407 , p5_a28 JTF_DATE_TABLE
408 , p5_a29 JTF_NUMBER_TABLE
409 , p5_a30 JTF_DATE_TABLE
410 , p5_a31 JTF_NUMBER_TABLE
411 , p5_a32 JTF_DATE_TABLE
412 , p5_a33 JTF_NUMBER_TABLE
413 )
414
415 as
416 ddp_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
417 ddindx binary_integer; indx binary_integer;
418 begin
419
420 -- copy data to the local IN or IN-OUT args, if any
421
422
423
424
425
426 okl_acd_pvt_w.rosetta_table_copy_in_p5(ddp_acdv_tbl, p5_a0
427 , p5_a1
428 , p5_a2
429 , p5_a3
430 , p5_a4
431 , p5_a5
432 , p5_a6
433 , p5_a7
434 , p5_a8
435 , p5_a9
436 , p5_a10
437 , p5_a11
438 , p5_a12
439 , p5_a13
440 , p5_a14
441 , p5_a15
442 , p5_a16
443 , p5_a17
444 , p5_a18
445 , p5_a19
446 , p5_a20
447 , p5_a21
448 , p5_a22
449 , p5_a23
450 , p5_a24
451 , p5_a25
452 , p5_a26
453 , p5_a27
454 , p5_a28
455 , p5_a29
456 , p5_a30
457 , p5_a31
458 , p5_a32
459 , p5_a33
460 );
461
462 -- here's the delegated call to the old PL/SQL routine
463 okl_asset_cndtns_pub.lock_asset_cndtns(p_api_version,
464 p_init_msg_list,
465 x_return_status,
466 x_msg_count,
467 x_msg_data,
468 ddp_acdv_tbl);
469
470 -- copy data back from the local variables to OUT or IN-OUT args, if any
471
472
473
474
475
476 end;
477
478 procedure lock_asset_cndtns(p_api_version NUMBER
479 , p_init_msg_list VARCHAR2
480 , x_return_status out nocopy VARCHAR2
481 , x_msg_count out nocopy NUMBER
482 , x_msg_data out nocopy VARCHAR2
483 , p5_a0 NUMBER := 0-1962.0724
484 , p5_a1 NUMBER := 0-1962.0724
485 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
486 , p5_a3 NUMBER := 0-1962.0724
487 , p5_a4 NUMBER := 0-1962.0724
488 , p5_a5 NUMBER := 0-1962.0724
489 , p5_a6 NUMBER := 0-1962.0724
490 , p5_a7 DATE := fnd_api.g_miss_date
491 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
492 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
493 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
494 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
495 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
496 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
497 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
498 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
499 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
500 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
501 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
502 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
503 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
504 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
505 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
506 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
507 , p5_a24 NUMBER := 0-1962.0724
508 , p5_a25 NUMBER := 0-1962.0724
509 , p5_a26 NUMBER := 0-1962.0724
510 , p5_a27 NUMBER := 0-1962.0724
511 , p5_a28 DATE := fnd_api.g_miss_date
512 , p5_a29 NUMBER := 0-1962.0724
513 , p5_a30 DATE := fnd_api.g_miss_date
514 , p5_a31 NUMBER := 0-1962.0724
515 , p5_a32 DATE := fnd_api.g_miss_date
516 , p5_a33 NUMBER := 0-1962.0724
517 )
518
519 as
520 ddp_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
521 ddindx binary_integer; indx binary_integer;
522 begin
523
524 -- copy data to the local IN or IN-OUT args, if any
525
526
527
528
529
530 ddp_acdv_rec.id := rosetta_g_miss_num_map(p5_a0);
531 ddp_acdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
532 ddp_acdv_rec.cdn_code := p5_a2;
533 ddp_acdv_rec.iln_id := rosetta_g_miss_num_map(p5_a3);
534 ddp_acdv_rec.isp_id := rosetta_g_miss_num_map(p5_a4);
535 ddp_acdv_rec.clm_id := rosetta_g_miss_num_map(p5_a5);
536 ddp_acdv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
537 ddp_acdv_rec.date_report := rosetta_g_miss_date_in_map(p5_a7);
538 ddp_acdv_rec.attribute_category := p5_a8;
539 ddp_acdv_rec.attribute1 := p5_a9;
540 ddp_acdv_rec.attribute2 := p5_a10;
541 ddp_acdv_rec.attribute3 := p5_a11;
542 ddp_acdv_rec.attribute4 := p5_a12;
543 ddp_acdv_rec.attribute5 := p5_a13;
544 ddp_acdv_rec.attribute6 := p5_a14;
545 ddp_acdv_rec.attribute7 := p5_a15;
546 ddp_acdv_rec.attribute8 := p5_a16;
547 ddp_acdv_rec.attribute9 := p5_a17;
548 ddp_acdv_rec.attribute10 := p5_a18;
549 ddp_acdv_rec.attribute11 := p5_a19;
550 ddp_acdv_rec.attribute12 := p5_a20;
551 ddp_acdv_rec.attribute13 := p5_a21;
552 ddp_acdv_rec.attribute14 := p5_a22;
553 ddp_acdv_rec.attribute15 := p5_a23;
554 ddp_acdv_rec.org_id := rosetta_g_miss_num_map(p5_a24);
555 ddp_acdv_rec.request_id := rosetta_g_miss_num_map(p5_a25);
556 ddp_acdv_rec.program_application_id := rosetta_g_miss_num_map(p5_a26);
557 ddp_acdv_rec.program_id := rosetta_g_miss_num_map(p5_a27);
558 ddp_acdv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a28);
559 ddp_acdv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
560 ddp_acdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
561 ddp_acdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
562 ddp_acdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
563 ddp_acdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
564
565 -- here's the delegated call to the old PL/SQL routine
566 okl_asset_cndtns_pub.lock_asset_cndtns(p_api_version,
567 p_init_msg_list,
568 x_return_status,
569 x_msg_count,
570 x_msg_data,
571 ddp_acdv_rec);
572
573 -- copy data back from the local variables to OUT or IN-OUT args, if any
574
575
576
577
578
579 end;
580
581 procedure update_asset_cndtns(p_api_version NUMBER
582 , p_init_msg_list VARCHAR2
583 , x_return_status out nocopy VARCHAR2
584 , x_msg_count out nocopy NUMBER
585 , x_msg_data out nocopy VARCHAR2
586 , p5_a0 JTF_NUMBER_TABLE
587 , p5_a1 JTF_NUMBER_TABLE
588 , p5_a2 JTF_VARCHAR2_TABLE_100
589 , p5_a3 JTF_NUMBER_TABLE
590 , p5_a4 JTF_NUMBER_TABLE
591 , p5_a5 JTF_NUMBER_TABLE
592 , p5_a6 JTF_NUMBER_TABLE
593 , p5_a7 JTF_DATE_TABLE
594 , p5_a8 JTF_VARCHAR2_TABLE_100
595 , p5_a9 JTF_VARCHAR2_TABLE_500
596 , p5_a10 JTF_VARCHAR2_TABLE_500
597 , p5_a11 JTF_VARCHAR2_TABLE_500
598 , p5_a12 JTF_VARCHAR2_TABLE_500
599 , p5_a13 JTF_VARCHAR2_TABLE_500
600 , p5_a14 JTF_VARCHAR2_TABLE_500
601 , p5_a15 JTF_VARCHAR2_TABLE_500
602 , p5_a16 JTF_VARCHAR2_TABLE_500
603 , p5_a17 JTF_VARCHAR2_TABLE_500
604 , p5_a18 JTF_VARCHAR2_TABLE_500
605 , p5_a19 JTF_VARCHAR2_TABLE_500
606 , p5_a20 JTF_VARCHAR2_TABLE_500
607 , p5_a21 JTF_VARCHAR2_TABLE_500
608 , p5_a22 JTF_VARCHAR2_TABLE_500
609 , p5_a23 JTF_VARCHAR2_TABLE_500
610 , p5_a24 JTF_NUMBER_TABLE
611 , p5_a25 JTF_NUMBER_TABLE
612 , p5_a26 JTF_NUMBER_TABLE
613 , p5_a27 JTF_NUMBER_TABLE
614 , p5_a28 JTF_DATE_TABLE
615 , p5_a29 JTF_NUMBER_TABLE
616 , p5_a30 JTF_DATE_TABLE
617 , p5_a31 JTF_NUMBER_TABLE
618 , p5_a32 JTF_DATE_TABLE
619 , p5_a33 JTF_NUMBER_TABLE
620 , p6_a0 out nocopy JTF_NUMBER_TABLE
621 , p6_a1 out nocopy JTF_NUMBER_TABLE
622 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
623 , p6_a3 out nocopy JTF_NUMBER_TABLE
624 , p6_a4 out nocopy JTF_NUMBER_TABLE
625 , p6_a5 out nocopy JTF_NUMBER_TABLE
626 , p6_a6 out nocopy JTF_NUMBER_TABLE
627 , p6_a7 out nocopy JTF_DATE_TABLE
628 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
629 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
630 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
631 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
632 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
633 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
634 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
635 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
636 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
637 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
638 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
639 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
640 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
641 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
642 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
643 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
644 , p6_a24 out nocopy JTF_NUMBER_TABLE
645 , p6_a25 out nocopy JTF_NUMBER_TABLE
646 , p6_a26 out nocopy JTF_NUMBER_TABLE
647 , p6_a27 out nocopy JTF_NUMBER_TABLE
648 , p6_a28 out nocopy JTF_DATE_TABLE
649 , p6_a29 out nocopy JTF_NUMBER_TABLE
650 , p6_a30 out nocopy JTF_DATE_TABLE
651 , p6_a31 out nocopy JTF_NUMBER_TABLE
652 , p6_a32 out nocopy JTF_DATE_TABLE
653 , p6_a33 out nocopy JTF_NUMBER_TABLE
654 )
655
656 as
657 ddp_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
658 ddx_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
659 ddindx binary_integer; indx binary_integer;
660 begin
661
662 -- copy data to the local IN or IN-OUT args, if any
663
664
665
666
667
668 okl_acd_pvt_w.rosetta_table_copy_in_p5(ddp_acdv_tbl, p5_a0
669 , p5_a1
670 , p5_a2
671 , p5_a3
672 , p5_a4
673 , p5_a5
674 , p5_a6
675 , p5_a7
676 , p5_a8
677 , p5_a9
678 , p5_a10
679 , p5_a11
680 , p5_a12
681 , p5_a13
682 , p5_a14
683 , p5_a15
684 , p5_a16
685 , p5_a17
686 , p5_a18
687 , p5_a19
688 , p5_a20
689 , p5_a21
690 , p5_a22
691 , p5_a23
692 , p5_a24
693 , p5_a25
694 , p5_a26
695 , p5_a27
696 , p5_a28
697 , p5_a29
698 , p5_a30
699 , p5_a31
700 , p5_a32
701 , p5_a33
702 );
703
704
705 -- here's the delegated call to the old PL/SQL routine
706 okl_asset_cndtns_pub.update_asset_cndtns(p_api_version,
707 p_init_msg_list,
708 x_return_status,
709 x_msg_count,
710 x_msg_data,
711 ddp_acdv_tbl,
712 ddx_acdv_tbl);
713
714 -- copy data back from the local variables to OUT or IN-OUT args, if any
715
716
717
718
719
720
721 okl_acd_pvt_w.rosetta_table_copy_out_p5(ddx_acdv_tbl, p6_a0
722 , p6_a1
723 , p6_a2
724 , p6_a3
725 , p6_a4
726 , p6_a5
727 , p6_a6
728 , p6_a7
729 , p6_a8
730 , p6_a9
731 , p6_a10
732 , p6_a11
733 , p6_a12
734 , p6_a13
735 , p6_a14
736 , p6_a15
737 , p6_a16
738 , p6_a17
739 , p6_a18
740 , p6_a19
741 , p6_a20
742 , p6_a21
743 , p6_a22
744 , p6_a23
745 , p6_a24
746 , p6_a25
747 , p6_a26
748 , p6_a27
749 , p6_a28
750 , p6_a29
751 , p6_a30
752 , p6_a31
753 , p6_a32
754 , p6_a33
755 );
756 end;
757
758 procedure update_asset_cndtns(p_api_version NUMBER
759 , p_init_msg_list VARCHAR2
760 , x_return_status out nocopy VARCHAR2
761 , x_msg_count out nocopy NUMBER
762 , x_msg_data out nocopy VARCHAR2
763 , p6_a0 out nocopy NUMBER
764 , p6_a1 out nocopy NUMBER
765 , p6_a2 out nocopy VARCHAR2
766 , p6_a3 out nocopy NUMBER
767 , p6_a4 out nocopy NUMBER
768 , p6_a5 out nocopy NUMBER
769 , p6_a6 out nocopy NUMBER
770 , p6_a7 out nocopy DATE
771 , p6_a8 out nocopy VARCHAR2
772 , p6_a9 out nocopy VARCHAR2
773 , p6_a10 out nocopy VARCHAR2
774 , p6_a11 out nocopy VARCHAR2
775 , p6_a12 out nocopy VARCHAR2
776 , p6_a13 out nocopy VARCHAR2
777 , p6_a14 out nocopy VARCHAR2
778 , p6_a15 out nocopy VARCHAR2
779 , p6_a16 out nocopy VARCHAR2
780 , p6_a17 out nocopy VARCHAR2
781 , p6_a18 out nocopy VARCHAR2
782 , p6_a19 out nocopy VARCHAR2
783 , p6_a20 out nocopy VARCHAR2
784 , p6_a21 out nocopy VARCHAR2
785 , p6_a22 out nocopy VARCHAR2
786 , p6_a23 out nocopy VARCHAR2
787 , p6_a24 out nocopy NUMBER
788 , p6_a25 out nocopy NUMBER
789 , p6_a26 out nocopy NUMBER
790 , p6_a27 out nocopy NUMBER
791 , p6_a28 out nocopy DATE
792 , p6_a29 out nocopy NUMBER
793 , p6_a30 out nocopy DATE
794 , p6_a31 out nocopy NUMBER
795 , p6_a32 out nocopy DATE
796 , p6_a33 out nocopy NUMBER
797 , p5_a0 NUMBER := 0-1962.0724
798 , p5_a1 NUMBER := 0-1962.0724
799 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
800 , p5_a3 NUMBER := 0-1962.0724
801 , p5_a4 NUMBER := 0-1962.0724
802 , p5_a5 NUMBER := 0-1962.0724
803 , p5_a6 NUMBER := 0-1962.0724
804 , p5_a7 DATE := fnd_api.g_miss_date
805 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
806 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
807 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
808 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
809 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
810 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
811 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
812 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
813 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
814 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
815 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
816 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
817 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
818 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
819 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
820 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
821 , p5_a24 NUMBER := 0-1962.0724
822 , p5_a25 NUMBER := 0-1962.0724
823 , p5_a26 NUMBER := 0-1962.0724
824 , p5_a27 NUMBER := 0-1962.0724
825 , p5_a28 DATE := fnd_api.g_miss_date
826 , p5_a29 NUMBER := 0-1962.0724
827 , p5_a30 DATE := fnd_api.g_miss_date
828 , p5_a31 NUMBER := 0-1962.0724
829 , p5_a32 DATE := fnd_api.g_miss_date
830 , p5_a33 NUMBER := 0-1962.0724
831 )
832
833 as
834 ddp_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
835 ddx_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
836 ddindx binary_integer; indx binary_integer;
837 begin
838
839 -- copy data to the local IN or IN-OUT args, if any
840
841
842
843
844
845 ddp_acdv_rec.id := rosetta_g_miss_num_map(p5_a0);
846 ddp_acdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
847 ddp_acdv_rec.cdn_code := p5_a2;
848 ddp_acdv_rec.iln_id := rosetta_g_miss_num_map(p5_a3);
849 ddp_acdv_rec.isp_id := rosetta_g_miss_num_map(p5_a4);
850 ddp_acdv_rec.clm_id := rosetta_g_miss_num_map(p5_a5);
851 ddp_acdv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
852 ddp_acdv_rec.date_report := rosetta_g_miss_date_in_map(p5_a7);
853 ddp_acdv_rec.attribute_category := p5_a8;
854 ddp_acdv_rec.attribute1 := p5_a9;
855 ddp_acdv_rec.attribute2 := p5_a10;
856 ddp_acdv_rec.attribute3 := p5_a11;
857 ddp_acdv_rec.attribute4 := p5_a12;
858 ddp_acdv_rec.attribute5 := p5_a13;
859 ddp_acdv_rec.attribute6 := p5_a14;
860 ddp_acdv_rec.attribute7 := p5_a15;
861 ddp_acdv_rec.attribute8 := p5_a16;
862 ddp_acdv_rec.attribute9 := p5_a17;
863 ddp_acdv_rec.attribute10 := p5_a18;
864 ddp_acdv_rec.attribute11 := p5_a19;
865 ddp_acdv_rec.attribute12 := p5_a20;
866 ddp_acdv_rec.attribute13 := p5_a21;
867 ddp_acdv_rec.attribute14 := p5_a22;
868 ddp_acdv_rec.attribute15 := p5_a23;
869 ddp_acdv_rec.org_id := rosetta_g_miss_num_map(p5_a24);
870 ddp_acdv_rec.request_id := rosetta_g_miss_num_map(p5_a25);
871 ddp_acdv_rec.program_application_id := rosetta_g_miss_num_map(p5_a26);
872 ddp_acdv_rec.program_id := rosetta_g_miss_num_map(p5_a27);
873 ddp_acdv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a28);
874 ddp_acdv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
875 ddp_acdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
876 ddp_acdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
877 ddp_acdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
878 ddp_acdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
879
880
881 -- here's the delegated call to the old PL/SQL routine
882 okl_asset_cndtns_pub.update_asset_cndtns(p_api_version,
883 p_init_msg_list,
884 x_return_status,
885 x_msg_count,
886 x_msg_data,
887 ddp_acdv_rec,
888 ddx_acdv_rec);
889
890 -- copy data back from the local variables to OUT or IN-OUT args, if any
891
892
893
894
895
896
897 p6_a0 := rosetta_g_miss_num_map(ddx_acdv_rec.id);
898 p6_a1 := rosetta_g_miss_num_map(ddx_acdv_rec.object_version_number);
899 p6_a2 := ddx_acdv_rec.cdn_code;
900 p6_a3 := rosetta_g_miss_num_map(ddx_acdv_rec.iln_id);
901 p6_a4 := rosetta_g_miss_num_map(ddx_acdv_rec.isp_id);
902 p6_a5 := rosetta_g_miss_num_map(ddx_acdv_rec.clm_id);
903 p6_a6 := rosetta_g_miss_num_map(ddx_acdv_rec.kle_id);
904 p6_a7 := ddx_acdv_rec.date_report;
905 p6_a8 := ddx_acdv_rec.attribute_category;
906 p6_a9 := ddx_acdv_rec.attribute1;
907 p6_a10 := ddx_acdv_rec.attribute2;
908 p6_a11 := ddx_acdv_rec.attribute3;
909 p6_a12 := ddx_acdv_rec.attribute4;
910 p6_a13 := ddx_acdv_rec.attribute5;
911 p6_a14 := ddx_acdv_rec.attribute6;
912 p6_a15 := ddx_acdv_rec.attribute7;
913 p6_a16 := ddx_acdv_rec.attribute8;
914 p6_a17 := ddx_acdv_rec.attribute9;
915 p6_a18 := ddx_acdv_rec.attribute10;
916 p6_a19 := ddx_acdv_rec.attribute11;
917 p6_a20 := ddx_acdv_rec.attribute12;
918 p6_a21 := ddx_acdv_rec.attribute13;
919 p6_a22 := ddx_acdv_rec.attribute14;
920 p6_a23 := ddx_acdv_rec.attribute15;
921 p6_a24 := rosetta_g_miss_num_map(ddx_acdv_rec.org_id);
922 p6_a25 := rosetta_g_miss_num_map(ddx_acdv_rec.request_id);
923 p6_a26 := rosetta_g_miss_num_map(ddx_acdv_rec.program_application_id);
924 p6_a27 := rosetta_g_miss_num_map(ddx_acdv_rec.program_id);
925 p6_a28 := ddx_acdv_rec.program_update_date;
926 p6_a29 := rosetta_g_miss_num_map(ddx_acdv_rec.created_by);
927 p6_a30 := ddx_acdv_rec.creation_date;
928 p6_a31 := rosetta_g_miss_num_map(ddx_acdv_rec.last_updated_by);
929 p6_a32 := ddx_acdv_rec.last_update_date;
930 p6_a33 := rosetta_g_miss_num_map(ddx_acdv_rec.last_update_login);
931 end;
932
933 procedure delete_asset_cndtns(p_api_version NUMBER
934 , p_init_msg_list VARCHAR2
935 , x_return_status out nocopy VARCHAR2
936 , x_msg_count out nocopy NUMBER
937 , x_msg_data out nocopy VARCHAR2
938 , p5_a0 JTF_NUMBER_TABLE
939 , p5_a1 JTF_NUMBER_TABLE
940 , p5_a2 JTF_VARCHAR2_TABLE_100
941 , p5_a3 JTF_NUMBER_TABLE
942 , p5_a4 JTF_NUMBER_TABLE
943 , p5_a5 JTF_NUMBER_TABLE
944 , p5_a6 JTF_NUMBER_TABLE
945 , p5_a7 JTF_DATE_TABLE
946 , p5_a8 JTF_VARCHAR2_TABLE_100
947 , p5_a9 JTF_VARCHAR2_TABLE_500
948 , p5_a10 JTF_VARCHAR2_TABLE_500
949 , p5_a11 JTF_VARCHAR2_TABLE_500
950 , p5_a12 JTF_VARCHAR2_TABLE_500
951 , p5_a13 JTF_VARCHAR2_TABLE_500
952 , p5_a14 JTF_VARCHAR2_TABLE_500
953 , p5_a15 JTF_VARCHAR2_TABLE_500
954 , p5_a16 JTF_VARCHAR2_TABLE_500
955 , p5_a17 JTF_VARCHAR2_TABLE_500
956 , p5_a18 JTF_VARCHAR2_TABLE_500
957 , p5_a19 JTF_VARCHAR2_TABLE_500
958 , p5_a20 JTF_VARCHAR2_TABLE_500
959 , p5_a21 JTF_VARCHAR2_TABLE_500
960 , p5_a22 JTF_VARCHAR2_TABLE_500
961 , p5_a23 JTF_VARCHAR2_TABLE_500
962 , p5_a24 JTF_NUMBER_TABLE
963 , p5_a25 JTF_NUMBER_TABLE
964 , p5_a26 JTF_NUMBER_TABLE
965 , p5_a27 JTF_NUMBER_TABLE
966 , p5_a28 JTF_DATE_TABLE
967 , p5_a29 JTF_NUMBER_TABLE
968 , p5_a30 JTF_DATE_TABLE
969 , p5_a31 JTF_NUMBER_TABLE
970 , p5_a32 JTF_DATE_TABLE
971 , p5_a33 JTF_NUMBER_TABLE
972 )
973
974 as
975 ddp_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
976 ddindx binary_integer; indx binary_integer;
977 begin
978
979 -- copy data to the local IN or IN-OUT args, if any
980
981
982
983
984
985 okl_acd_pvt_w.rosetta_table_copy_in_p5(ddp_acdv_tbl, p5_a0
986 , p5_a1
987 , p5_a2
988 , p5_a3
989 , p5_a4
990 , p5_a5
991 , p5_a6
992 , p5_a7
993 , p5_a8
994 , p5_a9
995 , p5_a10
996 , p5_a11
997 , p5_a12
998 , p5_a13
999 , p5_a14
1000 , p5_a15
1001 , p5_a16
1002 , p5_a17
1003 , p5_a18
1004 , p5_a19
1005 , p5_a20
1006 , p5_a21
1007 , p5_a22
1008 , p5_a23
1009 , p5_a24
1010 , p5_a25
1011 , p5_a26
1012 , p5_a27
1013 , p5_a28
1014 , p5_a29
1015 , p5_a30
1016 , p5_a31
1017 , p5_a32
1018 , p5_a33
1019 );
1020
1021 -- here's the delegated call to the old PL/SQL routine
1022 okl_asset_cndtns_pub.delete_asset_cndtns(p_api_version,
1023 p_init_msg_list,
1024 x_return_status,
1025 x_msg_count,
1026 x_msg_data,
1027 ddp_acdv_tbl);
1028
1029 -- copy data back from the local variables to OUT or IN-OUT args, if any
1030
1031
1032
1033
1034
1035 end;
1036
1037 procedure delete_asset_cndtns(p_api_version NUMBER
1038 , p_init_msg_list VARCHAR2
1039 , x_return_status out nocopy VARCHAR2
1040 , x_msg_count out nocopy NUMBER
1041 , x_msg_data out nocopy VARCHAR2
1042 , p5_a0 NUMBER := 0-1962.0724
1043 , p5_a1 NUMBER := 0-1962.0724
1044 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1045 , p5_a3 NUMBER := 0-1962.0724
1046 , p5_a4 NUMBER := 0-1962.0724
1047 , p5_a5 NUMBER := 0-1962.0724
1048 , p5_a6 NUMBER := 0-1962.0724
1049 , p5_a7 DATE := fnd_api.g_miss_date
1050 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1051 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1052 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1053 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1054 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1055 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1056 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1057 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1058 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1059 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1060 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1061 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1062 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1063 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1064 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1065 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1066 , p5_a24 NUMBER := 0-1962.0724
1067 , p5_a25 NUMBER := 0-1962.0724
1068 , p5_a26 NUMBER := 0-1962.0724
1069 , p5_a27 NUMBER := 0-1962.0724
1070 , p5_a28 DATE := fnd_api.g_miss_date
1071 , p5_a29 NUMBER := 0-1962.0724
1072 , p5_a30 DATE := fnd_api.g_miss_date
1073 , p5_a31 NUMBER := 0-1962.0724
1074 , p5_a32 DATE := fnd_api.g_miss_date
1075 , p5_a33 NUMBER := 0-1962.0724
1076 )
1077
1078 as
1079 ddp_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
1080 ddindx binary_integer; indx binary_integer;
1081 begin
1082
1083 -- copy data to the local IN or IN-OUT args, if any
1084
1085
1086
1087
1088
1089 ddp_acdv_rec.id := rosetta_g_miss_num_map(p5_a0);
1090 ddp_acdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1091 ddp_acdv_rec.cdn_code := p5_a2;
1092 ddp_acdv_rec.iln_id := rosetta_g_miss_num_map(p5_a3);
1093 ddp_acdv_rec.isp_id := rosetta_g_miss_num_map(p5_a4);
1094 ddp_acdv_rec.clm_id := rosetta_g_miss_num_map(p5_a5);
1095 ddp_acdv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
1096 ddp_acdv_rec.date_report := rosetta_g_miss_date_in_map(p5_a7);
1097 ddp_acdv_rec.attribute_category := p5_a8;
1098 ddp_acdv_rec.attribute1 := p5_a9;
1099 ddp_acdv_rec.attribute2 := p5_a10;
1100 ddp_acdv_rec.attribute3 := p5_a11;
1101 ddp_acdv_rec.attribute4 := p5_a12;
1102 ddp_acdv_rec.attribute5 := p5_a13;
1103 ddp_acdv_rec.attribute6 := p5_a14;
1104 ddp_acdv_rec.attribute7 := p5_a15;
1105 ddp_acdv_rec.attribute8 := p5_a16;
1106 ddp_acdv_rec.attribute9 := p5_a17;
1107 ddp_acdv_rec.attribute10 := p5_a18;
1108 ddp_acdv_rec.attribute11 := p5_a19;
1109 ddp_acdv_rec.attribute12 := p5_a20;
1110 ddp_acdv_rec.attribute13 := p5_a21;
1111 ddp_acdv_rec.attribute14 := p5_a22;
1112 ddp_acdv_rec.attribute15 := p5_a23;
1113 ddp_acdv_rec.org_id := rosetta_g_miss_num_map(p5_a24);
1114 ddp_acdv_rec.request_id := rosetta_g_miss_num_map(p5_a25);
1115 ddp_acdv_rec.program_application_id := rosetta_g_miss_num_map(p5_a26);
1116 ddp_acdv_rec.program_id := rosetta_g_miss_num_map(p5_a27);
1117 ddp_acdv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a28);
1118 ddp_acdv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
1119 ddp_acdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
1120 ddp_acdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
1121 ddp_acdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
1122 ddp_acdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1123
1124 -- here's the delegated call to the old PL/SQL routine
1125 okl_asset_cndtns_pub.delete_asset_cndtns(p_api_version,
1126 p_init_msg_list,
1127 x_return_status,
1128 x_msg_count,
1129 x_msg_data,
1130 ddp_acdv_rec);
1131
1132 -- copy data back from the local variables to OUT or IN-OUT args, if any
1133
1134
1135
1136
1137
1138 end;
1139
1140 procedure validate_asset_cndtns(p_api_version NUMBER
1141 , p_init_msg_list VARCHAR2
1142 , x_return_status out nocopy VARCHAR2
1143 , x_msg_count out nocopy NUMBER
1144 , x_msg_data out nocopy VARCHAR2
1145 , p5_a0 JTF_NUMBER_TABLE
1146 , p5_a1 JTF_NUMBER_TABLE
1147 , p5_a2 JTF_VARCHAR2_TABLE_100
1148 , p5_a3 JTF_NUMBER_TABLE
1149 , p5_a4 JTF_NUMBER_TABLE
1150 , p5_a5 JTF_NUMBER_TABLE
1151 , p5_a6 JTF_NUMBER_TABLE
1152 , p5_a7 JTF_DATE_TABLE
1153 , p5_a8 JTF_VARCHAR2_TABLE_100
1154 , p5_a9 JTF_VARCHAR2_TABLE_500
1155 , p5_a10 JTF_VARCHAR2_TABLE_500
1156 , p5_a11 JTF_VARCHAR2_TABLE_500
1157 , p5_a12 JTF_VARCHAR2_TABLE_500
1158 , p5_a13 JTF_VARCHAR2_TABLE_500
1159 , p5_a14 JTF_VARCHAR2_TABLE_500
1160 , p5_a15 JTF_VARCHAR2_TABLE_500
1161 , p5_a16 JTF_VARCHAR2_TABLE_500
1162 , p5_a17 JTF_VARCHAR2_TABLE_500
1163 , p5_a18 JTF_VARCHAR2_TABLE_500
1164 , p5_a19 JTF_VARCHAR2_TABLE_500
1165 , p5_a20 JTF_VARCHAR2_TABLE_500
1166 , p5_a21 JTF_VARCHAR2_TABLE_500
1167 , p5_a22 JTF_VARCHAR2_TABLE_500
1168 , p5_a23 JTF_VARCHAR2_TABLE_500
1169 , p5_a24 JTF_NUMBER_TABLE
1170 , p5_a25 JTF_NUMBER_TABLE
1171 , p5_a26 JTF_NUMBER_TABLE
1172 , p5_a27 JTF_NUMBER_TABLE
1173 , p5_a28 JTF_DATE_TABLE
1174 , p5_a29 JTF_NUMBER_TABLE
1175 , p5_a30 JTF_DATE_TABLE
1176 , p5_a31 JTF_NUMBER_TABLE
1177 , p5_a32 JTF_DATE_TABLE
1178 , p5_a33 JTF_NUMBER_TABLE
1179 )
1180
1181 as
1182 ddp_acdv_tbl okl_asset_cndtns_pub.acdv_tbl_type;
1183 ddindx binary_integer; indx binary_integer;
1184 begin
1185
1186 -- copy data to the local IN or IN-OUT args, if any
1187
1188
1189
1190
1191
1192 okl_acd_pvt_w.rosetta_table_copy_in_p5(ddp_acdv_tbl, p5_a0
1193 , p5_a1
1194 , p5_a2
1195 , p5_a3
1196 , p5_a4
1197 , p5_a5
1198 , p5_a6
1199 , p5_a7
1200 , p5_a8
1201 , p5_a9
1202 , p5_a10
1203 , p5_a11
1204 , p5_a12
1205 , p5_a13
1206 , p5_a14
1207 , p5_a15
1208 , p5_a16
1209 , p5_a17
1210 , p5_a18
1211 , p5_a19
1212 , p5_a20
1213 , p5_a21
1214 , p5_a22
1215 , p5_a23
1216 , p5_a24
1217 , p5_a25
1218 , p5_a26
1219 , p5_a27
1220 , p5_a28
1221 , p5_a29
1222 , p5_a30
1223 , p5_a31
1224 , p5_a32
1225 , p5_a33
1226 );
1227
1228 -- here's the delegated call to the old PL/SQL routine
1229 okl_asset_cndtns_pub.validate_asset_cndtns(p_api_version,
1230 p_init_msg_list,
1231 x_return_status,
1232 x_msg_count,
1233 x_msg_data,
1234 ddp_acdv_tbl);
1235
1236 -- copy data back from the local variables to OUT or IN-OUT args, if any
1237
1238
1239
1240
1241
1242 end;
1243
1244 procedure validate_asset_cndtns(p_api_version NUMBER
1245 , p_init_msg_list VARCHAR2
1246 , x_return_status out nocopy VARCHAR2
1247 , x_msg_count out nocopy NUMBER
1248 , x_msg_data out nocopy VARCHAR2
1249 , p5_a0 NUMBER := 0-1962.0724
1250 , p5_a1 NUMBER := 0-1962.0724
1251 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1252 , p5_a3 NUMBER := 0-1962.0724
1253 , p5_a4 NUMBER := 0-1962.0724
1254 , p5_a5 NUMBER := 0-1962.0724
1255 , p5_a6 NUMBER := 0-1962.0724
1256 , p5_a7 DATE := fnd_api.g_miss_date
1257 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1258 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1259 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1260 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1261 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1262 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1263 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1264 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1265 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1266 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1267 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1268 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1269 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1270 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1271 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1272 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1273 , p5_a24 NUMBER := 0-1962.0724
1274 , p5_a25 NUMBER := 0-1962.0724
1275 , p5_a26 NUMBER := 0-1962.0724
1276 , p5_a27 NUMBER := 0-1962.0724
1277 , p5_a28 DATE := fnd_api.g_miss_date
1278 , p5_a29 NUMBER := 0-1962.0724
1279 , p5_a30 DATE := fnd_api.g_miss_date
1280 , p5_a31 NUMBER := 0-1962.0724
1281 , p5_a32 DATE := fnd_api.g_miss_date
1282 , p5_a33 NUMBER := 0-1962.0724
1283 )
1284
1285 as
1286 ddp_acdv_rec okl_asset_cndtns_pub.acdv_rec_type;
1287 ddindx binary_integer; indx binary_integer;
1288 begin
1289
1290 -- copy data to the local IN or IN-OUT args, if any
1291
1292
1293
1294
1295
1296 ddp_acdv_rec.id := rosetta_g_miss_num_map(p5_a0);
1297 ddp_acdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1298 ddp_acdv_rec.cdn_code := p5_a2;
1299 ddp_acdv_rec.iln_id := rosetta_g_miss_num_map(p5_a3);
1300 ddp_acdv_rec.isp_id := rosetta_g_miss_num_map(p5_a4);
1301 ddp_acdv_rec.clm_id := rosetta_g_miss_num_map(p5_a5);
1302 ddp_acdv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
1303 ddp_acdv_rec.date_report := rosetta_g_miss_date_in_map(p5_a7);
1304 ddp_acdv_rec.attribute_category := p5_a8;
1305 ddp_acdv_rec.attribute1 := p5_a9;
1306 ddp_acdv_rec.attribute2 := p5_a10;
1307 ddp_acdv_rec.attribute3 := p5_a11;
1308 ddp_acdv_rec.attribute4 := p5_a12;
1309 ddp_acdv_rec.attribute5 := p5_a13;
1310 ddp_acdv_rec.attribute6 := p5_a14;
1311 ddp_acdv_rec.attribute7 := p5_a15;
1312 ddp_acdv_rec.attribute8 := p5_a16;
1313 ddp_acdv_rec.attribute9 := p5_a17;
1314 ddp_acdv_rec.attribute10 := p5_a18;
1315 ddp_acdv_rec.attribute11 := p5_a19;
1316 ddp_acdv_rec.attribute12 := p5_a20;
1317 ddp_acdv_rec.attribute13 := p5_a21;
1318 ddp_acdv_rec.attribute14 := p5_a22;
1319 ddp_acdv_rec.attribute15 := p5_a23;
1320 ddp_acdv_rec.org_id := rosetta_g_miss_num_map(p5_a24);
1321 ddp_acdv_rec.request_id := rosetta_g_miss_num_map(p5_a25);
1322 ddp_acdv_rec.program_application_id := rosetta_g_miss_num_map(p5_a26);
1323 ddp_acdv_rec.program_id := rosetta_g_miss_num_map(p5_a27);
1324 ddp_acdv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a28);
1325 ddp_acdv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
1326 ddp_acdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
1327 ddp_acdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
1328 ddp_acdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
1329 ddp_acdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1330
1331 -- here's the delegated call to the old PL/SQL routine
1332 okl_asset_cndtns_pub.validate_asset_cndtns(p_api_version,
1333 p_init_msg_list,
1334 x_return_status,
1335 x_msg_count,
1336 x_msg_data,
1337 ddp_acdv_rec);
1338
1339 -- copy data back from the local variables to OUT or IN-OUT args, if any
1340
1341
1342
1343
1344
1345 end;
1346
1347 end okl_asset_cndtns_pub_w;