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.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;