23: l_same varchar2(1) := 'N';
24: l_found varchar2(1) := 'N';
25: l_index number := 1;
26: BEGIN
27: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
28: IBE_Util.Debug('compare: p_qte_line_tbl_service.count'
29: || p_qte_line_tbl_service.count);
30: END IF;
31: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
24: l_found varchar2(1) := 'N';
25: l_index number := 1;
26: BEGIN
27: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
28: IBE_Util.Debug('compare: p_qte_line_tbl_service.count'
29: || p_qte_line_tbl_service.count);
30: END IF;
31: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
32: IBE_Util.Debug('compare: p_qte_line_tbl_service_db.count'
27: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
28: IBE_Util.Debug('compare: p_qte_line_tbl_service.count'
29: || p_qte_line_tbl_service.count);
30: END IF;
31: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
32: IBE_Util.Debug('compare: p_qte_line_tbl_service_db.count'
33: || p_qte_line_tbl_service_db.count);
34: END IF;
35: IF p_qte_line_tbl_service.count = p_qte_line_tbl_service_db.count THEN
28: IBE_Util.Debug('compare: p_qte_line_tbl_service.count'
29: || p_qte_line_tbl_service.count);
30: END IF;
31: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
32: IBE_Util.Debug('compare: p_qte_line_tbl_service_db.count'
33: || p_qte_line_tbl_service_db.count);
34: END IF;
35: IF p_qte_line_tbl_service.count = p_qte_line_tbl_service_db.count THEN
36: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
32: IBE_Util.Debug('compare: p_qte_line_tbl_service_db.count'
33: || p_qte_line_tbl_service_db.count);
34: END IF;
35: IF p_qte_line_tbl_service.count = p_qte_line_tbl_service_db.count THEN
36: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
37: IBE_Util.Debug(' start compare: ');
38: END IF;
39: FOR i in 1..p_qte_line_tbl_service.count LOOP
40: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
33: || p_qte_line_tbl_service_db.count);
34: END IF;
35: IF p_qte_line_tbl_service.count = p_qte_line_tbl_service_db.count THEN
36: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
37: IBE_Util.Debug(' start compare: ');
38: END IF;
39: FOR i in 1..p_qte_line_tbl_service.count LOOP
40: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
41: IBE_Util.Debug('compare: line i='||i);
36: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
37: IBE_Util.Debug(' start compare: ');
38: END IF;
39: FOR i in 1..p_qte_line_tbl_service.count LOOP
40: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
41: IBE_Util.Debug('compare: line i='||i);
42: END IF;
43: l_found := 'N';
44: l_index :=1;
37: IBE_Util.Debug(' start compare: ');
38: END IF;
39: FOR i in 1..p_qte_line_tbl_service.count LOOP
40: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
41: IBE_Util.Debug('compare: line i='||i);
42: END IF;
43: l_found := 'N';
44: l_index :=1;
45: WHILE l_found= 'N' and l_index <= p_qte_line_tbl_service_db.count
63: END LOOP;
64:
65: FOR i IN 1..p_qte_line_dtl_tbl_service.count
66: LOOP
67: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
68: IBE_Util.Debug('compare: detail line i='||i);
69: END IF;
70: l_found := 'N';
71: l_index :=1;
64:
65: FOR i IN 1..p_qte_line_dtl_tbl_service.count
66: LOOP
67: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
68: IBE_Util.Debug('compare: detail line i='||i);
69: END IF;
70: l_found := 'N';
71: l_index :=1;
72: WHILE l_found= 'N' and l_index <= p_qte_line_dtl_tbl_service_db.count
88: l_same := 'Y';
89: END LOOP;
90: END IF;
91:
92: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
93: IBE_Util.Debug('compare: before return l_same = '||l_same);
94: END IF;
95:
96: RETURN l_same;
89: END LOOP;
90: END IF;
91:
92: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
93: IBE_Util.Debug('compare: before return l_same = '||l_same);
94: END IF;
95:
96: RETURN l_same;
97: END compare;
170: and l.item_type_code = 'SRV'
171: and dl.service_ref_line_id = p_service_ref_line_id
172: and dl.quote_line_id = l.quote_line_id;
173: BEGIN
174: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
175: IBE_Util.Debug('at load_service p_service_ref_line_id ='
176: || p_service_ref_line_id);
177: END IF;
178:
171: and dl.service_ref_line_id = p_service_ref_line_id
172: and dl.quote_line_id = l.quote_line_id;
173: BEGIN
174: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
175: IBE_Util.Debug('at load_service p_service_ref_line_id ='
176: || p_service_ref_line_id);
177: END IF;
178:
179: OPEN c_getlineinfo(p_quote_header_id
213: l_qte_line_index NUMBER;
214: l_qte_line_dtl_rec ASO_Quote_Pub.Qte_Line_Dtl_rec_Type;
215:
216: BEGIN
217: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
218: IBE_Util.Debug('at find_service p_qte_line_tbl.count= '
219: ||p_qte_line_tbl.count);
220: END IF;
221:
214: l_qte_line_dtl_rec ASO_Quote_Pub.Qte_Line_Dtl_rec_Type;
215:
216: BEGIN
217: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
218: IBE_Util.Debug('at find_service p_qte_line_tbl.count= '
219: ||p_qte_line_tbl.count);
220: END IF;
221:
222: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
218: IBE_Util.Debug('at find_service p_qte_line_tbl.count= '
219: ||p_qte_line_tbl.count);
220: END IF;
221:
222: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
223: IBE_Util.Debug('at find_service p_qte_line_dtl_tbl.count= '
224: ||p_qte_line_dtl_tbl.count);
225: END IF;
226: FOR i in 1..p_qte_line_dtl_tbl.count Loop
219: ||p_qte_line_tbl.count);
220: END IF;
221:
222: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
223: IBE_Util.Debug('at find_service p_qte_line_dtl_tbl.count= '
224: ||p_qte_line_dtl_tbl.count);
225: END IF;
226: FOR i in 1..p_qte_line_dtl_tbl.count Loop
227: IF p_qte_line_dtl_tbl(i).service_ref_qte_line_index = p_qte_line_index THEN
239: := p_qte_line_tbl(l_qte_line_index);
240: END IF;
241:
242: END LOOP;
243: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
244: IBE_Util.Debug('at find_service x_qte_line_dtl_tbl.count= '
245: ||x_qte_line_dtl_tbl_service.count);
246: END IF;
247: END Find_Service;
240: END IF;
241:
242: END LOOP;
243: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
244: IBE_Util.Debug('at find_service x_qte_line_dtl_tbl.count= '
245: ||x_qte_line_dtl_tbl_service.count);
246: END IF;
247: END Find_Service;
248:
268: l_qte_line_tbl := getLineTblfromdb(
269: p_quote_header_id => p_quote_header_id,
270: p_qte_line_rec => p_qte_line_rec);
271:
272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
273: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl.count'||l_qte_line_tbl.count);
274: END IF;
275:
276: WHILE l_same = 'N' and l_index <= l_qte_line_tbl.count LOOP
269: p_quote_header_id => p_quote_header_id,
270: p_qte_line_rec => p_qte_line_rec);
271:
272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
273: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl.count'||l_qte_line_tbl.count);
274: END IF;
275:
276: WHILE l_same = 'N' and l_index <= l_qte_line_tbl.count LOOP
277: -- find all the service item from database for this serviceable item
279: p_quote_header_id => p_quote_header_id ,
280: p_service_ref_line_id => l_qte_line_tbl(l_index).quote_line_id,
281: x_qte_line_tbl_service_db => l_qte_line_tbl_service_db ,
282: x_qte_line_dtl_tbl_service_db => l_qte_line_dtl_tbl_service_db);
283: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
284: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl_service_db.count '
285: ||l_qte_line_tbl_service_db.count);
286: END IF;
287:
280: p_service_ref_line_id => l_qte_line_tbl(l_index).quote_line_id,
281: x_qte_line_tbl_service_db => l_qte_line_tbl_service_db ,
282: x_qte_line_dtl_tbl_service_db => l_qte_line_dtl_tbl_service_db);
283: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
284: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl_service_db.count '
285: ||l_qte_line_tbl_service_db.count);
286: END IF;
287:
288: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
284: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl_service_db.count '
285: ||l_qte_line_tbl_service_db.count);
286: END IF;
287:
288: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
289: IBE_Util.Debug('load_serviceable_service l_qte_line_dtl_tbl_service_db.count '
290: ||l_qte_line_dtl_tbl_service_db.count);
291: END IF;
292: IF p_qte_line_tbl_service.count = l_qte_line_tbl_service_db.count THEN
285: ||l_qte_line_tbl_service_db.count);
286: END IF;
287:
288: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
289: IBE_Util.Debug('load_serviceable_service l_qte_line_dtl_tbl_service_db.count '
290: ||l_qte_line_dtl_tbl_service_db.count);
291: END IF;
292: IF p_qte_line_tbl_service.count = l_qte_line_tbl_service_db.count THEN
293: IF p_qte_line_tbl_service.count > 0 THEN
329: l_found varchar2(1) := 'N';
330: l_index NUMBER := 1;
331: BEGIN
332:
333: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
334: IBE_Util.Debug('updateserviceline p_qte_line_tbl_db.count='
335: ||p_qte_line_tbl_db.count);
336: END IF;
337:
330: l_index NUMBER := 1;
331: BEGIN
332:
333: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
334: IBE_Util.Debug('updateserviceline p_qte_line_tbl_db.count='
335: ||p_qte_line_tbl_db.count);
336: END IF;
337:
338:
340:
341: IF p_qte_line_tbl_db(l_index).inventory_item_id = p_qte_line_rec.inventory_item_id
342: and p_qte_line_tbl_db(l_index).organization_id = p_qte_line_rec.organization_id
343: and p_qte_line_tbl_db(l_index).uom_code = p_qte_line_rec.uom_code then
344: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
345: IBE_Util.Debug('updateserviceline start update');
346: END IF;
347: l_qte_line_rec := p_qte_line_rec;
348: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
341: IF p_qte_line_tbl_db(l_index).inventory_item_id = p_qte_line_rec.inventory_item_id
342: and p_qte_line_tbl_db(l_index).organization_id = p_qte_line_rec.organization_id
343: and p_qte_line_tbl_db(l_index).uom_code = p_qte_line_rec.uom_code then
344: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
345: IBE_Util.Debug('updateserviceline start update');
346: END IF;
347: l_qte_line_rec := p_qte_line_rec;
348: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
345: IBE_Util.Debug('updateserviceline start update');
346: END IF;
347: l_qte_line_rec := p_qte_line_rec;
348: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
350: IBE_Util.Debug('update service inventory_item_id'||l_qte_line_rec.inventory_item_id);
351: END IF;
352: l_qte_line_rec.quote_line_id := p_qte_line_tbl_db(l_index).quote_line_id;
353: l_qte_line_rec.quantity := p_qte_line_tbl_db(l_index).quantity
346: END IF;
347: l_qte_line_rec := p_qte_line_rec;
348: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
350: IBE_Util.Debug('update service inventory_item_id'||l_qte_line_rec.inventory_item_id);
351: END IF;
352: l_qte_line_rec.quote_line_id := p_qte_line_tbl_db(l_index).quote_line_id;
353: l_qte_line_rec.quantity := p_qte_line_tbl_db(l_index).quantity
354: + l_qte_line_rec.quantity;
371:
372: x_qte_line_rec := l_qte_line_rec;
373: x_qte_line_dtl_rec := l_qte_line_dtl_rec;
374:
375: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
376: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
377: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
378: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
379: END IF;
372: x_qte_line_rec := l_qte_line_rec;
373: x_qte_line_dtl_rec := l_qte_line_dtl_rec;
374:
375: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
376: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
377: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
378: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
379: END IF;
380: END updateserviceline;
373: x_qte_line_dtl_rec := l_qte_line_dtl_rec;
374:
375: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
376: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
377: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
378: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
379: END IF;
380: END updateserviceline;
381:
374:
375: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
376: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
377: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
378: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
379: END IF;
380: END updateserviceline;
381:
382: PROCEDURE header_agreements(
429: x_return_status := FND_API.G_RET_STS_SUCCESS;
430: -- API body
431:
432: l_hdr_payment_tbl := p_hdr_payment_tbl;
433: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
434: ibe_util.debug('Incoming header payment rec has '||p_hdr_payment_tbl.count||' records');
435: ibe_util.debug('Incoming agreementId is '||p_qte_header_rec.contract_id );
436: END IF;
437:
430: -- API body
431:
432: l_hdr_payment_tbl := p_hdr_payment_tbl;
433: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
434: ibe_util.debug('Incoming header payment rec has '||p_hdr_payment_tbl.count||' records');
435: ibe_util.debug('Incoming agreementId is '||p_qte_header_rec.contract_id );
436: END IF;
437:
438: if(p_qte_header_rec.contract_id is null or p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
431:
432: l_hdr_payment_tbl := p_hdr_payment_tbl;
433: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
434: ibe_util.debug('Incoming header payment rec has '||p_hdr_payment_tbl.count||' records');
435: ibe_util.debug('Incoming agreementId is '||p_qte_header_rec.contract_id );
436: END IF;
437:
438: if(p_qte_header_rec.contract_id is null or p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
439: if(p_qte_header_rec.contract_id is not null
439: if(p_qte_header_rec.contract_id is not null
440: and p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
441: for rec_term_id in c_term_id(p_qte_header_rec.contract_id) loop
442: l_payment_term_id := rec_term_id.term_id;
443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
444: ibe_util.debug('payment term id when contract id is not null and not g_miss '||l_payment_term_id);
445: END IF;
446: exit when c_term_id%notfound;
447: end loop;
440: and p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
441: for rec_term_id in c_term_id(p_qte_header_rec.contract_id) loop
442: l_payment_term_id := rec_term_id.term_id;
443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
444: ibe_util.debug('payment term id when contract id is not null and not g_miss '||l_payment_term_id);
445: END IF;
446: exit when c_term_id%notfound;
447: end loop;
448: elsif (p_qte_header_rec.contract_id is null ) then
445: END IF;
446: exit when c_term_id%notfound;
447: end loop;
448: elsif (p_qte_header_rec.contract_id is null ) then
449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
450: ibe_util.debug('p_qte_header_rec.contract_id is null hence l_payment_term_id is null');
451: END IF;
452: -- changed 4/5/04 for bug 3551866
453: --l_payment_term_id := null;
446: exit when c_term_id%notfound;
447: end loop;
448: elsif (p_qte_header_rec.contract_id is null ) then
449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
450: ibe_util.debug('p_qte_header_rec.contract_id is null hence l_payment_term_id is null');
451: END IF;
452: -- changed 4/5/04 for bug 3551866
453: --l_payment_term_id := null;
454: l_payment_term_id := fnd_profile.value('IBE_DEFAULT_PAYMENT_TERM_ID');
460: and (p_hdr_payment_tbl(counter).quote_line_id is null or
461: p_hdr_payment_tbl(counter).quote_line_id = fnd_api.g_miss_num) ) then
462: if(p_hdr_payment_tbl(counter).operation_code <> 'DELETE') then
463: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
464: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
465: ibe_util.debug('header_payment_tbl.payment_term_id '||l_payment_term_id);
466: END IF;
467: end if;
468: end if;
461: p_hdr_payment_tbl(counter).quote_line_id = fnd_api.g_miss_num) ) then
462: if(p_hdr_payment_tbl(counter).operation_code <> 'DELETE') then
463: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
464: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
465: ibe_util.debug('header_payment_tbl.payment_term_id '||l_payment_term_id);
466: END IF;
467: end if;
468: end if;
469: end loop;
475: end loop;
476: l_hdr_payment_tbl(counter).quote_header_id := p_qte_header_rec.quote_header_id;
477: l_hdr_payment_tbl(counter).quote_line_id := null;
478: if(l_payment_id is not null ) then
479: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
480: ibe_util.debug('Input payment table is empty but record in database');
481: END IF;
482: l_hdr_payment_tbl(counter).payment_id := l_payment_id;
483: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
476: l_hdr_payment_tbl(counter).quote_header_id := p_qte_header_rec.quote_header_id;
477: l_hdr_payment_tbl(counter).quote_line_id := null;
478: if(l_payment_id is not null ) then
479: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
480: ibe_util.debug('Input payment table is empty but record in database');
481: END IF;
482: l_hdr_payment_tbl(counter).payment_id := l_payment_id;
483: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
484: l_hdr_payment_tbl(counter).operation_code := 'UPDATE';
487: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
488: l_hdr_payment_tbl(counter).operation_code := 'CREATE';
489: end if;
490: end if;
491: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
492: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
493: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
494: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
495: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
488: l_hdr_payment_tbl(counter).operation_code := 'CREATE';
489: end if;
490: end if;
491: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
492: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
493: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
494: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
495: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
496: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
489: end if;
490: end if;
491: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
492: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
493: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
494: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
495: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
496: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
497: END IF;
490: end if;
491: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
492: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
493: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
494: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
495: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
496: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
497: END IF;
498:
491: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
492: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
493: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
494: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
495: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
496: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
497: END IF;
498:
499: end if;
492: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
493: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
494: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
495: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
496: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
497: END IF;
498:
499: end if;
500: else
497: END IF;
498:
499: end if;
500: else
501: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
502: ibe_util.debug('Incoming agreement id is g_miss');
503: END IF;
504: end if;
505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
498:
499: end if;
500: else
501: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
502: ibe_util.debug('Incoming agreement id is g_miss');
503: END IF;
504: end if;
505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
506: ibe_util.debug('outgoing payment table from header_agreements API');
501: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
502: ibe_util.debug('Incoming agreement id is g_miss');
503: END IF;
504: end if;
505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
506: ibe_util.debug('outgoing payment table from header_agreements API');
507: END IF;
508: x_hdr_payment_tbl := l_hdr_payment_tbl;
509:
502: ibe_util.debug('Incoming agreement id is g_miss');
503: END IF;
504: end if;
505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
506: ibe_util.debug('outgoing payment table from header_agreements API');
507: END IF;
508: x_hdr_payment_tbl := l_hdr_payment_tbl;
509:
510: -- End of API body.
519: p_data => x_msg_data);
520:
521: EXCEPTION
522: WHEN FND_API.G_EXC_ERROR THEN
523: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
524: ibe_util.debug('Expected error in IBE_QUOTE_SAVE_PVT.header_agreements');
525: END IF;
526: ROLLBACK TO handle_header_agreements_pvt;
527: x_return_status := FND_API.G_RET_STS_ERROR;
520:
521: EXCEPTION
522: WHEN FND_API.G_EXC_ERROR THEN
523: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
524: ibe_util.debug('Expected error in IBE_QUOTE_SAVE_PVT.header_agreements');
525: END IF;
526: ROLLBACK TO handle_header_agreements_pvt;
527: x_return_status := FND_API.G_RET_STS_ERROR;
528: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
528: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
529: p_count => x_msg_count ,
530: p_data => x_msg_data);
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
533: ibe_util.debug('Unexpected error in IBE_QUOTE_SAVE_PVT.header_agreements');
534: END IF;
535: ROLLBACK TO handle_header_agreements_pvt;
536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: p_count => x_msg_count ,
530: p_data => x_msg_data);
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
533: ibe_util.debug('Unexpected error in IBE_QUOTE_SAVE_PVT.header_agreements');
534: END IF;
535: ROLLBACK TO handle_header_agreements_pvt;
536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
539: p_data => x_msg_data);
540: WHEN OTHERS THEN
541: ROLLBACK TO handle_header_agreements_pvt;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
544: ibe_util.debug('Unknown error in IBE_QUOTE_SAVE_PVT.header_agreements');
545: END IF;
546: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
547: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
540: WHEN OTHERS THEN
541: ROLLBACK TO handle_header_agreements_pvt;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
544: ibe_util.debug('Unknown error in IBE_QUOTE_SAVE_PVT.header_agreements');
545: END IF;
546: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
547: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
548: L_API_NAME);
579: l_installment_options VARCHAR2(30) := NULL;
580:
581:
582: BEGIN
583: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
584: IBE_Util.Debug('start Default_Header_Record');
585: END IF;
586: --DBMS_OUTPUT.PUT_line('p_qte_header_rec.quote_header_id '||p_qte_header_rec.quote_header_id);
587: x_qte_header_rec := p_qte_header_rec;
580:
581:
582: BEGIN
583: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
584: IBE_Util.Debug('start Default_Header_Record');
585: END IF;
586: --DBMS_OUTPUT.PUT_line('p_qte_header_rec.quote_header_id '||p_qte_header_rec.quote_header_id);
587: x_qte_header_rec := p_qte_header_rec;
588: x_hdr_payment_tbl := p_hdr_payment_tbl;
593: AND (p_qte_header_rec.quote_name = 'IBE_PRMT_SC_UNNAMED' --MANNAMRA: Changed default quote name value from IBEACTIVECART to IBE_PRMT_SC_UNNAMED
594: --09/16/02
595: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR) THEN
596: --DBMS_OUTPUT.PUT_line('passed in qte_header_id is g_miss ');
597: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
598: IBE_Util.Debug(' need to get active cart');
599: END IF;
600: x_qte_header_rec.quote_header_id :=
601: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
594: --09/16/02
595: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR) THEN
596: --DBMS_OUTPUT.PUT_line('passed in qte_header_id is g_miss ');
597: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
598: IBE_Util.Debug(' need to get active cart');
599: END IF;
600: x_qte_header_rec.quote_header_id :=
601: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
602: p_party_id => p_qte_header_rec.party_id,
621:
622: RAISE FND_API.G_EXC_ERROR; -- need error message
623: END IF;
624: END IF;
625: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
626: IBE_Util.Debug('after get active cart id = '|| x_qte_header_rec.quote_header_id);
627: END IF;
628: END IF;
629:
622: RAISE FND_API.G_EXC_ERROR; -- need error message
623: END IF;
624: END IF;
625: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
626: IBE_Util.Debug('after get active cart id = '|| x_qte_header_rec.quote_header_id);
627: END IF;
628: END IF;
629:
630: -- if contract_id is set, then overwrite price_list_id field
698: Ideally we do not want to change the price list id put in by the Sales Rep for Update of published Quotes.
699: This is true only when the agreement is not associated to the quote.*/
700: IF (l_resource_id is not null AND nvl(l_publish_flag,'N')='Y'
701: AND l_agmt_associated = FND_API.G_FALSE AND l_price_list_id is not null) THEN
702: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
703: IBE_UTIL.debug('Please revert back the price list id as in the DB,as this is a Published quote, price_list_id='||l_price_list_id);
704: END IF;
705: x_qte_header_rec.price_list_id := l_price_list_id;
706: END IF;
699: This is true only when the agreement is not associated to the quote.*/
700: IF (l_resource_id is not null AND nvl(l_publish_flag,'N')='Y'
701: AND l_agmt_associated = FND_API.G_FALSE AND l_price_list_id is not null) THEN
702: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
703: IBE_UTIL.debug('Please revert back the price list id as in the DB,as this is a Published quote, price_list_id='||l_price_list_id);
704: END IF;
705: x_qte_header_rec.price_list_id := l_price_list_id;
706: END IF;
707:
749: -- Removed the code for setting the price frozen date for the bug# 2917587
750:
751: -- default payment term id if pay now is enabled
752: IF x_hdr_payment_tbl.count=0 THEN
753: IBE_Util.Debug('no header payment record passed down so far.');
754: IBE_Util.Debug('checking if PAY NOW is turned on...');
755: IF x_qte_header_rec.org_id is NULL OR x_qte_header_rec.org_id=FND_API.G_MISS_NUM THEN
756: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
757: l_installment_options := oe_sys_parameters.value(
750:
751: -- default payment term id if pay now is enabled
752: IF x_hdr_payment_tbl.count=0 THEN
753: IBE_Util.Debug('no header payment record passed down so far.');
754: IBE_Util.Debug('checking if PAY NOW is turned on...');
755: IF x_qte_header_rec.org_id is NULL OR x_qte_header_rec.org_id=FND_API.G_MISS_NUM THEN
756: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
757: l_installment_options := oe_sys_parameters.value(
758: param_name => 'INSTALLMENT_OPTIONS');
752: IF x_hdr_payment_tbl.count=0 THEN
753: IBE_Util.Debug('no header payment record passed down so far.');
754: IBE_Util.Debug('checking if PAY NOW is turned on...');
755: IF x_qte_header_rec.org_id is NULL OR x_qte_header_rec.org_id=FND_API.G_MISS_NUM THEN
756: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
757: l_installment_options := oe_sys_parameters.value(
758: param_name => 'INSTALLMENT_OPTIONS');
759: ELSE
760: IBE_Util.Debug('x_qte_header_rec.org_id='||x_qte_header_rec.org_id);
756: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
757: l_installment_options := oe_sys_parameters.value(
758: param_name => 'INSTALLMENT_OPTIONS');
759: ELSE
760: IBE_Util.Debug('x_qte_header_rec.org_id='||x_qte_header_rec.org_id);
761: l_installment_options := oe_sys_parameters.value(
762: param_name => 'INSTALLMENT_OPTIONS',
763: p_org_id => x_qte_header_rec.org_id);
764: END IF;
761: l_installment_options := oe_sys_parameters.value(
762: param_name => 'INSTALLMENT_OPTIONS',
763: p_org_id => x_qte_header_rec.org_id);
764: END IF;
765: IBE_Util.Debug('OM parameter INSTALLMENT_OPTIONS='||l_installment_options);
766:
767: IF NVL(l_installment_options,'NONE')='ENABLE_PAY_NOW' THEN
768: IBE_Util.Debug('Pay Now is enabled.');
769: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
764: END IF;
765: IBE_Util.Debug('OM parameter INSTALLMENT_OPTIONS='||l_installment_options);
766:
767: IF NVL(l_installment_options,'NONE')='ENABLE_PAY_NOW' THEN
768: IBE_Util.Debug('Pay Now is enabled.');
769: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
770: IBE_Util.Debug('it is a new cart.');
771: ELSE
772: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
766:
767: IF NVL(l_installment_options,'NONE')='ENABLE_PAY_NOW' THEN
768: IBE_Util.Debug('Pay Now is enabled.');
769: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
770: IBE_Util.Debug('it is a new cart.');
771: ELSE
772: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
773: IBE_Util.Debug('checking if a header payment record is already present...');
774: BEGIN
768: IBE_Util.Debug('Pay Now is enabled.');
769: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
770: IBE_Util.Debug('it is a new cart.');
771: ELSE
772: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
773: IBE_Util.Debug('checking if a header payment record is already present...');
774: BEGIN
775: SELECT payment_id into l_org_payment_id FROM ASO_payments
776: WHERE QUOTE_HEADER_ID = x_qte_header_rec.quote_header_id AND quote_line_id is null;
769: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
770: IBE_Util.Debug('it is a new cart.');
771: ELSE
772: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
773: IBE_Util.Debug('checking if a header payment record is already present...');
774: BEGIN
775: SELECT payment_id into l_org_payment_id FROM ASO_payments
776: WHERE QUOTE_HEADER_ID = x_qte_header_rec.quote_header_id AND quote_line_id is null;
777: IBE_Util.Debug('header payment record found,l_org_payment_id='||l_org_payment_id);
773: IBE_Util.Debug('checking if a header payment record is already present...');
774: BEGIN
775: SELECT payment_id into l_org_payment_id FROM ASO_payments
776: WHERE QUOTE_HEADER_ID = x_qte_header_rec.quote_header_id AND quote_line_id is null;
777: IBE_Util.Debug('header payment record found,l_org_payment_id='||l_org_payment_id);
778: EXCEPTION
779: WHEN NO_DATA_FOUND THEN
780: l_org_payment_id := NULL;
781: IBE_Util.Debug('no header payment record found');
777: IBE_Util.Debug('header payment record found,l_org_payment_id='||l_org_payment_id);
778: EXCEPTION
779: WHEN NO_DATA_FOUND THEN
780: l_org_payment_id := NULL;
781: IBE_Util.Debug('no header payment record found');
782: WHEN TOO_MANY_ROWS THEN
783: l_org_payment_id := FND_API.G_MISS_NUM;
784: IBE_Util.Debug('too many header payment records found');
785: END;
780: l_org_payment_id := NULL;
781: IBE_Util.Debug('no header payment record found');
782: WHEN TOO_MANY_ROWS THEN
783: l_org_payment_id := FND_API.G_MISS_NUM;
784: IBE_Util.Debug('too many header payment records found');
785: END;
786: END IF;
787:
788: IF x_qte_header_rec.quote_header_id is null OR l_org_payment_id is null THEN
785: END;
786: END IF;
787:
788: IF x_qte_header_rec.quote_header_id is null OR l_org_payment_id is null THEN
789: IBE_Util.Debug('initializing header payment record...');
790: x_hdr_payment_tbl(1).PAYMENT_TERM_ID := FND_PROFILE.VALUE('IBE_DEFAULT_PAYMENT_TERM_ID');
791: IBE_Util.Debug('profile option IBE_DEFAULT_PAYMENT_TERM_ID='||x_hdr_payment_tbl(1).PAYMENT_TERM_ID);
792: IF x_qte_header_rec.quote_header_id is not null THEN
793: x_hdr_payment_tbl(1).QUOTE_HEADER_ID := x_qte_header_rec.quote_header_id;
787:
788: IF x_qte_header_rec.quote_header_id is null OR l_org_payment_id is null THEN
789: IBE_Util.Debug('initializing header payment record...');
790: x_hdr_payment_tbl(1).PAYMENT_TERM_ID := FND_PROFILE.VALUE('IBE_DEFAULT_PAYMENT_TERM_ID');
791: IBE_Util.Debug('profile option IBE_DEFAULT_PAYMENT_TERM_ID='||x_hdr_payment_tbl(1).PAYMENT_TERM_ID);
792: IF x_qte_header_rec.quote_header_id is not null THEN
793: x_hdr_payment_tbl(1).QUOTE_HEADER_ID := x_qte_header_rec.quote_header_id;
794: END IF;
795: --x_hdr_payment_tbl(1).PAYMENT_TYPE_CODE := NULL;
793: x_hdr_payment_tbl(1).QUOTE_HEADER_ID := x_qte_header_rec.quote_header_id;
794: END IF;
795: --x_hdr_payment_tbl(1).PAYMENT_TYPE_CODE := NULL;
796: x_hdr_payment_tbl(1).OPERATION_CODE := 'CREATE';
797: IBE_Util.Debug('header payment record is defaulted for Pay Now');
798: END IF;
799: ELSE
800: IBE_Util.Debug('Pay Now is turned off');
801: IBE_Util.Debug('no header payment record was populated');
796: x_hdr_payment_tbl(1).OPERATION_CODE := 'CREATE';
797: IBE_Util.Debug('header payment record is defaulted for Pay Now');
798: END IF;
799: ELSE
800: IBE_Util.Debug('Pay Now is turned off');
801: IBE_Util.Debug('no header payment record was populated');
802: END IF;
803: END IF;
804:
797: IBE_Util.Debug('header payment record is defaulted for Pay Now');
798: END IF;
799: ELSE
800: IBE_Util.Debug('Pay Now is turned off');
801: IBE_Util.Debug('no header payment record was populated');
802: END IF;
803: END IF;
804:
805: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
801: IBE_Util.Debug('no header payment record was populated');
802: END IF;
803: END IF;
804:
805: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
806: IBE_Util.Debug('done Default_Header_Record');
807: END IF;
808:
809: END Default_Header_Record;
802: END IF;
803: END IF;
804:
805: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
806: IBE_Util.Debug('done Default_Header_Record');
807: END IF;
808:
809: END Default_Header_Record;
810:
860: from aso_quote_lines
861: where quote_header_id = p_quote_header_id;
862:
863: BEGIN
864: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
865: IBE_Util.Debug('start setLineDefaultval');
866: END IF;
867:
868:
861: where quote_header_id = p_quote_header_id;
862:
863: BEGIN
864: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
865: IBE_Util.Debug('start setLineDefaultval');
866: END IF;
867:
868:
869: FOR i IN 1..p_qte_line_dtl_tbl.count LOOP
895: Else
896: l_combinesameitem := p_combinesameitem;
897: END IF;
898:
899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
900: IBE_Util.Debug('Checking line level services profile');
901: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
902: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
903: END IF;
896: l_combinesameitem := p_combinesameitem;
897: END IF;
898:
899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
900: IBE_Util.Debug('Checking line level services profile');
901: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
902: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
903: END IF;
904:
897: END IF;
898:
899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
900: IBE_Util.Debug('Checking line level services profile');
901: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
902: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
903: END IF;
904:
905: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
898:
899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
900: IBE_Util.Debug('Checking line level services profile');
901: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
902: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
903: END IF;
904:
905: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
906:
904:
905: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
906:
907: l_line_level_services := 'Y';
908: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
909: IBE_Util.Debug('line level services turned on');
910: END IF;
911:
912: END IF;
905: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
906:
907: l_line_level_services := 'Y';
908: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
909: IBE_Util.Debug('line level services turned on');
910: END IF;
911:
912: END IF;
913:
910: END IF;
911:
912: END IF;
913:
914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
915: IBE_Util.Debug('looping around input quote line table');
916: END IF;
917: FOR i in 1..p_qte_line_tbl.count LOOP
918:
911:
912: END IF;
913:
914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
915: IBE_Util.Debug('looping around input quote line table');
916: END IF;
917: FOR i in 1..p_qte_line_tbl.count LOOP
918:
919: -- set quote_header_id
936: IF (p_qte_line_tbl(i).quantity = 0) THEN
937: x_qte_line_tbl(i).operation_code := 'DELETE';
938: END IF;
939:
940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
941: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
942: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
943: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
944: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
937: x_qte_line_tbl(i).operation_code := 'DELETE';
938: END IF;
939:
940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
941: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
942: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
943: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
944: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
945: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
938: END IF;
939:
940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
941: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
942: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
943: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
944: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
945: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
946: END IF;
939:
940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
941: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
942: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
943: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
944: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
945: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
946: END IF;
947:
940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
941: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
942: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
943: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
944: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
945: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
946: END IF;
947:
948: -- combine same item
941: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
942: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
943: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
944: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
945: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
946: END IF;
947:
948: -- combine same item
949: IF l_combinesameitem = 'Y'
956: -- 9/2/03: For Merging, SVA Case, don't compare SRV's
957: -- so, handle SVA case just like STD case
958: IF x_qte_line_tbl(i).item_type_code = 'SVA' THEN
959:
960: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
961: IBE_Util.Debug('Current item type code in input quote line tbl is SVA');
962: END IF;
963:
964: IF (l_line_level_services <> 'Y') THEN
957: -- so, handle SVA case just like STD case
958: IF x_qte_line_tbl(i).item_type_code = 'SVA' THEN
959:
960: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
961: IBE_Util.Debug('Current item type code in input quote line tbl is SVA');
962: END IF;
963:
964: IF (l_line_level_services <> 'Y') THEN
965:
962: END IF;
963:
964: IF (l_line_level_services <> 'Y') THEN
965:
966: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
967: IBE_Util.Debug('Entering combine same item logic: Line level services turned off');
968: END IF;
969:
970: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
963:
964: IF (l_line_level_services <> 'Y') THEN
965:
966: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
967: IBE_Util.Debug('Entering combine same item logic: Line level services turned off');
968: END IF;
969:
970: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
971: l_qte_line_dtl_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_dtl_tbl;
969:
970: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
971: l_qte_line_dtl_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_dtl_tbl;
972: -- find service line and detail line based on servicable item
973: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
974: IBE_Util.Debug('call fnd_service with i='||i);
975: END IF;
976:
977: find_service
970: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
971: l_qte_line_dtl_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_dtl_tbl;
972: -- find service line and detail line based on servicable item
973: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
974: IBE_Util.Debug('call fnd_service with i='||i);
975: END IF;
976:
977: find_service
978: ( p_qte_line_index => i -- serviceable index
981: ,x_qte_line_tbl_service => l_qte_line_tbl_service
982: ,x_qte_line_dtl_tbl_service => l_qte_line_dtl_tbl_service);
983:
984: -- find a same servicable and service item from db
985: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
986: IBE_Util.Debug('call load_serviceable_service ');
987: END IF;
988: load_serviceable_service
989: ( p_quote_header_id => p_quote_header_id
982: ,x_qte_line_dtl_tbl_service => l_qte_line_dtl_tbl_service);
983:
984: -- find a same servicable and service item from db
985: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
986: IBE_Util.Debug('call load_serviceable_service ');
987: END IF;
988: load_serviceable_service
989: ( p_quote_header_id => p_quote_header_id
990: ,p_qte_line_rec => x_qte_line_tbl(i)
997: --- doing merge
998: IF l_qte_line_rec_db.quote_line_id is not null
999: and l_qte_line_rec_db.quote_line_id <> FND_API.G_MISS_NUM THEN
1000: --- setup servicable item
1001: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1002: IBE_Util.Debug('merge serviceable line_id'
1003: || l_qte_line_rec_db.quote_line_id);
1004: END IF;
1005:
998: IF l_qte_line_rec_db.quote_line_id is not null
999: and l_qte_line_rec_db.quote_line_id <> FND_API.G_MISS_NUM THEN
1000: --- setup servicable item
1001: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1002: IBE_Util.Debug('merge serviceable line_id'
1003: || l_qte_line_rec_db.quote_line_id);
1004: END IF;
1005:
1006: x_qte_line_tbl(i).operation_code := 'UPDATE';
1009: x_qte_line_tbl(i).quote_line_id := l_qte_line_rec_db.quote_line_id;
1010: l_line_tbl_index :=1;
1011: l_line_dtl_tbl_index :=1;
1012:
1013: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1014: IBE_Util.Debug('merge service line count='
1015: || l_qte_line_dtl_tbl_service.count);
1016: END IF;
1017:
1010: l_line_tbl_index :=1;
1011: l_line_dtl_tbl_index :=1;
1012:
1013: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1014: IBE_Util.Debug('merge service line count='
1015: || l_qte_line_dtl_tbl_service.count);
1016: END IF;
1017:
1018: FOR i in 1..l_qte_line_dtl_tbl_service.count LOOP
1034:
1035: x_qte_line_dtl_tbl(l_line_dtl_tbl_index).service_ref_line_id
1036: := l_qte_line_rec_db.quote_line_id ;
1037:
1038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1039: IBE_Util.Debug('quote line id='
1040: ||x_qte_line_dtl_tbl(i).quote_line_id);
1041: END IF;
1042: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1035: x_qte_line_dtl_tbl(l_line_dtl_tbl_index).service_ref_line_id
1036: := l_qte_line_rec_db.quote_line_id ;
1037:
1038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1039: IBE_Util.Debug('quote line id='
1040: ||x_qte_line_dtl_tbl(i).quote_line_id);
1041: END IF;
1042: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1043: IBE_Util.Debug('quote line detail id='
1038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1039: IBE_Util.Debug('quote line id='
1040: ||x_qte_line_dtl_tbl(i).quote_line_id);
1041: END IF;
1042: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1043: IBE_Util.Debug('quote line detail id='
1044: ||x_qte_line_dtl_tbl(i).quote_line_detail_id);
1045: END IF;
1046: END LOOP;
1039: IBE_Util.Debug('quote line id='
1040: ||x_qte_line_dtl_tbl(i).quote_line_id);
1041: END IF;
1042: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1043: IBE_Util.Debug('quote line detail id='
1044: ||x_qte_line_dtl_tbl(i).quote_line_detail_id);
1045: END IF;
1046: END LOOP;
1047:
1054: l_quote_line_id := FND_API.G_MISS_NUM;
1055: l_item_type_code := FND_API.G_MISS_CHAR;
1056: l_quantity := FND_API.G_MISS_NUM;
1057: l_marketing_source_code_id := FND_API.G_MISS_NUM;
1058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1059: IBE_Util.Debug('Calling the item cursor in MergeLines with uom_code'||x_qte_line_tbl(i).uom_code);
1060: END IF;
1061: open c_getlineinfo(p_quote_header_id
1062: ,x_qte_line_tbl(i).inventory_item_id,x_qte_line_tbl(i).uom_code);
1055: l_item_type_code := FND_API.G_MISS_CHAR;
1056: l_quantity := FND_API.G_MISS_NUM;
1057: l_marketing_source_code_id := FND_API.G_MISS_NUM;
1058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1059: IBE_Util.Debug('Calling the item cursor in MergeLines with uom_code'||x_qte_line_tbl(i).uom_code);
1060: END IF;
1061: open c_getlineinfo(p_quote_header_id
1062: ,x_qte_line_tbl(i).inventory_item_id,x_qte_line_tbl(i).uom_code);
1063: fetch c_getlineinfo into l_quote_line_id,
1070: IF (l_item_type_code is not null
1071: and ((l_item_type_code = 'STD') or ((l_item_type_code = 'SVA') and (l_line_level_services <> 'Y')) )
1072: and (l_quote_line_id is not null) ) THEN
1073:
1074: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1075: IBE_Util.Debug('Dealing with a standard item');
1076: END IF;
1077: x_qte_line_tbl(i).operation_code := 'UPDATE';
1078: x_qte_line_tbl(i).quantity := x_qte_line_tbl(i).quantity
1071: and ((l_item_type_code = 'STD') or ((l_item_type_code = 'SVA') and (l_line_level_services <> 'Y')) )
1072: and (l_quote_line_id is not null) ) THEN
1073:
1074: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1075: IBE_Util.Debug('Dealing with a standard item');
1076: END IF;
1077: x_qte_line_tbl(i).operation_code := 'UPDATE';
1078: x_qte_line_tbl(i).quantity := x_qte_line_tbl(i).quantity
1079: + nvl(l_quantity,0);
1105: x_qte_line_tbl(i).marketing_source_code_id := l_marketing_source_code_id;
1106: END IF;
1107: END IF; -- end of combine item
1108:
1109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1110: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1106: END IF;
1107: END IF; -- end of combine item
1108:
1109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1110: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1114: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1107: END IF; -- end of combine item
1108:
1109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1110: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1114: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1115: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1108:
1109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1110: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1114: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1115: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1116: END IF;
1109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1110: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1114: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1115: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1116: END IF;
1117:
1110: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1114: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1115: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1116: END IF;
1117:
1118:
1111: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1112: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1113: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1114: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1115: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1116: END IF;
1117:
1118:
1119: -- set line_category_code
1136: END IF;
1137:
1138: END LOOP;
1139:
1140: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1141: IBE_Util.Debug('done setLinedefaultval');
1142: END IF;
1143: END setLineDefaultVal;
1144:
1137:
1138: END LOOP;
1139:
1140: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1141: IBE_Util.Debug('done setLinedefaultval');
1142: END IF;
1143: END setLineDefaultVal;
1144:
1145: PROCEDURE DeleteSharees(
1208: l_qte_access_rec.cust_account_id := rec_get_recipients.cust_account_id;
1209: l_qte_access_rec.contact_point_id := rec_get_recipients.contact_point_id;
1210: l_qte_access_rec.shared_by_party_id := rec_get_recipients.shared_by_party_id;
1211:
1212: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1213: IBE_UTIL.DEBUG('DeleteSharees:Calling delete_recipient');
1214: END IF;
1215:
1216: IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT(
1209: l_qte_access_rec.contact_point_id := rec_get_recipients.contact_point_id;
1210: l_qte_access_rec.shared_by_party_id := rec_get_recipients.shared_by_party_id;
1211:
1212: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1213: IBE_UTIL.DEBUG('DeleteSharees:Calling delete_recipient');
1214: END IF;
1215:
1216: IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT(
1217: P_Quote_access_rec => l_qte_access_rec ,
1226: END IF;
1227: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END IF;
1230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1231: IBE_UTIL.DEBUG('DeleteSharees:Done calling delete_recipient');
1232: END IF;
1233: EXIT when c_get_recipients%notfound;
1234: END LOOP;
1227: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END IF;
1230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1231: IBE_UTIL.DEBUG('DeleteSharees:Done calling delete_recipient');
1232: END IF;
1233: EXIT when c_get_recipients%notfound;
1234: END LOOP;
1235:
1245: p_data => x_msg_data);
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO DELETESHAREES_pvt;
1249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1250: IBE_UTIL.DEBUG('Expected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO DELETESHAREES_pvt;
1249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1250: IBE_UTIL.DEBUG('Expected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1254: p_count => x_msg_count ,
1254: p_count => x_msg_count ,
1255: p_data => x_msg_data);
1256:
1257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1259: IBE_UTIL.DEBUG('Unexpected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1260: END IF;
1261: ROLLBACK TO DELETESHAREES_pvt;
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: p_data => x_msg_data);
1256:
1257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1259: IBE_UTIL.DEBUG('Unexpected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1260: END IF;
1261: ROLLBACK TO DELETESHAREES_pvt;
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1263: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1263: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1264: p_count => x_msg_count ,
1265: p_data => x_msg_data);
1266: WHEN OTHERS THEN
1267: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1268: IBE_UTIL.DEBUG('Unknown error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1269: END IF;
1270: ROLLBACK TO DELETESHAREES_pvt;
1271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: p_count => x_msg_count ,
1265: p_data => x_msg_data);
1266: WHEN OTHERS THEN
1267: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1268: IBE_UTIL.DEBUG('Unknown error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1269: END IF;
1270: ROLLBACK TO DELETESHAREES_pvt;
1271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1272: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1332: rec_get_recip_id c_get_recip_id%rowtype;
1333: rec_get_party_id c_get_party_id%rowtype;
1334:
1335: BEGIN
1336: -- IBE_Util.Enable_Debug;
1337: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1338: IBE_Util.Debug('START IBE_Quote_Save_pvt.Delete()');
1339: END IF;
1340: --DBMS_OUTPUT.PUT_line('Begin IBE_Quote_Save_pvt.Delete()');
1333: rec_get_party_id c_get_party_id%rowtype;
1334:
1335: BEGIN
1336: -- IBE_Util.Enable_Debug;
1337: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1338: IBE_Util.Debug('START IBE_Quote_Save_pvt.Delete()');
1339: END IF;
1340: --DBMS_OUTPUT.PUT_line('Begin IBE_Quote_Save_pvt.Delete()');
1341: -- Standard Start of API savepoint
1334:
1335: BEGIN
1336: -- IBE_Util.Enable_Debug;
1337: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1338: IBE_Util.Debug('START IBE_Quote_Save_pvt.Delete()');
1339: END IF;
1340: --DBMS_OUTPUT.PUT_line('Begin IBE_Quote_Save_pvt.Delete()');
1341: -- Standard Start of API savepoint
1342: SAVEPOINT DELETE_pvt;
1370: from ibe_sh_quote_access
1371: where party_id = p_initiator_party_id
1372: and quote_header_id = p_quote_header_id
1373: and cust_account_id = p_initiator_account_id;
1374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1375: IBE_UTIL.DEBUG('Recipient is deleting the cart. Partyid: ' || p_initiator_party_id || ' RetrievalNumber: ' || l_retrieval_number);
1376: END IF;
1377: end if;
1378: -- User Authentication
1371: where party_id = p_initiator_party_id
1372: and quote_header_id = p_quote_header_id
1373: and cust_account_id = p_initiator_account_id;
1374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1375: IBE_UTIL.DEBUG('Recipient is deleting the cart. Partyid: ' || p_initiator_party_id || ' RetrievalNumber: ' || l_retrieval_number);
1376: END IF;
1377: end if;
1378: -- User Authentication
1379: --DBMS_OUTPUT.PUT_line('validate_user_update start ');
1402: --DBMS_OUTPUT.PUT_line('validate_user_update start end ');
1403: END IF;
1404:
1405: -- get quote stutus
1406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1407: IBE_UTIL.DEBUG('get quote stutus');
1408: END IF;
1409: l_quote_status := IBE_Quote_Misc_pvt.get_Quote_status(p_quote_header_id);
1410:
1403: END IF;
1404:
1405: -- get quote stutus
1406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1407: IBE_UTIL.DEBUG('get quote stutus');
1408: END IF;
1409: l_quote_status := IBE_Quote_Misc_pvt.get_Quote_status(p_quote_header_id);
1410:
1411: IF (l_quote_status = 'NOT_EXIST') THEN
1409: l_quote_status := IBE_Quote_Misc_pvt.get_Quote_status(p_quote_header_id);
1410:
1411: IF (l_quote_status = 'NOT_EXIST') THEN
1412: --DBMS_OUTPUT.PUT_line('Quote not exists ');
1413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1414: IBE_UTIL.DEBUG('Quote not exists ');
1415: END IF;
1416: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1417: FND_Message.Set_Name('IBE', 'IBE_SC_NO_QUOTE_EXIST');
1410:
1411: IF (l_quote_status = 'NOT_EXIST') THEN
1412: --DBMS_OUTPUT.PUT_line('Quote not exists ');
1413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1414: IBE_UTIL.DEBUG('Quote not exists ');
1415: END IF;
1416: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1417: FND_Message.Set_Name('IBE', 'IBE_SC_NO_QUOTE_EXIST');
1418: FND_Msg_Pub.Add;
1419: END IF;
1420: RAISE FND_API.G_EXC_ERROR;
1421: ELSIF (l_quote_status = 'ORDERED') THEN
1422: --DBMS_OUTPUT.PUT_line('Quote ordered ');
1423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1424: IBE_UTIL.DEBUG('Quote ordered ');
1425: END IF;
1426: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1427: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_IS_ORDERED');
1420: RAISE FND_API.G_EXC_ERROR;
1421: ELSIF (l_quote_status = 'ORDERED') THEN
1422: --DBMS_OUTPUT.PUT_line('Quote ordered ');
1423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1424: IBE_UTIL.DEBUG('Quote ordered ');
1425: END IF;
1426: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1427: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_IS_ORDERED');
1428: FND_Msg_Pub.Add;
1432: --Removing this validation because this is aleady being done in validate_user_update
1433: /* -- validate last_update_date
1434: IF (p_last_update_date is not null
1435: and p_last_update_date <> FND_API.G_MISS_DATE) THEN
1436: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1437: IBE_UTIL.DEBUG('validate last_update_date ');
1438: END IF;
1439: IBE_Quote_Misc_pvt.validateQuoteLastUpdateDate
1440: ( p_api_version_number => p_api_version_number
1433: /* -- validate last_update_date
1434: IF (p_last_update_date is not null
1435: and p_last_update_date <> FND_API.G_MISS_DATE) THEN
1436: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1437: IBE_UTIL.DEBUG('validate last_update_date ');
1438: END IF;
1439: IBE_Quote_Misc_pvt.validateQuoteLastUpdateDate
1440: ( p_api_version_number => p_api_version_number
1441: ,p_quote_header_id => p_quote_header_id
1453: END IF;*/
1454:
1455: -- makulkar: Moving the deactivate quote code before expunge flag check. Bug 3715127.
1456:
1457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1458: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1459: END IF;
1460: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1461: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1454:
1455: -- makulkar: Moving the deactivate quote code before expunge flag check. Bug 3715127.
1456:
1457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1458: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1459: END IF;
1460: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1461: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1462: END IF;
1456:
1457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1458: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1459: END IF;
1460: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1461: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1462: END IF;
1463: --DBMS_OUTPUT.PUT_line('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1464: -- Stop sharing this quote if this is a shared quote.
1457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1458: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1459: END IF;
1460: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1461: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1462: END IF;
1463: --DBMS_OUTPUT.PUT_line('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1464: -- Stop sharing this quote if this is a shared quote.
1465: IBE_QUOTE_SAVESHARE_V2_PVT.stop_sharing (
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1487: --DBMS_OUTPUT.PUT_line('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing ');
1488: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1489: IBE_UTIL.DEBUG('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1490: END IF;
1491:
1492:
1485: END IF;
1486:
1487: --DBMS_OUTPUT.PUT_line('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing ');
1488: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1489: IBE_UTIL.DEBUG('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1490: END IF;
1491:
1492:
1493: --MANNAMRA:Changes for save/share project(09/12/02)
1494: /*If p_expunge_flag is true then call aso_quote_pub.delete, else
1495: invalidate the quote setting the quote status to 'INVALID' status
1496: and expiring the quote*/
1497:
1498: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1499: IBE_UTIL.DEBUG('expunge flag is: '||p_expunge_flag);
1500: END IF;
1501: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1502: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1495: invalidate the quote setting the quote status to 'INVALID' status
1496: and expiring the quote*/
1497:
1498: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1499: IBE_UTIL.DEBUG('expunge flag is: '||p_expunge_flag);
1500: END IF;
1501: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1502: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1503: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1499: IBE_UTIL.DEBUG('expunge flag is: '||p_expunge_flag);
1500: END IF;
1501: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1502: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1503: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1504: IBE_Util.Debug('Expunge flag is true') ;
1505: END IF;
1506: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1500: END IF;
1501: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1502: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1503: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1504: IBE_Util.Debug('Expunge flag is true') ;
1505: END IF;
1506: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1508: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() starts');
1503: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1504: IBE_Util.Debug('Expunge flag is true') ;
1505: END IF;
1506: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1508: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() starts');
1509: END IF;
1510: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() starts');
1511:
1504: IBE_Util.Debug('Expunge flag is true') ;
1505: END IF;
1506: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1508: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() starts');
1509: END IF;
1510: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() starts');
1511:
1512:
1520: ,x_Msg_Data => x_msg_data );
1521:
1522:
1523:
1524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1525: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() finishes');
1526: END IF;
1527: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() finishes');
1528: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1521:
1522:
1523:
1524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1525: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() finishes');
1526: END IF;
1527: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() finishes');
1528: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1529: RAISE FND_API.G_EXC_ERROR;
1533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1534: END IF;
1535:
1536: ELSE
1537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1538: IBE_Util.Debug('Expunge flag is false');
1539: END IF;
1540: --DBMS_OUTPUT.PUT_line(' Expunge flag is false');
1541: FOR rec_get_quote_status in c_get_quote_status LOOP
1534: END IF;
1535:
1536: ELSE
1537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1538: IBE_Util.Debug('Expunge flag is false');
1539: END IF;
1540: --DBMS_OUTPUT.PUT_line(' Expunge flag is false');
1541: FOR rec_get_quote_status in c_get_quote_status LOOP
1542: l_quote_Status_id := rec_get_quote_status.quote_status_id;
1547: --Forcing the quote to inactivate
1548: l_quote_header_rec.quote_status_id := l_quote_Status_id;
1549: --Forcing the quote to expire
1550: l_quote_header_rec.quote_expiration_date := trunc(sysdate);
1551: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1552: IBE_Util.Debug('Values of quote header rec before calling Save API');
1553: END IF;
1554:
1555: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1548: l_quote_header_rec.quote_status_id := l_quote_Status_id;
1549: --Forcing the quote to expire
1550: l_quote_header_rec.quote_expiration_date := trunc(sysdate);
1551: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1552: IBE_Util.Debug('Values of quote header rec before calling Save API');
1553: END IF;
1554:
1555: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1552: IBE_Util.Debug('Values of quote header rec before calling Save API');
1553: END IF;
1554:
1555: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1557: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1558: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1559: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1560: END IF;
1553: END IF;
1554:
1555: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1557: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1558: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1559: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1560: END IF;
1561: --DBMS_OUTPUT.PUT_line('calling save ');
1554:
1555: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1557: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1558: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1559: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1560: END IF;
1561: --DBMS_OUTPUT.PUT_line('calling save ');
1562: ibe_quote_save_pvt.save(
1555: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1557: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1558: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1559: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1560: END IF;
1561: --DBMS_OUTPUT.PUT_line('calling save ');
1562: ibe_quote_save_pvt.save(
1563: p_api_version_number => p_api_version_number ,
1593: -- Standard call to get message count and if count is 1, get message info.
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: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1598: IBE_Util.Debug('End IBE_Quote_Save_pvt.Delete()');
1599: END IF;
1600: -- IBE_Util.Disable_Debug;
1601: EXCEPTION
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: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1598: IBE_Util.Debug('End IBE_Quote_Save_pvt.Delete()');
1599: END IF;
1600: -- IBE_Util.Disable_Debug;
1601: EXCEPTION
1602: WHEN FND_API.G_EXC_ERROR THEN
1596: p_data => x_msg_data);
1597: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1598: IBE_Util.Debug('End IBE_Quote_Save_pvt.Delete()');
1599: END IF;
1600: -- IBE_Util.Disable_Debug;
1601: EXCEPTION
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1604: IBE_Util.Debug('Expected error: End IBE_Quote_Save_pvt.Delete()');
1599: END IF;
1600: -- IBE_Util.Disable_Debug;
1601: EXCEPTION
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1604: IBE_Util.Debug('Expected error: End IBE_Quote_Save_pvt.Delete()');
1605: END IF;
1606:
1607: ROLLBACK TO DELETE_pvt;
1600: -- IBE_Util.Disable_Debug;
1601: EXCEPTION
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1604: IBE_Util.Debug('Expected error: End IBE_Quote_Save_pvt.Delete()');
1605: END IF;
1606:
1607: ROLLBACK TO DELETE_pvt;
1608: x_return_status := FND_API.G_RET_STS_ERROR;
1608: x_return_status := FND_API.G_RET_STS_ERROR;
1609: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1610: p_count => x_msg_count ,
1611: p_data => x_msg_data);
1612: --IBE_Util.Disable_Debug;
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1615: IBE_Util.Debug('Unexpected error: End IBE_Quote_Save_pvt.Delete()');
1616: END IF;
1610: p_count => x_msg_count ,
1611: p_data => x_msg_data);
1612: --IBE_Util.Disable_Debug;
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1615: IBE_Util.Debug('Unexpected error: End IBE_Quote_Save_pvt.Delete()');
1616: END IF;
1617: ROLLBACK TO DELETE_pvt;
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1611: p_data => x_msg_data);
1612: --IBE_Util.Disable_Debug;
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1615: IBE_Util.Debug('Unexpected error: End IBE_Quote_Save_pvt.Delete()');
1616: END IF;
1617: ROLLBACK TO DELETE_pvt;
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1620: p_count => x_msg_count ,
1621: p_data => x_msg_data);
1622: -- IBE_Util.Disable_Debug;
1623: WHEN OTHERS THEN
1624: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1625: IBE_Util.Debug('Unknown error: End IBE_Quote_Save_pvt.Delete()');
1626: END IF;
1620: p_count => x_msg_count ,
1621: p_data => x_msg_data);
1622: -- IBE_Util.Disable_Debug;
1623: WHEN OTHERS THEN
1624: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1625: IBE_Util.Debug('Unknown error: End IBE_Quote_Save_pvt.Delete()');
1626: END IF;
1627: ROLLBACK TO DELETE_pvt;
1628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1621: p_data => x_msg_data);
1622: -- IBE_Util.Disable_Debug;
1623: WHEN OTHERS THEN
1624: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1625: IBE_Util.Debug('Unknown error: End IBE_Quote_Save_pvt.Delete()');
1626: END IF;
1627: ROLLBACK TO DELETE_pvt;
1628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1629: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1632: END IF;
1633: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1634: p_count => x_msg_count ,
1635: p_data => x_msg_data);
1636: --IBE_Util.Disable_Debug;
1637: END DELETE;
1638:
1639:
1640: PROCEDURE DeleteAllLines(
1760: p_data => x_msg_data);
1761:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_ERROR THEN
1764: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1765: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.DeleteAllLines()');
1766: END IF;
1767: ROLLBACK TO DELETEALLLINES_pvt;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1761:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_ERROR THEN
1764: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1765: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.DeleteAllLines()');
1766: END IF;
1767: ROLLBACK TO DELETEALLLINES_pvt;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1770: p_count => x_msg_count ,
1771: p_data => x_msg_data);
1772:
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1775: IBE_Util.Debug('Unexpected error:IBE_Quote_Save_pvt.DeleteAllLines()');
1776: END IF;
1777:
1778: ROLLBACK TO DELETEALLLINES_pvt;
1771: p_data => x_msg_data);
1772:
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1775: IBE_Util.Debug('Unexpected error:IBE_Quote_Save_pvt.DeleteAllLines()');
1776: END IF;
1777:
1778: ROLLBACK TO DELETEALLLINES_pvt;
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1781: p_count => x_msg_count,
1782: p_data => x_msg_data);
1783: WHEN OTHERS THEN
1784: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1785: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.DeleteAllLines()');
1786: END IF;
1787:
1788: ROLLBACK TO DELETEALLLINES_pvt;
1781: p_count => x_msg_count,
1782: p_data => x_msg_data);
1783: WHEN OTHERS THEN
1784: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1785: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.DeleteAllLines()');
1786: END IF;
1787:
1788: ROLLBACK TO DELETEALLLINES_pvt;
1789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2022: x_return_status := FND_API.G_RET_STS_SUCCESS;
2023:
2024: -- API body
2025:
2026: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2027: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2028: END IF;
2029:
2030: lx_Hd_Payment_Tbl := p_Hd_Payment_Tbl;
2023:
2024: -- API body
2025:
2026: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2027: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2028: END IF;
2029:
2030: lx_Hd_Payment_Tbl := p_Hd_Payment_Tbl;
2031: lx_Hd_Shipment_Tbl := p_Hd_Shipment_Tbl;
2031: lx_Hd_Shipment_Tbl := p_Hd_Shipment_Tbl;
2032: lx_Hd_Tax_Detail_Tbl := p_Hd_Tax_Detail_Tbl;
2033: lx_Qte_Header_Rec := p_Qte_Header_Rec;
2034:
2035: -- IBE_Util.Enable_Debug;
2036:
2037: l_Qte_Line_Tbl := p_Qte_Line_Tbl;
2038: l_Qte_Line_Dtl_Tbl := p_Qte_Line_Dtl_Tbl;
2039:
2036:
2037: l_Qte_Line_Tbl := p_Qte_Line_Tbl;
2038: l_Qte_Line_Dtl_Tbl := p_Qte_Line_Dtl_Tbl;
2039:
2040: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2041: IBE_Util.Debug('Save_flag in AddItemsToCart_orig is: '||p_save_flag);
2042: END IF;
2043:
2044: -- Check for cart level support
2037: l_Qte_Line_Tbl := p_Qte_Line_Tbl;
2038: l_Qte_Line_Dtl_Tbl := p_Qte_Line_Dtl_Tbl;
2039:
2040: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2041: IBE_Util.Debug('Save_flag in AddItemsToCart_orig is: '||p_save_flag);
2042: END IF;
2043:
2044: -- Check for cart level support
2045: if (( FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL') <> 'N') AND
2045: if (( FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL') <> 'N') AND
2046: ((FND_Profile.Value('IBE_USE_SUPPORT') = 'N') OR (FND_Profile.Value('IBE_USE_SUPPORT') is null ))) then
2047: l_isCartSupp := 'Y';
2048: else
2049: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2050: IBE_Util.Debug('Cart level support turned off ');
2051: END IF;
2052: end if;
2053: -- Check for line level support
2046: ((FND_Profile.Value('IBE_USE_SUPPORT') = 'N') OR (FND_Profile.Value('IBE_USE_SUPPORT') is null ))) then
2047: l_isCartSupp := 'Y';
2048: else
2049: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2050: IBE_Util.Debug('Cart level support turned off ');
2051: END IF;
2052: end if;
2053: -- Check for line level support
2054: IF ((FND_Profile.Value('IBE_USE_SUPPORT') <> 'N') and
2053: -- Check for line level support
2054: IF ((FND_Profile.Value('IBE_USE_SUPPORT') <> 'N') and
2055: (FND_Profile.Value('IBE_USE_SUPPORT') is not null)) THEN
2056:
2057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2058: IBE_Util.Debug('Line level support profile turned on');
2059: END IF;
2060: l_line_level_services := 'Y';
2061: ELSE
2054: IF ((FND_Profile.Value('IBE_USE_SUPPORT') <> 'N') and
2055: (FND_Profile.Value('IBE_USE_SUPPORT') is not null)) THEN
2056:
2057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2058: IBE_Util.Debug('Line level support profile turned on');
2059: END IF;
2060: l_line_level_services := 'Y';
2061: ELSE
2062: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2058: IBE_Util.Debug('Line level support profile turned on');
2059: END IF;
2060: l_line_level_services := 'Y';
2061: ELSE
2062: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2063: IBE_Util.Debug('Line level support profile turned off');
2064: END IF;
2065: END IF;
2066:
2059: END IF;
2060: l_line_level_services := 'Y';
2061: ELSE
2062: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2063: IBE_Util.Debug('Line level support profile turned off');
2064: END IF;
2065: END IF;
2066:
2067: --DBMS_OUTPUT.PUT_line('l_isCartSupp='||l_isCartSupp);
2064: END IF;
2065: END IF;
2066:
2067: --DBMS_OUTPUT.PUT_line('l_isCartSupp='||l_isCartSupp);
2068: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2069: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2070: END IF;
2071:
2072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2065: END IF;
2066:
2067: --DBMS_OUTPUT.PUT_line('l_isCartSupp='||l_isCartSupp);
2068: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2069: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2070: END IF;
2071:
2072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2073: IBE_Util.Debug('l_line_level_services = '||l_line_level_services);
2068: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2069: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2070: END IF;
2071:
2072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2073: IBE_Util.Debug('l_line_level_services = '||l_line_level_services);
2074: END IF;
2075:
2076: IF (p_Qte_Header_Rec.quote_header_id is null) THEN
2069: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2070: END IF;
2071:
2072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2073: IBE_Util.Debug('l_line_level_services = '||l_line_level_services);
2074: END IF;
2075:
2076: IF (p_Qte_Header_Rec.quote_header_id is null) THEN
2077: l_isCartEmpty := 'Y';
2076: IF (p_Qte_Header_Rec.quote_header_id is null) THEN
2077: l_isCartEmpty := 'Y';
2078: END IF;
2079: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2080: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2081: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2082: END IF;
2083:
2084: --Cart level support logic
2077: l_isCartEmpty := 'Y';
2078: END IF;
2079: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2080: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2081: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2082: END IF;
2083:
2084: --Cart level support logic
2085: IF (l_isCartSupp = 'Y') THEN
2092: WHERE quote_header_id = p_Qte_Header_Rec.quote_header_id;
2093: END IF;
2094:
2095: --DBMS_OUTPUT.PUT_line('l_numLines='||l_numLines);
2096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2097: IBE_Util.Debug('l_numLines='||l_numLines);
2098: END IF;
2099:
2100: IF ((l_isCartEmpty = 'Y') or (l_numLines = 0)) THEN
2093: END IF;
2094:
2095: --DBMS_OUTPUT.PUT_line('l_numLines='||l_numLines);
2096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2097: IBE_Util.Debug('l_numLines='||l_numLines);
2098: END IF;
2099:
2100: IF ((l_isCartEmpty = 'Y') or (l_numLines = 0)) THEN
2101: l_isCartEmpty := 'Y';
2101: l_isCartEmpty := 'Y';
2102: END IF;
2103:
2104: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2105: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2106: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2107: END IF;
2108:
2109: IF ((p_Qte_Header_Rec.quote_header_id is not null)
2102: END IF;
2103:
2104: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2105: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2106: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2107: END IF;
2108:
2109: IF ((p_Qte_Header_Rec.quote_header_id is not null)
2110: and (p_Qte_Header_Rec.quote_header_id <> FND_API.G_MISS_NUM) ) THEN
2119: --Quote has serviceable items
2120: l_hasSVA := 'Y';
2121: END IF;
2122: --DBMS_OUTPUT.PUT_line('l_hasSVA='||l_hasSVA);
2123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2124: IBE_Util.Debug('l_hasSVA='||l_hasSVA);
2125: END IF;
2126:
2127: -- added 8/4/03: if merge case, we might not want to pass SRV info down
2120: l_hasSVA := 'Y';
2121: END IF;
2122: --DBMS_OUTPUT.PUT_line('l_hasSVA='||l_hasSVA);
2123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2124: IBE_Util.Debug('l_hasSVA='||l_hasSVA);
2125: END IF;
2126:
2127: -- added 8/4/03: if merge case, we might not want to pass SRV info down
2128: IF (p_combinesameitem = FND_API.G_MISS_CHAR) THEN
2152: IF ((p_ql_line_codes(i) = SERVICEABLE_LINE_CODE) and
2153: ((l_combinesameitem is null) or (l_combinesameitem = 'N') or (l_numLines = 0)) ) THEN -- SVA
2154:
2155: --DBMS_OUTPUT.PUT_line('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2156: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2157: IBE_Util.Debug('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2158: END IF;
2159:
2160: -- if we have not gotten a list of the support services and cart is not empty
2153: ((l_combinesameitem is null) or (l_combinesameitem = 'N') or (l_numLines = 0)) ) THEN -- SVA
2154:
2155: --DBMS_OUTPUT.PUT_line('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2156: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2157: IBE_Util.Debug('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2158: END IF;
2159:
2160: -- if we have not gotten a list of the support services and cart is not empty
2161: IF ((l_itemIdListSRV is null)
2160: -- if we have not gotten a list of the support services and cart is not empty
2161: IF ((l_itemIdListSRV is null)
2162: and (l_isCartEmpty = 'N') ) THEN
2163: --DBMS_OUTPUT.PUT_line('l_itemIdListSRV is null');
2164: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2165: IBE_Util.Debug('l_itemIdListSRV is null');
2166: END IF;
2167:
2168: l_svcIndex := 1;
2161: IF ((l_itemIdListSRV is null)
2162: and (l_isCartEmpty = 'N') ) THEN
2163: --DBMS_OUTPUT.PUT_line('l_itemIdListSRV is null');
2164: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2165: IBE_Util.Debug('l_itemIdListSRV is null');
2166: END IF;
2167:
2168: l_svcIndex := 1;
2169:
2173: l_itemIdListSRV := JTF_NUMBER_TABLE();
2174: END IF;
2175: IF (l_chkPrevRefLine is null) THEN -- if we're just starting
2176: --DBMS_OUTPUT.PUT_line('just starting: l_svcIndex ='||l_svcIndex);
2177: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2178: IBE_Util.Debug('just starting: l_svcIndex ='||l_svcIndex);
2179: END IF;
2180:
2181: l_chkPrevRefLine := rec_service.refLine;
2174: END IF;
2175: IF (l_chkPrevRefLine is null) THEN -- if we're just starting
2176: --DBMS_OUTPUT.PUT_line('just starting: l_svcIndex ='||l_svcIndex);
2177: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2178: IBE_Util.Debug('just starting: l_svcIndex ='||l_svcIndex);
2179: END IF;
2180:
2181: l_chkPrevRefLine := rec_service.refLine;
2182: l_itemIdListSRV.extend();
2184: l_svcIndex := l_svcIndex + 1;
2185: ELSE -- else we're not
2186: IF (l_chkPrevRefLine = rec_service.refLine) then -- if we have the same ref line as the previous
2187: --DBMS_OUTPUT.PUT_line('same ref line: l_svcIndex ='||l_svcIndex);
2188: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2189: IBE_Util.Debug('same ref line: l_svcIndex ='||l_svcIndex);
2190: END IF;
2191: l_itemIdListSRV.extend();
2192: l_itemIdListSRV(l_svcIndex) := rec_service.invId;
2185: ELSE -- else we're not
2186: IF (l_chkPrevRefLine = rec_service.refLine) then -- if we have the same ref line as the previous
2187: --DBMS_OUTPUT.PUT_line('same ref line: l_svcIndex ='||l_svcIndex);
2188: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2189: IBE_Util.Debug('same ref line: l_svcIndex ='||l_svcIndex);
2190: END IF;
2191: l_itemIdListSRV.extend();
2192: l_itemIdListSRV(l_svcIndex) := rec_service.invId;
2193: l_svcIndex := l_svcIndex + 1;
2192: l_itemIdListSRV(l_svcIndex) := rec_service.invId;
2193: l_svcIndex := l_svcIndex + 1;
2194: ELSE -- else we're done
2195: --DBMS_OUTPUT.PUT_line(' done: l_svcIndex ='||l_svcIndex);
2196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2197: IBE_Util.Debug(' done: l_svcIndex ='||l_svcIndex);
2198: END IF;
2199: EXIT;
2200: END IF; --If we have the same service ref line as the previous one
2193: l_svcIndex := l_svcIndex + 1;
2194: ELSE -- else we're done
2195: --DBMS_OUTPUT.PUT_line(' done: l_svcIndex ='||l_svcIndex);
2196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2197: IBE_Util.Debug(' done: l_svcIndex ='||l_svcIndex);
2198: END IF;
2199: EXIT;
2200: END IF; --If we have the same service ref line as the previous one
2201: END IF; --If (l_chkPrevRefLine is null)
2207: l_suppLevelLookupName := rtrim(ltrim(FND_Profile.Value('IBE_CART_LEVEL_SUPPORT_LOOKUP')));
2208: l_suppLevelProfileValue := rtrim(ltrim(FND_Profile.Value('IBE_PREFERED_SUPPORT_LEVEL')));
2209:
2210:
2211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2212: IBE_Util.Debug('Support Level Lookup Name: ' || l_suppLevelLookupName);
2213: IBE_Util.Debug('Prefered Support Level : ' || l_suppLevelProfileValue);
2214: END IF;
2215:
2208: l_suppLevelProfileValue := rtrim(ltrim(FND_Profile.Value('IBE_PREFERED_SUPPORT_LEVEL')));
2209:
2210:
2211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2212: IBE_Util.Debug('Support Level Lookup Name: ' || l_suppLevelLookupName);
2213: IBE_Util.Debug('Prefered Support Level : ' || l_suppLevelProfileValue);
2214: END IF;
2215:
2216: OPEN c_get_support_level(l_suppLevelLookupName,l_suppLevelProfileValue);
2209:
2210:
2211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2212: IBE_Util.Debug('Support Level Lookup Name: ' || l_suppLevelLookupName);
2213: IBE_Util.Debug('Prefered Support Level : ' || l_suppLevelProfileValue);
2214: END IF;
2215:
2216: OPEN c_get_support_level(l_suppLevelLookupName,l_suppLevelProfileValue);
2217: fetch c_get_support_level into support_level_check;
2229: l_itemIdListSRV := JTF_NUMBER_TABLE();
2230: l_profValueSize := length(l_suppLevelProfileValue);
2231: l_startIndex := 1;
2232: --DBMS_OUTPUT.PUT_line(' start: l_profValueSize ='||l_profValueSize);
2233: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2234: IBE_Util.Debug(' start: l_profValueSize ='||l_profValueSize);
2235: END IF;
2236:
2237: FOR firstItmIndx in 1..l_profValueSize LOOP
2230: l_profValueSize := length(l_suppLevelProfileValue);
2231: l_startIndex := 1;
2232: --DBMS_OUTPUT.PUT_line(' start: l_profValueSize ='||l_profValueSize);
2233: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2234: IBE_Util.Debug(' start: l_profValueSize ='||l_profValueSize);
2235: END IF;
2236:
2237: FOR firstItmIndx in 1..l_profValueSize LOOP
2238: l_commIndex := instr(l_suppLevelProfileValue, ',', 1, firstItmIndx);
2241: ELSE
2242: l_commIndex := l_commIndex - l_startIndex;
2243: END IF;
2244: --DBMS_OUTPUT.PUT_line(' l_startIndex ='||l_startIndex);
2245: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2246: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2247: END IF;
2248: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2242: l_commIndex := l_commIndex - l_startIndex;
2243: END IF;
2244: --DBMS_OUTPUT.PUT_line(' l_startIndex ='||l_startIndex);
2245: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2246: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2247: END IF;
2248: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2250: IBE_Util.Debug(' l_commIndex ='||l_commIndex);
2245: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2246: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2247: END IF;
2248: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2250: IBE_Util.Debug(' l_commIndex ='||l_commIndex);
2251: END IF;
2252:
2253: l_itemIdListSRV.extend();
2246: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2247: END IF;
2248: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2250: IBE_Util.Debug(' l_commIndex ='||l_commIndex);
2251: END IF;
2252:
2253: l_itemIdListSRV.extend();
2254: --DBMS_OUTPUT.PUT_line(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2251: END IF;
2252:
2253: l_itemIdListSRV.extend();
2254: --DBMS_OUTPUT.PUT_line(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2255: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2256: IBE_Util.Debug(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2257: END IF;
2258: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2259: l_startIndex := l_startIndex + l_commIndex + 1;
2252:
2253: l_itemIdListSRV.extend();
2254: --DBMS_OUTPUT.PUT_line(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2255: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2256: IBE_Util.Debug(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2257: END IF;
2258: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2259: l_startIndex := l_startIndex + l_commIndex + 1;
2260: --DBMS_OUTPUT.PUT_line(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2257: END IF;
2258: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2259: l_startIndex := l_startIndex + l_commIndex + 1;
2260: --DBMS_OUTPUT.PUT_line(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2262: IBE_Util.Debug(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2263: END IF;
2264:
2265: IF (l_startIndex > l_profValueSize) THEN
2258: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2259: l_startIndex := l_startIndex + l_commIndex + 1;
2260: --DBMS_OUTPUT.PUT_line(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2262: IBE_Util.Debug(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2263: END IF;
2264:
2265: IF (l_startIndex > l_profValueSize) THEN
2266: EXIT;
2303: l_periodListSRV.extend();
2304: l_periodListSRV(j) := rec_itemInfo.period;
2305: l_durationListSRV.extend();
2306: l_durationListSRV(j):= rec_itemInfo.duration;
2307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2308: IBE_Util.Debug('Quertying mtl_sytem_items_vl the first time');
2309: END IF;
2310: END IF; -- if we haven't queried mtl_system_items_vl table
2311:
2304: l_periodListSRV(j) := rec_itemInfo.period;
2305: l_durationListSRV.extend();
2306: l_durationListSRV(j):= rec_itemInfo.duration;
2307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2308: IBE_Util.Debug('Quertying mtl_sytem_items_vl the first time');
2309: END IF;
2310: END IF; -- if we haven't queried mtl_system_items_vl table
2311:
2312: l_Qte_Line_Tbl(l_quoteLineSize+j).quote_header_id := p_Qte_Header_Rec.quote_header_id;
2330:
2331: l_quoteLineSize := l_Qte_Line_Tbl.count;
2332: l_quoteLineDetSize := l_Qte_Line_Dtl_Tbl.count;
2333: --DBMS_OUTPUT.PUT_line('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2334: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2335: IBE_Util.Debug('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2336: END IF;
2337: END LOOP; -- loop through p_ql_line_codes
2338: END IF; -- if p_ql_line_codes is not null
2331: l_quoteLineSize := l_Qte_Line_Tbl.count;
2332: l_quoteLineDetSize := l_Qte_Line_Dtl_Tbl.count;
2333: --DBMS_OUTPUT.PUT_line('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2334: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2335: IBE_Util.Debug('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2336: END IF;
2337: END LOOP; -- loop through p_ql_line_codes
2338: END IF; -- if p_ql_line_codes is not null
2339: ELSIF(l_line_level_services = 'Y') THEN
2337: END LOOP; -- loop through p_ql_line_codes
2338: END IF; -- if p_ql_line_codes is not null
2339: ELSIF(l_line_level_services = 'Y') THEN
2340:
2341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2342: IBE_Util.Debug('Entering the logic for line level support');
2343: END IF;
2344:
2345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2338: END IF; -- if p_ql_line_codes is not null
2339: ELSIF(l_line_level_services = 'Y') THEN
2340:
2341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2342: IBE_Util.Debug('Entering the logic for line level support');
2343: END IF;
2344:
2345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2346: IBE_Util.Debug('IBE_QUOTE_MISC_PVT.get_multi_svc_profile: '||IBE_QUOTE_MISC_PVT.get_multi_svc_profile);
2341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2342: IBE_Util.Debug('Entering the logic for line level support');
2343: END IF;
2344:
2345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2346: IBE_Util.Debug('IBE_QUOTE_MISC_PVT.get_multi_svc_profile: '||IBE_QUOTE_MISC_PVT.get_multi_svc_profile);
2347: END IF;
2348:
2349: --CHANGES FOR LINE LEVEL SERVICES
2342: IBE_Util.Debug('Entering the logic for line level support');
2343: END IF;
2344:
2345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2346: IBE_Util.Debug('IBE_QUOTE_MISC_PVT.get_multi_svc_profile: '||IBE_QUOTE_MISC_PVT.get_multi_svc_profile);
2347: END IF;
2348:
2349: --CHANGES FOR LINE LEVEL SERVICES
2350: IF(IBE_QUOTE_MISC_PVT.get_multi_svc_profile <> 'T') THEN
2349: --CHANGES FOR LINE LEVEL SERVICES
2350: IF(IBE_QUOTE_MISC_PVT.get_multi_svc_profile <> 'T') THEN
2351:
2352: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2353: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2354: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2355: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2356: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2357: END IF;
2350: IF(IBE_QUOTE_MISC_PVT.get_multi_svc_profile <> 'T') THEN
2351:
2352: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2353: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2354: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2355: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2356: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2357: END IF;
2358:
2351:
2352: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2353: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2354: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2355: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2356: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2357: END IF;
2358:
2359: IF(p_Qte_Line_Dtl_Tbl(i).service_ref_type_code <> 'CUSTOMER_PRODUCT')
2352: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2353: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2354: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2355: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2356: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2357: END IF;
2358:
2359: IF(p_Qte_Line_Dtl_Tbl(i).service_ref_type_code <> 'CUSTOMER_PRODUCT')
2360: and (p_Qte_Line_Dtl_Tbl(i).operation_code = 'CREATE') THEN
2364: p_Qte_Line_Dtl_Tbl(i).service_ref_line_id <> FND_API.g_miss_num) THEN
2365:
2366: FOR rec_find_service in c_find_service(p_Qte_Line_Dtl_Tbl(i).service_ref_line_id) LOOP
2367: l_quote_line_id := rec_find_service.quote_line_id;
2368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2369: IBE_Util.Debug('service aleady exists,l_quote_line_id: '||l_quote_line_id);
2370: END IF;
2371:
2372: EXIT WHEN c_find_service%NOTFOUND;
2365:
2366: FOR rec_find_service in c_find_service(p_Qte_Line_Dtl_Tbl(i).service_ref_line_id) LOOP
2367: l_quote_line_id := rec_find_service.quote_line_id;
2368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2369: IBE_Util.Debug('service aleady exists,l_quote_line_id: '||l_quote_line_id);
2370: END IF;
2371:
2372: EXIT WHEN c_find_service%NOTFOUND;
2373: END LOOP;
2373: END LOOP;
2374:
2375: IF(l_quote_line_id is not null) THEN
2376:
2377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2378: IBE_Util.Debug('Service item existing for the service item, deleting the existing one');
2379: END IF;
2380: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count+1).quote_line_id := l_quote_line_id;
2381: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count).operation_code := 'DELETE';
2374:
2375: IF(l_quote_line_id is not null) THEN
2376:
2377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2378: IBE_Util.Debug('Service item existing for the service item, deleting the existing one');
2379: END IF;
2380: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count+1).quote_line_id := l_quote_line_id;
2381: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count).operation_code := 'DELETE';
2382: END IF; --(if l_quote_line_id is not null)
2390:
2391: l_ibeItemTypeSize := l_Qte_Line_Tbl.count;
2392: for i in 1..l_ibeItemTypeSize loop
2393: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2395: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2396: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2397: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2398: END IF;
2391: l_ibeItemTypeSize := l_Qte_Line_Tbl.count;
2392: for i in 1..l_ibeItemTypeSize loop
2393: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2395: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2396: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2397: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2398: END IF;
2399: end loop;
2392: for i in 1..l_ibeItemTypeSize loop
2393: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2395: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2396: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2397: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2398: END IF;
2399: end loop;
2400: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2393: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2395: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2396: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2397: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2398: END IF;
2399: end loop;
2400: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2401: FOR i in 1..l_ibeItemTypeSize LOOP
2399: end loop;
2400: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2401: FOR i in 1..l_ibeItemTypeSize LOOP
2402: --DBMS_OUTPUT.PUT_line('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2404: IBE_Util.Debug('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2405: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2406: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2407: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2400: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2401: FOR i in 1..l_ibeItemTypeSize LOOP
2402: --DBMS_OUTPUT.PUT_line('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2404: IBE_Util.Debug('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2405: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2406: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2407: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2408: END IF;
2401: FOR i in 1..l_ibeItemTypeSize LOOP
2402: --DBMS_OUTPUT.PUT_line('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2404: IBE_Util.Debug('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2405: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2406: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2407: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2408: END IF;
2409: END LOOP;
2402: --DBMS_OUTPUT.PUT_line('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2404: IBE_Util.Debug('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2405: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2406: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2407: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2408: END IF;
2409: END LOOP;
2410:
2403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2404: IBE_Util.Debug('i:'||i||' *service_ref_qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).service_ref_qte_line_index||' *qte_line_index = '||l_Qte_Line_Dtl_Tbl(i).qte_line_index);
2405: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2406: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2407: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2408: END IF;
2409: END LOOP;
2410:
2411: --Added during line level services.
2411: --Added during line level services.
2412: --1. if doing express checkout of items then the api below will retrieve exp settings
2413:
2414: IF(p_save_flag = SAVE_EXPRESSORDER) THEN
2415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2416: IBE_Util.Debug(' Save_flag is: '||p_save_flag||' Calling IBE_ORD_ONECLICK_PVT.Get_Express_items_settings' );
2417: END IF;
2418:
2419: IBE_ORD_ONECLICK_PVT.Get_Express_items_settings(
2412: --1. if doing express checkout of items then the api below will retrieve exp settings
2413:
2414: IF(p_save_flag = SAVE_EXPRESSORDER) THEN
2415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2416: IBE_Util.Debug(' Save_flag is: '||p_save_flag||' Calling IBE_ORD_ONECLICK_PVT.Get_Express_items_settings' );
2417: END IF;
2418:
2419: IBE_ORD_ONECLICK_PVT.Get_Express_items_settings(
2420: x_qte_header_rec => lx_Qte_Header_Rec
2436: AND (p_qte_header_rec.quote_name = 'IBE_PRMT_SC_UNNAMED' --MANNAMRA: 16/09/02:Changed IBEACTIVECART to IBEUNNAMED
2437: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR)
2438: AND (p_save_flag <> SAVE_EXPRESSORDER) THEN --Defaulting not required for express check out carts
2439:
2440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2441: IBE_Util.Debug(' need to get active cart');
2442: END IF;
2443: l_checkActiveCartId :=
2444: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
2437: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR)
2438: AND (p_save_flag <> SAVE_EXPRESSORDER) THEN --Defaulting not required for express check out carts
2439:
2440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2441: IBE_Util.Debug(' need to get active cart');
2442: END IF;
2443: l_checkActiveCartId :=
2444: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
2445: p_party_id => p_qte_header_rec.party_id,
2445: p_party_id => p_qte_header_rec.party_id,
2446: p_cust_account_id => p_qte_header_rec.cust_account_id);
2447: -- create quote
2448: IF (l_checkActiveCartId = 0) THEN
2449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2450: IBE_Util.Debug('About to call getHdrDefaultValues');
2451: END IF;
2452: getHdrDefaultValues(
2453: P_Api_Version_Number => p_api_version_number
2446: p_cust_account_id => p_qte_header_rec.cust_account_id);
2447: -- create quote
2448: IF (l_checkActiveCartId = 0) THEN
2449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2450: IBE_Util.Debug('About to call getHdrDefaultValues');
2451: END IF;
2452: getHdrDefaultValues(
2453: P_Api_Version_Number => p_api_version_number
2454: ,p_Init_Msg_List => p_init_msg_list
2484: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2486: END IF;
2487:
2488: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2489: IBE_Util.Debug('Back from calling getHdrDefaultValues');
2490: END IF;
2491: END IF;
2492: END IF;
2485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2486: END IF;
2487:
2488: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2489: IBE_Util.Debug('Back from calling getHdrDefaultValues');
2490: END IF;
2491: END IF;
2492: END IF;
2493:
2492: END IF;
2493:
2494: --maithili added for R12
2495: /*Check for marketing source code id in the DB, ignore passed in value if DB value already exists */
2496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2497: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2498: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.quote_header_id'||lx_Qte_Header_Rec.quote_header_id);
2499: END IF;
2500: IF lx_Qte_Header_Rec.marketing_source_code_id is not null and
2493:
2494: --maithili added for R12
2495: /*Check for marketing source code id in the DB, ignore passed in value if DB value already exists */
2496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2497: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2498: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.quote_header_id'||lx_Qte_Header_Rec.quote_header_id);
2499: END IF;
2500: IF lx_Qte_Header_Rec.marketing_source_code_id is not null and
2501: lx_Qte_Header_Rec.marketing_source_code_id <> fnd_api.g_miss_num and
2494: --maithili added for R12
2495: /*Check for marketing source code id in the DB, ignore passed in value if DB value already exists */
2496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2497: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2498: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.quote_header_id'||lx_Qte_Header_Rec.quote_header_id);
2499: END IF;
2500: IF lx_Qte_Header_Rec.marketing_source_code_id is not null and
2501: lx_Qte_Header_Rec.marketing_source_code_id <> fnd_api.g_miss_num and
2502: lx_Qte_Header_Rec.quote_header_id is not null and
2505: OPEN c_get_marketing_source(lx_Qte_Header_Rec.quote_header_id);
2506: FETCH c_get_marketing_source into l_marketing_source_code_id;
2507: CLOSE c_get_marketing_source;
2508:
2509: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2510: IBE_Util.Debug('l_marketing_source_code_id'||l_marketing_source_code_id);
2511: END IF;
2512:
2513: IF (l_marketing_source_code_id is not null) THEN
2506: FETCH c_get_marketing_source into l_marketing_source_code_id;
2507: CLOSE c_get_marketing_source;
2508:
2509: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2510: IBE_Util.Debug('l_marketing_source_code_id'||l_marketing_source_code_id);
2511: END IF;
2512:
2513: IF (l_marketing_source_code_id is not null) THEN
2514: lx_Qte_Header_Rec.marketing_source_code_id := FND_API.G_MISS_NUM;
2513: IF (l_marketing_source_code_id is not null) THEN
2514: lx_Qte_Header_Rec.marketing_source_code_id := FND_API.G_MISS_NUM;
2515: END IF;
2516: END IF;
2517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2518: IBE_Util.Debug('After Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2519: END IF;
2520:
2521: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2514: lx_Qte_Header_Rec.marketing_source_code_id := FND_API.G_MISS_NUM;
2515: END IF;
2516: END IF;
2517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2518: IBE_Util.Debug('After Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2519: END IF;
2520:
2521: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2522: IF lx_Hd_Price_Attributes_Tbl.count > 0 THEN -- check Duplicate Promo code stuff only if the pricing attr tbl is not null
2520:
2521: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2522: IF lx_Hd_Price_Attributes_Tbl.count > 0 THEN -- check Duplicate Promo code stuff only if the pricing attr tbl is not null
2523:
2524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2525: IBE_Util.Debug('Checking for duplicate promo codes'||lx_Hd_Price_Attributes_Tbl.count);
2526: END IF;
2527:
2528: l_Hd_Price_Attributes_Tbl_temp := lx_Hd_Price_Attributes_Tbl;
2521: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2522: IF lx_Hd_Price_Attributes_Tbl.count > 0 THEN -- check Duplicate Promo code stuff only if the pricing attr tbl is not null
2523:
2524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2525: IBE_Util.Debug('Checking for duplicate promo codes'||lx_Hd_Price_Attributes_Tbl.count);
2526: END IF;
2527:
2528: l_Hd_Price_Attributes_Tbl_temp := lx_Hd_Price_Attributes_Tbl;
2529:
2529:
2530: -- Query existing promo codes and populate them in DB array.
2531: FOR rec_pricing_attr_info in c_get_hdr_pricing_attributes(lx_Qte_Header_Rec.quote_header_id) LOOP
2532: l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 := rec_pricing_attr_info.pricing_attribute1;
2533: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2534: IBE_UTIL.debug('Existing Promo code in DB = '|| l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 );
2535: IBE_UTIL.debug('pricing index = '|| l_pricingIndex );
2536: END IF;
2537: l_pricingIndex := l_pricingIndex + 1;
2530: -- Query existing promo codes and populate them in DB array.
2531: FOR rec_pricing_attr_info in c_get_hdr_pricing_attributes(lx_Qte_Header_Rec.quote_header_id) LOOP
2532: l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 := rec_pricing_attr_info.pricing_attribute1;
2533: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2534: IBE_UTIL.debug('Existing Promo code in DB = '|| l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 );
2535: IBE_UTIL.debug('pricing index = '|| l_pricingIndex );
2536: END IF;
2537: l_pricingIndex := l_pricingIndex + 1;
2538:
2531: FOR rec_pricing_attr_info in c_get_hdr_pricing_attributes(lx_Qte_Header_Rec.quote_header_id) LOOP
2532: l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 := rec_pricing_attr_info.pricing_attribute1;
2533: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2534: IBE_UTIL.debug('Existing Promo code in DB = '|| l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 );
2535: IBE_UTIL.debug('pricing index = '|| l_pricingIndex );
2536: END IF;
2537: l_pricingIndex := l_pricingIndex + 1;
2538:
2539: EXIT WHEN c_get_hdr_pricing_attributes%NOTFOUND;
2544: AND l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1 <> FND_API.G_MISS_CHAR THEN
2545: For j IN 1..l_Hd_Price_Attributes_Tbl_DB.count LOOP
2546: If l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 IS NOT NULL AND
2547: l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1 = l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 THEN
2548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2549: IBE_UTIL.debug('Duplicate Promo code = '|| l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1||' found, setting pricing attribute rec to G_MISS_CHAR' );
2550: END IF;
2551: lx_Hd_Price_Attributes_Tbl(i).pricing_attribute1 := FND_API.G_MISS_CHAR;
2552: lx_Hd_Price_Attributes_Tbl(i).flex_title := FND_API.G_MISS_CHAR;
2545: For j IN 1..l_Hd_Price_Attributes_Tbl_DB.count LOOP
2546: If l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 IS NOT NULL AND
2547: l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1 = l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 THEN
2548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2549: IBE_UTIL.debug('Duplicate Promo code = '|| l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1||' found, setting pricing attribute rec to G_MISS_CHAR' );
2550: END IF;
2551: lx_Hd_Price_Attributes_Tbl(i).pricing_attribute1 := FND_API.G_MISS_CHAR;
2552: lx_Hd_Price_Attributes_Tbl(i).flex_title := FND_API.G_MISS_CHAR;
2553: lx_Hd_Price_Attributes_Tbl(i).pricing_context := FND_API.G_MISS_CHAR ;
2557: END LOOP; -- for j loop
2558: END IF; -- for checking not null check for temp array
2559: END LOOP;
2560:
2561: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2562: IBE_Util.Debug('Before Save, lx_Hd_Price_Attributes_Tbl.count'||lx_Hd_Price_Attributes_Tbl.count);
2563: END IF;
2564: END IF;
2565:
2558: END IF; -- for checking not null check for temp array
2559: END LOOP;
2560:
2561: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2562: IBE_Util.Debug('Before Save, lx_Hd_Price_Attributes_Tbl.count'||lx_Hd_Price_Attributes_Tbl.count);
2563: END IF;
2564: END IF;
2565:
2566: Save(
2645: /*mannamra: Chnages for MOAC : Bug 4682364*/
2646: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
2647: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
2648: --
2649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2650: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2651: end if;
2652: IF (l_contract_template_id is not null) THEN
2653:
2646: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
2647: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
2648: --
2649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2650: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2651: end if;
2652: IF (l_contract_template_id is not null) THEN
2653:
2654: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2650: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2651: end if;
2652: IF (l_contract_template_id is not null) THEN
2653:
2654: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2655: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2656: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2657: END IF;
2658:
2651: end if;
2652: IF (l_contract_template_id is not null) THEN
2653:
2654: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2655: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2656: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2657: END IF;
2658:
2659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2652: IF (l_contract_template_id is not null) THEN
2653:
2654: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2655: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2656: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2657: END IF;
2658:
2659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2660: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2655: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2656: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2657: END IF;
2658:
2659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2660: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2661: END IF;
2662:
2663: OKC_TERMS_UTIL_GRP.get_translated_template(
2656: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2657: END IF;
2658:
2659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2660: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2661: END IF;
2662:
2663: OKC_TERMS_UTIL_GRP.get_translated_template(
2664: p_api_version => 1.0,
2677: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2679: END IF;
2680:
2681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2682: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_templ_id);
2683: IBE_UTIL.debug('After calling OKC_TERMS_UTIL_GRP. get_translated_template(), quoteheaderId = '||lx_Qte_Header_Rec.quote_header_id);
2684: END IF;
2685:
2678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2679: END IF;
2680:
2681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2682: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_templ_id);
2683: IBE_UTIL.debug('After calling OKC_TERMS_UTIL_GRP. get_translated_template(), quoteheaderId = '||lx_Qte_Header_Rec.quote_header_id);
2684: END IF;
2685:
2686: OKC_TERMS_COPY_GRP.copy_terms(
2679: END IF;
2680:
2681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2682: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_templ_id);
2683: IBE_UTIL.debug('After calling OKC_TERMS_UTIL_GRP. get_translated_template(), quoteheaderId = '||lx_Qte_Header_Rec.quote_header_id);
2684: END IF;
2685:
2686: OKC_TERMS_COPY_GRP.copy_terms(
2687: p_api_version =>1.0
2693: ,x_return_status => x_return_status
2694: ,x_msg_count => x_msg_count
2695: ,x_msg_data => x_msg_data);
2696:
2697: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2698: IBE_UTIL.debug('After copy_terms api, return status = '||x_return_status);
2699: END IF;
2700: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2701: RAISE FND_API.G_EXC_ERROR;
2694: ,x_msg_count => x_msg_count
2695: ,x_msg_data => x_msg_data);
2696:
2697: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2698: IBE_UTIL.debug('After copy_terms api, return status = '||x_return_status);
2699: END IF;
2700: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2701: RAISE FND_API.G_EXC_ERROR;
2702: END IF;
2717: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2718: p_count => x_msg_count ,
2719: p_data => x_msg_data);
2720:
2721: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2722: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2723: END IF;
2724: -- IBE_Util.Disable_Debug;
2725:
2718: p_count => x_msg_count ,
2719: p_data => x_msg_data);
2720:
2721: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2722: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2723: END IF;
2724: -- IBE_Util.Disable_Debug;
2725:
2726: EXCEPTION
2720:
2721: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2722: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2723: END IF;
2724: -- IBE_Util.Disable_Debug;
2725:
2726: EXCEPTION
2727: WHEN FND_API.G_EXC_ERROR THEN
2728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2724: -- IBE_Util.Disable_Debug;
2725:
2726: EXCEPTION
2727: WHEN FND_API.G_EXC_ERROR THEN
2728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2729: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2730: END IF;
2731:
2732: ROLLBACK TO AddItemsToCartorig_pvt;
2725:
2726: EXCEPTION
2727: WHEN FND_API.G_EXC_ERROR THEN
2728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2729: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2730: END IF;
2731:
2732: ROLLBACK TO AddItemsToCartorig_pvt;
2733: x_return_status := FND_API.G_RET_STS_ERROR;
2734: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2735: p_count => x_msg_count ,
2736: p_data => x_msg_data);
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2739: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2740: END IF;
2741:
2742: ROLLBACK TO AddItemsToCartorig_pvt;
2735: p_count => x_msg_count ,
2736: p_data => x_msg_data);
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2739: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2740: END IF;
2741:
2742: ROLLBACK TO AddItemsToCartorig_pvt;
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2745: p_count => x_msg_count ,
2746: p_data => x_msg_data);
2747: WHEN OTHERS THEN
2748: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2749: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2750: END IF;
2751:
2752: ROLLBACK TO AddItemsToCartorig_pvt;
2745: p_count => x_msg_count ,
2746: p_data => x_msg_data);
2747: WHEN OTHERS THEN
2748: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2749: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2750: END IF;
2751:
2752: ROLLBACK TO AddItemsToCartorig_pvt;
2753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2800:
2801: str_database_id := ''||l_database_id||'';
2802: str_session_ticket :=''||l_session_ticket||'';
2803: str_context_org_id :=''||p_inv_org_id||'';
2804: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2805: IBE_Util.Debug('The Model item id passed to batch validate is '||to_char(p_model_item_id));
2806: END IF;
2807: str_model_id := ''||to_char(p_model_item_id)||'';
2808:
2801: str_database_id := ''||l_database_id||'';
2802: str_session_ticket :=''||l_session_ticket||'';
2803: str_context_org_id :=''||p_inv_org_id||'';
2804: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2805: IBE_Util.Debug('The Model item id passed to batch validate is '||to_char(p_model_item_id));
2806: END IF;
2807: str_model_id := ''||to_char(p_model_item_id)||'';
2808:
2809: str_model_quantity :=''||p_model_quantity||'';
2821: str_xml_string := str_xml_string || str_calling_appl_id||str_responsibility_id;
2822: str_xml_string := str_xml_string||str_save_config_behaviour||str_teminate_msg_behavior;
2823: str_xml_string := str_xml_string||str_sbm_sbm_flag||str_sbm_client_header||str_sbm_client_line||'';
2824:
2825: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2826: IBE_Util.Debug('The init msg string from get_xml_for_validate:'||str_xml_string);
2827: END IF;
2828: return str_xml_string;
2829: end get_xml_for_validate;
2822: str_xml_string := str_xml_string||str_save_config_behaviour||str_teminate_msg_behavior;
2823: str_xml_string := str_xml_string||str_sbm_sbm_flag||str_sbm_client_header||str_sbm_client_line||'';
2824:
2825: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2826: IBE_Util.Debug('The init msg string from get_xml_for_validate:'||str_xml_string);
2827: END IF;
2828: return str_xml_string;
2829: end get_xml_for_validate;
2830:
2939: l_bundle_counter number := 0;
2940:
2941:
2942: BEGIN
2943: -- IBE_Util.Enable_Debug;
2944: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2945: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
2946: END IF;
2947:
2940:
2941:
2942: BEGIN
2943: -- IBE_Util.Enable_Debug;
2944: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2945: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
2946: END IF;
2947:
2948: -- Standard Start of API savepoint
2941:
2942: BEGIN
2943: -- IBE_Util.Enable_Debug;
2944: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2945: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
2946: END IF;
2947:
2948: -- Standard Start of API savepoint
2949: SAVEPOINT ADDITEMSTOCART_pvt;
2995: l_number_of_bundles := l_number_of_bundles +1;
2996: end if;
2997: end loop;
2998: else
2999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3000: IBE_Util.Debug('no line codes');
3001: END IF;
3002: end if;
3003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2996: end if;
2997: end loop;
2998: else
2999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3000: IBE_Util.Debug('no line codes');
3001: END IF;
3002: end if;
3003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3004: IBE_Util.Debug('l_number_of_bundles : '||l_number_of_bundles);
2999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3000: IBE_Util.Debug('no line codes');
3001: END IF;
3002: end if;
3003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3004: IBE_Util.Debug('l_number_of_bundles : '||l_number_of_bundles);
3005: END IF;
3006:
3007: if (l_number_of_bundles = 0) then
3000: IBE_Util.Debug('no line codes');
3001: END IF;
3002: end if;
3003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3004: IBE_Util.Debug('l_number_of_bundles : '||l_number_of_bundles);
3005: END IF;
3006:
3007: if (l_number_of_bundles = 0) then
3008: -- if no bundles, set to price in the first additemstocart_orig call
3018: end if;
3019: -- Compulsory call to AddItemsToCart_orig - this call will take care of all
3020: -- standard, service, ui model, and model of the bundle items
3021: /*wrt to model bundles: Pass model_item_ids(p_Qte_line_Tbl) to AddItemsToCart and receive the table of model quote_line_ids returned by AddModelsToCart*/
3022: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3023: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
3024: END IF;
3025: AddItemsToCart_orig (
3026: P_Api_Version_Number => P_Api_version_number
3019: -- Compulsory call to AddItemsToCart_orig - this call will take care of all
3020: -- standard, service, ui model, and model of the bundle items
3021: /*wrt to model bundles: Pass model_item_ids(p_Qte_line_Tbl) to AddItemsToCart and receive the table of model quote_line_ids returned by AddModelsToCart*/
3022: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3023: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
3024: END IF;
3025: AddItemsToCart_orig (
3026: P_Api_Version_Number => P_Api_version_number
3027: ,p_Init_Msg_List => p_init_msg_list
3059: ,X_Return_Status => x_return_status
3060: ,X_Msg_Count => lx_msg_count
3061: ,X_Msg_Data => lx_msg_data
3062: );
3063: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3064: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig() : ' || x_return_status);
3065: END IF;
3066:
3067: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3060: ,X_Msg_Count => lx_msg_count
3061: ,X_Msg_Data => lx_msg_data
3062: );
3063: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3064: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig() : ' || x_return_status);
3065: END IF;
3066:
3067: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3068: RAISE FND_API.G_EXC_ERROR;
3085: l_bundle_counter := l_bundle_counter +1;
3086:
3087: /*reset the state of control record for the last bundle*/
3088: if(l_bundle_counter = l_number_of_bundles) then
3089: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3090: IBE_Util.Debug('restoring control record for pricing');
3091: END IF;
3092: l_control_rec := p_control_rec;
3093: end if;
3086:
3087: /*reset the state of control record for the last bundle*/
3088: if(l_bundle_counter = l_number_of_bundles) then
3089: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3090: IBE_Util.Debug('restoring control record for pricing');
3091: END IF;
3092: l_control_rec := p_control_rec;
3093: end if;
3094:
3092: l_control_rec := p_control_rec;
3093: end if;
3094:
3095: /*Call Batch validation program here*/
3096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3097: IBE_Util.Debug('Begin cz_cf_api.validate');
3098: END IF;
3099: cz_cf_api.validate(config_input_list =>l_cfg_input_list,
3100: init_message =>get_xml_for_validate(x_qte_line_tbl(loop_count).inventory_item_id,
3093: end if;
3094:
3095: /*Call Batch validation program here*/
3096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3097: IBE_Util.Debug('Begin cz_cf_api.validate');
3098: END IF;
3099: cz_cf_api.validate(config_input_list =>l_cfg_input_list,
3100: init_message =>get_xml_for_validate(x_qte_line_tbl(loop_count).inventory_item_id,
3101: x_qte_line_tbl(loop_count).quantity,
3104: x_qte_line_tbl(loop_count).quote_line_id),
3105: config_messages =>lx_cfg_output_pieces,
3106: validation_status =>l_validation_status,
3107: url =>l_servlet_url);
3108: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3109: IBE_Util.Debug('End cz_cf_api.validate');
3110: END IF;
3111: /*Parse the XML message for config_header_id, config_rev_num returned by the Batch validate program*/
3112: lx_xml_from_validate := lx_cfg_output_pieces(1);
3105: config_messages =>lx_cfg_output_pieces,
3106: validation_status =>l_validation_status,
3107: url =>l_servlet_url);
3108: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3109: IBE_Util.Debug('End cz_cf_api.validate');
3110: END IF;
3111: /*Parse the XML message for config_header_id, config_rev_num returned by the Batch validate program*/
3112: lx_xml_from_validate := lx_cfg_output_pieces(1);
3113: l_config_header_id := to_number(substr(lx_xml_from_validate,(instr(lx_xml_from_validate, '
3118: l_qte_line_rec := x_qte_line_tbl(loop_count);
3119:
3120: /*Error handling if cz_cf_api.validate failed*/
3121: IF (l_config_header_id is NULL) THEN
3122: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3123: IBE_Util.Debug('Error in CZ_CF_API.Validate:Printing the terminate string: '||lx_xml_from_validate);
3124: END IF;
3125: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3126: FND_Message.Set_Name('IBE','IBE_DSP_GENERIC_ERROR_TXT');
3119:
3120: /*Error handling if cz_cf_api.validate failed*/
3121: IF (l_config_header_id is NULL) THEN
3122: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3123: IBE_Util.Debug('Error in CZ_CF_API.Validate:Printing the terminate string: '||lx_xml_from_validate);
3124: END IF;
3125: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3126: FND_Message.Set_Name('IBE','IBE_DSP_GENERIC_ERROR_TXT');
3127: FND_Message.Set_Token('IBE_DSP_GENERIC_ERROR_TXT',lx_xml_from_validate);
3130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3131: END IF;
3132:
3133:
3134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3135: IBE_Util.Debug('Printing values obtained from batch validation');
3136: IBE_Util.Debug('Config header id: '||l_config_header_id);
3137: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3138: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3131: END IF;
3132:
3133:
3134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3135: IBE_Util.Debug('Printing values obtained from batch validation');
3136: IBE_Util.Debug('Config header id: '||l_config_header_id);
3137: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3138: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3139: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3132:
3133:
3134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3135: IBE_Util.Debug('Printing values obtained from batch validation');
3136: IBE_Util.Debug('Config header id: '||l_config_header_id);
3137: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3138: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3139: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3140: END IF;
3133:
3134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3135: IBE_Util.Debug('Printing values obtained from batch validation');
3136: IBE_Util.Debug('Config header id: '||l_config_header_id);
3137: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3138: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3139: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3140: END IF;
3141:
3134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3135: IBE_Util.Debug('Printing values obtained from batch validation');
3136: IBE_Util.Debug('Config header id: '||l_config_header_id);
3137: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3138: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3139: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3140: END IF;
3141:
3142: l_Qte_Line_Dtl_rec.quote_line_id := x_qte_line_tbl(loop_count).quote_line_id;
3135: IBE_Util.Debug('Printing values obtained from batch validation');
3136: IBE_Util.Debug('Config header id: '||l_config_header_id);
3137: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3138: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3139: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3140: END IF;
3141:
3142: l_Qte_Line_Dtl_rec.quote_line_id := x_qte_line_tbl(loop_count).quote_line_id;
3143: if l_complete_config_flag = 'true' then
3150: else
3151: l_Qte_Line_Dtl_rec.Valid_configuration_flag := 'N';
3152: end if;
3153:
3154: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3155: IBE_Util.Debug('Begin ASO_CFG_PUB.get_config_details');
3156: END IF;
3157: /*Call GET_CONFIG_DETAILS here*/
3158: aso_cfg_pub.get_config_details(P_Api_Version_Number => P_Api_Version_Number,
3151: l_Qte_Line_Dtl_rec.Valid_configuration_flag := 'N';
3152: end if;
3153:
3154: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3155: IBE_Util.Debug('Begin ASO_CFG_PUB.get_config_details');
3156: END IF;
3157: /*Call GET_CONFIG_DETAILS here*/
3158: aso_cfg_pub.get_config_details(P_Api_Version_Number => P_Api_Version_Number,
3159: P_Init_Msg_List => P_Init_Msg_List,
3167: x_return_status => x_return_status,
3168: x_msg_count => x_msg_count,
3169: x_msg_data => x_msg_data
3170: );
3171: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3172: IBE_Util.Debug('End ASO_CFG_PUB.get_config_details : ' || x_return_status);
3173: END IF;
3174:
3175: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3168: x_msg_count => x_msg_count,
3169: x_msg_data => x_msg_data
3170: );
3171: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3172: IBE_Util.Debug('End ASO_CFG_PUB.get_config_details : ' || x_return_status);
3173: END IF;
3174:
3175: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3176: RAISE FND_API.G_EXC_ERROR;
3181: END IF;
3182: end if; -- end if bundle
3183: end loop; -- end bundle loop over line records from the 1st call to add models
3184: end if; -- end if l_have_bundle_Flag = true
3185: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3186: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3187: END IF;
3188:
3189: EXCEPTION
3182: end if; -- end if bundle
3183: end loop; -- end bundle loop over line records from the 1st call to add models
3184: end if; -- end if l_have_bundle_Flag = true
3185: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3186: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3187: END IF;
3188:
3189: EXCEPTION
3190: WHEN FND_API.G_EXC_ERROR THEN
3187: END IF;
3188:
3189: EXCEPTION
3190: WHEN FND_API.G_EXC_ERROR THEN
3191: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3192: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3193: END IF;
3194:
3195: ROLLBACK TO ADDITEMSTOCART_pvt;
3188:
3189: EXCEPTION
3190: WHEN FND_API.G_EXC_ERROR THEN
3191: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3192: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3193: END IF;
3194:
3195: ROLLBACK TO ADDITEMSTOCART_pvt;
3196: x_return_status := FND_API.G_RET_STS_ERROR;
3198: p_count => x_msg_count ,
3199: p_data => x_msg_data);
3200:
3201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3202: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3203: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3204: END IF;
3205: ROLLBACK TO ADDITEMSTOCART_pvt;
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199: p_data => x_msg_data);
3200:
3201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3202: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3203: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3204: END IF;
3205: ROLLBACK TO ADDITEMSTOCART_pvt;
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3207: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3208: p_count => x_msg_count ,
3209: p_data => x_msg_data);
3210:
3211: WHEN OTHERS THEN
3212: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3213: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart) (new one)');
3214: END IF;
3215: ROLLBACK TO ADDITEMSTOCART_pvt;
3216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3209: p_data => x_msg_data);
3210:
3211: WHEN OTHERS THEN
3212: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3213: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart) (new one)');
3214: END IF;
3215: ROLLBACK TO ADDITEMSTOCART_pvt;
3216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3217: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3257:
3258: l_Qte_Line_Tbl := p_qte_line_tbl;
3259: l_pmt_rec_counter := 1;
3260:
3261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3262: ibe_util.debug('Entered get_termid_pricelistid');
3263: END IF;
3264: if (l_qte_line_tbl.count = 0) then
3265: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3258: l_Qte_Line_Tbl := p_qte_line_tbl;
3259: l_pmt_rec_counter := 1;
3260:
3261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3262: ibe_util.debug('Entered get_termid_pricelistid');
3263: END IF;
3264: if (l_qte_line_tbl.count = 0) then
3265: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3266: ibe_util.debug('Quote_line_table is empty');
3261: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3262: ibe_util.debug('Entered get_termid_pricelistid');
3263: END IF;
3264: if (l_qte_line_tbl.count = 0) then
3265: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3266: ibe_util.debug('Quote_line_table is empty');
3267: END IF;
3268: end if;
3269:
3262: ibe_util.debug('Entered get_termid_pricelistid');
3263: END IF;
3264: if (l_qte_line_tbl.count = 0) then
3265: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3266: ibe_util.debug('Quote_line_table is empty');
3267: END IF;
3268: end if;
3269:
3270: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3268: end if;
3269:
3270: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3271:
3272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3273: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3274: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3275: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3276: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3269:
3270: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3271:
3272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3273: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3274: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3275: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3276: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3277: END IF;
3270: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3271:
3272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3273: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3274: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3275: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3276: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3277: END IF;
3278:
3271:
3272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3273: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3274: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3275: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3276: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3277: END IF;
3278:
3279: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3272: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3273: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3274: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3275: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3276: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3277: END IF;
3278:
3279: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3280: and (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3278:
3279: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3280: and (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3281: --if the agreement id has a value in the quote_line_tbl
3282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3283: ibe_util.debug('Non Empty agreement value');
3284: END IF;
3285: for rec_term_pricelist in c_term_pricelist(l_qte_line_tbl(l_ql_loop_counter).agreement_id) loop
3286: --retrieve price_list_id from oe_agreements
3279: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3280: and (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3281: --if the agreement id has a value in the quote_line_tbl
3282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3283: ibe_util.debug('Non Empty agreement value');
3284: END IF;
3285: for rec_term_pricelist in c_term_pricelist(l_qte_line_tbl(l_ql_loop_counter).agreement_id) loop
3286: --retrieve price_list_id from oe_agreements
3287: l_price_list_id := rec_term_pricelist.price_list_id;
3288: l_term_id := rec_term_pricelist.term_id;
3289: end loop;
3290: elsif (l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) then
3291: -- If agreement_id is null in the quote_line_tbl then anull price_list_id and payment_term_id
3292: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3293: ibe_util.debug('NULL Agreement value');
3294: END IF;
3295: l_price_list_id := null;
3296: l_term_id := null;
3289: end loop;
3290: elsif (l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) then
3291: -- If agreement_id is null in the quote_line_tbl then anull price_list_id and payment_term_id
3292: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3293: ibe_util.debug('NULL Agreement value');
3294: END IF;
3295: l_price_list_id := null;
3296: l_term_id := null;
3297: end if;
3295: l_price_list_id := null;
3296: l_term_id := null;
3297: end if;
3298:
3299: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3300: ibe_util.debug('l_price_list_id : '||l_price_list_id);
3301: ibe_util.debug('l_term_id : '||l_term_id );
3302: END IF;
3303:
3296: l_term_id := null;
3297: end if;
3298:
3299: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3300: ibe_util.debug('l_price_list_id : '||l_price_list_id);
3301: ibe_util.debug('l_term_id : '||l_term_id );
3302: END IF;
3303:
3304: -- this if goes to the end of the loop since we have no continue operator
3297: end if;
3298:
3299: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3300: ibe_util.debug('l_price_list_id : '||l_price_list_id);
3301: ibe_util.debug('l_term_id : '||l_term_id );
3302: END IF;
3303:
3304: -- this if goes to the end of the loop since we have no continue operator
3305: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) or
3304: -- this if goes to the end of the loop since we have no continue operator
3305: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) or
3306: (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3307:
3308: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3309: ibe_util.debug('Processing agreement id info - either null or number');
3310: END IF;
3311: -- take care of price list id
3312: l_qte_line_tbl(l_ql_loop_counter).price_list_id := l_price_list_id;
3305: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) or
3306: (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3307:
3308: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3309: ibe_util.debug('Processing agreement id info - either null or number');
3310: END IF;
3311: -- take care of price list id
3312: l_qte_line_tbl(l_ql_loop_counter).price_list_id := l_price_list_id;
3313:
3321: l_payment_id := rec_payment_id.payment_id;
3322: exit when c_payment_id%notfound;
3323: end loop;
3324:
3325: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3326: ibe_util.debug('l_payment_id : '||l_payment_id );
3327: END IF;
3328: -- prep the current payment record
3329: l_found_input_rec := FND_API.G_FALSE;
3322: exit when c_payment_id%notfound;
3323: end loop;
3324:
3325: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3326: ibe_util.debug('l_payment_id : '||l_payment_id );
3327: END IF;
3328: -- prep the current payment record
3329: l_found_input_rec := FND_API.G_FALSE;
3330: if (p_ln_payment_tbl.count > 0 ) then
3331: --loop through the payment table to identify the right qte_header_id and qte_line_id as in the line_record
3332: for l_pmt_loop_counter in 1..p_ln_payment_tbl.count loop
3333: if((p_ln_payment_tbl(l_pmt_loop_counter).quote_header_id = l_qte_line_tbl(l_ql_loop_counter).quote_header_id)
3334: and (p_ln_payment_tbl(l_pmt_loop_counter).quote_line_id = l_qte_line_tbl(l_ql_loop_counter).quote_line_id)) then
3335: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3336: ibe_util.debug('Found a passed in payment record.');
3337: END IF;
3338: l_found_input_rec := FND_API.G_TRUE;
3339: l_ln_payment_tbl(l_pmt_rec_counter) := p_ln_payment_tbl(l_pmt_loop_counter);
3332: for l_pmt_loop_counter in 1..p_ln_payment_tbl.count loop
3333: if((p_ln_payment_tbl(l_pmt_loop_counter).quote_header_id = l_qte_line_tbl(l_ql_loop_counter).quote_header_id)
3334: and (p_ln_payment_tbl(l_pmt_loop_counter).quote_line_id = l_qte_line_tbl(l_ql_loop_counter).quote_line_id)) then
3335: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3336: ibe_util.debug('Found a passed in payment record.');
3337: END IF;
3338: l_found_input_rec := FND_API.G_TRUE;
3339: l_ln_payment_tbl(l_pmt_rec_counter) := p_ln_payment_tbl(l_pmt_loop_counter);
3340: l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id := l_term_id;
3345:
3346: if ((l_found_input_rec = FND_API.G_FALSE) or
3347: (l_ln_payment_tbl(l_pmt_rec_counter).operation_code <> 'DELETE')) then
3348: if (l_payment_id <> fnd_api.g_miss_num ) then
3349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3350: ibe_util.debug('Operation code is UPDATE');
3351: END IF;
3352: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'UPDATE';
3353: l_ln_payment_tbl(l_pmt_rec_counter).payment_id := l_payment_id;
3346: if ((l_found_input_rec = FND_API.G_FALSE) or
3347: (l_ln_payment_tbl(l_pmt_rec_counter).operation_code <> 'DELETE')) then
3348: if (l_payment_id <> fnd_api.g_miss_num ) then
3349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3350: ibe_util.debug('Operation code is UPDATE');
3351: END IF;
3352: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'UPDATE';
3353: l_ln_payment_tbl(l_pmt_rec_counter).payment_id := l_payment_id;
3354: l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id := l_qte_line_tbl(l_ql_loop_counter).quote_header_id;
3356: l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id := l_term_id;
3357: l_pmt_rec_counter := l_pmt_rec_counter + 1; --increment the payment table record counter
3358: else
3359: if ((l_term_id is not null) and (l_term_id <> fnd_api.g_miss_num)) then
3360: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3361: ibe_util.debug('Operation code is CREATE');
3362: END IF;
3363: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'CREATE';
3364: l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id := l_qte_line_tbl(l_ql_loop_counter).quote_header_id;
3357: l_pmt_rec_counter := l_pmt_rec_counter + 1; --increment the payment table record counter
3358: else
3359: if ((l_term_id is not null) and (l_term_id <> fnd_api.g_miss_num)) then
3360: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3361: ibe_util.debug('Operation code is CREATE');
3362: END IF;
3363: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'CREATE';
3364: l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id := l_qte_line_tbl(l_ql_loop_counter).quote_header_id;
3365: l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id := l_qte_line_tbl(l_ql_loop_counter).quote_line_id;
3369: end if;
3370: end if;
3371:
3372:
3373: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3374: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3375: END IF;
3376: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3370: end if;
3371:
3372:
3373: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3374: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3375: END IF;
3376: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3373: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3374: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3375: END IF;
3376: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3374: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3375: END IF;
3376: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3382: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3375: END IF;
3376: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3382: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3383: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3376: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3382: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3383: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3384: END IF;
3377: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3382: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3383: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3384: END IF;
3385: end if;
3378: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3382: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3383: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3384: END IF;
3385: end if;
3386:
3379: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3380: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3381: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3382: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3383: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3384: END IF;
3385: end if;
3386:
3387: --l_pmt_rec_counter := l_pmt_rec_counter + 1; --increment the payment table record counter
3426: L_expiration_date date:= fnd_api.g_miss_date;
3427:
3428: Begin
3429:
3430: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3431: ibe_util.debug('Begin IEB_QUOTE_SAVE_pvt.GET_QUOTE_EXPIRATION_DATE()');
3432: END IF;
3433:
3434: -- Standard Start of API savepoint
3427:
3428: Begin
3429:
3430: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3431: ibe_util.debug('Begin IEB_QUOTE_SAVE_pvt.GET_QUOTE_EXPIRATION_DATE()');
3432: END IF;
3433:
3434: -- Standard Start of API savepoint
3435: SAVEPOINT Get_quote_exp_date_pvt;
3452: x_return_status := FND_API.G_RET_STS_SUCCESS;
3453:
3454: --API Body
3455: x_expiration_date := fnd_api.g_miss_date;
3456: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3457: IBE_UTIL.debug('Incoming quote name into get_quote_exp_date is '||p_quote_header_rec.quote_name);
3458: END IF;
3459: --If no resource id in the quote header rec then check for one in the database
3460: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3453:
3454: --API Body
3455: x_expiration_date := fnd_api.g_miss_date;
3456: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3457: IBE_UTIL.debug('Incoming quote name into get_quote_exp_date is '||p_quote_header_rec.quote_name);
3458: END IF;
3459: --If no resource id in the quote header rec then check for one in the database
3460: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3457: IBE_UTIL.debug('Incoming quote name into get_quote_exp_date is '||p_quote_header_rec.quote_name);
3458: END IF;
3459: --If no resource id in the quote header rec then check for one in the database
3460: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3462: IBE_UTIL.debug('No resource id in the incoming quote_header_rec');
3463: END IF;
3464:
3465: For rec_check_resource_name in c_check_resource_name(p_quote_header_rec.quote_header_id) loop
3458: END IF;
3459: --If no resource id in the quote header rec then check for one in the database
3460: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3462: IBE_UTIL.debug('No resource id in the incoming quote_header_rec');
3463: END IF;
3464:
3465: For rec_check_resource_name in c_check_resource_name(p_quote_header_rec.quote_header_id) loop
3466: L_db_resource_id := rec_check_resource_name.resource_id;
3467: L_cart_name := rec_check_resource_name.quote_name;
3468: Exit when c_check_resource_name%notfound;
3469: End loop;
3470: If (l_db_resource_id is null) then
3471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3472: IBE_UTIL.debug('No resource id in the database for the given qte_hdr_id');
3473: END IF;
3474: If (((p_quote_header_rec.quote_name <> fnd_api.g_miss_char)
3475: and(p_quote_header_rec.quote_name is not null)
3468: Exit when c_check_resource_name%notfound;
3469: End loop;
3470: If (l_db_resource_id is null) then
3471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3472: IBE_UTIL.debug('No resource id in the database for the given qte_hdr_id');
3473: END IF;
3474: If (((p_quote_header_rec.quote_name <> fnd_api.g_miss_char)
3475: and(p_quote_header_rec.quote_name is not null)
3476: and (p_quote_header_rec.quote_name<>'IBE_PRMT_SC_UNNAMED') --MANNAMRA: 16/09/02:Changed IBEACTIVECART to IBE_PRMT_SC_UNNAMED
3485: End If;
3486:
3487: /*If((p_quote_header_rec.quote_name <> fnd_api.g_miss_char
3488: and p_quote_header_rec.quote_name <> 'IBEACTIVECART' )) then
3489: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3490: IBE_UTIL.debug('Using the IBE_EXP_SAVE_CART profile value');
3491: END IF;
3492: L_profile_value := FND_Profile.Value('IBE_EXP_SAVE_CART');
3493:
3486:
3487: /*If((p_quote_header_rec.quote_name <> fnd_api.g_miss_char
3488: and p_quote_header_rec.quote_name <> 'IBEACTIVECART' )) then
3489: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3490: IBE_UTIL.debug('Using the IBE_EXP_SAVE_CART profile value');
3491: END IF;
3492: L_profile_value := FND_Profile.Value('IBE_EXP_SAVE_CART');
3493:
3494: Elsif((l_cart_name = 'IBEACTIVECART')
3492: L_profile_value := FND_Profile.Value('IBE_EXP_SAVE_CART');
3493:
3494: Elsif((l_cart_name = 'IBEACTIVECART')
3495: or(p_quote_header_rec.quote_name = 'IBEACTIVECART')) then
3496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3497: IBE_UTIL.debug('Using the IBE_EXP_ACTIVE_CART profile value');
3498: END IF;
3499: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3500: End if;*/
3493:
3494: Elsif((l_cart_name = 'IBEACTIVECART')
3495: or(p_quote_header_rec.quote_name = 'IBEACTIVECART')) then
3496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3497: IBE_UTIL.debug('Using the IBE_EXP_ACTIVE_CART profile value');
3498: END IF;
3499: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3500: End if;*/
3501: x_expiration_date := trunc(sysdate)+nvl(l_profile_value,0);
3498: END IF;
3499: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3500: End if;*/
3501: x_expiration_date := trunc(sysdate)+nvl(l_profile_value,0);
3502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3503: ibe_util.debug('Expiration date returned by get_quote_exp_date is '||x_expiration_date);
3504: END IF;
3505: End if;
3506: End if;
3499: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3500: End if;*/
3501: x_expiration_date := trunc(sysdate)+nvl(l_profile_value,0);
3502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3503: ibe_util.debug('Expiration date returned by get_quote_exp_date is '||x_expiration_date);
3504: END IF;
3505: End if;
3506: End if;
3507:
3514: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3515: p_count => x_msg_count ,
3516: p_data => x_msg_data);
3517:
3518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3519: ibe_util.debug('End IBE_Quote_Save_pvt.GET_QUOTE_EXPIRATION_DATE()');
3520: END IF;
3521: EXCEPTION
3522: WHEN FND_API.G_EXC_ERROR THEN
3515: p_count => x_msg_count ,
3516: p_data => x_msg_data);
3517:
3518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3519: ibe_util.debug('End IBE_Quote_Save_pvt.GET_QUOTE_EXPIRATION_DATE()');
3520: END IF;
3521: EXCEPTION
3522: WHEN FND_API.G_EXC_ERROR THEN
3523: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3519: ibe_util.debug('End IBE_Quote_Save_pvt.GET_QUOTE_EXPIRATION_DATE()');
3520: END IF;
3521: EXCEPTION
3522: WHEN FND_API.G_EXC_ERROR THEN
3523: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3524: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3525: END IF;
3526:
3527: ROLLBACK TO Get_quote_exp_date_pvt;
3520: END IF;
3521: EXCEPTION
3522: WHEN FND_API.G_EXC_ERROR THEN
3523: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3524: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3525: END IF;
3526:
3527: ROLLBACK TO Get_quote_exp_date_pvt;
3528: x_return_status := FND_API.G_RET_STS_ERROR;
3529: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3530: p_count => x_msg_count ,
3531: p_data => x_msg_data);
3532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3533: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3534: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3535: END IF;
3536:
3537: ROLLBACK TO Get_quote_exp_date_pvt;
3530: p_count => x_msg_count ,
3531: p_data => x_msg_data);
3532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3533: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3534: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3535: END IF;
3536:
3537: ROLLBACK TO Get_quote_exp_date_pvt;
3538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3539: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3540: p_count => x_msg_count ,
3541: p_data => x_msg_data);
3542: WHEN OTHERS THEN
3543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3544: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3545: END IF;
3546:
3547: ROLLBACK TO Get_quote_exp_date_pvt;
3540: p_count => x_msg_count ,
3541: p_data => x_msg_data);
3542: WHEN OTHERS THEN
3543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3544: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3545: END IF;
3546:
3547: ROLLBACK TO Get_quote_exp_date_pvt;
3548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3647: l_save_changes VARCHAR2(1);
3648: l_db_reason_code VARCHAR2(30);
3649:
3650: Begin
3651: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3652: ibe_util.debug('Start IBE_Quote_Save_pvt.REQUEST_FOR_SALES_ASSISTANCE()');
3653: END IF;
3654:
3655: -- Standard Start of API savepoint
3648: l_db_reason_code VARCHAR2(30);
3649:
3650: Begin
3651: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3652: ibe_util.debug('Start IBE_Quote_Save_pvt.REQUEST_FOR_SALES_ASSISTANCE()');
3653: END IF;
3654:
3655: -- Standard Start of API savepoint
3656: SAVEPOINT Req_for_sales_asst_pvt;
3671: -- Initialize API return status to success
3672: x_return_status := FND_API.G_RET_STS_SUCCESS;
3673:
3674: --API Body
3675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3676: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3677: END IF;
3678: IBE_Quote_Misc_pvt.log_environment_info();
3679: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3672: x_return_status := FND_API.G_RET_STS_SUCCESS;
3673:
3674: --API Body
3675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3676: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3677: END IF;
3678: IBE_Quote_Misc_pvt.log_environment_info();
3679: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3680: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3676: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3677: END IF;
3678: IBE_Quote_Misc_pvt.log_environment_info();
3679: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3680: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3681: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: p_retrieval_number = '||p_retrieval_number);
3682: END IF;
3683: -- User Authentication
3676: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3677: END IF;
3678: IBE_Quote_Misc_pvt.log_environment_info();
3679: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3680: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3681: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: p_retrieval_number = '||p_retrieval_number);
3682: END IF;
3683: -- User Authentication
3684: IBE_Quote_Misc_pvt.Validate_User_Update
3677: END IF;
3678: IBE_Quote_Misc_pvt.log_environment_info();
3679: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3680: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3681: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: p_retrieval_number = '||p_retrieval_number);
3682: END IF;
3683: -- User Authentication
3684: IBE_Quote_Misc_pvt.Validate_User_Update
3685: ( p_init_msg_list => p_Init_Msg_List
3703: --obtaining the resource id from the database
3704: For rec_find_resourceid in c_find_resourceid(p_quote_header_id) loop
3705: l_resource_id := rec_find_resourceid.resource_id ;
3706: l_db_reason_code := rec_find_resourceid.ASSISTANCE_REASON_CODE;
3707: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3708: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: db_resource_id is'||l_resource_id);
3709: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: l_db_reason_code = '||l_db_reason_code);
3710: END IF;
3711: Exit when c_find_resourceid%notfound;
3704: For rec_find_resourceid in c_find_resourceid(p_quote_header_id) loop
3705: l_resource_id := rec_find_resourceid.resource_id ;
3706: l_db_reason_code := rec_find_resourceid.ASSISTANCE_REASON_CODE;
3707: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3708: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: db_resource_id is'||l_resource_id);
3709: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: l_db_reason_code = '||l_db_reason_code);
3710: END IF;
3711: Exit when c_find_resourceid%notfound;
3712: End loop;
3705: l_resource_id := rec_find_resourceid.resource_id ;
3706: l_db_reason_code := rec_find_resourceid.ASSISTANCE_REASON_CODE;
3707: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3708: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: db_resource_id is'||l_resource_id);
3709: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: l_db_reason_code = '||l_db_reason_code);
3710: END IF;
3711: Exit when c_find_resourceid%notfound;
3712: End loop;
3713:
3722:
3723: --l_salesrep_id := FND_Profile.Value('ASO_DEFAULT_PERSON_ID'); --Old code
3724: l_salesrep_id := ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_SALESREP); --new way of getting the salesrep id
3725:
3726: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3727: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3728: END IF;
3729:
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3723: --l_salesrep_id := FND_Profile.Value('ASO_DEFAULT_PERSON_ID'); --Old code
3724: l_salesrep_id := ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_SALESREP); --new way of getting the salesrep id
3725:
3726: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3727: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3728: END IF;
3729:
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3731: IBE_UTIL.debug('Salesrep id from ASO profile is '||l_salesrep_id);
3726: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3727: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3728: END IF;
3729:
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3731: IBE_UTIL.debug('Salesrep id from ASO profile is '||l_salesrep_id);
3732: END IF;
3733: --Profile value(ASO_DEFAULT_PERSON_ID) has salesrep_id, obtain resource_id from the
3734: --table jtf_rs_salesreps_mo_v. --Old comment
3727: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3728: END IF;
3729:
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3731: IBE_UTIL.debug('Salesrep id from ASO profile is '||l_salesrep_id);
3732: END IF;
3733: --Profile value(ASO_DEFAULT_PERSON_ID) has salesrep_id, obtain resource_id from the
3734: --table jtf_rs_salesreps_mo_v. --Old comment
3735: /*--10/17/2005: Mannamra: In light of MOAC chages, default salesrep setting is no
3738: for the corresponding salesrep id from jtf_rs_salesreps_mo_v. Bug ref: 4682364*/
3739:
3740: for rec_get_jtf_resource in c_get_jtf_resource(l_salesrep_id) loop
3741: L_resource_id := rec_get_jtf_resource.resource_id;
3742: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3743: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id: '||L_resource_id);
3744: END IF;
3745:
3746: exit when c_get_jtf_resource%notfound;
3739:
3740: for rec_get_jtf_resource in c_get_jtf_resource(l_salesrep_id) loop
3741: L_resource_id := rec_get_jtf_resource.resource_id;
3742: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3743: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id: '||L_resource_id);
3744: END IF;
3745:
3746: exit when c_get_jtf_resource%notfound;
3747: end loop;
3746: exit when c_get_jtf_resource%notfound;
3747: end loop;
3748:
3749: --obtain the status_id for 'DRAFT' from aso_quote_statuses_vl
3750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3751: IBE_UTIL.debug('obtain the status_id for DRAFT from aso_quote_statuses_vl ');
3752: END IF;
3753:
3754: for rec_get_status_id in c_get_status_id('DRAFT') loop
3747: end loop;
3748:
3749: --obtain the status_id for 'DRAFT' from aso_quote_statuses_vl
3750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3751: IBE_UTIL.debug('obtain the status_id for DRAFT from aso_quote_statuses_vl ');
3752: END IF;
3753:
3754: for rec_get_status_id in c_get_status_id('DRAFT') loop
3755: l_status_id := rec_get_status_id.quote_status_id;
3752: END IF;
3753:
3754: for rec_get_status_id in c_get_status_id('DRAFT') loop
3755: l_status_id := rec_get_status_id.quote_status_id;
3756: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3757: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_status_id: '||l_status_id);
3758: END IF;
3759:
3760: -- --DBMS_OUTPUT.PUT_line('Quote Status id: '||l_status_id);
3753:
3754: for rec_get_status_id in c_get_status_id('DRAFT') loop
3755: l_status_id := rec_get_status_id.quote_status_id;
3756: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3757: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_status_id: '||l_status_id);
3758: END IF;
3759:
3760: -- --DBMS_OUTPUT.PUT_line('Quote Status id: '||l_status_id);
3761: exit when c_get_status_id%notfound;
3774: l_qte_hdr_rec.Assistance_Requested := 'Y';
3775: l_qte_hdr_rec.Assistance_Reason_Code := p_reason_code;
3776:
3777:
3778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3779: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3775: l_qte_hdr_rec.Assistance_Reason_Code := p_reason_code;
3776:
3777:
3778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3779: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3776:
3777:
3778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3779: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3784: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3777:
3778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3779: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3784: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3785: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3779: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3784: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3785: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3786: END IF;
3779: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3784: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3785: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3786: END IF;
3787: ibe_quote_save_pvt.save(
3780: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3784: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3785: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3786: END IF;
3787: ibe_quote_save_pvt.save(
3788: p_api_version_number => 1.0 ,
3781: IBE_UTIL.debug('Quote_name '||p_quote_name);
3782: IBE_UTIL.debug('Resource_id '||l_resource_id);
3783: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3784: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3785: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3786: END IF;
3787: ibe_quote_save_pvt.save(
3788: p_api_version_number => 1.0 ,
3789: p_init_msg_list => FND_API.G_FALSE ,
3808: Exit when c_find_resourceid%notfound;
3809: End loop;
3810: END IF;
3811:
3812: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3813: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id in quote: '||L_resource_id);
3814: END IF;
3815:
3816:
3809: End loop;
3810: END IF;
3811:
3812: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3813: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id in quote: '||L_resource_id);
3814: END IF;
3815:
3816:
3817: --Obtain the salesrep user_id here
3819: l_salesrep_user_id := rec_get_SR_user_id.user_id;
3820: exit when c_get_SR_user_id%notfound;
3821: end loop;
3822:
3823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3824: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_salesrep_user_id who will get the notif: '||l_salesrep_user_id);
3825: END IF;
3826:
3827:
3820: exit when c_get_SR_user_id%notfound;
3821: end loop;
3822:
3823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3824: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_salesrep_user_id who will get the notif: '||l_salesrep_user_id);
3825: END IF;
3826:
3827:
3828: /* IBE.Q changes, this code commented out. Contracts needs to be
3828: /* IBE.Q changes, this code commented out. Contracts needs to be
3829: instantiated in all cases
3830: -- Create the contract if the contract_context is set to 'Y'.
3831: IF (p_contract_context = 'Y') THEN
3832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3833: IBE_UTIL.debug('contract context is Yes, before calling get_terms_template');
3834: END IF;
3835: */
3836:
3829: instantiated in all cases
3830: -- Create the contract if the contract_context is set to 'Y'.
3831: IF (p_contract_context = 'Y') THEN
3832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3833: IBE_UTIL.debug('contract context is Yes, before calling get_terms_template');
3834: END IF;
3835: */
3836:
3837: IF (FND_Profile.Value('OKC_ENABLE_SALES_CONTRACTS') = 'Y' ) THEN --Only if contracts is enabled
3842: /*Mannamra: Changes for MOAC: Bug 4682364**/
3843: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
3844: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
3845: /*Mannamra: End of changes for MOAC**/
3846: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3847: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
3848: IBE_UTIL.debug('p_quote_header_id = '||p_quote_header_id);
3849: END IF;
3850: IF (l_contract_template_id is not null) THEN
3843: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
3844: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
3845: /*Mannamra: End of changes for MOAC**/
3846: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3847: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
3848: IBE_UTIL.debug('p_quote_header_id = '||p_quote_header_id);
3849: END IF;
3850: IF (l_contract_template_id is not null) THEN
3851:
3844: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
3845: /*Mannamra: End of changes for MOAC**/
3846: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3847: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
3848: IBE_UTIL.debug('p_quote_header_id = '||p_quote_header_id);
3849: END IF;
3850: IF (l_contract_template_id is not null) THEN
3851:
3852: OKC_TERMS_UTIL_GRP.get_Translated_template(
3866: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3868: END IF;
3869:
3870: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3871: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3872: END IF;
3873:
3874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3868: END IF;
3869:
3870: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3871: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3872: END IF;
3873:
3874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3875: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3870: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3871: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3872: END IF;
3873:
3874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3875: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3876: END IF;
3877: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3878: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3871: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3872: END IF;
3873:
3874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3875: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3876: END IF;
3877: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3878: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3879: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3875: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3876: END IF;
3877: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3878: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3879: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3880: END IF;
3881: IF(upper(l_quote_status) <> 'APPROVED') THEN
3882: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3875: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3876: END IF;
3877: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3878: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3879: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3880: END IF;
3881: IF(upper(l_quote_status) <> 'APPROVED') THEN
3882: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3883: IBE_UTIL.debug('calling OKC_XPRT_INT_GRP.get_contract_terms...');
3878: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3879: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3880: END IF;
3881: IF(upper(l_quote_status) <> 'APPROVED') THEN
3882: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3883: IBE_UTIL.debug('calling OKC_XPRT_INT_GRP.get_contract_terms...');
3884: END IF;
3885: OKC_XPRT_INT_GRP.get_contract_terms(
3886: p_api_version => 1.0
3879: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3880: END IF;
3881: IF(upper(l_quote_status) <> 'APPROVED') THEN
3882: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3883: IBE_UTIL.debug('calling OKC_XPRT_INT_GRP.get_contract_terms...');
3884: END IF;
3885: OKC_XPRT_INT_GRP.get_contract_terms(
3886: p_api_version => 1.0
3887: ,p_init_msg_list => FND_API.g_false
3894: ,x_msg_count => lx_msg_count
3895: ,x_msg_data => lx_msg_data ) ;
3896:
3897:
3898: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3899: IBE_UTIL.debug('After OKC_XPRT_INT_GRP.get_contract_terms, return status = '||lx_return_status);
3900: END IF;
3901: IF (lx_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3895: ,x_msg_data => lx_msg_data ) ;
3896:
3897:
3898: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3899: IBE_UTIL.debug('After OKC_XPRT_INT_GRP.get_contract_terms, return status = '||lx_return_status);
3900: END IF;
3901: IF (lx_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3912:
3913: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
3914: this is done because recipients cannot update a cart after it becomes a quote*/
3915:
3916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3917: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
3918: END IF;
3919: IBE_QUOTE_SAVESHARE_V2_PVT.share_readonly(
3920: p_quote_header_id => p_quote_header_id,
3913: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
3914: this is done because recipients cannot update a cart after it becomes a quote*/
3915:
3916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3917: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
3918: END IF;
3919: IBE_QUOTE_SAVESHARE_V2_PVT.share_readonly(
3920: p_quote_header_id => p_quote_header_id,
3921: P_minisite_id => p_minisite_id ,
3932: END IF;
3933: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3935: END IF;
3936: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3937: IBE_UTIL.DEBUG('Done calling share_readonly');
3938: END IF;
3939:
3940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3933: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3935: END IF;
3936: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3937: IBE_UTIL.DEBUG('Done calling share_readonly');
3938: END IF;
3939:
3940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3941: IBE_UTIL.DEBUG('RSA:Calling deactivate API');
3936: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3937: IBE_UTIL.DEBUG('Done calling share_readonly');
3938: END IF;
3939:
3940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3941: IBE_UTIL.DEBUG('RSA:Calling deactivate API');
3942: END IF;
3943: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
3944: P_Quote_header_id => p_quote_header_id,
3937: IBE_UTIL.DEBUG('Done calling share_readonly');
3938: END IF;
3939:
3940: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3941: IBE_UTIL.DEBUG('RSA:Calling deactivate API');
3942: END IF;
3943: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
3944: P_Quote_header_id => p_quote_header_id,
3945: P_Party_id => p_party_id ,
3956:
3957: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3959: END IF;
3960: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3961: IBE_UTIL.DEBUG('RSA:Deactivate owner cart after sharing:Done');
3962: END IF;
3963:
3964: /* Commenting the code (4 Dec, 03) as we are passing the meaning from the UI itself.
3957: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3959: END IF;
3960: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3961: IBE_UTIL.DEBUG('RSA:Deactivate owner cart after sharing:Done');
3962: END IF;
3963:
3964: /* Commenting the code (4 Dec, 03) as we are passing the meaning from the UI itself.
3965: -- For Contract Context get the reason_code_meaning from FND Message Code. Otherwise get the lookup meaning.
3976: END IF;
3977: */
3978:
3979:
3980: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3981: IBE_UTIL.debug('Calling the workflow notification API');
3982: END IF;
3983: --Calling the workflow notification API. This API sends out an e-maiol each to the salesrep and the customer.
3984: IBE_WORKFLOW_pvt.NotifyForSalesAssistance(
3977: */
3978:
3979:
3980: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3981: IBE_UTIL.debug('Calling the workflow notification API');
3982: END IF;
3983: --Calling the workflow notification API. This API sends out an e-maiol each to the salesrep and the customer.
3984: IBE_WORKFLOW_pvt.NotifyForSalesAssistance(
3985: p_api_version => 1.0 ,
4001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4002: END IF;
4003:
4004: --Bug 3204942 Start
4005: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4006: IBE_UTIL.debug('Calling the create_note API');
4007: END IF;
4008: IF (p_notes IS NOT NULL) THEN
4009: JTF_NOTES_PUB.create_note(
4002: END IF;
4003:
4004: --Bug 3204942 Start
4005: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4006: IBE_UTIL.debug('Calling the create_note API');
4007: END IF;
4008: IF (p_notes IS NOT NULL) THEN
4009: JTF_NOTES_PUB.create_note(
4010: p_api_version =>1.0,
4024: END IF;
4025: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4027: END IF;
4028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4029: IBE_UTIL.debug('After Calling the create_note API, note_id ='||lx_jtf_note_id);
4030: END IF;
4031: END IF;
4032: --Bug 3204942 End
4025: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4027: END IF;
4028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4029: IBE_UTIL.debug('After Calling the create_note API, note_id ='||lx_jtf_note_id);
4030: END IF;
4031: END IF;
4032: --Bug 3204942 End
4033:
4042: p_data => lx_msg_data);
4043:
4044: EXCEPTION
4045: WHEN FND_API.G_EXC_ERROR THEN
4046: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4047: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4048: END IF;
4049:
4050: ROLLBACK TO Req_for_sales_asst_pvt;
4043:
4044: EXCEPTION
4045: WHEN FND_API.G_EXC_ERROR THEN
4046: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4047: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4048: END IF;
4049:
4050: ROLLBACK TO Req_for_sales_asst_pvt;
4051: x_return_status := FND_API.G_RET_STS_ERROR;
4053: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4054: p_count => lx_msg_count ,
4055: p_data => lx_msg_data);
4056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4058: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4059: END IF;
4060:
4061: ROLLBACK TO Req_for_sales_asst_pvt;
4054: p_count => lx_msg_count ,
4055: p_data => lx_msg_data);
4056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4058: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4059: END IF;
4060:
4061: ROLLBACK TO Req_for_sales_asst_pvt;
4062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4063: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4064: p_count => lx_msg_count ,
4065: p_data => lx_msg_data);
4066: WHEN OTHERS THEN
4067: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4068: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4069: END IF;
4070:
4071: ROLLBACK TO Req_for_sales_asst_pvt;
4064: p_count => lx_msg_count ,
4065: p_data => lx_msg_data);
4066: WHEN OTHERS THEN
4067: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4068: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4069: END IF;
4070:
4071: ROLLBACK TO Req_for_sales_asst_pvt;
4072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4167: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
4168:
4169: BEGIN
4170:
4171: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4172: IBE_UTIL.DEBUG('Begin IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4173: END IF;
4174: Save(
4175: P_Api_Version_Number => p_api_version_number
4168:
4169: BEGIN
4170:
4171: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4172: IBE_UTIL.DEBUG('Begin IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4173: END IF;
4174: Save(
4175: P_Api_Version_Number => p_api_version_number
4176: ,p_Init_Msg_List => p_init_msg_list
4226: ,X_Return_Status => x_Return_Status
4227: ,X_Msg_Count => x_Msg_Count
4228: ,X_Msg_Data => x_Msg_Data
4229: );
4230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4231: IBE_UTIL.DEBUG('End IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4232: END IF;
4233: END Save;
4234:
4227: ,X_Msg_Count => x_Msg_Count
4228: ,X_Msg_Data => x_Msg_Data
4229: );
4230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4231: IBE_UTIL.DEBUG('End IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4232: END IF;
4233: END Save;
4234:
4235:
4367: loop_count number;
4368: lx_quote_expiration_date date;
4369:
4370: BEGIN
4371: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4372: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.Save()');
4373: END IF;
4374:
4375: -- Standard Start of API savepoint
4368: lx_quote_expiration_date date;
4369:
4370: BEGIN
4371: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4372: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.Save()');
4373: END IF;
4374:
4375: -- Standard Start of API savepoint
4376: SAVEPOINT SAVE_pvt;
4392: x_return_status := FND_API.G_RET_STS_SUCCESS;
4393:
4394: -- API body
4395:
4396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4397: IBE_UTIL.DEBUG('SAVE: Before Calling log_environment_info');
4398: END IF;
4399: IBE_Quote_Misc_pvt.log_environment_info();
4400:
4393:
4394: -- API body
4395:
4396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4397: IBE_UTIL.DEBUG('SAVE: Before Calling log_environment_info');
4398: END IF;
4399: IBE_Quote_Misc_pvt.log_environment_info();
4400:
4401: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4397: IBE_UTIL.DEBUG('SAVE: Before Calling log_environment_info');
4398: END IF;
4399: IBE_Quote_Misc_pvt.log_environment_info();
4400:
4401: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4402: IBE_UTIL.DEBUG('SAVE: After Calling log_environment_info');
4403: END IF;
4404:
4405: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4398: END IF;
4399: IBE_Quote_Misc_pvt.log_environment_info();
4400:
4401: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4402: IBE_UTIL.DEBUG('SAVE: After Calling log_environment_info');
4403: END IF;
4404:
4405: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4406: --DBMS_OUTPUT.PUT_line('In save qte_hdr_id is '||p_Qte_Header_Rec.quote_header_id);
4404:
4405: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4406: --DBMS_OUTPUT.PUT_line('In save qte_hdr_id is '||p_Qte_Header_Rec.quote_header_id);
4407: -- USer Authentication
4408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4409: IBE_UTIL.DEBUG('SAVE: Before Calling Validate User');
4410: END IF;
4411:
4412: IF(p_save_type <> OP_DELETE_CART) THEN
4405: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4406: --DBMS_OUTPUT.PUT_line('In save qte_hdr_id is '||p_Qte_Header_Rec.quote_header_id);
4407: -- USer Authentication
4408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4409: IBE_UTIL.DEBUG('SAVE: Before Calling Validate User');
4410: END IF;
4411:
4412: IF(p_save_type <> OP_DELETE_CART) THEN
4413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4409: IBE_UTIL.DEBUG('SAVE: Before Calling Validate User');
4410: END IF;
4411:
4412: IF(p_save_type <> OP_DELETE_CART) THEN
4413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4414: IBE_UTIL.DEBUG('SAVE: Calling Validate User');
4415: END IF;
4416: IBE_Quote_Misc_pvt.Validate_User_Update
4417: ( p_init_msg_list => p_Init_Msg_List
4410: END IF;
4411:
4412: IF(p_save_type <> OP_DELETE_CART) THEN
4413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4414: IBE_UTIL.DEBUG('SAVE: Calling Validate User');
4415: END IF;
4416: IBE_Quote_Misc_pvt.Validate_User_Update
4417: ( p_init_msg_list => p_Init_Msg_List
4418: ,p_quote_header_id => p_Qte_Header_Rec.quote_header_id
4436: -- so that we can get the quote last update date in the exception block
4437: l_qte_header_rec.quote_header_id := p_Qte_Header_Rec.quote_header_id;
4438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4439: END IF;
4440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4441: IBE_UTIL.DEBUG('SAVE: Validate User End');
4442: END IF;
4443: END IF;
4444: -- set default value for header
4437: l_qte_header_rec.quote_header_id := p_Qte_Header_Rec.quote_header_id;
4438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4439: END IF;
4440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4441: IBE_UTIL.DEBUG('SAVE: Validate User End');
4442: END IF;
4443: END IF;
4444: -- set default value for header
4445: --DBMS_OUTPUT.PUT_line('befoe default_hdr_rec ');
4573: IF (p_hd_shipment_tbl.count >0) then
4574: l_hd_shipment_rec := p_hd_shipment_tbl(1);
4575: END IF;
4576: --DBMS_OUTPUT.PUT_line('done checking for p_hd_shipment_tbl ');
4577: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4578: IBE_UTIL.debug('Quote expiration date from get_quote_exp_date() is '||to_char(l_qte_header_rec.quote_expiration_date,'dd:mm:yyyy-hh:mi:ss'));
4579: END IF;
4580:
4581: /* Start of CREATE QUOTE or UPDATE QUOTE conditions*/
4574: l_hd_shipment_rec := p_hd_shipment_tbl(1);
4575: END IF;
4576: --DBMS_OUTPUT.PUT_line('done checking for p_hd_shipment_tbl ');
4577: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4578: IBE_UTIL.debug('Quote expiration date from get_quote_exp_date() is '||to_char(l_qte_header_rec.quote_expiration_date,'dd:mm:yyyy-hh:mi:ss'));
4579: END IF;
4580:
4581: /* Start of CREATE QUOTE or UPDATE QUOTE conditions*/
4582: /* "Create quote" is invoked if there is no incoming quote_header_id and no quote header id found
4598: --End of fix for bug 2512597
4599:
4600: -- create quote
4601:
4602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4603: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() starts');
4604: END IF;
4605:
4606: /*Mannamra: Fix for Bug 4661967: This fix is required to save the payment type during
4599:
4600: -- create quote
4601:
4602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4603: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() starts');
4604: END IF;
4605:
4606: /*Mannamra: Fix for Bug 4661967: This fix is required to save the payment type during
4607: "AddToCart" defaulting work*/
4608:
4609: FOR loop_count in 1..l_Hd_Payment_Tbl.count LOOP
4610: IF (l_Hd_Payment_Tbl(loop_count).payment_type_code = 'CREDIT_CARD' and
4611: l_Hd_Payment_Tbl(loop_count).instr_assignment_id is not null) THEN
4612: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4613: IBE_UTIL.debug('Save: Input payment table Payment type is cc and assignment id is not null');
4614: END IF;
4615: l_Hd_Payment_Tbl(loop_count).payment_ref_number := '';
4616: END IF;
4609: FOR loop_count in 1..l_Hd_Payment_Tbl.count LOOP
4610: IF (l_Hd_Payment_Tbl(loop_count).payment_type_code = 'CREDIT_CARD' and
4611: l_Hd_Payment_Tbl(loop_count).instr_assignment_id is not null) THEN
4612: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4613: IBE_UTIL.debug('Save: Input payment table Payment type is cc and assignment id is not null');
4614: END IF;
4615: l_Hd_Payment_Tbl(loop_count).payment_ref_number := '';
4616: END IF;
4617: END LOOP;
4668: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4670: END IF;
4671:
4672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4673: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() finishes');
4674: END IF;
4675:
4676: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4670: END IF;
4671:
4672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4673: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() finishes');
4674: END IF;
4675:
4676: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4677: BEGIN
4674: END IF;
4675:
4676: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4677: BEGIN
4678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4679: IBE_Util.Debug('In Update Header MinisiteId Dynamic SQL');
4680: END IF;
4681: IF (p_minisite_id <> FND_API.G_MISS_NUM) THEN
4682: l_upd_stmnt := 'Update ASO_QUOTE_HEADERS_ALL set minisite_id = :1
4675:
4676: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4677: BEGIN
4678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4679: IBE_Util.Debug('In Update Header MinisiteId Dynamic SQL');
4680: END IF;
4681: IF (p_minisite_id <> FND_API.G_MISS_NUM) THEN
4682: l_upd_stmnt := 'Update ASO_QUOTE_HEADERS_ALL set minisite_id = :1
4683: where quote_header_id = :2';
4713: END IF;*/
4714:
4715: --MANNAMRA:Changes for save/share project(09/16/02)
4716: /* Callng activate quote here to track the above created cart in IBE_ACTIVE_CARTS_ALL table*/
4717: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4718: IBE_UTIL.DEBUG('DO not call activate_quote if p_save_type is DUPLCIATE_CART,p_save_type='||p_save_type);
4719: END IF;
4720:
4721: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4714:
4715: --MANNAMRA:Changes for save/share project(09/16/02)
4716: /* Callng activate quote here to track the above created cart in IBE_ACTIVE_CARTS_ALL table*/
4717: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4718: IBE_UTIL.DEBUG('DO not call activate_quote if p_save_type is DUPLCIATE_CART,p_save_type='||p_save_type);
4719: END IF;
4720:
4721: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4722: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4718: IBE_UTIL.DEBUG('DO not call activate_quote if p_save_type is DUPLCIATE_CART,p_save_type='||p_save_type);
4719: END IF;
4720:
4721: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4722: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4723: IBE_UTIL.DEBUG('Calling IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE');
4724: IBE_UTIL.DEBUG('x_Qte_header_rec.quote_header_id: '||x_Qte_header_rec.quote_header_id);
4725: END IF;
4726: IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE (
4719: END IF;
4720:
4721: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4722: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4723: IBE_UTIL.DEBUG('Calling IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE');
4724: IBE_UTIL.DEBUG('x_Qte_header_rec.quote_header_id: '||x_Qte_header_rec.quote_header_id);
4725: END IF;
4726: IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE (
4727: P_Quote_header_rec => x_Qte_header_rec,
4720:
4721: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4722: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4723: IBE_UTIL.DEBUG('Calling IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE');
4724: IBE_UTIL.DEBUG('x_Qte_header_rec.quote_header_id: '||x_Qte_header_rec.quote_header_id);
4725: END IF;
4726: IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE (
4727: P_Quote_header_rec => x_Qte_header_rec,
4728: P_Party_id => l_Qte_header_rec.party_id ,
4740:
4741: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4745: IBE_UTIL.DEBUG('Finished calling ACTIVATE_QUOTE ');
4746: END IF;
4747: END IF;--Checking of p_save_type
4748: --MANNAMRA:End of changes for save/share project(09/16/02)
4741: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4745: IBE_UTIL.DEBUG('Finished calling ACTIVATE_QUOTE ');
4746: END IF;
4747: END IF;--Checking of p_save_type
4748: --MANNAMRA:End of changes for save/share project(09/16/02)
4749: else
4819: -- End Bug# 1955991
4820:
4821: --l_pricebasedonowner := FND_Profile.Value('IBE_SC_PRICE_BASED_ON_OWNER');
4822: l_ln_payment_tbl := p_Ln_Payment_Tbl;
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4824: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4825: END IF;
4826: for counter in 1..l_qte_line_tbl.count loop
4827: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4820:
4821: --l_pricebasedonowner := FND_Profile.Value('IBE_SC_PRICE_BASED_ON_OWNER');
4822: l_ln_payment_tbl := p_Ln_Payment_Tbl;
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4824: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4825: END IF;
4826: for counter in 1..l_qte_line_tbl.count loop
4827: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4828: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4824: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4825: END IF;
4826: for counter in 1..l_qte_line_tbl.count loop
4827: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4828: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4829: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4830: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4831: END IF;
4824: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4825: END IF;
4826: for counter in 1..l_qte_line_tbl.count loop
4827: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4828: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4829: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4830: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4831: END IF;
4832: end loop;
4825: END IF;
4826: for counter in 1..l_qte_line_tbl.count loop
4827: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4828: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4829: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4830: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4831: END IF;
4832: end loop;
4833: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4826: for counter in 1..l_qte_line_tbl.count loop
4827: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4828: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4829: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4830: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4831: END IF;
4832: end loop;
4833: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4834: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4829: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4830: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4831: END IF;
4832: end loop;
4833: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4834: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4835: END IF;
4836: For counter in 1..l_ln_payment_tbl.count loop
4837: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4830: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4831: END IF;
4832: end loop;
4833: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4834: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4835: END IF;
4836: For counter in 1..l_ln_payment_tbl.count loop
4837: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4838: Ibe_util.debug('Payment_term_id is: '||l_ln_payment_tbl(counter).payment_term_id);
4833: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4834: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4835: END IF;
4836: For counter in 1..l_ln_payment_tbl.count loop
4837: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4838: Ibe_util.debug('Payment_term_id is: '||l_ln_payment_tbl(counter).payment_term_id);
4839: END IF;
4840: end loop;
4841:
4834: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4835: END IF;
4836: For counter in 1..l_ln_payment_tbl.count loop
4837: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4838: Ibe_util.debug('Payment_term_id is: '||l_ln_payment_tbl(counter).payment_term_id);
4839: END IF;
4840: end loop;
4841:
4842: get_termid_pricelistid( p_qte_line_tbl => l_qte_line_tbl,
4840: end loop;
4841:
4842: get_termid_pricelistid( p_qte_line_tbl => l_qte_line_tbl,
4843: p_ln_payment_tbl => l_ln_payment_tbl);
4844: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4845: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4846: END IF;
4847: For counter in 1..l_qte_line_tbl.count loop
4848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4841:
4842: get_termid_pricelistid( p_qte_line_tbl => l_qte_line_tbl,
4843: p_ln_payment_tbl => l_ln_payment_tbl);
4844: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4845: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4846: END IF;
4847: For counter in 1..l_qte_line_tbl.count loop
4848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4849: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4844: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4845: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4846: END IF;
4847: For counter in 1..l_qte_line_tbl.count loop
4848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4849: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4850: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4851: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4852: END IF;
4845: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4846: END IF;
4847: For counter in 1..l_qte_line_tbl.count loop
4848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4849: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4850: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4851: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4852: END IF;
4853: END LOOP;
4846: END IF;
4847: For counter in 1..l_qte_line_tbl.count loop
4848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4849: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4850: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4851: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4852: END IF;
4853: END LOOP;
4854:
4847: For counter in 1..l_qte_line_tbl.count loop
4848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4849: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4850: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4851: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4852: END IF;
4853: END LOOP;
4854:
4855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4851: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4852: END IF;
4853: END LOOP;
4854:
4855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4856: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4857: END IF;
4858: FOR counter in 1..l_ln_payment_tbl.count LOOP
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4852: END IF;
4853: END LOOP;
4854:
4855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4856: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4857: END IF;
4858: FOR counter in 1..l_ln_payment_tbl.count LOOP
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4860: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4856: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4857: END IF;
4858: FOR counter in 1..l_ln_payment_tbl.count LOOP
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4860: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4861: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4862: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4863: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4856: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4857: END IF;
4858: FOR counter in 1..l_ln_payment_tbl.count LOOP
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4860: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4861: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4862: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4863: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4864: END IF;
4857: END IF;
4858: FOR counter in 1..l_ln_payment_tbl.count LOOP
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4860: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4861: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4862: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4863: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4864: END IF;
4865: END LOOP;
4858: FOR counter in 1..l_ln_payment_tbl.count LOOP
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4860: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4861: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4862: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4863: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4864: END IF;
4865: END LOOP;
4866: /*if (p_sharee_Number is not null
4859: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4860: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4861: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4862: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4863: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4864: END IF;
4865: END LOOP;
4866: /*if (p_sharee_Number is not null
4867: and p_sharee_Number <> FND_API.G_MISS_NUM
4907: END IF;
4908: else -- no sharee*/
4909:
4910: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4912: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
4913: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
4914: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
4915: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4908: else -- no sharee*/
4909:
4910: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4912: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
4913: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
4914: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
4915: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4916: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4909:
4910: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4912: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
4913: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
4914: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
4915: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4916: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4917: END IF;
4910: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4912: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
4913: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
4914: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
4915: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4916: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4917: END IF;
4918: END LOOP;
4911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4912: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
4913: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
4914: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
4915: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4916: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4917: END IF;
4918: END LOOP;
4919: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4912: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
4913: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
4914: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
4915: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4916: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4917: END IF;
4918: END LOOP;
4919: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4916: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4917: END IF;
4918: END LOOP;
4919: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4917: END IF;
4918: END LOOP;
4919: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4918: END LOOP;
4919: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4919: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4927: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4927: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
4928: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
4921: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4927: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
4928: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
4929: END IF;
4922: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4927: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
4928: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
4929: END IF;
4930: END LOOP;
4923: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4927: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
4928: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
4929: END IF;
4930: END LOOP;
4931:
4924: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
4925: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
4926: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
4927: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
4928: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
4929: END IF;
4930: END LOOP;
4931:
4932: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4928: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
4929: END IF;
4930: END LOOP;
4931:
4932: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4933: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
4934: IBE_Util.Debug('Save : COUNT: just before aso update' || p_Ln_Price_Attributes_Tbl.count);
4935: END IF;
4936: --DBMS_OUTPUT.PUT_line('calling IBE_Quote_Save_pvt.SAVE.UPDATE_QUOTE ');
4929: END IF;
4930: END LOOP;
4931:
4932: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4933: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
4934: IBE_Util.Debug('Save : COUNT: just before aso update' || p_Ln_Price_Attributes_Tbl.count);
4935: END IF;
4936: --DBMS_OUTPUT.PUT_line('calling IBE_Quote_Save_pvt.SAVE.UPDATE_QUOTE ');
4937: --DBMS_OUTPUT.PUT_line('before update_quote: '||l_qte_header_rec.quote_name);
4930: END LOOP;
4931:
4932: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4933: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
4934: IBE_Util.Debug('Save : COUNT: just before aso update' || p_Ln_Price_Attributes_Tbl.count);
4935: END IF;
4936: --DBMS_OUTPUT.PUT_line('calling IBE_Quote_Save_pvt.SAVE.UPDATE_QUOTE ');
4937: --DBMS_OUTPUT.PUT_line('before update_quote: '||l_qte_header_rec.quote_name);
4938: --DBMS_OUTPUT.PUT_line('before update_quote: '||l_qte_header_rec.quote_header_id);
4993:
4994: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4996: END IF;
4997: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4998: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes : '|| x_return_status);
4999: END IF;
5000: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_name);
5001: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_header_id);
4994: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4996: END IF;
4997: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4998: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes : '|| x_return_status);
4999: END IF;
5000: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_name);
5001: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_header_id);
5002: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_status_id);
5016: -- Standard call to get message count and if count is 1, get message info.
5017: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5018: p_count => x_msg_count ,
5019: p_data => x_msg_data);
5020: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5021: IBE_Util.Debug('Normal End IBE_Quote_Save_pvt.Save()');
5022: END IF;
5023: -- IBE_Util.Disable_Debug;
5024: EXCEPTION
5017: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5018: p_count => x_msg_count ,
5019: p_data => x_msg_data);
5020: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5021: IBE_Util.Debug('Normal End IBE_Quote_Save_pvt.Save()');
5022: END IF;
5023: -- IBE_Util.Disable_Debug;
5024: EXCEPTION
5025: WHEN FND_API.G_EXC_ERROR THEN
5019: p_data => x_msg_data);
5020: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5021: IBE_Util.Debug('Normal End IBE_Quote_Save_pvt.Save()');
5022: END IF;
5023: -- IBE_Util.Disable_Debug;
5024: EXCEPTION
5025: WHEN FND_API.G_EXC_ERROR THEN
5026: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5027: IBE_Util.Debug('Expected error IBE_Quote_Save_pvt.Save()');
5022: END IF;
5023: -- IBE_Util.Disable_Debug;
5024: EXCEPTION
5025: WHEN FND_API.G_EXC_ERROR THEN
5026: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5027: IBE_Util.Debug('Expected error IBE_Quote_Save_pvt.Save()');
5028: END IF;
5029: ROLLBACK TO SAVE_pvt;
5030: x_return_status := FND_API.G_RET_STS_ERROR;
5023: -- IBE_Util.Disable_Debug;
5024: EXCEPTION
5025: WHEN FND_API.G_EXC_ERROR THEN
5026: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5027: IBE_Util.Debug('Expected error IBE_Quote_Save_pvt.Save()');
5028: END IF;
5029: ROLLBACK TO SAVE_pvt;
5030: x_return_status := FND_API.G_RET_STS_ERROR;
5031: Set_Last_Update_Date(l_qte_header_rec.quote_header_id, x_last_update_date);
5031: Set_Last_Update_Date(l_qte_header_rec.quote_header_id, x_last_update_date);
5032: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5033: p_count => x_msg_count ,
5034: p_data => x_msg_data);
5035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5036: IBE_Util.Debug('Unexpected error IBE_Quote_Save_pvt.Save()');
5037: END IF;
5038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5039: ROLLBACK TO SAVE_pvt;
5032: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5033: p_count => x_msg_count ,
5034: p_data => x_msg_data);
5035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5036: IBE_Util.Debug('Unexpected error IBE_Quote_Save_pvt.Save()');
5037: END IF;
5038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5039: ROLLBACK TO SAVE_pvt;
5040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5041: Set_Last_Update_Date(l_qte_header_rec.quote_header_id, x_last_update_date);
5042: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5043: p_count => x_msg_count ,
5044: p_data => x_msg_data);
5045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5046: IBE_Util.Debug('Unknown exception End IBE_Quote_Save_pvt.Save()');
5047: END IF;
5048: WHEN OTHERS THEN
5049: ROLLBACK TO SAVE_pvt;
5042: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5043: p_count => x_msg_count ,
5044: p_data => x_msg_data);
5045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5046: IBE_Util.Debug('Unknown exception End IBE_Quote_Save_pvt.Save()');
5047: END IF;
5048: WHEN OTHERS THEN
5049: ROLLBACK TO SAVE_pvt;
5050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5055: END IF;
5056: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5057: p_count => x_msg_count ,
5058: p_data => x_msg_data);
5059: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5060: IBE_Util.Debug('End IBE_Quote_Save_pvt.Save()');
5061: END IF;
5062:
5063: END Save;
5056: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5057: p_count => x_msg_count ,
5058: p_data => x_msg_data);
5059: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5060: IBE_Util.Debug('End IBE_Quote_Save_pvt.Save()');
5061: END IF;
5062:
5063: END Save;
5064:
5150: lx_Price_Adjustment_Tbl ASO_Quote_Pub.Price_Adj_Tbl_Type;
5151: lx_Price_Adj_Attr_Tbl ASO_Quote_Pub.Price_Adj_Attr_Tbl_Type;
5152: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
5153: BEGIN
5154: -- IBE_Util.Enable_Debug;
5155: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5156: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5157: END IF;
5158:
5151: lx_Price_Adj_Attr_Tbl ASO_Quote_Pub.Price_Adj_Attr_Tbl_Type;
5152: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
5153: BEGIN
5154: -- IBE_Util.Enable_Debug;
5155: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5156: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5157: END IF;
5158:
5159: -- Standard Start of API savepoint
5152: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
5153: BEGIN
5154: -- IBE_Util.Enable_Debug;
5155: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5156: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5157: END IF;
5158:
5159: -- Standard Start of API savepoint
5160: SAVEPOINT UpdateQuoteForSharee_pvt;
5197: l_qte_header_rec := p_qte_header_rec;
5198: l_qte_header_rec.party_id := p_sharee_Party_id;
5199: l_qte_header_rec.cust_account_id := p_sharee_Cust_account_id;
5200:
5201: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5202: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5203: END IF;
5204:
5205: ASO_Quote_Pub.Update_Quote(
5198: l_qte_header_rec.party_id := p_sharee_Party_id;
5199: l_qte_header_rec.cust_account_id := p_sharee_Cust_account_id;
5200:
5201: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5202: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5203: END IF;
5204:
5205: ASO_Quote_Pub.Update_Quote(
5206: P_Api_Version_Number => P_Api_Version_Number
5247: ,X_Return_Status => x_return_status
5248: ,X_Msg_Count => x_msg_count
5249: ,X_Msg_Data => x_msg_data);
5250:
5251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5252: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5253: END IF;
5254:
5255: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5248: ,X_Msg_Count => x_msg_count
5249: ,X_Msg_Data => x_msg_data);
5250:
5251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5252: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5253: END IF;
5254:
5255: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5256: RAISE FND_API.G_EXC_ERROR;
5271: l_qte_header_rec.cust_account_id := l_Quote_Cust_account_id;
5272:
5273: l_control_rec := ASO_Quote_Pub.G_MISS_Control_Rec;
5274:
5275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5276: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5277: END IF;
5278:
5279: ASO_Quote_Pub.Update_quote(
5272:
5273: l_control_rec := ASO_Quote_Pub.G_MISS_Control_Rec;
5274:
5275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5276: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5277: END IF;
5278:
5279: ASO_Quote_Pub.Update_quote(
5280: P_Api_Version_Number => P_Api_Version_Number
5302: ,X_Return_Status => x_return_status
5303: ,X_Msg_Count => x_msg_count
5304: ,X_Msg_Data => x_msg_data);
5305:
5306: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5307: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5308: END IF;
5309: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5310: RAISE FND_API.G_EXC_ERROR;
5303: ,X_Msg_Count => x_msg_count
5304: ,X_Msg_Data => x_msg_data);
5305:
5306: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5307: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5308: END IF;
5309: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5310: RAISE FND_API.G_EXC_ERROR;
5311: END IF;
5324: -- Standard call to get message count and if count is 1, get message info.
5325: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5326: p_count => x_msg_count ,
5327: p_data => x_msg_data);
5328: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5329: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5330: END IF;
5331: -- IBE_Util.Disable_Debug;
5332: EXCEPTION
5325: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5326: p_count => x_msg_count ,
5327: p_data => x_msg_data);
5328: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5329: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5330: END IF;
5331: -- IBE_Util.Disable_Debug;
5332: EXCEPTION
5333: WHEN FND_API.G_EXC_ERROR THEN
5327: p_data => x_msg_data);
5328: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5329: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5330: END IF;
5331: -- IBE_Util.Disable_Debug;
5332: EXCEPTION
5333: WHEN FND_API.G_EXC_ERROR THEN
5334: ROLLBACK TO UpdateQuoteForSharee_pvt;
5335: x_return_status := FND_API.G_RET_STS_ERROR;
5335: x_return_status := FND_API.G_RET_STS_ERROR;
5336: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5337: p_count => x_msg_count ,
5338: p_data => x_msg_data);
5339: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5340: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5341: END IF;
5342: -- IBE_Util.Disable_Debug;
5343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5336: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5337: p_count => x_msg_count ,
5338: p_data => x_msg_data);
5339: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5340: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5341: END IF;
5342: -- IBE_Util.Disable_Debug;
5343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5344: ROLLBACK TO UpdateQuoteForSharee_pvt;
5338: p_data => x_msg_data);
5339: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5340: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5341: END IF;
5342: -- IBE_Util.Disable_Debug;
5343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5344: ROLLBACK TO UpdateQuoteForSharee_pvt;
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5347: p_count => x_msg_count ,
5348: p_data => x_msg_data);
5349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5350: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5351: END IF;
5352: -- IBE_Util.Disable_Debug;
5353: WHEN OTHERS THEN
5346: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5347: p_count => x_msg_count ,
5348: p_data => x_msg_data);
5349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5350: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5351: END IF;
5352: -- IBE_Util.Disable_Debug;
5353: WHEN OTHERS THEN
5354: ROLLBACK TO UpdateQuoteForSharee_pvt;
5348: p_data => x_msg_data);
5349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5350: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5351: END IF;
5352: -- IBE_Util.Disable_Debug;
5353: WHEN OTHERS THEN
5354: ROLLBACK TO UpdateQuoteForSharee_pvt;
5355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5356:
5361:
5362: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5363: p_count => x_msg_count ,
5364: p_data => x_msg_data);
5365: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5366: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5367: END IF;
5368: -- IBE_Util.Disable_Debug;
5369: END UpdateQuoteForSharee;
5362: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5363: p_count => x_msg_count ,
5364: p_data => x_msg_data);
5365: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5366: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5367: END IF;
5368: -- IBE_Util.Disable_Debug;
5369: END UpdateQuoteForSharee;
5370:
5364: p_data => x_msg_data);
5365: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5366: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5367: END IF;
5368: -- IBE_Util.Disable_Debug;
5369: END UpdateQuoteForSharee;
5370:
5371:
5372: /* ------------------------------ Default API's: Start -----------------*/
5457: x_return_status := FND_API.G_RET_STS_SUCCESS;
5458:
5459: -- API body
5460:
5461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5462: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5463: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5464: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5465: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5458:
5459: -- API body
5460:
5461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5462: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5463: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5464: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5465: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5466: END IF;
5459: -- API body
5460:
5461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5462: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5463: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5464: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5465: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5466: END IF;
5467:
5460:
5461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5462: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5463: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5464: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5465: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5466: END IF;
5467:
5468: -- We will call the various helper api's to get default values
5461: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5462: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5463: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5464: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5465: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5466: END IF;
5467:
5468: -- We will call the various helper api's to get default values
5469: -- #* First we have to make sure we pass and get the right parameters
5471: lx_qte_header_rec := p_qte_header_rec;
5472: lx_hd_Payment_Tbl := p_hd_Payment_Tbl;
5473: lx_hd_Tax_Detail_Tbl := p_hd_Tax_Detail_Tbl;
5474:
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5477: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5478: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5479: END IF;
5472: lx_hd_Payment_Tbl := p_hd_Payment_Tbl;
5473: lx_hd_Tax_Detail_Tbl := p_hd_Tax_Detail_Tbl;
5474:
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5477: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5478: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5479: END IF;
5480:
5473: lx_hd_Tax_Detail_Tbl := p_hd_Tax_Detail_Tbl;
5474:
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5477: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5478: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5479: END IF;
5480:
5481: -- #1 Shipping Info
5474:
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5477: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5478: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5479: END IF;
5480:
5481: -- #1 Shipping Info
5482: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5478: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5479: END IF;
5480:
5481: -- #1 Shipping Info
5482: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5483: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO starts');
5484: END IF;
5485: getHdrDefaultAddress (
5486: P_Api_Version_Number => P_Api_Version_Number
5479: END IF;
5480:
5481: -- #1 Shipping Info
5482: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5483: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO starts');
5484: END IF;
5485: getHdrDefaultAddress (
5486: P_Api_Version_Number => P_Api_Version_Number
5487: ,p_Init_Msg_List => p_Init_Msg_List
5492: ,X_Return_Status => X_Return_Status
5493: ,X_Msg_Count => X_Msg_Count
5494: ,X_Msg_Data => X_Msg_Data
5495: );
5496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5497: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO finishes');
5498: END IF;
5499: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE FND_API.G_EXC_ERROR;
5493: ,X_Msg_Count => X_Msg_Count
5494: ,X_Msg_Data => X_Msg_Data
5495: );
5496: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5497: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO finishes');
5498: END IF;
5499: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE FND_API.G_EXC_ERROR;
5501: END IF;
5503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5504: END IF;
5505:
5506: if (lx_hd_shipment_tbl.count <> 0) then
5507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5508: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5509: END IF;
5510: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5511: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5504: END IF;
5505:
5506: if (lx_hd_shipment_tbl.count <> 0) then
5507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5508: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5509: END IF;
5510: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5511: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5512: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5508: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5509: END IF;
5510: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5511: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5512: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5513: END IF;
5514: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5508: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5509: END IF;
5510: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5511: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5512: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5513: END IF;
5514: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5516: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5511: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5512: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5513: END IF;
5514: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5516: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5517: END IF;
5518: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5519: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5512: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5513: END IF;
5514: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5516: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5517: END IF;
5518: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5519: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5520: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5516: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5517: END IF;
5518: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5519: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5520: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5521: END IF;
5522: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5523:
5516: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5517: END IF;
5518: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5519: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5520: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5521: END IF;
5522: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5523:
5524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5520: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5521: END IF;
5522: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5523:
5524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5525: IBE_Util.Debug('*******************************');
5526: END IF;
5527: --dbms_output.put_line('*******************************');
5528:
5521: END IF;
5522: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5523:
5524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5525: IBE_Util.Debug('*******************************');
5526: END IF;
5527: --dbms_output.put_line('*******************************');
5528:
5529: -- 9/11/02: we only call this api if we were able to find the shipTo address because if we can't find
5527: --dbms_output.put_line('*******************************');
5528:
5529: -- 9/11/02: we only call this api if we were able to find the shipTo address because if we can't find
5530: -- this info, we can't default the contact
5531: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5532: IBE_Util.Debug('getHdrDefaultShipMethod() starts');
5533: END IF;
5534: getHdrDefaultShipMethod (
5535: P_Api_Version_Number => P_Api_Version_Number
5528:
5529: -- 9/11/02: we only call this api if we were able to find the shipTo address because if we can't find
5530: -- this info, we can't default the contact
5531: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5532: IBE_Util.Debug('getHdrDefaultShipMethod() starts');
5533: END IF;
5534: getHdrDefaultShipMethod (
5535: P_Api_Version_Number => P_Api_Version_Number
5536: ,p_Init_Msg_List => p_Init_Msg_List
5541: ,X_Return_Status => X_Return_Status
5542: ,X_Msg_Count => X_Msg_Count
5543: ,X_Msg_Data => X_Msg_Data
5544: );
5545: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5546: IBE_Util.Debug('getHdrDefaultShipMethod() finishes');
5547: END IF;
5548: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5549: RAISE FND_API.G_EXC_ERROR;
5542: ,X_Msg_Count => X_Msg_Count
5543: ,X_Msg_Data => X_Msg_Data
5544: );
5545: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5546: IBE_Util.Debug('getHdrDefaultShipMethod() finishes');
5547: END IF;
5548: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5549: RAISE FND_API.G_EXC_ERROR;
5550: END IF;
5552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5553: END IF;
5554:
5555: if (lx_hd_Shipment_Tbl.count <> 0) then
5556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5557: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5558: END IF;
5559: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5560: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5553: END IF;
5554:
5555: if (lx_hd_Shipment_Tbl.count <> 0) then
5556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5557: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5558: END IF;
5559: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5560: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5561: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5557: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5558: END IF;
5559: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5560: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5561: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5562: END IF;
5563: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5564: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5557: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5558: END IF;
5559: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5560: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5561: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5562: END IF;
5563: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5564: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5565: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5560: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5561: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5562: END IF;
5563: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5564: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5565: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5566: END IF;
5567: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5568: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5561: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5562: END IF;
5563: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5564: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5565: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5566: END IF;
5567: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5568: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5569: IBE_Util.Debug('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5564: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5565: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5566: END IF;
5567: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5568: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5569: IBE_Util.Debug('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5570: END IF;
5571: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5572:
5565: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5566: END IF;
5567: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5568: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5569: IBE_Util.Debug('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5570: END IF;
5571: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5572:
5573: end if;
5570: END IF;
5571: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5572:
5573: end if;
5574: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5575: IBE_Util.Debug('*******************************');
5576: END IF;
5577: --dbms_output.put_line('*******************************');
5578: end if; -- if there is shipTo address
5571: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5572:
5573: end if;
5574: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5575: IBE_Util.Debug('*******************************');
5576: END IF;
5577: --dbms_output.put_line('*******************************');
5578: end if; -- if there is shipTo address
5579:
5577: --dbms_output.put_line('*******************************');
5578: end if; -- if there is shipTo address
5579:
5580: -- #2 Billing Info
5581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5582: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO starts');
5583: IBE_Util.Debug('STAR 123 getHdrDefaultAddress()' || lx_qte_header_rec.party_id);
5584: END IF;
5585: getHdrDefaultAddress (
5578: end if; -- if there is shipTo address
5579:
5580: -- #2 Billing Info
5581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5582: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO starts');
5583: IBE_Util.Debug('STAR 123 getHdrDefaultAddress()' || lx_qte_header_rec.party_id);
5584: END IF;
5585: getHdrDefaultAddress (
5586: P_Api_Version_Number => P_Api_Version_Number
5579:
5580: -- #2 Billing Info
5581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5582: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO starts');
5583: IBE_Util.Debug('STAR 123 getHdrDefaultAddress()' || lx_qte_header_rec.party_id);
5584: END IF;
5585: getHdrDefaultAddress (
5586: P_Api_Version_Number => P_Api_Version_Number
5587: ,p_Init_Msg_List => p_Init_Msg_List
5592: ,X_Return_Status => X_Return_Status
5593: ,X_Msg_Count => X_Msg_Count
5594: ,X_Msg_Data => X_Msg_Data
5595: );
5596: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5597: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO finishes');
5598: END IF;
5599: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5600: RAISE FND_API.G_EXC_ERROR;
5593: ,X_Msg_Count => X_Msg_Count
5594: ,X_Msg_Data => X_Msg_Data
5595: );
5596: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5597: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO finishes');
5598: END IF;
5599: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5600: RAISE FND_API.G_EXC_ERROR;
5601: END IF;
5602: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: END IF;
5605:
5606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5607: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5608: END IF;
5609: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5610: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: END IF;
5605:
5606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5607: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5608: END IF;
5609: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5610: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5611: IBE_Util.Debug('*******************************');
5606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5607: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5608: END IF;
5609: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5610: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5611: IBE_Util.Debug('*******************************');
5612: END IF;
5613: --dbms_output.put_line('*******************************');
5614:
5607: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5608: END IF;
5609: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5610: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5611: IBE_Util.Debug('*******************************');
5612: END IF;
5613: --dbms_output.put_line('*******************************');
5614:
5615: IBE_PAYMENT_INT_PVT.check_Payment_channel_setups
5626: billing page to provide the credit card cvv2 number*/
5627: IF(l_cvv2_setup <> FND_API.G_TRUE) THEN
5628:
5629:
5630: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5631: IBE_Util.Debug('getHdrDefaultPaymentMethod() starts');
5632: END IF;
5633: getHdrDefaultPaymentMethod (
5634: P_Api_Version_Number => P_Api_Version_Number
5627: IF(l_cvv2_setup <> FND_API.G_TRUE) THEN
5628:
5629:
5630: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5631: IBE_Util.Debug('getHdrDefaultPaymentMethod() starts');
5632: END IF;
5633: getHdrDefaultPaymentMethod (
5634: P_Api_Version_Number => P_Api_Version_Number
5635: ,p_Init_Msg_List => p_Init_Msg_List
5640: ,X_Return_Status => X_Return_Status
5641: ,X_Msg_Count => X_Msg_Count
5642: ,X_Msg_Data => X_Msg_Data
5643: );
5644: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5645: IBE_Util.Debug('getHdrDefaultPaymentMethod() finishes');
5646: END IF;
5647: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5648: RAISE FND_API.G_EXC_ERROR;
5641: ,X_Msg_Count => X_Msg_Count
5642: ,X_Msg_Data => X_Msg_Data
5643: );
5644: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5645: IBE_Util.Debug('getHdrDefaultPaymentMethod() finishes');
5646: END IF;
5647: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5648: RAISE FND_API.G_EXC_ERROR;
5649: END IF;
5651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5652: END IF;
5653:
5654: if (lx_hd_Payment_Tbl.count <> 0) then
5655: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5656: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5657: END IF;
5658: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5652: END IF;
5653:
5654: if (lx_hd_Payment_Tbl.count <> 0) then
5655: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5656: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5657: END IF;
5658: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5660: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5655: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5656: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5657: END IF;
5658: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5660: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5661: END IF;
5662: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5656: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5657: END IF;
5658: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5660: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5661: END IF;
5662: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5664: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5659: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5660: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5661: END IF;
5662: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5664: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5665: END IF;
5666: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5667: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5660: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5661: END IF;
5662: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5664: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5665: END IF;
5666: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5667: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5668: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5664: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5665: END IF;
5666: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5667: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5668: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5669: END IF;
5670: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5671:
5664: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5665: END IF;
5666: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5667: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5668: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5669: END IF;
5670: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5671:
5672: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5668: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5669: END IF;
5670: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5671:
5672: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5673: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5674: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5675: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5676: END IF;
5670: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5671:
5672: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5673: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5674: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5675: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5676: END IF;
5677: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5671:
5672: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5673: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5674: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5675: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5676: END IF;
5677: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5674: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5675: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5676: END IF;
5677: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5680: END IF;
5681: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5682: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5675: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5676: END IF;
5677: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5680: END IF;
5681: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5682: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5683: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5680: END IF;
5681: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5682: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5683: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5684: END IF;
5685: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5686: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5680: END IF;
5681: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5682: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5683: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5684: END IF;
5685: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5686: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5687: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5682: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5683: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5684: END IF;
5685: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5686: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5687: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5688: END IF;
5689: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5690: end if;
5683: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5684: END IF;
5685: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5686: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5687: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5688: END IF;
5689: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5690: end if;
5691: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5687: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5688: END IF;
5689: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5690: end if;
5691: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5692: IBE_Util.Debug('*******************************');
5693: END IF;
5694: END IF; --l_cvv2_setup <> FND_API.G_TRUE
5695: --dbms_output.put_line('*******************************');
5688: END IF;
5689: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5690: end if;
5691: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5692: IBE_Util.Debug('*******************************');
5693: END IF;
5694: END IF; --l_cvv2_setup <> FND_API.G_TRUE
5695: --dbms_output.put_line('*******************************');
5696:
5696:
5697: if ((lx_qte_header_rec.invoice_to_party_site_id <> fnd_api.g_miss_num) and (lx_qte_header_rec.invoice_to_party_site_id is not null) ) then
5698: -- 9/11/02: we only call this api if we were able to find the billTo address because if we can't find
5699: -- this info, we can't default the contact
5700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5701: IBE_Util.Debug('getHdrDefaultTaxExemption() starts');
5702: END IF;
5703: getHdrDefaultTaxExemption (
5704: P_Api_Version_Number => P_Api_Version_Number
5697: if ((lx_qte_header_rec.invoice_to_party_site_id <> fnd_api.g_miss_num) and (lx_qte_header_rec.invoice_to_party_site_id is not null) ) then
5698: -- 9/11/02: we only call this api if we were able to find the billTo address because if we can't find
5699: -- this info, we can't default the contact
5700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5701: IBE_Util.Debug('getHdrDefaultTaxExemption() starts');
5702: END IF;
5703: getHdrDefaultTaxExemption (
5704: P_Api_Version_Number => P_Api_Version_Number
5705: ,p_Init_Msg_List => p_Init_Msg_List
5709: ,X_Return_Status => X_Return_Status
5710: ,X_Msg_Count => X_Msg_Count
5711: ,X_Msg_Data => X_Msg_Data
5712: );
5713: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5714: IBE_Util.Debug('getHdrDefaultTaxExemption() finishes');
5715: END IF;
5716: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5717: RAISE FND_API.G_EXC_ERROR;
5710: ,X_Msg_Count => X_Msg_Count
5711: ,X_Msg_Data => X_Msg_Data
5712: );
5713: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5714: IBE_Util.Debug('getHdrDefaultTaxExemption() finishes');
5715: END IF;
5716: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5717: RAISE FND_API.G_EXC_ERROR;
5718: END IF;
5720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5721: END IF;
5722:
5723: if (lx_hd_Tax_Detail_Tbl.count <> 0) then
5724: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5725: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5726: END IF;
5727: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5721: END IF;
5722:
5723: if (lx_hd_Tax_Detail_Tbl.count <> 0) then
5724: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5725: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5726: END IF;
5727: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5729: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5724: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5725: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5726: END IF;
5727: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5729: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5730: END IF;
5731: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5732: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5725: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5726: END IF;
5727: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5729: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5730: END IF;
5731: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5732: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5733: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5728: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5729: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5730: END IF;
5731: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5732: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5733: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5734: END IF;
5735: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5736: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5729: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5730: END IF;
5731: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5732: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5733: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5734: END IF;
5735: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5736: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5737: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5732: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5733: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5734: END IF;
5735: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5736: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5737: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5738: END IF;
5739: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5740:
5733: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5734: END IF;
5735: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5736: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5737: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5738: END IF;
5739: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5740:
5741: end if;
5738: END IF;
5739: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5740:
5741: end if;
5742: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5743: IBE_Util.Debug('*******************************');
5744: END IF;
5745: --dbms_output.put_line('*******************************');
5746: end if; -- if there is billTo address
5739: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5740:
5741: end if;
5742: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5743: IBE_Util.Debug('*******************************');
5744: END IF;
5745: --dbms_output.put_line('*******************************');
5746: end if; -- if there is billTo address
5747:
5747:
5748: -- #3 End Customer Info (added 1/24/05>
5749: l_userType := IBE_Quote_Misc_pvt.getUserType(lx_qte_header_rec.party_id);
5750: if (l_userType = 'B2B') then
5751: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5752: IBE_Util.Debug('getHdrDefaultEndCustomer() starts');
5753: END IF;
5754: getHdrDefaultEndCustomer (
5755: P_Api_Version_Number => P_Api_Version_Number
5748: -- #3 End Customer Info (added 1/24/05>
5749: l_userType := IBE_Quote_Misc_pvt.getUserType(lx_qte_header_rec.party_id);
5750: if (l_userType = 'B2B') then
5751: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5752: IBE_Util.Debug('getHdrDefaultEndCustomer() starts');
5753: END IF;
5754: getHdrDefaultEndCustomer (
5755: P_Api_Version_Number => P_Api_Version_Number
5756: ,p_Init_Msg_List => p_Init_Msg_List
5760: ,X_Return_Status => X_Return_Status
5761: ,X_Msg_Count => X_Msg_Count
5762: ,X_Msg_Data => X_Msg_Data
5763: );
5764: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5765: IBE_Util.Debug('getHdrDefaultEndCustomer() finishes');
5766: END IF;
5767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5768: RAISE FND_API.G_EXC_ERROR;
5761: ,X_Msg_Count => X_Msg_Count
5762: ,X_Msg_Data => X_Msg_Data
5763: );
5764: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5765: IBE_Util.Debug('getHdrDefaultEndCustomer() finishes');
5766: END IF;
5767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5768: RAISE FND_API.G_EXC_ERROR;
5769: END IF;
5789: -- Standard call to get message count and if count is 1, get message info.
5790: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5791: p_count => x_msg_count ,
5792: p_data => x_msg_data);
5793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5794: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultValues()');
5795: END IF;
5796: --IBE_Util.Disable_Debug;
5797:
5790: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5791: p_count => x_msg_count ,
5792: p_data => x_msg_data);
5793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5794: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultValues()');
5795: END IF;
5796: --IBE_Util.Disable_Debug;
5797:
5798: EXCEPTION
5792: p_data => x_msg_data);
5793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5794: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultValues()');
5795: END IF;
5796: --IBE_Util.Disable_Debug;
5797:
5798: EXCEPTION
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO getHdrDefaultValues_PVT;
5906: x_return_status := FND_API.G_RET_STS_SUCCESS;
5907:
5908: -- API body
5909:
5910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5911: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultAddress()');
5912: END IF;
5913: -- 1. for the merge cart cases, we have to check if there is shipment/billing address in the shipment/quote header record associated w/ the cart:
5914: /*
5907:
5908: -- API body
5909:
5910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5911: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultAddress()');
5912: END IF;
5913: -- 1. for the merge cart cases, we have to check if there is shipment/billing address in the shipment/quote header record associated w/ the cart:
5914: /*
5915: *Here is the general algorithm:
5922: else
5923: there is shipment record but no shipTo_partyId -> partyId = cookie's
5924: */
5925:
5926: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5927: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
5928: END IF;
5929: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
5930: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5923: there is shipment record but no shipTo_partyId -> partyId = cookie's
5924: */
5925:
5926: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5927: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
5928: END IF;
5929: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
5930: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5931: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
5926: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5927: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
5928: END IF;
5929: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
5930: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5931: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
5932: END IF;
5933: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
5934: if ((px_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (px_qte_header_rec.quote_header_id is not null)) then
5927: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
5928: END IF;
5929: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
5930: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5931: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
5932: END IF;
5933: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
5934: if ((px_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (px_qte_header_rec.quote_header_id is not null)) then
5935: if (p_party_site_use = 'S') then
5938: open c_check_shipTo_rec_exist (px_qte_header_rec.quote_header_id);
5939: fetch c_check_shipTo_rec_exist into rec_shipTo_rec_exist;
5940: close c_check_shipTo_rec_exist;
5941:
5942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5943: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5944: END IF;
5945: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5939: fetch c_check_shipTo_rec_exist into rec_shipTo_rec_exist;
5940: close c_check_shipTo_rec_exist;
5941:
5942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5943: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5944: END IF;
5945: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5947: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5943: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5944: END IF;
5945: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5947: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5948: END IF;
5949: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5950: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5943: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5944: END IF;
5945: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
5946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5947: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5948: END IF;
5949: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5950: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5951: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
5946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5947: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5948: END IF;
5949: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5950: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5951: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
5952: END IF;
5953: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
5954:
5947: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5948: END IF;
5949: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
5950: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5951: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
5952: END IF;
5953: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
5954:
5955: -- if there is already a shipTo partySiteId, we are done
5958:
5959: -- if there is no shipmentId
5960: elsif ((rec_shipTo_rec_exist.shipment_id = FND_API.G_MISS_NUM) or (rec_shipTo_rec_exist.shipment_id is null)) then
5961: l_party_id := px_qte_header_rec.party_id;
5962: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5963: IBE_Util.Debug('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
5964: END IF;
5965: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
5966:
5959: -- if there is no shipmentId
5960: elsif ((rec_shipTo_rec_exist.shipment_id = FND_API.G_MISS_NUM) or (rec_shipTo_rec_exist.shipment_id is null)) then
5961: l_party_id := px_qte_header_rec.party_id;
5962: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5963: IBE_Util.Debug('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
5964: END IF;
5965: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
5966:
5967: else
5974:
5975: -- if there is shipTo contact
5976: if ((rec_shipTo_partyId.ship_to_party_id <> FND_API.G_MISS_NUM) and (rec_shipTo_partyId.ship_to_party_id is not null)) then
5977: l_party_id := rec_shipTo_partyId.ship_to_party_id;
5978: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5979: IBE_Util.Debug('getDefaultAddress: l_party_id-contact-='||l_party_id);
5980: END IF;
5981: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
5982: else
5975: -- if there is shipTo contact
5976: if ((rec_shipTo_partyId.ship_to_party_id <> FND_API.G_MISS_NUM) and (rec_shipTo_partyId.ship_to_party_id is not null)) then
5977: l_party_id := rec_shipTo_partyId.ship_to_party_id;
5978: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5979: IBE_Util.Debug('getDefaultAddress: l_party_id-contact-='||l_party_id);
5980: END IF;
5981: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
5982: else
5983: l_party_id := px_qte_header_rec.party_id;
5980: END IF;
5981: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
5982: else
5983: l_party_id := px_qte_header_rec.party_id;
5984: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5985: IBE_Util.Debug('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
5986: END IF;
5987: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
5988: end if;
5981: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
5982: else
5983: l_party_id := px_qte_header_rec.party_id;
5984: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5985: IBE_Util.Debug('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
5986: END IF;
5987: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
5988: end if;
5989:
6023:
6024: end if; -- check p_party_site_use
6025: end if; -- for merge cart cases
6026:
6027: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6028: IBE_Util.Debug('l_party_id ='||l_party_id);
6029: END IF;
6030: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6031: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6024: end if; -- check p_party_site_use
6025: end if; -- for merge cart cases
6026:
6027: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6028: IBE_Util.Debug('l_party_id ='||l_party_id);
6029: END IF;
6030: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6031: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6032: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6027: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6028: IBE_Util.Debug('l_party_id ='||l_party_id);
6029: END IF;
6030: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6031: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6032: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6033: END IF;
6034: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6028: IBE_Util.Debug('l_party_id ='||l_party_id);
6029: END IF;
6030: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6031: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6032: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6033: END IF;
6034: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6036: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6031: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6032: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6033: END IF;
6034: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6036: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6037: END IF;
6038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6039: IBE_Util.Debug('l_isDone ='||l_isDone);
6032: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6033: END IF;
6034: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6036: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6037: END IF;
6038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6039: IBE_Util.Debug('l_isDone ='||l_isDone);
6040: END IF;
6034: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6036: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6037: END IF;
6038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6039: IBE_Util.Debug('l_isDone ='||l_isDone);
6040: END IF;
6041: --DBMS_OUTPUT.PUT_line('l_isDone ='||l_isDone);
6042:
6035: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6036: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6037: END IF;
6038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6039: IBE_Util.Debug('l_isDone ='||l_isDone);
6040: END IF;
6041: --DBMS_OUTPUT.PUT_line('l_isDone ='||l_isDone);
6042:
6043: -- 2. if there isn't a record, continue
6041: --DBMS_OUTPUT.PUT_line('l_isDone ='||l_isDone);
6042:
6043: -- 2. if there isn't a record, continue
6044: if (l_isDone <> 'Y') then
6045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6046: IBE_Util.Debug('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6047: END IF;
6048: --DBMS_OUTPUT.PUT_line('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6049: IBE_ADDRESS_V2PVT.get_primary_addr_id
6042:
6043: -- 2. if there isn't a record, continue
6044: if (l_isDone <> 'Y') then
6045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6046: IBE_Util.Debug('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6047: END IF;
6048: --DBMS_OUTPUT.PUT_line('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6049: IBE_ADDRESS_V2PVT.get_primary_addr_id
6050: (
6065: END IF;
6066: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6068: END IF;
6069: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6070: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6071: END IF;
6072: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6073: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6066: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6068: END IF;
6069: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6070: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6071: END IF;
6072: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6073: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6074: IBE_Util.Debug('lx_party_site_id ='||lx_party_site_id);
6069: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6070: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6071: END IF;
6072: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6073: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6074: IBE_Util.Debug('lx_party_site_id ='||lx_party_site_id);
6075: END IF;
6076: --DBMS_OUTPUT.PUT_line('lx_party_site_id ='||lx_party_site_id);
6077:
6070: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6071: END IF;
6072: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6073: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6074: IBE_Util.Debug('lx_party_site_id ='||lx_party_site_id);
6075: END IF;
6076: --DBMS_OUTPUT.PUT_line('lx_party_site_id ='||lx_party_site_id);
6077:
6078: -- 2.1 populate the shipment/quote hdr record:
6105: -- Standard call to get message count and if count is 1, get message info.
6106: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6107: p_count => x_msg_count ,
6108: p_data => x_msg_data);
6109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6110: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6111: END IF;
6112: --IBE_Util.Disable_Debug;
6113:
6106: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6107: p_count => x_msg_count ,
6108: p_data => x_msg_data);
6109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6110: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6111: END IF;
6112: --IBE_Util.Disable_Debug;
6113:
6114: EXCEPTION
6108: p_data => x_msg_data);
6109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6110: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6111: END IF;
6112: --IBE_Util.Disable_Debug;
6113:
6114: EXCEPTION
6115: WHEN FND_API.G_EXC_ERROR THEN
6116: ROLLBACK TO getHdrDefaultAddress_pvt;
6210: x_return_status := FND_API.G_RET_STS_SUCCESS;
6211:
6212: -- API body
6213:
6214: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6215: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6216: END IF;
6217:
6218: -- 1. for the merge cart cases, we have to check if there is shipment method in the shipment record associated w/ the cart:
6211:
6212: -- API body
6213:
6214: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6215: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6216: END IF;
6217:
6218: -- 1. for the merge cart cases, we have to check if there is shipment method in the shipment record associated w/ the cart:
6219: if ((p_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (p_qte_header_rec.quote_header_id is not null)) then
6233: l_shipment_id := rec_shipTo_rec_exist.shipment_id;
6234: end if;
6235: end if; -- for merge cart cases
6236:
6237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6238: IBE_Util.Debug('l_opCode :'||l_opCode);
6239: END IF;
6240: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6234: end if;
6235: end if; -- for merge cart cases
6236:
6237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6238: IBE_Util.Debug('l_opCode :'||l_opCode);
6239: END IF;
6240: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6242: IBE_Util.Debug('l_shipment_id :'||l_shipment_id);
6237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6238: IBE_Util.Debug('l_opCode :'||l_opCode);
6239: END IF;
6240: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6242: IBE_Util.Debug('l_shipment_id :'||l_shipment_id);
6243: END IF;
6244: --DBMS_OUTPUT.PUT_line('l_shipment_id :'||l_shipment_id);
6245:
6238: IBE_Util.Debug('l_opCode :'||l_opCode);
6239: END IF;
6240: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6242: IBE_Util.Debug('l_shipment_id :'||l_shipment_id);
6243: END IF;
6244: --DBMS_OUTPUT.PUT_line('l_shipment_id :'||l_shipment_id);
6245:
6246: -- 2. if there isn't a record, continue
6249: -- if there is a value then we have to validate this value with the list of shipment methods
6250: -- created from an intersection of shipment methods in the minisite and those in the operation unit
6251: l_ship_method_code := FND_PROFILE.VALUE('IBE_PREFERED_SHIP_METHOD');
6252:
6253: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6254: IBE_Util.Debug('l_ship_method_code :'||l_ship_method_code||'*');
6255: END IF;
6256: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6257: if (l_ship_method_code = '') then
6250: -- created from an intersection of shipment methods in the minisite and those in the operation unit
6251: l_ship_method_code := FND_PROFILE.VALUE('IBE_PREFERED_SHIP_METHOD');
6252:
6253: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6254: IBE_Util.Debug('l_ship_method_code :'||l_ship_method_code||'*');
6255: END IF;
6256: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6257: if (l_ship_method_code = '') then
6258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6254: IBE_Util.Debug('l_ship_method_code :'||l_ship_method_code||'*');
6255: END IF;
6256: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6257: if (l_ship_method_code = '') then
6258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6259: IBE_Util.Debug('l_ship_method_code is blank');
6260: END IF;
6261: --DBMS_OUTPUT.PUT_line('l_ship_method_code is blank');
6262: end if;
6255: END IF;
6256: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6257: if (l_ship_method_code = '') then
6258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6259: IBE_Util.Debug('l_ship_method_code is blank');
6260: END IF;
6261: --DBMS_OUTPUT.PUT_line('l_ship_method_code is blank');
6262: end if;
6263:
6275:
6276: l_ship_method_code := rec_MiniSiteOrg_ShipMethod.msite_information1;
6277: -- l_ship_method_code := null; -- commenting for ER# 4663790
6278:
6279: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6280: IBE_Util.Debug('case 2.2: l_ship_method_code :'||l_ship_method_code);
6281: END IF;
6282:
6283: l_prefSMValid := 'Y';
6276: l_ship_method_code := rec_MiniSiteOrg_ShipMethod.msite_information1;
6277: -- l_ship_method_code := null; -- commenting for ER# 4663790
6278:
6279: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6280: IBE_Util.Debug('case 2.2: l_ship_method_code :'||l_ship_method_code);
6281: END IF;
6282:
6283: l_prefSMValid := 'Y';
6284: exit;
6284: exit;
6285: else
6286: -- case 2.1: validate preferred ship method w/ the result set
6287: if (l_ship_method_code = rec_MiniSiteOrg_ShipMethod.msite_information1) then
6288: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6289: IBE_Util.Debug('case 2.1: l_ship_method_code :'||l_ship_method_code);
6290: END IF;
6291: l_prefSMValid := 'Y';
6292: exit;
6285: else
6286: -- case 2.1: validate preferred ship method w/ the result set
6287: if (l_ship_method_code = rec_MiniSiteOrg_ShipMethod.msite_information1) then
6288: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6289: IBE_Util.Debug('case 2.1: l_ship_method_code :'||l_ship_method_code);
6290: END IF;
6291: l_prefSMValid := 'Y';
6292: exit;
6293: end if;
6295: -- case 2.2 #2: if preferred ship method is not in result set, then take the first row of the result set
6296: -- Hence, we have to keep track of the first row
6297: if (l_index = 1) then
6298: l_ship_method_code_first := rec_MiniSiteOrg_ShipMethod.msite_information1;
6299: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6300: IBE_Util.Debug('l_ship_method_code_first :'||l_ship_method_code_first);
6301: END IF;
6302: l_index := 2;
6303: end if;
6296: -- Hence, we have to keep track of the first row
6297: if (l_index = 1) then
6298: l_ship_method_code_first := rec_MiniSiteOrg_ShipMethod.msite_information1;
6299: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6300: IBE_Util.Debug('l_ship_method_code_first :'||l_ship_method_code_first);
6301: END IF;
6302: l_index := 2;
6303: end if;
6304: end if;
6317: -- 11/14/02: added this
6318:
6319: -- l_ship_method_code := null; -- commenting for ER# 4663790
6320:
6321: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6322: IBE_Util.Debug('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6323: END IF;
6324: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6325: end if;
6318:
6319: -- l_ship_method_code := null; -- commenting for ER# 4663790
6320:
6321: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6322: IBE_Util.Debug('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6323: END IF;
6324: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6325: end if;
6326:
6323: END IF;
6324: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6325: end if;
6326:
6327: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6328: IBE_Util.Debug('Finally: l_ship_method_code :'||l_ship_method_code);
6329: END IF;
6330: --DBMS_OUTPUT.PUT_line('Finally: l_ship_method_code :'||l_ship_method_code);
6331: -- 2.3 populate the shipment record:
6324: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6325: end if;
6326:
6327: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6328: IBE_Util.Debug('Finally: l_ship_method_code :'||l_ship_method_code);
6329: END IF;
6330: --DBMS_OUTPUT.PUT_line('Finally: l_ship_method_code :'||l_ship_method_code);
6331: -- 2.3 populate the shipment record:
6332: if ((l_ship_method_code <> FND_API.G_MISS_char) and (l_ship_method_code is not null)) then
6347: -- Standard call to get message count and if count is 1, get message info.
6348: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6349: p_count => x_msg_count ,
6350: p_data => x_msg_data);
6351: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6352: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6353: END IF;
6354: --IBE_Util.Disable_Debug;
6355:
6348: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6349: p_count => x_msg_count ,
6350: p_data => x_msg_data);
6351: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6352: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6353: END IF;
6354: --IBE_Util.Disable_Debug;
6355:
6356:
6350: p_data => x_msg_data);
6351: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6352: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6353: END IF;
6354: --IBE_Util.Disable_Debug;
6355:
6356:
6357: EXCEPTION
6358: WHEN FND_API.G_EXC_ERROR THEN
6462: x_return_status := FND_API.G_RET_STS_SUCCESS;
6463:
6464: -- API body
6465:
6466: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6467: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6468: END IF;
6469: -- 1. for the merge cart cases, we have to check if there is a payment record associated w/ the cart:
6470: if ((p_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (p_qte_header_rec.quote_header_id is not null)) then
6463:
6464: -- API body
6465:
6466: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6467: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6468: END IF;
6469: -- 1. for the merge cart cases, we have to check if there is a payment record associated w/ the cart:
6470: if ((p_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (p_qte_header_rec.quote_header_id is not null)) then
6471:
6491: l_isDone := 'Y';
6492: end if;
6493: end if; -- for merge cart cases
6494:
6495: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6496: IBE_Util.Debug('l_opCode :'||l_opCode);
6497: END IF;
6498: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6492: end if;
6493: end if; -- for merge cart cases
6494:
6495: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6496: IBE_Util.Debug('l_opCode :'||l_opCode);
6497: END IF;
6498: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6500: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6495: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6496: IBE_Util.Debug('l_opCode :'||l_opCode);
6497: END IF;
6498: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6500: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6501: END IF;
6502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6503: IBE_Util.Debug('l_isDone :'||l_isDone);
6496: IBE_Util.Debug('l_opCode :'||l_opCode);
6497: END IF;
6498: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6500: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6501: END IF;
6502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6503: IBE_Util.Debug('l_isDone :'||l_isDone);
6504: END IF;
6498: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6500: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6501: END IF;
6502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6503: IBE_Util.Debug('l_isDone :'||l_isDone);
6504: END IF;
6505: --DBMS_OUTPUT.PUT_line('l_payment_id :'||l_payment_id);
6506:
6499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6500: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6501: END IF;
6502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6503: IBE_Util.Debug('l_isDone :'||l_isDone);
6504: END IF;
6505: --DBMS_OUTPUT.PUT_line('l_payment_id :'||l_payment_id);
6506:
6507: -- 2. if there isn't a record, continue
6514:
6515: -- 2.2 if CC is enabled then we call IBE_CUSTOMER_ACCOUNTS.get_default_credit_card_info to see if there is a default credit card
6516: if ((rec_CC_enabled.msite_information1 <> FND_API.G_MISS_char) and (rec_CC_enabled.msite_information1 is not null)) then
6517:
6518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6519: IBE_Util.Debug('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6520: END IF;
6521: --DBMS_OUTPUT.PUT_line('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6522: /* CC consolidation */
6515: -- 2.2 if CC is enabled then we call IBE_CUSTOMER_ACCOUNTS.get_default_credit_card_info to see if there is a default credit card
6516: if ((rec_CC_enabled.msite_information1 <> FND_API.G_MISS_char) and (rec_CC_enabled.msite_information1 is not null)) then
6517:
6518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6519: IBE_Util.Debug('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6520: END IF;
6521: --DBMS_OUTPUT.PUT_line('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6522: /* CC consolidation */
6523: IBE_CUSTOMER_pvt.get_default_credit_card_info(
6538: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6540: END IF;
6541:
6542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6543: IBE_Util.Debug('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6544: END IF;
6545: --DBMS_OUTPUT.PUT_line('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6546: end if;
6539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6540: END IF;
6541:
6542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6543: IBE_Util.Debug('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6544: END IF;
6545: --DBMS_OUTPUT.PUT_line('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6546: end if;
6547:
6548: -- 2.3 if CC is not enabled or the call from 2.2 doesn't return a valid value,
6549: -- then we try to find the next enabled payment option in this order: invoice, cash, check
6550: --if ((lx_credit_card_num = FND_API.G_MISS_char) or (lx_credit_card_num is null)) then
6551: if ((lx_cc_assignment_id = FND_API.G_MISS_NUM) or (lx_cc_assignment_id is null)) then
6552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6553: IBE_Util.Debug('lx_credit_card_num is null');
6554: END IF;
6555: --DBMS_OUTPUT.PUT_line('lx_credit_card_num is null');
6556:
6549: -- then we try to find the next enabled payment option in this order: invoice, cash, check
6550: --if ((lx_credit_card_num = FND_API.G_MISS_char) or (lx_credit_card_num is null)) then
6551: if ((lx_cc_assignment_id = FND_API.G_MISS_NUM) or (lx_cc_assignment_id is null)) then
6552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6553: IBE_Util.Debug('lx_credit_card_num is null');
6554: END IF;
6555: --DBMS_OUTPUT.PUT_line('lx_credit_card_num is null');
6556:
6557: /* 10/8/02: for bug 2608853: we're not going to default non-CC payment methods
6555: --DBMS_OUTPUT.PUT_line('lx_credit_card_num is null');
6556:
6557: /* 10/8/02: for bug 2608853: we're not going to default non-CC payment methods
6558: for rec_next_payment_type in c_get_next_payment_type(p_minisite_id) loop
6559: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6560: IBE_Util.Debug('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6561: END IF;
6562: --DBMS_OUTPUT.PUT_line('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6563: if (rec_next_payment_type.msite_information1 = 'INVOICE') then
6556:
6557: /* 10/8/02: for bug 2608853: we're not going to default non-CC payment methods
6558: for rec_next_payment_type in c_get_next_payment_type(p_minisite_id) loop
6559: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6560: IBE_Util.Debug('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6561: END IF;
6562: --DBMS_OUTPUT.PUT_line('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6563: if (rec_next_payment_type.msite_information1 = 'INVOICE') then
6564: l_isInvoice := 'Y';
6571: exit when c_get_next_payment_type%notfound;
6572: end loop;
6573: --close c_get_next_payment_type;
6574:
6575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6576: IBE_Util.Debug('l_isInvoice ='||l_isInvoice);
6577: END IF;
6578: --DBMS_OUTPUT.PUT_line('l_isInvoice ='||l_isInvoice);
6579: if (l_isInvoice = 'Y') then
6572: end loop;
6573: --close c_get_next_payment_type;
6574:
6575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6576: IBE_Util.Debug('l_isInvoice ='||l_isInvoice);
6577: END IF;
6578: --DBMS_OUTPUT.PUT_line('l_isInvoice ='||l_isInvoice);
6579: if (l_isInvoice = 'Y') then
6580: l_payment_type_code := 'INVOICE';
6590: else
6591: l_payment_type_code := 'CREDIT_CARD';
6592: end if;
6593:
6594: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6595: IBE_Util.Debug('l_payment_type_code ='||l_payment_type_code);
6596: END IF;
6597: --DBMS_OUTPUT.PUT_line('l_payment_type_code ='||l_payment_type_code);
6598:
6591: l_payment_type_code := 'CREDIT_CARD';
6592: end if;
6593:
6594: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6595: IBE_Util.Debug('l_payment_type_code ='||l_payment_type_code);
6596: END IF;
6597: --DBMS_OUTPUT.PUT_line('l_payment_type_code ='||l_payment_type_code);
6598:
6599: -- 2.4 populate the payment record:
6623: px_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME := null;
6624: px_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE := null;
6625: end if;
6626:
6627: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6628: IBE_Util.Debug('done: populate the payment record');
6629: END IF;
6630: --DBMS_OUTPUT.PUT_line('done: populate the payment record');
6631: end if;
6624: px_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE := null;
6625: end if;
6626:
6627: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6628: IBE_Util.Debug('done: populate the payment record');
6629: END IF;
6630: --DBMS_OUTPUT.PUT_line('done: populate the payment record');
6631: end if;
6632:
6641: -- Standard call to get message count and if count is 1, get message info.
6642: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6643: p_count => x_msg_count ,
6644: p_data => x_msg_data);
6645: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6646: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6647: END IF;
6648: --IBE_Util.Disable_Debug;
6649:
6642: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6643: p_count => x_msg_count ,
6644: p_data => x_msg_data);
6645: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6646: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6647: END IF;
6648: --IBE_Util.Disable_Debug;
6649:
6650: EXCEPTION
6644: p_data => x_msg_data);
6645: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6646: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6647: END IF;
6648: --IBE_Util.Disable_Debug;
6649:
6650: EXCEPTION
6651: WHEN FND_API.G_EXC_ERROR THEN
6652: ROLLBACK TO getHdrDefPmtMethod_pvt;
6725: x_return_status := FND_API.G_RET_STS_SUCCESS;
6726:
6727: -- API body
6728:
6729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6730: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6731: END IF;
6732:
6733: -- 1. for the merge cart cases, we have to check if there is tax exemption flag in the tax record associated w/ the cart:
6726:
6727: -- API body
6728:
6729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6730: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6731: END IF;
6732:
6733: -- 1. for the merge cart cases, we have to check if there is tax exemption flag in the tax record associated w/ the cart:
6734: if ((p_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (p_qte_header_rec.quote_header_id is not null)) then
6762: -- Standard call to get message count and if count is 1, get message info.
6763: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6764: p_count => x_msg_count ,
6765: p_data => x_msg_data);
6766: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6767: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6768: END IF;
6769: --IBE_Util.Disable_Debug;
6770:
6763: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6764: p_count => x_msg_count ,
6765: p_data => x_msg_data);
6766: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6767: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6768: END IF;
6769: --IBE_Util.Disable_Debug;
6770:
6771: EXCEPTION
6765: p_data => x_msg_data);
6766: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6767: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6768: END IF;
6769: --IBE_Util.Disable_Debug;
6770:
6771: EXCEPTION
6772: WHEN FND_API.G_EXC_ERROR THEN
6773: ROLLBACK TO getHdrDefTaxExmpt_pvt;
6847: -- Initialize API return status to success
6848: x_return_status := FND_API.G_RET_STS_SUCCESS;
6849:
6850: -- API body
6851: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6852: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6853: END IF;
6854:
6855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6848: x_return_status := FND_API.G_RET_STS_SUCCESS;
6849:
6850: -- API body
6851: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6852: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6853: END IF;
6854:
6855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6856: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6851: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6852: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6853: END IF;
6854:
6855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6856: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6857: END IF;
6858:
6859: if ((px_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (px_qte_header_rec.quote_header_id is not null)) then
6852: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6853: END IF;
6854:
6855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6856: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6857: END IF;
6858:
6859: if ((px_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM) and (px_qte_header_rec.quote_header_id is not null)) then
6860:
6871: end if; -- check to see if we shld try to default
6872:
6873: end if; -- for merge cart cases
6874:
6875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6876: IBE_Util.Debug('l_isDone ='||l_isDone);
6877: END IF;
6878:
6879:
6872:
6873: end if; -- for merge cart cases
6874:
6875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6876: IBE_Util.Debug('l_isDone ='||l_isDone);
6877: END IF;
6878:
6879:
6880: if (l_isDone <> 'Y') then
6893: px_qte_header_rec.end_customer_party_site_id := rec_shipTo_info.ship_to_party_site_id;
6894: end if;
6895: end if; -- if (l_isDone <> 'Y')
6896:
6897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6898: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
6899: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
6900: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
6901: END IF;
6894: end if;
6895: end if; -- if (l_isDone <> 'Y')
6896:
6897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6898: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
6899: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
6900: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
6901: END IF;
6902:
6895: end if; -- if (l_isDone <> 'Y')
6896:
6897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6898: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
6899: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
6900: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
6901: END IF;
6902:
6903: -- End of API body.
6896:
6897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6898: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
6899: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
6900: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
6901: END IF;
6902:
6903: -- End of API body.
6904: -- Standard check of p_commit.
6909: -- Standard call to get message count and if count is 1, get message info.
6910: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6911: p_count => x_msg_count ,
6912: p_data => x_msg_data);
6913: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6914: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6915: END IF;
6916: --IBE_Util.Disable_Debug;
6917:
6910: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6911: p_count => x_msg_count ,
6912: p_data => x_msg_data);
6913: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6914: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6915: END IF;
6916: --IBE_Util.Disable_Debug;
6917:
6918: EXCEPTION
6912: p_data => x_msg_data);
6913: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6914: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6915: END IF;
6916: --IBE_Util.Disable_Debug;
6917:
6918: EXCEPTION
6919: WHEN FND_API.G_EXC_ERROR THEN
6920: ROLLBACK TO getHdrDefaultEndCustomer_pvt;
6970:
6971: -- Standard Start of API savepoint
6972: SAVEPOINT CREATECONTRACTFORQUOTE_pvt;
6973:
6974: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6975: IBE_UTIL.DEBUG('REACHED CREATE_CONTRACT_FOR_QUOTE' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
6976: END IF;
6977:
6978:
6971: -- Standard Start of API savepoint
6972: SAVEPOINT CREATECONTRACTFORQUOTE_pvt;
6973:
6974: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6975: IBE_UTIL.DEBUG('REACHED CREATE_CONTRACT_FOR_QUOTE' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
6976: END IF;
6977:
6978:
6979: -- Standard call to check for call compatibility.
7029: ,x_contract_id => x_contract_id
7030: ,x_contract_number => x_contract_number
7031: );
7032: */
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7035: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7036: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7037: END IF;
7030: ,x_contract_number => x_contract_number
7031: );
7032: */
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7035: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7036: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7037: END IF;
7038:
7031: );
7032: */
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7035: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7036: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7037: END IF;
7038:
7039: aso_core_contracts_pub.create_contract(
7032: */
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7035: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7036: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7037: END IF;
7038:
7039: aso_core_contracts_pub.create_contract(
7040: x_return_status => x_return_status
7056: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7058: END IF;
7059:
7060: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7061: IBE_Util.Debug('create contract, output contract_id ='||x_contract_id);
7062: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7063: END IF;
7064: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7058: END IF;
7059:
7060: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7061: IBE_Util.Debug('create contract, output contract_id ='||x_contract_id);
7062: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7063: END IF;
7064: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7065: this is done because recipients cannot update a cart after it becomes a quote*/
7058: END IF;
7059:
7060: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7061: IBE_Util.Debug('create contract, output contract_id ='||x_contract_id);
7062: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7063: END IF;
7064: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7065: this is done because recipients cannot update a cart after it becomes a quote*/
7066: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7062: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7063: END IF;
7064: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7065: this is done because recipients cannot update a cart after it becomes a quote*/
7066: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7067: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
7068: END IF;
7069: ibe_quote_saveshare_v2_pvt.share_readonly(
7070: p_quote_header_id => p_quote_id ,
7063: END IF;
7064: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7065: this is done because recipients cannot update a cart after it becomes a quote*/
7066: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7067: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
7068: END IF;
7069: ibe_quote_saveshare_v2_pvt.share_readonly(
7070: p_quote_header_id => p_quote_id ,
7071: P_minisite_id => p_minisite_id ,
7082: END IF;
7083: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7085: END IF;
7086: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7087: IBE_UTIL.DEBUG('Done calling share_readonly');
7088: IBE_UTIL.DEBUG('Create_contract:Calling deactivate API');
7089: END IF;
7090:
7083: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7085: END IF;
7086: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7087: IBE_UTIL.DEBUG('Done calling share_readonly');
7088: IBE_UTIL.DEBUG('Create_contract:Calling deactivate API');
7089: END IF;
7090:
7091: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
7084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7085: END IF;
7086: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7087: IBE_UTIL.DEBUG('Done calling share_readonly');
7088: IBE_UTIL.DEBUG('Create_contract:Calling deactivate API');
7089: END IF;
7090:
7091: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
7092: P_Quote_header_id => p_quote_id ,
7104:
7105: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7107: END IF;
7108: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7109: IBE_UTIL.DEBUG('Create_Contract:Deactivate owner cart after creating the contract:Done');
7110: END IF;
7111:
7112:
7105: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7107: END IF;
7108: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7109: IBE_UTIL.DEBUG('Create_Contract:Deactivate owner cart after creating the contract:Done');
7110: END IF;
7111:
7112:
7113:
7114: -- Standard call to get message count and if count is 1, get message info.
7115: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7116: p_count => x_msg_count ,
7117: p_data => x_msg_data);
7118: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7119: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
7120: END IF;
7121: --IBE_Util.Disable_Debug;
7122:
7115: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7116: p_count => x_msg_count ,
7117: p_data => x_msg_data);
7118: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7119: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
7120: END IF;
7121: --IBE_Util.Disable_Debug;
7122:
7123:
7117: p_data => x_msg_data);
7118: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7119: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
7120: END IF;
7121: --IBE_Util.Disable_Debug;
7122:
7123:
7124: EXCEPTION
7125:
7233: l_control_rec ASO_Quote_Pub.Control_Rec_Type;
7234: l_header_pricing_event VARCHAR2(30);
7235: Begin
7236:
7237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7238: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7234: l_header_pricing_event VARCHAR2(30);
7235: Begin
7236:
7237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7238: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7235: Begin
7236:
7237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7238: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7236:
7237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7238: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7238: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7245: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7238: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7245: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7246: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7239: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7245: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7246: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7247: END IF;
7240: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7245: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7246: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7247: END IF;
7248:
7241: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7245: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7246: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7247: END IF;
7248:
7249: -- Standard Start of API savepoint
7242: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7243: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7244: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7245: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7246: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7247: END IF;
7248:
7249: -- Standard Start of API savepoint
7250: SAVEPOINT Duplicate_Cart;
7265: -- Initialize API return status to success
7266: x_return_status := FND_API.G_RET_STS_SUCCESS;
7267:
7268: --API Body
7269: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7270: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7271: END IF;
7272: IBE_Quote_Misc_pvt.log_environment_info();
7273: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7266: x_return_status := FND_API.G_RET_STS_SUCCESS;
7267:
7268: --API Body
7269: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7270: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7271: END IF;
7272: IBE_Quote_Misc_pvt.log_environment_info();
7273: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7274: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7269: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7270: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7271: END IF;
7272: IBE_Quote_Misc_pvt.log_environment_info();
7273: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7274: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7275: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7276: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7277: END IF;
7270: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7271: END IF;
7272: IBE_Quote_Misc_pvt.log_environment_info();
7273: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7274: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7275: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7276: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7277: END IF;
7278:
7271: END IF;
7272: IBE_Quote_Misc_pvt.log_environment_info();
7273: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7274: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7275: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7276: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7277: END IF;
7278:
7279: -- User Authentication
7272: IBE_Quote_Misc_pvt.log_environment_info();
7273: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7274: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7275: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7276: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7277: END IF;
7278:
7279: -- User Authentication
7280: IBE_Quote_Misc_pvt.Validate_User_Update
7321:
7322: -- If the cart is a shared cart or published quote, then copy only items and agreements and commitments if applicable
7323: -- Else call ASO copy_quote api to copy the entire cart.
7324:
7325: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7326: IBE_UTIL.DEBUG('DUPLICATE_CART: l_controlled_copy='||l_controlled_copy);
7327: END IF;
7328:
7329: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7322: -- If the cart is a shared cart or published quote, then copy only items and agreements and commitments if applicable
7323: -- Else call ASO copy_quote api to copy the entire cart.
7324:
7325: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7326: IBE_UTIL.DEBUG('DUPLICATE_CART: l_controlled_copy='||l_controlled_copy);
7327: END IF;
7328:
7329: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7330: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7326: IBE_UTIL.DEBUG('DUPLICATE_CART: l_controlled_copy='||l_controlled_copy);
7327: END IF;
7328:
7329: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7330: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7331: -- get order_type_id from the original quote header
7332: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7333: IBE_Util.Debug('Getting order_type_id,currency code from original quote header ' || p_quote_header_id);
7334: END IF;
7328:
7329: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7330: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7331: -- get order_type_id from the original quote header
7332: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7333: IBE_Util.Debug('Getting order_type_id,currency code from original quote header ' || p_quote_header_id);
7334: END IF;
7335:
7336: OPEN c_get_orig_quote_details(p_quote_header_id);
7329: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7330: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7331: -- get order_type_id from the original quote header
7332: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7333: IBE_Util.Debug('Getting order_type_id,currency code from original quote header ' || p_quote_header_id);
7334: END IF;
7335:
7336: OPEN c_get_orig_quote_details(p_quote_header_id);
7337: FETCH c_get_orig_quote_details INTO l_order_type_id,l_currency_code;
7342: l_to_qte_header_rec.currency_code := l_currency_code;
7343: END IF;
7344: CLOSE c_get_orig_quote_details;
7345:
7346: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7347: IBE_Util.Debug('order_type_id=' || l_order_type_id);
7348: END IF;
7349:
7350: --construct header rec with other information
7343: END IF;
7344: CLOSE c_get_orig_quote_details;
7345:
7346: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7347: IBE_Util.Debug('order_type_id=' || l_order_type_id);
7348: END IF;
7349:
7350: --construct header rec with other information
7351: l_to_qte_header_rec.quote_name := p_new_quote_name;
7427: l_copy_quote_control_rec.Pricing_Request_Type := 'ASO';
7428: l_copy_quote_control_rec.Header_Pricing_Event := l_header_pricing_event;
7429: l_copy_quote_control_rec.Calculate_Freight_Charge_Flag := 'Y';
7430: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7432: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7428: l_copy_quote_control_rec.Header_Pricing_Event := l_header_pricing_event;
7429: l_copy_quote_control_rec.Calculate_Freight_Charge_Flag := 'Y';
7430: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7432: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7436: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7429: l_copy_quote_control_rec.Calculate_Freight_Charge_Flag := 'Y';
7430: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7432: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7436: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7437: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7430: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7432: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7436: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7437: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7438: END IF;
7431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7432: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7436: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7437: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7438: END IF;
7439:
7432: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7436: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7437: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7438: END IF;
7439:
7440: ASO_Copy_Quote_Pub.Copy_Quote(
7433: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7434: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7435: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7436: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7437: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7438: END IF;
7439:
7440: ASO_Copy_Quote_Pub.Copy_Quote(
7441: p_api_Version_Number => 1.0,
7448: x_return_status => lx_return_status,
7449: x_msg_count => lx_msg_count,
7450: x_msg_data => lx_msg_data);
7451:
7452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7453: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, return status='||lx_return_status);
7454: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, new quote header id='||lx_quote_header_id);
7455: END IF;
7456:
7449: x_msg_count => lx_msg_count,
7450: x_msg_data => lx_msg_data);
7451:
7452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7453: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, return status='||lx_return_status);
7454: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, new quote header id='||lx_quote_header_id);
7455: END IF;
7456:
7457: IF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7450: x_msg_data => lx_msg_data);
7451:
7452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7453: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, return status='||lx_return_status);
7454: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, new quote header id='||lx_quote_header_id);
7455: END IF;
7456:
7457: IF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7458: RAISE FND_API.G_EXC_ERROR;
7472: -- Standard call to get message count and if count is 1, get message info.
7473: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7474: p_count => x_msg_count ,
7475: p_data => x_msg_data);
7476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7477: IBE_Util.Debug('End IBE_Quote_Save_pvt.Duplicate_cart');
7478: END IF;
7479: --IBE_Util.Disable_Debug;
7480:
7473: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7474: p_count => x_msg_count ,
7475: p_data => x_msg_data);
7476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7477: IBE_Util.Debug('End IBE_Quote_Save_pvt.Duplicate_cart');
7478: END IF;
7479: --IBE_Util.Disable_Debug;
7480:
7481:
7475: p_data => x_msg_data);
7476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7477: IBE_Util.Debug('End IBE_Quote_Save_pvt.Duplicate_cart');
7478: END IF;
7479: --IBE_Util.Disable_Debug;
7480:
7481:
7482: EXCEPTION
7483:
7570: BEGIN
7571: -- Standard Start of API savepoint
7572: SAVEPOINT Reconfigure_From_Ib;
7573:
7574: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7575: IBE_UTIL.DEBUG('Begin Reconfigure_Form_IB');
7576: END IF;
7577:
7578: -- Standard call to check for call compatibility.
7571: -- Standard Start of API savepoint
7572: SAVEPOINT Reconfigure_From_Ib;
7573:
7574: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7575: IBE_UTIL.DEBUG('Begin Reconfigure_Form_IB');
7576: END IF;
7577:
7578: -- Standard call to check for call compatibility.
7579: IF NOT FND_API.Compatible_API_Call(L_API_VERSION,
7591: -- Initialize API return status to success
7592: x_return_status := FND_API.G_RET_STS_SUCCESS;
7593:
7594: --Call Check Instance Lock API
7595: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7596: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Starts');
7597: END IF;
7598:
7599: l_table_size := p_instance_ids.COUNT;
7592: x_return_status := FND_API.G_RET_STS_SUCCESS;
7593:
7594: --Call Check Instance Lock API
7595: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7596: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Starts');
7597: END IF;
7598:
7599: l_table_size := p_instance_ids.COUNT;
7600: FOR i IN 1..l_table_size LOOP
7605: ,x_return_status => x_return_status
7606: ,X_Msg_Count => x_Msg_Count
7607: ,X_Msg_Data => x_Msg_Data
7608: );
7609: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7610: IF(l_instance_locked = TRUE) THEN
7611: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' islocked');
7612: ELSE
7613: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' isNotlocked');
7607: ,X_Msg_Data => x_Msg_Data
7608: );
7609: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7610: IF(l_instance_locked = TRUE) THEN
7611: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' islocked');
7612: ELSE
7613: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' isNotlocked');
7614: END IF;
7615: END IF;
7609: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7610: IF(l_instance_locked = TRUE) THEN
7611: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' islocked');
7612: ELSE
7613: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' isNotlocked');
7614: END IF;
7615: END IF;
7616: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7617: RAISE FND_API.G_EXC_ERROR;
7619: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7621: END IF;
7622: IF (l_instance_locked = TRUE) THEN
7623: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7624: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' is locked');
7625: END IF;
7626: x_return_status := FND_API.G_RET_STS_ERROR;
7627: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
7620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7621: END IF;
7622: IF (l_instance_locked = TRUE) THEN
7623: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7624: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' is locked');
7625: END IF;
7626: x_return_status := FND_API.G_RET_STS_ERROR;
7627: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
7628: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
7635: RAISE FND_API.G_EXC_ERROR;
7636: END IF;
7637: END LOOP;
7638:
7639: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7640: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7641: END IF;
7642: --API Body
7643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7636: END IF;
7637: END LOOP;
7638:
7639: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7640: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7641: END IF;
7642: --API Body
7643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7644: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7639: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7640: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7641: END IF;
7642: --API Body
7643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7644: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7645: END IF;
7646:
7647: IBE_UTIL.DEBUG('Before call to getHdrDefaultValues()');
7640: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7641: END IF;
7642: --API Body
7643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7644: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7645: END IF;
7646:
7647: IBE_UTIL.DEBUG('Before call to getHdrDefaultValues()');
7648: getHdrDefaultValues(
7643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7644: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7645: END IF;
7646:
7647: IBE_UTIL.DEBUG('Before call to getHdrDefaultValues()');
7648: getHdrDefaultValues(
7649: P_Api_Version_Number => p_api_version_number
7650: ,p_minisite_id => p_Qte_Header_Rec.minisite_id
7651: ,p_Qte_Header_Rec => p_Qte_Header_Rec
7662: ,X_Return_Status => x_return_status
7663: ,X_Msg_Count => x_msg_count
7664: ,X_Msg_Data => x_msg_data
7665: );
7666: IBE_UTIL.DEBUG('After call to getHdrDefaultValues()');
7667:
7668: Save(
7669: P_Api_Version_Number => p_api_version_number
7670: ,p_Init_Msg_List => p_init_msg_list
7702: l_instance_tbl(i) := l_instance_rec;
7703: END LOOP;
7704: l_control_rec := p_control_rec;
7705: -- Call Config_Operations to copy the Config Details from CZ to ASO
7706: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7707: IBE_UTIL.DEBUG('API ASO_Config_Operations_Int.Config_Operations() Begin');
7708: END IF;
7709: ASO_CONFIG_OPERATIONS_INT.Config_Operations
7710: (
7703: END LOOP;
7704: l_control_rec := p_control_rec;
7705: -- Call Config_Operations to copy the Config Details from CZ to ASO
7706: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7707: IBE_UTIL.DEBUG('API ASO_Config_Operations_Int.Config_Operations() Begin');
7708: END IF;
7709: ASO_CONFIG_OPERATIONS_INT.Config_Operations
7710: (
7711: P_Api_Version_Number => p_api_version_number
7719: ,X_Msg_Count => x_Msg_Count
7720: ,X_Msg_Data => x_Msg_Data
7721: ,x_Qte_Header_Rec => x_Qte_Header_Rec
7722: );
7723: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7724: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7725: END IF;
7726: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7727: RAISE FND_API.G_EXC_ERROR;
7720: ,X_Msg_Data => x_Msg_Data
7721: ,x_Qte_Header_Rec => x_Qte_Header_Rec
7722: );
7723: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7724: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7725: END IF;
7726: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7727: RAISE FND_API.G_EXC_ERROR;
7728: END IF;
7729: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7731: END IF;
7732:
7733: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7734: IBE_UTIL.DEBUG('Ref cursor x_config_line begin');
7735: END IF;
7736: open x_config_line for l_refcursor_query using l_Qte_Header_Rec.quote_header_id;
7737: -- End of API body.
7730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7731: END IF;
7732:
7733: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7734: IBE_UTIL.DEBUG('Ref cursor x_config_line begin');
7735: END IF;
7736: open x_config_line for l_refcursor_query using l_Qte_Header_Rec.quote_header_id;
7737: -- End of API body.
7738: -- Standard check of p_commit.
7743: -- Standard call to get message count and if count is 1, get message info.
7744: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7745: p_count => x_msg_count ,
7746: p_data => x_msg_data);
7747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7748: IBE_Util.Debug('End IBE_Quote_Save_pvt.Reconfigure_from_ib() end');
7749: END IF;
7750: EXCEPTION
7751: WHEN FND_API.G_EXC_ERROR THEN
7744: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7745: p_count => x_msg_count ,
7746: p_data => x_msg_data);
7747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7748: IBE_Util.Debug('End IBE_Quote_Save_pvt.Reconfigure_from_ib() end');
7749: END IF;
7750: EXCEPTION
7751: WHEN FND_API.G_EXC_ERROR THEN
7752: ROLLBACK TO Reconfigure_From_Ib;
7805: WHERE inventory_item_id = p_svc_item_id and organization_id = p_org_id;
7806:
7807: BEGIN
7808:
7809: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7810: IBE_UTIL.debug('enter ADD_CART_LEVEL_SERVICES');
7811: END IF;
7812:
7813: IF px_svc_period_tbl IS NULL THEN
7806:
7807: BEGIN
7808:
7809: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7810: IBE_UTIL.debug('enter ADD_CART_LEVEL_SERVICES');
7811: END IF;
7812:
7813: IF px_svc_period_tbl IS NULL THEN
7814: px_svc_period_tbl := JTF_VARCHAR2_TABLE_100();
7814: px_svc_period_tbl := JTF_VARCHAR2_TABLE_100();
7815: px_svc_duration_tbl := JTF_NUMBER_TABLE();
7816: px_svc_uom_tbl := JTF_VARCHAR2_TABLE_100();
7817: l_load_svc_detail := TRUE;
7818: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7819: IBE_UTIL.debug('l_load_svc_detail is true');
7820: END IF;
7821: ELSE
7822: l_load_svc_detail := FALSE;
7815: px_svc_duration_tbl := JTF_NUMBER_TABLE();
7816: px_svc_uom_tbl := JTF_VARCHAR2_TABLE_100();
7817: l_load_svc_detail := TRUE;
7818: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7819: IBE_UTIL.debug('l_load_svc_detail is true');
7820: END IF;
7821: ELSE
7822: l_load_svc_detail := FALSE;
7823: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7819: IBE_UTIL.debug('l_load_svc_detail is true');
7820: END IF;
7821: ELSE
7822: l_load_svc_detail := FALSE;
7823: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7824: IBE_UTIL.debug('l_load_svc_detail is false');
7825: END IF;
7826: END IF;
7827:
7820: END IF;
7821: ELSE
7822: l_load_svc_detail := FALSE;
7823: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7824: IBE_UTIL.debug('l_load_svc_detail is false');
7825: END IF;
7826: END IF;
7827:
7828: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7824: IBE_UTIL.debug('l_load_svc_detail is false');
7825: END IF;
7826: END IF;
7827:
7828: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7829: IBE_UTIL.debug('loop through new svc items...');
7830: END IF;
7831: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7832: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7825: END IF;
7826: END IF;
7827:
7828: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7829: IBE_UTIL.debug('loop through new svc items...');
7830: END IF;
7831: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7832: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7833: IBE_UTIL.debug('i='||i||', l_idx='||l_idx);
7828: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7829: IBE_UTIL.debug('loop through new svc items...');
7830: END IF;
7831: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7832: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7833: IBE_UTIL.debug('i='||i||', l_idx='||l_idx);
7834: END IF;
7835: IF l_load_svc_detail THEN
7836: px_svc_period_tbl.EXTEND;
7829: IBE_UTIL.debug('loop through new svc items...');
7830: END IF;
7831: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7832: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7833: IBE_UTIL.debug('i='||i||', l_idx='||l_idx);
7834: END IF;
7835: IF l_load_svc_detail THEN
7836: px_svc_period_tbl.EXTEND;
7837: px_svc_duration_tbl.EXTEND;
7835: IF l_load_svc_detail THEN
7836: px_svc_period_tbl.EXTEND;
7837: px_svc_duration_tbl.EXTEND;
7838: px_svc_uom_tbl.EXTEND;
7839: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7840: IBE_UTIL.debug('fetch service duration, period, and uom...');
7841: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7842: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7843: END IF;
7836: px_svc_period_tbl.EXTEND;
7837: px_svc_duration_tbl.EXTEND;
7838: px_svc_uom_tbl.EXTEND;
7839: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7840: IBE_UTIL.debug('fetch service duration, period, and uom...');
7841: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7842: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7843: END IF;
7844: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7837: px_svc_duration_tbl.EXTEND;
7838: px_svc_uom_tbl.EXTEND;
7839: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7840: IBE_UTIL.debug('fetch service duration, period, and uom...');
7841: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7842: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7843: END IF;
7844: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7845: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7838: px_svc_uom_tbl.EXTEND;
7839: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7840: IBE_UTIL.debug('fetch service duration, period, and uom...');
7841: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7842: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7843: END IF;
7844: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7845: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7846: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7844: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7845: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7846: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7847: CLOSE c_get_svc_detail;
7848: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7849: IBE_UTIL.debug('fetch is completed:');
7850: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7851: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7852: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7845: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7846: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7847: CLOSE c_get_svc_detail;
7848: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7849: IBE_UTIL.debug('fetch is completed:');
7850: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7851: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7852: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7853: END IF;
7846: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7847: CLOSE c_get_svc_detail;
7848: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7849: IBE_UTIL.debug('fetch is completed:');
7850: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7851: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7852: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7853: END IF;
7854: END IF;
7847: CLOSE c_get_svc_detail;
7848: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7849: IBE_UTIL.debug('fetch is completed:');
7850: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7851: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7852: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7853: END IF;
7854: END IF;
7855:
7848: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7849: IBE_UTIL.debug('fetch is completed:');
7850: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7851: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7852: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7853: END IF;
7854: END IF;
7855:
7856: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7852: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7853: END IF;
7854: END IF;
7855:
7856: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7857: IBE_UTIL.debug('populate line rec, px_line_rec_index='||px_line_rec_index);
7858: END IF;
7859: px_quote_line_tbl(px_line_rec_index).item_type_code := 'SRV';
7860: px_quote_line_tbl(px_line_rec_index).operation_code := 'CREATE';
7853: END IF;
7854: END IF;
7855:
7856: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7857: IBE_UTIL.debug('populate line rec, px_line_rec_index='||px_line_rec_index);
7858: END IF;
7859: px_quote_line_tbl(px_line_rec_index).item_type_code := 'SRV';
7860: px_quote_line_tbl(px_line_rec_index).operation_code := 'CREATE';
7861: px_quote_line_tbl(px_line_rec_index).quote_header_id := p_quote_header_id;
7867: -- ASO will derive the correct service quantities from SVA line
7868: px_quote_line_tbl(px_line_rec_index).quantity := p_sva_line_qty;
7869: --px_quote_line_tbl(px_line_rec_index).minisite_id := p_minisite_id;
7870:
7871: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7872: IBE_UTIL.debug('populate line detail rec, px_dtl_rec_index='||px_dtl_rec_index);
7873: END IF;
7874: px_quote_line_dtl_tbl(px_dtl_rec_index).operation_code := 'CREATE';
7875: px_quote_line_dtl_tbl(px_dtl_rec_index).service_ref_line_id := p_sva_line_id;
7868: px_quote_line_tbl(px_line_rec_index).quantity := p_sva_line_qty;
7869: --px_quote_line_tbl(px_line_rec_index).minisite_id := p_minisite_id;
7870:
7871: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7872: IBE_UTIL.debug('populate line detail rec, px_dtl_rec_index='||px_dtl_rec_index);
7873: END IF;
7874: px_quote_line_dtl_tbl(px_dtl_rec_index).operation_code := 'CREATE';
7875: px_quote_line_dtl_tbl(px_dtl_rec_index).service_ref_line_id := p_sva_line_id;
7876: px_quote_line_dtl_tbl(px_dtl_rec_index).qte_line_index := px_line_rec_index;
7879: IF px_svc_duration_tbl(l_idx) IS NOT NULL THEN
7880: px_quote_line_dtl_tbl(px_dtl_rec_index).service_duration := px_svc_duration_tbl(l_idx);
7881: END IF;
7882:
7883: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7884: IBE_UTIL.debug('moving to next svc item ...');
7885: END IF;
7886: px_line_rec_index := px_line_rec_index + 1;
7887: px_dtl_rec_index := px_dtl_rec_index + 1;
7880: px_quote_line_dtl_tbl(px_dtl_rec_index).service_duration := px_svc_duration_tbl(l_idx);
7881: END IF;
7882:
7883: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7884: IBE_UTIL.debug('moving to next svc item ...');
7885: END IF;
7886: px_line_rec_index := px_line_rec_index + 1;
7887: px_dtl_rec_index := px_dtl_rec_index + 1;
7888: l_idx := l_idx + 1;
7886: px_line_rec_index := px_line_rec_index + 1;
7887: px_dtl_rec_index := px_dtl_rec_index + 1;
7888: l_idx := l_idx + 1;
7889: END LOOP;
7890: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7891: IBE_UTIL.debug('exit ADD_CART_LEVEL_SERVICES with success');
7892: END IF;
7893: END ADD_CART_LEVEL_SERVICES;
7894:
7887: px_dtl_rec_index := px_dtl_rec_index + 1;
7888: l_idx := l_idx + 1;
7889: END LOOP;
7890: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7891: IBE_UTIL.debug('exit ADD_CART_LEVEL_SERVICES with success');
7892: END IF;
7893: END ADD_CART_LEVEL_SERVICES;
7894:
7895: PROCEDURE UPDATE_SUPPORT_AND_QUANTITY(
7985: -- Initialize API return status to success.
7986: x_return_status := FND_API.G_RET_STS_SUCCESS;
7987:
7988: -- Print debugging info.
7989: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7990: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' Begin');
7991: IBE_UTIL.debug('p_quote_header_id = ' || p_quote_header_id);
7992: END IF;
7993:
7986: x_return_status := FND_API.G_RET_STS_SUCCESS;
7987:
7988: -- Print debugging info.
7989: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7990: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' Begin');
7991: IBE_UTIL.debug('p_quote_header_id = ' || p_quote_header_id);
7992: END IF;
7993:
7994: IF p_quote_line_id_tbl IS NOT NULL THEN
7987:
7988: -- Print debugging info.
7989: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7990: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' Begin');
7991: IBE_UTIL.debug('p_quote_header_id = ' || p_quote_header_id);
7992: END IF;
7993:
7994: IF p_quote_line_id_tbl IS NOT NULL THEN
7995: l_line_rec_size := p_quote_line_id_tbl.count;
7992: END IF;
7993:
7994: IF p_quote_line_id_tbl IS NOT NULL THEN
7995: l_line_rec_size := p_quote_line_id_tbl.count;
7996: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7997: IBE_UTIL.debug('p_quote_line_id_tbl.count= ' ||l_line_rec_size);
7998: END IF;
7999: END IF;
8000:
7993:
7994: IF p_quote_line_id_tbl IS NOT NULL THEN
7995: l_line_rec_size := p_quote_line_id_tbl.count;
7996: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7997: IBE_UTIL.debug('p_quote_line_id_tbl.count= ' ||l_line_rec_size);
7998: END IF;
7999: END IF;
8000:
8001: IF p_line_quantity_tbl IS NOT NULL THEN
7999: END IF;
8000:
8001: IF p_line_quantity_tbl IS NOT NULL THEN
8002: l_line_qty_size := p_line_quantity_tbl.count;
8003: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8004: IBE_UTIL.debug('p_line_quantity_tbl.count= ' || l_line_qty_size);
8005: END IF;
8006: END IF;
8007:
8000:
8001: IF p_line_quantity_tbl IS NOT NULL THEN
8002: l_line_qty_size := p_line_quantity_tbl.count;
8003: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8004: IBE_UTIL.debug('p_line_quantity_tbl.count= ' || l_line_qty_size);
8005: END IF;
8006: END IF;
8007:
8008: IF p_new_service_id_tbl IS NOT NULL THEN
8006: END IF;
8007:
8008: IF p_new_service_id_tbl IS NOT NULL THEN
8009: l_new_service_size := p_new_service_id_tbl.count;
8010: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8011: IBE_UTIL.debug('p_new_service_id_tbl.count= ' || l_new_service_size);
8012: END IF;
8013: END IF;
8014:
8007:
8008: IF p_new_service_id_tbl IS NOT NULL THEN
8009: l_new_service_size := p_new_service_id_tbl.count;
8010: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8011: IBE_UTIL.debug('p_new_service_id_tbl.count= ' || l_new_service_size);
8012: END IF;
8013: END IF;
8014:
8015: -- validating input parameters
8013: END IF;
8014:
8015: -- validating input parameters
8016: IF p_quote_header_id IS NULL THEN
8017: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8018: IBE_UTIL.debug('Invalid input parameters, quote header id is null');
8019: END IF;
8020: x_return_status := FND_API.G_RET_STS_ERROR;
8021: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8014:
8015: -- validating input parameters
8016: IF p_quote_header_id IS NULL THEN
8017: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8018: IBE_UTIL.debug('Invalid input parameters, quote header id is null');
8019: END IF;
8020: x_return_status := FND_API.G_RET_STS_ERROR;
8021: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8022: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
8029: RAISE FND_API.G_EXC_ERROR;
8030: END IF;
8031:
8032: IF l_line_qty_size>0 AND l_line_qty_size = l_line_rec_size THEN
8033: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8034: IBE_UTIL.debug('Need to update quantity');
8035: END IF;
8036: ELSIF l_line_qty_size=0 THEN
8037: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8030: END IF;
8031:
8032: IF l_line_qty_size>0 AND l_line_qty_size = l_line_rec_size THEN
8033: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8034: IBE_UTIL.debug('Need to update quantity');
8035: END IF;
8036: ELSIF l_line_qty_size=0 THEN
8037: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8038: IBE_UTIL.debug('No need to update quantity');
8033: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8034: IBE_UTIL.debug('Need to update quantity');
8035: END IF;
8036: ELSIF l_line_qty_size=0 THEN
8037: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8038: IBE_UTIL.debug('No need to update quantity');
8039: END IF;
8040: ELSE
8041: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8034: IBE_UTIL.debug('Need to update quantity');
8035: END IF;
8036: ELSIF l_line_qty_size=0 THEN
8037: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8038: IBE_UTIL.debug('No need to update quantity');
8039: END IF;
8040: ELSE
8041: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8042: IBE_UTIL.debug('Invalid input parameters, size of line records does not match size of line quantities');
8037: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8038: IBE_UTIL.debug('No need to update quantity');
8039: END IF;
8040: ELSE
8041: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8042: IBE_UTIL.debug('Invalid input parameters, size of line records does not match size of line quantities');
8043: END IF;
8044: x_return_status := FND_API.G_RET_STS_ERROR;
8045: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8038: IBE_UTIL.debug('No need to update quantity');
8039: END IF;
8040: ELSE
8041: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8042: IBE_UTIL.debug('Invalid input parameters, size of line records does not match size of line quantities');
8043: END IF;
8044: x_return_status := FND_API.G_RET_STS_ERROR;
8045: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8046: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
8054: END IF;
8055:
8056: -- update quantities
8057: IF l_line_qty_size>0 THEN
8058: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8059: IBE_UTIL.debug('updating quantities, l_line_rec_index='||l_line_rec_index);
8060: END IF;
8061: FOR l_line_rec_index IN 1..l_line_qty_size LOOP
8062: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8055:
8056: -- update quantities
8057: IF l_line_qty_size>0 THEN
8058: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8059: IBE_UTIL.debug('updating quantities, l_line_rec_index='||l_line_rec_index);
8060: END IF;
8061: FOR l_line_rec_index IN 1..l_line_qty_size LOOP
8062: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8063: l_quote_line_tbl(l_line_rec_index).quote_line_id := p_quote_line_id_tbl(l_line_rec_index);
8062: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8063: l_quote_line_tbl(l_line_rec_index).quote_line_id := p_quote_line_id_tbl(l_line_rec_index);
8064: l_quote_line_tbl(l_line_rec_index).quantity := p_line_quantity_tbl(l_line_rec_index);
8065: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8066: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8067: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8068: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8069: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8070: END IF;
8063: l_quote_line_tbl(l_line_rec_index).quote_line_id := p_quote_line_id_tbl(l_line_rec_index);
8064: l_quote_line_tbl(l_line_rec_index).quantity := p_line_quantity_tbl(l_line_rec_index);
8065: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8066: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8067: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8068: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8069: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8070: END IF;
8071: END LOOP;
8064: l_quote_line_tbl(l_line_rec_index).quantity := p_line_quantity_tbl(l_line_rec_index);
8065: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8066: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8067: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8068: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8069: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8070: END IF;
8071: END LOOP;
8072: l_line_rec_index := l_line_rec_index + 1;
8065: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8066: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8067: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8068: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8069: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8070: END IF;
8071: END LOOP;
8072: l_line_rec_index := l_line_rec_index + 1;
8073: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8069: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8070: END IF;
8071: END LOOP;
8072: l_line_rec_index := l_line_rec_index + 1;
8073: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8074: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8075: END IF;
8076: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8077: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8070: END IF;
8071: END LOOP;
8072: l_line_rec_index := l_line_rec_index + 1;
8073: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8074: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8075: END IF;
8076: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8077: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8078: END IF;
8072: l_line_rec_index := l_line_rec_index + 1;
8073: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8074: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8075: END IF;
8076: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8077: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8078: END IF;
8079:
8080: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8073: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8074: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8075: END IF;
8076: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8077: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8078: END IF;
8079:
8080: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8081: IBE_UTIL.debug('updating cart level support...');
8076: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8077: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8078: END IF;
8079:
8080: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8081: IBE_UTIL.debug('updating cart level support...');
8082: IBE_UTIL.debug('checking existing cart level services...');
8083: END IF;
8084:
8077: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8078: END IF;
8079:
8080: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8081: IBE_UTIL.debug('updating cart level support...');
8082: IBE_UTIL.debug('checking existing cart level services...');
8083: END IF;
8084:
8085: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8078: END IF;
8079:
8080: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8081: IBE_UTIL.debug('updating cart level support...');
8082: IBE_UTIL.debug('checking existing cart level services...');
8083: END IF;
8084:
8085: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8086: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8082: IBE_UTIL.debug('checking existing cart level services...');
8083: END IF;
8084:
8085: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8086: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8087: IBE_UTIL.debug('found service line:');
8088: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8089: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8090: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8083: END IF;
8084:
8085: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8086: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8087: IBE_UTIL.debug('found service line:');
8088: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8089: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8090: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8091: END IF;
8084:
8085: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8086: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8087: IBE_UTIL.debug('found service line:');
8088: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8089: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8090: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8091: END IF;
8092: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8085: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8086: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8087: IBE_UTIL.debug('found service line:');
8088: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8089: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8090: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8091: END IF;
8092: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8093: -- start a new sva line
8086: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8087: IBE_UTIL.debug('found service line:');
8088: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8089: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8090: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8091: END IF;
8092: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8093: -- start a new sva line
8094: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8090: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8091: END IF;
8092: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8093: -- start a new sva line
8094: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8095: IBE_UTIL.debug('starts a new SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8096: END IF;
8097:
8098: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8091: END IF;
8092: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8093: -- start a new sva line
8094: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8095: IBE_UTIL.debug('starts a new SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8096: END IF;
8097:
8098: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8099: -- not the first sva line, add new services to previous SVA line first
8097:
8098: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8099: -- not the first sva line, add new services to previous SVA line first
8100: IF l_new_service_id_tbl.COUNT >0 THEN
8101: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8102: IBE_UTIL.debug('not the first sva line');
8103: IBE_UTIL.debug('adding new services to previous SVA line...:');
8104: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8105: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8098: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8099: -- not the first sva line, add new services to previous SVA line first
8100: IF l_new_service_id_tbl.COUNT >0 THEN
8101: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8102: IBE_UTIL.debug('not the first sva line');
8103: IBE_UTIL.debug('adding new services to previous SVA line...:');
8104: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8105: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8106: END IF;
8099: -- not the first sva line, add new services to previous SVA line first
8100: IF l_new_service_id_tbl.COUNT >0 THEN
8101: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8102: IBE_UTIL.debug('not the first sva line');
8103: IBE_UTIL.debug('adding new services to previous SVA line...:');
8104: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8105: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8106: END IF;
8107: ADD_CART_LEVEL_SERVICES(
8100: IF l_new_service_id_tbl.COUNT >0 THEN
8101: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8102: IBE_UTIL.debug('not the first sva line');
8103: IBE_UTIL.debug('adding new services to previous SVA line...:');
8104: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8105: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8106: END IF;
8107: ADD_CART_LEVEL_SERVICES(
8108: p_quote_header_id =>p_quote_header_id,
8101: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8102: IBE_UTIL.debug('not the first sva line');
8103: IBE_UTIL.debug('adding new services to previous SVA line...:');
8104: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8105: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8106: END IF;
8107: ADD_CART_LEVEL_SERVICES(
8108: p_quote_header_id =>p_quote_header_id,
8109: p_organization_id =>p_organization_id,
8117: px_quote_line_tbl =>l_quote_line_tbl,
8118: px_line_rec_index =>l_line_rec_index,
8119: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8120: px_dtl_rec_index =>l_dtl_rec_index);
8121: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8122: IBE_UTIL.debug('new services added:');
8123: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8124: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8125: END IF;
8118: px_line_rec_index =>l_line_rec_index,
8119: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8120: px_dtl_rec_index =>l_dtl_rec_index);
8121: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8122: IBE_UTIL.debug('new services added:');
8123: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8124: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8125: END IF;
8126: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8119: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8120: px_dtl_rec_index =>l_dtl_rec_index);
8121: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8122: IBE_UTIL.debug('new services added:');
8123: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8124: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8125: END IF;
8126: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8127: IBE_UTIL.debug('no new service need to be added.');
8120: px_dtl_rec_index =>l_dtl_rec_index);
8121: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8122: IBE_UTIL.debug('new services added:');
8123: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8124: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8125: END IF;
8126: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8127: IBE_UTIL.debug('no new service need to be added.');
8128: END IF;
8122: IBE_UTIL.debug('new services added:');
8123: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8124: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8125: END IF;
8126: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8127: IBE_UTIL.debug('no new service need to be added.');
8128: END IF;
8129: END IF;
8130:
8123: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8124: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8125: END IF;
8126: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8127: IBE_UTIL.debug('no new service need to be added.');
8128: END IF;
8129: END IF;
8130:
8131: -- move to the new line
8128: END IF;
8129: END IF;
8130:
8131: -- move to the new line
8132: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8133: IBE_UTIL.debug('initializing the new SVA line...');
8134: END IF;
8135: l_curr_sva_line_id := rec_svc_line.service_ref_line_id;
8136: l_sva_line_size := l_sva_line_size + 1;
8129: END IF;
8130:
8131: -- move to the new line
8132: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8133: IBE_UTIL.debug('initializing the new SVA line...');
8134: END IF;
8135: l_curr_sva_line_id := rec_svc_line.service_ref_line_id;
8136: l_sva_line_size := l_sva_line_size + 1;
8137: l_map_index := 1;
8135: l_curr_sva_line_id := rec_svc_line.service_ref_line_id;
8136: l_sva_line_size := l_sva_line_size + 1;
8137: l_map_index := 1;
8138:
8139: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8140: IBE_UTIL.debug('l_sva_line_size='||l_sva_line_size);
8141: IBE_UTIL.debug('checking if need to update quantity...');
8142: END IF;
8143: l_curr_line_qty := NULL;
8136: l_sva_line_size := l_sva_line_size + 1;
8137: l_map_index := 1;
8138:
8139: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8140: IBE_UTIL.debug('l_sva_line_size='||l_sva_line_size);
8141: IBE_UTIL.debug('checking if need to update quantity...');
8142: END IF;
8143: l_curr_line_qty := NULL;
8144: IF l_quote_line_id_tbl IS NOT NULL AND l_line_quantity_tbl IS NOT NULL THEN
8137: l_map_index := 1;
8138:
8139: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8140: IBE_UTIL.debug('l_sva_line_size='||l_sva_line_size);
8141: IBE_UTIL.debug('checking if need to update quantity...');
8142: END IF;
8143: l_curr_line_qty := NULL;
8144: IF l_quote_line_id_tbl IS NOT NULL AND l_line_quantity_tbl IS NOT NULL THEN
8145: i := l_quote_line_id_tbl.FIRST;
8147: IF l_quote_line_id_tbl(i) = l_curr_sva_line_id THEN
8148: l_curr_line_qty := p_line_quantity_tbl(i);
8149: l_quote_line_id_tbl.DELETE(i);
8150: l_line_quantity_tbl.DELETE(i);
8151: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8152: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8153: END IF;
8154: EXIT;
8155: ELSE
8148: l_curr_line_qty := p_line_quantity_tbl(i);
8149: l_quote_line_id_tbl.DELETE(i);
8150: l_line_quantity_tbl.DELETE(i);
8151: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8152: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8153: END IF;
8154: EXIT;
8155: ELSE
8156: i := l_quote_line_id_tbl.NEXT(i);
8157: END IF;
8158: END LOOP;
8159: END IF;
8160: IF l_curr_line_qty IS NULL THEN
8161: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8162: IBE_UTIL.debug('no quantity entered, loading from db...');
8163: END IF;
8164: OPEN c_get_line_qty(l_curr_sva_line_id);
8165: FETCH c_get_line_qty into l_curr_line_qty;
8158: END LOOP;
8159: END IF;
8160: IF l_curr_line_qty IS NULL THEN
8161: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8162: IBE_UTIL.debug('no quantity entered, loading from db...');
8163: END IF;
8164: OPEN c_get_line_qty(l_curr_sva_line_id);
8165: FETCH c_get_line_qty into l_curr_line_qty;
8166: CLOSE c_get_line_qty;
8163: END IF;
8164: OPEN c_get_line_qty(l_curr_sva_line_id);
8165: FETCH c_get_line_qty into l_curr_line_qty;
8166: CLOSE c_get_line_qty;
8167: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8168: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8169: END IF;
8170: END IF;
8171: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8164: OPEN c_get_line_qty(l_curr_sva_line_id);
8165: FETCH c_get_line_qty into l_curr_line_qty;
8166: CLOSE c_get_line_qty;
8167: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8168: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8169: END IF;
8170: END IF;
8171: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8172: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8167: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8168: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8169: END IF;
8170: END IF;
8171: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8172: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8173: END IF;
8174: ELSE
8175: l_map_index := l_map_index + 1;
8168: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8169: END IF;
8170: END IF;
8171: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8172: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8173: END IF;
8174: ELSE
8175: l_map_index := l_map_index + 1;
8176: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8172: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8173: END IF;
8174: ELSE
8175: l_map_index := l_map_index + 1;
8176: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8177: IBE_UTIL.debug('remains in the same SVA line');
8178: END IF;
8179: END IF;
8180:
8173: END IF;
8174: ELSE
8175: l_map_index := l_map_index + 1;
8176: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8177: IBE_UTIL.debug('remains in the same SVA line');
8178: END IF;
8179: END IF;
8180:
8181: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8177: IBE_UTIL.debug('remains in the same SVA line');
8178: END IF;
8179: END IF;
8180:
8181: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8182: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8183: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8184: IBE_UTIL.debug('l_map_index='||l_map_index);
8185: END IF;
8178: END IF;
8179: END IF;
8180:
8181: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8182: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8183: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8184: IBE_UTIL.debug('l_map_index='||l_map_index);
8185: END IF;
8186:
8179: END IF;
8180:
8181: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8182: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8183: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8184: IBE_UTIL.debug('l_map_index='||l_map_index);
8185: END IF;
8186:
8187: IF l_sva_line_size = 1 THEN
8180:
8181: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8182: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8183: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8184: IBE_UTIL.debug('l_map_index='||l_map_index);
8185: END IF;
8186:
8187: IF l_sva_line_size = 1 THEN
8188: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8184: IBE_UTIL.debug('l_map_index='||l_map_index);
8185: END IF;
8186:
8187: IF l_sva_line_size = 1 THEN
8188: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8189: IBE_UTIL.debug('The first SVA line detected');
8190: END IF;
8191: IF l_deleted_svc_map_tbl IS NULL THEN
8192: l_deleted_svc_map_tbl := JTF_VARCHAR2_TABLE_100();
8185: END IF;
8186:
8187: IF l_sva_line_size = 1 THEN
8188: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8189: IBE_UTIL.debug('The first SVA line detected');
8190: END IF;
8191: IF l_deleted_svc_map_tbl IS NULL THEN
8192: l_deleted_svc_map_tbl := JTF_VARCHAR2_TABLE_100();
8193: END IF;
8193: END IF;
8194: l_deleted_svc_map_tbl.EXTEND;
8195: l_deleted_svc_map_tbl(l_map_index) := 'DELETE';
8196: IF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.count >0 THEN
8197: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8198: IBE_UTIL.debug('populating l_deleted_svc_map_tbl table,l_map_index='||l_map_index);
8199: END IF;
8200: i := l_new_service_id_tbl.FIRST;
8201: WHILE i <= l_new_service_id_tbl.LAST LOOP
8194: l_deleted_svc_map_tbl.EXTEND;
8195: l_deleted_svc_map_tbl(l_map_index) := 'DELETE';
8196: IF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.count >0 THEN
8197: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8198: IBE_UTIL.debug('populating l_deleted_svc_map_tbl table,l_map_index='||l_map_index);
8199: END IF;
8200: i := l_new_service_id_tbl.FIRST;
8201: WHILE i <= l_new_service_id_tbl.LAST LOOP
8202: IF rec_svc_line.inventory_item_id = l_new_service_id_tbl(i) THEN
8200: i := l_new_service_id_tbl.FIRST;
8201: WHILE i <= l_new_service_id_tbl.LAST LOOP
8202: IF rec_svc_line.inventory_item_id = l_new_service_id_tbl(i) THEN
8203: l_deleted_svc_map_tbl(l_map_index) := 'KEEP'; -- keep the svc item
8204: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8205: IBE_UTIL.debug('skipping svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8206: END IF;
8207: l_new_service_id_tbl.DELETE(i);
8208: EXIT;
8201: WHILE i <= l_new_service_id_tbl.LAST LOOP
8202: IF rec_svc_line.inventory_item_id = l_new_service_id_tbl(i) THEN
8203: l_deleted_svc_map_tbl(l_map_index) := 'KEEP'; -- keep the svc item
8204: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8205: IBE_UTIL.debug('skipping svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8206: END IF;
8207: l_new_service_id_tbl.DELETE(i);
8208: EXIT;
8209: ELSE
8209: ELSE
8210: i := l_new_service_id_tbl.NEXT(i);
8211: END IF;
8212: END LOOP;
8213: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8214: IBE_UTIL.debug('l_deleted_svc_map_tbl('||l_map_index||')='||l_deleted_svc_map_tbl(l_map_index));
8215: END IF;
8216: END IF;
8217: END IF;
8210: i := l_new_service_id_tbl.NEXT(i);
8211: END IF;
8212: END LOOP;
8213: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8214: IBE_UTIL.debug('l_deleted_svc_map_tbl('||l_map_index||')='||l_deleted_svc_map_tbl(l_map_index));
8215: END IF;
8216: END IF;
8217: END IF;
8218:
8215: END IF;
8216: END IF;
8217: END IF;
8218:
8219: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8220: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8221: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8222: END IF;
8223: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8216: END IF;
8217: END IF;
8218:
8219: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8220: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8221: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8222: END IF;
8223: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8224: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8217: END IF;
8218:
8219: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8220: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8221: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8222: END IF;
8223: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8224: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8225: IBE_UTIL.debug('deleting svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8220: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8221: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8222: END IF;
8223: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8224: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8225: IBE_UTIL.debug('deleting svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8226: END IF;
8227: l_quote_line_tbl(l_line_rec_index).operation_code := 'DELETE';
8228: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8221: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8222: END IF;
8223: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8224: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8225: IBE_UTIL.debug('deleting svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8226: END IF;
8227: l_quote_line_tbl(l_line_rec_index).operation_code := 'DELETE';
8228: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8229: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8227: l_quote_line_tbl(l_line_rec_index).operation_code := 'DELETE';
8228: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8229: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8230: l_line_rec_index := l_line_rec_index + 1;
8231: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8232: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8233: END IF;
8234: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8235: IBE_UTIL.debug('svc line skipped (no change)');
8228: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8229: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8230: l_line_rec_index := l_line_rec_index + 1;
8231: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8232: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8233: END IF;
8234: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8235: IBE_UTIL.debug('svc line skipped (no change)');
8236: END IF;
8230: l_line_rec_index := l_line_rec_index + 1;
8231: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8232: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8233: END IF;
8234: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8235: IBE_UTIL.debug('svc line skipped (no change)');
8236: END IF;
8237: EXIT WHEN c_get_svc_lines%NOTFOUND;
8238: END LOOP;
8231: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8232: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8233: END IF;
8234: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8235: IBE_UTIL.debug('svc line skipped (no change)');
8236: END IF;
8237: EXIT WHEN c_get_svc_lines%NOTFOUND;
8238: END LOOP;
8239:
8238: END LOOP;
8239:
8240: IF l_sva_line_size > 0 AND l_new_service_id_tbl IS NOT NULL THEN
8241: -- add new services the last line if exist
8242: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8243: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8244: END IF;
8245: IF l_new_service_id_tbl.COUNT >0 THEN
8246: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8239:
8240: IF l_sva_line_size > 0 AND l_new_service_id_tbl IS NOT NULL THEN
8241: -- add new services the last line if exist
8242: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8243: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8244: END IF;
8245: IF l_new_service_id_tbl.COUNT >0 THEN
8246: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8247: IBE_UTIL.debug('adding new services the last SVA line,l_new_service_id_tbl.COUNT='||l_new_service_id_tbl.COUNT);
8242: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8243: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8244: END IF;
8245: IF l_new_service_id_tbl.COUNT >0 THEN
8246: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8247: IBE_UTIL.debug('adding new services the last SVA line,l_new_service_id_tbl.COUNT='||l_new_service_id_tbl.COUNT);
8248: END IF;
8249: ADD_CART_LEVEL_SERVICES(
8250: p_quote_header_id =>p_quote_header_id,
8243: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8244: END IF;
8245: IF l_new_service_id_tbl.COUNT >0 THEN
8246: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8247: IBE_UTIL.debug('adding new services the last SVA line,l_new_service_id_tbl.COUNT='||l_new_service_id_tbl.COUNT);
8248: END IF;
8249: ADD_CART_LEVEL_SERVICES(
8250: p_quote_header_id =>p_quote_header_id,
8251: p_organization_id =>p_organization_id,
8259: px_quote_line_tbl =>l_quote_line_tbl,
8260: px_line_rec_index =>l_line_rec_index,
8261: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8262: px_dtl_rec_index =>l_dtl_rec_index);
8263: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8264: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8265: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8266: END IF;
8267: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8260: px_line_rec_index =>l_line_rec_index,
8261: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8262: px_dtl_rec_index =>l_dtl_rec_index);
8263: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8264: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8265: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8266: END IF;
8267: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8268: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8261: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8262: px_dtl_rec_index =>l_dtl_rec_index);
8263: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8264: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8265: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8266: END IF;
8267: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8268: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8269: END IF;
8263: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8264: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8265: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8266: END IF;
8267: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8268: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8269: END IF;
8270: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8271: -- no previous cart level services found,retrieve sva lines
8264: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8265: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8266: END IF;
8267: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8268: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8269: END IF;
8270: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8271: -- no previous cart level services found,retrieve sva lines
8272: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8268: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8269: END IF;
8270: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8271: -- no previous cart level services found,retrieve sva lines
8272: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8273: IBE_UTIL.debug('Current support level is NONE, directly adding new services...');
8274: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8275: END IF;
8276: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8269: END IF;
8270: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8271: -- no previous cart level services found,retrieve sva lines
8272: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8273: IBE_UTIL.debug('Current support level is NONE, directly adding new services...');
8274: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8275: END IF;
8276: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8277: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8270: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8271: -- no previous cart level services found,retrieve sva lines
8272: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8273: IBE_UTIL.debug('Current support level is NONE, directly adding new services...');
8274: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8275: END IF;
8276: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8277: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8278: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8274: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8275: END IF;
8276: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8277: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8278: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8279: IBE_UTIL.debug('found SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8280: IBE_UTIL.debug('checking quantity...');
8281: END IF;
8282: l_curr_line_qty := NULL;
8275: END IF;
8276: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8277: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8278: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8279: IBE_UTIL.debug('found SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8280: IBE_UTIL.debug('checking quantity...');
8281: END IF;
8282: l_curr_line_qty := NULL;
8283: IF l_quote_line_id_tbl IS NOT NULL AND p_line_quantity_tbl IS NOT NULL THEN
8276: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8277: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8278: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8279: IBE_UTIL.debug('found SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8280: IBE_UTIL.debug('checking quantity...');
8281: END IF;
8282: l_curr_line_qty := NULL;
8283: IF l_quote_line_id_tbl IS NOT NULL AND p_line_quantity_tbl IS NOT NULL THEN
8284: i := l_quote_line_id_tbl.FIRST;
8286: IF l_quote_line_id_tbl(i) = l_curr_sva_line_id THEN
8287: l_curr_line_qty := p_line_quantity_tbl(i);
8288: l_quote_line_id_tbl.DELETE(i);
8289: l_line_quantity_tbl.DELETE(i);
8290: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8291: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8292: END IF;
8293: EXIT;
8294: ELSE
8287: l_curr_line_qty := p_line_quantity_tbl(i);
8288: l_quote_line_id_tbl.DELETE(i);
8289: l_line_quantity_tbl.DELETE(i);
8290: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8291: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8292: END IF;
8293: EXIT;
8294: ELSE
8295: i := l_quote_line_id_tbl.NEXT(i);
8297: END LOOP;
8298: END IF;
8299: IF l_curr_line_qty IS NULL THEN
8300: l_curr_line_qty := rec_sva_line.quantity;
8301: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8302: IBE_UTIL.debug('no quantity entered, default from db: '||l_curr_line_qty);
8303: END IF;
8304: END IF;
8305:
8298: END IF;
8299: IF l_curr_line_qty IS NULL THEN
8300: l_curr_line_qty := rec_sva_line.quantity;
8301: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8302: IBE_UTIL.debug('no quantity entered, default from db: '||l_curr_line_qty);
8303: END IF;
8304: END IF;
8305:
8306: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8302: IBE_UTIL.debug('no quantity entered, default from db: '||l_curr_line_qty);
8303: END IF;
8304: END IF;
8305:
8306: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8307: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8308: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8309: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8310: END IF;
8303: END IF;
8304: END IF;
8305:
8306: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8307: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8308: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8309: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8310: END IF;
8311: ADD_CART_LEVEL_SERVICES(
8304: END IF;
8305:
8306: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8307: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8308: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8309: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8310: END IF;
8311: ADD_CART_LEVEL_SERVICES(
8312: p_quote_header_id =>p_quote_header_id,
8305:
8306: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8307: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8308: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8309: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8310: END IF;
8311: ADD_CART_LEVEL_SERVICES(
8312: p_quote_header_id =>p_quote_header_id,
8313: p_organization_id =>p_organization_id,
8321: px_quote_line_tbl =>l_quote_line_tbl,
8322: px_line_rec_index =>l_line_rec_index,
8323: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8324: px_dtl_rec_index =>l_dtl_rec_index);
8325: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8326: IBE_UTIL.debug('new services added:');
8327: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8328: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8329: END IF;
8322: px_line_rec_index =>l_line_rec_index,
8323: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8324: px_dtl_rec_index =>l_dtl_rec_index);
8325: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8326: IBE_UTIL.debug('new services added:');
8327: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8328: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8329: END IF;
8330: EXIT WHEN c_get_sva_lines%NOTFOUND;
8323: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8324: px_dtl_rec_index =>l_dtl_rec_index);
8325: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8326: IBE_UTIL.debug('new services added:');
8327: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8328: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8329: END IF;
8330: EXIT WHEN c_get_sva_lines%NOTFOUND;
8331: END LOOP;
8324: px_dtl_rec_index =>l_dtl_rec_index);
8325: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8326: IBE_UTIL.debug('new services added:');
8327: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8328: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8329: END IF;
8330: EXIT WHEN c_get_sva_lines%NOTFOUND;
8331: END LOOP;
8332: END IF;
8331: END LOOP;
8332: END IF;
8333:
8334: IF l_quote_line_tbl IS NULL OR l_quote_line_tbl.count=0 THEN
8335: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8336: IBE_UTIL.debug('nothing to update, returning...');
8337: END IF;
8338: RETURN;
8339: END IF;
8332: END IF;
8333:
8334: IF l_quote_line_tbl IS NULL OR l_quote_line_tbl.count=0 THEN
8335: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8336: IBE_UTIL.debug('nothing to update, returning...');
8337: END IF;
8338: RETURN;
8339: END IF;
8340:
8337: END IF;
8338: RETURN;
8339: END IF;
8340:
8341: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8342: IBE_UTIL.debug('setup control record...');
8343: END IF;
8344: l_control_rec.pricing_request_type := 'ASO';
8345: l_control_rec.header_pricing_event := p_header_pricing_event;
8338: RETURN;
8339: END IF;
8340:
8341: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8342: IBE_UTIL.debug('setup control record...');
8343: END IF;
8344: l_control_rec.pricing_request_type := 'ASO';
8345: l_control_rec.header_pricing_event := p_header_pricing_event;
8346: l_control_rec.calculate_tax_flag := 'Y';
8345: l_control_rec.header_pricing_event := p_header_pricing_event;
8346: l_control_rec.calculate_tax_flag := 'Y';
8347: l_control_rec.calculate_freight_charge_flag := 'Y';
8348:
8349: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8350: IBE_UTIL.debug('header_pricing_event='||p_header_pricing_event);
8351: IBE_UTIL.debug('setup header record...');
8352: END IF;
8353: l_quote_header_rec.pricing_status_indicator := 'C';
8346: l_control_rec.calculate_tax_flag := 'Y';
8347: l_control_rec.calculate_freight_charge_flag := 'Y';
8348:
8349: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8350: IBE_UTIL.debug('header_pricing_event='||p_header_pricing_event);
8351: IBE_UTIL.debug('setup header record...');
8352: END IF;
8353: l_quote_header_rec.pricing_status_indicator := 'C';
8354: l_quote_header_rec.tax_status_indicator := 'C';
8347: l_control_rec.calculate_freight_charge_flag := 'Y';
8348:
8349: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8350: IBE_UTIL.debug('header_pricing_event='||p_header_pricing_event);
8351: IBE_UTIL.debug('setup header record...');
8352: END IF;
8353: l_quote_header_rec.pricing_status_indicator := 'C';
8354: l_quote_header_rec.tax_status_indicator := 'C';
8355: l_quote_header_rec.quote_header_id := p_quote_header_id;
8363: l_sharee_cust_account_id := p_cust_account_id;
8364: END IF;
8365: l_quote_header_rec.last_update_date := p_last_update_date;
8366:
8367: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8368: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8364: END IF;
8365: l_quote_header_rec.last_update_date := p_last_update_date;
8366:
8367: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8368: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8365: l_quote_header_rec.last_update_date := p_last_update_date;
8366:
8367: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8368: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8366:
8367: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8368: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8367: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8368: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8368: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8369: IBE_UTIL.debug('currency_code='||p_currency_code);
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8377: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8370: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8377: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8378: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8371: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8372: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8377: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8378: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8379: IBE_UTIL.debug('p_save_type='||p_save_type);
8373: IBE_UTIL.debug('party_id='||p_party_id);
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8377: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8378: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8379: IBE_UTIL.debug('p_save_type='||p_save_type);
8380: END IF;
8381: SAVE(p_api_version_number => p_api_version
8374: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8377: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8378: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8379: IBE_UTIL.debug('p_save_type='||p_save_type);
8380: END IF;
8381: SAVE(p_api_version_number => p_api_version
8382: ,p_init_msg_list => FND_API.G_FALSE
8375: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8376:
8377: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8378: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8379: IBE_UTIL.debug('p_save_type='||p_save_type);
8380: END IF;
8381: SAVE(p_api_version_number => p_api_version
8382: ,p_init_msg_list => FND_API.G_FALSE
8383: ,p_commit => FND_API.G_FALSE
8398: ,x_last_update_date => x_last_update_date
8399: ,x_return_status => x_return_status
8400: ,x_msg_count => x_msg_count
8401: ,x_msg_data => x_msg_data);
8402: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8403: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8399: ,x_return_status => x_return_status
8400: ,x_msg_count => x_msg_count
8401: ,x_msg_data => x_msg_data);
8402: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8403: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8400: ,x_msg_count => x_msg_count
8401: ,x_msg_data => x_msg_data);
8402: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8403: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8408: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8401: ,x_msg_data => x_msg_data);
8402: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8403: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8408: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8409: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8402: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8403: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8408: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8409: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8410: END IF;
8403: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8408: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8409: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8410: END IF;
8411: EXCEPTION
8404: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8408: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8409: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8410: END IF;
8411: EXCEPTION
8412: WHEN FND_API.G_EXC_ERROR THEN
8405: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8406: IBE_UTIL.debug('x_return_status='||x_return_status);
8407: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8408: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8409: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8410: END IF;
8411: EXCEPTION
8412: WHEN FND_API.G_EXC_ERROR THEN
8413: ROLLBACK TO UPDATE_SUPPORT_LEVEL_AND_QTY;