[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_TRX_TYPES_PVT_W
Source
1 package body okl_process_trx_types_pvt_w as
2 /* $Header: OKLETXTB.pls 120.2 2005/07/12 09:12:10 dkagrawa 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_process_trx_types_pvt.tryv_rec_type;
75 ddx_tryv_rec okl_process_trx_types_pvt.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_process_trx_types_pvt.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_process_trx_types_pvt.tryv_tbl_type;
202 ddx_tryv_tbl okl_process_trx_types_pvt.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_process_trx_types_pvt.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 update_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 , p6_a0 out nocopy NUMBER
284 , p6_a1 out nocopy NUMBER
285 , p6_a2 out nocopy VARCHAR2
286 , p6_a3 out nocopy VARCHAR2
287 , p6_a4 out nocopy NUMBER
288 , p6_a5 out nocopy NUMBER
289 , p6_a6 out nocopy NUMBER
290 , p6_a7 out nocopy VARCHAR2
291 , p6_a8 out nocopy VARCHAR2
292 , p6_a9 out nocopy VARCHAR2
293 , p6_a10 out nocopy VARCHAR2
294 , p6_a11 out nocopy VARCHAR2
295 , p6_a12 out nocopy NUMBER
296 , p6_a13 out nocopy NUMBER
297 , p6_a14 out nocopy DATE
298 , p6_a15 out nocopy NUMBER
299 , p6_a16 out nocopy DATE
300 , p6_a17 out nocopy NUMBER
301 , p6_a18 out nocopy VARCHAR2
302 , p6_a19 out nocopy VARCHAR2
303 , p6_a20 out nocopy VARCHAR2
304 , p6_a21 out nocopy VARCHAR2
305 , p5_a0 NUMBER := 0-1962.0724
306 , p5_a1 NUMBER := 0-1962.0724
307 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
308 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
309 , p5_a4 NUMBER := 0-1962.0724
310 , p5_a5 NUMBER := 0-1962.0724
311 , p5_a6 NUMBER := 0-1962.0724
312 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
313 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
314 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
315 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
316 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
317 , p5_a12 NUMBER := 0-1962.0724
318 , p5_a13 NUMBER := 0-1962.0724
319 , p5_a14 DATE := fnd_api.g_miss_date
320 , p5_a15 NUMBER := 0-1962.0724
321 , p5_a16 DATE := fnd_api.g_miss_date
322 , p5_a17 NUMBER := 0-1962.0724
323 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
324 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
325 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
326 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
327 )
328
329 as
330 ddp_tryv_rec okl_process_trx_types_pvt.tryv_rec_type;
331 ddx_tryv_rec okl_process_trx_types_pvt.tryv_rec_type;
332 ddindx binary_integer; indx binary_integer;
333 begin
334
335 -- copy data to the local IN or IN-OUT args, if any
336
337
338
339
340
341 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
342 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
343 ddp_tryv_rec.sfwt_flag := p5_a2;
344 ddp_tryv_rec.aep_code := p5_a3;
345 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
346 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
347 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
348 ddp_tryv_rec.try_type := p5_a7;
349 ddp_tryv_rec.name := p5_a8;
350 ddp_tryv_rec.description := p5_a9;
351 ddp_tryv_rec.contract_header_line_flag := p5_a10;
352 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
353 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
354 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
355 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
356 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
357 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
358 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
359 ddp_tryv_rec.trx_type_class := p5_a18;
360 ddp_tryv_rec.tax_upfront_yn := p5_a19;
361 ddp_tryv_rec.tax_invoice_yn := p5_a20;
362 ddp_tryv_rec.tax_schedule_yn := p5_a21;
363
364
365 -- here's the delegated call to the old PL/SQL routine
366 okl_process_trx_types_pvt.update_trx_types(p_api_version,
367 p_init_msg_list,
368 x_return_status,
369 x_msg_count,
370 x_msg_data,
371 ddp_tryv_rec,
372 ddx_tryv_rec);
373
374 -- copy data back from the local variables to OUT or IN-OUT args, if any
375
376
377
378
379
380
381 p6_a0 := rosetta_g_miss_num_map(ddx_tryv_rec.id);
382 p6_a1 := rosetta_g_miss_num_map(ddx_tryv_rec.object_version_number);
383 p6_a2 := ddx_tryv_rec.sfwt_flag;
384 p6_a3 := ddx_tryv_rec.aep_code;
385 p6_a4 := rosetta_g_miss_num_map(ddx_tryv_rec.ilc_id);
386 p6_a5 := rosetta_g_miss_num_map(ddx_tryv_rec.try_id);
387 p6_a6 := rosetta_g_miss_num_map(ddx_tryv_rec.try_id_for);
388 p6_a7 := ddx_tryv_rec.try_type;
389 p6_a8 := ddx_tryv_rec.name;
390 p6_a9 := ddx_tryv_rec.description;
391 p6_a10 := ddx_tryv_rec.contract_header_line_flag;
392 p6_a11 := ddx_tryv_rec.transaction_header_line_detail;
393 p6_a12 := rosetta_g_miss_num_map(ddx_tryv_rec.org_id);
394 p6_a13 := rosetta_g_miss_num_map(ddx_tryv_rec.created_by);
395 p6_a14 := ddx_tryv_rec.creation_date;
396 p6_a15 := rosetta_g_miss_num_map(ddx_tryv_rec.last_updated_by);
397 p6_a16 := ddx_tryv_rec.last_update_date;
398 p6_a17 := rosetta_g_miss_num_map(ddx_tryv_rec.last_update_login);
399 p6_a18 := ddx_tryv_rec.trx_type_class;
400 p6_a19 := ddx_tryv_rec.tax_upfront_yn;
401 p6_a20 := ddx_tryv_rec.tax_invoice_yn;
402 p6_a21 := ddx_tryv_rec.tax_schedule_yn;
403 end;
404
405 procedure update_trx_types(p_api_version NUMBER
406 , p_init_msg_list VARCHAR2
407 , x_return_status out nocopy VARCHAR2
408 , x_msg_count out nocopy NUMBER
409 , x_msg_data out nocopy VARCHAR2
410 , p5_a0 JTF_NUMBER_TABLE
411 , p5_a1 JTF_NUMBER_TABLE
412 , p5_a2 JTF_VARCHAR2_TABLE_100
413 , p5_a3 JTF_VARCHAR2_TABLE_100
414 , p5_a4 JTF_NUMBER_TABLE
415 , p5_a5 JTF_NUMBER_TABLE
416 , p5_a6 JTF_NUMBER_TABLE
417 , p5_a7 JTF_VARCHAR2_TABLE_100
418 , p5_a8 JTF_VARCHAR2_TABLE_200
419 , p5_a9 JTF_VARCHAR2_TABLE_2000
420 , p5_a10 JTF_VARCHAR2_TABLE_100
421 , p5_a11 JTF_VARCHAR2_TABLE_100
422 , p5_a12 JTF_NUMBER_TABLE
423 , p5_a13 JTF_NUMBER_TABLE
424 , p5_a14 JTF_DATE_TABLE
425 , p5_a15 JTF_NUMBER_TABLE
426 , p5_a16 JTF_DATE_TABLE
427 , p5_a17 JTF_NUMBER_TABLE
428 , p5_a18 JTF_VARCHAR2_TABLE_100
429 , p5_a19 JTF_VARCHAR2_TABLE_100
430 , p5_a20 JTF_VARCHAR2_TABLE_100
431 , p5_a21 JTF_VARCHAR2_TABLE_100
432 , p6_a0 out nocopy JTF_NUMBER_TABLE
433 , p6_a1 out nocopy JTF_NUMBER_TABLE
434 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
435 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
436 , p6_a4 out nocopy JTF_NUMBER_TABLE
437 , p6_a5 out nocopy JTF_NUMBER_TABLE
438 , p6_a6 out nocopy JTF_NUMBER_TABLE
439 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
440 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
441 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_2000
442 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
443 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
444 , p6_a12 out nocopy JTF_NUMBER_TABLE
445 , p6_a13 out nocopy JTF_NUMBER_TABLE
446 , p6_a14 out nocopy JTF_DATE_TABLE
447 , p6_a15 out nocopy JTF_NUMBER_TABLE
448 , p6_a16 out nocopy JTF_DATE_TABLE
449 , p6_a17 out nocopy JTF_NUMBER_TABLE
450 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
451 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
452 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
453 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
454 )
455
456 as
457 ddp_tryv_tbl okl_process_trx_types_pvt.tryv_tbl_type;
458 ddx_tryv_tbl okl_process_trx_types_pvt.tryv_tbl_type;
459 ddindx binary_integer; indx binary_integer;
460 begin
461
462 -- copy data to the local IN or IN-OUT args, if any
463
464
465
466
467
468 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
469 , p5_a1
470 , p5_a2
471 , p5_a3
472 , p5_a4
473 , p5_a5
474 , p5_a6
475 , p5_a7
476 , p5_a8
477 , p5_a9
478 , p5_a10
479 , p5_a11
480 , p5_a12
481 , p5_a13
482 , p5_a14
483 , p5_a15
484 , p5_a16
485 , p5_a17
486 , p5_a18
487 , p5_a19
488 , p5_a20
489 , p5_a21
490 );
491
492
493 -- here's the delegated call to the old PL/SQL routine
494 okl_process_trx_types_pvt.update_trx_types(p_api_version,
495 p_init_msg_list,
496 x_return_status,
497 x_msg_count,
498 x_msg_data,
499 ddp_tryv_tbl,
500 ddx_tryv_tbl);
501
502 -- copy data back from the local variables to OUT or IN-OUT args, if any
503
504
505
506
507
508
509 okl_try_pvt_w.rosetta_table_copy_out_p8(ddx_tryv_tbl, p6_a0
510 , p6_a1
511 , p6_a2
512 , p6_a3
513 , p6_a4
514 , p6_a5
515 , p6_a6
516 , p6_a7
517 , p6_a8
518 , p6_a9
519 , p6_a10
520 , p6_a11
521 , p6_a12
522 , p6_a13
523 , p6_a14
524 , p6_a15
525 , p6_a16
526 , p6_a17
527 , p6_a18
528 , p6_a19
529 , p6_a20
530 , p6_a21
531 );
532 end;
533
534 procedure delete_trx_types(p_api_version NUMBER
535 , p_init_msg_list VARCHAR2
536 , x_return_status out nocopy VARCHAR2
537 , x_msg_count out nocopy NUMBER
538 , x_msg_data out nocopy VARCHAR2
539 , p5_a0 NUMBER := 0-1962.0724
540 , p5_a1 NUMBER := 0-1962.0724
541 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
542 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
543 , p5_a4 NUMBER := 0-1962.0724
544 , p5_a5 NUMBER := 0-1962.0724
545 , p5_a6 NUMBER := 0-1962.0724
546 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
547 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
548 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
549 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
550 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
551 , p5_a12 NUMBER := 0-1962.0724
552 , p5_a13 NUMBER := 0-1962.0724
553 , p5_a14 DATE := fnd_api.g_miss_date
554 , p5_a15 NUMBER := 0-1962.0724
555 , p5_a16 DATE := fnd_api.g_miss_date
556 , p5_a17 NUMBER := 0-1962.0724
557 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
558 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
559 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
560 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
561 )
562
563 as
564 ddp_tryv_rec okl_process_trx_types_pvt.tryv_rec_type;
565 ddindx binary_integer; indx binary_integer;
566 begin
567
568 -- copy data to the local IN or IN-OUT args, if any
569
570
571
572
573
574 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
575 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
576 ddp_tryv_rec.sfwt_flag := p5_a2;
577 ddp_tryv_rec.aep_code := p5_a3;
578 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
579 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
580 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
581 ddp_tryv_rec.try_type := p5_a7;
582 ddp_tryv_rec.name := p5_a8;
583 ddp_tryv_rec.description := p5_a9;
584 ddp_tryv_rec.contract_header_line_flag := p5_a10;
585 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
586 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
587 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
588 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
589 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
590 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
591 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
592 ddp_tryv_rec.trx_type_class := p5_a18;
593 ddp_tryv_rec.tax_upfront_yn := p5_a19;
594 ddp_tryv_rec.tax_invoice_yn := p5_a20;
595 ddp_tryv_rec.tax_schedule_yn := p5_a21;
596
597 -- here's the delegated call to the old PL/SQL routine
598 okl_process_trx_types_pvt.delete_trx_types(p_api_version,
599 p_init_msg_list,
600 x_return_status,
601 x_msg_count,
602 x_msg_data,
603 ddp_tryv_rec);
604
605 -- copy data back from the local variables to OUT or IN-OUT args, if any
606
607
608
609
610
611 end;
612
613 procedure delete_trx_types(p_api_version NUMBER
614 , p_init_msg_list VARCHAR2
615 , x_return_status out nocopy VARCHAR2
616 , x_msg_count out nocopy NUMBER
617 , x_msg_data out nocopy VARCHAR2
618 , p5_a0 JTF_NUMBER_TABLE
619 , p5_a1 JTF_NUMBER_TABLE
620 , p5_a2 JTF_VARCHAR2_TABLE_100
621 , p5_a3 JTF_VARCHAR2_TABLE_100
622 , p5_a4 JTF_NUMBER_TABLE
623 , p5_a5 JTF_NUMBER_TABLE
624 , p5_a6 JTF_NUMBER_TABLE
625 , p5_a7 JTF_VARCHAR2_TABLE_100
626 , p5_a8 JTF_VARCHAR2_TABLE_200
627 , p5_a9 JTF_VARCHAR2_TABLE_2000
628 , p5_a10 JTF_VARCHAR2_TABLE_100
629 , p5_a11 JTF_VARCHAR2_TABLE_100
630 , p5_a12 JTF_NUMBER_TABLE
631 , p5_a13 JTF_NUMBER_TABLE
632 , p5_a14 JTF_DATE_TABLE
633 , p5_a15 JTF_NUMBER_TABLE
634 , p5_a16 JTF_DATE_TABLE
635 , p5_a17 JTF_NUMBER_TABLE
636 , p5_a18 JTF_VARCHAR2_TABLE_100
637 , p5_a19 JTF_VARCHAR2_TABLE_100
638 , p5_a20 JTF_VARCHAR2_TABLE_100
639 , p5_a21 JTF_VARCHAR2_TABLE_100
640 )
641
642 as
643 ddp_tryv_tbl okl_process_trx_types_pvt.tryv_tbl_type;
644 ddindx binary_integer; indx binary_integer;
645 begin
646
647 -- copy data to the local IN or IN-OUT args, if any
648
649
650
651
652
653 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
654 , p5_a1
655 , p5_a2
656 , p5_a3
657 , p5_a4
658 , p5_a5
659 , p5_a6
660 , p5_a7
661 , p5_a8
662 , p5_a9
663 , p5_a10
664 , p5_a11
665 , p5_a12
666 , p5_a13
667 , p5_a14
668 , p5_a15
669 , p5_a16
670 , p5_a17
671 , p5_a18
672 , p5_a19
673 , p5_a20
674 , p5_a21
675 );
676
677 -- here's the delegated call to the old PL/SQL routine
678 okl_process_trx_types_pvt.delete_trx_types(p_api_version,
679 p_init_msg_list,
680 x_return_status,
681 x_msg_count,
682 x_msg_data,
683 ddp_tryv_tbl);
684
685 -- copy data back from the local variables to OUT or IN-OUT args, if any
686
687
688
689
690
691 end;
692
693 end okl_process_trx_types_pvt_w;