[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_VISITS_STAGES_PVT_W
Source
1 package body ahl_vwp_visits_stages_pvt_w as
2 /* $Header: AHLWSTGB.pls 120.0.12020000.2 2012/12/14 06:42:50 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_p5(t out nocopy ahl_vwp_visits_stages_pvt.visit_stages_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_VARCHAR2_TABLE_100
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_DATE_TABLE
22 , a6 JTF_DATE_TABLE
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_DATE_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 ) as
44 ddindx binary_integer; indx binary_integer;
45 begin
46 if a0 is not null and a0.count > 0 then
47 if a0.count > 0 then
48 indx := a0.first;
49 ddindx := 1;
50 while true loop
51 t(ddindx).stage_id := a0(indx);
52 t(ddindx).stage_num := a1(indx);
53 t(ddindx).stage_name := a2(indx);
54 t(ddindx).duration := a3(indx);
55 t(ddindx).stage_planned_start_time := rosetta_g_miss_date_in_map(a4(indx));
56 t(ddindx).stage_planned_end_time := rosetta_g_miss_date_in_map(a5(indx));
57 t(ddindx).stage_actual_end_time := rosetta_g_miss_date_in_map(a6(indx));
58 t(ddindx).stage_status_code := a7(indx);
59 t(ddindx).prev_stage_num := a8(indx);
60 t(ddindx).earliest_start_date := rosetta_g_miss_date_in_map(a9(indx));
61 t(ddindx).object_version_number := a10(indx);
62 t(ddindx).attribute_category := a11(indx);
63 t(ddindx).attribute1 := a12(indx);
64 t(ddindx).attribute2 := a13(indx);
65 t(ddindx).attribute3 := a14(indx);
66 t(ddindx).attribute4 := a15(indx);
67 t(ddindx).attribute5 := a16(indx);
68 t(ddindx).attribute6 := a17(indx);
69 t(ddindx).attribute7 := a18(indx);
70 t(ddindx).attribute8 := a19(indx);
71 t(ddindx).attribute9 := a20(indx);
72 t(ddindx).attribute10 := a21(indx);
73 t(ddindx).attribute11 := a22(indx);
74 t(ddindx).attribute12 := a23(indx);
75 t(ddindx).attribute13 := a24(indx);
76 t(ddindx).attribute14 := a25(indx);
77 t(ddindx).attribute15 := a26(indx);
78 ddindx := ddindx+1;
79 if a0.last =indx
80 then exit;
81 end if;
82 indx := a0.next(indx);
83 end loop;
84 end if;
85 end if;
86 end rosetta_table_copy_in_p5;
87 procedure rosetta_table_copy_out_p5(t ahl_vwp_visits_stages_pvt.visit_stages_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
88 , a1 out nocopy JTF_NUMBER_TABLE
89 , a2 out nocopy JTF_VARCHAR2_TABLE_100
90 , a3 out nocopy JTF_NUMBER_TABLE
91 , a4 out nocopy JTF_DATE_TABLE
92 , a5 out nocopy JTF_DATE_TABLE
93 , a6 out nocopy JTF_DATE_TABLE
94 , a7 out nocopy JTF_VARCHAR2_TABLE_100
95 , a8 out nocopy JTF_NUMBER_TABLE
96 , a9 out nocopy JTF_DATE_TABLE
97 , a10 out nocopy JTF_NUMBER_TABLE
98 , a11 out nocopy JTF_VARCHAR2_TABLE_100
99 , a12 out nocopy JTF_VARCHAR2_TABLE_200
100 , a13 out nocopy JTF_VARCHAR2_TABLE_200
101 , a14 out nocopy JTF_VARCHAR2_TABLE_200
102 , a15 out nocopy JTF_VARCHAR2_TABLE_200
103 , a16 out nocopy JTF_VARCHAR2_TABLE_200
104 , a17 out nocopy JTF_VARCHAR2_TABLE_200
105 , a18 out nocopy JTF_VARCHAR2_TABLE_200
106 , a19 out nocopy JTF_VARCHAR2_TABLE_200
107 , a20 out nocopy JTF_VARCHAR2_TABLE_200
108 , a21 out nocopy JTF_VARCHAR2_TABLE_200
109 , a22 out nocopy JTF_VARCHAR2_TABLE_200
110 , a23 out nocopy JTF_VARCHAR2_TABLE_200
111 , a24 out nocopy JTF_VARCHAR2_TABLE_200
112 , a25 out nocopy JTF_VARCHAR2_TABLE_200
113 , a26 out nocopy JTF_VARCHAR2_TABLE_200
114 ) as
115 ddindx binary_integer; indx binary_integer;
116 begin
117 if t is null or t.count = 0 then
118 a0 := JTF_NUMBER_TABLE();
119 a1 := JTF_NUMBER_TABLE();
120 a2 := JTF_VARCHAR2_TABLE_100();
121 a3 := JTF_NUMBER_TABLE();
122 a4 := JTF_DATE_TABLE();
123 a5 := JTF_DATE_TABLE();
124 a6 := JTF_DATE_TABLE();
125 a7 := JTF_VARCHAR2_TABLE_100();
126 a8 := JTF_NUMBER_TABLE();
127 a9 := JTF_DATE_TABLE();
128 a10 := JTF_NUMBER_TABLE();
129 a11 := JTF_VARCHAR2_TABLE_100();
130 a12 := JTF_VARCHAR2_TABLE_200();
131 a13 := JTF_VARCHAR2_TABLE_200();
132 a14 := JTF_VARCHAR2_TABLE_200();
133 a15 := JTF_VARCHAR2_TABLE_200();
134 a16 := JTF_VARCHAR2_TABLE_200();
135 a17 := JTF_VARCHAR2_TABLE_200();
136 a18 := JTF_VARCHAR2_TABLE_200();
137 a19 := JTF_VARCHAR2_TABLE_200();
138 a20 := JTF_VARCHAR2_TABLE_200();
139 a21 := JTF_VARCHAR2_TABLE_200();
140 a22 := JTF_VARCHAR2_TABLE_200();
141 a23 := JTF_VARCHAR2_TABLE_200();
142 a24 := JTF_VARCHAR2_TABLE_200();
143 a25 := JTF_VARCHAR2_TABLE_200();
144 a26 := JTF_VARCHAR2_TABLE_200();
145 else
146 a0 := JTF_NUMBER_TABLE();
147 a1 := JTF_NUMBER_TABLE();
148 a2 := JTF_VARCHAR2_TABLE_100();
149 a3 := JTF_NUMBER_TABLE();
150 a4 := JTF_DATE_TABLE();
151 a5 := JTF_DATE_TABLE();
152 a6 := JTF_DATE_TABLE();
153 a7 := JTF_VARCHAR2_TABLE_100();
154 a8 := JTF_NUMBER_TABLE();
155 a9 := JTF_DATE_TABLE();
156 a10 := JTF_NUMBER_TABLE();
157 a11 := JTF_VARCHAR2_TABLE_100();
158 a12 := JTF_VARCHAR2_TABLE_200();
159 a13 := JTF_VARCHAR2_TABLE_200();
160 a14 := JTF_VARCHAR2_TABLE_200();
161 a15 := JTF_VARCHAR2_TABLE_200();
162 a16 := JTF_VARCHAR2_TABLE_200();
163 a17 := JTF_VARCHAR2_TABLE_200();
164 a18 := JTF_VARCHAR2_TABLE_200();
165 a19 := JTF_VARCHAR2_TABLE_200();
166 a20 := JTF_VARCHAR2_TABLE_200();
167 a21 := JTF_VARCHAR2_TABLE_200();
168 a22 := JTF_VARCHAR2_TABLE_200();
169 a23 := JTF_VARCHAR2_TABLE_200();
170 a24 := JTF_VARCHAR2_TABLE_200();
171 a25 := JTF_VARCHAR2_TABLE_200();
172 a26 := JTF_VARCHAR2_TABLE_200();
173 if t.count > 0 then
174 a0.extend(t.count);
175 a1.extend(t.count);
176 a2.extend(t.count);
177 a3.extend(t.count);
178 a4.extend(t.count);
179 a5.extend(t.count);
180 a6.extend(t.count);
181 a7.extend(t.count);
182 a8.extend(t.count);
183 a9.extend(t.count);
184 a10.extend(t.count);
185 a11.extend(t.count);
186 a12.extend(t.count);
187 a13.extend(t.count);
188 a14.extend(t.count);
189 a15.extend(t.count);
190 a16.extend(t.count);
191 a17.extend(t.count);
192 a18.extend(t.count);
193 a19.extend(t.count);
194 a20.extend(t.count);
195 a21.extend(t.count);
196 a22.extend(t.count);
197 a23.extend(t.count);
198 a24.extend(t.count);
199 a25.extend(t.count);
200 a26.extend(t.count);
201 ddindx := t.first;
202 indx := 1;
203 while true loop
204 a0(indx) := t(ddindx).stage_id;
205 a1(indx) := t(ddindx).stage_num;
206 a2(indx) := t(ddindx).stage_name;
207 a3(indx) := t(ddindx).duration;
208 a4(indx) := t(ddindx).stage_planned_start_time;
209 a5(indx) := t(ddindx).stage_planned_end_time;
210 a6(indx) := t(ddindx).stage_actual_end_time;
211 a7(indx) := t(ddindx).stage_status_code;
212 a8(indx) := t(ddindx).prev_stage_num;
213 a9(indx) := t(ddindx).earliest_start_date;
214 a10(indx) := t(ddindx).object_version_number;
215 a11(indx) := t(ddindx).attribute_category;
216 a12(indx) := t(ddindx).attribute1;
217 a13(indx) := t(ddindx).attribute2;
218 a14(indx) := t(ddindx).attribute3;
219 a15(indx) := t(ddindx).attribute4;
220 a16(indx) := t(ddindx).attribute5;
221 a17(indx) := t(ddindx).attribute6;
222 a18(indx) := t(ddindx).attribute7;
223 a19(indx) := t(ddindx).attribute8;
224 a20(indx) := t(ddindx).attribute9;
225 a21(indx) := t(ddindx).attribute10;
226 a22(indx) := t(ddindx).attribute11;
227 a23(indx) := t(ddindx).attribute12;
228 a24(indx) := t(ddindx).attribute13;
229 a25(indx) := t(ddindx).attribute14;
230 a26(indx) := t(ddindx).attribute15;
231 indx := indx+1;
232 if t.last =ddindx
233 then exit;
234 end if;
235 ddindx := t.next(ddindx);
236 end loop;
237 end if;
238 end if;
239 end rosetta_table_copy_out_p5;
240
241 procedure rosetta_table_copy_in_p6(t out nocopy ahl_vwp_visits_stages_pvt.visit_stages_times_tbl_type, a0 JTF_NUMBER_TABLE
242 , a1 JTF_NUMBER_TABLE
243 , a2 JTF_VARCHAR2_TABLE_100
244 , a3 JTF_NUMBER_TABLE
245 , a4 JTF_NUMBER_TABLE
246 , a5 JTF_NUMBER_TABLE
247 , a6 JTF_DATE_TABLE
248 , a7 JTF_DATE_TABLE
249 , a8 JTF_DATE_TABLE
250 ) as
251 ddindx binary_integer; indx binary_integer;
252 begin
253 if a0 is not null and a0.count > 0 then
254 if a0.count > 0 then
255 indx := a0.first;
256 ddindx := 1;
257 while true loop
258 t(ddindx).stage_id := a0(indx);
259 t(ddindx).stage_num := a1(indx);
260 t(ddindx).stage_name := a2(indx);
261 t(ddindx).duration := a3(indx);
262 t(ddindx).stage_start_hour := a4(indx);
263 t(ddindx).stage_end_hour := a5(indx);
264 t(ddindx).planned_start_time := rosetta_g_miss_date_in_map(a6(indx));
265 t(ddindx).planned_end_time := rosetta_g_miss_date_in_map(a7(indx));
266 t(ddindx).actual_end_time := rosetta_g_miss_date_in_map(a8(indx));
267 ddindx := ddindx+1;
268 if a0.last =indx
269 then exit;
270 end if;
271 indx := a0.next(indx);
272 end loop;
273 end if;
274 end if;
275 end rosetta_table_copy_in_p6;
276 procedure rosetta_table_copy_out_p6(t ahl_vwp_visits_stages_pvt.visit_stages_times_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
277 , a1 out nocopy JTF_NUMBER_TABLE
278 , a2 out nocopy JTF_VARCHAR2_TABLE_100
279 , a3 out nocopy JTF_NUMBER_TABLE
280 , a4 out nocopy JTF_NUMBER_TABLE
281 , a5 out nocopy JTF_NUMBER_TABLE
282 , a6 out nocopy JTF_DATE_TABLE
283 , a7 out nocopy JTF_DATE_TABLE
284 , a8 out nocopy JTF_DATE_TABLE
285 ) as
286 ddindx binary_integer; indx binary_integer;
287 begin
288 if t is null or t.count = 0 then
289 a0 := JTF_NUMBER_TABLE();
290 a1 := JTF_NUMBER_TABLE();
291 a2 := JTF_VARCHAR2_TABLE_100();
292 a3 := JTF_NUMBER_TABLE();
293 a4 := JTF_NUMBER_TABLE();
294 a5 := JTF_NUMBER_TABLE();
295 a6 := JTF_DATE_TABLE();
296 a7 := JTF_DATE_TABLE();
297 a8 := JTF_DATE_TABLE();
298 else
299 a0 := JTF_NUMBER_TABLE();
300 a1 := JTF_NUMBER_TABLE();
301 a2 := JTF_VARCHAR2_TABLE_100();
302 a3 := JTF_NUMBER_TABLE();
303 a4 := JTF_NUMBER_TABLE();
304 a5 := JTF_NUMBER_TABLE();
305 a6 := JTF_DATE_TABLE();
306 a7 := JTF_DATE_TABLE();
307 a8 := JTF_DATE_TABLE();
308 if t.count > 0 then
309 a0.extend(t.count);
310 a1.extend(t.count);
311 a2.extend(t.count);
312 a3.extend(t.count);
313 a4.extend(t.count);
314 a5.extend(t.count);
315 a6.extend(t.count);
316 a7.extend(t.count);
317 a8.extend(t.count);
318 ddindx := t.first;
319 indx := 1;
320 while true loop
321 a0(indx) := t(ddindx).stage_id;
322 a1(indx) := t(ddindx).stage_num;
323 a2(indx) := t(ddindx).stage_name;
324 a3(indx) := t(ddindx).duration;
325 a4(indx) := t(ddindx).stage_start_hour;
326 a5(indx) := t(ddindx).stage_end_hour;
327 a6(indx) := t(ddindx).planned_start_time;
328 a7(indx) := t(ddindx).planned_end_time;
329 a8(indx) := t(ddindx).actual_end_time;
330 indx := indx+1;
331 if t.last =ddindx
332 then exit;
333 end if;
334 ddindx := t.next(ddindx);
335 end loop;
336 end if;
337 end if;
338 end rosetta_table_copy_out_p6;
339
340 procedure rosetta_table_copy_in_p7(t out nocopy ahl_vwp_visits_stages_pvt.stage_type_assoc_tbl_type, a0 JTF_NUMBER_TABLE
341 , a1 JTF_NUMBER_TABLE
342 , a2 JTF_VARCHAR2_TABLE_100
343 , a3 JTF_VARCHAR2_TABLE_100
344 ) as
345 ddindx binary_integer; indx binary_integer;
346 begin
347 if a0 is not null and a0.count > 0 then
348 if a0.count > 0 then
349 indx := a0.first;
350 ddindx := 1;
351 while true loop
352 t(ddindx).stage_type_assoc_id := a0(indx);
353 t(ddindx).stage_id := a1(indx);
354 t(ddindx).stage_type_code := a2(indx);
355 t(ddindx).dml_operation := a3(indx);
356 ddindx := ddindx+1;
357 if a0.last =indx
358 then exit;
359 end if;
360 indx := a0.next(indx);
361 end loop;
362 end if;
363 end if;
364 end rosetta_table_copy_in_p7;
365 procedure rosetta_table_copy_out_p7(t ahl_vwp_visits_stages_pvt.stage_type_assoc_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
366 , a1 out nocopy JTF_NUMBER_TABLE
367 , a2 out nocopy JTF_VARCHAR2_TABLE_100
368 , a3 out nocopy JTF_VARCHAR2_TABLE_100
369 ) as
370 ddindx binary_integer; indx binary_integer;
371 begin
372 if t is null or t.count = 0 then
373 a0 := JTF_NUMBER_TABLE();
374 a1 := JTF_NUMBER_TABLE();
375 a2 := JTF_VARCHAR2_TABLE_100();
376 a3 := JTF_VARCHAR2_TABLE_100();
377 else
378 a0 := JTF_NUMBER_TABLE();
379 a1 := JTF_NUMBER_TABLE();
380 a2 := JTF_VARCHAR2_TABLE_100();
381 a3 := JTF_VARCHAR2_TABLE_100();
382 if t.count > 0 then
383 a0.extend(t.count);
384 a1.extend(t.count);
385 a2.extend(t.count);
386 a3.extend(t.count);
387 ddindx := t.first;
388 indx := 1;
389 while true loop
390 a0(indx) := t(ddindx).stage_type_assoc_id;
391 a1(indx) := t(ddindx).stage_id;
392 a2(indx) := t(ddindx).stage_type_code;
393 a3(indx) := t(ddindx).dml_operation;
394 indx := indx+1;
395 if t.last =ddindx
396 then exit;
397 end if;
398 ddindx := t.next(ddindx);
399 end loop;
400 end if;
401 end if;
402 end rosetta_table_copy_out_p7;
403
407 ) as
404 procedure rosetta_table_copy_in_p8(t out nocopy ahl_vwp_visits_stages_pvt.stage_rule_tbl_type, a0 JTF_NUMBER_TABLE
405 , a1 JTF_NUMBER_TABLE
406 , a2 JTF_VARCHAR2_TABLE_100
408 ddindx binary_integer; indx binary_integer;
409 begin
410 if a0 is not null and a0.count > 0 then
411 if a0.count > 0 then
412 indx := a0.first;
413 ddindx := 1;
414 while true loop
415 t(ddindx).object_stage_id := a0(indx);
416 t(ddindx).subject_stage_id := a1(indx);
417 t(ddindx).relation_type := a2(indx);
418 ddindx := ddindx+1;
419 if a0.last =indx
420 then exit;
421 end if;
422 indx := a0.next(indx);
423 end loop;
424 end if;
425 end if;
426 end rosetta_table_copy_in_p8;
427 procedure rosetta_table_copy_out_p8(t ahl_vwp_visits_stages_pvt.stage_rule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
428 , a1 out nocopy JTF_NUMBER_TABLE
429 , a2 out nocopy JTF_VARCHAR2_TABLE_100
430 ) as
431 ddindx binary_integer; indx binary_integer;
432 begin
433 if t is null or t.count = 0 then
434 a0 := JTF_NUMBER_TABLE();
435 a1 := JTF_NUMBER_TABLE();
436 a2 := JTF_VARCHAR2_TABLE_100();
437 else
438 a0 := JTF_NUMBER_TABLE();
439 a1 := JTF_NUMBER_TABLE();
440 a2 := JTF_VARCHAR2_TABLE_100();
441 if t.count > 0 then
442 a0.extend(t.count);
443 a1.extend(t.count);
444 a2.extend(t.count);
445 ddindx := t.first;
446 indx := 1;
447 while true loop
448 a0(indx) := t(ddindx).object_stage_id;
449 a1(indx) := t(ddindx).subject_stage_id;
450 a2(indx) := t(ddindx).relation_type;
451 indx := indx+1;
452 if t.last =ddindx
453 then exit;
454 end if;
455 ddindx := t.next(ddindx);
456 end loop;
457 end if;
458 end if;
459 end rosetta_table_copy_out_p8;
460
461 procedure rosetta_table_copy_in_p9(t out nocopy ahl_vwp_visits_stages_pvt.visit_stages_ovn_tbl_type, a0 JTF_NUMBER_TABLE
462 , a1 JTF_NUMBER_TABLE
463 ) as
464 ddindx binary_integer; indx binary_integer;
465 begin
466 if a0 is not null and a0.count > 0 then
467 if a0.count > 0 then
468 indx := a0.first;
469 ddindx := 1;
470 while true loop
471 t(ddindx).stage_id := a0(indx);
472 t(ddindx).updated_obj_version_no_count := a1(indx);
473 ddindx := ddindx+1;
474 if a0.last =indx
475 then exit;
476 end if;
477 indx := a0.next(indx);
478 end loop;
479 end if;
480 end if;
481 end rosetta_table_copy_in_p9;
482 procedure rosetta_table_copy_out_p9(t ahl_vwp_visits_stages_pvt.visit_stages_ovn_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
483 , a1 out nocopy JTF_NUMBER_TABLE
484 ) as
485 ddindx binary_integer; indx binary_integer;
486 begin
487 if t is null or t.count = 0 then
488 a0 := JTF_NUMBER_TABLE();
489 a1 := JTF_NUMBER_TABLE();
490 else
491 a0 := JTF_NUMBER_TABLE();
492 a1 := JTF_NUMBER_TABLE();
493 if t.count > 0 then
494 a0.extend(t.count);
495 a1.extend(t.count);
496 ddindx := t.first;
497 indx := 1;
498 while true loop
499 a0(indx) := t(ddindx).stage_id;
500 a1(indx) := t(ddindx).updated_obj_version_no_count;
501 indx := indx+1;
502 if t.last =ddindx
503 then exit;
504 end if;
505 ddindx := t.next(ddindx);
506 end loop;
507 end if;
508 end if;
509 end rosetta_table_copy_out_p9;
510
511 procedure update_stages(p_api_version NUMBER
512 , p_init_msg_list VARCHAR2
513 , p_commit VARCHAR2
514 , p_validation_level NUMBER
515 , p_module_type VARCHAR2
516 , p_visit_id NUMBER
517 , p6_a0 in out nocopy JTF_NUMBER_TABLE
518 , p6_a1 in out nocopy JTF_NUMBER_TABLE
519 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_100
520 , p6_a3 in out nocopy JTF_NUMBER_TABLE
521 , p6_a4 in out nocopy JTF_DATE_TABLE
522 , p6_a5 in out nocopy JTF_DATE_TABLE
523 , p6_a6 in out nocopy JTF_DATE_TABLE
524 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
525 , p6_a8 in out nocopy JTF_NUMBER_TABLE
526 , p6_a9 in out nocopy JTF_DATE_TABLE
527 , p6_a10 in out nocopy JTF_NUMBER_TABLE
528 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
529 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_200
530 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_200
531 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_200
532 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_200
533 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_200
534 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_200
535 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_200
536 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_200
537 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_200
538 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
539 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
540 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_200
541 , p6_a24 in out nocopy JTF_VARCHAR2_TABLE_200
542 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_200
543 , p6_a26 in out nocopy JTF_VARCHAR2_TABLE_200
544 , p7_a0 in out nocopy JTF_NUMBER_TABLE
545 , p7_a1 in out nocopy JTF_NUMBER_TABLE
546 , x_return_status out nocopy VARCHAR2
547 , x_msg_count out nocopy NUMBER
548 , x_msg_data out nocopy VARCHAR2
549 )
550
551 as
552 ddp_x_stages_tbl ahl_vwp_visits_stages_pvt.visit_stages_tbl_type;
556
553 ddp_x_stages_ovn_tbl ahl_vwp_visits_stages_pvt.visit_stages_ovn_tbl_type;
554 ddindx binary_integer; indx binary_integer;
555 begin
557 -- copy data to the local IN or IN-OUT args, if any
558
559
560
561
562
563
564 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_in_p5(ddp_x_stages_tbl, p6_a0
565 , p6_a1
566 , p6_a2
567 , p6_a3
568 , p6_a4
569 , p6_a5
570 , p6_a6
571 , p6_a7
572 , p6_a8
573 , p6_a9
574 , p6_a10
575 , p6_a11
576 , p6_a12
577 , p6_a13
578 , p6_a14
579 , p6_a15
580 , p6_a16
581 , p6_a17
582 , p6_a18
583 , p6_a19
584 , p6_a20
585 , p6_a21
586 , p6_a22
587 , p6_a23
588 , p6_a24
589 , p6_a25
590 , p6_a26
591 );
592
593 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_in_p9(ddp_x_stages_ovn_tbl, p7_a0
594 , p7_a1
595 );
596
597
598
599
600 -- here's the delegated call to the old PL/SQL routine
601 ahl_vwp_visits_stages_pvt.update_stages(p_api_version,
602 p_init_msg_list,
603 p_commit,
604 p_validation_level,
605 p_module_type,
606 p_visit_id,
607 ddp_x_stages_tbl,
608 ddp_x_stages_ovn_tbl,
609 x_return_status,
610 x_msg_count,
611 x_msg_data);
612
613 -- copy data back from the local variables to OUT or IN-OUT args, if any
614
615
616
617
618
619
620 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_out_p5(ddp_x_stages_tbl, p6_a0
621 , p6_a1
622 , p6_a2
623 , p6_a3
624 , p6_a4
625 , p6_a5
626 , p6_a6
627 , p6_a7
628 , p6_a8
629 , p6_a9
630 , p6_a10
631 , p6_a11
632 , p6_a12
633 , p6_a13
634 , p6_a14
635 , p6_a15
636 , p6_a16
637 , p6_a17
638 , p6_a18
639 , p6_a19
640 , p6_a20
641 , p6_a21
642 , p6_a22
643 , p6_a23
644 , p6_a24
645 , p6_a25
646 , p6_a26
647 );
648
649 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_out_p9(ddp_x_stages_ovn_tbl, p7_a0
650 , p7_a1
651 );
652
653
654
655 end;
656
657 procedure get_stages_details(p_api_version NUMBER
658 , p_init_msg_list VARCHAR2
659 , p_commit VARCHAR2
660 , p_validation_level NUMBER
661 , p_module_type VARCHAR2
662 , p_visit_id NUMBER
663 , p_start_row NUMBER
664 , p_rows_per_page NUMBER
665 , p8_a0 out nocopy JTF_NUMBER_TABLE
666 , p8_a1 out nocopy JTF_NUMBER_TABLE
667 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
668 , p8_a3 out nocopy JTF_NUMBER_TABLE
669 , p8_a4 out nocopy JTF_DATE_TABLE
670 , p8_a5 out nocopy JTF_DATE_TABLE
671 , p8_a6 out nocopy JTF_DATE_TABLE
672 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
673 , p8_a8 out nocopy JTF_NUMBER_TABLE
674 , p8_a9 out nocopy JTF_DATE_TABLE
675 , p8_a10 out nocopy JTF_NUMBER_TABLE
676 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
677 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_200
678 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_200
679 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_200
680 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_200
681 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_200
682 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_200
683 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_200
684 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_200
685 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_200
686 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_200
687 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_200
688 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_200
689 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_200
690 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_200
691 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_200
692 , x_row_count out nocopy NUMBER
693 , x_return_status out nocopy VARCHAR2
694 , x_msg_count out nocopy NUMBER
695 , x_msg_data out nocopy VARCHAR2
696 )
697
698 as
699 ddx_stages_tbl ahl_vwp_visits_stages_pvt.visit_stages_tbl_type;
700 ddindx binary_integer; indx binary_integer;
701 begin
702
703 -- copy data to the local IN or IN-OUT args, if any
704
705
706
707
708
709
710
711
712
713
714
715
716
717 -- here's the delegated call to the old PL/SQL routine
718 ahl_vwp_visits_stages_pvt.get_stages_details(p_api_version,
719 p_init_msg_list,
720 p_commit,
721 p_validation_level,
722 p_module_type,
723 p_visit_id,
724 p_start_row,
725 p_rows_per_page,
726 ddx_stages_tbl,
727 x_row_count,
728 x_return_status,
729 x_msg_count,
730 x_msg_data);
731
732 -- copy data back from the local variables to OUT or IN-OUT args, if any
733
734
735
736
737
738
739
740
741 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_out_p5(ddx_stages_tbl, p8_a0
742 , p8_a1
743 , p8_a2
744 , p8_a3
745 , p8_a4
746 , p8_a5
747 , p8_a6
748 , p8_a7
749 , p8_a8
750 , p8_a9
751 , p8_a10
755 , p8_a14
752 , p8_a11
753 , p8_a12
754 , p8_a13
756 , p8_a15
757 , p8_a16
758 , p8_a17
759 , p8_a18
760 , p8_a19
761 , p8_a20
762 , p8_a21
763 , p8_a22
764 , p8_a23
765 , p8_a24
766 , p8_a25
767 , p8_a26
768 );
769
770
771
772
773 end;
774
775 procedure create_stages(p_api_version NUMBER
776 , p_init_msg_list VARCHAR2
777 , p_commit VARCHAR2
778 , p_validation_level NUMBER
779 , p_module_type VARCHAR2
780 , p_visit_id NUMBER
781 , p6_a0 in out nocopy JTF_NUMBER_TABLE
782 , p6_a1 in out nocopy JTF_NUMBER_TABLE
783 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_100
784 , p6_a3 in out nocopy JTF_NUMBER_TABLE
785 , p6_a4 in out nocopy JTF_DATE_TABLE
786 , p6_a5 in out nocopy JTF_DATE_TABLE
787 , p6_a6 in out nocopy JTF_DATE_TABLE
788 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
789 , p6_a8 in out nocopy JTF_NUMBER_TABLE
790 , p6_a9 in out nocopy JTF_DATE_TABLE
791 , p6_a10 in out nocopy JTF_NUMBER_TABLE
792 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
793 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_200
794 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_200
795 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_200
796 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_200
797 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_200
798 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_200
799 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_200
800 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_200
801 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_200
802 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
803 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
804 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_200
805 , p6_a24 in out nocopy JTF_VARCHAR2_TABLE_200
806 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_200
807 , p6_a26 in out nocopy JTF_VARCHAR2_TABLE_200
808 , x_return_status out nocopy VARCHAR2
809 , x_msg_count out nocopy NUMBER
810 , x_msg_data out nocopy VARCHAR2
811 )
812
813 as
814 ddp_x_stages_tbl ahl_vwp_visits_stages_pvt.visit_stages_tbl_type;
815 ddindx binary_integer; indx binary_integer;
816 begin
817
818 -- copy data to the local IN or IN-OUT args, if any
819
820
821
822
823
824
825 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_in_p5(ddp_x_stages_tbl, p6_a0
826 , p6_a1
827 , p6_a2
828 , p6_a3
829 , p6_a4
830 , p6_a5
831 , p6_a6
832 , p6_a7
833 , p6_a8
834 , p6_a9
835 , p6_a10
836 , p6_a11
837 , p6_a12
838 , p6_a13
839 , p6_a14
840 , p6_a15
841 , p6_a16
842 , p6_a17
843 , p6_a18
844 , p6_a19
845 , p6_a20
846 , p6_a21
847 , p6_a22
848 , p6_a23
849 , p6_a24
850 , p6_a25
851 , p6_a26
852 );
853
854
855
856
857 -- here's the delegated call to the old PL/SQL routine
858 ahl_vwp_visits_stages_pvt.create_stages(p_api_version,
859 p_init_msg_list,
860 p_commit,
861 p_validation_level,
862 p_module_type,
863 p_visit_id,
864 ddp_x_stages_tbl,
865 x_return_status,
866 x_msg_count,
867 x_msg_data);
868
869 -- copy data back from the local variables to OUT or IN-OUT args, if any
870
871
872
873
874
875
876 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_out_p5(ddp_x_stages_tbl, p6_a0
877 , p6_a1
878 , p6_a2
879 , p6_a3
880 , p6_a4
881 , p6_a5
882 , p6_a6
883 , p6_a7
884 , p6_a8
885 , p6_a9
886 , p6_a10
887 , p6_a11
888 , p6_a12
889 , p6_a13
890 , p6_a14
891 , p6_a15
892 , p6_a16
893 , p6_a17
894 , p6_a18
895 , p6_a19
896 , p6_a20
897 , p6_a21
898 , p6_a22
899 , p6_a23
900 , p6_a24
901 , p6_a25
902 , p6_a26
903 );
904
905
906
907 end;
908
909 procedure delete_stages(p_api_version NUMBER
910 , p_init_msg_list VARCHAR2
911 , p_commit VARCHAR2
912 , p_validation_level NUMBER
913 , p_module_type VARCHAR2
914 , p_visit_id NUMBER
915 , p6_a0 in out nocopy JTF_NUMBER_TABLE
916 , p6_a1 in out nocopy JTF_NUMBER_TABLE
917 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_100
918 , p6_a3 in out nocopy JTF_NUMBER_TABLE
919 , p6_a4 in out nocopy JTF_DATE_TABLE
920 , p6_a5 in out nocopy JTF_DATE_TABLE
921 , p6_a6 in out nocopy JTF_DATE_TABLE
922 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
923 , p6_a8 in out nocopy JTF_NUMBER_TABLE
924 , p6_a9 in out nocopy JTF_DATE_TABLE
925 , p6_a10 in out nocopy JTF_NUMBER_TABLE
926 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
927 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_200
928 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_200
929 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_200
930 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_200
931 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_200
932 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_200
933 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_200
934 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_200
938 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_200
935 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_200
936 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
937 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
939 , p6_a24 in out nocopy JTF_VARCHAR2_TABLE_200
940 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_200
941 , p6_a26 in out nocopy JTF_VARCHAR2_TABLE_200
942 , x_return_status out nocopy VARCHAR2
943 , x_msg_count out nocopy NUMBER
944 , x_msg_data out nocopy VARCHAR2
945 )
946
947 as
948 ddp_x_stages_tbl ahl_vwp_visits_stages_pvt.visit_stages_tbl_type;
949 ddindx binary_integer; indx binary_integer;
950 begin
951
952 -- copy data to the local IN or IN-OUT args, if any
953
954
955
956
957
958
959 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_in_p5(ddp_x_stages_tbl, p6_a0
960 , p6_a1
961 , p6_a2
962 , p6_a3
963 , p6_a4
964 , p6_a5
965 , p6_a6
966 , p6_a7
967 , p6_a8
968 , p6_a9
969 , p6_a10
970 , p6_a11
971 , p6_a12
972 , p6_a13
973 , p6_a14
974 , p6_a15
975 , p6_a16
976 , p6_a17
977 , p6_a18
978 , p6_a19
979 , p6_a20
980 , p6_a21
981 , p6_a22
982 , p6_a23
983 , p6_a24
984 , p6_a25
985 , p6_a26
986 );
987
988
989
990
991 -- here's the delegated call to the old PL/SQL routine
992 ahl_vwp_visits_stages_pvt.delete_stages(p_api_version,
993 p_init_msg_list,
994 p_commit,
995 p_validation_level,
996 p_module_type,
997 p_visit_id,
998 ddp_x_stages_tbl,
999 x_return_status,
1000 x_msg_count,
1001 x_msg_data);
1002
1003 -- copy data back from the local variables to OUT or IN-OUT args, if any
1004
1005
1006
1007
1008
1009
1010 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_out_p5(ddp_x_stages_tbl, p6_a0
1011 , p6_a1
1012 , p6_a2
1013 , p6_a3
1014 , p6_a4
1015 , p6_a5
1016 , p6_a6
1017 , p6_a7
1018 , p6_a8
1019 , p6_a9
1020 , p6_a10
1021 , p6_a11
1022 , p6_a12
1023 , p6_a13
1024 , p6_a14
1025 , p6_a15
1026 , p6_a16
1027 , p6_a17
1028 , p6_a18
1029 , p6_a19
1030 , p6_a20
1031 , p6_a21
1032 , p6_a22
1033 , p6_a23
1034 , p6_a24
1035 , p6_a25
1036 , p6_a26
1037 );
1038
1039
1040
1041 end;
1042
1043 procedure process_stagetyp_assoc(p_api_version NUMBER
1044 , p_init_msg_list VARCHAR2
1045 , p_commit VARCHAR2
1046 , p_validation_level NUMBER
1047 , p4_a0 JTF_NUMBER_TABLE
1048 , p4_a1 JTF_NUMBER_TABLE
1049 , p4_a2 JTF_VARCHAR2_TABLE_100
1050 , p4_a3 JTF_VARCHAR2_TABLE_100
1051 , x_return_status out nocopy VARCHAR2
1052 , x_msg_count out nocopy NUMBER
1053 , x_msg_data out nocopy VARCHAR2
1054 )
1055
1056 as
1057 ddp_stage_type_assoc_tbl ahl_vwp_visits_stages_pvt.stage_type_assoc_tbl_type;
1058 ddindx binary_integer; indx binary_integer;
1059 begin
1060
1061 -- copy data to the local IN or IN-OUT args, if any
1062
1063
1064
1065
1066 ahl_vwp_visits_stages_pvt_w.rosetta_table_copy_in_p7(ddp_stage_type_assoc_tbl, p4_a0
1067 , p4_a1
1068 , p4_a2
1069 , p4_a3
1070 );
1071
1072
1073
1074
1075 -- here's the delegated call to the old PL/SQL routine
1076 ahl_vwp_visits_stages_pvt.process_stagetyp_assoc(p_api_version,
1077 p_init_msg_list,
1078 p_commit,
1079 p_validation_level,
1080 ddp_stage_type_assoc_tbl,
1081 x_return_status,
1082 x_msg_count,
1083 x_msg_data);
1084
1085 -- copy data back from the local variables to OUT or IN-OUT args, if any
1086
1087
1088
1089
1090
1091
1092
1093 end;
1094
1095 procedure validate_stage_rules(p0_a0 NUMBER
1096 , p0_a1 NUMBER
1097 , p0_a2 VARCHAR2
1098 , x_return_status out nocopy VARCHAR2
1099 , x_msg_count out nocopy NUMBER
1100 , x_msg_data out nocopy VARCHAR2
1101 )
1102
1103 as
1104 ddp_stage_rule_rec ahl_vwp_visits_stages_pvt.stage_rule_rec_type;
1105 ddindx binary_integer; indx binary_integer;
1106 begin
1107
1108 -- copy data to the local IN or IN-OUT args, if any
1109 ddp_stage_rule_rec.object_stage_id := p0_a0;
1110 ddp_stage_rule_rec.subject_stage_id := p0_a1;
1111 ddp_stage_rule_rec.relation_type := p0_a2;
1112
1113
1114
1115
1116 -- here's the delegated call to the old PL/SQL routine
1117 ahl_vwp_visits_stages_pvt.validate_stage_rules(ddp_stage_rule_rec,
1118 x_return_status,
1119 x_msg_count,
1120 x_msg_data);
1121
1122 -- copy data back from the local variables to OUT or IN-OUT args, if any
1123
1124
1125
1126 end;
1127
1128 end ahl_vwp_visits_stages_pvt_w;