1: PACKAGE BODY PER_EVENTS_PKG as
2: /* $Header: peevt01t.pkb 120.2 2008/05/16 06:51:14 pchowdav ship $ */
3: -- *****************************************************************
4: -- Table Handler for per_events
5: -- *****************************************************************
131: and effective_start_date = p_event_date;
132: --
133: begin
134: --
135: hr_utility.set_location ('per_events_pkg.event_causes_assignment_change',1);
136: --
137: open csr_assignment;
138: fetch csr_assignment into g_dummy;
139: v_change_exists := csr_assignment%found;
177: event.date_start);
178: --
179: begin
180: --
181: hr_utility.set_location ('per_events_pkg.interview_double_booked',1);
182: --
183: open csr_double_booking;
184: fetch csr_double_booking into l_time_start, l_time_end;
185: hr_utility.set_location ('per_events_pkg.interview_double_booked',2);
181: hr_utility.set_location ('per_events_pkg.interview_double_booked',1);
182: --
183: open csr_double_booking;
184: fetch csr_double_booking into l_time_start, l_time_end;
185: hr_utility.set_location ('per_events_pkg.interview_double_booked',2);
186: v_interview_double_booked := csr_double_booking%found;
187: close csr_double_booking;
188: --
189: hr_utility.set_location ('per_events_pkg.interview_double_booked',3);
185: hr_utility.set_location ('per_events_pkg.interview_double_booked',2);
186: v_interview_double_booked := csr_double_booking%found;
187: close csr_double_booking;
188: --
189: hr_utility.set_location ('per_events_pkg.interview_double_booked',3);
190: l_same_time := v_interview_double_booked;
191: if v_interview_double_booked and p_time_start is not null and l_time_start is not null then
192: hr_utility.set_location ('per_events_pkg.interview_double_booked',4);
193: --
188: --
189: hr_utility.set_location ('per_events_pkg.interview_double_booked',3);
190: l_same_time := v_interview_double_booked;
191: if v_interview_double_booked and p_time_start is not null and l_time_start is not null then
192: hr_utility.set_location ('per_events_pkg.interview_double_booked',4);
193: --
194: -- If interview has start time entered then compare on basis ofstart and end time.
195: -- The following code checks for the time overlap.
196: --
212: ( (substr(p_time_end,1,2) * 60) + substr(p_time_end,4,2))
213: )
214: ) ;
215: --
216: hr_utility.set_location ('per_events_pkg.interview_double_booked',5);
217:
218: end if;
219: hr_utility.set_location ('per_events_pkg.interview_double_booked',99);
220: --
215: --
216: hr_utility.set_location ('per_events_pkg.interview_double_booked',5);
217:
218: end if;
219: hr_utility.set_location ('per_events_pkg.interview_double_booked',99);
220: --
221: return l_same_time;
222: --
223: end interview_double_booked;
242: v_booking_exists boolean := FALSE;
243: --
244: begin
245: --
246: hr_utility.set_location ('per_events_pkg.interviewers_are_booked',1);
247: --
248: open csr_booking;
249: fetch csr_booking into g_dummy;
250: v_booking_exists := csr_booking%found;
301: l_dummy varchar2(1);
302: --
303: begin
304: --
305: hr_utility.set_location ('Entering per_events_pkg.check_current_interviewers',1);
306: --
307: for interview in csr_interview LOOP
308: -- bug fix 2708777 starts here.
309: open csr_person_exists(interview.person_id);
321: close csr_person_exists;
322: --
323: end loop;
324: --
325: hr_utility.set_location ('Leaving per_events_pkg.check_current_interviewers',2);
326: --
327: end check_current_interviewers;
328: --------------------------------------------------------------------------------
329: procedure REQUEST_LETTER (
371: --fix for bug 7019343 ends here.
372:
373: begin
374: --
375: hr_utility.set_location ('per_events_pkg.request_letter', 1);
376: --
377: open csr_check_letter;
378: fetch csr_check_letter into g_dummy;
379: if csr_check_letter%notfound then
1184: HR_UTILITY.RAISE_ERROR;
1185: end if;
1186: END Delete_Row;
1187:
1188: END PER_EVENTS_PKG;