[Home] [Help]
PACKAGE BODY: APPS.BIS_PMF_ALERT_REG_PUB
Source
1 PACKAGE BODY BIS_PMF_ALERT_REG_PUB AS
2 /* $Header: BISPARTB.pls 115.16 2002/12/16 10:22:49 rchandra ship $ */
3 --
4 /*
5 REM +=======================================================================+
6 REM | Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA |
7 REM | All rights reserved. |
8 REM +=======================================================================+
9 REM | FILENAME |
10 REM | BISPARTB.pls |
11 REM | |
12 REM | DESCRIPTION |
13 REM | Public API for managing Alert Registration Repository
14 REM |
15 REM | NOTES |
16 REM | |
17 REM | HISTORY |
18 REM | 17-May-2000 jradhakr Creation
19 REM | June 2000 irchen takeover
20 REM +=======================================================================+
21 */
22
23 G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_PMF_ALERT_REG_PUB';
24
25
26 PROCEDURE Create_Parameter_set
27 ( p_api_version IN NUMBER
28 , p_commit IN VARCHAR2 := FND_API.G_FALSE
29 , p_Param_Set_Rec IN OUT NOCOPY BIS_PMF_ALERT_REG_PUB.parameter_set_rec_type
30 , x_return_status OUT NOCOPY VARCHAR2
31 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
32 )
33 IS
34 BEGIN
35
36
37 BIS_PMF_ALERT_REG_PVT.Create_Parameter_set
38 ( p_api_version => p_api_version
39 , p_commit => p_commit
40 , p_Param_Set_Rec => p_Param_Set_Rec
41 , x_return_status => x_return_status
42 , x_error_Tbl => x_error_Tbl
43 );
44
45
46 EXCEPTION
47 when FND_API.G_EXC_ERROR then
48 x_return_status := FND_API.G_RET_STS_ERROR ;
49 when FND_API.G_EXC_UNEXPECTED_ERROR then
50 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
51 when others then
52 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
53 BIS_UTILITIES_PVT.Add_Error_Message
54 ( p_error_msg_id => SQLCODE
55 , p_error_description => SQLERRM
56 , p_error_proc_name => G_PKG_NAME||'.Create_Parameter_set'
57 , p_error_table => x_error_tbl
58 , x_error_table => x_error_tbl
59 );
60
61 END Create_Parameter_set;
62
63 --
64 -- Delete one parameter set.
65 --
66
67 PROCEDURE Delete_Parameter_set
68 ( p_api_version IN NUMBER
69 , p_commit IN VARCHAR2 := FND_API.G_FALSE
70 , p_Param_Set_Rec IN BIS_PMF_ALERT_REG_PUB.parameter_set_rec_type
71 , x_return_status OUT NOCOPY VARCHAR2
72 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
73 )
74 IS
75
76 BEGIN
77
78 BIS_PMF_ALERT_REG_PVT.Delete_Parameter_set
79 ( p_api_version => p_api_version
80 , p_commit => p_commit
81 , p_Param_Set_Rec => p_Param_Set_Rec
82 , x_return_status => x_return_status
83 , x_error_Tbl => x_error_Tbl
84 );
85
86
87 EXCEPTION
88 when FND_API.G_EXC_ERROR then
89 x_return_status := FND_API.G_RET_STS_ERROR ;
90 when FND_API.G_EXC_UNEXPECTED_ERROR then
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
92 when others then
93 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
94 BIS_UTILITIES_PVT.Add_Error_Message
95 ( p_error_msg_id => SQLCODE
96 , p_error_description => SQLERRM
97 , p_error_proc_name => G_PKG_NAME||'.Delete_Parameter_set'
98 , p_error_table => x_error_tbl
99 , x_error_table => x_error_tbl
100 );
101
102 END Delete_Parameter_set;
103
104 -- Retrieve a Table of parmeter set.
105 --
106 PROCEDURE Retrieve_Parameter_set
107 ( p_api_version IN NUMBER
108 , p_measure_id IN NUMBER
109 , p_time_dimension_level_id IN NUMBER
110 , p_current_row IN VARCHAR2 := NULL
111 , x_Param_Set_Tbl OUT NOCOPY BIS_PMF_ALERT_REG_PUB.parameter_set_tbl_type
112 , x_return_status OUT NOCOPY VARCHAR2
113 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
114 )
115 IS
116 BEGIN
117
118 BIS_PMF_ALERT_REG_PVT.Retrieve_Parameter_set
119 ( p_api_version => p_api_version
120 , p_measure_id => p_measure_id
121 , p_time_dimension_level_id=> p_time_dimension_level_id
122 , p_current_row => p_current_row
123 , x_Param_Set_Tbl => x_Param_Set_Tbl
124 , x_return_status => x_return_status
125 , x_error_Tbl => x_error_Tbl
126 );
127
128 EXCEPTION
129 when FND_API.G_EXC_ERROR then
130 x_return_status := FND_API.G_RET_STS_ERROR ;
131 when FND_API.G_EXC_UNEXPECTED_ERROR then
132 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
133 when others then
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135 BIS_UTILITIES_PVT.Add_Error_Message
136 ( p_error_msg_id => SQLCODE
137 , p_error_description => SQLERRM
138 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Parameter_set'
139 , p_error_table => x_error_tbl
140 , x_error_table => x_error_tbl
141 );
142
143 END Retrieve_Parameter_set;
144
145 --
146 -- Checks if request is scheduled to run again. If not, the request
147 -- is deleted from the Registration table and the ad hoc workflow role
148 -- is removed.
149 --
150
151 PROCEDURE Manage_Alert_Registrations
152 ( p_Param_Set_rec IN BIS_PMF_ALERT_REG_PUB.parameter_set_rec_type
153 , x_request_scheduled OUT NOCOPY VARCHAR2
154 , x_return_status OUT NOCOPY VARCHAR2
155 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
156 )
157 IS
158 BEGIN
159
160 BIS_PMF_ALERT_REG_PVT.Manage_Alert_Registrations
161 ( p_Param_Set_rec => p_Param_Set_rec
162 , x_request_scheduled => x_request_scheduled
163 , x_return_status => x_return_status
164 , x_error_Tbl => x_error_Tbl
165 );
166
167 EXCEPTION
168 when FND_API.G_EXC_ERROR then
169 x_return_status := FND_API.G_RET_STS_ERROR ;
170 when FND_API.G_EXC_UNEXPECTED_ERROR then
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172 when others then
173 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
174 BIS_UTILITIES_PVT.Add_Error_Message
175 ( p_error_msg_id => SQLCODE
176 , p_error_description => SQLERRM
177 , p_error_proc_name => G_PKG_NAME||'.Manage_Alert_Registrations'
178 , p_error_table => x_error_tbl
179 , x_error_table => x_error_tbl
180 );
181 END Manage_Alert_Registrations;
182
183 PROCEDURE Manage_Alert_Registrations
184 ( p_Param_Set_Tbl IN BIS_PMF_ALERT_REG_PUB.parameter_set_tbl_type
185 , x_request_scheduled OUT NOCOPY VARCHAR2
186 , x_return_status OUT NOCOPY VARCHAR2
187 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
188 )
189 IS
190 BEGIN
191
192 BIS_PMF_ALERT_REG_PVT.Manage_Alert_Registrations
193 ( p_Param_Set_Tbl => p_Param_Set_Tbl
194 , x_request_scheduled => x_request_scheduled
195 , x_return_status => x_return_status
196 , x_error_Tbl => x_error_Tbl
197 );
198
199 EXCEPTION
200 when FND_API.G_EXC_ERROR then
201 x_return_status := FND_API.G_RET_STS_ERROR ;
202 when FND_API.G_EXC_UNEXPECTED_ERROR then
203 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
204 when others then
205 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
206 BIS_UTILITIES_PVT.Add_Error_Message
207 ( p_error_msg_id => SQLCODE
208 , p_error_description => SQLERRM
209 , p_error_proc_name => G_PKG_NAME||'.Manage_Alert_Registrations'
210 , p_error_table => x_error_tbl
211 , x_error_table => x_error_tbl
212 );
213 END Manage_Alert_Registrations;
214
215 --
216 -- Function which will return a boolean varible, if parameter set exist
217 -- and will also return the notifiers_code
218 --
219 FUNCTION Parameter_set_exist
220 ( p_api_version IN NUMBER
221 , p_Param_Set_Rec IN BIS_PMF_ALERT_REG_PUB.parameter_set_rec_type
222 , x_notifiers_code OUT NOCOPY VARCHAR2
223 , x_return_status OUT NOCOPY VARCHAR2
224 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
225 ) return boolean
226 IS
227
228 l_p_exist boolean;
229
230 BEGIN
231
232 l_p_exist := BIS_PMF_ALERT_REG_PVT.Parameter_set_Exist
233 ( p_api_version => p_api_version
234 , p_Param_Set_Rec => p_Param_Set_Rec
235 , x_notifiers_code => x_notifiers_code
236 , x_return_status => x_return_status
237 , x_error_Tbl => x_error_Tbl
238 );
239
240 return l_p_exist;
241
242 EXCEPTION
243 when FND_API.G_EXC_ERROR then
244 x_return_status := FND_API.G_RET_STS_ERROR ;
245 when FND_API.G_EXC_UNEXPECTED_ERROR then
246 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
247 when others then
248 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
249 BIS_UTILITIES_PVT.Add_Error_Message
250 ( p_error_msg_id => SQLCODE
251 , p_error_description => SQLERRM
252 , p_error_proc_name => G_PKG_NAME||'.Parameter_set_exist'
253 , p_error_table => x_error_tbl
254 , x_error_table => x_error_tbl
255 );
256
257 END Parameter_set_exist;
258
259 END BIS_PMF_ALERT_REG_PUB;