[Home] [Help]
PACKAGE BODY: APPS.ASO_CORE_CONTRACTS_INT
Source
1 PACKAGE BODY aso_core_contracts_int AS
2 /* $Header: asoiokcb.pls 120.1 2005/06/29 12:34:10 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_core_contracts_INT
5 -- Purpose :
6 -- History :
7 -- 12-03-2002 hyang - bug 2692785, checking running concurrent pricing request.
8 -- 12-12-2002 hyang - bug 2706400, add who column in all update statements
9 -- 10-08-2002 hyang - new contracts integration.
10 -- NOTE :
11 -- End of Comments
12
13 g_pkg_name CONSTANT VARCHAR2 (30) := 'ASO_core_contracts_INT';
14 g_file_name CONSTANT VARCHAR2 (12) := 'asoiokcb.pls';
15 g_login_id NUMBER := fnd_global.conc_login_id;
16 g_user_id NUMBER := fnd_global.user_id;
17
18
19 PROCEDURE quote_is_renewal (
20 p_api_version IN NUMBER,
21 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
22 p_commit IN VARCHAR2 := fnd_api.g_false,
23 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
24 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
25 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
26 p_quote_id IN NUMBER,
27 x_true_false OUT NOCOPY /* file.sql.39 change */ VARCHAR2
28 ) IS
29 BEGIN
30
31 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
32 aso_debug_pub.add('quote_is_renewal - Obsolete', 1, 'Y');
33 END IF;
34
35 NULL;
36
37 END quote_is_renewal;
38
39 PROCEDURE quote_contract_renewal (
40 p_api_version IN NUMBER,
41 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
42 p_commit IN VARCHAR2 := fnd_api.g_false,
43 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
44 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
45 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
46 p_quote_id IN NUMBER,
47 x_contract_id OUT NOCOPY /* file.sql.39 change */ NUMBER
48 ) IS
49 BEGIN
50
51 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
52 aso_debug_pub.add('quote_contract_renewal - Obsolete', 1, 'Y');
53 END IF;
54
55 NULL;
56
57 END quote_contract_renewal;
58
59 PROCEDURE contract_renewal (
60 p_api_version IN NUMBER,
61 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
62 p_commit IN VARCHAR2 := fnd_api.g_false,
63 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
64 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
65 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
66 p_contract_id IN NUMBER,
67 p_start_date IN DATE,
68 p_end_date IN DATE,
69 x_contract_id OUT NOCOPY /* file.sql.39 change */ NUMBER
70 ) IS
71 BEGIN
72
73 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
74 aso_debug_pub.add('contract_renewal - Obsolete', 1, 'Y');
75 END IF;
76
77 NULL;
78
79 END contract_renewal;
80
81 PROCEDURE quote_contract_is_ordered (
82 p_api_version IN NUMBER,
83 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
84 p_commit IN VARCHAR2 := fnd_api.g_false,
85 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
86 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
87 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
88 p_quote_id IN NUMBER,
89 x_true_false OUT NOCOPY /* file.sql.39 change */ VARCHAR2
90 ) IS
91 BEGIN
92
93 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
94 aso_debug_pub.add('quote_contract_is_ordered - Obsolete', 1, 'Y');
95 END IF;
96
97 NULL;
98
99 END quote_contract_is_ordered;
100
101 PROCEDURE create_contract (
102 p_api_version IN NUMBER,
103 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
104 p_commit IN VARCHAR2 := fnd_api.g_false,
105 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
106 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
107 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
108 p_quote_id IN NUMBER,
109 p_template_id IN NUMBER,
110 x_contract_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
111 x_contract_number OUT NOCOPY /* file.sql.39 change */ VARCHAR2
112 ) IS
113 BEGIN
114
115 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
116 aso_debug_pub.add('create_contract - Obsolete', 1, 'Y');
117 END IF;
118
119 NULL;
120
121 END create_contract;
122
123
124 PROCEDURE create_contract (
125 p_api_version IN NUMBER,
126 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
127 p_commit IN VARCHAR2 := fnd_api.g_false,
128 p_quote_id IN NUMBER,
129 p_terms_agreed_flag IN VARCHAR2 := fnd_api.g_false,
130 p_rel_type IN VARCHAR2,
131 p_interaction_subject IN VARCHAR2 := fnd_api.g_miss_char,
132 p_interaction_body IN VARCHAR2 := fnd_api.g_miss_char,
133 p_party_id IN NUMBER := fnd_api.g_miss_num,
134 p_resource_id IN NUMBER := fnd_api.g_miss_num,
135 p_template_id IN NUMBER := fnd_api.g_miss_num,
136 p_template_major_version IN NUMBER := fnd_api.g_miss_num,
137 x_contract_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
138 x_contract_number OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
139 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
140 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
141 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
142 ) IS
143 BEGIN
144
145 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
146 aso_debug_pub.add('create_contract - Obsolete', 1, 'Y');
147 END IF;
148
149 NULL;
150
151 END create_contract;
152
153
154 -- this procedure is used to update a contract from a quote.
155
156 PROCEDURE update_contract (
157 p_api_version IN NUMBER,
158 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
159 p_commit IN VARCHAR2 := fnd_api.g_false,
160 p_quote_id IN NUMBER,
161 p_contract_id IN NUMBER := fnd_api.g_miss_num,
162 p_interaction_subject IN VARCHAR2 := fnd_api.g_miss_char,
163 p_interaction_body IN VARCHAR2 := fnd_api.g_miss_char,
164 p_party_id IN NUMBER := fnd_api.g_miss_num,
165 p_resource_id IN NUMBER := fnd_api.g_miss_num,
166 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
167 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
168 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
169 ) IS
170 BEGIN
171
172 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
173 aso_debug_pub.add('update_contract - Obsolete', 1, 'Y');
174 END IF;
175
176 NULL;
177
178 END update_contract;
179
180
181 PROCEDURE notify_contract_change (
182 p_api_version IN NUMBER,
183 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
184 p_commit IN VARCHAR2 := fnd_api.g_false,
185 p_quote_id IN NUMBER,
186 p_notification_type IN VARCHAR2,
187 p_customer_comments IN VARCHAR2 := fnd_api.g_miss_char,
188 p_salesrep_email_id IN VARCHAR2 := fnd_api.g_miss_char,
189 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
190 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
191 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
192 ) IS
193 BEGIN
194
195 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
196 aso_debug_pub.add('notify_contract_change - Obsolete', 1, 'Y');
197 END IF;
198
199 NULL;
200
201 END notify_contract_change;
202
203
204 -- vtariker
205 PROCEDURE Check_Customer_Accounts(
206 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
207 p_qte_header_id IN NUMBER,
208 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
209 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
210 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
211 )
212 IS
213
214 /******* Stubbing out
215
216 **************/
217 l_api_name CONSTANT VARCHAR2 ( 50 ) := 'Check_Customer_Accounts';
218 BEGIN
219
220 -- Standard Start of API savepoint
221 SAVEPOINT Check_Customer_Accounts_INT;
222
223 -- Initialize message list if p_init_msg_list is set to TRUE.
224 IF FND_API.to_Boolean( p_init_msg_list ) THEN
225 FND_MSG_PUB.initialize;
226 END IF;
227
228 -- Initialize API return status to success
229 x_return_status := FND_API.G_RET_STS_SUCCESS;
230
231 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
232 aso_debug_pub.add('ASO_CORE_CONTRACTS_INT.Check_Customer_Accounts - Begin', 1, 'Y');
233 END IF;
234
235 /************** Replacing with call to moved api ********************/
236
237 ASO_CHECK_TCA_PVT.Check_Customer_Accounts (
238 p_init_msg_list => fnd_api.g_false,
239 p_qte_header_id => p_qte_header_id,
240 x_return_status => x_return_status,
241 x_msg_count => x_msg_count,
242 x_msg_data => x_msg_data
243 );
244
245
246 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
247 aso_debug_pub.add('ASO_CORE_CONTRACTS_INT.Check_Customer_Accounts: End ', 1, 'N');
248 END IF;
249
250 FND_MSG_PUB.Count_And_Get
251 ( p_count => x_msg_count,
252 p_data => x_msg_data
253 );
254
255 EXCEPTION
256 WHEN FND_API.G_EXC_ERROR THEN
257 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
258 P_API_NAME => L_API_NAME
259 ,P_PKG_NAME => G_PKG_NAME
260 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
261 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT
262 ,P_SQLCODE => SQLCODE
263 ,P_SQLERRM => SQLERRM
264 ,X_MSG_COUNT => X_MSG_COUNT
265 ,X_MSG_DATA => X_MSG_DATA
266 ,X_RETURN_STATUS => X_RETURN_STATUS);
267
268 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
270 P_API_NAME => L_API_NAME
271 ,P_PKG_NAME => G_PKG_NAME
272 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
273 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT
274 ,P_SQLCODE => SQLCODE
275 ,P_SQLERRM => SQLERRM
276 ,X_MSG_COUNT => X_MSG_COUNT
277 ,X_MSG_DATA => X_MSG_DATA
278 ,X_RETURN_STATUS => X_RETURN_STATUS);
279
280 WHEN OTHERS THEN
281 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
282 P_API_NAME => L_API_NAME
283 ,P_PKG_NAME => G_PKG_NAME
284 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
285 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT
286 ,P_SQLCODE => SQLCODE
287 ,P_SQLERRM => SQLERRM
288 ,X_MSG_COUNT => X_MSG_COUNT
289 ,X_MSG_DATA => X_MSG_DATA
290 ,X_RETURN_STATUS => X_RETURN_STATUS);
291
292 END Check_Customer_Accounts;
293 -- vtariker
294
295
296 END aso_core_contracts_int;