[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_STREAMTYPES_PUB_W
Source
1 package body okl_setup_streamtypes_pub_w as
2 /* $Header: OKLUSMTB.pls 120.3 2008/01/29 17:24:06 gkadarka 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure create_stream_type(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy VARCHAR2
29 , p6_a2 out nocopy VARCHAR2
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy VARCHAR2
34 , p6_a7 out nocopy VARCHAR2
35 , p6_a8 out nocopy DATE
36 , p6_a9 out nocopy DATE
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy VARCHAR2
39 , p6_a12 out nocopy VARCHAR2
40 , p6_a13 out nocopy VARCHAR2
41 , p6_a14 out nocopy VARCHAR2
42 , p6_a15 out nocopy VARCHAR2
43 , p6_a16 out nocopy VARCHAR2
44 , p6_a17 out nocopy VARCHAR2
45 , p6_a18 out nocopy VARCHAR2
46 , p6_a19 out nocopy VARCHAR2
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy VARCHAR2
51 , p6_a24 out nocopy VARCHAR2
52 , p6_a25 out nocopy VARCHAR2
53 , p6_a26 out nocopy VARCHAR2
54 , p6_a27 out nocopy VARCHAR2
55 , p6_a28 out nocopy VARCHAR2
56 , p6_a29 out nocopy VARCHAR2
57 , p6_a30 out nocopy VARCHAR2
58 , p6_a31 out nocopy VARCHAR2
59 , p6_a32 out nocopy VARCHAR2
60 , p6_a33 out nocopy VARCHAR2
61 , p6_a34 out nocopy VARCHAR2
62 , p6_a35 out nocopy VARCHAR2
63 , p6_a36 out nocopy NUMBER
64 , p6_a37 out nocopy DATE
65 , p6_a38 out nocopy NUMBER
66 , p6_a39 out nocopy DATE
67 , p6_a40 out nocopy NUMBER
68 , p6_a41 out nocopy VARCHAR2
69 , p6_a42 out nocopy VARCHAR2
70 , p6_a43 out nocopy VARCHAR2
71 , p6_a44 out nocopy NUMBER
72 , p5_a0 NUMBER := 0-1962.0724
73 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
74 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
75 , p5_a3 NUMBER := 0-1962.0724
76 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
77 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
78 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
79 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
80 , p5_a8 DATE := fnd_api.g_miss_date
81 , p5_a9 DATE := fnd_api.g_miss_date
82 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
83 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
84 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
85 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
86 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
87 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
88 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
89 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
90 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
91 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
92 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
94 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
95 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
96 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
97 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
98 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
99 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
100 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
101 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
102 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
103 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
104 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
105 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
106 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
107 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
108 , p5_a36 NUMBER := 0-1962.0724
109 , p5_a37 DATE := fnd_api.g_miss_date
110 , p5_a38 NUMBER := 0-1962.0724
111 , p5_a39 DATE := fnd_api.g_miss_date
112 , p5_a40 NUMBER := 0-1962.0724
113 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
114 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
115 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a44 NUMBER := 0-1962.0724
117 )
118
119 as
120 ddp_styv_rec okl_setup_streamtypes_pub.styv_rec_type;
121 ddx_styv_rec okl_setup_streamtypes_pub.styv_rec_type;
122 ddindx binary_integer; indx binary_integer;
123 begin
124
125 -- copy data to the local IN or IN-OUT args, if any
126
127
128
129
130
131 ddp_styv_rec.id := rosetta_g_miss_num_map(p5_a0);
132 ddp_styv_rec.name := p5_a1;
133 ddp_styv_rec.version := p5_a2;
134 ddp_styv_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
135 ddp_styv_rec.code := p5_a4;
136 ddp_styv_rec.sfwt_flag := p5_a5;
137 ddp_styv_rec.stream_type_scope := p5_a6;
138 ddp_styv_rec.description := p5_a7;
139 ddp_styv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
140 ddp_styv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
141 ddp_styv_rec.billable_yn := p5_a10;
142 ddp_styv_rec.taxable_default_yn := p5_a11;
143 ddp_styv_rec.customization_level := p5_a12;
144 ddp_styv_rec.stream_type_class := p5_a13;
145 ddp_styv_rec.stream_type_subclass := p5_a14;
146 ddp_styv_rec.accrual_yn := p5_a15;
147 ddp_styv_rec.capitalize_yn := p5_a16;
148 ddp_styv_rec.periodic_yn := p5_a17;
149 ddp_styv_rec.fundable_yn := p5_a18;
150 ddp_styv_rec.allocation_factor := p5_a19;
151 ddp_styv_rec.attribute_category := p5_a20;
152 ddp_styv_rec.attribute1 := p5_a21;
153 ddp_styv_rec.attribute2 := p5_a22;
154 ddp_styv_rec.attribute3 := p5_a23;
155 ddp_styv_rec.attribute4 := p5_a24;
156 ddp_styv_rec.attribute5 := p5_a25;
157 ddp_styv_rec.attribute6 := p5_a26;
158 ddp_styv_rec.attribute7 := p5_a27;
159 ddp_styv_rec.attribute8 := p5_a28;
160 ddp_styv_rec.attribute9 := p5_a29;
161 ddp_styv_rec.attribute10 := p5_a30;
162 ddp_styv_rec.attribute11 := p5_a31;
163 ddp_styv_rec.attribute12 := p5_a32;
164 ddp_styv_rec.attribute13 := p5_a33;
165 ddp_styv_rec.attribute14 := p5_a34;
166 ddp_styv_rec.attribute15 := p5_a35;
167 ddp_styv_rec.created_by := rosetta_g_miss_num_map(p5_a36);
168 ddp_styv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a37);
169 ddp_styv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a38);
170 ddp_styv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a39);
171 ddp_styv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
172 ddp_styv_rec.stream_type_purpose := p5_a41;
173 ddp_styv_rec.contingency := p5_a42;
174 ddp_styv_rec.short_description := p5_a43;
175 ddp_styv_rec.contingency_id := rosetta_g_miss_num_map(p5_a44);
176
177
178 -- here's the delegated call to the old PL/SQL routine
179 okl_setup_streamtypes_pub.create_stream_type(p_api_version,
180 p_init_msg_list,
181 x_return_status,
182 x_msg_count,
183 x_msg_data,
184 ddp_styv_rec,
185 ddx_styv_rec);
186
187 -- copy data back from the local variables to OUT or IN-OUT args, if any
188
189
190
191
192
193
194 p6_a0 := rosetta_g_miss_num_map(ddx_styv_rec.id);
195 p6_a1 := ddx_styv_rec.name;
196 p6_a2 := ddx_styv_rec.version;
197 p6_a3 := rosetta_g_miss_num_map(ddx_styv_rec.object_version_number);
198 p6_a4 := ddx_styv_rec.code;
199 p6_a5 := ddx_styv_rec.sfwt_flag;
200 p6_a6 := ddx_styv_rec.stream_type_scope;
201 p6_a7 := ddx_styv_rec.description;
202 p6_a8 := ddx_styv_rec.start_date;
203 p6_a9 := ddx_styv_rec.end_date;
204 p6_a10 := ddx_styv_rec.billable_yn;
205 p6_a11 := ddx_styv_rec.taxable_default_yn;
206 p6_a12 := ddx_styv_rec.customization_level;
207 p6_a13 := ddx_styv_rec.stream_type_class;
208 p6_a14 := ddx_styv_rec.stream_type_subclass;
209 p6_a15 := ddx_styv_rec.accrual_yn;
210 p6_a16 := ddx_styv_rec.capitalize_yn;
211 p6_a17 := ddx_styv_rec.periodic_yn;
212 p6_a18 := ddx_styv_rec.fundable_yn;
213 p6_a19 := ddx_styv_rec.allocation_factor;
214 p6_a20 := ddx_styv_rec.attribute_category;
215 p6_a21 := ddx_styv_rec.attribute1;
216 p6_a22 := ddx_styv_rec.attribute2;
217 p6_a23 := ddx_styv_rec.attribute3;
218 p6_a24 := ddx_styv_rec.attribute4;
219 p6_a25 := ddx_styv_rec.attribute5;
220 p6_a26 := ddx_styv_rec.attribute6;
221 p6_a27 := ddx_styv_rec.attribute7;
222 p6_a28 := ddx_styv_rec.attribute8;
223 p6_a29 := ddx_styv_rec.attribute9;
224 p6_a30 := ddx_styv_rec.attribute10;
225 p6_a31 := ddx_styv_rec.attribute11;
226 p6_a32 := ddx_styv_rec.attribute12;
227 p6_a33 := ddx_styv_rec.attribute13;
228 p6_a34 := ddx_styv_rec.attribute14;
229 p6_a35 := ddx_styv_rec.attribute15;
230 p6_a36 := rosetta_g_miss_num_map(ddx_styv_rec.created_by);
231 p6_a37 := ddx_styv_rec.creation_date;
232 p6_a38 := rosetta_g_miss_num_map(ddx_styv_rec.last_updated_by);
233 p6_a39 := ddx_styv_rec.last_update_date;
234 p6_a40 := rosetta_g_miss_num_map(ddx_styv_rec.last_update_login);
235 p6_a41 := ddx_styv_rec.stream_type_purpose;
236 p6_a42 := ddx_styv_rec.contingency;
237 p6_a43 := ddx_styv_rec.short_description;
238 p6_a44 := rosetta_g_miss_num_map(ddx_styv_rec.contingency_id);
239 end;
240
241 procedure update_stream_type(p_api_version NUMBER
242 , p_init_msg_list VARCHAR2
243 , x_return_status out nocopy VARCHAR2
244 , x_msg_count out nocopy NUMBER
245 , x_msg_data out nocopy VARCHAR2
246 , p6_a0 out nocopy NUMBER
247 , p6_a1 out nocopy VARCHAR2
248 , p6_a2 out nocopy VARCHAR2
249 , p6_a3 out nocopy NUMBER
250 , p6_a4 out nocopy VARCHAR2
251 , p6_a5 out nocopy VARCHAR2
252 , p6_a6 out nocopy VARCHAR2
253 , p6_a7 out nocopy VARCHAR2
254 , p6_a8 out nocopy DATE
255 , p6_a9 out nocopy DATE
256 , p6_a10 out nocopy VARCHAR2
257 , p6_a11 out nocopy VARCHAR2
258 , p6_a12 out nocopy VARCHAR2
259 , p6_a13 out nocopy VARCHAR2
260 , p6_a14 out nocopy VARCHAR2
261 , p6_a15 out nocopy VARCHAR2
262 , p6_a16 out nocopy VARCHAR2
263 , p6_a17 out nocopy VARCHAR2
264 , p6_a18 out nocopy VARCHAR2
265 , p6_a19 out nocopy VARCHAR2
266 , p6_a20 out nocopy VARCHAR2
267 , p6_a21 out nocopy VARCHAR2
268 , p6_a22 out nocopy VARCHAR2
269 , p6_a23 out nocopy VARCHAR2
270 , p6_a24 out nocopy VARCHAR2
271 , p6_a25 out nocopy VARCHAR2
272 , p6_a26 out nocopy VARCHAR2
273 , p6_a27 out nocopy VARCHAR2
274 , p6_a28 out nocopy VARCHAR2
275 , p6_a29 out nocopy VARCHAR2
276 , p6_a30 out nocopy VARCHAR2
277 , p6_a31 out nocopy VARCHAR2
278 , p6_a32 out nocopy VARCHAR2
279 , p6_a33 out nocopy VARCHAR2
280 , p6_a34 out nocopy VARCHAR2
281 , p6_a35 out nocopy VARCHAR2
282 , p6_a36 out nocopy NUMBER
283 , p6_a37 out nocopy DATE
284 , p6_a38 out nocopy NUMBER
285 , p6_a39 out nocopy DATE
286 , p6_a40 out nocopy NUMBER
287 , p6_a41 out nocopy VARCHAR2
288 , p6_a42 out nocopy VARCHAR2
289 , p6_a43 out nocopy VARCHAR2
290 , p6_a44 out nocopy NUMBER
291 , p5_a0 NUMBER := 0-1962.0724
292 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
293 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
294 , p5_a3 NUMBER := 0-1962.0724
295 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
296 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
297 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
298 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
299 , p5_a8 DATE := fnd_api.g_miss_date
300 , p5_a9 DATE := fnd_api.g_miss_date
301 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
302 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
303 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
304 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
305 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
306 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
307 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
308 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
309 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
310 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
311 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
312 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
313 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
314 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
315 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
316 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
317 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
318 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
319 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
320 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
321 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
322 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
323 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
324 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
325 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
326 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
327 , p5_a36 NUMBER := 0-1962.0724
328 , p5_a37 DATE := fnd_api.g_miss_date
329 , p5_a38 NUMBER := 0-1962.0724
330 , p5_a39 DATE := fnd_api.g_miss_date
331 , p5_a40 NUMBER := 0-1962.0724
332 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
333 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
334 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
335 , p5_a44 NUMBER := 0-1962.0724
336 )
337
338 as
339 ddp_styv_rec okl_setup_streamtypes_pub.styv_rec_type;
340 ddx_styv_rec okl_setup_streamtypes_pub.styv_rec_type;
341 ddindx binary_integer; indx binary_integer;
342 begin
343
344 -- copy data to the local IN or IN-OUT args, if any
345
346
347
348
349
350 ddp_styv_rec.id := rosetta_g_miss_num_map(p5_a0);
351 ddp_styv_rec.name := p5_a1;
352 ddp_styv_rec.version := p5_a2;
353 ddp_styv_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
354 ddp_styv_rec.code := p5_a4;
355 ddp_styv_rec.sfwt_flag := p5_a5;
356 ddp_styv_rec.stream_type_scope := p5_a6;
357 ddp_styv_rec.description := p5_a7;
358 ddp_styv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
359 ddp_styv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
360 ddp_styv_rec.billable_yn := p5_a10;
361 ddp_styv_rec.taxable_default_yn := p5_a11;
362 ddp_styv_rec.customization_level := p5_a12;
363 ddp_styv_rec.stream_type_class := p5_a13;
364 ddp_styv_rec.stream_type_subclass := p5_a14;
365 ddp_styv_rec.accrual_yn := p5_a15;
366 ddp_styv_rec.capitalize_yn := p5_a16;
367 ddp_styv_rec.periodic_yn := p5_a17;
368 ddp_styv_rec.fundable_yn := p5_a18;
369 ddp_styv_rec.allocation_factor := p5_a19;
370 ddp_styv_rec.attribute_category := p5_a20;
371 ddp_styv_rec.attribute1 := p5_a21;
372 ddp_styv_rec.attribute2 := p5_a22;
373 ddp_styv_rec.attribute3 := p5_a23;
374 ddp_styv_rec.attribute4 := p5_a24;
375 ddp_styv_rec.attribute5 := p5_a25;
376 ddp_styv_rec.attribute6 := p5_a26;
377 ddp_styv_rec.attribute7 := p5_a27;
378 ddp_styv_rec.attribute8 := p5_a28;
379 ddp_styv_rec.attribute9 := p5_a29;
380 ddp_styv_rec.attribute10 := p5_a30;
381 ddp_styv_rec.attribute11 := p5_a31;
382 ddp_styv_rec.attribute12 := p5_a32;
383 ddp_styv_rec.attribute13 := p5_a33;
384 ddp_styv_rec.attribute14 := p5_a34;
385 ddp_styv_rec.attribute15 := p5_a35;
386 ddp_styv_rec.created_by := rosetta_g_miss_num_map(p5_a36);
387 ddp_styv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a37);
388 ddp_styv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a38);
389 ddp_styv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a39);
390 ddp_styv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
391 ddp_styv_rec.stream_type_purpose := p5_a41;
392 ddp_styv_rec.contingency := p5_a42;
393 ddp_styv_rec.short_description := p5_a43;
394 ddp_styv_rec.contingency_id := rosetta_g_miss_num_map(p5_a44);
395
396
397 -- here's the delegated call to the old PL/SQL routine
398 okl_setup_streamtypes_pub.update_stream_type(p_api_version,
399 p_init_msg_list,
400 x_return_status,
401 x_msg_count,
402 x_msg_data,
403 ddp_styv_rec,
404 ddx_styv_rec);
405
406 -- copy data back from the local variables to OUT or IN-OUT args, if any
407
408
409
410
411
412
413 p6_a0 := rosetta_g_miss_num_map(ddx_styv_rec.id);
414 p6_a1 := ddx_styv_rec.name;
415 p6_a2 := ddx_styv_rec.version;
416 p6_a3 := rosetta_g_miss_num_map(ddx_styv_rec.object_version_number);
417 p6_a4 := ddx_styv_rec.code;
418 p6_a5 := ddx_styv_rec.sfwt_flag;
419 p6_a6 := ddx_styv_rec.stream_type_scope;
420 p6_a7 := ddx_styv_rec.description;
421 p6_a8 := ddx_styv_rec.start_date;
422 p6_a9 := ddx_styv_rec.end_date;
423 p6_a10 := ddx_styv_rec.billable_yn;
424 p6_a11 := ddx_styv_rec.taxable_default_yn;
425 p6_a12 := ddx_styv_rec.customization_level;
426 p6_a13 := ddx_styv_rec.stream_type_class;
427 p6_a14 := ddx_styv_rec.stream_type_subclass;
428 p6_a15 := ddx_styv_rec.accrual_yn;
429 p6_a16 := ddx_styv_rec.capitalize_yn;
430 p6_a17 := ddx_styv_rec.periodic_yn;
431 p6_a18 := ddx_styv_rec.fundable_yn;
432 p6_a19 := ddx_styv_rec.allocation_factor;
433 p6_a20 := ddx_styv_rec.attribute_category;
434 p6_a21 := ddx_styv_rec.attribute1;
435 p6_a22 := ddx_styv_rec.attribute2;
436 p6_a23 := ddx_styv_rec.attribute3;
437 p6_a24 := ddx_styv_rec.attribute4;
438 p6_a25 := ddx_styv_rec.attribute5;
439 p6_a26 := ddx_styv_rec.attribute6;
440 p6_a27 := ddx_styv_rec.attribute7;
441 p6_a28 := ddx_styv_rec.attribute8;
442 p6_a29 := ddx_styv_rec.attribute9;
443 p6_a30 := ddx_styv_rec.attribute10;
444 p6_a31 := ddx_styv_rec.attribute11;
445 p6_a32 := ddx_styv_rec.attribute12;
446 p6_a33 := ddx_styv_rec.attribute13;
447 p6_a34 := ddx_styv_rec.attribute14;
448 p6_a35 := ddx_styv_rec.attribute15;
449 p6_a36 := rosetta_g_miss_num_map(ddx_styv_rec.created_by);
450 p6_a37 := ddx_styv_rec.creation_date;
451 p6_a38 := rosetta_g_miss_num_map(ddx_styv_rec.last_updated_by);
452 p6_a39 := ddx_styv_rec.last_update_date;
453 p6_a40 := rosetta_g_miss_num_map(ddx_styv_rec.last_update_login);
454 p6_a41 := ddx_styv_rec.stream_type_purpose;
455 p6_a42 := ddx_styv_rec.contingency;
456 p6_a43 := ddx_styv_rec.short_description;
457 p6_a44 := rosetta_g_miss_num_map(ddx_styv_rec.contingency_id);
458 end;
459
460 procedure create_stream_type(p_api_version NUMBER
461 , p_init_msg_list VARCHAR2
462 , x_return_status out nocopy VARCHAR2
463 , x_msg_count out nocopy NUMBER
464 , x_msg_data out nocopy VARCHAR2
465 , p5_a0 JTF_NUMBER_TABLE
466 , p5_a1 JTF_VARCHAR2_TABLE_200
467 , p5_a2 JTF_VARCHAR2_TABLE_100
468 , p5_a3 JTF_NUMBER_TABLE
469 , p5_a4 JTF_VARCHAR2_TABLE_200
470 , p5_a5 JTF_VARCHAR2_TABLE_100
471 , p5_a6 JTF_VARCHAR2_TABLE_100
472 , p5_a7 JTF_VARCHAR2_TABLE_2000
473 , p5_a8 JTF_DATE_TABLE
474 , p5_a9 JTF_DATE_TABLE
475 , p5_a10 JTF_VARCHAR2_TABLE_100
476 , p5_a11 JTF_VARCHAR2_TABLE_100
477 , p5_a12 JTF_VARCHAR2_TABLE_100
478 , p5_a13 JTF_VARCHAR2_TABLE_100
479 , p5_a14 JTF_VARCHAR2_TABLE_100
480 , p5_a15 JTF_VARCHAR2_TABLE_100
481 , p5_a16 JTF_VARCHAR2_TABLE_100
482 , p5_a17 JTF_VARCHAR2_TABLE_100
483 , p5_a18 JTF_VARCHAR2_TABLE_100
484 , p5_a19 JTF_VARCHAR2_TABLE_100
485 , p5_a20 JTF_VARCHAR2_TABLE_100
486 , p5_a21 JTF_VARCHAR2_TABLE_500
487 , p5_a22 JTF_VARCHAR2_TABLE_500
488 , p5_a23 JTF_VARCHAR2_TABLE_500
489 , p5_a24 JTF_VARCHAR2_TABLE_500
490 , p5_a25 JTF_VARCHAR2_TABLE_500
491 , p5_a26 JTF_VARCHAR2_TABLE_500
492 , p5_a27 JTF_VARCHAR2_TABLE_500
493 , p5_a28 JTF_VARCHAR2_TABLE_500
494 , p5_a29 JTF_VARCHAR2_TABLE_500
495 , p5_a30 JTF_VARCHAR2_TABLE_500
496 , p5_a31 JTF_VARCHAR2_TABLE_500
497 , p5_a32 JTF_VARCHAR2_TABLE_500
498 , p5_a33 JTF_VARCHAR2_TABLE_500
499 , p5_a34 JTF_VARCHAR2_TABLE_500
500 , p5_a35 JTF_VARCHAR2_TABLE_500
501 , p5_a36 JTF_NUMBER_TABLE
502 , p5_a37 JTF_DATE_TABLE
503 , p5_a38 JTF_NUMBER_TABLE
504 , p5_a39 JTF_DATE_TABLE
505 , p5_a40 JTF_NUMBER_TABLE
506 , p5_a41 JTF_VARCHAR2_TABLE_100
507 , p5_a42 JTF_VARCHAR2_TABLE_100
508 , p5_a43 JTF_VARCHAR2_TABLE_600
509 , p5_a44 JTF_NUMBER_TABLE
510 , p6_a0 out nocopy JTF_NUMBER_TABLE
511 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
512 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
513 , p6_a3 out nocopy JTF_NUMBER_TABLE
514 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
515 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
516 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
517 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_2000
518 , p6_a8 out nocopy JTF_DATE_TABLE
519 , p6_a9 out nocopy JTF_DATE_TABLE
520 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
521 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
522 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
523 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
524 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
525 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
526 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
527 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
528 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
529 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
530 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
531 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
532 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
533 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
534 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
535 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
536 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
537 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
538 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
539 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
540 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
541 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
542 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
543 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
544 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
545 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
546 , p6_a36 out nocopy JTF_NUMBER_TABLE
547 , p6_a37 out nocopy JTF_DATE_TABLE
548 , p6_a38 out nocopy JTF_NUMBER_TABLE
549 , p6_a39 out nocopy JTF_DATE_TABLE
550 , p6_a40 out nocopy JTF_NUMBER_TABLE
551 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
552 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
553 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_600
554 , p6_a44 out nocopy JTF_NUMBER_TABLE
555 )
556
557 as
558 ddp_styv_tbl okl_setup_streamtypes_pub.styv_tbl_type;
559 ddx_styv_tbl okl_setup_streamtypes_pub.styv_tbl_type;
560 ddindx binary_integer; indx binary_integer;
561 begin
562
563 -- copy data to the local IN or IN-OUT args, if any
564
565
566
567
568
569 okl_sty_pvt_w.rosetta_table_copy_in_p8(ddp_styv_tbl, p5_a0
570 , p5_a1
571 , p5_a2
572 , p5_a3
573 , p5_a4
574 , p5_a5
575 , p5_a6
576 , p5_a7
577 , p5_a8
578 , p5_a9
579 , p5_a10
580 , p5_a11
581 , p5_a12
582 , p5_a13
583 , p5_a14
584 , p5_a15
585 , p5_a16
586 , p5_a17
587 , p5_a18
588 , p5_a19
589 , p5_a20
590 , p5_a21
591 , p5_a22
592 , p5_a23
593 , p5_a24
594 , p5_a25
595 , p5_a26
596 , p5_a27
597 , p5_a28
598 , p5_a29
599 , p5_a30
600 , p5_a31
601 , p5_a32
602 , p5_a33
603 , p5_a34
604 , p5_a35
605 , p5_a36
606 , p5_a37
607 , p5_a38
608 , p5_a39
609 , p5_a40
610 , p5_a41
611 , p5_a42
612 , p5_a43
613 , p5_a44
614 );
615
616
617 -- here's the delegated call to the old PL/SQL routine
618 okl_setup_streamtypes_pub.create_stream_type(p_api_version,
619 p_init_msg_list,
620 x_return_status,
621 x_msg_count,
622 x_msg_data,
623 ddp_styv_tbl,
624 ddx_styv_tbl);
625
626 -- copy data back from the local variables to OUT or IN-OUT args, if any
627
628
629
630
631
632
633 okl_sty_pvt_w.rosetta_table_copy_out_p8(ddx_styv_tbl, p6_a0
634 , p6_a1
635 , p6_a2
636 , p6_a3
637 , p6_a4
638 , p6_a5
639 , p6_a6
640 , p6_a7
641 , p6_a8
642 , p6_a9
643 , p6_a10
644 , p6_a11
645 , p6_a12
646 , p6_a13
647 , p6_a14
648 , p6_a15
649 , p6_a16
650 , p6_a17
651 , p6_a18
652 , p6_a19
653 , p6_a20
654 , p6_a21
655 , p6_a22
656 , p6_a23
657 , p6_a24
658 , p6_a25
659 , p6_a26
660 , p6_a27
661 , p6_a28
662 , p6_a29
663 , p6_a30
664 , p6_a31
665 , p6_a32
666 , p6_a33
667 , p6_a34
668 , p6_a35
669 , p6_a36
670 , p6_a37
671 , p6_a38
672 , p6_a39
673 , p6_a40
674 , p6_a41
675 , p6_a42
676 , p6_a43
677 , p6_a44
678 );
679 end;
680
681 procedure update_stream_type(p_api_version NUMBER
682 , p_init_msg_list VARCHAR2
683 , x_return_status out nocopy VARCHAR2
684 , x_msg_count out nocopy NUMBER
685 , x_msg_data out nocopy VARCHAR2
686 , p5_a0 JTF_NUMBER_TABLE
687 , p5_a1 JTF_VARCHAR2_TABLE_200
688 , p5_a2 JTF_VARCHAR2_TABLE_100
689 , p5_a3 JTF_NUMBER_TABLE
690 , p5_a4 JTF_VARCHAR2_TABLE_200
691 , p5_a5 JTF_VARCHAR2_TABLE_100
692 , p5_a6 JTF_VARCHAR2_TABLE_100
693 , p5_a7 JTF_VARCHAR2_TABLE_2000
694 , p5_a8 JTF_DATE_TABLE
695 , p5_a9 JTF_DATE_TABLE
696 , p5_a10 JTF_VARCHAR2_TABLE_100
697 , p5_a11 JTF_VARCHAR2_TABLE_100
698 , p5_a12 JTF_VARCHAR2_TABLE_100
699 , p5_a13 JTF_VARCHAR2_TABLE_100
700 , p5_a14 JTF_VARCHAR2_TABLE_100
701 , p5_a15 JTF_VARCHAR2_TABLE_100
702 , p5_a16 JTF_VARCHAR2_TABLE_100
703 , p5_a17 JTF_VARCHAR2_TABLE_100
704 , p5_a18 JTF_VARCHAR2_TABLE_100
705 , p5_a19 JTF_VARCHAR2_TABLE_100
706 , p5_a20 JTF_VARCHAR2_TABLE_100
707 , p5_a21 JTF_VARCHAR2_TABLE_500
708 , p5_a22 JTF_VARCHAR2_TABLE_500
709 , p5_a23 JTF_VARCHAR2_TABLE_500
710 , p5_a24 JTF_VARCHAR2_TABLE_500
711 , p5_a25 JTF_VARCHAR2_TABLE_500
712 , p5_a26 JTF_VARCHAR2_TABLE_500
713 , p5_a27 JTF_VARCHAR2_TABLE_500
714 , p5_a28 JTF_VARCHAR2_TABLE_500
715 , p5_a29 JTF_VARCHAR2_TABLE_500
716 , p5_a30 JTF_VARCHAR2_TABLE_500
717 , p5_a31 JTF_VARCHAR2_TABLE_500
718 , p5_a32 JTF_VARCHAR2_TABLE_500
719 , p5_a33 JTF_VARCHAR2_TABLE_500
720 , p5_a34 JTF_VARCHAR2_TABLE_500
721 , p5_a35 JTF_VARCHAR2_TABLE_500
722 , p5_a36 JTF_NUMBER_TABLE
723 , p5_a37 JTF_DATE_TABLE
724 , p5_a38 JTF_NUMBER_TABLE
725 , p5_a39 JTF_DATE_TABLE
726 , p5_a40 JTF_NUMBER_TABLE
727 , p5_a41 JTF_VARCHAR2_TABLE_100
728 , p5_a42 JTF_VARCHAR2_TABLE_100
729 , p5_a43 JTF_VARCHAR2_TABLE_600
730 , p5_a44 JTF_NUMBER_TABLE
731 , p6_a0 out nocopy JTF_NUMBER_TABLE
732 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
733 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
734 , p6_a3 out nocopy JTF_NUMBER_TABLE
735 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
736 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
737 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
738 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_2000
739 , p6_a8 out nocopy JTF_DATE_TABLE
740 , p6_a9 out nocopy JTF_DATE_TABLE
741 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
742 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
743 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
744 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
745 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
746 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
747 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
748 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
749 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
750 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
751 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
752 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
753 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
754 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
755 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
756 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
757 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
758 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
759 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
760 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
761 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
762 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
763 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
764 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
765 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
766 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
767 , p6_a36 out nocopy JTF_NUMBER_TABLE
768 , p6_a37 out nocopy JTF_DATE_TABLE
769 , p6_a38 out nocopy JTF_NUMBER_TABLE
770 , p6_a39 out nocopy JTF_DATE_TABLE
771 , p6_a40 out nocopy JTF_NUMBER_TABLE
772 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
773 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
774 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_600
775 , p6_a44 out nocopy JTF_NUMBER_TABLE
776 )
777
778 as
779 ddp_styv_tbl okl_setup_streamtypes_pub.styv_tbl_type;
780 ddx_styv_tbl okl_setup_streamtypes_pub.styv_tbl_type;
781 ddindx binary_integer; indx binary_integer;
782 begin
783
784 -- copy data to the local IN or IN-OUT args, if any
785
786
787
788
789
790 okl_sty_pvt_w.rosetta_table_copy_in_p8(ddp_styv_tbl, p5_a0
791 , p5_a1
792 , p5_a2
793 , p5_a3
794 , p5_a4
795 , p5_a5
796 , p5_a6
797 , p5_a7
798 , p5_a8
799 , p5_a9
800 , p5_a10
801 , p5_a11
802 , p5_a12
803 , p5_a13
804 , p5_a14
805 , p5_a15
806 , p5_a16
807 , p5_a17
808 , p5_a18
809 , p5_a19
810 , p5_a20
811 , p5_a21
812 , p5_a22
813 , p5_a23
814 , p5_a24
815 , p5_a25
816 , p5_a26
817 , p5_a27
818 , p5_a28
819 , p5_a29
820 , p5_a30
821 , p5_a31
822 , p5_a32
823 , p5_a33
824 , p5_a34
825 , p5_a35
826 , p5_a36
827 , p5_a37
828 , p5_a38
829 , p5_a39
830 , p5_a40
831 , p5_a41
832 , p5_a42
833 , p5_a43
834 , p5_a44
835 );
836
837
838 -- here's the delegated call to the old PL/SQL routine
839 okl_setup_streamtypes_pub.update_stream_type(p_api_version,
840 p_init_msg_list,
841 x_return_status,
842 x_msg_count,
843 x_msg_data,
844 ddp_styv_tbl,
845 ddx_styv_tbl);
846
847 -- copy data back from the local variables to OUT or IN-OUT args, if any
848
849
850
851
852
853
854 okl_sty_pvt_w.rosetta_table_copy_out_p8(ddx_styv_tbl, p6_a0
855 , p6_a1
856 , p6_a2
857 , p6_a3
858 , p6_a4
859 , p6_a5
860 , p6_a6
861 , p6_a7
862 , p6_a8
863 , p6_a9
864 , p6_a10
865 , p6_a11
866 , p6_a12
867 , p6_a13
868 , p6_a14
869 , p6_a15
870 , p6_a16
871 , p6_a17
872 , p6_a18
873 , p6_a19
874 , p6_a20
875 , p6_a21
876 , p6_a22
877 , p6_a23
878 , p6_a24
879 , p6_a25
880 , p6_a26
881 , p6_a27
882 , p6_a28
883 , p6_a29
884 , p6_a30
885 , p6_a31
886 , p6_a32
887 , p6_a33
888 , p6_a34
889 , p6_a35
890 , p6_a36
891 , p6_a37
892 , p6_a38
893 , p6_a39
894 , p6_a40
895 , p6_a41
896 , p6_a42
897 , p6_a43
898 , p6_a44
899 );
900 end;
901
902 end okl_setup_streamtypes_pub_w;