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_SETUPCONTEXTGROUPS_PVT_W

Source


1 package body okl_setupcontextgroups_pvt_w as
2   /* $Header: OKLESCGB.pls 120.1 2005/07/12 09:08:32 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  NUMBER
30     , p3_a6 out nocopy  DATE
31     , p3_a7 out nocopy  NUMBER
32     , p3_a8 out nocopy  DATE
33     , p3_a9 out nocopy  NUMBER
34     , p0_a0  NUMBER := 0-1962.0724
35     , p0_a1  NUMBER := 0-1962.0724
36     , p0_a2  VARCHAR2 := fnd_api.g_miss_char
37     , p0_a3  VARCHAR2 := fnd_api.g_miss_char
38     , p0_a4  VARCHAR2 := fnd_api.g_miss_char
39     , p0_a5  NUMBER := 0-1962.0724
40     , p0_a6  DATE := fnd_api.g_miss_date
41     , p0_a7  NUMBER := 0-1962.0724
42     , p0_a8  DATE := fnd_api.g_miss_date
43     , p0_a9  NUMBER := 0-1962.0724
44   )
45 
46   as
47     ddp_cgrv_rec okl_setupcontextgroups_pvt.cgrv_rec_type;
48     ddx_no_data_found boolean;
49     ddx_cgrv_rec okl_setupcontextgroups_pvt.cgrv_rec_type;
50     ddindx binary_integer; indx binary_integer;
51   begin
52 
53     -- copy data to the local IN or IN-OUT args, if any
54     ddp_cgrv_rec.id := rosetta_g_miss_num_map(p0_a0);
55     ddp_cgrv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
56     ddp_cgrv_rec.sfwt_flag := p0_a2;
57     ddp_cgrv_rec.name := p0_a3;
58     ddp_cgrv_rec.description := p0_a4;
59     ddp_cgrv_rec.created_by := rosetta_g_miss_num_map(p0_a5);
60     ddp_cgrv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
61     ddp_cgrv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a7);
62     ddp_cgrv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a8);
63     ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p0_a9);
64 
65 
66 
67 
68     -- here's the delegated call to the old PL/SQL routine
69     okl_setupcontextgroups_pvt.get_rec(ddp_cgrv_rec,
70       x_return_status,
71       ddx_no_data_found,
72       ddx_cgrv_rec);
73 
74     -- copy data back from the local variables to OUT or IN-OUT args, if any
75 
76 
77   if ddx_no_data_found is null
78     then x_no_data_found := null;
79   elsif ddx_no_data_found
80     then x_no_data_found := 1;
81   else x_no_data_found := 0;
82   end if;
83 
84     p3_a0 := rosetta_g_miss_num_map(ddx_cgrv_rec.id);
85     p3_a1 := rosetta_g_miss_num_map(ddx_cgrv_rec.object_version_number);
86     p3_a2 := ddx_cgrv_rec.sfwt_flag;
87     p3_a3 := ddx_cgrv_rec.name;
88     p3_a4 := ddx_cgrv_rec.description;
89     p3_a5 := rosetta_g_miss_num_map(ddx_cgrv_rec.created_by);
90     p3_a6 := ddx_cgrv_rec.creation_date;
91     p3_a7 := rosetta_g_miss_num_map(ddx_cgrv_rec.last_updated_by);
92     p3_a8 := ddx_cgrv_rec.last_update_date;
93     p3_a9 := rosetta_g_miss_num_map(ddx_cgrv_rec.last_update_login);
94   end;
95 
96   procedure insert_contextgroups(p_api_version  NUMBER
97     , p_init_msg_list  VARCHAR2
98     , x_return_status out nocopy  VARCHAR2
99     , x_msg_count out nocopy  NUMBER
100     , x_msg_data out nocopy  VARCHAR2
101     , p6_a0 out nocopy  NUMBER
102     , p6_a1 out nocopy  NUMBER
103     , p6_a2 out nocopy  VARCHAR2
104     , p6_a3 out nocopy  VARCHAR2
105     , p6_a4 out nocopy  VARCHAR2
106     , p6_a5 out nocopy  NUMBER
107     , p6_a6 out nocopy  DATE
108     , p6_a7 out nocopy  NUMBER
109     , p6_a8 out nocopy  DATE
110     , p6_a9 out nocopy  NUMBER
111     , p5_a0  NUMBER := 0-1962.0724
112     , p5_a1  NUMBER := 0-1962.0724
113     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
114     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
115     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
116     , p5_a5  NUMBER := 0-1962.0724
117     , p5_a6  DATE := fnd_api.g_miss_date
118     , p5_a7  NUMBER := 0-1962.0724
119     , p5_a8  DATE := fnd_api.g_miss_date
120     , p5_a9  NUMBER := 0-1962.0724
121   )
122 
123   as
124     ddp_cgrv_rec okl_setupcontextgroups_pvt.cgrv_rec_type;
125     ddx_cgrv_rec okl_setupcontextgroups_pvt.cgrv_rec_type;
126     ddindx binary_integer; indx binary_integer;
127   begin
128 
129     -- copy data to the local IN or IN-OUT args, if any
130 
131 
132 
133 
134 
135     ddp_cgrv_rec.id := rosetta_g_miss_num_map(p5_a0);
136     ddp_cgrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
137     ddp_cgrv_rec.sfwt_flag := p5_a2;
138     ddp_cgrv_rec.name := p5_a3;
139     ddp_cgrv_rec.description := p5_a4;
140     ddp_cgrv_rec.created_by := rosetta_g_miss_num_map(p5_a5);
141     ddp_cgrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
142     ddp_cgrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
143     ddp_cgrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
144     ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
145 
146 
147     -- here's the delegated call to the old PL/SQL routine
148     okl_setupcontextgroups_pvt.insert_contextgroups(p_api_version,
149       p_init_msg_list,
150       x_return_status,
151       x_msg_count,
152       x_msg_data,
153       ddp_cgrv_rec,
154       ddx_cgrv_rec);
155 
156     -- copy data back from the local variables to OUT or IN-OUT args, if any
157 
158 
159 
160 
161 
162 
163     p6_a0 := rosetta_g_miss_num_map(ddx_cgrv_rec.id);
164     p6_a1 := rosetta_g_miss_num_map(ddx_cgrv_rec.object_version_number);
165     p6_a2 := ddx_cgrv_rec.sfwt_flag;
166     p6_a3 := ddx_cgrv_rec.name;
167     p6_a4 := ddx_cgrv_rec.description;
168     p6_a5 := rosetta_g_miss_num_map(ddx_cgrv_rec.created_by);
169     p6_a6 := ddx_cgrv_rec.creation_date;
170     p6_a7 := rosetta_g_miss_num_map(ddx_cgrv_rec.last_updated_by);
171     p6_a8 := ddx_cgrv_rec.last_update_date;
172     p6_a9 := rosetta_g_miss_num_map(ddx_cgrv_rec.last_update_login);
173   end;
174 
175   procedure update_contextgroups(p_api_version  NUMBER
176     , p_init_msg_list  VARCHAR2
177     , x_return_status out nocopy  VARCHAR2
178     , x_msg_count out nocopy  NUMBER
179     , x_msg_data out nocopy  VARCHAR2
180     , p6_a0 out nocopy  NUMBER
181     , p6_a1 out nocopy  NUMBER
182     , p6_a2 out nocopy  VARCHAR2
183     , p6_a3 out nocopy  VARCHAR2
184     , p6_a4 out nocopy  VARCHAR2
185     , p6_a5 out nocopy  NUMBER
186     , p6_a6 out nocopy  DATE
187     , p6_a7 out nocopy  NUMBER
188     , p6_a8 out nocopy  DATE
189     , p6_a9 out nocopy  NUMBER
190     , p5_a0  NUMBER := 0-1962.0724
191     , p5_a1  NUMBER := 0-1962.0724
192     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
193     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
194     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
195     , p5_a5  NUMBER := 0-1962.0724
196     , p5_a6  DATE := fnd_api.g_miss_date
197     , p5_a7  NUMBER := 0-1962.0724
198     , p5_a8  DATE := fnd_api.g_miss_date
199     , p5_a9  NUMBER := 0-1962.0724
200   )
201 
202   as
203     ddp_cgrv_rec okl_setupcontextgroups_pvt.cgrv_rec_type;
204     ddx_cgrv_rec okl_setupcontextgroups_pvt.cgrv_rec_type;
205     ddindx binary_integer; indx binary_integer;
206   begin
207 
208     -- copy data to the local IN or IN-OUT args, if any
209 
210 
211 
212 
213 
214     ddp_cgrv_rec.id := rosetta_g_miss_num_map(p5_a0);
215     ddp_cgrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
216     ddp_cgrv_rec.sfwt_flag := p5_a2;
217     ddp_cgrv_rec.name := p5_a3;
218     ddp_cgrv_rec.description := p5_a4;
219     ddp_cgrv_rec.created_by := rosetta_g_miss_num_map(p5_a5);
220     ddp_cgrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
221     ddp_cgrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
222     ddp_cgrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
223     ddp_cgrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
224 
225 
226     -- here's the delegated call to the old PL/SQL routine
227     okl_setupcontextgroups_pvt.update_contextgroups(p_api_version,
228       p_init_msg_list,
229       x_return_status,
230       x_msg_count,
231       x_msg_data,
232       ddp_cgrv_rec,
233       ddx_cgrv_rec);
234 
235     -- copy data back from the local variables to OUT or IN-OUT args, if any
236 
237 
238 
239 
240 
241 
242     p6_a0 := rosetta_g_miss_num_map(ddx_cgrv_rec.id);
243     p6_a1 := rosetta_g_miss_num_map(ddx_cgrv_rec.object_version_number);
244     p6_a2 := ddx_cgrv_rec.sfwt_flag;
245     p6_a3 := ddx_cgrv_rec.name;
246     p6_a4 := ddx_cgrv_rec.description;
247     p6_a5 := rosetta_g_miss_num_map(ddx_cgrv_rec.created_by);
248     p6_a6 := ddx_cgrv_rec.creation_date;
249     p6_a7 := rosetta_g_miss_num_map(ddx_cgrv_rec.last_updated_by);
250     p6_a8 := ddx_cgrv_rec.last_update_date;
251     p6_a9 := rosetta_g_miss_num_map(ddx_cgrv_rec.last_update_login);
252   end;
253 
254 end okl_setupcontextgroups_pvt_w;