PACKAGE BODY: APPS.AP_WEB_OA_PREFERENCES_PKG

Source

1 PACKAGE BODY AP_WEB_OA_PREFERENCES_PKG AS
2 /* $Header: apwoapfb.pls 115.7 2002/12/26 10:14:16 srinvenk noship $ */
3 
4 PROCEDURE ValidateApprover(p_employee_id IN NUMBER,
5                            p_approver_name IN OUT NOCOPY VARCHAR2,
6                            p_approver_id IN OUT NOCOPY NUMBER,
7                            p_return_status OUT NOCOPY VARCHAR2,
8                            p_msg_count OUT NOCOPY NUMBER,
9                            p_msg_data OUT NOCOPY VARCHAR2)
10 IS
11   -- scratch variable for validate approver
12   l_error_message VARCHAR2(2000) := NULL;
13 BEGIN
14 
15   AP_WEB_UTILITIES_PKG.LogProcedure('AP_WEB_OA_PREFERENCES_PKG',
16                                    'start ValidateApprover');
17 
18   -- Initalize global message table
19   fnd_msg_pub.initialize;
20 
21   -- Validate approver and get the ID
22   AP_WEB_VALIDATE_UTIL.ValidateApprover(p_employee_id,
23                            p_approver_name,
24 			   p_approver_id,
25 			   l_error_message);
26 
27   -- Report error
28   IF (l_error_message IS NOT NULL) THEN
29     fnd_message.set_encoded(l_error_message);
30     fnd_msg_pub.add();
31   END IF;
32 
33   -- Report the errors
34   FND_MSG_PUB.count_and_get(p_count => p_msg_count,
35                             p_data  => p_msg_data);
36   p_return_status := '';
37 
38   AP_WEB_UTILITIES_PKG.LogProcedure('AP_WEB_OA_PREFERENCES_PKG',
39                                    'end ValidateApprover');
40 
41 END;
42 
43 
44 END AP_WEB_OA_PREFERENCES_PKG;