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_PUB_W

Source


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