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