DBA Data[Home] [Help]

APPS.HR_RO_ORG_VALIDATIONS dependencies on HR_UTILITY

Line 7: hr_utility.set_location('Entering '||l_proc,100);

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;

Line 10: hr_utility.set_message(800,'HR_RO_PARENT_ORG_REQ');

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);

Line 11: hr_utility.raise_error;

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;

Line 14: hr_utility.set_location('Leaving '||l_proc,100);

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

Line 29: hr_utility.set_location('Entering '||l_proc,10);

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);

Line 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)),

Line 34: hr_utility.set_location('l_ctl_digit: '||l_ctl_digit,15);

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))

Line 44: hr_utility.set_message(800,'HR_RO_INVALID_FIC');

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

Line 45: hr_utility.raise_error;

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

Line 55: hr_utility.set_message(800,'HR_RO_INVALID_FIC');

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);

Line 56: hr_utility.raise_error;

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;

Line 59: hr_utility.set_location('Leaving '||l_proc,100);

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

Line 77: --hr_utility.trace_on(null,'ROORG');

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);

Line 78: hr_utility.set_location('Entering '||l_proc,10);

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);

Line 85: hr_utility.set_location('Leaving '||l_proc,100);

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

Line 102: --hr_utility.trace_on(null,'ROORG');

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);

Line 103: hr_utility.set_location('Entering '||l_proc,10);

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);

Line 110: hr_utility.set_location('Leaving '||l_proc,100);

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;