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_PUB_W

Source


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