[Home] [Help]
PACKAGE BODY: APPS.AML_MONITOR_CONDITIONS_PUB
Source
1 PACKAGE BODY AML_MONITOR_CONDITIONS_PUB as
2 /* $Header: amlplmcb.pls 115.4 2003/01/23 02:55:22 swkhanna noship $ */
3 -- Start of Comments
4 -- Package name : AML_MONITOR_CONDITIONS_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AML_MONITOR_CONDITIONS_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amlplmcb.pls';
13
14
15 AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
16 AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
17 AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
18 AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
19
20 -- ********************************************************
21 -- PROCEDURE : Create_Monitor_Condition
22 --
23 -- ********************************************************
24 PROCEDURE Create_monitor_condition(
25 P_Api_Version_Number IN NUMBER,
26 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
27 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
28 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
29 P_Identity_Resource_Id IN NUMBER,
30 P_CONDITION_Rec IN CONDITION_Rec_Type := G_MISS_CONDITION_REC,
31 X_MONITOR_CONDITION_ID OUT NOCOPY NUMBER,
32 X_Return_Status OUT NOCOPY VARCHAR2,
33 X_Msg_Count OUT NOCOPY NUMBER,
34 X_Msg_Data OUT NOCOPY VARCHAR2
35 )
36
37 IS
38 l_api_name CONSTANT VARCHAR2(30) := 'Create_monitor_condition';
39 l_api_version_number CONSTANT NUMBER := 2.0;
40
41 l_return_status_full VARCHAR2(1);
42 l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
43 l_access_flag VARCHAR2(1);
44 BEGIN
45 -- Standard Start of API savepoint
46 SAVEPOINT CREATE_MONITOR_CONDITION_PUB;
47
48 -- Standard call to check for call compatibility.
49 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
50 p_api_version_number,
51 l_api_name,
52 G_PKG_NAME)
53 THEN
54 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55 END IF;
56
57
58 -- Initialize message list if p_init_msg_list is set to TRUE.
59 IF FND_API.to_Boolean( p_init_msg_list )
60 THEN
61 FND_MSG_PUB.initialize;
62 END IF;
63
64
65 -- Debug Message
66 IF (AS_DEBUG_LOW_ON) THEN
67 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
68 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
69 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'PUB: Call PVT.CreateMonitor_Condition');
70 END IF;
71
72 -- Initialize API return status to SUCCESS
73 -- x_return_status := FND_API.G_RET_STS_SUCCESS;
74
75 -- Invoke private API (AML_MONITOR_CONDITIONS_PKG.Create_Monitor_Condition)
76 AML_MONITOR_CONDITIONS_PVT.Create_Monitor_Condition(
77 P_Api_Version_Number => 2.0,
78 P_Init_Msg_List => FND_API.G_FALSE,
79 P_Commit => FND_API.G_FALSE,
80 P_Validation_Level => P_Validation_Level,
81 P_Identity_Resource_Id => P_Identity_Resource_Id,
82 P_Condition_rec => P_Condition_Rec,
83 x_monitor_condition_id => x_monitor_condition_id,
84 X_Return_Status => x_return_status,
85 X_Msg_Count => x_msg_count,
86 X_Msg_Data => x_msg_data);
87
88 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
89 RAISE FND_API.G_EXC_ERROR;
90 END IF;
91
92 --
93 -- End of API body
94 --
95
96 -- Standard check for p_commit
97 IF FND_API.to_Boolean( p_commit )
98 THEN
99 COMMIT WORK;
100 END IF;
101
102 -- Debug Message
103 IF (AS_DEBUG_LOW_ON) THEN
104 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
105 END IF;
106
107 -- Standard call to get message count and if count is 1, get message info.
108 FND_MSG_PUB.Count_And_Get
109 ( p_count => x_msg_count,
110 p_data => x_msg_data
111 );
112
113 EXCEPTION
114 WHEN FND_API.G_EXC_ERROR THEN
115 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
116 P_API_NAME => L_API_NAME
117 ,P_PKG_NAME => G_PKG_NAME
118 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
119 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
120 ,X_MSG_COUNT => X_MSG_COUNT
121 ,X_MSG_DATA => X_MSG_DATA
122 ,X_RETURN_STATUS => X_RETURN_STATUS);
123
124 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
125 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
126 P_API_NAME => L_API_NAME
127 ,P_PKG_NAME => G_PKG_NAME
128 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
129 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
130 ,X_MSG_COUNT => X_MSG_COUNT
131 ,X_MSG_DATA => X_MSG_DATA
132 ,X_RETURN_STATUS => X_RETURN_STATUS);
133
134 WHEN OTHERS THEN
135 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
136 P_API_NAME => L_API_NAME
137 ,P_PKG_NAME => G_PKG_NAME
138 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
139 ,P_SQLCODE => SQLCODE
140 ,P_SQLERRM => SQLERRM
141 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
142 ,X_MSG_COUNT => X_MSG_COUNT
143 ,X_MSG_DATA => X_MSG_DATA
144 ,X_RETURN_STATUS => X_RETURN_STATUS);
145 End Create_monitor_condition;
146 -- *******************************************************************
147 -- PROCEDURE : Update_monitor_condition
148 --
149 -- *******************************************************************
150
151 PROCEDURE Update_monitor_condition(
152 P_Api_Version_Number IN NUMBER,
153 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
154 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
155 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
156 p_identity_salesforce_id IN NUMBER,
157 P_CONDITION_Rec IN CONDITION_Rec_Type,
158 X_Return_Status OUT NOCOPY VARCHAR2,
159 X_Msg_Count OUT NOCOPY NUMBER,
160 X_Msg_Data OUT NOCOPY VARCHAR2
161 )
162 IS
163
164 l_api_name CONSTANT VARCHAR2(30) := 'Update_monitor_condition';
165 l_api_version_number CONSTANT NUMBER := 2.0;
166
167 BEGIN
168 -- Standard Start of API savepoint
169 SAVEPOINT UPDATE_MONITOR_CONDITION_PUB;
170
171 -- Standard call to check for call compatibility.
172 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
173 p_api_version_number,
174 l_api_name,
175 G_PKG_NAME)
176 THEN
177 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178 END IF;
179
180
181 -- Initialize message list if p_init_msg_list is set to TRUE.
182 IF FND_API.to_Boolean( p_init_msg_list )
183 THEN
184 FND_MSG_PUB.initialize;
185 END IF;
186
187
188 -- Debug Message
189 IF (AS_DEBUG_LOW_ON) THEN
190 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
191 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
192 END IF;
193
194 -- Initialize API return status to SUCCESS
195 --x_return_status := FND_API.G_RET_STS_SUCCESS;
196
197 --
198 -- Api body
199 --
200
201 -- Invoke table handler(aml_MONITOR_CONDITIONS_PKG.Update_Row)
202 AML_MONITOR_CONDITIONS_PVT.Update_Monitor_Condition(
203 P_Api_Version_Number => 2.0,
204 P_Init_Msg_List => FND_API.G_FALSE,
205 P_Commit => FND_API.G_FALSE,
206 P_Validation_Level => P_Validation_Level,
207 P_identity_salesforce_id => P_identity_salesforce_id,
208 P_Condition_rec => P_Condition_Rec,
209 X_Return_Status => x_return_status,
210 X_Msg_Count => x_msg_count,
211 X_Msg_Data => x_msg_data);
212
213 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
214 RAISE FND_API.G_EXC_ERROR;
215 END IF;
216 -- End of API body.
217 --
218
219 -- Standard check for p_commit
220 IF FND_API.to_Boolean( p_commit )
221 THEN
222 COMMIT WORK;
223 END IF;
224
225 -- Debug Message
226 IF (AS_DEBUG_LOW_ON) THEN
227 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
228 END IF;
229
230 -- Standard call to get message count and if count is 1, get message info.
231 FND_MSG_PUB.Count_And_Get
232 ( p_count => x_msg_count,
233 p_data => x_msg_data
234 );
235
236 EXCEPTION
237 WHEN FND_API.G_EXC_ERROR THEN
238 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
239 P_API_NAME => L_API_NAME
240 ,P_PKG_NAME => G_PKG_NAME
241 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
242 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
243 ,X_MSG_COUNT => X_MSG_COUNT
244 ,X_MSG_DATA => X_MSG_DATA
245 ,X_RETURN_STATUS => X_RETURN_STATUS);
246
247 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
248 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
249 P_API_NAME => L_API_NAME
250 ,P_PKG_NAME => G_PKG_NAME
251 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
252 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
253 ,X_MSG_COUNT => X_MSG_COUNT
254 ,X_MSG_DATA => X_MSG_DATA
255 ,X_RETURN_STATUS => X_RETURN_STATUS);
256
257 WHEN OTHERS THEN
258 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
259 P_API_NAME => L_API_NAME
260 ,P_PKG_NAME => G_PKG_NAME
261 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
262 ,P_SQLCODE => SQLCODE
263 ,P_SQLERRM => SQLERRM
264 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
265 ,X_MSG_COUNT => X_MSG_COUNT
266 ,X_MSG_DATA => X_MSG_DATA
267 ,X_RETURN_STATUS => X_RETURN_STATUS);
268 End Update_monitor_condition;
269
270 --********************************************************************
271 PROCEDURE Delete_monitor_condition(
272 P_Api_Version_Number IN NUMBER,
273 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
274 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
275 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
276 p_identity_salesforce_id IN NUMBER,
277 P_CONDITION_Rec IN CONDITION_Rec_Type,
278 X_Return_Status OUT NOCOPY VARCHAR2,
279 X_Msg_Count OUT NOCOPY NUMBER,
280 X_Msg_Data OUT NOCOPY VARCHAR2
281 )
282
283
284 IS
285 l_api_name CONSTANT VARCHAR2(30) := 'Delete_monitor_condition';
286 l_api_version_number CONSTANT NUMBER := 2.0;
287 l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
288 BEGIN
289 -- Standard Start of API savepoint
290 SAVEPOINT DELETE_MONITOR_CONDITION_PVT;
291
292 -- Standard call to check for call compatibility.
296 G_PKG_NAME)
293 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
294 p_api_version_number,
295 l_api_name,
297 THEN
298 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299 END IF;
300
301
302 -- Initialize message list if p_init_msg_list is set to TRUE.
303 IF FND_API.to_Boolean( p_init_msg_list )
304 THEN
305 FND_MSG_PUB.initialize;
306 END IF;
307
308
309 -- Debug Message
310 IF (AS_DEBUG_LOW_ON) THEN
311 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
312 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling delete table handler');
313 END IF;
314
315 -- Initialize API return status to SUCCESS
316 --x_return_status := FND_API.G_RET_STS_SUCCESS;
317
318 --
319 -- Api body
320 --
321
322 -- Invoke table handler(AML_MONITOR_CONDITIONS_PVT.Delete_Monitor_Condition)
323 AML_MONITOR_CONDITIONS_PVT.Delete_Monitor_Condition(
324 P_Api_Version_Number => 2.0,
325 P_Init_Msg_List => FND_API.G_FALSE,
326 P_Commit => FND_API.G_FALSE,
327 P_Validation_Level => P_Validation_Level,
328 P_identity_salesforce_id => P_identity_salesforce_id,
329 P_Condition_rec => P_Condition_Rec,
330 X_Return_Status => x_return_status,
331 X_Msg_Count => x_msg_count,
332 X_Msg_Data => x_msg_data);
333 --
334 -- End of API body
335 --
336
337 -- Standard check for p_commit
338 IF FND_API.to_Boolean( p_commit )
339 THEN
340 COMMIT WORK;
341 END IF;
342
343
344 -- Debug Message
345 IF (AS_DEBUG_LOW_ON) THEN
346 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
347 END IF;
348
349 -- Standard call to get message count and if count is 1, get message info.
350 FND_MSG_PUB.Count_And_Get
351 ( p_count => x_msg_count,
352 p_data => x_msg_data
353 );
354
355 EXCEPTION
356 WHEN FND_API.G_EXC_ERROR THEN
357 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
358 P_API_NAME => L_API_NAME
359 ,P_PKG_NAME => G_PKG_NAME
360 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
361 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
362 ,X_MSG_COUNT => X_MSG_COUNT
363 ,X_MSG_DATA => X_MSG_DATA
364 ,X_RETURN_STATUS => X_RETURN_STATUS);
365
366 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
368 P_API_NAME => L_API_NAME
369 ,P_PKG_NAME => G_PKG_NAME
370 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
371 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
372 ,X_MSG_COUNT => X_MSG_COUNT
373 ,X_MSG_DATA => X_MSG_DATA
374 ,X_RETURN_STATUS => X_RETURN_STATUS);
375
376 WHEN OTHERS THEN
377 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
378 P_API_NAME => L_API_NAME
379 ,P_PKG_NAME => G_PKG_NAME
380 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
381 ,P_SQLCODE => SQLCODE
382 ,P_SQLERRM => SQLERRM
383 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
384 ,X_MSG_COUNT => X_MSG_COUNT
385 ,X_MSG_DATA => X_MSG_DATA
386 ,X_RETURN_STATUS => X_RETURN_STATUS);
387 End Delete_monitor_condition;
388
389
390 End AML_MONITOR_CONDITIONS_PUB;