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