PACKAGE BODY: APPS.PQH_NR_ALIEN_PKG

Source

1 package body pqh_nr_alien_pkg as
2 /* $Header: pqhnrinf.pkb 115.1 2002/04/23 13:15:10 pkm ship        $ */
3 
4 function get_count_nr_alien( p_person_id number ,p_report_date date)
5 return varchar2
6 is
7 
8   cursor c1(cp_person_id number, cp_report_date date)
9   is
10 
11    select 1 from per_people_extra_info pei
12    where pei.information_type = 'PER_US_VISA_DETAILS'
13    and pei.person_id = cp_person_id
14    and fnd_date.date_to_canonical(cp_report_date)between pei_information7 and pei_information8
15    and pei_information9 in ('04','05','06','07','12');
16 
17    l_count_nra varchar2(10);
18 
19 begin
20 
21    open c1(p_person_id, p_report_date);
22 
23    fetch c1 into l_count_nra;
24 
25    close c1;
26 
27    return l_count_nra;
28 end;
29 
30 end;