[Home] [Help]
PACKAGE BODY: APPS.PAY_KR_SEP_PKG
Source
1 package body pay_kr_sep_pkg as
2 /* $Header: pykrsepp.pkb 115.6 2002/12/11 12:16:20 krapolu noship $ */
3 --
4 -- Global Variables.
5 --
6 g_business_group_id number;
7 g_legislation_code varchar2(2);
8 g_itax_bal_id number;
9 g_itax_wo_adj_bal_id number;
10 g_rtax_bal_id number;
11 g_rtax_wo_adj_bal_id number;
12 g_stax_bal_id number;
13 g_stax_wo_adj_bal_id number;
14 g_hi_prem_ee_bal_id number;
15 g_hi_prem_ee_wo_adj_bal_id number;
16 g_hi_prem_er_bal_id number;
17 g_hi_prem_er_wo_adj_bal_id number;
18 g_itax_ue_id number;
19 g_itax_wo_adj_ue_id number;
20 g_rtax_ue_id number;
21 g_rtax_wo_adj_ue_id number;
22 g_stax_ue_id number;
23 g_stax_wo_adj_ue_id number;
24 g_hi_prem_ee_ue_id number;
25 g_hi_prem_ee_wo_adj_ue_id number;
26 g_hi_prem_er_ue_id number;
27 g_hi_prem_er_wo_adj_ue_id number;
28 --------------------------------------------------------------------------------
29 procedure get_balance_type_id(p_balance_name in varchar2,
30 p_business_group_id in number,
31 p_balance_type_id in out NOCOPY number)
32 --------------------------------------------------------------------------------
33 is
34 --
35 cursor csr_balance
36 is
37 select balance_type_id
38 from pay_balance_types
39 where balance_name = p_balance_name
40 and nvl(business_group_id, g_business_group_id) = g_business_group_id
41 and nvl(legislation_code, g_legislation_code) = g_legislation_code;
42 --
43 begin
44 --
45 if g_business_group_id is null or p_business_group_id <> g_business_group_id then
46 g_business_group_id := p_business_group_id;
47 g_legislation_code := pay_kr_report_pkg.legislation_code(p_business_group_id);
48 end if;
49 --
50 if p_balance_type_id is null then
51 open csr_balance;
52 fetch csr_balance into p_balance_type_id;
53 close csr_balance;
54 end if;
55 end get_balance_type_id;
56 --------------------------------------------------------------------------------
57 procedure get_user_entity_id(p_user_entity_name in varchar2,
58 p_business_group_id in number,
59 p_user_entity_id in out NOCOPY number)
60 --------------------------------------------------------------------------------
61 is
62 --
63 cursor csr_user_entity
64 is
65 select user_entity_id
66 from ff_user_entities
67 where user_entity_name = p_user_entity_name
68 and nvl(business_group_id, g_business_group_id) = g_business_group_id
69 and nvl(legislation_code, g_legislation_code) = g_legislation_code;
70 --
71 begin
72 --
73 if g_business_group_id is null or p_business_group_id <> g_business_group_id then
74 g_business_group_id := p_business_group_id;
75 g_legislation_code := pay_kr_report_pkg.legislation_code(p_business_group_id);
76 end if;
77 --
78 if p_user_entity_id is null then
79 open csr_user_entity;
80 fetch csr_user_entity into p_user_entity_id;
81 close csr_user_entity;
82 end if;
83 end get_user_entity_id;
84 --------------------------------------------------------------------------------
85 function get_iyea_tax_adj(p_assignment_action_id in number,
86 p_business_group_id in number,
87 p_itax_adj out NOCOPY number,
88 p_rtax_adj out NOCOPY number,
89 p_stax_adj out NOCOPY number) return number
90 --------------------------------------------------------------------------------
91 is
92 --
93 l_itax number;
94 l_itax_wo_adj number;
95 l_rtax number;
96 l_rtax_wo_adj number;
97 l_stax number;
98 l_stax_wo_adj number;
99 --
100 l_dummy number := -1;
101 --
102 begin
103 --
104 /*
105 -- get_balance_type_id('ITAX',p_business_group_id,g_itax_bal_id);
106 -- get_balance_type_id('ITAX_WO_ADJ',p_business_group_id,g_itax_wo_adj_bal_id);
107 -- get_balance_type_id('RTAX',p_business_group_id,g_rtax_bal_id);
108 -- get_balance_type_id('RTAX_WO_ADJ',p_business_group_id,g_rtax_wo_adj_bal_id);
109 -- get_balance_type_id('STAX',p_business_group_id,g_stax_bal_id);
110 -- get_balance_type_id('STAX_WO_ADJ',p_business_group_id,g_stax_wo_adj_bal_id);
111 ----
112 -- l_itax := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_itax_bal_id);
113 -- l_itax_wo_adj := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_itax_wo_adj_bal_id);
114 -- l_rtax := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_rtax_bal_id);
115 -- l_rtax_wo_adj := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_rtax_wo_adj_bal_id);
116 -- l_stax := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_stax_bal_id);
117 -- l_stax_wo_adj := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_stax_wo_adj_bal_id);
118 ----
119 -- p_itax_adj := l_itax - l_itax_wo_adj;
120 -- p_rtax_adj := l_rtax - l_rtax_wo_adj;
121 -- p_stax_adj := l_stax - l_stax_wo_adj;
122 */
123 --
124 get_user_entity_id('X_YEA_ITAX_ADJ',p_business_group_id,g_itax_ue_id);
125 get_user_entity_id('X_YEA_RTAX_ADJ',p_business_group_id,g_rtax_ue_id);
126 get_user_entity_id('X_YEA_STAX_ADJ',p_business_group_id,g_stax_ue_id);
127 --
128 p_itax_adj := fnd_number.canonical_to_number(pay_kr_report_pkg.get_archive_items(p_assignment_action_id,g_itax_ue_id));
129 p_rtax_adj := fnd_number.canonical_to_number(pay_kr_report_pkg.get_archive_items(p_assignment_action_id,g_rtax_ue_id));
130 p_stax_adj := fnd_number.canonical_to_number(pay_kr_report_pkg.get_archive_items(p_assignment_action_id,g_stax_ue_id));
131 --
132 return l_dummy;
133 --
134 end get_iyea_tax_adj;
135 --------------------------------------------------------------------------------
136 function get_ihia_prem_adj(p_assignment_action_id in number,
137 p_business_group_id in number,
138 p_hi_prem_ee_adj out NOCOPY number,
139 p_hi_prem_er_adj out NOCOPY number) return number
140 --------------------------------------------------------------------------------
141 is
142 --
143 l_hi_prem_ee number;
144 l_hi_prem_ee_wo_adj number;
145 l_hi_prem_er number;
146 l_hi_prem_er_wo_adj number;
147 --
148 l_dummy number := -1;
149 --
150 begin
151 --
152 /*
153 -- get_balance_type_id('HI_PREM_EE',p_business_group_id,g_hi_prem_ee_bal_id);
154 -- get_balance_type_id('HI_PREM_EE_WO_ADJ',p_business_group_id,g_hi_prem_ee_wo_adj_bal_id);
155 -- get_balance_type_id('HI_PREM_ER',p_business_group_id,g_hi_prem_er_bal_id);
156 -- get_balance_type_id('HI_PREM_ER_WO_ADJ',p_business_group_id,g_hi_prem_er_wo_adj_bal_id);
157 ----
158 -- l_hi_prem_ee := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_hi_prem_ee_bal_id);
159 -- l_hi_prem_ee_wo_adj := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_hi_prem_ee_wo_adj_bal_id);
160 -- l_hi_prem_er := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_hi_prem_er_bal_id);
161 -- l_hi_prem_er_wo_adj := pay_kr_report_pkg.get_balance_value_asg_run(p_assignment_action_id,g_hi_prem_er_wo_adj_bal_id);
162 ----
163 -- p_hi_prem_ee_adj := l_hi_prem_ee - l_hi_prem_ee_wo_adj;
164 -- p_hi_prem_er_adj := l_hi_prem_er - l_hi_prem_er_wo_adj;
165 */
166 --
167 get_user_entity_id('A_HEALTH_INS_SEP_ADJ_EMPLOYEE_CHARGE_ASG_YTD',p_business_group_id,g_hi_prem_ee_ue_id);
168 get_user_entity_id('A_HEALTH_INS_SEP_ADJ_EMPLOYER_CHARGE_ASG_YTD',p_business_group_id,g_hi_prem_er_ue_id);
169 --
170 p_hi_prem_ee_adj := fnd_number.canonical_to_number(pay_kr_report_pkg.get_archive_items(p_assignment_action_id,g_hi_prem_ee_ue_id));
171 p_hi_prem_er_adj := fnd_number.canonical_to_number(pay_kr_report_pkg.get_archive_items(p_assignment_action_id,g_hi_prem_er_ue_id));
172 --
173 return l_dummy;
174 --
175 end get_ihia_prem_adj;
176 end pay_kr_sep_pkg;