[Home] [Help]
PACKAGE BODY: APPS.OTA_RESOURCE_BOOKING
Source
1 package body ota_resource_booking as
2 /* $Header: ottrb03t.pkb 120.2 2006/03/15 02:21:44 niarora noship $ */
3 --
4 Procedure ins
5 (
6 p_resource_booking_id out nocopy number,
7 p_supplied_resource_id in number,
8 p_event_id in number default null,
9 p_date_booking_placed in date,
10 p_object_version_number out nocopy number,
11 p_status in varchar2,
12 p_absolute_price in number default null,
13 p_booking_person_id in number default null,
14 p_comments in varchar2 default null,
15 p_contact_name in varchar2 default null,
16 p_contact_phone_number in varchar2 default null,
17 p_delegates_per_unit in number default null,
18 p_quantity in number default null,
19 p_required_date_from in date default null,
20 p_required_date_to in date default null,
21 p_required_end_time in varchar2 default null,
22 p_required_start_time in varchar2 default null,
23 p_deliver_to in varchar2 default null,
24 p_primary_venue_flag in varchar2 default null,
25 p_role_to_play in varchar2 default null,
26 p_trb_information_category in varchar2 default null,
27 p_trb_information1 in varchar2 default null,
28 p_trb_information2 in varchar2 default null,
29 p_trb_information3 in varchar2 default null,
30 p_trb_information4 in varchar2 default null,
31 p_trb_information5 in varchar2 default null,
32 p_trb_information6 in varchar2 default null,
33 p_trb_information7 in varchar2 default null,
34 p_trb_information8 in varchar2 default null,
35 p_trb_information9 in varchar2 default null,
36 p_trb_information10 in varchar2 default null,
37 p_trb_information11 in varchar2 default null,
38 p_trb_information12 in varchar2 default null,
39 p_trb_information13 in varchar2 default null,
40 p_trb_information14 in varchar2 default null,
41 p_trb_information15 in varchar2 default null,
42 p_trb_information16 in varchar2 default null,
43 p_trb_information17 in varchar2 default null,
44 p_trb_information18 in varchar2 default null,
45 p_trb_information19 in varchar2 default null,
46 p_trb_information20 in varchar2 default null,
47 p_finance_header_id in number default null,
48 p_currency_code in varchar2 default null,
49 p_money_amount in number default null,
50 p_finance_line_id out nocopy number,
51 p_finance_line_ovn out nocopy number,
52 p_display_to_learner_flag in varchar2 default null,
53 p_book_entire_period_flag in varchar2 default null,
54 p_chat_id in number default null,
55 p_forum_id in number default null,
56 p_timezone_code in varchar2 default null
57 ) is
58 --
59 l_resource_booking_id number;
60 l_object_version_number number;
61 l_finance_line_id number;
62 l_finance_line_ovn number;
63 --
64 begin
65
66 ota_resource_booking_api.create_resource_booking
67 ( sysdate
68 ,p_supplied_resource_id
69 ,p_date_booking_placed
70 ,p_status
71 ,p_event_id
72 ,p_absolute_price
73 ,p_booking_person_id
74 ,p_comments
75 ,p_contact_name
76 ,p_contact_phone_number
77 ,p_delegates_per_unit
78 ,p_quantity
79 ,p_required_date_from
80 ,p_required_date_to
81 ,p_required_end_time
82 ,p_required_start_time
83 ,p_deliver_to
84 ,p_primary_venue_flag
85 ,p_role_to_play
86 ,p_trb_information_category
87 ,p_trb_information1
88 ,p_trb_information2
89 ,p_trb_information3
90 ,p_trb_information4
91 ,p_trb_information5
92 ,p_trb_information6
93 ,p_trb_information7
94 ,p_trb_information8
95 ,p_trb_information9
96 ,p_trb_information10
97 ,p_trb_information11
98 ,p_trb_information12
99 ,p_trb_information13
100 ,p_trb_information14
101 ,p_trb_information15
102 ,p_trb_information16
103 ,p_trb_information17
104 ,p_trb_information18
105 ,p_trb_information19
106 ,p_trb_information20
107 ,p_display_to_learner_flag
108 ,p_book_entire_period_flag
109 ,p_chat_id
110 ,p_forum_id
111 ,FALSE
112 ,l_resource_booking_id
113 ,l_object_version_number,
114 p_timezone_code
115 );
116 --
117 p_resource_booking_id := l_resource_booking_id;
118 p_object_version_number := l_object_version_number;
119 --
120 if p_money_amount is not null then
121 ota_finance.maintain_finance_line
122 ( p_finance_header_id => p_finance_header_id
123 , p_currency_code => p_currency_code
124 , p_money_amount => p_money_amount
125 , p_resource_booking_id => l_resource_booking_id
126 , p_finance_line_id => l_finance_line_id
127 , p_object_version_number => l_finance_line_ovn
128 );
129 --
130 p_finance_line_id := l_finance_line_id;
131 p_finance_line_ovn := l_finance_line_ovn;
132 --
133 end if;
134 --
135 end ins;
136 -------------------------------------------------------------------
137 Procedure upd
138 (
139 p_resource_booking_id in number,
140 p_supplied_resource_id in number,
141 p_event_id in number default null,
142 p_date_booking_placed in date,
143 p_object_version_number in out nocopy number,
144 p_status in varchar2,
145 p_absolute_price in number default null,
146 p_booking_person_id in number default null,
147 p_comments in varchar2 default null,
148 p_contact_name in varchar2 default null,
149 p_contact_phone_number in varchar2 default null,
150 p_delegates_per_unit in number default null,
151 p_quantity in number default null,
152 p_required_date_from in date default null,
153 p_required_date_to in date default null,
154 p_required_end_time in varchar2 default null,
155 p_required_start_time in varchar2 default null,
156 p_deliver_to in varchar2 default null,
157 p_primary_venue_flag in varchar2 default null,
158 p_role_to_play in varchar2 default null,
159 p_trb_information_category in varchar2 default null,
160 p_trb_information1 in varchar2 default null,
161 p_trb_information2 in varchar2 default null,
162 p_trb_information3 in varchar2 default null,
163 p_trb_information4 in varchar2 default null,
164 p_trb_information5 in varchar2 default null,
165 p_trb_information6 in varchar2 default null,
166 p_trb_information7 in varchar2 default null,
167 p_trb_information8 in varchar2 default null,
168 p_trb_information9 in varchar2 default null,
169 p_trb_information10 in varchar2 default null,
170 p_trb_information11 in varchar2 default null,
171 p_trb_information12 in varchar2 default null,
172 p_trb_information13 in varchar2 default null,
173 p_trb_information14 in varchar2 default null,
174 p_trb_information15 in varchar2 default null,
175 p_trb_information16 in varchar2 default null,
176 p_trb_information17 in varchar2 default null,
177 p_trb_information18 in varchar2 default null,
178 p_trb_information19 in varchar2 default null,
179 p_trb_information20 in varchar2 default null,
180 p_finance_header_id in number default null,
181 p_currency_code in varchar2 default null,
182 p_money_amount in number default null,
183 p_finance_line_id in out nocopy number,
184 p_finance_line_transfer in varchar2 default null,
185 p_finance_line_ovn in out nocopy number,
186 p_cancel_finance_line in varchar2 default null,
187 p_finance_change_flag in varchar2 default 'N',
188 p_display_to_learner_flag in varchar2 default hr_api.g_varchar2,
189 p_book_entire_period_flag in varchar2 default hr_api.g_varchar2,
190 p_chat_id in number default null,
191 p_forum_id in number default null,
192 p_timezone_code in varchar2 default hr_api.g_varchar2
193 ) is
194 --
195 l_object_version_number number;
196 l_finance_line_id number;
197 l_finance_function varchar2(1);
198 l_cancelled_flag varchar2(1);
199 --
200 l_proc varchar2(80) := 'ota_resource_booking.upd';
201 --
202 begin
203 --
204 l_object_version_number := p_object_version_number;
205
206 hr_utility.set_location('Entering:'||l_proc, 5);
207 ota_resource_booking_api.update_resource_booking
208 ( sysdate
209 ,p_supplied_resource_id
210 ,p_date_booking_placed
211 ,p_status
212 ,p_event_id
213 ,p_absolute_price
214 ,p_booking_person_id
215 ,p_comments
216 ,p_contact_name
217 ,p_contact_phone_number
218 ,p_delegates_per_unit
219 ,p_quantity
220 ,p_required_date_from
221 ,p_required_date_to
222 ,p_required_end_time
223 ,p_required_start_time
224 ,p_deliver_to
225 ,p_primary_venue_flag
226 ,p_role_to_play
227 ,p_trb_information_category
228 ,p_trb_information1
229 ,p_trb_information2
230 ,p_trb_information3
231 ,p_trb_information4
232 ,p_trb_information5
233 ,p_trb_information6
234 ,p_trb_information7
235 ,p_trb_information8
236 ,p_trb_information9
237 ,p_trb_information10
238 ,p_trb_information11
239 ,p_trb_information12
240 ,p_trb_information13
241 ,p_trb_information14
242 ,p_trb_information15
243 ,p_trb_information16
244 ,p_trb_information17
245 ,p_trb_information18
246 ,p_trb_information19
247 ,p_trb_information20
248 ,p_display_to_learner_flag
249 ,p_book_entire_period_flag
250 ,p_chat_id
251 ,p_forum_id
252 ,FALSE
253 ,P_resource_booking_id
254 ,l_object_version_number,
255 p_timezone_code
256 );
257 --
258 p_object_version_number := l_object_version_number;
259
260 hr_utility.set_location('Entering:'||l_proc, 10);
261 if p_finance_change_flag = 'Y' then
262 if p_finance_line_id is null then
263 if p_money_amount is not null then
264 l_finance_function := 'I';
265 end if;
266 elsif
267 p_cancel_finance_line = 'Y' then
268 l_finance_function := 'C';
269 elsif
270 p_money_amount is not null then
271 l_finance_function := 'U';
272 end if;
273 end if;
274 --
275 hr_utility.set_location('Entering:'||l_proc, 15);
276 hr_utility.trace('L_FINANCE_FUNCTION = '||l_finance_function);
277 if l_finance_function = 'I' then
278 --
279 ota_finance.maintain_finance_line
280 ( p_finance_header_id => p_finance_header_id
281 , p_currency_code => p_currency_code
282 , p_money_amount => p_money_amount
283 , p_resource_booking_id => p_resource_booking_id
284 , p_finance_line_id => l_finance_line_id
285 , p_object_version_number => p_finance_line_ovn
286 );
287 --
288 p_finance_line_id := l_finance_line_id;
289 --
290 elsif l_finance_function = 'U' then
291 --
292 ota_finance.maintain_finance_line
293 ( p_finance_header_id => p_finance_header_id
294 , p_finance_line_id => p_finance_line_id
295 , p_object_version_number => p_finance_line_ovn
296 , p_money_amount => p_money_amount
297 );
298 --
299 elsif l_finance_function = 'C' then
300 l_cancelled_flag := 'N';
301 ota_tfl_api_business_rules2.cancel_finance_line
302 ( p_finance_line_id => p_finance_line_id
303 , p_cancelled_flag => l_cancelled_flag
304 , p_transfer_status => p_finance_line_transfer
305 , p_finance_header_id => p_finance_header_id
306 , p_validate => FALSE);
307 end if;
308 --
309 end upd;
310 --
311 end ota_resource_booking;