[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPTQUALITYS_PVT_W
Source
1 package body okl_setuptqualitys_pvt_w as
2 /* $Header: OKLESTQB.pls 115.2 2002/12/24 04:04:48 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 DATE
29 , p3_a5 out nocopy DATE
30 , p3_a6 out nocopy NUMBER
31 , p3_a7 out nocopy DATE
32 , p3_a8 out nocopy NUMBER
33 , p3_a9 out nocopy DATE
34 , p3_a10 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 DATE := fnd_api.g_miss_date
40 , p0_a5 DATE := fnd_api.g_miss_date
41 , p0_a6 NUMBER := 0-1962.0724
42 , p0_a7 DATE := fnd_api.g_miss_date
43 , p0_a8 NUMBER := 0-1962.0724
44 , p0_a9 DATE := fnd_api.g_miss_date
45 , p0_a10 NUMBER := 0-1962.0724
46 )
47
48 as
49 ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
50 ddx_no_data_found boolean;
51 ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
52 ddindx binary_integer; indx binary_integer;
53 begin
54
55 -- copy data to the local IN or IN-OUT args, if any
56 ddp_ptqv_rec.id := rosetta_g_miss_num_map(p0_a0);
57 ddp_ptqv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
58 ddp_ptqv_rec.name := p0_a2;
59 ddp_ptqv_rec.description := p0_a3;
60 ddp_ptqv_rec.from_date := rosetta_g_miss_date_in_map(p0_a4);
61 ddp_ptqv_rec.to_date := rosetta_g_miss_date_in_map(p0_a5);
62 ddp_ptqv_rec.created_by := rosetta_g_miss_num_map(p0_a6);
63 ddp_ptqv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a7);
64 ddp_ptqv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a8);
65 ddp_ptqv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a9);
66 ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p0_a10);
67
68
69
70
71 -- here's the delegated call to the old PL/SQL routine
72 okl_setuptqualitys_pvt.get_rec(ddp_ptqv_rec,
73 ddx_no_data_found,
74 x_return_status,
75 ddx_ptqv_rec);
76
77 -- copy data back from the local variables to OUT or IN-OUT args, if any
78
79 if ddx_no_data_found is null
80 then x_no_data_found := null;
81 elsif ddx_no_data_found
82 then x_no_data_found := 1;
83 else x_no_data_found := 0;
84 end if;
85
86
87 p3_a0 := rosetta_g_miss_num_map(ddx_ptqv_rec.id);
88 p3_a1 := rosetta_g_miss_num_map(ddx_ptqv_rec.object_version_number);
89 p3_a2 := ddx_ptqv_rec.name;
90 p3_a3 := ddx_ptqv_rec.description;
91 p3_a4 := ddx_ptqv_rec.from_date;
92 p3_a5 := ddx_ptqv_rec.to_date;
93 p3_a6 := rosetta_g_miss_num_map(ddx_ptqv_rec.created_by);
94 p3_a7 := ddx_ptqv_rec.creation_date;
95 p3_a8 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_updated_by);
96 p3_a9 := ddx_ptqv_rec.last_update_date;
97 p3_a10 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_update_login);
98 end;
99
100 procedure insert_tqualitys(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 DATE
110 , p6_a5 out nocopy DATE
111 , p6_a6 out nocopy NUMBER
112 , p6_a7 out nocopy DATE
113 , p6_a8 out nocopy NUMBER
114 , p6_a9 out nocopy DATE
115 , p6_a10 out nocopy NUMBER
116 , p5_a0 NUMBER := 0-1962.0724
117 , p5_a1 NUMBER := 0-1962.0724
118 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
119 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
120 , p5_a4 DATE := fnd_api.g_miss_date
121 , p5_a5 DATE := fnd_api.g_miss_date
122 , p5_a6 NUMBER := 0-1962.0724
123 , p5_a7 DATE := fnd_api.g_miss_date
124 , p5_a8 NUMBER := 0-1962.0724
125 , p5_a9 DATE := fnd_api.g_miss_date
126 , p5_a10 NUMBER := 0-1962.0724
127 )
128
129 as
130 ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
131 ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
132 ddindx binary_integer; indx binary_integer;
133 begin
134
135 -- copy data to the local IN or IN-OUT args, if any
136
137
138
139
140
141 ddp_ptqv_rec.id := rosetta_g_miss_num_map(p5_a0);
142 ddp_ptqv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
143 ddp_ptqv_rec.name := p5_a2;
144 ddp_ptqv_rec.description := p5_a3;
145 ddp_ptqv_rec.from_date := rosetta_g_miss_date_in_map(p5_a4);
146 ddp_ptqv_rec.to_date := rosetta_g_miss_date_in_map(p5_a5);
147 ddp_ptqv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
148 ddp_ptqv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
149 ddp_ptqv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
150 ddp_ptqv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
151 ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
152
153
154 -- here's the delegated call to the old PL/SQL routine
155 okl_setuptqualitys_pvt.insert_tqualitys(p_api_version,
156 p_init_msg_list,
157 x_return_status,
158 x_msg_count,
159 x_msg_data,
160 ddp_ptqv_rec,
161 ddx_ptqv_rec);
162
163 -- copy data back from the local variables to OUT or IN-OUT args, if any
164
165
166
167
168
169
170 p6_a0 := rosetta_g_miss_num_map(ddx_ptqv_rec.id);
171 p6_a1 := rosetta_g_miss_num_map(ddx_ptqv_rec.object_version_number);
172 p6_a2 := ddx_ptqv_rec.name;
173 p6_a3 := ddx_ptqv_rec.description;
174 p6_a4 := ddx_ptqv_rec.from_date;
175 p6_a5 := ddx_ptqv_rec.to_date;
176 p6_a6 := rosetta_g_miss_num_map(ddx_ptqv_rec.created_by);
177 p6_a7 := ddx_ptqv_rec.creation_date;
178 p6_a8 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_updated_by);
179 p6_a9 := ddx_ptqv_rec.last_update_date;
180 p6_a10 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_update_login);
181 end;
182
183 procedure update_tqualitys(p_api_version NUMBER
184 , p_init_msg_list VARCHAR2
185 , x_return_status out nocopy VARCHAR2
186 , x_msg_count out nocopy NUMBER
187 , x_msg_data out nocopy VARCHAR2
188 , p6_a0 out nocopy NUMBER
189 , p6_a1 out nocopy NUMBER
190 , p6_a2 out nocopy VARCHAR2
191 , p6_a3 out nocopy VARCHAR2
192 , p6_a4 out nocopy DATE
193 , p6_a5 out nocopy DATE
194 , p6_a6 out nocopy NUMBER
195 , p6_a7 out nocopy DATE
196 , p6_a8 out nocopy NUMBER
197 , p6_a9 out nocopy DATE
198 , p6_a10 out nocopy NUMBER
199 , p5_a0 NUMBER := 0-1962.0724
200 , p5_a1 NUMBER := 0-1962.0724
201 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
202 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
203 , p5_a4 DATE := fnd_api.g_miss_date
204 , p5_a5 DATE := fnd_api.g_miss_date
205 , p5_a6 NUMBER := 0-1962.0724
206 , p5_a7 DATE := fnd_api.g_miss_date
207 , p5_a8 NUMBER := 0-1962.0724
208 , p5_a9 DATE := fnd_api.g_miss_date
209 , p5_a10 NUMBER := 0-1962.0724
210 )
211
212 as
213 ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
214 ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
215 ddindx binary_integer; indx binary_integer;
216 begin
217
218 -- copy data to the local IN or IN-OUT args, if any
219
220
221
222
223
224 ddp_ptqv_rec.id := rosetta_g_miss_num_map(p5_a0);
225 ddp_ptqv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
226 ddp_ptqv_rec.name := p5_a2;
227 ddp_ptqv_rec.description := p5_a3;
228 ddp_ptqv_rec.from_date := rosetta_g_miss_date_in_map(p5_a4);
229 ddp_ptqv_rec.to_date := rosetta_g_miss_date_in_map(p5_a5);
230 ddp_ptqv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
231 ddp_ptqv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
232 ddp_ptqv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
233 ddp_ptqv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
234 ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
235
236
237 -- here's the delegated call to the old PL/SQL routine
238 okl_setuptqualitys_pvt.update_tqualitys(p_api_version,
239 p_init_msg_list,
240 x_return_status,
241 x_msg_count,
242 x_msg_data,
243 ddp_ptqv_rec,
244 ddx_ptqv_rec);
245
246 -- copy data back from the local variables to OUT or IN-OUT args, if any
247
248
249
250
251
252
253 p6_a0 := rosetta_g_miss_num_map(ddx_ptqv_rec.id);
254 p6_a1 := rosetta_g_miss_num_map(ddx_ptqv_rec.object_version_number);
255 p6_a2 := ddx_ptqv_rec.name;
256 p6_a3 := ddx_ptqv_rec.description;
257 p6_a4 := ddx_ptqv_rec.from_date;
258 p6_a5 := ddx_ptqv_rec.to_date;
259 p6_a6 := rosetta_g_miss_num_map(ddx_ptqv_rec.created_by);
260 p6_a7 := ddx_ptqv_rec.creation_date;
261 p6_a8 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_updated_by);
262 p6_a9 := ddx_ptqv_rec.last_update_date;
263 p6_a10 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_update_login);
264 end;
265
266 end okl_setuptqualitys_pvt_w;