PACKAGE BODY: APPS.PER_PL_DISABILITY

Source

1 PACKAGE BODY per_pl_disability AS
2 /* $Header: pepldisp.pkb 120.1 2006/09/13 12:53:41 mseshadr noship $ */
3 g_package VARCHAR2(30);
4 PROCEDURE check_pl_disability(p_reason  VARCHAR2,p_proc VARCHAR2) IS
5 --
6 BEGIN
7 --
8        hr_api.mandatory_arg_error
9              (p_api_name         => p_proc,
10               p_argument         => hr_general.decode_lookup('PL_FORM_LABELS','REASON'),
11               p_argument_value   => p_reason
12              );
13 
14 END check_pl_disability;
15 --
16 PROCEDURE create_pl_disability(p_reason  VARCHAR2) IS
17 --
18 l_proc  VARCHAR2(72);
19 --
20 BEGIN
21 g_package := 'PER_PL_DISABILITY';
22 l_proc := g_package||'CREATE_PL_PERSON';
23   /* Added for GSI Bug 5472781 */
24 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
25    hr_utility.set_location('Leaving : '||l_proc,10);
26    return;
27 END IF;
28     --
29      per_pl_disability.check_pl_disability(p_reason => p_reason,p_proc => l_proc);
30 
31     --
32 END create_pl_disability;
33 --
34 PROCEDURE update_pl_disability(p_reason  VARCHAR2) IS
35 --
36 l_proc  VARCHAR2(72);
37 --
38 BEGIN
39     --
40 g_package := 'PER_PL_DISABILITY';
41 l_proc := g_package||'UPDATE_PL_PERSON';
42   /* Added for GSI Bug 5472781 */
43 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
44    hr_utility.set_location('Leaving : '||l_proc,10);
45    return;
46 END IF;
47      per_pl_disability.check_pl_disability(p_reason => p_reason,p_proc => l_proc);
48     --
49 END update_pl_disability;
50 --
51 END per_pl_disability;