[Home] [Help]
PACKAGE BODY: APPS.ASO_PROJ_COMM_INT
Source
1 PACKAGE BODY ASO_PROJ_COMM_INT as
2 /* $Header: asoipqcb.pls 120.1 2005/06/29 12:34:43 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_PROJ_COMM_INT
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_PROJ_COMM_INT';
11
12 PROCEDURE Calculate_Proj_Commission (
13 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
14 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
15 P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
16 P_Resource_Id IN NUMBER := FND_API.G_MISS_NUM,
17 X_Last_Update_Date OUT NOCOPY /* file.sql.39 change */ DATE,
18 X_Object_Version_Number OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
19 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
20 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
21 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
22 )
23 IS
24
25 l_api_name CONSTANT VARCHAR2 ( 30 ) := 'Calculate_Proj_Commission';
26 l_api_version_number CONSTANT NUMBER := 1.0;
27
28 BEGIN
29
30 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
31
32 -- Standard Start of API savepoint
33 SAVEPOINT CALCULATE_PROJ_COMMISSION_INT;
34
35 -- Standard call to check for call compatibility.
36 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
37 1.0,
38 l_api_name,
39 G_PKG_NAME)
40 THEN
41 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43 END IF;
44
45 -- Initialize message list if p_init_msg_list is set to TRUE.
46 IF FND_API.to_Boolean( p_init_msg_list )
47 THEN
48 FND_MSG_PUB.initialize;
49 END IF;
50
51 -- Initialize API return status to SUCCESS
52 x_return_status := FND_API.G_RET_STS_SUCCESS;
53
54 --
55 -- API body
56 --
57
58 ASO_PROJ_COMM_PVT.Calculate_Proj_Commission (
59 P_Init_Msg_List => FND_API.G_FALSE,
60 P_Commit => FND_API.G_FALSE,
61 P_Qte_Header_Rec => p_qte_header_rec,
62 P_Resource_Id => p_resource_id,
63 X_Object_Version_Number => x_object_version_number,
64 X_Last_Update_Date => x_last_update_date,
65 X_Return_Status => x_return_status,
66 X_Msg_Count => x_msg_count,
67 X_Msg_Data => x_msg_data
68 );
69
70 IF aso_debug_pub.g_debug_flag = 'Y' THEN
71 aso_debug_pub.add('After ASO_PROJ_COMM_PVT.Calculate_Proj_Commission: '||x_return_status,1,'Y');
72 END IF;
73
74 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
75 RAISE FND_API.G_EXC_ERROR;
76 END IF;
77 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
78 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79 END IF;
80
81 -- Standard call to get message count and if count is 1, get message info.
82 FND_MSG_PUB.Count_And_Get
83 ( p_count => x_msg_count,
84 p_data => x_msg_data
85 );
86
87 EXCEPTION
88
89 WHEN FND_API.G_EXC_ERROR THEN
90 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
91 P_API_NAME => L_API_NAME,
92 P_PKG_NAME => G_PKG_NAME,
93 P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
94 P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT,
95 P_SQLCODE => SQLCODE,
96 P_SQLERRM => SQLERRM,
97 X_MSG_COUNT => X_MSG_COUNT,
98 X_MSG_DATA => X_MSG_DATA,
99 X_RETURN_STATUS => X_RETURN_STATUS
100 );
101
102 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
103 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
104 P_API_NAME => L_API_NAME,
105 P_PKG_NAME => G_PKG_NAME,
106 P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
107 P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT,
108 P_SQLCODE => SQLCODE,
109 P_SQLERRM => SQLERRM,
110 X_MSG_COUNT => X_MSG_COUNT,
111 X_MSG_DATA => X_MSG_DATA,
112 X_RETURN_STATUS => X_RETURN_STATUS
113 );
114
115 WHEN OTHERS THEN
116 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
117 P_API_NAME => L_API_NAME,
118 P_PKG_NAME => G_PKG_NAME,
119 P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS,
120 P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT,
121 P_SQLCODE => SQLCODE,
122 P_SQLERRM => SQLERRM,
123 X_MSG_COUNT => X_MSG_COUNT,
124 X_MSG_DATA => X_MSG_DATA,
125 X_RETURN_STATUS => X_RETURN_STATUS
126 );
127
128
129 END Calculate_Proj_Commission;
130
131
132 END ASO_PROJ_COMM_INT;