[Home] [Help]
11: -- |-----------------------< chk_non_updateable_args >--------------|
12: -- -----------------------------------------------------------------
13: --
14: Procedure chk_non_updateable_args
15: (p_rec in hr_amd_shd.g_rec_type
16: ) is
17: --
18: l_proc varchar2(72) := g_package||'chk_non_updateable_args';
19: l_error exception;
24: --
25: -- Only proceed with validation if a row exists for
26: -- the current record in the HR Schema
27: --
28: if not hr_amd_shd.api_updating
29: (p_api_module_id => p_rec.api_module_id
30: ) then
31: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
34: end if;
35: hr_utility.set_location(l_proc, 30);
36: --
37: if nvl(p_rec.api_module_type, hr_api.g_varchar2) <>
38: nvl(hr_amd_shd.g_old_rec.api_module_type
39: ,hr_api.g_varchar2
40: ) then
41: l_argument := 'api_module_type';
42: raise l_error;
43: end if;
44: --
45: --
46: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
47: nvl(hr_amd_shd.g_old_rec.legislation_code
48: ,hr_api.g_varchar2
49: ) then
50: l_argument := 'legislation_code';
51: raise l_error;
113: if hr_api.not_exists_in_hr_lookups
114: (p_effective_date => p_effective_date,
115: p_lookup_type => 'API_MODULE_TYPE',
116: p_lookup_code => p_api_module_type) then
117: hr_amd_shd.constraint_error('HR_API_MODULES_CK1');
118: end if;
119:
120: hr_utility.set_location('Leaving: '||l_proc,10);
121: end chk_api_module_type;
172: begin
173: hr_utility.set_location('Entering: '||l_proc,5);
174:
175: -- check if the module is being updated or inserted.
176: l_api_updating := hr_amd_shd.api_updating
177: (p_api_module_id => p_api_module_id);
178: --
179: -- Proceed with validation based on outcome of api_updating call.
180:
178: --
179: -- Proceed with validation based on outcome of api_updating call.
180:
181: if ((l_api_updating and
182: hr_amd_shd.g_old_rec.module_name <> nvl(p_module_name,hr_api.g_varchar2)) or
183: (not l_api_updating)) then
184: --------------------------------
185: -- Check module name not null --
186: --------------------------------
205: fetch csr_valid_combo into l_module_id;
206:
207: if csr_valid_combo%found then
208: close csr_valid_combo;
209: hr_amd_shd.constraint_error('HR_API_MODULES_UK1');
210: end if;
211:
212: close csr_valid_combo;
213: end if;
276: --------------------------------
277: -- Check module type is valid --
278: --------------------------------
279: if (p_api_module_id is not null) and
280: (hr_amd_shd.g_old_rec.data_within_business_group
281: <> p_data_within_business_group) or
282: (p_api_module_id is null) then
283: --
284: -- do look up validation
287: (p_effective_date => p_effective_date,
288: p_lookup_type => 'YES_NO',
289: p_lookup_code => p_data_within_business_group) then
290: -- Error, invalid value.
291: hr_amd_shd.constraint_error('HR_API_MODULES_CK2');
292: end if;
293: --
294: if ((p_api_module_id is not null)
295: and hr_amd_shd.g_old_rec.data_within_business_group ='Y'
291: hr_amd_shd.constraint_error('HR_API_MODULES_CK2');
292: end if;
293: --
294: if ((p_api_module_id is not null)
295: and hr_amd_shd.g_old_rec.data_within_business_group ='Y'
296: and p_data_within_business_group = 'N') then
297: open csr_legislation_data;
298: fetch csr_legislation_data into l_exists;
299: if csr_legislation_data%found then
416: --
417: begin
418: hr_utility.set_location('Entering: '||l_proc,5);
419: -- Check if module is being updated
420: l_api_updating := hr_amd_shd.api_updating
421: (p_api_module_id => p_api_module_id);
422:
423: -- Proceed with validation based on outcome of api_updating call.
424: -- Have to convert null values of module_package (a null value is
424: -- Have to convert null values of module_package (a null value is
425: -- valid for this parm) otherwise the comparison will always
426: -- return false.
427: if ((l_api_updating and
428: nvl(hr_amd_shd.g_old_rec.module_package,'X') <> nvl(p_module_package,'X')) or
429: (not l_api_updating)) then
430: -------------------------------------------------------------
431: -- Check the Module Package and Module Type Combo is valid --
432: -------------------------------------------------------------
516: --
517: -- ----------------------------------------------------------------------------
518: -- |---------------------------< insert_validate >----------------------------|
519: -- ----------------------------------------------------------------------------
520: Procedure insert_validate(p_rec in hr_amd_shd.g_rec_type,
521: p_effective_date in date ) is
522: --
523: l_proc varchar2(72) := g_package||'insert_validate';
524: --
574: --
575: -- ----------------------------------------------------------------------------
576: -- -----------------------------< update_validate >----------------------------|
577: -- ----------------------------------------------------------------------------
578: Procedure update_validate(p_rec in hr_amd_shd.g_rec_type,
579: p_effective_date in date) is
580: --
581: l_proc varchar2(72) := g_package||'update_validate';
582: --
624: --
625: -- ----------------------------------------------------------------------------
626: -- |---------------------------< delete_validate >----------------------------|
627: -- ----------------------------------------------------------------------------
628: Procedure delete_validate(p_rec in hr_amd_shd.g_rec_type) is
629: --
630: l_proc varchar2(72) := g_package||'delete_validate';
631: --
632: Begin