PACKAGE BODY: APPS.PER_DTR_CHK_PKG

Source

1 PACKAGE BODY per_dtr_chk_pkg AS
2 /* $Header: pedtrchk.pkb 120.0 2006/06/26 15:35:08 debhatta noship $ */
3 
4 type t_numbers is table of number index by binary_integer;
5 g_element_type_ids	t_numbers;
6 
7 PROCEDURE GHR_ELT_BEN_CONV(p_result OUT nocopy varchar2) IS
8 
9      GHR_APPLICATION_ID constant   number:=8301;
10      GHR_STATUS_INSTALLED constant varchar2(2):='I';
11 
12      cursor csr_ghr_installed is
13      select status
14      from fnd_product_installations
15      where application_id = GHR_APPLICATION_ID;
16 
17      l_installed fnd_product_installations.status%type;
18      l_result varchar2(10) ;
19 
20 BEGIN
21     l_result := 'FALSE';
22     open csr_ghr_installed;
23     fetch csr_ghr_installed into l_installed;
24     if ( l_installed = GHR_STATUS_INSTALLED ) then
25       l_result := 'TRUE';
26     end if;
27     close csr_ghr_installed;
28 
29     p_result  := l_result;
30    --
31 END GHR_ELT_BEN_CONV;
32 
33 
34 PROCEDURE HRAPLUPD1(p_result OUT nocopy varchar2) IS
35   l_result varchar2(10);
36 BEGIN
37    l_result := hr_update_utility.isUpdateComplete
38       (p_app_shortname      => 'PER'
39       ,p_function_name      => null
40       ,p_business_group_id  => null
41       ,p_update_name        => 'HRAPLUPD1');
42    --
43    if l_result = 'FALSE' then
44       p_result := 'TRUE';
45    else
46      p_result := 'FALSE';
47    end if;
48    --
49 END HRAPLUPD1;
50 
51 procedure bencwbmu(p_result out nocopy varchar2) is
52 
53    cursor c_cwb_setup is
54     select 'TRUE'
55     from   ben_ler_f
56     where  typ_cd = 'COMP';
57 
58 begin
59   p_result := 'FALSE';
60 
61   open  c_cwb_setup;
62   fetch c_cwb_setup into p_result;
63   close c_cwb_setup;
64 
65 end bencwbmu;
66 
67 END per_dtr_chk_pkg;