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