1 PACKAGE pa_action_set_utils AUTHID CURRENT_USER AS
2 /*$Header: PARASUTS.pls 120.1 2005/08/19 16:48:35 mwasowic noship $*/
3 --
4
5 G_PERFORMED_ACTIVE CONSTANT VARCHAR2(80) := 'Performed Active';
6 G_PERFORMED_COMPLETE CONSTANT VARCHAR2(80) := 'Performed Complete';
7 G_NOT_PERFORMED CONSTANT VARCHAR2(80) := 'Not Performed';
8 G_REVERSED_DEFAULT_AUDIT CONSTANT VARCHAR2(80) := 'Reversed Default Audit';
9 G_REVERSED_CUSTOM_AUDIT CONSTANT VARCHAR2(80) := 'Reversed Custom Audit';
10 G_UPDATED_DEFAULT_AUDIT CONSTANT VARCHAR2(80) := 'Updated Default Audit';
11 G_UPDATED_CUSTOM_AUDIT CONSTANT VARCHAR2(80) := 'Updated Custom Audit';
12
13
14 G_ERROR_EXISTS VARCHAR2(1);
15
16 TYPE number_tbl_type IS TABLE OF NUMBER
17 INDEX BY BINARY_INTEGER;
18
19 TYPE varchar_tbl_type IS TABLE OF VARCHAR2(2000)
20 INDEX BY BINARY_INTEGER;
21
22 TYPE date_tbl_type IS TABLE OF DATE
23 INDEX BY BINARY_INTEGER;
24
25 TYPE action_set_lines_tbl_type IS TABLE OF pa_action_set_lines%ROWTYPE
26 INDEX BY BINARY_INTEGER;
27
28 TYPE action_line_cond_tbl_type IS TABLE OF pa_action_set_line_cond%ROWTYPE
29 INDEX BY BINARY_INTEGER;
30
31 l_empty_condition_tbl action_line_cond_tbl_type;
32
33 TYPE action_set_line_id_tbl_type IS TABLE OF NUMBER
34 INDEX BY BINARY_INTEGER;
35
36 TYPE object_name_tbl_type IS TABLE OF VARCHAR2(80)
37 INDEX BY BINARY_INTEGER;
38
39 TYPE project_number_tbl_type IS TABLE OF VARCHAR2(25)
40 INDEX BY BINARY_INTEGER;
41
42 TYPE insert_audit_lines_rec_type IS RECORD
43 (reason_code VARCHAR2(30),
44 action_code VARCHAR2(30),
45 audit_display_attribute VARCHAR2(240),
46 audit_attribute VARCHAR2(150), -- Changed the length to 150 for bug 2863834
47 encoded_error_message VARCHAR2(2000),
48 reversed_action_set_line_id NUMBER);
49
50 TYPE insert_audit_lines_tbl_type IS TABLE OF insert_audit_lines_rec_type
51 INDEX BY BINARY_INTEGER;
52
53 TYPE audit_lines_tbl_type IS TABLE OF pa_action_set_line_aud%ROWTYPE
54 INDEX BY BINARY_INTEGER;
55
56 FUNCTION get_action_set_id(p_action_set_type_code IN VARCHAR2,
57 p_object_type IN VARCHAR2,
58 p_object_id IN NUMBER)
59 RETURN NUMBER;
60
61 FUNCTION get_action_set_lines(p_action_set_id IN NUMBER)
62 RETURN action_set_lines_tbl_type;
63
64 FUNCTION get_action_set_line (p_action_set_line_id IN NUMBER)
65 RETURN pa_action_set_lines%ROWTYPE;
66
67 FUNCTION get_action_line_conditions (p_action_set_line_id IN NUMBER)
68 RETURN action_line_cond_tbl_type;
69
70 FUNCTION get_action_set_details (p_action_set_line_id IN NUMBER)
71 RETURN pa_action_sets%ROWTYPE;
72
73 FUNCTION get_active_audit_lines (p_action_set_line_id IN NUMBER)
74 RETURN audit_lines_tbl_type;
75
76 PROCEDURE add_message(p_app_short_name IN VARCHAR2,
77 p_msg_name IN VARCHAR2,
78 p_token1 IN VARCHAR2 DEFAULT NULL,
79 p_value1 IN VARCHAR2 DEFAULT NULL,
80 p_token2 IN VARCHAR2 DEFAULT NULL,
81 p_value2 IN VARCHAR2 DEFAULT NULL,
82 p_token3 IN VARCHAR2 DEFAULT NULL,
83 p_value3 IN VARCHAR2 DEFAULT NULL,
84 p_token4 IN VARCHAR2 DEFAULT NULL,
85 p_value4 IN VARCHAR2 DEFAULT NULL,
86 p_token5 IN VARCHAR2 DEFAULT NULL,
87 p_value5 IN VARCHAR2 DEFAULT NULL );
88
89 FUNCTION is_name_unique_in_type(p_action_set_type_code IN VARCHAR2,
90 p_action_set_name IN VARCHAR2,
91 p_action_set_id IN NUMBER :=NULL)
92 RETURN VARCHAR2;
93
94 FUNCTION is_action_set_a_source(p_action_set_id IN NUMBER)
95 RETURN VARCHAR2;
96
97 FUNCTION do_lines_exist(p_action_set_id IN NUMBER)
98 RETURN VARCHAR2;
99
100 FUNCTION do_audit_lines_exist(p_action_set_line_id IN NUMBER)
101 RETURN VARCHAR2;
102
103 FUNCTION get_last_performed_date(p_action_set_line_id IN NUMBER)
104 RETURN DATE;
105
106 PROCEDURE Check_Action_Set_Name_Or_Id (p_action_set_id IN pa_action_sets.action_set_id%TYPE := NULL
107 ,p_action_set_name IN pa_action_sets.action_set_name%TYPE
108 ,p_action_set_type_code IN pa_action_set_types.action_set_type_code%TYPE
109 ,p_check_id_flag IN VARCHAR2
110 ,p_date IN DATE := SYSDATE
111 ,x_action_set_id OUT NOCOPY pa_action_sets.action_set_id%TYPE --File.Sql.39 bug 4440895
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 get_line_information_messages(x_line_numbers_tbl OUT NOCOPY SYSTEM.pa_num_tbl_type, --File.Sql.39 bug 4440895
116 x_line_messages_tbl OUT NOCOPY SYSTEm.pa_varchar2_2000_tbl_type); --File.Sql.39 bug 4440895
117
118
119 END pa_action_set_utils;