40: l_api_updating boolean;
41: --
42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := pay_pma_shd.api_updating
47: (p_source_id => p_source_id,
48: p_object_version_number => p_object_version_number);
68: end if;
69: --
70: end if;
71: --
72: hr_utility.set_location('Leaving:'||l_proc, 10);
73: --
74: End chk_source_id;
75: --
76: -- ----------------------------------------------------------------------------
121: and ogi.org_information2 = 'Y';
122: --
123: Begin
124: --
125: hr_utility.set_location('Entering:'||l_proc,5);
126: --
127: l_api_updating := pay_pma_shd.api_updating
128: (p_source_id => p_source_id,
129: p_object_version_number => p_object_version_number);
154: open c2(p_organization_id);
155: fetch c2 into l_dummy;
156: if c2%notfound then
157: close c2;
158: hr_utility.set_message(800,'PAY_74031_NOT_PMED_CARRIER');
159: hr_utility.raise_error;
160: end if;
161: close c2;
162: --
155: fetch c2 into l_dummy;
156: if c2%notfound then
157: close c2;
158: hr_utility.set_message(800,'PAY_74031_NOT_PMED_CARRIER');
159: hr_utility.raise_error;
160: end if;
161: close c2;
162: --
163: end if;
161: close c2;
162: --
163: end if;
164: --
165: hr_utility.set_location('Leaving:'||l_proc,10);
166: --
167: End chk_organization_id;
168: --
169: -- ----------------------------------------------------------------------------
213: WHERE pma.organization_id = p_org_id
214: AND pma.account_number = p_ac_num;
215: --
216: begin
217: hr_utility.set_location('Entering:'||l_proc, 10);
218:
219: l_api_updating := pay_pma_shd.api_updating
220: (p_source_id => p_source_id,
221: p_object_version_number => p_object_version_number);
225: p_account_number);
226: fetch csr_get_ac_num INTO l_dummy;
227: if csr_get_ac_num%FOUND THEN
228: close csr_get_ac_num;
229: hr_utility.set_message(800,'PAY_74032_AC_NO_NOT_UNIQUE');
230: hr_utility.raise_error;
231: end if;
232: close csr_get_ac_num;
233: end if;
226: fetch csr_get_ac_num INTO l_dummy;
227: if csr_get_ac_num%FOUND THEN
228: close csr_get_ac_num;
229: hr_utility.set_message(800,'PAY_74032_AC_NO_NOT_UNIQUE');
230: hr_utility.raise_error;
231: end if;
232: close csr_get_ac_num;
233: end if;
234: --
231: end if;
232: close csr_get_ac_num;
233: end if;
234: --
235: hr_utility.set_location(' Leaving:'||l_proc, 20);
236: --
237: end chk_account_number;
238: -- ----------------------------------------------------------------------------
239: -- |---------------------------< chk_enabled >--------------------------------|
267: --
268: l_proc varchar2(72) := g_package||'chk_enabled';
269: --
270: begin
271: hr_utility.set_location('Entering:'||l_proc, 10);
272:
273: if (p_enabled <> 'Y' AND
274: p_enabled <> 'N') THEN
275: hr_utility.set_message(800,'HR_PAY_YES_NO');
271: hr_utility.set_location('Entering:'||l_proc, 10);
272:
273: if (p_enabled <> 'Y' AND
274: p_enabled <> 'N') THEN
275: hr_utility.set_message(800,'HR_PAY_YES_NO');
276: hr_utility.raise_error;
277: end if;
278: --
279: hr_utility.set_location(' Leaving:'||l_proc, 3);
272:
273: if (p_enabled <> 'Y' AND
274: p_enabled <> 'N') THEN
275: hr_utility.set_message(800,'HR_PAY_YES_NO');
276: hr_utility.raise_error;
277: end if;
278: --
279: hr_utility.set_location(' Leaving:'||l_proc, 3);
280: --
275: hr_utility.set_message(800,'HR_PAY_YES_NO');
276: hr_utility.raise_error;
277: end if;
278: --
279: hr_utility.set_location(' Leaving:'||l_proc, 3);
280: --
281: end chk_enabled;
282: --
283: -- ----------------------------------------------------------------------------
287: --
288: l_proc varchar2(72) := g_package||'insert_validate';
289: --
290: Begin
291: hr_utility.set_location('Entering:'||l_proc, 5);
292: --
293: -- Call all supporting business operations
294: --
295: chk_source_id
311: (p_enabled => p_rec.enabled);
312: --
313: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
314: --
315: hr_utility.set_location(' Leaving:'||l_proc, 10);
316: End insert_validate;
317: --
318: -- ----------------------------------------------------------------------------
319: -- |---------------------------< update_validate >----------------------------|
322: --
323: l_proc varchar2(72) := g_package||'update_validate';
324: --
325: Begin
326: hr_utility.set_location('Entering:'||l_proc, 5);
327: --
328: -- Call all supporting business operations
329: --
330: chk_source_id
346: (p_enabled => p_rec.enabled);
347: --
348: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
349: --
350: hr_utility.set_location(' Leaving:'||l_proc, 10);
351: End update_validate;
352: --
353: -- ----------------------------------------------------------------------------
354: -- |---------------------------< 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: --
369: -- ---------------------------------------------------------------------------
388: l_proc varchar2(72) := g_package||'return_legislation_code';
389: --
390: begin
391: --
392: hr_utility.set_location('Entering:'|| l_proc, 10);
393: --
394: -- Ensure that all the mandatory parameter are not null
395: --
396: hr_api.mandatory_arg_error(p_api_name => l_proc,
406: close csr_leg_code;
407: --
408: -- The primary key is invalid therefore we must error
409: --
410: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
411: hr_utility.raise_error;
412: --
413: end if;
414: --
407: --
408: -- The primary key is invalid therefore we must error
409: --
410: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
411: hr_utility.raise_error;
412: --
413: end if;
414: --
415: close csr_leg_code;
413: end if;
414: --
415: close csr_leg_code;
416: --
417: hr_utility.set_location(' Leaving:'|| l_proc, 20);
418: --
419: return l_legislation_code;
420: --
421: end return_legislation_code;