[Home] [Help]
PACKAGE BODY: APPS.JTF_LOC_AREAS_PVT_W
Source
1 package body jtf_loc_areas_pvt_w as
2 /* $Header: jtfwloab.pls 120.2 2005/08/18 22:55:53 stopiwal ship $ */
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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_loc_area(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
27 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
28 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
29 , x_loc_area_id OUT NOCOPY /* file.sql.39 change */ NUMBER
30 , p7_a0 NUMBER := 0-1962.0724
31 , p7_a1 DATE := fnd_api.g_miss_date
32 , p7_a2 NUMBER := 0-1962.0724
33 , p7_a3 DATE := fnd_api.g_miss_date
34 , p7_a4 NUMBER := 0-1962.0724
35 , p7_a5 NUMBER := 0-1962.0724
36 , p7_a6 NUMBER := 0-1962.0724
37 , p7_a7 NUMBER := 0-1962.0724
38 , p7_a8 NUMBER := 0-1962.0724
39 , p7_a9 NUMBER := 0-1962.0724
40 , p7_a10 DATE := fnd_api.g_miss_date
41 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
42 , p7_a12 DATE := fnd_api.g_miss_date
43 , p7_a13 DATE := fnd_api.g_miss_date
44 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
45 , p7_a15 NUMBER := 0-1962.0724
46 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
47 , p7_a17 NUMBER := 0-1962.0724
48 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
49 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
50 )
51 as
52 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
53 ddindx binary_integer; indx binary_integer;
54 begin
55
56 -- copy data to the local IN or IN-OUT args, if any
57
58
59
60
61
62
63
64 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p7_a0);
65 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
66 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
67 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
68 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p7_a4);
69 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
70 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
71 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p7_a7);
72 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p7_a8);
73 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p7_a9);
74 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a10);
75 ddp_loc_area_rec.location_type_code := p7_a11;
76 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a12);
77 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a13);
78 ddp_loc_area_rec.location_area_code := p7_a14;
79 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p7_a15);
80 ddp_loc_area_rec.orig_system_ref := p7_a16;
81 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p7_a17);
82 ddp_loc_area_rec.location_area_name := p7_a18;
83 ddp_loc_area_rec.location_area_description := p7_a19;
84
85
86 -- here's the delegated call to the old PL/SQL routine
87 jtf_loc_areas_pvt.create_loc_area(p_api_version,
88 p_init_msg_list,
89 p_commit,
90 p_validation_level,
91 x_return_status,
92 x_msg_count,
93 x_msg_data,
94 ddp_loc_area_rec,
95 x_loc_area_id);
96
97 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
98
99
100
101
102
103
104
105
106 end;
107
108 procedure update_loc_area(p_api_version NUMBER
109 , p_init_msg_list VARCHAR2
110 , p_commit VARCHAR2
111 , p_validation_level NUMBER
112 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
113 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
114 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
115 , p_remove_flag VARCHAR2
116 , p7_a0 NUMBER := 0-1962.0724
117 , p7_a1 DATE := fnd_api.g_miss_date
118 , p7_a2 NUMBER := 0-1962.0724
119 , p7_a3 DATE := fnd_api.g_miss_date
120 , p7_a4 NUMBER := 0-1962.0724
121 , p7_a5 NUMBER := 0-1962.0724
122 , p7_a6 NUMBER := 0-1962.0724
123 , p7_a7 NUMBER := 0-1962.0724
124 , p7_a8 NUMBER := 0-1962.0724
125 , p7_a9 NUMBER := 0-1962.0724
126 , p7_a10 DATE := fnd_api.g_miss_date
127 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
128 , p7_a12 DATE := fnd_api.g_miss_date
129 , p7_a13 DATE := fnd_api.g_miss_date
130 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
131 , p7_a15 NUMBER := 0-1962.0724
132 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
133 , p7_a17 NUMBER := 0-1962.0724
134 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
135 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
136 )
137 as
138 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
139 ddindx binary_integer; indx binary_integer;
140 begin
141
142 -- copy data to the local IN or IN-OUT args, if any
143
144
145
146
147
148
149
150 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p7_a0);
151 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
152 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
153 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
154 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p7_a4);
155 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
156 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
157 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p7_a7);
158 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p7_a8);
159 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p7_a9);
160 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a10);
161 ddp_loc_area_rec.location_type_code := p7_a11;
162 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a12);
163 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a13);
164 ddp_loc_area_rec.location_area_code := p7_a14;
165 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p7_a15);
166 ddp_loc_area_rec.orig_system_ref := p7_a16;
167 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p7_a17);
168 ddp_loc_area_rec.location_area_name := p7_a18;
169 ddp_loc_area_rec.location_area_description := p7_a19;
170
171
172 -- here's the delegated call to the old PL/SQL routine
173 jtf_loc_areas_pvt.update_loc_area(p_api_version,
174 p_init_msg_list,
175 p_commit,
176 p_validation_level,
177 x_return_status,
178 x_msg_count,
179 x_msg_data,
180 ddp_loc_area_rec,
181 p_remove_flag);
182
183 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
184
185
186
187
188
189
190
191
192 end;
193
194 procedure validate_loc_area(p_api_version NUMBER
195 , p_init_msg_list VARCHAR2
196 , p_validation_level NUMBER
197 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
198 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
199 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
200 , p6_a0 NUMBER := 0-1962.0724
201 , p6_a1 DATE := fnd_api.g_miss_date
202 , p6_a2 NUMBER := 0-1962.0724
203 , p6_a3 DATE := fnd_api.g_miss_date
204 , p6_a4 NUMBER := 0-1962.0724
205 , p6_a5 NUMBER := 0-1962.0724
206 , p6_a6 NUMBER := 0-1962.0724
207 , p6_a7 NUMBER := 0-1962.0724
208 , p6_a8 NUMBER := 0-1962.0724
209 , p6_a9 NUMBER := 0-1962.0724
210 , p6_a10 DATE := fnd_api.g_miss_date
211 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
212 , p6_a12 DATE := fnd_api.g_miss_date
213 , p6_a13 DATE := fnd_api.g_miss_date
214 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
215 , p6_a15 NUMBER := 0-1962.0724
216 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
217 , p6_a17 NUMBER := 0-1962.0724
218 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
219 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
220 )
221 as
222 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
223 ddindx binary_integer; indx binary_integer;
224 begin
225
226 -- copy data to the local IN or IN-OUT args, if any
227
228
229
230
231
232
233 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p6_a0);
234 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
235 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
236 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
237 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p6_a4);
238 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
239 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
240 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p6_a7);
241 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p6_a8);
242 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p6_a9);
243 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a10);
244 ddp_loc_area_rec.location_type_code := p6_a11;
245 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p6_a12);
246 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p6_a13);
247 ddp_loc_area_rec.location_area_code := p6_a14;
248 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p6_a15);
249 ddp_loc_area_rec.orig_system_ref := p6_a16;
250 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p6_a17);
251 ddp_loc_area_rec.location_area_name := p6_a18;
252 ddp_loc_area_rec.location_area_description := p6_a19;
253
254 -- here's the delegated call to the old PL/SQL routine
255 jtf_loc_areas_pvt.validate_loc_area(p_api_version,
256 p_init_msg_list,
257 p_validation_level,
258 x_return_status,
259 x_msg_count,
260 x_msg_data,
261 ddp_loc_area_rec);
262
263 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
264
265
266
267
268
269
270 end;
271
272 procedure check_items(p_validation_mode VARCHAR2
273 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
274 , p2_a0 NUMBER := 0-1962.0724
275 , p2_a1 DATE := fnd_api.g_miss_date
276 , p2_a2 NUMBER := 0-1962.0724
277 , p2_a3 DATE := fnd_api.g_miss_date
278 , p2_a4 NUMBER := 0-1962.0724
279 , p2_a5 NUMBER := 0-1962.0724
280 , p2_a6 NUMBER := 0-1962.0724
281 , p2_a7 NUMBER := 0-1962.0724
282 , p2_a8 NUMBER := 0-1962.0724
283 , p2_a9 NUMBER := 0-1962.0724
284 , p2_a10 DATE := fnd_api.g_miss_date
285 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
286 , p2_a12 DATE := fnd_api.g_miss_date
287 , p2_a13 DATE := fnd_api.g_miss_date
288 , p2_a14 VARCHAR2 := fnd_api.g_miss_char
289 , p2_a15 NUMBER := 0-1962.0724
290 , p2_a16 VARCHAR2 := fnd_api.g_miss_char
291 , p2_a17 NUMBER := 0-1962.0724
292 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
293 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
294 )
295 as
296 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
297 ddindx binary_integer; indx binary_integer;
298 begin
299
300 -- copy data to the local IN or IN-OUT args, if any
301
302
303 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p2_a0);
304 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a1);
305 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p2_a2);
306 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p2_a3);
307 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p2_a4);
308 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p2_a5);
309 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p2_a6);
310 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p2_a7);
311 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p2_a8);
312 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p2_a9);
313 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p2_a10);
314 ddp_loc_area_rec.location_type_code := p2_a11;
315 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p2_a12);
316 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p2_a13);
317 ddp_loc_area_rec.location_area_code := p2_a14;
318 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p2_a15);
319 ddp_loc_area_rec.orig_system_ref := p2_a16;
320 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p2_a17);
321 ddp_loc_area_rec.location_area_name := p2_a18;
322 ddp_loc_area_rec.location_area_description := p2_a19;
323
324 -- here's the delegated call to the old PL/SQL routine
325 jtf_loc_areas_pvt.check_items(p_validation_mode,
326 x_return_status,
327 ddp_loc_area_rec);
328
329 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
330
331
332 end;
333
334 procedure check_loc_area_req_items(p_validation_mode VARCHAR2
335 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
336 , p1_a0 NUMBER := 0-1962.0724
337 , p1_a1 DATE := fnd_api.g_miss_date
338 , p1_a2 NUMBER := 0-1962.0724
339 , p1_a3 DATE := fnd_api.g_miss_date
340 , p1_a4 NUMBER := 0-1962.0724
341 , p1_a5 NUMBER := 0-1962.0724
342 , p1_a6 NUMBER := 0-1962.0724
343 , p1_a7 NUMBER := 0-1962.0724
344 , p1_a8 NUMBER := 0-1962.0724
345 , p1_a9 NUMBER := 0-1962.0724
346 , p1_a10 DATE := fnd_api.g_miss_date
347 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
348 , p1_a12 DATE := fnd_api.g_miss_date
349 , p1_a13 DATE := fnd_api.g_miss_date
350 , p1_a14 VARCHAR2 := fnd_api.g_miss_char
351 , p1_a15 NUMBER := 0-1962.0724
352 , p1_a16 VARCHAR2 := fnd_api.g_miss_char
353 , p1_a17 NUMBER := 0-1962.0724
354 , p1_a18 VARCHAR2 := fnd_api.g_miss_char
355 , p1_a19 VARCHAR2 := fnd_api.g_miss_char
356 )
357 as
358 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
359 ddindx binary_integer; indx binary_integer;
360 begin
361
362 -- copy data to the local IN or IN-OUT args, if any
363
364 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p1_a0);
365 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
366 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
367 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
368 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p1_a4);
369 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
370 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
371 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p1_a7);
372 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p1_a8);
373 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p1_a9);
374 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p1_a10);
375 ddp_loc_area_rec.location_type_code := p1_a11;
376 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a12);
377 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a13);
378 ddp_loc_area_rec.location_area_code := p1_a14;
379 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p1_a15);
380 ddp_loc_area_rec.orig_system_ref := p1_a16;
381 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p1_a17);
382 ddp_loc_area_rec.location_area_name := p1_a18;
383 ddp_loc_area_rec.location_area_description := p1_a19;
384
385
386 -- here's the delegated call to the old PL/SQL routine
387 jtf_loc_areas_pvt.check_loc_area_req_items(p_validation_mode,
388 ddp_loc_area_rec,
389 x_return_status);
390
391 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
392
393
394 end;
395
396 procedure check_loc_area_uk_items(p_validation_mode VARCHAR2
397 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
398 , p1_a0 NUMBER := 0-1962.0724
399 , p1_a1 DATE := fnd_api.g_miss_date
400 , p1_a2 NUMBER := 0-1962.0724
401 , p1_a3 DATE := fnd_api.g_miss_date
402 , p1_a4 NUMBER := 0-1962.0724
403 , p1_a5 NUMBER := 0-1962.0724
404 , p1_a6 NUMBER := 0-1962.0724
405 , p1_a7 NUMBER := 0-1962.0724
406 , p1_a8 NUMBER := 0-1962.0724
407 , p1_a9 NUMBER := 0-1962.0724
408 , p1_a10 DATE := fnd_api.g_miss_date
409 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
410 , p1_a12 DATE := fnd_api.g_miss_date
411 , p1_a13 DATE := fnd_api.g_miss_date
412 , p1_a14 VARCHAR2 := fnd_api.g_miss_char
413 , p1_a15 NUMBER := 0-1962.0724
414 , p1_a16 VARCHAR2 := fnd_api.g_miss_char
415 , p1_a17 NUMBER := 0-1962.0724
416 , p1_a18 VARCHAR2 := fnd_api.g_miss_char
417 , p1_a19 VARCHAR2 := fnd_api.g_miss_char
418 )
419 as
420 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
421 ddindx binary_integer; indx binary_integer;
422 begin
423
424 -- copy data to the local IN or IN-OUT args, if any
425
426 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p1_a0);
427 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
428 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
429 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
430 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p1_a4);
431 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
432 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
433 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p1_a7);
434 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p1_a8);
435 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p1_a9);
436 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p1_a10);
437 ddp_loc_area_rec.location_type_code := p1_a11;
438 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a12);
439 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a13);
440 ddp_loc_area_rec.location_area_code := p1_a14;
441 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p1_a15);
442 ddp_loc_area_rec.orig_system_ref := p1_a16;
443 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p1_a17);
444 ddp_loc_area_rec.location_area_name := p1_a18;
445 ddp_loc_area_rec.location_area_description := p1_a19;
446
447
448 -- here's the delegated call to the old PL/SQL routine
449 jtf_loc_areas_pvt.check_loc_area_uk_items(p_validation_mode,
450 ddp_loc_area_rec,
451 x_return_status);
452
453 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
454
455
456 end;
457
458 procedure check_loc_area_fk_items(x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
459 , p0_a0 NUMBER := 0-1962.0724
460 , p0_a1 DATE := fnd_api.g_miss_date
461 , p0_a2 NUMBER := 0-1962.0724
462 , p0_a3 DATE := fnd_api.g_miss_date
463 , p0_a4 NUMBER := 0-1962.0724
464 , p0_a5 NUMBER := 0-1962.0724
465 , p0_a6 NUMBER := 0-1962.0724
466 , p0_a7 NUMBER := 0-1962.0724
467 , p0_a8 NUMBER := 0-1962.0724
468 , p0_a9 NUMBER := 0-1962.0724
469 , p0_a10 DATE := fnd_api.g_miss_date
470 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
471 , p0_a12 DATE := fnd_api.g_miss_date
472 , p0_a13 DATE := fnd_api.g_miss_date
473 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
474 , p0_a15 NUMBER := 0-1962.0724
475 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
476 , p0_a17 NUMBER := 0-1962.0724
477 , p0_a18 VARCHAR2 := fnd_api.g_miss_char
478 , p0_a19 VARCHAR2 := fnd_api.g_miss_char
479 )
480 as
481 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
482 ddindx binary_integer; indx binary_integer;
483 begin
484
485 -- copy data to the local IN or IN-OUT args, if any
486 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p0_a0);
487 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
488 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
489 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
490 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p0_a4);
491 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
492 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
493 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p0_a7);
494 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p0_a8);
495 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p0_a9);
496 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a10);
497 ddp_loc_area_rec.location_type_code := p0_a11;
498 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a12);
499 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a13);
500 ddp_loc_area_rec.location_area_code := p0_a14;
501 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p0_a15);
502 ddp_loc_area_rec.orig_system_ref := p0_a16;
503 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p0_a17);
504 ddp_loc_area_rec.location_area_name := p0_a18;
505 ddp_loc_area_rec.location_area_description := p0_a19;
506
507
508 -- here's the delegated call to the old PL/SQL routine
509 jtf_loc_areas_pvt.check_loc_area_fk_items(ddp_loc_area_rec,
510 x_return_status);
511
512 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
513
514 end;
515
516 procedure check_record(x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
517 , p0_a0 NUMBER := 0-1962.0724
518 , p0_a1 DATE := fnd_api.g_miss_date
519 , p0_a2 NUMBER := 0-1962.0724
520 , p0_a3 DATE := fnd_api.g_miss_date
521 , p0_a4 NUMBER := 0-1962.0724
522 , p0_a5 NUMBER := 0-1962.0724
523 , p0_a6 NUMBER := 0-1962.0724
524 , p0_a7 NUMBER := 0-1962.0724
525 , p0_a8 NUMBER := 0-1962.0724
526 , p0_a9 NUMBER := 0-1962.0724
527 , p0_a10 DATE := fnd_api.g_miss_date
528 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
529 , p0_a12 DATE := fnd_api.g_miss_date
530 , p0_a13 DATE := fnd_api.g_miss_date
531 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
532 , p0_a15 NUMBER := 0-1962.0724
533 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
534 , p0_a17 NUMBER := 0-1962.0724
535 , p0_a18 VARCHAR2 := fnd_api.g_miss_char
536 , p0_a19 VARCHAR2 := fnd_api.g_miss_char
537 , p1_a0 NUMBER := 0-1962.0724
538 , p1_a1 DATE := fnd_api.g_miss_date
539 , p1_a2 NUMBER := 0-1962.0724
540 , p1_a3 DATE := fnd_api.g_miss_date
541 , p1_a4 NUMBER := 0-1962.0724
542 , p1_a5 NUMBER := 0-1962.0724
543 , p1_a6 NUMBER := 0-1962.0724
544 , p1_a7 NUMBER := 0-1962.0724
545 , p1_a8 NUMBER := 0-1962.0724
546 , p1_a9 NUMBER := 0-1962.0724
547 , p1_a10 DATE := fnd_api.g_miss_date
548 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
549 , p1_a12 DATE := fnd_api.g_miss_date
550 , p1_a13 DATE := fnd_api.g_miss_date
551 , p1_a14 VARCHAR2 := fnd_api.g_miss_char
552 , p1_a15 NUMBER := 0-1962.0724
553 , p1_a16 VARCHAR2 := fnd_api.g_miss_char
554 , p1_a17 NUMBER := 0-1962.0724
555 , p1_a18 VARCHAR2 := fnd_api.g_miss_char
556 , p1_a19 VARCHAR2 := fnd_api.g_miss_char
557 )
558 as
559 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
560 ddp_complete_rec jtf_loc_areas_pvt.loc_area_rec_type;
561 ddindx binary_integer; indx binary_integer;
562 begin
563
564 -- copy data to the local IN or IN-OUT args, if any
565 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p0_a0);
566 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
567 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
568 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
569 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p0_a4);
570 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
571 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
572 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p0_a7);
573 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p0_a8);
574 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p0_a9);
575 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a10);
576 ddp_loc_area_rec.location_type_code := p0_a11;
577 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a12);
578 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a13);
579 ddp_loc_area_rec.location_area_code := p0_a14;
580 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p0_a15);
581 ddp_loc_area_rec.orig_system_ref := p0_a16;
582 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p0_a17);
583 ddp_loc_area_rec.location_area_name := p0_a18;
584 ddp_loc_area_rec.location_area_description := p0_a19;
585
586 ddp_complete_rec.location_area_id := rosetta_g_miss_num_map(p1_a0);
587 ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
588 ddp_complete_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
589 ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
590 ddp_complete_rec.created_by := rosetta_g_miss_num_map(p1_a4);
591 ddp_complete_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
592 ddp_complete_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
593 ddp_complete_rec.request_id := rosetta_g_miss_num_map(p1_a7);
594 ddp_complete_rec.program_application_id := rosetta_g_miss_num_map(p1_a8);
595 ddp_complete_rec.program_id := rosetta_g_miss_num_map(p1_a9);
596 ddp_complete_rec.program_update_date := rosetta_g_miss_date_in_map(p1_a10);
597 ddp_complete_rec.location_type_code := p1_a11;
598 ddp_complete_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a12);
599 ddp_complete_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a13);
600 ddp_complete_rec.location_area_code := p1_a14;
601 ddp_complete_rec.orig_system_id := rosetta_g_miss_num_map(p1_a15);
602 ddp_complete_rec.orig_system_ref := p1_a16;
603 ddp_complete_rec.parent_location_area_id := rosetta_g_miss_num_map(p1_a17);
604 ddp_complete_rec.location_area_name := p1_a18;
605 ddp_complete_rec.location_area_description := p1_a19;
606
607
608 -- here's the delegated call to the old PL/SQL routine
609 jtf_loc_areas_pvt.check_record(ddp_loc_area_rec,
610 ddp_complete_rec,
611 x_return_status);
612
613 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
614
615
616 end;
617
618 procedure complete_loc_area_rec(p1_a0 OUT NOCOPY /* file.sql.39 change */ NUMBER
619 , p1_a1 OUT NOCOPY /* file.sql.39 change */ DATE
620 , p1_a2 OUT NOCOPY /* file.sql.39 change */ NUMBER
621 , p1_a3 OUT NOCOPY /* file.sql.39 change */ DATE
622 , p1_a4 OUT NOCOPY /* file.sql.39 change */ NUMBER
623 , p1_a5 OUT NOCOPY /* file.sql.39 change */ NUMBER
624 , p1_a6 OUT NOCOPY /* file.sql.39 change */ NUMBER
625 , p1_a7 OUT NOCOPY /* file.sql.39 change */ NUMBER
626 , p1_a8 OUT NOCOPY /* file.sql.39 change */ NUMBER
627 , p1_a9 OUT NOCOPY /* file.sql.39 change */ NUMBER
628 , p1_a10 OUT NOCOPY /* file.sql.39 change */ DATE
629 , p1_a11 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
630 , p1_a12 OUT NOCOPY /* file.sql.39 change */ DATE
631 , p1_a13 OUT NOCOPY /* file.sql.39 change */ DATE
632 , p1_a14 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
633 , p1_a15 OUT NOCOPY /* file.sql.39 change */ NUMBER
634 , p1_a16 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
635 , p1_a17 OUT NOCOPY /* file.sql.39 change */ NUMBER
636 , p1_a18 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
637 , p1_a19 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
638 , p0_a0 NUMBER := 0-1962.0724
639 , p0_a1 DATE := fnd_api.g_miss_date
640 , p0_a2 NUMBER := 0-1962.0724
641 , p0_a3 DATE := fnd_api.g_miss_date
642 , p0_a4 NUMBER := 0-1962.0724
643 , p0_a5 NUMBER := 0-1962.0724
644 , p0_a6 NUMBER := 0-1962.0724
645 , p0_a7 NUMBER := 0-1962.0724
646 , p0_a8 NUMBER := 0-1962.0724
647 , p0_a9 NUMBER := 0-1962.0724
648 , p0_a10 DATE := fnd_api.g_miss_date
649 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
650 , p0_a12 DATE := fnd_api.g_miss_date
651 , p0_a13 DATE := fnd_api.g_miss_date
652 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
653 , p0_a15 NUMBER := 0-1962.0724
654 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
655 , p0_a17 NUMBER := 0-1962.0724
656 , p0_a18 VARCHAR2 := fnd_api.g_miss_char
657 , p0_a19 VARCHAR2 := fnd_api.g_miss_char
658 )
659 as
660 ddp_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
661 ddx_complete_rec jtf_loc_areas_pvt.loc_area_rec_type;
662 ddindx binary_integer; indx binary_integer;
663 begin
664
665 -- copy data to the local IN or IN-OUT args, if any
666 ddp_loc_area_rec.location_area_id := rosetta_g_miss_num_map(p0_a0);
667 ddp_loc_area_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
668 ddp_loc_area_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
669 ddp_loc_area_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
670 ddp_loc_area_rec.created_by := rosetta_g_miss_num_map(p0_a4);
671 ddp_loc_area_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
672 ddp_loc_area_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
673 ddp_loc_area_rec.request_id := rosetta_g_miss_num_map(p0_a7);
674 ddp_loc_area_rec.program_application_id := rosetta_g_miss_num_map(p0_a8);
675 ddp_loc_area_rec.program_id := rosetta_g_miss_num_map(p0_a9);
676 ddp_loc_area_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a10);
677 ddp_loc_area_rec.location_type_code := p0_a11;
678 ddp_loc_area_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a12);
679 ddp_loc_area_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a13);
680 ddp_loc_area_rec.location_area_code := p0_a14;
681 ddp_loc_area_rec.orig_system_id := rosetta_g_miss_num_map(p0_a15);
682 ddp_loc_area_rec.orig_system_ref := p0_a16;
683 ddp_loc_area_rec.parent_location_area_id := rosetta_g_miss_num_map(p0_a17);
684 ddp_loc_area_rec.location_area_name := p0_a18;
685 ddp_loc_area_rec.location_area_description := p0_a19;
686
687
688 -- here's the delegated call to the old PL/SQL routine
689 jtf_loc_areas_pvt.complete_loc_area_rec(ddp_loc_area_rec,
690 ddx_complete_rec);
691
692 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
693
694 p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.location_area_id);
695 p1_a1 := ddx_complete_rec.last_update_date;
696 p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
697 p1_a3 := ddx_complete_rec.creation_date;
698 p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
699 p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
700 p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
701 p1_a7 := rosetta_g_miss_num_map(ddx_complete_rec.request_id);
702 p1_a8 := rosetta_g_miss_num_map(ddx_complete_rec.program_application_id);
703 p1_a9 := rosetta_g_miss_num_map(ddx_complete_rec.program_id);
704 p1_a10 := ddx_complete_rec.program_update_date;
705 p1_a11 := ddx_complete_rec.location_type_code;
706 p1_a12 := ddx_complete_rec.start_date_active;
707 p1_a13 := ddx_complete_rec.end_date_active;
708 p1_a14 := ddx_complete_rec.location_area_code;
709 p1_a15 := rosetta_g_miss_num_map(ddx_complete_rec.orig_system_id);
710 p1_a16 := ddx_complete_rec.orig_system_ref;
711 p1_a17 := rosetta_g_miss_num_map(ddx_complete_rec.parent_location_area_id);
712 p1_a18 := ddx_complete_rec.location_area_name;
713 p1_a19 := ddx_complete_rec.location_area_description;
714 end;
715
716 procedure init_rec(p0_a0 OUT NOCOPY /* file.sql.39 change */ NUMBER
717 , p0_a1 OUT NOCOPY /* file.sql.39 change */ DATE
718 , p0_a2 OUT NOCOPY /* file.sql.39 change */ NUMBER
719 , p0_a3 OUT NOCOPY /* file.sql.39 change */ DATE
720 , p0_a4 OUT NOCOPY /* file.sql.39 change */ NUMBER
721 , p0_a5 OUT NOCOPY /* file.sql.39 change */ NUMBER
722 , p0_a6 OUT NOCOPY /* file.sql.39 change */ NUMBER
723 , p0_a7 OUT NOCOPY /* file.sql.39 change */ NUMBER
724 , p0_a8 OUT NOCOPY /* file.sql.39 change */ NUMBER
725 , p0_a9 OUT NOCOPY /* file.sql.39 change */ NUMBER
726 , p0_a10 OUT NOCOPY /* file.sql.39 change */ DATE
727 , p0_a11 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
728 , p0_a12 OUT NOCOPY /* file.sql.39 change */ DATE
729 , p0_a13 OUT NOCOPY /* file.sql.39 change */ DATE
730 , p0_a14 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
731 , p0_a15 OUT NOCOPY /* file.sql.39 change */ NUMBER
732 , p0_a16 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
733 , p0_a17 OUT NOCOPY /* file.sql.39 change */ NUMBER
734 , p0_a18 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
735 , p0_a19 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
736 )
737 as
738 ddx_loc_area_rec jtf_loc_areas_pvt.loc_area_rec_type;
739 ddindx binary_integer; indx binary_integer;
740 begin
741
742 -- copy data to the local IN or IN-OUT args, if any
743
744 -- here's the delegated call to the old PL/SQL routine
745 jtf_loc_areas_pvt.init_rec(ddx_loc_area_rec);
746
747 -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
748 p0_a0 := rosetta_g_miss_num_map(ddx_loc_area_rec.location_area_id);
749 p0_a1 := ddx_loc_area_rec.last_update_date;
750 p0_a2 := rosetta_g_miss_num_map(ddx_loc_area_rec.last_updated_by);
751 p0_a3 := ddx_loc_area_rec.creation_date;
752 p0_a4 := rosetta_g_miss_num_map(ddx_loc_area_rec.created_by);
753 p0_a5 := rosetta_g_miss_num_map(ddx_loc_area_rec.last_update_login);
754 p0_a6 := rosetta_g_miss_num_map(ddx_loc_area_rec.object_version_number);
755 p0_a7 := rosetta_g_miss_num_map(ddx_loc_area_rec.request_id);
756 p0_a8 := rosetta_g_miss_num_map(ddx_loc_area_rec.program_application_id);
757 p0_a9 := rosetta_g_miss_num_map(ddx_loc_area_rec.program_id);
758 p0_a10 := ddx_loc_area_rec.program_update_date;
759 p0_a11 := ddx_loc_area_rec.location_type_code;
760 p0_a12 := ddx_loc_area_rec.start_date_active;
761 p0_a13 := ddx_loc_area_rec.end_date_active;
762 p0_a14 := ddx_loc_area_rec.location_area_code;
763 p0_a15 := rosetta_g_miss_num_map(ddx_loc_area_rec.orig_system_id);
764 p0_a16 := ddx_loc_area_rec.orig_system_ref;
765 p0_a17 := rosetta_g_miss_num_map(ddx_loc_area_rec.parent_location_area_id);
766 p0_a18 := ddx_loc_area_rec.location_area_name;
767 p0_a19 := ddx_loc_area_rec.location_area_description;
768 end;
769
770 end jtf_loc_areas_pvt_w;