[Home] [Help]
PACKAGE BODY: APPS.PQP_RIW_CLASS_WRAPPER
Source
1 PACKAGE BODY pqp_riw_class_wrapper as
2 /* $Header: pqpriwclwr.pkb 120.0.12010000.6 2009/01/21 13:49:35 sbrahmad noship $ */
3
4 -- =============================================================================
5 -- ~ Package Body Global variables:
6 -- =============================================================================
7 g_package varchar2(33) := 'pqp_riw_class_wrapper';
8 PROCEDURE InsUpd_Class
9 (p_effective_date in date default sysdate
10 ,p_event_id in number default null
11 ,p_vendor_id in number default null
12 ,p_activity_version_id in number default null
13 ,p_dummy_col_offering in varchar2
14 ,p_parent_offering_id in number
15 ,p_business_group_id in number
16 ,p_organization_id in number default null
17 ,p_event_type in varchar2
18 ,p_object_version_number in number
19 ,p_title in varchar2
20 ,p_budget_cost in number default null
21 ,p_actual_cost in number default null
22 ,p_budget_currency_code in varchar2 default null
23 ,p_centre in varchar2 default null
24 ,p_comments in varchar2 default null
25 ,p_course_end_date in date default null
26 ,p_course_end_time in varchar2 default null
27 ,p_course_start_date in date default null
28 ,p_course_start_time in varchar2 default null
29 ,p_duration in number default null
30 ,p_duration_units in varchar2 default null
31 ,p_enrolment_end_date in date default null
32 ,p_enrolment_start_date in date default null
33 ,p_language_id in number default null
34 ,p_user_status in varchar2 default null
35 ,p_development_event_type in varchar2 default null
36 ,p_event_status in varchar2 default null
37 ,p_price_basis in varchar2 default null
38 ,p_currency_code in varchar2 default null
39 ,p_maximum_attendees in number default null
40 ,p_maximum_internal_attendees in number default null
41 ,p_minimum_attendees in number default null
42 ,p_standard_price in number default null
43 ,p_category_code in varchar2 default null
44 ,p_parent_event_id in number default null
45 ,p_book_independent_flag in varchar2 default null
46 ,p_public_event_flag in varchar2 default null
47 ,p_secure_event_flag in varchar2 default null
48 ,p_evt_information_category in varchar2 default null
49 ,p_evt_information1 in varchar2 default null
50 ,p_evt_information2 in varchar2 default null
51 ,p_evt_information3 in varchar2 default null
52 ,p_evt_information4 in varchar2 default null
53 ,p_evt_information5 in varchar2 default null
54 ,p_evt_information6 in varchar2 default null
55 ,p_evt_information7 in varchar2 default null
56 ,p_evt_information8 in varchar2 default null
57 ,p_evt_information9 in varchar2 default null
58 ,p_evt_information10 in varchar2 default null
59 ,p_evt_information11 in varchar2 default null
60 ,p_evt_information12 in varchar2 default null
61 ,p_evt_information13 in varchar2 default null
62 ,p_evt_information14 in varchar2 default null
63 ,p_evt_information15 in varchar2 default null
64 ,p_evt_information16 in varchar2 default null
65 ,p_evt_information17 in varchar2 default null
66 ,p_evt_information18 in varchar2 default null
67 ,p_evt_information19 in varchar2 default null
68 ,p_evt_information20 in varchar2 default null
69 ,p_project_id in number default null
70 ,p_owner_id in number default null
71 ,p_line_id in number default null
72 ,p_org_id in number default null
73 ,p_training_center_id in number default null
74 ,p_location_id in number default null
75 ,p_offering_id in number default null
76 ,p_timezone in varchar2 default null
77 ,p_validate in number default hr_api.g_false_num
78 ,p_return_status out nocopy varchar2
79 ,p_data_source in varchar2 default null
80 ,P_CRT_UPD in varchar2 default null
81 ) is
82
83
84 -- =============================================================================
85 -- Variables for API Boolean parameters
86 -- =============================================================================
87
88 l_validate boolean;
89 -- =============================================================================
90 -- Variables for IN/OUT parameters
91 -- =============================================================================
92 l_event_id ota_events.event_id%TYPE;
93
94 -- =============================================================================
95 -- Other variables
96 -- =============================================================================
97
98 l_error_msg varchar2(4000);
99
100 -- =============================================================================
101 -- Default_Record_Values:
102 -- =============================================================================
103
104
105 l_proc varchar2(72) := g_package ||'InsUpd_Class';
106
107 l_create_flag number(2) := 1;
108 l_public_event_flag varchar2(30);
109 e_upl_not_allowed exception; -- when mode is 'View Only'
110 e_crt_not_allowed exception; -- when mode is 'Update Only'
111 g_upl_err_msg varchar2(100) := 'Upload NOT allowed.';
112 g_crt_err_msg varchar2(100) := 'Creating NOT allowed.';
113
114 l_ev_id number(9,0);
115 l_obj_ver_num number(3);
116 l_object_version_number number(3);
117
118 Begin
119 --hr_utility.trace_on(null, 'Class_Trace');
120 hr_utility.set_location('Entering: '|| l_proc, 11);
121 l_validate := hr_api.constant_to_boolean (p_constant_value => p_validate);
122 l_event_id := p_event_id;
123 --
124 -- Call API
125 --
126 if l_event_id is not null then
127 l_create_flag := 2;
128 else
129 l_create_flag := 1;
130 end if;
131
132 if(p_public_event_flag is not null)then
133 if (p_public_event_flag ='Y') then -- If restricted public event flag is set to 'N'
134 l_public_event_flag :='N';
135 end if;
136 if (p_public_event_flag ='N') then -- If unrestricted public event flag is set to 'Y'
137 l_public_event_flag :='Y';
138 end if;
139 end if;
140
141 if (P_CRT_UPD = 'D') then
142 raise e_upl_not_allowed; -- View only flag is enabled but Trying to Upload
143 end if;
144 if (P_CRT_UPD = 'U' and l_create_flag = 1) then
145 raise e_crt_not_allowed; -- Update only flag is enabled but Trying to Create
146 end if;
147
148 hr_utility.set_location('The class Id is : '||l_event_id, 89);
149
150 if l_create_flag = 1 then
151 ota_event_api.create_class
152 (p_effective_date => p_effective_date
153 ,p_event_id => l_ev_id
154 ,p_vendor_id => p_vendor_id
155 ,p_activity_version_id => p_activity_version_id
156 ,p_business_group_id => p_business_group_id
157 ,p_organization_id => p_organization_id
158 ,p_event_type => p_event_type
159 ,p_object_version_number => l_obj_ver_num
160 ,p_title => p_title
161 ,p_budget_cost => p_budget_cost
162 ,p_actual_cost => p_actual_cost
163 ,p_budget_currency_code => p_budget_currency_code
164 ,p_centre => p_centre
165 ,p_comments => p_comments
166 ,p_course_end_date => p_course_end_date
167 ,p_course_end_time => p_course_end_time
168 ,p_course_start_date => p_course_start_date
169 ,p_course_start_time => p_course_start_time
170 ,p_duration => p_duration
171 ,p_duration_units => p_duration_units
172 ,p_enrolment_end_date => p_enrolment_end_date
173 ,p_enrolment_start_date => p_enrolment_start_date
174 ,p_language_id => p_language_id
175 ,p_user_status => p_user_status
176 ,p_development_event_type => p_development_event_type
177 ,p_event_status => p_event_status
178 ,p_price_basis => p_price_basis
179 ,p_currency_code => p_currency_code
180 ,p_maximum_attendees => p_maximum_attendees
181 ,p_maximum_internal_attendees => p_maximum_internal_attendees
182 ,p_minimum_attendees => p_minimum_attendees
183 ,p_standard_price => p_standard_price
184 ,p_category_code => p_category_code
185 ,p_parent_event_id => p_parent_event_id
186 ,p_book_independent_flag => p_book_independent_flag
187 ,p_public_event_flag => l_public_event_flag
188 ,p_secure_event_flag => p_secure_event_flag
189 ,p_evt_information_category => p_evt_information_category
190 ,p_evt_information1 => p_evt_information1
191 ,p_evt_information2 => p_evt_information2
192 ,p_evt_information3 => p_evt_information3
193 ,p_evt_information4 => p_evt_information4
194 ,p_evt_information5 => p_evt_information5
195 ,p_evt_information6 => p_evt_information6
196 ,p_evt_information7 => p_evt_information7
197 ,p_evt_information8 => p_evt_information8
198 ,p_evt_information9 => p_evt_information9
199 ,p_evt_information10 => p_evt_information10
200 ,p_evt_information11 => p_evt_information11
201 ,p_evt_information12 => p_evt_information12
202 ,p_evt_information13 => p_evt_information13
203 ,p_evt_information14 => p_evt_information14
204 ,p_evt_information15 => p_evt_information15
205 ,p_evt_information16 => p_evt_information16
206 ,p_evt_information17 => p_evt_information17
207 ,p_evt_information18 => p_evt_information18
208 ,p_evt_information19 => p_evt_information19
209 ,p_evt_information20 => p_evt_information20
210 ,p_project_id => p_project_id
211 ,p_owner_id => p_owner_id
212 ,p_line_id => p_line_id
213 ,p_org_id => p_org_id
214 ,p_training_center_id => p_training_center_id
215 ,p_location_id => p_location_id
216 ,p_offering_id => p_offering_id
217 ,p_timezone => p_timezone
218 ,p_parent_offering_id => p_parent_offering_id
219 ,p_validate => l_validate
220 ,p_data_source => p_data_source
221 );
222 end if;
223
224
225 if l_create_flag = 2 then
226 select object_version_number into l_object_version_number from ota_events
227 where event_id = l_event_id;
228 ota_event_api.update_class
229 (p_effective_date => p_effective_date
230 ,p_event_id => l_event_id
231 ,p_vendor_id => p_vendor_id
232 ,p_activity_version_id => p_activity_version_id
233 ,p_business_group_id => p_business_group_id
234 ,p_organization_id => p_organization_id
235 ,p_event_type => p_event_type
236 ,p_object_version_number => l_object_version_number
237 ,p_title => p_title
238 ,p_budget_cost => p_budget_cost
239 ,p_actual_cost => p_actual_cost
240 ,p_budget_currency_code => p_budget_currency_code
241 ,p_centre => p_centre
242 ,p_comments => p_comments
243 ,p_course_end_date => p_course_end_date
244 ,p_course_end_time => p_course_end_time
245 ,p_course_start_date => p_course_start_date
246 ,p_course_start_time => p_course_start_time
247 ,p_duration => p_duration
248 ,p_duration_units => p_duration_units
249 ,p_enrolment_end_date => p_enrolment_end_date
250 ,p_enrolment_start_date => p_enrolment_start_date
251 ,p_language_id => p_language_id
252 ,p_user_status => p_user_status
253 ,p_development_event_type => p_development_event_type
254 ,p_event_status => p_event_status
255 ,p_price_basis => p_price_basis
256 ,p_currency_code => p_currency_code
257 ,p_maximum_attendees => p_maximum_attendees
258 ,p_maximum_internal_attendees => p_maximum_internal_attendees
259 ,p_minimum_attendees => p_minimum_attendees
260 ,p_standard_price => p_standard_price
261 ,p_category_code => p_category_code
262 ,p_parent_event_id => p_parent_event_id
263 ,p_book_independent_flag => p_book_independent_flag
264 ,p_public_event_flag => l_public_event_flag
265 ,p_secure_event_flag => p_secure_event_flag
266 ,p_evt_information_category => p_evt_information_category
267 ,p_evt_information1 => p_evt_information1
268 ,p_evt_information2 => p_evt_information2
269 ,p_evt_information3 => p_evt_information3
270 ,p_evt_information4 => p_evt_information4
271 ,p_evt_information5 => p_evt_information5
272 ,p_evt_information6 => p_evt_information6
273 ,p_evt_information7 => p_evt_information7
274 ,p_evt_information8 => p_evt_information8
275 ,p_evt_information9 => p_evt_information9
276 ,p_evt_information10 => p_evt_information10
277 ,p_evt_information11 => p_evt_information11
278 ,p_evt_information12 => p_evt_information12
279 ,p_evt_information13 => p_evt_information13
280 ,p_evt_information14 => p_evt_information14
281 ,p_evt_information15 => p_evt_information15
282 ,p_evt_information16 => p_evt_information16
283 ,p_evt_information17 => p_evt_information17
284 ,p_evt_information18 => p_evt_information18
285 ,p_evt_information19 => p_evt_information19
286 ,p_evt_information20 => p_evt_information20
287 ,p_project_id => p_project_id
288 ,p_owner_id => p_owner_id
289 ,p_line_id => p_line_id
290 ,p_org_id => p_org_id
291 ,p_training_center_id => p_training_center_id
292 ,p_location_id => p_location_id
293 ,p_offering_id => p_offering_id
294 ,p_timezone => p_timezone
295 ,p_parent_offering_id => p_parent_offering_id
296 ,p_validate => l_validate
297 ,p_data_source => p_data_source
298 );
299 end if;
300
301 Exception
302
303 when e_upl_not_allowed then
304 hr_utility.set_message(8303, 'PQP_230500_HROSS_GENERIC_ERR');
305 hr_utility.set_message_token('GENERIC_TOKEN',g_upl_err_msg);
306 hr_utility.set_location('Leaving: ' || l_proc, 90);
307 hr_utility.raise_error;
308 when e_crt_not_allowed then
309 hr_utility.set_message(8303, 'PQP_230500_HROSS_GENERIC_ERR');
310 hr_utility.set_message_token('GENERIC_TOKEN',g_crt_err_msg);
311 hr_utility.set_location('Leaving: ' || l_proc, 100);
312 hr_utility.raise_error;
313 when others then
314 --l_error_msg := Substr(SQLERRM,1,2000);
315 hr_utility.set_location('SQLCODE :' || SQLCODE,90);
316 hr_utility.set_location('SQLERRM :' || SQLERRM,90);
317 --hr_utility.set_message(8303, 'PQP_230500_HROSS_GENERIC_ERR');
318 --hr_utility.set_message_token('GENERIC_TOKEN',substr(l_error_msg,1,500) );
319 hr_utility.set_location(' Leaving:' || l_proc,50);
320 hr_utility.raise_error;
321
322
323
324 end InsUpd_Class;
325
326 end pqp_riw_class_wrapper;