1 package body umx_reg_requests_pvt_w as
2 /* $Header: UMXRGRWB.pls 115.5 2004/07/09 20:31:03 kching noship $ */
3 procedure is_username_available(p_username VARCHAR2
4 , ddrosetta_retval_bool OUT NOCOPY NUMBER
5 )
6
7 as
8 ddindx binary_integer; indx binary_integer;
9 ddrosetta_retval boolean;
10 begin
11
12 -- copy data to the local IN or IN-OUT args, if any
13
14 -- here's the delegated call to the old PL/SQL routine
15 ddrosetta_retval := umx_reg_requests_pvt.is_username_available(p_username);
16
17 -- copy data back from the local variables to OUT or IN-OUT args, if any
18 if ddrosetta_retval is null
19 then ddrosetta_retval_bool := null;
20 elsif ddrosetta_retval
21 then ddrosetta_retval_bool := 1;
22 else ddrosetta_retval_bool := 0;
23 end if;
24 end;
25
26 procedure update_reg_request(p0_a0 in out nocopy NUMBER
27 , p0_a1 in out nocopy VARCHAR2
28 , p0_a2 in out nocopy VARCHAR2
29 , p0_a3 in out nocopy NUMBER
30 , p0_a4 in out nocopy NUMBER
31 , p0_a5 in out nocopy NUMBER
32 , p0_a6 in out nocopy VARCHAR2
33 , p0_a7 in out nocopy DATE
34 , p0_a8 in out nocopy DATE
35 , p0_a9 in out nocopy VARCHAR2
36 , p0_a10 in out nocopy VARCHAR2
37 , p0_a11 in out nocopy NUMBER
38 , p0_a12 in out nocopy VARCHAR2
39 , p0_a13 in out nocopy VARCHAR2
40 , p0_a14 in out nocopy VARCHAR2
41 , p0_a15 in out nocopy VARCHAR2
42 )
43
44 as
45 ddp_reg_request umx_reg_requests_pvt.reg_request_type;
46 ddindx binary_integer; indx binary_integer;
47 begin
48
49 -- copy data to the local IN or IN-OUT args, if any
50 ddp_reg_request.reg_request_id := p0_a0;
51 ddp_reg_request.reg_service_type := p0_a1;
52 ddp_reg_request.status_code := p0_a2;
53 ddp_reg_request.requested_by_userid := p0_a3;
54 ddp_reg_request.requested_for_user_id := p0_a4;
55 ddp_reg_request.requested_for_party_id := p0_a5;
56 ddp_reg_request.requested_username := p0_a6;
57 ddp_reg_request.requested_start_date := p0_a7;
58 ddp_reg_request.requested_end_date := p0_a8;
59 ddp_reg_request.wf_role_name := p0_a9;
60 ddp_reg_request.reg_service_code := p0_a10;
61 ddp_reg_request.ame_application_id := p0_a11;
62 ddp_reg_request.ame_transaction_type_id := p0_a12;
63 ddp_reg_request.justification := p0_a13;
64 ddp_reg_request.wf_event_name := p0_a14;
65 ddp_reg_request.email_verification_flag := p0_a15;
66
67 -- here's the delegated call to the old PL/SQL routine
68 umx_reg_requests_pvt.update_reg_request(ddp_reg_request);
69
70 -- copy data back from the local variables to OUT or IN-OUT args, if any
71 p0_a0 := ddp_reg_request.reg_request_id;
72 p0_a1 := ddp_reg_request.reg_service_type;
73 p0_a2 := ddp_reg_request.status_code;
74 p0_a3 := ddp_reg_request.requested_by_userid;
75 p0_a4 := ddp_reg_request.requested_for_user_id;
76 p0_a5 := ddp_reg_request.requested_for_party_id;
77 p0_a6 := ddp_reg_request.requested_username;
78 p0_a7 := ddp_reg_request.requested_start_date;
79 p0_a8 := ddp_reg_request.requested_end_date;
80 p0_a9 := ddp_reg_request.wf_role_name;
81 p0_a10 := ddp_reg_request.reg_service_code;
82 p0_a11 := ddp_reg_request.ame_application_id;
83 p0_a12 := ddp_reg_request.ame_transaction_type_id;
84 p0_a13 := ddp_reg_request.justification;
85 p0_a14 := ddp_reg_request.wf_event_name;
86 p0_a15 := ddp_reg_request.email_verification_flag;
87 end;
88
89 end umx_reg_requests_pvt_w;