eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HRDPP_CREATE_TAXABILITY_RULES

Source


1 package body hrdpp_CREATE_TAXABILITY_RULES as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/03 23:01:31
4  * Generated for API: PAY_AC_TAXABILITY_WRAPPER.CREATE_TAXABILITY_RULES
5  */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19  if p<>trunc(p) then
20   return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21  end if;
22  return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id  in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id  in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id      in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value    in number default null
82 ,P_CLASSIFICATION_ID in number
83 ,P_TAX_CATEGORY in varchar2
84 ,P_JURISDICTION in varchar2 default null
85 ,P_LEGISLATION_CODE in varchar2 default null
86 ,P_INPUT_TAX_TYPE_VALUE1 in varchar2 default null
87 ,P_INPUT_TAX_TYPE_VALUE2 in varchar2 default null
88 ,P_INPUT_TAX_TYPE_VALUE3 in varchar2 default null
89 ,P_INPUT_TAX_TYPE_VALUE4 in varchar2 default null
90 ,P_INPUT_TAX_TYPE_VALUE5 in varchar2 default null
91 ,P_INPUT_TAX_TYPE_VALUE6 in varchar2 default null
92 ,P_INPUT_TAX_TYPE_VALUE7 in varchar2 default null
93 ,P_INPUT_TAX_TYPE_VALUE8 in varchar2 default null
94 ,P_INPUT_TAX_TYPE_VALUE9 in varchar2 default null
95 ,P_INPUT_TAX_TYPE_VALUE10 in varchar2 default null
96 ,P_INPUT_TAX_TYPE_VALUE11 in varchar2 default null
97 ,P_SPREADSHEET_IDENTIFIER in varchar2 default null) is
98 blid number := p_data_pump_batch_line_id;
99 begin
100 if blid is not null then
101 delete from hr_pump_batch_lines where batch_line_id = blid;
102 delete from hr_pump_batch_exceptions
103 where source_type = 'BATCH_LINE' and source_id = blid;
104 end if;
105 insert into hr_pump_batch_lines
106 (batch_id
107 ,batch_line_id
108 ,business_group_name
109 ,api_module_id
110 ,line_status
111 ,user_sequence
112 ,link_value
113 ,pval001
114 ,pval002
115 ,pval003
116 ,pval004
117 ,pval005
118 ,pval006
119 ,pval007
120 ,pval008
121 ,pval009
122 ,pval010
123 ,pval011
124 ,pval012
125 ,pval013
126 ,pval014
127 ,pval015
128 ,pval016)
129 values
130 (p_batch_id
131 ,nvl(blid,hr_pump_batch_lines_s.nextval)
132 ,p_data_pump_business_grp_name
133 ,3849
134 ,'U'
135 ,p_user_sequence
136 ,p_link_value
137 ,P_CLASSIFICATION_ID
138 ,P_TAX_CATEGORY
139 ,P_JURISDICTION
140 ,P_LEGISLATION_CODE
141 ,P_INPUT_TAX_TYPE_VALUE1
142 ,P_INPUT_TAX_TYPE_VALUE2
143 ,P_INPUT_TAX_TYPE_VALUE3
144 ,P_INPUT_TAX_TYPE_VALUE4
145 ,P_INPUT_TAX_TYPE_VALUE5
146 ,P_INPUT_TAX_TYPE_VALUE6
147 ,P_INPUT_TAX_TYPE_VALUE7
148 ,P_INPUT_TAX_TYPE_VALUE8
149 ,P_INPUT_TAX_TYPE_VALUE9
150 ,P_INPUT_TAX_TYPE_VALUE10
151 ,P_INPUT_TAX_TYPE_VALUE11
152 ,P_SPREADSHEET_IDENTIFIER);
153 end insert_batch_lines;
154 --
155 procedure call
156 (p_business_group_id in number,
157 p_batch_line_id     in number) is
158 cursor cr is
159 select l.rowid myrowid,
160 decode(l.pval001,cn,nn,n(l.pval001)) p1,
161 decode(l.pval002,cn,vn,l.pval002) p2,
162 decode(l.pval003,cn,vn,vn,vn,l.pval003) p3,
163 l.pval003 d3,
164 decode(l.pval004,cn,vn,vn,vn,l.pval004) p4,
165 l.pval004 d4,
166 decode(l.pval005,cn,vn,vn,vn,l.pval005) p5,
167 l.pval005 d5,
168 decode(l.pval006,cn,vn,vn,vn,l.pval006) p6,
169 l.pval006 d6,
170 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
171 l.pval007 d7,
172 decode(l.pval008,cn,vn,vn,vn,l.pval008) p8,
173 l.pval008 d8,
174 decode(l.pval009,cn,vn,vn,vn,l.pval009) p9,
175 l.pval009 d9,
176 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
177 l.pval010 d10,
178 decode(l.pval011,cn,vn,vn,vn,l.pval011) p11,
179 l.pval011 d11,
180 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
181 l.pval012 d12,
182 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
183 l.pval013 d13,
184 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
185 l.pval014 d14,
186 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
187 l.pval015 d15,
188 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
189 l.pval016 d16
190 from hr_pump_batch_lines l
191 where l.batch_line_id = p_batch_line_id;
192 --
193 c cr%rowtype;
194 l_validate boolean := false;
195 --
196 begin
197 hr_data_pump.entry('call');
198 open cr;
199 fetch cr into c;
200 if cr%notfound then
201 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
202 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
203 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
204 hr_utility.set_message_token('VALUE',p_batch_line_id);
205 hr_utility.raise_error;
206 end if;
207 --
208 hr_data_pump.api_trc_on;
209 PAY_AC_TAXABILITY_WRAPPER.CREATE_TAXABILITY_RULES
210 (P_CLASSIFICATION_ID => c.p1
211 ,P_TAX_CATEGORY => c.p2
212 ,P_JURISDICTION => c.p3
213 ,P_LEGISLATION_CODE => c.p4
214 ,P_INPUT_TAX_TYPE_VALUE1 => c.p5
215 ,P_INPUT_TAX_TYPE_VALUE2 => c.p6
216 ,P_INPUT_TAX_TYPE_VALUE3 => c.p7
217 ,P_INPUT_TAX_TYPE_VALUE4 => c.p8
218 ,P_INPUT_TAX_TYPE_VALUE5 => c.p9
219 ,P_INPUT_TAX_TYPE_VALUE6 => c.p10
220 ,P_INPUT_TAX_TYPE_VALUE7 => c.p11
221 ,P_INPUT_TAX_TYPE_VALUE8 => c.p12
222 ,P_INPUT_TAX_TYPE_VALUE9 => c.p13
223 ,P_INPUT_TAX_TYPE_VALUE10 => c.p14
224 ,P_INPUT_TAX_TYPE_VALUE11 => c.p15
225 ,P_SPREADSHEET_IDENTIFIER => c.p16);
226 hr_data_pump.api_trc_off;
227 
228 --
229 
230 --
231 close cr;
232 --
233 hr_data_pump.exit('call');
234 exception
235  when hr_multi_message.error_message_exist then
236    if cr%isopen then
237     close cr;
238    end if;
239    hr_pump_utils.set_multi_msg_error_flag(true);
240  when others then
241  if cr%isopen then
242   close cr;
243  end if;
244  raise;
245 end call;
246 end hrdpp_CREATE_TAXABILITY_RULES;