eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_SETUPFUNCTIONS_PUB_W

Source


1 package body okl_setupfunctions_pub_w as
2   /* $Header: OKLUSDFB.pls 120.1 2005/07/19 07:28:04 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 get_rec(x_return_status out nocopy  VARCHAR2
23     , x_msg_data out nocopy  VARCHAR2
24     , x_no_data_found out nocopy  number
25     , p4_a0 out nocopy  NUMBER
26     , p4_a1 out nocopy  NUMBER
27     , p4_a2 out nocopy  VARCHAR2
28     , p4_a3 out nocopy  VARCHAR2
29     , p4_a4 out nocopy  VARCHAR2
30     , p4_a5 out nocopy  VARCHAR2
31     , p4_a6 out nocopy  VARCHAR2
32     , p4_a7 out nocopy  DATE
33     , p4_a8 out nocopy  DATE
34     , p4_a9 out nocopy  VARCHAR2
35     , p4_a10 out nocopy  VARCHAR2
36     , p4_a11 out nocopy  VARCHAR2
37     , p4_a12 out nocopy  VARCHAR2
38     , p4_a13 out nocopy  VARCHAR2
39     , p4_a14 out nocopy  VARCHAR2
40     , p4_a15 out nocopy  VARCHAR2
41     , p4_a16 out nocopy  VARCHAR2
42     , p4_a17 out nocopy  VARCHAR2
43     , p4_a18 out nocopy  VARCHAR2
44     , p4_a19 out nocopy  VARCHAR2
45     , p4_a20 out nocopy  VARCHAR2
46     , p4_a21 out nocopy  VARCHAR2
47     , p4_a22 out nocopy  VARCHAR2
48     , p4_a23 out nocopy  VARCHAR2
49     , p4_a24 out nocopy  VARCHAR2
50     , p4_a25 out nocopy  VARCHAR2
51     , p4_a26 out nocopy  NUMBER
52     , p4_a27 out nocopy  NUMBER
53     , p4_a28 out nocopy  DATE
54     , p4_a29 out nocopy  NUMBER
55     , p4_a30 out nocopy  DATE
56     , p4_a31 out nocopy  NUMBER
57     , p0_a0  NUMBER := 0-1962.0724
58     , p0_a1  NUMBER := 0-1962.0724
59     , p0_a2  VARCHAR2 := fnd_api.g_miss_char
60     , p0_a3  VARCHAR2 := fnd_api.g_miss_char
61     , p0_a4  VARCHAR2 := fnd_api.g_miss_char
62     , p0_a5  VARCHAR2 := fnd_api.g_miss_char
63     , p0_a6  VARCHAR2 := fnd_api.g_miss_char
64     , p0_a7  DATE := fnd_api.g_miss_date
65     , p0_a8  DATE := fnd_api.g_miss_date
66     , p0_a9  VARCHAR2 := fnd_api.g_miss_char
67     , p0_a10  VARCHAR2 := fnd_api.g_miss_char
68     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
69     , p0_a12  VARCHAR2 := fnd_api.g_miss_char
70     , p0_a13  VARCHAR2 := fnd_api.g_miss_char
71     , p0_a14  VARCHAR2 := fnd_api.g_miss_char
72     , p0_a15  VARCHAR2 := fnd_api.g_miss_char
73     , p0_a16  VARCHAR2 := fnd_api.g_miss_char
74     , p0_a17  VARCHAR2 := fnd_api.g_miss_char
75     , p0_a18  VARCHAR2 := fnd_api.g_miss_char
76     , p0_a19  VARCHAR2 := fnd_api.g_miss_char
77     , p0_a20  VARCHAR2 := fnd_api.g_miss_char
78     , p0_a21  VARCHAR2 := fnd_api.g_miss_char
79     , p0_a22  VARCHAR2 := fnd_api.g_miss_char
80     , p0_a23  VARCHAR2 := fnd_api.g_miss_char
81     , p0_a24  VARCHAR2 := fnd_api.g_miss_char
82     , p0_a25  VARCHAR2 := fnd_api.g_miss_char
83     , p0_a26  NUMBER := 0-1962.0724
84     , p0_a27  NUMBER := 0-1962.0724
85     , p0_a28  DATE := fnd_api.g_miss_date
86     , p0_a29  NUMBER := 0-1962.0724
87     , p0_a30  DATE := fnd_api.g_miss_date
88     , p0_a31  NUMBER := 0-1962.0724
89   )
90 
91   as
92     ddp_dsfv_rec okl_setupfunctions_pub.dsfv_rec_type;
93     ddx_no_data_found boolean;
94     ddx_dsfv_rec okl_setupfunctions_pub.dsfv_rec_type;
95     ddindx binary_integer; indx binary_integer;
96   begin
97 
98     -- copy data to the local IN or IN-OUT args, if any
99     ddp_dsfv_rec.id := rosetta_g_miss_num_map(p0_a0);
100     ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
101     ddp_dsfv_rec.sfwt_flag := p0_a2;
102     ddp_dsfv_rec.fnctn_code := p0_a3;
103     ddp_dsfv_rec.name := p0_a4;
104     ddp_dsfv_rec.description := p0_a5;
105     ddp_dsfv_rec.version := p0_a6;
106     ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p0_a7);
107     ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p0_a8);
108     ddp_dsfv_rec.source := p0_a9;
109     ddp_dsfv_rec.attribute_category := p0_a10;
110     ddp_dsfv_rec.attribute1 := p0_a11;
111     ddp_dsfv_rec.attribute2 := p0_a12;
112     ddp_dsfv_rec.attribute3 := p0_a13;
113     ddp_dsfv_rec.attribute4 := p0_a14;
114     ddp_dsfv_rec.attribute5 := p0_a15;
115     ddp_dsfv_rec.attribute6 := p0_a16;
116     ddp_dsfv_rec.attribute7 := p0_a17;
117     ddp_dsfv_rec.attribute8 := p0_a18;
118     ddp_dsfv_rec.attribute9 := p0_a19;
119     ddp_dsfv_rec.attribute10 := p0_a20;
120     ddp_dsfv_rec.attribute11 := p0_a21;
121     ddp_dsfv_rec.attribute12 := p0_a22;
122     ddp_dsfv_rec.attribute13 := p0_a23;
123     ddp_dsfv_rec.attribute14 := p0_a24;
124     ddp_dsfv_rec.attribute15 := p0_a25;
125     ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p0_a26);
126     ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p0_a27);
127     ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a28);
128     ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a29);
129     ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a30);
130     ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p0_a31);
131 
132 
133 
134 
135 
136     -- here's the delegated call to the old PL/SQL routine
137     okl_setupfunctions_pub.get_rec(ddp_dsfv_rec,
138       x_return_status,
139       x_msg_data,
140       ddx_no_data_found,
141       ddx_dsfv_rec);
142 
143     -- copy data back from the local variables to OUT or IN-OUT args, if any
144 
145 
146 
147   if ddx_no_data_found is null
148     then x_no_data_found := null;
149   elsif ddx_no_data_found
150     then x_no_data_found := 1;
151   else x_no_data_found := 0;
152   end if;
153 
154     p4_a0 := rosetta_g_miss_num_map(ddx_dsfv_rec.id);
155     p4_a1 := rosetta_g_miss_num_map(ddx_dsfv_rec.object_version_number);
156     p4_a2 := ddx_dsfv_rec.sfwt_flag;
157     p4_a3 := ddx_dsfv_rec.fnctn_code;
158     p4_a4 := ddx_dsfv_rec.name;
159     p4_a5 := ddx_dsfv_rec.description;
160     p4_a6 := ddx_dsfv_rec.version;
161     p4_a7 := ddx_dsfv_rec.start_date;
162     p4_a8 := ddx_dsfv_rec.end_date;
163     p4_a9 := ddx_dsfv_rec.source;
164     p4_a10 := ddx_dsfv_rec.attribute_category;
165     p4_a11 := ddx_dsfv_rec.attribute1;
166     p4_a12 := ddx_dsfv_rec.attribute2;
167     p4_a13 := ddx_dsfv_rec.attribute3;
168     p4_a14 := ddx_dsfv_rec.attribute4;
169     p4_a15 := ddx_dsfv_rec.attribute5;
170     p4_a16 := ddx_dsfv_rec.attribute6;
171     p4_a17 := ddx_dsfv_rec.attribute7;
172     p4_a18 := ddx_dsfv_rec.attribute8;
173     p4_a19 := ddx_dsfv_rec.attribute9;
174     p4_a20 := ddx_dsfv_rec.attribute10;
175     p4_a21 := ddx_dsfv_rec.attribute11;
176     p4_a22 := ddx_dsfv_rec.attribute12;
177     p4_a23 := ddx_dsfv_rec.attribute13;
178     p4_a24 := ddx_dsfv_rec.attribute14;
179     p4_a25 := ddx_dsfv_rec.attribute15;
180     p4_a26 := rosetta_g_miss_num_map(ddx_dsfv_rec.org_id);
181     p4_a27 := rosetta_g_miss_num_map(ddx_dsfv_rec.created_by);
182     p4_a28 := ddx_dsfv_rec.creation_date;
183     p4_a29 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_updated_by);
184     p4_a30 := ddx_dsfv_rec.last_update_date;
185     p4_a31 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_update_login);
186   end;
187 
188   procedure insert_functions(p_api_version  NUMBER
189     , p_init_msg_list  VARCHAR2
190     , x_return_status out nocopy  VARCHAR2
191     , x_msg_count out nocopy  NUMBER
192     , x_msg_data out nocopy  VARCHAR2
193     , p6_a0 out nocopy  NUMBER
194     , p6_a1 out nocopy  NUMBER
195     , p6_a2 out nocopy  VARCHAR2
196     , p6_a3 out nocopy  VARCHAR2
197     , p6_a4 out nocopy  VARCHAR2
198     , p6_a5 out nocopy  VARCHAR2
199     , p6_a6 out nocopy  VARCHAR2
200     , p6_a7 out nocopy  DATE
201     , p6_a8 out nocopy  DATE
202     , p6_a9 out nocopy  VARCHAR2
203     , p6_a10 out nocopy  VARCHAR2
204     , p6_a11 out nocopy  VARCHAR2
205     , p6_a12 out nocopy  VARCHAR2
206     , p6_a13 out nocopy  VARCHAR2
207     , p6_a14 out nocopy  VARCHAR2
208     , p6_a15 out nocopy  VARCHAR2
209     , p6_a16 out nocopy  VARCHAR2
210     , p6_a17 out nocopy  VARCHAR2
211     , p6_a18 out nocopy  VARCHAR2
212     , p6_a19 out nocopy  VARCHAR2
213     , p6_a20 out nocopy  VARCHAR2
214     , p6_a21 out nocopy  VARCHAR2
215     , p6_a22 out nocopy  VARCHAR2
216     , p6_a23 out nocopy  VARCHAR2
217     , p6_a24 out nocopy  VARCHAR2
218     , p6_a25 out nocopy  VARCHAR2
219     , p6_a26 out nocopy  NUMBER
220     , p6_a27 out nocopy  NUMBER
221     , p6_a28 out nocopy  DATE
222     , p6_a29 out nocopy  NUMBER
223     , p6_a30 out nocopy  DATE
224     , p6_a31 out nocopy  NUMBER
225     , p5_a0  NUMBER := 0-1962.0724
226     , p5_a1  NUMBER := 0-1962.0724
227     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
228     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
229     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
230     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
231     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
232     , p5_a7  DATE := fnd_api.g_miss_date
233     , p5_a8  DATE := fnd_api.g_miss_date
234     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
235     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
236     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
237     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
238     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
239     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
240     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
241     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
242     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
243     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
244     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
245     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
246     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
247     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
248     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
249     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
250     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
251     , p5_a26  NUMBER := 0-1962.0724
252     , p5_a27  NUMBER := 0-1962.0724
253     , p5_a28  DATE := fnd_api.g_miss_date
254     , p5_a29  NUMBER := 0-1962.0724
255     , p5_a30  DATE := fnd_api.g_miss_date
256     , p5_a31  NUMBER := 0-1962.0724
257   )
258 
259   as
260     ddp_dsfv_rec okl_setupfunctions_pub.dsfv_rec_type;
261     ddx_dsfv_rec okl_setupfunctions_pub.dsfv_rec_type;
262     ddindx binary_integer; indx binary_integer;
263   begin
264 
265     -- copy data to the local IN or IN-OUT args, if any
266 
267 
268 
269 
270 
271     ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
272     ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
273     ddp_dsfv_rec.sfwt_flag := p5_a2;
274     ddp_dsfv_rec.fnctn_code := p5_a3;
275     ddp_dsfv_rec.name := p5_a4;
276     ddp_dsfv_rec.description := p5_a5;
277     ddp_dsfv_rec.version := p5_a6;
278     ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
279     ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
280     ddp_dsfv_rec.source := p5_a9;
281     ddp_dsfv_rec.attribute_category := p5_a10;
282     ddp_dsfv_rec.attribute1 := p5_a11;
283     ddp_dsfv_rec.attribute2 := p5_a12;
284     ddp_dsfv_rec.attribute3 := p5_a13;
285     ddp_dsfv_rec.attribute4 := p5_a14;
286     ddp_dsfv_rec.attribute5 := p5_a15;
287     ddp_dsfv_rec.attribute6 := p5_a16;
288     ddp_dsfv_rec.attribute7 := p5_a17;
289     ddp_dsfv_rec.attribute8 := p5_a18;
290     ddp_dsfv_rec.attribute9 := p5_a19;
291     ddp_dsfv_rec.attribute10 := p5_a20;
292     ddp_dsfv_rec.attribute11 := p5_a21;
293     ddp_dsfv_rec.attribute12 := p5_a22;
294     ddp_dsfv_rec.attribute13 := p5_a23;
295     ddp_dsfv_rec.attribute14 := p5_a24;
296     ddp_dsfv_rec.attribute15 := p5_a25;
297     ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
298     ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
299     ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
300     ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
301     ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
302     ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
303 
304 
305     -- here's the delegated call to the old PL/SQL routine
306     okl_setupfunctions_pub.insert_functions(p_api_version,
307       p_init_msg_list,
308       x_return_status,
309       x_msg_count,
310       x_msg_data,
311       ddp_dsfv_rec,
312       ddx_dsfv_rec);
313 
314     -- copy data back from the local variables to OUT or IN-OUT args, if any
315 
316 
317 
318 
319 
320 
321     p6_a0 := rosetta_g_miss_num_map(ddx_dsfv_rec.id);
322     p6_a1 := rosetta_g_miss_num_map(ddx_dsfv_rec.object_version_number);
323     p6_a2 := ddx_dsfv_rec.sfwt_flag;
324     p6_a3 := ddx_dsfv_rec.fnctn_code;
325     p6_a4 := ddx_dsfv_rec.name;
326     p6_a5 := ddx_dsfv_rec.description;
327     p6_a6 := ddx_dsfv_rec.version;
328     p6_a7 := ddx_dsfv_rec.start_date;
329     p6_a8 := ddx_dsfv_rec.end_date;
330     p6_a9 := ddx_dsfv_rec.source;
331     p6_a10 := ddx_dsfv_rec.attribute_category;
332     p6_a11 := ddx_dsfv_rec.attribute1;
333     p6_a12 := ddx_dsfv_rec.attribute2;
334     p6_a13 := ddx_dsfv_rec.attribute3;
335     p6_a14 := ddx_dsfv_rec.attribute4;
336     p6_a15 := ddx_dsfv_rec.attribute5;
337     p6_a16 := ddx_dsfv_rec.attribute6;
338     p6_a17 := ddx_dsfv_rec.attribute7;
339     p6_a18 := ddx_dsfv_rec.attribute8;
340     p6_a19 := ddx_dsfv_rec.attribute9;
341     p6_a20 := ddx_dsfv_rec.attribute10;
342     p6_a21 := ddx_dsfv_rec.attribute11;
343     p6_a22 := ddx_dsfv_rec.attribute12;
344     p6_a23 := ddx_dsfv_rec.attribute13;
345     p6_a24 := ddx_dsfv_rec.attribute14;
346     p6_a25 := ddx_dsfv_rec.attribute15;
347     p6_a26 := rosetta_g_miss_num_map(ddx_dsfv_rec.org_id);
348     p6_a27 := rosetta_g_miss_num_map(ddx_dsfv_rec.created_by);
349     p6_a28 := ddx_dsfv_rec.creation_date;
350     p6_a29 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_updated_by);
351     p6_a30 := ddx_dsfv_rec.last_update_date;
352     p6_a31 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_update_login);
353   end;
354 
355   procedure update_functions(p_api_version  NUMBER
356     , p_init_msg_list  VARCHAR2
357     , x_return_status out nocopy  VARCHAR2
358     , x_msg_count out nocopy  NUMBER
359     , x_msg_data out nocopy  VARCHAR2
360     , p6_a0 out nocopy  NUMBER
361     , p6_a1 out nocopy  NUMBER
362     , p6_a2 out nocopy  VARCHAR2
363     , p6_a3 out nocopy  VARCHAR2
364     , p6_a4 out nocopy  VARCHAR2
365     , p6_a5 out nocopy  VARCHAR2
366     , p6_a6 out nocopy  VARCHAR2
367     , p6_a7 out nocopy  DATE
368     , p6_a8 out nocopy  DATE
369     , p6_a9 out nocopy  VARCHAR2
370     , p6_a10 out nocopy  VARCHAR2
371     , p6_a11 out nocopy  VARCHAR2
372     , p6_a12 out nocopy  VARCHAR2
373     , p6_a13 out nocopy  VARCHAR2
374     , p6_a14 out nocopy  VARCHAR2
375     , p6_a15 out nocopy  VARCHAR2
376     , p6_a16 out nocopy  VARCHAR2
377     , p6_a17 out nocopy  VARCHAR2
378     , p6_a18 out nocopy  VARCHAR2
379     , p6_a19 out nocopy  VARCHAR2
380     , p6_a20 out nocopy  VARCHAR2
381     , p6_a21 out nocopy  VARCHAR2
382     , p6_a22 out nocopy  VARCHAR2
383     , p6_a23 out nocopy  VARCHAR2
384     , p6_a24 out nocopy  VARCHAR2
385     , p6_a25 out nocopy  VARCHAR2
386     , p6_a26 out nocopy  NUMBER
387     , p6_a27 out nocopy  NUMBER
388     , p6_a28 out nocopy  DATE
389     , p6_a29 out nocopy  NUMBER
390     , p6_a30 out nocopy  DATE
391     , p6_a31 out nocopy  NUMBER
392     , p5_a0  NUMBER := 0-1962.0724
393     , p5_a1  NUMBER := 0-1962.0724
394     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
395     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
396     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
397     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
398     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
399     , p5_a7  DATE := fnd_api.g_miss_date
400     , p5_a8  DATE := fnd_api.g_miss_date
401     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
402     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
403     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
404     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
405     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
406     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
407     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
408     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
409     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
410     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
411     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
412     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
413     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
414     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
415     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
416     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
417     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
418     , p5_a26  NUMBER := 0-1962.0724
419     , p5_a27  NUMBER := 0-1962.0724
420     , p5_a28  DATE := fnd_api.g_miss_date
421     , p5_a29  NUMBER := 0-1962.0724
422     , p5_a30  DATE := fnd_api.g_miss_date
423     , p5_a31  NUMBER := 0-1962.0724
424   )
425 
426   as
427     ddp_dsfv_rec okl_setupfunctions_pub.dsfv_rec_type;
428     ddx_dsfv_rec okl_setupfunctions_pub.dsfv_rec_type;
429     ddindx binary_integer; indx binary_integer;
430   begin
431 
432     -- copy data to the local IN or IN-OUT args, if any
433 
434 
435 
436 
437 
438     ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
439     ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
440     ddp_dsfv_rec.sfwt_flag := p5_a2;
441     ddp_dsfv_rec.fnctn_code := p5_a3;
442     ddp_dsfv_rec.name := p5_a4;
443     ddp_dsfv_rec.description := p5_a5;
444     ddp_dsfv_rec.version := p5_a6;
445     ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
446     ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
447     ddp_dsfv_rec.source := p5_a9;
448     ddp_dsfv_rec.attribute_category := p5_a10;
449     ddp_dsfv_rec.attribute1 := p5_a11;
450     ddp_dsfv_rec.attribute2 := p5_a12;
451     ddp_dsfv_rec.attribute3 := p5_a13;
452     ddp_dsfv_rec.attribute4 := p5_a14;
453     ddp_dsfv_rec.attribute5 := p5_a15;
454     ddp_dsfv_rec.attribute6 := p5_a16;
455     ddp_dsfv_rec.attribute7 := p5_a17;
456     ddp_dsfv_rec.attribute8 := p5_a18;
457     ddp_dsfv_rec.attribute9 := p5_a19;
458     ddp_dsfv_rec.attribute10 := p5_a20;
459     ddp_dsfv_rec.attribute11 := p5_a21;
460     ddp_dsfv_rec.attribute12 := p5_a22;
461     ddp_dsfv_rec.attribute13 := p5_a23;
462     ddp_dsfv_rec.attribute14 := p5_a24;
463     ddp_dsfv_rec.attribute15 := p5_a25;
464     ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
465     ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
466     ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
467     ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
468     ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
469     ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
470 
471 
472     -- here's the delegated call to the old PL/SQL routine
473     okl_setupfunctions_pub.update_functions(p_api_version,
474       p_init_msg_list,
475       x_return_status,
476       x_msg_count,
477       x_msg_data,
478       ddp_dsfv_rec,
479       ddx_dsfv_rec);
480 
481     -- copy data back from the local variables to OUT or IN-OUT args, if any
482 
483 
484 
485 
486 
487 
488     p6_a0 := rosetta_g_miss_num_map(ddx_dsfv_rec.id);
489     p6_a1 := rosetta_g_miss_num_map(ddx_dsfv_rec.object_version_number);
490     p6_a2 := ddx_dsfv_rec.sfwt_flag;
491     p6_a3 := ddx_dsfv_rec.fnctn_code;
492     p6_a4 := ddx_dsfv_rec.name;
493     p6_a5 := ddx_dsfv_rec.description;
494     p6_a6 := ddx_dsfv_rec.version;
495     p6_a7 := ddx_dsfv_rec.start_date;
496     p6_a8 := ddx_dsfv_rec.end_date;
497     p6_a9 := ddx_dsfv_rec.source;
498     p6_a10 := ddx_dsfv_rec.attribute_category;
499     p6_a11 := ddx_dsfv_rec.attribute1;
500     p6_a12 := ddx_dsfv_rec.attribute2;
501     p6_a13 := ddx_dsfv_rec.attribute3;
502     p6_a14 := ddx_dsfv_rec.attribute4;
503     p6_a15 := ddx_dsfv_rec.attribute5;
504     p6_a16 := ddx_dsfv_rec.attribute6;
505     p6_a17 := ddx_dsfv_rec.attribute7;
506     p6_a18 := ddx_dsfv_rec.attribute8;
507     p6_a19 := ddx_dsfv_rec.attribute9;
508     p6_a20 := ddx_dsfv_rec.attribute10;
509     p6_a21 := ddx_dsfv_rec.attribute11;
510     p6_a22 := ddx_dsfv_rec.attribute12;
511     p6_a23 := ddx_dsfv_rec.attribute13;
512     p6_a24 := ddx_dsfv_rec.attribute14;
513     p6_a25 := ddx_dsfv_rec.attribute15;
514     p6_a26 := rosetta_g_miss_num_map(ddx_dsfv_rec.org_id);
515     p6_a27 := rosetta_g_miss_num_map(ddx_dsfv_rec.created_by);
516     p6_a28 := ddx_dsfv_rec.creation_date;
517     p6_a29 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_updated_by);
518     p6_a30 := ddx_dsfv_rec.last_update_date;
519     p6_a31 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_update_login);
520   end;
521 
522 end okl_setupfunctions_pub_w;