[Home] [Help]
PACKAGE BODY: APPS.ASO_CONTRACT_TERMS_PUB
Source
1 PACKAGE BODY ASO_Contract_Terms_PUB AS
2 /* $Header: asopktcb.pls 120.1 2005/06/29 12:36:53 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_Contract_Terms_PUB
5 -- Purpose :
6 -- History :
7 -- 10-29-2002 hyang - created
8 -- NOTE :
9 -- End of Comments
10
11 g_pkg_name CONSTANT VARCHAR2 (30) := 'ASO_Contract_Terms_PUB';
12 g_file_name CONSTANT VARCHAR2 (12) := 'asopktcb.pls';
13
14 PROCEDURE Get_Article_Variable_Values (
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
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 p_doc_id IN NUMBER,
21 p_sys_var_value_tbl IN OUT NOCOPY /* file.sql.39 change */ OKC_TERMS_UTIL_GRP.sys_var_value_tbl_type
22 ) IS
23 l_api_version CONSTANT NUMBER := 1.0;
24 l_api_name CONSTANT VARCHAR2(45) := 'Get_Article_Variable_Values';
25
26 BEGIN
27
28 -- Standard Start of API savepoint
29 SAVEPOINT Get_Article_Variable_PUB;
30
31 -- Initialize message list if p_init_msg_list is set to TRUE.
32 IF FND_API.to_Boolean( p_init_msg_list ) THEN
33 FND_MSG_PUB.initialize;
34 END IF;
35
36 -- initialize G_Debug_Flag
37 ASO_DEBUG_PUB.G_Debug_Flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
38
39 -- Initialize API return status to success
40 x_return_status := FND_API.G_RET_STS_SUCCESS;
41
42 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
43 aso_debug_pub.add('Get_Article_Variable_Values PUB - Begin', 1, 'Y');
44 END IF;
45
46 -- check for missing customer accounts in the quote
47 ASO_Contract_Terms_Int.Get_Article_Variable_Values (
48 p_api_version => 1.0,
49 p_init_msg_list => p_init_msg_list,
50 x_return_status => x_return_status,
51 x_msg_count => x_msg_count,
52 x_msg_data => x_msg_data,
53 p_doc_id => p_doc_id,
54 p_sys_var_value_tbl => p_sys_var_value_tbl
55 );
56
57 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
58 aso_debug_pub.ADD (
59 'Get_Article_Variable_Values: After Get_Article_Variable_Values: x_return_status: '|| x_return_status,
60 1,
61 'Y'
62 );
63 END IF;
64
65 IF x_return_status <> fnd_api.g_ret_sts_success THEN
66 RAISE fnd_api.g_exc_error;
67 END IF;
68
69 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
70 aso_debug_pub.add('Get_Article_Variable_Values PUB : End ', 1, 'N');
71 END IF;
72
73 FND_MSG_PUB.Count_And_Get
74 ( p_count => x_msg_count,
75 p_data => x_msg_data
76 );
77
78 EXCEPTION
79 WHEN FND_API.G_EXC_ERROR THEN
80 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
81 P_API_NAME => L_API_NAME
82 ,P_PKG_NAME => G_PKG_NAME
83 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
84 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
85 ,P_SQLCODE => SQLCODE
86 ,P_SQLERRM => SQLERRM
87 ,X_MSG_COUNT => X_MSG_COUNT
88 ,X_MSG_DATA => X_MSG_DATA
89 ,X_RETURN_STATUS => X_RETURN_STATUS);
90
91 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
92 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
93 P_API_NAME => L_API_NAME
94 ,P_PKG_NAME => G_PKG_NAME
95 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
96 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
97 ,P_SQLCODE => SQLCODE
98 ,P_SQLERRM => SQLERRM
99 ,X_MSG_COUNT => X_MSG_COUNT
100 ,X_MSG_DATA => X_MSG_DATA
101 ,X_RETURN_STATUS => X_RETURN_STATUS);
102
103 WHEN OTHERS THEN
104 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
105 P_API_NAME => L_API_NAME
106 ,P_PKG_NAME => G_PKG_NAME
107 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
108 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
109 ,P_SQLCODE => SQLCODE
110 ,P_SQLERRM => SQLERRM
111 ,X_MSG_COUNT => X_MSG_COUNT
112 ,X_MSG_DATA => X_MSG_DATA
113 ,X_RETURN_STATUS => X_RETURN_STATUS);
114
115 END Get_Article_Variable_Values;
116
117 PROCEDURE Get_Line_Variable_Values (
118 p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
120 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
121 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
122 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
123 p_doc_id IN NUMBER,
124 p_variables_tbl IN OKC_TERMS_UTIL_GRP.sys_var_value_tbl_type,
125 x_line_var_value_tbl OUT NOCOPY /* file.sql.39 change */ OKC_TERMS_UTIL_GRP.item_dtl_tbl
126 ) IS
127 l_api_version CONSTANT NUMBER := 1.0;
128 l_api_name CONSTANT VARCHAR2(45) := 'Get_Line_Variable_Values';
129
130 BEGIN
131
132 -- Standard Start of API savepoint
133 SAVEPOINT Get_Line_Variable_Values_PUB;
134
135 -- Initialize message list if p_init_msg_list is set to TRUE.
136 IF FND_API.to_Boolean( p_init_msg_list ) THEN
137 FND_MSG_PUB.initialize;
138 END IF;
139
140 -- initialize G_Debug_Flag
141 ASO_DEBUG_PUB.G_Debug_Flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
142
143 -- Initialize API return status to success
144 x_return_status := FND_API.G_RET_STS_SUCCESS;
145
146 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
147 aso_debug_pub.add('Get_Line_Variable_Values PUB - Begin', 1, 'Y');
148 END IF;
149
150 -- check for missing customer accounts in the quote
151 ASO_Contract_Terms_Int.Get_Line_Variable_Values (
152 p_api_version => 1.0,
153 p_init_msg_list => p_init_msg_list,
154 x_return_status => x_return_status,
155 x_msg_count => x_msg_count,
156 x_msg_data => x_msg_data,
157 p_doc_id => p_doc_id,
158 p_variables_tbl => p_variables_tbl,
159 x_line_var_value_tbl => x_line_var_value_tbl
160 );
161
162 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
163 aso_debug_pub.ADD (
164 'Get_Line_Variable_Values: After Get_Line_Variable_Values: x_return_status: '|| x_return_status,
165 1,
166 'Y'
167 );
168 END IF;
169
170 IF x_return_status <> fnd_api.g_ret_sts_success THEN
171 RAISE fnd_api.g_exc_error;
172 END IF;
173
174 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
175 aso_debug_pub.add('Get_Line_Variable_Values PUB : End ', 1, 'N');
176 END IF;
177
178 FND_MSG_PUB.Count_And_Get
179 ( p_count => x_msg_count,
180 p_data => x_msg_data
181 );
182
183 EXCEPTION
184 WHEN FND_API.G_EXC_ERROR THEN
185 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
186 P_API_NAME => L_API_NAME
187 ,P_PKG_NAME => G_PKG_NAME
188 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
189 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
190 ,P_SQLCODE => SQLCODE
191 ,P_SQLERRM => SQLERRM
192 ,X_MSG_COUNT => X_MSG_COUNT
193 ,X_MSG_DATA => X_MSG_DATA
194 ,X_RETURN_STATUS => X_RETURN_STATUS);
195
196 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
198 P_API_NAME => L_API_NAME
199 ,P_PKG_NAME => G_PKG_NAME
200 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
201 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
202 ,P_SQLCODE => SQLCODE
203 ,P_SQLERRM => SQLERRM
204 ,X_MSG_COUNT => X_MSG_COUNT
205 ,X_MSG_DATA => X_MSG_DATA
206 ,X_RETURN_STATUS => X_RETURN_STATUS);
207
208 WHEN OTHERS THEN
209 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
210 P_API_NAME => L_API_NAME
211 ,P_PKG_NAME => G_PKG_NAME
212 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
213 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
214 ,P_SQLCODE => SQLCODE
215 ,P_SQLERRM => SQLERRM
216 ,X_MSG_COUNT => X_MSG_COUNT
217 ,X_MSG_DATA => X_MSG_DATA
218 ,X_RETURN_STATUS => X_RETURN_STATUS);
219
220 END Get_Line_Variable_Values;
221
222 FUNCTION OK_To_Commit (
223 p_api_version IN NUMBER,
224 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
225 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
226 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
227 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
228 p_doc_id IN NUMBER,
229 p_doc_type IN VARCHAR2 := 'QUOTE',
230 p_validation_string IN VARCHAR2
231 ) RETURN VARCHAR2 IS
232 l_api_version CONSTANT NUMBER := 1.0;
233 l_api_name CONSTANT VARCHAR2(45) := 'OK_To_Commit';
234 l_return VARCHAR2 (1) := FND_API.G_TRUE;
235
236 BEGIN
237
238 -- Standard Start of API savepoint
239 SAVEPOINT OK_To_Commit_PUB;
240
241 -- Initialize message list if p_init_msg_list is set to TRUE.
242 IF FND_API.to_Boolean( p_init_msg_list ) THEN
243 FND_MSG_PUB.initialize;
244 END IF;
245
246 -- initialize G_Debug_Flag
247 ASO_DEBUG_PUB.G_Debug_Flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
248
249 -- Initialize API return status to success
250 x_return_status := FND_API.G_RET_STS_SUCCESS;
251
252 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
253 aso_debug_pub.add('OK_To_Commit PUB - Begin', 1, 'Y');
254 END IF;
255
256 -- check for missing customer accounts in the quote
257 l_return := ASO_Contract_Terms_Int.OK_To_Commit (
258 p_api_version => 1.0,
259 p_init_msg_list => p_init_msg_list,
260 x_return_status => x_return_status,
261 x_msg_count => x_msg_count,
262 x_msg_data => x_msg_data,
263 p_doc_id => p_doc_id,
264 p_doc_type => p_doc_type,
265 p_validation_string => p_validation_string
266 );
267
268 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
269 aso_debug_pub.ADD (
270 'OK_To_Commit: After OK_To_Commit: x_return_status: '|| x_return_status,
271 1,
272 'Y'
273 );
274 END IF;
275
276 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
277 aso_debug_pub.add('OK_To_Commit PUB : End ', 1, 'N');
278 END IF;
279
280 FND_MSG_PUB.Count_And_Get
281 ( p_count => x_msg_count,
282 p_data => x_msg_data
283 );
284
285 RETURN l_return;
286 END OK_To_Commit;
287
288
289 END ASO_Contract_Terms_PUB;