[Home] [Help]
1: package body IBE_QUOTE_SAVESHARE_V2_PVT as
2: /*$Header: IBEVSS2B.pls 120.2 2005/12/09 01:57:19 makulkar ship $ */
3: l_true VARCHAR2(1) := FND_API.G_TRUE;
4:
5: cursor c_check_active_cart(c_party_id number,
6: c_cust_account_id number) is
7: select quote_header_id
83: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
84: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
85: FND_Msg_Pub.Add;
86: END IF;
87: RAISE FND_API.G_EXC_ERROR;
88: END IF;
89: END IF;
90: END;
91:
103: P_retrieval_number IN Number ,
104: P_Quote_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type ,
105: P_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
106: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl,
107: P_source_quote_header_id IN NUMBER := FND_API.G_MISS_NUM ,
108: P_source_last_update_date IN Date := FND_API.G_MISS_DATE ,
109: p_minisite_id IN NUMBER ,
110: p_URL IN VARCHAR2 ,
111: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
104: P_Quote_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type ,
105: P_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
106: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl,
107: P_source_quote_header_id IN NUMBER := FND_API.G_MISS_NUM ,
108: P_source_last_update_date IN Date := FND_API.G_MISS_DATE ,
109: p_minisite_id IN NUMBER ,
110: p_URL IN VARCHAR2 ,
111: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
112: p_api_version IN NUMBER := 1 ,
107: P_source_quote_header_id IN NUMBER := FND_API.G_MISS_NUM ,
108: P_source_last_update_date IN Date := FND_API.G_MISS_DATE ,
109: p_minisite_id IN NUMBER ,
110: p_URL IN VARCHAR2 ,
111: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
112: p_api_version IN NUMBER := 1 ,
113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
114: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
115: x_return_status OUT NOCOPY VARCHAR2 ,
109: p_minisite_id IN NUMBER ,
110: p_URL IN VARCHAR2 ,
111: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
112: p_api_version IN NUMBER := 1 ,
113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
114: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
115: x_return_status OUT NOCOPY VARCHAR2 ,
116: x_msg_count OUT NOCOPY NUMBER ,
117: x_msg_data OUT NOCOPY VARCHAR2 ) is
110: p_URL IN VARCHAR2 ,
111: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
112: p_api_version IN NUMBER := 1 ,
113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
114: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
115: x_return_status OUT NOCOPY VARCHAR2 ,
116: x_msg_count OUT NOCOPY NUMBER ,
117: x_msg_data OUT NOCOPY VARCHAR2 ) is
118:
124:
125: BEGIN
126: SAVEPOINT SAVESHARE_V2;
127: -- Standard call to check for call compatibility.
128: IF NOT FND_API.Compatible_API_Call ( l_api_version,
129: P_Api_Version,
130: l_api_name,
131: G_PKG_NAME )
132: THEN
129: P_Api_Version,
130: l_api_name,
131: G_PKG_NAME )
132: THEN
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: END IF;
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;
132: THEN
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: END IF;
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 API return status to success
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- Initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142: -------------------------------------------------------------------------------------------------------------
143: --API Body start
144: -------------------------------------------------------------------------------------------------------------
145: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
148: END IF;
149:
150: Validate_share_Update(
151: p_api_version_number => 1.0
152: ,p_init_msg_list => FND_API.G_FALSE
153: ,p_quote_header_rec => P_Quote_header_rec
154: ,p_quote_access_tbl => p_quote_access_tbl
155: ,p_party_id => P_party_id
156: ,p_cust_account_id => P_cust_account_id
159: ,x_return_status => x_return_status
160: ,x_msg_count => x_msg_count
161: ,x_msg_data => x_msg_data) ;
162:
163: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: ,x_msg_count => x_msg_count
161: ,x_msg_data => x_msg_data) ;
162:
163: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
162:
163: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169:
170: --DBMS_OUTPUT.PUT_LINE('saveshare_control_rec.operation_code is '||p_saveshare_control_rec.operation_code);
163: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169:
170: --DBMS_OUTPUT.PUT_LINE('saveshare_control_rec.operation_code is '||p_saveshare_control_rec.operation_code);
171: IF ((p_saveshare_control_rec.operation_code = OP_NAME_CART)
177: --DBMS_OUTPUT.PUT_LINE_LINE('incoming quote_name :'||P_Quote_header_rec.quote_name);
178: --DBMS_OUTPUT.PUT_LINE_LINE('incoming quote_headeR_id :'||P_Quote_header_rec.quote_header_id);
179: IBE_Quote_Save_pvt.save(
180: p_api_version_number => p_api_version ,
181: p_init_msg_list => fnd_api.g_false ,
182: p_commit => fnd_api.g_false ,
183:
184: p_qte_header_rec => P_Quote_header_rec ,
185: p_control_rec => P_saveshare_control_rec.control_rec,
178: --DBMS_OUTPUT.PUT_LINE_LINE('incoming quote_headeR_id :'||P_Quote_header_rec.quote_header_id);
179: IBE_Quote_Save_pvt.save(
180: p_api_version_number => p_api_version ,
181: p_init_msg_list => fnd_api.g_false ,
182: p_commit => fnd_api.g_false ,
183:
184: p_qte_header_rec => P_Quote_header_rec ,
185: p_control_rec => P_saveshare_control_rec.control_rec,
186: x_quote_header_id => l_quote_header_id ,
189: x_return_status => x_return_status ,
190: x_msg_count => x_msg_count ,
191: x_msg_data => x_msg_data);
192:
193: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
194: RAISE FND_API.G_EXC_ERROR;
195: END IF;
196:
197: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
190: x_msg_count => x_msg_count ,
191: x_msg_data => x_msg_data);
192:
193: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
194: RAISE FND_API.G_EXC_ERROR;
195: END IF;
196:
197: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
194: RAISE FND_API.G_EXC_ERROR;
195: END IF;
196:
197: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: END IF;
201:
194: RAISE FND_API.G_EXC_ERROR;
195: END IF;
196:
197: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: END IF;
201:
202: IF ((p_saveshare_control_rec.operation_code = OP_SAVE_RECIPIENTS)
215: p_url => p_url ,
216: p_minisite_id => p_minisite_id ,
217: p_notes => p_notes ,
218: p_api_version => p_api_version ,
219: p_init_msg_list => fnd_api.g_false ,
220: p_commit => fnd_api.g_false ,
221: x_return_status => x_return_status ,
222: x_msg_count => x_msg_count ,
223: x_msg_data => x_msg_data);
216: p_minisite_id => p_minisite_id ,
217: p_notes => p_notes ,
218: p_api_version => p_api_version ,
219: p_init_msg_list => fnd_api.g_false ,
220: p_commit => fnd_api.g_false ,
221: x_return_status => x_return_status ,
222: x_msg_count => x_msg_count ,
223: x_msg_data => x_msg_data);
224:
221: x_return_status => x_return_status ,
222: x_msg_count => x_msg_count ,
223: x_msg_data => x_msg_data);
224:
225: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228:
229: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
222: x_msg_count => x_msg_count ,
223: x_msg_data => x_msg_data);
224:
225: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228:
229: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228:
229: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
231: END IF;
232: END IF; -- IF(nvl(p_quote_access_tbl.count,0)
233: END IF;
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228:
229: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
231: END IF;
232: END IF; -- IF(nvl(p_quote_access_tbl.count,0)
233: END IF;
234:
245: P_delete_source_cart => P_saveshare_control_rec.delete_source_cart,
246: P_combinesameitem => P_saveshare_control_rec.combinesameitem,
247: P_minisite_id => p_minisite_id,
248: p_api_version => 1,
249: p_init_msg_list => FND_API.G_FALSE,
250: p_commit => FND_API.G_FALSE,
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
246: P_combinesameitem => P_saveshare_control_rec.combinesameitem,
247: P_minisite_id => p_minisite_id,
248: p_api_version => 1,
249: p_init_msg_list => FND_API.G_FALSE,
250: p_commit => FND_API.G_FALSE,
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
254: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
250: p_commit => FND_API.G_FALSE,
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
254: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
257:
258: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
254: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
257:
258: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
254: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
257:
258: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: END IF;
261:
262:
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
257:
258: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: END IF;
261:
262:
263: ELSIF(p_saveshare_control_rec.operation_code = OP_ACTIVATE_QUOTE) THEN
271: P_Cust_account_id => P_cust_account_id ,
272: P_control_rec => P_saveshare_control_rec.control_rec,
273: p_retrieval_number => p_retrieval_number ,
274: P_api_version => P_api_version ,
275: P_init_msg_list => FND_API.G_FALSE ,
276: P_commit => FND_API.G_FALSE ,
277: x_return_status => x_return_status ,
278: x_msg_count => x_msg_count ,
279: x_msg_data => x_msg_data);
272: P_control_rec => P_saveshare_control_rec.control_rec,
273: p_retrieval_number => p_retrieval_number ,
274: P_api_version => P_api_version ,
275: P_init_msg_list => FND_API.G_FALSE ,
276: P_commit => FND_API.G_FALSE ,
277: x_return_status => x_return_status ,
278: x_msg_count => x_msg_count ,
279: x_msg_data => x_msg_data);
280:
277: x_return_status => x_return_status ,
278: x_msg_count => x_msg_count ,
279: x_msg_data => x_msg_data);
280:
281: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278: x_msg_count => x_msg_count ,
279: x_msg_data => x_msg_data);
280:
281: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: --DBMS_OUTPUT.PUT_LINE_LINE('Finished calling ACTIVATE_QUOTE ');
289: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: --DBMS_OUTPUT.PUT_LINE_LINE('Finished calling ACTIVATE_QUOTE ');
289: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
290: IBE_UTIL.DEBUG('Finished calling ACTIVATE_QUOTE');
303: P_URL => p_url ,
304: P_minisite_id => p_minisite_id ,
305: p_notes => p_notes ,
306: p_api_version => p_api_version ,
307: p_init_msg_list => fnd_api.g_false ,
308: p_commit => fnd_api.g_false ,
309: x_return_status => x_return_status ,
310: x_msg_count => x_msg_count ,
311: x_msg_data => x_msg_data );
304: P_minisite_id => p_minisite_id ,
305: p_notes => p_notes ,
306: p_api_version => p_api_version ,
307: p_init_msg_list => fnd_api.g_false ,
308: p_commit => fnd_api.g_false ,
309: x_return_status => x_return_status ,
310: x_msg_count => x_msg_count ,
311: x_msg_data => x_msg_data );
312: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
308: p_commit => fnd_api.g_false ,
309: x_return_status => x_return_status ,
310: x_msg_count => x_msg_count ,
311: x_msg_data => x_msg_data );
312: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
309: x_return_status => x_return_status ,
310: x_msg_count => x_msg_count ,
311: x_msg_data => x_msg_data );
312: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: END IF;
319:
320: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: END IF;
319:
320: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
321: IBE_UTIL.DEBUG('Done calling IBE_QUOTE_SAVE_SHARE_V2_PVT.END_WORKING');
327: P_minisite_id => p_minisite_id ,
328: p_notes => p_notes ,
329: p_quote_access_tbl => p_quote_access_tbl ,
330: p_api_version => p_api_version ,
331: p_init_msg_list => fnd_api.g_false ,
332: p_commit => fnd_api.g_false ,
333: x_return_status => x_return_status ,
334: x_msg_count => x_msg_count ,
335: x_msg_data => x_msg_data );
328: p_notes => p_notes ,
329: p_quote_access_tbl => p_quote_access_tbl ,
330: p_api_version => p_api_version ,
331: p_init_msg_list => fnd_api.g_false ,
332: p_commit => fnd_api.g_false ,
333: x_return_status => x_return_status ,
334: x_msg_count => x_msg_count ,
335: x_msg_data => x_msg_data );
336:
333: x_return_status => x_return_status ,
334: x_msg_count => x_msg_count ,
335: x_msg_data => x_msg_data );
336:
337: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340:
341: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
334: x_msg_count => x_msg_count ,
335: x_msg_data => x_msg_data );
336:
337: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340:
341: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340:
341: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344: END IF;--Check for p_saveshare_control_rec.operation_code
345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340:
341: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344: END IF;--Check for p_saveshare_control_rec.operation_code
345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
346: IBE_UTIL.DEBUG('P_saveshare_control_rec.deactivate_cart: '||P_saveshare_control_rec.deactivate_cart);
344: END IF;--Check for p_saveshare_control_rec.operation_code
345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
346: IBE_UTIL.DEBUG('P_saveshare_control_rec.deactivate_cart: '||P_saveshare_control_rec.deactivate_cart);
347: END IF;
348: IF ((P_saveshare_control_rec.deactivate_cart = FND_API.G_TRUE)
349: OR (p_saveshare_control_rec.operation_code = OP_DEACTIVATE)) THEN
350:
351: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
352: IBE_UTIL.DEBUG('Calling deactivate API');
357: P_Party_id => p_party_id ,
358: P_Cust_account_id => p_cust_account_id ,
359: P_minisite_id => p_minisite_id ,
360: p_api_version => p_api_version ,
361: p_init_msg_list => fnd_api.g_false ,
362: p_commit => fnd_api.g_false ,
363: x_return_status => x_return_status ,
364: x_msg_count => x_msg_count ,
365: x_msg_data => x_msg_data );
358: P_Cust_account_id => p_cust_account_id ,
359: P_minisite_id => p_minisite_id ,
360: p_api_version => p_api_version ,
361: p_init_msg_list => fnd_api.g_false ,
362: p_commit => fnd_api.g_false ,
363: x_return_status => x_return_status ,
364: x_msg_count => x_msg_count ,
365: x_msg_data => x_msg_data );
366: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
362: p_commit => fnd_api.g_false ,
363: x_return_status => x_return_status ,
364: x_msg_count => x_msg_count ,
365: x_msg_data => x_msg_data );
366: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
363: x_return_status => x_return_status ,
364: x_msg_count => x_msg_count ,
365: x_msg_data => x_msg_data );
366: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
372: END IF;
373: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
374: IBE_UTIL.DEBUG('Deactivate owner cart after sharing:Done');
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
372: END IF;
373: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
374: IBE_UTIL.DEBUG('Deactivate owner cart after sharing:Done');
375: END IF;
386: --dbms_output.put_line('Save_share_v2:Ready to call IBE_QUOTE_SAVE_PVT.Delete on: '||P_Quote_header_rec.quote_header_id);
387:
388: IBE_QUOTE_SAVE_PVT.Delete(
389: p_api_version_number => p_api_version
390: ,p_init_msg_list => fnd_api.g_false
391: ,p_commit => fnd_api.g_false
392: ,x_return_status => x_return_status
393: ,x_msg_count => x_msg_count
394: ,x_msg_data => x_msg_data
387:
388: IBE_QUOTE_SAVE_PVT.Delete(
389: p_api_version_number => p_api_version
390: ,p_init_msg_list => fnd_api.g_false
391: ,p_commit => fnd_api.g_false
392: ,x_return_status => x_return_status
393: ,x_msg_count => x_msg_count
394: ,x_msg_data => x_msg_data
395: ,p_quote_header_id => P_Quote_header_rec.quote_header_id
392: ,x_return_status => x_return_status
393: ,x_msg_count => x_msg_count
394: ,x_msg_data => x_msg_data
395: ,p_quote_header_id => P_Quote_header_rec.quote_header_id
396: ,p_expunge_flag => FND_API.G_FALSE
397: ,p_minisite_id => p_minisite_id
398: ,p_last_update_date => P_Quote_header_rec.last_update_date
399: ,p_Quote_access_tbl => p_quote_access_tbl
400: ,p_notes => p_notes
399: ,p_Quote_access_tbl => p_quote_access_tbl
400: ,p_notes => p_notes
401: ,p_initiator_party_id => p_party_id
402: ,p_initiator_account_id => p_cust_account_id );
403: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406:
407: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
400: ,p_notes => p_notes
401: ,p_initiator_party_id => p_party_id
402: ,p_initiator_account_id => p_cust_account_id );
403: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406:
407: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
403: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406:
407: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409: END IF;
410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
411: IBE_UTIL.DEBUG('Delete owner cart :Done');
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406:
407: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409: END IF;
410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
411: IBE_UTIL.DEBUG('Delete owner cart :Done');
412: END IF;
415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
416: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.save_share_v2: END');
417: END IF;
418: EXCEPTION
419: WHEN FND_API.G_EXC_ERROR THEN
420: ROLLBACK TO SAVESHARE_V2;
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
423: p_count => x_msg_count ,
417: END IF;
418: EXCEPTION
419: WHEN FND_API.G_EXC_ERROR THEN
420: ROLLBACK TO SAVESHARE_V2;
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
423: p_count => x_msg_count ,
424: p_data => x_msg_data);
425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
418: EXCEPTION
419: WHEN FND_API.G_EXC_ERROR THEN
420: ROLLBACK TO SAVESHARE_V2;
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
423: p_count => x_msg_count ,
424: p_data => x_msg_data);
425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
426: IBE_Util.Debug('Expected Error in IBE_QUOTE_SAVESHARE_V2_PVT.save_share_v2()');
425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
426: IBE_Util.Debug('Expected Error in IBE_QUOTE_SAVESHARE_V2_PVT.save_share_v2()');
427: END IF;
428:
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: ROLLBACK TO SAVESHARE_V2;
431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
433: p_count => x_msg_count ,
427: END IF;
428:
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: ROLLBACK TO SAVESHARE_V2;
431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
433: p_count => x_msg_count ,
434: p_data => x_msg_data);
435: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
428:
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: ROLLBACK TO SAVESHARE_V2;
431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
433: p_count => x_msg_count ,
434: p_data => x_msg_data);
435: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
436: IBE_Util.Debug('Unexpected Error in IBE_QUOTE_SAVESHARE_V2_PVT.save_share_v2()');
437: END IF;
438:
439: WHEN OTHERS THEN
440: ROLLBACK TO SAVESHARE_V2;
441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
443: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
444: l_api_name);
445: END IF;
442: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
443: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
444: l_api_name);
445: END IF;
446: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count ,
448: p_data => x_msg_data);
449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
450: IBE_Util.Debug('Unknown error IBE_QUOTE_SAVESHARE_V2_PVT.save_share_v2()');
466: Procedure save_recipients (
467: P_Quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_TBL_TYPE
468: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl ,
469: P_Quote_header_id IN Number ,
470: P_Party_id IN Number := FND_API.G_MISS_NUM ,
471: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
472: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
467: P_Quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_TBL_TYPE
468: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl ,
469: P_Quote_header_id IN Number ,
470: P_Party_id IN Number := FND_API.G_MISS_NUM ,
471: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
472: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
468: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl ,
469: P_Quote_header_id IN Number ,
470: P_Party_id IN Number := FND_API.G_MISS_NUM ,
471: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
472: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
476: p_api_version IN Number := 1 ,
469: P_Quote_header_id IN Number ,
470: P_Party_id IN Number := FND_API.G_MISS_NUM ,
471: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
472: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
476: p_api_version IN Number := 1 ,
477: p_init_msg_list IN varchar2 := FND_API.G_TRUE ,
470: P_Party_id IN Number := FND_API.G_MISS_NUM ,
471: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
472: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
476: p_api_version IN Number := 1 ,
477: p_init_msg_list IN varchar2 := FND_API.G_TRUE ,
478: p_commit IN Varchar2 := FND_API.G_FALSE ,
471: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
472: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
476: p_api_version IN Number := 1 ,
477: p_init_msg_list IN varchar2 := FND_API.G_TRUE ,
478: p_commit IN Varchar2 := FND_API.G_FALSE ,
479: x_return_status OUT NOCOPY Varchar2 ,
473: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
476: p_api_version IN Number := 1 ,
477: p_init_msg_list IN varchar2 := FND_API.G_TRUE ,
478: p_commit IN Varchar2 := FND_API.G_FALSE ,
479: x_return_status OUT NOCOPY Varchar2 ,
480: x_msg_count OUT NOCOPY Number ,
481: x_msg_data OUT NOCOPY Varchar2 ) is
474: p_send_notif IN Varchar2 := FND_API.G_TRUE ,
475: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
476: p_api_version IN Number := 1 ,
477: p_init_msg_list IN varchar2 := FND_API.G_TRUE ,
478: p_commit IN Varchar2 := FND_API.G_FALSE ,
479: x_return_status OUT NOCOPY Varchar2 ,
480: x_msg_count OUT NOCOPY Number ,
481: x_msg_data OUT NOCOPY Varchar2 ) is
482:
492:
493: cursor c_recip_details(c_recip_id NUMBER,
494: c_quote_header_id NUMBER,
495: c_party_id NUMBER) is
496: select nvl(update_privilege_type_code, fnd_api.g_miss_char) access_level,
497: party_id,
498: cust_account_id,
499: contact_point_id,
500: quote_header_id,
535: l_old_access_level VARCHAR2(1);
536: l_contact_point_id NUMBER;
537: l_api_name CONSTANT VARCHAR2(30) := 'SAVERECIPIENTS_V2';
538: l_api_version CONSTANT NUMBER := 1.0;
539: l_call_save_contact_point VARCHAR2(1) := FND_API.G_FALSE;
540: l_quote_access_rec IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_rec_TYPE;
541: l_quote_access_rec_owr IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_rec_TYPE;
542: l_call_insert_handler VARCHAR2(1) := FND_API.G_FALSE;
543: l_recip_party_id NUMBER;
538: l_api_version CONSTANT NUMBER := 1.0;
539: l_call_save_contact_point VARCHAR2(1) := FND_API.G_FALSE;
540: l_quote_access_rec IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_rec_TYPE;
541: l_quote_access_rec_owr IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_rec_TYPE;
542: l_call_insert_handler VARCHAR2(1) := FND_API.G_FALSE;
543: l_recip_party_id NUMBER;
544: l_recip_cust_account_id NUMBER;
545: l_sharing_partyid NUMBER;
546: l_owner_partyid NUMBER;
550: BEGIN
551:
552: SAVEPOINT SAVERECIPIENTS_V2;
553: -- Standard call to check for call compatibility.
554: IF NOT FND_API.Compatible_API_Call ( l_api_version,
555: P_Api_Version,
556: l_api_name,
557: G_PKG_NAME )
558: THEN
555: P_Api_Version,
556: l_api_name,
557: G_PKG_NAME )
558: THEN
559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561: -- Initialize message list IF p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
563: FND_MSG_PUB.initialize;
558: THEN
559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561: -- Initialize message list IF p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
563: FND_MSG_PUB.initialize;
564: END IF;
565:
566: -- Initialize API return status to success
563: FND_MSG_PUB.initialize;
564: END IF;
565:
566: -- Initialize API return status to success
567: x_return_status := FND_API.G_RET_STS_SUCCESS;
568: -------------------------------------------------------------------------------------------------------------
569: --API Body start
570: -------------------------------------------------------------------------------------------------------------
571:
586: EXIT when c_get_owner_ids%notfound;
587: END LOOP;
588: --Loop around the input quote_access table
589: FOR counter IN 1..P_quote_access_tbl.COUNT LOOP
590: l_call_insert_handler := FND_API.G_FALSE;
591: l_call_save_contact_point := FND_API.G_FALSE;
592: l_quote_access_rec := P_Quote_access_tbl(counter);
593:
594: /*Obtaining the recipient details here when there is a recipient_id or a combnation of party_id
587: END LOOP;
588: --Loop around the input quote_access table
589: FOR counter IN 1..P_quote_access_tbl.COUNT LOOP
590: l_call_insert_handler := FND_API.G_FALSE;
591: l_call_save_contact_point := FND_API.G_FALSE;
592: l_quote_access_rec := P_Quote_access_tbl(counter);
593:
594: /*Obtaining the recipient details here when there is a recipient_id or a combnation of party_id
595: and quote_hdr_id available in the input quote access record.
602: IBE_UTIL.DEBUG('Incoming party_id = '||P_Quote_access_tbl(counter).party_id);
603: END IF;
604:
605: IF(((P_Quote_access_tbl(counter).quote_sharee_id is not null) and
606: (P_Quote_access_tbl(counter).quote_sharee_id <> FND_API.G_MISS_NUM))or
607: ((p_quote_access_tbl(counter).party_id is not null) and
608: (p_quote_access_tbl(counter).party_id <> FND_API.G_MISS_NUM))) THEN
609: FOR rec_recip_details in c_recip_details(P_Quote_access_tbl(counter).quote_sharee_id,
610: P_Quote_access_tbl(counter).quote_header_id,
604:
605: IF(((P_Quote_access_tbl(counter).quote_sharee_id is not null) and
606: (P_Quote_access_tbl(counter).quote_sharee_id <> FND_API.G_MISS_NUM))or
607: ((p_quote_access_tbl(counter).party_id is not null) and
608: (p_quote_access_tbl(counter).party_id <> FND_API.G_MISS_NUM))) THEN
609: FOR rec_recip_details in c_recip_details(P_Quote_access_tbl(counter).quote_sharee_id,
610: P_Quote_access_tbl(counter).quote_header_id,
611: P_Quote_access_tbl(counter).party_id) LOOP
612:
616: l_quote_access_rec.quote_sharee_number := rec_recip_details.quote_sharee_number;
617:
618: --Use the incoming quote sharee id
619: IF ((P_Quote_access_tbl(counter).quote_sharee_id is null) OR
620: (P_Quote_access_tbl(counter).quote_sharee_id = FND_API.G_MISS_NUM)) THEN
621: l_quote_access_rec.quote_sharee_id := rec_recip_details.quote_sharee_id;
622: ELSE
623: l_quote_access_rec.quote_sharee_id := P_Quote_access_tbl(counter).quote_sharee_id;
624: END IF;
626: l_quote_access_rec.shared_by_party_id := rec_recip_details.shared_by_party_id;
627: /*If no party_id and cust_account_id are passed in then query them from the database
628: using the quote sharee id*/
629: IF (((p_quote_access_tbl(counter).party_id is null ) OR
630: (p_quote_access_tbl(counter).party_id = FND_API.G_MISS_NUM))AND
631: ((p_quote_access_tbl(counter).cust_account_id is null ) OR
632: (p_quote_access_tbl(counter).cust_account_id = FND_API.G_MISS_NUM))) THEN
633:
634: l_quote_access_rec.party_id := rec_recip_details.party_id;
628: using the quote sharee id*/
629: IF (((p_quote_access_tbl(counter).party_id is null ) OR
630: (p_quote_access_tbl(counter).party_id = FND_API.G_MISS_NUM))AND
631: ((p_quote_access_tbl(counter).cust_account_id is null ) OR
632: (p_quote_access_tbl(counter).cust_account_id = FND_API.G_MISS_NUM))) THEN
633:
634: l_quote_access_rec.party_id := rec_recip_details.party_id;
635: l_quote_access_rec.cust_account_id := rec_recip_details.cust_account_id;
636:
664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
665: IBE_UTIL.DEBUG('Save_recipients: Opening c_get_created_recip');
666: IBE_UTIL.DEBUG('Save_recipients: FND_GLOBAL.USER_ID: '||FND_GLOBAL.USER_ID);
667: END IF;
668: l_quote_access_rec.quote_sharee_id := FND_API.G_MISS_NUM;
669: FOR rec_get_created_recip in c_get_created_recip(p_quote_access_tbl(counter).quote_header_id,
670: p_quote_access_tbl(counter).party_id,
671: FND_GLOBAL.USER_ID) LOOP
672: l_quote_access_rec.quote_sharee_id := rec_get_created_recip.quote_sharee_id;
676:
677: EXIT when c_get_created_recip%NOTFOUND;
678: END LOOP;
679: IF (l_quote_access_rec.quote_sharee_id is not null AND
680: l_quote_access_rec.quote_sharee_id <> FND_API.G_MISS_NUM) THEN
681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
682: IBE_UTIL.DEBUG('Record found for the recipient in quote_access table, need to update it');
683: END IF;
684:
697: --Calling save_contact_point for the updated recipient record just in case the
698: --contact point has changed
699: IF(p_quote_access_tbl(counter).contact_point_id is null and
700: p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS is not null) THEN
701: l_call_save_contact_point := FND_API.G_TRUE;
702: END IF;
703:
704: ELSE --Need to create a new record
705: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
724: --Deal with saving the contact point here
725: /*A contact point is created when there is an input e-mail address and a null
726: input contact point id*/
727: IF (p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS is not null
728: and p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS <> fnd_api.g_miss_char
729: and (p_quote_access_tbl(counter).contact_point_id is null or
730: p_quote_access_tbl(counter).contact_point_id = FND_API.G_MISS_NUM)) THEN
731: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
732: IBE_UTIL.DEBUG('saving contact point for the current recipient record');
726: input contact point id*/
727: IF (p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS is not null
728: and p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS <> fnd_api.g_miss_char
729: and (p_quote_access_tbl(counter).contact_point_id is null or
730: p_quote_access_tbl(counter).contact_point_id = FND_API.G_MISS_NUM)) THEN
731: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
732: IBE_UTIL.DEBUG('saving contact point for the current recipient record');
733: END IF;
734: l_call_save_contact_point := FND_API.G_TRUE;
730: p_quote_access_tbl(counter).contact_point_id = FND_API.G_MISS_NUM)) THEN
731: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
732: IBE_UTIL.DEBUG('saving contact point for the current recipient record');
733: END IF;
734: l_call_save_contact_point := FND_API.G_TRUE;
735:
736: --This is the case when the incoming B2B record has a valid contact_point_id
737: ELSIF((p_quote_access_tbl(counter).contact_point_id is not null )
738: and (p_quote_access_tbl(counter).contact_point_id <> FND_API.G_MISS_NUM)) THEN
734: l_call_save_contact_point := FND_API.G_TRUE;
735:
736: --This is the case when the incoming B2B record has a valid contact_point_id
737: ELSIF((p_quote_access_tbl(counter).contact_point_id is not null )
738: and (p_quote_access_tbl(counter).contact_point_id <> FND_API.G_MISS_NUM)) THEN
739: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
740: IBE_UTIL.DEBUG('Contact point Id found in the input quote access record');
741: END IF;
742: l_contact_point_id := p_quote_access_tbl(counter).contact_point_id;
741: END IF;
742: l_contact_point_id := p_quote_access_tbl(counter).contact_point_id;
743:
744: END IF;--save_contact_point
745: l_call_insert_handler := FND_API.G_TRUE;
746:
747: END IF;-- existing recip or new recip
748:
749: --Constructing the URL here
752: IBE_UTIL.DEBUG('URL of shared cart is: '||l_url);
753: END IF;
754:
755: --Saving the contact_point here
756: IF l_call_save_contact_point = FND_API.G_TRUE THEN
757: save_contact_point
758: ( p_api_version_number => P_Api_Version
759: ,p_init_msg_list => FND_API.G_FALSE
760: ,p_commit => FND_API.G_FALSE
755: --Saving the contact_point here
756: IF l_call_save_contact_point = FND_API.G_TRUE THEN
757: save_contact_point
758: ( p_api_version_number => P_Api_Version
759: ,p_init_msg_list => FND_API.G_FALSE
760: ,p_commit => FND_API.G_FALSE
761: ,P_EMAIL => p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS
762: ,p_owner_table_id => l_quote_recip_id
763: ,p_mode => 'EMAIL'
756: IF l_call_save_contact_point = FND_API.G_TRUE THEN
757: save_contact_point
758: ( p_api_version_number => P_Api_Version
759: ,p_init_msg_list => FND_API.G_FALSE
760: ,p_commit => FND_API.G_FALSE
761: ,P_EMAIL => p_quote_access_tbl(counter).EMAIL_CONTACT_ADDRESS
762: ,p_owner_table_id => l_quote_recip_id
763: ,p_mode => 'EMAIL'
764: ,x_contact_point_id => l_contact_point_id
764: ,x_contact_point_id => l_contact_point_id
765: ,x_return_status => x_return_status
766: ,x_msg_count => x_msg_count
767: ,x_msg_data => x_msg_data );
768: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
769: RAISE FND_API.G_EXC_ERROR;
770: END IF;
771: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: ,x_return_status => x_return_status
766: ,x_msg_count => x_msg_count
767: ,x_msg_data => x_msg_data );
768: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
769: RAISE FND_API.G_EXC_ERROR;
770: END IF;
771: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
767: ,x_msg_data => x_msg_data );
768: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
769: RAISE FND_API.G_EXC_ERROR;
770: END IF;
771: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
774:
775: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
768: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
769: RAISE FND_API.G_EXC_ERROR;
770: END IF;
771: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
774:
775: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
776: IBE_UTIL.DEBUG('Done saving contact point: '||l_contact_point_id);
778: l_quote_access_rec.contact_point_id := l_contact_point_id;
779:
780: END IF;-- l_call_save_contact_point
781:
782: IF (l_call_insert_handler = FND_API.G_TRUE) THEN
783: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
784: IBE_UTIL.DEBUG('calling ins handler ');
785: IBE_UTIL.DEBUG('p_quote_access_tbl(counter).recipient_name: '||p_quote_access_tbl(counter).recipient_name);
786: END IF;
799: END IF;
800: l_quote_access_rec.quote_sharee_id := l_quote_recip_id;
801: --calling the new shared cart notification API here
802:
803: IF ((p_send_notif = FND_API.G_TRUE) AND (p_quote_access_tbl(counter).notify_flag = FND_API.G_TRUE)) THEN
804: IBE_WORKFLOW_PVT.Notify_Shared_Cart(
805: p_api_version => p_api_version ,
806: p_init_msg_list => p_init_msg_list ,
807: p_quote_access_rec => l_quote_access_rec ,
812: x_return_status => x_return_status ,
813: x_msg_count => x_msg_count ,
814: x_msg_data => x_msg_data );
815:
816: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
817: RAISE FND_API.G_EXC_ERROR;
818: END IF;
819:
820: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
813: x_msg_count => x_msg_count ,
814: x_msg_data => x_msg_data );
815:
816: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
817: RAISE FND_API.G_EXC_ERROR;
818: END IF;
819:
820: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
816: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
817: RAISE FND_API.G_EXC_ERROR;
818: END IF;
819:
820: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823: END IF;
824:
817: RAISE FND_API.G_EXC_ERROR;
818: END IF;
819:
820: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823: END IF;
824:
825: --DBMS_OUTPUT.PUT_LINE('Done calling the new shared cart notification API ');
829: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
830: IBE_UTIL.DEBUG('Operation code in quote_access_table is UPDATE');
831: END IF;
832: IF((l_quote_access_rec.update_privilege_type_code is not null) and
833: (l_quote_access_rec.update_privilege_type_code <> FND_API.G_MISS_CHAR) and
834: (l_old_access_level <> l_quote_access_rec.update_privilege_type_code)) then
835: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
836: IBE_UTIL.DEBUG('Calling IBE_SH_QUOTE_ACCESS_PKG.Update_Row to update the recip record');
837: IBE_UTIL.DEBUG('p_quote_access_tbl(counter).quote_sharee_id: '||p_quote_access_tbl(counter).quote_sharee_id);
884: END LOOP; -- for c_check_active_cart
885: END IF; -- when privelege is read_only
886:
887: -- new access level is available in the quote access record
888: IF(p_quote_access_tbl(counter).notify_flag = FND_API.G_TRUE) THEN
889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
890: IBE_UTIL.DEBUG('Save_recipients: Ready to call Notify_access_change' );
891: END IF;
892: --dbms_output.put_line('Save_recipients: Ready to call Notify_access_change ');
902: x_return_status => x_return_status ,
903: x_msg_count => x_msg_count ,
904: x_msg_data => x_msg_data );
905:
906: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
903: x_msg_count => x_msg_count ,
904: x_msg_data => x_msg_data );
905:
906: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF; -- end if notify flag = true for notify access change email
914: ELSE
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF; -- end if notify flag = true for notify access change email
914: ELSE
915: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
919: IBE_UTIL.DEBUG('view_shared_cart: p_notes : ' || p_notes);
920: IBE_UTIL.DEBUG('view_shared_cart: l_quote_access_rec.qute_sharee_num: '||l_quote_access_rec.quote_sharee_number);
921: IBE_UTIL.DEBUG('view_shared_cart: l_quote_access_rec.party_id: '||l_quote_access_rec.party_id);
922: END IF;
923: IF ((p_quote_access_tbl(counter).notify_flag = FND_API.G_TRUE) AND
924: (nvl(l_quote_access_rec.party_id,-1) <> l_sharing_partyid)) THEN
925: l_quote_access_rec.UPDATE_PRIVILEGE_TYPE_CODE := l_old_access_level;
926: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
927: IBE_UTIL.DEBUG('l_quote_access_rec.UPDATE_PRIVILEGE_TYPE_CODE '||l_quote_access_rec.UPDATE_PRIVILEGE_TYPE_CODE);
936: p_sent_by_party_id => l_sharing_partyid ,
937: x_return_status => x_return_status ,
938: x_msg_count => x_msg_count ,
939: x_msg_data => x_msg_data );
940: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: x_return_status => x_return_status ,
938: x_msg_count => x_msg_count ,
939: x_msg_data => x_msg_data );
940: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
939: x_msg_data => x_msg_data );
940: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946: END IF; -- end if notify_flag = true for generic email
947: END IF; -- end if old access level is not diff from new access level
940: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946: END IF; -- end if notify_flag = true for generic email
947: END IF; -- end if old access level is not diff from new access level
948: ELSIF(p_quote_access_tbl(counter).operation_code = 'DELETE') then
963: x_return_status => x_return_status ,
964: x_msg_count => x_msg_count ,
965: x_msg_data => x_msg_data );
966:
967: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
964: x_msg_count => x_msg_count ,
965: x_msg_data => x_msg_data );
966:
967: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: END IF;
966:
967: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: END IF;
973: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
974: IBE_UTIL.DEBUG('Done calling delete_recipient');
967: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: END IF;
973: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
974: IBE_UTIL.DEBUG('Done calling delete_recipient');
975: END IF;
1003: ,p_owner_party_id => l_owner_partyid
1004: ,x_return_status => x_return_status
1005: ,x_msg_count => x_msg_count
1006: ,x_msg_data => x_msg_data );
1007: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1004: ,x_return_status => x_return_status
1005: ,x_msg_count => x_msg_count
1006: ,x_msg_data => x_msg_data );
1007: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1006: ,x_msg_data => x_msg_data );
1007: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013: END IF;
1014:
1007: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013: END IF;
1014:
1015: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.save_recipients: END ');
1014:
1015: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.save_recipients: END ');
1016:
1017: -- Standard check of p_commit.
1018: IF FND_API.To_Boolean( p_commit ) THEN
1019: COMMIT WORK;
1020: END IF;
1021:
1022: -- Standard call to get message count and if count is 1, get message info.
1019: COMMIT WORK;
1020: END IF;
1021:
1022: -- Standard call to get message count and if count is 1, get message info.
1023: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1024: p_count => x_msg_count ,
1025: p_data => x_msg_data);
1026: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1027: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.save_recipients: END');
1027: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.save_recipients: END');
1028: END IF;
1029:
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO SAVERECIPIENTS_V2;
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1035: p_count => x_msg_count ,
1029:
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO SAVERECIPIENTS_V2;
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1035: p_count => x_msg_count ,
1036: p_data => x_msg_data);
1037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO SAVERECIPIENTS_V2;
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1035: p_count => x_msg_count ,
1036: p_data => x_msg_data);
1037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1038: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.SAVE_RECIPIENTS()');
1037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1038: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.SAVE_RECIPIENTS()');
1039: END IF;
1040:
1041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1042: ROLLBACK TO SAVERECIPIENTS_V2;
1043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1044: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1045: p_count => x_msg_count ,
1039: END IF;
1040:
1041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1042: ROLLBACK TO SAVERECIPIENTS_V2;
1043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1044: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1045: p_count => x_msg_count ,
1046: p_data => x_msg_data);
1047: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1040:
1041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1042: ROLLBACK TO SAVERECIPIENTS_V2;
1043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1044: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1045: p_count => x_msg_count ,
1046: p_data => x_msg_data);
1047: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1048: IBE_Util.Debug('Unxpected error in IBE_QUOTE_SAVESHARE_V2_PVT.SAVE_RECIPIENTS()');
1049: END IF;
1050:
1051: WHEN OTHERS THEN
1052: ROLLBACK TO SAVERECIPIENTS_V2;
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1054: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1055: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1056: l_api_name);
1057: END IF;
1054: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1055: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1056: l_api_name);
1057: END IF;
1058: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1059: p_count => x_msg_count ,
1060: p_data => x_msg_data);
1061: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1062: IBE_Util.Debug('Unknown exception IBE_QUOTE_SAVESHARE_V2_PVT.SAVE_RECIPIENTS()');
1070: or Cart Details */
1071:
1072: Procedure activate_quote (
1073: P_Quote_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type ,
1074: P_Party_id IN NUMBER := FND_API.G_MISS_NUM ,
1075: P_Cust_account_id IN NUMBER := FND_API.G_MISS_NUM ,
1076: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1077: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
1078: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM ,
1071:
1072: Procedure activate_quote (
1073: P_Quote_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type ,
1074: P_Party_id IN NUMBER := FND_API.G_MISS_NUM ,
1075: P_Cust_account_id IN NUMBER := FND_API.G_MISS_NUM ,
1076: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1077: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
1078: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM ,
1079: p_api_version IN NUMBER := 1 ,
1074: P_Party_id IN NUMBER := FND_API.G_MISS_NUM ,
1075: P_Cust_account_id IN NUMBER := FND_API.G_MISS_NUM ,
1076: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1077: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
1078: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM ,
1079: p_api_version IN NUMBER := 1 ,
1080: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1081: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1082: x_return_status OUT NOCOPY VARCHAR2 ,
1076: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1077: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
1078: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM ,
1079: p_api_version IN NUMBER := 1 ,
1080: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1081: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1082: x_return_status OUT NOCOPY VARCHAR2 ,
1083: x_msg_count OUT NOCOPY NUMBER ,
1084: x_msg_data OUT NOCOPY VARCHAR2 ) is
1077: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
1078: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM ,
1079: p_api_version IN NUMBER := 1 ,
1080: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1081: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1082: x_return_status OUT NOCOPY VARCHAR2 ,
1083: x_msg_count OUT NOCOPY NUMBER ,
1084: x_msg_data OUT NOCOPY VARCHAR2 ) is
1085:
1096: l_qhac_quote_name VARCHAR2(2000) := null;
1097: l_cart_type VARCHAR2(2000) ;
1098: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATEQUOTE_V2';
1099: l_api_version CONSTANT NUMBER := 1.0;
1100: l_sharee_party_id NUMBER := FND_API.G_MISS_NUM;
1101: l_sharee_acct_id NUMBER := FND_API.G_MISS_NUM;
1102: l_sharee_number NUMBER := FND_API.G_MISS_NUM;
1103:
1104:
1097: l_cart_type VARCHAR2(2000) ;
1098: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATEQUOTE_V2';
1099: l_api_version CONSTANT NUMBER := 1.0;
1100: l_sharee_party_id NUMBER := FND_API.G_MISS_NUM;
1101: l_sharee_acct_id NUMBER := FND_API.G_MISS_NUM;
1102: l_sharee_number NUMBER := FND_API.G_MISS_NUM;
1103:
1104:
1105: cursor c_check_ac_aqa(c_party_id number,
1098: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATEQUOTE_V2';
1099: l_api_version CONSTANT NUMBER := 1.0;
1100: l_sharee_party_id NUMBER := FND_API.G_MISS_NUM;
1101: l_sharee_acct_id NUMBER := FND_API.G_MISS_NUM;
1102: l_sharee_number NUMBER := FND_API.G_MISS_NUM;
1103:
1104:
1105: cursor c_check_ac_aqa(c_party_id number,
1106: c_cust_account_id number) is
1131: -- Standard call to check for call compatibility.
1132: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1133: IBE_UTIL.DEBUG('Activate_quote:Before caling the compatible_api_call API');
1134: END IF;
1135: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1136: P_Api_Version,
1137: l_api_name,
1138: G_PKG_NAME )
1139: THEN
1136: P_Api_Version,
1137: l_api_name,
1138: G_PKG_NAME )
1139: THEN
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142: -- Initialize message list IF p_init_msg_list is set to TRUE.
1143: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1144: FND_MSG_PUB.initialize;
1139: THEN
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142: -- Initialize message list IF p_init_msg_list is set to TRUE.
1143: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1144: FND_MSG_PUB.initialize;
1145: END IF;
1146:
1147: -- Initialize API return status to success
1144: FND_MSG_PUB.initialize;
1145: END IF;
1146:
1147: -- Initialize API return status to success
1148: x_return_status := FND_API.G_RET_STS_SUCCESS;
1149:
1150:
1151: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1152: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.activate_quote: START');
1170: (p_quote_header_id => p_quote_header_rec.quote_header_id,
1171: p_party_id => p_party_id,
1172: p_cust_account_id => p_cust_account_id,
1173: p_quote_retrieval_number => p_retrieval_number,
1174: p_validate_user => FND_API.G_TRUE,
1175: p_last_update_date => p_quote_header_rec.last_update_date,
1176: x_return_status => x_return_status,
1177: x_msg_count => x_msg_count,
1178: x_msg_data => x_msg_data);
1176: x_return_status => x_return_status,
1177: x_msg_count => x_msg_count,
1178: x_msg_data => x_msg_data);
1179:
1180: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1177: x_msg_count => x_msg_count,
1178: x_msg_data => x_msg_data);
1179:
1180: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1180: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1186: END IF;
1187: --DBMS_OUTPUT.PUT_LINE('Opening the cursor to check active cart present in active carts table');
1188: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1186: END IF;
1187: --DBMS_OUTPUT.PUT_LINE('Opening the cursor to check active cart present in active carts table');
1188: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1189: IBE_UTIL.DEBUG('Opening the cursor to check active cart present in active carts table');
1205: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1206: IBE_UTIL.DEBUG('active cart present in active carts table l_ac_present: '||l_ac_present);
1207: END IF;
1208:
1209: IF(FND_API.G_TRUE=IBE_QUOTE_MISC_PVT.is_quote_usable(l_ac_present,p_party_id,p_cust_account_id)) THEN
1210: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1211: IBE_UTIL.DEBUG('current active cart is still validate.');
1212: IBE_UTIL.DEBUG('checking if it is a unnamed cart.');
1213: END IF;
1238: IBE_UTIL.DEBUG('renaming it to IBEDEFAULTNAMED...');
1239: END IF;
1240: IBE_Quote_Save_pvt.save(
1241: p_api_version_number => p_api_version ,
1242: p_init_msg_list => fnd_api.g_false ,
1243: p_commit => fnd_api.g_false ,
1244:
1245: p_qte_header_rec => l_Quote_header_rec ,
1246: --p_control_rec => l_control_rec ,
1239: END IF;
1240: IBE_Quote_Save_pvt.save(
1241: p_api_version_number => p_api_version ,
1242: p_init_msg_list => fnd_api.g_false ,
1243: p_commit => fnd_api.g_false ,
1244:
1245: p_qte_header_rec => l_Quote_header_rec ,
1246: --p_control_rec => l_control_rec ,
1247: x_quote_header_id => l_quote_header_id ,
1249:
1250: x_return_status => x_return_status ,
1251: x_msg_count => x_msg_count ,
1252: x_msg_data => x_msg_data);
1253: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1255: IBE_UTIL.DEBUG('failed to rename the cart.');
1256: END IF;
1257: RAISE FND_API.G_EXC_ERROR;
1253: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1255: IBE_UTIL.DEBUG('failed to rename the cart.');
1256: END IF;
1257: RAISE FND_API.G_EXC_ERROR;
1258: END IF;
1259:
1260: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1256: END IF;
1257: RAISE FND_API.G_EXC_ERROR;
1258: END IF;
1259:
1260: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1262: IBE_UTIL.DEBUG('failed to rename the cart, unexpected error.');
1263: END IF;
1264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1260: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1262: IBE_UTIL.DEBUG('failed to rename the cart, unexpected error.');
1263: END IF;
1264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1265: END IF;
1266:
1267: END IF;--l_qhac_quote_name = 'IBEUNNAMED'
1268: ELSE
1312: X_LAST_UPDATE_LOGIN => fnd_global.conc_login_id,
1313: X_ORG_ID => MO_GLOBAL.get_current_org_id());
1314: END IF;
1315:
1316: if ((P_control_rec.pricing_request_type <> FND_API.G_MISS_CHAR) or
1317: (P_control_rec.header_pricing_event <> FND_API.G_MISS_CHAR) or
1318: (P_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR) or
1319: (P_control_rec.CALCULATE_TAX_FLAG <> FND_API.G_MISS_CHAR) or
1320: (P_control_rec.CALCULATE_FREIGHT_CHARGE_FLAG <> FND_API.G_MISS_CHAR))
1313: X_ORG_ID => MO_GLOBAL.get_current_org_id());
1314: END IF;
1315:
1316: if ((P_control_rec.pricing_request_type <> FND_API.G_MISS_CHAR) or
1317: (P_control_rec.header_pricing_event <> FND_API.G_MISS_CHAR) or
1318: (P_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR) or
1319: (P_control_rec.CALCULATE_TAX_FLAG <> FND_API.G_MISS_CHAR) or
1320: (P_control_rec.CALCULATE_FREIGHT_CHARGE_FLAG <> FND_API.G_MISS_CHAR))
1321: then
1314: END IF;
1315:
1316: if ((P_control_rec.pricing_request_type <> FND_API.G_MISS_CHAR) or
1317: (P_control_rec.header_pricing_event <> FND_API.G_MISS_CHAR) or
1318: (P_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR) or
1319: (P_control_rec.CALCULATE_TAX_FLAG <> FND_API.G_MISS_CHAR) or
1320: (P_control_rec.CALCULATE_FREIGHT_CHARGE_FLAG <> FND_API.G_MISS_CHAR))
1321: then
1322: --1. re-price cart based on the state of control_rec
1315:
1316: if ((P_control_rec.pricing_request_type <> FND_API.G_MISS_CHAR) or
1317: (P_control_rec.header_pricing_event <> FND_API.G_MISS_CHAR) or
1318: (P_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR) or
1319: (P_control_rec.CALCULATE_TAX_FLAG <> FND_API.G_MISS_CHAR) or
1320: (P_control_rec.CALCULATE_FREIGHT_CHARGE_FLAG <> FND_API.G_MISS_CHAR))
1321: then
1322: --1. re-price cart based on the state of control_rec
1323: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1316: if ((P_control_rec.pricing_request_type <> FND_API.G_MISS_CHAR) or
1317: (P_control_rec.header_pricing_event <> FND_API.G_MISS_CHAR) or
1318: (P_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR) or
1319: (P_control_rec.CALCULATE_TAX_FLAG <> FND_API.G_MISS_CHAR) or
1320: (P_control_rec.CALCULATE_FREIGHT_CHARGE_FLAG <> FND_API.G_MISS_CHAR))
1321: then
1322: --1. re-price cart based on the state of control_rec
1323: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1324: IBE_UTIL.DEBUG('Calling SAVE');
1323: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1324: IBE_UTIL.DEBUG('Calling SAVE');
1325: IBE_UTIL.DEBUG('reprice cart based on the state of control_rec');
1326: END IF;
1327: if (p_retrieval_number <> FND_API.G_MISS_NUM) then
1328: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1329: IBE_UTIL.DEBUG('repricing as recipient; retrieval num: ' || p_retrieval_number);
1330: END IF;
1331:
1334: l_sharee_acct_id := p_cust_account_id;
1335: end if;
1336: IBE_Quote_Save_pvt.save(
1337: p_api_version_number => p_api_version ,
1338: p_init_msg_list => fnd_api.g_false ,
1339: p_commit => fnd_api.g_false ,
1340:
1341: p_qte_header_rec => p_Quote_header_rec ,
1342: p_control_rec => P_control_rec ,
1335: end if;
1336: IBE_Quote_Save_pvt.save(
1337: p_api_version_number => p_api_version ,
1338: p_init_msg_list => fnd_api.g_false ,
1339: p_commit => fnd_api.g_false ,
1340:
1341: p_qte_header_rec => p_Quote_header_rec ,
1342: p_control_rec => P_control_rec ,
1343:
1350:
1351: x_return_status => x_return_status ,
1352: x_msg_count => x_msg_count ,
1353: x_msg_data => x_msg_data);
1354: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1351: x_return_status => x_return_status ,
1352: x_msg_count => x_msg_count ,
1353: x_msg_data => x_msg_data);
1354: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: END IF;
1361: end if;
1362: ELSE
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: END IF;
1361: end if;
1362: ELSE
1363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1370: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.activate_quote: END');
1371: END IF;
1372:
1373: EXCEPTION
1374: WHEN FND_API.G_EXC_ERROR THEN
1375: ROLLBACK TO ACTIVATEQUOTE_V2;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1378: p_count => x_msg_count ,
1372:
1373: EXCEPTION
1374: WHEN FND_API.G_EXC_ERROR THEN
1375: ROLLBACK TO ACTIVATEQUOTE_V2;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1378: p_count => x_msg_count ,
1379: p_data => x_msg_data);
1380: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1373: EXCEPTION
1374: WHEN FND_API.G_EXC_ERROR THEN
1375: ROLLBACK TO ACTIVATEQUOTE_V2;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1378: p_count => x_msg_count ,
1379: p_data => x_msg_data);
1380: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1381: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.activate_quote()');
1380: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1381: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.activate_quote()');
1382: END IF;
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: ROLLBACK TO ACTIVATEQUOTE_V2;
1386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1387: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1388: p_count => x_msg_count ,
1382: END IF;
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: ROLLBACK TO ACTIVATEQUOTE_V2;
1386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1387: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1388: p_count => x_msg_count ,
1389: p_data => x_msg_data);
1390: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: ROLLBACK TO ACTIVATEQUOTE_V2;
1386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1387: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1388: p_count => x_msg_count ,
1389: p_data => x_msg_data);
1390: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1391: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.activate_quote()');
1392: END IF;
1393:
1394: WHEN OTHERS THEN
1395: ROLLBACK TO ACTIVATEQUOTE_V2;
1396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1397: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1398: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1399: l_api_name);
1400: END IF;
1397: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1398: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1399: l_api_name);
1400: END IF;
1401: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1402: p_count => x_msg_count ,
1403: p_data => x_msg_data);
1404: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1405: IBE_Util.Debug('Unknown error IBE_QUOTE_SAVESHARE_V2_PVT.activate_quote()');
1408: END;
1409:
1410: PROCEDURE save_contact_point(
1411: p_api_version_number IN NUMBER
1412: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1413: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1414: ,P_URL IN VARCHAR2 := FND_API.G_MISS_char
1415: ,P_EMAIL IN VARCHAR2 := FND_API.G_MISS_char
1416: ,p_owner_table_id IN NUMBER
1409:
1410: PROCEDURE save_contact_point(
1411: p_api_version_number IN NUMBER
1412: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1413: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1414: ,P_URL IN VARCHAR2 := FND_API.G_MISS_char
1415: ,P_EMAIL IN VARCHAR2 := FND_API.G_MISS_char
1416: ,p_owner_table_id IN NUMBER
1417: ,p_mode IN VARCHAR2
1410: PROCEDURE save_contact_point(
1411: p_api_version_number IN NUMBER
1412: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1413: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1414: ,P_URL IN VARCHAR2 := FND_API.G_MISS_char
1415: ,P_EMAIL IN VARCHAR2 := FND_API.G_MISS_char
1416: ,p_owner_table_id IN NUMBER
1417: ,p_mode IN VARCHAR2
1418: ,x_contact_point_id OUT NOCOPY NUMBER
1411: p_api_version_number IN NUMBER
1412: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1413: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1414: ,P_URL IN VARCHAR2 := FND_API.G_MISS_char
1415: ,P_EMAIL IN VARCHAR2 := FND_API.G_MISS_char
1416: ,p_owner_table_id IN NUMBER
1417: ,p_mode IN VARCHAR2
1418: ,x_contact_point_id OUT NOCOPY NUMBER
1419: ,X_Return_Status OUT NOCOPY VARCHAR2
1450: BEGIN
1451: -- Standard Start of API savepoint
1452: SAVEPOINT SAVECONTACTPOINT_PVT;
1453: -- Standard call to check for call compatibility.
1454: IF NOT FND_API.Compatible_API_Call (l_api_version,
1455: P_Api_Version_Number,
1456: l_api_name,
1457: G_PKG_NAME )
1458: THEN
1455: P_Api_Version_Number,
1456: l_api_name,
1457: G_PKG_NAME )
1458: THEN
1459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1460: END IF;
1461: -- Initialize message list IF p_init_msg_list is set to TRUE.
1462: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1463: FND_MSG_PUB.initialize;
1458: THEN
1459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1460: END IF;
1461: -- Initialize message list IF p_init_msg_list is set to TRUE.
1462: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1463: FND_MSG_PUB.initialize;
1464: END IF;
1465:
1466: -- Initialize API return status to success
1463: FND_MSG_PUB.initialize;
1464: END IF;
1465:
1466: -- Initialize API return status to success
1467: x_return_status := FND_API.G_RET_STS_SUCCESS;
1468:
1469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1470: IBE_UTIL.debug('Inside Save_contact_point API');
1471: END IF;
1508: END IF;
1509:
1510: --DBMS_OUTPUT.PUT_LINE('Create contact point ');
1511: hz_contact_point_v2pub.create_contact_point
1512: ( p_init_msg_list => FND_API.G_FALSE
1513: ,p_contact_point_rec => l_contact_points_rec
1514: ,p_web_rec => l_web_rec
1515: ,p_email_rec => l_email_rec
1516: ,x_contact_point_id => x_contact_point_id
1517: ,x_return_status => x_return_status
1518: ,x_msg_count => x_msg_count
1519: ,x_msg_data => x_msg_data
1520: );
1521: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1518: ,x_msg_count => x_msg_count
1519: ,x_msg_data => x_msg_data
1520: );
1521: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1526: END IF;
1520: );
1521: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1526: END IF;
1527: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1528: IBE_UTIL.DEBUG('done hz_conteact_point_pub.create_contact_points at'
1521: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1526: END IF;
1527: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1528: IBE_UTIL.DEBUG('done hz_conteact_point_pub.create_contact_points at'
1529: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
1542: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
1543: END IF;
1544:
1545: hz_contact_point_v2pub.update_contact_point(
1546: p_init_msg_list => FND_API.G_FALSE
1547: ,p_contact_point_rec => l_contact_points_rec
1548: ,p_web_rec => l_web_rec
1549: ,p_email_rec => l_email_rec
1550: ,p_object_version_number => l_object_version_number
1551: ,x_return_status => x_return_status
1552: ,x_msg_count => x_msg_count
1553: ,x_msg_data => x_msg_data);
1554:
1555: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1556: RAISE FND_API.G_EXC_ERROR;
1557: END IF;
1558:
1559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1552: ,x_msg_count => x_msg_count
1553: ,x_msg_data => x_msg_data);
1554:
1555: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1556: RAISE FND_API.G_EXC_ERROR;
1557: END IF;
1558:
1559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1555: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1556: RAISE FND_API.G_EXC_ERROR;
1557: END IF;
1558:
1559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1561: END IF;
1562: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1563: IBE_UTIL.DEBUG('done hz_conteact_point_pub.update_contact_points at'
1556: RAISE FND_API.G_EXC_ERROR;
1557: END IF;
1558:
1559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1561: END IF;
1562: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1563: IBE_UTIL.DEBUG('done hz_conteact_point_pub.update_contact_points at'
1564: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
1565: END IF;
1566: END IF;
1567:
1568: -- Standard check of p_commit.
1569: IF FND_API.To_Boolean( p_commit ) THEN
1570: COMMIT WORK;
1571: END IF;
1572:
1573: -- Standard call to get message count and IF count is 1, get message info.
1570: COMMIT WORK;
1571: END IF;
1572:
1573: -- Standard call to get message count and IF count is 1, get message info.
1574: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1575: p_count => x_msg_count,
1576: p_data => x_msg_data);
1577: EXCEPTION
1578: WHEN FND_API.G_EXC_ERROR THEN
1574: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1575: p_count => x_msg_count,
1576: p_data => x_msg_data);
1577: EXCEPTION
1578: WHEN FND_API.G_EXC_ERROR THEN
1579: ROLLBACK TO SAVECONTACTPOINT_PVT;
1580: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1581: IBE_UTIL.DEBUG('Expected exception in Ibe_quote_saveshare_v2_pvt.SaveContactPoint');
1582: end if;
1579: ROLLBACK TO SAVECONTACTPOINT_PVT;
1580: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1581: IBE_UTIL.DEBUG('Expected exception in Ibe_quote_saveshare_v2_pvt.SaveContactPoint');
1582: end if;
1583: x_return_status := FND_API.G_RET_STS_ERROR;
1584: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1585: p_count => x_msg_count,
1586: p_data => x_msg_data);
1587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1580: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1581: IBE_UTIL.DEBUG('Expected exception in Ibe_quote_saveshare_v2_pvt.SaveContactPoint');
1582: end if;
1583: x_return_status := FND_API.G_RET_STS_ERROR;
1584: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1585: p_count => x_msg_count,
1586: p_data => x_msg_data);
1587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1588: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1583: x_return_status := FND_API.G_RET_STS_ERROR;
1584: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1585: p_count => x_msg_count,
1586: p_data => x_msg_data);
1587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1588: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1589: IBE_UTIL.DEBUG('Unexpected exception in Ibe_quote_saveshare_v2_pvt.SaveContactPoint');
1590: end if;
1591:
1589: IBE_UTIL.DEBUG('Unexpected exception in Ibe_quote_saveshare_v2_pvt.SaveContactPoint');
1590: end if;
1591:
1592: ROLLBACK TO SAVECONTACTPOINT_PVT;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1595: p_count => x_msg_count,
1596: p_data => x_msg_data);
1597: WHEN OTHERS THEN
1590: end if;
1591:
1592: ROLLBACK TO SAVECONTACTPOINT_PVT;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1595: p_count => x_msg_count,
1596: p_data => x_msg_data);
1597: WHEN OTHERS THEN
1598: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1599: IBE_UTIL.DEBUG('Unknown exception in Ibe_quote_saveshare_v2_pvt.SaveContactPoint');
1600: end if;
1601:
1602: ROLLBACK TO SAVECONTACTPOINT_PVT;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604:
1605: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1606: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
1607: l_api_name);
1606: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
1607: l_api_name);
1608: END IF;
1609:
1610: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1611: p_count => x_msg_count,
1612: p_data => x_msg_data);
1613: END SAVE_CONTACT_POINT;
1614:
1619: -Other api's where the quote is no longer active (submit quote, request sales assistance, etc)*/
1620:
1621: Procedure deactivate_quote (
1622: P_Quote_header_id IN Number ,
1623: P_Party_id IN Number := FND_API.G_MISS_NUM ,
1624: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
1625: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1626: p_api_version IN NUMBER := 1 ,
1627: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1620:
1621: Procedure deactivate_quote (
1622: P_Quote_header_id IN Number ,
1623: P_Party_id IN Number := FND_API.G_MISS_NUM ,
1624: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
1625: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1626: p_api_version IN NUMBER := 1 ,
1627: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1628: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1621: Procedure deactivate_quote (
1622: P_Quote_header_id IN Number ,
1623: P_Party_id IN Number := FND_API.G_MISS_NUM ,
1624: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
1625: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1626: p_api_version IN NUMBER := 1 ,
1627: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1628: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1629: x_return_status OUT NOCOPY VARCHAR2 ,
1623: P_Party_id IN Number := FND_API.G_MISS_NUM ,
1624: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
1625: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1626: p_api_version IN NUMBER := 1 ,
1627: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1628: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1629: x_return_status OUT NOCOPY VARCHAR2 ,
1630: x_msg_count OUT NOCOPY NUMBER ,
1631: x_msg_data OUT NOCOPY VARCHAR2 ) is
1624: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
1625: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1626: p_api_version IN NUMBER := 1 ,
1627: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1628: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1629: x_return_status OUT NOCOPY VARCHAR2 ,
1630: x_msg_count OUT NOCOPY NUMBER ,
1631: x_msg_data OUT NOCOPY VARCHAR2 ) is
1632:
1647: BEGIN
1648:
1649: SAVEPOINT DEACTIVATEQUOTE_V2;
1650: -- Standard call to check for call compatibility.
1651: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1652: P_Api_Version,
1653: l_api_name,
1654: G_PKG_NAME )
1655: THEN
1652: P_Api_Version,
1653: l_api_name,
1654: G_PKG_NAME )
1655: THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: END IF;
1658: -- Initialize message list IF p_init_msg_list is set to TRUE.
1659: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1660: FND_MSG_PUB.initialize;
1655: THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: END IF;
1658: -- Initialize message list IF p_init_msg_list is set to TRUE.
1659: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1660: FND_MSG_PUB.initialize;
1661: END IF;
1662:
1663: -- Initialize API return status to success
1660: FND_MSG_PUB.initialize;
1661: END IF;
1662:
1663: -- Initialize API return status to success
1664: x_return_status := FND_API.G_RET_STS_SUCCESS;
1665: -------------------------------------------------------------------------------------------------------------
1666: --API Body start
1667: -------------------------------------------------------------------------------------------------------------
1668: --dbms_output.put_line(' Deactivate API: Trying to deactivate: '||rec_check_active_cart.quote_header_id);
1702: EXIT when c_check_active_cart%notfound;
1703: END LOOP; --for c_check_active_cart
1704:
1705: -- Standard check of p_commit.
1706: IF FND_API.To_Boolean( p_commit ) THEN
1707: COMMIT WORK;
1708: END IF;
1709:
1710: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1711: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.deactivate_quote: END');
1712: END IF;
1713:
1714: EXCEPTION
1715: WHEN FND_API.G_EXC_ERROR THEN
1716: ROLLBACK TO DEACTIVATEQUOTE_V2;
1717: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1718: IBE_UTIL.DEBUG('Expected exception in Ibe_quote_saveshare_v2_pvt.Deactivate_quote');
1719: end if;
1717: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1718: IBE_UTIL.DEBUG('Expected exception in Ibe_quote_saveshare_v2_pvt.Deactivate_quote');
1719: end if;
1720:
1721: x_return_status := FND_API.G_RET_STS_ERROR;
1722: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1723: p_count => x_msg_count ,
1724: p_data => x_msg_data);
1725: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1718: IBE_UTIL.DEBUG('Expected exception in Ibe_quote_saveshare_v2_pvt.Deactivate_quote');
1719: end if;
1720:
1721: x_return_status := FND_API.G_RET_STS_ERROR;
1722: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1723: p_count => x_msg_count ,
1724: p_data => x_msg_data);
1725: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1726: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.deactivate_quote');
1725: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1726: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.deactivate_quote');
1727: END IF;
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: ROLLBACK TO DEACTIVATEQUOTE_V2;
1731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1733: p_count => x_msg_count ,
1727: END IF;
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: ROLLBACK TO DEACTIVATEQUOTE_V2;
1731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1733: p_count => x_msg_count ,
1734: p_data => x_msg_data);
1735: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: ROLLBACK TO DEACTIVATEQUOTE_V2;
1731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1733: p_count => x_msg_count ,
1734: p_data => x_msg_data);
1735: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1736: IBE_Util.Debug('Unknown error in IBE_QUOTE_SAVESHARE_V2_PVT.deactivate_quote');
1737: END IF;
1738:
1739: WHEN OTHERS THEN
1740: ROLLBACK TO DEACTIVATEQUOTE_V2;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1743: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1744: l_api_name);
1745: END IF;
1742: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1743: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1744: l_api_name);
1745: END IF;
1746: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1747: p_count => x_msg_count ,
1748: p_data => x_msg_data);
1749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1750: IBE_Util.Debug('Abnormal end IBE_QUOTE_SAVESHARE_V2_PVT.deactivate_quote');
1762: P_source_last_update_date IN Date ,
1763: P_target_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type ,
1764: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1765: := ASO_QUOTE_PUB.G_MISS_Control_Rec ,
1766: P_delete_source_cart IN Varchar2 := FND_API.G_TRUE ,
1767: P_combinesameitem IN Varchar2 := FND_API.G_TRUE ,
1768: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1769: p_api_version IN NUMBER := 1 ,
1770: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1763: P_target_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type ,
1764: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1765: := ASO_QUOTE_PUB.G_MISS_Control_Rec ,
1766: P_delete_source_cart IN Varchar2 := FND_API.G_TRUE ,
1767: P_combinesameitem IN Varchar2 := FND_API.G_TRUE ,
1768: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1769: p_api_version IN NUMBER := 1 ,
1770: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1771: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1764: P_control_rec IN ASO_QUOTE_PUB.control_rec_type
1765: := ASO_QUOTE_PUB.G_MISS_Control_Rec ,
1766: P_delete_source_cart IN Varchar2 := FND_API.G_TRUE ,
1767: P_combinesameitem IN Varchar2 := FND_API.G_TRUE ,
1768: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1769: p_api_version IN NUMBER := 1 ,
1770: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1771: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1772: x_return_status OUT NOCOPY VARCHAR2 ,
1766: P_delete_source_cart IN Varchar2 := FND_API.G_TRUE ,
1767: P_combinesameitem IN Varchar2 := FND_API.G_TRUE ,
1768: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1769: p_api_version IN NUMBER := 1 ,
1770: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1771: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1772: x_return_status OUT NOCOPY VARCHAR2 ,
1773: x_msg_count OUT NOCOPY NUMBER ,
1774: x_msg_data OUT NOCOPY VARCHAR2 ) is
1767: P_combinesameitem IN Varchar2 := FND_API.G_TRUE ,
1768: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1769: p_api_version IN NUMBER := 1 ,
1770: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1771: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1772: x_return_status OUT NOCOPY VARCHAR2 ,
1773: x_msg_count OUT NOCOPY NUMBER ,
1774: x_msg_data OUT NOCOPY VARCHAR2 ) is
1775:
1794: BEGIN
1795:
1796: SAVEPOINT APPENDQUOTE_V2;
1797: -- Standard call to check for call compatibility.
1798: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1799: P_Api_Version,
1800: l_api_name,
1801: G_PKG_NAME )
1802: THEN
1799: P_Api_Version,
1800: l_api_name,
1801: G_PKG_NAME )
1802: THEN
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: END IF;
1805: -- Initialize message list IF p_init_msg_list is set to TRUE.
1806: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1807: FND_MSG_PUB.initialize;
1802: THEN
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: END IF;
1805: -- Initialize message list IF p_init_msg_list is set to TRUE.
1806: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1807: FND_MSG_PUB.initialize;
1808: END IF;
1809:
1810: -- Initialize API return status to success
1807: FND_MSG_PUB.initialize;
1808: END IF;
1809:
1810: -- Initialize API return status to success
1811: x_return_status := FND_API.G_RET_STS_SUCCESS;
1812: -------------------------------------------------------------------------------------------------------------
1813: --API Body start
1814: -------------------------------------------------------------------------------------------------------------
1815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1817: END IF;
1818:
1819: IBE_Quote_Misc_pvt.validate_user_update
1820: (p_quote_header_id => P_source_quote_header_id,
1821: p_validate_user => FND_API.G_TRUE,
1822: x_return_status => x_return_status,
1823: x_msg_count => x_msg_count,
1824: x_msg_data => x_msg_data);
1825:
1822: x_return_status => x_return_status,
1823: x_msg_count => x_msg_count,
1824: x_msg_data => x_msg_data);
1825:
1826: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1823: x_msg_count => x_msg_count,
1824: x_msg_data => x_msg_data);
1825:
1826: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1826: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1835: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE:Calling IBE_QUOTE_SAVESHARE_pvt.Copy_lines');
1837: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE:Calling IBE_QUOTE_SAVESHARE_pvt.Copy_lines ');
1838:
1839: IBE_QUOTE_SAVESHARE_pvt.COPY_LINES(
1840: p_api_version_number => p_api_version ,
1841: p_init_msg_list => FND_API.G_FALSE ,
1842: p_commit => FND_API.G_FALSE ,
1843:
1844: X_Return_Status => X_Return_Status ,
1845: X_Msg_Count => X_Msg_Count ,
1838:
1839: IBE_QUOTE_SAVESHARE_pvt.COPY_LINES(
1840: p_api_version_number => p_api_version ,
1841: p_init_msg_list => FND_API.G_FALSE ,
1842: p_commit => FND_API.G_FALSE ,
1843:
1844: X_Return_Status => X_Return_Status ,
1845: X_Msg_Count => X_Msg_Count ,
1846: X_Msg_Data => X_Msg_Data ,
1854: x_ln_price_attributes_tbl => l_ln_price_attributes_tbl ,
1855: x_Price_Adjustment_tbl => l_Price_Adjustment_tbl ,
1856: x_Price_Adj_Rltship_tbl => l_Price_Adj_Rltship_tbl );
1857:
1858: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1855: x_Price_Adjustment_tbl => l_Price_Adjustment_tbl ,
1856: x_Price_Adj_Rltship_tbl => l_Price_Adj_Rltship_tbl );
1857:
1858: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: END IF;
1857:
1858: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: END IF;
1864: --DBMS_OUTPUT.PUT_LINE('copy_lines done ');
1865: --DBMS_OUTPUT.PUT_LINE('immediately after copy_lines p_target_header_rec.quote_header_id '||p_target_header_rec.quote_header_id);
1858: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: END IF;
1864: --DBMS_OUTPUT.PUT_LINE('copy_lines done ');
1865: --DBMS_OUTPUT.PUT_LINE('immediately after copy_lines p_target_header_rec.quote_header_id '||p_target_header_rec.quote_header_id);
1866:
1875: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: Calling IBE_Quote_Save_pvt.Save to save target cart ');
1876: --DBMS_OUTPUT.PUT_LINE('before save p_target_header_rec.quote_header_id '||p_target_header_rec.quote_header_id);
1877: IBE_Quote_Save_pvt.SAVE
1878: ( p_api_version_number => p_api_version
1879: ,p_init_msg_list => FND_API.G_FALSE
1880: ,p_commit => FND_API.G_FALSE
1881: ,p_qte_header_rec => p_target_header_rec
1882: ,p_Qte_Line_Tbl => l_qte_line_tbl
1883: ,p_Qte_Line_Dtl_Tbl => l_qte_line_dtl_tbl
1876: --DBMS_OUTPUT.PUT_LINE('before save p_target_header_rec.quote_header_id '||p_target_header_rec.quote_header_id);
1877: IBE_Quote_Save_pvt.SAVE
1878: ( p_api_version_number => p_api_version
1879: ,p_init_msg_list => FND_API.G_FALSE
1880: ,p_commit => FND_API.G_FALSE
1881: ,p_qte_header_rec => p_target_header_rec
1882: ,p_Qte_Line_Tbl => l_qte_line_tbl
1883: ,p_Qte_Line_Dtl_Tbl => l_qte_line_dtl_tbl
1884: ,p_Line_Attr_Ext_Tbl => l_line_attr_ext_tbl
1892: ,x_return_status => x_return_status
1893: ,x_msg_count => x_msg_count
1894: ,x_msg_data => x_msg_data) ;
1895: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: Done save ');
1896: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1893: ,x_msg_count => x_msg_count
1894: ,x_msg_data => x_msg_data) ;
1895: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: Done save ');
1896: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1901: END IF;
1895: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: Done save ');
1896: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1901: END IF;
1902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1903: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: P_delete_source_cart: '||P_delete_source_cart);
1896: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1901: END IF;
1902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1903: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: P_delete_source_cart: '||P_delete_source_cart);
1904: END IF;
1901: END IF;
1902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1903: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: P_delete_source_cart: '||P_delete_source_cart);
1904: END IF;
1905: IF (P_delete_source_cart = FND_API.G_TRUE ) THEN
1906: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1907: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: P_delete_source_cart is true');
1908: END IF;
1909: IBE_Quote_Save_pvt.Delete(
1907: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: P_delete_source_cart is true');
1908: END IF;
1909: IBE_Quote_Save_pvt.Delete(
1910: p_api_version_number => p_api_version
1911: ,p_init_msg_list => FND_API.G_FALSE
1912: ,p_commit => FND_API.G_FALSE
1913: ,x_return_status => x_return_status
1914: ,x_msg_count => x_msg_count
1915: ,x_msg_data => x_msg_data
1908: END IF;
1909: IBE_Quote_Save_pvt.Delete(
1910: p_api_version_number => p_api_version
1911: ,p_init_msg_list => FND_API.G_FALSE
1912: ,p_commit => FND_API.G_FALSE
1913: ,x_return_status => x_return_status
1914: ,x_msg_count => x_msg_count
1915: ,x_msg_data => x_msg_data
1916: ,p_quote_header_id => P_source_quote_header_id
1913: ,x_return_status => x_return_status
1914: ,x_msg_count => x_msg_count
1915: ,x_msg_data => x_msg_data
1916: ,p_quote_header_id => P_source_quote_header_id
1917: ,p_expunge_flag => FND_API.G_FALSE
1918: ,p_minisite_id => p_minisite_id
1919: ,p_last_update_date => P_source_last_update_date);
1920:
1921: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1917: ,p_expunge_flag => FND_API.G_FALSE
1918: ,p_minisite_id => p_minisite_id
1919: ,p_last_update_date => P_source_last_update_date);
1920:
1921: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: ,p_minisite_id => p_minisite_id
1919: ,p_last_update_date => P_source_last_update_date);
1920:
1921: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1926: END IF;
1920:
1921: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1926: END IF;
1927: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1928: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE:Delete on source cart done');
1921: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1926: END IF;
1927: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1928: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE:Delete on source cart done');
1929: END IF;
1933: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.APPEND_QUOTE: END');
1934: END IF;
1935:
1936: EXCEPTION
1937: WHEN FND_API.G_EXC_ERROR THEN
1938: ROLLBACK TO APPENDQUOTE_V2;
1939: x_return_status := FND_API.G_RET_STS_ERROR;
1940: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1941: p_count => x_msg_count ,
1935:
1936: EXCEPTION
1937: WHEN FND_API.G_EXC_ERROR THEN
1938: ROLLBACK TO APPENDQUOTE_V2;
1939: x_return_status := FND_API.G_RET_STS_ERROR;
1940: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1941: p_count => x_msg_count ,
1942: p_data => x_msg_data);
1943: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1936: EXCEPTION
1937: WHEN FND_API.G_EXC_ERROR THEN
1938: ROLLBACK TO APPENDQUOTE_V2;
1939: x_return_status := FND_API.G_RET_STS_ERROR;
1940: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1941: p_count => x_msg_count ,
1942: p_data => x_msg_data);
1943: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1944: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.append_quote()');
1943: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1944: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.append_quote()');
1945: END IF;
1946:
1947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1948: ROLLBACK TO APPENDQUOTE_V2;
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1951: p_count => x_msg_count ,
1945: END IF;
1946:
1947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1948: ROLLBACK TO APPENDQUOTE_V2;
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1951: p_count => x_msg_count ,
1952: p_data => x_msg_data);
1953: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1946:
1947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1948: ROLLBACK TO APPENDQUOTE_V2;
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1951: p_count => x_msg_count ,
1952: p_data => x_msg_data);
1953: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1954: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.append_quote()');
1955: END IF;
1956:
1957: WHEN OTHERS THEN
1958: ROLLBACK TO APPENDQUOTE_V2;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1961: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1962: l_api_name);
1963: END IF;
1960: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1961: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1962: l_api_name);
1963: END IF;
1964: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1965: p_count => x_msg_count ,
1966: p_data => x_msg_data);
1967: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1968: IBE_Util.Debug('Abnormal end IBE_QUOTE_SAVESHARE_V2_PVT.append_quote()');
1978:
1979: Procedure stop_sharing (
1980: p_quote_header_id IN Number ,
1981: p_delete_context IN VARCHAR2 := 'IBE_SC_CART_STOPSHARING' ,
1982: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1983: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
1984: p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
1985: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl,
1986: p_api_version IN NUMBER := 1 ,
1979: Procedure stop_sharing (
1980: p_quote_header_id IN Number ,
1981: p_delete_context IN VARCHAR2 := 'IBE_SC_CART_STOPSHARING' ,
1982: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
1983: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
1984: p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
1985: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl,
1986: p_api_version IN NUMBER := 1 ,
1987: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1983: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
1984: p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
1985: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl,
1986: p_api_version IN NUMBER := 1 ,
1987: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1988: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1989: x_return_status OUT NOCOPY VARCHAR2 ,
1990: x_msg_count OUT NOCOPY NUMBER ,
1991: x_msg_data OUT NOCOPY VARCHAR2 ) is
1984: p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
1985: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl,
1986: p_api_version IN NUMBER := 1 ,
1987: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1988: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1989: x_return_status OUT NOCOPY VARCHAR2 ,
1990: x_msg_count OUT NOCOPY NUMBER ,
1991: x_msg_data OUT NOCOPY VARCHAR2 ) is
1992:
2046:
2047: BEGIN
2048: SAVEPOINT STOPSHARING_V2;
2049: -- Standard call to check for call compatibility.
2050: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2051: P_Api_Version,
2052: l_api_name,
2053: G_PKG_NAME )
2054: THEN
2051: P_Api_Version,
2052: l_api_name,
2053: G_PKG_NAME )
2054: THEN
2055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2056: END IF;
2057: -- Initialize message list IF p_init_msg_list is set to TRUE.
2058: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2059: FND_MSG_PUB.initialize;
2054: THEN
2055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2056: END IF;
2057: -- Initialize message list IF p_init_msg_list is set to TRUE.
2058: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2059: FND_MSG_PUB.initialize;
2060: END IF;
2061:
2062: -- Initialize API return status to success
2059: FND_MSG_PUB.initialize;
2060: END IF;
2061:
2062: -- Initialize API return status to success
2063: x_return_status := FND_API.G_RET_STS_SUCCESS;
2064: -------------------------------------------------------------------------------------------------------------
2065: --API Body start
2066: -------------------------------------------------------------------------------------------------------------
2067: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2087: P_Party_id => l_owner_party_id ,
2088: P_Cust_account_id => l_owner_cust_account_id ,
2089: P_minisite_id => p_minisite_id ,
2090: p_api_version => p_api_version ,
2091: p_init_msg_list => fnd_api.g_false ,
2092: p_commit => fnd_api.g_false ,
2093: x_return_status => x_return_status ,
2094: x_msg_count => x_msg_count ,
2095: x_msg_data => x_msg_data );
2088: P_Cust_account_id => l_owner_cust_account_id ,
2089: P_minisite_id => p_minisite_id ,
2090: p_api_version => p_api_version ,
2091: p_init_msg_list => fnd_api.g_false ,
2092: p_commit => fnd_api.g_false ,
2093: x_return_status => x_return_status ,
2094: x_msg_count => x_msg_count ,
2095: x_msg_data => x_msg_data );
2096: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2092: p_commit => fnd_api.g_false ,
2093: x_return_status => x_return_status ,
2094: x_msg_count => x_msg_count ,
2095: x_msg_data => x_msg_data );
2096: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2097: RAISE FND_API.G_EXC_ERROR;
2098: END IF;
2099:
2100: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2093: x_return_status => x_return_status ,
2094: x_msg_count => x_msg_count ,
2095: x_msg_data => x_msg_data );
2096: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2097: RAISE FND_API.G_EXC_ERROR;
2098: END IF;
2099:
2100: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2096: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2097: RAISE FND_API.G_EXC_ERROR;
2098: END IF;
2099:
2100: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2104: IBE_UTIL.DEBUG('STOP_SHARING:Deactivation of owner cart :Done');
2097: RAISE FND_API.G_EXC_ERROR;
2098: END IF;
2099:
2100: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2104: IBE_UTIL.DEBUG('STOP_SHARING:Deactivation of owner cart :Done');
2105: END IF;
2171: x_return_status => x_return_status ,
2172: x_msg_count => x_msg_count ,
2173: x_msg_data => x_msg_data );
2174:
2175: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2172: x_msg_count => x_msg_count ,
2173: x_msg_data => x_msg_data );
2174:
2175: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2174:
2175: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2181:
2182: END LOOP;
2175: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2181:
2182: END LOOP;
2183: --This is to delete any new recipients who got added while we were trying to delete existing recipients.
2193: l_quote_access_tbl_tmp(tbl_counter).quote_header_id := p_quote_header_id;
2194: l_quote_access_tbl_tmp(tbl_counter).quote_sharee_number := rec_get_recipients.quote_sharee_number;
2195: l_quote_access_tbl_tmp(tbl_counter).email_contact_address := rec_get_recipients.email_address;
2196: l_quote_access_tbl_tmp(tbl_counter).shared_by_party_id := rec_get_recipients.shared_by_party_id;
2197: l_quote_access_tbl_tmp(tbl_counter).notify_flag := FND_API.G_FALSE;
2198: tbl_counter := tbl_counter+1;
2199: EXIT when c_get_recipients%notfound;
2200: END LOOP;
2201:
2212: IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT(
2213: P_Quote_access_rec => l_quote_access_tbl_tmp(i) ,
2214: p_minisite_id => p_minisite_id ,
2215: p_delete_code => p_delete_context ,
2216: p_notes => FND_API.G_MISS_CHAR ,
2217: x_return_status => x_return_status ,
2218: x_msg_count => x_msg_count ,
2219: x_msg_data => x_msg_data );
2220:
2217: x_return_status => x_return_status ,
2218: x_msg_count => x_msg_count ,
2219: x_msg_data => x_msg_data );
2220:
2221: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2222: RAISE FND_API.G_EXC_ERROR;
2223: END IF;
2224: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2218: x_msg_count => x_msg_count ,
2219: x_msg_data => x_msg_data );
2220:
2221: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2222: RAISE FND_API.G_EXC_ERROR;
2223: END IF;
2224: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2226: END IF;
2220:
2221: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2222: RAISE FND_API.G_EXC_ERROR;
2223: END IF;
2224: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2226: END IF;
2227: END LOOP;
2228: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2221: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2222: RAISE FND_API.G_EXC_ERROR;
2223: END IF;
2224: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2226: END IF;
2227: END LOOP;
2228: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2229: IBE_UTIL.DEBUG('STOP_SHARING: Concurrency part ends');
2234: END IF;
2235:
2236: EXCEPTION
2237:
2238: WHEN FND_API.G_EXC_ERROR THEN
2239: ROLLBACK TO STOPSHARING_V2;
2240: x_return_status := FND_API.G_RET_STS_ERROR;
2241: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2242: p_count => x_msg_count ,
2236: EXCEPTION
2237:
2238: WHEN FND_API.G_EXC_ERROR THEN
2239: ROLLBACK TO STOPSHARING_V2;
2240: x_return_status := FND_API.G_RET_STS_ERROR;
2241: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2242: p_count => x_msg_count ,
2243: p_data => x_msg_data);
2244: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2237:
2238: WHEN FND_API.G_EXC_ERROR THEN
2239: ROLLBACK TO STOPSHARING_V2;
2240: x_return_status := FND_API.G_RET_STS_ERROR;
2241: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2242: p_count => x_msg_count ,
2243: p_data => x_msg_data);
2244: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2245: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.STOPSHARING_V2');
2244: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2245: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.STOPSHARING_V2');
2246: END IF;
2247:
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ROLLBACK TO STOPSHARING_V2;
2250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2251: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count ,
2246: END IF;
2247:
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ROLLBACK TO STOPSHARING_V2;
2250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2251: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count ,
2253: p_data => x_msg_data);
2254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2247:
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ROLLBACK TO STOPSHARING_V2;
2250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2251: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count ,
2253: p_data => x_msg_data);
2254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2255: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.STOPSHARING_V2');
2256: END IF;
2257:
2258: WHEN OTHERS THEN
2259: ROLLBACK TO STOPSHARING_V2;
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2262: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2263: l_api_name);
2264: END IF;
2261: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2262: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2263: l_api_name);
2264: END IF;
2265: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2266: p_count => x_msg_count ,
2267: p_data => x_msg_data);
2268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2269: IBE_Util.Debug('Unknown error in IBE_QUOTE_SAVESHARE_V2_PVT.STOPSHARING_V2');
2278: Procedure end_working (
2279: p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
2280: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl ,
2281: P_Quote_header_id IN Number ,
2282: P_Party_id IN Number := FND_API.G_MISS_NUM ,
2283: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
2284: p_retrieval_number IN Number := FND_API.G_MISS_NUM ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2279: p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
2280: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl ,
2281: P_Quote_header_id IN Number ,
2282: P_Party_id IN Number := FND_API.G_MISS_NUM ,
2283: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
2284: p_retrieval_number IN Number := FND_API.G_MISS_NUM ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2280: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl ,
2281: P_Quote_header_id IN Number ,
2282: P_Party_id IN Number := FND_API.G_MISS_NUM ,
2283: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
2284: p_retrieval_number IN Number := FND_API.G_MISS_NUM ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2288: p_api_version IN NUMBER := 1 ,
2281: P_Quote_header_id IN Number ,
2282: P_Party_id IN Number := FND_API.G_MISS_NUM ,
2283: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
2284: p_retrieval_number IN Number := FND_API.G_MISS_NUM ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2288: p_api_version IN NUMBER := 1 ,
2289: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2282: P_Party_id IN Number := FND_API.G_MISS_NUM ,
2283: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
2284: p_retrieval_number IN Number := FND_API.G_MISS_NUM ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2288: p_api_version IN NUMBER := 1 ,
2289: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2290: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2283: P_Cust_account_id IN Number := FND_API.G_MISS_NUM ,
2284: p_retrieval_number IN Number := FND_API.G_MISS_NUM ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2288: p_api_version IN NUMBER := 1 ,
2289: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2290: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2291: x_return_status OUT NOCOPY VARCHAR2 ,
2285: P_URL IN Varchar2 := FND_API.G_MISS_CHAR ,
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2288: p_api_version IN NUMBER := 1 ,
2289: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2290: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2291: x_return_status OUT NOCOPY VARCHAR2 ,
2292: x_msg_count OUT NOCOPY NUMBER ,
2293: x_msg_data OUT NOCOPY VARCHAR2 ) is
2286: P_minisite_id IN Number := FND_API.G_MISS_NUM ,
2287: p_notes IN Varchar2 := FND_API.G_MISS_CHAR ,
2288: p_api_version IN NUMBER := 1 ,
2289: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2290: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2291: x_return_status OUT NOCOPY VARCHAR2 ,
2292: x_msg_count OUT NOCOPY NUMBER ,
2293: x_msg_data OUT NOCOPY VARCHAR2 ) is
2294:
2330:
2331: BEGIN
2332: SAVEPOINT ENDWORKING_V2;
2333: -- Standard call to check for call compatibility.
2334: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2335: P_Api_Version,
2336: l_api_name,
2337: G_PKG_NAME )
2338: THEN
2335: P_Api_Version,
2336: l_api_name,
2337: G_PKG_NAME )
2338: THEN
2339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2340: END IF;
2341: -- Initialize message list IF p_init_msg_list is set to TRUE.
2342: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2343: FND_MSG_PUB.initialize;
2338: THEN
2339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2340: END IF;
2341: -- Initialize message list IF p_init_msg_list is set to TRUE.
2342: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2343: FND_MSG_PUB.initialize;
2344: END IF;
2345:
2346: -- Initialize API return status to success
2343: FND_MSG_PUB.initialize;
2344: END IF;
2345:
2346: -- Initialize API return status to success
2347: x_return_status := FND_API.G_RET_STS_SUCCESS;
2348: -----------------------------------------------------------------------------------------
2349: --API Body start
2350: -----------------------------------------------------------------------------------------
2351: -- l_quote_access_rec := p_quote_access_rec;
2393: x_return_status => x_return_status ,
2394: x_msg_count => x_msg_count ,
2395: x_msg_data => x_msg_data );
2396:
2397: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2398: RAISE FND_API.G_EXC_ERROR;
2399: END IF;
2400: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2394: x_msg_count => x_msg_count ,
2395: x_msg_data => x_msg_data );
2396:
2397: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2398: RAISE FND_API.G_EXC_ERROR;
2399: END IF;
2400: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2396:
2397: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2398: RAISE FND_API.G_EXC_ERROR;
2399: END IF;
2400: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403:
2404: FOR counter in 1..p_quote_access_tbl.count LOOP
2397: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2398: RAISE FND_API.G_EXC_ERROR;
2399: END IF;
2400: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403:
2404: FOR counter in 1..p_quote_access_tbl.count LOOP
2405: IF ((l_quote_access_tbl(counter).notify_flag = FND_API.G_TRUE) AND
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403:
2404: FOR counter in 1..p_quote_access_tbl.count LOOP
2405: IF ((l_quote_access_tbl(counter).notify_flag = FND_API.G_TRUE) AND
2406: (l_quote_access_rec.quote_sharee_id <> l_quote_access_tbl(counter).quote_sharee_id)) THEN
2407:
2408: FOR rec_get_recipient_party in c_get_recipient_party(p_quote_access_tbl(counter).quote_sharee_id) LOOP
2409: l_quote_access_rec_recip.party_id := rec_get_recipient_party.party_id;
2437: ,p_sent_by_party_id => l_initiator_id
2438: ,x_return_status => x_return_status
2439: ,x_msg_count => x_msg_count
2440: ,x_msg_data => x_msg_data );
2441: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2442: RAISE FND_API.G_EXC_ERROR;
2443: END IF;
2444: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2438: ,x_return_status => x_return_status
2439: ,x_msg_count => x_msg_count
2440: ,x_msg_data => x_msg_data );
2441: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2442: RAISE FND_API.G_EXC_ERROR;
2443: END IF;
2444: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2446: END IF;
2440: ,x_msg_data => x_msg_data );
2441: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2442: RAISE FND_API.G_EXC_ERROR;
2443: END IF;
2444: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2446: END IF;
2447: END IF;
2448: END LOOP;
2441: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2442: RAISE FND_API.G_EXC_ERROR;
2443: END IF;
2444: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2446: END IF;
2447: END IF;
2448: END LOOP;
2449:
2451: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.END_WORKING: END');
2452: END IF;
2453: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.END_WORKING: END ');
2454: EXCEPTION
2455: WHEN FND_API.G_EXC_ERROR THEN
2456: ROLLBACK TO ENDWORKING_V2;
2457: x_return_status := FND_API.G_RET_STS_ERROR;
2458: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2459: p_count => x_msg_count ,
2453: --DBMS_OUTPUT.PUT_LINE('IBE_QUOTE_SAVESHARE_V2_PVT.END_WORKING: END ');
2454: EXCEPTION
2455: WHEN FND_API.G_EXC_ERROR THEN
2456: ROLLBACK TO ENDWORKING_V2;
2457: x_return_status := FND_API.G_RET_STS_ERROR;
2458: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2459: p_count => x_msg_count ,
2460: p_data => x_msg_data);
2461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2454: EXCEPTION
2455: WHEN FND_API.G_EXC_ERROR THEN
2456: ROLLBACK TO ENDWORKING_V2;
2457: x_return_status := FND_API.G_RET_STS_ERROR;
2458: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2459: p_count => x_msg_count ,
2460: p_data => x_msg_data);
2461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2462: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.ENDWORKING');
2461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2462: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.ENDWORKING');
2463: END IF;
2464:
2465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2466: ROLLBACK TO ENDWORKING_V2;
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2469: p_count => x_msg_count ,
2463: END IF;
2464:
2465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2466: ROLLBACK TO ENDWORKING_V2;
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2469: p_count => x_msg_count ,
2470: p_data => x_msg_data);
2471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2464:
2465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2466: ROLLBACK TO ENDWORKING_V2;
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2469: p_count => x_msg_count ,
2470: p_data => x_msg_data);
2471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2472: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.ENDWORKING)');
2473: END IF;
2474:
2475: WHEN OTHERS THEN
2476: ROLLBACK TO ENDWORKING_V2;
2477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2478: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2479: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2480: l_api_name);
2481: END IF;
2478: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2479: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2480: l_api_name);
2481: END IF;
2482: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count ,
2484: p_data => x_msg_data);
2485: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2486: IBE_Util.Debug('Unknown error in IBE_QUOTE_SAVESHARE_V2_PVT.ENDWORKING');
2493: -Status changes from "cart" to"quote" - request sales assistance, contract cart
2494: */
2495: Procedure share_readonly (
2496: p_quote_header_id IN Number ,
2497: P_minisite_id IN Number := FND_API.G_MISS_NUM,
2498: p_url IN Varchar2 := FND_API.G_MISS_CHAR,
2499: p_api_version IN NUMBER := 1 ,
2500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2501: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2494: */
2495: Procedure share_readonly (
2496: p_quote_header_id IN Number ,
2497: P_minisite_id IN Number := FND_API.G_MISS_NUM,
2498: p_url IN Varchar2 := FND_API.G_MISS_CHAR,
2499: p_api_version IN NUMBER := 1 ,
2500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2501: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2502: x_return_status OUT NOCOPY VARCHAR2 ,
2496: p_quote_header_id IN Number ,
2497: P_minisite_id IN Number := FND_API.G_MISS_NUM,
2498: p_url IN Varchar2 := FND_API.G_MISS_CHAR,
2499: p_api_version IN NUMBER := 1 ,
2500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2501: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2502: x_return_status OUT NOCOPY VARCHAR2 ,
2503: x_msg_count OUT NOCOPY NUMBER ,
2504: x_msg_data OUT NOCOPY VARCHAR2 ) is
2497: P_minisite_id IN Number := FND_API.G_MISS_NUM,
2498: p_url IN Varchar2 := FND_API.G_MISS_CHAR,
2499: p_api_version IN NUMBER := 1 ,
2500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2501: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2502: x_return_status OUT NOCOPY VARCHAR2 ,
2503: x_msg_count OUT NOCOPY NUMBER ,
2504: x_msg_data OUT NOCOPY VARCHAR2 ) is
2505:
2525: BEGIN
2526:
2527: SAVEPOINT SHAREREADONLY_V2;
2528: -- Standard call to check for call compatibility.
2529: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2530: P_Api_Version,
2531: l_api_name,
2532: G_PKG_NAME )
2533: THEN
2530: P_Api_Version,
2531: l_api_name,
2532: G_PKG_NAME )
2533: THEN
2534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2535: END IF;
2536: -- Initialize message list IF p_init_msg_list is set to TRUE.
2537: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2538: FND_MSG_PUB.initialize;
2533: THEN
2534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2535: END IF;
2536: -- Initialize message list IF p_init_msg_list is set to TRUE.
2537: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540:
2541: -- Initialize API return status to success
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540:
2541: -- Initialize API return status to success
2542: x_return_status := FND_API.G_RET_STS_SUCCESS;
2543: -------------------------------------------------------------------------------------------------------------
2544: --API Body start
2545: -------------------------------------------------------------------------------------------------------------
2546:
2590: P_Quote_header_id => P_Quote_header_id ,
2591: P_minisite_id => p_minisite_id ,
2592: p_url => p_url ,
2593: p_api_version => p_api_version ,
2594: p_init_msg_list => fnd_api.g_false ,
2595: p_commit => fnd_api.g_false ,
2596: x_return_status => x_return_status ,
2597: x_msg_count => x_msg_count ,
2598: x_msg_data => x_msg_data );
2591: P_minisite_id => p_minisite_id ,
2592: p_url => p_url ,
2593: p_api_version => p_api_version ,
2594: p_init_msg_list => fnd_api.g_false ,
2595: p_commit => fnd_api.g_false ,
2596: x_return_status => x_return_status ,
2597: x_msg_count => x_msg_count ,
2598: x_msg_data => x_msg_data );
2599:
2603: END IF;
2604:
2605: EXCEPTION
2606:
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: ROLLBACK TO STOPSHARING_V2;
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2611: p_count => x_msg_count ,
2605: EXCEPTION
2606:
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: ROLLBACK TO STOPSHARING_V2;
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2611: p_count => x_msg_count ,
2612: p_data => x_msg_data);
2613: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2606:
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: ROLLBACK TO STOPSHARING_V2;
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2611: p_count => x_msg_count ,
2612: p_data => x_msg_data);
2613: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2614: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.SHAREREADONLY_V2');
2613: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2614: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.SHAREREADONLY_V2');
2615: END IF;
2616:
2617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2618: ROLLBACK TO STOPSHARING_V2;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2620: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2621: p_count => x_msg_count ,
2615: END IF;
2616:
2617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2618: ROLLBACK TO STOPSHARING_V2;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2620: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2621: p_count => x_msg_count ,
2622: p_data => x_msg_data);
2623: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2616:
2617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2618: ROLLBACK TO STOPSHARING_V2;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2620: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2621: p_count => x_msg_count ,
2622: p_data => x_msg_data);
2623: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2624: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.SHAREREADONLY_V2');
2625: END IF;
2626:
2627: WHEN OTHERS THEN
2628: ROLLBACK TO STOPSHARING_V2;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2631: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2632: l_api_name);
2633: END IF;
2630: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2631: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2632: l_api_name);
2633: END IF;
2634: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2635: p_count => x_msg_count ,
2636: p_data => x_msg_data);
2637: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2638: IBE_Util.Debug('Unknown error in IBE_QUOTE_SAVESHARE_V2_PVT.SHAREREADONLY_V2');
2649: P_Quote_access_rec IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_REC_TYPE
2650: := IBE_QUOTE_SAVESHARE_pvt.G_MISS_QUOTE_ACCESS_REC ,
2651: P_minisite_id IN NUMBER ,
2652: p_delete_code IN VARCHAR2 := 'IBE_SC_CART_STOPSHARING' ,
2653: p_url IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2654: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2655: p_api_version IN NUMBER := 1 ,
2656: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2657: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2650: := IBE_QUOTE_SAVESHARE_pvt.G_MISS_QUOTE_ACCESS_REC ,
2651: P_minisite_id IN NUMBER ,
2652: p_delete_code IN VARCHAR2 := 'IBE_SC_CART_STOPSHARING' ,
2653: p_url IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2654: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2655: p_api_version IN NUMBER := 1 ,
2656: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2657: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2658: x_return_status OUT NOCOPY VARCHAR2 ,
2652: p_delete_code IN VARCHAR2 := 'IBE_SC_CART_STOPSHARING' ,
2653: p_url IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2654: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2655: p_api_version IN NUMBER := 1 ,
2656: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2657: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2658: x_return_status OUT NOCOPY VARCHAR2 ,
2659: x_msg_count OUT NOCOPY NUMBER ,
2660: x_msg_data OUT NOCOPY VARCHAR2 ) is
2653: p_url IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2654: p_notes IN VARCHAR2 := FND_API.G_MISS_CHAR ,
2655: p_api_version IN NUMBER := 1 ,
2656: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2657: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2658: x_return_status OUT NOCOPY VARCHAR2 ,
2659: x_msg_count OUT NOCOPY NUMBER ,
2660: x_msg_data OUT NOCOPY VARCHAR2 ) is
2661:
2701: BEGIN
2702:
2703: SAVEPOINT DELETERECIPIENT_V2;
2704: -- Standard call to check for call compatibility.
2705: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2706: P_Api_Version,
2707: l_api_name,
2708: G_PKG_NAME )
2709: THEN
2706: P_Api_Version,
2707: l_api_name,
2708: G_PKG_NAME )
2709: THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712: -- Initialize message list IF p_init_msg_list is set to TRUE.
2713: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2714: FND_MSG_PUB.initialize;
2709: THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712: -- Initialize message list IF p_init_msg_list is set to TRUE.
2713: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2714: FND_MSG_PUB.initialize;
2715: END IF;
2716:
2717: -- Initialize API return status to success
2714: FND_MSG_PUB.initialize;
2715: END IF;
2716:
2717: -- Initialize API return status to success
2718: x_return_status := FND_API.G_RET_STS_SUCCESS;
2719: -------------------------------------------------------------------------------------------------------------
2720: --API Body start
2721: -------------------------------------------------------------------------------------------------------------
2722:
2759: l_contact_point_rec.contact_point_id := l_contact_point_id;
2760: l_contact_point_rec.status := 'I';
2761: l_contact_point_rec.primary_flag := 'N';
2762: HZ_CONTACT_POINT_V2PUB.update_contact_point(
2763: p_init_msg_list => FND_API.G_FALSE,
2764: p_contact_point_rec => l_contact_point_rec,
2765: p_object_version_number => l_object_version_number,
2766: x_return_status => x_return_status,
2767: x_msg_count => x_msg_count,
2766: x_return_status => x_return_status,
2767: x_msg_count => x_msg_count,
2768: x_msg_data => x_msg_data);
2769:
2770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: RAISE FND_API.G_EXC_ERROR;
2772: END IF;
2773: END IF;
2774:
2767: x_msg_count => x_msg_count,
2768: x_msg_data => x_msg_data);
2769:
2770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: RAISE FND_API.G_EXC_ERROR;
2772: END IF;
2773: END IF;
2774:
2775: IBE_SH_QUOTE_ACCESS_PKG.update_Row(
2782: IBE_UTIL.DEBUG('IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT: END');
2783: IBE_UTIL.DEBUG('delete_code is: '||p_delete_code);
2784: END IF;
2785:
2786: IF (p_quote_access_rec.notify_flag = FND_API.G_TRUE) THEN
2787: --Notify_finish_sharing API with the appropriate delete_code
2788: IF (p_delete_code = 'END_WORKING') THEN
2789: /*obtain the owner party_id and acctid of the cart/quote being dealt with*/
2790: FOR rec_get_owner_ids in c_get_owner_ids(p_quote_access_rec.quote_header_id) LOOP
2816: x_return_status => x_return_status ,
2817: x_msg_count => x_msg_count ,
2818: x_msg_data => x_msg_data );
2819:
2820: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2817: x_msg_count => x_msg_count ,
2818: x_msg_data => x_msg_data );
2819:
2820: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2825: END IF;
2819:
2820: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2825: END IF;
2826: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2827: IBE_UTIL.DEBUG('Done calling notify_end_working API');
2820: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2825: END IF;
2826: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2827: IBE_UTIL.DEBUG('Done calling notify_end_working API');
2828: END IF;
2844: x_return_status => x_return_status ,
2845: x_msg_count => x_msg_count ,
2846: x_msg_data => x_msg_data );
2847:
2848: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2849: RAISE FND_API.G_EXC_ERROR;
2850: END IF;
2851: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2845: x_msg_count => x_msg_count ,
2846: x_msg_data => x_msg_data );
2847:
2848: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2849: RAISE FND_API.G_EXC_ERROR;
2850: END IF;
2851: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2853: END IF;
2847:
2848: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2849: RAISE FND_API.G_EXC_ERROR;
2850: END IF;
2851: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2853: END IF;
2854: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2855: IBE_UTIL.DEBUG('Done calling notify_finish_sharing API');
2848: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2849: RAISE FND_API.G_EXC_ERROR;
2850: END IF;
2851: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2853: END IF;
2854: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2855: IBE_UTIL.DEBUG('Done calling notify_finish_sharing API');
2856: END IF;
2857: END IF; --end working or finish sharing
2858: END IF; --IF notify_flag is true
2859:
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: ROLLBACK TO DELETERECIPIENT_V2;
2863: x_return_status := FND_API.G_RET_STS_ERROR;
2864: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2865: p_count => x_msg_count ,
2859:
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: ROLLBACK TO DELETERECIPIENT_V2;
2863: x_return_status := FND_API.G_RET_STS_ERROR;
2864: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2865: p_count => x_msg_count ,
2866: p_data => x_msg_data);
2867: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: ROLLBACK TO DELETERECIPIENT_V2;
2863: x_return_status := FND_API.G_RET_STS_ERROR;
2864: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2865: p_count => x_msg_count ,
2866: p_data => x_msg_data);
2867: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2868: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT()');
2867: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2868: IBE_Util.Debug('Expected error in IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT()');
2869: END IF;
2870:
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: ROLLBACK TO DELETERECIPIENT_V2;
2873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2874: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2875: p_count => x_msg_count ,
2869: END IF;
2870:
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: ROLLBACK TO DELETERECIPIENT_V2;
2873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2874: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2875: p_count => x_msg_count ,
2876: p_data => x_msg_data);
2877: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2870:
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: ROLLBACK TO DELETERECIPIENT_V2;
2873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2874: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2875: p_count => x_msg_count ,
2876: p_data => x_msg_data);
2877: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2878: IBE_Util.Debug('Unexpected error in IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT()');
2879: END IF;
2880:
2881: WHEN OTHERS THEN
2882: ROLLBACK TO DELETERECIPIENT_V2;
2883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2884: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2885: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2886: l_api_name);
2887: END IF;
2884: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2885: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2886: l_api_name);
2887: END IF;
2888: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2889: p_count => x_msg_count ,
2890: p_data => x_msg_data);
2891: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2892: IBE_Util.Debug('Unknown error in IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT()');
2895: END;
2896:
2897: PROCEDURE Validate_share_Update(
2898: p_api_version_number IN NUMBER := 1.0
2899: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2900: ,p_quote_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
2901: ,p_quote_access_tbl IN IBE_QUOTE_SAVESHARE_pvt.QUOTE_ACCESS_Tbl_Type
2902: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl
2903: -- partyid and accountid cannot be gmiss coming in
2902: := IBE_QUOTE_SAVESHARE_pvt.G_miss_quote_access_Tbl
2903: -- partyid and accountid cannot be gmiss coming in
2904: ,p_party_id IN NUMBER
2905: ,p_cust_account_id IN NUMBER
2906: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
2907: ,p_operation_code IN VARCHAR2
2908: ,x_return_status OUT NOCOPY VARCHAR2
2909: ,x_msg_count OUT NOCOPY NUMBER
2910: ,x_msg_data OUT NOCOPY VARCHAR2
2913: is
2914:
2915: l_api_name CONSTANT VARCHAR2(30) := 'Validate_share_Update';
2916: l_api_version CONSTANT NUMBER := 1.0;
2917: l_check_updates VARCHAR2(1) := FND_API.G_FALSE; -- checks timestamps and if updates are really necessary
2918: l_check_onlynotify VARCHAR2(1) := FND_API.G_FALSE;
2919: l_is_owner VARCHAR2(1) := FND_API.G_TRUE;
2920: l_owner_party_id NUMBER;
2921: l_userenv_party_id NUMBER;
2914:
2915: l_api_name CONSTANT VARCHAR2(30) := 'Validate_share_Update';
2916: l_api_version CONSTANT NUMBER := 1.0;
2917: l_check_updates VARCHAR2(1) := FND_API.G_FALSE; -- checks timestamps and if updates are really necessary
2918: l_check_onlynotify VARCHAR2(1) := FND_API.G_FALSE;
2919: l_is_owner VARCHAR2(1) := FND_API.G_TRUE;
2920: l_owner_party_id NUMBER;
2921: l_userenv_party_id NUMBER;
2922: l_access_level VARCHAR2(30) := null;
2915: l_api_name CONSTANT VARCHAR2(30) := 'Validate_share_Update';
2916: l_api_version CONSTANT NUMBER := 1.0;
2917: l_check_updates VARCHAR2(1) := FND_API.G_FALSE; -- checks timestamps and if updates are really necessary
2918: l_check_onlynotify VARCHAR2(1) := FND_API.G_FALSE;
2919: l_is_owner VARCHAR2(1) := FND_API.G_TRUE;
2920: l_owner_party_id NUMBER;
2921: l_userenv_party_id NUMBER;
2922: l_access_level VARCHAR2(30) := null;
2923: l_db_last_update_date DATE;
2966: IBE_UTIL.DEBUG('Begin validate_share_update : ' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
2967: END IF;
2968:
2969: -- Standard call to check for call compatibility.
2970: IF NOT FND_API.Compatible_API_Call (l_api_version,
2971: p_api_version_number,
2972: l_api_name,
2973: G_PKG_NAME )
2974: THEN
2971: p_api_version_number,
2972: l_api_name,
2973: G_PKG_NAME )
2974: THEN
2975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2976: END IF;
2977:
2978: -- Initialize message list if p_init_msg_list is set to TRUE.
2979:
2976: END IF;
2977:
2978: -- Initialize message list if p_init_msg_list is set to TRUE.
2979:
2980: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2981: FND_Msg_Pub.initialize;
2982: END IF;
2983:
2984: -- Initialize API return status to success
2981: FND_Msg_Pub.initialize;
2982: END IF;
2983:
2984: -- Initialize API return status to success
2985: x_return_status := FND_API.G_RET_STS_SUCCESS;
2986:
2987: -- API body
2988: -- start by returning the input
2989:
3005: EXIT when c_get_owner_partyid%notfound;
3006: END LOOP;
3007: ------------ USER VALIDATION - must be either owner or valid recipient ------------------------------
3008: if (l_owner_party_id <> p_party_id) then
3009: l_is_owner := FND_API.G_FALSE;
3010: else
3011: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3012: IBE_Util.Debug('Initiator is OWNER');
3013: END IF;
3012: IBE_Util.Debug('Initiator is OWNER');
3013: END IF;
3014: end if;
3015:
3016: -- if ((l_is_owner = FND_API.G_FALSE) and (p_operation_code <> OP_END_WORKING)) then
3017: if (l_is_owner = FND_API.G_FALSE) then
3018: -- if user is not the owner then we need to make sure he is a valid member
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_Util.Debug('Initiator may be RECIPIENT');
3013: END IF;
3014: end if;
3015:
3016: -- if ((l_is_owner = FND_API.G_FALSE) and (p_operation_code <> OP_END_WORKING)) then
3017: if (l_is_owner = FND_API.G_FALSE) then
3018: -- if user is not the owner then we need to make sure he is a valid member
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_Util.Debug('Initiator may be RECIPIENT');
3021: END IF;
3018: -- if user is not the owner then we need to make sure he is a valid member
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_Util.Debug('Initiator may be RECIPIENT');
3021: END IF;
3022: if ((p_retrieval_number is not null) and (p_retrieval_number <> FND_API.G_MISS_NUM)) then
3023: FOR rec_get_role_by_retr_num in c_get_role_by_retr_num(p_retrieval_number, p_party_id, p_cust_account_id) LOOP
3024: l_access_level := rec_get_role_by_retr_num.update_privilege_type_code;
3025: EXIT when c_get_role_by_retr_num%notfound;
3026: END LOOP;
3038: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
3039: FND_Msg_Pub.Add;
3040: END IF;
3041: -- need to raise an error that the user no longer has access to this cart
3042: RAISE FND_API.G_EXC_ERROR;
3043: end if;
3044: end if;
3045:
3046: ------------ DETERMINE WHICH VALIDATIONS TO DO BASED ON OP CODE ------------------------------
3045:
3046: ------------ DETERMINE WHICH VALIDATIONS TO DO BASED ON OP CODE ------------------------------
3047: -- owner only operations
3048: if (p_operation_code in (OP_APPEND, OP_NAME_CART, OP_SAVE_CART_AND_RECIPIENTS)) then
3049: if (l_is_owner = FND_API.G_FALSE) then
3050: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3051: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
3052: FND_Msg_Pub.Add;
3053: END IF;
3051: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
3052: FND_Msg_Pub.Add;
3053: END IF;
3054: -- raise an error that the user does not have this privilege
3055: RAISE FND_API.G_EXC_ERROR;
3056: end if;
3057: if (p_operation_code = OP_SAVE_CART_AND_RECIPIENTS) then
3058: l_check_updates := FND_API.G_TRUE;
3059: end if;
3054: -- raise an error that the user does not have this privilege
3055: RAISE FND_API.G_EXC_ERROR;
3056: end if;
3057: if (p_operation_code = OP_SAVE_CART_AND_RECIPIENTS) then
3058: l_check_updates := FND_API.G_TRUE;
3059: end if;
3060: -- owner or admin operations
3061: elsif (p_operation_code in (OP_STOP_SHARING, OP_DELETE_CART)) then
3062: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3058: l_check_updates := FND_API.G_TRUE;
3059: end if;
3060: -- owner or admin operations
3061: elsif (p_operation_code in (OP_STOP_SHARING, OP_DELETE_CART)) then
3062: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3063: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3064: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
3065: FND_Msg_Pub.Add;
3066: END IF;
3064: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
3065: FND_Msg_Pub.Add;
3066: END IF;
3067: -- raise an error that the user does not have this privilege
3068: RAISE FND_API.G_EXC_ERROR;
3069: end if;
3070: l_check_onlynotify := FND_API.G_TRUE;
3071: l_check_updates := FND_API.G_TRUE;
3072: -- any role, but different checks depending on role
3066: END IF;
3067: -- raise an error that the user does not have this privilege
3068: RAISE FND_API.G_EXC_ERROR;
3069: end if;
3070: l_check_onlynotify := FND_API.G_TRUE;
3071: l_check_updates := FND_API.G_TRUE;
3072: -- any role, but different checks depending on role
3073: elsif (p_operation_code = OP_SAVE_RECIPIENTS) then
3074: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3067: -- raise an error that the user does not have this privilege
3068: RAISE FND_API.G_EXC_ERROR;
3069: end if;
3070: l_check_onlynotify := FND_API.G_TRUE;
3071: l_check_updates := FND_API.G_TRUE;
3072: -- any role, but different checks depending on role
3073: elsif (p_operation_code = OP_SAVE_RECIPIENTS) then
3074: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3075: -- if not the owner or not admin, then make sure user is only notifying
3070: l_check_onlynotify := FND_API.G_TRUE;
3071: l_check_updates := FND_API.G_TRUE;
3072: -- any role, but different checks depending on role
3073: elsif (p_operation_code = OP_SAVE_RECIPIENTS) then
3074: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3075: -- if not the owner or not admin, then make sure user is only notifying
3076: l_check_onlynotify := FND_API.G_TRUE;
3077: end if;
3078: l_check_updates := FND_API.G_TRUE;
3072: -- any role, but different checks depending on role
3073: elsif (p_operation_code = OP_SAVE_RECIPIENTS) then
3074: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3075: -- if not the owner or not admin, then make sure user is only notifying
3076: l_check_onlynotify := FND_API.G_TRUE;
3077: end if;
3078: l_check_updates := FND_API.G_TRUE;
3079: elsif ((p_operation_code = OP_ACTIVATE_QUOTE) or (p_operation_code = OP_DEACTIVATE)) then
3080: l_check_updates := FND_API.G_FALSE; -- no validations to do here that have not already been done
3074: if ((l_is_owner = FND_API.G_FALSE) and (l_access_level <> 'A')) then
3075: -- if not the owner or not admin, then make sure user is only notifying
3076: l_check_onlynotify := FND_API.G_TRUE;
3077: end if;
3078: l_check_updates := FND_API.G_TRUE;
3079: elsif ((p_operation_code = OP_ACTIVATE_QUOTE) or (p_operation_code = OP_DEACTIVATE)) then
3080: l_check_updates := FND_API.G_FALSE; -- no validations to do here that have not already been done
3081: end if; -- end if else over operation_code
3082:
3076: l_check_onlynotify := FND_API.G_TRUE;
3077: end if;
3078: l_check_updates := FND_API.G_TRUE;
3079: elsif ((p_operation_code = OP_ACTIVATE_QUOTE) or (p_operation_code = OP_DEACTIVATE)) then
3080: l_check_updates := FND_API.G_FALSE; -- no validations to do here that have not already been done
3081: end if; -- end if else over operation_code
3082:
3083: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3084: IBE_UTIL.DEBUG('l_check_onlynotify is :'||l_check_onlynotify);
3085: IBE_UTIL.DEBUG('l_check_updates is :'||l_check_updates);
3086: END IF;
3087:
3088: ------------ VALIDATIONS ON THE INPUT QUOTE ACCESS TABLE ------------------------------
3089: if ((l_check_updates = FND_API.G_TRUE) or (l_check_onlynotify = FND_API.G_TRUE)) then
3090: l_env_user_id := FND_GLOBAL.USER_ID;
3091: FOR i in 1..p_quote_access_tbl.count LOOP
3092: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3093: IBE_UTIL.DEBUG('current quote_sharee_id : '||p_quote_access_tbl(i).quote_sharee_id);
3096: -- in this loop, we will check every opcode if necessary
3097: -- down below, we will end up only checking the ones that have a shareeid
3098: l_db_quote_access_tbl(i).operation_code := p_quote_access_tbl(i).operation_code;
3099: if ((p_quote_access_tbl(i).quote_sharee_id is not null)
3100: and (p_quote_access_tbl(i).quote_sharee_id <> fnd_api.g_miss_num)) then
3101: --cursor query to get last_update_date, contact_point_id, end_date_active
3102: FOR rec_get_recipient_info in c_get_recipient_info(p_quote_access_tbl(i).quote_sharee_id) LOOP
3103: l_db_quote_access_tbl(i).last_update_date := rec_get_recipient_info.last_update_date;
3104: l_db_quote_access_tbl(i).last_updated_by := rec_get_recipient_info.last_updated_by;
3113: IBE_UTIL.DEBUG('input access_level : '||p_quote_access_tbl(i).update_privilege_type_code);
3114: IBE_UTIL.DEBUG('db access_level : '||l_db_quote_access_tbl(i).update_privilege_type_code);
3115: end if;
3116: -- do the opcode permissions check as we loop
3117: if (l_check_onlynotify = FND_API.G_TRUE) then
3118: -- make sure we are not creating, deleting, or doing any real updates
3119: if ((p_quote_access_tbl(i).operation_code = 'DELETE')
3120: or(p_quote_access_tbl(i).operation_code = 'CREATE')
3121: or ((p_quote_access_tbl(i).operation_code = 'UPDATE')
3119: if ((p_quote_access_tbl(i).operation_code = 'DELETE')
3120: or(p_quote_access_tbl(i).operation_code = 'CREATE')
3121: or ((p_quote_access_tbl(i).operation_code = 'UPDATE')
3122: and (p_quote_access_tbl(i).update_privilege_type_code is not null)
3123: and (p_quote_access_tbl(i).update_privilege_type_code <> FND_API.G_MISS_CHAR)
3124: and (p_quote_access_tbl(i).update_privilege_type_code <> l_db_quote_access_tbl(i).update_privilege_type_code))) then
3125: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3126: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
3127: FND_Msg_Pub.Add;
3125: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3126: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
3127: FND_Msg_Pub.Add;
3128: END IF;
3129: RAISE FND_API.G_EXC_ERROR;
3130: end if;
3131: end if; -- end check onlynotify
3132: end if; -- end if we have a quote_sharee_id
3133: end loop; -- end loop over input access tbl
3131: end if; -- end check onlynotify
3132: end if; -- end if we have a quote_sharee_id
3133: end loop; -- end loop over input access tbl
3134: -- second loop to check last update dates
3135: if (l_check_updates = FND_API.G_TRUE) then
3136: FOR i in 1..p_quote_access_tbl.count LOOP
3137: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3138: IBE_UTIL.DEBUG('current quote_sharee_id : '||p_quote_access_tbl(i).quote_sharee_id);
3139: end if;
3137: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3138: IBE_UTIL.DEBUG('current quote_sharee_id : '||p_quote_access_tbl(i).quote_sharee_id);
3139: end if;
3140: if ((p_quote_access_tbl(i).quote_sharee_id is not null)
3141: and (p_quote_access_tbl(i).quote_sharee_id <> fnd_api.g_miss_num)) then
3142:
3143: if ((p_quote_access_tbl(i).last_update_date <> FND_API.G_MISS_DATE) and
3144: (p_quote_access_tbl(i).last_update_date <> l_db_quote_access_tbl(i).last_update_date)) then
3145: -- i.e. don't throw exception if we want to end a row and it's already enddated.
3139: end if;
3140: if ((p_quote_access_tbl(i).quote_sharee_id is not null)
3141: and (p_quote_access_tbl(i).quote_sharee_id <> fnd_api.g_miss_num)) then
3142:
3143: if ((p_quote_access_tbl(i).last_update_date <> FND_API.G_MISS_DATE) and
3144: (p_quote_access_tbl(i).last_update_date <> l_db_quote_access_tbl(i).last_update_date)) then
3145: -- i.e. don't throw exception if we want to end a row and it's already enddated.
3146: if ((p_quote_access_tbl(i).operation_code = 'DELETE') and (nvl(l_db_quote_access_tbl(i).end_date_active,sysdate-1) < sysdate)) then
3147: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3156: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_MEMBERS_OUT_OF_SYNC');
3157: FND_Msg_Pub.Add;
3158: END IF;
3159: -- need a new error msg that the row has been updated by another user and to try again
3160: RAISE FND_API.G_EXC_ERROR;
3161: end if;
3162: end if; -- end if last_update_dates dont match
3163: end if; -- end if shareeid is not null
3164: end loop; -- end loop over input quote access tbl
3169: IBE_UTIL.DEBUG('End validate_share_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3170: END IF;
3171:
3172: EXCEPTION
3173: WHEN FND_API.G_EXC_ERROR THEN
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3176: p_count => x_msg_count ,
3177: p_data => x_msg_data);
3170: END IF;
3171:
3172: EXCEPTION
3173: WHEN FND_API.G_EXC_ERROR THEN
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3176: p_count => x_msg_count ,
3177: p_data => x_msg_data);
3178: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3171:
3172: EXCEPTION
3173: WHEN FND_API.G_EXC_ERROR THEN
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3176: p_count => x_msg_count ,
3177: p_data => x_msg_data);
3178: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3179: IBE_Util.Debug('End IBE_Quote_Misc_pvt.validate_share_update: expected error');
3177: p_data => x_msg_data);
3178: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3179: IBE_Util.Debug('End IBE_Quote_Misc_pvt.validate_share_update: expected error');
3180: END IF;
3181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3183: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3184: p_count => x_msg_count ,
3185: p_data => x_msg_data);
3178: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3179: IBE_Util.Debug('End IBE_Quote_Misc_pvt.validate_share_update: expected error');
3180: END IF;
3181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3183: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3184: p_count => x_msg_count ,
3185: p_data => x_msg_data);
3186: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3179: IBE_Util.Debug('End IBE_Quote_Misc_pvt.validate_share_update: expected error');
3180: END IF;
3181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3183: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3184: p_count => x_msg_count ,
3185: p_data => x_msg_data);
3186: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3187: IBE_Util.Debug('End IBE_Quote_Misc_pvt.validate_share_update: unexpected error');
3190: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3191: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3192: l_api_name);
3193: END IF;
3194: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3195: p_count => x_msg_count ,
3196: p_data => x_msg_data);
3197: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3198: IBE_Util.Debug('End IBE_Quote_Misc_pvt.validate_share_update: other exception');