[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPTQYVALUES_PVT_W
Source
1 package body okl_setuptqyvalues_pvt_w as
2 /* $Header: OKLESEVB.pls 115.2 2002/12/24 04:01:13 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_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
52 ddx_no_data_found boolean;
53 ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_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_ptvv_rec.id := rosetta_g_miss_num_map(p0_a0);
59 ddp_ptvv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
60 ddp_ptvv_rec.ptq_id := rosetta_g_miss_num_map(p0_a2);
61 ddp_ptvv_rec.value := p0_a3;
62 ddp_ptvv_rec.description := p0_a4;
63 ddp_ptvv_rec.from_date := rosetta_g_miss_date_in_map(p0_a5);
64 ddp_ptvv_rec.to_date := rosetta_g_miss_date_in_map(p0_a6);
65 ddp_ptvv_rec.created_by := rosetta_g_miss_num_map(p0_a7);
66 ddp_ptvv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
67 ddp_ptvv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a9);
68 ddp_ptvv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
69 ddp_ptvv_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_setuptqyvalues_pvt.get_rec(ddp_ptvv_rec,
76 ddx_no_data_found,
77 x_return_status,
78 ddx_ptvv_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_ptvv_rec.id);
91 p3_a1 := rosetta_g_miss_num_map(ddx_ptvv_rec.object_version_number);
92 p3_a2 := rosetta_g_miss_num_map(ddx_ptvv_rec.ptq_id);
93 p3_a3 := ddx_ptvv_rec.value;
94 p3_a4 := ddx_ptvv_rec.description;
95 p3_a5 := ddx_ptvv_rec.from_date;
96 p3_a6 := ddx_ptvv_rec.to_date;
97 p3_a7 := rosetta_g_miss_num_map(ddx_ptvv_rec.created_by);
98 p3_a8 := ddx_ptvv_rec.creation_date;
99 p3_a9 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_updated_by);
100 p3_a10 := ddx_ptvv_rec.last_update_date;
101 p3_a11 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_update_login);
102 end;
103
104 procedure insert_tqyvalues(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 DATE := fnd_api.g_miss_date
126 , p5_a5 DATE := fnd_api.g_miss_date
127 , p5_a6 NUMBER := 0-1962.0724
128 , p5_a7 DATE := fnd_api.g_miss_date
129 , p5_a8 NUMBER := 0-1962.0724
130 , p5_a9 DATE := fnd_api.g_miss_date
131 , p5_a10 NUMBER := 0-1962.0724
132 , p6_a0 NUMBER := 0-1962.0724
133 , p6_a1 NUMBER := 0-1962.0724
134 , p6_a2 NUMBER := 0-1962.0724
135 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
136 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
137 , p6_a5 DATE := fnd_api.g_miss_date
138 , p6_a6 DATE := fnd_api.g_miss_date
139 , p6_a7 NUMBER := 0-1962.0724
140 , p6_a8 DATE := fnd_api.g_miss_date
141 , p6_a9 NUMBER := 0-1962.0724
142 , p6_a10 DATE := fnd_api.g_miss_date
143 , p6_a11 NUMBER := 0-1962.0724
144 )
145
146 as
147 ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
148 ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
149 ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
150 ddindx binary_integer; indx binary_integer;
151 begin
152
153 -- copy data to the local IN or IN-OUT args, if any
154
155
156
157
158
159 ddp_ptqv_rec.id := rosetta_g_miss_num_map(p5_a0);
160 ddp_ptqv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
161 ddp_ptqv_rec.name := p5_a2;
162 ddp_ptqv_rec.description := p5_a3;
163 ddp_ptqv_rec.from_date := rosetta_g_miss_date_in_map(p5_a4);
164 ddp_ptqv_rec.to_date := rosetta_g_miss_date_in_map(p5_a5);
165 ddp_ptqv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
166 ddp_ptqv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
167 ddp_ptqv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
168 ddp_ptqv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
169 ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
170
171 ddp_ptvv_rec.id := rosetta_g_miss_num_map(p6_a0);
172 ddp_ptvv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
173 ddp_ptvv_rec.ptq_id := rosetta_g_miss_num_map(p6_a2);
174 ddp_ptvv_rec.value := p6_a3;
175 ddp_ptvv_rec.description := p6_a4;
176 ddp_ptvv_rec.from_date := rosetta_g_miss_date_in_map(p6_a5);
177 ddp_ptvv_rec.to_date := rosetta_g_miss_date_in_map(p6_a6);
178 ddp_ptvv_rec.created_by := rosetta_g_miss_num_map(p6_a7);
179 ddp_ptvv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
180 ddp_ptvv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a9);
181 ddp_ptvv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a10);
182 ddp_ptvv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
183
184
185 -- here's the delegated call to the old PL/SQL routine
186 okl_setuptqyvalues_pvt.insert_tqyvalues(p_api_version,
187 p_init_msg_list,
188 x_return_status,
189 x_msg_count,
190 x_msg_data,
191 ddp_ptqv_rec,
192 ddp_ptvv_rec,
193 ddx_ptvv_rec);
194
195 -- copy data back from the local variables to OUT or IN-OUT args, if any
196
197
198
199
200
201
202
203 p7_a0 := rosetta_g_miss_num_map(ddx_ptvv_rec.id);
204 p7_a1 := rosetta_g_miss_num_map(ddx_ptvv_rec.object_version_number);
205 p7_a2 := rosetta_g_miss_num_map(ddx_ptvv_rec.ptq_id);
206 p7_a3 := ddx_ptvv_rec.value;
207 p7_a4 := ddx_ptvv_rec.description;
208 p7_a5 := ddx_ptvv_rec.from_date;
209 p7_a6 := ddx_ptvv_rec.to_date;
210 p7_a7 := rosetta_g_miss_num_map(ddx_ptvv_rec.created_by);
211 p7_a8 := ddx_ptvv_rec.creation_date;
212 p7_a9 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_updated_by);
213 p7_a10 := ddx_ptvv_rec.last_update_date;
214 p7_a11 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_update_login);
215 end;
216
217 procedure update_tqyvalues(p_api_version NUMBER
218 , p_init_msg_list VARCHAR2
219 , x_return_status out nocopy VARCHAR2
220 , x_msg_count out nocopy NUMBER
221 , x_msg_data out nocopy VARCHAR2
222 , p7_a0 out nocopy NUMBER
223 , p7_a1 out nocopy NUMBER
224 , p7_a2 out nocopy NUMBER
225 , p7_a3 out nocopy VARCHAR2
226 , p7_a4 out nocopy VARCHAR2
227 , p7_a5 out nocopy DATE
228 , p7_a6 out nocopy DATE
229 , p7_a7 out nocopy NUMBER
230 , p7_a8 out nocopy DATE
231 , p7_a9 out nocopy NUMBER
232 , p7_a10 out nocopy DATE
233 , p7_a11 out nocopy NUMBER
234 , p5_a0 NUMBER := 0-1962.0724
235 , p5_a1 NUMBER := 0-1962.0724
236 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
237 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
238 , p5_a4 DATE := fnd_api.g_miss_date
239 , p5_a5 DATE := fnd_api.g_miss_date
240 , p5_a6 NUMBER := 0-1962.0724
241 , p5_a7 DATE := fnd_api.g_miss_date
242 , p5_a8 NUMBER := 0-1962.0724
243 , p5_a9 DATE := fnd_api.g_miss_date
244 , p5_a10 NUMBER := 0-1962.0724
245 , p6_a0 NUMBER := 0-1962.0724
246 , p6_a1 NUMBER := 0-1962.0724
247 , p6_a2 NUMBER := 0-1962.0724
248 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
249 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
250 , p6_a5 DATE := fnd_api.g_miss_date
251 , p6_a6 DATE := fnd_api.g_miss_date
252 , p6_a7 NUMBER := 0-1962.0724
253 , p6_a8 DATE := fnd_api.g_miss_date
254 , p6_a9 NUMBER := 0-1962.0724
255 , p6_a10 DATE := fnd_api.g_miss_date
256 , p6_a11 NUMBER := 0-1962.0724
257 )
258
259 as
260 ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
261 ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
262 ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
263 ddindx binary_integer; indx binary_integer;
264 begin
265
266 -- copy data to the local IN or IN-OUT args, if any
267
268
269
270
271
272 ddp_ptqv_rec.id := rosetta_g_miss_num_map(p5_a0);
273 ddp_ptqv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
274 ddp_ptqv_rec.name := p5_a2;
275 ddp_ptqv_rec.description := p5_a3;
276 ddp_ptqv_rec.from_date := rosetta_g_miss_date_in_map(p5_a4);
277 ddp_ptqv_rec.to_date := rosetta_g_miss_date_in_map(p5_a5);
278 ddp_ptqv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
279 ddp_ptqv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
280 ddp_ptqv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
281 ddp_ptqv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
282 ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
283
284 ddp_ptvv_rec.id := rosetta_g_miss_num_map(p6_a0);
285 ddp_ptvv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
286 ddp_ptvv_rec.ptq_id := rosetta_g_miss_num_map(p6_a2);
287 ddp_ptvv_rec.value := p6_a3;
288 ddp_ptvv_rec.description := p6_a4;
289 ddp_ptvv_rec.from_date := rosetta_g_miss_date_in_map(p6_a5);
290 ddp_ptvv_rec.to_date := rosetta_g_miss_date_in_map(p6_a6);
291 ddp_ptvv_rec.created_by := rosetta_g_miss_num_map(p6_a7);
292 ddp_ptvv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
293 ddp_ptvv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a9);
294 ddp_ptvv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a10);
295 ddp_ptvv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
296
297
298 -- here's the delegated call to the old PL/SQL routine
299 okl_setuptqyvalues_pvt.update_tqyvalues(p_api_version,
300 p_init_msg_list,
301 x_return_status,
302 x_msg_count,
303 x_msg_data,
304 ddp_ptqv_rec,
305 ddp_ptvv_rec,
306 ddx_ptvv_rec);
307
308 -- copy data back from the local variables to OUT or IN-OUT args, if any
309
310
311
312
313
314
315
316 p7_a0 := rosetta_g_miss_num_map(ddx_ptvv_rec.id);
317 p7_a1 := rosetta_g_miss_num_map(ddx_ptvv_rec.object_version_number);
318 p7_a2 := rosetta_g_miss_num_map(ddx_ptvv_rec.ptq_id);
319 p7_a3 := ddx_ptvv_rec.value;
320 p7_a4 := ddx_ptvv_rec.description;
321 p7_a5 := ddx_ptvv_rec.from_date;
322 p7_a6 := ddx_ptvv_rec.to_date;
323 p7_a7 := rosetta_g_miss_num_map(ddx_ptvv_rec.created_by);
324 p7_a8 := ddx_ptvv_rec.creation_date;
325 p7_a9 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_updated_by);
326 p7_a10 := ddx_ptvv_rec.last_update_date;
327 p7_a11 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_update_login);
328 end;
329
330 end okl_setuptqyvalues_pvt_w;