[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_DEPT_SHIFTS_PUB_W
Source
1 package body ahl_vwp_dept_shifts_pub_w as
2 /* $Header: AHLWDSHB.pls 115.2 2002/11/22 23:16:48 ssurapan 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 procedure create_vwp_dept_shifts(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p_validation_level NUMBER
17 , p_default VARCHAR2
18 , p_module_type VARCHAR2
19 , x_return_status out nocopy VARCHAR2
20 , x_msg_count out nocopy NUMBER
21 , x_msg_data out nocopy VARCHAR2
22 , p9_a0 in out nocopy NUMBER
23 , p9_a1 in out nocopy NUMBER
24 , p9_a2 in out nocopy VARCHAR2
25 , p9_a3 in out nocopy NUMBER
26 , p9_a4 in out nocopy DATE
27 , p9_a5 in out nocopy NUMBER
28 , p9_a6 in out nocopy DATE
29 , p9_a7 in out nocopy NUMBER
30 , p9_a8 in out nocopy NUMBER
31 , p9_a9 in out nocopy NUMBER
32 , p9_a10 in out nocopy VARCHAR2
33 , p9_a11 in out nocopy VARCHAR2
34 , p9_a12 in out nocopy VARCHAR2
35 , p9_a13 in out nocopy NUMBER
36 , p9_a14 in out nocopy NUMBER
37 , p9_a15 in out nocopy NUMBER
38 , p9_a16 in out nocopy VARCHAR2
39 , p9_a17 in out nocopy VARCHAR2
40 , p9_a18 in out nocopy VARCHAR2
41 , p9_a19 in out nocopy VARCHAR2
42 , p9_a20 in out nocopy VARCHAR2
43 , p9_a21 in out nocopy VARCHAR2
44 , p9_a22 in out nocopy VARCHAR2
45 , p9_a23 in out nocopy VARCHAR2
46 , p9_a24 in out nocopy VARCHAR2
47 , p9_a25 in out nocopy VARCHAR2
48 , p9_a26 in out nocopy VARCHAR2
49 , p9_a27 in out nocopy VARCHAR2
50 , p9_a28 in out nocopy VARCHAR2
51 , p9_a29 in out nocopy VARCHAR2
52 , p9_a30 in out nocopy VARCHAR2
53 , p9_a31 in out nocopy VARCHAR2
54 , p9_a32 in out nocopy VARCHAR2
55 , p9_a33 in out nocopy VARCHAR2
56 )
57
58 as
59 ddp_x_vwp_deptshift_rec ahl_vwp_dept_shifts_pub.vwp_deptshift_rec;
60 ddindx binary_integer; indx binary_integer;
61 begin
62
63 -- copy data to the local IN or IN-OUT args, if any
64
65
66
67
68
69
70
71
72
73 ddp_x_vwp_deptshift_rec.ahl_department_shifts_id := p9_a0;
74 ddp_x_vwp_deptshift_rec.organization_id := p9_a1;
75 ddp_x_vwp_deptshift_rec.organization_name := p9_a2;
76 ddp_x_vwp_deptshift_rec.object_version_number := p9_a3;
77 ddp_x_vwp_deptshift_rec.last_update_date := rosetta_g_miss_date_in_map(p9_a4);
78 ddp_x_vwp_deptshift_rec.last_updated_by := p9_a5;
79 ddp_x_vwp_deptshift_rec.creation_date := rosetta_g_miss_date_in_map(p9_a6);
80 ddp_x_vwp_deptshift_rec.created_by := p9_a7;
81 ddp_x_vwp_deptshift_rec.last_update_login := p9_a8;
82 ddp_x_vwp_deptshift_rec.department_id := p9_a9;
83 ddp_x_vwp_deptshift_rec.dept_description := p9_a10;
84 ddp_x_vwp_deptshift_rec.calendar_code := p9_a11;
85 ddp_x_vwp_deptshift_rec.calendar_description := p9_a12;
86 ddp_x_vwp_deptshift_rec.bom_workday_patterns_id := p9_a13;
87 ddp_x_vwp_deptshift_rec.shift_num := p9_a14;
88 ddp_x_vwp_deptshift_rec.seq_num := p9_a15;
89 ddp_x_vwp_deptshift_rec.seq_name := p9_a16;
90 ddp_x_vwp_deptshift_rec.attribute_category := p9_a17;
91 ddp_x_vwp_deptshift_rec.attribute1 := p9_a18;
92 ddp_x_vwp_deptshift_rec.attribute2 := p9_a19;
93 ddp_x_vwp_deptshift_rec.attribute3 := p9_a20;
94 ddp_x_vwp_deptshift_rec.attribute4 := p9_a21;
95 ddp_x_vwp_deptshift_rec.attribute5 := p9_a22;
96 ddp_x_vwp_deptshift_rec.attribute6 := p9_a23;
97 ddp_x_vwp_deptshift_rec.attribute7 := p9_a24;
98 ddp_x_vwp_deptshift_rec.attribute8 := p9_a25;
99 ddp_x_vwp_deptshift_rec.attribute9 := p9_a26;
100 ddp_x_vwp_deptshift_rec.attribute10 := p9_a27;
101 ddp_x_vwp_deptshift_rec.attribute11 := p9_a28;
102 ddp_x_vwp_deptshift_rec.attribute12 := p9_a29;
103 ddp_x_vwp_deptshift_rec.attribute13 := p9_a30;
104 ddp_x_vwp_deptshift_rec.attribute14 := p9_a31;
105 ddp_x_vwp_deptshift_rec.attribute15 := p9_a32;
106 ddp_x_vwp_deptshift_rec.dml_operation := p9_a33;
107
108 -- here's the delegated call to the old PL/SQL routine
109 ahl_vwp_dept_shifts_pub.create_vwp_dept_shifts(p_api_version,
110 p_init_msg_list,
111 p_commit,
112 p_validation_level,
113 p_default,
114 p_module_type,
115 x_return_status,
116 x_msg_count,
117 x_msg_data,
118 ddp_x_vwp_deptshift_rec);
119
120 -- copy data back from the local variables to OUT or IN-OUT args, if any
121
122
123
124
125
126
127
128
129
130 p9_a0 := ddp_x_vwp_deptshift_rec.ahl_department_shifts_id;
131 p9_a1 := ddp_x_vwp_deptshift_rec.organization_id;
132 p9_a2 := ddp_x_vwp_deptshift_rec.organization_name;
133 p9_a3 := ddp_x_vwp_deptshift_rec.object_version_number;
134 p9_a4 := ddp_x_vwp_deptshift_rec.last_update_date;
135 p9_a5 := ddp_x_vwp_deptshift_rec.last_updated_by;
136 p9_a6 := ddp_x_vwp_deptshift_rec.creation_date;
137 p9_a7 := ddp_x_vwp_deptshift_rec.created_by;
138 p9_a8 := ddp_x_vwp_deptshift_rec.last_update_login;
139 p9_a9 := ddp_x_vwp_deptshift_rec.department_id;
140 p9_a10 := ddp_x_vwp_deptshift_rec.dept_description;
141 p9_a11 := ddp_x_vwp_deptshift_rec.calendar_code;
142 p9_a12 := ddp_x_vwp_deptshift_rec.calendar_description;
143 p9_a13 := ddp_x_vwp_deptshift_rec.bom_workday_patterns_id;
144 p9_a14 := ddp_x_vwp_deptshift_rec.shift_num;
145 p9_a15 := ddp_x_vwp_deptshift_rec.seq_num;
146 p9_a16 := ddp_x_vwp_deptshift_rec.seq_name;
147 p9_a17 := ddp_x_vwp_deptshift_rec.attribute_category;
148 p9_a18 := ddp_x_vwp_deptshift_rec.attribute1;
149 p9_a19 := ddp_x_vwp_deptshift_rec.attribute2;
150 p9_a20 := ddp_x_vwp_deptshift_rec.attribute3;
151 p9_a21 := ddp_x_vwp_deptshift_rec.attribute4;
152 p9_a22 := ddp_x_vwp_deptshift_rec.attribute5;
153 p9_a23 := ddp_x_vwp_deptshift_rec.attribute6;
154 p9_a24 := ddp_x_vwp_deptshift_rec.attribute7;
155 p9_a25 := ddp_x_vwp_deptshift_rec.attribute8;
156 p9_a26 := ddp_x_vwp_deptshift_rec.attribute9;
157 p9_a27 := ddp_x_vwp_deptshift_rec.attribute10;
158 p9_a28 := ddp_x_vwp_deptshift_rec.attribute11;
159 p9_a29 := ddp_x_vwp_deptshift_rec.attribute12;
160 p9_a30 := ddp_x_vwp_deptshift_rec.attribute13;
161 p9_a31 := ddp_x_vwp_deptshift_rec.attribute14;
162 p9_a32 := ddp_x_vwp_deptshift_rec.attribute15;
163 p9_a33 := ddp_x_vwp_deptshift_rec.dml_operation;
164 end;
165
166 procedure delete_vwp_dept_shifts(p_api_version NUMBER
167 , p_init_msg_list VARCHAR2
168 , p_commit VARCHAR2
169 , p_validation_level NUMBER
170 , p_default VARCHAR2
171 , p_module_type VARCHAR2
172 , x_return_status out nocopy VARCHAR2
173 , x_msg_count out nocopy NUMBER
174 , x_msg_data out nocopy VARCHAR2
175 , p9_a0 in out nocopy NUMBER
176 , p9_a1 in out nocopy NUMBER
177 , p9_a2 in out nocopy VARCHAR2
178 , p9_a3 in out nocopy NUMBER
179 , p9_a4 in out nocopy DATE
180 , p9_a5 in out nocopy NUMBER
181 , p9_a6 in out nocopy DATE
182 , p9_a7 in out nocopy NUMBER
183 , p9_a8 in out nocopy NUMBER
184 , p9_a9 in out nocopy NUMBER
185 , p9_a10 in out nocopy VARCHAR2
186 , p9_a11 in out nocopy VARCHAR2
187 , p9_a12 in out nocopy VARCHAR2
188 , p9_a13 in out nocopy NUMBER
189 , p9_a14 in out nocopy NUMBER
190 , p9_a15 in out nocopy NUMBER
191 , p9_a16 in out nocopy VARCHAR2
192 , p9_a17 in out nocopy VARCHAR2
193 , p9_a18 in out nocopy VARCHAR2
194 , p9_a19 in out nocopy VARCHAR2
195 , p9_a20 in out nocopy VARCHAR2
196 , p9_a21 in out nocopy VARCHAR2
197 , p9_a22 in out nocopy VARCHAR2
198 , p9_a23 in out nocopy VARCHAR2
199 , p9_a24 in out nocopy VARCHAR2
200 , p9_a25 in out nocopy VARCHAR2
201 , p9_a26 in out nocopy VARCHAR2
202 , p9_a27 in out nocopy VARCHAR2
203 , p9_a28 in out nocopy VARCHAR2
204 , p9_a29 in out nocopy VARCHAR2
205 , p9_a30 in out nocopy VARCHAR2
206 , p9_a31 in out nocopy VARCHAR2
207 , p9_a32 in out nocopy VARCHAR2
208 , p9_a33 in out nocopy VARCHAR2
209 )
210
211 as
212 ddp_x_vwp_deptshift_rec ahl_vwp_dept_shifts_pub.vwp_deptshift_rec;
213 ddindx binary_integer; indx binary_integer;
214 begin
215
216 -- copy data to the local IN or IN-OUT args, if any
217
218
219
220
221
222
223
224
225
226 ddp_x_vwp_deptshift_rec.ahl_department_shifts_id := p9_a0;
227 ddp_x_vwp_deptshift_rec.organization_id := p9_a1;
228 ddp_x_vwp_deptshift_rec.organization_name := p9_a2;
229 ddp_x_vwp_deptshift_rec.object_version_number := p9_a3;
230 ddp_x_vwp_deptshift_rec.last_update_date := rosetta_g_miss_date_in_map(p9_a4);
231 ddp_x_vwp_deptshift_rec.last_updated_by := p9_a5;
232 ddp_x_vwp_deptshift_rec.creation_date := rosetta_g_miss_date_in_map(p9_a6);
233 ddp_x_vwp_deptshift_rec.created_by := p9_a7;
234 ddp_x_vwp_deptshift_rec.last_update_login := p9_a8;
235 ddp_x_vwp_deptshift_rec.department_id := p9_a9;
236 ddp_x_vwp_deptshift_rec.dept_description := p9_a10;
237 ddp_x_vwp_deptshift_rec.calendar_code := p9_a11;
238 ddp_x_vwp_deptshift_rec.calendar_description := p9_a12;
239 ddp_x_vwp_deptshift_rec.bom_workday_patterns_id := p9_a13;
240 ddp_x_vwp_deptshift_rec.shift_num := p9_a14;
241 ddp_x_vwp_deptshift_rec.seq_num := p9_a15;
242 ddp_x_vwp_deptshift_rec.seq_name := p9_a16;
243 ddp_x_vwp_deptshift_rec.attribute_category := p9_a17;
244 ddp_x_vwp_deptshift_rec.attribute1 := p9_a18;
245 ddp_x_vwp_deptshift_rec.attribute2 := p9_a19;
246 ddp_x_vwp_deptshift_rec.attribute3 := p9_a20;
247 ddp_x_vwp_deptshift_rec.attribute4 := p9_a21;
248 ddp_x_vwp_deptshift_rec.attribute5 := p9_a22;
249 ddp_x_vwp_deptshift_rec.attribute6 := p9_a23;
250 ddp_x_vwp_deptshift_rec.attribute7 := p9_a24;
251 ddp_x_vwp_deptshift_rec.attribute8 := p9_a25;
252 ddp_x_vwp_deptshift_rec.attribute9 := p9_a26;
253 ddp_x_vwp_deptshift_rec.attribute10 := p9_a27;
254 ddp_x_vwp_deptshift_rec.attribute11 := p9_a28;
255 ddp_x_vwp_deptshift_rec.attribute12 := p9_a29;
256 ddp_x_vwp_deptshift_rec.attribute13 := p9_a30;
257 ddp_x_vwp_deptshift_rec.attribute14 := p9_a31;
258 ddp_x_vwp_deptshift_rec.attribute15 := p9_a32;
259 ddp_x_vwp_deptshift_rec.dml_operation := p9_a33;
260
261 -- here's the delegated call to the old PL/SQL routine
262 ahl_vwp_dept_shifts_pub.delete_vwp_dept_shifts(p_api_version,
263 p_init_msg_list,
264 p_commit,
265 p_validation_level,
266 p_default,
267 p_module_type,
268 x_return_status,
269 x_msg_count,
270 x_msg_data,
271 ddp_x_vwp_deptshift_rec);
272
273 -- copy data back from the local variables to OUT or IN-OUT args, if any
274
275
276
277
278
279
280
281
282
283 p9_a0 := ddp_x_vwp_deptshift_rec.ahl_department_shifts_id;
284 p9_a1 := ddp_x_vwp_deptshift_rec.organization_id;
285 p9_a2 := ddp_x_vwp_deptshift_rec.organization_name;
286 p9_a3 := ddp_x_vwp_deptshift_rec.object_version_number;
287 p9_a4 := ddp_x_vwp_deptshift_rec.last_update_date;
288 p9_a5 := ddp_x_vwp_deptshift_rec.last_updated_by;
289 p9_a6 := ddp_x_vwp_deptshift_rec.creation_date;
290 p9_a7 := ddp_x_vwp_deptshift_rec.created_by;
291 p9_a8 := ddp_x_vwp_deptshift_rec.last_update_login;
292 p9_a9 := ddp_x_vwp_deptshift_rec.department_id;
293 p9_a10 := ddp_x_vwp_deptshift_rec.dept_description;
294 p9_a11 := ddp_x_vwp_deptshift_rec.calendar_code;
295 p9_a12 := ddp_x_vwp_deptshift_rec.calendar_description;
296 p9_a13 := ddp_x_vwp_deptshift_rec.bom_workday_patterns_id;
297 p9_a14 := ddp_x_vwp_deptshift_rec.shift_num;
298 p9_a15 := ddp_x_vwp_deptshift_rec.seq_num;
299 p9_a16 := ddp_x_vwp_deptshift_rec.seq_name;
300 p9_a17 := ddp_x_vwp_deptshift_rec.attribute_category;
301 p9_a18 := ddp_x_vwp_deptshift_rec.attribute1;
302 p9_a19 := ddp_x_vwp_deptshift_rec.attribute2;
303 p9_a20 := ddp_x_vwp_deptshift_rec.attribute3;
304 p9_a21 := ddp_x_vwp_deptshift_rec.attribute4;
305 p9_a22 := ddp_x_vwp_deptshift_rec.attribute5;
306 p9_a23 := ddp_x_vwp_deptshift_rec.attribute6;
307 p9_a24 := ddp_x_vwp_deptshift_rec.attribute7;
308 p9_a25 := ddp_x_vwp_deptshift_rec.attribute8;
309 p9_a26 := ddp_x_vwp_deptshift_rec.attribute9;
310 p9_a27 := ddp_x_vwp_deptshift_rec.attribute10;
311 p9_a28 := ddp_x_vwp_deptshift_rec.attribute11;
312 p9_a29 := ddp_x_vwp_deptshift_rec.attribute12;
313 p9_a30 := ddp_x_vwp_deptshift_rec.attribute13;
314 p9_a31 := ddp_x_vwp_deptshift_rec.attribute14;
315 p9_a32 := ddp_x_vwp_deptshift_rec.attribute15;
316 p9_a33 := ddp_x_vwp_deptshift_rec.dml_operation;
317 end;
318
319 end ahl_vwp_dept_shifts_pub_w;