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