PACKAGE BODY: APPS.PAY_CA_EMP_ADDRESS_DTLS

Source

1 PACKAGE BODY pay_ca_emp_address_dtls as
2 /* $Header: paycaaddwrpr.pkb 120.1 2005/10/05 00:36 saurgupt noship $ */
3 function get_emp_address (p_person_id in number,
4                           p_address1  out nocopy  varchar2,
5                           p_address2  out nocopy varchar2,
6                           p_address3  out nocopy varchar2,
7                           p_city     out nocopy varchar2,
8                           p_postal_code out nocopy varchar2,
9                           p_country out nocopy  varchar2,
10                           p_province out nocopy varchar2 ) return Number is
11 
12 /* Local Variables  */
13 addr pay_ca_rl1_reg.primaryaddress ;
14 
15 begin
16 
17          addr := pay_ca_rl1_reg.get_primary_address(p_person_id,sysdate);
18 
19 	 p_address1    := nvl(addr.addr_line_1,' ');
20 	 p_address2    := nvl(rtrim(ltrim(addr.addr_line_2)),' ');
21 	 p_address3    := nvl(rtrim(ltrim(addr.addr_line_3)),' ');
22 	 p_city        := nvl(addr.city,' ');
23 	 p_postal_code := nvl(addr.postal_code,' ');
24 	 p_country     := nvl(addr.addr_line_5,' ');
25 	 p_province    := nvl(addr.province,' ');
26 
27 return 0;
28 
29 end;
30 
31 end;