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_SETUPPOPTIONS_PVT_W

Source


1 package body okl_setuppoptions_pvt_w as
2   /* $Header: OKLESPOB.pls 115.3 2002/12/24 04:03:36 sgorantl 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_no_data_found out nocopy  number
23     , x_return_status out nocopy  VARCHAR2
24     , p3_a0 out nocopy  NUMBER
25     , p3_a1 out nocopy  NUMBER
26     , p3_a2 out nocopy  NUMBER
27     , p3_a3 out nocopy  NUMBER
28     , p3_a4 out nocopy  DATE
29     , p3_a5 out nocopy  DATE
30     , p3_a6 out nocopy  VARCHAR2
31     , p3_a7 out nocopy  NUMBER
32     , p3_a8 out nocopy  DATE
33     , p3_a9 out nocopy  NUMBER
34     , p3_a10 out nocopy  DATE
35     , p3_a11 out nocopy  NUMBER
36     , p0_a0  NUMBER := 0-1962.0724
37     , p0_a1  NUMBER := 0-1962.0724
38     , p0_a2  NUMBER := 0-1962.0724
39     , p0_a3  NUMBER := 0-1962.0724
40     , p0_a4  DATE := fnd_api.g_miss_date
41     , p0_a5  DATE := fnd_api.g_miss_date
42     , p0_a6  VARCHAR2 := fnd_api.g_miss_char
43     , p0_a7  NUMBER := 0-1962.0724
44     , p0_a8  DATE := fnd_api.g_miss_date
45     , p0_a9  NUMBER := 0-1962.0724
46     , p0_a10  DATE := fnd_api.g_miss_date
47     , p0_a11  NUMBER := 0-1962.0724
48   )
49 
50   as
51     ddp_ponv_rec okl_setuppoptions_pvt.ponv_rec_type;
52     ddx_no_data_found boolean;
53     ddx_ponv_rec okl_setuppoptions_pvt.ponv_rec_type;
54     ddindx binary_integer; indx binary_integer;
55   begin
56 
57     -- copy data to the local IN or IN-OUT args, if any
58     ddp_ponv_rec.id := rosetta_g_miss_num_map(p0_a0);
59     ddp_ponv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
60     ddp_ponv_rec.opt_id := rosetta_g_miss_num_map(p0_a2);
61     ddp_ponv_rec.pdt_id := rosetta_g_miss_num_map(p0_a3);
62     ddp_ponv_rec.from_date := rosetta_g_miss_date_in_map(p0_a4);
63     ddp_ponv_rec.to_date := rosetta_g_miss_date_in_map(p0_a5);
64     ddp_ponv_rec.optional_yn := p0_a6;
65     ddp_ponv_rec.created_by := rosetta_g_miss_num_map(p0_a7);
66     ddp_ponv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
67     ddp_ponv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a9);
68     ddp_ponv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
69     ddp_ponv_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
70 
71 
72 
73 
74     -- here's the delegated call to the old PL/SQL routine
75     okl_setuppoptions_pvt.get_rec(ddp_ponv_rec,
76       ddx_no_data_found,
77       x_return_status,
78       ddx_ponv_rec);
79 
80     -- copy data back from the local variables to OUT or IN-OUT args, if any
81 
82   if ddx_no_data_found is null
83     then x_no_data_found := null;
84   elsif ddx_no_data_found
85     then x_no_data_found := 1;
86   else x_no_data_found := 0;
87   end if;
88 
89 
90     p3_a0 := rosetta_g_miss_num_map(ddx_ponv_rec.id);
91     p3_a1 := rosetta_g_miss_num_map(ddx_ponv_rec.object_version_number);
92     p3_a2 := rosetta_g_miss_num_map(ddx_ponv_rec.opt_id);
93     p3_a3 := rosetta_g_miss_num_map(ddx_ponv_rec.pdt_id);
94     p3_a4 := ddx_ponv_rec.from_date;
95     p3_a5 := ddx_ponv_rec.to_date;
96     p3_a6 := ddx_ponv_rec.optional_yn;
97     p3_a7 := rosetta_g_miss_num_map(ddx_ponv_rec.created_by);
98     p3_a8 := ddx_ponv_rec.creation_date;
99     p3_a9 := rosetta_g_miss_num_map(ddx_ponv_rec.last_updated_by);
100     p3_a10 := ddx_ponv_rec.last_update_date;
101     p3_a11 := rosetta_g_miss_num_map(ddx_ponv_rec.last_update_login);
102   end;
103 
104   procedure insert_poptions(p_api_version  NUMBER
105     , p_init_msg_list  VARCHAR2
106     , x_return_status out nocopy  VARCHAR2
107     , x_msg_count out nocopy  NUMBER
108     , x_msg_data out nocopy  VARCHAR2
109     , p7_a0 out nocopy  NUMBER
110     , p7_a1 out nocopy  NUMBER
111     , p7_a2 out nocopy  NUMBER
112     , p7_a3 out nocopy  NUMBER
113     , p7_a4 out nocopy  DATE
114     , p7_a5 out nocopy  DATE
115     , p7_a6 out nocopy  VARCHAR2
116     , p7_a7 out nocopy  NUMBER
117     , p7_a8 out nocopy  DATE
118     , p7_a9 out nocopy  NUMBER
119     , p7_a10 out nocopy  DATE
120     , p7_a11 out nocopy  NUMBER
121     , p5_a0  NUMBER := 0-1962.0724
122     , p5_a1  NUMBER := 0-1962.0724
123     , p5_a2  NUMBER := 0-1962.0724
124     , p5_a3  NUMBER := 0-1962.0724
125     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
126     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
127     , p5_a6  NUMBER := 0-1962.0724
128     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
129     , p5_a8  DATE := fnd_api.g_miss_date
130     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
131     , p5_a10  DATE := fnd_api.g_miss_date
132     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
133     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
134     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
135     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
136     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
137     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
138     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
139     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
140     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
141     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
142     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
143     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
144     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
145     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
146     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
147     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
148     , p5_a27  NUMBER := 0-1962.0724
149     , p5_a28  DATE := fnd_api.g_miss_date
150     , p5_a29  NUMBER := 0-1962.0724
151     , p5_a30  DATE := fnd_api.g_miss_date
152     , p5_a31  NUMBER := 0-1962.0724
153     , p6_a0  NUMBER := 0-1962.0724
154     , p6_a1  NUMBER := 0-1962.0724
155     , p6_a2  NUMBER := 0-1962.0724
156     , p6_a3  NUMBER := 0-1962.0724
157     , p6_a4  DATE := fnd_api.g_miss_date
158     , p6_a5  DATE := fnd_api.g_miss_date
159     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
160     , p6_a7  NUMBER := 0-1962.0724
161     , p6_a8  DATE := fnd_api.g_miss_date
162     , p6_a9  NUMBER := 0-1962.0724
163     , p6_a10  DATE := fnd_api.g_miss_date
164     , p6_a11  NUMBER := 0-1962.0724
165   )
166 
167   as
168     ddp_pdtv_rec okl_setuppoptions_pvt.pdtv_rec_type;
169     ddp_ponv_rec okl_setuppoptions_pvt.ponv_rec_type;
170     ddx_ponv_rec okl_setuppoptions_pvt.ponv_rec_type;
171     ddindx binary_integer; indx binary_integer;
172   begin
173 
174     -- copy data to the local IN or IN-OUT args, if any
175 
176 
177 
178 
179 
180     ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
181     ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
182     ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
183     ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
184     ddp_pdtv_rec.name := p5_a4;
185     ddp_pdtv_rec.description := p5_a5;
186     ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
187     ddp_pdtv_rec.legacy_product_yn := p5_a7;
188     ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a8);
189     ddp_pdtv_rec.version := p5_a9;
190     ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a10);
191     ddp_pdtv_rec.attribute_category := p5_a11;
192     ddp_pdtv_rec.attribute1 := p5_a12;
193     ddp_pdtv_rec.attribute2 := p5_a13;
194     ddp_pdtv_rec.attribute3 := p5_a14;
195     ddp_pdtv_rec.attribute4 := p5_a15;
196     ddp_pdtv_rec.attribute5 := p5_a16;
197     ddp_pdtv_rec.attribute6 := p5_a17;
198     ddp_pdtv_rec.attribute7 := p5_a18;
199     ddp_pdtv_rec.attribute8 := p5_a19;
200     ddp_pdtv_rec.attribute9 := p5_a20;
201     ddp_pdtv_rec.attribute10 := p5_a21;
202     ddp_pdtv_rec.attribute11 := p5_a22;
203     ddp_pdtv_rec.attribute12 := p5_a23;
204     ddp_pdtv_rec.attribute13 := p5_a24;
205     ddp_pdtv_rec.attribute14 := p5_a25;
206     ddp_pdtv_rec.attribute15 := p5_a26;
207     ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
208     ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
209     ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
210     ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
211     ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
212 
213     ddp_ponv_rec.id := rosetta_g_miss_num_map(p6_a0);
214     ddp_ponv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
215     ddp_ponv_rec.opt_id := rosetta_g_miss_num_map(p6_a2);
216     ddp_ponv_rec.pdt_id := rosetta_g_miss_num_map(p6_a3);
217     ddp_ponv_rec.from_date := rosetta_g_miss_date_in_map(p6_a4);
218     ddp_ponv_rec.to_date := rosetta_g_miss_date_in_map(p6_a5);
219     ddp_ponv_rec.optional_yn := p6_a6;
220     ddp_ponv_rec.created_by := rosetta_g_miss_num_map(p6_a7);
221     ddp_ponv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
222     ddp_ponv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a9);
223     ddp_ponv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a10);
224     ddp_ponv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
225 
226 
227     -- here's the delegated call to the old PL/SQL routine
228     okl_setuppoptions_pvt.insert_poptions(p_api_version,
229       p_init_msg_list,
230       x_return_status,
231       x_msg_count,
232       x_msg_data,
233       ddp_pdtv_rec,
234       ddp_ponv_rec,
235       ddx_ponv_rec);
236 
237     -- copy data back from the local variables to OUT or IN-OUT args, if any
238 
239 
240 
241 
242 
243 
244 
245     p7_a0 := rosetta_g_miss_num_map(ddx_ponv_rec.id);
246     p7_a1 := rosetta_g_miss_num_map(ddx_ponv_rec.object_version_number);
247     p7_a2 := rosetta_g_miss_num_map(ddx_ponv_rec.opt_id);
248     p7_a3 := rosetta_g_miss_num_map(ddx_ponv_rec.pdt_id);
249     p7_a4 := ddx_ponv_rec.from_date;
250     p7_a5 := ddx_ponv_rec.to_date;
251     p7_a6 := ddx_ponv_rec.optional_yn;
252     p7_a7 := rosetta_g_miss_num_map(ddx_ponv_rec.created_by);
253     p7_a8 := ddx_ponv_rec.creation_date;
254     p7_a9 := rosetta_g_miss_num_map(ddx_ponv_rec.last_updated_by);
255     p7_a10 := ddx_ponv_rec.last_update_date;
256     p7_a11 := rosetta_g_miss_num_map(ddx_ponv_rec.last_update_login);
257   end;
258 
259   procedure delete_poptions(p_api_version  NUMBER
260     , p_init_msg_list  VARCHAR2
261     , x_return_status out nocopy  VARCHAR2
262     , x_msg_count out nocopy  NUMBER
263     , x_msg_data out nocopy  VARCHAR2
264     , p6_a0 JTF_NUMBER_TABLE
265     , p6_a1 JTF_NUMBER_TABLE
266     , p6_a2 JTF_NUMBER_TABLE
267     , p6_a3 JTF_NUMBER_TABLE
268     , p6_a4 JTF_DATE_TABLE
269     , p6_a5 JTF_DATE_TABLE
270     , p6_a6 JTF_VARCHAR2_TABLE_100
271     , p6_a7 JTF_NUMBER_TABLE
272     , p6_a8 JTF_DATE_TABLE
273     , p6_a9 JTF_NUMBER_TABLE
274     , p6_a10 JTF_DATE_TABLE
275     , p6_a11 JTF_NUMBER_TABLE
276     , p5_a0  NUMBER := 0-1962.0724
277     , p5_a1  NUMBER := 0-1962.0724
278     , p5_a2  NUMBER := 0-1962.0724
279     , p5_a3  NUMBER := 0-1962.0724
280     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
281     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
282     , p5_a6  NUMBER := 0-1962.0724
283     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
284     , p5_a8  DATE := fnd_api.g_miss_date
285     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
286     , p5_a10  DATE := fnd_api.g_miss_date
287     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
288     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
289     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
290     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
291     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
292     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
293     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
294     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
295     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
296     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
297     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
299     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
300     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
301     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
302     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
303     , p5_a27  NUMBER := 0-1962.0724
304     , p5_a28  DATE := fnd_api.g_miss_date
305     , p5_a29  NUMBER := 0-1962.0724
306     , p5_a30  DATE := fnd_api.g_miss_date
307     , p5_a31  NUMBER := 0-1962.0724
308   )
309 
310   as
311     ddp_pdtv_rec okl_setuppoptions_pvt.pdtv_rec_type;
312     ddp_ponv_tbl okl_setuppoptions_pvt.ponv_tbl_type;
313     ddindx binary_integer; indx binary_integer;
314   begin
315 
316     -- copy data to the local IN or IN-OUT args, if any
317 
318 
319 
320 
321 
322     ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
323     ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
324     ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
325     ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
326     ddp_pdtv_rec.name := p5_a4;
327     ddp_pdtv_rec.description := p5_a5;
328     ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
329     ddp_pdtv_rec.legacy_product_yn := p5_a7;
330     ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a8);
331     ddp_pdtv_rec.version := p5_a9;
332     ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a10);
333     ddp_pdtv_rec.attribute_category := p5_a11;
334     ddp_pdtv_rec.attribute1 := p5_a12;
335     ddp_pdtv_rec.attribute2 := p5_a13;
336     ddp_pdtv_rec.attribute3 := p5_a14;
337     ddp_pdtv_rec.attribute4 := p5_a15;
338     ddp_pdtv_rec.attribute5 := p5_a16;
339     ddp_pdtv_rec.attribute6 := p5_a17;
340     ddp_pdtv_rec.attribute7 := p5_a18;
341     ddp_pdtv_rec.attribute8 := p5_a19;
342     ddp_pdtv_rec.attribute9 := p5_a20;
343     ddp_pdtv_rec.attribute10 := p5_a21;
344     ddp_pdtv_rec.attribute11 := p5_a22;
345     ddp_pdtv_rec.attribute12 := p5_a23;
346     ddp_pdtv_rec.attribute13 := p5_a24;
347     ddp_pdtv_rec.attribute14 := p5_a25;
348     ddp_pdtv_rec.attribute15 := p5_a26;
349     ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
350     ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
351     ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
352     ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
353     ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
354 
355     okl_pon_pvt_w.rosetta_table_copy_in_p5(ddp_ponv_tbl, p6_a0
356       , p6_a1
357       , p6_a2
358       , p6_a3
359       , p6_a4
360       , p6_a5
361       , p6_a6
362       , p6_a7
363       , p6_a8
364       , p6_a9
365       , p6_a10
366       , p6_a11
367       );
368 
369     -- here's the delegated call to the old PL/SQL routine
370     okl_setuppoptions_pvt.delete_poptions(p_api_version,
371       p_init_msg_list,
372       x_return_status,
373       x_msg_count,
374       x_msg_data,
375       ddp_pdtv_rec,
376       ddp_ponv_tbl);
377 
378     -- copy data back from the local variables to OUT or IN-OUT args, if any
379 
380 
381 
382 
383 
384 
385   end;
386 
387 end okl_setuppoptions_pvt_w;