[Home] [Help]
PACKAGE BODY: APPS.CN_COMMISSION_CALC_PUB
Source
1 PACKAGE BODY CN_COMMISSION_CALC_PUB AS
2 -- $Header: cnpprcmb.pls 120.1 2005/09/08 00:21:31 rarajara noship $
3 G_PKG_NAME VARCHAR2(30) := 'CN_COMMISSION_CALC_PUB';
4
5 Procedure calculate_Commission
6 (
7 p_api_version IN NUMBER,
8 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9 x_inc_plnr_disclaimer OUT NOCOPY cn_repositories.income_planner_disclaimer%TYPE,
10 x_return_status OUT NOCOPY VARCHAR2,
11 x_msg_count OUT NOCOPY NUMBER,
12 x_msg_data OUT NOCOPY VARCHAR2
13 ) IS
14 l_api_name CONSTANT VARCHAR2(30) := 'calculate_Commission';
15 l_api_version CONSTANT NUMBER := 1.0;
16 l_inc_plnr_disclaimer cn_repositories.income_planner_disclaimer%TYPE ;
17 l_return_status VARCHAR2(1);
18 l_msg_count NUMBER := 0;
19 l_msg_data VARCHAR2(2000) := FND_API.G_MISS_CHAR;
20
21 BEGIN
22 null;
23 End calculate_Commission;
24
25 Procedure calculate_Commission
26 (
27 p_api_version IN NUMBER,
28 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29 p_org_id IN NUMBER,
30 x_inc_plnr_disclaimer OUT NOCOPY cn_repositories.income_planner_disclaimer%TYPE,
31 x_return_status OUT NOCOPY VARCHAR2,
32 x_msg_count OUT NOCOPY NUMBER,
33 x_msg_data OUT NOCOPY VARCHAR2
34 ) IS
35 l_api_name CONSTANT VARCHAR2(30) := 'calculate_Commission';
36 l_api_version CONSTANT NUMBER := 1.0;
37 l_inc_plnr_disclaimer cn_repositories.income_planner_disclaimer%TYPE ;
38 l_return_status VARCHAR2(1);
39 l_msg_count NUMBER := 0;
40 l_msg_data VARCHAR2(2000) := FND_API.G_MISS_CHAR;
41
42 BEGIN
43
44 SAVEPOINT calculate_Commission;
45
46 IF NOT FND_API.Compatible_API_Call ( l_api_version,
47 p_api_version,
48 l_api_name,
49 G_PKG_NAME) THEN
50 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
51 END IF;
52
53 -- Initialize message list if p_init_msg_list is set to TRUE.
54 IF FND_API.to_Boolean( p_init_msg_list ) THEN
55 FND_MSG_PUB.initialize;
56 END IF;
57 -- Initialize API return status to SUCCESS
58 x_return_status := FND_API.G_RET_STS_SUCCESS;
59 l_return_status := FND_API.G_RET_STS_SUCCESS;
60 --
61 -- API body
62 --
63
64 CN_COMMISSION_CALC_PVT.calculate_Commission( p_api_version => p_api_version ,
65 p_init_msg_list => p_init_msg_list ,
66 p_org_id => p_org_id,
67 x_inc_plnr_disclaimer => l_inc_plnr_disclaimer ,
68 x_return_status => l_return_status ,
69 x_msg_count => l_msg_count ,
70 x_msg_data => l_msg_data
71 );
72
73
74 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
75 x_return_status := FND_API.G_RET_STS_ERROR;
76 x_msg_count := l_msg_count;
77 x_msg_data := l_msg_data;
78 RAISE FND_API.G_EXC_ERROR;
79 ELSE
80 x_inc_plnr_disclaimer := l_inc_plnr_disclaimer;
81 END IF;
82
83 --
84 -- End of API body
85 --
86 -- Standard call to get message count and if count is 1, get message info.
87 FND_MSG_PUB.Count_And_Get
88 ( p_count => x_msg_count,
89 p_data => x_msg_data);
90
91 EXCEPTION
92 WHEN FND_API.G_EXC_ERROR THEN
93 x_return_status := FND_API.G_RET_STS_ERROR;
94 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
95 p_data => x_msg_data,
96 p_encoded => FND_API.G_FALSE );
97 l_inc_plnr_disclaimer := FND_API.G_MISS_CHAR;
98
99 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
100 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
102 p_data => x_msg_data,
103 p_encoded => FND_API.G_FALSE );
104 l_inc_plnr_disclaimer := FND_API.G_MISS_CHAR;
105
106 WHEN OTHERS THEN
107 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
108 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
109 p_data => x_msg_data,
110 p_encoded => FND_API.G_FALSE );
111 l_inc_plnr_disclaimer := FND_API.G_MISS_CHAR;
112
113 End calculate_Commission;
114
115 END CN_COMMISSION_CALC_PUB;