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_PVT_W

Source


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