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_USER_ACCT

Source


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