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