1 PACKAGE AMW_SETUP_RISK_TYPES_PVT AS
2 /* $Header: amwvrtps.pls 120.0 2005/05/31 22:02:25 appldev noship $ */
3
4 -- ===============================================================
5 -- Package name
6 -- AMW_SETUP_RISK_TYPES_PVT
7 -- Purpose
8 -- for handling setup risk type actions
9 --
10 -- History
11 -- 07/14/2004 tsho Creates
12 -- ===============================================================
13
14
15 TYPE G_NUMBER_TABLE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
16
17
18 -- ===============================================================
19 -- Procedure name
20 -- Reassign_Risk_Type
21 -- Purpose
22 -- Reassign specified risk type to other parent risk type.
23 -- ===============================================================
24 PROCEDURE Reassign_Risk_Type(
25 p_setup_risk_type_id IN NUMBER,
26 p_parent_setup_risk_type_id IN NUMBER
27 );
28
29
30 -- ===============================================================
31 -- Procedure name
32 -- Delete_Risk_Types
33 -- Purpose
34 -- Delete specified risk type and its descendant.
35 -- Delete associations records in AMW_COMPLIANCE_ENV_ASSOCS
36 -- for the specified risk type and its descendant.
37 -- ===============================================================
38 PROCEDURE Delete_Risk_Types(
39 p_setup_risk_type_id IN NUMBER,
40 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41 p_commit IN VARCHAR2 := FND_API.G_FALSE,
42 p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
43 x_return_status OUT NOCOPY VARCHAR2,
44 x_msg_count OUT NOCOPY NUMBER,
45 x_msg_data OUT NOCOPY VARCHAR2
46 );
47
48 -- ===============================================================
49 -- Procedure name
50 -- InValidate_Risk_Types
51 -- Purpose
52 -- InValidate(End-Date) specified risk type and its descendant.
53 -- ===============================================================
54 PROCEDURE InValidate_Risk_Types(
55 p_setup_risk_type_id IN NUMBER,
56 p_end_date IN DATE,
57 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
58 p_commit IN VARCHAR2 := FND_API.G_FALSE,
59 p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
60 x_return_status OUT NOCOPY VARCHAR2,
61 x_msg_count OUT NOCOPY NUMBER,
62 x_msg_data OUT NOCOPY VARCHAR2
63 );
64
65
66 -- ===============================================================
67 -- Function name
68 -- RISK_TYPE_PRESENT
69 -- Purpose
70 -- return non translated character (Y/N) to indicate the
71 -- selected(associated) Setup Risk Type to specified RiskRevId
72 -- ===============================================================
73 FUNCTION RISK_TYPE_PRESENT (
74 p_risk_rev_id IN NUMBER,
75 p_risk_type_code IN VARCHAR2
76 ) RETURN VARCHAR2;
77
78
79 -- ===============================================================
80 -- Function name
81 -- RISK_TYPE_PRESENT_MEAN
82 -- Purpose
83 -- return translated meaning (Yes/No) to indicate the
84 -- selected(associated) Setup Risk Type to specified RiskRevId
85 -- ===============================================================
86 FUNCTION RISK_TYPE_PRESENT_MEAN (
87 p_risk_rev_id IN NUMBER,
88 p_risk_type_code IN VARCHAR2
89 ) RETURN VARCHAR2;
90
91
92 -- ===============================================================
93 -- Function name
94 -- IS_DESCENDANT_ASSOC_TO_RISK
95 -- Purpose
96 -- return non translated character (Y/N) to indicate if the
97 -- Setup Risk Type or at least one of its descendants are
98 -- associated to specified RiskRevId under specified compliance
99 -- ===============================================================
100 FUNCTION IS_DESCENDANT_ASSOC_TO_RISK (
101 p_risk_rev_id IN NUMBER,
102 p_setup_risk_type_id IN NUMBER,
103 p_compliance_env_id IN NUMBER
104 ) RETURN VARCHAR2;
105
106
107 -- ===============================================================
108 -- Procedure name
109 -- PROCESS_RISK_TYPE_ASSOCS
110 -- Purpose
111 -- Update the risk-riskTypes associations(store in table AMW_RISK_TYPE)
112 -- depending on the specified p_select_flag .
113 -- ===============================================================
114 PROCEDURE PROCESS_RISK_TYPE_ASSOCS (
115 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
116 p_commit IN VARCHAR2 := FND_API.G_FALSE,
117 p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
118 p_select_flag IN VARCHAR2,
119 p_risk_rev_id IN NUMBER,
120 p_risk_type_code IN VARCHAR2,
121 x_return_status OUT NOCOPY VARCHAR2,
122 x_msg_count OUT NOCOPY NUMBER,
123 x_msg_data OUT NOCOPY VARCHAR2
124 );
125
126 -- ===============================================================
127 -- Function name
128 -- GET_ALL_DESCENDANTS
129 -- Purpose
130 -- to get all the descendants of specified risk type
131 -- ===============================================================
132 FUNCTION GET_ALL_DESCENDANTS (
133 p_setup_risk_type_id IN NUMBER
134 ) RETURN G_NUMBER_TABLE;
135
136
137 -- ===============================================================
138 -- Function name
139 -- IS_DESCENDANT
140 -- Purpose
141 -- return 'Y' if the passed-in p_target_setup_risk_type is the descendants
142 -- of specified risk type (p_setup_risk_type_id)
143 -- ===============================================================
144 FUNCTION IS_DESCENDANT (
145 p_target_setup_risk_type_id IN NUMBER,
146 p_setup_risk_type_id IN NUMBER
147 ) RETURN VARCHAR2;
148
149
150 -- ===============================================================
151 -- Function name
152 -- IS_PARENT
153 -- Purpose
154 -- return 'Y' if the passed-in p_target_setup_risk_type is the direct parent
155 -- of specified risk type (p_setup_risk_type_id)
156 -- ===============================================================
157 FUNCTION IS_PARENT (
158 p_target_setup_risk_type_id IN NUMBER,
159 p_setup_risk_type_id IN NUMBER
160 ) RETURN VARCHAR2;
161
162
163 -- ===============================================================
164 -- Function name
165 -- CAN_HAVE_CHILD
166 -- Purpose
167 -- return non translated character (Y/N) to indicate the
168 -- specified parent_setup_risk_type can have target setup_risk_type as child.
169 -- ===============================================================
170 FUNCTION CAN_HAVE_CHILD (
171 p_target_setup_risk_type_id IN NUMBER,
172 p_parent_setup_risk_type_id IN NUMBER
173 ) RETURN VARCHAR2;
174
175
176 -- ===============================================================
177 -- Procedure name
178 -- IS_ASSOC_TO_RISK
179 -- Purpose
180 -- return 'Y' if the passed-in p_setup_risk_type and its descendants
181 -- are currently associated with the specified risk (p_risk_rev_id)
182 -- ===============================================================
183 PROCEDURE IS_ASSOC_TO_RISK (
184 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
185 p_commit IN VARCHAR2 := FND_API.G_FALSE,
186 p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
187 p_setup_risk_type_id IN NUMBER,
188 x_is_assoc_to_risk OUT NOCOPY VARCHAR2,
189 x_return_status OUT NOCOPY VARCHAR2,
190 x_msg_count OUT NOCOPY NUMBER,
191 x_msg_data OUT NOCOPY VARCHAR2
192 );
193
194
195 -- ----------------------------------------------------------------------
196 END AMW_SETUP_RISK_TYPES_PVT;