[Home] [Help]
PACKAGE BODY: APPS.OKL_TBC_DEFINITIONS_PUB_W
Source
1 package body okl_tbc_definitions_pub_w as
2 /* $Header: OKLUTBCB.pls 120.6 2007/03/12 10:24:48 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 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 insert_tbc_definition(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 VARCHAR2
31 , p6_a1 out nocopy VARCHAR2
32 , p6_a2 out nocopy NUMBER
33 , p6_a3 out nocopy NUMBER
34 , p6_a4 out nocopy NUMBER
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 NUMBER
41 , p6_a11 out nocopy NUMBER
42 , p6_a12 out nocopy NUMBER
43 , p6_a13 out nocopy NUMBER
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 VARCHAR2
51 , p6_a21 out nocopy VARCHAR2
52 , p6_a22 out nocopy VARCHAR2
53 , p6_a23 out nocopy VARCHAR2
54 , p6_a24 out nocopy VARCHAR2
55 , p6_a25 out nocopy VARCHAR2
56 , p6_a26 out nocopy VARCHAR2
57 , p6_a27 out nocopy VARCHAR2
58 , p6_a28 out nocopy VARCHAR2
59 , p6_a29 out nocopy VARCHAR2
60 , p6_a30 out nocopy NUMBER
61 , p6_a31 out nocopy DATE
62 , p6_a32 out nocopy NUMBER
63 , p6_a33 out nocopy DATE
64 , p6_a34 out nocopy NUMBER
65 , p6_a35 out nocopy NUMBER
66 , p6_a36 out nocopy VARCHAR2
67 , p6_a37 out nocopy VARCHAR2
68 , p6_a38 out nocopy DATE
69 , p6_a39 out nocopy DATE
70 , p6_a40 out nocopy VARCHAR2
71 , p6_a41 out nocopy VARCHAR2
72 , p6_a42 out nocopy VARCHAR2
73 , p6_a43 out nocopy VARCHAR2
74 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
75 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
76 , p5_a2 NUMBER := 0-1962.0724
77 , p5_a3 NUMBER := 0-1962.0724
78 , p5_a4 NUMBER := 0-1962.0724
79 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
80 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
81 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
82 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
83 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
84 , p5_a10 NUMBER := 0-1962.0724
85 , p5_a11 NUMBER := 0-1962.0724
86 , p5_a12 NUMBER := 0-1962.0724
87 , p5_a13 NUMBER := 0-1962.0724
88 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
89 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
90 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
91 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
92 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
94 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
95 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
96 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
97 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
98 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
99 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
100 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
101 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
102 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
103 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
104 , p5_a30 NUMBER := 0-1962.0724
105 , p5_a31 DATE := fnd_api.g_miss_date
106 , p5_a32 NUMBER := 0-1962.0724
107 , p5_a33 DATE := fnd_api.g_miss_date
108 , p5_a34 NUMBER := 0-1962.0724
109 , p5_a35 NUMBER := 0-1962.0724
110 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
111 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
112 , p5_a38 DATE := fnd_api.g_miss_date
113 , p5_a39 DATE := fnd_api.g_miss_date
114 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
115 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
117 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
118 )
119
120 as
121 ddp_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
122 ddx_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
123 ddindx binary_integer; indx binary_integer;
124 begin
125
126 -- copy data to the local IN or IN-OUT args, if any
127
128
129
130
131
132 ddp_tbcv_rec.result_code := p5_a0;
133 ddp_tbcv_rec.purchase_option_code := p5_a1;
134 ddp_tbcv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
135 ddp_tbcv_rec.try_id := rosetta_g_miss_num_map(p5_a3);
136 ddp_tbcv_rec.sty_id := rosetta_g_miss_num_map(p5_a4);
137 ddp_tbcv_rec.int_disclosed_code := p5_a5;
138 ddp_tbcv_rec.title_trnsfr_code := p5_a6;
139 ddp_tbcv_rec.sale_lease_back_code := p5_a7;
140 ddp_tbcv_rec.lease_purchased_code := p5_a8;
141 ddp_tbcv_rec.equip_usage_code := p5_a9;
142 ddp_tbcv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a10);
143 ddp_tbcv_rec.age_of_equip_from := rosetta_g_miss_num_map(p5_a11);
144 ddp_tbcv_rec.age_of_equip_to := rosetta_g_miss_num_map(p5_a12);
145 ddp_tbcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
146 ddp_tbcv_rec.attribute_category := p5_a14;
147 ddp_tbcv_rec.attribute1 := p5_a15;
148 ddp_tbcv_rec.attribute2 := p5_a16;
149 ddp_tbcv_rec.attribute3 := p5_a17;
150 ddp_tbcv_rec.attribute4 := p5_a18;
151 ddp_tbcv_rec.attribute5 := p5_a19;
152 ddp_tbcv_rec.attribute6 := p5_a20;
153 ddp_tbcv_rec.attribute7 := p5_a21;
154 ddp_tbcv_rec.attribute8 := p5_a22;
155 ddp_tbcv_rec.attribute9 := p5_a23;
156 ddp_tbcv_rec.attribute10 := p5_a24;
157 ddp_tbcv_rec.attribute11 := p5_a25;
158 ddp_tbcv_rec.attribute12 := p5_a26;
159 ddp_tbcv_rec.attribute13 := p5_a27;
160 ddp_tbcv_rec.attribute14 := p5_a28;
161 ddp_tbcv_rec.attribute15 := p5_a29;
162 ddp_tbcv_rec.created_by := rosetta_g_miss_num_map(p5_a30);
163 ddp_tbcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a31);
164 ddp_tbcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a32);
165 ddp_tbcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a33);
166 ddp_tbcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a34);
167 ddp_tbcv_rec.tax_attribute_def_id := rosetta_g_miss_num_map(p5_a35);
168 ddp_tbcv_rec.result_type_code := p5_a36;
169 ddp_tbcv_rec.book_class_code := p5_a37;
170 ddp_tbcv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a38);
171 ddp_tbcv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a39);
172 ddp_tbcv_rec.tax_country_code := p5_a40;
173 ddp_tbcv_rec.term_quote_type_code := p5_a41;
174 ddp_tbcv_rec.term_quote_reason_code := p5_a42;
175 ddp_tbcv_rec.expire_flag := p5_a43;
176
177
178 -- here's the delegated call to the old PL/SQL routine
179 okl_tbc_definitions_pub.insert_tbc_definition(p_api_version,
180 p_init_msg_list,
181 x_return_status,
182 x_msg_count,
183 x_msg_data,
184 ddp_tbcv_rec,
185 ddx_tbcv_rec);
186
187 -- copy data back from the local variables to OUT or IN-OUT args, if any
188
189
190
191
192
193
194 p6_a0 := ddx_tbcv_rec.result_code;
195 p6_a1 := ddx_tbcv_rec.purchase_option_code;
196 p6_a2 := rosetta_g_miss_num_map(ddx_tbcv_rec.pdt_id);
197 p6_a3 := rosetta_g_miss_num_map(ddx_tbcv_rec.try_id);
198 p6_a4 := rosetta_g_miss_num_map(ddx_tbcv_rec.sty_id);
199 p6_a5 := ddx_tbcv_rec.int_disclosed_code;
200 p6_a6 := ddx_tbcv_rec.title_trnsfr_code;
201 p6_a7 := ddx_tbcv_rec.sale_lease_back_code;
202 p6_a8 := ddx_tbcv_rec.lease_purchased_code;
203 p6_a9 := ddx_tbcv_rec.equip_usage_code;
204 p6_a10 := rosetta_g_miss_num_map(ddx_tbcv_rec.vendor_site_id);
205 p6_a11 := rosetta_g_miss_num_map(ddx_tbcv_rec.age_of_equip_from);
206 p6_a12 := rosetta_g_miss_num_map(ddx_tbcv_rec.age_of_equip_to);
207 p6_a13 := rosetta_g_miss_num_map(ddx_tbcv_rec.object_version_number);
208 p6_a14 := ddx_tbcv_rec.attribute_category;
209 p6_a15 := ddx_tbcv_rec.attribute1;
210 p6_a16 := ddx_tbcv_rec.attribute2;
211 p6_a17 := ddx_tbcv_rec.attribute3;
212 p6_a18 := ddx_tbcv_rec.attribute4;
213 p6_a19 := ddx_tbcv_rec.attribute5;
214 p6_a20 := ddx_tbcv_rec.attribute6;
215 p6_a21 := ddx_tbcv_rec.attribute7;
216 p6_a22 := ddx_tbcv_rec.attribute8;
217 p6_a23 := ddx_tbcv_rec.attribute9;
218 p6_a24 := ddx_tbcv_rec.attribute10;
219 p6_a25 := ddx_tbcv_rec.attribute11;
220 p6_a26 := ddx_tbcv_rec.attribute12;
221 p6_a27 := ddx_tbcv_rec.attribute13;
222 p6_a28 := ddx_tbcv_rec.attribute14;
223 p6_a29 := ddx_tbcv_rec.attribute15;
224 p6_a30 := rosetta_g_miss_num_map(ddx_tbcv_rec.created_by);
225 p6_a31 := ddx_tbcv_rec.creation_date;
226 p6_a32 := rosetta_g_miss_num_map(ddx_tbcv_rec.last_updated_by);
227 p6_a33 := ddx_tbcv_rec.last_update_date;
228 p6_a34 := rosetta_g_miss_num_map(ddx_tbcv_rec.last_update_login);
229 p6_a35 := rosetta_g_miss_num_map(ddx_tbcv_rec.tax_attribute_def_id);
230 p6_a36 := ddx_tbcv_rec.result_type_code;
231 p6_a37 := ddx_tbcv_rec.book_class_code;
232 p6_a38 := ddx_tbcv_rec.date_effective_from;
233 p6_a39 := ddx_tbcv_rec.date_effective_to;
234 p6_a40 := ddx_tbcv_rec.tax_country_code;
235 p6_a41 := ddx_tbcv_rec.term_quote_type_code;
236 p6_a42 := ddx_tbcv_rec.term_quote_reason_code;
237 p6_a43 := ddx_tbcv_rec.expire_flag;
238 end;
239
240 procedure insert_tbc_definition(p_api_version NUMBER
241 , p_init_msg_list VARCHAR2
242 , x_return_status out nocopy VARCHAR2
243 , x_msg_count out nocopy NUMBER
244 , x_msg_data out nocopy VARCHAR2
245 , p5_a0 JTF_VARCHAR2_TABLE_300
246 , p5_a1 JTF_VARCHAR2_TABLE_100
247 , p5_a2 JTF_NUMBER_TABLE
248 , p5_a3 JTF_NUMBER_TABLE
249 , p5_a4 JTF_NUMBER_TABLE
250 , p5_a5 JTF_VARCHAR2_TABLE_100
251 , p5_a6 JTF_VARCHAR2_TABLE_100
252 , p5_a7 JTF_VARCHAR2_TABLE_100
253 , p5_a8 JTF_VARCHAR2_TABLE_100
254 , p5_a9 JTF_VARCHAR2_TABLE_100
255 , p5_a10 JTF_NUMBER_TABLE
256 , p5_a11 JTF_NUMBER_TABLE
257 , p5_a12 JTF_NUMBER_TABLE
258 , p5_a13 JTF_NUMBER_TABLE
259 , p5_a14 JTF_VARCHAR2_TABLE_100
260 , p5_a15 JTF_VARCHAR2_TABLE_500
261 , p5_a16 JTF_VARCHAR2_TABLE_500
262 , p5_a17 JTF_VARCHAR2_TABLE_500
263 , p5_a18 JTF_VARCHAR2_TABLE_500
264 , p5_a19 JTF_VARCHAR2_TABLE_500
265 , p5_a20 JTF_VARCHAR2_TABLE_500
266 , p5_a21 JTF_VARCHAR2_TABLE_500
267 , p5_a22 JTF_VARCHAR2_TABLE_500
268 , p5_a23 JTF_VARCHAR2_TABLE_500
269 , p5_a24 JTF_VARCHAR2_TABLE_500
270 , p5_a25 JTF_VARCHAR2_TABLE_500
271 , p5_a26 JTF_VARCHAR2_TABLE_500
272 , p5_a27 JTF_VARCHAR2_TABLE_500
273 , p5_a28 JTF_VARCHAR2_TABLE_500
274 , p5_a29 JTF_VARCHAR2_TABLE_500
275 , p5_a30 JTF_NUMBER_TABLE
276 , p5_a31 JTF_DATE_TABLE
277 , p5_a32 JTF_NUMBER_TABLE
278 , p5_a33 JTF_DATE_TABLE
279 , p5_a34 JTF_NUMBER_TABLE
280 , p5_a35 JTF_NUMBER_TABLE
281 , p5_a36 JTF_VARCHAR2_TABLE_100
282 , p5_a37 JTF_VARCHAR2_TABLE_100
283 , p5_a38 JTF_DATE_TABLE
284 , p5_a39 JTF_DATE_TABLE
285 , p5_a40 JTF_VARCHAR2_TABLE_100
286 , p5_a41 JTF_VARCHAR2_TABLE_100
287 , p5_a42 JTF_VARCHAR2_TABLE_100
288 , p5_a43 JTF_VARCHAR2_TABLE_100
289 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_300
290 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
291 , p6_a2 out nocopy JTF_NUMBER_TABLE
292 , p6_a3 out nocopy JTF_NUMBER_TABLE
293 , p6_a4 out nocopy JTF_NUMBER_TABLE
294 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
295 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
296 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
297 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
298 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
299 , p6_a10 out nocopy JTF_NUMBER_TABLE
300 , p6_a11 out nocopy JTF_NUMBER_TABLE
301 , p6_a12 out nocopy JTF_NUMBER_TABLE
302 , p6_a13 out nocopy JTF_NUMBER_TABLE
303 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
304 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
305 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
306 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
307 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
308 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
309 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
310 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
311 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
312 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
313 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
314 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
315 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
316 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
317 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
318 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
319 , p6_a30 out nocopy JTF_NUMBER_TABLE
320 , p6_a31 out nocopy JTF_DATE_TABLE
321 , p6_a32 out nocopy JTF_NUMBER_TABLE
322 , p6_a33 out nocopy JTF_DATE_TABLE
323 , p6_a34 out nocopy JTF_NUMBER_TABLE
324 , p6_a35 out nocopy JTF_NUMBER_TABLE
325 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
326 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_100
327 , p6_a38 out nocopy JTF_DATE_TABLE
328 , p6_a39 out nocopy JTF_DATE_TABLE
329 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
330 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
331 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
332 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
333 )
334
335 as
336 ddp_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
337 ddx_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
338 ddindx binary_integer; indx binary_integer;
339 begin
340
341 -- copy data to the local IN or IN-OUT args, if any
342
343
344
345
346
347 okl_tbc_pvt_w.rosetta_table_copy_in_p2(ddp_tbcv_tbl, p5_a0
348 , p5_a1
349 , p5_a2
350 , p5_a3
351 , p5_a4
352 , p5_a5
353 , p5_a6
354 , p5_a7
355 , p5_a8
356 , p5_a9
357 , p5_a10
358 , p5_a11
359 , p5_a12
360 , p5_a13
361 , p5_a14
362 , p5_a15
363 , p5_a16
364 , p5_a17
365 , p5_a18
366 , p5_a19
367 , p5_a20
368 , p5_a21
369 , p5_a22
370 , p5_a23
371 , p5_a24
372 , p5_a25
373 , p5_a26
374 , p5_a27
375 , p5_a28
376 , p5_a29
377 , p5_a30
378 , p5_a31
379 , p5_a32
380 , p5_a33
381 , p5_a34
382 , p5_a35
383 , p5_a36
384 , p5_a37
385 , p5_a38
386 , p5_a39
387 , p5_a40
388 , p5_a41
389 , p5_a42
390 , p5_a43
391 );
392
393
394 -- here's the delegated call to the old PL/SQL routine
395 okl_tbc_definitions_pub.insert_tbc_definition(p_api_version,
396 p_init_msg_list,
397 x_return_status,
398 x_msg_count,
399 x_msg_data,
400 ddp_tbcv_tbl,
401 ddx_tbcv_tbl);
402
403 -- copy data back from the local variables to OUT or IN-OUT args, if any
404
405
406
407
408
409
410 okl_tbc_pvt_w.rosetta_table_copy_out_p2(ddx_tbcv_tbl, p6_a0
411 , p6_a1
412 , p6_a2
413 , p6_a3
414 , p6_a4
415 , p6_a5
416 , p6_a6
417 , p6_a7
418 , p6_a8
419 , p6_a9
420 , p6_a10
421 , p6_a11
422 , p6_a12
423 , p6_a13
424 , p6_a14
425 , p6_a15
426 , p6_a16
427 , p6_a17
428 , p6_a18
429 , p6_a19
430 , p6_a20
431 , p6_a21
432 , p6_a22
433 , p6_a23
434 , p6_a24
435 , p6_a25
436 , p6_a26
437 , p6_a27
438 , p6_a28
439 , p6_a29
440 , p6_a30
441 , p6_a31
442 , p6_a32
443 , p6_a33
444 , p6_a34
445 , p6_a35
446 , p6_a36
447 , p6_a37
448 , p6_a38
449 , p6_a39
450 , p6_a40
451 , p6_a41
452 , p6_a42
453 , p6_a43
454 );
455 end;
456
457 procedure lock_tbc_definition(p_api_version NUMBER
458 , p_init_msg_list VARCHAR2
459 , x_return_status out nocopy VARCHAR2
460 , x_msg_count out nocopy NUMBER
461 , x_msg_data out nocopy VARCHAR2
462 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
463 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
464 , p5_a2 NUMBER := 0-1962.0724
465 , p5_a3 NUMBER := 0-1962.0724
466 , p5_a4 NUMBER := 0-1962.0724
467 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
468 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
469 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
470 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
471 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
472 , p5_a10 NUMBER := 0-1962.0724
473 , p5_a11 NUMBER := 0-1962.0724
474 , p5_a12 NUMBER := 0-1962.0724
475 , p5_a13 NUMBER := 0-1962.0724
476 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
477 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
478 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
479 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
480 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
481 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
482 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
483 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
484 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
485 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
486 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
487 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
488 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
489 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
490 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
491 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
492 , p5_a30 NUMBER := 0-1962.0724
493 , p5_a31 DATE := fnd_api.g_miss_date
494 , p5_a32 NUMBER := 0-1962.0724
495 , p5_a33 DATE := fnd_api.g_miss_date
496 , p5_a34 NUMBER := 0-1962.0724
497 , p5_a35 NUMBER := 0-1962.0724
498 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
499 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
500 , p5_a38 DATE := fnd_api.g_miss_date
501 , p5_a39 DATE := fnd_api.g_miss_date
502 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
503 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
504 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
505 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
506 )
507
508 as
509 ddp_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
510 ddindx binary_integer; indx binary_integer;
511 begin
512
513 -- copy data to the local IN or IN-OUT args, if any
514
515
516
517
518
519 ddp_tbcv_rec.result_code := p5_a0;
520 ddp_tbcv_rec.purchase_option_code := p5_a1;
521 ddp_tbcv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
522 ddp_tbcv_rec.try_id := rosetta_g_miss_num_map(p5_a3);
523 ddp_tbcv_rec.sty_id := rosetta_g_miss_num_map(p5_a4);
524 ddp_tbcv_rec.int_disclosed_code := p5_a5;
525 ddp_tbcv_rec.title_trnsfr_code := p5_a6;
526 ddp_tbcv_rec.sale_lease_back_code := p5_a7;
527 ddp_tbcv_rec.lease_purchased_code := p5_a8;
528 ddp_tbcv_rec.equip_usage_code := p5_a9;
529 ddp_tbcv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a10);
530 ddp_tbcv_rec.age_of_equip_from := rosetta_g_miss_num_map(p5_a11);
531 ddp_tbcv_rec.age_of_equip_to := rosetta_g_miss_num_map(p5_a12);
532 ddp_tbcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
533 ddp_tbcv_rec.attribute_category := p5_a14;
534 ddp_tbcv_rec.attribute1 := p5_a15;
535 ddp_tbcv_rec.attribute2 := p5_a16;
536 ddp_tbcv_rec.attribute3 := p5_a17;
537 ddp_tbcv_rec.attribute4 := p5_a18;
538 ddp_tbcv_rec.attribute5 := p5_a19;
539 ddp_tbcv_rec.attribute6 := p5_a20;
540 ddp_tbcv_rec.attribute7 := p5_a21;
541 ddp_tbcv_rec.attribute8 := p5_a22;
542 ddp_tbcv_rec.attribute9 := p5_a23;
543 ddp_tbcv_rec.attribute10 := p5_a24;
544 ddp_tbcv_rec.attribute11 := p5_a25;
545 ddp_tbcv_rec.attribute12 := p5_a26;
546 ddp_tbcv_rec.attribute13 := p5_a27;
547 ddp_tbcv_rec.attribute14 := p5_a28;
548 ddp_tbcv_rec.attribute15 := p5_a29;
549 ddp_tbcv_rec.created_by := rosetta_g_miss_num_map(p5_a30);
550 ddp_tbcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a31);
551 ddp_tbcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a32);
552 ddp_tbcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a33);
553 ddp_tbcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a34);
554 ddp_tbcv_rec.tax_attribute_def_id := rosetta_g_miss_num_map(p5_a35);
555 ddp_tbcv_rec.result_type_code := p5_a36;
556 ddp_tbcv_rec.book_class_code := p5_a37;
557 ddp_tbcv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a38);
558 ddp_tbcv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a39);
559 ddp_tbcv_rec.tax_country_code := p5_a40;
560 ddp_tbcv_rec.term_quote_type_code := p5_a41;
561 ddp_tbcv_rec.term_quote_reason_code := p5_a42;
562 ddp_tbcv_rec.expire_flag := p5_a43;
563
564 -- here's the delegated call to the old PL/SQL routine
565 okl_tbc_definitions_pub.lock_tbc_definition(p_api_version,
566 p_init_msg_list,
567 x_return_status,
568 x_msg_count,
569 x_msg_data,
570 ddp_tbcv_rec);
571
572 -- copy data back from the local variables to OUT or IN-OUT args, if any
573
574
575
576
577
578 end;
579
580 procedure lock_tbc_definition(p_api_version NUMBER
581 , p_init_msg_list VARCHAR2
582 , x_return_status out nocopy VARCHAR2
583 , x_msg_count out nocopy NUMBER
584 , x_msg_data out nocopy VARCHAR2
585 , p5_a0 JTF_VARCHAR2_TABLE_300
586 , p5_a1 JTF_VARCHAR2_TABLE_100
587 , p5_a2 JTF_NUMBER_TABLE
588 , p5_a3 JTF_NUMBER_TABLE
589 , p5_a4 JTF_NUMBER_TABLE
590 , p5_a5 JTF_VARCHAR2_TABLE_100
591 , p5_a6 JTF_VARCHAR2_TABLE_100
592 , p5_a7 JTF_VARCHAR2_TABLE_100
593 , p5_a8 JTF_VARCHAR2_TABLE_100
594 , p5_a9 JTF_VARCHAR2_TABLE_100
595 , p5_a10 JTF_NUMBER_TABLE
596 , p5_a11 JTF_NUMBER_TABLE
597 , p5_a12 JTF_NUMBER_TABLE
598 , p5_a13 JTF_NUMBER_TABLE
599 , p5_a14 JTF_VARCHAR2_TABLE_100
600 , p5_a15 JTF_VARCHAR2_TABLE_500
601 , p5_a16 JTF_VARCHAR2_TABLE_500
602 , p5_a17 JTF_VARCHAR2_TABLE_500
603 , p5_a18 JTF_VARCHAR2_TABLE_500
604 , p5_a19 JTF_VARCHAR2_TABLE_500
605 , p5_a20 JTF_VARCHAR2_TABLE_500
606 , p5_a21 JTF_VARCHAR2_TABLE_500
607 , p5_a22 JTF_VARCHAR2_TABLE_500
608 , p5_a23 JTF_VARCHAR2_TABLE_500
609 , p5_a24 JTF_VARCHAR2_TABLE_500
610 , p5_a25 JTF_VARCHAR2_TABLE_500
611 , p5_a26 JTF_VARCHAR2_TABLE_500
612 , p5_a27 JTF_VARCHAR2_TABLE_500
613 , p5_a28 JTF_VARCHAR2_TABLE_500
614 , p5_a29 JTF_VARCHAR2_TABLE_500
615 , p5_a30 JTF_NUMBER_TABLE
616 , p5_a31 JTF_DATE_TABLE
617 , p5_a32 JTF_NUMBER_TABLE
618 , p5_a33 JTF_DATE_TABLE
619 , p5_a34 JTF_NUMBER_TABLE
620 , p5_a35 JTF_NUMBER_TABLE
621 , p5_a36 JTF_VARCHAR2_TABLE_100
622 , p5_a37 JTF_VARCHAR2_TABLE_100
623 , p5_a38 JTF_DATE_TABLE
624 , p5_a39 JTF_DATE_TABLE
625 , p5_a40 JTF_VARCHAR2_TABLE_100
626 , p5_a41 JTF_VARCHAR2_TABLE_100
627 , p5_a42 JTF_VARCHAR2_TABLE_100
628 , p5_a43 JTF_VARCHAR2_TABLE_100
629 )
630
631 as
632 ddp_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
633 ddindx binary_integer; indx binary_integer;
634 begin
635
636 -- copy data to the local IN or IN-OUT args, if any
637
638
639
640
641
642 okl_tbc_pvt_w.rosetta_table_copy_in_p2(ddp_tbcv_tbl, p5_a0
643 , p5_a1
644 , p5_a2
645 , p5_a3
646 , p5_a4
647 , p5_a5
648 , p5_a6
649 , p5_a7
650 , p5_a8
651 , p5_a9
652 , p5_a10
653 , p5_a11
654 , p5_a12
655 , p5_a13
656 , p5_a14
657 , p5_a15
658 , p5_a16
659 , p5_a17
660 , p5_a18
661 , p5_a19
662 , p5_a20
663 , p5_a21
664 , p5_a22
665 , p5_a23
666 , p5_a24
667 , p5_a25
668 , p5_a26
669 , p5_a27
670 , p5_a28
671 , p5_a29
672 , p5_a30
673 , p5_a31
674 , p5_a32
675 , p5_a33
676 , p5_a34
677 , p5_a35
678 , p5_a36
679 , p5_a37
680 , p5_a38
681 , p5_a39
682 , p5_a40
683 , p5_a41
684 , p5_a42
685 , p5_a43
686 );
687
688 -- here's the delegated call to the old PL/SQL routine
689 okl_tbc_definitions_pub.lock_tbc_definition(p_api_version,
690 p_init_msg_list,
691 x_return_status,
692 x_msg_count,
693 x_msg_data,
694 ddp_tbcv_tbl);
695
696 -- copy data back from the local variables to OUT or IN-OUT args, if any
697
698
699
700
701
702 end;
703
704 procedure update_tbc_definition(p_api_version NUMBER
705 , p_init_msg_list VARCHAR2
706 , x_return_status out nocopy VARCHAR2
707 , x_msg_count out nocopy NUMBER
708 , x_msg_data out nocopy VARCHAR2
709 , p6_a0 out nocopy VARCHAR2
710 , p6_a1 out nocopy VARCHAR2
711 , p6_a2 out nocopy NUMBER
712 , p6_a3 out nocopy NUMBER
713 , p6_a4 out nocopy NUMBER
714 , p6_a5 out nocopy VARCHAR2
715 , p6_a6 out nocopy VARCHAR2
716 , p6_a7 out nocopy VARCHAR2
717 , p6_a8 out nocopy VARCHAR2
718 , p6_a9 out nocopy VARCHAR2
719 , p6_a10 out nocopy NUMBER
720 , p6_a11 out nocopy NUMBER
721 , p6_a12 out nocopy NUMBER
722 , p6_a13 out nocopy NUMBER
723 , p6_a14 out nocopy VARCHAR2
724 , p6_a15 out nocopy VARCHAR2
725 , p6_a16 out nocopy VARCHAR2
726 , p6_a17 out nocopy VARCHAR2
727 , p6_a18 out nocopy VARCHAR2
728 , p6_a19 out nocopy VARCHAR2
729 , p6_a20 out nocopy VARCHAR2
730 , p6_a21 out nocopy VARCHAR2
731 , p6_a22 out nocopy VARCHAR2
732 , p6_a23 out nocopy VARCHAR2
733 , p6_a24 out nocopy VARCHAR2
734 , p6_a25 out nocopy VARCHAR2
735 , p6_a26 out nocopy VARCHAR2
736 , p6_a27 out nocopy VARCHAR2
737 , p6_a28 out nocopy VARCHAR2
738 , p6_a29 out nocopy VARCHAR2
739 , p6_a30 out nocopy NUMBER
740 , p6_a31 out nocopy DATE
741 , p6_a32 out nocopy NUMBER
742 , p6_a33 out nocopy DATE
743 , p6_a34 out nocopy NUMBER
744 , p6_a35 out nocopy NUMBER
745 , p6_a36 out nocopy VARCHAR2
746 , p6_a37 out nocopy VARCHAR2
747 , p6_a38 out nocopy DATE
748 , p6_a39 out nocopy DATE
749 , p6_a40 out nocopy VARCHAR2
750 , p6_a41 out nocopy VARCHAR2
751 , p6_a42 out nocopy VARCHAR2
752 , p6_a43 out nocopy VARCHAR2
753 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
754 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
755 , p5_a2 NUMBER := 0-1962.0724
756 , p5_a3 NUMBER := 0-1962.0724
757 , p5_a4 NUMBER := 0-1962.0724
758 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
759 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
760 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
761 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
762 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
763 , p5_a10 NUMBER := 0-1962.0724
764 , p5_a11 NUMBER := 0-1962.0724
765 , p5_a12 NUMBER := 0-1962.0724
766 , p5_a13 NUMBER := 0-1962.0724
767 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
768 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
769 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
770 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
771 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
772 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
773 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
774 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
775 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
776 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
777 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
778 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
779 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
780 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
781 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
782 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
783 , p5_a30 NUMBER := 0-1962.0724
784 , p5_a31 DATE := fnd_api.g_miss_date
785 , p5_a32 NUMBER := 0-1962.0724
786 , p5_a33 DATE := fnd_api.g_miss_date
787 , p5_a34 NUMBER := 0-1962.0724
788 , p5_a35 NUMBER := 0-1962.0724
789 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
790 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
791 , p5_a38 DATE := fnd_api.g_miss_date
792 , p5_a39 DATE := fnd_api.g_miss_date
793 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
794 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
795 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
796 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
797 )
798
799 as
800 ddp_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
801 ddx_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
802 ddindx binary_integer; indx binary_integer;
803 begin
804
805 -- copy data to the local IN or IN-OUT args, if any
806
807
808
809
810
811 ddp_tbcv_rec.result_code := p5_a0;
812 ddp_tbcv_rec.purchase_option_code := p5_a1;
813 ddp_tbcv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
814 ddp_tbcv_rec.try_id := rosetta_g_miss_num_map(p5_a3);
815 ddp_tbcv_rec.sty_id := rosetta_g_miss_num_map(p5_a4);
816 ddp_tbcv_rec.int_disclosed_code := p5_a5;
817 ddp_tbcv_rec.title_trnsfr_code := p5_a6;
818 ddp_tbcv_rec.sale_lease_back_code := p5_a7;
819 ddp_tbcv_rec.lease_purchased_code := p5_a8;
820 ddp_tbcv_rec.equip_usage_code := p5_a9;
821 ddp_tbcv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a10);
822 ddp_tbcv_rec.age_of_equip_from := rosetta_g_miss_num_map(p5_a11);
823 ddp_tbcv_rec.age_of_equip_to := rosetta_g_miss_num_map(p5_a12);
824 ddp_tbcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
825 ddp_tbcv_rec.attribute_category := p5_a14;
826 ddp_tbcv_rec.attribute1 := p5_a15;
827 ddp_tbcv_rec.attribute2 := p5_a16;
828 ddp_tbcv_rec.attribute3 := p5_a17;
829 ddp_tbcv_rec.attribute4 := p5_a18;
830 ddp_tbcv_rec.attribute5 := p5_a19;
831 ddp_tbcv_rec.attribute6 := p5_a20;
832 ddp_tbcv_rec.attribute7 := p5_a21;
833 ddp_tbcv_rec.attribute8 := p5_a22;
834 ddp_tbcv_rec.attribute9 := p5_a23;
835 ddp_tbcv_rec.attribute10 := p5_a24;
836 ddp_tbcv_rec.attribute11 := p5_a25;
837 ddp_tbcv_rec.attribute12 := p5_a26;
838 ddp_tbcv_rec.attribute13 := p5_a27;
839 ddp_tbcv_rec.attribute14 := p5_a28;
840 ddp_tbcv_rec.attribute15 := p5_a29;
841 ddp_tbcv_rec.created_by := rosetta_g_miss_num_map(p5_a30);
842 ddp_tbcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a31);
843 ddp_tbcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a32);
844 ddp_tbcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a33);
845 ddp_tbcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a34);
846 ddp_tbcv_rec.tax_attribute_def_id := rosetta_g_miss_num_map(p5_a35);
847 ddp_tbcv_rec.result_type_code := p5_a36;
848 ddp_tbcv_rec.book_class_code := p5_a37;
849 ddp_tbcv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a38);
850 ddp_tbcv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a39);
851 ddp_tbcv_rec.tax_country_code := p5_a40;
852 ddp_tbcv_rec.term_quote_type_code := p5_a41;
853 ddp_tbcv_rec.term_quote_reason_code := p5_a42;
854 ddp_tbcv_rec.expire_flag := p5_a43;
855
856
857 -- here's the delegated call to the old PL/SQL routine
858 okl_tbc_definitions_pub.update_tbc_definition(p_api_version,
859 p_init_msg_list,
860 x_return_status,
861 x_msg_count,
862 x_msg_data,
863 ddp_tbcv_rec,
864 ddx_tbcv_rec);
865
866 -- copy data back from the local variables to OUT or IN-OUT args, if any
867
868
869
870
871
872
873 p6_a0 := ddx_tbcv_rec.result_code;
874 p6_a1 := ddx_tbcv_rec.purchase_option_code;
875 p6_a2 := rosetta_g_miss_num_map(ddx_tbcv_rec.pdt_id);
876 p6_a3 := rosetta_g_miss_num_map(ddx_tbcv_rec.try_id);
877 p6_a4 := rosetta_g_miss_num_map(ddx_tbcv_rec.sty_id);
878 p6_a5 := ddx_tbcv_rec.int_disclosed_code;
879 p6_a6 := ddx_tbcv_rec.title_trnsfr_code;
880 p6_a7 := ddx_tbcv_rec.sale_lease_back_code;
881 p6_a8 := ddx_tbcv_rec.lease_purchased_code;
882 p6_a9 := ddx_tbcv_rec.equip_usage_code;
883 p6_a10 := rosetta_g_miss_num_map(ddx_tbcv_rec.vendor_site_id);
884 p6_a11 := rosetta_g_miss_num_map(ddx_tbcv_rec.age_of_equip_from);
885 p6_a12 := rosetta_g_miss_num_map(ddx_tbcv_rec.age_of_equip_to);
886 p6_a13 := rosetta_g_miss_num_map(ddx_tbcv_rec.object_version_number);
887 p6_a14 := ddx_tbcv_rec.attribute_category;
888 p6_a15 := ddx_tbcv_rec.attribute1;
889 p6_a16 := ddx_tbcv_rec.attribute2;
890 p6_a17 := ddx_tbcv_rec.attribute3;
891 p6_a18 := ddx_tbcv_rec.attribute4;
892 p6_a19 := ddx_tbcv_rec.attribute5;
893 p6_a20 := ddx_tbcv_rec.attribute6;
894 p6_a21 := ddx_tbcv_rec.attribute7;
895 p6_a22 := ddx_tbcv_rec.attribute8;
896 p6_a23 := ddx_tbcv_rec.attribute9;
897 p6_a24 := ddx_tbcv_rec.attribute10;
898 p6_a25 := ddx_tbcv_rec.attribute11;
899 p6_a26 := ddx_tbcv_rec.attribute12;
900 p6_a27 := ddx_tbcv_rec.attribute13;
901 p6_a28 := ddx_tbcv_rec.attribute14;
902 p6_a29 := ddx_tbcv_rec.attribute15;
903 p6_a30 := rosetta_g_miss_num_map(ddx_tbcv_rec.created_by);
904 p6_a31 := ddx_tbcv_rec.creation_date;
905 p6_a32 := rosetta_g_miss_num_map(ddx_tbcv_rec.last_updated_by);
906 p6_a33 := ddx_tbcv_rec.last_update_date;
907 p6_a34 := rosetta_g_miss_num_map(ddx_tbcv_rec.last_update_login);
908 p6_a35 := rosetta_g_miss_num_map(ddx_tbcv_rec.tax_attribute_def_id);
909 p6_a36 := ddx_tbcv_rec.result_type_code;
910 p6_a37 := ddx_tbcv_rec.book_class_code;
911 p6_a38 := ddx_tbcv_rec.date_effective_from;
912 p6_a39 := ddx_tbcv_rec.date_effective_to;
913 p6_a40 := ddx_tbcv_rec.tax_country_code;
914 p6_a41 := ddx_tbcv_rec.term_quote_type_code;
915 p6_a42 := ddx_tbcv_rec.term_quote_reason_code;
916 p6_a43 := ddx_tbcv_rec.expire_flag;
917 end;
918
919 procedure update_tbc_definition(p_api_version NUMBER
920 , p_init_msg_list VARCHAR2
921 , x_return_status out nocopy VARCHAR2
922 , x_msg_count out nocopy NUMBER
923 , x_msg_data out nocopy VARCHAR2
924 , p5_a0 JTF_VARCHAR2_TABLE_300
925 , p5_a1 JTF_VARCHAR2_TABLE_100
926 , p5_a2 JTF_NUMBER_TABLE
927 , p5_a3 JTF_NUMBER_TABLE
928 , p5_a4 JTF_NUMBER_TABLE
929 , p5_a5 JTF_VARCHAR2_TABLE_100
930 , p5_a6 JTF_VARCHAR2_TABLE_100
931 , p5_a7 JTF_VARCHAR2_TABLE_100
932 , p5_a8 JTF_VARCHAR2_TABLE_100
933 , p5_a9 JTF_VARCHAR2_TABLE_100
934 , p5_a10 JTF_NUMBER_TABLE
935 , p5_a11 JTF_NUMBER_TABLE
936 , p5_a12 JTF_NUMBER_TABLE
937 , p5_a13 JTF_NUMBER_TABLE
938 , p5_a14 JTF_VARCHAR2_TABLE_100
939 , p5_a15 JTF_VARCHAR2_TABLE_500
940 , p5_a16 JTF_VARCHAR2_TABLE_500
941 , p5_a17 JTF_VARCHAR2_TABLE_500
942 , p5_a18 JTF_VARCHAR2_TABLE_500
943 , p5_a19 JTF_VARCHAR2_TABLE_500
944 , p5_a20 JTF_VARCHAR2_TABLE_500
945 , p5_a21 JTF_VARCHAR2_TABLE_500
946 , p5_a22 JTF_VARCHAR2_TABLE_500
947 , p5_a23 JTF_VARCHAR2_TABLE_500
948 , p5_a24 JTF_VARCHAR2_TABLE_500
949 , p5_a25 JTF_VARCHAR2_TABLE_500
950 , p5_a26 JTF_VARCHAR2_TABLE_500
951 , p5_a27 JTF_VARCHAR2_TABLE_500
952 , p5_a28 JTF_VARCHAR2_TABLE_500
953 , p5_a29 JTF_VARCHAR2_TABLE_500
954 , p5_a30 JTF_NUMBER_TABLE
955 , p5_a31 JTF_DATE_TABLE
956 , p5_a32 JTF_NUMBER_TABLE
957 , p5_a33 JTF_DATE_TABLE
958 , p5_a34 JTF_NUMBER_TABLE
959 , p5_a35 JTF_NUMBER_TABLE
960 , p5_a36 JTF_VARCHAR2_TABLE_100
961 , p5_a37 JTF_VARCHAR2_TABLE_100
962 , p5_a38 JTF_DATE_TABLE
963 , p5_a39 JTF_DATE_TABLE
964 , p5_a40 JTF_VARCHAR2_TABLE_100
965 , p5_a41 JTF_VARCHAR2_TABLE_100
966 , p5_a42 JTF_VARCHAR2_TABLE_100
967 , p5_a43 JTF_VARCHAR2_TABLE_100
968 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_300
969 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
970 , p6_a2 out nocopy JTF_NUMBER_TABLE
971 , p6_a3 out nocopy JTF_NUMBER_TABLE
972 , p6_a4 out nocopy JTF_NUMBER_TABLE
973 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
974 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
975 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
976 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
977 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
978 , p6_a10 out nocopy JTF_NUMBER_TABLE
979 , p6_a11 out nocopy JTF_NUMBER_TABLE
980 , p6_a12 out nocopy JTF_NUMBER_TABLE
981 , p6_a13 out nocopy JTF_NUMBER_TABLE
982 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
983 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
984 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
985 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
986 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
987 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
988 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
989 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
990 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
991 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
992 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
993 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
994 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
995 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
996 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
997 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
998 , p6_a30 out nocopy JTF_NUMBER_TABLE
999 , p6_a31 out nocopy JTF_DATE_TABLE
1000 , p6_a32 out nocopy JTF_NUMBER_TABLE
1001 , p6_a33 out nocopy JTF_DATE_TABLE
1002 , p6_a34 out nocopy JTF_NUMBER_TABLE
1003 , p6_a35 out nocopy JTF_NUMBER_TABLE
1004 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
1005 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_100
1006 , p6_a38 out nocopy JTF_DATE_TABLE
1007 , p6_a39 out nocopy JTF_DATE_TABLE
1008 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
1009 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
1010 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
1011 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
1012 )
1013
1014 as
1015 ddp_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
1016 ddx_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
1017 ddindx binary_integer; indx binary_integer;
1018 begin
1019
1020 -- copy data to the local IN or IN-OUT args, if any
1021
1022
1023
1024
1025
1026 okl_tbc_pvt_w.rosetta_table_copy_in_p2(ddp_tbcv_tbl, p5_a0
1027 , p5_a1
1028 , p5_a2
1029 , p5_a3
1030 , p5_a4
1031 , p5_a5
1032 , p5_a6
1033 , p5_a7
1034 , p5_a8
1035 , p5_a9
1036 , p5_a10
1037 , p5_a11
1038 , p5_a12
1039 , p5_a13
1040 , p5_a14
1041 , p5_a15
1042 , p5_a16
1043 , p5_a17
1044 , p5_a18
1045 , p5_a19
1046 , p5_a20
1047 , p5_a21
1048 , p5_a22
1049 , p5_a23
1050 , p5_a24
1051 , p5_a25
1052 , p5_a26
1053 , p5_a27
1054 , p5_a28
1055 , p5_a29
1056 , p5_a30
1057 , p5_a31
1058 , p5_a32
1059 , p5_a33
1060 , p5_a34
1061 , p5_a35
1062 , p5_a36
1063 , p5_a37
1064 , p5_a38
1065 , p5_a39
1066 , p5_a40
1067 , p5_a41
1068 , p5_a42
1069 , p5_a43
1070 );
1071
1072
1073 -- here's the delegated call to the old PL/SQL routine
1074 okl_tbc_definitions_pub.update_tbc_definition(p_api_version,
1075 p_init_msg_list,
1076 x_return_status,
1077 x_msg_count,
1078 x_msg_data,
1079 ddp_tbcv_tbl,
1080 ddx_tbcv_tbl);
1081
1082 -- copy data back from the local variables to OUT or IN-OUT args, if any
1083
1084
1085
1086
1087
1088
1089 okl_tbc_pvt_w.rosetta_table_copy_out_p2(ddx_tbcv_tbl, p6_a0
1090 , p6_a1
1091 , p6_a2
1092 , p6_a3
1093 , p6_a4
1094 , p6_a5
1095 , p6_a6
1096 , p6_a7
1097 , p6_a8
1098 , p6_a9
1099 , p6_a10
1100 , p6_a11
1101 , p6_a12
1102 , p6_a13
1103 , p6_a14
1104 , p6_a15
1105 , p6_a16
1106 , p6_a17
1107 , p6_a18
1108 , p6_a19
1109 , p6_a20
1110 , p6_a21
1111 , p6_a22
1112 , p6_a23
1113 , p6_a24
1114 , p6_a25
1115 , p6_a26
1116 , p6_a27
1117 , p6_a28
1118 , p6_a29
1119 , p6_a30
1120 , p6_a31
1121 , p6_a32
1122 , p6_a33
1123 , p6_a34
1124 , p6_a35
1125 , p6_a36
1126 , p6_a37
1127 , p6_a38
1128 , p6_a39
1129 , p6_a40
1130 , p6_a41
1131 , p6_a42
1132 , p6_a43
1133 );
1134 end;
1135
1136 procedure delete_tbc_definition(p_api_version NUMBER
1137 , p_init_msg_list VARCHAR2
1138 , x_return_status out nocopy VARCHAR2
1139 , x_msg_count out nocopy NUMBER
1140 , x_msg_data out nocopy VARCHAR2
1141 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
1142 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1143 , p5_a2 NUMBER := 0-1962.0724
1144 , p5_a3 NUMBER := 0-1962.0724
1145 , p5_a4 NUMBER := 0-1962.0724
1146 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1147 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1148 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1149 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1150 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1151 , p5_a10 NUMBER := 0-1962.0724
1152 , p5_a11 NUMBER := 0-1962.0724
1153 , p5_a12 NUMBER := 0-1962.0724
1154 , p5_a13 NUMBER := 0-1962.0724
1155 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1156 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1157 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1158 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1159 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1160 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1161 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1162 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1163 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1164 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1165 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1166 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1167 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1168 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1169 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1170 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1171 , p5_a30 NUMBER := 0-1962.0724
1172 , p5_a31 DATE := fnd_api.g_miss_date
1173 , p5_a32 NUMBER := 0-1962.0724
1174 , p5_a33 DATE := fnd_api.g_miss_date
1175 , p5_a34 NUMBER := 0-1962.0724
1176 , p5_a35 NUMBER := 0-1962.0724
1177 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
1178 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
1179 , p5_a38 DATE := fnd_api.g_miss_date
1180 , p5_a39 DATE := fnd_api.g_miss_date
1181 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1182 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
1183 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
1184 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1185 )
1186
1187 as
1188 ddp_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
1189 ddindx binary_integer; indx binary_integer;
1190 begin
1191
1192 -- copy data to the local IN or IN-OUT args, if any
1193
1194
1195
1196
1197
1198 ddp_tbcv_rec.result_code := p5_a0;
1199 ddp_tbcv_rec.purchase_option_code := p5_a1;
1200 ddp_tbcv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
1201 ddp_tbcv_rec.try_id := rosetta_g_miss_num_map(p5_a3);
1202 ddp_tbcv_rec.sty_id := rosetta_g_miss_num_map(p5_a4);
1203 ddp_tbcv_rec.int_disclosed_code := p5_a5;
1204 ddp_tbcv_rec.title_trnsfr_code := p5_a6;
1205 ddp_tbcv_rec.sale_lease_back_code := p5_a7;
1206 ddp_tbcv_rec.lease_purchased_code := p5_a8;
1207 ddp_tbcv_rec.equip_usage_code := p5_a9;
1208 ddp_tbcv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a10);
1209 ddp_tbcv_rec.age_of_equip_from := rosetta_g_miss_num_map(p5_a11);
1210 ddp_tbcv_rec.age_of_equip_to := rosetta_g_miss_num_map(p5_a12);
1211 ddp_tbcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
1212 ddp_tbcv_rec.attribute_category := p5_a14;
1213 ddp_tbcv_rec.attribute1 := p5_a15;
1214 ddp_tbcv_rec.attribute2 := p5_a16;
1215 ddp_tbcv_rec.attribute3 := p5_a17;
1216 ddp_tbcv_rec.attribute4 := p5_a18;
1217 ddp_tbcv_rec.attribute5 := p5_a19;
1218 ddp_tbcv_rec.attribute6 := p5_a20;
1219 ddp_tbcv_rec.attribute7 := p5_a21;
1220 ddp_tbcv_rec.attribute8 := p5_a22;
1221 ddp_tbcv_rec.attribute9 := p5_a23;
1222 ddp_tbcv_rec.attribute10 := p5_a24;
1223 ddp_tbcv_rec.attribute11 := p5_a25;
1224 ddp_tbcv_rec.attribute12 := p5_a26;
1225 ddp_tbcv_rec.attribute13 := p5_a27;
1226 ddp_tbcv_rec.attribute14 := p5_a28;
1227 ddp_tbcv_rec.attribute15 := p5_a29;
1228 ddp_tbcv_rec.created_by := rosetta_g_miss_num_map(p5_a30);
1229 ddp_tbcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a31);
1230 ddp_tbcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a32);
1231 ddp_tbcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a33);
1232 ddp_tbcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a34);
1233 ddp_tbcv_rec.tax_attribute_def_id := rosetta_g_miss_num_map(p5_a35);
1234 ddp_tbcv_rec.result_type_code := p5_a36;
1235 ddp_tbcv_rec.book_class_code := p5_a37;
1236 ddp_tbcv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a38);
1237 ddp_tbcv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a39);
1238 ddp_tbcv_rec.tax_country_code := p5_a40;
1239 ddp_tbcv_rec.term_quote_type_code := p5_a41;
1240 ddp_tbcv_rec.term_quote_reason_code := p5_a42;
1241 ddp_tbcv_rec.expire_flag := p5_a43;
1242
1243 -- here's the delegated call to the old PL/SQL routine
1244 okl_tbc_definitions_pub.delete_tbc_definition(p_api_version,
1245 p_init_msg_list,
1246 x_return_status,
1247 x_msg_count,
1248 x_msg_data,
1249 ddp_tbcv_rec);
1250
1251 -- copy data back from the local variables to OUT or IN-OUT args, if any
1252
1253
1254
1255
1256
1257 end;
1258
1259 procedure delete_tbc_definition(p_api_version NUMBER
1260 , p_init_msg_list VARCHAR2
1261 , x_return_status out nocopy VARCHAR2
1262 , x_msg_count out nocopy NUMBER
1263 , x_msg_data out nocopy VARCHAR2
1264 , p5_a0 JTF_VARCHAR2_TABLE_300
1265 , p5_a1 JTF_VARCHAR2_TABLE_100
1266 , p5_a2 JTF_NUMBER_TABLE
1267 , p5_a3 JTF_NUMBER_TABLE
1268 , p5_a4 JTF_NUMBER_TABLE
1269 , p5_a5 JTF_VARCHAR2_TABLE_100
1270 , p5_a6 JTF_VARCHAR2_TABLE_100
1271 , p5_a7 JTF_VARCHAR2_TABLE_100
1272 , p5_a8 JTF_VARCHAR2_TABLE_100
1273 , p5_a9 JTF_VARCHAR2_TABLE_100
1274 , p5_a10 JTF_NUMBER_TABLE
1275 , p5_a11 JTF_NUMBER_TABLE
1276 , p5_a12 JTF_NUMBER_TABLE
1277 , p5_a13 JTF_NUMBER_TABLE
1278 , p5_a14 JTF_VARCHAR2_TABLE_100
1279 , p5_a15 JTF_VARCHAR2_TABLE_500
1280 , p5_a16 JTF_VARCHAR2_TABLE_500
1281 , p5_a17 JTF_VARCHAR2_TABLE_500
1282 , p5_a18 JTF_VARCHAR2_TABLE_500
1283 , p5_a19 JTF_VARCHAR2_TABLE_500
1284 , p5_a20 JTF_VARCHAR2_TABLE_500
1285 , p5_a21 JTF_VARCHAR2_TABLE_500
1286 , p5_a22 JTF_VARCHAR2_TABLE_500
1287 , p5_a23 JTF_VARCHAR2_TABLE_500
1288 , p5_a24 JTF_VARCHAR2_TABLE_500
1289 , p5_a25 JTF_VARCHAR2_TABLE_500
1290 , p5_a26 JTF_VARCHAR2_TABLE_500
1291 , p5_a27 JTF_VARCHAR2_TABLE_500
1292 , p5_a28 JTF_VARCHAR2_TABLE_500
1293 , p5_a29 JTF_VARCHAR2_TABLE_500
1294 , p5_a30 JTF_NUMBER_TABLE
1295 , p5_a31 JTF_DATE_TABLE
1296 , p5_a32 JTF_NUMBER_TABLE
1297 , p5_a33 JTF_DATE_TABLE
1298 , p5_a34 JTF_NUMBER_TABLE
1299 , p5_a35 JTF_NUMBER_TABLE
1300 , p5_a36 JTF_VARCHAR2_TABLE_100
1301 , p5_a37 JTF_VARCHAR2_TABLE_100
1302 , p5_a38 JTF_DATE_TABLE
1303 , p5_a39 JTF_DATE_TABLE
1304 , p5_a40 JTF_VARCHAR2_TABLE_100
1305 , p5_a41 JTF_VARCHAR2_TABLE_100
1306 , p5_a42 JTF_VARCHAR2_TABLE_100
1307 , p5_a43 JTF_VARCHAR2_TABLE_100
1308 )
1309
1310 as
1311 ddp_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
1312 ddindx binary_integer; indx binary_integer;
1313 begin
1314
1315 -- copy data to the local IN or IN-OUT args, if any
1316
1317
1318
1319
1320
1321 okl_tbc_pvt_w.rosetta_table_copy_in_p2(ddp_tbcv_tbl, p5_a0
1322 , p5_a1
1323 , p5_a2
1324 , p5_a3
1325 , p5_a4
1326 , p5_a5
1327 , p5_a6
1328 , p5_a7
1329 , p5_a8
1330 , p5_a9
1331 , p5_a10
1332 , p5_a11
1333 , p5_a12
1334 , p5_a13
1335 , p5_a14
1336 , p5_a15
1337 , p5_a16
1338 , p5_a17
1339 , p5_a18
1340 , p5_a19
1341 , p5_a20
1342 , p5_a21
1343 , p5_a22
1344 , p5_a23
1345 , p5_a24
1346 , p5_a25
1347 , p5_a26
1348 , p5_a27
1349 , p5_a28
1350 , p5_a29
1351 , p5_a30
1352 , p5_a31
1353 , p5_a32
1354 , p5_a33
1355 , p5_a34
1356 , p5_a35
1357 , p5_a36
1358 , p5_a37
1359 , p5_a38
1360 , p5_a39
1361 , p5_a40
1362 , p5_a41
1363 , p5_a42
1364 , p5_a43
1365 );
1366
1367 -- here's the delegated call to the old PL/SQL routine
1368 okl_tbc_definitions_pub.delete_tbc_definition(p_api_version,
1369 p_init_msg_list,
1370 x_return_status,
1371 x_msg_count,
1372 x_msg_data,
1373 ddp_tbcv_tbl);
1374
1375 -- copy data back from the local variables to OUT or IN-OUT args, if any
1376
1377
1378
1379
1380
1381 end;
1382
1383 procedure validate_tbc_definition(p_api_version NUMBER
1384 , p_init_msg_list VARCHAR2
1385 , x_return_status out nocopy VARCHAR2
1386 , x_msg_count out nocopy NUMBER
1387 , x_msg_data out nocopy VARCHAR2
1388 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
1389 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1390 , p5_a2 NUMBER := 0-1962.0724
1391 , p5_a3 NUMBER := 0-1962.0724
1392 , p5_a4 NUMBER := 0-1962.0724
1393 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1394 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1395 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1396 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1397 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1398 , p5_a10 NUMBER := 0-1962.0724
1399 , p5_a11 NUMBER := 0-1962.0724
1400 , p5_a12 NUMBER := 0-1962.0724
1401 , p5_a13 NUMBER := 0-1962.0724
1402 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1403 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1404 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1405 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1406 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1407 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1408 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1409 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1410 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1411 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1412 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1413 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1414 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1415 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1416 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1417 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1418 , p5_a30 NUMBER := 0-1962.0724
1419 , p5_a31 DATE := fnd_api.g_miss_date
1420 , p5_a32 NUMBER := 0-1962.0724
1421 , p5_a33 DATE := fnd_api.g_miss_date
1422 , p5_a34 NUMBER := 0-1962.0724
1423 , p5_a35 NUMBER := 0-1962.0724
1424 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
1425 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
1426 , p5_a38 DATE := fnd_api.g_miss_date
1427 , p5_a39 DATE := fnd_api.g_miss_date
1428 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1429 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
1430 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
1431 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1432 )
1433
1434 as
1435 ddp_tbcv_rec okl_tbc_definitions_pub.tbcv_rec_type;
1436 ddindx binary_integer; indx binary_integer;
1437 begin
1438
1439 -- copy data to the local IN or IN-OUT args, if any
1440
1441
1442
1443
1444
1445 ddp_tbcv_rec.result_code := p5_a0;
1446 ddp_tbcv_rec.purchase_option_code := p5_a1;
1447 ddp_tbcv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
1448 ddp_tbcv_rec.try_id := rosetta_g_miss_num_map(p5_a3);
1449 ddp_tbcv_rec.sty_id := rosetta_g_miss_num_map(p5_a4);
1450 ddp_tbcv_rec.int_disclosed_code := p5_a5;
1451 ddp_tbcv_rec.title_trnsfr_code := p5_a6;
1452 ddp_tbcv_rec.sale_lease_back_code := p5_a7;
1453 ddp_tbcv_rec.lease_purchased_code := p5_a8;
1454 ddp_tbcv_rec.equip_usage_code := p5_a9;
1455 ddp_tbcv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a10);
1456 ddp_tbcv_rec.age_of_equip_from := rosetta_g_miss_num_map(p5_a11);
1457 ddp_tbcv_rec.age_of_equip_to := rosetta_g_miss_num_map(p5_a12);
1458 ddp_tbcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
1459 ddp_tbcv_rec.attribute_category := p5_a14;
1460 ddp_tbcv_rec.attribute1 := p5_a15;
1461 ddp_tbcv_rec.attribute2 := p5_a16;
1462 ddp_tbcv_rec.attribute3 := p5_a17;
1463 ddp_tbcv_rec.attribute4 := p5_a18;
1464 ddp_tbcv_rec.attribute5 := p5_a19;
1465 ddp_tbcv_rec.attribute6 := p5_a20;
1466 ddp_tbcv_rec.attribute7 := p5_a21;
1467 ddp_tbcv_rec.attribute8 := p5_a22;
1468 ddp_tbcv_rec.attribute9 := p5_a23;
1469 ddp_tbcv_rec.attribute10 := p5_a24;
1470 ddp_tbcv_rec.attribute11 := p5_a25;
1471 ddp_tbcv_rec.attribute12 := p5_a26;
1472 ddp_tbcv_rec.attribute13 := p5_a27;
1473 ddp_tbcv_rec.attribute14 := p5_a28;
1474 ddp_tbcv_rec.attribute15 := p5_a29;
1475 ddp_tbcv_rec.created_by := rosetta_g_miss_num_map(p5_a30);
1476 ddp_tbcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a31);
1477 ddp_tbcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a32);
1478 ddp_tbcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a33);
1479 ddp_tbcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a34);
1480 ddp_tbcv_rec.tax_attribute_def_id := rosetta_g_miss_num_map(p5_a35);
1481 ddp_tbcv_rec.result_type_code := p5_a36;
1482 ddp_tbcv_rec.book_class_code := p5_a37;
1483 ddp_tbcv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a38);
1484 ddp_tbcv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a39);
1485 ddp_tbcv_rec.tax_country_code := p5_a40;
1486 ddp_tbcv_rec.term_quote_type_code := p5_a41;
1487 ddp_tbcv_rec.term_quote_reason_code := p5_a42;
1488 ddp_tbcv_rec.expire_flag := p5_a43;
1489
1490 -- here's the delegated call to the old PL/SQL routine
1491 okl_tbc_definitions_pub.validate_tbc_definition(p_api_version,
1492 p_init_msg_list,
1493 x_return_status,
1494 x_msg_count,
1495 x_msg_data,
1496 ddp_tbcv_rec);
1497
1498 -- copy data back from the local variables to OUT or IN-OUT args, if any
1499
1500
1501
1502
1503
1504 end;
1505
1506 procedure validate_tbc_definition(p_api_version NUMBER
1507 , p_init_msg_list VARCHAR2
1508 , x_return_status out nocopy VARCHAR2
1509 , x_msg_count out nocopy NUMBER
1510 , x_msg_data out nocopy VARCHAR2
1511 , p5_a0 JTF_VARCHAR2_TABLE_300
1512 , p5_a1 JTF_VARCHAR2_TABLE_100
1513 , p5_a2 JTF_NUMBER_TABLE
1514 , p5_a3 JTF_NUMBER_TABLE
1515 , p5_a4 JTF_NUMBER_TABLE
1516 , p5_a5 JTF_VARCHAR2_TABLE_100
1517 , p5_a6 JTF_VARCHAR2_TABLE_100
1518 , p5_a7 JTF_VARCHAR2_TABLE_100
1519 , p5_a8 JTF_VARCHAR2_TABLE_100
1520 , p5_a9 JTF_VARCHAR2_TABLE_100
1521 , p5_a10 JTF_NUMBER_TABLE
1522 , p5_a11 JTF_NUMBER_TABLE
1523 , p5_a12 JTF_NUMBER_TABLE
1524 , p5_a13 JTF_NUMBER_TABLE
1525 , p5_a14 JTF_VARCHAR2_TABLE_100
1526 , p5_a15 JTF_VARCHAR2_TABLE_500
1527 , p5_a16 JTF_VARCHAR2_TABLE_500
1528 , p5_a17 JTF_VARCHAR2_TABLE_500
1529 , p5_a18 JTF_VARCHAR2_TABLE_500
1530 , p5_a19 JTF_VARCHAR2_TABLE_500
1531 , p5_a20 JTF_VARCHAR2_TABLE_500
1532 , p5_a21 JTF_VARCHAR2_TABLE_500
1533 , p5_a22 JTF_VARCHAR2_TABLE_500
1534 , p5_a23 JTF_VARCHAR2_TABLE_500
1535 , p5_a24 JTF_VARCHAR2_TABLE_500
1536 , p5_a25 JTF_VARCHAR2_TABLE_500
1537 , p5_a26 JTF_VARCHAR2_TABLE_500
1538 , p5_a27 JTF_VARCHAR2_TABLE_500
1539 , p5_a28 JTF_VARCHAR2_TABLE_500
1540 , p5_a29 JTF_VARCHAR2_TABLE_500
1541 , p5_a30 JTF_NUMBER_TABLE
1542 , p5_a31 JTF_DATE_TABLE
1543 , p5_a32 JTF_NUMBER_TABLE
1544 , p5_a33 JTF_DATE_TABLE
1545 , p5_a34 JTF_NUMBER_TABLE
1546 , p5_a35 JTF_NUMBER_TABLE
1547 , p5_a36 JTF_VARCHAR2_TABLE_100
1548 , p5_a37 JTF_VARCHAR2_TABLE_100
1549 , p5_a38 JTF_DATE_TABLE
1550 , p5_a39 JTF_DATE_TABLE
1551 , p5_a40 JTF_VARCHAR2_TABLE_100
1552 , p5_a41 JTF_VARCHAR2_TABLE_100
1553 , p5_a42 JTF_VARCHAR2_TABLE_100
1554 , p5_a43 JTF_VARCHAR2_TABLE_100
1555 )
1556
1557 as
1558 ddp_tbcv_tbl okl_tbc_definitions_pub.tbcv_tbl_type;
1559 ddindx binary_integer; indx binary_integer;
1560 begin
1561
1562 -- copy data to the local IN or IN-OUT args, if any
1563
1564
1565
1566
1567
1568 okl_tbc_pvt_w.rosetta_table_copy_in_p2(ddp_tbcv_tbl, p5_a0
1569 , p5_a1
1570 , p5_a2
1571 , p5_a3
1572 , p5_a4
1573 , p5_a5
1574 , p5_a6
1575 , p5_a7
1576 , p5_a8
1577 , p5_a9
1578 , p5_a10
1579 , p5_a11
1580 , p5_a12
1581 , p5_a13
1582 , p5_a14
1583 , p5_a15
1584 , p5_a16
1585 , p5_a17
1586 , p5_a18
1587 , p5_a19
1588 , p5_a20
1589 , p5_a21
1590 , p5_a22
1591 , p5_a23
1592 , p5_a24
1593 , p5_a25
1594 , p5_a26
1595 , p5_a27
1596 , p5_a28
1597 , p5_a29
1598 , p5_a30
1599 , p5_a31
1600 , p5_a32
1601 , p5_a33
1602 , p5_a34
1603 , p5_a35
1604 , p5_a36
1605 , p5_a37
1606 , p5_a38
1607 , p5_a39
1608 , p5_a40
1609 , p5_a41
1610 , p5_a42
1611 , p5_a43
1612 );
1613
1614 -- here's the delegated call to the old PL/SQL routine
1615 okl_tbc_definitions_pub.validate_tbc_definition(p_api_version,
1616 p_init_msg_list,
1617 x_return_status,
1618 x_msg_count,
1619 x_msg_data,
1620 ddp_tbcv_tbl);
1621
1622 -- copy data back from the local variables to OUT or IN-OUT args, if any
1623
1624
1625
1626
1627
1628 end;
1629
1630 end okl_tbc_definitions_pub_w;