1 package pa_role_status_menu_utils AUTHID CURRENT_USER as
2 -- $Header: PAXRSMUS.pls 115.3 2003/08/20 06:47:15 adoraira ship $
3
4 --
5 -- PROCEDURE
6 -- check_dup_role_status
7 -- PURPOSE
8 -- This procedure checks to see that the same status
9 -- has not already been mapped to a menu for a given role.
10 -- HISTORY
11 -- 22-May-2003 Ranjana Murthy - Created
12 --
13 PROCEDURE check_dup_role_status(p_role_status_menu_id IN NUMBER
14 ,p_role_id IN NUMBER
15 ,p_status_code IN VARCHAR2
16 ,p_return_status OUT NOCOPY VARCHAR2
17 ,p_error_message_code OUT NOCOPY VARCHAR2);
18
19 --
20 -- PROCEDURE
21 -- check_status_is_in_use
22 -- PURPOSE
23 -- This procedure checks to see that the given status
24 -- exists in pa_role_status_menu_map - if it does, it
25 -- cannot be deleted from the Project Status form.
26 -- Called from the PA_PROJECT_STUS_UTILS.Allow_Status_Deletion
27 -- procedure.
28 -- HISTORY
29 -- 20-June-2003 Ranjana Murthy - Created
30 --
31 PROCEDURE check_status_is_in_use(p_status_code IN VARCHAR2
32 ,p_in_use_flag OUT NOCOPY VARCHAR2
33 ,p_return_status OUT NOCOPY VARCHAR2
34 ,p_error_message_code OUT NOCOPY VARCHAR2);
35 --
36 -- PROCEDURE
37 -- get_role_status_menus
38 -- PURPOSE
39 -- This procedure checks is used by the pa_security API
40 -- to get all the status menu mappings for a given role.
41 --
42 -- HISTORY
43 -- 22-May-2003 Ranjana Murthy - Created
44 --
45
46 PROCEDURE get_role_status_menus(
47 p_role_id IN NUMBER
48 ,x_role_status_menu_id_tbl OUT NOCOPY SYSTEM.pa_num_tbl_type
49 ,x_status_level OUT NOCOPY VARCHAR2
50 ,x_default_menu_name OUT NOCOPY VARCHAR2
51 ,x_status_type_tbl OUT NOCOPY SYSTEM.pa_varchar2_30_tbl_type
52 ,x_status_code_tbl OUT NOCOPY SYSTEM.pa_varchar2_30_tbl_type
53 ,x_menu_name_tbl OUT NOCOPY SYSTEM.pa_varchar2_30_tbl_type
54 ,x_return_status OUT NOCOPY VARCHAR2
55 ,x_error_message_code OUT NOCOPY VARCHAR2);
56
57 end pa_role_status_menu_utils;