[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPQUALITYS_PVT_W
Source
1 package body okl_setuppqualitys_pvt_w as
2 /* $Header: OKLESPQB.pls 115.2 2002/12/24 04:03:53 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 VARCHAR2
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 VARCHAR2 := fnd_api.g_miss_char
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_pqyv_rec okl_setuppqualitys_pvt.pqyv_rec_type;
52 ddx_no_data_found boolean;
53 ddx_pqyv_rec okl_setuppqualitys_pvt.pqyv_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_pqyv_rec.id := rosetta_g_miss_num_map(p0_a0);
59 ddp_pqyv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
60 ddp_pqyv_rec.name := p0_a2;
61 ddp_pqyv_rec.description := p0_a3;
62 ddp_pqyv_rec.location_yn := p0_a4;
63 ddp_pqyv_rec.from_date := rosetta_g_miss_date_in_map(p0_a5);
64 ddp_pqyv_rec.to_date := rosetta_g_miss_date_in_map(p0_a6);
65 ddp_pqyv_rec.created_by := rosetta_g_miss_num_map(p0_a7);
66 ddp_pqyv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
67 ddp_pqyv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a9);
68 ddp_pqyv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
69 ddp_pqyv_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_setuppqualitys_pvt.get_rec(ddp_pqyv_rec,
76 ddx_no_data_found,
77 x_return_status,
78 ddx_pqyv_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_pqyv_rec.id);
91 p3_a1 := rosetta_g_miss_num_map(ddx_pqyv_rec.object_version_number);
92 p3_a2 := ddx_pqyv_rec.name;
93 p3_a3 := ddx_pqyv_rec.description;
94 p3_a4 := ddx_pqyv_rec.location_yn;
95 p3_a5 := ddx_pqyv_rec.from_date;
96 p3_a6 := ddx_pqyv_rec.to_date;
97 p3_a7 := rosetta_g_miss_num_map(ddx_pqyv_rec.created_by);
98 p3_a8 := ddx_pqyv_rec.creation_date;
99 p3_a9 := rosetta_g_miss_num_map(ddx_pqyv_rec.last_updated_by);
100 p3_a10 := ddx_pqyv_rec.last_update_date;
101 p3_a11 := rosetta_g_miss_num_map(ddx_pqyv_rec.last_update_login);
102 end;
103
104 procedure insert_pqualitys(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 , p6_a0 out nocopy NUMBER
110 , p6_a1 out nocopy NUMBER
111 , p6_a2 out nocopy VARCHAR2
112 , p6_a3 out nocopy VARCHAR2
113 , p6_a4 out nocopy VARCHAR2
114 , p6_a5 out nocopy DATE
115 , p6_a6 out nocopy DATE
116 , p6_a7 out nocopy NUMBER
117 , p6_a8 out nocopy DATE
118 , p6_a9 out nocopy NUMBER
119 , p6_a10 out nocopy DATE
120 , p6_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 )
134
135 as
136 ddp_pqyv_rec okl_setuppqualitys_pvt.pqyv_rec_type;
137 ddx_pqyv_rec okl_setuppqualitys_pvt.pqyv_rec_type;
138 ddindx binary_integer; indx binary_integer;
139 begin
140
141 -- copy data to the local IN or IN-OUT args, if any
142
143
144
145
146
147 ddp_pqyv_rec.id := rosetta_g_miss_num_map(p5_a0);
148 ddp_pqyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
149 ddp_pqyv_rec.name := p5_a2;
150 ddp_pqyv_rec.description := p5_a3;
151 ddp_pqyv_rec.location_yn := p5_a4;
152 ddp_pqyv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
153 ddp_pqyv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
154 ddp_pqyv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
155 ddp_pqyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
156 ddp_pqyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
157 ddp_pqyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
158 ddp_pqyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
159
160
161 -- here's the delegated call to the old PL/SQL routine
162 okl_setuppqualitys_pvt.insert_pqualitys(p_api_version,
163 p_init_msg_list,
164 x_return_status,
165 x_msg_count,
166 x_msg_data,
167 ddp_pqyv_rec,
168 ddx_pqyv_rec);
169
170 -- copy data back from the local variables to OUT or IN-OUT args, if any
171
172
173
174
175
176
177 p6_a0 := rosetta_g_miss_num_map(ddx_pqyv_rec.id);
178 p6_a1 := rosetta_g_miss_num_map(ddx_pqyv_rec.object_version_number);
179 p6_a2 := ddx_pqyv_rec.name;
180 p6_a3 := ddx_pqyv_rec.description;
181 p6_a4 := ddx_pqyv_rec.location_yn;
182 p6_a5 := ddx_pqyv_rec.from_date;
183 p6_a6 := ddx_pqyv_rec.to_date;
184 p6_a7 := rosetta_g_miss_num_map(ddx_pqyv_rec.created_by);
185 p6_a8 := ddx_pqyv_rec.creation_date;
186 p6_a9 := rosetta_g_miss_num_map(ddx_pqyv_rec.last_updated_by);
187 p6_a10 := ddx_pqyv_rec.last_update_date;
188 p6_a11 := rosetta_g_miss_num_map(ddx_pqyv_rec.last_update_login);
189 end;
190
191 procedure update_pqualitys(p_api_version NUMBER
192 , p_init_msg_list VARCHAR2
193 , x_return_status out nocopy VARCHAR2
194 , x_msg_count out nocopy NUMBER
195 , x_msg_data out nocopy VARCHAR2
196 , p6_a0 out nocopy NUMBER
197 , p6_a1 out nocopy NUMBER
198 , p6_a2 out nocopy VARCHAR2
199 , p6_a3 out nocopy VARCHAR2
200 , p6_a4 out nocopy VARCHAR2
201 , p6_a5 out nocopy DATE
202 , p6_a6 out nocopy DATE
203 , p6_a7 out nocopy NUMBER
204 , p6_a8 out nocopy DATE
205 , p6_a9 out nocopy NUMBER
206 , p6_a10 out nocopy DATE
207 , p6_a11 out nocopy NUMBER
208 , p5_a0 NUMBER := 0-1962.0724
209 , p5_a1 NUMBER := 0-1962.0724
210 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
211 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
212 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
213 , p5_a5 DATE := fnd_api.g_miss_date
214 , p5_a6 DATE := fnd_api.g_miss_date
215 , p5_a7 NUMBER := 0-1962.0724
216 , p5_a8 DATE := fnd_api.g_miss_date
217 , p5_a9 NUMBER := 0-1962.0724
218 , p5_a10 DATE := fnd_api.g_miss_date
219 , p5_a11 NUMBER := 0-1962.0724
220 )
221
222 as
223 ddp_pqyv_rec okl_setuppqualitys_pvt.pqyv_rec_type;
224 ddx_pqyv_rec okl_setuppqualitys_pvt.pqyv_rec_type;
225 ddindx binary_integer; indx binary_integer;
226 begin
227
228 -- copy data to the local IN or IN-OUT args, if any
229
230
231
232
233
234 ddp_pqyv_rec.id := rosetta_g_miss_num_map(p5_a0);
235 ddp_pqyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
236 ddp_pqyv_rec.name := p5_a2;
237 ddp_pqyv_rec.description := p5_a3;
238 ddp_pqyv_rec.location_yn := p5_a4;
239 ddp_pqyv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
240 ddp_pqyv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
241 ddp_pqyv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
242 ddp_pqyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
243 ddp_pqyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
244 ddp_pqyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
245 ddp_pqyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
246
247
248 -- here's the delegated call to the old PL/SQL routine
249 okl_setuppqualitys_pvt.update_pqualitys(p_api_version,
250 p_init_msg_list,
251 x_return_status,
252 x_msg_count,
253 x_msg_data,
254 ddp_pqyv_rec,
255 ddx_pqyv_rec);
256
257 -- copy data back from the local variables to OUT or IN-OUT args, if any
258
259
260
261
262
263
264 p6_a0 := rosetta_g_miss_num_map(ddx_pqyv_rec.id);
265 p6_a1 := rosetta_g_miss_num_map(ddx_pqyv_rec.object_version_number);
266 p6_a2 := ddx_pqyv_rec.name;
267 p6_a3 := ddx_pqyv_rec.description;
268 p6_a4 := ddx_pqyv_rec.location_yn;
269 p6_a5 := ddx_pqyv_rec.from_date;
270 p6_a6 := ddx_pqyv_rec.to_date;
271 p6_a7 := rosetta_g_miss_num_map(ddx_pqyv_rec.created_by);
272 p6_a8 := ddx_pqyv_rec.creation_date;
273 p6_a9 := rosetta_g_miss_num_map(ddx_pqyv_rec.last_updated_by);
274 p6_a10 := ddx_pqyv_rec.last_update_date;
275 p6_a11 := rosetta_g_miss_num_map(ddx_pqyv_rec.last_update_login);
276 end;
277
278 end okl_setuppqualitys_pvt_w;