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