[Home] [Help]
PACKAGE BODY: APPS.PER_RU_ORG_INFO
Source
1 PACKAGE BODY PER_RU_ORG_INFO AS
2 /* $Header: peruorgp.pkb 120.1 2006/09/20 14:05:03 mgettins noship $ */
3 PROCEDURE CREATE_RU_ORG_INFO(
4 p_organization_id NUMBER
5 ,p_org_info_type_code VARCHAR2
6 ,p_org_information1 VARCHAR2
7 ,p_org_information2 VARCHAR2
8 ,p_org_information3 VARCHAR2
9 ,p_org_information4 VARCHAR2
10 ,p_org_information5 VARCHAR2
11 ,p_org_information7 VARCHAR2
12 ,p_org_information8 VARCHAR2
13 ,p_org_information12 VARCHAR2
14 ) is
15 l_status NUMBER;
16 BEGIN
17 --
18 -- Added for GSI Bug 5472781
19 --
20 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
21 --
22 IF p_org_info_type_code='RU_COMPANY_INFORMATION' THEN
23 l_status := hr_ru_utility.validate_tax_no(p_org_information2);
24 IF l_status = 0 THEN
25 hr_utility.set_message (800, 'HR_RU_INVALID_ORG_INN');
26 hr_utility.raise_error;
27 END IF;
28 l_status := hr_ru_utility.validate_ogrn(p_org_information12);
29 IF l_status = 0 THEN
30 hr_utility.set_message (800, 'HR_RU_INVALID_OGRN_NO');
31 hr_utility.raise_error;
32 END IF;
33 l_status := hr_ru_utility.validate_org_spifn(p_org_information4);
34 IF l_status = 0 THEN
35 hr_utility.set_message (800, 'HR_RU_INVALID_PENSION_NO');
36 hr_utility.raise_error;
37 END IF;
38 l_status := hr_ru_utility.validate_kpp(p_org_information3);
39 IF l_status = 0 THEN
40 hr_utility.set_message (800, 'HR_RU_INVALID_KPP_NO');
41 hr_utility.raise_error;
42 END IF;
43 l_status := hr_ru_utility.validate_si(p_org_information5);
44 IF l_status = 0 THEN
45 hr_utility.set_message (800, 'HR_RU_INVALID_SI_NO');
46 hr_utility.raise_error;
47 END IF;
48 l_status := hr_ru_utility.validate_okogu(p_org_information8);
49 IF l_status = 0 THEN
50 hr_utility.set_message (800, 'HR_RU_INVALID_OKOGU_CODE');
51 hr_utility.raise_error;
52 END IF;
53 l_status := hr_ru_utility.validate_okpo(p_org_information7);
54 IF l_status = 0 THEN
55 hr_utility.set_message (800, 'HR_RU_INVALID_OKPO_CODE');
56 hr_utility.raise_error;
57 END IF;
58 ELSIF p_org_info_type_code = 'RU_COMPANY_ACTIVITY_TYPES' THEN
59 l_status := hr_ru_utility.validate_okved(p_org_information1);
60 IF l_status = 0 THEN
61 hr_utility.set_message (800, 'HR_RU_INVALID_OKVED_CODE');
62 hr_utility.raise_error;
63 END IF;
64 END IF;
65 END IF;
66 END CREATE_RU_ORG_INFO;
67 PROCEDURE UPDATE_RU_ORG_INFO(
68 p_org_information_id NUMBER
69 ,p_org_info_type_code VARCHAR2
70 ,p_org_information1 VARCHAR2
71 ,p_org_information2 VARCHAR2
72 ,p_org_information3 VARCHAR2
73 ,p_org_information4 VARCHAR2
74 ,p_org_information5 VARCHAR2
75 ,p_org_information7 VARCHAR2
76 ,p_org_information8 VARCHAR2
77 ,p_org_information12 VARCHAR2
78 ) is
79 l_org_id number;
80 l_status NUMBER;
81 cursor csr_org_id is
82 select organization_id
83 from hr_organization_information
84 where org_information_id = p_org_information_id;
85 BEGIN
86 --
87 -- Added for GSI Bug 5472781
88 --
89 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
90 --
91 OPEN csr_org_id;
92 FETCH csr_org_id into l_org_id;
93 CLOSE csr_org_id;
94 IF p_org_info_type_code='RU_COMPANY_INFORMATION' THEN
95 IF p_org_information2 <> hr_api.g_varchar2 THEN
96 l_status := hr_ru_utility.validate_tax_no(p_org_information2);
97 IF l_status = 0 THEN
98 hr_utility.set_message (800, 'HR_RU_INVALID_ORG_INN');
99 hr_utility.raise_error;
100 END IF;
101 END IF;
102 IF p_org_information12 <> hr_api.g_varchar2
103 THEN
104 l_status := hr_ru_utility.validate_ogrn(p_org_information12);
105 IF l_status = 0 THEN
106 hr_utility.set_message (800, 'HR_RU_INVALID_OGRN_NO');
107 hr_utility.raise_error;
108 END IF;
109 END IF;
110 IF p_org_information3 <> hr_api.g_varchar2 THEN
111 l_status := hr_ru_utility.validate_kpp(p_org_information3);
112 IF l_status = 0 THEN
113 hr_utility.set_message (800, 'HR_RU_INVALID_KPP_NO');
114 hr_utility.raise_error;
115 END IF;
116 END IF;
117 IF p_org_information5 <> hr_api.g_varchar2 THEN
118 l_status := hr_ru_utility.validate_si(p_org_information5);
119 IF l_status = 0 THEN
120 hr_utility.set_message (800, 'HR_RU_INVALID_SI_NO');
121 hr_utility.raise_error;
122 END IF;
123 END IF;
124 IF p_org_information8 <> hr_api.g_varchar2 THEN
125 l_status := hr_ru_utility.validate_okogu(p_org_information8);
126 IF l_status = 0 THEN
127 hr_utility.set_message (800, 'HR_RU_INVALID_OKOGU_CODE');
128 hr_utility.raise_error;
129 END IF;
130 END IF;
131 IF p_org_information7 <> hr_api.g_varchar2 THEN
132 l_status := hr_ru_utility.validate_okpo(p_org_information7);
133 IF l_status = 0 THEN
134 hr_utility.set_message (800, 'HR_RU_INVALID_OKPO_CODE');
135 hr_utility.raise_error;
136 END IF;
137 END IF;
138 IF p_org_information4 <> hr_api.g_varchar2 THEN
139 l_status := hr_ru_utility.validate_org_spifn(p_org_information4);
140 IF l_status = 0 THEN
141 hr_utility.set_message (800, 'HR_RU_INVALID_PENSION_NO');
142 hr_utility.raise_error;
143 END IF;
144 END IF;
145 ELSIF p_org_info_type_code = 'RU_COMPANY_ACTIVITY_TYPES' THEN
146 IF p_org_information1 <> hr_api.g_varchar2 THEN
147 l_status := hr_ru_utility.validate_okved(p_org_information1);
148 IF l_status = 0 THEN
149 hr_utility.set_message (800, 'HR_RU_INVALID_OKVED_CODE');
150 hr_utility.raise_error;
151 END IF;
152 END IF;
153 END IF;
154 END IF;
155 END UPDATE_RU_ORG_INFO;
156
157 END PER_RU_ORG_INFO;