30: l_api_updating boolean;
31: l_disallow varchar2(1);
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: l_api_updating := pay_sbc_shd.api_updating
36: (p_balance_classification_id => p_rec.balance_classification_id
37: ,p_object_version_number => p_rec.object_version_number
38: );
36: (p_balance_classification_id => p_rec.balance_classification_id
37: ,p_object_version_number => p_rec.object_version_number
38: );
39: if not l_api_updating then
40: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
41: hr_utility.set_message_token('PROCEDURE', l_proc);
42: hr_utility.set_message_token('STEP', '10');
43: hr_utility.raise_error;
44: end if;
37: ,p_object_version_number => p_rec.object_version_number
38: );
39: if not l_api_updating then
40: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
41: hr_utility.set_message_token('PROCEDURE', l_proc);
42: hr_utility.set_message_token('STEP', '10');
43: hr_utility.raise_error;
44: end if;
45: --
38: );
39: if not l_api_updating then
40: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
41: hr_utility.set_message_token('PROCEDURE', l_proc);
42: hr_utility.set_message_token('STEP', '10');
43: hr_utility.raise_error;
44: end if;
45: --
46: hr_utility.set_location(l_proc, 15);
39: if not l_api_updating then
40: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
41: hr_utility.set_message_token('PROCEDURE', l_proc);
42: hr_utility.set_message_token('STEP', '10');
43: hr_utility.raise_error;
44: end if;
45: --
46: hr_utility.set_location(l_proc, 15);
47: --
42: hr_utility.set_message_token('STEP', '10');
43: hr_utility.raise_error;
44: end if;
45: --
46: hr_utility.set_location(l_proc, 15);
47: --
48: -- Check that the update is actually allowed.
49: --
50: open csr_disallow_update;
49: --
50: open csr_disallow_update;
51: fetch csr_disallow_update into l_disallow;
52: if csr_disallow_update%found then
53: hr_utility.set_location(l_proc, 20);
54: close csr_disallow_update;
55: fnd_message.set_name('PAY', 'PAY_50085_SBC_CORE_ROW_EXISTS');
56: fnd_message.raise_error;
57: end if;
61: --
62: if nvl(p_rec.balance_type_id, hr_api.g_number) <>
63: nvl(pay_sbc_shd.g_old_rec.balance_type_id, hr_api.g_number)
64: then
65: hr_utility.set_location(l_proc, 20);
66: l_argument := 'p_balance_type_id';
67: raise l_error;
68: end if;
69: hr_utility.set_location(' Leaving:'||l_proc, 25);
65: hr_utility.set_location(l_proc, 20);
66: l_argument := 'p_balance_type_id';
67: raise l_error;
68: end if;
69: hr_utility.set_location(' Leaving:'||l_proc, 25);
70: exception
71: when l_error then
72: hr_utility.set_location('Leaving:'||l_proc, 30);
73: hr_api.argument_changed_error
68: end if;
69: hr_utility.set_location(' Leaving:'||l_proc, 25);
70: exception
71: when l_error then
72: hr_utility.set_location('Leaving:'||l_proc, 30);
73: hr_api.argument_changed_error
74: (p_api_name => l_proc
75: ,p_argument => l_argument);
76: when others then
73: hr_api.argument_changed_error
74: (p_api_name => l_proc
75: ,p_argument => l_argument);
76: when others then
77: hr_utility.set_location('Leaving:'||l_proc, 35);
78: raise;
79: End chk_non_updateable_args;
80: -- ----------------------------------------------------------------------------
81: -- |-------------------------< chk_exclusion_rule_id >------------------------|
102: l_api_updating boolean;
103: l_valid varchar2(1);
104: --
105: Begin
106: hr_utility.set_location('Entering:'||l_proc, 5);
107: l_api_updating := pay_sbc_shd.api_updating
108: (p_balance_classification_id => p_balance_classification_id
109: ,p_object_version_number => p_object_version_number
110: );
115: if p_exclusion_rule_id is not null then
116: open csr_exclusion_rule_id_valid;
117: fetch csr_exclusion_rule_id_valid into l_valid;
118: if csr_exclusion_rule_id_valid%notfound then
119: hr_utility.set_location('Leaving:'||l_proc, 10);
120: close csr_exclusion_rule_id_valid;
121: fnd_message.set_name('PAY', 'PAY_50100_ETM_INVALID_EXC_RULE');
122: fnd_message.raise_error;
123: end if;
123: end if;
124: close csr_exclusion_rule_id_valid;
125: end if;
126: end if;
127: hr_utility.set_location('Leaving:'||l_proc, 5);
128: end chk_exclusion_rule_id;
129: -- ----------------------------------------------------------------------------
130: -- |--------------------------< chk_balance_type_id >-------------------------|
131: -- ----------------------------------------------------------------------------
143: l_proc varchar2(72) := g_package||'chk_balance_type_id';
144: l_exists varchar2(1);
145: --
146: Begin
147: hr_utility.set_location('Entering:'||l_proc, 5);
148: --
149: -- Check that the balance type is not null.
150: --
151: hr_api.mandatory_arg_error
158: --
159: open csr_balance_type_exists;
160: fetch csr_balance_type_exists into l_exists;
161: if csr_balance_type_exists%notfound then
162: hr_utility.set_location(' Leaving:'||l_proc, 10);
163: close csr_balance_type_exists;
164: fnd_message.set_name('PAY', 'PAY_50086_ETM_INVALID_BAL_TYPE');
165: fnd_message.raise_error;
166: end if;
164: fnd_message.set_name('PAY', 'PAY_50086_ETM_INVALID_BAL_TYPE');
165: fnd_message.raise_error;
166: end if;
167: close csr_balance_type_exists;
168: hr_utility.set_location(' Leaving:'||l_proc, 15);
169: End chk_balance_type_id;
170: -- ----------------------------------------------------------------------------
171: -- |------------------------< chk_ele_classification >------------------------|
172: -- ----------------------------------------------------------------------------
190: l_api_updating boolean;
191: l_exists varchar2(1);
192: --
193: Begin
194: hr_utility.set_location('Entering:'||l_proc, 5);
195: l_api_updating := pay_sbc_shd.api_updating
196: (p_balance_classification_id => p_balance_classification_id
197: ,p_object_version_number => p_object_version_number
198: );
213: --
214: open csr_bal_class_exists;
215: fetch csr_bal_class_exists into l_exists;
216: if csr_bal_class_exists%found then
217: hr_utility.set_location(' Leaving:'||l_proc, 10);
218: close csr_bal_class_exists;
219: fnd_message.set_name('PAY', 'PAY_50087_SBC_BAL_CLASS_EXISTS');
220: fnd_message.raise_error;
221: end if;
220: fnd_message.raise_error;
221: end if;
222: close csr_bal_class_exists;
223: end if;
224: hr_utility.set_location(' Leaving:'||l_proc, 25);
225: End chk_ele_classification;
226: -- ----------------------------------------------------------------------------
227: -- |------------------------------< chk_delete >------------------------------|
228: -- ----------------------------------------------------------------------------
242: l_error exception;
243: l_exists varchar2(1);
244: --
245: Begin
246: hr_utility.set_location('Entering:'||l_proc, 5);
247: --
248: open csr_core_objects;
249: fetch csr_core_objects into l_exists;
250: if csr_core_objects%found then
247: --
248: open csr_core_objects;
249: fetch csr_core_objects into l_exists;
250: if csr_core_objects%found then
251: hr_utility.set_location(' Leaving:'||l_proc, 10);
252: close csr_core_objects;
253: raise l_error;
254: end if;
255: close csr_core_objects;
252: close csr_core_objects;
253: raise l_error;
254: end if;
255: close csr_core_objects;
256: hr_utility.set_location(' Leaving:'||l_proc, 15);
257: exception
258: when l_error then
259: fnd_message.set_name('PAY', 'PAY_50088_SBC_INVALID_DELETE');
260: fnd_message.raise_error;
258: when l_error then
259: fnd_message.set_name('PAY', 'PAY_50088_SBC_INVALID_DELETE');
260: fnd_message.raise_error;
261: when others then
262: hr_utility.set_location(' Leaving:'||l_proc, 20);
263: raise;
264: End chk_delete;
265: -- ----------------------------------------------------------------------------
266: -- |-----------------------------< chk_scale >--------------------------------|
273: l_proc varchar2(72) := g_package||'chk_scale';
274: l_api_updating boolean;
275: --
276: Begin
277: hr_utility.set_location('Entering:'||l_proc, 5);
278: l_api_updating := pay_sbc_shd.api_updating
279: (p_balance_classification_id => p_balance_classification_id
280: ,p_object_version_number => p_object_version_number
281: );
294: --
295: -- Check that scale is valid.
296: --
297: if p_scale <> 1 and p_scale <> -1 then
298: hr_utility.set_location(' Leaving:'||l_proc, 10);
299: fnd_message.set_name('PAY', 'PAY_50089_ETM_INVALID_SCALE');
300: fnd_message.set_token('POSITIVE', 1);
301: fnd_message.set_token('NEGATIVE', -1);
302: fnd_message.raise_error;
301: fnd_message.set_token('NEGATIVE', -1);
302: fnd_message.raise_error;
303: end if;
304: end if;
305: hr_utility.set_location(' Leaving:'||l_proc, 15);
306: End chk_scale;
307: -- ----------------------------------------------------------------------------
308: -- |---------------------------< insert_validate >----------------------------|
309: -- ----------------------------------------------------------------------------
312: l_proc varchar2(72) := g_package||'insert_validate';
313: l_template_id number;
314: --
315: Begin
316: hr_utility.set_location('Entering:'||l_proc, 5);
317: --
318: -- Call all supporting business operations
319: --
320: chk_balance_type_id(p_balance_type_id => p_rec.balance_type_id);
337: ,p_balance_type_id => p_rec.balance_type_id
338: ,p_balance_classification_id => p_rec.balance_classification_id
339: ,p_object_version_number => p_rec.object_version_number
340: );
341: hr_utility.set_location(' Leaving:'||l_proc, 10);
342: End insert_validate;
343: --
344: -- ----------------------------------------------------------------------------
345: -- |---------------------------< update_validate >----------------------------|
348: --
349: l_proc varchar2(72) := g_package||'update_validate';
350: --
351: Begin
352: hr_utility.set_location('Entering:'||l_proc, 5);
353: --
354: -- Call all supporting business operations
355: --
356: chk_non_updateable_args(p_rec);
373: ,p_balance_type_id => p_rec.balance_type_id
374: ,p_balance_classification_id => p_rec.balance_classification_id
375: ,p_object_version_number => p_rec.object_version_number
376: );
377: hr_utility.set_location(' Leaving:'||l_proc, 10);
378: End update_validate;
379: --
380: -- ----------------------------------------------------------------------------
381: -- |---------------------------< delete_validate >----------------------------|
384: --
385: l_proc varchar2(72) := g_package||'delete_validate';
386: --
387: Begin
388: hr_utility.set_location('Entering:'||l_proc, 5);
389: --
390: -- Call all supporting business operations
391: --
392: chk_delete(p_rec.balance_classification_id);
390: -- Call all supporting business operations
391: --
392: chk_delete(p_rec.balance_classification_id);
393: --
394: hr_utility.set_location(' Leaving:'||l_proc, 10);
395: End delete_validate;
396: --
397: end pay_sbc_bus;