44: l_api_updating boolean;
45: --
46: Begin
47: --
48: hr_utility.set_location('Entering:'||l_proc, 5);
49: --
50: l_api_updating := per_gra_shd.api_updating
51: (p_cagr_grade_id => p_cagr_grade_id,
52: p_object_version_number => p_object_version_number,
73: end if;
74: --
75: end if;
76: --
77: hr_utility.set_location('Leaving:'||l_proc, 10);
78: --
79: End chk_cagr_grade_id;
80: --
81: -- ----------------------------------------------------------------------------
118: l_exists VARCHAR2(2);
119: --
120: BEGIN
121: --
122: hr_utility.set_location('Entering:'||l_proc, 5);
123: --
124: hr_api.mandatory_arg_error
125: (p_api_name => l_proc,
126: p_argument => 'cagr_grade_structure_id',
125: (p_api_name => l_proc,
126: p_argument => 'cagr_grade_structure_id',
127: p_argument_value => p_cagr_grade_structure_id);
128: --
129: hr_utility.set_location(l_proc,10);
130: --
131: OPEN crs_cgs;
132: --
133: FETCH crs_cgs INTO l_exists;
130: --
131: OPEN crs_cgs;
132: --
133: FETCH crs_cgs INTO l_exists;
134: hr_utility.set_location(l_proc,15);
135: IF crs_cgs%notfound THEN
136: fnd_message.set_name('PER','PER_52810_INVALID_STRUCTURE');
137: CLOSE crs_cgs;
138: fnd_message.raise_error;
138: fnd_message.raise_error;
139: END IF;
140: CLOSE crs_cgs;
141: --
142: hr_utility.set_location('Leaving:'||l_proc, 20);
143: --
144: END chk_cagr_grade_structure_id;
145: --
146: -- ----------------------------------------------------------------------------
182: l_exists VARCHAR2(2);
183: --
184: BEGIN
185: --
186: hr_utility.set_location('Entering:'||l_proc, 5);
187: --
188: hr_api.mandatory_arg_error
189: (p_api_name => l_proc,
190: p_argument => 'cagr_grade_def_id',
189: (p_api_name => l_proc,
190: p_argument => 'cagr_grade_def_id',
191: p_argument_value => p_cagr_grade_def_id);
192: --
193: hr_utility.set_location(l_proc,10);
194: --
195: OPEN crs_cgd;
196: --
197: FETCH crs_cgd INTO l_exists;
194: --
195: OPEN crs_cgd;
196: --
197: FETCH crs_cgd INTO l_exists;
198: hr_utility.set_location(l_proc,15);
199: IF crs_cgd%notfound THEN
200: fnd_message.set_name('PER','PER_52616_INVALID_GRADE_DEF');
201: CLOSE crs_cgd;
202: fnd_message.raise_error;
202: fnd_message.raise_error;
203: END IF;
204: CLOSE crs_cgd;
205: --
206: hr_utility.set_location('Leaving:'||l_proc, 20);
207: --
208: END chk_cagr_grade_def_id;
209: --
210: -- ----------------------------------------------------------------------------
253: l_exists VARCHAR2(2);
254: --
255: BEGIN
256: --
257: hr_utility.set_location('Entering:'||l_proc, 5);
258: --
259: hr_api.mandatory_arg_error
260: (p_api_name => l_proc,
261: p_argument => 'sequence',
260: (p_api_name => l_proc,
261: p_argument => 'sequence',
262: p_argument_value => p_sequence);
263: --
264: hr_utility.set_location(l_proc,10);
265: --
266: OPEN c_all_seq;
267: --
268: FETCH c_all_seq INTO l_exists;
265: --
266: OPEN c_all_seq;
267: --
268: FETCH c_all_seq INTO l_exists;
269: hr_utility.set_location(l_proc,15);
270: IF c_all_seq%FOUND THEN
271: fnd_message.set_name('PAY','HR_7127_GRADE_DUP_SEQ');
272: CLOSE c_all_seq;
273: fnd_message.raise_error;
278: fnd_message.set_name('PAY','PER_7833_DEF_GRADE_SEQUENCE');
279: fnd_message.raise_error;
280: end if;
281: --
282: hr_utility.set_location('Leaving:'||l_proc, 20);
283: --
284: END chk_sequence;
285: --
286: -- ----------------------------------------------------------------------------
291: --
292: l_proc varchar2(72) := g_package||'insert_validate';
293: --
294: Begin
295: hr_utility.set_location('Entering:'||l_proc, 5);
296: --
297: -- Call all supporting business operations
298: --
299: chk_cagr_grade_id
312: p_sequence => p_rec.sequence,
313: p_cagr_grade_structure_id => p_rec.cagr_grade_structure_id);
314: --
315: --
316: hr_utility.set_location(' Leaving:'||l_proc, 10);
317: End insert_validate;
318: --
319: -- ----------------------------------------------------------------------------
320: -- |---------------------------< update_validate >----------------------------|
324: --
325: l_proc varchar2(72) := g_package||'update_validate';
326: --
327: Begin
328: hr_utility.set_location('Entering:'||l_proc, 5);
329: --
330: -- Call all supporting business operations
331: --
332: chk_cagr_grade_id
345: p_sequence => p_rec.sequence,
346: p_cagr_grade_structure_id => p_rec.cagr_grade_structure_id);
347: --
348: --
349: hr_utility.set_location(' Leaving:'||l_proc, 10);
350: End update_validate;
351: --
352: -- ----------------------------------------------------------------------------
353: -- |---------------------------< delete_validate >----------------------------|
357: --
358: l_proc varchar2(72) := g_package||'delete_validate';
359: --
360: Begin
361: hr_utility.set_location('Entering:'||l_proc, 5);
362: --
363: -- Call all supporting business operations
364: --
365: hr_utility.set_location(' Leaving:'||l_proc, 10);
361: hr_utility.set_location('Entering:'||l_proc, 5);
362: --
363: -- Call all supporting business operations
364: --
365: hr_utility.set_location(' Leaving:'||l_proc, 10);
366: End delete_validate;
367: --
368: end per_gra_bus;