1 package body ams_eventschedule_copy_pvt_w as
2 /* $Header: amswescb.pls 115.4 2004/04/08 09:11:12 anchaudh 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
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure copy_event_schedule(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status OUT NOCOPY VARCHAR2
27 , x_msg_count OUT NOCOPY NUMBER
28 , x_msg_data OUT NOCOPY VARCHAR2
29 , p_source_object_id NUMBER
30 , p_attributes_table JTF_VARCHAR2_TABLE_100
31 , p9_a0 JTF_VARCHAR2_TABLE_100
32 , p9_a1 JTF_VARCHAR2_TABLE_4000
33 , x_new_object_id OUT NOCOPY NUMBER
34 , x_custom_setup_id OUT NOCOPY NUMBER
35 )
36 as
37 ddp_attributes_table ams_cpyutility_pvt.copy_attributes_table_type;
38 ddp_copy_columns_table ams_cpyutility_pvt.copy_columns_table_type;
39 ddindx binary_integer; indx binary_integer;
40 begin
41
42 -- copy data to the local IN or IN-OUT args, if any
43
44
45
46
47
48
49
50
51 ams_cpyutility_pvt_w.rosetta_table_copy_in_p0(ddp_attributes_table, p_attributes_table);
52
53 ams_cpyutility_pvt_w.rosetta_table_copy_in_p2(ddp_copy_columns_table, p9_a0
54 , p9_a1
55 );
56
57
58
59 -- here's the delegated call to the old PL/SQL routine
60 ams_eventschedule_copy_pvt.copy_event_schedule(p_api_version,
61 p_init_msg_list,
62 p_commit,
63 p_validation_level,
64 x_return_status,
65 x_msg_count,
66 x_msg_data,
67 p_source_object_id,
68 ddp_attributes_table,
69 ddp_copy_columns_table,
70 x_new_object_id,
71 x_custom_setup_id);
72
73 -- copy data back from the local OUT or IN-OUT args, if any
74
75
76
77
78
79
80
81
82
83
84
85 end;
86
87 end ams_eventschedule_copy_pvt_w;