1 package PA_ROLE_UTILS as
2 -- $Header: PARLUTLS.pls 120.1 2005/08/19 16:56:23 mwasowic noship $
3
4 --
5 -- PROCEDURE
6 -- Check_Role_Name_Or_Id
7 -- PURPOSE
8 -- This procedure does the following
9 -- If role name is passed converts it to the id
10 -- If id is passed, based on the check_id_flag validates it
11 -- HISTORY
12 -- 22-JUN-2000 R. Krishnamurthy Created
13 --
14 procedure Check_Role_Name_Or_Id
15 ( p_role_id IN pa_project_role_types.project_role_id%TYPE
16 ,p_role_name IN pa_project_role_types.meaning%TYPE
17 ,p_check_id_flag IN VARCHAR2 := 'A'
18 ,x_role_id OUT NOCOPY pa_project_role_types.project_role_id%TYPE --File.Sql.39 bug 4440895
19 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
20 ,x_error_message_code OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
21
22 --
23 -- PROCEDURE
24 -- Check_Role_RoleList
25 -- PURPOSE
26 -- This procedure does the following
27 -- If role name is passed converts it to the id
28 -- If id is passed, based on the check_id_flag validates it
29 -- If role list name is passed converts it to the id
30 -- If role list id is passed, based on the check_id_flag validates it
31 -- It also validates that whether the role belongs to the role list
32 -- HISTORY
33 -- 19-FEB-2001 Song Yao Created
34
35 procedure Check_Role_RoleList
36 ( p_role_id IN pa_project_role_types.project_role_id%TYPE
37 ,p_role_name IN pa_project_role_types.meaning%TYPE
38 ,p_role_list_id IN pa_role_lists.role_list_id%TYPE := NULL
39 ,p_role_list_name IN pa_role_lists.name%TYPE := null
40 ,p_check_id_flag IN VARCHAR2
41 ,x_role_id OUT NOCOPY pa_project_role_types.project_role_id%TYPE --File.Sql.39 bug 4440895
42 ,x_role_list_id OUT NOCOPY pa_role_lists.role_list_id%TYPE --File.Sql.39 bug 4440895
43 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
44 ,x_error_message_code OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
45
46 --
47 -- PROCEDURE
48 -- get_role_defaults
49 -- PURPOSE
50 -- This procedure returns the defaults for a role
51 --
52 -- HISTORY
53 --
54 procedure Get_Role_Defaults
55 (p_role_id IN pa_project_role_types.project_role_id%TYPE
56 ,x_meaning OUT NOCOPY pa_project_role_types.meaning%TYPE --File.Sql.39 bug 4440895
57 ,x_default_min_job_level OUT NOCOPY pa_project_role_types.default_min_job_level%TYPE --File.Sql.39 bug 4440895
58 ,x_default_max_job_level OUT NOCOPY pa_project_role_types.default_max_job_level%TYPE --File.Sql.39 bug 4440895
59 ,x_menu_id OUT NOCOPY pa_project_role_types.menu_id%TYPE --File.Sql.39 bug 4440895
60 ,x_schedulable_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
61 ,x_default_job_id OUT NOCOPY pa_project_role_types.default_job_id%TYPE --File.Sql.39 bug 4440895
62 ,x_def_competencies OUT NOCOPY pa_hr_competence_utils.competency_tbl_typ --File.Sql.39 bug 4440895
63 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
64 ,x_error_message_code OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
65
66 PROCEDURE Validate_Role_Competency
67 (p_competence_id IN per_competences.competence_id%TYPE
68 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
69 ,x_error_message_code OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
70
71 PROCEDURE Get_Schedulable_flag (p_role_id in number
72 ,x_schedulable_flag out NOCOPY varchar2 --File.Sql.39 bug 4440895
73 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
74 ,x_error_message_code out NOCOPY varchar2) ; --File.Sql.39 bug 4440895
75
76 FUNCTION Get_Schedulable_flag (p_role_id in number) return varchar2 ;
77
78
79 PROCEDURE Check_delete_role_OK (p_role_id in number
80 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
81 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
82
83 PROCEDURE Check_remove_control_ok(p_role_id in number
84 ,p_role_control_code in varchar2
85 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
86 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
87
88 PROCEDURE Check_delete_role_list_OK(p_role_list_id in number
89 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
90 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
91
92 /*PROCEDURE Check_change_role_menu_OK(p_role_id in number
93 ,x_return_status out varchar2
94 ,x_error_message_code out varchar2);*/
95
96 PROCEDURE update_menu_in_grants(p_role_id in number
97 , p_menu_id in number
98 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
99 ,x_error_message_code out NOCOPY varchar2) ; --File.Sql.39 bug 4440895
100
101 PROCEDURE disable_role_based_sec(p_role_id in number
102 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
103 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
104
105 PROCEDURE Enable_role_based_sec(p_role_id in number
106 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
107 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
108
109 FUNCTION is_role_in_use(p_role_id in number) return varchar2;
110
111 PROCEDURE Check_dup_role_name(p_meaning in varchar2
112 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
113 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
114
115 PROCEDURE Check_dup_role_list_name(p_name in varchar2
116 ,x_return_status out NOCOPY varchar2 --File.Sql.39 bug 4440895
117 ,x_error_message_code out NOCOPY varchar2); --File.Sql.39 bug 4440895
118 end PA_ROLE_UTILS ;