39: l_lookup_coderesult varchar2(200) := '';
40: l_lookup_code varchar2(30);
41: BEGIN
42: l_proc:= g_package||'CHECK_RO_MEDICAL_ASSMNT';
43: hr_utility.set_location('Entering:'|| l_proc, 5);
44: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
45: hr_utility.set_location('Leaving : '||l_proc,10);
46: return;
47: END IF;
40: l_lookup_code varchar2(30);
41: BEGIN
42: l_proc:= g_package||'CHECK_RO_MEDICAL_ASSMNT';
43: hr_utility.set_location('Entering:'|| l_proc, 5);
44: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
45: hr_utility.set_location('Leaving : '||l_proc,10);
46: return;
47: END IF;
48:
41: BEGIN
42: l_proc:= g_package||'CHECK_RO_MEDICAL_ASSMNT';
43: hr_utility.set_location('Entering:'|| l_proc, 5);
44: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
45: hr_utility.set_location('Leaving : '||l_proc,10);
46: return;
47: END IF;
48:
49: open csr_get_lookup_code('CONSULTATION_TYPE','+RO');
72: close csr_get_lookup_code;
73:
74: if (p_disability_id is null or p_disability_id = -987123654) and (p_incident_id is null or p_incident_id = -987123654 ) then
75: if p_consultation_type is not null and p_consultation_type not in ('RO_FIRST_CONTROL','RO_PERIODICAL') then
76: hr_utility.set_message(800, 'HR_520020_INV_MED_ASSMNT_TYPE');
77: hr_utility.set_message_token('CONSULTATION_TYPE', l_lookup_codetype);
78: hr_utility.raise_error;
79: end if;
80: end if;
73:
74: if (p_disability_id is null or p_disability_id = -987123654) and (p_incident_id is null or p_incident_id = -987123654 ) then
75: if p_consultation_type is not null and p_consultation_type not in ('RO_FIRST_CONTROL','RO_PERIODICAL') then
76: hr_utility.set_message(800, 'HR_520020_INV_MED_ASSMNT_TYPE');
77: hr_utility.set_message_token('CONSULTATION_TYPE', l_lookup_codetype);
78: hr_utility.raise_error;
79: end if;
80: end if;
81: IF p_consultation_result is not null and p_consultation_result not in ('ABLE','UNABLE','CONDITIONAL_ABLE','TEMPORARY_UNABLE') THEN
74: if (p_disability_id is null or p_disability_id = -987123654) and (p_incident_id is null or p_incident_id = -987123654 ) then
75: if p_consultation_type is not null and p_consultation_type not in ('RO_FIRST_CONTROL','RO_PERIODICAL') then
76: hr_utility.set_message(800, 'HR_520020_INV_MED_ASSMNT_TYPE');
77: hr_utility.set_message_token('CONSULTATION_TYPE', l_lookup_codetype);
78: hr_utility.raise_error;
79: end if;
80: end if;
81: IF p_consultation_result is not null and p_consultation_result not in ('ABLE','UNABLE','CONDITIONAL_ABLE','TEMPORARY_UNABLE') THEN
82: hr_utility.set_message(800, 'HR_520021_INV_MED_ASSMNT_RES');
78: hr_utility.raise_error;
79: end if;
80: end if;
81: IF p_consultation_result is not null and p_consultation_result not in ('ABLE','UNABLE','CONDITIONAL_ABLE','TEMPORARY_UNABLE') THEN
82: hr_utility.set_message(800, 'HR_520021_INV_MED_ASSMNT_RES');
83: hr_utility.set_message_token('CONSULTATION_RESULT', l_lookup_coderesult);
84: hr_utility.raise_error;
85: END IF;
86: hr_utility.set_location('Leaving : '||l_proc,20);
79: end if;
80: end if;
81: IF p_consultation_result is not null and p_consultation_result not in ('ABLE','UNABLE','CONDITIONAL_ABLE','TEMPORARY_UNABLE') THEN
82: hr_utility.set_message(800, 'HR_520021_INV_MED_ASSMNT_RES');
83: hr_utility.set_message_token('CONSULTATION_RESULT', l_lookup_coderesult);
84: hr_utility.raise_error;
85: END IF;
86: hr_utility.set_location('Leaving : '||l_proc,20);
87: END CHECK_RO_MEDICAL_ASSMNT;
80: end if;
81: IF p_consultation_result is not null and p_consultation_result not in ('ABLE','UNABLE','CONDITIONAL_ABLE','TEMPORARY_UNABLE') THEN
82: hr_utility.set_message(800, 'HR_520021_INV_MED_ASSMNT_RES');
83: hr_utility.set_message_token('CONSULTATION_RESULT', l_lookup_coderesult);
84: hr_utility.raise_error;
85: END IF;
86: hr_utility.set_location('Leaving : '||l_proc,20);
87: END CHECK_RO_MEDICAL_ASSMNT;
88:
82: hr_utility.set_message(800, 'HR_520021_INV_MED_ASSMNT_RES');
83: hr_utility.set_message_token('CONSULTATION_RESULT', l_lookup_coderesult);
84: hr_utility.raise_error;
85: END IF;
86: hr_utility.set_location('Leaving : '||l_proc,20);
87: END CHECK_RO_MEDICAL_ASSMNT;
88:
89:
90: