[Home] [Help]
PACKAGE BODY: APPS.AHL_LTP_SPACE_ASSIGN_PUB_W
Source
1 package body ahl_ltp_space_assign_pub_w as
2 /* $Header: AHLWSANB.pls 120.2 2006/05/04 07:49 anraj 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p2(t out nocopy ahl_ltp_space_assign_pub.space_assignment_tbl, a0 JTF_NUMBER_TABLE
17 , a1 JTF_DATE_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_DATE_TABLE
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_VARCHAR2_TABLE_100
28 , a12 JTF_VARCHAR2_TABLE_200
29 , a13 JTF_VARCHAR2_TABLE_200
30 , a14 JTF_VARCHAR2_TABLE_200
31 , a15 JTF_VARCHAR2_TABLE_200
32 , a16 JTF_VARCHAR2_TABLE_200
33 , a17 JTF_VARCHAR2_TABLE_200
34 , a18 JTF_VARCHAR2_TABLE_200
35 , a19 JTF_VARCHAR2_TABLE_200
36 , a20 JTF_VARCHAR2_TABLE_200
37 , a21 JTF_VARCHAR2_TABLE_200
38 , a22 JTF_VARCHAR2_TABLE_200
39 , a23 JTF_VARCHAR2_TABLE_200
40 , a24 JTF_VARCHAR2_TABLE_200
41 , a25 JTF_VARCHAR2_TABLE_200
42 , a26 JTF_VARCHAR2_TABLE_200
43 , a27 JTF_VARCHAR2_TABLE_100
44 ) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count > 0 then
48 if a0.count > 0 then
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx).space_assignment_id := a0(indx);
53 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
54 t(ddindx).last_updated_by := a2(indx);
55 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
56 t(ddindx).created_by := a4(indx);
57 t(ddindx).last_update_login := a5(indx);
58 t(ddindx).visit_id := a6(indx);
59 t(ddindx).visit_number := a7(indx);
60 t(ddindx).space_name := a8(indx);
61 t(ddindx).space_id := a9(indx);
62 t(ddindx).object_version_number := a10(indx);
63 t(ddindx).attribute_category := a11(indx);
64 t(ddindx).attribute1 := a12(indx);
65 t(ddindx).attribute2 := a13(indx);
66 t(ddindx).attribute3 := a14(indx);
67 t(ddindx).attribute4 := a15(indx);
68 t(ddindx).attribute5 := a16(indx);
69 t(ddindx).attribute6 := a17(indx);
70 t(ddindx).attribute7 := a18(indx);
71 t(ddindx).attribute8 := a19(indx);
72 t(ddindx).attribute9 := a20(indx);
73 t(ddindx).attribute10 := a21(indx);
74 t(ddindx).attribute11 := a22(indx);
75 t(ddindx).attribute12 := a23(indx);
76 t(ddindx).attribute13 := a24(indx);
77 t(ddindx).attribute14 := a25(indx);
78 t(ddindx).attribute15 := a26(indx);
79 t(ddindx).operation_flag := a27(indx);
80 ddindx := ddindx+1;
81 if a0.last =indx
82 then exit;
83 end if;
84 indx := a0.next(indx);
85 end loop;
86 end if;
87 end if;
88 end rosetta_table_copy_in_p2;
89 procedure rosetta_table_copy_out_p2(t ahl_ltp_space_assign_pub.space_assignment_tbl, a0 out nocopy JTF_NUMBER_TABLE
90 , a1 out nocopy JTF_DATE_TABLE
91 , a2 out nocopy JTF_NUMBER_TABLE
92 , a3 out nocopy JTF_DATE_TABLE
93 , a4 out nocopy JTF_NUMBER_TABLE
94 , a5 out nocopy JTF_NUMBER_TABLE
95 , a6 out nocopy JTF_NUMBER_TABLE
96 , a7 out nocopy JTF_NUMBER_TABLE
97 , a8 out nocopy JTF_VARCHAR2_TABLE_100
98 , a9 out nocopy JTF_NUMBER_TABLE
99 , a10 out nocopy JTF_NUMBER_TABLE
100 , a11 out nocopy JTF_VARCHAR2_TABLE_100
101 , a12 out nocopy JTF_VARCHAR2_TABLE_200
102 , a13 out nocopy JTF_VARCHAR2_TABLE_200
103 , a14 out nocopy JTF_VARCHAR2_TABLE_200
104 , a15 out nocopy JTF_VARCHAR2_TABLE_200
105 , a16 out nocopy JTF_VARCHAR2_TABLE_200
106 , a17 out nocopy JTF_VARCHAR2_TABLE_200
107 , a18 out nocopy JTF_VARCHAR2_TABLE_200
108 , a19 out nocopy JTF_VARCHAR2_TABLE_200
109 , a20 out nocopy JTF_VARCHAR2_TABLE_200
110 , a21 out nocopy JTF_VARCHAR2_TABLE_200
111 , a22 out nocopy JTF_VARCHAR2_TABLE_200
112 , a23 out nocopy JTF_VARCHAR2_TABLE_200
113 , a24 out nocopy JTF_VARCHAR2_TABLE_200
114 , a25 out nocopy JTF_VARCHAR2_TABLE_200
115 , a26 out nocopy JTF_VARCHAR2_TABLE_200
116 , a27 out nocopy JTF_VARCHAR2_TABLE_100
117 ) as
118 ddindx binary_integer; indx binary_integer;
119 begin
120 if t is null or t.count = 0 then
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_DATE_TABLE();
123 a2 := JTF_NUMBER_TABLE();
124 a3 := JTF_DATE_TABLE();
125 a4 := JTF_NUMBER_TABLE();
126 a5 := JTF_NUMBER_TABLE();
127 a6 := JTF_NUMBER_TABLE();
128 a7 := JTF_NUMBER_TABLE();
129 a8 := JTF_VARCHAR2_TABLE_100();
130 a9 := JTF_NUMBER_TABLE();
131 a10 := JTF_NUMBER_TABLE();
132 a11 := JTF_VARCHAR2_TABLE_100();
133 a12 := JTF_VARCHAR2_TABLE_200();
134 a13 := JTF_VARCHAR2_TABLE_200();
135 a14 := JTF_VARCHAR2_TABLE_200();
136 a15 := JTF_VARCHAR2_TABLE_200();
137 a16 := JTF_VARCHAR2_TABLE_200();
138 a17 := JTF_VARCHAR2_TABLE_200();
139 a18 := JTF_VARCHAR2_TABLE_200();
140 a19 := JTF_VARCHAR2_TABLE_200();
141 a20 := JTF_VARCHAR2_TABLE_200();
142 a21 := JTF_VARCHAR2_TABLE_200();
143 a22 := JTF_VARCHAR2_TABLE_200();
144 a23 := JTF_VARCHAR2_TABLE_200();
145 a24 := JTF_VARCHAR2_TABLE_200();
146 a25 := JTF_VARCHAR2_TABLE_200();
147 a26 := JTF_VARCHAR2_TABLE_200();
148 a27 := JTF_VARCHAR2_TABLE_100();
149 else
150 a0 := JTF_NUMBER_TABLE();
151 a1 := JTF_DATE_TABLE();
152 a2 := JTF_NUMBER_TABLE();
153 a3 := JTF_DATE_TABLE();
154 a4 := JTF_NUMBER_TABLE();
155 a5 := JTF_NUMBER_TABLE();
156 a6 := JTF_NUMBER_TABLE();
157 a7 := JTF_NUMBER_TABLE();
158 a8 := JTF_VARCHAR2_TABLE_100();
159 a9 := JTF_NUMBER_TABLE();
160 a10 := JTF_NUMBER_TABLE();
161 a11 := JTF_VARCHAR2_TABLE_100();
162 a12 := JTF_VARCHAR2_TABLE_200();
163 a13 := JTF_VARCHAR2_TABLE_200();
164 a14 := JTF_VARCHAR2_TABLE_200();
165 a15 := JTF_VARCHAR2_TABLE_200();
166 a16 := JTF_VARCHAR2_TABLE_200();
167 a17 := JTF_VARCHAR2_TABLE_200();
168 a18 := JTF_VARCHAR2_TABLE_200();
169 a19 := JTF_VARCHAR2_TABLE_200();
170 a20 := JTF_VARCHAR2_TABLE_200();
171 a21 := JTF_VARCHAR2_TABLE_200();
172 a22 := JTF_VARCHAR2_TABLE_200();
173 a23 := JTF_VARCHAR2_TABLE_200();
174 a24 := JTF_VARCHAR2_TABLE_200();
175 a25 := JTF_VARCHAR2_TABLE_200();
176 a26 := JTF_VARCHAR2_TABLE_200();
177 a27 := JTF_VARCHAR2_TABLE_100();
178 if t.count > 0 then
179 a0.extend(t.count);
180 a1.extend(t.count);
181 a2.extend(t.count);
182 a3.extend(t.count);
183 a4.extend(t.count);
184 a5.extend(t.count);
185 a6.extend(t.count);
186 a7.extend(t.count);
187 a8.extend(t.count);
188 a9.extend(t.count);
189 a10.extend(t.count);
190 a11.extend(t.count);
191 a12.extend(t.count);
192 a13.extend(t.count);
193 a14.extend(t.count);
194 a15.extend(t.count);
195 a16.extend(t.count);
196 a17.extend(t.count);
197 a18.extend(t.count);
198 a19.extend(t.count);
199 a20.extend(t.count);
200 a21.extend(t.count);
201 a22.extend(t.count);
202 a23.extend(t.count);
203 a24.extend(t.count);
204 a25.extend(t.count);
205 a26.extend(t.count);
206 a27.extend(t.count);
207 ddindx := t.first;
208 indx := 1;
209 while true loop
210 a0(indx) := t(ddindx).space_assignment_id;
211 a1(indx) := t(ddindx).last_update_date;
212 a2(indx) := t(ddindx).last_updated_by;
213 a3(indx) := t(ddindx).creation_date;
214 a4(indx) := t(ddindx).created_by;
215 a5(indx) := t(ddindx).last_update_login;
216 a6(indx) := t(ddindx).visit_id;
217 a7(indx) := t(ddindx).visit_number;
218 a8(indx) := t(ddindx).space_name;
219 a9(indx) := t(ddindx).space_id;
220 a10(indx) := t(ddindx).object_version_number;
221 a11(indx) := t(ddindx).attribute_category;
222 a12(indx) := t(ddindx).attribute1;
223 a13(indx) := t(ddindx).attribute2;
224 a14(indx) := t(ddindx).attribute3;
225 a15(indx) := t(ddindx).attribute4;
226 a16(indx) := t(ddindx).attribute5;
227 a17(indx) := t(ddindx).attribute6;
228 a18(indx) := t(ddindx).attribute7;
229 a19(indx) := t(ddindx).attribute8;
230 a20(indx) := t(ddindx).attribute9;
231 a21(indx) := t(ddindx).attribute10;
232 a22(indx) := t(ddindx).attribute11;
233 a23(indx) := t(ddindx).attribute12;
234 a24(indx) := t(ddindx).attribute13;
235 a25(indx) := t(ddindx).attribute14;
236 a26(indx) := t(ddindx).attribute15;
237 a27(indx) := t(ddindx).operation_flag;
238 indx := indx+1;
239 if t.last =ddindx
240 then exit;
241 end if;
242 ddindx := t.next(ddindx);
243 end loop;
244 end if;
245 end if;
246 end rosetta_table_copy_out_p2;
247
248 procedure assign_sch_visit_spaces(p_api_version NUMBER
249 , p_init_msg_list VARCHAR2
250 , p_commit VARCHAR2
251 , p_validation_level NUMBER
252 , p_module_type VARCHAR2
253 , p5_a0 in out nocopy JTF_NUMBER_TABLE
254 , p5_a1 in out nocopy JTF_DATE_TABLE
255 , p5_a2 in out nocopy JTF_NUMBER_TABLE
256 , p5_a3 in out nocopy JTF_DATE_TABLE
257 , p5_a4 in out nocopy JTF_NUMBER_TABLE
258 , p5_a5 in out nocopy JTF_NUMBER_TABLE
259 , p5_a6 in out nocopy JTF_NUMBER_TABLE
260 , p5_a7 in out nocopy JTF_NUMBER_TABLE
261 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_100
262 , p5_a9 in out nocopy JTF_NUMBER_TABLE
263 , p5_a10 in out nocopy JTF_NUMBER_TABLE
264 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_100
265 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_200
266 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_200
267 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_200
268 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_200
269 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_200
270 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_200
271 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_200
272 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
273 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_200
274 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
275 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
276 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
277 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
278 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
279 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
280 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
281 , p6_a0 in out nocopy NUMBER
282 , p6_a1 in out nocopy NUMBER
283 , p6_a2 in out nocopy DATE
284 , p6_a3 in out nocopy NUMBER
285 , p6_a4 in out nocopy DATE
286 , p6_a5 in out nocopy NUMBER
287 , p6_a6 in out nocopy NUMBER
288 , p6_a7 in out nocopy NUMBER
289 , p6_a8 in out nocopy VARCHAR2
290 , p6_a9 in out nocopy NUMBER
291 , p6_a10 in out nocopy VARCHAR2
292 , p6_a11 in out nocopy DATE
293 , p6_a12 in out nocopy NUMBER
294 , p6_a13 in out nocopy DATE
295 , p6_a14 in out nocopy NUMBER
296 , p6_a15 in out nocopy VARCHAR2
297 , p6_a16 in out nocopy VARCHAR2
298 , p6_a17 in out nocopy VARCHAR2
299 , p6_a18 in out nocopy VARCHAR2
300 , p6_a19 in out nocopy VARCHAR2
301 , p6_a20 in out nocopy NUMBER
302 , p6_a21 in out nocopy VARCHAR2
303 , p6_a22 in out nocopy VARCHAR2
304 , p6_a23 in out nocopy VARCHAR2
305 , p6_a24 in out nocopy VARCHAR2
306 , p6_a25 in out nocopy VARCHAR2
307 , p6_a26 in out nocopy VARCHAR2
308 , p6_a27 in out nocopy VARCHAR2
309 , p6_a28 in out nocopy VARCHAR2
310 , p6_a29 in out nocopy VARCHAR2
311 , p6_a30 in out nocopy VARCHAR2
312 , p6_a31 in out nocopy VARCHAR2
313 , p6_a32 in out nocopy VARCHAR2
314 , p6_a33 in out nocopy VARCHAR2
315 , p6_a34 in out nocopy VARCHAR2
316 , p6_a35 in out nocopy VARCHAR2
317 , p6_a36 in out nocopy VARCHAR2
318 , p6_a37 in out nocopy VARCHAR2
319 , x_return_status out nocopy VARCHAR2
320 , x_msg_count out nocopy NUMBER
321 , x_msg_data out nocopy VARCHAR2
322 )
323
324 as
325 ddp_x_space_assignment_tbl ahl_ltp_space_assign_pub.space_assignment_tbl;
326 ddp_x_schedule_visit_rec ahl_ltp_space_assign_pub.schedule_visit_rec;
327 ddindx binary_integer; indx binary_integer;
328 begin
329
330 -- copy data to the local IN or IN-OUT args, if any
331
332
333
334
335
336 ahl_ltp_space_assign_pub_w.rosetta_table_copy_in_p2(ddp_x_space_assignment_tbl, p5_a0
337 , p5_a1
338 , p5_a2
339 , p5_a3
340 , p5_a4
341 , p5_a5
342 , p5_a6
343 , p5_a7
344 , p5_a8
345 , p5_a9
346 , p5_a10
347 , p5_a11
348 , p5_a12
349 , p5_a13
350 , p5_a14
351 , p5_a15
352 , p5_a16
353 , p5_a17
354 , p5_a18
355 , p5_a19
356 , p5_a20
357 , p5_a21
358 , p5_a22
359 , p5_a23
360 , p5_a24
361 , p5_a25
362 , p5_a26
363 , p5_a27
364 );
365
366 ddp_x_schedule_visit_rec.visit_id := p6_a0;
367 ddp_x_schedule_visit_rec.visit_number := p6_a1;
368 ddp_x_schedule_visit_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a2);
369 ddp_x_schedule_visit_rec.last_updated_by := p6_a3;
370 ddp_x_schedule_visit_rec.creation_date := rosetta_g_miss_date_in_map(p6_a4);
371 ddp_x_schedule_visit_rec.created_by := p6_a5;
372 ddp_x_schedule_visit_rec.last_update_login := p6_a6;
373 ddp_x_schedule_visit_rec.org_id := p6_a7;
374 ddp_x_schedule_visit_rec.org_name := p6_a8;
375 ddp_x_schedule_visit_rec.dept_id := p6_a9;
376 ddp_x_schedule_visit_rec.dept_name := p6_a10;
377 ddp_x_schedule_visit_rec.start_date := rosetta_g_miss_date_in_map(p6_a11);
378 ddp_x_schedule_visit_rec.start_hour := p6_a12;
379 ddp_x_schedule_visit_rec.planned_end_date := rosetta_g_miss_date_in_map(p6_a13);
380 ddp_x_schedule_visit_rec.planned_end_hour := p6_a14;
381 ddp_x_schedule_visit_rec.visit_type_code := p6_a15;
382 ddp_x_schedule_visit_rec.visit_type_mean := p6_a16;
383 ddp_x_schedule_visit_rec.space_category_code := p6_a17;
384 ddp_x_schedule_visit_rec.space_category_mean := p6_a18;
385 ddp_x_schedule_visit_rec.schedule_designator := p6_a19;
386 ddp_x_schedule_visit_rec.object_version_number := p6_a20;
387 ddp_x_schedule_visit_rec.attribute_category := p6_a21;
388 ddp_x_schedule_visit_rec.attribute1 := p6_a22;
389 ddp_x_schedule_visit_rec.attribute2 := p6_a23;
390 ddp_x_schedule_visit_rec.attribute3 := p6_a24;
391 ddp_x_schedule_visit_rec.attribute4 := p6_a25;
395 ddp_x_schedule_visit_rec.attribute8 := p6_a29;
392 ddp_x_schedule_visit_rec.attribute5 := p6_a26;
393 ddp_x_schedule_visit_rec.attribute6 := p6_a27;
394 ddp_x_schedule_visit_rec.attribute7 := p6_a28;
396 ddp_x_schedule_visit_rec.attribute9 := p6_a30;
397 ddp_x_schedule_visit_rec.attribute10 := p6_a31;
398 ddp_x_schedule_visit_rec.attribute11 := p6_a32;
399 ddp_x_schedule_visit_rec.attribute12 := p6_a33;
400 ddp_x_schedule_visit_rec.attribute13 := p6_a34;
401 ddp_x_schedule_visit_rec.attribute14 := p6_a35;
402 ddp_x_schedule_visit_rec.attribute15 := p6_a36;
403 ddp_x_schedule_visit_rec.schedule_flag := p6_a37;
404
405
406
407
408 -- here's the delegated call to the old PL/SQL routine
409 ahl_ltp_space_assign_pub.assign_sch_visit_spaces(p_api_version,
410 p_init_msg_list,
411 p_commit,
412 p_validation_level,
413 p_module_type,
414 ddp_x_space_assignment_tbl,
415 ddp_x_schedule_visit_rec,
416 x_return_status,
417 x_msg_count,
418 x_msg_data);
419
420 -- copy data back from the local variables to OUT or IN-OUT args, if any
421
422
423
424
425
426 ahl_ltp_space_assign_pub_w.rosetta_table_copy_out_p2(ddp_x_space_assignment_tbl, p5_a0
427 , p5_a1
428 , p5_a2
429 , p5_a3
430 , p5_a4
431 , p5_a5
432 , p5_a6
433 , p5_a7
434 , p5_a8
435 , p5_a9
436 , p5_a10
437 , p5_a11
438 , p5_a12
439 , p5_a13
440 , p5_a14
441 , p5_a15
442 , p5_a16
443 , p5_a17
444 , p5_a18
445 , p5_a19
446 , p5_a20
447 , p5_a21
448 , p5_a22
449 , p5_a23
450 , p5_a24
451 , p5_a25
452 , p5_a26
453 , p5_a27
454 );
455
456 p6_a0 := ddp_x_schedule_visit_rec.visit_id;
457 p6_a1 := ddp_x_schedule_visit_rec.visit_number;
458 p6_a2 := ddp_x_schedule_visit_rec.last_update_date;
459 p6_a3 := ddp_x_schedule_visit_rec.last_updated_by;
460 p6_a4 := ddp_x_schedule_visit_rec.creation_date;
461 p6_a5 := ddp_x_schedule_visit_rec.created_by;
462 p6_a6 := ddp_x_schedule_visit_rec.last_update_login;
463 p6_a7 := ddp_x_schedule_visit_rec.org_id;
464 p6_a8 := ddp_x_schedule_visit_rec.org_name;
465 p6_a9 := ddp_x_schedule_visit_rec.dept_id;
466 p6_a10 := ddp_x_schedule_visit_rec.dept_name;
467 p6_a11 := ddp_x_schedule_visit_rec.start_date;
468 p6_a12 := ddp_x_schedule_visit_rec.start_hour;
469 p6_a13 := ddp_x_schedule_visit_rec.planned_end_date;
470 p6_a14 := ddp_x_schedule_visit_rec.planned_end_hour;
471 p6_a15 := ddp_x_schedule_visit_rec.visit_type_code;
472 p6_a16 := ddp_x_schedule_visit_rec.visit_type_mean;
473 p6_a17 := ddp_x_schedule_visit_rec.space_category_code;
474 p6_a18 := ddp_x_schedule_visit_rec.space_category_mean;
475 p6_a19 := ddp_x_schedule_visit_rec.schedule_designator;
476 p6_a20 := ddp_x_schedule_visit_rec.object_version_number;
477 p6_a21 := ddp_x_schedule_visit_rec.attribute_category;
478 p6_a22 := ddp_x_schedule_visit_rec.attribute1;
479 p6_a23 := ddp_x_schedule_visit_rec.attribute2;
480 p6_a24 := ddp_x_schedule_visit_rec.attribute3;
481 p6_a25 := ddp_x_schedule_visit_rec.attribute4;
482 p6_a26 := ddp_x_schedule_visit_rec.attribute5;
483 p6_a27 := ddp_x_schedule_visit_rec.attribute6;
484 p6_a28 := ddp_x_schedule_visit_rec.attribute7;
485 p6_a29 := ddp_x_schedule_visit_rec.attribute8;
486 p6_a30 := ddp_x_schedule_visit_rec.attribute9;
487 p6_a31 := ddp_x_schedule_visit_rec.attribute10;
488 p6_a32 := ddp_x_schedule_visit_rec.attribute11;
489 p6_a33 := ddp_x_schedule_visit_rec.attribute12;
490 p6_a34 := ddp_x_schedule_visit_rec.attribute13;
491 p6_a35 := ddp_x_schedule_visit_rec.attribute14;
492 p6_a36 := ddp_x_schedule_visit_rec.attribute15;
493 p6_a37 := ddp_x_schedule_visit_rec.schedule_flag;
494
495
496
497 end;
498
499 procedure schedule_visit(p_api_version NUMBER
500 , p_init_msg_list VARCHAR2
501 , p_commit VARCHAR2
502 , p_validation_level NUMBER
503 , p_module_type VARCHAR2
504 , p5_a0 in out nocopy NUMBER
505 , p5_a1 in out nocopy NUMBER
506 , p5_a2 in out nocopy DATE
507 , p5_a3 in out nocopy NUMBER
508 , p5_a4 in out nocopy DATE
509 , p5_a5 in out nocopy NUMBER
510 , p5_a6 in out nocopy NUMBER
511 , p5_a7 in out nocopy NUMBER
512 , p5_a8 in out nocopy VARCHAR2
513 , p5_a9 in out nocopy NUMBER
514 , p5_a10 in out nocopy VARCHAR2
515 , p5_a11 in out nocopy DATE
516 , p5_a12 in out nocopy NUMBER
517 , p5_a13 in out nocopy DATE
518 , p5_a14 in out nocopy NUMBER
519 , p5_a15 in out nocopy VARCHAR2
520 , p5_a16 in out nocopy VARCHAR2
521 , p5_a17 in out nocopy VARCHAR2
522 , p5_a18 in out nocopy VARCHAR2
523 , p5_a19 in out nocopy VARCHAR2
524 , p5_a20 in out nocopy NUMBER
525 , p5_a21 in out nocopy VARCHAR2
526 , p5_a22 in out nocopy VARCHAR2
527 , p5_a23 in out nocopy VARCHAR2
528 , p5_a24 in out nocopy VARCHAR2
529 , p5_a25 in out nocopy VARCHAR2
533 , p5_a29 in out nocopy VARCHAR2
530 , p5_a26 in out nocopy VARCHAR2
531 , p5_a27 in out nocopy VARCHAR2
532 , p5_a28 in out nocopy VARCHAR2
534 , p5_a30 in out nocopy VARCHAR2
535 , p5_a31 in out nocopy VARCHAR2
536 , p5_a32 in out nocopy VARCHAR2
537 , p5_a33 in out nocopy VARCHAR2
538 , p5_a34 in out nocopy VARCHAR2
539 , p5_a35 in out nocopy VARCHAR2
540 , p5_a36 in out nocopy VARCHAR2
541 , p5_a37 in out nocopy VARCHAR2
542 , x_return_status out nocopy VARCHAR2
543 , x_msg_count out nocopy NUMBER
544 , x_msg_data out nocopy VARCHAR2
545 )
546
547 as
548 ddp_x_schedule_visit_rec ahl_ltp_space_assign_pub.schedule_visit_rec;
549 ddindx binary_integer; indx binary_integer;
550 begin
551
552 -- copy data to the local IN or IN-OUT args, if any
553
554
555
556
557
558 ddp_x_schedule_visit_rec.visit_id := p5_a0;
559 ddp_x_schedule_visit_rec.visit_number := p5_a1;
560 ddp_x_schedule_visit_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a2);
561 ddp_x_schedule_visit_rec.last_updated_by := p5_a3;
562 ddp_x_schedule_visit_rec.creation_date := rosetta_g_miss_date_in_map(p5_a4);
563 ddp_x_schedule_visit_rec.created_by := p5_a5;
564 ddp_x_schedule_visit_rec.last_update_login := p5_a6;
565 ddp_x_schedule_visit_rec.org_id := p5_a7;
566 ddp_x_schedule_visit_rec.org_name := p5_a8;
567 ddp_x_schedule_visit_rec.dept_id := p5_a9;
568 ddp_x_schedule_visit_rec.dept_name := p5_a10;
569 ddp_x_schedule_visit_rec.start_date := rosetta_g_miss_date_in_map(p5_a11);
570 ddp_x_schedule_visit_rec.start_hour := p5_a12;
571 ddp_x_schedule_visit_rec.planned_end_date := rosetta_g_miss_date_in_map(p5_a13);
572 ddp_x_schedule_visit_rec.planned_end_hour := p5_a14;
573 ddp_x_schedule_visit_rec.visit_type_code := p5_a15;
574 ddp_x_schedule_visit_rec.visit_type_mean := p5_a16;
575 ddp_x_schedule_visit_rec.space_category_code := p5_a17;
576 ddp_x_schedule_visit_rec.space_category_mean := p5_a18;
577 ddp_x_schedule_visit_rec.schedule_designator := p5_a19;
578 ddp_x_schedule_visit_rec.object_version_number := p5_a20;
579 ddp_x_schedule_visit_rec.attribute_category := p5_a21;
580 ddp_x_schedule_visit_rec.attribute1 := p5_a22;
581 ddp_x_schedule_visit_rec.attribute2 := p5_a23;
582 ddp_x_schedule_visit_rec.attribute3 := p5_a24;
583 ddp_x_schedule_visit_rec.attribute4 := p5_a25;
584 ddp_x_schedule_visit_rec.attribute5 := p5_a26;
585 ddp_x_schedule_visit_rec.attribute6 := p5_a27;
586 ddp_x_schedule_visit_rec.attribute7 := p5_a28;
587 ddp_x_schedule_visit_rec.attribute8 := p5_a29;
588 ddp_x_schedule_visit_rec.attribute9 := p5_a30;
589 ddp_x_schedule_visit_rec.attribute10 := p5_a31;
590 ddp_x_schedule_visit_rec.attribute11 := p5_a32;
591 ddp_x_schedule_visit_rec.attribute12 := p5_a33;
592 ddp_x_schedule_visit_rec.attribute13 := p5_a34;
593 ddp_x_schedule_visit_rec.attribute14 := p5_a35;
594 ddp_x_schedule_visit_rec.attribute15 := p5_a36;
595 ddp_x_schedule_visit_rec.schedule_flag := p5_a37;
596
597
598
599
600 -- here's the delegated call to the old PL/SQL routine
601 ahl_ltp_space_assign_pub.schedule_visit(p_api_version,
602 p_init_msg_list,
603 p_commit,
604 p_validation_level,
605 p_module_type,
606 ddp_x_schedule_visit_rec,
607 x_return_status,
608 x_msg_count,
609 x_msg_data);
610
611 -- copy data back from the local variables to OUT or IN-OUT args, if any
612
613
614
615
616
617 p5_a0 := ddp_x_schedule_visit_rec.visit_id;
618 p5_a1 := ddp_x_schedule_visit_rec.visit_number;
619 p5_a2 := ddp_x_schedule_visit_rec.last_update_date;
620 p5_a3 := ddp_x_schedule_visit_rec.last_updated_by;
621 p5_a4 := ddp_x_schedule_visit_rec.creation_date;
622 p5_a5 := ddp_x_schedule_visit_rec.created_by;
623 p5_a6 := ddp_x_schedule_visit_rec.last_update_login;
624 p5_a7 := ddp_x_schedule_visit_rec.org_id;
625 p5_a8 := ddp_x_schedule_visit_rec.org_name;
626 p5_a9 := ddp_x_schedule_visit_rec.dept_id;
627 p5_a10 := ddp_x_schedule_visit_rec.dept_name;
628 p5_a11 := ddp_x_schedule_visit_rec.start_date;
629 p5_a12 := ddp_x_schedule_visit_rec.start_hour;
630 p5_a13 := ddp_x_schedule_visit_rec.planned_end_date;
631 p5_a14 := ddp_x_schedule_visit_rec.planned_end_hour;
632 p5_a15 := ddp_x_schedule_visit_rec.visit_type_code;
633 p5_a16 := ddp_x_schedule_visit_rec.visit_type_mean;
634 p5_a17 := ddp_x_schedule_visit_rec.space_category_code;
635 p5_a18 := ddp_x_schedule_visit_rec.space_category_mean;
636 p5_a19 := ddp_x_schedule_visit_rec.schedule_designator;
637 p5_a20 := ddp_x_schedule_visit_rec.object_version_number;
638 p5_a21 := ddp_x_schedule_visit_rec.attribute_category;
639 p5_a22 := ddp_x_schedule_visit_rec.attribute1;
640 p5_a23 := ddp_x_schedule_visit_rec.attribute2;
641 p5_a24 := ddp_x_schedule_visit_rec.attribute3;
642 p5_a25 := ddp_x_schedule_visit_rec.attribute4;
643 p5_a26 := ddp_x_schedule_visit_rec.attribute5;
644 p5_a27 := ddp_x_schedule_visit_rec.attribute6;
645 p5_a28 := ddp_x_schedule_visit_rec.attribute7;
646 p5_a29 := ddp_x_schedule_visit_rec.attribute8;
647 p5_a30 := ddp_x_schedule_visit_rec.attribute9;
648 p5_a31 := ddp_x_schedule_visit_rec.attribute10;
652 p5_a35 := ddp_x_schedule_visit_rec.attribute14;
649 p5_a32 := ddp_x_schedule_visit_rec.attribute11;
650 p5_a33 := ddp_x_schedule_visit_rec.attribute12;
651 p5_a34 := ddp_x_schedule_visit_rec.attribute13;
653 p5_a36 := ddp_x_schedule_visit_rec.attribute15;
654 p5_a37 := ddp_x_schedule_visit_rec.schedule_flag;
655
656
657
658 end;
659
660 procedure unschedule_visit(p_api_version NUMBER
661 , p_init_msg_list VARCHAR2
662 , p_commit VARCHAR2
663 , p_validation_level NUMBER
664 , p_module_type VARCHAR2
665 , p5_a0 in out nocopy NUMBER
666 , p5_a1 in out nocopy NUMBER
667 , p5_a2 in out nocopy DATE
668 , p5_a3 in out nocopy NUMBER
669 , p5_a4 in out nocopy DATE
670 , p5_a5 in out nocopy NUMBER
671 , p5_a6 in out nocopy NUMBER
672 , p5_a7 in out nocopy NUMBER
673 , p5_a8 in out nocopy VARCHAR2
674 , p5_a9 in out nocopy NUMBER
675 , p5_a10 in out nocopy VARCHAR2
676 , p5_a11 in out nocopy DATE
677 , p5_a12 in out nocopy NUMBER
678 , p5_a13 in out nocopy DATE
679 , p5_a14 in out nocopy NUMBER
680 , p5_a15 in out nocopy VARCHAR2
681 , p5_a16 in out nocopy VARCHAR2
682 , p5_a17 in out nocopy VARCHAR2
683 , p5_a18 in out nocopy VARCHAR2
684 , p5_a19 in out nocopy VARCHAR2
685 , p5_a20 in out nocopy NUMBER
686 , p5_a21 in out nocopy VARCHAR2
687 , p5_a22 in out nocopy VARCHAR2
688 , p5_a23 in out nocopy VARCHAR2
689 , p5_a24 in out nocopy VARCHAR2
690 , p5_a25 in out nocopy VARCHAR2
691 , p5_a26 in out nocopy VARCHAR2
692 , p5_a27 in out nocopy VARCHAR2
693 , p5_a28 in out nocopy VARCHAR2
694 , p5_a29 in out nocopy VARCHAR2
695 , p5_a30 in out nocopy VARCHAR2
696 , p5_a31 in out nocopy VARCHAR2
697 , p5_a32 in out nocopy VARCHAR2
698 , p5_a33 in out nocopy VARCHAR2
699 , p5_a34 in out nocopy VARCHAR2
700 , p5_a35 in out nocopy VARCHAR2
701 , p5_a36 in out nocopy VARCHAR2
702 , p5_a37 in out nocopy VARCHAR2
703 , x_return_status out nocopy VARCHAR2
704 , x_msg_count out nocopy NUMBER
705 , x_msg_data out nocopy VARCHAR2
706 )
707
708 as
709 ddp_x_schedule_visit_rec ahl_ltp_space_assign_pub.schedule_visit_rec;
710 ddindx binary_integer; indx binary_integer;
711 begin
712
713 -- copy data to the local IN or IN-OUT args, if any
714
715
716
717
718
719 ddp_x_schedule_visit_rec.visit_id := p5_a0;
720 ddp_x_schedule_visit_rec.visit_number := p5_a1;
721 ddp_x_schedule_visit_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a2);
722 ddp_x_schedule_visit_rec.last_updated_by := p5_a3;
723 ddp_x_schedule_visit_rec.creation_date := rosetta_g_miss_date_in_map(p5_a4);
724 ddp_x_schedule_visit_rec.created_by := p5_a5;
725 ddp_x_schedule_visit_rec.last_update_login := p5_a6;
726 ddp_x_schedule_visit_rec.org_id := p5_a7;
727 ddp_x_schedule_visit_rec.org_name := p5_a8;
728 ddp_x_schedule_visit_rec.dept_id := p5_a9;
729 ddp_x_schedule_visit_rec.dept_name := p5_a10;
730 ddp_x_schedule_visit_rec.start_date := rosetta_g_miss_date_in_map(p5_a11);
731 ddp_x_schedule_visit_rec.start_hour := p5_a12;
732 ddp_x_schedule_visit_rec.planned_end_date := rosetta_g_miss_date_in_map(p5_a13);
733 ddp_x_schedule_visit_rec.planned_end_hour := p5_a14;
734 ddp_x_schedule_visit_rec.visit_type_code := p5_a15;
735 ddp_x_schedule_visit_rec.visit_type_mean := p5_a16;
736 ddp_x_schedule_visit_rec.space_category_code := p5_a17;
737 ddp_x_schedule_visit_rec.space_category_mean := p5_a18;
738 ddp_x_schedule_visit_rec.schedule_designator := p5_a19;
739 ddp_x_schedule_visit_rec.object_version_number := p5_a20;
740 ddp_x_schedule_visit_rec.attribute_category := p5_a21;
741 ddp_x_schedule_visit_rec.attribute1 := p5_a22;
742 ddp_x_schedule_visit_rec.attribute2 := p5_a23;
743 ddp_x_schedule_visit_rec.attribute3 := p5_a24;
744 ddp_x_schedule_visit_rec.attribute4 := p5_a25;
745 ddp_x_schedule_visit_rec.attribute5 := p5_a26;
746 ddp_x_schedule_visit_rec.attribute6 := p5_a27;
747 ddp_x_schedule_visit_rec.attribute7 := p5_a28;
748 ddp_x_schedule_visit_rec.attribute8 := p5_a29;
749 ddp_x_schedule_visit_rec.attribute9 := p5_a30;
750 ddp_x_schedule_visit_rec.attribute10 := p5_a31;
751 ddp_x_schedule_visit_rec.attribute11 := p5_a32;
752 ddp_x_schedule_visit_rec.attribute12 := p5_a33;
756 ddp_x_schedule_visit_rec.schedule_flag := p5_a37;
753 ddp_x_schedule_visit_rec.attribute13 := p5_a34;
754 ddp_x_schedule_visit_rec.attribute14 := p5_a35;
755 ddp_x_schedule_visit_rec.attribute15 := p5_a36;
757
758
759
760
761 -- here's the delegated call to the old PL/SQL routine
762 ahl_ltp_space_assign_pub.unschedule_visit(p_api_version,
763 p_init_msg_list,
764 p_commit,
765 p_validation_level,
766 p_module_type,
767 ddp_x_schedule_visit_rec,
768 x_return_status,
769 x_msg_count,
770 x_msg_data);
771
772 -- copy data back from the local variables to OUT or IN-OUT args, if any
773
774
775
776
777
778 p5_a0 := ddp_x_schedule_visit_rec.visit_id;
779 p5_a1 := ddp_x_schedule_visit_rec.visit_number;
780 p5_a2 := ddp_x_schedule_visit_rec.last_update_date;
781 p5_a3 := ddp_x_schedule_visit_rec.last_updated_by;
782 p5_a4 := ddp_x_schedule_visit_rec.creation_date;
783 p5_a5 := ddp_x_schedule_visit_rec.created_by;
784 p5_a6 := ddp_x_schedule_visit_rec.last_update_login;
785 p5_a7 := ddp_x_schedule_visit_rec.org_id;
786 p5_a8 := ddp_x_schedule_visit_rec.org_name;
787 p5_a9 := ddp_x_schedule_visit_rec.dept_id;
788 p5_a10 := ddp_x_schedule_visit_rec.dept_name;
789 p5_a11 := ddp_x_schedule_visit_rec.start_date;
790 p5_a12 := ddp_x_schedule_visit_rec.start_hour;
791 p5_a13 := ddp_x_schedule_visit_rec.planned_end_date;
792 p5_a14 := ddp_x_schedule_visit_rec.planned_end_hour;
793 p5_a15 := ddp_x_schedule_visit_rec.visit_type_code;
794 p5_a16 := ddp_x_schedule_visit_rec.visit_type_mean;
795 p5_a17 := ddp_x_schedule_visit_rec.space_category_code;
796 p5_a18 := ddp_x_schedule_visit_rec.space_category_mean;
797 p5_a19 := ddp_x_schedule_visit_rec.schedule_designator;
798 p5_a20 := ddp_x_schedule_visit_rec.object_version_number;
799 p5_a21 := ddp_x_schedule_visit_rec.attribute_category;
800 p5_a22 := ddp_x_schedule_visit_rec.attribute1;
801 p5_a23 := ddp_x_schedule_visit_rec.attribute2;
802 p5_a24 := ddp_x_schedule_visit_rec.attribute3;
803 p5_a25 := ddp_x_schedule_visit_rec.attribute4;
804 p5_a26 := ddp_x_schedule_visit_rec.attribute5;
805 p5_a27 := ddp_x_schedule_visit_rec.attribute6;
806 p5_a28 := ddp_x_schedule_visit_rec.attribute7;
807 p5_a29 := ddp_x_schedule_visit_rec.attribute8;
808 p5_a30 := ddp_x_schedule_visit_rec.attribute9;
809 p5_a31 := ddp_x_schedule_visit_rec.attribute10;
810 p5_a32 := ddp_x_schedule_visit_rec.attribute11;
811 p5_a33 := ddp_x_schedule_visit_rec.attribute12;
812 p5_a34 := ddp_x_schedule_visit_rec.attribute13;
813 p5_a35 := ddp_x_schedule_visit_rec.attribute14;
814 p5_a36 := ddp_x_schedule_visit_rec.attribute15;
815 p5_a37 := ddp_x_schedule_visit_rec.schedule_flag;
816
817
818
819 end;
820
821 end ahl_ltp_space_assign_pub_w;