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_SETUPOPERANDS_PVT_W

Source


1 package body okl_setupoperands_pvt_w as
2   /* $Header: OKLESOPB.pls 120.1 2005/07/12 09:10:29 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  NUMBER
28     , p3_a4 out nocopy  NUMBER
29     , p3_a5 out nocopy  VARCHAR2
30     , p3_a6 out nocopy  VARCHAR2
31     , p3_a7 out nocopy  VARCHAR2
32     , p3_a8 out nocopy  DATE
33     , p3_a9 out nocopy  DATE
34     , p3_a10 out nocopy  VARCHAR2
35     , p3_a11 out nocopy  VARCHAR2
36     , p3_a12 out nocopy  NUMBER
37     , p3_a13 out nocopy  NUMBER
38     , p3_a14 out nocopy  DATE
39     , p3_a15 out nocopy  NUMBER
40     , p3_a16 out nocopy  DATE
41     , p3_a17 out nocopy  NUMBER
42     , p0_a0  NUMBER := 0-1962.0724
43     , p0_a1  NUMBER := 0-1962.0724
44     , p0_a2  VARCHAR2 := fnd_api.g_miss_char
45     , p0_a3  NUMBER := 0-1962.0724
46     , p0_a4  NUMBER := 0-1962.0724
47     , p0_a5  VARCHAR2 := fnd_api.g_miss_char
48     , p0_a6  VARCHAR2 := fnd_api.g_miss_char
49     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
50     , p0_a8  DATE := fnd_api.g_miss_date
51     , p0_a9  DATE := fnd_api.g_miss_date
52     , p0_a10  VARCHAR2 := fnd_api.g_miss_char
53     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
54     , p0_a12  NUMBER := 0-1962.0724
55     , p0_a13  NUMBER := 0-1962.0724
56     , p0_a14  DATE := fnd_api.g_miss_date
57     , p0_a15  NUMBER := 0-1962.0724
58     , p0_a16  DATE := fnd_api.g_miss_date
59     , p0_a17  NUMBER := 0-1962.0724
60   )
61 
62   as
63     ddp_opdv_rec okl_setupoperands_pvt.opdv_rec_type;
64     ddx_no_data_found boolean;
65     ddx_opdv_rec okl_setupoperands_pvt.opdv_rec_type;
66     ddindx binary_integer; indx binary_integer;
67   begin
68 
69     -- copy data to the local IN or IN-OUT args, if any
70     ddp_opdv_rec.id := rosetta_g_miss_num_map(p0_a0);
71     ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
72     ddp_opdv_rec.sfwt_flag := p0_a2;
73     ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p0_a3);
74     ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p0_a4);
75     ddp_opdv_rec.name := p0_a5;
76     ddp_opdv_rec.description := p0_a6;
77     ddp_opdv_rec.version := p0_a7;
78     ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p0_a8);
79     ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p0_a9);
80     ddp_opdv_rec.source := p0_a10;
81     ddp_opdv_rec.opd_type := p0_a11;
82     ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p0_a12);
83     ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p0_a13);
84     ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a14);
85     ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a15);
86     ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a16);
87     ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p0_a17);
88 
89 
90 
91 
92     -- here's the delegated call to the old PL/SQL routine
93     okl_setupoperands_pvt.get_rec(ddp_opdv_rec,
94       x_return_status,
95       ddx_no_data_found,
96       ddx_opdv_rec);
97 
98     -- copy data back from the local variables to OUT or IN-OUT args, if any
99 
100 
101   if ddx_no_data_found is null
102     then x_no_data_found := null;
103   elsif ddx_no_data_found
104     then x_no_data_found := 1;
105   else x_no_data_found := 0;
106   end if;
107 
108     p3_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
109     p3_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
110     p3_a2 := ddx_opdv_rec.sfwt_flag;
111     p3_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
112     p3_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
113     p3_a5 := ddx_opdv_rec.name;
114     p3_a6 := ddx_opdv_rec.description;
115     p3_a7 := ddx_opdv_rec.version;
116     p3_a8 := ddx_opdv_rec.start_date;
117     p3_a9 := ddx_opdv_rec.end_date;
118     p3_a10 := ddx_opdv_rec.source;
119     p3_a11 := ddx_opdv_rec.opd_type;
120     p3_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
121     p3_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
122     p3_a14 := ddx_opdv_rec.creation_date;
123     p3_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
124     p3_a16 := ddx_opdv_rec.last_update_date;
125     p3_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
126   end;
127 
128   procedure insert_operands(p_api_version  NUMBER
129     , p_init_msg_list  VARCHAR2
130     , x_return_status out nocopy  VARCHAR2
131     , x_msg_count out nocopy  NUMBER
132     , x_msg_data out nocopy  VARCHAR2
133     , p6_a0 out nocopy  NUMBER
134     , p6_a1 out nocopy  NUMBER
135     , p6_a2 out nocopy  VARCHAR2
136     , p6_a3 out nocopy  NUMBER
137     , p6_a4 out nocopy  NUMBER
138     , p6_a5 out nocopy  VARCHAR2
139     , p6_a6 out nocopy  VARCHAR2
140     , p6_a7 out nocopy  VARCHAR2
141     , p6_a8 out nocopy  DATE
142     , p6_a9 out nocopy  DATE
143     , p6_a10 out nocopy  VARCHAR2
144     , p6_a11 out nocopy  VARCHAR2
145     , p6_a12 out nocopy  NUMBER
146     , p6_a13 out nocopy  NUMBER
147     , p6_a14 out nocopy  DATE
148     , p6_a15 out nocopy  NUMBER
149     , p6_a16 out nocopy  DATE
150     , p6_a17 out nocopy  NUMBER
151     , p5_a0  NUMBER := 0-1962.0724
152     , p5_a1  NUMBER := 0-1962.0724
153     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
154     , p5_a3  NUMBER := 0-1962.0724
155     , p5_a4  NUMBER := 0-1962.0724
156     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
157     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
158     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
159     , p5_a8  DATE := fnd_api.g_miss_date
160     , p5_a9  DATE := fnd_api.g_miss_date
161     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
162     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
163     , p5_a12  NUMBER := 0-1962.0724
164     , p5_a13  NUMBER := 0-1962.0724
165     , p5_a14  DATE := fnd_api.g_miss_date
166     , p5_a15  NUMBER := 0-1962.0724
167     , p5_a16  DATE := fnd_api.g_miss_date
168     , p5_a17  NUMBER := 0-1962.0724
169   )
170 
171   as
172     ddp_opdv_rec okl_setupoperands_pvt.opdv_rec_type;
173     ddx_opdv_rec okl_setupoperands_pvt.opdv_rec_type;
174     ddindx binary_integer; indx binary_integer;
175   begin
176 
177     -- copy data to the local IN or IN-OUT args, if any
178 
179 
180 
181 
182 
183     ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
184     ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
185     ddp_opdv_rec.sfwt_flag := p5_a2;
186     ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
187     ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
188     ddp_opdv_rec.name := p5_a5;
189     ddp_opdv_rec.description := p5_a6;
190     ddp_opdv_rec.version := p5_a7;
191     ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
192     ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
193     ddp_opdv_rec.source := p5_a10;
194     ddp_opdv_rec.opd_type := p5_a11;
195     ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
196     ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
197     ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
198     ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
199     ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
200     ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
201 
202 
203     -- here's the delegated call to the old PL/SQL routine
204     okl_setupoperands_pvt.insert_operands(p_api_version,
205       p_init_msg_list,
206       x_return_status,
207       x_msg_count,
208       x_msg_data,
209       ddp_opdv_rec,
210       ddx_opdv_rec);
211 
212     -- copy data back from the local variables to OUT or IN-OUT args, if any
213 
214 
215 
216 
217 
218 
219     p6_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
220     p6_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
221     p6_a2 := ddx_opdv_rec.sfwt_flag;
222     p6_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
223     p6_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
224     p6_a5 := ddx_opdv_rec.name;
225     p6_a6 := ddx_opdv_rec.description;
226     p6_a7 := ddx_opdv_rec.version;
227     p6_a8 := ddx_opdv_rec.start_date;
228     p6_a9 := ddx_opdv_rec.end_date;
229     p6_a10 := ddx_opdv_rec.source;
230     p6_a11 := ddx_opdv_rec.opd_type;
231     p6_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
232     p6_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
233     p6_a14 := ddx_opdv_rec.creation_date;
234     p6_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
235     p6_a16 := ddx_opdv_rec.last_update_date;
236     p6_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
237   end;
238 
239   procedure update_operands(p_api_version  NUMBER
240     , p_init_msg_list  VARCHAR2
241     , x_return_status out nocopy  VARCHAR2
242     , x_msg_count out nocopy  NUMBER
243     , x_msg_data out nocopy  VARCHAR2
244     , p6_a0 out nocopy  NUMBER
245     , p6_a1 out nocopy  NUMBER
246     , p6_a2 out nocopy  VARCHAR2
247     , p6_a3 out nocopy  NUMBER
248     , p6_a4 out nocopy  NUMBER
249     , p6_a5 out nocopy  VARCHAR2
250     , p6_a6 out nocopy  VARCHAR2
251     , p6_a7 out nocopy  VARCHAR2
252     , p6_a8 out nocopy  DATE
253     , p6_a9 out nocopy  DATE
254     , p6_a10 out nocopy  VARCHAR2
255     , p6_a11 out nocopy  VARCHAR2
256     , p6_a12 out nocopy  NUMBER
257     , p6_a13 out nocopy  NUMBER
258     , p6_a14 out nocopy  DATE
259     , p6_a15 out nocopy  NUMBER
260     , p6_a16 out nocopy  DATE
261     , p6_a17 out nocopy  NUMBER
262     , p5_a0  NUMBER := 0-1962.0724
263     , p5_a1  NUMBER := 0-1962.0724
264     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
265     , p5_a3  NUMBER := 0-1962.0724
266     , p5_a4  NUMBER := 0-1962.0724
267     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
268     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
269     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
270     , p5_a8  DATE := fnd_api.g_miss_date
271     , p5_a9  DATE := fnd_api.g_miss_date
272     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
273     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
274     , p5_a12  NUMBER := 0-1962.0724
275     , p5_a13  NUMBER := 0-1962.0724
276     , p5_a14  DATE := fnd_api.g_miss_date
277     , p5_a15  NUMBER := 0-1962.0724
278     , p5_a16  DATE := fnd_api.g_miss_date
279     , p5_a17  NUMBER := 0-1962.0724
280   )
281 
282   as
283     ddp_opdv_rec okl_setupoperands_pvt.opdv_rec_type;
284     ddx_opdv_rec okl_setupoperands_pvt.opdv_rec_type;
285     ddindx binary_integer; indx binary_integer;
286   begin
287 
288     -- copy data to the local IN or IN-OUT args, if any
289 
290 
291 
292 
293 
294     ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
295     ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
296     ddp_opdv_rec.sfwt_flag := p5_a2;
297     ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
298     ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
299     ddp_opdv_rec.name := p5_a5;
300     ddp_opdv_rec.description := p5_a6;
301     ddp_opdv_rec.version := p5_a7;
302     ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
303     ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
304     ddp_opdv_rec.source := p5_a10;
305     ddp_opdv_rec.opd_type := p5_a11;
306     ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
307     ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
308     ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
309     ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
310     ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
311     ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
312 
313 
314     -- here's the delegated call to the old PL/SQL routine
315     okl_setupoperands_pvt.update_operands(p_api_version,
316       p_init_msg_list,
317       x_return_status,
318       x_msg_count,
319       x_msg_data,
320       ddp_opdv_rec,
321       ddx_opdv_rec);
322 
323     -- copy data back from the local variables to OUT or IN-OUT args, if any
324 
325 
326 
327 
328 
329 
330     p6_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
331     p6_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
332     p6_a2 := ddx_opdv_rec.sfwt_flag;
333     p6_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
334     p6_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
335     p6_a5 := ddx_opdv_rec.name;
336     p6_a6 := ddx_opdv_rec.description;
337     p6_a7 := ddx_opdv_rec.version;
338     p6_a8 := ddx_opdv_rec.start_date;
339     p6_a9 := ddx_opdv_rec.end_date;
340     p6_a10 := ddx_opdv_rec.source;
341     p6_a11 := ddx_opdv_rec.opd_type;
342     p6_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
343     p6_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
344     p6_a14 := ddx_opdv_rec.creation_date;
345     p6_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
346     p6_a16 := ddx_opdv_rec.last_update_date;
347     p6_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
348   end;
349 
350 end okl_setupoperands_pvt_w;