16: l_lookup_codelist varchar2(200) := '';
17: l_lookup_code varchar2(30);
18: BEGIN
19: l_proc:= g_package||'CHECK_RO_WORK_INCIDENT';
20: hr_utility.set_location('Entering:'|| l_proc, 5);
21: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
22: hr_utility.set_location('Leaving : '||l_proc,10);
23: return;
24: END IF;
17: l_lookup_code varchar2(30);
18: BEGIN
19: l_proc:= g_package||'CHECK_RO_WORK_INCIDENT';
20: hr_utility.set_location('Entering:'|| l_proc, 5);
21: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
22: hr_utility.set_location('Leaving : '||l_proc,10);
23: return;
24: END IF;
25: open csr_get_lookup_code;
18: BEGIN
19: l_proc:= g_package||'CHECK_RO_WORK_INCIDENT';
20: hr_utility.set_location('Entering:'|| l_proc, 5);
21: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
22: hr_utility.set_location('Leaving : '||l_proc,10);
23: return;
24: END IF;
25: open csr_get_lookup_code;
26: loop
33:
34: END IF;
35: END LOOP;
36: CLOSE csr_get_lookup_code;
37: hr_utility.set_location('l_lookup_codelist:'|| l_lookup_codelist, 15);
38:
39: IF p_incident_type not in ('RO_1','RO_2','RO_3') THEN
40: hr_utility.set_message(800, 'HR_520019_INVALID_INC_TYPE');
41: hr_utility.set_message_token('INCIDENT_TYPE', l_lookup_codelist);
36: CLOSE csr_get_lookup_code;
37: hr_utility.set_location('l_lookup_codelist:'|| l_lookup_codelist, 15);
38:
39: IF p_incident_type not in ('RO_1','RO_2','RO_3') THEN
40: hr_utility.set_message(800, 'HR_520019_INVALID_INC_TYPE');
41: hr_utility.set_message_token('INCIDENT_TYPE', l_lookup_codelist);
42: hr_utility.raise_error;
43: END IF;
44:
37: hr_utility.set_location('l_lookup_codelist:'|| l_lookup_codelist, 15);
38:
39: IF p_incident_type not in ('RO_1','RO_2','RO_3') THEN
40: hr_utility.set_message(800, 'HR_520019_INVALID_INC_TYPE');
41: hr_utility.set_message_token('INCIDENT_TYPE', l_lookup_codelist);
42: hr_utility.raise_error;
43: END IF;
44:
45: hr_utility.set_location('Leaving : '||l_proc,20);
38:
39: IF p_incident_type not in ('RO_1','RO_2','RO_3') THEN
40: hr_utility.set_message(800, 'HR_520019_INVALID_INC_TYPE');
41: hr_utility.set_message_token('INCIDENT_TYPE', l_lookup_codelist);
42: hr_utility.raise_error;
43: END IF;
44:
45: hr_utility.set_location('Leaving : '||l_proc,20);
46: end CHECK_RO_WORK_INCIDENT;
41: hr_utility.set_message_token('INCIDENT_TYPE', l_lookup_codelist);
42: hr_utility.raise_error;
43: END IF;
44:
45: hr_utility.set_location('Leaving : '||l_proc,20);
46: end CHECK_RO_WORK_INCIDENT;
47:
48: END per_ro_work_incident;