1 Package ben_assignment_internal AUTHID CURRENT_USER as
2 /* $Header: beasgbsi.pkh 120.0.12010000.1 2008/07/29 10:51:29 appldev ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |------------------------< copy_empasg_to_benasg >-------------------------|
6 -- ----------------------------------------------------------------------------
7 -- {Start Of Comments}
8 --
9 -- Description:
10 -- This business support process copies employee primary assignment information
11 -- to a benefits assignment when Oracle Advanced Benefits is installed and
12 -- the business group for the assignment is in a US or CA legislation. This information
13 -- is only copied for the following events,
14 -- - Termination of an employee (The actual termination date is set on the
15 -- period of service and the leaving reason is not deceased)
16 -- - Death of an employee (The date of death is set for the person or the period
17 -- of service has a leaving reason of deceased.
18 --
19 -- Prerequisites:
20 --
21 -- In Parameters:
22 --
23 --
24 -- Post Success:
25 --
26 -- Post Failure:
27 --
28 -- Access Status:
29 -- Internal Development Use Only.
30 --
31 -- {End Of Comments}
32 --
33 procedure copy_empasg_to_benasg
34 (p_person_id in number
35 --
36 ,p_pds_atd in date default null
37 ,p_pds_leaving_reason in varchar2 default null
38 ,p_pds_fpd in date default null
39 ,p_per_date_of_death in date default null
40 ,p_per_marital_status in varchar2 default null
41 ,p_per_esd in date default null
42 ,p_dpnt_person_id in number default null
43 ,p_redu_hrs_flag in varchar2 default 'N'
44 ,p_effective_date in date default null
45 --
46 ,p_assignment_id out nocopy number
47 ,p_object_version_number out nocopy number
48 ,p_perhasmultptus out nocopy boolean
49 );
50 --
51 -- ----------------------------------------------------------------------------
52 -- |------------------------< copy_empasg_to_benasg >-------------------------|
53 -- ----------------------------------------------------------------------------
54 -- {Start Of Comments}
55 --
56 -- Description:
57 -- This business support process copies employee primary assignment information
58 -- to a benefits assignment when Oracle Advanced Benefits is installed and
59 -- the business group for the assignment is in a US legislation. This information
60 -- is only copied for the following events,
61 -- - Termination of an employee (The actual termination date is set on the
62 -- period of service and the leaving reason is not deceased)
63 -- - Death of an employee (The date of death is set for the person or the period
64 -- of service has a leaving reason of deceased.
65 --
66 -- Prerequisites:
67 --
68 -- In Parameters:
69 --
70 --
71 -- Post Success:
72 --
73 -- Post Failure:
74 --
75 -- Access Status:
76 -- Internal Development Use Only.
77 --
78 -- {End Of Comments}
79 --
80 procedure derive_aei_information
81 (p_effective_date in date
82 ,p_person_id in number
83 --
84 ,p_age out nocopy number
85 ,p_adj_serv_date out nocopy date
86 ,p_orig_hire_date out nocopy date
87 ,p_salary out nocopy varchar2
88 ,p_termn_date out nocopy date
89 ,p_termn_reason out nocopy varchar2
90 ,p_absence_date out nocopy date
91 ,p_absence_type out nocopy varchar2
92 ,p_absence_reason out nocopy varchar2
93 ,p_date_of_hire out nocopy date
94 );
95 --
96 -- ----------------------------------------------------------------------------
97 -- |------------------------< check_bnft_asgn >------------------------------|
98 -- ----------------------------------------------------------------------------
99 -- {Start Of Comments}
100 --
101 -- Description:
102 -- If a benefit assignment exists, date-track update the current assignment
103 -- with the new benefit assignment information.
104 --
105 -- Prerequisites:
106 --
107 -- In Parameters:
108 --
109 --
110 -- Post Success:
111 --
112 -- Post Failure:
113 --
114 -- Access Status:
115 -- Internal Development Use Only.
116 --
117 -- {End Of Comments}
118 --
119 procedure check_bnft_asgn
120 (p_person_id in number
121 ,p_effective_date in date
122 ,p_asg_dets in per_all_assignments_f%rowtype
123 ,p_exists out nocopy boolean
124 --RCHASE BENASG bug fix Start
125 ,p_emp_person_id in number default NULL
126 --RCHASE End
127 );
128 --
129 end ben_assignment_internal;