3:
4: PROCEDURE checkParentOrg(p_org_type VARCHAR2,p_parent_org VARCHAR2) IS
5: l_proc varchar2(100) := 'checkParentOrg';
6: BEGIN
7: hr_utility.set_location('Entering '||l_proc,100);
8:
9: IF ( p_org_type <> 'HQ' and (p_parent_org = hr_api.g_varchar2 OR p_parent_org is null ) )THEN
10: hr_utility.set_message(800,'HR_RO_PARENT_ORG_REQ');
11: hr_utility.raise_error;
6: BEGIN
7: hr_utility.set_location('Entering '||l_proc,100);
8:
9: IF ( p_org_type <> 'HQ' and (p_parent_org = hr_api.g_varchar2 OR p_parent_org is null ) )THEN
10: hr_utility.set_message(800,'HR_RO_PARENT_ORG_REQ');
11: hr_utility.raise_error;
12: END IF;
13:
14: hr_utility.set_location('Leaving '||l_proc,100);
7: hr_utility.set_location('Entering '||l_proc,100);
8:
9: IF ( p_org_type <> 'HQ' and (p_parent_org = hr_api.g_varchar2 OR p_parent_org is null ) )THEN
10: hr_utility.set_message(800,'HR_RO_PARENT_ORG_REQ');
11: hr_utility.raise_error;
12: END IF;
13:
14: hr_utility.set_location('Leaving '||l_proc,100);
15: END checkParentOrg;
10: hr_utility.set_message(800,'HR_RO_PARENT_ORG_REQ');
11: hr_utility.raise_error;
12: END IF;
13:
14: hr_utility.set_location('Leaving '||l_proc,100);
15: END checkParentOrg;
16:
17:
18: PROCEDURE checkFIC(p_value VARCHAR2) IS
25: l_tot number := 0;
26: l_rem number := 0;
27: BEGIN
28:
29: hr_utility.set_location('Entering '||l_proc,10);
30:
31: l_num_part := lpad(substr(p_value,3,length(p_value)-3),9,'0');
32: l_ctl_digit := substr(p_value,-1,1);
33: hr_utility.set_location(' l_num_part: '||l_num_part,15);
29: hr_utility.set_location('Entering '||l_proc,10);
30:
31: l_num_part := lpad(substr(p_value,3,length(p_value)-3),9,'0');
32: l_ctl_digit := substr(p_value,-1,1);
33: hr_utility.set_location(' l_num_part: '||l_num_part,15);
34: hr_utility.set_location('l_ctl_digit: '||l_ctl_digit,15);
35:
36: begin
37: select to_number(reverse(l_num_part)),
30:
31: l_num_part := lpad(substr(p_value,3,length(p_value)-3),9,'0');
32: l_ctl_digit := substr(p_value,-1,1);
33: hr_utility.set_location(' l_num_part: '||l_num_part,15);
34: hr_utility.set_location('l_ctl_digit: '||l_ctl_digit,15);
35:
36: begin
37: select to_number(reverse(l_num_part)),
38: to_number(reverse(l_testKey))
40: l_testKey_rev
41: from dual;
42: exception
43: when others then
44: hr_utility.set_message(800,'HR_RO_INVALID_FIC');
45: hr_utility.raise_error;
46: end;
47:
48: for i in 1..9
41: from dual;
42: exception
43: when others then
44: hr_utility.set_message(800,'HR_RO_INVALID_FIC');
45: hr_utility.raise_error;
46: end;
47:
48: for i in 1..9
49: loop
51: end loop;
52: l_rem := mod(l_tot *10,11);
53:
54: IF (l_rem <> l_ctl_digit )THEN
55: hr_utility.set_message(800,'HR_RO_INVALID_FIC');
56: hr_utility.raise_error;
57: END IF;
58:
59: hr_utility.set_location('Leaving '||l_proc,100);
52: l_rem := mod(l_tot *10,11);
53:
54: IF (l_rem <> l_ctl_digit )THEN
55: hr_utility.set_message(800,'HR_RO_INVALID_FIC');
56: hr_utility.raise_error;
57: END IF;
58:
59: hr_utility.set_location('Leaving '||l_proc,100);
60: END checkFIC;
55: hr_utility.set_message(800,'HR_RO_INVALID_FIC');
56: hr_utility.raise_error;
57: END IF;
58:
59: hr_utility.set_location('Leaving '||l_proc,100);
60: END checkFIC;
61:
62:
63: PROCEDURE CREATE_RO_ORG_INFO(p_org_info_type_code VARCHAR2
73: ,p_effective_date DATE
74: ) IS
75: l_proc varchar2(30) := 'CREATE_RO_ORG_INFO';
76: BEGIN
77: --hr_utility.trace_on(null,'ROORG');
78: hr_utility.set_location('Entering '||l_proc,10);
79:
80: IF p_org_info_type_code='RO_LEGAL_EMPLOYER' THEN
81: checkParentOrg(p_org_information1,p_org_information2);
74: ) IS
75: l_proc varchar2(30) := 'CREATE_RO_ORG_INFO';
76: BEGIN
77: --hr_utility.trace_on(null,'ROORG');
78: hr_utility.set_location('Entering '||l_proc,10);
79:
80: IF p_org_info_type_code='RO_LEGAL_EMPLOYER' THEN
81: checkParentOrg(p_org_information1,p_org_information2);
82: checkFIC(p_org_information5);
81: checkParentOrg(p_org_information1,p_org_information2);
82: checkFIC(p_org_information5);
83: END IF;
84:
85: hr_utility.set_location('Leaving '||l_proc,100);
86: END CREATE_RO_ORG_INFO;
87:
88: PROCEDURE UPDATE_RO_ORG_INFO(p_org_info_type_code VARCHAR2
89: ,p_org_information1 VARCHAR2
98: ,p_effective_date DATE
99: ) IS
100: l_proc varchar2(30) := 'UPDATE_RO_ORG_INFO';
101: BEGIN
102: --hr_utility.trace_on(null,'ROORG');
103: hr_utility.set_location('Entering '||l_proc,10);
104:
105: IF p_org_info_type_code='RO_LEGAL_EMPLOYER' THEN
106: checkParentOrg(p_org_information1,p_org_information2);
99: ) IS
100: l_proc varchar2(30) := 'UPDATE_RO_ORG_INFO';
101: BEGIN
102: --hr_utility.trace_on(null,'ROORG');
103: hr_utility.set_location('Entering '||l_proc,10);
104:
105: IF p_org_info_type_code='RO_LEGAL_EMPLOYER' THEN
106: checkParentOrg(p_org_information1,p_org_information2);
107: checkFIC(p_org_information5);
106: checkParentOrg(p_org_information1,p_org_information2);
107: checkFIC(p_org_information5);
108: END IF;
109:
110: hr_utility.set_location('Leaving '||l_proc,100);
111: END UPDATE_RO_ORG_INFO;
112:
113:
114: END HR_RO_ORG_VALIDATIONS;