[Home] [Help]
PACKAGE BODY: APPS.PAY_DEL_PERSON_FORM
Source
1 PACKAGE BODY PAY_DEL_PERSON_FORM as
2 /* $Header: pyded01t.pkb 115.1 99/07/17 05:56:40 porting ship $ */
3 /*===========================================================================+
4 | Copyright (c) 1993 Oracle Corporation |
5 | Redwood Shores, California, USA |
6 | All rights reserved. |
7 +===========================================================================*/
8 --
9 /*---------------------------------------------------------------------------
10 Description
11 -----------
12
13
14 History
15 -------
16 Date Author Version
17 --------- ------- ------- --------------------------------------
18 18-Apr-94 JRhodes 40.1 Made use of FND_INSTALLATION procedure
19 23-Nov-94 RFine 40.4 Suppressed index on business_group_id
20 03-Jun-97 VTreiger 40.7 Changed parameters in call to
21 fnd_installation.get in procedure
22 delete_validation to be in sync with the
23 latest version of FND_INSTALLATION package
24 for function GET. Bug #494239.
25 24-Feb-99 J. Moyano 115.1 MLS changes. Reference to per_person_types_tl
26 base table added to cursor c2.
27 ---------------------------------------------------------------------------*/
28 procedure get_displayed_values(p_business_group_id NUMBER
29 ,p_title VARCHAR2
30 ,p_title_meaning IN OUT VARCHAR2
31 ,p_person_type_id NUMBER
32 ,p_user_person_type IN OUT VARCHAR2) is
33 --
34 cursor c1 is
35 select meaning
36 from hr_lookups
37 where lookup_type = 'TITLE'
38 and lookup_code = p_title;
39 --
40 cursor c2 is
41 select type_tl.user_person_type
42 from per_person_types_tl TYPE_TL,
43 per_person_types TYPE
44 where type_tl.person_type_id = type.person_type_id
45 and type.business_group_id + 0 = p_business_group_id
46 and type.person_type_id = p_person_type_id
47 and userenv('LANG') = type_tl.language;
48 --
49 begin
50 hr_utility.set_location('pay_del_person_form.get_displayed_values',1);
51 open c1;
52 fetch c1 into p_title_meaning;
53 close c1;
54 --
55 open c2;
56 fetch c2 into p_user_person_type;
57 close c2;
58 --
59 end get_displayed_values;
60 --
61 --
62 procedure delete_validation(p_person_id NUMBER
63 ,p_session_date DATE) is
64 --
65 function product_installed(l_appl_id NUMBER) return BOOLEAN is
66 l_status varchar2(1);
67 l_industry varchar2(1);
68 l_ret boolean;
69 begin
70 hr_utility.set_location('pay_del_person_form.product_installed',1);
71 -- VT #494239 06/03/97
72 -- l_ret := fnd_installation.get(appl_id => l_appl_id
73 -- ,dep_appl_id => null
74 -- ,status => l_status
75 -- ,industry => l_industry);
76 l_ret := fnd_installation.get(appl_id => null
77 ,dep_appl_id => l_appl_id
78 ,status => l_status
79 ,industry => l_industry);
80 --
81 return(l_status = 'I');
82 end product_installed;
83 --
84 begin
85 --
86 hr_utility.set_location('pay_del_person_form.delete_validation',1);
87 hr_person.weak_predel_validation(p_person_id
88 ,p_session_date);
89 --
90 -- 'SQLAP'
91 if product_installed(200) then
92 ap_person.ap_predel_validation(p_person_id);
93 end if;
94 -- 'ENG'
95 if product_installed(703) then
96 eng_person.eng_predel_validation(p_person_id);
97 end if;
98 -- 'OFA'
99 if product_installed(140) then
100 fa_person.fa_predel_validation(p_person_id);
101 end if;
102 -- 'PA'
103 if product_installed(275) then
104 pa_person.pa_predel_validation(p_person_id);
105 end if;
106 -- 'PO'
107 if product_installed(201) then
108 po_person.po_predel_validation(p_person_id);
109 end if;
110 -- 'WIP'
111 if product_installed(706) then
112 wip_person.wip_predel_validation(p_person_id);
113 end if;
114 --
115 end delete_validation;
116 --
117 --
118 END PAY_DEL_PERSON_FORM;