1 PACKAGE BODY igp_user_gen_001 AS
2 /* $Header: IGSPUSAB.pls 120.0 2005/06/01 20:36:01 appldev noship $ */
3
4 /***********************************************************************************************
5 Created By : SMVK
6 Date Created By: 12-Feb-2004
7 Purpose : This package provides the facility to create adhoc user with the specified email id.
8 Also add the adhoc user to adhoc role.
9
10 Known limitations,enhancements,remarks:
11 Change History (in reverse chronological order)
12 Who When What
13 ********************************************************************************************** */
14
15 PROCEDURE create_role( p_adhoc_role IN OUT NOCOPY VARCHAR2,
16 p_role_dsp IN OUT NOCOPY VARCHAR2,
17 p_adhoc_user IN OUT NOCOPY VARCHAR2,
18 p_user_dsp IN OUT NOCOPY VARCHAR2,
19 p_mail_address IN VARCHAR2) AS
20
21 BEGIN
22 Wf_Directory.CreateAdHocRole (
23 role_name => p_adhoc_role,
24 role_display_name => p_role_dsp
25 );
26
27
28 Wf_Directory.CreateAdHocUser(
29 name => p_adhoc_user,
30 display_name => p_user_dsp,
31 email_address => p_mail_address
32 );
33
34
35 Wf_Directory.AddUsersToAdHocRole (
36 role_name => p_adhoc_role,
37 role_users => p_adhoc_user
38 );
39
40
41 END create_role;
42
43 PROCEDURE check_action(itemtype IN VARCHAR2,
44 itemkey IN VARCHAR2,
45 actid IN NUMBER,
46 funcmode IN VARCHAR2,
47 resultout OUT NOCOPY VARCHAR2)
48 AS
49 /*
50 || Created By : vijrajag
51 || Created On : 1/28/2004
52 || Purpose : Checks the p_action and returns the lookup code for lookup type action.
53 || Known limitations, enhancements or remarks :
54 || Change History :
55 || Who When What
56 || (reverse chronological order - newest change first)
57 */
58
59 l_action VARCHAR2(30);
60 l_url VARCHAR2(2000);
61
62 BEGIN
63
64 l_action := Wf_Engine.GetItemAttrText(itemtype,itemkey,'P_ACTION');
65 l_url := Wf_Engine.GetItemAttrText(itemtype,itemkey,'P_URL');
66 l_url := '<a href='||l_url||'>'||l_url||'</a>';
67 wf_engine.SetItemAttrText(itemtype,itemkey,'P_URL', l_url);
68 IF (l_action = 'NEW' ) THEN resultout := 'COMPLETE:NEW';
69 ELSIF (l_action='UPDATE')THEN resultout := 'COMPLETE:UPDATE';
70 ELSIF (l_action='RESEND') THEN resultout := 'COMPLETE:RESEND';
71 END IF;
72
73 EXCEPTION
74 WHEN others THEN
75 NULL;
76 END CHECK_ACTION;
77
78 END igp_user_gen_001;