82: fetch csr_disallow_update into l_disallow;
83: if csr_disallow_update%found then
84: hr_utility.set_location(l_proc, 20);
85: close csr_disallow_update;
86: fnd_message.set_name('PAY', 'PAY_50104_SBF_CORE_ROW_EXISTS');
87: fnd_message.raise_error;
88: end if;
89: close csr_disallow_update;
90: --
83: if csr_disallow_update%found then
84: hr_utility.set_location(l_proc, 20);
85: close csr_disallow_update;
86: fnd_message.set_name('PAY', 'PAY_50104_SBF_CORE_ROW_EXISTS');
87: fnd_message.raise_error;
88: end if;
89: close csr_disallow_update;
90: --
91: -- p_input_value_id
141: fetch csr_input_value_exists into l_exists;
142: if csr_input_value_exists%notfound then
143: hr_utility.set_location(' Leaving:'||l_proc, 10);
144: close csr_input_value_exists;
145: fnd_message.set_name('PAY', 'PAY_50098_ETM_INVALID_INP_VAL');
146: fnd_message.raise_error;
147: end if;
148: close csr_input_value_exists;
149: hr_utility.set_location(' Leaving:'||l_proc, 15);
142: if csr_input_value_exists%notfound then
143: hr_utility.set_location(' Leaving:'||l_proc, 10);
144: close csr_input_value_exists;
145: fnd_message.set_name('PAY', 'PAY_50098_ETM_INVALID_INP_VAL');
146: fnd_message.raise_error;
147: end if;
148: close csr_input_value_exists;
149: hr_utility.set_location(' Leaving:'||l_proc, 15);
150: End chk_input_value_id;
209: -- Only one of the balance name and balance_type_id may be not null.
210: --
211: elsif p_balance_type_id is not null then
212: hr_utility.set_location(' Leaving:'||l_proc, 15);
213: fnd_message.set_name('PAY', 'PAY_50105_SBF_ID_TYPE_NOT_NULL');
214: fnd_message.raise_error;
215: end if;
216: --
217: if p_balance_type_id is not null then
210: --
211: elsif p_balance_type_id is not null then
212: hr_utility.set_location(' Leaving:'||l_proc, 15);
213: fnd_message.set_name('PAY', 'PAY_50105_SBF_ID_TYPE_NOT_NULL');
214: fnd_message.raise_error;
215: end if;
216: --
217: if p_balance_type_id is not null then
218: --
223: fetch csr_compatible into l_okay;
224: if csr_compatible%notfound then
225: hr_utility.set_location(' Leaving:'||l_proc, 20);
226: close csr_compatible;
227: fnd_message.set_name('PAY', 'PAY_50106_SBF_UOM_MISMATCH');
228: fnd_message.raise_error;
229: end if;
230: close csr_compatible;
231: --
224: if csr_compatible%notfound then
225: hr_utility.set_location(' Leaving:'||l_proc, 20);
226: close csr_compatible;
227: fnd_message.set_name('PAY', 'PAY_50106_SBF_UOM_MISMATCH');
228: fnd_message.raise_error;
229: end if;
230: close csr_compatible;
231: --
232: -- Check that this input value/balance type combination does not
236: fetch csr_exists into l_exists;
237: if csr_exists%found then
238: hr_utility.set_location(' Leaving:'||l_proc, 25);
239: close csr_exists;
240: fnd_message.set_name('PAY', 'PAY_50107_SBF_FEED_EXISTS');
241: fnd_message.raise_error;
242: end if;
243: close csr_exists;
244: end if;
237: if csr_exists%found then
238: hr_utility.set_location(' Leaving:'||l_proc, 25);
239: close csr_exists;
240: fnd_message.set_name('PAY', 'PAY_50107_SBF_FEED_EXISTS');
241: fnd_message.raise_error;
242: end if;
243: close csr_exists;
244: end if;
245: end if;
300: fetch csr_exists into l_exists;
301: if csr_exists%found then
302: hr_utility.set_location(' Leaving:'||l_proc, 20);
303: close csr_exists;
304: fnd_message.set_name('PAY', 'PAY_50107_SBF_FEED_EXISTS');
305: fnd_message.raise_error;
306: end if;
307: close csr_exists;
308: end if;
301: if csr_exists%found then
302: hr_utility.set_location(' Leaving:'||l_proc, 20);
303: close csr_exists;
304: fnd_message.set_name('PAY', 'PAY_50107_SBF_FEED_EXISTS');
305: fnd_message.raise_error;
306: end if;
307: close csr_exists;
308: end if;
309: end if;
342: -- Check that scale is valid.
343: --
344: if p_scale <> 1 and p_scale <> -1 then
345: hr_utility.set_location(' Leaving:'||l_proc, 10);
346: fnd_message.set_name('PAY', 'PAY_50089_ETM_INVALID_SCALE');
347: fnd_message.set_token('POSITIVE', 1);
348: fnd_message.set_token('NEGATIVE', -1);
349: fnd_message.raise_error;
350: end if;
343: --
344: if p_scale <> 1 and p_scale <> -1 then
345: hr_utility.set_location(' Leaving:'||l_proc, 10);
346: fnd_message.set_name('PAY', 'PAY_50089_ETM_INVALID_SCALE');
347: fnd_message.set_token('POSITIVE', 1);
348: fnd_message.set_token('NEGATIVE', -1);
349: fnd_message.raise_error;
350: end if;
351: end if;
344: if p_scale <> 1 and p_scale <> -1 then
345: hr_utility.set_location(' Leaving:'||l_proc, 10);
346: fnd_message.set_name('PAY', 'PAY_50089_ETM_INVALID_SCALE');
347: fnd_message.set_token('POSITIVE', 1);
348: fnd_message.set_token('NEGATIVE', -1);
349: fnd_message.raise_error;
350: end if;
351: end if;
352: hr_utility.set_location(' Leaving:'||l_proc, 15);
345: hr_utility.set_location(' Leaving:'||l_proc, 10);
346: fnd_message.set_name('PAY', 'PAY_50089_ETM_INVALID_SCALE');
347: fnd_message.set_token('POSITIVE', 1);
348: fnd_message.set_token('NEGATIVE', -1);
349: fnd_message.raise_error;
350: end if;
351: end if;
352: hr_utility.set_location(' Leaving:'||l_proc, 15);
353: End chk_scale;
388: fetch csr_exclusion_rule_id_valid into l_valid;
389: if csr_exclusion_rule_id_valid%notfound then
390: hr_utility.set_location('Leaving:'||l_proc, 10);
391: close csr_exclusion_rule_id_valid;
392: fnd_message.set_name('PAY', 'PAY_50100_ETM_INVALID_EXC_RULE');
393: fnd_message.raise_error;
394: end if;
395: close csr_exclusion_rule_id_valid;
396: end if;
389: if csr_exclusion_rule_id_valid%notfound then
390: hr_utility.set_location('Leaving:'||l_proc, 10);
391: close csr_exclusion_rule_id_valid;
392: fnd_message.set_name('PAY', 'PAY_50100_ETM_INVALID_EXC_RULE');
393: fnd_message.raise_error;
394: end if;
395: close csr_exclusion_rule_id_valid;
396: end if;
397: end if;
429: close csr_core_objects;
430: hr_utility.set_location(' Leaving:'||l_proc, 15);
431: exception
432: when l_error then
433: fnd_message.set_name('PAY', 'PAY_50108_SBF_INVALID_DELETE');
434: fnd_message.raise_error;
435: when others then
436: hr_utility.set_location(' Leaving:'||l_proc, 20);
437: raise;
430: hr_utility.set_location(' Leaving:'||l_proc, 15);
431: exception
432: when l_error then
433: fnd_message.set_name('PAY', 'PAY_50108_SBF_INVALID_DELETE');
434: fnd_message.raise_error;
435: when others then
436: hr_utility.set_location(' Leaving:'||l_proc, 20);
437: raise;
438: End chk_delete;