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_UPDATE_USER_ACCT

Source


1 package body hrdpp_UPDATE_USER_ACCT as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:13
4  * Generated for API: HR_USER_ACCT_API.UPDATE_USER_ACCT
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_PER_EFFECTIVE_START_DATE in date default null
83 ,I_PER_EFFECTIVE_START_DATE in varchar2 default 'N'
84 ,P_PER_EFFECTIVE_END_DATE in date default null
85 ,I_PER_EFFECTIVE_END_DATE in varchar2 default 'N'
86 ,P_ASSIGNMENT_ID in number default null
87 ,I_ASSIGNMENT_ID in varchar2 default 'N'
88 ,P_ASG_EFFECTIVE_START_DATE in date default null
89 ,I_ASG_EFFECTIVE_START_DATE in varchar2 default 'N'
90 ,P_ASG_EFFECTIVE_END_DATE in date default null
91 ,I_ASG_EFFECTIVE_END_DATE in varchar2 default 'N'
92 ,P_DATE_FROM in date default null
93 ,I_DATE_FROM in varchar2 default 'N'
94 ,P_DATE_TO in date default null
95 ,I_DATE_TO in varchar2 default 'N'
96 ,P_ORG_STRUCTURE_ID in number default null
97 ,I_ORG_STRUCTURE_ID in varchar2 default 'N'
98 ,P_ORG_STRUCTURE_VERS_ID in number default null
99 ,I_ORG_STRUCTURE_VERS_ID in varchar2 default 'N'
100 ,P_PARENT_ORG_ID in number default null
101 ,I_PARENT_ORG_ID in varchar2 default 'N'
102 ,P_SINGLE_ORG_ID in number default null
103 ,I_SINGLE_ORG_ID in varchar2 default 'N'
104 ,P_RUN_TYPE in varchar2 default null
105 ,P_INACTIVATE_DATE in date
106 ,P_PERSON_USER_KEY in varchar2) is
107 blid number := p_data_pump_batch_line_id;
108 begin
109 if blid is not null then
110 delete from hr_pump_batch_lines where batch_line_id = blid;
111 delete from hr_pump_batch_exceptions
112 where source_type = 'BATCH_LINE' and source_id = blid;
113 end if;
114 insert into hr_pump_batch_lines
115 (batch_id
116 ,batch_line_id
117 ,business_group_name
118 ,api_module_id
119 ,line_status
120 ,user_sequence
121 ,link_value
122 ,pval001
123 ,pval002
124 ,pval003
125 ,pval004
126 ,pval005
127 ,pval006
128 ,pval007
129 ,pval008
130 ,pval009
131 ,pval010
132 ,pval011
133 ,pval012
134 ,pval013
135 ,pval014)
136 values
137 (p_batch_id
138 ,nvl(blid,hr_pump_batch_lines_s.nextval)
139 ,p_data_pump_business_grp_name
140 ,1595
141 ,'U'
142 ,p_user_sequence
143 ,p_link_value
144 ,dd(P_PER_EFFECTIVE_START_DATE,I_PER_EFFECTIVE_START_DATE)
145 ,dd(P_PER_EFFECTIVE_END_DATE,I_PER_EFFECTIVE_END_DATE)
146 ,nd(P_ASSIGNMENT_ID,I_ASSIGNMENT_ID)
147 ,dd(P_ASG_EFFECTIVE_START_DATE,I_ASG_EFFECTIVE_START_DATE)
148 ,dd(P_ASG_EFFECTIVE_END_DATE,I_ASG_EFFECTIVE_END_DATE)
149 ,dd(P_DATE_FROM,I_DATE_FROM)
150 ,dd(P_DATE_TO,I_DATE_TO)
151 ,nd(P_ORG_STRUCTURE_ID,I_ORG_STRUCTURE_ID)
152 ,nd(P_ORG_STRUCTURE_VERS_ID,I_ORG_STRUCTURE_VERS_ID)
153 ,nd(P_PARENT_ORG_ID,I_PARENT_ORG_ID)
154 ,nd(P_SINGLE_ORG_ID,I_SINGLE_ORG_ID)
155 ,P_RUN_TYPE
156 ,dc(P_INACTIVATE_DATE)
157 ,P_PERSON_USER_KEY);
158 end insert_batch_lines;
159 --
160 procedure call
161 (p_business_group_id in number,
162 p_batch_line_id     in number) is
163 cursor cr is
164 select l.rowid myrowid,
165 decode(l.pval001,cn,dn,vn,dh,d(l.pval001)) p1,
166 l.pval001 d1,
167 decode(l.pval002,cn,dn,vn,dh,d(l.pval002)) p2,
168 l.pval002 d2,
169 decode(l.pval003,cn,nn,vn,nh,n(l.pval003)) p3,
170 l.pval003 d3,
171 decode(l.pval004,cn,dn,vn,dh,d(l.pval004)) p4,
172 l.pval004 d4,
173 decode(l.pval005,cn,dn,vn,dh,d(l.pval005)) p5,
174 l.pval005 d5,
175 decode(l.pval006,cn,dn,vn,dh,d(l.pval006)) p6,
176 l.pval006 d6,
177 decode(l.pval007,cn,dn,vn,dh,d(l.pval007)) p7,
178 l.pval007 d7,
179 decode(l.pval008,cn,nn,vn,nh,n(l.pval008)) p8,
180 l.pval008 d8,
181 decode(l.pval009,cn,nn,vn,nh,n(l.pval009)) p9,
182 l.pval009 d9,
183 decode(l.pval010,cn,nn,vn,nh,n(l.pval010)) p10,
184 l.pval010 d10,
185 decode(l.pval011,cn,nn,vn,nh,n(l.pval011)) p11,
186 l.pval011 d11,
187 decode(l.pval012,cn,vn,vn,vh,
188  hr_pump_get.gl(l.pval012,'HR_EMP_EXTRACT_RUN_TYPE',dn,vn)) p12,
189 l.pval012 d12,
190 decode(l.pval013,cn,dn,d(l.pval013)) p13,
191 decode(l.pval014,cn,vn,l.pval014) p14
192 from hr_pump_batch_lines l
193 where l.batch_line_id = p_batch_line_id;
194 --
195 c cr%rowtype;
196 l_validate boolean := false;
197 L_PERSON_ID number;
198 --
199 begin
200 hr_data_pump.entry('call');
201 open cr;
202 fetch cr into c;
203 if cr%notfound then
204 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
205 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
206 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
207 hr_utility.set_message_token('VALUE',p_batch_line_id);
208 hr_utility.raise_error;
209 end if;
210 --
211 if c.p14 is null then
212 L_PERSON_ID:=nn;
213 else
214 L_PERSON_ID := 
215 hr_pump_get.GET_PERSON_ID
216 (P_PERSON_USER_KEY => c.p14);
217 end if;
218 --
219 hr_data_pump.api_trc_on;
220 HR_USER_ACCT_API.UPDATE_USER_ACCT
221 (p_validate => l_validate
222 ,P_PERSON_ID => L_PERSON_ID
223 ,P_PER_EFFECTIVE_START_DATE => c.p1
224 ,P_PER_EFFECTIVE_END_DATE => c.p2
225 ,P_ASSIGNMENT_ID => c.p3
226 ,P_ASG_EFFECTIVE_START_DATE => c.p4
227 ,P_ASG_EFFECTIVE_END_DATE => c.p5
228 ,p_business_group_id => p_business_group_id
229 ,P_DATE_FROM => c.p6
230 ,P_DATE_TO => c.p7
231 ,P_ORG_STRUCTURE_ID => c.p8
232 ,P_ORG_STRUCTURE_VERS_ID => c.p9
233 ,P_PARENT_ORG_ID => c.p10
234 ,P_SINGLE_ORG_ID => c.p11
235 ,P_RUN_TYPE => c.p12
236 ,P_INACTIVATE_DATE => c.p13);
237 hr_data_pump.api_trc_off;
238 
239 --
240 
241 --
242 close cr;
243 --
244 hr_data_pump.exit('call');
245 exception
246  when hr_multi_message.error_message_exist then
247    if cr%isopen then
248     close cr;
249    end if;
250    hr_pump_utils.set_multi_msg_error_flag(true);
251  when others then
252  if cr%isopen then
253   close cr;
254  end if;
255  raise;
256 end call;
257 end hrdpp_UPDATE_USER_ACCT;