[Home] [Help]
Skip to content
PACKAGE BODY: APPS.AHL_AMP_WORKBENCH_PVT_W
Source
1 package body ahl_amp_workbench_pvt_w as
2 /* $Header: AHLWAMPB.pls 120.0.12020000.2 2012/12/11 05:48:04 prakkum noship $ */
3 procedure rosetta_table_copy_in_p6(t out nocopy ahl_amp_workbench_pvt.sch_graph_results_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_300
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_VARCHAR2_TABLE_300
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_DATE_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_DATE_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_DATE_TABLE
24 , a21 JTF_NUMBER_TABLE
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_DATE_TABLE
27 , a24 JTF_NUMBER_TABLE
28 , a25 JTF_VARCHAR2_TABLE_100
29 , a26 JTF_DATE_TABLE
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_VARCHAR2_TABLE_100
32 , a29 JTF_DATE_TABLE
33 , a30 JTF_NUMBER_TABLE
34 , a31 JTF_VARCHAR2_TABLE_100
35 , a32 JTF_DATE_TABLE
36 , a33 JTF_NUMBER_TABLE
37 , a34 JTF_VARCHAR2_TABLE_100
38 , a35 JTF_DATE_TABLE
39 , a36 JTF_NUMBER_TABLE
40 , a37 JTF_VARCHAR2_TABLE_100
41 , a38 JTF_DATE_TABLE
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_VARCHAR2_TABLE_100
44 , a41 JTF_DATE_TABLE
45 , a42 JTF_NUMBER_TABLE
46 , a43 JTF_VARCHAR2_TABLE_100
47 , a44 JTF_DATE_TABLE
48 , a45 JTF_NUMBER_TABLE
49 , a46 JTF_VARCHAR2_TABLE_100
50 , a47 JTF_DATE_TABLE
51 , a48 JTF_NUMBER_TABLE
52 , a49 JTF_VARCHAR2_TABLE_100
53 , a50 JTF_DATE_TABLE
54 , a51 JTF_NUMBER_TABLE
55 , a52 JTF_VARCHAR2_TABLE_100
56 , a53 JTF_DATE_TABLE
57 , a54 JTF_NUMBER_TABLE
58 , a55 JTF_VARCHAR2_TABLE_100
59 , a56 JTF_DATE_TABLE
60 , a57 JTF_NUMBER_TABLE
61 , a58 JTF_VARCHAR2_TABLE_100
62 , a59 JTF_DATE_TABLE
63 , a60 JTF_NUMBER_TABLE
64 , a61 JTF_VARCHAR2_TABLE_100
65 , a62 JTF_DATE_TABLE
66 , a63 JTF_NUMBER_TABLE
67 , a64 JTF_VARCHAR2_TABLE_100
68 , a65 JTF_DATE_TABLE
69 , a66 JTF_NUMBER_TABLE
70 , a67 JTF_VARCHAR2_TABLE_100
71 , a68 JTF_DATE_TABLE
72 , a69 JTF_NUMBER_TABLE
73 , a70 JTF_NUMBER_TABLE
74 ) as
75 ddindx binary_integer; indx binary_integer;
76 begin
77 if a0 is not null and a0.count > 0 then
78 if a0.count > 0 then
79 indx := a0.first;
80 ddindx := 1;
81 while true loop
82 t(ddindx).org_id := a0(indx);
83 t(ddindx).department_id := a1(indx);
84 t(ddindx).department_desc := a2(indx);
85 t(ddindx).space_id := a3(indx);
86 t(ddindx).space_name := a4(indx);
87 t(ddindx).unit_id := a5(indx);
88 t(ddindx).unit_name := a6(indx);
89 t(ddindx).schedule_type_1 := a7(indx);
90 t(ddindx).visit_date_1 := a8(indx);
91 t(ddindx).visit_id_1 := a9(indx);
92 t(ddindx).schedule_type_2 := a10(indx);
93 t(ddindx).visit_date_2 := a11(indx);
94 t(ddindx).visit_id_2 := a12(indx);
95 t(ddindx).schedule_type_3 := a13(indx);
96 t(ddindx).visit_date_3 := a14(indx);
97 t(ddindx).visit_id_3 := a15(indx);
98 t(ddindx).schedule_type_4 := a16(indx);
99 t(ddindx).visit_date_4 := a17(indx);
100 t(ddindx).visit_id_4 := a18(indx);
101 t(ddindx).schedule_type_5 := a19(indx);
102 t(ddindx).visit_date_5 := a20(indx);
103 t(ddindx).visit_id_5 := a21(indx);
104 t(ddindx).schedule_type_6 := a22(indx);
105 t(ddindx).visit_date_6 := a23(indx);
106 t(ddindx).visit_id_6 := a24(indx);
107 t(ddindx).schedule_type_7 := a25(indx);
108 t(ddindx).visit_date_7 := a26(indx);
109 t(ddindx).visit_id_7 := a27(indx);
110 t(ddindx).schedule_type_8 := a28(indx);
111 t(ddindx).visit_date_8 := a29(indx);
112 t(ddindx).visit_id_8 := a30(indx);
113 t(ddindx).schedule_type_9 := a31(indx);
114 t(ddindx).visit_date_9 := a32(indx);
115 t(ddindx).visit_id_9 := a33(indx);
116 t(ddindx).schedule_type_10 := a34(indx);
117 t(ddindx).visit_date_10 := a35(indx);
118 t(ddindx).visit_id_10 := a36(indx);
119 t(ddindx).schedule_type_11 := a37(indx);
120 t(ddindx).visit_date_11 := a38(indx);
121 t(ddindx).visit_id_11 := a39(indx);
122 t(ddindx).schedule_type_12 := a40(indx);
123 t(ddindx).visit_date_12 := a41(indx);
124 t(ddindx).visit_id_12 := a42(indx);
125 t(ddindx).schedule_type_13 := a43(indx);
126 t(ddindx).visit_date_13 := a44(indx);
127 t(ddindx).visit_id_13 := a45(indx);
128 t(ddindx).schedule_type_14 := a46(indx);
129 t(ddindx).visit_date_14 := a47(indx);
130 t(ddindx).visit_id_14 := a48(indx);
131 t(ddindx).schedule_type_15 := a49(indx);
132 t(ddindx).visit_date_15 := a50(indx);
133 t(ddindx).visit_id_15 := a51(indx);
134 t(ddindx).schedule_type_16 := a52(indx);
135 t(ddindx).visit_date_16 := a53(indx);
136 t(ddindx).visit_id_16 := a54(indx);
137 t(ddindx).schedule_type_17 := a55(indx);
138 t(ddindx).visit_date_17 := a56(indx);
139 t(ddindx).visit_id_17 := a57(indx);
140 t(ddindx).schedule_type_18 := a58(indx);
141 t(ddindx).visit_date_18 := a59(indx);
142 t(ddindx).visit_id_18 := a60(indx);
143 t(ddindx).schedule_type_19 := a61(indx);
144 t(ddindx).visit_date_19 := a62(indx);
145 t(ddindx).visit_id_19 := a63(indx);
146 t(ddindx).schedule_type_20 := a64(indx);
147 t(ddindx).visit_date_20 := a65(indx);
148 t(ddindx).visit_id_20 := a66(indx);
149 t(ddindx).schedule_type_21 := a67(indx);
150 t(ddindx).visit_date_21 := a68(indx);
151 t(ddindx).visit_id_21 := a69(indx);
152 if a70(indx) is null
153 then t(ddindx).filter_rec := null;
154 elsif a70(indx) = 0
155 then t(ddindx).filter_rec := false;
156 else t(ddindx).filter_rec := true;
157 end if;
158 ddindx := ddindx+1;
159 if a0.last =indx
160 then exit;
161 end if;
162 indx := a0.next(indx);
163 end loop;
164 end if;
165 end if;
166 end rosetta_table_copy_in_p6;
167 procedure rosetta_table_copy_out_p6(t ahl_amp_workbench_pvt.sch_graph_results_tbl, a0 out nocopy JTF_NUMBER_TABLE
168 , a1 out nocopy JTF_NUMBER_TABLE
169 , a2 out nocopy JTF_VARCHAR2_TABLE_300
170 , a3 out nocopy JTF_NUMBER_TABLE
171 , a4 out nocopy JTF_VARCHAR2_TABLE_100
172 , a5 out nocopy JTF_NUMBER_TABLE
173 , a6 out nocopy JTF_VARCHAR2_TABLE_300
174 , a7 out nocopy JTF_VARCHAR2_TABLE_100
175 , a8 out nocopy JTF_DATE_TABLE
176 , a9 out nocopy JTF_NUMBER_TABLE
177 , a10 out nocopy JTF_VARCHAR2_TABLE_100
178 , a11 out nocopy JTF_DATE_TABLE
179 , a12 out nocopy JTF_NUMBER_TABLE
180 , a13 out nocopy JTF_VARCHAR2_TABLE_100
181 , a14 out nocopy JTF_DATE_TABLE
182 , a15 out nocopy JTF_NUMBER_TABLE
183 , a16 out nocopy JTF_VARCHAR2_TABLE_100
184 , a17 out nocopy JTF_DATE_TABLE
185 , a18 out nocopy JTF_NUMBER_TABLE
186 , a19 out nocopy JTF_VARCHAR2_TABLE_100
187 , a20 out nocopy JTF_DATE_TABLE
188 , a21 out nocopy JTF_NUMBER_TABLE
189 , a22 out nocopy JTF_VARCHAR2_TABLE_100
190 , a23 out nocopy JTF_DATE_TABLE
191 , a24 out nocopy JTF_NUMBER_TABLE
192 , a25 out nocopy JTF_VARCHAR2_TABLE_100
193 , a26 out nocopy JTF_DATE_TABLE
194 , a27 out nocopy JTF_NUMBER_TABLE
195 , a28 out nocopy JTF_VARCHAR2_TABLE_100
196 , a29 out nocopy JTF_DATE_TABLE
197 , a30 out nocopy JTF_NUMBER_TABLE
198 , a31 out nocopy JTF_VARCHAR2_TABLE_100
199 , a32 out nocopy JTF_DATE_TABLE
200 , a33 out nocopy JTF_NUMBER_TABLE
201 , a34 out nocopy JTF_VARCHAR2_TABLE_100
202 , a35 out nocopy JTF_DATE_TABLE
203 , a36 out nocopy JTF_NUMBER_TABLE
204 , a37 out nocopy JTF_VARCHAR2_TABLE_100
205 , a38 out nocopy JTF_DATE_TABLE
206 , a39 out nocopy JTF_NUMBER_TABLE
207 , a40 out nocopy JTF_VARCHAR2_TABLE_100
208 , a41 out nocopy JTF_DATE_TABLE
209 , a42 out nocopy JTF_NUMBER_TABLE
210 , a43 out nocopy JTF_VARCHAR2_TABLE_100
211 , a44 out nocopy JTF_DATE_TABLE
212 , a45 out nocopy JTF_NUMBER_TABLE
213 , a46 out nocopy JTF_VARCHAR2_TABLE_100
214 , a47 out nocopy JTF_DATE_TABLE
215 , a48 out nocopy JTF_NUMBER_TABLE
216 , a49 out nocopy JTF_VARCHAR2_TABLE_100
217 , a50 out nocopy JTF_DATE_TABLE
218 , a51 out nocopy JTF_NUMBER_TABLE
219 , a52 out nocopy JTF_VARCHAR2_TABLE_100
220 , a53 out nocopy JTF_DATE_TABLE
221 , a54 out nocopy JTF_NUMBER_TABLE
222 , a55 out nocopy JTF_VARCHAR2_TABLE_100
223 , a56 out nocopy JTF_DATE_TABLE
224 , a57 out nocopy JTF_NUMBER_TABLE
225 , a58 out nocopy JTF_VARCHAR2_TABLE_100
226 , a59 out nocopy JTF_DATE_TABLE
227 , a60 out nocopy JTF_NUMBER_TABLE
228 , a61 out nocopy JTF_VARCHAR2_TABLE_100
229 , a62 out nocopy JTF_DATE_TABLE
230 , a63 out nocopy JTF_NUMBER_TABLE
231 , a64 out nocopy JTF_VARCHAR2_TABLE_100
232 , a65 out nocopy JTF_DATE_TABLE
233 , a66 out nocopy JTF_NUMBER_TABLE
234 , a67 out nocopy JTF_VARCHAR2_TABLE_100
235 , a68 out nocopy JTF_DATE_TABLE
236 , a69 out nocopy JTF_NUMBER_TABLE
237 , a70 out nocopy JTF_NUMBER_TABLE
238 ) as
239 ddindx binary_integer; indx binary_integer;
240 begin
241 if t is null or t.count = 0 then
242 a0 := JTF_NUMBER_TABLE();
243 a1 := JTF_NUMBER_TABLE();
244 a2 := JTF_VARCHAR2_TABLE_300();
245 a3 := JTF_NUMBER_TABLE();
246 a4 := JTF_VARCHAR2_TABLE_100();
247 a5 := JTF_NUMBER_TABLE();
248 a6 := JTF_VARCHAR2_TABLE_300();
249 a7 := JTF_VARCHAR2_TABLE_100();
250 a8 := JTF_DATE_TABLE();
251 a9 := JTF_NUMBER_TABLE();
252 a10 := JTF_VARCHAR2_TABLE_100();
253 a11 := JTF_DATE_TABLE();
254 a12 := JTF_NUMBER_TABLE();
255 a13 := JTF_VARCHAR2_TABLE_100();
256 a14 := JTF_DATE_TABLE();
257 a15 := JTF_NUMBER_TABLE();
258 a16 := JTF_VARCHAR2_TABLE_100();
259 a17 := JTF_DATE_TABLE();
260 a18 := JTF_NUMBER_TABLE();
261 a19 := JTF_VARCHAR2_TABLE_100();
262 a20 := JTF_DATE_TABLE();
263 a21 := JTF_NUMBER_TABLE();
264 a22 := JTF_VARCHAR2_TABLE_100();
265 a23 := JTF_DATE_TABLE();
266 a24 := JTF_NUMBER_TABLE();
267 a25 := JTF_VARCHAR2_TABLE_100();
268 a26 := JTF_DATE_TABLE();
269 a27 := JTF_NUMBER_TABLE();
270 a28 := JTF_VARCHAR2_TABLE_100();
271 a29 := JTF_DATE_TABLE();
272 a30 := JTF_NUMBER_TABLE();
273 a31 := JTF_VARCHAR2_TABLE_100();
274 a32 := JTF_DATE_TABLE();
275 a33 := JTF_NUMBER_TABLE();
276 a34 := JTF_VARCHAR2_TABLE_100();
277 a35 := JTF_DATE_TABLE();
278 a36 := JTF_NUMBER_TABLE();
279 a37 := JTF_VARCHAR2_TABLE_100();
280 a38 := JTF_DATE_TABLE();
281 a39 := JTF_NUMBER_TABLE();
282 a40 := JTF_VARCHAR2_TABLE_100();
283 a41 := JTF_DATE_TABLE();
284 a42 := JTF_NUMBER_TABLE();
285 a43 := JTF_VARCHAR2_TABLE_100();
286 a44 := JTF_DATE_TABLE();
287 a45 := JTF_NUMBER_TABLE();
288 a46 := JTF_VARCHAR2_TABLE_100();
289 a47 := JTF_DATE_TABLE();
290 a48 := JTF_NUMBER_TABLE();
291 a49 := JTF_VARCHAR2_TABLE_100();
292 a50 := JTF_DATE_TABLE();
293 a51 := JTF_NUMBER_TABLE();
294 a52 := JTF_VARCHAR2_TABLE_100();
295 a53 := JTF_DATE_TABLE();
296 a54 := JTF_NUMBER_TABLE();
297 a55 := JTF_VARCHAR2_TABLE_100();
298 a56 := JTF_DATE_TABLE();
299 a57 := JTF_NUMBER_TABLE();
300 a58 := JTF_VARCHAR2_TABLE_100();
301 a59 := JTF_DATE_TABLE();
302 a60 := JTF_NUMBER_TABLE();
303 a61 := JTF_VARCHAR2_TABLE_100();
304 a62 := JTF_DATE_TABLE();
305 a63 := JTF_NUMBER_TABLE();
306 a64 := JTF_VARCHAR2_TABLE_100();
307 a65 := JTF_DATE_TABLE();
308 a66 := JTF_NUMBER_TABLE();
309 a67 := JTF_VARCHAR2_TABLE_100();
310 a68 := JTF_DATE_TABLE();
311 a69 := JTF_NUMBER_TABLE();
312 a70 := JTF_NUMBER_TABLE();
313 else
314 a0 := JTF_NUMBER_TABLE();
315 a1 := JTF_NUMBER_TABLE();
316 a2 := JTF_VARCHAR2_TABLE_300();
317 a3 := JTF_NUMBER_TABLE();
318 a4 := JTF_VARCHAR2_TABLE_100();
319 a5 := JTF_NUMBER_TABLE();
320 a6 := JTF_VARCHAR2_TABLE_300();
321 a7 := JTF_VARCHAR2_TABLE_100();
322 a8 := JTF_DATE_TABLE();
323 a9 := JTF_NUMBER_TABLE();
324 a10 := JTF_VARCHAR2_TABLE_100();
325 a11 := JTF_DATE_TABLE();
326 a12 := JTF_NUMBER_TABLE();
327 a13 := JTF_VARCHAR2_TABLE_100();
328 a14 := JTF_DATE_TABLE();
329 a15 := JTF_NUMBER_TABLE();
330 a16 := JTF_VARCHAR2_TABLE_100();
331 a17 := JTF_DATE_TABLE();
332 a18 := JTF_NUMBER_TABLE();
333 a19 := JTF_VARCHAR2_TABLE_100();
334 a20 := JTF_DATE_TABLE();
335 a21 := JTF_NUMBER_TABLE();
336 a22 := JTF_VARCHAR2_TABLE_100();
337 a23 := JTF_DATE_TABLE();
338 a24 := JTF_NUMBER_TABLE();
339 a25 := JTF_VARCHAR2_TABLE_100();
340 a26 := JTF_DATE_TABLE();
341 a27 := JTF_NUMBER_TABLE();
342 a28 := JTF_VARCHAR2_TABLE_100();
343 a29 := JTF_DATE_TABLE();
344 a30 := JTF_NUMBER_TABLE();
345 a31 := JTF_VARCHAR2_TABLE_100();
346 a32 := JTF_DATE_TABLE();
347 a33 := JTF_NUMBER_TABLE();
348 a34 := JTF_VARCHAR2_TABLE_100();
349 a35 := JTF_DATE_TABLE();
350 a36 := JTF_NUMBER_TABLE();
351 a37 := JTF_VARCHAR2_TABLE_100();
352 a38 := JTF_DATE_TABLE();
353 a39 := JTF_NUMBER_TABLE();
354 a40 := JTF_VARCHAR2_TABLE_100();
355 a41 := JTF_DATE_TABLE();
356 a42 := JTF_NUMBER_TABLE();
357 a43 := JTF_VARCHAR2_TABLE_100();
358 a44 := JTF_DATE_TABLE();
359 a45 := JTF_NUMBER_TABLE();
360 a46 := JTF_VARCHAR2_TABLE_100();
361 a47 := JTF_DATE_TABLE();
362 a48 := JTF_NUMBER_TABLE();
363 a49 := JTF_VARCHAR2_TABLE_100();
364 a50 := JTF_DATE_TABLE();
365 a51 := JTF_NUMBER_TABLE();
366 a52 := JTF_VARCHAR2_TABLE_100();
367 a53 := JTF_DATE_TABLE();
368 a54 := JTF_NUMBER_TABLE();
369 a55 := JTF_VARCHAR2_TABLE_100();
370 a56 := JTF_DATE_TABLE();
371 a57 := JTF_NUMBER_TABLE();
372 a58 := JTF_VARCHAR2_TABLE_100();
373 a59 := JTF_DATE_TABLE();
374 a60 := JTF_NUMBER_TABLE();
375 a61 := JTF_VARCHAR2_TABLE_100();
376 a62 := JTF_DATE_TABLE();
377 a63 := JTF_NUMBER_TABLE();
378 a64 := JTF_VARCHAR2_TABLE_100();
379 a65 := JTF_DATE_TABLE();
380 a66 := JTF_NUMBER_TABLE();
381 a67 := JTF_VARCHAR2_TABLE_100();
382 a68 := JTF_DATE_TABLE();
383 a69 := JTF_NUMBER_TABLE();
384 a70 := JTF_NUMBER_TABLE();
385 if t.count > 0 then
386 a0.extend(t.count);
387 a1.extend(t.count);
388 a2.extend(t.count);
389 a3.extend(t.count);
390 a4.extend(t.count);
391 a5.extend(t.count);
392 a6.extend(t.count);
393 a7.extend(t.count);
394 a8.extend(t.count);
395 a9.extend(t.count);
396 a10.extend(t.count);
397 a11.extend(t.count);
398 a12.extend(t.count);
399 a13.extend(t.count);
400 a14.extend(t.count);
401 a15.extend(t.count);
402 a16.extend(t.count);
403 a17.extend(t.count);
407 a21.extend(t.count);
404 a18.extend(t.count);
405 a19.extend(t.count);
406 a20.extend(t.count);
408 a22.extend(t.count);
409 a23.extend(t.count);
410 a24.extend(t.count);
411 a25.extend(t.count);
412 a26.extend(t.count);
413 a27.extend(t.count);
414 a28.extend(t.count);
415 a29.extend(t.count);
416 a30.extend(t.count);
417 a31.extend(t.count);
418 a32.extend(t.count);
419 a33.extend(t.count);
420 a34.extend(t.count);
421 a35.extend(t.count);
422 a36.extend(t.count);
423 a37.extend(t.count);
424 a38.extend(t.count);
425 a39.extend(t.count);
426 a40.extend(t.count);
427 a41.extend(t.count);
428 a42.extend(t.count);
429 a43.extend(t.count);
430 a44.extend(t.count);
431 a45.extend(t.count);
432 a46.extend(t.count);
433 a47.extend(t.count);
434 a48.extend(t.count);
435 a49.extend(t.count);
436 a50.extend(t.count);
437 a51.extend(t.count);
438 a52.extend(t.count);
439 a53.extend(t.count);
440 a54.extend(t.count);
441 a55.extend(t.count);
442 a56.extend(t.count);
443 a57.extend(t.count);
444 a58.extend(t.count);
445 a59.extend(t.count);
446 a60.extend(t.count);
447 a61.extend(t.count);
448 a62.extend(t.count);
449 a63.extend(t.count);
450 a64.extend(t.count);
451 a65.extend(t.count);
452 a66.extend(t.count);
453 a67.extend(t.count);
454 a68.extend(t.count);
455 a69.extend(t.count);
456 a70.extend(t.count);
457 ddindx := t.first;
458 indx := 1;
459 while true loop
460 a0(indx) := t(ddindx).org_id;
461 a1(indx) := t(ddindx).department_id;
462 a2(indx) := t(ddindx).department_desc;
463 a3(indx) := t(ddindx).space_id;
464 a4(indx) := t(ddindx).space_name;
465 a5(indx) := t(ddindx).unit_id;
466 a6(indx) := t(ddindx).unit_name;
467 a7(indx) := t(ddindx).schedule_type_1;
468 a8(indx) := t(ddindx).visit_date_1;
469 a9(indx) := t(ddindx).visit_id_1;
470 a10(indx) := t(ddindx).schedule_type_2;
471 a11(indx) := t(ddindx).visit_date_2;
472 a12(indx) := t(ddindx).visit_id_2;
473 a13(indx) := t(ddindx).schedule_type_3;
474 a14(indx) := t(ddindx).visit_date_3;
475 a15(indx) := t(ddindx).visit_id_3;
476 a16(indx) := t(ddindx).schedule_type_4;
477 a17(indx) := t(ddindx).visit_date_4;
478 a18(indx) := t(ddindx).visit_id_4;
479 a19(indx) := t(ddindx).schedule_type_5;
480 a20(indx) := t(ddindx).visit_date_5;
481 a21(indx) := t(ddindx).visit_id_5;
482 a22(indx) := t(ddindx).schedule_type_6;
483 a23(indx) := t(ddindx).visit_date_6;
484 a24(indx) := t(ddindx).visit_id_6;
485 a25(indx) := t(ddindx).schedule_type_7;
486 a26(indx) := t(ddindx).visit_date_7;
487 a27(indx) := t(ddindx).visit_id_7;
488 a28(indx) := t(ddindx).schedule_type_8;
489 a29(indx) := t(ddindx).visit_date_8;
490 a30(indx) := t(ddindx).visit_id_8;
491 a31(indx) := t(ddindx).schedule_type_9;
492 a32(indx) := t(ddindx).visit_date_9;
493 a33(indx) := t(ddindx).visit_id_9;
494 a34(indx) := t(ddindx).schedule_type_10;
495 a35(indx) := t(ddindx).visit_date_10;
496 a36(indx) := t(ddindx).visit_id_10;
497 a37(indx) := t(ddindx).schedule_type_11;
498 a38(indx) := t(ddindx).visit_date_11;
499 a39(indx) := t(ddindx).visit_id_11;
500 a40(indx) := t(ddindx).schedule_type_12;
501 a41(indx) := t(ddindx).visit_date_12;
502 a42(indx) := t(ddindx).visit_id_12;
503 a43(indx) := t(ddindx).schedule_type_13;
504 a44(indx) := t(ddindx).visit_date_13;
505 a45(indx) := t(ddindx).visit_id_13;
506 a46(indx) := t(ddindx).schedule_type_14;
507 a47(indx) := t(ddindx).visit_date_14;
508 a48(indx) := t(ddindx).visit_id_14;
509 a49(indx) := t(ddindx).schedule_type_15;
510 a50(indx) := t(ddindx).visit_date_15;
511 a51(indx) := t(ddindx).visit_id_15;
512 a52(indx) := t(ddindx).schedule_type_16;
513 a53(indx) := t(ddindx).visit_date_16;
514 a54(indx) := t(ddindx).visit_id_16;
515 a55(indx) := t(ddindx).schedule_type_17;
516 a56(indx) := t(ddindx).visit_date_17;
517 a57(indx) := t(ddindx).visit_id_17;
518 a58(indx) := t(ddindx).schedule_type_18;
519 a59(indx) := t(ddindx).visit_date_18;
520 a60(indx) := t(ddindx).visit_id_18;
521 a61(indx) := t(ddindx).schedule_type_19;
522 a62(indx) := t(ddindx).visit_date_19;
523 a63(indx) := t(ddindx).visit_id_19;
524 a64(indx) := t(ddindx).schedule_type_20;
525 a65(indx) := t(ddindx).visit_date_20;
526 a66(indx) := t(ddindx).visit_id_20;
527 a67(indx) := t(ddindx).schedule_type_21;
528 a68(indx) := t(ddindx).visit_date_21;
529 a69(indx) := t(ddindx).visit_id_21;
530 if t(ddindx).filter_rec is null
531 then a70(indx) := null;
532 elsif t(ddindx).filter_rec
533 then a70(indx) := 1;
534 else a70(indx) := 0;
535 end if;
536 indx := indx+1;
537 if t.last =ddindx
538 then exit;
539 end if;
543 end if;
540 ddindx := t.next(ddindx);
541 end loop;
542 end if;
544 end rosetta_table_copy_out_p6;
545
546 procedure rosetta_table_copy_in_p7(t out nocopy ahl_amp_workbench_pvt.sch_visits_tbl, a0 JTF_NUMBER_TABLE
547 , a1 JTF_DATE_TABLE
548 , a2 JTF_DATE_TABLE
549 ) as
550 ddindx binary_integer; indx binary_integer;
551 begin
552 if a0 is not null and a0.count > 0 then
553 if a0.count > 0 then
554 indx := a0.first;
555 ddindx := 1;
556 while true loop
557 t(ddindx).visit_id := a0(indx);
558 t(ddindx).start_date := a1(indx);
559 t(ddindx).end_date := a2(indx);
560 ddindx := ddindx+1;
561 if a0.last =indx
562 then exit;
563 end if;
564 indx := a0.next(indx);
565 end loop;
566 end if;
567 end if;
568 end rosetta_table_copy_in_p7;
569 procedure rosetta_table_copy_out_p7(t ahl_amp_workbench_pvt.sch_visits_tbl, a0 out nocopy JTF_NUMBER_TABLE
570 , a1 out nocopy JTF_DATE_TABLE
571 , a2 out nocopy JTF_DATE_TABLE
572 ) as
573 ddindx binary_integer; indx binary_integer;
574 begin
575 if t is null or t.count = 0 then
576 a0 := JTF_NUMBER_TABLE();
577 a1 := JTF_DATE_TABLE();
578 a2 := JTF_DATE_TABLE();
579 else
580 a0 := JTF_NUMBER_TABLE();
581 a1 := JTF_DATE_TABLE();
582 a2 := JTF_DATE_TABLE();
583 if t.count > 0 then
584 a0.extend(t.count);
585 a1.extend(t.count);
586 a2.extend(t.count);
587 ddindx := t.first;
588 indx := 1;
589 while true loop
590 a0(indx) := t(ddindx).visit_id;
591 a1(indx) := t(ddindx).start_date;
592 a2(indx) := t(ddindx).end_date;
593 indx := indx+1;
594 if t.last =ddindx
595 then exit;
596 end if;
597 ddindx := t.next(ddindx);
598 end loop;
599 end if;
600 end if;
601 end rosetta_table_copy_out_p7;
602
603 procedure rosetta_table_copy_in_p8(t out nocopy ahl_amp_workbench_pvt.resource_input_tbl_type, a0 JTF_NUMBER_TABLE
604 , a1 JTF_NUMBER_TABLE
605 ) as
606 ddindx binary_integer; indx binary_integer;
607 begin
608 if a0 is not null and a0.count > 0 then
609 if a0.count > 0 then
610 indx := a0.first;
611 ddindx := 1;
612 while true loop
613 t(ddindx).resource_id := a0(indx);
614 t(ddindx).resource_availability := a1(indx);
615 ddindx := ddindx+1;
616 if a0.last =indx
617 then exit;
618 end if;
619 indx := a0.next(indx);
620 end loop;
621 end if;
622 end if;
623 end rosetta_table_copy_in_p8;
624 procedure rosetta_table_copy_out_p8(t ahl_amp_workbench_pvt.resource_input_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
625 , a1 out nocopy JTF_NUMBER_TABLE
626 ) as
627 ddindx binary_integer; indx binary_integer;
628 begin
629 if t is null or t.count = 0 then
630 a0 := JTF_NUMBER_TABLE();
631 a1 := JTF_NUMBER_TABLE();
632 else
633 a0 := JTF_NUMBER_TABLE();
634 a1 := JTF_NUMBER_TABLE();
635 if t.count > 0 then
636 a0.extend(t.count);
637 a1.extend(t.count);
638 ddindx := t.first;
639 indx := 1;
640 while true loop
641 a0(indx) := t(ddindx).resource_id;
642 a1(indx) := t(ddindx).resource_availability;
643 indx := indx+1;
644 if t.last =ddindx
645 then exit;
646 end if;
647 ddindx := t.next(ddindx);
648 end loop;
649 end if;
650 end if;
651 end rosetta_table_copy_out_p8;
652
653 procedure rosetta_table_copy_in_p9(t out nocopy ahl_amp_workbench_pvt.resource_output_tbl_type, a0 JTF_DATE_TABLE
654 , a1 JTF_NUMBER_TABLE
655 , a2 JTF_NUMBER_TABLE
656 , a3 JTF_NUMBER_TABLE
657 , a4 JTF_NUMBER_TABLE
658 , a5 JTF_NUMBER_TABLE
659 , a6 JTF_NUMBER_TABLE
660 ) as
661 ddindx binary_integer; indx binary_integer;
662 begin
663 if a0 is not null and a0.count > 0 then
664 if a0.count > 0 then
665 indx := a0.first;
666 ddindx := 1;
667 while true loop
668 t(ddindx).on_date := a0(indx);
669 t(ddindx).cent_percent_capacity := a1(indx);
670 t(ddindx).r1_capacity := a2(indx);
671 t(ddindx).r2_capacity := a3(indx);
672 t(ddindx).r3_capacity := a4(indx);
673 t(ddindx).r4_capacity := a5(indx);
674 t(ddindx).r5_capacity := a6(indx);
675 ddindx := ddindx+1;
676 if a0.last =indx
677 then exit;
678 end if;
679 indx := a0.next(indx);
680 end loop;
681 end if;
682 end if;
683 end rosetta_table_copy_in_p9;
684 procedure rosetta_table_copy_out_p9(t ahl_amp_workbench_pvt.resource_output_tbl_type, a0 out nocopy JTF_DATE_TABLE
685 , a1 out nocopy JTF_NUMBER_TABLE
686 , a2 out nocopy JTF_NUMBER_TABLE
687 , a3 out nocopy JTF_NUMBER_TABLE
688 , a4 out nocopy JTF_NUMBER_TABLE
689 , a5 out nocopy JTF_NUMBER_TABLE
690 , a6 out nocopy JTF_NUMBER_TABLE
691 ) as
692 ddindx binary_integer; indx binary_integer;
693 begin
694 if t is null or t.count = 0 then
695 a0 := JTF_DATE_TABLE();
696 a1 := JTF_NUMBER_TABLE();
697 a2 := JTF_NUMBER_TABLE();
698 a3 := JTF_NUMBER_TABLE();
699 a4 := JTF_NUMBER_TABLE();
703 a0 := JTF_DATE_TABLE();
700 a5 := JTF_NUMBER_TABLE();
701 a6 := JTF_NUMBER_TABLE();
702 else
704 a1 := JTF_NUMBER_TABLE();
705 a2 := JTF_NUMBER_TABLE();
706 a3 := JTF_NUMBER_TABLE();
707 a4 := JTF_NUMBER_TABLE();
708 a5 := JTF_NUMBER_TABLE();
709 a6 := JTF_NUMBER_TABLE();
710 if t.count > 0 then
711 a0.extend(t.count);
712 a1.extend(t.count);
713 a2.extend(t.count);
714 a3.extend(t.count);
715 a4.extend(t.count);
716 a5.extend(t.count);
717 a6.extend(t.count);
718 ddindx := t.first;
719 indx := 1;
720 while true loop
721 a0(indx) := t(ddindx).on_date;
722 a1(indx) := t(ddindx).cent_percent_capacity;
723 a2(indx) := t(ddindx).r1_capacity;
724 a3(indx) := t(ddindx).r2_capacity;
725 a4(indx) := t(ddindx).r3_capacity;
726 a5(indx) := t(ddindx).r4_capacity;
727 a6(indx) := t(ddindx).r5_capacity;
728 indx := indx+1;
729 if t.last =ddindx
730 then exit;
731 end if;
732 ddindx := t.next(ddindx);
733 end loop;
734 end if;
735 end if;
736 end rosetta_table_copy_out_p9;
737
738 procedure get_org_sch_graph(p_api_version NUMBER
739 , p_init_msg_list VARCHAR2
740 , p_validation_level NUMBER
741 , x_return_status out nocopy VARCHAR2
742 , x_msg_count out nocopy NUMBER
743 , x_msg_data out nocopy VARCHAR2
744 , p6_a0 NUMBER
745 , p6_a1 NUMBER
746 , p6_a2 NUMBER
747 , p6_a3 VARCHAR2
748 , p6_a4 VARCHAR2
749 , p6_a5 DATE
750 , p6_a6 DATE
751 , p6_a7 NUMBER
752 , p6_a8 VARCHAR2
753 , p7_a0 out nocopy JTF_NUMBER_TABLE
754 , p7_a1 out nocopy JTF_NUMBER_TABLE
755 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
756 , p7_a3 out nocopy JTF_NUMBER_TABLE
757 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
758 , p7_a5 out nocopy JTF_NUMBER_TABLE
759 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
760 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
761 , p7_a8 out nocopy JTF_DATE_TABLE
762 , p7_a9 out nocopy JTF_NUMBER_TABLE
763 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
764 , p7_a11 out nocopy JTF_DATE_TABLE
765 , p7_a12 out nocopy JTF_NUMBER_TABLE
766 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
767 , p7_a14 out nocopy JTF_DATE_TABLE
768 , p7_a15 out nocopy JTF_NUMBER_TABLE
769 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_100
770 , p7_a17 out nocopy JTF_DATE_TABLE
771 , p7_a18 out nocopy JTF_NUMBER_TABLE
772 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_100
773 , p7_a20 out nocopy JTF_DATE_TABLE
774 , p7_a21 out nocopy JTF_NUMBER_TABLE
775 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
776 , p7_a23 out nocopy JTF_DATE_TABLE
777 , p7_a24 out nocopy JTF_NUMBER_TABLE
778 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_100
779 , p7_a26 out nocopy JTF_DATE_TABLE
780 , p7_a27 out nocopy JTF_NUMBER_TABLE
781 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_100
782 , p7_a29 out nocopy JTF_DATE_TABLE
783 , p7_a30 out nocopy JTF_NUMBER_TABLE
784 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_100
785 , p7_a32 out nocopy JTF_DATE_TABLE
786 , p7_a33 out nocopy JTF_NUMBER_TABLE
787 , p7_a34 out nocopy JTF_VARCHAR2_TABLE_100
788 , p7_a35 out nocopy JTF_DATE_TABLE
789 , p7_a36 out nocopy JTF_NUMBER_TABLE
790 , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
791 , p7_a38 out nocopy JTF_DATE_TABLE
792 , p7_a39 out nocopy JTF_NUMBER_TABLE
793 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_100
794 , p7_a41 out nocopy JTF_DATE_TABLE
795 , p7_a42 out nocopy JTF_NUMBER_TABLE
796 , p7_a43 out nocopy JTF_VARCHAR2_TABLE_100
797 , p7_a44 out nocopy JTF_DATE_TABLE
798 , p7_a45 out nocopy JTF_NUMBER_TABLE
799 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_100
800 , p7_a47 out nocopy JTF_DATE_TABLE
801 , p7_a48 out nocopy JTF_NUMBER_TABLE
802 , p7_a49 out nocopy JTF_VARCHAR2_TABLE_100
803 , p7_a50 out nocopy JTF_DATE_TABLE
804 , p7_a51 out nocopy JTF_NUMBER_TABLE
805 , p7_a52 out nocopy JTF_VARCHAR2_TABLE_100
806 , p7_a53 out nocopy JTF_DATE_TABLE
807 , p7_a54 out nocopy JTF_NUMBER_TABLE
808 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_100
809 , p7_a56 out nocopy JTF_DATE_TABLE
810 , p7_a57 out nocopy JTF_NUMBER_TABLE
811 , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
812 , p7_a59 out nocopy JTF_DATE_TABLE
813 , p7_a60 out nocopy JTF_NUMBER_TABLE
814 , p7_a61 out nocopy JTF_VARCHAR2_TABLE_100
815 , p7_a62 out nocopy JTF_DATE_TABLE
816 , p7_a63 out nocopy JTF_NUMBER_TABLE
817 , p7_a64 out nocopy JTF_VARCHAR2_TABLE_100
818 , p7_a65 out nocopy JTF_DATE_TABLE
819 , p7_a66 out nocopy JTF_NUMBER_TABLE
820 , p7_a67 out nocopy JTF_VARCHAR2_TABLE_100
821 , p7_a68 out nocopy JTF_DATE_TABLE
822 , p7_a69 out nocopy JTF_NUMBER_TABLE
823 , p7_a70 out nocopy JTF_NUMBER_TABLE
824 )
825
826 as
827 ddp_org_sch_search_rec ahl_amp_workbench_pvt.org_sch_search_rec;
828 ddx_sch_graph_results_tbl ahl_amp_workbench_pvt.sch_graph_results_tbl;
829 ddindx binary_integer; indx binary_integer;
830 begin
831
832 -- copy data to the local IN or IN-OUT args, if any
833
834
835
836
837
838
839 ddp_org_sch_search_rec.org_id := p6_a0;
840 ddp_org_sch_search_rec.department_id := p6_a1;
841 ddp_org_sch_search_rec.space_id := p6_a2;
842 ddp_org_sch_search_rec.department_name := p6_a3;
843 ddp_org_sch_search_rec.space_name := p6_a4;
844 ddp_org_sch_search_rec.start_from_date := p6_a5;
848
845 ddp_org_sch_search_rec.start_before_date := p6_a6;
846 ddp_org_sch_search_rec.display_window := p6_a7;
847 ddp_org_sch_search_rec.result_filter := p6_a8;
849
850 -- here's the delegated call to the old PL/SQL routine
851 ahl_amp_workbench_pvt.get_org_sch_graph(p_api_version,
852 p_init_msg_list,
853 p_validation_level,
854 x_return_status,
855 x_msg_count,
856 x_msg_data,
857 ddp_org_sch_search_rec,
858 ddx_sch_graph_results_tbl);
859
860 -- copy data back from the local variables to OUT or IN-OUT args, if any
861
862
863
864
865
866
867
868 ahl_amp_workbench_pvt_w.rosetta_table_copy_out_p6(ddx_sch_graph_results_tbl, p7_a0
869 , p7_a1
870 , p7_a2
871 , p7_a3
872 , p7_a4
873 , p7_a5
874 , p7_a6
875 , p7_a7
876 , p7_a8
877 , p7_a9
878 , p7_a10
879 , p7_a11
880 , p7_a12
881 , p7_a13
882 , p7_a14
883 , p7_a15
884 , p7_a16
885 , p7_a17
886 , p7_a18
887 , p7_a19
888 , p7_a20
889 , p7_a21
890 , p7_a22
891 , p7_a23
892 , p7_a24
893 , p7_a25
894 , p7_a26
895 , p7_a27
896 , p7_a28
897 , p7_a29
898 , p7_a30
899 , p7_a31
900 , p7_a32
901 , p7_a33
902 , p7_a34
903 , p7_a35
904 , p7_a36
905 , p7_a37
906 , p7_a38
907 , p7_a39
908 , p7_a40
909 , p7_a41
910 , p7_a42
911 , p7_a43
912 , p7_a44
913 , p7_a45
914 , p7_a46
915 , p7_a47
916 , p7_a48
917 , p7_a49
918 , p7_a50
919 , p7_a51
920 , p7_a52
921 , p7_a53
922 , p7_a54
923 , p7_a55
924 , p7_a56
925 , p7_a57
926 , p7_a58
927 , p7_a59
928 , p7_a60
929 , p7_a61
930 , p7_a62
931 , p7_a63
932 , p7_a64
933 , p7_a65
934 , p7_a66
935 , p7_a67
936 , p7_a68
937 , p7_a69
938 , p7_a70
939 );
940 end;
941
942 procedure get_visits_for_date_org(p_api_version NUMBER
943 , p_init_msg_list VARCHAR2
944 , p_validation_level NUMBER
945 , x_return_status out nocopy VARCHAR2
946 , x_msg_count out nocopy NUMBER
947 , x_msg_data out nocopy VARCHAR2
948 , p6_a0 NUMBER
949 , p6_a1 NUMBER
950 , p6_a2 NUMBER
951 , p6_a3 VARCHAR2
952 , p6_a4 VARCHAR2
953 , p6_a5 DATE
954 , p6_a6 DATE
955 , p6_a7 NUMBER
956 , p6_a8 VARCHAR2
957 , p7_a0 out nocopy NUMBER
958 , p7_a1 out nocopy NUMBER
959 , p7_a2 out nocopy VARCHAR2
960 , p7_a3 out nocopy NUMBER
961 , p7_a4 out nocopy VARCHAR2
962 , p7_a5 out nocopy NUMBER
963 , p7_a6 out nocopy VARCHAR2
964 , p7_a7 out nocopy VARCHAR2
965 , p7_a8 out nocopy DATE
966 , p7_a9 out nocopy NUMBER
967 , p7_a10 out nocopy VARCHAR2
968 , p7_a11 out nocopy DATE
969 , p7_a12 out nocopy NUMBER
970 , p7_a13 out nocopy VARCHAR2
971 , p7_a14 out nocopy DATE
972 , p7_a15 out nocopy NUMBER
973 , p7_a16 out nocopy VARCHAR2
974 , p7_a17 out nocopy DATE
975 , p7_a18 out nocopy NUMBER
976 , p7_a19 out nocopy VARCHAR2
977 , p7_a20 out nocopy DATE
978 , p7_a21 out nocopy NUMBER
979 , p7_a22 out nocopy VARCHAR2
980 , p7_a23 out nocopy DATE
981 , p7_a24 out nocopy NUMBER
982 , p7_a25 out nocopy VARCHAR2
983 , p7_a26 out nocopy DATE
984 , p7_a27 out nocopy NUMBER
985 , p7_a28 out nocopy VARCHAR2
986 , p7_a29 out nocopy DATE
987 , p7_a30 out nocopy NUMBER
988 , p7_a31 out nocopy VARCHAR2
989 , p7_a32 out nocopy DATE
990 , p7_a33 out nocopy NUMBER
991 , p7_a34 out nocopy VARCHAR2
992 , p7_a35 out nocopy DATE
993 , p7_a36 out nocopy NUMBER
994 , p7_a37 out nocopy VARCHAR2
995 , p7_a38 out nocopy DATE
996 , p7_a39 out nocopy NUMBER
997 , p7_a40 out nocopy VARCHAR2
998 , p7_a41 out nocopy DATE
999 , p7_a42 out nocopy NUMBER
1000 , p7_a43 out nocopy VARCHAR2
1001 , p7_a44 out nocopy DATE
1002 , p7_a45 out nocopy NUMBER
1003 , p7_a46 out nocopy VARCHAR2
1004 , p7_a47 out nocopy DATE
1005 , p7_a48 out nocopy NUMBER
1006 , p7_a49 out nocopy VARCHAR2
1007 , p7_a50 out nocopy DATE
1008 , p7_a51 out nocopy NUMBER
1009 , p7_a52 out nocopy VARCHAR2
1010 , p7_a53 out nocopy DATE
1011 , p7_a54 out nocopy NUMBER
1012 , p7_a55 out nocopy VARCHAR2
1013 , p7_a56 out nocopy DATE
1014 , p7_a57 out nocopy NUMBER
1015 , p7_a58 out nocopy VARCHAR2
1016 , p7_a59 out nocopy DATE
1017 , p7_a60 out nocopy NUMBER
1018 , p7_a61 out nocopy VARCHAR2
1019 , p7_a62 out nocopy DATE
1020 , p7_a63 out nocopy NUMBER
1021 , p7_a64 out nocopy VARCHAR2
1022 , p7_a65 out nocopy DATE
1023 , p7_a66 out nocopy NUMBER
1024 , p7_a67 out nocopy VARCHAR2
1025 , p7_a68 out nocopy DATE
1026 , p7_a69 out nocopy NUMBER
1027 , p7_a70 out nocopy NUMBER
1028 , p8_a0 out nocopy JTF_NUMBER_TABLE
1029 , p8_a1 out nocopy JTF_DATE_TABLE
1030 , p8_a2 out nocopy JTF_DATE_TABLE
1034 ddp_org_sch_search_rec ahl_amp_workbench_pvt.org_sch_search_rec;
1031 )
1032
1033 as
1035 ddx_sch_graph_rec ahl_amp_workbench_pvt.sch_graph_results_rec;
1036 ddx_sch_visits_tbl ahl_amp_workbench_pvt.sch_visits_tbl;
1037 ddindx binary_integer; indx binary_integer;
1038 begin
1039
1040 -- copy data to the local IN or IN-OUT args, if any
1041
1042
1043
1044
1045
1046
1047 ddp_org_sch_search_rec.org_id := p6_a0;
1048 ddp_org_sch_search_rec.department_id := p6_a1;
1049 ddp_org_sch_search_rec.space_id := p6_a2;
1050 ddp_org_sch_search_rec.department_name := p6_a3;
1051 ddp_org_sch_search_rec.space_name := p6_a4;
1052 ddp_org_sch_search_rec.start_from_date := p6_a5;
1053 ddp_org_sch_search_rec.start_before_date := p6_a6;
1054 ddp_org_sch_search_rec.display_window := p6_a7;
1055 ddp_org_sch_search_rec.result_filter := p6_a8;
1056
1057
1058
1059 -- here's the delegated call to the old PL/SQL routine
1060 ahl_amp_workbench_pvt.get_visits_for_date_org(p_api_version,
1061 p_init_msg_list,
1062 p_validation_level,
1063 x_return_status,
1064 x_msg_count,
1065 x_msg_data,
1066 ddp_org_sch_search_rec,
1067 ddx_sch_graph_rec,
1068 ddx_sch_visits_tbl);
1069
1070 -- copy data back from the local variables to OUT or IN-OUT args, if any
1071
1072
1073
1074
1075
1076
1077
1078 p7_a0 := ddx_sch_graph_rec.org_id;
1079 p7_a1 := ddx_sch_graph_rec.department_id;
1080 p7_a2 := ddx_sch_graph_rec.department_desc;
1081 p7_a3 := ddx_sch_graph_rec.space_id;
1082 p7_a4 := ddx_sch_graph_rec.space_name;
1083 p7_a5 := ddx_sch_graph_rec.unit_id;
1084 p7_a6 := ddx_sch_graph_rec.unit_name;
1085 p7_a7 := ddx_sch_graph_rec.schedule_type_1;
1086 p7_a8 := ddx_sch_graph_rec.visit_date_1;
1087 p7_a9 := ddx_sch_graph_rec.visit_id_1;
1088 p7_a10 := ddx_sch_graph_rec.schedule_type_2;
1089 p7_a11 := ddx_sch_graph_rec.visit_date_2;
1090 p7_a12 := ddx_sch_graph_rec.visit_id_2;
1091 p7_a13 := ddx_sch_graph_rec.schedule_type_3;
1092 p7_a14 := ddx_sch_graph_rec.visit_date_3;
1093 p7_a15 := ddx_sch_graph_rec.visit_id_3;
1094 p7_a16 := ddx_sch_graph_rec.schedule_type_4;
1095 p7_a17 := ddx_sch_graph_rec.visit_date_4;
1096 p7_a18 := ddx_sch_graph_rec.visit_id_4;
1097 p7_a19 := ddx_sch_graph_rec.schedule_type_5;
1098 p7_a20 := ddx_sch_graph_rec.visit_date_5;
1099 p7_a21 := ddx_sch_graph_rec.visit_id_5;
1100 p7_a22 := ddx_sch_graph_rec.schedule_type_6;
1101 p7_a23 := ddx_sch_graph_rec.visit_date_6;
1102 p7_a24 := ddx_sch_graph_rec.visit_id_6;
1103 p7_a25 := ddx_sch_graph_rec.schedule_type_7;
1104 p7_a26 := ddx_sch_graph_rec.visit_date_7;
1105 p7_a27 := ddx_sch_graph_rec.visit_id_7;
1106 p7_a28 := ddx_sch_graph_rec.schedule_type_8;
1107 p7_a29 := ddx_sch_graph_rec.visit_date_8;
1108 p7_a30 := ddx_sch_graph_rec.visit_id_8;
1109 p7_a31 := ddx_sch_graph_rec.schedule_type_9;
1110 p7_a32 := ddx_sch_graph_rec.visit_date_9;
1111 p7_a33 := ddx_sch_graph_rec.visit_id_9;
1112 p7_a34 := ddx_sch_graph_rec.schedule_type_10;
1113 p7_a35 := ddx_sch_graph_rec.visit_date_10;
1114 p7_a36 := ddx_sch_graph_rec.visit_id_10;
1115 p7_a37 := ddx_sch_graph_rec.schedule_type_11;
1116 p7_a38 := ddx_sch_graph_rec.visit_date_11;
1117 p7_a39 := ddx_sch_graph_rec.visit_id_11;
1118 p7_a40 := ddx_sch_graph_rec.schedule_type_12;
1119 p7_a41 := ddx_sch_graph_rec.visit_date_12;
1120 p7_a42 := ddx_sch_graph_rec.visit_id_12;
1121 p7_a43 := ddx_sch_graph_rec.schedule_type_13;
1122 p7_a44 := ddx_sch_graph_rec.visit_date_13;
1123 p7_a45 := ddx_sch_graph_rec.visit_id_13;
1124 p7_a46 := ddx_sch_graph_rec.schedule_type_14;
1125 p7_a47 := ddx_sch_graph_rec.visit_date_14;
1126 p7_a48 := ddx_sch_graph_rec.visit_id_14;
1127 p7_a49 := ddx_sch_graph_rec.schedule_type_15;
1128 p7_a50 := ddx_sch_graph_rec.visit_date_15;
1129 p7_a51 := ddx_sch_graph_rec.visit_id_15;
1130 p7_a52 := ddx_sch_graph_rec.schedule_type_16;
1131 p7_a53 := ddx_sch_graph_rec.visit_date_16;
1132 p7_a54 := ddx_sch_graph_rec.visit_id_16;
1133 p7_a55 := ddx_sch_graph_rec.schedule_type_17;
1134 p7_a56 := ddx_sch_graph_rec.visit_date_17;
1135 p7_a57 := ddx_sch_graph_rec.visit_id_17;
1136 p7_a58 := ddx_sch_graph_rec.schedule_type_18;
1137 p7_a59 := ddx_sch_graph_rec.visit_date_18;
1138 p7_a60 := ddx_sch_graph_rec.visit_id_18;
1139 p7_a61 := ddx_sch_graph_rec.schedule_type_19;
1140 p7_a62 := ddx_sch_graph_rec.visit_date_19;
1141 p7_a63 := ddx_sch_graph_rec.visit_id_19;
1142 p7_a64 := ddx_sch_graph_rec.schedule_type_20;
1143 p7_a65 := ddx_sch_graph_rec.visit_date_20;
1144 p7_a66 := ddx_sch_graph_rec.visit_id_20;
1145 p7_a67 := ddx_sch_graph_rec.schedule_type_21;
1146 p7_a68 := ddx_sch_graph_rec.visit_date_21;
1147 p7_a69 := ddx_sch_graph_rec.visit_id_21;
1148 if ddx_sch_graph_rec.filter_rec is null
1149 then p7_a70 := null;
1150 elsif ddx_sch_graph_rec.filter_rec
1151 then p7_a70 := 1;
1152 else p7_a70 := 0;
1153 end if;
1154
1155 ahl_amp_workbench_pvt_w.rosetta_table_copy_out_p7(ddx_sch_visits_tbl, p8_a0
1156 , p8_a1
1157 , p8_a2
1158 );
1159 end;
1160
1161 procedure get_flt_sch_graph(p_api_version NUMBER
1162 , p_init_msg_list VARCHAR2
1163 , p_validation_level NUMBER
1164 , x_return_status out nocopy VARCHAR2
1165 , x_msg_count out nocopy NUMBER
1166 , x_msg_data out nocopy VARCHAR2
1167 , p6_a0 NUMBER
1168 , p6_a1 NUMBER
1169 , p6_a2 VARCHAR2
1170 , p6_a3 VARCHAR2
1171 , p6_a4 NUMBER
1172 , p6_a5 VARCHAR2
1173 , p6_a6 DATE
1174 , p6_a7 DATE
1178 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
1175 , p6_a8 NUMBER
1176 , p7_a0 out nocopy JTF_NUMBER_TABLE
1177 , p7_a1 out nocopy JTF_NUMBER_TABLE
1179 , p7_a3 out nocopy JTF_NUMBER_TABLE
1180 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
1181 , p7_a5 out nocopy JTF_NUMBER_TABLE
1182 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_300
1183 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
1184 , p7_a8 out nocopy JTF_DATE_TABLE
1185 , p7_a9 out nocopy JTF_NUMBER_TABLE
1186 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
1187 , p7_a11 out nocopy JTF_DATE_TABLE
1188 , p7_a12 out nocopy JTF_NUMBER_TABLE
1189 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
1190 , p7_a14 out nocopy JTF_DATE_TABLE
1191 , p7_a15 out nocopy JTF_NUMBER_TABLE
1192 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_100
1193 , p7_a17 out nocopy JTF_DATE_TABLE
1194 , p7_a18 out nocopy JTF_NUMBER_TABLE
1195 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_100
1196 , p7_a20 out nocopy JTF_DATE_TABLE
1197 , p7_a21 out nocopy JTF_NUMBER_TABLE
1198 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
1199 , p7_a23 out nocopy JTF_DATE_TABLE
1200 , p7_a24 out nocopy JTF_NUMBER_TABLE
1201 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_100
1202 , p7_a26 out nocopy JTF_DATE_TABLE
1203 , p7_a27 out nocopy JTF_NUMBER_TABLE
1204 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_100
1205 , p7_a29 out nocopy JTF_DATE_TABLE
1206 , p7_a30 out nocopy JTF_NUMBER_TABLE
1207 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_100
1208 , p7_a32 out nocopy JTF_DATE_TABLE
1209 , p7_a33 out nocopy JTF_NUMBER_TABLE
1210 , p7_a34 out nocopy JTF_VARCHAR2_TABLE_100
1211 , p7_a35 out nocopy JTF_DATE_TABLE
1212 , p7_a36 out nocopy JTF_NUMBER_TABLE
1213 , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
1214 , p7_a38 out nocopy JTF_DATE_TABLE
1215 , p7_a39 out nocopy JTF_NUMBER_TABLE
1216 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_100
1217 , p7_a41 out nocopy JTF_DATE_TABLE
1218 , p7_a42 out nocopy JTF_NUMBER_TABLE
1219 , p7_a43 out nocopy JTF_VARCHAR2_TABLE_100
1220 , p7_a44 out nocopy JTF_DATE_TABLE
1221 , p7_a45 out nocopy JTF_NUMBER_TABLE
1222 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_100
1223 , p7_a47 out nocopy JTF_DATE_TABLE
1224 , p7_a48 out nocopy JTF_NUMBER_TABLE
1225 , p7_a49 out nocopy JTF_VARCHAR2_TABLE_100
1226 , p7_a50 out nocopy JTF_DATE_TABLE
1227 , p7_a51 out nocopy JTF_NUMBER_TABLE
1228 , p7_a52 out nocopy JTF_VARCHAR2_TABLE_100
1229 , p7_a53 out nocopy JTF_DATE_TABLE
1230 , p7_a54 out nocopy JTF_NUMBER_TABLE
1231 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_100
1232 , p7_a56 out nocopy JTF_DATE_TABLE
1233 , p7_a57 out nocopy JTF_NUMBER_TABLE
1234 , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
1235 , p7_a59 out nocopy JTF_DATE_TABLE
1236 , p7_a60 out nocopy JTF_NUMBER_TABLE
1237 , p7_a61 out nocopy JTF_VARCHAR2_TABLE_100
1238 , p7_a62 out nocopy JTF_DATE_TABLE
1239 , p7_a63 out nocopy JTF_NUMBER_TABLE
1240 , p7_a64 out nocopy JTF_VARCHAR2_TABLE_100
1241 , p7_a65 out nocopy JTF_DATE_TABLE
1242 , p7_a66 out nocopy JTF_NUMBER_TABLE
1243 , p7_a67 out nocopy JTF_VARCHAR2_TABLE_100
1244 , p7_a68 out nocopy JTF_DATE_TABLE
1245 , p7_a69 out nocopy JTF_NUMBER_TABLE
1246 , p7_a70 out nocopy JTF_NUMBER_TABLE
1247 )
1248
1249 as
1250 ddp_flt_sch_search_rec ahl_amp_workbench_pvt.fleet_sch_search_rec;
1251 ddx_sch_graph_results_tbl ahl_amp_workbench_pvt.sch_graph_results_tbl;
1252 ddindx binary_integer; indx binary_integer;
1253 begin
1254
1255 -- copy data to the local IN or IN-OUT args, if any
1256
1257
1258
1259
1260
1261
1262 ddp_flt_sch_search_rec.fleet_id := p6_a0;
1263 ddp_flt_sch_search_rec.unit_id := p6_a1;
1264 ddp_flt_sch_search_rec.unit_name := p6_a2;
1265 ddp_flt_sch_search_rec.master_config := p6_a3;
1266 ddp_flt_sch_search_rec.minimum_duration := p6_a4;
1267 ddp_flt_sch_search_rec.uom := p6_a5;
1268 ddp_flt_sch_search_rec.start_from_date := p6_a6;
1269 ddp_flt_sch_search_rec.start_before_date := p6_a7;
1270 ddp_flt_sch_search_rec.display_window := p6_a8;
1271
1272
1273 -- here's the delegated call to the old PL/SQL routine
1274 ahl_amp_workbench_pvt.get_flt_sch_graph(p_api_version,
1275 p_init_msg_list,
1276 p_validation_level,
1277 x_return_status,
1278 x_msg_count,
1279 x_msg_data,
1280 ddp_flt_sch_search_rec,
1281 ddx_sch_graph_results_tbl);
1282
1283 -- copy data back from the local variables to OUT or IN-OUT args, if any
1284
1285
1286
1287
1288
1289
1290
1291 ahl_amp_workbench_pvt_w.rosetta_table_copy_out_p6(ddx_sch_graph_results_tbl, p7_a0
1292 , p7_a1
1293 , p7_a2
1294 , p7_a3
1295 , p7_a4
1296 , p7_a5
1297 , p7_a6
1298 , p7_a7
1299 , p7_a8
1300 , p7_a9
1301 , p7_a10
1302 , p7_a11
1303 , p7_a12
1304 , p7_a13
1305 , p7_a14
1306 , p7_a15
1307 , p7_a16
1308 , p7_a17
1309 , p7_a18
1310 , p7_a19
1311 , p7_a20
1312 , p7_a21
1313 , p7_a22
1314 , p7_a23
1315 , p7_a24
1316 , p7_a25
1317 , p7_a26
1318 , p7_a27
1319 , p7_a28
1320 , p7_a29
1321 , p7_a30
1322 , p7_a31
1323 , p7_a32
1324 , p7_a33
1325 , p7_a34
1326 , p7_a35
1327 , p7_a36
1328 , p7_a37
1329 , p7_a38
1330 , p7_a39
1331 , p7_a40
1332 , p7_a41
1333 , p7_a42
1334 , p7_a43
1335 , p7_a44
1339 , p7_a48
1336 , p7_a45
1337 , p7_a46
1338 , p7_a47
1340 , p7_a49
1341 , p7_a50
1342 , p7_a51
1343 , p7_a52
1344 , p7_a53
1345 , p7_a54
1346 , p7_a55
1347 , p7_a56
1348 , p7_a57
1349 , p7_a58
1350 , p7_a59
1351 , p7_a60
1352 , p7_a61
1353 , p7_a62
1354 , p7_a63
1355 , p7_a64
1356 , p7_a65
1357 , p7_a66
1358 , p7_a67
1359 , p7_a68
1360 , p7_a69
1361 , p7_a70
1362 );
1363 end;
1364
1365 procedure get_visits_for_date_flt(p_api_version NUMBER
1366 , p_init_msg_list VARCHAR2
1367 , p_validation_level NUMBER
1368 , x_return_status out nocopy VARCHAR2
1369 , x_msg_count out nocopy NUMBER
1370 , x_msg_data out nocopy VARCHAR2
1371 , p6_a0 NUMBER
1372 , p6_a1 NUMBER
1373 , p6_a2 VARCHAR2
1374 , p6_a3 VARCHAR2
1375 , p6_a4 NUMBER
1376 , p6_a5 VARCHAR2
1377 , p6_a6 DATE
1378 , p6_a7 DATE
1379 , p6_a8 NUMBER
1380 , p7_a0 out nocopy NUMBER
1381 , p7_a1 out nocopy NUMBER
1382 , p7_a2 out nocopy VARCHAR2
1383 , p7_a3 out nocopy NUMBER
1384 , p7_a4 out nocopy VARCHAR2
1385 , p7_a5 out nocopy NUMBER
1386 , p7_a6 out nocopy VARCHAR2
1387 , p7_a7 out nocopy VARCHAR2
1388 , p7_a8 out nocopy DATE
1389 , p7_a9 out nocopy NUMBER
1390 , p7_a10 out nocopy VARCHAR2
1391 , p7_a11 out nocopy DATE
1392 , p7_a12 out nocopy NUMBER
1393 , p7_a13 out nocopy VARCHAR2
1394 , p7_a14 out nocopy DATE
1395 , p7_a15 out nocopy NUMBER
1396 , p7_a16 out nocopy VARCHAR2
1397 , p7_a17 out nocopy DATE
1398 , p7_a18 out nocopy NUMBER
1399 , p7_a19 out nocopy VARCHAR2
1400 , p7_a20 out nocopy DATE
1401 , p7_a21 out nocopy NUMBER
1402 , p7_a22 out nocopy VARCHAR2
1403 , p7_a23 out nocopy DATE
1404 , p7_a24 out nocopy NUMBER
1405 , p7_a25 out nocopy VARCHAR2
1406 , p7_a26 out nocopy DATE
1407 , p7_a27 out nocopy NUMBER
1408 , p7_a28 out nocopy VARCHAR2
1409 , p7_a29 out nocopy DATE
1410 , p7_a30 out nocopy NUMBER
1411 , p7_a31 out nocopy VARCHAR2
1412 , p7_a32 out nocopy DATE
1413 , p7_a33 out nocopy NUMBER
1414 , p7_a34 out nocopy VARCHAR2
1415 , p7_a35 out nocopy DATE
1416 , p7_a36 out nocopy NUMBER
1417 , p7_a37 out nocopy VARCHAR2
1418 , p7_a38 out nocopy DATE
1419 , p7_a39 out nocopy NUMBER
1420 , p7_a40 out nocopy VARCHAR2
1421 , p7_a41 out nocopy DATE
1422 , p7_a42 out nocopy NUMBER
1423 , p7_a43 out nocopy VARCHAR2
1424 , p7_a44 out nocopy DATE
1425 , p7_a45 out nocopy NUMBER
1426 , p7_a46 out nocopy VARCHAR2
1427 , p7_a47 out nocopy DATE
1428 , p7_a48 out nocopy NUMBER
1429 , p7_a49 out nocopy VARCHAR2
1430 , p7_a50 out nocopy DATE
1431 , p7_a51 out nocopy NUMBER
1432 , p7_a52 out nocopy VARCHAR2
1433 , p7_a53 out nocopy DATE
1434 , p7_a54 out nocopy NUMBER
1435 , p7_a55 out nocopy VARCHAR2
1436 , p7_a56 out nocopy DATE
1437 , p7_a57 out nocopy NUMBER
1438 , p7_a58 out nocopy VARCHAR2
1439 , p7_a59 out nocopy DATE
1440 , p7_a60 out nocopy NUMBER
1441 , p7_a61 out nocopy VARCHAR2
1442 , p7_a62 out nocopy DATE
1443 , p7_a63 out nocopy NUMBER
1444 , p7_a64 out nocopy VARCHAR2
1445 , p7_a65 out nocopy DATE
1446 , p7_a66 out nocopy NUMBER
1447 , p7_a67 out nocopy VARCHAR2
1448 , p7_a68 out nocopy DATE
1449 , p7_a69 out nocopy NUMBER
1450 , p7_a70 out nocopy NUMBER
1451 , p8_a0 out nocopy JTF_NUMBER_TABLE
1452 , p8_a1 out nocopy JTF_DATE_TABLE
1453 , p8_a2 out nocopy JTF_DATE_TABLE
1454 )
1455
1456 as
1457 ddp_flt_sch_search_rec ahl_amp_workbench_pvt.fleet_sch_search_rec;
1458 ddx_sch_graph_rec ahl_amp_workbench_pvt.sch_graph_results_rec;
1459 ddx_sch_visits_tbl ahl_amp_workbench_pvt.sch_visits_tbl;
1460 ddindx binary_integer; indx binary_integer;
1461 begin
1462
1463 -- copy data to the local IN or IN-OUT args, if any
1464
1465
1466
1467
1468
1469
1470 ddp_flt_sch_search_rec.fleet_id := p6_a0;
1471 ddp_flt_sch_search_rec.unit_id := p6_a1;
1472 ddp_flt_sch_search_rec.unit_name := p6_a2;
1473 ddp_flt_sch_search_rec.master_config := p6_a3;
1474 ddp_flt_sch_search_rec.minimum_duration := p6_a4;
1475 ddp_flt_sch_search_rec.uom := p6_a5;
1476 ddp_flt_sch_search_rec.start_from_date := p6_a6;
1477 ddp_flt_sch_search_rec.start_before_date := p6_a7;
1478 ddp_flt_sch_search_rec.display_window := p6_a8;
1479
1480
1481
1482 -- here's the delegated call to the old PL/SQL routine
1483 ahl_amp_workbench_pvt.get_visits_for_date_flt(p_api_version,
1484 p_init_msg_list,
1485 p_validation_level,
1486 x_return_status,
1487 x_msg_count,
1488 x_msg_data,
1489 ddp_flt_sch_search_rec,
1490 ddx_sch_graph_rec,
1491 ddx_sch_visits_tbl);
1492
1493 -- copy data back from the local variables to OUT or IN-OUT args, if any
1494
1495
1496
1497
1498
1499
1500
1501 p7_a0 := ddx_sch_graph_rec.org_id;
1502 p7_a1 := ddx_sch_graph_rec.department_id;
1503 p7_a2 := ddx_sch_graph_rec.department_desc;
1504 p7_a3 := ddx_sch_graph_rec.space_id;
1505 p7_a4 := ddx_sch_graph_rec.space_name;
1506 p7_a5 := ddx_sch_graph_rec.unit_id;
1507 p7_a6 := ddx_sch_graph_rec.unit_name;
1511 p7_a10 := ddx_sch_graph_rec.schedule_type_2;
1508 p7_a7 := ddx_sch_graph_rec.schedule_type_1;
1509 p7_a8 := ddx_sch_graph_rec.visit_date_1;
1510 p7_a9 := ddx_sch_graph_rec.visit_id_1;
1512 p7_a11 := ddx_sch_graph_rec.visit_date_2;
1513 p7_a12 := ddx_sch_graph_rec.visit_id_2;
1514 p7_a13 := ddx_sch_graph_rec.schedule_type_3;
1515 p7_a14 := ddx_sch_graph_rec.visit_date_3;
1516 p7_a15 := ddx_sch_graph_rec.visit_id_3;
1517 p7_a16 := ddx_sch_graph_rec.schedule_type_4;
1518 p7_a17 := ddx_sch_graph_rec.visit_date_4;
1519 p7_a18 := ddx_sch_graph_rec.visit_id_4;
1520 p7_a19 := ddx_sch_graph_rec.schedule_type_5;
1521 p7_a20 := ddx_sch_graph_rec.visit_date_5;
1522 p7_a21 := ddx_sch_graph_rec.visit_id_5;
1523 p7_a22 := ddx_sch_graph_rec.schedule_type_6;
1524 p7_a23 := ddx_sch_graph_rec.visit_date_6;
1525 p7_a24 := ddx_sch_graph_rec.visit_id_6;
1526 p7_a25 := ddx_sch_graph_rec.schedule_type_7;
1527 p7_a26 := ddx_sch_graph_rec.visit_date_7;
1528 p7_a27 := ddx_sch_graph_rec.visit_id_7;
1529 p7_a28 := ddx_sch_graph_rec.schedule_type_8;
1530 p7_a29 := ddx_sch_graph_rec.visit_date_8;
1531 p7_a30 := ddx_sch_graph_rec.visit_id_8;
1532 p7_a31 := ddx_sch_graph_rec.schedule_type_9;
1533 p7_a32 := ddx_sch_graph_rec.visit_date_9;
1534 p7_a33 := ddx_sch_graph_rec.visit_id_9;
1535 p7_a34 := ddx_sch_graph_rec.schedule_type_10;
1536 p7_a35 := ddx_sch_graph_rec.visit_date_10;
1537 p7_a36 := ddx_sch_graph_rec.visit_id_10;
1538 p7_a37 := ddx_sch_graph_rec.schedule_type_11;
1539 p7_a38 := ddx_sch_graph_rec.visit_date_11;
1540 p7_a39 := ddx_sch_graph_rec.visit_id_11;
1541 p7_a40 := ddx_sch_graph_rec.schedule_type_12;
1542 p7_a41 := ddx_sch_graph_rec.visit_date_12;
1543 p7_a42 := ddx_sch_graph_rec.visit_id_12;
1544 p7_a43 := ddx_sch_graph_rec.schedule_type_13;
1545 p7_a44 := ddx_sch_graph_rec.visit_date_13;
1546 p7_a45 := ddx_sch_graph_rec.visit_id_13;
1547 p7_a46 := ddx_sch_graph_rec.schedule_type_14;
1548 p7_a47 := ddx_sch_graph_rec.visit_date_14;
1549 p7_a48 := ddx_sch_graph_rec.visit_id_14;
1550 p7_a49 := ddx_sch_graph_rec.schedule_type_15;
1551 p7_a50 := ddx_sch_graph_rec.visit_date_15;
1552 p7_a51 := ddx_sch_graph_rec.visit_id_15;
1553 p7_a52 := ddx_sch_graph_rec.schedule_type_16;
1554 p7_a53 := ddx_sch_graph_rec.visit_date_16;
1555 p7_a54 := ddx_sch_graph_rec.visit_id_16;
1556 p7_a55 := ddx_sch_graph_rec.schedule_type_17;
1557 p7_a56 := ddx_sch_graph_rec.visit_date_17;
1558 p7_a57 := ddx_sch_graph_rec.visit_id_17;
1559 p7_a58 := ddx_sch_graph_rec.schedule_type_18;
1560 p7_a59 := ddx_sch_graph_rec.visit_date_18;
1561 p7_a60 := ddx_sch_graph_rec.visit_id_18;
1562 p7_a61 := ddx_sch_graph_rec.schedule_type_19;
1563 p7_a62 := ddx_sch_graph_rec.visit_date_19;
1564 p7_a63 := ddx_sch_graph_rec.visit_id_19;
1565 p7_a64 := ddx_sch_graph_rec.schedule_type_20;
1566 p7_a65 := ddx_sch_graph_rec.visit_date_20;
1567 p7_a66 := ddx_sch_graph_rec.visit_id_20;
1568 p7_a67 := ddx_sch_graph_rec.schedule_type_21;
1569 p7_a68 := ddx_sch_graph_rec.visit_date_21;
1570 p7_a69 := ddx_sch_graph_rec.visit_id_21;
1571 if ddx_sch_graph_rec.filter_rec is null
1572 then p7_a70 := null;
1573 elsif ddx_sch_graph_rec.filter_rec
1574 then p7_a70 := 1;
1575 else p7_a70 := 0;
1576 end if;
1577
1578 ahl_amp_workbench_pvt_w.rosetta_table_copy_out_p7(ddx_sch_visits_tbl, p8_a0
1579 , p8_a1
1580 , p8_a2
1581 );
1582 end;
1583
1584 procedure get_mc_graph_data(p_api_version NUMBER
1585 , p_init_msg_list VARCHAR2
1586 , p_commit VARCHAR2
1587 , p_validation_level NUMBER
1588 , p_default VARCHAR2
1589 , p_module_type VARCHAR2
1590 , x_return_status out nocopy VARCHAR2
1591 , x_msg_count out nocopy NUMBER
1592 , x_msg_data out nocopy VARCHAR2
1593 , p_organization_id NUMBER
1594 , p_department_id NUMBER
1595 , p_start_date DATE
1596 , p_no_of_days NUMBER
1597 , p_max_range NUMBER
1598 , p14_a0 in out nocopy JTF_NUMBER_TABLE
1599 , p14_a1 in out nocopy JTF_NUMBER_TABLE
1600 , p15_a0 in out nocopy JTF_DATE_TABLE
1601 , p15_a1 in out nocopy JTF_NUMBER_TABLE
1602 , p15_a2 in out nocopy JTF_NUMBER_TABLE
1603 , p15_a3 in out nocopy JTF_NUMBER_TABLE
1604 , p15_a4 in out nocopy JTF_NUMBER_TABLE
1605 , p15_a5 in out nocopy JTF_NUMBER_TABLE
1606 , p15_a6 in out nocopy JTF_NUMBER_TABLE
1607 , x_plan_date out nocopy DATE
1608 )
1609
1610 as
1611 ddp_x_resource_input ahl_amp_workbench_pvt.resource_input_tbl_type;
1612 ddp_x_resource_output ahl_amp_workbench_pvt.resource_output_tbl_type;
1613 ddindx binary_integer; indx binary_integer;
1614 begin
1615
1616 -- copy data to the local IN or IN-OUT args, if any
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631 ahl_amp_workbench_pvt_w.rosetta_table_copy_in_p8(ddp_x_resource_input, p14_a0
1632 , p14_a1
1633 );
1634
1635 ahl_amp_workbench_pvt_w.rosetta_table_copy_in_p9(ddp_x_resource_output, p15_a0
1636 , p15_a1
1637 , p15_a2
1638 , p15_a3
1639 , p15_a4
1640 , p15_a5
1641 , p15_a6
1642 );
1643
1644
1645 -- here's the delegated call to the old PL/SQL routine
1646 ahl_amp_workbench_pvt.get_mc_graph_data(p_api_version,
1647 p_init_msg_list,
1648 p_commit,
1649 p_validation_level,
1650 p_default,
1651 p_module_type,
1652 x_return_status,
1653 x_msg_count,
1654 x_msg_data,
1655 p_organization_id,
1656 p_department_id,
1660 ddp_x_resource_input,
1657 p_start_date,
1658 p_no_of_days,
1659 p_max_range,
1661 ddp_x_resource_output,
1662 x_plan_date);
1663
1664 -- copy data back from the local variables to OUT or IN-OUT args, if any
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679 ahl_amp_workbench_pvt_w.rosetta_table_copy_out_p8(ddp_x_resource_input, p14_a0
1680 , p14_a1
1681 );
1682
1683 ahl_amp_workbench_pvt_w.rosetta_table_copy_out_p9(ddp_x_resource_output, p15_a0
1684 , p15_a1
1685 , p15_a2
1686 , p15_a3
1687 , p15_a4
1688 , p15_a5
1689 , p15_a6
1690 );
1691
1692 end;
1693
1694 end ahl_amp_workbench_pvt_w;