[Home] [Help]
42: BEGIN
43: --
44: -- First check that both id's have not been entered
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: if p_calendar_usage_id is not null and p_calendar_id is not null then
48: -- *** NEW_MESSAGE_REQUIRED ***
49: fnd_message.set_name('PAY','EXCEP_USAGE_FK_CONFLICT');
50: fnd_message.raise_error;
56: --
57: -- No conflict now check that the FK entered is valid
58: --
59: if p_calendar_id is not null then
60: hr_utility.set_location(l_proc, 10);
61: open c1;
62: fetch c1 into c1_rec;
63: if c1%NOTFOUND then
64: -- *** NEW_MESSAGE_REQUIRED ***
66: fnd_message.raise_error;
67: end if;
68: close c1;
69: else
70: hr_utility.set_location(l_proc, 15);
71: open c2;
72: fetch c2 into c2_rec;
73: if c2%NOTFOUND then
74: -- *** NEW_MESSAGE_REQUIRED ***
76: fnd_message.raise_error;
77: end if;
78: close c2;
79: end if;
80: hr_utility.set_location(' Leaving:'||l_proc, 20);
81: END Check_No_ID_Conflict;
82: --
83: --
84: -- ------------------------------------------------------------------------
108: and hpp.pattern_purpose = 'SSP';
109:
110: c1_rec c1%ROWTYPE;
111: BEGIN
112: hr_utility.set_location('Entering:'||l_proc, 5);
113: open c1;
114: fetch c1 into c1_rec;
115: if c1%NOTFOUND then
116: return(FALSE);
117: else
118: return(TRUE);
119: end if;
120: close c1;
121: hr_utility.set_location(' Leaving:'||l_proc, 10);
122: END Cal_Use_For_SSP;
123: --
124: --
125: -- ------------------------------------------------------------------------
157:
158: c2_rec c2%ROWTYPE;
159:
160: BEGIN
161: hr_utility.set_location('Entering:'||l_proc, 5);
162: open c2;
163: fetch c2 into c2_rec;
164: if c2%FOUND then
165: return(FALSE);
165: return(FALSE);
166: else
167: return(TRUE);
168: end if;
169: hr_utility.set_location(' Leaving:'||l_proc, 10);
170: END Excep_is_Qual_Non_Qual;
171: --
172: -- ------------------------------------------------------------------------
173: -- |---------------------------< Check_Exception_ID >---------------------|
189:
190: l_proc varchar2(72) := g_package||'Check_Exception_ID';
191:
192: BEGIN
193: hr_utility.set_location('Entering:'||l_proc, 5);
194:
195: if p_calendar_usage_id is not null and
196: cal_use_for_ssp(p_calendar_usage_id) then
197: if excep_is_qual_non_qual(p_exception_id) then
201: fnd_message.set_name('PAY','INVALID_EXCEPTION_ID');
202: fnd_message.raise_error;
203: end if;
204: end if;
205: hr_utility.set_location(' Leaving:'||l_proc, 10);
206: END Check_Exception_ID;
207: --
208: -- ------------------------------------------------------------------------
209: -- |---------------------------< Check_Unique >---------------------------|
250:
251: c2_rec c2%ROWTYPE;
252:
253: BEGIN
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: --
256: -- First get the start and end times of the pattern exception that
257: -- we wish to insert
258: --
262: --
263: -- Now see if there are any records returned by cursor2. If there
264: -- are, we have a failure.
265: --
266: hr_utility.set_location(l_proc, 10);
267: open c2;
268: fetch c2 into c2_rec;
269: if c2%FOUND then
270: close c2;
271: -- *** NEW_MESSAGE_REQUIRED ***
272: fnd_message.set_name('PAY','OVERLAPPING_EXCEPTIONS_ERROR');
273: fnd_message.raise_error;
274: end if;
275: hr_utility.set_location(' Leaving:'||l_proc, 20);
276: END Check_Unique;
277: --
278: -- ----------------------------------------------------------------------------
279: -- |---------------------------< insert_validate >----------------------------|
282: --
283: l_proc varchar2(72) := g_package||'insert_validate';
284: --
285: Begin
286: hr_utility.set_location('Entering:'||l_proc, 5);
287: --
288: -- Call all supporting business operations
289: --
290: -- Check that the Mandatory Column Exception_Id has been entered
292: hr_api.mandatory_arg_error (p_api_name => l_proc,
293: p_argument => 'Exception_Id',
294: p_argument_value => p_rec.exception_id);
295:
296: hr_utility.set_location(l_proc, 10);
297:
298: hr_exu_bus.Check_No_ID_Conflict(p_rec.calendar_id,
299: p_rec.calendar_usage_id);
300:
297:
298: hr_exu_bus.Check_No_ID_Conflict(p_rec.calendar_id,
299: p_rec.calendar_usage_id);
300:
301: hr_utility.set_location(l_proc, 15);
302: --
303: hr_exu_bus.Check_Exception_Id (p_rec.calendar_usage_id,
304: p_rec.exception_id);
305: --
302: --
303: hr_exu_bus.Check_Exception_Id (p_rec.calendar_usage_id,
304: p_rec.exception_id);
305: --
306: hr_utility.set_location(l_proc, 20);
307: --
308: hr_exu_bus.Check_Unique (p_rec.calendar_id,
309: p_rec.calendar_usage_id,
310: p_rec.exception_id);
308: hr_exu_bus.Check_Unique (p_rec.calendar_id,
309: p_rec.calendar_usage_id,
310: p_rec.exception_id);
311: --
312: hr_utility.set_location(' Leaving:'||l_proc, 20);
313: End insert_validate;
314: --
315: -- ----------------------------------------------------------------------------
316: -- |---------------------------< update_validate >----------------------------|
319: --
320: l_proc varchar2(72) := g_package||'update_validate';
321: --
322: Begin
323: hr_utility.set_location('Entering:'||l_proc, 5);
324: --
325: -- Call all supporting business operations
326: --
327: /* if (hr_exu_shd.api_updating
351: end if;
352: */
353: --
354: --
355: hr_utility.set_location(' Leaving:'||l_proc, 10);
356: End update_validate;
357: --
358: -- ----------------------------------------------------------------------------
359: -- |---------------------------< delete_validate >----------------------------|
362: --
363: l_proc varchar2(72) := g_package||'delete_validate';
364: --
365: Begin
366: hr_utility.set_location('Entering:'||l_proc, 5);
367: --
368: -- Call all supporting business operations
369: --
370: hr_utility.set_location(' Leaving:'||l_proc, 10);
366: hr_utility.set_location('Entering:'||l_proc, 5);
367: --
368: -- Call all supporting business operations
369: --
370: hr_utility.set_location(' Leaving:'||l_proc, 10);
371: End delete_validate;
372: --
373: end hr_exu_bus;