135: IS
136: l_proc CONSTANT VARCHAR2(50):= g_package||'fetch_address_rec';
137: l_arch BOOLEAN;
138: --address details
139: l_address_line1 per_addresses.address_line1%TYPE;
140: l_address_line2 per_addresses.address_line2%TYPE;
141: l_address_line3 per_addresses.address_line3%TYPE;
142: l_address_line4 per_addresses.address_line3%TYPE;
143:
136: l_proc CONSTANT VARCHAR2(50):= g_package||'fetch_address_rec';
137: l_arch BOOLEAN;
138: --address details
139: l_address_line1 per_addresses.address_line1%TYPE;
140: l_address_line2 per_addresses.address_line2%TYPE;
141: l_address_line3 per_addresses.address_line3%TYPE;
142: l_address_line4 per_addresses.address_line3%TYPE;
143:
144: CURSOR csr_address
137: l_arch BOOLEAN;
138: --address details
139: l_address_line1 per_addresses.address_line1%TYPE;
140: l_address_line2 per_addresses.address_line2%TYPE;
141: l_address_line3 per_addresses.address_line3%TYPE;
142: l_address_line4 per_addresses.address_line3%TYPE;
143:
144: CURSOR csr_address
145: IS
138: --address details
139: l_address_line1 per_addresses.address_line1%TYPE;
140: l_address_line2 per_addresses.address_line2%TYPE;
141: l_address_line3 per_addresses.address_line3%TYPE;
142: l_address_line4 per_addresses.address_line3%TYPE;
143:
144: CURSOR csr_address
145: IS
146: SELECT upper(SUBSTR(trim(addr.address_line1),1,35)) addr1,
148: upper(SUBSTR(trim(addr.address_line3),1,35)) addr3,
149: SUBSTR(addr.postal_code,1,10) post_code,
150: upper(SUBSTR(trim(addr.town_or_city),1,35)) addr4,
151: upper(SUBSTR(trim(addr.country),1,35)) country
152: FROM per_addresses addr
153: WHERE addr.person_id = p_person_id
154: AND ( addr.primary_flag = 'Y'
155: OR addr.primary_flag IS NULL)
156: AND p_effective_date