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_PUB_W

Source


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