[Home] [Help]
PACKAGE BODY: APPS.AML_TIMEFRAME_PUB
Source
1 PACKAGE BODY AML_TIMEFRAME_PUB as
2 /* $Header: amlptfrb.pls 115.3 2002/12/05 00:26:43 ckapoor noship $ */
3 -- Start of Comments
4 -- Package name : AML_TIMEFRAME_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AML_TIMEFRAME_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amlptfrb.pls';
13
14
15
16
17 AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
18 AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
19 AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
20 AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
21
22 PROCEDURE Create_timeframe(
23 P_Api_Version_Number IN NUMBER,
24 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
25 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
26 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
27 P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
28 P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
29 P_Admin_Group_Id IN NUMBER,
30 P_Identity_Salesforce_Id IN NUMBER,
31 P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
32 P_timeframe_Rec IN timeframe_Rec_Type ,
33 X_TIMEFRAME_ID OUT NOCOPY NUMBER,
34 X_Return_Status OUT NOCOPY VARCHAR2,
35 X_Msg_Count OUT NOCOPY NUMBER,
36 X_Msg_Data OUT NOCOPY VARCHAR2
37 )
38
39 IS
40 l_api_name CONSTANT VARCHAR2(30) := 'Create_timeframe';
41 l_api_version_number CONSTANT NUMBER := 2.0;
42 l_pvt_timeframe_rec AML_TIMEFRAME_PUB.timeframe_Rec_Type;
43 BEGIN
44 -- Standard Start of API savepoint
45 SAVEPOINT CREATE_TIMEFRAME_PUB;
46
47 -- Standard call to check for call compatibility.
48 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
49 p_api_version_number,
50 l_api_name,
51 G_PKG_NAME)
52 THEN
53 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
54 END IF;
55
56
57 -- Initialize message list if p_init_msg_list is set to TRUE.
58 IF FND_API.to_Boolean( p_init_msg_list )
59 THEN
60 FND_MSG_PUB.initialize;
61 END IF;
62
63
64 -- Debug Message
65 IF (AS_DEBUG_LOW_ON) THEN
66
67 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
68 END IF;
69
70 IF (AS_DEBUG_LOW_ON) THEN
71
72
73
74 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
75 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
76
77 END IF;
78
79 -- Initialize API return status to SUCCESS
80 x_return_status := FND_API.G_RET_STS_SUCCESS;
81
82 --
83 -- API body
84 --
85
86 l_pvt_timeframe_rec := p_timeframe_rec;
87
88
89 -- Calling Private package: Create_TIMEFRAME
90 -- Hint: Primary key needs to be returned
91 AML_timeframe_PVT.Create_timeframe(
92 P_Api_Version_Number => 2.0,
93 P_Init_Msg_List => FND_API.G_FALSE,
94 P_Commit => FND_API.G_FALSE,
95 P_Validation_Level => P_Validation_Level,
96 P_Check_Access_Flag => P_Check_Access_Flag,
97 P_Admin_Flag => P_Admin_Flag,
98 P_Admin_Group_Id => P_Admin_Group_Id,
99 P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
100 P_Profile_Tbl => P_Profile_tbl,
101 P_timeframe_Rec => l_pvt_timeframe_Rec ,
102 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
103 X_TIMEFRAME_ID => x_TIMEFRAME_ID,
104 X_Return_Status => x_return_status,
105 X_Msg_Count => x_msg_count,
106 X_Msg_Data => x_msg_data);
107
108
109
110 -- Check return status from the above procedure call
111 IF x_return_status = FND_API.G_RET_STS_ERROR then
112 raise FND_API.G_EXC_ERROR;
113 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
114 raise FND_API.G_EXC_UNEXPECTED_ERROR;
115 END IF;
116
117 --
118 -- End of API body.
119 --
120
121 -- Standard check for p_commit
122 IF FND_API.to_Boolean( p_commit )
123 THEN
124 COMMIT WORK;
125 END IF;
126
127
128 -- Debug Message
129 IF (AS_DEBUG_LOW_ON) THEN
130
131 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
132 END IF;
133
134 IF (AS_DEBUG_LOW_ON) THEN
135
136
137
138 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
139 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
140
141 END IF;
142
143 -- Standard call to get message count and if count is 1, get message info.
144 FND_MSG_PUB.Count_And_Get
145 ( p_count => x_msg_count,
146 p_data => x_msg_data
147 );
148
149 EXCEPTION
150 WHEN FND_API.G_EXC_ERROR THEN
151 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
152 P_API_NAME => L_API_NAME
153 ,P_PKG_NAME => G_PKG_NAME
154 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
155 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
156 ,X_MSG_COUNT => X_MSG_COUNT
157 ,X_MSG_DATA => X_MSG_DATA
158 ,X_RETURN_STATUS => X_RETURN_STATUS);
159
160 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
162 P_API_NAME => L_API_NAME
163 ,P_PKG_NAME => G_PKG_NAME
164 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
165 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
166 ,X_MSG_COUNT => X_MSG_COUNT
167 ,X_MSG_DATA => X_MSG_DATA
168 ,X_RETURN_STATUS => X_RETURN_STATUS);
169
170 WHEN OTHERS THEN
171 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
172 P_API_NAME => L_API_NAME
173 ,P_PKG_NAME => G_PKG_NAME
174 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
175 ,P_SQLCODE => SQLCODE
176 ,P_SQLERRM => SQLERRM
177 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
178 ,X_MSG_COUNT => X_MSG_COUNT
179 ,X_MSG_DATA => X_MSG_DATA
180 ,X_RETURN_STATUS => X_RETURN_STATUS);
181 End Create_timeframe;
182
183
184 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
185 PROCEDURE Update_timeframe(
186 P_Api_Version_Number IN NUMBER,
187 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
188 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
189 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
190 P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
191 P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
192 P_Admin_Group_Id IN NUMBER,
193 P_Identity_Salesforce_Id IN NUMBER,
194 P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
195 P_timeframe_Rec IN timeframe_Rec_Type,
196 X_Return_Status OUT NOCOPY VARCHAR2,
197 X_Msg_Count OUT NOCOPY NUMBER,
198 X_Msg_Data OUT NOCOPY VARCHAR2
199 )
200
201 IS
202 l_api_name CONSTANT VARCHAR2(30) := 'Update_timeframe';
203 l_api_version_number CONSTANT NUMBER := 2.0;
204 l_pvt_timeframe_rec AML_TIMEFRAME_PUB.timeframe_Rec_Type;
205 BEGIN
206 -- Standard Start of API savepoint
207 SAVEPOINT UPDATE_TIMEFRAME_PUB;
208
209 -- Standard call to check for call compatibility.
210 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
211 p_api_version_number,
212 l_api_name,
213 G_PKG_NAME)
214 THEN
215 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216 END IF;
217
218
219 -- Initialize message list if p_init_msg_list is set to TRUE.
220 IF FND_API.to_Boolean( p_init_msg_list )
221 THEN
222 FND_MSG_PUB.initialize;
223 END IF;
224
225
226 -- Debug Message
227 IF (AS_DEBUG_LOW_ON) THEN
228
229 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
230 END IF;
231
232 IF (AS_DEBUG_LOW_ON) THEN
233
234
235
236 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
237 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
238
239 END IF;
240
241 -- Initialize API return status to SUCCESS
242 x_return_status := FND_API.G_RET_STS_SUCCESS;
243
244 --
245 -- API body
246 --
247 l_pvt_timeframe_rec := p_timeframe_rec;
248
249
250 AML_timeframe_PVT.Update_timeframe(
251 P_Api_Version_Number => 2.0,
252 P_Init_Msg_List => FND_API.G_FALSE,
253 P_Commit => p_commit,
254 P_Validation_Level => P_Validation_Level,
255 P_Check_Access_Flag => P_Check_Access_Flag,
256 P_Admin_Flag => P_Admin_Flag,
257 P_Admin_Group_Id => P_Admin_Group_Id,
258 P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
259 P_Profile_Tbl => P_Profile_tbl,
260 P_timeframe_Rec => l_pvt_timeframe_Rec ,
261 X_Return_Status => x_return_status,
262 X_Msg_Count => x_msg_count,
263 X_Msg_Data => x_msg_data);
264
265
266
267 -- Check return status from the above procedure call
268 IF x_return_status = FND_API.G_RET_STS_ERROR then
269 raise FND_API.G_EXC_ERROR;
270 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
271 raise FND_API.G_EXC_UNEXPECTED_ERROR;
272 END IF;
273
274 --
275 -- End of API body
276 --
277
278 -- Standard check for p_commit
279 IF FND_API.to_Boolean( p_commit )
280 THEN
281 COMMIT WORK;
282 END IF;
283
284
285 -- Debug Message
286 IF (AS_DEBUG_LOW_ON) THEN
287
288 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
289 END IF;
290
291 IF (AS_DEBUG_LOW_ON) THEN
292
293
294
295 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
296 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
297
298 END IF;
299
300 -- Standard call to get message count and if count is 1, get message info.
301 FND_MSG_PUB.Count_And_Get
302 ( p_count => x_msg_count,
303 p_data => x_msg_data
304 );
305
306 -- Un-comment the following statements when user hooks is ready.
307 /*
308 -- USER HOOK standard : vertical industry post-processing section - mandatory
309 IF(JTF_USR_HKS.Ok_to_execute('AS_timeframe_PUB', 'Update_timeframe','A','V'))
310 THEN
311 AS_timeframe_VUHK.Update_timeframe_Post(
312 p_api_version_number => 2.0,
313 p_validation_level => p_validation_level,
314 p_commit => FND_API.G_FALSE,
315 p_profile_tbl => p_profile_tbl,
316 p_check_access_flag => p_check_access_flag,
317 p_admin_flag => p_admin_flag,
318 p_admin_group_id => p_admin_group_id,
319 p_identity_salesforce_id => p_identity_salesforce_id,
320 P_timeframe_Rec => P_timeframe_Rec,
321 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
322 x_return_status => x_return_status,
323 x_msg_count => x_msg_count,
324 x_msg_data => x_msg_data);
325 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
326 RAISE fnd_api.g_exc_error;
327 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
328 RAISE fnd_api.g_exc_unexpected_error;
329 END IF;
330 END IF;
331 -- USER HOOKS standard : customer pre-processing section - mandatory
332 IF(JTF_USR_HKS.Ok_to_execute('AS_timeframe_PUB', 'Update_timeframe','A','C'))
333 THEN
334 AS_timeframe_CUHK.Update_timeframe_Pre(
335 p_api_version_number => 2.0,
336 p_validation_level => p_validation_level,
337 p_commit => FND_API.G_FALSE,
338 p_profile_tbl => p_profile_tbl,
339 p_check_access_flag => p_check_access_flag,
340 p_admin_flag => p_admin_flag,
341 p_admin_group_id => p_admin_group_id,
342 p_identity_salesforce_id => p_identity_salesforce_id,
343 P_timeframe_Rec => P_timeframe_Rec,
344 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
345 x_return_status => x_return_status,
346 x_msg_count => x_msg_count,
347 x_msg_data => x_msg_data);
348 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
349 RAISE fnd_api.g_exc_error;
350 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
351 RAISE fnd_api.g_exc_unexpected_error;
352 END IF;
353 END IF;
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_PUB
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_PUB
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_PUB
384 ,X_MSG_COUNT => X_MSG_COUNT
385 ,X_MSG_DATA => X_MSG_DATA
386 ,X_RETURN_STATUS => X_RETURN_STATUS);
387 End Update_timeframe;
388
389
390 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
391 -- The Master delete procedure may not be needed depends on different business requirements.
392 PROCEDURE Delete_timeframe(
393 P_Api_Version_Number IN NUMBER,
394 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
395 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
396 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
397 P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
398 P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
399 P_Admin_Group_Id IN NUMBER,
400 P_Identity_Salesforce_Id IN NUMBER,
401 P_Profile_Tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
402 P_timeframe_Rec IN timeframe_Rec_Type,
403 X_Return_Status OUT NOCOPY VARCHAR2,
404 X_Msg_Count OUT NOCOPY NUMBER,
405 X_Msg_Data OUT NOCOPY VARCHAR2
406 )
407
408 IS
409 l_api_name CONSTANT VARCHAR2(30) := 'Delete_timeframe';
410 l_api_version_number CONSTANT NUMBER := 2.0;
411 l_pvt_timeframe_rec AML_TIMEFRAME_PUB.timeframe_Rec_Type;
412 BEGIN
413 -- Standard Start of API savepoint
414 SAVEPOINT DELETE_TIMEFRAME_PUB;
415
416 -- Standard call to check for call compatibility.
417 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
418 p_api_version_number,
419 l_api_name,
420 G_PKG_NAME)
421 THEN
422 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423 END IF;
424
425
426 -- Initialize message list if p_init_msg_list is set to TRUE.
427 IF FND_API.to_Boolean( p_init_msg_list )
428 THEN
429 FND_MSG_PUB.initialize;
430 END IF;
431
432
433 -- Debug Message
434 IF (AS_DEBUG_LOW_ON) THEN
435
436 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
437 END IF;
438
439 IF (AS_DEBUG_LOW_ON) THEN
440
441
442
443 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
444 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
445
446 END IF;
447
448 -- Initialize API return status to SUCCESS
449 x_return_status := FND_API.G_RET_STS_SUCCESS;
450
451 --
452 -- API body
453 --
454
455 l_pvt_timeframe_rec := p_timeframe_rec;
456
457 AML_timeframe_PVT.Delete_timeframe(
458 P_Api_Version_Number => 2.0,
459 P_Init_Msg_List => FND_API.G_FALSE,
460 P_Commit => p_commit,
461 P_Validation_Level => p_Validation_Level,
462 P_Check_Access_Flag => P_Check_Access_Flag,
463 P_Admin_Flag => P_Admin_Flag,
464 P_Admin_Group_Id => P_Admin_Group_Id,
465 P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
466 P_Profile_Tbl => P_Profile_tbl,
467 P_timeframe_Rec => l_pvt_timeframe_Rec,
468 X_Return_Status => x_return_status,
469 X_Msg_Count => x_msg_count,
470 X_Msg_Data => x_msg_data);
471
472 -- Un-comment the following statements when user hooks is ready.
473 /*
474 -- USER HOOKS standard : customer pre-processing section - mandatory
475 IF(JTF_USR_HKS.Ok_to_execute('AS_timeframe_PUB', 'Delete_timeframe','B','C'))
476 THEN
477 AS_timeframe_CUHK.Delete_timeframe_Pre(
478 p_api_version_number => 2.0,
479 p_validation_level => p_validation_level,
480 p_commit => FND_API.G_FALSE,
481 p_profile_tbl => p_profile_tbl,
482 p_check_access_flag => p_check_access_flag,
483 p_admin_flag => p_admin_flag,
484 p_admin_group_id => p_admin_group_id,
485 p_identity_salesforce_id => p_identity_salesforce_id,
486 P_timeframe_Rec => P_timeframe_Rec,
487 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
488 x_return_status => x_return_status,
489 x_msg_count => x_msg_count,
490 x_msg_data => x_msg_data);
491 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
492 RAISE fnd_api.g_exc_error;
493 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
494 RAISE fnd_api.g_exc_unexpected_error;
495 END IF;
496 END IF;
497 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
498 IF(JTF_USR_HKS.Ok_to_execute('AS_timeframe_PUB', 'Delete_timeframe','B','V'))
499 THEN
500 AS_timeframe_VUHK.Delete_timeframe_Pre(
501 p_api_version_number => 2.0,
502 p_validation_level => p_validation_level,
503 p_commit => FND_API.G_FALSE,
504 p_profile_tbl => p_profile_tbl,
505 p_check_access_flag => p_check_access_flag,
506 p_admin_flag => p_admin_flag,
507 p_admin_group_id => p_admin_group_id,
508 p_identity_salesforce_id => p_identity_salesforce_id,
509 P_timeframe_Rec => P_timeframe_Rec,
510 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
511 x_return_status => x_return_status,
512 x_msg_count => x_msg_count,
513 x_msg_data => x_msg_data);
514 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
515 RAISE fnd_api.g_exc_error;
516 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
517 RAISE fnd_api.g_exc_unexpected_error;
518 END IF;
519 */
520
521
522
523 -- Check return status from the above procedure call
524 IF x_return_status = FND_API.G_RET_STS_ERROR then
525 raise FND_API.G_EXC_ERROR;
526 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
527 raise FND_API.G_EXC_UNEXPECTED_ERROR;
528 END IF;
529
530 --
531 -- End of API body
532 --
533
534 -- Standard check for p_commit
535 IF FND_API.to_Boolean( p_commit )
536 THEN
537 COMMIT WORK;
538 END IF;
539
540
541 -- Debug Message
542 IF (AS_DEBUG_LOW_ON) THEN
543
544 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
545 END IF;
546
547 IF (AS_DEBUG_LOW_ON) THEN
548
549
550
551 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
552 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
553
554 END IF;
555
556 -- Standard call to get message count and if count is 1, get message info.
557 FND_MSG_PUB.Count_And_Get
558 ( p_count => x_msg_count,
559 p_data => x_msg_data
560 );
561
562 -- Un-comment the following statements when user hooks is ready.
563 /*
564 -- USER HOOK standard : vertical industry post-processing section - mandatory
565 IF(JTF_USR_HKS.Ok_to_execute('AS_timeframe_PUB', 'Delete_timeframe','A','V'))
566 THEN
567 AS_timeframe_VUHK.Delete_timeframe_Post(
568 p_api_version_number => 2.0,
569 p_validation_level => p_validation_level,
570 p_commit => FND_API.G_FALSE,
571 p_profile_tbl => p_profile_tbl,
572 p_check_access_flag => p_check_access_flag,
573 p_admin_flag => p_admin_flag,
574 p_admin_group_id => p_admin_group_id,
575 p_identity_salesforce_id => p_identity_salesforce_id,
576 P_timeframe_Rec => P_timeframe_Rec,
577 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
578 x_return_status => x_return_status,
579 x_msg_count => x_msg_count,
580 x_msg_data => x_msg_data);
581 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
582 RAISE fnd_api.g_exc_error;
583 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
584 RAISE fnd_api.g_exc_unexpected_error;
585 END IF;
586 END IF;
587 -- USER HOOKS standard : customer pre-processing section - mandatory
588 IF(JTF_USR_HKS.Ok_to_execute('AS_timeframe_PUB', 'Delete_timeframe','A','C'))
589 THEN
590 AS_timeframe_CUHK.Delete_timeframe_Pre(
591 p_api_version_number => 2.0,
592 p_validation_level => p_validation_level,
593 p_commit => FND_API.G_FALSE,
594 p_profile_tbl => p_profile_tbl,
595 p_check_access_flag => p_check_access_flag,
596 p_admin_flag => p_admin_flag,
597 p_admin_group_id => p_admin_group_id,
598 p_identity_salesforce_id => p_identity_salesforce_id,
599 P_timeframe_Rec => P_timeframe_Rec,
600 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
601 x_return_status => x_return_status,
602 x_msg_count => x_msg_count,
603 x_msg_data => x_msg_data);
604 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
605 RAISE fnd_api.g_exc_error;
606 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
607 RAISE fnd_api.g_exc_unexpected_error;
608 END IF;
609 END IF;
610 */
611 EXCEPTION
612 WHEN FND_API.G_EXC_ERROR THEN
613 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
614 P_API_NAME => L_API_NAME
615 ,P_PKG_NAME => G_PKG_NAME
616 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
617 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
618 ,X_MSG_COUNT => X_MSG_COUNT
619 ,X_MSG_DATA => X_MSG_DATA
620 ,X_RETURN_STATUS => X_RETURN_STATUS);
621
622 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
624 P_API_NAME => L_API_NAME
625 ,P_PKG_NAME => G_PKG_NAME
626 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
627 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
628 ,X_MSG_COUNT => X_MSG_COUNT
629 ,X_MSG_DATA => X_MSG_DATA
630 ,X_RETURN_STATUS => X_RETURN_STATUS);
631
632 WHEN OTHERS THEN
633 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
634 P_API_NAME => L_API_NAME
635 ,P_PKG_NAME => G_PKG_NAME
636 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
637 ,P_SQLCODE => SQLCODE
638 ,P_SQLERRM => SQLERRM
639 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
640 ,X_MSG_COUNT => X_MSG_COUNT
641 ,X_MSG_DATA => X_MSG_DATA
642 ,X_RETURN_STATUS => X_RETURN_STATUS);
643 End Delete_timeframe;
644
645
649 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
646 /*
647 PROCEDURE Get_timeframe(
648 P_Api_Version_Number IN NUMBER,
650 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
651 P_Admin_Group_id IN NUMBER,
652 P_identity_salesforce_id IN NUMBER := NULL,
653 P_timeframe_Rec IN timeframe_Rec_Type,
654 -- Hint: Add list of bind variables here
655 p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
656 p_start_rec_prt IN NUMBER := 1,
657 p_return_tot_count IN NUMBER := FND_API.G_FALSE,
658 -- Hint: user defined record type
659 p_order_by_rec IN AML_timeframe_PUB.timeframe_sort_rec_type,
660 x_return_status OUT NOCOPY VARCHAR2,
661 x_msg_count OUT NOCOPY NUMBER,
662 x_msg_data OUT NOCOPY VARCHAR2,
663 X_timeframe_Tbl OUT NOCOPY AML_timeframe_PUB.timeframe_Tbl_Type,
664 x_returned_rec_count OUT NOCOPY NUMBER,
665 x_next_rec_ptr OUT NOCOPY NUMBER,
666 x_tot_rec_count OUT NOCOPY NUMBER
667 -- other optional parameters
668 -- x_tot_rec_amount OUT NUMBER
669 )
670
671 IS
672 l_api_name CONSTANT VARCHAR2(30) := 'Get_timeframe';
673 l_api_version_number CONSTANT NUMBER := 2.0;
674 BEGIN
675 -- Standard Start of API savepoint
676 SAVEPOINT GET_TIMEFRAME_PUB;
677
678 -- Standard call to check for call compatibility.
679 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
680 p_api_version_number,
681 l_api_name,
682 G_PKG_NAME)
683 THEN
684 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685 END IF;
686
687
688 -- Initialize message list if p_init_msg_list is set to TRUE.
689 IF FND_API.to_Boolean( p_init_msg_list )
690 THEN
691 FND_MSG_PUB.initialize;
692 END IF;
693
694
695 -- Debug Message
696 IF (AS_DEBUG_LOW_ON) THEN
697
698 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
699 END IF;
700
701 IF (AS_DEBUG_LOW_ON) THEN
702
703
704
705 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
706 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
707
708 END IF;
709
710 -- Initialize API return status to SUCCESS
711 x_return_status := FND_API.G_RET_STS_SUCCESS;
712
713 --
714 -- API body
715 --
716 -- Debug Message
717 IF (AS_DEBUG_LOW_ON) THEN
718
719 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
720 'Public API: - Calling PVT.Get_TIMEFRAME');
721 END IF;
722 AML_timeframe_PVT.Get_timeframe(
723 P_Api_Version_Number => 2.0,
724 P_Init_Msg_List => FND_API.G_FALSE,
725 p_validation_level => p_validation_level,
726 P_Identity_Salesforce_id => p_identity_salesforce_id,
727 P_timeframe_Rec => P_timeframe_Rec,
728 p_rec_requested => p_rec_requested,
729 p_start_rec_prt => p_start_rec_prt,
730 p_return_tot_count => p_return_tot_count,
731 -- Hint: user defined record type
732 p_order_by_rec => p_order_by_rec,
733 X_Return_Status => x_return_status,
734 X_Msg_Count => x_msg_count,
735 X_Msg_Data => x_msg_data,
736 X_timeframe_Tbl => X_timeframe_Tbl,
737 x_returned_rec_count => x_returned_rec_count,
738 x_next_rec_ptr => x_next_rec_ptr,
739 x_tot_rec_count => x_tot_rec_count
740 -- other optional parameters
741 -- x_tot_rec_amount => x_tot_rec_amount
742 );
743
744
745
746 -- Check return status from the above procedure call
747 IF x_return_status = FND_API.G_RET_STS_ERROR then
748 raise FND_API.G_EXC_ERROR;
749 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
750 raise FND_API.G_EXC_UNEXPECTED_ERROR;
751 END IF;
752
753 --
754 -- End of API body
755 --
756
757 -- Debug Message
758 IF (AS_DEBUG_LOW_ON) THEN
759
760 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
761 END IF;
762
763 IF (AS_DEBUG_LOW_ON) THEN
764
765
766
767 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
768 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
769
770 END IF;
771
772 -- Standard call to get message count and if count is 1, get message info.
773 FND_MSG_PUB.Count_And_Get
774 ( p_count => x_msg_count,
775 p_data => x_msg_data
776 );
777
778 EXCEPTION
779 WHEN FND_API.G_EXC_ERROR THEN
780 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
781 P_API_NAME => L_API_NAME
782 ,P_PKG_NAME => G_PKG_NAME
783 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
784 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
785 ,X_MSG_COUNT => X_MSG_COUNT
786 ,X_MSG_DATA => X_MSG_DATA
787 ,X_RETURN_STATUS => X_RETURN_STATUS);
788
789 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
790 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
791 P_API_NAME => L_API_NAME
792 ,P_PKG_NAME => G_PKG_NAME
793 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
794 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
795 ,X_MSG_COUNT => X_MSG_COUNT
796 ,X_MSG_DATA => X_MSG_DATA
797 ,X_RETURN_STATUS => X_RETURN_STATUS);
798
799 WHEN OTHERS THEN
800 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
801 P_API_NAME => L_API_NAME
802 ,P_PKG_NAME => G_PKG_NAME
803 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
804 ,P_SQLCODE => SQLCODE
805 ,P_SQLERRM => SQLERRM
806 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
807 ,X_MSG_COUNT => X_MSG_COUNT
808 ,X_MSG_DATA => X_MSG_DATA
809 ,X_RETURN_STATUS => X_RETURN_STATUS);
810 End Get_timeframe;
811
812 */
813 End AML_TIMEFRAME_PUB;