1 package body per_kr_address_update_hook_pkg as
2 /* $Header: pekradup.pkb 115.0 2003/05/06 12:27:34 krapolu noship $ */
3
4
5 procedure update_address_line1_ai(
6 p_address_id in number
7 ,p_business_group_id in number
8 ,p_person_id in number
9 ,p_style in varchar2
10 ,p_add_information17 in varchar2)
11 is
12
13 cursor csr_kr_person_address
14 is
15 select pka.city_province||' '||pka.district||' '||pka.town_village kr_address
16 from per_kr_addresses pka
17 where postal_code_id=to_number(p_add_information17);
18
19 l_kr_address varchar2(200);
20
21 begin
22
23 if p_style ='KR' then
24
25 open csr_kr_person_address;
26 fetch csr_kr_person_address into l_kr_address;
27 close csr_kr_person_address;
28
29 hr_general.g_data_migrator_mode:='Y';
30
31 update per_addresses
32 set address_line1 = l_kr_address
33 where person_id = p_person_id
34 and business_group_id = p_business_group_id
35 and address_id = p_address_id;
36
37 hr_general.g_data_migrator_mode:='N';
38
39 end if;
40
41
42 end update_address_line1_ai;
43
44 procedure update_address_line1_au(
45 p_address_id in number
46 ,p_business_group_id_o in number
47 ,p_person_id_o in number
48 ,p_style_o in varchar2
49 ,p_add_information17 in varchar2)
50 is
51
52 begin
53
54 update_address_line1_ai(p_address_id => p_address_id
55 ,p_business_group_id => p_business_group_id_o
56 ,p_person_id => p_person_id_o
57 ,p_style => p_style_o
58 ,p_add_information17 => p_add_information17);
59
60 end update_address_line1_au;
61
62 end per_kr_address_update_hook_pkg;
63