[Home] [Help]
PACKAGE BODY: APPS.JTF_CAL_ITEMS_PUB_W
Source
1 package body jtf_cal_items_pub_w as
2 /* $Header: jtfcwitb.pls 120.2 2006/04/28 00:15 deeprao 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 createitem(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , x_return_status out nocopy VARCHAR2
20 , x_msg_count out nocopy NUMBER
21 , x_msg_data out nocopy VARCHAR2
22 , p6_a0 NUMBER
23 , p6_a1 VARCHAR2
24 , p6_a2 NUMBER
25 , p6_a3 VARCHAR2
26 , p6_a4 VARCHAR2
27 , p6_a5 VARCHAR2
28 , p6_a6 VARCHAR2
29 , p6_a7 NUMBER
30 , p6_a8 DATE
31 , p6_a9 DATE
32 , p6_a10 NUMBER
33 , p6_a11 VARCHAR2
34 , p6_a12 NUMBER
35 , p6_a13 DATE
36 , p6_a14 NUMBER
37 , p6_a15 DATE
38 , p6_a16 NUMBER
39 , p6_a17 NUMBER
40 , p6_a18 NUMBER
41 , x_cal_item_id out nocopy NUMBER
42 )
43
44 as
45 ddp_itm_rec jtf_cal_items_pub.calitemrec;
46 ddindx binary_integer; indx binary_integer;
47 begin
48
49 -- copy data to the local IN or IN-OUT args, if any
50
51
52
53
54
55
56 ddp_itm_rec.cal_resource_id := p6_a0;
57 ddp_itm_rec.cal_resource_type := p6_a1;
58 ddp_itm_rec.cal_item_id := p6_a2;
59 ddp_itm_rec.item_type_code := p6_a3;
60 ddp_itm_rec.item_name := p6_a4;
61 ddp_itm_rec.item_description := p6_a5;
62 ddp_itm_rec.source_code := p6_a6;
63 ddp_itm_rec.source_id := p6_a7;
64 ddp_itm_rec.start_date := rosetta_g_miss_date_in_map(p6_a8);
65 ddp_itm_rec.end_date := rosetta_g_miss_date_in_map(p6_a9);
66 ddp_itm_rec.timezone_id := p6_a10;
67 ddp_itm_rec.url := p6_a11;
68 ddp_itm_rec.created_by := p6_a12;
69 ddp_itm_rec.creation_date := rosetta_g_miss_date_in_map(p6_a13);
70 ddp_itm_rec.last_updated_by := p6_a14;
71 ddp_itm_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a15);
72 ddp_itm_rec.last_update_login := p6_a16;
73 ddp_itm_rec.object_version_number := p6_a17;
74 ddp_itm_rec.application_id := p6_a18;
75
76
77 -- here's the delegated call to the old PL/SQL routine
78 jtf_cal_items_pub.createitem(p_api_version,
79 p_init_msg_list,
80 p_commit,
81 x_return_status,
82 x_msg_count,
83 x_msg_data,
84 ddp_itm_rec,
85 x_cal_item_id);
86
87 -- copy data back from the local variables to OUT or IN-OUT args, if any
88
89
90
91
92
93
94
95 end;
96
97 procedure updateitem(p_api_version NUMBER
98 , p_init_msg_list VARCHAR2
99 , p_commit VARCHAR2
100 , p_validation_level NUMBER
101 , x_return_status out nocopy VARCHAR2
102 , x_msg_count out nocopy NUMBER
103 , x_msg_data out nocopy VARCHAR2
104 , p7_a0 NUMBER
105 , p7_a1 VARCHAR2
106 , p7_a2 NUMBER
107 , p7_a3 VARCHAR2
108 , p7_a4 VARCHAR2
109 , p7_a5 VARCHAR2
110 , p7_a6 VARCHAR2
111 , p7_a7 NUMBER
112 , p7_a8 DATE
113 , p7_a9 DATE
114 , p7_a10 NUMBER
115 , p7_a11 VARCHAR2
116 , p7_a12 NUMBER
117 , p7_a13 DATE
118 , p7_a14 NUMBER
119 , p7_a15 DATE
120 , p7_a16 NUMBER
121 , p7_a17 NUMBER
122 , p7_a18 NUMBER
123 , x_object_version_number out nocopy NUMBER
124 )
125
126 as
127 ddp_itm_rec jtf_cal_items_pub.calitemrec;
128 ddindx binary_integer; indx binary_integer;
129 begin
130
131 -- copy data to the local IN or IN-OUT args, if any
132
133
134
135
136
137
138
139 ddp_itm_rec.cal_resource_id := p7_a0;
140 ddp_itm_rec.cal_resource_type := p7_a1;
141 ddp_itm_rec.cal_item_id := p7_a2;
142 ddp_itm_rec.item_type_code := p7_a3;
143 ddp_itm_rec.item_name := p7_a4;
144 ddp_itm_rec.item_description := p7_a5;
145 ddp_itm_rec.source_code := p7_a6;
146 ddp_itm_rec.source_id := p7_a7;
147 ddp_itm_rec.start_date := rosetta_g_miss_date_in_map(p7_a8);
148 ddp_itm_rec.end_date := rosetta_g_miss_date_in_map(p7_a9);
149 ddp_itm_rec.timezone_id := p7_a10;
150 ddp_itm_rec.url := p7_a11;
151 ddp_itm_rec.created_by := p7_a12;
152 ddp_itm_rec.creation_date := rosetta_g_miss_date_in_map(p7_a13);
153 ddp_itm_rec.last_updated_by := p7_a14;
154 ddp_itm_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a15);
155 ddp_itm_rec.last_update_login := p7_a16;
156 ddp_itm_rec.object_version_number := p7_a17;
157 ddp_itm_rec.application_id := p7_a18;
158
159
160 -- here's the delegated call to the old PL/SQL routine
161 jtf_cal_items_pub.updateitem(p_api_version,
162 p_init_msg_list,
163 p_commit,
164 p_validation_level,
165 x_return_status,
166 x_msg_count,
167 x_msg_data,
168 ddp_itm_rec,
169 x_object_version_number);
170
171 -- copy data back from the local variables to OUT or IN-OUT args, if any
172
173
174
175
176
177
178
179
180 end;
181
182 end jtf_cal_items_pub_w;