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