1: package body jtf_calendar_pub_24hr_w as
2: /* $Header: JTFPC24B.pls 120.2 2005/07/07 12:29:54 abraina 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy jtf_calendar_pub_24hr.shift_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_DATE_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: ) as
43: end loop;
44: end if;
45: end if;
46: end rosetta_table_copy_in_p1;
47: procedure rosetta_table_copy_out_p1(t jtf_calendar_pub_24hr.shift_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
48: , a1 out nocopy JTF_DATE_TABLE
49: , a2 out nocopy JTF_DATE_TABLE
50: , a3 out nocopy JTF_VARCHAR2_TABLE_100
51: ) as
82: end if;
83: end if;
84: end rosetta_table_copy_out_p1;
85:
86: procedure rosetta_table_copy_in_p3(t out nocopy jtf_calendar_pub_24hr.shift_tbl_attributes_type, a0 JTF_NUMBER_TABLE
87: , a1 JTF_DATE_TABLE
88: , a2 JTF_DATE_TABLE
89: , a3 JTF_VARCHAR2_TABLE_100
90: , a4 JTF_VARCHAR2_TABLE_200
137: end loop;
138: end if;
139: end if;
140: end rosetta_table_copy_in_p3;
141: procedure rosetta_table_copy_out_p3(t jtf_calendar_pub_24hr.shift_tbl_attributes_type, a0 out nocopy JTF_NUMBER_TABLE
142: , a1 out nocopy JTF_DATE_TABLE
143: , a2 out nocopy JTF_DATE_TABLE
144: , a3 out nocopy JTF_VARCHAR2_TABLE_100
145: , a4 out nocopy JTF_VARCHAR2_TABLE_200
269:
270: as
271: ddp_start_date date;
272: ddp_end_date date;
273: ddx_shift jtf_calendar_pub_24hr.shift_tbl_type;
274: ddindx binary_integer; indx binary_integer;
275: begin
276:
277: -- copy data to the local IN or IN-OUT args, if any
287:
288:
289:
290: -- here's the delegated call to the old PL/SQL routine
291: jtf_calendar_pub_24hr.get_available_time(p_api_version,
292: p_init_msg_list,
293: p_resource_id,
294: p_resource_type,
295: ddp_start_date,
308:
309:
310:
311:
312: jtf_calendar_pub_24hr_w.rosetta_table_copy_out_p1(ddx_shift, p9_a0
313: , p9_a1
314: , p9_a2
315: , p9_a3
316: );
355:
356:
357:
358: -- here's the delegated call to the old PL/SQL routine
359: jtf_calendar_pub_24hr.get_available_slot(p_api_version,
360: p_init_msg_list,
361: p_resource_id,
362: p_resource_type,
363: ddp_start_date_time,
404:
405: as
406: ddp_start_date date;
407: ddp_end_date date;
408: ddx_shift jtf_calendar_pub_24hr.shift_tbl_type;
409: ddindx binary_integer; indx binary_integer;
410: begin
411:
412: -- copy data to the local IN or IN-OUT args, if any
422:
423:
424:
425: -- here's the delegated call to the old PL/SQL routine
426: jtf_calendar_pub_24hr.get_resource_shifts(p_api_version,
427: p_init_msg_list,
428: p_resource_id,
429: p_resource_type,
430: ddp_start_date,
443:
444:
445:
446:
447: jtf_calendar_pub_24hr_w.rosetta_table_copy_out_p1(ddx_shift, p9_a0
448: , p9_a1
449: , p9_a2
450: , p9_a3
451: );
483:
484: as
485: ddp_start_date date;
486: ddp_end_date date;
487: ddx_shift jtf_calendar_pub_24hr.shift_tbl_attributes_type;
488: ddindx binary_integer; indx binary_integer;
489: begin
490:
491: -- copy data to the local IN or IN-OUT args, if any
501:
502:
503:
504: -- here's the delegated call to the old PL/SQL routine
505: jtf_calendar_pub_24hr.get_resource_shifts(p_api_version,
506: p_init_msg_list,
507: p_resource_id,
508: p_resource_type,
509: ddp_start_date,
522:
523:
524:
525:
526: jtf_calendar_pub_24hr_w.rosetta_table_copy_out_p3(ddx_shift, p9_a0
527: , p9_a1
528: , p9_a2
529: , p9_a3
530: , p9_a4
574:
575:
576:
577: -- here's the delegated call to the old PL/SQL routine
578: jtf_calendar_pub_24hr.is_res_available(p_api_version,
579: p_init_msg_list,
580: p_resource_id,
581: p_resource_type,
582: ddp_start_date_time,
615:
616: as
617: ddp_start_date date;
618: ddp_end_date date;
619: ddx_shift jtf_calendar_pub_24hr.shift_tbl_type;
620: ddindx binary_integer; indx binary_integer;
621: begin
622:
623: -- copy data to the local IN or IN-OUT args, if any
633:
634:
635:
636: -- here's the delegated call to the old PL/SQL routine
637: jtf_calendar_pub_24hr.get_res_schedule(p_api_version,
638: p_init_msg_list,
639: p_resource_id,
640: p_resource_type,
641: ddp_start_date,
654:
655:
656:
657:
658: jtf_calendar_pub_24hr_w.rosetta_table_copy_out_p1(ddx_shift, p9_a0
659: , p9_a1
660: , p9_a2
661: , p9_a3
662: );
678:
679:
680:
681: -- here's the delegated call to the old PL/SQL routine
682: ddrosetta_retval := jtf_calendar_pub_24hr.resourcedt_to_serverdt(ddp_resource_dttime,
683: p_resource_tz_id,
684: p_server_tz_id);
685:
686: -- copy data back from the local variables to OUT or IN-OUT args, if any
705:
706: ddp_shift_date := rosetta_g_miss_date_in_map(p_shift_date);
707:
708: -- here's the delegated call to the old PL/SQL routine
709: ddrosetta_retval := jtf_calendar_pub_24hr.validate_cal_date(p_calendar_id,
710: ddp_shift_date);
711:
712: -- copy data back from the local variables to OUT or IN-OUT args, if any
713: if ddrosetta_retval is null
718: end if;
719:
720: end;
721:
722: end jtf_calendar_pub_24hr_w;