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