1: package body WF_DIRECTORY_PART_UTIL as
2: /* $Header: wfdpub.pls 120.1 2005/07/02 03:45:45 appldev noship $ */
3:
4: procedure validate_display_name (
5: p_display_name in varchar2,
11: l_upper_name VARCHAR2(360);
12: l_orig_system_id NUMBER;
13: l_get_role BOOLEAN := TRUE;
14:
15: role_info_tbl wf_directory.wf_local_roles_tbl_type;
16:
17: --Bug 3626135
18: --Added the order by clause to recterive the record
19: --based on status and start date in ascending order
59: ** there are duplicate internal names that match the criteria then
60: ** there is a problem with directory services but what can you do. Go
61: ** ahead and pick the first name so you return something
62: **
63: ** Bug# 2236250 calling Wf_Directory.GetRoleInfo2 only if the value
64: ** after ':' is numeric.
65: */
66: if (l_get_role) then
67: Wf_Directory.GetRoleInfo2(upper(p_display_name),role_info_tbl);
63: ** Bug# 2236250 calling Wf_Directory.GetRoleInfo2 only if the value
64: ** after ':' is numeric.
65: */
66: if (l_get_role) then
67: Wf_Directory.GetRoleInfo2(upper(p_display_name),role_info_tbl);
68: l_name := role_info_tbl(1).name;
69: end if;
70:
71: /*
108: */
109: if (r_name_lov%ROWCOUNT > 1) then
110: close r_name_lov;
111:
112: -- copy logic from wf_directory.getroleinfo2
113: l_colon := instr(p_user_name,':');
114:
115: if (l_colon = 0) then
116: select count(1)
165: when others then
166: if (r_name_lov%ISOPEN) then
167: close r_name_lov;
168: end if;
169: wf_core.context('Wf_Directory_Part_Util', 'validate_display_name',
170: p_display_name, p_user_name);
171: raise;
172: end validate_display_name;
173:
170: p_display_name, p_user_name);
171: raise;
172: end validate_display_name;
173:
174: end WF_DIRECTORY_PART_UTIL;