91: l_error exception;
92: l_date_from date;
93: --
94: Begin
95: hr_utility.set_location('Entering:'||l_proc, 5);
96:
97: if ghr_utility.is_ghr = 'TRUE' then
98: -- Check GHR Workflow Routing Groups information ???
99: --
93: --
94: Begin
95: hr_utility.set_location('Entering:'||l_proc, 5);
96:
97: if ghr_utility.is_ghr = 'TRUE' then
98: -- Check GHR Workflow Routing Groups information ???
99: --
100: if p_information_type Is Not Null then
101: if p_information_type = 'GHR_US_PER_WF_ROUTING_GROUPS' then
143: ,p_pei_information8 => p_pei_information8);
144: end if;
145: end if;
146: --
147: end if; -- ghr_utility.is_ghr
148: hr_utility.set_location(' Leaving:'||l_proc, 10);
149: exception
150: when l_error then
151: hr_utility.set_message(999, 'HR_9999_FLEX_INV_INFO_ARG');
144: end if;
145: end if;
146: --
147: end if; -- ghr_utility.is_ghr
148: hr_utility.set_location(' Leaving:'||l_proc, 10);
149: exception
150: when l_error then
151: hr_utility.set_message(999, 'HR_9999_FLEX_INV_INFO_ARG');
152: hr_utility.raise_error;
147: end if; -- ghr_utility.is_ghr
148: hr_utility.set_location(' Leaving:'||l_proc, 10);
149: exception
150: when l_error then
151: hr_utility.set_message(999, 'HR_9999_FLEX_INV_INFO_ARG');
152: hr_utility.raise_error;
153: hr_utility.set_location(' Leaving:'||l_proc, 10);
154: end ddf;
155: --
148: hr_utility.set_location(' Leaving:'||l_proc, 10);
149: exception
150: when l_error then
151: hr_utility.set_message(999, 'HR_9999_FLEX_INV_INFO_ARG');
152: hr_utility.raise_error;
153: hr_utility.set_location(' Leaving:'||l_proc, 10);
154: end ddf;
155: --
156: --
149: exception
150: when l_error then
151: hr_utility.set_message(999, 'HR_9999_FLEX_INV_INFO_ARG');
152: hr_utility.raise_error;
153: hr_utility.set_location(' Leaving:'||l_proc, 10);
154: end ddf;
155: --
156: --
157: -- ----------------------------------------------------------------------------
227: AND pei_information3 = p_pei_information3
228: AND person_extra_info_id <> nvl(p_person_extra_info_id,-9999);
229: --
230: --
231: hr_utility.set_location('Entering:'||l_proc, 5);
232: --
233: -- Check to see the Routing group is not duplicate
234: --
235: if l_count > 0 then
233: -- Check to see the Routing group is not duplicate
234: --
235: if l_count > 0 then
236: --
237: hr_utility.set_location(l_proc, 35);
238: --
239: hr_utility.set_message(8301, 'GHR_38047_DUP_ROUTING_GRP_DDF');
240: hr_utility.raise_error;
241: end if;
235: if l_count > 0 then
236: --
237: hr_utility.set_location(l_proc, 35);
238: --
239: hr_utility.set_message(8301, 'GHR_38047_DUP_ROUTING_GRP_DDF');
240: hr_utility.raise_error;
241: end if;
242: --
243: --
236: --
237: hr_utility.set_location(l_proc, 35);
238: --
239: hr_utility.set_message(8301, 'GHR_38047_DUP_ROUTING_GRP_DDF');
240: hr_utility.raise_error;
241: end if;
242: --
243: --
244: --
254: -- Check to see the Default Routing group is not duplicate
255: --
256: if l_count > 0 then
257: --
258: hr_utility.set_location(l_proc, 40);
259: --
260: hr_utility.set_message(8301, 'GHR_38096_DUP_PRIM_LIST_DDF');
261: hr_utility.raise_error;
262: end if;
256: if l_count > 0 then
257: --
258: hr_utility.set_location(l_proc, 40);
259: --
260: hr_utility.set_message(8301, 'GHR_38096_DUP_PRIM_LIST_DDF');
261: hr_utility.raise_error;
262: end if;
263: end if;
264: --
257: --
258: hr_utility.set_location(l_proc, 40);
259: --
260: hr_utility.set_message(8301, 'GHR_38096_DUP_PRIM_LIST_DDF');
261: hr_utility.raise_error;
262: end if;
263: end if;
264: --
265: --
263: end if;
264: --
265: --
266: --
267: hr_utility.set_location(' Leaving:'||l_proc, 45);
268: --
269: End chk_routing_group_info;
270:
271: Procedure chk_oghr_roles
290: Begin
291: --
292: if p_pei_information9 in ('Y','y') then
293: if p_pei_information5 in ('Y','y') then
294: hr_utility.set_message(8301, 'GHR_38041_INV_COMB_REV_REQ');
295: hr_utility.raise_error;
296: end if;
297: if p_pei_information6 in ('Y','y') then
298: hr_utility.set_message(8301, 'GHR_38042_INV_COMB_REV_AUTH');
291: --
292: if p_pei_information9 in ('Y','y') then
293: if p_pei_information5 in ('Y','y') then
294: hr_utility.set_message(8301, 'GHR_38041_INV_COMB_REV_REQ');
295: hr_utility.raise_error;
296: end if;
297: if p_pei_information6 in ('Y','y') then
298: hr_utility.set_message(8301, 'GHR_38042_INV_COMB_REV_AUTH');
299: hr_utility.raise_error;
294: hr_utility.set_message(8301, 'GHR_38041_INV_COMB_REV_REQ');
295: hr_utility.raise_error;
296: end if;
297: if p_pei_information6 in ('Y','y') then
298: hr_utility.set_message(8301, 'GHR_38042_INV_COMB_REV_AUTH');
299: hr_utility.raise_error;
300: end if;
301: if p_pei_information7 in ('Y','y') then
302: hr_utility.set_message(8301, 'GHR_38043_INV_COMB_REV_APP');
295: hr_utility.raise_error;
296: end if;
297: if p_pei_information6 in ('Y','y') then
298: hr_utility.set_message(8301, 'GHR_38042_INV_COMB_REV_AUTH');
299: hr_utility.raise_error;
300: end if;
301: if p_pei_information7 in ('Y','y') then
302: hr_utility.set_message(8301, 'GHR_38043_INV_COMB_REV_APP');
303: hr_utility.raise_error;
298: hr_utility.set_message(8301, 'GHR_38042_INV_COMB_REV_AUTH');
299: hr_utility.raise_error;
300: end if;
301: if p_pei_information7 in ('Y','y') then
302: hr_utility.set_message(8301, 'GHR_38043_INV_COMB_REV_APP');
303: hr_utility.raise_error;
304: end if;
305: end if;
306: -- You cannot be approver without being a Personnelist
299: hr_utility.raise_error;
300: end if;
301: if p_pei_information7 in ('Y','y') then
302: hr_utility.set_message(8301, 'GHR_38043_INV_COMB_REV_APP');
303: hr_utility.raise_error;
304: end if;
305: end if;
306: -- You cannot be approver without being a Personnelist
307: if p_pei_information8 in ('Y','y') then
305: end if;
306: -- You cannot be approver without being a Personnelist
307: if p_pei_information8 in ('Y','y') then
308: if p_pei_information7 in ('N','n') then
309: hr_utility.set_message(8301, 'GHR_INV_COMB_APP_PERL');
310: hr_utility.raise_error;
311: end if;
312: end if;
313: --
306: -- You cannot be approver without being a Personnelist
307: if p_pei_information8 in ('Y','y') then
308: if p_pei_information7 in ('N','n') then
309: hr_utility.set_message(8301, 'GHR_INV_COMB_APP_PERL');
310: hr_utility.raise_error;
311: end if;
312: end if;
313: --
314: hr_utility.set_location('Entering:'||l_proc, 5);
310: hr_utility.raise_error;
311: end if;
312: end if;
313: --
314: hr_utility.set_location('Entering:'||l_proc, 5);
315: --
316: End chk_oghr_roles;
317:
318: -- -- Bug 4724337 Race or National Origin changes
346: END IF;
347: -- 165.00.3
348: IF l_ethnicity IS NOT NULL AND INSTR(l_ethnicity,'1') < 1 THEN
349: -- Throw error message
350: hr_utility.set_message(8301, 'GHR_38988_ALL_PROCEDURE_FAIL');
351: hr_utility.raise_error;
352: END IF;
353:
354: IF l_ethnicity IS NOT NULL AND INSTR(l_ethnicity,' ') > 1 THEN
347: -- 165.00.3
348: IF l_ethnicity IS NOT NULL AND INSTR(l_ethnicity,'1') < 1 THEN
349: -- Throw error message
350: hr_utility.set_message(8301, 'GHR_38988_ALL_PROCEDURE_FAIL');
351: hr_utility.raise_error;
352: END IF;
353:
354: IF l_ethnicity IS NOT NULL AND INSTR(l_ethnicity,' ') > 1 THEN
355: -- Throw error message
352: END IF;
353:
354: IF l_ethnicity IS NOT NULL AND INSTR(l_ethnicity,' ') > 1 THEN
355: -- Throw error message
356: hr_utility.set_message(8301, 'GHR_38988_ALL_PROCEDURE_FAIL');
357: hr_utility.raise_error;
358: END IF;
359:
360: FOR l_cur_rno IN c_rno(p_person_id) LOOP
353:
354: IF l_ethnicity IS NOT NULL AND INSTR(l_ethnicity,' ') > 1 THEN
355: -- Throw error message
356: hr_utility.set_message(8301, 'GHR_38988_ALL_PROCEDURE_FAIL');
357: hr_utility.raise_error;
358: END IF;
359:
360: FOR l_cur_rno IN c_rno(p_person_id) LOOP
361: l_race := l_cur_rno.race;
362: END LOOP;
363:
364: -- 165.05.3
365: IF l_race IS NULL AND l_ethnicity IS NULL THEN
366: hr_utility.set_message(8301, 'GHR_38989_ALL_PROCEDURE_FAIL');
367: hr_utility.raise_error;
368: END IF;
369: END chk_race_ethnic_info;
370: ---- Bug 4724337 Race or National Origin changes
363:
364: -- 165.05.3
365: IF l_race IS NULL AND l_ethnicity IS NULL THEN
366: hr_utility.set_message(8301, 'GHR_38989_ALL_PROCEDURE_FAIL');
367: hr_utility.raise_error;
368: END IF;
369: END chk_race_ethnic_info;
370: ---- Bug 4724337 Race or National Origin changes
371: --