[Home] [Help]
PACKAGE BODY: APPS.JTF_UM_BUSINESS_USER_PVT_W
Source
1 package body jtf_um_business_user_pvt_w as
2 /* $Header: JTFWUBRB.pls 120.4 2005/12/14 06:25 snellepa ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure registerbusinessuser(p_api_version_number NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_self_service_user VARCHAR2
20 , p4_a0 in out nocopy VARCHAR2
21 , p4_a1 in out nocopy VARCHAR2
22 , p4_a2 in out nocopy VARCHAR2
23 , p4_a3 in out nocopy VARCHAR2
24 , p4_a4 in out nocopy VARCHAR2
25 , p4_a5 in out nocopy VARCHAR2
26 , p4_a6 in out nocopy VARCHAR2
27 , p4_a7 in out nocopy NUMBER
28 , p4_a8 in out nocopy NUMBER
29 , p4_a9 in out nocopy DATE
30 , p4_a10 in out nocopy VARCHAR2
31 , p5_a0 in out nocopy VARCHAR2
32 , p5_a1 in out nocopy VARCHAR2
33 , p5_a2 in out nocopy VARCHAR2
34 , p5_a3 in out nocopy VARCHAR2
35 , p5_a4 in out nocopy VARCHAR2
36 , p5_a5 in out nocopy VARCHAR2
37 , p5_a6 in out nocopy VARCHAR2
38 , p5_a7 in out nocopy VARCHAR2
39 , p5_a8 in out nocopy VARCHAR2
40 , p5_a9 in out nocopy VARCHAR2
41 , p5_a10 in out nocopy VARCHAR2
42 , p5_a11 in out nocopy VARCHAR2
43 , p5_a12 in out nocopy VARCHAR2
44 , p5_a13 in out nocopy VARCHAR2
45 , p5_a14 in out nocopy VARCHAR2
46 , p5_a15 in out nocopy VARCHAR2
47 , p5_a16 in out nocopy VARCHAR2
48 , p5_a17 in out nocopy NUMBER
49 , p5_a18 in out nocopy NUMBER
50 , p5_a19 in out nocopy DATE
51 , x_return_status out nocopy VARCHAR2
52 , x_msg_count out nocopy NUMBER
53 , x_msg_data out nocopy VARCHAR2
54 )
55
56 as
57 ddp_um_person_rec jtf_um_register_user_pvt.person_rec_type;
58 ddp_um_organization_rec jtf_um_register_user_pvt.organization_rec_type;
59 ddindx binary_integer; indx binary_integer;
60 begin
61
62 -- copy data to the local IN or IN-OUT args, if any
63
64
65
66
67 ddp_um_person_rec.first_name := p4_a0;
68 ddp_um_person_rec.last_name := p4_a1;
69 ddp_um_person_rec.user_name := p4_a2;
70 ddp_um_person_rec.password := p4_a3;
71 ddp_um_person_rec.phone_area_code := p4_a4;
72 ddp_um_person_rec.phone_number := p4_a5;
73 ddp_um_person_rec.email_address := p4_a6;
74 ddp_um_person_rec.party_id := p4_a7;
75 ddp_um_person_rec.user_id := p4_a8;
76 ddp_um_person_rec.start_date_active := rosetta_g_miss_date_in_map(p4_a9);
77 ddp_um_person_rec.privacy_preference := p4_a10;
78
79 ddp_um_organization_rec.organization_number := p5_a0;
80 ddp_um_organization_rec.organization_name := p5_a1;
81 ddp_um_organization_rec.address1 := p5_a2;
82 ddp_um_organization_rec.address2 := p5_a3;
83 ddp_um_organization_rec.address3 := p5_a4;
84 ddp_um_organization_rec.address4 := p5_a5;
85 ddp_um_organization_rec.city := p5_a6;
86 ddp_um_organization_rec.state := p5_a7;
87 ddp_um_organization_rec.postal_code := p5_a8;
88 ddp_um_organization_rec.county := p5_a9;
89 ddp_um_organization_rec.province := p5_a10;
90 ddp_um_organization_rec.altaddress := p5_a11;
91 ddp_um_organization_rec.country := p5_a12;
92 ddp_um_organization_rec.phone_area_code := p5_a13;
93 ddp_um_organization_rec.phone_number := p5_a14;
94 ddp_um_organization_rec.fax_area_code := p5_a15;
95 ddp_um_organization_rec.fax_number := p5_a16;
96 ddp_um_organization_rec.org_party_id := p5_a17;
97 ddp_um_organization_rec.org_contact_party_id := p5_a18;
98 ddp_um_organization_rec.start_date_active := rosetta_g_miss_date_in_map(p5_a19);
99
100
101
102
103 -- here's the delegated call to the old PL/SQL routine
104 jtf_um_business_user_pvt.registerbusinessuser(p_api_version_number,
105 p_init_msg_list,
106 p_commit,
107 p_self_service_user,
108 ddp_um_person_rec,
109 ddp_um_organization_rec,
110 x_return_status,
111 x_msg_count,
112 x_msg_data);
113
114 -- copy data back from the local variables to OUT or IN-OUT args, if any
115
116
117
118
119 p4_a0 := ddp_um_person_rec.first_name;
120 p4_a1 := ddp_um_person_rec.last_name;
121 p4_a2 := ddp_um_person_rec.user_name;
122 p4_a3 := ddp_um_person_rec.password;
123 p4_a4 := ddp_um_person_rec.phone_area_code;
124 p4_a5 := ddp_um_person_rec.phone_number;
125 p4_a6 := ddp_um_person_rec.email_address;
126 p4_a7 := ddp_um_person_rec.party_id;
127 p4_a8 := ddp_um_person_rec.user_id;
128 p4_a9 := ddp_um_person_rec.start_date_active;
129 p4_a10 := ddp_um_person_rec.privacy_preference;
130
131 p5_a0 := ddp_um_organization_rec.organization_number;
132 p5_a1 := ddp_um_organization_rec.organization_name;
133 p5_a2 := ddp_um_organization_rec.address1;
134 p5_a3 := ddp_um_organization_rec.address2;
135 p5_a4 := ddp_um_organization_rec.address3;
136 p5_a5 := ddp_um_organization_rec.address4;
137 p5_a6 := ddp_um_organization_rec.city;
138 p5_a7 := ddp_um_organization_rec.state;
139 p5_a8 := ddp_um_organization_rec.postal_code;
140 p5_a9 := ddp_um_organization_rec.county;
141 p5_a10 := ddp_um_organization_rec.province;
142 p5_a11 := ddp_um_organization_rec.altaddress;
143 p5_a12 := ddp_um_organization_rec.country;
144 p5_a13 := ddp_um_organization_rec.phone_area_code;
145 p5_a14 := ddp_um_organization_rec.phone_number;
146 p5_a15 := ddp_um_organization_rec.fax_area_code;
147 p5_a16 := ddp_um_organization_rec.fax_number;
148 p5_a17 := ddp_um_organization_rec.org_party_id;
149 p5_a18 := ddp_um_organization_rec.org_contact_party_id;
150 p5_a19 := ddp_um_organization_rec.start_date_active;
151
152
153
154 end;
155
156 procedure find_organization(p0_a0 in out nocopy VARCHAR2
157 , p0_a1 in out nocopy VARCHAR2
158 , p0_a2 in out nocopy VARCHAR2
159 , p0_a3 in out nocopy VARCHAR2
160 , p0_a4 in out nocopy VARCHAR2
161 , p0_a5 in out nocopy VARCHAR2
162 , p0_a6 in out nocopy VARCHAR2
163 , p0_a7 in out nocopy VARCHAR2
164 , p0_a8 in out nocopy VARCHAR2
165 , p0_a9 in out nocopy VARCHAR2
166 , p0_a10 in out nocopy VARCHAR2
167 , p0_a11 in out nocopy VARCHAR2
168 , p0_a12 in out nocopy VARCHAR2
169 , p0_a13 in out nocopy VARCHAR2
170 , p0_a14 in out nocopy VARCHAR2
171 , p0_a15 in out nocopy VARCHAR2
172 , p0_a16 in out nocopy VARCHAR2
173 , p0_a17 in out nocopy NUMBER
174 , p0_a18 in out nocopy NUMBER
175 , p0_a19 in out nocopy DATE
176 , p_search_value VARCHAR2
177 , p_use_name number
178 , ddrosetta_retval_bool OUT NOCOPY NUMBER
179 )
180
181 as
182 ddx_org_rec jtf_um_register_user_pvt.organization_rec_type;
183 ddp_use_name boolean;
184 ddindx binary_integer; indx binary_integer;
185 ddrosetta_retval boolean;
186 begin
187
188 -- copy data to the local IN or IN-OUT args, if any
189 ddx_org_rec.organization_number := p0_a0;
190 ddx_org_rec.organization_name := p0_a1;
191 ddx_org_rec.address1 := p0_a2;
192 ddx_org_rec.address2 := p0_a3;
193 ddx_org_rec.address3 := p0_a4;
194 ddx_org_rec.address4 := p0_a5;
195 ddx_org_rec.city := p0_a6;
196 ddx_org_rec.state := p0_a7;
197 ddx_org_rec.postal_code := p0_a8;
198 ddx_org_rec.county := p0_a9;
199 ddx_org_rec.province := p0_a10;
200 ddx_org_rec.altaddress := p0_a11;
201 ddx_org_rec.country := p0_a12;
202 ddx_org_rec.phone_area_code := p0_a13;
203 ddx_org_rec.phone_number := p0_a14;
204 ddx_org_rec.fax_area_code := p0_a15;
205 ddx_org_rec.fax_number := p0_a16;
206 ddx_org_rec.org_party_id := p0_a17;
207 ddx_org_rec.org_contact_party_id := p0_a18;
208 ddx_org_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a19);
209
210
211 if p_use_name is null
212 then ddp_use_name := null;
213 elsif p_use_name = 0
214 then ddp_use_name := false;
215 else ddp_use_name := true;
216 end if;
217
218 -- here's the delegated call to the old PL/SQL routine
219 ddrosetta_retval := jtf_um_business_user_pvt.find_organization(ddx_org_rec,
220 p_search_value,
221 ddp_use_name);
222
223 -- copy data back from the local variables to OUT or IN-OUT args, if any
224 if ddrosetta_retval is null
225 then ddrosetta_retval_bool := null;
226 elsif ddrosetta_retval
227 then ddrosetta_retval_bool := 1;
228 else ddrosetta_retval_bool := 0;
229 end if;
230 p0_a0 := ddx_org_rec.organization_number;
231 p0_a1 := ddx_org_rec.organization_name;
232 p0_a2 := ddx_org_rec.address1;
233 p0_a3 := ddx_org_rec.address2;
234 p0_a4 := ddx_org_rec.address3;
235 p0_a5 := ddx_org_rec.address4;
236 p0_a6 := ddx_org_rec.city;
237 p0_a7 := ddx_org_rec.state;
238 p0_a8 := ddx_org_rec.postal_code;
239 p0_a9 := ddx_org_rec.county;
240 p0_a10 := ddx_org_rec.province;
241 p0_a11 := ddx_org_rec.altaddress;
242 p0_a12 := ddx_org_rec.country;
243 p0_a13 := ddx_org_rec.phone_area_code;
244 p0_a14 := ddx_org_rec.phone_number;
245 p0_a15 := ddx_org_rec.fax_area_code;
246 p0_a16 := ddx_org_rec.fax_number;
247 p0_a17 := ddx_org_rec.org_party_id;
248 p0_a18 := ddx_org_rec.org_contact_party_id;
249 p0_a19 := ddx_org_rec.start_date_active;
250
251
252 end;
253
254 procedure create_organization(p_api_version_number NUMBER
255 , p_init_msg_list VARCHAR2
256 , p_commit VARCHAR2
257 , p3_a0 in out nocopy VARCHAR2
258 , p3_a1 in out nocopy VARCHAR2
259 , p3_a2 in out nocopy VARCHAR2
260 , p3_a3 in out nocopy VARCHAR2
261 , p3_a4 in out nocopy VARCHAR2
262 , p3_a5 in out nocopy VARCHAR2
263 , p3_a6 in out nocopy VARCHAR2
264 , p3_a7 in out nocopy NUMBER
265 , p3_a8 in out nocopy NUMBER
266 , p3_a9 in out nocopy DATE
267 , p3_a10 in out nocopy VARCHAR2
268 , p4_a0 in out nocopy VARCHAR2
269 , p4_a1 in out nocopy VARCHAR2
270 , p4_a2 in out nocopy VARCHAR2
271 , p4_a3 in out nocopy VARCHAR2
272 , p4_a4 in out nocopy VARCHAR2
273 , p4_a5 in out nocopy VARCHAR2
274 , p4_a6 in out nocopy VARCHAR2
275 , p4_a7 in out nocopy VARCHAR2
276 , p4_a8 in out nocopy VARCHAR2
277 , p4_a9 in out nocopy VARCHAR2
278 , p4_a10 in out nocopy VARCHAR2
279 , p4_a11 in out nocopy VARCHAR2
280 , p4_a12 in out nocopy VARCHAR2
281 , p4_a13 in out nocopy VARCHAR2
282 , p4_a14 in out nocopy VARCHAR2
283 , p4_a15 in out nocopy VARCHAR2
284 , p4_a16 in out nocopy VARCHAR2
285 , p4_a17 in out nocopy NUMBER
286 , p4_a18 in out nocopy NUMBER
287 , p4_a19 in out nocopy DATE
288 , x_return_status out nocopy VARCHAR2
289 , x_msg_count out nocopy NUMBER
290 , x_msg_data out nocopy VARCHAR2
291 )
292
293 as
294 ddp_um_person_rec jtf_um_register_user_pvt.person_rec_type;
295 ddp_um_organization_rec jtf_um_register_user_pvt.organization_rec_type;
296 ddindx binary_integer; indx binary_integer;
297 begin
298
299 -- copy data to the local IN or IN-OUT args, if any
300
301
302
303 ddp_um_person_rec.first_name := p3_a0;
304 ddp_um_person_rec.last_name := p3_a1;
305 ddp_um_person_rec.user_name := p3_a2;
306 ddp_um_person_rec.password := p3_a3;
307 ddp_um_person_rec.phone_area_code := p3_a4;
308 ddp_um_person_rec.phone_number := p3_a5;
309 ddp_um_person_rec.email_address := p3_a6;
310 ddp_um_person_rec.party_id := p3_a7;
311 ddp_um_person_rec.user_id := p3_a8;
312 ddp_um_person_rec.start_date_active := rosetta_g_miss_date_in_map(p3_a9);
313 ddp_um_person_rec.privacy_preference := p3_a10;
314
315 ddp_um_organization_rec.organization_number := p4_a0;
316 ddp_um_organization_rec.organization_name := p4_a1;
317 ddp_um_organization_rec.address1 := p4_a2;
318 ddp_um_organization_rec.address2 := p4_a3;
319 ddp_um_organization_rec.address3 := p4_a4;
320 ddp_um_organization_rec.address4 := p4_a5;
321 ddp_um_organization_rec.city := p4_a6;
322 ddp_um_organization_rec.state := p4_a7;
323 ddp_um_organization_rec.postal_code := p4_a8;
324 ddp_um_organization_rec.county := p4_a9;
325 ddp_um_organization_rec.province := p4_a10;
326 ddp_um_organization_rec.altaddress := p4_a11;
327 ddp_um_organization_rec.country := p4_a12;
328 ddp_um_organization_rec.phone_area_code := p4_a13;
329 ddp_um_organization_rec.phone_number := p4_a14;
330 ddp_um_organization_rec.fax_area_code := p4_a15;
331 ddp_um_organization_rec.fax_number := p4_a16;
332 ddp_um_organization_rec.org_party_id := p4_a17;
333 ddp_um_organization_rec.org_contact_party_id := p4_a18;
334 ddp_um_organization_rec.start_date_active := rosetta_g_miss_date_in_map(p4_a19);
335
336
337
338
339 -- here's the delegated call to the old PL/SQL routine
340 jtf_um_business_user_pvt.create_organization(p_api_version_number,
341 p_init_msg_list,
342 p_commit,
343 ddp_um_person_rec,
344 ddp_um_organization_rec,
345 x_return_status,
346 x_msg_count,
347 x_msg_data);
348
349 -- copy data back from the local variables to OUT or IN-OUT args, if any
350
351
352
353 p3_a0 := ddp_um_person_rec.first_name;
354 p3_a1 := ddp_um_person_rec.last_name;
355 p3_a2 := ddp_um_person_rec.user_name;
356 p3_a3 := ddp_um_person_rec.password;
357 p3_a4 := ddp_um_person_rec.phone_area_code;
358 p3_a5 := ddp_um_person_rec.phone_number;
359 p3_a6 := ddp_um_person_rec.email_address;
360 p3_a7 := ddp_um_person_rec.party_id;
361 p3_a8 := ddp_um_person_rec.user_id;
362 p3_a9 := ddp_um_person_rec.start_date_active;
363 p3_a10 := ddp_um_person_rec.privacy_preference;
364
365 p4_a0 := ddp_um_organization_rec.organization_number;
366 p4_a1 := ddp_um_organization_rec.organization_name;
367 p4_a2 := ddp_um_organization_rec.address1;
368 p4_a3 := ddp_um_organization_rec.address2;
369 p4_a4 := ddp_um_organization_rec.address3;
370 p4_a5 := ddp_um_organization_rec.address4;
371 p4_a6 := ddp_um_organization_rec.city;
372 p4_a7 := ddp_um_organization_rec.state;
373 p4_a8 := ddp_um_organization_rec.postal_code;
374 p4_a9 := ddp_um_organization_rec.county;
375 p4_a10 := ddp_um_organization_rec.province;
376 p4_a11 := ddp_um_organization_rec.altaddress;
377 p4_a12 := ddp_um_organization_rec.country;
378 p4_a13 := ddp_um_organization_rec.phone_area_code;
379 p4_a14 := ddp_um_organization_rec.phone_number;
380 p4_a15 := ddp_um_organization_rec.fax_area_code;
381 p4_a16 := ddp_um_organization_rec.fax_number;
382 p4_a17 := ddp_um_organization_rec.org_party_id;
383 p4_a18 := ddp_um_organization_rec.org_contact_party_id;
384 p4_a19 := ddp_um_organization_rec.start_date_active;
385
386
387
388 end;
389
390 end jtf_um_business_user_pvt_w;