[Home] [Help]
PACKAGE BODY: APPS.HR_FI_CONTACT_API
Source
1 PACKAGE BODY HR_FI_CONTACT_API AS
2 /* $Header: peconfii.pkb 120.1.12000000.2 2007/02/14 12:17:11 dbehera ship $ */
3 --
4 -- Package Variables
5 g_package varchar2(33) := 'hr_fi_contact_api';
6 g_debug boolean := hr_utility.debug_enabled;
7
8 --
9 -- ----------------------------------------------------------------------------
10 -- |----------------------------< create_fi_person >-----------------------------|
11 -- ----------------------------------------------------------------------------
12 --
13 procedure create_fi_person
14 (p_validate in boolean default false
15 ,p_start_date in date
16 ,p_business_group_id in number
17 ,p_last_name in varchar2
18 ,p_sex in varchar2
19 ,p_person_type_id in number default null
20 ,p_comments in varchar2 default null
21 ,p_date_employee_data_verified in date default null
22 ,p_date_of_birth in date default null
23 ,p_email_address in varchar2 default null
24 ,p_expense_check_send_to_addres in varchar2 default null
25 ,p_first_name in varchar2
26 ,p_known_as in varchar2 default null
27 ,p_marital_status in varchar2 default null
28 ,p_nationality in varchar2
29 ,p_national_identifier in varchar2 default null
30 ,p_previous_last_name in varchar2 default null
31 ,p_registered_disabled_flag in varchar2 default null
32 ,p_title in varchar2
33 ,p_vendor_id in number default null
34 ,p_work_telephone in varchar2 default null
35 ,p_attribute_category in varchar2 default null
36 ,p_attribute1 in varchar2 default null
37 ,p_attribute2 in varchar2 default null
38 ,p_attribute3 in varchar2 default null
39 ,p_attribute4 in varchar2 default null
40 ,p_attribute5 in varchar2 default null
41 ,p_attribute6 in varchar2 default null
42 ,p_attribute7 in varchar2 default null
43 ,p_attribute8 in varchar2 default null
44 ,p_attribute9 in varchar2 default null
45 ,p_attribute10 in varchar2 default null
46 ,p_attribute11 in varchar2 default null
47 ,p_attribute12 in varchar2 default null
48 ,p_attribute13 in varchar2 default null
49 ,p_attribute14 in varchar2 default null
50 ,p_attribute15 in varchar2 default null
51 ,p_attribute16 in varchar2 default null
52 ,p_attribute17 in varchar2 default null
53 ,p_attribute18 in varchar2 default null
54 ,p_attribute19 in varchar2 default null
55 ,p_attribute20 in varchar2 default null
56 ,p_attribute21 in varchar2 default null
57 ,p_attribute22 in varchar2 default null
58 ,p_attribute23 in varchar2 default null
59 ,p_attribute24 in varchar2 default null
60 ,p_attribute25 in varchar2 default null
61 ,p_attribute26 in varchar2 default null
62 ,p_attribute27 in varchar2 default null
63 ,p_attribute28 in varchar2 default null
64 ,p_attribute29 in varchar2 default null
65 ,p_attribute30 in varchar2 default null
66 ,p_place_of_residence in varchar2 default null
67 ,p_secondary_email in varchar2 default null
68 ,p_epost_address in varchar2 default null
69 ,p_speed_dial_number in varchar2 default null
70 ,p_qualification in varchar2 default null
71 ,p_level in varchar2 default null
72 ,p_field in varchar2 default null
73 ,p_retirement_date in varchar2 default null
74 ,p_union_name in varchar2 default null
75 ,p_membership_number in varchar2 default null
76 ,p_payment_mode in varchar2 default null
77 ,p_fixed_amount in varchar2 default null
78 ,p_percentage in varchar2 default null
79 ,p_membership_start_date in varchar2 default null
80 ,p_membership_end_date in varchar2 default null
81 ,p_mother_tongue in varchar2 default null
82 ,p_foreign_personal_id in varchar2 default null
83 ,p_correspondence_language in varchar2 default null
84 ,p_honors in varchar2 default null
85 ,p_benefit_group_id in number default null
86 ,p_on_military_service in varchar2 default null
87 ,p_student_status in varchar2 default null
88 ,p_uses_tobacco_flag in varchar2 default null
89 ,p_coord_ben_no_cvg_flag in varchar2 default null
90 ,p_town_of_birth in varchar2 default null
91 ,p_region_of_birth in varchar2 default null
92 ,p_country_of_birth in varchar2 default null
93 ,p_global_person_id in varchar2 default null
94 ,p_person_id out nocopy number
95 ,p_object_version_number out nocopy number
96 ,p_effective_start_date out nocopy date
97 ,p_effective_end_date out nocopy date
98 ,p_full_name out nocopy varchar2
99 ,p_comment_id out nocopy number
100 ,p_name_combination_warning out nocopy boolean
101 ,p_orig_hire_warning out nocopy boolean
102 ) is
103
104 l_proc varchar2(72) := g_package||'update_fi_person';
105 l_legislation_code per_business_groups.legislation_code%type;
106 l_discard_varchar2 varchar2(30);
107 --
108 cursor check_legislation
109 (c_business_group_id per_people_f.person_id%TYPE
110 )
111 is
112 select bgp.legislation_code
113 from per_business_groups bgp
114 where bgp.business_group_id = c_business_group_id;
115 begin
116
117 if g_debug then
118 hr_utility.set_location('Entering:'|| l_proc, 5);
119 end if;
120 --
121 -- Validation in addition to Row Handlers
122 --
123 --
124 open check_legislation(p_business_group_id);
125 fetch check_legislation into l_legislation_code;
126 close check_legislation;
127 if g_debug then
128 hr_utility.set_location(l_proc, 20);
129 end if;
130 --
131 -- Check that the legislation of the specified business group is 'FI'.
132 --
133 if l_legislation_code <> 'FI' then
134 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
135 hr_utility.set_message_token('LEG_CODE','FI');
136 hr_utility.raise_error;
137 end if;
138
139 if p_membership_start_date is not null and p_membership_end_date is not null and
140 p_membership_start_date > p_membership_end_date then
141 hr_utility.set_message(801, 'HR_376639_FI_VALID_DATE');
142 hr_utility.set_message_token('LEG_CODE','FI');
143 hr_utility.raise_error;
144 end if;
145
146 if g_debug then
147 hr_utility.set_location(l_proc, 30);
148 end if;
149
150 hr_contact_api.create_person
151 (p_validate => p_validate
152 ,p_start_date => p_start_date
153 ,p_business_group_id => p_business_group_id
154 ,p_last_name => p_last_name
155 ,p_sex => p_sex
156 ,p_person_type_id => p_person_type_id
157 ,p_comments => p_comments
158 ,p_date_employee_data_verified => p_date_employee_data_verified
159 ,p_date_of_birth => p_date_of_birth
160 ,p_email_address => p_email_address
161 ,p_expense_check_send_to_addres => p_expense_check_send_to_addres
162 ,p_first_name => p_first_name
163 ,p_known_as => p_known_as
164 ,p_marital_status => p_marital_status
165 ,p_nationality => p_nationality
166 ,p_national_identifier => p_national_identifier
167 ,p_previous_last_name => p_previous_last_name
168 ,p_registered_disabled_flag => p_registered_disabled_flag
169 ,p_title => p_title
170 ,p_vendor_id => p_vendor_id
171 ,p_work_telephone => p_work_telephone
172 ,p_attribute_category => p_attribute_category
173 ,p_attribute1 => p_attribute1
174 ,p_attribute2 => p_attribute2
175 ,p_attribute3 => p_attribute3
176 ,p_attribute4 => p_attribute4
177 ,p_attribute5 => p_attribute5
178 ,p_attribute6 => p_attribute6
179 ,p_attribute7 => p_attribute7
180 ,p_attribute8 => p_attribute8
181 ,p_attribute9 => p_attribute9
182 ,p_attribute10 => p_attribute10
183 ,p_attribute11 => p_attribute11
184 ,p_attribute12 => p_attribute12
185 ,p_attribute13 => p_attribute13
186 ,p_attribute14 => p_attribute14
187 ,p_attribute15 => p_attribute15
188 ,p_attribute16 => p_attribute16
189 ,p_attribute17 => p_attribute17
190 ,p_attribute18 => p_attribute18
191 ,p_attribute19 => p_attribute19
192 ,p_attribute20 => p_attribute20
193 ,p_attribute21 => p_attribute21
194 ,p_attribute22 => p_attribute22
195 ,p_attribute23 => p_attribute23
196 ,p_attribute24 => p_attribute24
197 ,p_attribute25 => p_attribute25
198 ,p_attribute26 => p_attribute26
199 ,p_attribute27 => p_attribute27
200 ,p_attribute28 => p_attribute28
201 ,p_attribute29 => p_attribute29
202 ,p_attribute30 => p_attribute30
203 ,p_per_information_category => 'FI'
204 ,p_per_information1 => p_place_of_residence
205 ,p_per_information2 => p_secondary_email
206 ,p_per_information3 => p_epost_address
207 ,p_per_information4 => p_speed_dial_number
208 ,p_per_information5 => p_qualification
209 ,p_per_information6 => p_level
210 ,p_per_information7 => p_field
211 ,p_per_information8 => p_retirement_date
212 ,p_per_information9 => p_union_name
213 ,p_per_information10 => p_membership_number
214 ,p_per_information11 => p_payment_mode
215 ,p_per_information12 => p_fixed_amount
216 ,p_per_information13 => p_percentage
217 ,p_per_information18 => p_membership_start_date
218 ,p_per_information19 => p_membership_end_date
219 ,p_per_information22 => p_mother_tongue
220 ,p_per_information23 => p_foreign_personal_id
221 ,p_correspondence_language => p_correspondence_language
222 ,p_honors => p_honors
223 ,p_benefit_group_id => p_benefit_group_id
224 ,p_on_military_service => p_on_military_service
225 ,p_student_status => p_student_status
226 ,p_uses_tobacco_flag => p_uses_tobacco_flag
227 ,p_coord_ben_no_cvg_flag => p_coord_ben_no_cvg_flag
228 ,p_town_of_birth => p_town_of_birth
229 ,p_region_of_birth => p_region_of_birth
230 ,p_country_of_birth => p_country_of_birth
231 ,p_global_person_id => p_global_person_id
232 ,p_person_id => p_person_id
233 ,p_object_version_number => p_object_version_number
234 ,p_effective_start_date => p_effective_start_date
235 ,p_effective_end_date => p_effective_end_date
236 ,p_full_name => p_full_name
237 ,p_comment_id => p_comment_id
238 ,p_name_combination_warning => p_name_combination_warning
239 ,p_orig_hire_warning => p_orig_hire_warning);
240
241 --
242 if g_debug then
243 hr_utility.set_location(' Leaving:'||l_proc, 7);
244 end if;
245 --
246 end create_fi_person;
247
248 END hr_fi_contact_api;