[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 >---------------------------|
254:
255: c2_rec c2%ROWTYPE;
256:
257: BEGIN
258: hr_utility.set_location('Entering:'||l_proc, 5);
259: --
260: -- First get the start and end times of the pattern exception that
261: -- we wish to insert
262: --
266: --
267: -- Now see if there are any records returned by cursor2. If there
268: -- are, we have a failure.
269: --
270: hr_utility.set_location(l_proc, 10);
271: open c2;
272: fetch c2 into c2_rec;
273: if c2%FOUND then
274: close c2;
275: -- *** NEW_MESSAGE_REQUIRED ***
276: fnd_message.set_name('PAY','OVERLAPPING_EXCEPTIONS_ERROR');
277: fnd_message.raise_error;
278: end if;
279: hr_utility.set_location(' Leaving:'||l_proc, 20);
280: END Check_Unique;
281: --
282: -- ----------------------------------------------------------------------------
283: -- |---------------------------< insert_validate >----------------------------|
286: --
287: l_proc varchar2(72) := g_package||'insert_validate';
288: --
289: Begin
290: hr_utility.set_location('Entering:'||l_proc, 5);
291: --
292: -- Call all supporting business operations
293: --
294: -- Check that the Mandatory Column Exception_Id has been entered
296: hr_api.mandatory_arg_error (p_api_name => l_proc,
297: p_argument => 'Exception_Id',
298: p_argument_value => p_rec.exception_id);
299:
300: hr_utility.set_location(l_proc, 10);
301:
302: hr_exu_bus.Check_No_ID_Conflict(p_rec.calendar_id,
303: p_rec.calendar_usage_id);
304:
301:
302: hr_exu_bus.Check_No_ID_Conflict(p_rec.calendar_id,
303: p_rec.calendar_usage_id);
304:
305: hr_utility.set_location(l_proc, 15);
306: --
307: hr_exu_bus.Check_Exception_Id (p_rec.calendar_usage_id,
308: p_rec.exception_id);
309: --
306: --
307: hr_exu_bus.Check_Exception_Id (p_rec.calendar_usage_id,
308: p_rec.exception_id);
309: --
310: hr_utility.set_location(l_proc, 20);
311: --
312: hr_exu_bus.Check_Unique (p_rec.calendar_id,
313: p_rec.calendar_usage_id,
314: p_rec.exception_id);
312: hr_exu_bus.Check_Unique (p_rec.calendar_id,
313: p_rec.calendar_usage_id,
314: p_rec.exception_id);
315: --
316: hr_utility.set_location(' Leaving:'||l_proc, 20);
317: End insert_validate;
318: --
319: -- ----------------------------------------------------------------------------
320: -- |---------------------------< update_validate >----------------------------|
323: --
324: l_proc varchar2(72) := g_package||'update_validate';
325: --
326: Begin
327: hr_utility.set_location('Entering:'||l_proc, 5);
328: --
329: -- Call all supporting business operations
330: --
331: /* if (hr_exu_shd.api_updating
355: end if;
356: */
357: --
358: --
359: hr_utility.set_location(' Leaving:'||l_proc, 10);
360: End update_validate;
361: --
362: -- ----------------------------------------------------------------------------
363: -- |---------------------------< delete_validate >----------------------------|
366: --
367: l_proc varchar2(72) := g_package||'delete_validate';
368: --
369: Begin
370: hr_utility.set_location('Entering:'||l_proc, 5);
371: --
372: -- Call all supporting business operations
373: --
374: hr_utility.set_location(' Leaving:'||l_proc, 10);
370: hr_utility.set_location('Entering:'||l_proc, 5);
371: --
372: -- Call all supporting business operations
373: --
374: hr_utility.set_location(' Leaving:'||l_proc, 10);
375: End delete_validate;
376: --
377: end hr_exu_bus;