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