[Home] [Help]
PACKAGE BODY: APPS.HR_JP_PERSON_API
Source
1 Package Body hr_jp_person_api as
2 /* $Header: pejppapi.pkb 115.3 2003/02/07 11:29:25 pkakar ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'hr_jp_person_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< update_jp_person >----------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure update_jp_person
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_datetrack_update_mode in varchar2
16 ,p_person_id in number
17 ,p_object_version_number in out nocopy number
18 ,p_person_type_id in number default hr_api.g_number
19 ,p_last_name_kana in varchar2 default hr_api.g_varchar2
20 ,p_applicant_number in varchar2 default hr_api.g_varchar2
21 ,p_comments in varchar2 default hr_api.g_varchar2
22 ,p_date_employee_data_verified in date default hr_api.g_date
23 ,p_date_of_birth in date default hr_api.g_date
24 ,p_email_address in varchar2 default hr_api.g_varchar2
25 ,p_employee_number in out nocopy varchar2
26 ,p_expense_check_send_to_addres in varchar2 default hr_api.g_varchar2
27 ,p_first_name_kana in varchar2 default hr_api.g_varchar2
28 ,p_known_as in varchar2 default hr_api.g_varchar2
29 ,p_marital_status in varchar2 default hr_api.g_varchar2
30 ,p_middle_names in varchar2 default hr_api.g_varchar2
31 ,p_nationality in varchar2 default hr_api.g_varchar2
32 ,p_national_identifier in varchar2 default hr_api.g_varchar2
33 ,p_previous_last_name_kana in varchar2 default hr_api.g_varchar2
34 ,p_registered_disabled_flag in varchar2 default hr_api.g_varchar2
35 ,p_sex in varchar2 default hr_api.g_varchar2
36 ,p_title in varchar2 default hr_api.g_varchar2
37 ,p_vendor_id in number default hr_api.g_number
38 ,p_work_telephone in varchar2 default hr_api.g_varchar2
39 ,p_attribute_category in varchar2 default hr_api.g_varchar2
40 ,p_attribute1 in varchar2 default hr_api.g_varchar2
41 ,p_attribute2 in varchar2 default hr_api.g_varchar2
42 ,p_attribute3 in varchar2 default hr_api.g_varchar2
43 ,p_attribute4 in varchar2 default hr_api.g_varchar2
44 ,p_attribute5 in varchar2 default hr_api.g_varchar2
45 ,p_attribute6 in varchar2 default hr_api.g_varchar2
46 ,p_attribute7 in varchar2 default hr_api.g_varchar2
47 ,p_attribute8 in varchar2 default hr_api.g_varchar2
48 ,p_attribute9 in varchar2 default hr_api.g_varchar2
49 ,p_attribute10 in varchar2 default hr_api.g_varchar2
50 ,p_attribute11 in varchar2 default hr_api.g_varchar2
51 ,p_attribute12 in varchar2 default hr_api.g_varchar2
52 ,p_attribute13 in varchar2 default hr_api.g_varchar2
53 ,p_attribute14 in varchar2 default hr_api.g_varchar2
54 ,p_attribute15 in varchar2 default hr_api.g_varchar2
55 ,p_attribute16 in varchar2 default hr_api.g_varchar2
56 ,p_attribute17 in varchar2 default hr_api.g_varchar2
57 ,p_attribute18 in varchar2 default hr_api.g_varchar2
58 ,p_attribute19 in varchar2 default hr_api.g_varchar2
59 ,p_attribute20 in varchar2 default hr_api.g_varchar2
60 ,p_attribute21 in varchar2 default hr_api.g_varchar2
61 ,p_attribute22 in varchar2 default hr_api.g_varchar2
62 ,p_attribute23 in varchar2 default hr_api.g_varchar2
63 ,p_attribute24 in varchar2 default hr_api.g_varchar2
64 ,p_attribute25 in varchar2 default hr_api.g_varchar2
65 ,p_attribute26 in varchar2 default hr_api.g_varchar2
66 ,p_attribute27 in varchar2 default hr_api.g_varchar2
67 ,p_attribute28 in varchar2 default hr_api.g_varchar2
68 ,p_attribute29 in varchar2 default hr_api.g_varchar2
69 ,p_attribute30 in varchar2 default hr_api.g_varchar2
70 ,p_last_name in varchar2 default hr_api.g_varchar2
71 ,p_first_name in varchar2 default hr_api.g_varchar2
72 ,p_previous_last_name in varchar2 default hr_api.g_varchar2
73 ,p_suffix in varchar2 default hr_api.g_varchar2
74 ,p_effective_start_date out nocopy date
75 ,p_effective_end_date out nocopy date
76 ,p_full_name out nocopy varchar2
77 ,p_comment_id out nocopy number
78 ,p_name_combination_warning out nocopy boolean
79 ,p_assign_payroll_warning out nocopy boolean
80 ,p_orig_hire_warning out nocopy boolean
81 ) is
82 --
83 -- Declare cursors and local variables
84 --
85 l_proc varchar2(72) := g_package||'update_jp_person';
86 l_effective_date date;
87 l_legislation_code per_business_groups.legislation_code%type;
88 l_discard_varchar2 varchar2(30);
89 --
90 cursor check_legislation
91 (c_person_id per_people_f.person_id%TYPE,
92 c_effective_date date
93 )
94 is
95 select bgp.legislation_code
96 from per_people_f per,
97 per_business_groups bgp
98 where per.business_group_id = bgp.business_group_id
99 and per.person_id = c_person_id
100 and c_effective_date
101 between per.effective_start_date and per.effective_end_date;
102 --
103 begin
104 hr_utility.set_location('Entering:'|| l_proc, 5);
105 --
106 -- Initialise local variables
107 --
108 l_effective_date := trunc(p_effective_date);
109 --
110 -- Validation in addition to Row Handlers
111 --
112 -- Check that the person exists.
113 --
114 open check_legislation(p_person_id, l_effective_date);
115 fetch check_legislation into l_legislation_code;
116 if check_legislation%notfound then
117 close check_legislation;
118 hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
119 hr_utility.raise_error;
120 end if;
121 close check_legislation;
122 hr_utility.set_location(l_proc, 20);
123 --
124 -- Check that the legislation of the specified business group is 'JP'.
125 --
126 if l_legislation_code <> 'JP' then
127 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
128 hr_utility.set_message_token('LEG_CODE','JP');
129 hr_utility.raise_error;
130 end if;
131 hr_utility.set_location(l_proc, 30);
132 --
133 -- Update the person record using the update_person BP
134 --
135 hr_person_api.update_person
136 (p_validate => p_validate
137 ,p_effective_date => l_effective_date
138 ,p_datetrack_update_mode => p_datetrack_update_mode
139 ,p_person_id => p_person_id
140 ,p_object_version_number => p_object_version_number
141 ,p_person_type_id => p_person_type_id
142 ,p_last_name => p_last_name_kana
143 ,p_applicant_number => p_applicant_number
144 ,p_comments => p_comments
145 ,p_date_employee_data_verified => p_date_employee_data_verified
146 ,p_date_of_birth => p_date_of_birth
147 ,p_email_address => p_email_address
148 ,p_employee_number => p_employee_number
149 ,p_expense_check_send_to_addres => p_expense_check_send_to_addres
150 ,p_first_name => p_first_name_kana
151 ,p_known_as => p_known_as
152 ,p_marital_status => p_marital_status
153 ,p_middle_names => p_middle_names
154 ,p_nationality => p_nationality
155 ,p_national_identifier => p_national_identifier
156 ,p_previous_last_name => p_previous_last_name_kana
157 ,p_registered_disabled_flag => p_registered_disabled_flag
158 ,p_sex => p_sex
159 ,p_title => p_title
160 ,p_vendor_id => p_vendor_id
161 ,p_work_telephone => p_work_telephone
162 ,p_attribute_category => p_attribute_category
163 ,p_attribute1 => p_attribute1
164 ,p_attribute2 => p_attribute2
165 ,p_attribute3 => p_attribute3
166 ,p_attribute4 => p_attribute4
167 ,p_attribute5 => p_attribute5
168 ,p_attribute6 => p_attribute6
169 ,p_attribute7 => p_attribute7
170 ,p_attribute8 => p_attribute8
171 ,p_attribute9 => p_attribute9
172 ,p_attribute10 => p_attribute10
173 ,p_attribute11 => p_attribute11
174 ,p_attribute12 => p_attribute12
175 ,p_attribute13 => p_attribute13
176 ,p_attribute14 => p_attribute14
177 ,p_attribute15 => p_attribute15
178 ,p_attribute16 => p_attribute16
179 ,p_attribute17 => p_attribute17
180 ,p_attribute18 => p_attribute18
181 ,p_attribute19 => p_attribute19
182 ,p_attribute20 => p_attribute20
183 ,p_attribute21 => p_attribute21
184 ,p_attribute22 => p_attribute22
185 ,p_attribute23 => p_attribute23
186 ,p_attribute24 => p_attribute24
187 ,p_attribute25 => p_attribute25
188 ,p_attribute26 => p_attribute26
189 ,p_attribute27 => p_attribute27
190 ,p_attribute28 => p_attribute28
191 ,p_attribute29 => p_attribute29
192 ,p_attribute30 => p_attribute30
193 ,p_per_information_category => 'JP'
194 ,p_per_information18 => p_last_name
195 ,p_per_information19 => p_first_name
196 ,p_per_information20 => p_previous_last_name
197 ,p_suffix => p_suffix
198 ,p_effective_start_date => p_effective_start_date
199 ,p_effective_end_date => p_effective_end_date
200 ,p_full_name => p_full_name
201 ,p_comment_id => p_comment_id
202 ,p_name_combination_warning => p_name_combination_warning
203 ,p_assign_payroll_warning => p_assign_payroll_warning
204 ,p_orig_hire_warning => p_orig_hire_warning
205 );
206 hr_utility.set_location('Leaving: '||l_proc, 40);
207 --
208 end update_jp_person;
209 --
210 end hr_jp_person_api;