[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPQYVALUES_PVT_W
Source
1 package body okl_setuppqyvalues_pvt_w as
2 /* $Header: OKLESQVB.pls 115.2 2002/12/24 04:04:27 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_no_data_found out nocopy number
23 , x_return_status out nocopy VARCHAR2
24 , p3_a0 out nocopy NUMBER
25 , p3_a1 out nocopy NUMBER
26 , p3_a2 out nocopy NUMBER
27 , p3_a3 out nocopy VARCHAR2
28 , p3_a4 out nocopy VARCHAR2
29 , p3_a5 out nocopy DATE
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 , p3_a10 out nocopy DATE
35 , p3_a11 out nocopy NUMBER
36 , p0_a0 NUMBER := 0-1962.0724
37 , p0_a1 NUMBER := 0-1962.0724
38 , p0_a2 NUMBER := 0-1962.0724
39 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
40 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
41 , p0_a5 DATE := fnd_api.g_miss_date
42 , p0_a6 DATE := fnd_api.g_miss_date
43 , p0_a7 NUMBER := 0-1962.0724
44 , p0_a8 DATE := fnd_api.g_miss_date
45 , p0_a9 NUMBER := 0-1962.0724
46 , p0_a10 DATE := fnd_api.g_miss_date
47 , p0_a11 NUMBER := 0-1962.0724
48 )
49
50 as
51 ddp_qvev_rec okl_setuppqyvalues_pvt.qvev_rec_type;
52 ddx_no_data_found boolean;
53 ddx_qvev_rec okl_setuppqyvalues_pvt.qvev_rec_type;
54 ddindx binary_integer; indx binary_integer;
55 begin
56
57 -- copy data to the local IN or IN-OUT args, if any
58 ddp_qvev_rec.id := rosetta_g_miss_num_map(p0_a0);
59 ddp_qvev_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
60 ddp_qvev_rec.pqy_id := rosetta_g_miss_num_map(p0_a2);
61 ddp_qvev_rec.value := p0_a3;
62 ddp_qvev_rec.description := p0_a4;
63 ddp_qvev_rec.from_date := rosetta_g_miss_date_in_map(p0_a5);
64 ddp_qvev_rec.to_date := rosetta_g_miss_date_in_map(p0_a6);
65 ddp_qvev_rec.created_by := rosetta_g_miss_num_map(p0_a7);
66 ddp_qvev_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
67 ddp_qvev_rec.last_updated_by := rosetta_g_miss_num_map(p0_a9);
68 ddp_qvev_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
69 ddp_qvev_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
70
71
72
73
74 -- here's the delegated call to the old PL/SQL routine
75 okl_setuppqyvalues_pvt.get_rec(ddp_qvev_rec,
76 ddx_no_data_found,
77 x_return_status,
78 ddx_qvev_rec);
79
80 -- copy data back from the local variables to OUT or IN-OUT args, if any
81
82 if ddx_no_data_found is null
83 then x_no_data_found := null;
84 elsif ddx_no_data_found
85 then x_no_data_found := 1;
86 else x_no_data_found := 0;
87 end if;
88
89
90 p3_a0 := rosetta_g_miss_num_map(ddx_qvev_rec.id);
91 p3_a1 := rosetta_g_miss_num_map(ddx_qvev_rec.object_version_number);
92 p3_a2 := rosetta_g_miss_num_map(ddx_qvev_rec.pqy_id);
93 p3_a3 := ddx_qvev_rec.value;
94 p3_a4 := ddx_qvev_rec.description;
95 p3_a5 := ddx_qvev_rec.from_date;
96 p3_a6 := ddx_qvev_rec.to_date;
97 p3_a7 := rosetta_g_miss_num_map(ddx_qvev_rec.created_by);
98 p3_a8 := ddx_qvev_rec.creation_date;
99 p3_a9 := rosetta_g_miss_num_map(ddx_qvev_rec.last_updated_by);
100 p3_a10 := ddx_qvev_rec.last_update_date;
101 p3_a11 := rosetta_g_miss_num_map(ddx_qvev_rec.last_update_login);
102 end;
103
104 procedure insert_pqyvalues(p_api_version NUMBER
105 , p_init_msg_list VARCHAR2
106 , x_return_status out nocopy VARCHAR2
107 , x_msg_count out nocopy NUMBER
108 , x_msg_data out nocopy VARCHAR2
109 , p7_a0 out nocopy NUMBER
110 , p7_a1 out nocopy NUMBER
111 , p7_a2 out nocopy NUMBER
112 , p7_a3 out nocopy VARCHAR2
113 , p7_a4 out nocopy VARCHAR2
114 , p7_a5 out nocopy DATE
115 , p7_a6 out nocopy DATE
116 , p7_a7 out nocopy NUMBER
117 , p7_a8 out nocopy DATE
118 , p7_a9 out nocopy NUMBER
119 , p7_a10 out nocopy DATE
120 , p7_a11 out nocopy NUMBER
121 , p5_a0 NUMBER := 0-1962.0724
122 , p5_a1 NUMBER := 0-1962.0724
123 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
124 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
125 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
126 , p5_a5 DATE := fnd_api.g_miss_date
127 , p5_a6 DATE := fnd_api.g_miss_date
128 , p5_a7 NUMBER := 0-1962.0724
129 , p5_a8 DATE := fnd_api.g_miss_date
130 , p5_a9 NUMBER := 0-1962.0724
131 , p5_a10 DATE := fnd_api.g_miss_date
132 , p5_a11 NUMBER := 0-1962.0724
133 , p6_a0 NUMBER := 0-1962.0724
134 , p6_a1 NUMBER := 0-1962.0724
135 , p6_a2 NUMBER := 0-1962.0724
136 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
137 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
138 , p6_a5 DATE := fnd_api.g_miss_date
139 , p6_a6 DATE := fnd_api.g_miss_date
140 , p6_a7 NUMBER := 0-1962.0724
141 , p6_a8 DATE := fnd_api.g_miss_date
142 , p6_a9 NUMBER := 0-1962.0724
143 , p6_a10 DATE := fnd_api.g_miss_date
144 , p6_a11 NUMBER := 0-1962.0724
145 )
146
147 as
148 ddp_pqyv_rec okl_setuppqyvalues_pvt.pqyv_rec_type;
149 ddp_qvev_rec okl_setuppqyvalues_pvt.qvev_rec_type;
150 ddx_qvev_rec okl_setuppqyvalues_pvt.qvev_rec_type;
151 ddindx binary_integer; indx binary_integer;
152 begin
153
154 -- copy data to the local IN or IN-OUT args, if any
155
156
157
158
159
160 ddp_pqyv_rec.id := rosetta_g_miss_num_map(p5_a0);
161 ddp_pqyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
162 ddp_pqyv_rec.name := p5_a2;
163 ddp_pqyv_rec.description := p5_a3;
164 ddp_pqyv_rec.location_yn := p5_a4;
165 ddp_pqyv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
166 ddp_pqyv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
167 ddp_pqyv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
168 ddp_pqyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
169 ddp_pqyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
170 ddp_pqyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
171 ddp_pqyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
172
173 ddp_qvev_rec.id := rosetta_g_miss_num_map(p6_a0);
174 ddp_qvev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
175 ddp_qvev_rec.pqy_id := rosetta_g_miss_num_map(p6_a2);
176 ddp_qvev_rec.value := p6_a3;
177 ddp_qvev_rec.description := p6_a4;
178 ddp_qvev_rec.from_date := rosetta_g_miss_date_in_map(p6_a5);
179 ddp_qvev_rec.to_date := rosetta_g_miss_date_in_map(p6_a6);
180 ddp_qvev_rec.created_by := rosetta_g_miss_num_map(p6_a7);
181 ddp_qvev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
182 ddp_qvev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a9);
183 ddp_qvev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a10);
184 ddp_qvev_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
185
186
187 -- here's the delegated call to the old PL/SQL routine
188 okl_setuppqyvalues_pvt.insert_pqyvalues(p_api_version,
189 p_init_msg_list,
190 x_return_status,
191 x_msg_count,
192 x_msg_data,
193 ddp_pqyv_rec,
194 ddp_qvev_rec,
195 ddx_qvev_rec);
196
197 -- copy data back from the local variables to OUT or IN-OUT args, if any
198
199
200
201
202
203
204
205 p7_a0 := rosetta_g_miss_num_map(ddx_qvev_rec.id);
206 p7_a1 := rosetta_g_miss_num_map(ddx_qvev_rec.object_version_number);
207 p7_a2 := rosetta_g_miss_num_map(ddx_qvev_rec.pqy_id);
208 p7_a3 := ddx_qvev_rec.value;
209 p7_a4 := ddx_qvev_rec.description;
210 p7_a5 := ddx_qvev_rec.from_date;
211 p7_a6 := ddx_qvev_rec.to_date;
212 p7_a7 := rosetta_g_miss_num_map(ddx_qvev_rec.created_by);
213 p7_a8 := ddx_qvev_rec.creation_date;
214 p7_a9 := rosetta_g_miss_num_map(ddx_qvev_rec.last_updated_by);
215 p7_a10 := ddx_qvev_rec.last_update_date;
216 p7_a11 := rosetta_g_miss_num_map(ddx_qvev_rec.last_update_login);
217 end;
218
219 procedure update_pqyvalues(p_api_version NUMBER
220 , p_init_msg_list VARCHAR2
221 , x_return_status out nocopy VARCHAR2
222 , x_msg_count out nocopy NUMBER
223 , x_msg_data out nocopy VARCHAR2
224 , p7_a0 out nocopy NUMBER
225 , p7_a1 out nocopy NUMBER
226 , p7_a2 out nocopy NUMBER
227 , p7_a3 out nocopy VARCHAR2
228 , p7_a4 out nocopy VARCHAR2
229 , p7_a5 out nocopy DATE
230 , p7_a6 out nocopy DATE
231 , p7_a7 out nocopy NUMBER
232 , p7_a8 out nocopy DATE
233 , p7_a9 out nocopy NUMBER
234 , p7_a10 out nocopy DATE
235 , p7_a11 out nocopy NUMBER
236 , p5_a0 NUMBER := 0-1962.0724
237 , p5_a1 NUMBER := 0-1962.0724
238 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
239 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
240 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
241 , p5_a5 DATE := fnd_api.g_miss_date
242 , p5_a6 DATE := fnd_api.g_miss_date
243 , p5_a7 NUMBER := 0-1962.0724
244 , p5_a8 DATE := fnd_api.g_miss_date
245 , p5_a9 NUMBER := 0-1962.0724
246 , p5_a10 DATE := fnd_api.g_miss_date
247 , p5_a11 NUMBER := 0-1962.0724
248 , p6_a0 NUMBER := 0-1962.0724
249 , p6_a1 NUMBER := 0-1962.0724
250 , p6_a2 NUMBER := 0-1962.0724
251 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
252 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
253 , p6_a5 DATE := fnd_api.g_miss_date
254 , p6_a6 DATE := fnd_api.g_miss_date
255 , p6_a7 NUMBER := 0-1962.0724
256 , p6_a8 DATE := fnd_api.g_miss_date
257 , p6_a9 NUMBER := 0-1962.0724
258 , p6_a10 DATE := fnd_api.g_miss_date
259 , p6_a11 NUMBER := 0-1962.0724
260 )
261
262 as
263 ddp_pqyv_rec okl_setuppqyvalues_pvt.pqyv_rec_type;
264 ddp_qvev_rec okl_setuppqyvalues_pvt.qvev_rec_type;
265 ddx_qvev_rec okl_setuppqyvalues_pvt.qvev_rec_type;
266 ddindx binary_integer; indx binary_integer;
267 begin
268
269 -- copy data to the local IN or IN-OUT args, if any
270
271
272
273
274
275 ddp_pqyv_rec.id := rosetta_g_miss_num_map(p5_a0);
276 ddp_pqyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
277 ddp_pqyv_rec.name := p5_a2;
278 ddp_pqyv_rec.description := p5_a3;
279 ddp_pqyv_rec.location_yn := p5_a4;
280 ddp_pqyv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
281 ddp_pqyv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
282 ddp_pqyv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
283 ddp_pqyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
284 ddp_pqyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
285 ddp_pqyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
286 ddp_pqyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
287
288 ddp_qvev_rec.id := rosetta_g_miss_num_map(p6_a0);
289 ddp_qvev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
290 ddp_qvev_rec.pqy_id := rosetta_g_miss_num_map(p6_a2);
291 ddp_qvev_rec.value := p6_a3;
292 ddp_qvev_rec.description := p6_a4;
293 ddp_qvev_rec.from_date := rosetta_g_miss_date_in_map(p6_a5);
294 ddp_qvev_rec.to_date := rosetta_g_miss_date_in_map(p6_a6);
295 ddp_qvev_rec.created_by := rosetta_g_miss_num_map(p6_a7);
296 ddp_qvev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
297 ddp_qvev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a9);
298 ddp_qvev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a10);
299 ddp_qvev_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 okl_setuppqyvalues_pvt.update_pqyvalues(p_api_version,
304 p_init_msg_list,
305 x_return_status,
306 x_msg_count,
307 x_msg_data,
308 ddp_pqyv_rec,
309 ddp_qvev_rec,
310 ddx_qvev_rec);
311
312 -- copy data back from the local variables to OUT or IN-OUT args, if any
313
314
315
316
317
318
319
320 p7_a0 := rosetta_g_miss_num_map(ddx_qvev_rec.id);
321 p7_a1 := rosetta_g_miss_num_map(ddx_qvev_rec.object_version_number);
322 p7_a2 := rosetta_g_miss_num_map(ddx_qvev_rec.pqy_id);
323 p7_a3 := ddx_qvev_rec.value;
324 p7_a4 := ddx_qvev_rec.description;
325 p7_a5 := ddx_qvev_rec.from_date;
326 p7_a6 := ddx_qvev_rec.to_date;
327 p7_a7 := rosetta_g_miss_num_map(ddx_qvev_rec.created_by);
328 p7_a8 := ddx_qvev_rec.creation_date;
329 p7_a9 := rosetta_g_miss_num_map(ddx_qvev_rec.last_updated_by);
330 p7_a10 := ddx_qvev_rec.last_update_date;
331 p7_a11 := rosetta_g_miss_num_map(ddx_qvev_rec.last_update_login);
332 end;
333
334 end okl_setuppqyvalues_pvt_w;