[Home] [Help]
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;
138: p_control_rec IN ASO_Quote_Pub.Control_Rec_Type
139: )
140: IS
141: BEGIN
142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
143: IBE_Util.Debug('log_Control_Rec_Values BEGIN');
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
139: )
140: IS
141: BEGIN
142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
143: IBE_Util.Debug('log_Control_Rec_Values BEGIN');
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
140: IS
141: BEGIN
142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
143: IBE_Util.Debug('log_Control_Rec_Values BEGIN');
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
141: BEGIN
142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
143: IBE_Util.Debug('log_Control_Rec_Values BEGIN');
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
143: IBE_Util.Debug('log_Control_Rec_Values BEGIN');
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
143: IBE_Util.Debug('log_Control_Rec_Values BEGIN');
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
144: IBE_Util.Debug('change line logic pricing Test BEGIN');
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
152: IBE_Util.Debug('p_control_rec.price_mode = ' || p_control_rec.price_mode);
145: IBE_Util.Debug('p_control_rec.last_update_date = ' || p_control_rec.last_update_date);
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
152: IBE_Util.Debug('p_control_rec.price_mode = ' || p_control_rec.price_mode);
153: IBE_Util.Debug('change line logic pricing Test END');
146: IBE_Util.Debug('p_control_rec.auto_version_flag = '|| p_control_rec.auto_version_flag);
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
152: IBE_Util.Debug('p_control_rec.price_mode = ' || p_control_rec.price_mode);
153: IBE_Util.Debug('change line logic pricing Test END');
154: END IF;
147: IBE_Util.Debug('p_control_rec.pricing_request_type = '|| p_control_rec.pricing_request_type);
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
152: IBE_Util.Debug('p_control_rec.price_mode = ' || p_control_rec.price_mode);
153: IBE_Util.Debug('change line logic pricing Test END');
154: END IF;
155: END log_Control_Rec_Values;
148: IBE_Util.Debug('p_control_rec.header_pricing_event = '|| p_control_rec.header_pricing_event );
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
152: IBE_Util.Debug('p_control_rec.price_mode = ' || p_control_rec.price_mode);
153: IBE_Util.Debug('change line logic pricing Test END');
154: END IF;
155: END log_Control_Rec_Values;
156:
149: IBE_Util.Debug('p_control_rec.line_pricing_event = ' || p_control_rec.line_pricing_event);
150: IBE_Util.Debug('p_control_rec.calculate_tax_flag = '|| p_control_rec.calculate_tax_flag);
151: IBE_Util.Debug('p_control_rec.calculate_freight_charge_flag = '|| p_control_rec.calculate_freight_charge_flag);
152: IBE_Util.Debug('p_control_rec.price_mode = ' || p_control_rec.price_mode);
153: IBE_Util.Debug('change line logic pricing Test END');
154: END IF;
155: END log_Control_Rec_Values;
156:
157: Procedure Load_Service(
189: and l.item_type_code = 'SRV'
190: and dl.service_ref_line_id = p_service_ref_line_id
191: and dl.quote_line_id = l.quote_line_id;
192: BEGIN
193: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
194: IBE_Util.Debug('at load_service p_service_ref_line_id ='
195: || p_service_ref_line_id);
196: END IF;
197:
190: and dl.service_ref_line_id = p_service_ref_line_id
191: and dl.quote_line_id = l.quote_line_id;
192: BEGIN
193: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
194: IBE_Util.Debug('at load_service p_service_ref_line_id ='
195: || p_service_ref_line_id);
196: END IF;
197:
198: OPEN c_getlineinfo(p_quote_header_id
232: l_qte_line_index NUMBER;
233: l_qte_line_dtl_rec ASO_Quote_Pub.Qte_Line_Dtl_rec_Type;
234:
235: BEGIN
236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237: IBE_Util.Debug('at find_service p_qte_line_tbl.count= '
238: ||p_qte_line_tbl.count);
239: END IF;
240:
233: l_qte_line_dtl_rec ASO_Quote_Pub.Qte_Line_Dtl_rec_Type;
234:
235: BEGIN
236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237: IBE_Util.Debug('at find_service p_qte_line_tbl.count= '
238: ||p_qte_line_tbl.count);
239: END IF;
240:
241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237: IBE_Util.Debug('at find_service p_qte_line_tbl.count= '
238: ||p_qte_line_tbl.count);
239: END IF;
240:
241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
242: IBE_Util.Debug('at find_service p_qte_line_dtl_tbl.count= '
243: ||p_qte_line_dtl_tbl.count);
244: END IF;
245: FOR i in 1..p_qte_line_dtl_tbl.count Loop
238: ||p_qte_line_tbl.count);
239: END IF;
240:
241: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
242: IBE_Util.Debug('at find_service p_qte_line_dtl_tbl.count= '
243: ||p_qte_line_dtl_tbl.count);
244: END IF;
245: FOR i in 1..p_qte_line_dtl_tbl.count Loop
246: IF p_qte_line_dtl_tbl(i).service_ref_qte_line_index = p_qte_line_index THEN
258: := p_qte_line_tbl(l_qte_line_index);
259: END IF;
260:
261: END LOOP;
262: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
263: IBE_Util.Debug('at find_service x_qte_line_dtl_tbl.count= '
264: ||x_qte_line_dtl_tbl_service.count);
265: END IF;
266: END Find_Service;
259: END IF;
260:
261: END LOOP;
262: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
263: IBE_Util.Debug('at find_service x_qte_line_dtl_tbl.count= '
264: ||x_qte_line_dtl_tbl_service.count);
265: END IF;
266: END Find_Service;
267:
287: l_qte_line_tbl := getLineTblfromdb(
288: p_quote_header_id => p_quote_header_id,
289: p_qte_line_rec => p_qte_line_rec);
290:
291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
292: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl.count'||l_qte_line_tbl.count);
293: END IF;
294:
295: WHILE l_same = 'N' and l_index <= l_qte_line_tbl.count LOOP
288: p_quote_header_id => p_quote_header_id,
289: p_qte_line_rec => p_qte_line_rec);
290:
291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
292: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl.count'||l_qte_line_tbl.count);
293: END IF;
294:
295: WHILE l_same = 'N' and l_index <= l_qte_line_tbl.count LOOP
296: -- find all the service item from database for this serviceable item
298: p_quote_header_id => p_quote_header_id ,
299: p_service_ref_line_id => l_qte_line_tbl(l_index).quote_line_id,
300: x_qte_line_tbl_service_db => l_qte_line_tbl_service_db ,
301: x_qte_line_dtl_tbl_service_db => l_qte_line_dtl_tbl_service_db);
302: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
303: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl_service_db.count '
304: ||l_qte_line_tbl_service_db.count);
305: END IF;
306:
299: p_service_ref_line_id => l_qte_line_tbl(l_index).quote_line_id,
300: x_qte_line_tbl_service_db => l_qte_line_tbl_service_db ,
301: x_qte_line_dtl_tbl_service_db => l_qte_line_dtl_tbl_service_db);
302: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
303: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl_service_db.count '
304: ||l_qte_line_tbl_service_db.count);
305: END IF;
306:
307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
303: IBE_Util.Debug('load_serviceable_service l_qte_line_tbl_service_db.count '
304: ||l_qte_line_tbl_service_db.count);
305: END IF;
306:
307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
308: IBE_Util.Debug('load_serviceable_service l_qte_line_dtl_tbl_service_db.count '
309: ||l_qte_line_dtl_tbl_service_db.count);
310: END IF;
311: IF p_qte_line_tbl_service.count = l_qte_line_tbl_service_db.count THEN
304: ||l_qte_line_tbl_service_db.count);
305: END IF;
306:
307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
308: IBE_Util.Debug('load_serviceable_service l_qte_line_dtl_tbl_service_db.count '
309: ||l_qte_line_dtl_tbl_service_db.count);
310: END IF;
311: IF p_qte_line_tbl_service.count = l_qte_line_tbl_service_db.count THEN
312: IF p_qte_line_tbl_service.count > 0 THEN
348: l_found varchar2(1) := 'N';
349: l_index NUMBER := 1;
350: BEGIN
351:
352: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
353: IBE_Util.Debug('updateserviceline p_qte_line_tbl_db.count='
354: ||p_qte_line_tbl_db.count);
355: END IF;
356:
349: l_index NUMBER := 1;
350: BEGIN
351:
352: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
353: IBE_Util.Debug('updateserviceline p_qte_line_tbl_db.count='
354: ||p_qte_line_tbl_db.count);
355: END IF;
356:
357:
359:
360: IF p_qte_line_tbl_db(l_index).inventory_item_id = p_qte_line_rec.inventory_item_id
361: and p_qte_line_tbl_db(l_index).organization_id = p_qte_line_rec.organization_id
362: and p_qte_line_tbl_db(l_index).uom_code = p_qte_line_rec.uom_code then
363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
364: IBE_Util.Debug('updateserviceline start update');
365: END IF;
366: l_qte_line_rec := p_qte_line_rec;
367: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
360: IF p_qte_line_tbl_db(l_index).inventory_item_id = p_qte_line_rec.inventory_item_id
361: and p_qte_line_tbl_db(l_index).organization_id = p_qte_line_rec.organization_id
362: and p_qte_line_tbl_db(l_index).uom_code = p_qte_line_rec.uom_code then
363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
364: IBE_Util.Debug('updateserviceline start update');
365: END IF;
366: l_qte_line_rec := p_qte_line_rec;
367: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
364: IBE_Util.Debug('updateserviceline start update');
365: END IF;
366: l_qte_line_rec := p_qte_line_rec;
367: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
369: IBE_Util.Debug('update service inventory_item_id'||l_qte_line_rec.inventory_item_id);
370: END IF;
371: l_qte_line_rec.quote_line_id := p_qte_line_tbl_db(l_index).quote_line_id;
372: l_qte_line_rec.quantity := p_qte_line_tbl_db(l_index).quantity
365: END IF;
366: l_qte_line_rec := p_qte_line_rec;
367: l_qte_line_dtl_rec := p_qte_line_dtl_rec;
368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
369: IBE_Util.Debug('update service inventory_item_id'||l_qte_line_rec.inventory_item_id);
370: END IF;
371: l_qte_line_rec.quote_line_id := p_qte_line_tbl_db(l_index).quote_line_id;
372: l_qte_line_rec.quantity := p_qte_line_tbl_db(l_index).quantity
373: + l_qte_line_rec.quantity;
390:
391: x_qte_line_rec := l_qte_line_rec;
392: x_qte_line_dtl_rec := l_qte_line_dtl_rec;
393:
394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
395: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
396: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
397: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
398: END IF;
391: x_qte_line_rec := l_qte_line_rec;
392: x_qte_line_dtl_rec := l_qte_line_dtl_rec;
393:
394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
395: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
396: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
397: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
398: END IF;
399: END updateserviceline;
392: x_qte_line_dtl_rec := l_qte_line_dtl_rec;
393:
394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
395: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
396: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
397: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
398: END IF;
399: END updateserviceline;
400:
393:
394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
395: IBE_Util.Debug('update service inventory_item_id'||x_qte_line_rec.inventory_item_id);
396: IBE_Util.Debug('update service quote_line_id'||x_qte_line_rec.quote_line_id);
397: IBE_Util.Debug('update service quote_line_id'||x_qte_line_dtl_rec.quote_line_detail_id);
398: END IF;
399: END updateserviceline;
400:
401: PROCEDURE header_agreements(
448: x_return_status := FND_API.G_RET_STS_SUCCESS;
449: -- API body
450:
451: l_hdr_payment_tbl := p_hdr_payment_tbl;
452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
453: ibe_util.debug('Incoming header payment rec has '||p_hdr_payment_tbl.count||' records');
454: ibe_util.debug('Incoming agreementId is '||p_qte_header_rec.contract_id );
455: END IF;
456:
449: -- API body
450:
451: l_hdr_payment_tbl := p_hdr_payment_tbl;
452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
453: ibe_util.debug('Incoming header payment rec has '||p_hdr_payment_tbl.count||' records');
454: ibe_util.debug('Incoming agreementId is '||p_qte_header_rec.contract_id );
455: END IF;
456:
457: if(p_qte_header_rec.contract_id is null or p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
450:
451: l_hdr_payment_tbl := p_hdr_payment_tbl;
452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
453: ibe_util.debug('Incoming header payment rec has '||p_hdr_payment_tbl.count||' records');
454: ibe_util.debug('Incoming agreementId is '||p_qte_header_rec.contract_id );
455: END IF;
456:
457: if(p_qte_header_rec.contract_id is null or p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
458: if(p_qte_header_rec.contract_id is not null
458: if(p_qte_header_rec.contract_id is not null
459: and p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
460: for rec_term_id in c_term_id(p_qte_header_rec.contract_id) loop
461: l_payment_term_id := rec_term_id.term_id;
462: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
463: ibe_util.debug('payment term id when contract id is not null and not g_miss '||l_payment_term_id);
464: END IF;
465: exit when c_term_id%notfound;
466: end loop;
459: and p_qte_header_rec.contract_id <> fnd_api.g_miss_num) then
460: for rec_term_id in c_term_id(p_qte_header_rec.contract_id) loop
461: l_payment_term_id := rec_term_id.term_id;
462: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
463: ibe_util.debug('payment term id when contract id is not null and not g_miss '||l_payment_term_id);
464: END IF;
465: exit when c_term_id%notfound;
466: end loop;
467: elsif (p_qte_header_rec.contract_id is null ) then
464: END IF;
465: exit when c_term_id%notfound;
466: end loop;
467: elsif (p_qte_header_rec.contract_id is null ) then
468: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
469: ibe_util.debug('p_qte_header_rec.contract_id is null hence l_payment_term_id is null');
470: END IF;
471: -- changed 4/5/04 for bug 3551866
472: --l_payment_term_id := null;
465: exit when c_term_id%notfound;
466: end loop;
467: elsif (p_qte_header_rec.contract_id is null ) then
468: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
469: ibe_util.debug('p_qte_header_rec.contract_id is null hence l_payment_term_id is null');
470: END IF;
471: -- changed 4/5/04 for bug 3551866
472: --l_payment_term_id := null;
473: l_payment_term_id := fnd_profile.value('IBE_DEFAULT_PAYMENT_TERM_ID');
479: and (p_hdr_payment_tbl(counter).quote_line_id is null or
480: p_hdr_payment_tbl(counter).quote_line_id = fnd_api.g_miss_num) ) then
481: if(p_hdr_payment_tbl(counter).operation_code <> 'DELETE') then
482: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
483: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
484: ibe_util.debug('header_payment_tbl.payment_term_id '||l_payment_term_id);
485: END IF;
486: end if;
487: end if;
480: p_hdr_payment_tbl(counter).quote_line_id = fnd_api.g_miss_num) ) then
481: if(p_hdr_payment_tbl(counter).operation_code <> 'DELETE') then
482: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
483: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
484: ibe_util.debug('header_payment_tbl.payment_term_id '||l_payment_term_id);
485: END IF;
486: end if;
487: end if;
488: end loop;
494: end loop;
495: l_hdr_payment_tbl(counter).quote_header_id := p_qte_header_rec.quote_header_id;
496: l_hdr_payment_tbl(counter).quote_line_id := null;
497: if(l_payment_id is not null ) then
498: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
499: ibe_util.debug('Input payment table is empty but record in database');
500: END IF;
501: l_hdr_payment_tbl(counter).payment_id := l_payment_id;
502: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
495: l_hdr_payment_tbl(counter).quote_header_id := p_qte_header_rec.quote_header_id;
496: l_hdr_payment_tbl(counter).quote_line_id := null;
497: if(l_payment_id is not null ) then
498: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
499: ibe_util.debug('Input payment table is empty but record in database');
500: END IF;
501: l_hdr_payment_tbl(counter).payment_id := l_payment_id;
502: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
503: l_hdr_payment_tbl(counter).operation_code := 'UPDATE';
506: l_hdr_payment_tbl(counter).payment_term_id := l_payment_term_id;
507: l_hdr_payment_tbl(counter).operation_code := 'CREATE';
508: end if;
509: end if;
510: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
511: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
512: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
513: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
514: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
507: l_hdr_payment_tbl(counter).operation_code := 'CREATE';
508: end if;
509: end if;
510: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
511: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
512: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
513: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
514: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
515: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
508: end if;
509: end if;
510: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
511: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
512: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
513: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
514: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
515: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
516: END IF;
509: end if;
510: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
511: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
512: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
513: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
514: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
515: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
516: END IF;
517:
510: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
511: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
512: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
513: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
514: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
515: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
516: END IF;
517:
518: end if;
511: ibe_util.debug('outgoing payment table quote_header_id '||l_hdr_payment_tbl(1).quote_header_id);
512: ibe_util.debug('outgoing payment table quote_line_id '||l_hdr_payment_tbl(1).quote_line_id);
513: ibe_util.debug('outgoing payment table payment_id '||l_hdr_payment_tbl(1).payment_id);
514: ibe_util.debug('outgoing payment table payment_term_id '||l_hdr_payment_tbl(1).payment_term_id);
515: ibe_util.debug('outgoing payment table operation_code '||l_hdr_payment_tbl(1).operation_code);
516: END IF;
517:
518: end if;
519: else
516: END IF;
517:
518: end if;
519: else
520: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
521: ibe_util.debug('Incoming agreement id is g_miss');
522: END IF;
523: end if;
524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
517:
518: end if;
519: else
520: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
521: ibe_util.debug('Incoming agreement id is g_miss');
522: END IF;
523: end if;
524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
525: ibe_util.debug('outgoing payment table from header_agreements API');
520: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
521: ibe_util.debug('Incoming agreement id is g_miss');
522: END IF;
523: end if;
524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
525: ibe_util.debug('outgoing payment table from header_agreements API');
526: END IF;
527: x_hdr_payment_tbl := l_hdr_payment_tbl;
528:
521: ibe_util.debug('Incoming agreement id is g_miss');
522: END IF;
523: end if;
524: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
525: ibe_util.debug('outgoing payment table from header_agreements API');
526: END IF;
527: x_hdr_payment_tbl := l_hdr_payment_tbl;
528:
529: -- End of API body.
538: p_data => x_msg_data);
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
543: ibe_util.debug('Expected error in IBE_QUOTE_SAVE_PVT.header_agreements');
544: END IF;
545: ROLLBACK TO handle_header_agreements_pvt;
546: x_return_status := FND_API.G_RET_STS_ERROR;
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
543: ibe_util.debug('Expected error in IBE_QUOTE_SAVE_PVT.header_agreements');
544: END IF;
545: ROLLBACK TO handle_header_agreements_pvt;
546: x_return_status := FND_API.G_RET_STS_ERROR;
547: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
547: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
548: p_count => x_msg_count ,
549: p_data => x_msg_data);
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
552: ibe_util.debug('Unexpected error in IBE_QUOTE_SAVE_PVT.header_agreements');
553: END IF;
554: ROLLBACK TO handle_header_agreements_pvt;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: p_count => x_msg_count ,
549: p_data => x_msg_data);
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
552: ibe_util.debug('Unexpected error in IBE_QUOTE_SAVE_PVT.header_agreements');
553: END IF;
554: ROLLBACK TO handle_header_agreements_pvt;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
558: p_data => x_msg_data);
559: WHEN OTHERS THEN
560: ROLLBACK TO handle_header_agreements_pvt;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
563: ibe_util.debug('Unknown error in IBE_QUOTE_SAVE_PVT.header_agreements');
564: END IF;
565: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
566: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
559: WHEN OTHERS THEN
560: ROLLBACK TO handle_header_agreements_pvt;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
563: ibe_util.debug('Unknown error in IBE_QUOTE_SAVE_PVT.header_agreements');
564: END IF;
565: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
566: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
567: L_API_NAME);
598: l_installment_options VARCHAR2(30) := NULL;
599:
600:
601: BEGIN
602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
603: IBE_Util.Debug('start Default_Header_Record');
604: END IF;
605: --DBMS_OUTPUT.PUT_line('p_qte_header_rec.quote_header_id '||p_qte_header_rec.quote_header_id);
606: x_qte_header_rec := p_qte_header_rec;
599:
600:
601: BEGIN
602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
603: IBE_Util.Debug('start Default_Header_Record');
604: END IF;
605: --DBMS_OUTPUT.PUT_line('p_qte_header_rec.quote_header_id '||p_qte_header_rec.quote_header_id);
606: x_qte_header_rec := p_qte_header_rec;
607: x_hdr_payment_tbl := p_hdr_payment_tbl;
612: AND (p_qte_header_rec.quote_name = 'IBE_PRMT_SC_UNNAMED' --MANNAMRA: Changed default quote name value from IBEACTIVECART to IBE_PRMT_SC_UNNAMED
613: --09/16/02
614: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR) THEN
615: --DBMS_OUTPUT.PUT_line('passed in qte_header_id is g_miss ');
616: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
617: IBE_Util.Debug(' need to get active cart');
618: END IF;
619: x_qte_header_rec.quote_header_id :=
620: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
613: --09/16/02
614: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR) THEN
615: --DBMS_OUTPUT.PUT_line('passed in qte_header_id is g_miss ');
616: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
617: IBE_Util.Debug(' need to get active cart');
618: END IF;
619: x_qte_header_rec.quote_header_id :=
620: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
621: p_party_id => p_qte_header_rec.party_id,
640:
641: RAISE FND_API.G_EXC_ERROR; -- need error message
642: END IF;
643: END IF;
644: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
645: IBE_Util.Debug('after get active cart id = '|| x_qte_header_rec.quote_header_id);
646: END IF;
647: END IF;
648:
641: RAISE FND_API.G_EXC_ERROR; -- need error message
642: END IF;
643: END IF;
644: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
645: IBE_Util.Debug('after get active cart id = '|| x_qte_header_rec.quote_header_id);
646: END IF;
647: END IF;
648:
649: -- if contract_id is set, then overwrite price_list_id field
717: Ideally we do not want to change the price list id put in by the Sales Rep for Update of published Quotes.
718: This is true only when the agreement is not associated to the quote.*/
719: IF (l_resource_id is not null AND nvl(l_publish_flag,'N')='Y'
720: AND l_agmt_associated = FND_API.G_FALSE AND l_price_list_id is not null) THEN
721: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
722: 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);
723: END IF;
724: x_qte_header_rec.price_list_id := l_price_list_id;
725: END IF;
718: This is true only when the agreement is not associated to the quote.*/
719: IF (l_resource_id is not null AND nvl(l_publish_flag,'N')='Y'
720: AND l_agmt_associated = FND_API.G_FALSE AND l_price_list_id is not null) THEN
721: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
722: 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);
723: END IF;
724: x_qte_header_rec.price_list_id := l_price_list_id;
725: END IF;
726:
768: -- Removed the code for setting the price frozen date for the bug# 2917587
769:
770: -- default payment term id if pay now is enabled
771: IF x_hdr_payment_tbl.count=0 THEN
772: IBE_Util.Debug('no header payment record passed down so far.');
773: IBE_Util.Debug('checking if PAY NOW is turned on...');
774: IF x_qte_header_rec.org_id is NULL OR x_qte_header_rec.org_id=FND_API.G_MISS_NUM THEN
775: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
776: l_installment_options := oe_sys_parameters.value(
769:
770: -- default payment term id if pay now is enabled
771: IF x_hdr_payment_tbl.count=0 THEN
772: IBE_Util.Debug('no header payment record passed down so far.');
773: IBE_Util.Debug('checking if PAY NOW is turned on...');
774: IF x_qte_header_rec.org_id is NULL OR x_qte_header_rec.org_id=FND_API.G_MISS_NUM THEN
775: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
776: l_installment_options := oe_sys_parameters.value(
777: param_name => 'INSTALLMENT_OPTIONS');
771: IF x_hdr_payment_tbl.count=0 THEN
772: IBE_Util.Debug('no header payment record passed down so far.');
773: IBE_Util.Debug('checking if PAY NOW is turned on...');
774: IF x_qte_header_rec.org_id is NULL OR x_qte_header_rec.org_id=FND_API.G_MISS_NUM THEN
775: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
776: l_installment_options := oe_sys_parameters.value(
777: param_name => 'INSTALLMENT_OPTIONS');
778: ELSE
779: IBE_Util.Debug('x_qte_header_rec.org_id='||x_qte_header_rec.org_id);
775: IBE_Util.Debug('x_qte_header_rec.org_id is null or GMISS');
776: l_installment_options := oe_sys_parameters.value(
777: param_name => 'INSTALLMENT_OPTIONS');
778: ELSE
779: IBE_Util.Debug('x_qte_header_rec.org_id='||x_qte_header_rec.org_id);
780: l_installment_options := oe_sys_parameters.value(
781: param_name => 'INSTALLMENT_OPTIONS',
782: p_org_id => x_qte_header_rec.org_id);
783: END IF;
780: l_installment_options := oe_sys_parameters.value(
781: param_name => 'INSTALLMENT_OPTIONS',
782: p_org_id => x_qte_header_rec.org_id);
783: END IF;
784: IBE_Util.Debug('OM parameter INSTALLMENT_OPTIONS='||l_installment_options);
785:
786: IF NVL(l_installment_options,'NONE')='ENABLE_PAY_NOW' THEN
787: IBE_Util.Debug('Pay Now is enabled.');
788: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
783: END IF;
784: IBE_Util.Debug('OM parameter INSTALLMENT_OPTIONS='||l_installment_options);
785:
786: IF NVL(l_installment_options,'NONE')='ENABLE_PAY_NOW' THEN
787: IBE_Util.Debug('Pay Now is enabled.');
788: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
789: IBE_Util.Debug('it is a new cart.');
790: ELSE
791: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
785:
786: IF NVL(l_installment_options,'NONE')='ENABLE_PAY_NOW' THEN
787: IBE_Util.Debug('Pay Now is enabled.');
788: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
789: IBE_Util.Debug('it is a new cart.');
790: ELSE
791: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
792: IBE_Util.Debug('checking if a header payment record is already present...');
793: BEGIN
787: IBE_Util.Debug('Pay Now is enabled.');
788: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
789: IBE_Util.Debug('it is a new cart.');
790: ELSE
791: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
792: IBE_Util.Debug('checking if a header payment record is already present...');
793: BEGIN
794: SELECT payment_id into l_org_payment_id FROM ASO_payments
795: WHERE QUOTE_HEADER_ID = x_qte_header_rec.quote_header_id AND quote_line_id is null;
788: IF x_qte_header_rec.quote_header_id is null OR x_qte_header_rec.quote_header_id=FND_API.G_MISS_NUM THEN
789: IBE_Util.Debug('it is a new cart.');
790: ELSE
791: IBE_Util.Debug('existing cart,x_qte_header_rec.quote_header_id='|| x_qte_header_rec.quote_header_id);
792: IBE_Util.Debug('checking if a header payment record is already present...');
793: BEGIN
794: SELECT payment_id into l_org_payment_id FROM ASO_payments
795: WHERE QUOTE_HEADER_ID = x_qte_header_rec.quote_header_id AND quote_line_id is null;
796: IBE_Util.Debug('header payment record found,l_org_payment_id='||l_org_payment_id);
792: IBE_Util.Debug('checking if a header payment record is already present...');
793: BEGIN
794: SELECT payment_id into l_org_payment_id FROM ASO_payments
795: WHERE QUOTE_HEADER_ID = x_qte_header_rec.quote_header_id AND quote_line_id is null;
796: IBE_Util.Debug('header payment record found,l_org_payment_id='||l_org_payment_id);
797: EXCEPTION
798: WHEN NO_DATA_FOUND THEN
799: l_org_payment_id := NULL;
800: IBE_Util.Debug('no header payment record found');
796: IBE_Util.Debug('header payment record found,l_org_payment_id='||l_org_payment_id);
797: EXCEPTION
798: WHEN NO_DATA_FOUND THEN
799: l_org_payment_id := NULL;
800: IBE_Util.Debug('no header payment record found');
801: WHEN TOO_MANY_ROWS THEN
802: l_org_payment_id := FND_API.G_MISS_NUM;
803: IBE_Util.Debug('too many header payment records found');
804: END;
799: l_org_payment_id := NULL;
800: IBE_Util.Debug('no header payment record found');
801: WHEN TOO_MANY_ROWS THEN
802: l_org_payment_id := FND_API.G_MISS_NUM;
803: IBE_Util.Debug('too many header payment records found');
804: END;
805: END IF;
806:
807: IF x_qte_header_rec.quote_header_id is null OR l_org_payment_id is null THEN
804: END;
805: END IF;
806:
807: IF x_qte_header_rec.quote_header_id is null OR l_org_payment_id is null THEN
808: IBE_Util.Debug('initializing header payment record...');
809: x_hdr_payment_tbl(1).PAYMENT_TERM_ID := FND_PROFILE.VALUE('IBE_DEFAULT_PAYMENT_TERM_ID');
810: IBE_Util.Debug('profile option IBE_DEFAULT_PAYMENT_TERM_ID='||x_hdr_payment_tbl(1).PAYMENT_TERM_ID);
811: IF x_qte_header_rec.quote_header_id is not null THEN
812: x_hdr_payment_tbl(1).QUOTE_HEADER_ID := x_qte_header_rec.quote_header_id;
806:
807: IF x_qte_header_rec.quote_header_id is null OR l_org_payment_id is null THEN
808: IBE_Util.Debug('initializing header payment record...');
809: x_hdr_payment_tbl(1).PAYMENT_TERM_ID := FND_PROFILE.VALUE('IBE_DEFAULT_PAYMENT_TERM_ID');
810: IBE_Util.Debug('profile option IBE_DEFAULT_PAYMENT_TERM_ID='||x_hdr_payment_tbl(1).PAYMENT_TERM_ID);
811: IF x_qte_header_rec.quote_header_id is not null THEN
812: x_hdr_payment_tbl(1).QUOTE_HEADER_ID := x_qte_header_rec.quote_header_id;
813: END IF;
814: --x_hdr_payment_tbl(1).PAYMENT_TYPE_CODE := NULL;
812: x_hdr_payment_tbl(1).QUOTE_HEADER_ID := x_qte_header_rec.quote_header_id;
813: END IF;
814: --x_hdr_payment_tbl(1).PAYMENT_TYPE_CODE := NULL;
815: x_hdr_payment_tbl(1).OPERATION_CODE := 'CREATE';
816: IBE_Util.Debug('header payment record is defaulted for Pay Now');
817: END IF;
818: ELSE
819: IBE_Util.Debug('Pay Now is turned off');
820: IBE_Util.Debug('no header payment record was populated');
815: x_hdr_payment_tbl(1).OPERATION_CODE := 'CREATE';
816: IBE_Util.Debug('header payment record is defaulted for Pay Now');
817: END IF;
818: ELSE
819: IBE_Util.Debug('Pay Now is turned off');
820: IBE_Util.Debug('no header payment record was populated');
821: END IF;
822: END IF;
823:
816: IBE_Util.Debug('header payment record is defaulted for Pay Now');
817: END IF;
818: ELSE
819: IBE_Util.Debug('Pay Now is turned off');
820: IBE_Util.Debug('no header payment record was populated');
821: END IF;
822: END IF;
823:
824: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
820: IBE_Util.Debug('no header payment record was populated');
821: END IF;
822: END IF;
823:
824: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
825: IBE_Util.Debug('done Default_Header_Record');
826: END IF;
827:
828: END Default_Header_Record;
821: END IF;
822: END IF;
823:
824: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
825: IBE_Util.Debug('done Default_Header_Record');
826: END IF;
827:
828: END Default_Header_Record;
829:
879: from aso_quote_lines
880: where quote_header_id = p_quote_header_id;
881:
882: BEGIN
883: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
884: IBE_Util.Debug('start setLineDefaultval');
885: END IF;
886:
887:
880: where quote_header_id = p_quote_header_id;
881:
882: BEGIN
883: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
884: IBE_Util.Debug('start setLineDefaultval');
885: END IF;
886:
887:
888: FOR i IN 1..p_qte_line_dtl_tbl.count LOOP
914: Else
915: l_combinesameitem := p_combinesameitem;
916: END IF;
917:
918: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
919: IBE_Util.Debug('Checking line level services profile');
920: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
921: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
922: END IF;
915: l_combinesameitem := p_combinesameitem;
916: END IF;
917:
918: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
919: IBE_Util.Debug('Checking line level services profile');
920: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
921: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
922: END IF;
923:
916: END IF;
917:
918: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
919: IBE_Util.Debug('Checking line level services profile');
920: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
921: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
922: END IF;
923:
924: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
917:
918: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
919: IBE_Util.Debug('Checking line level services profile');
920: IBE_Util.Debug('IBE_USE_SUPPORT: '||FND_Profile.Value('IBE_USE_SUPPORT'));
921: IBE_Util.Debug('IBE_USE_SUPPORT_CART_LEVEL '||FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL'));
922: END IF;
923:
924: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
925:
923:
924: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
925:
926: l_line_level_services := 'Y';
927: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
928: IBE_Util.Debug('line level services turned on');
929: END IF;
930:
931: END IF;
924: IF (FND_Profile.Value('IBE_USE_SUPPORT') = 'Y' ) THEN
925:
926: l_line_level_services := 'Y';
927: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
928: IBE_Util.Debug('line level services turned on');
929: END IF;
930:
931: END IF;
932:
929: END IF;
930:
931: END IF;
932:
933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
934: IBE_Util.Debug('looping around input quote line table');
935: END IF;
936: FOR i in 1..p_qte_line_tbl.count LOOP
937:
930:
931: END IF;
932:
933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
934: IBE_Util.Debug('looping around input quote line table');
935: END IF;
936: FOR i in 1..p_qte_line_tbl.count LOOP
937:
938: -- set quote_header_id
955: IF (p_qte_line_tbl(i).quantity = 0) THEN
956: x_qte_line_tbl(i).operation_code := 'DELETE';
957: END IF;
958:
959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
960: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
961: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
962: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
963: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
956: x_qte_line_tbl(i).operation_code := 'DELETE';
957: END IF;
958:
959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
960: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
961: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
962: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
963: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
964: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
957: END IF;
958:
959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
960: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
961: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
962: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
963: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
964: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
965: END IF;
958:
959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
960: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
961: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
962: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
963: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
964: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
965: END IF;
966:
959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
960: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
961: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
962: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
963: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
964: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
965: END IF;
966:
967: -- combine same item
960: IBE_Util.Debug(' l_combinesameitem='||l_combinesameitem);
961: IBE_Util.Debug('before combine item_type_code='||x_qte_line_tbl(i).item_type_code);
962: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
963: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
964: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
965: END IF;
966:
967: -- combine same item
968: IF l_combinesameitem = 'Y'
975: -- 9/2/03: For Merging, SVA Case, don't compare SRV's
976: -- so, handle SVA case just like STD case
977: IF x_qte_line_tbl(i).item_type_code = 'SVA' THEN
978:
979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
980: IBE_Util.Debug('Current item type code in input quote line tbl is SVA');
981: END IF;
982:
983: IF (l_line_level_services <> 'Y') THEN
976: -- so, handle SVA case just like STD case
977: IF x_qte_line_tbl(i).item_type_code = 'SVA' THEN
978:
979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
980: IBE_Util.Debug('Current item type code in input quote line tbl is SVA');
981: END IF;
982:
983: IF (l_line_level_services <> 'Y') THEN
984:
981: END IF;
982:
983: IF (l_line_level_services <> 'Y') THEN
984:
985: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
986: IBE_Util.Debug('Entering combine same item logic: Line level services turned off');
987: END IF;
988:
989: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
982:
983: IF (l_line_level_services <> 'Y') THEN
984:
985: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
986: IBE_Util.Debug('Entering combine same item logic: Line level services turned off');
987: END IF;
988:
989: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
990: l_qte_line_dtl_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_dtl_tbl;
988:
989: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
990: l_qte_line_dtl_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_dtl_tbl;
991: -- find service line and detail line based on servicable item
992: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
993: IBE_Util.Debug('call fnd_service with i='||i);
994: END IF;
995:
996: find_service
989: l_qte_line_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_tbl;
990: l_qte_line_dtl_tbl_service := ASO_Quote_Pub.g_miss_Qte_Line_dtl_tbl;
991: -- find service line and detail line based on servicable item
992: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
993: IBE_Util.Debug('call fnd_service with i='||i);
994: END IF;
995:
996: find_service
997: ( p_qte_line_index => i -- serviceable index
1000: ,x_qte_line_tbl_service => l_qte_line_tbl_service
1001: ,x_qte_line_dtl_tbl_service => l_qte_line_dtl_tbl_service);
1002:
1003: -- find a same servicable and service item from db
1004: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1005: IBE_Util.Debug('call load_serviceable_service ');
1006: END IF;
1007: load_serviceable_service
1008: ( p_quote_header_id => p_quote_header_id
1001: ,x_qte_line_dtl_tbl_service => l_qte_line_dtl_tbl_service);
1002:
1003: -- find a same servicable and service item from db
1004: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1005: IBE_Util.Debug('call load_serviceable_service ');
1006: END IF;
1007: load_serviceable_service
1008: ( p_quote_header_id => p_quote_header_id
1009: ,p_qte_line_rec => x_qte_line_tbl(i)
1016: --- doing merge
1017: IF l_qte_line_rec_db.quote_line_id is not null
1018: and l_qte_line_rec_db.quote_line_id <> FND_API.G_MISS_NUM THEN
1019: --- setup servicable item
1020: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1021: IBE_Util.Debug('merge serviceable line_id'
1022: || l_qte_line_rec_db.quote_line_id);
1023: END IF;
1024:
1017: IF l_qte_line_rec_db.quote_line_id is not null
1018: and l_qte_line_rec_db.quote_line_id <> FND_API.G_MISS_NUM THEN
1019: --- setup servicable item
1020: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1021: IBE_Util.Debug('merge serviceable line_id'
1022: || l_qte_line_rec_db.quote_line_id);
1023: END IF;
1024:
1025: x_qte_line_tbl(i).operation_code := 'UPDATE';
1028: x_qte_line_tbl(i).quote_line_id := l_qte_line_rec_db.quote_line_id;
1029: l_line_tbl_index :=1;
1030: l_line_dtl_tbl_index :=1;
1031:
1032: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1033: IBE_Util.Debug('merge service line count='
1034: || l_qte_line_dtl_tbl_service.count);
1035: END IF;
1036:
1029: l_line_tbl_index :=1;
1030: l_line_dtl_tbl_index :=1;
1031:
1032: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1033: IBE_Util.Debug('merge service line count='
1034: || l_qte_line_dtl_tbl_service.count);
1035: END IF;
1036:
1037: FOR i in 1..l_qte_line_dtl_tbl_service.count LOOP
1053:
1054: x_qte_line_dtl_tbl(l_line_dtl_tbl_index).service_ref_line_id
1055: := l_qte_line_rec_db.quote_line_id ;
1056:
1057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1058: IBE_Util.Debug('quote line id='
1059: ||x_qte_line_dtl_tbl(i).quote_line_id);
1060: END IF;
1061: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1054: x_qte_line_dtl_tbl(l_line_dtl_tbl_index).service_ref_line_id
1055: := l_qte_line_rec_db.quote_line_id ;
1056:
1057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1058: IBE_Util.Debug('quote line id='
1059: ||x_qte_line_dtl_tbl(i).quote_line_id);
1060: END IF;
1061: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1062: IBE_Util.Debug('quote line detail id='
1057: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1058: IBE_Util.Debug('quote line id='
1059: ||x_qte_line_dtl_tbl(i).quote_line_id);
1060: END IF;
1061: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1062: IBE_Util.Debug('quote line detail id='
1063: ||x_qte_line_dtl_tbl(i).quote_line_detail_id);
1064: END IF;
1065: END LOOP;
1058: IBE_Util.Debug('quote line id='
1059: ||x_qte_line_dtl_tbl(i).quote_line_id);
1060: END IF;
1061: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1062: IBE_Util.Debug('quote line detail id='
1063: ||x_qte_line_dtl_tbl(i).quote_line_detail_id);
1064: END IF;
1065: END LOOP;
1066:
1073: l_quote_line_id := FND_API.G_MISS_NUM;
1074: l_item_type_code := FND_API.G_MISS_CHAR;
1075: l_quantity := FND_API.G_MISS_NUM;
1076: l_marketing_source_code_id := FND_API.G_MISS_NUM;
1077: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1078: IBE_Util.Debug('Calling the item cursor in MergeLines with uom_code'||x_qte_line_tbl(i).uom_code);
1079: END IF;
1080: open c_getlineinfo(p_quote_header_id
1081: ,x_qte_line_tbl(i).inventory_item_id,x_qte_line_tbl(i).uom_code);
1074: l_item_type_code := FND_API.G_MISS_CHAR;
1075: l_quantity := FND_API.G_MISS_NUM;
1076: l_marketing_source_code_id := FND_API.G_MISS_NUM;
1077: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1078: IBE_Util.Debug('Calling the item cursor in MergeLines with uom_code'||x_qte_line_tbl(i).uom_code);
1079: END IF;
1080: open c_getlineinfo(p_quote_header_id
1081: ,x_qte_line_tbl(i).inventory_item_id,x_qte_line_tbl(i).uom_code);
1082: fetch c_getlineinfo into l_quote_line_id,
1089: IF (l_item_type_code is not null
1090: and ((l_item_type_code = 'STD') or ((l_item_type_code = 'SVA') and (l_line_level_services <> 'Y')) )
1091: and (l_quote_line_id is not null) ) THEN
1092:
1093: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1094: IBE_Util.Debug('Dealing with a standard item');
1095: END IF;
1096: x_qte_line_tbl(i).operation_code := 'UPDATE';
1097: x_qte_line_tbl(i).quantity := x_qte_line_tbl(i).quantity
1090: and ((l_item_type_code = 'STD') or ((l_item_type_code = 'SVA') and (l_line_level_services <> 'Y')) )
1091: and (l_quote_line_id is not null) ) THEN
1092:
1093: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1094: IBE_Util.Debug('Dealing with a standard item');
1095: END IF;
1096: x_qte_line_tbl(i).operation_code := 'UPDATE';
1097: x_qte_line_tbl(i).quantity := x_qte_line_tbl(i).quantity
1098: + nvl(l_quantity,0);
1124: x_qte_line_tbl(i).marketing_source_code_id := l_marketing_source_code_id;
1125: END IF;
1126: END IF; -- end of combine item
1127:
1128: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1129: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1125: END IF;
1126: END IF; -- end of combine item
1127:
1128: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1129: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1133: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1126: END IF; -- end of combine item
1127:
1128: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1129: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1133: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1134: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1127:
1128: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1129: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1133: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1134: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1135: END IF;
1128: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1129: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1133: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1134: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1135: END IF;
1136:
1129: IBE_Util.Debug('item_type_code='||x_qte_line_tbl(i).item_type_code);
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1133: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1134: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1135: END IF;
1136:
1137:
1130: IBE_Util.Debug('inventory_item_id='||x_qte_line_tbl(i).inventory_item_id);
1131: IBE_Util.Debug('quantity='||x_qte_line_tbl(i).quantity);
1132: IBE_Util.Debug('operation_code='||x_qte_line_tbl(i).operation_code);
1133: IBE_Util.Debug('quote_line_id='||x_qte_line_tbl(i).quote_line_id);
1134: IBE_Util.Debug('quote_header_id='||x_qte_line_tbl(i).quote_header_id);
1135: END IF;
1136:
1137:
1138: -- set line_category_code
1155: END IF;
1156:
1157: END LOOP;
1158:
1159: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1160: IBE_Util.Debug('done setLinedefaultval');
1161: END IF;
1162: END setLineDefaultVal;
1163:
1156:
1157: END LOOP;
1158:
1159: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1160: IBE_Util.Debug('done setLinedefaultval');
1161: END IF;
1162: END setLineDefaultVal;
1163:
1164: PROCEDURE DeleteSharees(
1227: l_qte_access_rec.cust_account_id := rec_get_recipients.cust_account_id;
1228: l_qte_access_rec.contact_point_id := rec_get_recipients.contact_point_id;
1229: l_qte_access_rec.shared_by_party_id := rec_get_recipients.shared_by_party_id;
1230:
1231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1232: IBE_UTIL.DEBUG('DeleteSharees:Calling delete_recipient');
1233: END IF;
1234:
1235: IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT(
1228: l_qte_access_rec.contact_point_id := rec_get_recipients.contact_point_id;
1229: l_qte_access_rec.shared_by_party_id := rec_get_recipients.shared_by_party_id;
1230:
1231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1232: IBE_UTIL.DEBUG('DeleteSharees:Calling delete_recipient');
1233: END IF;
1234:
1235: IBE_QUOTE_SAVESHARE_V2_PVT.DELETE_RECIPIENT(
1236: P_Quote_access_rec => l_qte_access_rec ,
1245: END IF;
1246: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1248: END IF;
1249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1250: IBE_UTIL.DEBUG('DeleteSharees:Done calling delete_recipient');
1251: END IF;
1252: EXIT when c_get_recipients%notfound;
1253: END LOOP;
1246: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1248: END IF;
1249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1250: IBE_UTIL.DEBUG('DeleteSharees:Done calling delete_recipient');
1251: END IF;
1252: EXIT when c_get_recipients%notfound;
1253: END LOOP;
1254:
1264: p_data => x_msg_data);
1265: EXCEPTION
1266: WHEN FND_API.G_EXC_ERROR THEN
1267: ROLLBACK TO DELETESHAREES_pvt;
1268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1269: IBE_UTIL.DEBUG('Expected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1270: END IF;
1271: x_return_status := FND_API.G_RET_STS_ERROR;
1272: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1265: EXCEPTION
1266: WHEN FND_API.G_EXC_ERROR THEN
1267: ROLLBACK TO DELETESHAREES_pvt;
1268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1269: IBE_UTIL.DEBUG('Expected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1270: END IF;
1271: x_return_status := FND_API.G_RET_STS_ERROR;
1272: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1273: p_count => x_msg_count ,
1273: p_count => x_msg_count ,
1274: p_data => x_msg_data);
1275:
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1278: IBE_UTIL.DEBUG('Unexpected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1279: END IF;
1280: ROLLBACK TO DELETESHAREES_pvt;
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274: p_data => x_msg_data);
1275:
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1278: IBE_UTIL.DEBUG('Unexpected error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1279: END IF;
1280: ROLLBACK TO DELETESHAREES_pvt;
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1282: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1282: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1283: p_count => x_msg_count ,
1284: p_data => x_msg_data);
1285: WHEN OTHERS THEN
1286: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1287: IBE_UTIL.DEBUG('Unknown error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1288: END IF;
1289: ROLLBACK TO DELETESHAREES_pvt;
1290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: p_count => x_msg_count ,
1284: p_data => x_msg_data);
1285: WHEN OTHERS THEN
1286: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1287: IBE_UTIL.DEBUG('Unknown error in IBE_QUOTE_SAVE_PVT.DeleteSharees');
1288: END IF;
1289: ROLLBACK TO DELETESHAREES_pvt;
1290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1351: rec_get_recip_id c_get_recip_id%rowtype;
1352: rec_get_party_id c_get_party_id%rowtype;
1353:
1354: BEGIN
1355: -- IBE_Util.Enable_Debug;
1356: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1357: IBE_Util.Debug('START IBE_Quote_Save_pvt.Delete()');
1358: END IF;
1359: --DBMS_OUTPUT.PUT_line('Begin IBE_Quote_Save_pvt.Delete()');
1352: rec_get_party_id c_get_party_id%rowtype;
1353:
1354: BEGIN
1355: -- IBE_Util.Enable_Debug;
1356: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1357: IBE_Util.Debug('START IBE_Quote_Save_pvt.Delete()');
1358: END IF;
1359: --DBMS_OUTPUT.PUT_line('Begin IBE_Quote_Save_pvt.Delete()');
1360: -- Standard Start of API savepoint
1353:
1354: BEGIN
1355: -- IBE_Util.Enable_Debug;
1356: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1357: IBE_Util.Debug('START IBE_Quote_Save_pvt.Delete()');
1358: END IF;
1359: --DBMS_OUTPUT.PUT_line('Begin IBE_Quote_Save_pvt.Delete()');
1360: -- Standard Start of API savepoint
1361: SAVEPOINT DELETE_pvt;
1389: from ibe_sh_quote_access
1390: where party_id = p_initiator_party_id
1391: and quote_header_id = p_quote_header_id
1392: and cust_account_id = p_initiator_account_id;
1393: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1394: IBE_UTIL.DEBUG('Recipient is deleting the cart. Partyid: ' || p_initiator_party_id || ' RetrievalNumber: ' || l_retrieval_number);
1395: END IF;
1396: end if;
1397: -- User Authentication
1390: where party_id = p_initiator_party_id
1391: and quote_header_id = p_quote_header_id
1392: and cust_account_id = p_initiator_account_id;
1393: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1394: IBE_UTIL.DEBUG('Recipient is deleting the cart. Partyid: ' || p_initiator_party_id || ' RetrievalNumber: ' || l_retrieval_number);
1395: END IF;
1396: end if;
1397: -- User Authentication
1398: --DBMS_OUTPUT.PUT_line('validate_user_update start ');
1421: --DBMS_OUTPUT.PUT_line('validate_user_update start end ');
1422: END IF;
1423:
1424: -- get quote stutus
1425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1426: IBE_UTIL.DEBUG('get quote stutus');
1427: END IF;
1428: l_quote_status := IBE_Quote_Misc_pvt.get_Quote_status(p_quote_header_id);
1429:
1422: END IF;
1423:
1424: -- get quote stutus
1425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1426: IBE_UTIL.DEBUG('get quote stutus');
1427: END IF;
1428: l_quote_status := IBE_Quote_Misc_pvt.get_Quote_status(p_quote_header_id);
1429:
1430: IF (l_quote_status = 'NOT_EXIST') THEN
1428: l_quote_status := IBE_Quote_Misc_pvt.get_Quote_status(p_quote_header_id);
1429:
1430: IF (l_quote_status = 'NOT_EXIST') THEN
1431: --DBMS_OUTPUT.PUT_line('Quote not exists ');
1432: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1433: IBE_UTIL.DEBUG('Quote not exists ');
1434: END IF;
1435: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1436: FND_Message.Set_Name('IBE', 'IBE_SC_NO_QUOTE_EXIST');
1429:
1430: IF (l_quote_status = 'NOT_EXIST') THEN
1431: --DBMS_OUTPUT.PUT_line('Quote not exists ');
1432: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1433: IBE_UTIL.DEBUG('Quote not exists ');
1434: END IF;
1435: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1436: FND_Message.Set_Name('IBE', 'IBE_SC_NO_QUOTE_EXIST');
1437: FND_Msg_Pub.Add;
1438: END IF;
1439: RAISE FND_API.G_EXC_ERROR;
1440: ELSIF (l_quote_status = 'ORDERED') THEN
1441: --DBMS_OUTPUT.PUT_line('Quote ordered ');
1442: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1443: IBE_UTIL.DEBUG('Quote ordered ');
1444: END IF;
1445: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1446: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_IS_ORDERED');
1439: RAISE FND_API.G_EXC_ERROR;
1440: ELSIF (l_quote_status = 'ORDERED') THEN
1441: --DBMS_OUTPUT.PUT_line('Quote ordered ');
1442: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1443: IBE_UTIL.DEBUG('Quote ordered ');
1444: END IF;
1445: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
1446: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_IS_ORDERED');
1447: FND_Msg_Pub.Add;
1451: --Removing this validation because this is aleady being done in validate_user_update
1452: /* -- validate last_update_date
1453: IF (p_last_update_date is not null
1454: and p_last_update_date <> FND_API.G_MISS_DATE) THEN
1455: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1456: IBE_UTIL.DEBUG('validate last_update_date ');
1457: END IF;
1458: IBE_Quote_Misc_pvt.validateQuoteLastUpdateDate
1459: ( p_api_version_number => p_api_version_number
1452: /* -- validate last_update_date
1453: IF (p_last_update_date is not null
1454: and p_last_update_date <> FND_API.G_MISS_DATE) THEN
1455: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1456: IBE_UTIL.DEBUG('validate last_update_date ');
1457: END IF;
1458: IBE_Quote_Misc_pvt.validateQuoteLastUpdateDate
1459: ( p_api_version_number => p_api_version_number
1460: ,p_quote_header_id => p_quote_header_id
1472: END IF;*/
1473:
1474: -- makulkar: Moving the deactivate quote code before expunge flag check. Bug 3715127.
1475:
1476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1477: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1478: END IF;
1479: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1480: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1473:
1474: -- makulkar: Moving the deactivate quote code before expunge flag check. Bug 3715127.
1475:
1476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1477: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1478: END IF;
1479: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1480: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1481: END IF;
1475:
1476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1477: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1478: END IF;
1479: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1480: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1481: END IF;
1482: --DBMS_OUTPUT.PUT_line('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1483: -- Stop sharing this quote if this is a shared quote.
1476: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1477: IBE_UTIL.DEBUG('Quote_save_pvt.Delete: Ready to call deactivate_quote');
1478: END IF;
1479: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1480: IBE_UTIL.DEBUG('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1481: END IF;
1482: --DBMS_OUTPUT.PUT_line('Ready to call IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1483: -- Stop sharing this quote if this is a shared quote.
1484: IBE_QUOTE_SAVESHARE_V2_PVT.stop_sharing (
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505:
1506: --DBMS_OUTPUT.PUT_line('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing ');
1507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1508: IBE_UTIL.DEBUG('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1509: END IF;
1510:
1511:
1504: END IF;
1505:
1506: --DBMS_OUTPUT.PUT_line('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing ');
1507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1508: IBE_UTIL.DEBUG('Done calling IBE_QUOTE_SAVESHARE_V2_PVT.Stop_sharing');
1509: END IF;
1510:
1511:
1512: --MANNAMRA:Changes for save/share project(09/12/02)
1513: /*If p_expunge_flag is true then call aso_quote_pub.delete, else
1514: invalidate the quote setting the quote status to 'INVALID' status
1515: and expiring the quote*/
1516:
1517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1518: IBE_UTIL.DEBUG('expunge flag is: '||p_expunge_flag);
1519: END IF;
1520: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1521: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1514: invalidate the quote setting the quote status to 'INVALID' status
1515: and expiring the quote*/
1516:
1517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1518: IBE_UTIL.DEBUG('expunge flag is: '||p_expunge_flag);
1519: END IF;
1520: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1521: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1518: IBE_UTIL.DEBUG('expunge flag is: '||p_expunge_flag);
1519: END IF;
1520: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1521: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1523: IBE_Util.Debug('Expunge flag is true') ;
1524: END IF;
1525: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1519: END IF;
1520: --dbms_output.put_line('expunge flag is: '||p_expunge_flag);
1521: IF(p_expunge_flag = FND_API.G_TRUE ) THEN
1522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1523: IBE_Util.Debug('Expunge flag is true') ;
1524: END IF;
1525: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1527: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() starts');
1522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1523: IBE_Util.Debug('Expunge flag is true') ;
1524: END IF;
1525: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1527: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() starts');
1528: END IF;
1529: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() starts');
1530:
1523: IBE_Util.Debug('Expunge flag is true') ;
1524: END IF;
1525: --DBMS_OUTPUT.PUT_line('Expunge flag is true');
1526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1527: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() starts');
1528: END IF;
1529: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() starts');
1530:
1531:
1539: ,x_Msg_Data => x_msg_data );
1540:
1541:
1542:
1543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1544: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() finishes');
1545: END IF;
1546: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() finishes');
1547: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1540:
1541:
1542:
1543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1544: IBE_Util.Debug('ASO_Quote_Pub.Delete_Quote() finishes');
1545: END IF;
1546: --DBMS_OUTPUT.PUT_line('ASO_Quote_Pub.Delete_Quote() finishes');
1547: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1548: RAISE FND_API.G_EXC_ERROR;
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554:
1555: ELSE
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1557: IBE_Util.Debug('Expunge flag is false');
1558: END IF;
1559: --DBMS_OUTPUT.PUT_line(' Expunge flag is false');
1560: FOR rec_get_quote_status in c_get_quote_status LOOP
1553: END IF;
1554:
1555: ELSE
1556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1557: IBE_Util.Debug('Expunge flag is false');
1558: END IF;
1559: --DBMS_OUTPUT.PUT_line(' Expunge flag is false');
1560: FOR rec_get_quote_status in c_get_quote_status LOOP
1561: l_quote_Status_id := rec_get_quote_status.quote_status_id;
1566: --Forcing the quote to inactivate
1567: l_quote_header_rec.quote_status_id := l_quote_Status_id;
1568: --Forcing the quote to expire
1569: l_quote_header_rec.quote_expiration_date := trunc(sysdate);
1570: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1571: IBE_Util.Debug('Values of quote header rec before calling Save API');
1572: END IF;
1573:
1574: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1567: l_quote_header_rec.quote_status_id := l_quote_Status_id;
1568: --Forcing the quote to expire
1569: l_quote_header_rec.quote_expiration_date := trunc(sysdate);
1570: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1571: IBE_Util.Debug('Values of quote header rec before calling Save API');
1572: END IF;
1573:
1574: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1571: IBE_Util.Debug('Values of quote header rec before calling Save API');
1572: END IF;
1573:
1574: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1576: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1577: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1578: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1579: END IF;
1572: END IF;
1573:
1574: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1576: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1577: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1578: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1579: END IF;
1580: --DBMS_OUTPUT.PUT_line('calling save ');
1573:
1574: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1576: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1577: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1578: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1579: END IF;
1580: --DBMS_OUTPUT.PUT_line('calling save ');
1581: ibe_quote_save_pvt.save(
1574: --DBMS_OUTPUT.PUT_line('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1575: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1576: IBE_UTIL.DEBUG('l_quote_header_rec.quote_header_id :'||l_quote_header_rec.quote_header_id);
1577: IBE_UTIL.DEBUG('l_quote_header_rec.quote_status_id :'||l_quote_header_rec.quote_status_id);
1578: IBE_UTIL.DEBUG('l_quote_header_rec.last_update_date :'||l_quote_header_rec.last_update_date);
1579: END IF;
1580: --DBMS_OUTPUT.PUT_line('calling save ');
1581: ibe_quote_save_pvt.save(
1582: p_api_version_number => p_api_version_number ,
1612: -- Standard call to get message count and if count is 1, get message info.
1613: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1614: p_count => x_msg_count ,
1615: p_data => x_msg_data);
1616: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1617: IBE_Util.Debug('End IBE_Quote_Save_pvt.Delete()');
1618: END IF;
1619: -- IBE_Util.Disable_Debug;
1620: EXCEPTION
1613: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1614: p_count => x_msg_count ,
1615: p_data => x_msg_data);
1616: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1617: IBE_Util.Debug('End IBE_Quote_Save_pvt.Delete()');
1618: END IF;
1619: -- IBE_Util.Disable_Debug;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1615: p_data => x_msg_data);
1616: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1617: IBE_Util.Debug('End IBE_Quote_Save_pvt.Delete()');
1618: END IF;
1619: -- IBE_Util.Disable_Debug;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1623: IBE_Util.Debug('Expected error: End IBE_Quote_Save_pvt.Delete()');
1618: END IF;
1619: -- IBE_Util.Disable_Debug;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1623: IBE_Util.Debug('Expected error: End IBE_Quote_Save_pvt.Delete()');
1624: END IF;
1625:
1626: ROLLBACK TO DELETE_pvt;
1619: -- IBE_Util.Disable_Debug;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1623: IBE_Util.Debug('Expected error: End IBE_Quote_Save_pvt.Delete()');
1624: END IF;
1625:
1626: ROLLBACK TO DELETE_pvt;
1627: x_return_status := FND_API.G_RET_STS_ERROR;
1627: x_return_status := FND_API.G_RET_STS_ERROR;
1628: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1629: p_count => x_msg_count ,
1630: p_data => x_msg_data);
1631: --IBE_Util.Disable_Debug;
1632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1634: IBE_Util.Debug('Unexpected error: End IBE_Quote_Save_pvt.Delete()');
1635: END IF;
1629: p_count => x_msg_count ,
1630: p_data => x_msg_data);
1631: --IBE_Util.Disable_Debug;
1632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1634: IBE_Util.Debug('Unexpected error: End IBE_Quote_Save_pvt.Delete()');
1635: END IF;
1636: ROLLBACK TO DELETE_pvt;
1637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630: p_data => x_msg_data);
1631: --IBE_Util.Disable_Debug;
1632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1634: IBE_Util.Debug('Unexpected error: End IBE_Quote_Save_pvt.Delete()');
1635: END IF;
1636: ROLLBACK TO DELETE_pvt;
1637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1638: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1638: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1639: p_count => x_msg_count ,
1640: p_data => x_msg_data);
1641: -- IBE_Util.Disable_Debug;
1642: WHEN OTHERS THEN
1643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1644: IBE_Util.Debug('Unknown error: End IBE_Quote_Save_pvt.Delete()');
1645: END IF;
1639: p_count => x_msg_count ,
1640: p_data => x_msg_data);
1641: -- IBE_Util.Disable_Debug;
1642: WHEN OTHERS THEN
1643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1644: IBE_Util.Debug('Unknown error: End IBE_Quote_Save_pvt.Delete()');
1645: END IF;
1646: ROLLBACK TO DELETE_pvt;
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1640: p_data => x_msg_data);
1641: -- IBE_Util.Disable_Debug;
1642: WHEN OTHERS THEN
1643: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1644: IBE_Util.Debug('Unknown error: End IBE_Quote_Save_pvt.Delete()');
1645: END IF;
1646: ROLLBACK TO DELETE_pvt;
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1651: END IF;
1652: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1653: p_count => x_msg_count ,
1654: p_data => x_msg_data);
1655: --IBE_Util.Disable_Debug;
1656: END DELETE;
1657:
1658:
1659: PROCEDURE DeleteAllLines(
1779: p_data => x_msg_data);
1780:
1781: EXCEPTION
1782: WHEN FND_API.G_EXC_ERROR THEN
1783: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1784: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.DeleteAllLines()');
1785: END IF;
1786: ROLLBACK TO DELETEALLLINES_pvt;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1780:
1781: EXCEPTION
1782: WHEN FND_API.G_EXC_ERROR THEN
1783: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1784: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.DeleteAllLines()');
1785: END IF;
1786: ROLLBACK TO DELETEALLLINES_pvt;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1789: p_count => x_msg_count ,
1790: p_data => x_msg_data);
1791:
1792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1794: IBE_Util.Debug('Unexpected error:IBE_Quote_Save_pvt.DeleteAllLines()');
1795: END IF;
1796:
1797: ROLLBACK TO DELETEALLLINES_pvt;
1790: p_data => x_msg_data);
1791:
1792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1794: IBE_Util.Debug('Unexpected error:IBE_Quote_Save_pvt.DeleteAllLines()');
1795: END IF;
1796:
1797: ROLLBACK TO DELETEALLLINES_pvt;
1798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1799: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1800: p_count => x_msg_count,
1801: p_data => x_msg_data);
1802: WHEN OTHERS THEN
1803: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1804: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.DeleteAllLines()');
1805: END IF;
1806:
1807: ROLLBACK TO DELETEALLLINES_pvt;
1800: p_count => x_msg_count,
1801: p_data => x_msg_data);
1802: WHEN OTHERS THEN
1803: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1804: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.DeleteAllLines()');
1805: END IF;
1806:
1807: ROLLBACK TO DELETEALLLINES_pvt;
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2041: x_return_status := FND_API.G_RET_STS_SUCCESS;
2042:
2043: -- API body
2044:
2045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2046: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2047: END IF;
2048:
2049: lx_Hd_Payment_Tbl := p_Hd_Payment_Tbl;
2042:
2043: -- API body
2044:
2045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2046: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2047: END IF;
2048:
2049: lx_Hd_Payment_Tbl := p_Hd_Payment_Tbl;
2050: lx_Hd_Shipment_Tbl := p_Hd_Shipment_Tbl;
2050: lx_Hd_Shipment_Tbl := p_Hd_Shipment_Tbl;
2051: lx_Hd_Tax_Detail_Tbl := p_Hd_Tax_Detail_Tbl;
2052: lx_Qte_Header_Rec := p_Qte_Header_Rec;
2053:
2054: -- IBE_Util.Enable_Debug;
2055:
2056: l_Qte_Line_Tbl := p_Qte_Line_Tbl;
2057: l_Qte_Line_Dtl_Tbl := p_Qte_Line_Dtl_Tbl;
2058:
2055:
2056: l_Qte_Line_Tbl := p_Qte_Line_Tbl;
2057: l_Qte_Line_Dtl_Tbl := p_Qte_Line_Dtl_Tbl;
2058:
2059: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2060: IBE_Util.Debug('Save_flag in AddItemsToCart_orig is: '||p_save_flag);
2061: END IF;
2062:
2063: -- Check for cart level support
2056: l_Qte_Line_Tbl := p_Qte_Line_Tbl;
2057: l_Qte_Line_Dtl_Tbl := p_Qte_Line_Dtl_Tbl;
2058:
2059: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2060: IBE_Util.Debug('Save_flag in AddItemsToCart_orig is: '||p_save_flag);
2061: END IF;
2062:
2063: -- Check for cart level support
2064: if (( FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL') <> 'N') AND
2064: if (( FND_Profile.Value('IBE_USE_SUPPORT_CART_LEVEL') <> 'N') AND
2065: ((FND_Profile.Value('IBE_USE_SUPPORT') = 'N') OR (FND_Profile.Value('IBE_USE_SUPPORT') is null ))) then
2066: l_isCartSupp := 'Y';
2067: else
2068: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2069: IBE_Util.Debug('Cart level support turned off ');
2070: END IF;
2071: end if;
2072: -- Check for line level support
2065: ((FND_Profile.Value('IBE_USE_SUPPORT') = 'N') OR (FND_Profile.Value('IBE_USE_SUPPORT') is null ))) then
2066: l_isCartSupp := 'Y';
2067: else
2068: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2069: IBE_Util.Debug('Cart level support turned off ');
2070: END IF;
2071: end if;
2072: -- Check for line level support
2073: IF ((FND_Profile.Value('IBE_USE_SUPPORT') <> 'N') and
2072: -- Check for line level support
2073: IF ((FND_Profile.Value('IBE_USE_SUPPORT') <> 'N') and
2074: (FND_Profile.Value('IBE_USE_SUPPORT') is not null)) THEN
2075:
2076: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2077: IBE_Util.Debug('Line level support profile turned on');
2078: END IF;
2079: l_line_level_services := 'Y';
2080: ELSE
2073: IF ((FND_Profile.Value('IBE_USE_SUPPORT') <> 'N') and
2074: (FND_Profile.Value('IBE_USE_SUPPORT') is not null)) THEN
2075:
2076: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2077: IBE_Util.Debug('Line level support profile turned on');
2078: END IF;
2079: l_line_level_services := 'Y';
2080: ELSE
2081: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2077: IBE_Util.Debug('Line level support profile turned on');
2078: END IF;
2079: l_line_level_services := 'Y';
2080: ELSE
2081: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2082: IBE_Util.Debug('Line level support profile turned off');
2083: END IF;
2084: END IF;
2085:
2078: END IF;
2079: l_line_level_services := 'Y';
2080: ELSE
2081: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2082: IBE_Util.Debug('Line level support profile turned off');
2083: END IF;
2084: END IF;
2085:
2086: --DBMS_OUTPUT.PUT_line('l_isCartSupp='||l_isCartSupp);
2083: END IF;
2084: END IF;
2085:
2086: --DBMS_OUTPUT.PUT_line('l_isCartSupp='||l_isCartSupp);
2087: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2088: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2089: END IF;
2090:
2091: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2084: END IF;
2085:
2086: --DBMS_OUTPUT.PUT_line('l_isCartSupp='||l_isCartSupp);
2087: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2088: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2089: END IF;
2090:
2091: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2092: IBE_Util.Debug('l_line_level_services = '||l_line_level_services);
2087: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2088: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2089: END IF;
2090:
2091: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2092: IBE_Util.Debug('l_line_level_services = '||l_line_level_services);
2093: END IF;
2094:
2095: IF (p_Qte_Header_Rec.quote_header_id is null) THEN
2088: IBE_Util.Debug('l_isCartSupp='||l_isCartSupp);
2089: END IF;
2090:
2091: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2092: IBE_Util.Debug('l_line_level_services = '||l_line_level_services);
2093: END IF;
2094:
2095: IF (p_Qte_Header_Rec.quote_header_id is null) THEN
2096: l_isCartEmpty := 'Y';
2095: IF (p_Qte_Header_Rec.quote_header_id is null) THEN
2096: l_isCartEmpty := 'Y';
2097: END IF;
2098: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2099: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2100: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2101: END IF;
2102:
2103: --Cart level support logic
2096: l_isCartEmpty := 'Y';
2097: END IF;
2098: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2099: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2100: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2101: END IF;
2102:
2103: --Cart level support logic
2104: IF (l_isCartSupp = 'Y') THEN
2111: WHERE quote_header_id = p_Qte_Header_Rec.quote_header_id;
2112: END IF;
2113:
2114: --DBMS_OUTPUT.PUT_line('l_numLines='||l_numLines);
2115: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2116: IBE_Util.Debug('l_numLines='||l_numLines);
2117: END IF;
2118:
2119: IF ((l_isCartEmpty = 'Y') or (l_numLines = 0)) THEN
2112: END IF;
2113:
2114: --DBMS_OUTPUT.PUT_line('l_numLines='||l_numLines);
2115: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2116: IBE_Util.Debug('l_numLines='||l_numLines);
2117: END IF;
2118:
2119: IF ((l_isCartEmpty = 'Y') or (l_numLines = 0)) THEN
2120: l_isCartEmpty := 'Y';
2120: l_isCartEmpty := 'Y';
2121: END IF;
2122:
2123: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2124: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2125: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2126: END IF;
2127:
2128: IF ((p_Qte_Header_Rec.quote_header_id is not null)
2121: END IF;
2122:
2123: --DBMS_OUTPUT.PUT_line('l_isCartEmpty='||l_isCartEmpty);
2124: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2125: IBE_Util.Debug('l_isCartEmpty='||l_isCartEmpty);
2126: END IF;
2127:
2128: IF ((p_Qte_Header_Rec.quote_header_id is not null)
2129: and (p_Qte_Header_Rec.quote_header_id <> FND_API.G_MISS_NUM) ) THEN
2138: --Quote has serviceable items
2139: l_hasSVA := 'Y';
2140: END IF;
2141: --DBMS_OUTPUT.PUT_line('l_hasSVA='||l_hasSVA);
2142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2143: IBE_Util.Debug('l_hasSVA='||l_hasSVA);
2144: END IF;
2145:
2146: -- added 8/4/03: if merge case, we might not want to pass SRV info down
2139: l_hasSVA := 'Y';
2140: END IF;
2141: --DBMS_OUTPUT.PUT_line('l_hasSVA='||l_hasSVA);
2142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2143: IBE_Util.Debug('l_hasSVA='||l_hasSVA);
2144: END IF;
2145:
2146: -- added 8/4/03: if merge case, we might not want to pass SRV info down
2147: IF (p_combinesameitem = FND_API.G_MISS_CHAR) THEN
2171: IF ((p_ql_line_codes(i) = SERVICEABLE_LINE_CODE) and
2172: ((l_combinesameitem is null) or (l_combinesameitem = 'N') or (l_numLines = 0)) ) THEN -- SVA
2173:
2174: --DBMS_OUTPUT.PUT_line('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2175: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2176: IBE_Util.Debug('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2177: END IF;
2178:
2179: -- if we have not gotten a list of the support services and cart is not empty
2172: ((l_combinesameitem is null) or (l_combinesameitem = 'N') or (l_numLines = 0)) ) THEN -- SVA
2173:
2174: --DBMS_OUTPUT.PUT_line('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2175: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2176: IBE_Util.Debug('Service! p_ql_line_codes(i)='||SERVICEABLE_LINE_CODE);
2177: END IF;
2178:
2179: -- if we have not gotten a list of the support services and cart is not empty
2180: IF ((l_itemIdListSRV is null)
2179: -- if we have not gotten a list of the support services and cart is not empty
2180: IF ((l_itemIdListSRV is null)
2181: and (l_isCartEmpty = 'N') ) THEN
2182: --DBMS_OUTPUT.PUT_line('l_itemIdListSRV is null');
2183: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2184: IBE_Util.Debug('l_itemIdListSRV is null');
2185: END IF;
2186:
2187: l_svcIndex := 1;
2180: IF ((l_itemIdListSRV is null)
2181: and (l_isCartEmpty = 'N') ) THEN
2182: --DBMS_OUTPUT.PUT_line('l_itemIdListSRV is null');
2183: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2184: IBE_Util.Debug('l_itemIdListSRV is null');
2185: END IF;
2186:
2187: l_svcIndex := 1;
2188:
2192: l_itemIdListSRV := JTF_NUMBER_TABLE();
2193: END IF;
2194: IF (l_chkPrevRefLine is null) THEN -- if we're just starting
2195: --DBMS_OUTPUT.PUT_line('just starting: l_svcIndex ='||l_svcIndex);
2196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2197: IBE_Util.Debug('just starting: l_svcIndex ='||l_svcIndex);
2198: END IF;
2199:
2200: l_chkPrevRefLine := rec_service.refLine;
2193: END IF;
2194: IF (l_chkPrevRefLine is null) THEN -- if we're just starting
2195: --DBMS_OUTPUT.PUT_line('just starting: l_svcIndex ='||l_svcIndex);
2196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2197: IBE_Util.Debug('just starting: l_svcIndex ='||l_svcIndex);
2198: END IF;
2199:
2200: l_chkPrevRefLine := rec_service.refLine;
2201: l_itemIdListSRV.extend();
2203: l_svcIndex := l_svcIndex + 1;
2204: ELSE -- else we're not
2205: IF (l_chkPrevRefLine = rec_service.refLine) then -- if we have the same ref line as the previous
2206: --DBMS_OUTPUT.PUT_line('same ref line: l_svcIndex ='||l_svcIndex);
2207: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2208: IBE_Util.Debug('same ref line: l_svcIndex ='||l_svcIndex);
2209: END IF;
2210: l_itemIdListSRV.extend();
2211: l_itemIdListSRV(l_svcIndex) := rec_service.invId;
2204: ELSE -- else we're not
2205: IF (l_chkPrevRefLine = rec_service.refLine) then -- if we have the same ref line as the previous
2206: --DBMS_OUTPUT.PUT_line('same ref line: l_svcIndex ='||l_svcIndex);
2207: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2208: IBE_Util.Debug('same ref line: l_svcIndex ='||l_svcIndex);
2209: END IF;
2210: l_itemIdListSRV.extend();
2211: l_itemIdListSRV(l_svcIndex) := rec_service.invId;
2212: l_svcIndex := l_svcIndex + 1;
2211: l_itemIdListSRV(l_svcIndex) := rec_service.invId;
2212: l_svcIndex := l_svcIndex + 1;
2213: ELSE -- else we're done
2214: --DBMS_OUTPUT.PUT_line(' done: l_svcIndex ='||l_svcIndex);
2215: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2216: IBE_Util.Debug(' done: l_svcIndex ='||l_svcIndex);
2217: END IF;
2218: EXIT;
2219: END IF; --If we have the same service ref line as the previous one
2212: l_svcIndex := l_svcIndex + 1;
2213: ELSE -- else we're done
2214: --DBMS_OUTPUT.PUT_line(' done: l_svcIndex ='||l_svcIndex);
2215: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2216: IBE_Util.Debug(' done: l_svcIndex ='||l_svcIndex);
2217: END IF;
2218: EXIT;
2219: END IF; --If we have the same service ref line as the previous one
2220: END IF; --If (l_chkPrevRefLine is null)
2226: l_suppLevelLookupName := rtrim(ltrim(FND_Profile.Value('IBE_CART_LEVEL_SUPPORT_LOOKUP')));
2227: l_suppLevelProfileValue := rtrim(ltrim(FND_Profile.Value('IBE_PREFERED_SUPPORT_LEVEL')));
2228:
2229:
2230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2231: IBE_Util.Debug('Support Level Lookup Name: ' || l_suppLevelLookupName);
2232: IBE_Util.Debug('Prefered Support Level : ' || l_suppLevelProfileValue);
2233: END IF;
2234:
2227: l_suppLevelProfileValue := rtrim(ltrim(FND_Profile.Value('IBE_PREFERED_SUPPORT_LEVEL')));
2228:
2229:
2230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2231: IBE_Util.Debug('Support Level Lookup Name: ' || l_suppLevelLookupName);
2232: IBE_Util.Debug('Prefered Support Level : ' || l_suppLevelProfileValue);
2233: END IF;
2234:
2235: OPEN c_get_support_level(l_suppLevelLookupName,l_suppLevelProfileValue);
2228:
2229:
2230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2231: IBE_Util.Debug('Support Level Lookup Name: ' || l_suppLevelLookupName);
2232: IBE_Util.Debug('Prefered Support Level : ' || l_suppLevelProfileValue);
2233: END IF;
2234:
2235: OPEN c_get_support_level(l_suppLevelLookupName,l_suppLevelProfileValue);
2236: fetch c_get_support_level into support_level_check;
2248: l_itemIdListSRV := JTF_NUMBER_TABLE();
2249: l_profValueSize := length(l_suppLevelProfileValue);
2250: l_startIndex := 1;
2251: --DBMS_OUTPUT.PUT_line(' start: l_profValueSize ='||l_profValueSize);
2252: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2253: IBE_Util.Debug(' start: l_profValueSize ='||l_profValueSize);
2254: END IF;
2255:
2256: FOR firstItmIndx in 1..l_profValueSize LOOP
2249: l_profValueSize := length(l_suppLevelProfileValue);
2250: l_startIndex := 1;
2251: --DBMS_OUTPUT.PUT_line(' start: l_profValueSize ='||l_profValueSize);
2252: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2253: IBE_Util.Debug(' start: l_profValueSize ='||l_profValueSize);
2254: END IF;
2255:
2256: FOR firstItmIndx in 1..l_profValueSize LOOP
2257: l_commIndex := instr(l_suppLevelProfileValue, ',', 1, firstItmIndx);
2260: ELSE
2261: l_commIndex := l_commIndex - l_startIndex;
2262: END IF;
2263: --DBMS_OUTPUT.PUT_line(' l_startIndex ='||l_startIndex);
2264: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2265: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2266: END IF;
2267: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2261: l_commIndex := l_commIndex - l_startIndex;
2262: END IF;
2263: --DBMS_OUTPUT.PUT_line(' l_startIndex ='||l_startIndex);
2264: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2265: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2266: END IF;
2267: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2269: IBE_Util.Debug(' l_commIndex ='||l_commIndex);
2264: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2265: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2266: END IF;
2267: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2269: IBE_Util.Debug(' l_commIndex ='||l_commIndex);
2270: END IF;
2271:
2272: l_itemIdListSRV.extend();
2265: IBE_Util.Debug(' l_startIndex ='||l_startIndex);
2266: END IF;
2267: --DBMS_OUTPUT.PUT_line(' l_commIndex ='||l_commIndex);
2268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2269: IBE_Util.Debug(' l_commIndex ='||l_commIndex);
2270: END IF;
2271:
2272: l_itemIdListSRV.extend();
2273: --DBMS_OUTPUT.PUT_line(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2270: END IF;
2271:
2272: l_itemIdListSRV.extend();
2273: --DBMS_OUTPUT.PUT_line(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2274: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2275: IBE_Util.Debug(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2276: END IF;
2277: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2278: l_startIndex := l_startIndex + l_commIndex + 1;
2271:
2272: l_itemIdListSRV.extend();
2273: --DBMS_OUTPUT.PUT_line(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2274: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2275: IBE_Util.Debug(' substr(l_suppLevelProfileValue, l_startIndex, l_commIndex)='||substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2276: END IF;
2277: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2278: l_startIndex := l_startIndex + l_commIndex + 1;
2279: --DBMS_OUTPUT.PUT_line(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2276: END IF;
2277: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2278: l_startIndex := l_startIndex + l_commIndex + 1;
2279: --DBMS_OUTPUT.PUT_line(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2280: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2281: IBE_Util.Debug(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2282: END IF;
2283:
2284: IF (l_startIndex > l_profValueSize) THEN
2277: l_itemIdListSRV(firstItmIndx) := to_number(substr(l_suppLevelProfileValue, l_startIndex, l_commIndex));
2278: l_startIndex := l_startIndex + l_commIndex + 1;
2279: --DBMS_OUTPUT.PUT_line(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2280: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2281: IBE_Util.Debug(' l_itemIdListSRV(firstItmIndx)='||l_itemIdListSRV(firstItmIndx));
2282: END IF;
2283:
2284: IF (l_startIndex > l_profValueSize) THEN
2285: EXIT;
2322: l_periodListSRV.extend();
2323: l_periodListSRV(j) := rec_itemInfo.period;
2324: l_durationListSRV.extend();
2325: l_durationListSRV(j):= rec_itemInfo.duration;
2326: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2327: IBE_Util.Debug('Quertying mtl_sytem_items_vl the first time');
2328: END IF;
2329: END IF; -- if we haven't queried mtl_system_items_vl table
2330:
2323: l_periodListSRV(j) := rec_itemInfo.period;
2324: l_durationListSRV.extend();
2325: l_durationListSRV(j):= rec_itemInfo.duration;
2326: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2327: IBE_Util.Debug('Quertying mtl_sytem_items_vl the first time');
2328: END IF;
2329: END IF; -- if we haven't queried mtl_system_items_vl table
2330:
2331: l_Qte_Line_Tbl(l_quoteLineSize+j).quote_header_id := p_Qte_Header_Rec.quote_header_id;
2349:
2350: l_quoteLineSize := l_Qte_Line_Tbl.count;
2351: l_quoteLineDetSize := l_Qte_Line_Dtl_Tbl.count;
2352: --DBMS_OUTPUT.PUT_line('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2353: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2354: IBE_Util.Debug('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2355: END IF;
2356: END LOOP; -- loop through p_ql_line_codes
2357: END IF; -- if p_ql_line_codes is not null
2350: l_quoteLineSize := l_Qte_Line_Tbl.count;
2351: l_quoteLineDetSize := l_Qte_Line_Dtl_Tbl.count;
2352: --DBMS_OUTPUT.PUT_line('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2353: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2354: IBE_Util.Debug('i:'||i||' *inventory_item_id = '||l_Qte_Line_Tbl(i).inventory_item_id);
2355: END IF;
2356: END LOOP; -- loop through p_ql_line_codes
2357: END IF; -- if p_ql_line_codes is not null
2358: ELSIF(l_line_level_services = 'Y') THEN
2356: END LOOP; -- loop through p_ql_line_codes
2357: END IF; -- if p_ql_line_codes is not null
2358: ELSIF(l_line_level_services = 'Y') THEN
2359:
2360: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2361: IBE_Util.Debug('Entering the logic for line level support');
2362: END IF;
2363:
2364: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2357: END IF; -- if p_ql_line_codes is not null
2358: ELSIF(l_line_level_services = 'Y') THEN
2359:
2360: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2361: IBE_Util.Debug('Entering the logic for line level support');
2362: END IF;
2363:
2364: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2365: IBE_Util.Debug('IBE_QUOTE_MISC_PVT.get_multi_svc_profile: '||IBE_QUOTE_MISC_PVT.get_multi_svc_profile);
2360: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2361: IBE_Util.Debug('Entering the logic for line level support');
2362: END IF;
2363:
2364: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2365: IBE_Util.Debug('IBE_QUOTE_MISC_PVT.get_multi_svc_profile: '||IBE_QUOTE_MISC_PVT.get_multi_svc_profile);
2366: END IF;
2367:
2368: --CHANGES FOR LINE LEVEL SERVICES
2361: IBE_Util.Debug('Entering the logic for line level support');
2362: END IF;
2363:
2364: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2365: IBE_Util.Debug('IBE_QUOTE_MISC_PVT.get_multi_svc_profile: '||IBE_QUOTE_MISC_PVT.get_multi_svc_profile);
2366: END IF;
2367:
2368: --CHANGES FOR LINE LEVEL SERVICES
2369: IF(IBE_QUOTE_MISC_PVT.get_multi_svc_profile <> 'T') THEN
2368: --CHANGES FOR LINE LEVEL SERVICES
2369: IF(IBE_QUOTE_MISC_PVT.get_multi_svc_profile <> 'T') THEN
2370:
2371: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2372: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2373: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2374: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2375: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2376: END IF;
2369: IF(IBE_QUOTE_MISC_PVT.get_multi_svc_profile <> 'T') THEN
2370:
2371: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2372: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2373: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2374: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2375: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2376: END IF;
2377:
2370:
2371: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2372: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2373: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2374: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2375: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2376: END IF;
2377:
2378: IF(p_Qte_Line_Dtl_Tbl(i).service_ref_type_code <> 'CUSTOMER_PRODUCT')
2371: FOR i in 1..p_Qte_Line_Dtl_Tbl.count LOOP
2372: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2373: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||p_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2374: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).operation_code: '||p_Qte_Line_Dtl_Tbl(i).operation_code);
2375: IBE_Util.Debug('p_Qte_Line_Dtl_Tbl(i).service_ref_line_id: '||p_Qte_Line_Dtl_Tbl(i).service_ref_line_id);
2376: END IF;
2377:
2378: IF(p_Qte_Line_Dtl_Tbl(i).service_ref_type_code <> 'CUSTOMER_PRODUCT')
2379: and (p_Qte_Line_Dtl_Tbl(i).operation_code = 'CREATE') THEN
2383: p_Qte_Line_Dtl_Tbl(i).service_ref_line_id <> FND_API.g_miss_num) THEN
2384:
2385: FOR rec_find_service in c_find_service(p_Qte_Line_Dtl_Tbl(i).service_ref_line_id) LOOP
2386: l_quote_line_id := rec_find_service.quote_line_id;
2387: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2388: IBE_Util.Debug('service aleady exists,l_quote_line_id: '||l_quote_line_id);
2389: END IF;
2390:
2391: EXIT WHEN c_find_service%NOTFOUND;
2384:
2385: FOR rec_find_service in c_find_service(p_Qte_Line_Dtl_Tbl(i).service_ref_line_id) LOOP
2386: l_quote_line_id := rec_find_service.quote_line_id;
2387: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2388: IBE_Util.Debug('service aleady exists,l_quote_line_id: '||l_quote_line_id);
2389: END IF;
2390:
2391: EXIT WHEN c_find_service%NOTFOUND;
2392: END LOOP;
2392: END LOOP;
2393:
2394: IF(l_quote_line_id is not null) THEN
2395:
2396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2397: IBE_Util.Debug('Service item existing for the service item, deleting the existing one');
2398: END IF;
2399: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count+1).quote_line_id := l_quote_line_id;
2400: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count).operation_code := 'DELETE';
2393:
2394: IF(l_quote_line_id is not null) THEN
2395:
2396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2397: IBE_Util.Debug('Service item existing for the service item, deleting the existing one');
2398: END IF;
2399: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count+1).quote_line_id := l_quote_line_id;
2400: l_Qte_Line_Tbl(l_Qte_Line_Tbl.count).operation_code := 'DELETE';
2401: END IF; --(if l_quote_line_id is not null)
2409:
2410: l_ibeItemTypeSize := l_Qte_Line_Tbl.count;
2411: for i in 1..l_ibeItemTypeSize loop
2412: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2414: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2415: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2416: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2417: END IF;
2410: l_ibeItemTypeSize := l_Qte_Line_Tbl.count;
2411: for i in 1..l_ibeItemTypeSize loop
2412: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2414: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2415: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2416: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2417: END IF;
2418: end loop;
2411: for i in 1..l_ibeItemTypeSize loop
2412: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2414: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2415: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2416: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2417: END IF;
2418: end loop;
2419: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2412: --DBMS_OUTPUT.PUT_line('i:'||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id||' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2413: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2414: IBE_Util.Debug('i: '||i||' *invId = '||l_Qte_Line_Tbl(i).inventory_item_id);
2415: IBE_Util.Debug(' *type = '||l_Qte_Line_Tbl(i).item_type_code);
2416: IBE_Util.Debug('l_Qte_Line_Tbl(i).operation_code: '||l_Qte_Line_Tbl(i).operation_code);
2417: END IF;
2418: end loop;
2419: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2420: FOR i in 1..l_ibeItemTypeSize LOOP
2418: end loop;
2419: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2420: FOR i in 1..l_ibeItemTypeSize LOOP
2421: --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);
2422: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2423: 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);
2424: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2425: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2426: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2419: l_ibeItemTypeSize := l_Qte_Line_Dtl_Tbl.count;
2420: FOR i in 1..l_ibeItemTypeSize LOOP
2421: --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);
2422: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2423: 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);
2424: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2425: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2426: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2427: END IF;
2420: FOR i in 1..l_ibeItemTypeSize LOOP
2421: --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);
2422: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2423: 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);
2424: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2425: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2426: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2427: END IF;
2428: END LOOP;
2421: --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);
2422: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2423: 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);
2424: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2425: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2426: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2427: END IF;
2428: END LOOP;
2429:
2422: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2423: 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);
2424: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_period: '||l_Qte_Line_Dtl_Tbl(i).service_period);
2425: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_duration: '||l_Qte_Line_Dtl_Tbl(i).service_duration);
2426: IBE_Util.Debug('l_Qte_Line_Dtl_Tbl(i).service_ref_type_code: '||l_Qte_Line_Dtl_Tbl(i).service_ref_type_code);
2427: END IF;
2428: END LOOP;
2429:
2430: --Added during line level services.
2430: --Added during line level services.
2431: --1. if doing express checkout of items then the api below will retrieve exp settings
2432:
2433: IF(p_save_flag = SAVE_EXPRESSORDER) THEN
2434: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2435: IBE_Util.Debug(' Save_flag is: '||p_save_flag||' Calling IBE_ORD_ONECLICK_PVT.Get_Express_items_settings' );
2436: END IF;
2437:
2438: IBE_ORD_ONECLICK_PVT.Get_Express_items_settings(
2431: --1. if doing express checkout of items then the api below will retrieve exp settings
2432:
2433: IF(p_save_flag = SAVE_EXPRESSORDER) THEN
2434: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2435: IBE_Util.Debug(' Save_flag is: '||p_save_flag||' Calling IBE_ORD_ONECLICK_PVT.Get_Express_items_settings' );
2436: END IF;
2437:
2438: IBE_ORD_ONECLICK_PVT.Get_Express_items_settings(
2439: x_qte_header_rec => lx_Qte_Header_Rec
2455: AND (p_qte_header_rec.quote_name = 'IBE_PRMT_SC_UNNAMED' --MANNAMRA: 16/09/02:Changed IBEACTIVECART to IBEUNNAMED
2456: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR)
2457: AND (p_save_flag <> SAVE_EXPRESSORDER) THEN --Defaulting not required for express check out carts
2458:
2459: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2460: IBE_Util.Debug(' need to get active cart');
2461: END IF;
2462: l_checkActiveCartId :=
2463: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
2456: OR p_qte_header_rec.quote_name = FND_API.G_MISS_CHAR)
2457: AND (p_save_flag <> SAVE_EXPRESSORDER) THEN --Defaulting not required for express check out carts
2458:
2459: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2460: IBE_Util.Debug(' need to get active cart');
2461: END IF;
2462: l_checkActiveCartId :=
2463: IBE_Quote_Misc_pvt.Get_Active_Quote_ID(
2464: p_party_id => p_qte_header_rec.party_id,
2464: p_party_id => p_qte_header_rec.party_id,
2465: p_cust_account_id => p_qte_header_rec.cust_account_id);
2466: -- create quote
2467: IF (l_checkActiveCartId = 0) THEN
2468: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2469: IBE_Util.Debug('About to call getHdrDefaultValues');
2470: END IF;
2471: getHdrDefaultValues(
2472: P_Api_Version_Number => p_api_version_number
2465: p_cust_account_id => p_qte_header_rec.cust_account_id);
2466: -- create quote
2467: IF (l_checkActiveCartId = 0) THEN
2468: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2469: IBE_Util.Debug('About to call getHdrDefaultValues');
2470: END IF;
2471: getHdrDefaultValues(
2472: P_Api_Version_Number => p_api_version_number
2473: ,p_Init_Msg_List => p_init_msg_list
2503: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2505: END IF;
2506:
2507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2508: IBE_Util.Debug('Back from calling getHdrDefaultValues');
2509: END IF;
2510: END IF;
2511: END IF;
2504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2505: END IF;
2506:
2507: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2508: IBE_Util.Debug('Back from calling getHdrDefaultValues');
2509: END IF;
2510: END IF;
2511: END IF;
2512:
2511: END IF;
2512:
2513: --maithili added for R12
2514: /*Check for marketing source code id in the DB, ignore passed in value if DB value already exists */
2515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2516: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2517: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.quote_header_id'||lx_Qte_Header_Rec.quote_header_id);
2518: END IF;
2519: IF lx_Qte_Header_Rec.marketing_source_code_id is not null and
2512:
2513: --maithili added for R12
2514: /*Check for marketing source code id in the DB, ignore passed in value if DB value already exists */
2515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2516: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2517: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.quote_header_id'||lx_Qte_Header_Rec.quote_header_id);
2518: END IF;
2519: IF lx_Qte_Header_Rec.marketing_source_code_id is not null and
2520: lx_Qte_Header_Rec.marketing_source_code_id <> fnd_api.g_miss_num and
2513: --maithili added for R12
2514: /*Check for marketing source code id in the DB, ignore passed in value if DB value already exists */
2515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2516: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2517: IBE_Util.Debug('Mkt Source code check, lx_Qte_Header_Rec.quote_header_id'||lx_Qte_Header_Rec.quote_header_id);
2518: END IF;
2519: IF lx_Qte_Header_Rec.marketing_source_code_id is not null and
2520: lx_Qte_Header_Rec.marketing_source_code_id <> fnd_api.g_miss_num and
2521: lx_Qte_Header_Rec.quote_header_id is not null and
2524: OPEN c_get_marketing_source(lx_Qte_Header_Rec.quote_header_id);
2525: FETCH c_get_marketing_source into l_marketing_source_code_id;
2526: CLOSE c_get_marketing_source;
2527:
2528: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2529: IBE_Util.Debug('l_marketing_source_code_id'||l_marketing_source_code_id);
2530: END IF;
2531:
2532: IF (l_marketing_source_code_id is not null) THEN
2525: FETCH c_get_marketing_source into l_marketing_source_code_id;
2526: CLOSE c_get_marketing_source;
2527:
2528: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2529: IBE_Util.Debug('l_marketing_source_code_id'||l_marketing_source_code_id);
2530: END IF;
2531:
2532: IF (l_marketing_source_code_id is not null) THEN
2533: lx_Qte_Header_Rec.marketing_source_code_id := FND_API.G_MISS_NUM;
2532: IF (l_marketing_source_code_id is not null) THEN
2533: lx_Qte_Header_Rec.marketing_source_code_id := FND_API.G_MISS_NUM;
2534: END IF;
2535: END IF;
2536: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2537: IBE_Util.Debug('After Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2538: END IF;
2539:
2540: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2533: lx_Qte_Header_Rec.marketing_source_code_id := FND_API.G_MISS_NUM;
2534: END IF;
2535: END IF;
2536: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2537: IBE_Util.Debug('After Mkt Source code check, lx_Qte_Header_Rec.marketing_source_code_id'||lx_Qte_Header_Rec.marketing_source_code_id);
2538: END IF;
2539:
2540: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2541: IF lx_Hd_Price_Attributes_Tbl.count > 0 THEN -- check Duplicate Promo code stuff only if the pricing attr tbl is not null
2539:
2540: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2541: IF lx_Hd_Price_Attributes_Tbl.count > 0 THEN -- check Duplicate Promo code stuff only if the pricing attr tbl is not null
2542:
2543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2544: IBE_Util.Debug('Checking for duplicate promo codes'||lx_Hd_Price_Attributes_Tbl.count);
2545: END IF;
2546:
2547: l_Hd_Price_Attributes_Tbl_temp := lx_Hd_Price_Attributes_Tbl;
2540: /* Check Duplicate Header Promo Codes, If the passed in promo code value already exists in DB, then do not pass that */
2541: IF lx_Hd_Price_Attributes_Tbl.count > 0 THEN -- check Duplicate Promo code stuff only if the pricing attr tbl is not null
2542:
2543: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2544: IBE_Util.Debug('Checking for duplicate promo codes'||lx_Hd_Price_Attributes_Tbl.count);
2545: END IF;
2546:
2547: l_Hd_Price_Attributes_Tbl_temp := lx_Hd_Price_Attributes_Tbl;
2548:
2548:
2549: -- Query existing promo codes and populate them in DB array.
2550: FOR rec_pricing_attr_info in c_get_hdr_pricing_attributes(lx_Qte_Header_Rec.quote_header_id) LOOP
2551: l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 := rec_pricing_attr_info.pricing_attribute1;
2552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2553: IBE_UTIL.debug('Existing Promo code in DB = '|| l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 );
2554: IBE_UTIL.debug('pricing index = '|| l_pricingIndex );
2555: END IF;
2556: l_pricingIndex := l_pricingIndex + 1;
2549: -- Query existing promo codes and populate them in DB array.
2550: FOR rec_pricing_attr_info in c_get_hdr_pricing_attributes(lx_Qte_Header_Rec.quote_header_id) LOOP
2551: l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 := rec_pricing_attr_info.pricing_attribute1;
2552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2553: IBE_UTIL.debug('Existing Promo code in DB = '|| l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 );
2554: IBE_UTIL.debug('pricing index = '|| l_pricingIndex );
2555: END IF;
2556: l_pricingIndex := l_pricingIndex + 1;
2557:
2550: FOR rec_pricing_attr_info in c_get_hdr_pricing_attributes(lx_Qte_Header_Rec.quote_header_id) LOOP
2551: l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 := rec_pricing_attr_info.pricing_attribute1;
2552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2553: IBE_UTIL.debug('Existing Promo code in DB = '|| l_Hd_Price_Attributes_Tbl_DB(l_pricingIndex).pricing_attribute1 );
2554: IBE_UTIL.debug('pricing index = '|| l_pricingIndex );
2555: END IF;
2556: l_pricingIndex := l_pricingIndex + 1;
2557:
2558: EXIT WHEN c_get_hdr_pricing_attributes%NOTFOUND;
2563: AND l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1 <> FND_API.G_MISS_CHAR THEN
2564: For j IN 1..l_Hd_Price_Attributes_Tbl_DB.count LOOP
2565: If l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 IS NOT NULL AND
2566: l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1 = l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 THEN
2567: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2568: IBE_UTIL.debug('Duplicate Promo code = '|| l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1||' found, setting pricing attribute rec to G_MISS_CHAR' );
2569: END IF;
2570: lx_Hd_Price_Attributes_Tbl(i).pricing_attribute1 := FND_API.G_MISS_CHAR;
2571: lx_Hd_Price_Attributes_Tbl(i).flex_title := FND_API.G_MISS_CHAR;
2564: For j IN 1..l_Hd_Price_Attributes_Tbl_DB.count LOOP
2565: If l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 IS NOT NULL AND
2566: l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1 = l_Hd_Price_Attributes_Tbl_DB(j).pricing_attribute1 THEN
2567: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2568: IBE_UTIL.debug('Duplicate Promo code = '|| l_Hd_Price_Attributes_Tbl_temp(i).pricing_attribute1||' found, setting pricing attribute rec to G_MISS_CHAR' );
2569: END IF;
2570: lx_Hd_Price_Attributes_Tbl(i).pricing_attribute1 := FND_API.G_MISS_CHAR;
2571: lx_Hd_Price_Attributes_Tbl(i).flex_title := FND_API.G_MISS_CHAR;
2572: lx_Hd_Price_Attributes_Tbl(i).pricing_context := FND_API.G_MISS_CHAR ;
2576: END LOOP; -- for j loop
2577: END IF; -- for checking not null check for temp array
2578: END LOOP;
2579:
2580: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2581: IBE_Util.Debug('Before Save, lx_Hd_Price_Attributes_Tbl.count'||lx_Hd_Price_Attributes_Tbl.count);
2582: END IF;
2583: END IF;
2584:
2577: END IF; -- for checking not null check for temp array
2578: END LOOP;
2579:
2580: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2581: IBE_Util.Debug('Before Save, lx_Hd_Price_Attributes_Tbl.count'||lx_Hd_Price_Attributes_Tbl.count);
2582: END IF;
2583: END IF;
2584:
2585: Save(
2664: /*mannamra: Chnages for MOAC : Bug 4682364*/
2665: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
2666: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
2667: --
2668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2669: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2670: end if;
2671: IF (l_contract_template_id is not null) THEN
2672:
2665: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
2666: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
2667: --
2668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2669: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2670: end if;
2671: IF (l_contract_template_id is not null) THEN
2672:
2673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2669: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2670: end if;
2671: IF (l_contract_template_id is not null) THEN
2672:
2673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2674: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2675: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2676: END IF;
2677:
2670: end if;
2671: IF (l_contract_template_id is not null) THEN
2672:
2673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2674: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2675: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2676: END IF;
2677:
2678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2671: IF (l_contract_template_id is not null) THEN
2672:
2673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2674: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2675: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2676: END IF;
2677:
2678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2679: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2674: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2675: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2676: END IF;
2677:
2678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2679: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2680: END IF;
2681:
2682: OKC_TERMS_UTIL_GRP.get_translated_template(
2675: IBE_UTIL.debug('Before calling OKC_TERMS_COPY_GRP.copy_terms_api, quoteheaderId = '||x_quote_header_id);
2676: END IF;
2677:
2678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2679: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
2680: END IF;
2681:
2682: OKC_TERMS_UTIL_GRP.get_translated_template(
2683: p_api_version => 1.0,
2696: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2698: END IF;
2699:
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_templ_id);
2702: IBE_UTIL.debug('After calling OKC_TERMS_UTIL_GRP. get_translated_template(), quoteheaderId = '||lx_Qte_Header_Rec.quote_header_id);
2703: END IF;
2704:
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2698: END IF;
2699:
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_templ_id);
2702: IBE_UTIL.debug('After calling OKC_TERMS_UTIL_GRP. get_translated_template(), quoteheaderId = '||lx_Qte_Header_Rec.quote_header_id);
2703: END IF;
2704:
2705: OKC_TERMS_COPY_GRP.copy_terms(
2698: END IF;
2699:
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_templ_id);
2702: IBE_UTIL.debug('After calling OKC_TERMS_UTIL_GRP. get_translated_template(), quoteheaderId = '||lx_Qte_Header_Rec.quote_header_id);
2703: END IF;
2704:
2705: OKC_TERMS_COPY_GRP.copy_terms(
2706: p_api_version =>1.0
2712: ,x_return_status => x_return_status
2713: ,x_msg_count => x_msg_count
2714: ,x_msg_data => x_msg_data);
2715:
2716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2717: IBE_UTIL.debug('After copy_terms api, return status = '||x_return_status);
2718: END IF;
2719: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2720: RAISE FND_API.G_EXC_ERROR;
2713: ,x_msg_count => x_msg_count
2714: ,x_msg_data => x_msg_data);
2715:
2716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2717: IBE_UTIL.debug('After copy_terms api, return status = '||x_return_status);
2718: END IF;
2719: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2720: RAISE FND_API.G_EXC_ERROR;
2721: END IF;
2736: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2737: p_count => x_msg_count ,
2738: p_data => x_msg_data);
2739:
2740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2741: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2742: END IF;
2743: -- IBE_Util.Disable_Debug;
2744:
2737: p_count => x_msg_count ,
2738: p_data => x_msg_data);
2739:
2740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2741: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2742: END IF;
2743: -- IBE_Util.Disable_Debug;
2744:
2745: EXCEPTION
2739:
2740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2741: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2742: END IF;
2743: -- IBE_Util.Disable_Debug;
2744:
2745: EXCEPTION
2746: WHEN FND_API.G_EXC_ERROR THEN
2747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2743: -- IBE_Util.Disable_Debug;
2744:
2745: EXCEPTION
2746: WHEN FND_API.G_EXC_ERROR THEN
2747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2748: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2749: END IF;
2750:
2751: ROLLBACK TO AddItemsToCartorig_pvt;
2744:
2745: EXCEPTION
2746: WHEN FND_API.G_EXC_ERROR THEN
2747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2748: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2749: END IF;
2750:
2751: ROLLBACK TO AddItemsToCartorig_pvt;
2752: x_return_status := FND_API.G_RET_STS_ERROR;
2753: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2754: p_count => x_msg_count ,
2755: p_data => x_msg_data);
2756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2757: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2758: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2759: END IF;
2760:
2761: ROLLBACK TO AddItemsToCartorig_pvt;
2754: p_count => x_msg_count ,
2755: p_data => x_msg_data);
2756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2757: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2758: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2759: END IF;
2760:
2761: ROLLBACK TO AddItemsToCartorig_pvt;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2764: p_count => x_msg_count ,
2765: p_data => x_msg_data);
2766: WHEN OTHERS THEN
2767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2768: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2769: END IF;
2770:
2771: ROLLBACK TO AddItemsToCartorig_pvt;
2764: p_count => x_msg_count ,
2765: p_data => x_msg_data);
2766: WHEN OTHERS THEN
2767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2768: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart_orig()');
2769: END IF;
2770:
2771: ROLLBACK TO AddItemsToCartorig_pvt;
2772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2819:
2820: str_database_id := '
2821: str_session_ticket :='
2822: str_context_org_id :='
2823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2824: IBE_Util.Debug('The Model item id passed to batch validate is '||to_char(p_model_item_id));
2825: END IF;
2826: str_model_id := '
2827:
2820: str_database_id := '
2821: str_session_ticket :='
2822: str_context_org_id :='
2823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2824: IBE_Util.Debug('The Model item id passed to batch validate is '||to_char(p_model_item_id));
2825: END IF;
2826: str_model_id := '
2827:
2828: str_model_quantity :='
2840: str_xml_string := str_xml_string || str_calling_appl_id||str_responsibility_id;
2841: str_xml_string := str_xml_string||str_save_config_behaviour||str_teminate_msg_behavior;
2842: str_xml_string := str_xml_string||str_sbm_sbm_flag||str_sbm_client_header||str_sbm_client_line||'';
2843:
2844: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2845: IBE_Util.Debug('The init msg string from get_xml_for_validate:'||str_xml_string);
2846: END IF;
2847: return str_xml_string;
2848: end get_xml_for_validate;
2841: str_xml_string := str_xml_string||str_save_config_behaviour||str_teminate_msg_behavior;
2842: str_xml_string := str_xml_string||str_sbm_sbm_flag||str_sbm_client_header||str_sbm_client_line||'';
2843:
2844: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2845: IBE_Util.Debug('The init msg string from get_xml_for_validate:'||str_xml_string);
2846: END IF;
2847: return str_xml_string;
2848: end get_xml_for_validate;
2849:
2958: l_bundle_counter number := 0;
2959:
2960:
2961: BEGIN
2962: -- IBE_Util.Enable_Debug;
2963: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2964: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
2965: END IF;
2966:
2959:
2960:
2961: BEGIN
2962: -- IBE_Util.Enable_Debug;
2963: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2964: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
2965: END IF;
2966:
2967: -- Standard Start of API savepoint
2960:
2961: BEGIN
2962: -- IBE_Util.Enable_Debug;
2963: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2964: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
2965: END IF;
2966:
2967: -- Standard Start of API savepoint
2968: SAVEPOINT ADDITEMSTOCART_pvt;
3014: l_number_of_bundles := l_number_of_bundles +1;
3015: end if;
3016: end loop;
3017: else
3018: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3019: IBE_Util.Debug('no line codes');
3020: END IF;
3021: end if;
3022: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3015: end if;
3016: end loop;
3017: else
3018: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3019: IBE_Util.Debug('no line codes');
3020: END IF;
3021: end if;
3022: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3023: IBE_Util.Debug('l_number_of_bundles : '||l_number_of_bundles);
3018: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3019: IBE_Util.Debug('no line codes');
3020: END IF;
3021: end if;
3022: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3023: IBE_Util.Debug('l_number_of_bundles : '||l_number_of_bundles);
3024: END IF;
3025:
3026: if (l_number_of_bundles = 0) then
3019: IBE_Util.Debug('no line codes');
3020: END IF;
3021: end if;
3022: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3023: IBE_Util.Debug('l_number_of_bundles : '||l_number_of_bundles);
3024: END IF;
3025:
3026: if (l_number_of_bundles = 0) then
3027: -- if no bundles, set to price in the first additemstocart_orig call
3037: end if;
3038: -- Compulsory call to AddItemsToCart_orig - this call will take care of all
3039: -- standard, service, ui model, and model of the bundle items
3040: /*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*/
3041: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3042: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
3043: END IF;
3044: AddItemsToCart_orig (
3045: P_Api_Version_Number => P_Api_version_number
3038: -- Compulsory call to AddItemsToCart_orig - this call will take care of all
3039: -- standard, service, ui model, and model of the bundle items
3040: /*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*/
3041: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3042: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.AddItemsToCart_orig()');
3043: END IF;
3044: AddItemsToCart_orig (
3045: P_Api_Version_Number => P_Api_version_number
3046: ,p_Init_Msg_List => p_init_msg_list
3078: ,X_Return_Status => x_return_status
3079: ,X_Msg_Count => lx_msg_count
3080: ,X_Msg_Data => lx_msg_data
3081: );
3082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3083: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig() : ' || x_return_status);
3084: END IF;
3085:
3086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3079: ,X_Msg_Count => lx_msg_count
3080: ,X_Msg_Data => lx_msg_data
3081: );
3082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3083: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart_orig() : ' || x_return_status);
3084: END IF;
3085:
3086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3087: RAISE FND_API.G_EXC_ERROR;
3104: l_bundle_counter := l_bundle_counter +1;
3105:
3106: /*reset the state of control record for the last bundle*/
3107: if(l_bundle_counter = l_number_of_bundles) then
3108: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3109: IBE_Util.Debug('restoring control record for pricing');
3110: END IF;
3111: l_control_rec := p_control_rec;
3112: end if;
3105:
3106: /*reset the state of control record for the last bundle*/
3107: if(l_bundle_counter = l_number_of_bundles) then
3108: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3109: IBE_Util.Debug('restoring control record for pricing');
3110: END IF;
3111: l_control_rec := p_control_rec;
3112: end if;
3113:
3111: l_control_rec := p_control_rec;
3112: end if;
3113:
3114: /*Call Batch validation program here*/
3115: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3116: IBE_Util.Debug('Begin cz_cf_api.validate');
3117: END IF;
3118: cz_cf_api.validate(config_input_list =>l_cfg_input_list,
3119: init_message =>get_xml_for_validate(x_qte_line_tbl(loop_count).inventory_item_id,
3112: end if;
3113:
3114: /*Call Batch validation program here*/
3115: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3116: IBE_Util.Debug('Begin cz_cf_api.validate');
3117: END IF;
3118: cz_cf_api.validate(config_input_list =>l_cfg_input_list,
3119: init_message =>get_xml_for_validate(x_qte_line_tbl(loop_count).inventory_item_id,
3120: x_qte_line_tbl(loop_count).quantity,
3123: x_qte_line_tbl(loop_count).quote_line_id),
3124: config_messages =>lx_cfg_output_pieces,
3125: validation_status =>l_validation_status,
3126: url =>l_servlet_url);
3127: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3128: IBE_Util.Debug('End cz_cf_api.validate');
3129: END IF;
3130: /*Parse the XML message for config_header_id, config_rev_num returned by the Batch validate program*/
3131: lx_xml_from_validate := lx_cfg_output_pieces(1);
3124: config_messages =>lx_cfg_output_pieces,
3125: validation_status =>l_validation_status,
3126: url =>l_servlet_url);
3127: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3128: IBE_Util.Debug('End cz_cf_api.validate');
3129: END IF;
3130: /*Parse the XML message for config_header_id, config_rev_num returned by the Batch validate program*/
3131: lx_xml_from_validate := lx_cfg_output_pieces(1);
3132: l_config_header_id := to_number(substr(lx_xml_from_validate,(instr(lx_xml_from_validate, '
3137: l_qte_line_rec := x_qte_line_tbl(loop_count);
3138:
3139: /*Error handling if cz_cf_api.validate failed*/
3140: IF (l_config_header_id is NULL) THEN
3141: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3142: IBE_Util.Debug('Error in CZ_CF_API.Validate:Printing the terminate string: '||lx_xml_from_validate);
3143: END IF;
3144: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3145: FND_Message.Set_Name('IBE','IBE_DSP_GENERIC_ERROR_TXT');
3138:
3139: /*Error handling if cz_cf_api.validate failed*/
3140: IF (l_config_header_id is NULL) THEN
3141: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3142: IBE_Util.Debug('Error in CZ_CF_API.Validate:Printing the terminate string: '||lx_xml_from_validate);
3143: END IF;
3144: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
3145: FND_Message.Set_Name('IBE','IBE_DSP_GENERIC_ERROR_TXT');
3146: FND_Message.Set_Token('IBE_DSP_GENERIC_ERROR_TXT',lx_xml_from_validate);
3149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3150: END IF;
3151:
3152:
3153: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3154: IBE_Util.Debug('Printing values obtained from batch validation');
3155: IBE_Util.Debug('Config header id: '||l_config_header_id);
3156: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3157: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3150: END IF;
3151:
3152:
3153: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3154: IBE_Util.Debug('Printing values obtained from batch validation');
3155: IBE_Util.Debug('Config header id: '||l_config_header_id);
3156: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3157: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3158: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3151:
3152:
3153: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3154: IBE_Util.Debug('Printing values obtained from batch validation');
3155: IBE_Util.Debug('Config header id: '||l_config_header_id);
3156: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3157: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3158: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3159: END IF;
3152:
3153: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3154: IBE_Util.Debug('Printing values obtained from batch validation');
3155: IBE_Util.Debug('Config header id: '||l_config_header_id);
3156: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3157: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3158: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3159: END IF;
3160:
3153: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3154: IBE_Util.Debug('Printing values obtained from batch validation');
3155: IBE_Util.Debug('Config header id: '||l_config_header_id);
3156: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3157: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3158: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3159: END IF;
3160:
3161: l_Qte_Line_Dtl_rec.quote_line_id := x_qte_line_tbl(loop_count).quote_line_id;
3154: IBE_Util.Debug('Printing values obtained from batch validation');
3155: IBE_Util.Debug('Config header id: '||l_config_header_id);
3156: IBE_Util.Debug('Config rev num: '||l_config_rev_num);
3157: IBE_Util.Debug('Valid config flag: '||l_valid_config_flag);
3158: IBE_Util.Debug('Complete config flag: '||l_complete_config_flag);
3159: END IF;
3160:
3161: l_Qte_Line_Dtl_rec.quote_line_id := x_qte_line_tbl(loop_count).quote_line_id;
3162: if l_complete_config_flag = 'true' then
3169: else
3170: l_Qte_Line_Dtl_rec.Valid_configuration_flag := 'N';
3171: end if;
3172:
3173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3174: IBE_Util.Debug('Begin ASO_CFG_PUB.get_config_details');
3175: END IF;
3176: /*Call GET_CONFIG_DETAILS here*/
3177: aso_cfg_pub.get_config_details(P_Api_Version_Number => P_Api_Version_Number,
3170: l_Qte_Line_Dtl_rec.Valid_configuration_flag := 'N';
3171: end if;
3172:
3173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3174: IBE_Util.Debug('Begin ASO_CFG_PUB.get_config_details');
3175: END IF;
3176: /*Call GET_CONFIG_DETAILS here*/
3177: aso_cfg_pub.get_config_details(P_Api_Version_Number => P_Api_Version_Number,
3178: P_Init_Msg_List => P_Init_Msg_List,
3186: x_return_status => x_return_status,
3187: x_msg_count => x_msg_count,
3188: x_msg_data => x_msg_data
3189: );
3190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3191: IBE_Util.Debug('End ASO_CFG_PUB.get_config_details : ' || x_return_status);
3192: END IF;
3193:
3194: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3187: x_msg_count => x_msg_count,
3188: x_msg_data => x_msg_data
3189: );
3190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3191: IBE_Util.Debug('End ASO_CFG_PUB.get_config_details : ' || x_return_status);
3192: END IF;
3193:
3194: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3200: END IF;
3201: end if; -- end if bundle
3202: end loop; -- end bundle loop over line records from the 1st call to add models
3203: end if; -- end if l_have_bundle_Flag = true
3204: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3205: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3206: END IF;
3207:
3208: EXCEPTION
3201: end if; -- end if bundle
3202: end loop; -- end bundle loop over line records from the 1st call to add models
3203: end if; -- end if l_have_bundle_Flag = true
3204: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3205: IBE_Util.Debug('End IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3206: END IF;
3207:
3208: EXCEPTION
3209: WHEN FND_API.G_EXC_ERROR THEN
3206: END IF;
3207:
3208: EXCEPTION
3209: WHEN FND_API.G_EXC_ERROR THEN
3210: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3211: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3212: END IF;
3213:
3214: ROLLBACK TO ADDITEMSTOCART_pvt;
3207:
3208: EXCEPTION
3209: WHEN FND_API.G_EXC_ERROR THEN
3210: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3211: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3212: END IF;
3213:
3214: ROLLBACK TO ADDITEMSTOCART_pvt;
3215: x_return_status := FND_API.G_RET_STS_ERROR;
3217: p_count => x_msg_count ,
3218: p_data => x_msg_data);
3219:
3220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3221: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3222: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3223: END IF;
3224: ROLLBACK TO ADDITEMSTOCART_pvt;
3225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3218: p_data => x_msg_data);
3219:
3220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3221: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3222: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.AddItemsToCart() (new one)');
3223: END IF;
3224: ROLLBACK TO ADDITEMSTOCART_pvt;
3225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3226: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3227: p_count => x_msg_count ,
3228: p_data => x_msg_data);
3229:
3230: WHEN OTHERS THEN
3231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3232: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart) (new one)');
3233: END IF;
3234: ROLLBACK TO ADDITEMSTOCART_pvt;
3235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3228: p_data => x_msg_data);
3229:
3230: WHEN OTHERS THEN
3231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3232: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.AddItemsToCart) (new one)');
3233: END IF;
3234: ROLLBACK TO ADDITEMSTOCART_pvt;
3235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3236: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3276:
3277: l_Qte_Line_Tbl := p_qte_line_tbl;
3278: l_pmt_rec_counter := 1;
3279:
3280: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3281: ibe_util.debug('Entered get_termid_pricelistid');
3282: END IF;
3283: if (l_qte_line_tbl.count = 0) then
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3277: l_Qte_Line_Tbl := p_qte_line_tbl;
3278: l_pmt_rec_counter := 1;
3279:
3280: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3281: ibe_util.debug('Entered get_termid_pricelistid');
3282: END IF;
3283: if (l_qte_line_tbl.count = 0) then
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3285: ibe_util.debug('Quote_line_table is empty');
3280: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3281: ibe_util.debug('Entered get_termid_pricelistid');
3282: END IF;
3283: if (l_qte_line_tbl.count = 0) then
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3285: ibe_util.debug('Quote_line_table is empty');
3286: END IF;
3287: end if;
3288:
3281: ibe_util.debug('Entered get_termid_pricelistid');
3282: END IF;
3283: if (l_qte_line_tbl.count = 0) then
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3285: ibe_util.debug('Quote_line_table is empty');
3286: END IF;
3287: end if;
3288:
3289: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3287: end if;
3288:
3289: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3290:
3291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3292: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3293: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3294: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3295: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3288:
3289: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3290:
3291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3292: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3293: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3294: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3295: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3296: END IF;
3289: for l_ql_loop_counter in 1..l_qte_line_tbl.count loop
3290:
3291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3292: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3293: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3294: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3295: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3296: END IF;
3297:
3290:
3291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3292: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3293: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3294: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3295: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3296: END IF;
3297:
3298: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3292: ibe_util.debug('Quote header id is : '||l_qte_line_tbl(l_ql_loop_counter).quote_header_id);
3293: ibe_util.debug('Quote line id is: '||l_qte_line_tbl(l_ql_loop_counter).quote_line_id);
3294: ibe_util.debug('Quote line loop counter: '||l_ql_loop_counter);
3295: ibe_util.debug('Agreement Id detected is : '||l_qte_line_tbl(l_ql_loop_counter).agreement_id);
3296: END IF;
3297:
3298: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3299: and (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3297:
3298: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3299: and (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3300: --if the agreement id has a value in the quote_line_tbl
3301: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3302: ibe_util.debug('Non Empty agreement value');
3303: END IF;
3304: for rec_term_pricelist in c_term_pricelist(l_qte_line_tbl(l_ql_loop_counter).agreement_id) loop
3305: --retrieve price_list_id from oe_agreements
3298: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is not null)
3299: and (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3300: --if the agreement id has a value in the quote_line_tbl
3301: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3302: ibe_util.debug('Non Empty agreement value');
3303: END IF;
3304: for rec_term_pricelist in c_term_pricelist(l_qte_line_tbl(l_ql_loop_counter).agreement_id) loop
3305: --retrieve price_list_id from oe_agreements
3306: l_price_list_id := rec_term_pricelist.price_list_id;
3307: l_term_id := rec_term_pricelist.term_id;
3308: end loop;
3309: elsif (l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) then
3310: -- If agreement_id is null in the quote_line_tbl then anull price_list_id and payment_term_id
3311: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3312: ibe_util.debug('NULL Agreement value');
3313: END IF;
3314: l_price_list_id := null;
3315: l_term_id := null;
3308: end loop;
3309: elsif (l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) then
3310: -- If agreement_id is null in the quote_line_tbl then anull price_list_id and payment_term_id
3311: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3312: ibe_util.debug('NULL Agreement value');
3313: END IF;
3314: l_price_list_id := null;
3315: l_term_id := null;
3316: end if;
3314: l_price_list_id := null;
3315: l_term_id := null;
3316: end if;
3317:
3318: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3319: ibe_util.debug('l_price_list_id : '||l_price_list_id);
3320: ibe_util.debug('l_term_id : '||l_term_id );
3321: END IF;
3322:
3315: l_term_id := null;
3316: end if;
3317:
3318: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3319: ibe_util.debug('l_price_list_id : '||l_price_list_id);
3320: ibe_util.debug('l_term_id : '||l_term_id );
3321: END IF;
3322:
3323: -- this if goes to the end of the loop since we have no continue operator
3316: end if;
3317:
3318: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3319: ibe_util.debug('l_price_list_id : '||l_price_list_id);
3320: ibe_util.debug('l_term_id : '||l_term_id );
3321: END IF;
3322:
3323: -- this if goes to the end of the loop since we have no continue operator
3324: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) or
3323: -- this if goes to the end of the loop since we have no continue operator
3324: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) or
3325: (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3326:
3327: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3328: ibe_util.debug('Processing agreement id info - either null or number');
3329: END IF;
3330: -- take care of price list id
3331: l_qte_line_tbl(l_ql_loop_counter).price_list_id := l_price_list_id;
3324: if ((l_qte_line_tbl(l_ql_loop_counter).agreement_id is null) or
3325: (l_qte_line_tbl(l_ql_loop_counter).agreement_id <> fnd_api.g_miss_num)) then
3326:
3327: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3328: ibe_util.debug('Processing agreement id info - either null or number');
3329: END IF;
3330: -- take care of price list id
3331: l_qte_line_tbl(l_ql_loop_counter).price_list_id := l_price_list_id;
3332:
3340: l_payment_id := rec_payment_id.payment_id;
3341: exit when c_payment_id%notfound;
3342: end loop;
3343:
3344: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3345: ibe_util.debug('l_payment_id : '||l_payment_id );
3346: END IF;
3347: -- prep the current payment record
3348: l_found_input_rec := FND_API.G_FALSE;
3341: exit when c_payment_id%notfound;
3342: end loop;
3343:
3344: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3345: ibe_util.debug('l_payment_id : '||l_payment_id );
3346: END IF;
3347: -- prep the current payment record
3348: l_found_input_rec := FND_API.G_FALSE;
3349: if (p_ln_payment_tbl.count > 0 ) then
3350: --loop through the payment table to identify the right qte_header_id and qte_line_id as in the line_record
3351: for l_pmt_loop_counter in 1..p_ln_payment_tbl.count loop
3352: if((p_ln_payment_tbl(l_pmt_loop_counter).quote_header_id = l_qte_line_tbl(l_ql_loop_counter).quote_header_id)
3353: and (p_ln_payment_tbl(l_pmt_loop_counter).quote_line_id = l_qte_line_tbl(l_ql_loop_counter).quote_line_id)) then
3354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3355: ibe_util.debug('Found a passed in payment record.');
3356: END IF;
3357: l_found_input_rec := FND_API.G_TRUE;
3358: l_ln_payment_tbl(l_pmt_rec_counter) := p_ln_payment_tbl(l_pmt_loop_counter);
3351: for l_pmt_loop_counter in 1..p_ln_payment_tbl.count loop
3352: if((p_ln_payment_tbl(l_pmt_loop_counter).quote_header_id = l_qte_line_tbl(l_ql_loop_counter).quote_header_id)
3353: and (p_ln_payment_tbl(l_pmt_loop_counter).quote_line_id = l_qte_line_tbl(l_ql_loop_counter).quote_line_id)) then
3354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3355: ibe_util.debug('Found a passed in payment record.');
3356: END IF;
3357: l_found_input_rec := FND_API.G_TRUE;
3358: l_ln_payment_tbl(l_pmt_rec_counter) := p_ln_payment_tbl(l_pmt_loop_counter);
3359: l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id := l_term_id;
3364:
3365: if ((l_found_input_rec = FND_API.G_FALSE) or
3366: (l_ln_payment_tbl(l_pmt_rec_counter).operation_code <> 'DELETE')) then
3367: if (l_payment_id <> fnd_api.g_miss_num ) then
3368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3369: ibe_util.debug('Operation code is UPDATE');
3370: END IF;
3371: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'UPDATE';
3372: l_ln_payment_tbl(l_pmt_rec_counter).payment_id := l_payment_id;
3365: if ((l_found_input_rec = FND_API.G_FALSE) or
3366: (l_ln_payment_tbl(l_pmt_rec_counter).operation_code <> 'DELETE')) then
3367: if (l_payment_id <> fnd_api.g_miss_num ) then
3368: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3369: ibe_util.debug('Operation code is UPDATE');
3370: END IF;
3371: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'UPDATE';
3372: l_ln_payment_tbl(l_pmt_rec_counter).payment_id := l_payment_id;
3373: l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id := l_qte_line_tbl(l_ql_loop_counter).quote_header_id;
3375: l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id := l_term_id;
3376: l_pmt_rec_counter := l_pmt_rec_counter + 1; --increment the payment table record counter
3377: else
3378: if ((l_term_id is not null) and (l_term_id <> fnd_api.g_miss_num)) then
3379: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3380: ibe_util.debug('Operation code is CREATE');
3381: END IF;
3382: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'CREATE';
3383: l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id := l_qte_line_tbl(l_ql_loop_counter).quote_header_id;
3376: l_pmt_rec_counter := l_pmt_rec_counter + 1; --increment the payment table record counter
3377: else
3378: if ((l_term_id is not null) and (l_term_id <> fnd_api.g_miss_num)) then
3379: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3380: ibe_util.debug('Operation code is CREATE');
3381: END IF;
3382: l_ln_payment_tbl(l_pmt_rec_counter).operation_code := 'CREATE';
3383: l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id := l_qte_line_tbl(l_ql_loop_counter).quote_header_id;
3384: l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id := l_qte_line_tbl(l_ql_loop_counter).quote_line_id;
3388: end if;
3389: end if;
3390:
3391:
3392: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3393: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3394: END IF;
3395: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3389: end if;
3390:
3391:
3392: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3393: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3394: END IF;
3395: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3392: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3393: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3394: END IF;
3395: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3393: ibe_util.debug('OUT: l_pmt_rec_counter : '||l_pmt_rec_counter);
3394: END IF;
3395: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3401: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3394: END IF;
3395: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3401: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3402: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3395: if (l_ln_payment_tbl.count >= l_pmt_rec_counter) then
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3401: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3402: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3403: END IF;
3396: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3401: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3402: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3403: END IF;
3404: end if;
3397: ibe_util.debug('OUT: operation_code : '||l_ln_payment_tbl(l_pmt_rec_counter).operation_code);
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3401: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3402: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3403: END IF;
3404: end if;
3405:
3398: ibe_util.debug('OUT: quote_header_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_header_id);
3399: ibe_util.debug('OUT: quote_line_id : '||l_ln_payment_tbl(l_pmt_rec_counter).quote_line_id);
3400: ibe_util.debug('OUT: payment_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_id);
3401: ibe_util.debug('OUT: payment_term_id : '||l_ln_payment_tbl(l_pmt_rec_counter).payment_term_id);
3402: ibe_util.debug('OUT: price_list_id : '||l_qte_line_tbl(l_ql_loop_counter).price_list_id );
3403: END IF;
3404: end if;
3405:
3406: --l_pmt_rec_counter := l_pmt_rec_counter + 1; --increment the payment table record counter
3445: L_expiration_date date:= fnd_api.g_miss_date;
3446:
3447: Begin
3448:
3449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3450: ibe_util.debug('Begin IEB_QUOTE_SAVE_pvt.GET_QUOTE_EXPIRATION_DATE()');
3451: END IF;
3452:
3453: -- Standard Start of API savepoint
3446:
3447: Begin
3448:
3449: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3450: ibe_util.debug('Begin IEB_QUOTE_SAVE_pvt.GET_QUOTE_EXPIRATION_DATE()');
3451: END IF;
3452:
3453: -- Standard Start of API savepoint
3454: SAVEPOINT Get_quote_exp_date_pvt;
3471: x_return_status := FND_API.G_RET_STS_SUCCESS;
3472:
3473: --API Body
3474: x_expiration_date := fnd_api.g_miss_date;
3475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3476: IBE_UTIL.debug('Incoming quote name into get_quote_exp_date is '||p_quote_header_rec.quote_name);
3477: END IF;
3478: --If no resource id in the quote header rec then check for one in the database
3479: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3472:
3473: --API Body
3474: x_expiration_date := fnd_api.g_miss_date;
3475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3476: IBE_UTIL.debug('Incoming quote name into get_quote_exp_date is '||p_quote_header_rec.quote_name);
3477: END IF;
3478: --If no resource id in the quote header rec then check for one in the database
3479: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3480: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3476: IBE_UTIL.debug('Incoming quote name into get_quote_exp_date is '||p_quote_header_rec.quote_name);
3477: END IF;
3478: --If no resource id in the quote header rec then check for one in the database
3479: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3480: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3481: IBE_UTIL.debug('No resource id in the incoming quote_header_rec');
3482: END IF;
3483:
3484: For rec_check_resource_name in c_check_resource_name(p_quote_header_rec.quote_header_id) loop
3477: END IF;
3478: --If no resource id in the quote header rec then check for one in the database
3479: If p_quote_header_rec.resource_id = fnd_api.g_miss_num then
3480: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3481: IBE_UTIL.debug('No resource id in the incoming quote_header_rec');
3482: END IF;
3483:
3484: For rec_check_resource_name in c_check_resource_name(p_quote_header_rec.quote_header_id) loop
3485: L_db_resource_id := rec_check_resource_name.resource_id;
3486: L_cart_name := rec_check_resource_name.quote_name;
3487: Exit when c_check_resource_name%notfound;
3488: End loop;
3489: If (l_db_resource_id is null) then
3490: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3491: IBE_UTIL.debug('No resource id in the database for the given qte_hdr_id');
3492: END IF;
3493: If (((p_quote_header_rec.quote_name <> fnd_api.g_miss_char)
3494: and(p_quote_header_rec.quote_name is not null)
3487: Exit when c_check_resource_name%notfound;
3488: End loop;
3489: If (l_db_resource_id is null) then
3490: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3491: IBE_UTIL.debug('No resource id in the database for the given qte_hdr_id');
3492: END IF;
3493: If (((p_quote_header_rec.quote_name <> fnd_api.g_miss_char)
3494: and(p_quote_header_rec.quote_name is not null)
3495: and (p_quote_header_rec.quote_name<>'IBE_PRMT_SC_UNNAMED') --MANNAMRA: 16/09/02:Changed IBEACTIVECART to IBE_PRMT_SC_UNNAMED
3504: End If;
3505:
3506: /*If((p_quote_header_rec.quote_name <> fnd_api.g_miss_char
3507: and p_quote_header_rec.quote_name <> 'IBEACTIVECART' )) then
3508: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3509: IBE_UTIL.debug('Using the IBE_EXP_SAVE_CART profile value');
3510: END IF;
3511: L_profile_value := FND_Profile.Value('IBE_EXP_SAVE_CART');
3512:
3505:
3506: /*If((p_quote_header_rec.quote_name <> fnd_api.g_miss_char
3507: and p_quote_header_rec.quote_name <> 'IBEACTIVECART' )) then
3508: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3509: IBE_UTIL.debug('Using the IBE_EXP_SAVE_CART profile value');
3510: END IF;
3511: L_profile_value := FND_Profile.Value('IBE_EXP_SAVE_CART');
3512:
3513: Elsif((l_cart_name = 'IBEACTIVECART')
3511: L_profile_value := FND_Profile.Value('IBE_EXP_SAVE_CART');
3512:
3513: Elsif((l_cart_name = 'IBEACTIVECART')
3514: or(p_quote_header_rec.quote_name = 'IBEACTIVECART')) then
3515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3516: IBE_UTIL.debug('Using the IBE_EXP_ACTIVE_CART profile value');
3517: END IF;
3518: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3519: End if;*/
3512:
3513: Elsif((l_cart_name = 'IBEACTIVECART')
3514: or(p_quote_header_rec.quote_name = 'IBEACTIVECART')) then
3515: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3516: IBE_UTIL.debug('Using the IBE_EXP_ACTIVE_CART profile value');
3517: END IF;
3518: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3519: End if;*/
3520: x_expiration_date := trunc(sysdate)+nvl(l_profile_value,0);
3517: END IF;
3518: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3519: End if;*/
3520: x_expiration_date := trunc(sysdate)+nvl(l_profile_value,0);
3521: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3522: ibe_util.debug('Expiration date returned by get_quote_exp_date is suppressed');
3523: END IF;
3524: End if;
3525: End if;
3518: L_profile_value := FND_Profile.Value('IBE_EXP_ACTIVE_CART');
3519: End if;*/
3520: x_expiration_date := trunc(sysdate)+nvl(l_profile_value,0);
3521: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3522: ibe_util.debug('Expiration date returned by get_quote_exp_date is suppressed');
3523: END IF;
3524: End if;
3525: End if;
3526:
3533: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3534: p_count => x_msg_count ,
3535: p_data => x_msg_data);
3536:
3537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3538: ibe_util.debug('End IBE_Quote_Save_pvt.GET_QUOTE_EXPIRATION_DATE()');
3539: END IF;
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3534: p_count => x_msg_count ,
3535: p_data => x_msg_data);
3536:
3537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3538: ibe_util.debug('End IBE_Quote_Save_pvt.GET_QUOTE_EXPIRATION_DATE()');
3539: END IF;
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3538: ibe_util.debug('End IBE_Quote_Save_pvt.GET_QUOTE_EXPIRATION_DATE()');
3539: END IF;
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3543: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3544: END IF;
3545:
3546: ROLLBACK TO Get_quote_exp_date_pvt;
3539: END IF;
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3543: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3544: END IF;
3545:
3546: ROLLBACK TO Get_quote_exp_date_pvt;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3549: p_count => x_msg_count ,
3550: p_data => x_msg_data);
3551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3553: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3554: END IF;
3555:
3556: ROLLBACK TO Get_quote_exp_date_pvt;
3549: p_count => x_msg_count ,
3550: p_data => x_msg_data);
3551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3552: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3553: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3554: END IF;
3555:
3556: ROLLBACK TO Get_quote_exp_date_pvt;
3557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3558: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3559: p_count => x_msg_count ,
3560: p_data => x_msg_data);
3561: WHEN OTHERS THEN
3562: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3563: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3564: END IF;
3565:
3566: ROLLBACK TO Get_quote_exp_date_pvt;
3559: p_count => x_msg_count ,
3560: p_data => x_msg_data);
3561: WHEN OTHERS THEN
3562: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3563: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Get_quote_expiration_date');
3564: END IF;
3565:
3566: ROLLBACK TO Get_quote_exp_date_pvt;
3567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3666: l_save_changes VARCHAR2(1);
3667: l_db_reason_code VARCHAR2(30);
3668:
3669: Begin
3670: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3671: ibe_util.debug('Start IBE_Quote_Save_pvt.REQUEST_FOR_SALES_ASSISTANCE()');
3672: END IF;
3673:
3674: -- Standard Start of API savepoint
3667: l_db_reason_code VARCHAR2(30);
3668:
3669: Begin
3670: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3671: ibe_util.debug('Start IBE_Quote_Save_pvt.REQUEST_FOR_SALES_ASSISTANCE()');
3672: END IF;
3673:
3674: -- Standard Start of API savepoint
3675: SAVEPOINT Req_for_sales_asst_pvt;
3690: -- Initialize API return status to success
3691: x_return_status := FND_API.G_RET_STS_SUCCESS;
3692:
3693: --API Body
3694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3695: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3696: END IF;
3697: IBE_Quote_Misc_pvt.log_environment_info();
3698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3691: x_return_status := FND_API.G_RET_STS_SUCCESS;
3692:
3693: --API Body
3694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3695: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3696: END IF;
3697: IBE_Quote_Misc_pvt.log_environment_info();
3698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3699: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3695: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3696: END IF;
3697: IBE_Quote_Misc_pvt.log_environment_info();
3698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3699: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3700: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: p_retrieval_number = '||p_retrieval_number);
3701: END IF;
3702: -- User Authentication
3695: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: Before Calling log_environment_info');
3696: END IF;
3697: IBE_Quote_Misc_pvt.log_environment_info();
3698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3699: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3700: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: p_retrieval_number = '||p_retrieval_number);
3701: END IF;
3702: -- User Authentication
3703: IBE_Quote_Misc_pvt.Validate_User_Update
3696: END IF;
3697: IBE_Quote_Misc_pvt.log_environment_info();
3698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3699: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: After Calling log_environment_info');
3700: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: p_retrieval_number = '||p_retrieval_number);
3701: END IF;
3702: -- User Authentication
3703: IBE_Quote_Misc_pvt.Validate_User_Update
3704: ( p_init_msg_list => p_Init_Msg_List
3722: --obtaining the resource id from the database
3723: For rec_find_resourceid in c_find_resourceid(p_quote_header_id) loop
3724: l_resource_id := rec_find_resourceid.resource_id ;
3725: l_db_reason_code := rec_find_resourceid.ASSISTANCE_REASON_CODE;
3726: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3727: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: db_resource_id is'||l_resource_id);
3728: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: l_db_reason_code = '||l_db_reason_code);
3729: END IF;
3730: Exit when c_find_resourceid%notfound;
3723: For rec_find_resourceid in c_find_resourceid(p_quote_header_id) loop
3724: l_resource_id := rec_find_resourceid.resource_id ;
3725: l_db_reason_code := rec_find_resourceid.ASSISTANCE_REASON_CODE;
3726: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3727: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: db_resource_id is'||l_resource_id);
3728: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: l_db_reason_code = '||l_db_reason_code);
3729: END IF;
3730: Exit when c_find_resourceid%notfound;
3731: End loop;
3724: l_resource_id := rec_find_resourceid.resource_id ;
3725: l_db_reason_code := rec_find_resourceid.ASSISTANCE_REASON_CODE;
3726: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3727: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: db_resource_id is'||l_resource_id);
3728: IBE_UTIL.DEBUG('REQUEST_FOR_SALES_ASSISTANCE: l_db_reason_code = '||l_db_reason_code);
3729: END IF;
3730: Exit when c_find_resourceid%notfound;
3731: End loop;
3732:
3741:
3742: --l_salesrep_id := FND_Profile.Value('ASO_DEFAULT_PERSON_ID'); --Old code
3743: l_salesrep_id := ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_SALESREP); --new way of getting the salesrep id
3744:
3745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3746: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3747: END IF;
3748:
3749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3742: --l_salesrep_id := FND_Profile.Value('ASO_DEFAULT_PERSON_ID'); --Old code
3743: l_salesrep_id := ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_SALESREP); --new way of getting the salesrep id
3744:
3745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3746: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3747: END IF;
3748:
3749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3750: IBE_UTIL.debug('Salesrep id from ASO profile is '||l_salesrep_id);
3745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3746: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3747: END IF;
3748:
3749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3750: IBE_UTIL.debug('Salesrep id from ASO profile is '||l_salesrep_id);
3751: END IF;
3752: --Profile value(ASO_DEFAULT_PERSON_ID) has salesrep_id, obtain resource_id from the
3753: --table jtf_rs_salesreps_mo_v. --Old comment
3746: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: salesrep id from quote_attrib: '||l_salesrep_id);
3747: END IF;
3748:
3749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3750: IBE_UTIL.debug('Salesrep id from ASO profile is '||l_salesrep_id);
3751: END IF;
3752: --Profile value(ASO_DEFAULT_PERSON_ID) has salesrep_id, obtain resource_id from the
3753: --table jtf_rs_salesreps_mo_v. --Old comment
3754: /*--10/17/2005: Mannamra: In light of MOAC chages, default salesrep setting is no
3757: for the corresponding salesrep id from jtf_rs_salesreps_mo_v. Bug ref: 4682364*/
3758:
3759: for rec_get_jtf_resource in c_get_jtf_resource(l_salesrep_id) loop
3760: L_resource_id := rec_get_jtf_resource.resource_id;
3761: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3762: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id: '||L_resource_id);
3763: END IF;
3764:
3765: exit when c_get_jtf_resource%notfound;
3758:
3759: for rec_get_jtf_resource in c_get_jtf_resource(l_salesrep_id) loop
3760: L_resource_id := rec_get_jtf_resource.resource_id;
3761: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3762: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id: '||L_resource_id);
3763: END IF;
3764:
3765: exit when c_get_jtf_resource%notfound;
3766: end loop;
3765: exit when c_get_jtf_resource%notfound;
3766: end loop;
3767:
3768: --obtain the status_id for 'DRAFT' from aso_quote_statuses_vl
3769: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3770: IBE_UTIL.debug('obtain the status_id for DRAFT from aso_quote_statuses_vl ');
3771: END IF;
3772:
3773: for rec_get_status_id in c_get_status_id('DRAFT') loop
3766: end loop;
3767:
3768: --obtain the status_id for 'DRAFT' from aso_quote_statuses_vl
3769: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3770: IBE_UTIL.debug('obtain the status_id for DRAFT from aso_quote_statuses_vl ');
3771: END IF;
3772:
3773: for rec_get_status_id in c_get_status_id('DRAFT') loop
3774: l_status_id := rec_get_status_id.quote_status_id;
3771: END IF;
3772:
3773: for rec_get_status_id in c_get_status_id('DRAFT') loop
3774: l_status_id := rec_get_status_id.quote_status_id;
3775: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3776: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_status_id: '||l_status_id);
3777: END IF;
3778:
3779: -- --DBMS_OUTPUT.PUT_line('Quote Status id: '||l_status_id);
3772:
3773: for rec_get_status_id in c_get_status_id('DRAFT') loop
3774: l_status_id := rec_get_status_id.quote_status_id;
3775: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3776: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_status_id: '||l_status_id);
3777: END IF;
3778:
3779: -- --DBMS_OUTPUT.PUT_line('Quote Status id: '||l_status_id);
3780: exit when c_get_status_id%notfound;
3793: l_qte_hdr_rec.Assistance_Requested := 'Y';
3794: l_qte_hdr_rec.Assistance_Reason_Code := p_reason_code;
3795:
3796:
3797: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3798: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3794: l_qte_hdr_rec.Assistance_Reason_Code := p_reason_code;
3795:
3796:
3797: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3798: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3795:
3796:
3797: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3798: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3803: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3796:
3797: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3798: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3803: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3804: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3797: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3798: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3803: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3804: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3805: END IF;
3798: IBE_UTIL.debug('Values assigned to quote_header_rec going into "Save" API');
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3803: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3804: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3805: END IF;
3806: ibe_quote_save_pvt.save(
3799: IBE_UTIL.debug('Quote_header_id '||p_quote_header_id);
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3803: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3804: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3805: END IF;
3806: ibe_quote_save_pvt.save(
3807: p_api_version_number => 1.0 ,
3800: IBE_UTIL.debug('Quote_name '||p_quote_name);
3801: IBE_UTIL.debug('Resource_id '||l_resource_id);
3802: IBE_UTIL.debug('Quote_status_id '||l_status_id);
3803: IBE_UTIL.debug('p_reason_code '||p_reason_code);
3804: IBE_UTIL.debug('Calling Save in request_for_sales_assist()');
3805: END IF;
3806: ibe_quote_save_pvt.save(
3807: p_api_version_number => 1.0 ,
3808: p_init_msg_list => FND_API.G_FALSE ,
3827: Exit when c_find_resourceid%notfound;
3828: End loop;
3829: END IF;
3830:
3831: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3832: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id in quote: '||L_resource_id);
3833: END IF;
3834:
3835:
3828: End loop;
3829: END IF;
3830:
3831: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3832: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: L_resource_id in quote: '||L_resource_id);
3833: END IF;
3834:
3835:
3836: --Obtain the salesrep user_id here
3838: l_salesrep_user_id := rec_get_SR_user_id.user_id;
3839: exit when c_get_SR_user_id%notfound;
3840: end loop;
3841:
3842: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3843: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_salesrep_user_id who will get the notif: '||l_salesrep_user_id);
3844: END IF;
3845:
3846:
3839: exit when c_get_SR_user_id%notfound;
3840: end loop;
3841:
3842: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3843: IBE_UTIL.debug('IBE_QUOTE_SAVE_PVT.Request_for_sales_assistance: l_salesrep_user_id who will get the notif: '||l_salesrep_user_id);
3844: END IF;
3845:
3846:
3847: /* IBE.Q changes, this code commented out. Contracts needs to be
3847: /* IBE.Q changes, this code commented out. Contracts needs to be
3848: instantiated in all cases
3849: -- Create the contract if the contract_context is set to 'Y'.
3850: IF (p_contract_context = 'Y') THEN
3851: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3852: IBE_UTIL.debug('contract context is Yes, before calling get_terms_template');
3853: END IF;
3854: */
3855:
3848: instantiated in all cases
3849: -- Create the contract if the contract_context is set to 'Y'.
3850: IF (p_contract_context = 'Y') THEN
3851: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3852: IBE_UTIL.debug('contract context is Yes, before calling get_terms_template');
3853: END IF;
3854: */
3855:
3856: IF (FND_Profile.Value('OKC_ENABLE_SALES_CONTRACTS') = 'Y' ) THEN --Only if contracts is enabled
3861: /*Mannamra: Changes for MOAC: Bug 4682364**/
3862: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
3863: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
3864: /*Mannamra: End of changes for MOAC**/
3865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3866: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
3867: IBE_UTIL.debug('p_quote_header_id = '||p_quote_header_id);
3868: END IF;
3869: IF (l_contract_template_id is not null) THEN
3862: --l_contract_template_id := FND_Profile.Value('ASO_DEFAULT_CONTRACT_TEMPLATE'); --Old style
3863: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
3864: /*Mannamra: End of changes for MOAC**/
3865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3866: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
3867: IBE_UTIL.debug('p_quote_header_id = '||p_quote_header_id);
3868: END IF;
3869: IF (l_contract_template_id is not null) THEN
3870:
3863: l_contract_template_id := to_number(ASO_UTILITY_PVT.GET_OU_ATTRIBUTE_VALUE(ASO_UTILITY_PVT.G_DEFAULT_CONTRACT_TEMPLATE)); --New style
3864: /*Mannamra: End of changes for MOAC**/
3865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3866: IBE_UTIL.debug('l_contract_template_id = '||l_contract_template_id);
3867: IBE_UTIL.debug('p_quote_header_id = '||p_quote_header_id);
3868: END IF;
3869: IF (l_contract_template_id is not null) THEN
3870:
3871: OKC_TERMS_UTIL_GRP.get_Translated_template(
3885: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3887: END IF;
3888:
3889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3890: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3891: END IF;
3892:
3893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3887: END IF;
3888:
3889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3890: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3891: END IF;
3892:
3893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3894: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3890: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3891: END IF;
3892:
3893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3894: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3895: END IF;
3896: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3890: IBE_UTIL.debug('l_trans_Contract_templ_id = '||l_trans_Contract_template_id);
3891: END IF;
3892:
3893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3894: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3895: END IF;
3896: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3898: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3894: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3895: END IF;
3896: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3898: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3899: END IF;
3900: IF(upper(l_quote_status) <> 'APPROVED') THEN
3901: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3894: IBE_UTIL.debug('calling IBE_QUOTE_MISC_PVT.get_aso_quote_status');
3895: END IF;
3896: l_quote_status := IBE_QUOTE_MISC_PVT.get_aso_quote_status(p_quote_header_id);
3897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3898: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3899: END IF;
3900: IF(upper(l_quote_status) <> 'APPROVED') THEN
3901: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3902: IBE_UTIL.debug('calling OKC_XPRT_INT_GRP.get_contract_terms...');
3897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3898: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3899: END IF;
3900: IF(upper(l_quote_status) <> 'APPROVED') THEN
3901: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3902: IBE_UTIL.debug('calling OKC_XPRT_INT_GRP.get_contract_terms...');
3903: END IF;
3904: OKC_XPRT_INT_GRP.get_contract_terms(
3905: p_api_version => 1.0
3898: IBE_UTIL.debug('returned from IBE_QUOTE_MISC_PVT.get_aso_quote_status, l_quote_status = '||l_quote_status);
3899: END IF;
3900: IF(upper(l_quote_status) <> 'APPROVED') THEN
3901: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3902: IBE_UTIL.debug('calling OKC_XPRT_INT_GRP.get_contract_terms...');
3903: END IF;
3904: OKC_XPRT_INT_GRP.get_contract_terms(
3905: p_api_version => 1.0
3906: ,p_init_msg_list => FND_API.g_false
3913: ,x_msg_count => lx_msg_count
3914: ,x_msg_data => lx_msg_data ) ;
3915:
3916:
3917: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3918: IBE_UTIL.debug('After OKC_XPRT_INT_GRP.get_contract_terms, return status = '||lx_return_status);
3919: END IF;
3920: IF (lx_return_status = FND_API.G_RET_STS_ERROR) THEN
3921: RAISE FND_API.G_EXC_ERROR;
3914: ,x_msg_data => lx_msg_data ) ;
3915:
3916:
3917: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3918: IBE_UTIL.debug('After OKC_XPRT_INT_GRP.get_contract_terms, return status = '||lx_return_status);
3919: END IF;
3920: IF (lx_return_status = FND_API.G_RET_STS_ERROR) THEN
3921: RAISE FND_API.G_EXC_ERROR;
3922: END IF;
3931:
3932: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
3933: this is done because recipients cannot update a cart after it becomes a quote*/
3934:
3935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3936: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
3937: END IF;
3938: IBE_QUOTE_SAVESHARE_V2_PVT.share_readonly(
3939: p_quote_header_id => p_quote_header_id,
3932: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
3933: this is done because recipients cannot update a cart after it becomes a quote*/
3934:
3935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3936: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
3937: END IF;
3938: IBE_QUOTE_SAVESHARE_V2_PVT.share_readonly(
3939: p_quote_header_id => p_quote_header_id,
3940: P_minisite_id => p_minisite_id ,
3951: END IF;
3952: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3954: END IF;
3955: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3956: IBE_UTIL.DEBUG('Done calling share_readonly');
3957: END IF;
3958:
3959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3952: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3954: END IF;
3955: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3956: IBE_UTIL.DEBUG('Done calling share_readonly');
3957: END IF;
3958:
3959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3960: IBE_UTIL.DEBUG('RSA:Calling deactivate API');
3955: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3956: IBE_UTIL.DEBUG('Done calling share_readonly');
3957: END IF;
3958:
3959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3960: IBE_UTIL.DEBUG('RSA:Calling deactivate API');
3961: END IF;
3962: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
3963: P_Quote_header_id => p_quote_header_id,
3956: IBE_UTIL.DEBUG('Done calling share_readonly');
3957: END IF;
3958:
3959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3960: IBE_UTIL.DEBUG('RSA:Calling deactivate API');
3961: END IF;
3962: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
3963: P_Quote_header_id => p_quote_header_id,
3964: P_Party_id => p_party_id ,
3975:
3976: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3978: END IF;
3979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3980: IBE_UTIL.DEBUG('RSA:Deactivate owner cart after sharing:Done');
3981: END IF;
3982:
3983: /* Commenting the code (4 Dec, 03) as we are passing the meaning from the UI itself.
3976: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3978: END IF;
3979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3980: IBE_UTIL.DEBUG('RSA:Deactivate owner cart after sharing:Done');
3981: END IF;
3982:
3983: /* Commenting the code (4 Dec, 03) as we are passing the meaning from the UI itself.
3984: -- For Contract Context get the reason_code_meaning from FND Message Code. Otherwise get the lookup meaning.
3995: END IF;
3996: */
3997:
3998:
3999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4000: IBE_UTIL.debug('Calling the workflow notification API');
4001: END IF;
4002: --Calling the workflow notification API. This API sends out an e-maiol each to the salesrep and the customer.
4003: IBE_WORKFLOW_pvt.NotifyForSalesAssistance(
3996: */
3997:
3998:
3999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4000: IBE_UTIL.debug('Calling the workflow notification API');
4001: END IF;
4002: --Calling the workflow notification API. This API sends out an e-maiol each to the salesrep and the customer.
4003: IBE_WORKFLOW_pvt.NotifyForSalesAssistance(
4004: p_api_version => 1.0 ,
4020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4021: END IF;
4022:
4023: --Bug 3204942 Start
4024: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4025: IBE_UTIL.debug('Calling the create_note API');
4026: END IF;
4027: IF (p_notes IS NOT NULL) THEN
4028: JTF_NOTES_PUB.create_note(
4021: END IF;
4022:
4023: --Bug 3204942 Start
4024: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4025: IBE_UTIL.debug('Calling the create_note API');
4026: END IF;
4027: IF (p_notes IS NOT NULL) THEN
4028: JTF_NOTES_PUB.create_note(
4029: p_api_version =>1.0,
4043: END IF;
4044: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4046: END IF;
4047: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4048: IBE_UTIL.debug('After Calling the create_note API, note_id ='||lx_jtf_note_id);
4049: END IF;
4050: END IF;
4051: --Bug 3204942 End
4044: IF (lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4046: END IF;
4047: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4048: IBE_UTIL.debug('After Calling the create_note API, note_id ='||lx_jtf_note_id);
4049: END IF;
4050: END IF;
4051: --Bug 3204942 End
4052:
4061: p_data => lx_msg_data);
4062:
4063: EXCEPTION
4064: WHEN FND_API.G_EXC_ERROR THEN
4065: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4066: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4067: END IF;
4068:
4069: ROLLBACK TO Req_for_sales_asst_pvt;
4062:
4063: EXCEPTION
4064: WHEN FND_API.G_EXC_ERROR THEN
4065: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4066: IBE_Util.Debug('Expected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4067: END IF;
4068:
4069: ROLLBACK TO Req_for_sales_asst_pvt;
4070: x_return_status := FND_API.G_RET_STS_ERROR;
4072: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4073: p_count => lx_msg_count ,
4074: p_data => lx_msg_data);
4075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4076: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4077: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4078: END IF;
4079:
4080: ROLLBACK TO Req_for_sales_asst_pvt;
4073: p_count => lx_msg_count ,
4074: p_data => lx_msg_data);
4075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4076: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4077: IBE_Util.Debug('Unexpected error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4078: END IF;
4079:
4080: ROLLBACK TO Req_for_sales_asst_pvt;
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4082: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4083: p_count => lx_msg_count ,
4084: p_data => lx_msg_data);
4085: WHEN OTHERS THEN
4086: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4087: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4088: END IF;
4089:
4090: ROLLBACK TO Req_for_sales_asst_pvt;
4083: p_count => lx_msg_count ,
4084: p_data => lx_msg_data);
4085: WHEN OTHERS THEN
4086: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4087: IBE_Util.Debug('Unknown error: IBE_Quote_Save_pvt.Request_for_sales_assistance');
4088: END IF;
4089:
4090: ROLLBACK TO Req_for_sales_asst_pvt;
4091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4186: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
4187:
4188: BEGIN
4189:
4190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4191: IBE_UTIL.DEBUG('Begin IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4192: END IF;
4193: -- Commented mo_global.init(IBE) call as it was causing access mode error reported in 11810302, 8852116
4194: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4187:
4188: BEGIN
4189:
4190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4191: IBE_UTIL.DEBUG('Begin IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4192: END IF;
4193: -- Commented mo_global.init(IBE) call as it was causing access mode error reported in 11810302, 8852116
4194: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4195: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4191: IBE_UTIL.DEBUG('Begin IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4192: END IF;
4193: -- Commented mo_global.init(IBE) call as it was causing access mode error reported in 11810302, 8852116
4194: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4195: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4196: END IF;
4197: --mo_global.init('IBE'); -- bug 10113717
4198: mo_global.init('S'); -- bug 12775927
4191: IBE_UTIL.DEBUG('Begin IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4192: END IF;
4193: -- Commented mo_global.init(IBE) call as it was causing access mode error reported in 11810302, 8852116
4194: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4195: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4196: END IF;
4197: --mo_global.init('IBE'); -- bug 10113717
4198: mo_global.init('S'); -- bug 12775927
4199: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4195: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4196: END IF;
4197: --mo_global.init('IBE'); -- bug 10113717
4198: mo_global.init('S'); -- bug 12775927
4199: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4200: IBE_UTIL.DEBUG('After calling mo_global.init)');
4201: END IF;
4202: Save(
4203: P_Api_Version_Number => p_api_version_number
4196: END IF;
4197: --mo_global.init('IBE'); -- bug 10113717
4198: mo_global.init('S'); -- bug 12775927
4199: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4200: IBE_UTIL.DEBUG('After calling mo_global.init)');
4201: END IF;
4202: Save(
4203: P_Api_Version_Number => p_api_version_number
4204: ,p_Init_Msg_List => p_init_msg_list
4254: ,X_Return_Status => x_Return_Status
4255: ,X_Msg_Count => x_Msg_Count
4256: ,X_Msg_Data => x_Msg_Data
4257: );
4258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4259: IBE_UTIL.DEBUG('End IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4260: END IF;
4261: END Save;
4262:
4255: ,X_Msg_Count => x_Msg_Count
4256: ,X_Msg_Data => x_Msg_Data
4257: );
4258: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4259: IBE_UTIL.DEBUG('End IBE_Quote_Save_pvt.Save(Overloaded SAVE)');
4260: END IF;
4261: END Save;
4262:
4263:
4402: loop_count number;
4403: lx_quote_expiration_date date;
4404:
4405: BEGIN
4406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4407: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.Save()');
4408: END IF;
4409:
4410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4403: lx_quote_expiration_date date;
4404:
4405: BEGIN
4406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4407: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.Save()');
4408: END IF;
4409:
4410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4411: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4407: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.Save()');
4408: END IF;
4409:
4410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4411: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4412: END IF;
4413: --mo_global.init('IBE'); -- bug 10113717
4414: mo_global.init('S'); -- bug 12775927
4407: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.Save()');
4408: END IF;
4409:
4410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4411: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4412: END IF;
4413: --mo_global.init('IBE'); -- bug 10113717
4414: mo_global.init('S'); -- bug 12775927
4415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4411: IBE_UTIL.DEBUG('Before calling mo_global.init, input param=S');
4412: END IF;
4413: --mo_global.init('IBE'); -- bug 10113717
4414: mo_global.init('S'); -- bug 12775927
4415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4416: IBE_UTIL.DEBUG('After calling mo_global.init)');
4417: END IF;
4418:
4419: -- Standard Start of API savepoint
4412: END IF;
4413: --mo_global.init('IBE'); -- bug 10113717
4414: mo_global.init('S'); -- bug 12775927
4415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4416: IBE_UTIL.DEBUG('After calling mo_global.init)');
4417: END IF;
4418:
4419: -- Standard Start of API savepoint
4420: SAVEPOINT SAVE_pvt;
4436: x_return_status := FND_API.G_RET_STS_SUCCESS;
4437:
4438: -- API body
4439:
4440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4441: IBE_UTIL.DEBUG('SAVE: Before Calling log_environment_info');
4442: END IF;
4443: IBE_Quote_Misc_pvt.log_environment_info();
4444:
4437:
4438: -- API body
4439:
4440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4441: IBE_UTIL.DEBUG('SAVE: Before Calling log_environment_info');
4442: END IF;
4443: IBE_Quote_Misc_pvt.log_environment_info();
4444:
4445: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4441: IBE_UTIL.DEBUG('SAVE: Before Calling log_environment_info');
4442: END IF;
4443: IBE_Quote_Misc_pvt.log_environment_info();
4444:
4445: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4446: IBE_UTIL.DEBUG('SAVE: After Calling log_environment_info');
4447: END IF;
4448:
4449: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4442: END IF;
4443: IBE_Quote_Misc_pvt.log_environment_info();
4444:
4445: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4446: IBE_UTIL.DEBUG('SAVE: After Calling log_environment_info');
4447: END IF;
4448:
4449: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4450: --DBMS_OUTPUT.PUT_line('In save qte_hdr_id is '||p_Qte_Header_Rec.quote_header_id);
4448:
4449: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4450: --DBMS_OUTPUT.PUT_line('In save qte_hdr_id is '||p_Qte_Header_Rec.quote_header_id);
4451: -- USer Authentication
4452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4453: IBE_UTIL.DEBUG('SAVE: Before Calling Validate User');
4454: END IF;
4455:
4456: IF(p_save_type <> OP_DELETE_CART) THEN
4449: --DBMS_OUTPUT.PUT_line('IBE_Quote_Save_pvt.SAVE into api ');
4450: --DBMS_OUTPUT.PUT_line('In save qte_hdr_id is '||p_Qte_Header_Rec.quote_header_id);
4451: -- USer Authentication
4452: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4453: IBE_UTIL.DEBUG('SAVE: Before Calling Validate User');
4454: END IF;
4455:
4456: IF(p_save_type <> OP_DELETE_CART) THEN
4457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4453: IBE_UTIL.DEBUG('SAVE: Before Calling Validate User');
4454: END IF;
4455:
4456: IF(p_save_type <> OP_DELETE_CART) THEN
4457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4458: IBE_UTIL.DEBUG('SAVE: Calling Validate User');
4459: END IF;
4460: IBE_Quote_Misc_pvt.Validate_User_Update
4461: ( p_init_msg_list => p_Init_Msg_List
4454: END IF;
4455:
4456: IF(p_save_type <> OP_DELETE_CART) THEN
4457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4458: IBE_UTIL.DEBUG('SAVE: Calling Validate User');
4459: END IF;
4460: IBE_Quote_Misc_pvt.Validate_User_Update
4461: ( p_init_msg_list => p_Init_Msg_List
4462: ,p_quote_header_id => p_Qte_Header_Rec.quote_header_id
4480: -- so that we can get the quote last update date in the exception block
4481: l_qte_header_rec.quote_header_id := p_Qte_Header_Rec.quote_header_id;
4482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4483: END IF;
4484: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4485: IBE_UTIL.DEBUG('SAVE: Validate User End');
4486: END IF;
4487: END IF;
4488: -- set default value for header
4481: l_qte_header_rec.quote_header_id := p_Qte_Header_Rec.quote_header_id;
4482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4483: END IF;
4484: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4485: IBE_UTIL.DEBUG('SAVE: Validate User End');
4486: END IF;
4487: END IF;
4488: -- set default value for header
4489: --DBMS_OUTPUT.PUT_line('befoe default_hdr_rec ');
4617: IF (p_hd_shipment_tbl.count >0) then
4618: l_hd_shipment_rec := p_hd_shipment_tbl(1);
4619: END IF;
4620: --DBMS_OUTPUT.PUT_line('done checking for p_hd_shipment_tbl ');
4621: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4622: IBE_UTIL.debug('Quote expiration date from get_quote_exp_date() is suppressed');
4623: END IF;
4624:
4625: log_Control_Rec_Values(p_control_rec); -- change line logic pricing Test
4618: l_hd_shipment_rec := p_hd_shipment_tbl(1);
4619: END IF;
4620: --DBMS_OUTPUT.PUT_line('done checking for p_hd_shipment_tbl ');
4621: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4622: IBE_UTIL.debug('Quote expiration date from get_quote_exp_date() is suppressed');
4623: END IF;
4624:
4625: log_Control_Rec_Values(p_control_rec); -- change line logic pricing Test
4626:
4629: OPEN c_pricing_indicators(l_qte_header_rec.quote_header_id); -- change line logic pricing Test
4630: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
4631: CLOSE c_pricing_indicators;
4632:
4633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4634: IBE_Util.Debug('change line logic pricing Test BEGIN');
4635: IBE_Util.Debug('qte_id = ' || qte_id);
4636: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4637: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4630: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
4631: CLOSE c_pricing_indicators;
4632:
4633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4634: IBE_Util.Debug('change line logic pricing Test BEGIN');
4635: IBE_Util.Debug('qte_id = ' || qte_id);
4636: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4637: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4638: IBE_Util.Debug('change line logic pricing Test END');
4631: CLOSE c_pricing_indicators;
4632:
4633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4634: IBE_Util.Debug('change line logic pricing Test BEGIN');
4635: IBE_Util.Debug('qte_id = ' || qte_id);
4636: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4637: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4638: IBE_Util.Debug('change line logic pricing Test END');
4639: END IF;
4632:
4633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4634: IBE_Util.Debug('change line logic pricing Test BEGIN');
4635: IBE_Util.Debug('qte_id = ' || qte_id);
4636: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4637: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4638: IBE_Util.Debug('change line logic pricing Test END');
4639: END IF;
4640: END IF;
4633: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4634: IBE_Util.Debug('change line logic pricing Test BEGIN');
4635: IBE_Util.Debug('qte_id = ' || qte_id);
4636: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4637: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4638: IBE_Util.Debug('change line logic pricing Test END');
4639: END IF;
4640: END IF;
4641:
4634: IBE_Util.Debug('change line logic pricing Test BEGIN');
4635: IBE_Util.Debug('qte_id = ' || qte_id);
4636: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4637: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4638: IBE_Util.Debug('change line logic pricing Test END');
4639: END IF;
4640: END IF;
4641:
4642: /* Start of CREATE QUOTE or UPDATE QUOTE conditions*/
4659: --End of fix for bug 2512597
4660:
4661: -- create quote
4662:
4663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4664: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() starts');
4665: END IF;
4666:
4667: /*Mannamra: Fix for Bug 4661967: This fix is required to save the payment type during
4660:
4661: -- create quote
4662:
4663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4664: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() starts');
4665: END IF;
4666:
4667: /*Mannamra: Fix for Bug 4661967: This fix is required to save the payment type during
4668: "AddToCart" defaulting work*/
4669:
4670: FOR loop_count in 1..l_Hd_Payment_Tbl.count LOOP
4671: IF (l_Hd_Payment_Tbl(loop_count).payment_type_code = 'CREDIT_CARD' and
4672: l_Hd_Payment_Tbl(loop_count).instr_assignment_id is not null) THEN
4673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4674: IBE_UTIL.debug('Save: Input payment table Payment type is cc and assignment id is not null');
4675: END IF;
4676: l_Hd_Payment_Tbl(loop_count).payment_ref_number := '';
4677: END IF;
4670: FOR loop_count in 1..l_Hd_Payment_Tbl.count LOOP
4671: IF (l_Hd_Payment_Tbl(loop_count).payment_type_code = 'CREDIT_CARD' and
4672: l_Hd_Payment_Tbl(loop_count).instr_assignment_id is not null) THEN
4673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4674: IBE_UTIL.debug('Save: Input payment table Payment type is cc and assignment id is not null');
4675: END IF;
4676: l_Hd_Payment_Tbl(loop_count).payment_ref_number := '';
4677: END IF;
4678: END LOOP;
4683: l_Qte_Header_Rec.MINISITE_ID := p_minisite_id ;
4684:
4685: -- change line logic pricing
4686: IF (p_control_rec.header_pricing_event = FND_Profile.Value('IBE_INCART_PRICING_EVENT') and p_control_rec.price_mode = 'CHANGE_LINE' ) THEN
4687: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4688: IBE_UTIL.debug('Its a create quote, pricing is turned on, change line pricing is on ');
4689: IBE_UTIL.debug('Setting pricing indicators to C');
4690: END IF;
4691: l_Qte_Header_Rec.pricing_status_indicator := 'C';
4684:
4685: -- change line logic pricing
4686: IF (p_control_rec.header_pricing_event = FND_Profile.Value('IBE_INCART_PRICING_EVENT') and p_control_rec.price_mode = 'CHANGE_LINE' ) THEN
4687: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4688: IBE_UTIL.debug('Its a create quote, pricing is turned on, change line pricing is on ');
4689: IBE_UTIL.debug('Setting pricing indicators to C');
4690: END IF;
4691: l_Qte_Header_Rec.pricing_status_indicator := 'C';
4692: l_Qte_Header_Rec.tax_status_indicator := 'C';
4685: -- change line logic pricing
4686: IF (p_control_rec.header_pricing_event = FND_Profile.Value('IBE_INCART_PRICING_EVENT') and p_control_rec.price_mode = 'CHANGE_LINE' ) THEN
4687: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4688: IBE_UTIL.debug('Its a create quote, pricing is turned on, change line pricing is on ');
4689: IBE_UTIL.debug('Setting pricing indicators to C');
4690: END IF;
4691: l_Qte_Header_Rec.pricing_status_indicator := 'C';
4692: l_Qte_Header_Rec.tax_status_indicator := 'C';
4693: END IF;
4743: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4745: END IF;
4746:
4747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4748: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() finishes');
4749: END IF;
4750:
4751: OPEN c_pricing_indicators(x_Qte_header_rec.quote_header_id); -- change line logic pricing Test
4744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4745: END IF;
4746:
4747: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4748: IBE_Util.Debug('ASO_Quote_Pub.Create_Quote() finishes');
4749: END IF;
4750:
4751: OPEN c_pricing_indicators(x_Qte_header_rec.quote_header_id); -- change line logic pricing Test
4752: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
4751: OPEN c_pricing_indicators(x_Qte_header_rec.quote_header_id); -- change line logic pricing Test
4752: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
4753: CLOSE c_pricing_indicators;
4754:
4755: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4756: IBE_Util.Debug('change line logic pricing Test BEGIN');
4757: IBE_Util.Debug('qte_id = ' || qte_id);
4758: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4759: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4752: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
4753: CLOSE c_pricing_indicators;
4754:
4755: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4756: IBE_Util.Debug('change line logic pricing Test BEGIN');
4757: IBE_Util.Debug('qte_id = ' || qte_id);
4758: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4759: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4760: IBE_Util.Debug('change line logic pricing Test END');
4753: CLOSE c_pricing_indicators;
4754:
4755: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4756: IBE_Util.Debug('change line logic pricing Test BEGIN');
4757: IBE_Util.Debug('qte_id = ' || qte_id);
4758: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4759: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4760: IBE_Util.Debug('change line logic pricing Test END');
4761: END IF;
4754:
4755: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4756: IBE_Util.Debug('change line logic pricing Test BEGIN');
4757: IBE_Util.Debug('qte_id = ' || qte_id);
4758: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4759: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4760: IBE_Util.Debug('change line logic pricing Test END');
4761: END IF;
4762:
4755: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4756: IBE_Util.Debug('change line logic pricing Test BEGIN');
4757: IBE_Util.Debug('qte_id = ' || qte_id);
4758: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4759: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4760: IBE_Util.Debug('change line logic pricing Test END');
4761: END IF;
4762:
4763: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4756: IBE_Util.Debug('change line logic pricing Test BEGIN');
4757: IBE_Util.Debug('qte_id = ' || qte_id);
4758: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
4759: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
4760: IBE_Util.Debug('change line logic pricing Test END');
4761: END IF;
4762:
4763: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4764: BEGIN
4761: END IF;
4762:
4763: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4764: BEGIN
4765: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4766: IBE_Util.Debug('In Update Header MinisiteId Dynamic SQL');
4767: END IF;
4768: IF (p_minisite_id <> FND_API.G_MISS_NUM) THEN
4769: l_upd_stmnt := 'Update ASO_QUOTE_HEADERS_ALL set minisite_id = :1
4762:
4763: -- Dynamic SQL for updating the MinisiteId in ASO_QUOTE_HEADER
4764: BEGIN
4765: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4766: IBE_Util.Debug('In Update Header MinisiteId Dynamic SQL');
4767: END IF;
4768: IF (p_minisite_id <> FND_API.G_MISS_NUM) THEN
4769: l_upd_stmnt := 'Update ASO_QUOTE_HEADERS_ALL set minisite_id = :1
4770: where quote_header_id = :2';
4800: END IF;*/
4801:
4802: --MANNAMRA:Changes for save/share project(09/16/02)
4803: /* Callng activate quote here to track the above created cart in IBE_ACTIVE_CARTS_ALL table*/
4804: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4805: IBE_UTIL.DEBUG('DO not call activate_quote if p_save_type is DUPLCIATE_CART,p_save_type='||p_save_type);
4806: END IF;
4807:
4808: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4801:
4802: --MANNAMRA:Changes for save/share project(09/16/02)
4803: /* Callng activate quote here to track the above created cart in IBE_ACTIVE_CARTS_ALL table*/
4804: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4805: IBE_UTIL.DEBUG('DO not call activate_quote if p_save_type is DUPLCIATE_CART,p_save_type='||p_save_type);
4806: END IF;
4807:
4808: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4809: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4805: IBE_UTIL.DEBUG('DO not call activate_quote if p_save_type is DUPLCIATE_CART,p_save_type='||p_save_type);
4806: END IF;
4807:
4808: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4809: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4810: IBE_UTIL.DEBUG('Calling IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE');
4811: IBE_UTIL.DEBUG('x_Qte_header_rec.quote_header_id: '||x_Qte_header_rec.quote_header_id);
4812: END IF;
4813: IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE (
4806: END IF;
4807:
4808: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4809: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4810: IBE_UTIL.DEBUG('Calling IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE');
4811: IBE_UTIL.DEBUG('x_Qte_header_rec.quote_header_id: '||x_Qte_header_rec.quote_header_id);
4812: END IF;
4813: IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE (
4814: P_Quote_header_rec => x_Qte_header_rec,
4807:
4808: IF (p_save_type <> OP_DUPLICATE_CART) THEN
4809: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4810: IBE_UTIL.DEBUG('Calling IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE');
4811: IBE_UTIL.DEBUG('x_Qte_header_rec.quote_header_id: '||x_Qte_header_rec.quote_header_id);
4812: END IF;
4813: IBE_QUOTE_SAVESHARE_V2_PVT.ACTIVATE_QUOTE (
4814: P_Quote_header_rec => x_Qte_header_rec,
4815: P_Party_id => l_Qte_header_rec.party_id ,
4827:
4828: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4830: END IF;
4831: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4832: IBE_UTIL.DEBUG('Finished calling ACTIVATE_QUOTE ');
4833: END IF;
4834: END IF;--Checking of p_save_type
4835: --MANNAMRA:End of changes for save/share project(09/16/02)
4828: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4830: END IF;
4831: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4832: IBE_UTIL.DEBUG('Finished calling ACTIVATE_QUOTE ');
4833: END IF;
4834: END IF;--Checking of p_save_type
4835: --MANNAMRA:End of changes for save/share project(09/16/02)
4836: else
4906: -- End Bug# 1955991
4907:
4908: --l_pricebasedonowner := FND_Profile.Value('IBE_SC_PRICE_BASED_ON_OWNER');
4909: l_ln_payment_tbl := p_Ln_Payment_Tbl;
4910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4911: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4912: END IF;
4913: for counter in 1..l_qte_line_tbl.count loop
4914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4907:
4908: --l_pricebasedonowner := FND_Profile.Value('IBE_SC_PRICE_BASED_ON_OWNER');
4909: l_ln_payment_tbl := p_Ln_Payment_Tbl;
4910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4911: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4912: END IF;
4913: for counter in 1..l_qte_line_tbl.count loop
4914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4915: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4911: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4912: END IF;
4913: for counter in 1..l_qte_line_tbl.count loop
4914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4915: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4916: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4917: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4918: END IF;
4911: Ibe_util.debug('Printing quote_line_tbl passedd to get_termid_pricelistid');
4912: END IF;
4913: for counter in 1..l_qte_line_tbl.count loop
4914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4915: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4916: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4917: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4918: END IF;
4919: end loop;
4912: END IF;
4913: for counter in 1..l_qte_line_tbl.count loop
4914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4915: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4916: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4917: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4918: END IF;
4919: end loop;
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4913: for counter in 1..l_qte_line_tbl.count loop
4914: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4915: Ibe_util.debug('Input commitment id to get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4916: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4917: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4918: END IF;
4919: end loop;
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4916: Ibe_util.debug('Input agreement id to get_termid_pricelistid is: '||l_qte_line_tbl(counter).agreement_id);
4917: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4918: END IF;
4919: end loop;
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4922: END IF;
4923: For counter in 1..l_ln_payment_tbl.count loop
4924: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4917: Ibe_util.debug('Pricelist id before calling get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4918: END IF;
4919: end loop;
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4922: END IF;
4923: For counter in 1..l_ln_payment_tbl.count loop
4924: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4925: Ibe_util.debug('Payment_term_id is: '||l_ln_payment_tbl(counter).payment_term_id);
4920: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4921: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4922: END IF;
4923: For counter in 1..l_ln_payment_tbl.count loop
4924: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4925: Ibe_util.debug('Payment_term_id is: '||l_ln_payment_tbl(counter).payment_term_id);
4926: END IF;
4927: end loop;
4928:
4921: Ibe_util.debug('values of payment table passed to get_termid_pricelisted');
4922: END IF;
4923: For counter in 1..l_ln_payment_tbl.count loop
4924: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4925: Ibe_util.debug('Payment_term_id is: '||l_ln_payment_tbl(counter).payment_term_id);
4926: END IF;
4927: end loop;
4928:
4929: get_termid_pricelistid( p_qte_line_tbl => l_qte_line_tbl,
4927: end loop;
4928:
4929: get_termid_pricelistid( p_qte_line_tbl => l_qte_line_tbl,
4930: p_ln_payment_tbl => l_ln_payment_tbl);
4931: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4932: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4933: END IF;
4934: For counter in 1..l_qte_line_tbl.count loop
4935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4928:
4929: get_termid_pricelistid( p_qte_line_tbl => l_qte_line_tbl,
4930: p_ln_payment_tbl => l_ln_payment_tbl);
4931: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4932: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4933: END IF;
4934: For counter in 1..l_qte_line_tbl.count loop
4935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4936: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4931: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4932: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4933: END IF;
4934: For counter in 1..l_qte_line_tbl.count loop
4935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4936: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4937: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4938: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4939: END IF;
4932: Ibe_util.debug('Printing commitment_id obtained from get_termid_pricelistid');
4933: END IF;
4934: For counter in 1..l_qte_line_tbl.count loop
4935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4936: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4937: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4938: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4939: END IF;
4940: END LOOP;
4933: END IF;
4934: For counter in 1..l_qte_line_tbl.count loop
4935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4936: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4937: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4938: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4939: END IF;
4940: END LOOP;
4941:
4934: For counter in 1..l_qte_line_tbl.count loop
4935: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4936: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).commitment_id);
4937: Ibe_util.debug('commitment id obtained from get_termid_pracelistid is: '||l_qte_line_tbl(counter).agreement_id);
4938: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4939: END IF;
4940: END LOOP;
4941:
4942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4938: Ibe_util.debug('Pricelist id obtained from get_termid_pricelistid is: '||l_qte_line_tbl(counter).price_list_id);
4939: END IF;
4940: END LOOP;
4941:
4942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4943: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4944: END IF;
4945: FOR counter in 1..l_ln_payment_tbl.count LOOP
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4939: END IF;
4940: END LOOP;
4941:
4942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4943: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4944: END IF;
4945: FOR counter in 1..l_ln_payment_tbl.count LOOP
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4947: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4943: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4944: END IF;
4945: FOR counter in 1..l_ln_payment_tbl.count LOOP
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4947: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4948: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4949: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4950: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4943: Ibe_util.debug('values of payment table obtained from get_termid_pricelisted');
4944: END IF;
4945: FOR counter in 1..l_ln_payment_tbl.count LOOP
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4947: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4948: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4949: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4950: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4951: END IF;
4944: END IF;
4945: FOR counter in 1..l_ln_payment_tbl.count LOOP
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4947: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4948: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4949: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4950: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4951: END IF;
4952: END LOOP;
4945: FOR counter in 1..l_ln_payment_tbl.count LOOP
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4947: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4948: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4949: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4950: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4951: END IF;
4952: END LOOP;
4953: /*if (p_sharee_Number is not null
4946: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4947: Ibe_util.debug('l_ln_payment_tbl.Quote_header_id: '||l_ln_payment_tbl(counter).quote_header_id);
4948: Ibe_util.debug('l_ln_payment_tbl.Quote_line_id: '||l_ln_payment_tbl(counter).quote_line_id);
4949: Ibe_util.debug('l_ln_payment_tbl.payment_term_id: '||l_ln_payment_tbl(counter).payment_term_id);
4950: Ibe_util.debug('l_ln_payment_tbl.operation_code: '||l_ln_payment_tbl(counter).operation_code);
4951: END IF;
4952: END LOOP;
4953: /*if (p_sharee_Number is not null
4954: and p_sharee_Number <> FND_API.G_MISS_NUM
4994: END IF;
4995: else -- no sharee*/
4996:
4997: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4998: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4999: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
5000: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
5001: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
5002: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
4995: else -- no sharee*/
4996:
4997: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4998: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4999: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
5000: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
5001: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
5002: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
5003: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
4996:
4997: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4998: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4999: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
5000: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
5001: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
5002: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
5003: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
5004: END IF;
4997: FOR counter in 1..p_Price_Adjustment_Tbl.count LOOP
4998: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4999: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
5000: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
5001: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
5002: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
5003: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
5004: END IF;
5005: END LOOP;
4998: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4999: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
5000: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
5001: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
5002: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
5003: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
5004: END IF;
5005: END LOOP;
5006: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
4999: Ibe_util.debug('p_Price_Adjustment_Tbl.operation_code: '||p_Price_Adjustment_Tbl(counter).operation_code);
5000: Ibe_util.debug('p_Price_Adjustment_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adjustment_Tbl(counter).PRICE_ADJUSTMENT_ID);
5001: Ibe_util.debug('p_Price_Adjustment_Tbl.qte_line_index: '||p_Price_Adjustment_Tbl(counter).qte_line_index);
5002: Ibe_util.debug('p_Price_Adjustment_Tbl.quote_line_id: '||p_Price_Adjustment_Tbl(counter).quote_line_id);
5003: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
5004: END IF;
5005: END LOOP;
5006: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
5007: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5003: Ibe_util.debug('p_Price_Adjustment_Tbl.Quote_header_id: '||p_Price_Adjustment_Tbl(counter).quote_header_id);
5004: END IF;
5005: END LOOP;
5006: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
5007: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5008: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5004: END IF;
5005: END LOOP;
5006: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
5007: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5008: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5005: END LOOP;
5006: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
5007: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5008: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5006: FOR counter in 1..p_Price_Adj_Rltship_Tbl.count LOOP
5007: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5008: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5014: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
5007: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5008: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5014: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
5015: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
5008: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.operation_code: '||p_Price_Adj_Rltship_Tbl(counter).operation_code);
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5014: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
5015: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
5016: END IF;
5009: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.ADJ_RELATIONSHIP_ID: '||p_Price_Adj_Rltship_Tbl(counter).ADJ_RELATIONSHIP_ID);
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5014: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
5015: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
5016: END IF;
5017: END LOOP;
5010: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_INDEX);
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5014: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
5015: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
5016: END IF;
5017: END LOOP;
5018:
5011: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJ_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJ_INDEX);
5012: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QTE_LINE_INDEX: '||p_Price_Adj_Rltship_Tbl(counter).QTE_LINE_INDEX);
5013: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.RLTD_PRICE_ADJ_Id: '||p_Price_Adj_Rltship_Tbl(counter).RLTD_PRICE_ADJ_Id);
5014: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.PRICE_ADJUSTMENT_ID: '||p_Price_Adj_Rltship_Tbl(counter).PRICE_ADJUSTMENT_ID);
5015: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
5016: END IF;
5017: END LOOP;
5018:
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5015: Ibe_util.debug('p_Price_Adj_Rltship_Tbl.QUOTE_LINE_ID: '||p_Price_Adj_Rltship_Tbl(counter).QUOTE_LINE_ID);
5016: END IF;
5017: END LOOP;
5018:
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5020: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5021: IBE_Util.Debug('Save : COUNT: just before aso update' || p_Ln_Price_Attributes_Tbl.count);
5022: END IF;
5023: --DBMS_OUTPUT.PUT_line('calling IBE_Quote_Save_pvt.SAVE.UPDATE_QUOTE ');
5016: END IF;
5017: END LOOP;
5018:
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5020: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5021: IBE_Util.Debug('Save : COUNT: just before aso update' || p_Ln_Price_Attributes_Tbl.count);
5022: END IF;
5023: --DBMS_OUTPUT.PUT_line('calling IBE_Quote_Save_pvt.SAVE.UPDATE_QUOTE ');
5024: --DBMS_OUTPUT.PUT_line('before update_quote: '||l_qte_header_rec.quote_name);
5017: END LOOP;
5018:
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5020: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5021: IBE_Util.Debug('Save : COUNT: just before aso update' || p_Ln_Price_Attributes_Tbl.count);
5022: END IF;
5023: --DBMS_OUTPUT.PUT_line('calling IBE_Quote_Save_pvt.SAVE.UPDATE_QUOTE ');
5024: --DBMS_OUTPUT.PUT_line('before update_quote: '||l_qte_header_rec.quote_name);
5025: --DBMS_OUTPUT.PUT_line('before update_quote: '||l_qte_header_rec.quote_header_id);
5084:
5085: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087: END IF;
5088: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5089: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes : '|| x_return_status);
5090: END IF;
5091:
5092: OPEN c_pricing_indicators(x_Qte_header_rec.quote_header_id); -- change line logic pricing Test
5085: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087: END IF;
5088: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5089: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes : '|| x_return_status);
5090: END IF;
5091:
5092: OPEN c_pricing_indicators(x_Qte_header_rec.quote_header_id); -- change line logic pricing Test
5093: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
5092: OPEN c_pricing_indicators(x_Qte_header_rec.quote_header_id); -- change line logic pricing Test
5093: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
5094: CLOSE c_pricing_indicators;
5095:
5096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5097: IBE_Util.Debug('change line logic pricing Test BEGIN');
5098: IBE_Util.Debug('qte_id = ' || qte_id);
5099: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
5100: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
5093: FETCH c_pricing_indicators INTO qte_id, prc_sts_ind, tax_sts_ind;
5094: CLOSE c_pricing_indicators;
5095:
5096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5097: IBE_Util.Debug('change line logic pricing Test BEGIN');
5098: IBE_Util.Debug('qte_id = ' || qte_id);
5099: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
5100: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
5101: IBE_Util.Debug('change line logic pricing Test END');
5094: CLOSE c_pricing_indicators;
5095:
5096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5097: IBE_Util.Debug('change line logic pricing Test BEGIN');
5098: IBE_Util.Debug('qte_id = ' || qte_id);
5099: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
5100: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
5101: IBE_Util.Debug('change line logic pricing Test END');
5102: END IF;
5095:
5096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5097: IBE_Util.Debug('change line logic pricing Test BEGIN');
5098: IBE_Util.Debug('qte_id = ' || qte_id);
5099: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
5100: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
5101: IBE_Util.Debug('change line logic pricing Test END');
5102: END IF;
5103:
5096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5097: IBE_Util.Debug('change line logic pricing Test BEGIN');
5098: IBE_Util.Debug('qte_id = ' || qte_id);
5099: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
5100: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
5101: IBE_Util.Debug('change line logic pricing Test END');
5102: END IF;
5103:
5104: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_name);
5097: IBE_Util.Debug('change line logic pricing Test BEGIN');
5098: IBE_Util.Debug('qte_id = ' || qte_id);
5099: IBE_Util.Debug('prc_sts_ind = ' || prc_sts_ind);
5100: IBE_Util.Debug('tax_sts_ind = ' || tax_sts_ind);
5101: IBE_Util.Debug('change line logic pricing Test END');
5102: END IF;
5103:
5104: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_name);
5105: --DBMS_OUTPUT.PUT_line('after update_quote: '||x_qte_header_rec.quote_header_id);
5120: -- Standard call to get message count and if count is 1, get message info.
5121: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5122: p_count => x_msg_count ,
5123: p_data => x_msg_data);
5124: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5125: IBE_Util.Debug('Normal End IBE_Quote_Save_pvt.Save()');
5126: END IF;
5127: -- IBE_Util.Disable_Debug;
5128: EXCEPTION
5121: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5122: p_count => x_msg_count ,
5123: p_data => x_msg_data);
5124: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5125: IBE_Util.Debug('Normal End IBE_Quote_Save_pvt.Save()');
5126: END IF;
5127: -- IBE_Util.Disable_Debug;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5123: p_data => x_msg_data);
5124: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5125: IBE_Util.Debug('Normal End IBE_Quote_Save_pvt.Save()');
5126: END IF;
5127: -- IBE_Util.Disable_Debug;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5130: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5131: IBE_Util.Debug('Expected error IBE_Quote_Save_pvt.Save()');
5126: END IF;
5127: -- IBE_Util.Disable_Debug;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5130: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5131: IBE_Util.Debug('Expected error IBE_Quote_Save_pvt.Save()');
5132: END IF;
5133: ROLLBACK TO SAVE_pvt;
5134: x_return_status := FND_API.G_RET_STS_ERROR;
5127: -- IBE_Util.Disable_Debug;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5130: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5131: IBE_Util.Debug('Expected error IBE_Quote_Save_pvt.Save()');
5132: END IF;
5133: ROLLBACK TO SAVE_pvt;
5134: x_return_status := FND_API.G_RET_STS_ERROR;
5135: Set_Last_Update_Date(l_qte_header_rec.quote_header_id, x_last_update_date);
5135: Set_Last_Update_Date(l_qte_header_rec.quote_header_id, x_last_update_date);
5136: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5137: p_count => x_msg_count ,
5138: p_data => x_msg_data);
5139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5140: IBE_Util.Debug('Unexpected error IBE_Quote_Save_pvt.Save()');
5141: END IF;
5142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5143: ROLLBACK TO SAVE_pvt;
5136: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5137: p_count => x_msg_count ,
5138: p_data => x_msg_data);
5139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5140: IBE_Util.Debug('Unexpected error IBE_Quote_Save_pvt.Save()');
5141: END IF;
5142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5143: ROLLBACK TO SAVE_pvt;
5144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5145: Set_Last_Update_Date(l_qte_header_rec.quote_header_id, x_last_update_date);
5146: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5147: p_count => x_msg_count ,
5148: p_data => x_msg_data);
5149: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5150: IBE_Util.Debug('Unknown exception End IBE_Quote_Save_pvt.Save()');
5151: END IF;
5152: WHEN OTHERS THEN
5153: ROLLBACK TO SAVE_pvt;
5146: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5147: p_count => x_msg_count ,
5148: p_data => x_msg_data);
5149: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5150: IBE_Util.Debug('Unknown exception End IBE_Quote_Save_pvt.Save()');
5151: END IF;
5152: WHEN OTHERS THEN
5153: ROLLBACK TO SAVE_pvt;
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5159: END IF;
5160: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5161: p_count => x_msg_count ,
5162: p_data => x_msg_data);
5163: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5164: IBE_Util.Debug('End IBE_Quote_Save_pvt.Save()');
5165: END IF;
5166:
5167: END Save;
5160: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5161: p_count => x_msg_count ,
5162: p_data => x_msg_data);
5163: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5164: IBE_Util.Debug('End IBE_Quote_Save_pvt.Save()');
5165: END IF;
5166:
5167: END Save;
5168:
5254: lx_Price_Adjustment_Tbl ASO_Quote_Pub.Price_Adj_Tbl_Type;
5255: lx_Price_Adj_Attr_Tbl ASO_Quote_Pub.Price_Adj_Attr_Tbl_Type;
5256: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
5257: BEGIN
5258: -- IBE_Util.Enable_Debug;
5259: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5260: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5261: END IF;
5262:
5255: lx_Price_Adj_Attr_Tbl ASO_Quote_Pub.Price_Adj_Attr_Tbl_Type;
5256: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
5257: BEGIN
5258: -- IBE_Util.Enable_Debug;
5259: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5260: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5261: END IF;
5262:
5263: -- Standard Start of API savepoint
5256: lx_Price_Adj_Rltship_Tbl ASO_Quote_Pub.Price_Adj_Rltship_Tbl_Type;
5257: BEGIN
5258: -- IBE_Util.Enable_Debug;
5259: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5260: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5261: END IF;
5262:
5263: -- Standard Start of API savepoint
5264: SAVEPOINT UpdateQuoteForSharee_pvt;
5301: l_qte_header_rec := p_qte_header_rec;
5302: l_qte_header_rec.party_id := p_sharee_Party_id;
5303: l_qte_header_rec.cust_account_id := p_sharee_Cust_account_id;
5304:
5305: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5306: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5307: END IF;
5308:
5309: ASO_Quote_Pub.Update_Quote(
5302: l_qte_header_rec.party_id := p_sharee_Party_id;
5303: l_qte_header_rec.cust_account_id := p_sharee_Cust_account_id;
5304:
5305: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5306: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5307: END IF;
5308:
5309: ASO_Quote_Pub.Update_Quote(
5310: P_Api_Version_Number => P_Api_Version_Number
5351: ,X_Return_Status => x_return_status
5352: ,X_Msg_Count => x_msg_count
5353: ,X_Msg_Data => x_msg_data);
5354:
5355: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5356: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5357: END IF;
5358:
5359: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5352: ,X_Msg_Count => x_msg_count
5353: ,X_Msg_Data => x_msg_data);
5354:
5355: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5356: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5357: END IF;
5358:
5359: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5360: RAISE FND_API.G_EXC_ERROR;
5375: l_qte_header_rec.cust_account_id := l_Quote_Cust_account_id;
5376:
5377: l_control_rec := ASO_Quote_Pub.G_MISS_Control_Rec;
5378:
5379: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5380: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5381: END IF;
5382:
5383: ASO_Quote_Pub.Update_quote(
5376:
5377: l_control_rec := ASO_Quote_Pub.G_MISS_Control_Rec;
5378:
5379: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5380: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() starts');
5381: END IF;
5382:
5383: ASO_Quote_Pub.Update_quote(
5384: P_Api_Version_Number => P_Api_Version_Number
5406: ,X_Return_Status => x_return_status
5407: ,X_Msg_Count => x_msg_count
5408: ,X_Msg_Data => x_msg_data);
5409:
5410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5411: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5412: END IF;
5413: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5414: RAISE FND_API.G_EXC_ERROR;
5407: ,X_Msg_Count => x_msg_count
5408: ,X_Msg_Data => x_msg_data);
5409:
5410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5411: IBE_Util.Debug('ASO_Quote_Pub.Update_Quote() finishes');
5412: END IF;
5413: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5414: RAISE FND_API.G_EXC_ERROR;
5415: END IF;
5428: -- Standard call to get message count and if count is 1, get message info.
5429: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5430: p_count => x_msg_count ,
5431: p_data => x_msg_data);
5432: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5433: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5434: END IF;
5435: -- IBE_Util.Disable_Debug;
5436: EXCEPTION
5429: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5430: p_count => x_msg_count ,
5431: p_data => x_msg_data);
5432: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5433: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5434: END IF;
5435: -- IBE_Util.Disable_Debug;
5436: EXCEPTION
5437: WHEN FND_API.G_EXC_ERROR THEN
5431: p_data => x_msg_data);
5432: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5433: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5434: END IF;
5435: -- IBE_Util.Disable_Debug;
5436: EXCEPTION
5437: WHEN FND_API.G_EXC_ERROR THEN
5438: ROLLBACK TO UpdateQuoteForSharee_pvt;
5439: x_return_status := FND_API.G_RET_STS_ERROR;
5439: x_return_status := FND_API.G_RET_STS_ERROR;
5440: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5441: p_count => x_msg_count ,
5442: p_data => x_msg_data);
5443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5444: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5445: END IF;
5446: -- IBE_Util.Disable_Debug;
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5440: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5441: p_count => x_msg_count ,
5442: p_data => x_msg_data);
5443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5444: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5445: END IF;
5446: -- IBE_Util.Disable_Debug;
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: ROLLBACK TO UpdateQuoteForSharee_pvt;
5442: p_data => x_msg_data);
5443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5444: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5445: END IF;
5446: -- IBE_Util.Disable_Debug;
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: ROLLBACK TO UpdateQuoteForSharee_pvt;
5449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5450: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5450: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5451: p_count => x_msg_count ,
5452: p_data => x_msg_data);
5453: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5454: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5455: END IF;
5456: -- IBE_Util.Disable_Debug;
5457: WHEN OTHERS THEN
5450: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5451: p_count => x_msg_count ,
5452: p_data => x_msg_data);
5453: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5454: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5455: END IF;
5456: -- IBE_Util.Disable_Debug;
5457: WHEN OTHERS THEN
5458: ROLLBACK TO UpdateQuoteForSharee_pvt;
5452: p_data => x_msg_data);
5453: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5454: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5455: END IF;
5456: -- IBE_Util.Disable_Debug;
5457: WHEN OTHERS THEN
5458: ROLLBACK TO UpdateQuoteForSharee_pvt;
5459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5460:
5465:
5466: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5467: p_count => x_msg_count ,
5468: p_data => x_msg_data);
5469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5470: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5471: END IF;
5472: -- IBE_Util.Disable_Debug;
5473: END UpdateQuoteForSharee;
5466: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5467: p_count => x_msg_count ,
5468: p_data => x_msg_data);
5469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5470: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5471: END IF;
5472: -- IBE_Util.Disable_Debug;
5473: END UpdateQuoteForSharee;
5474:
5468: p_data => x_msg_data);
5469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5470: IBE_Util.Debug('End IBE_Quote_Save_pvt.UpdateQuoteForSharee()');
5471: END IF;
5472: -- IBE_Util.Disable_Debug;
5473: END UpdateQuoteForSharee;
5474:
5475:
5476: /* ------------------------------ Default API's: Start -----------------*/
5561: x_return_status := FND_API.G_RET_STS_SUCCESS;
5562:
5563: -- API body
5564:
5565: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5566: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5567: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5568: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5569: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5562:
5563: -- API body
5564:
5565: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5566: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5567: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5568: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5569: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5570: END IF;
5563: -- API body
5564:
5565: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5566: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5567: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5568: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5569: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5570: END IF;
5571:
5564:
5565: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5566: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5567: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5568: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5569: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5570: END IF;
5571:
5572: -- We will call the various helper api's to get default values
5565: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5566: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultValues()');
5567: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.party_id);
5568: -- IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.cust_acct_id);
5569: IBE_Util.Debug('APPLE1:'||p_Qte_Header_Rec.quote_header_id);
5570: END IF;
5571:
5572: -- We will call the various helper api's to get default values
5573: -- #* First we have to make sure we pass and get the right parameters
5575: lx_qte_header_rec := p_qte_header_rec;
5576: lx_hd_Payment_Tbl := p_hd_Payment_Tbl;
5577: lx_hd_Tax_Detail_Tbl := p_hd_Tax_Detail_Tbl;
5578:
5579: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5580: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5581: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5582: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5583: END IF;
5576: lx_hd_Payment_Tbl := p_hd_Payment_Tbl;
5577: lx_hd_Tax_Detail_Tbl := p_hd_Tax_Detail_Tbl;
5578:
5579: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5580: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5581: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5582: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5583: END IF;
5584:
5577: lx_hd_Tax_Detail_Tbl := p_hd_Tax_Detail_Tbl;
5578:
5579: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5580: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5581: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5582: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5583: END IF;
5584:
5585: -- #1 Shipping Info
5578:
5579: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5580: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.party_id);
5581: -- IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.cust_acct_id);
5582: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5583: END IF;
5584:
5585: -- #1 Shipping Info
5586: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5582: IBE_Util.Debug('APPLE2:'||lx_qte_header_rec.quote_header_id);
5583: END IF;
5584:
5585: -- #1 Shipping Info
5586: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5587: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO starts');
5588: END IF;
5589: getHdrDefaultAddress (
5590: P_Api_Version_Number => P_Api_Version_Number
5583: END IF;
5584:
5585: -- #1 Shipping Info
5586: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5587: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO starts');
5588: END IF;
5589: getHdrDefaultAddress (
5590: P_Api_Version_Number => P_Api_Version_Number
5591: ,p_Init_Msg_List => p_Init_Msg_List
5596: ,X_Return_Status => X_Return_Status
5597: ,X_Msg_Count => X_Msg_Count
5598: ,X_Msg_Data => X_Msg_Data
5599: );
5600: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5601: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO finishes');
5602: END IF;
5603: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5604: RAISE FND_API.G_EXC_ERROR;
5597: ,X_Msg_Count => X_Msg_Count
5598: ,X_Msg_Data => X_Msg_Data
5599: );
5600: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5601: IBE_Util.Debug('getHdrDefaultAddress() -- SHIPTO finishes');
5602: END IF;
5603: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5604: RAISE FND_API.G_EXC_ERROR;
5605: END IF;
5607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5608: END IF;
5609:
5610: if (lx_hd_shipment_tbl.count <> 0) then
5611: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5612: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5613: END IF;
5614: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5615: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5608: END IF;
5609:
5610: if (lx_hd_shipment_tbl.count <> 0) then
5611: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5612: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5613: END IF;
5614: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5615: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5616: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5611: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5612: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5613: END IF;
5614: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5615: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5616: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5617: END IF;
5618: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5619: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5612: IBE_Util.Debug('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5613: END IF;
5614: --dbms_output.put_line('lx_hd_shipment_tbl.ship_to_party_site_id: '||lx_hd_shipment_tbl(1).ship_to_party_site_id);
5615: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5616: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5617: END IF;
5618: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5619: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5620: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5615: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5616: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5617: END IF;
5618: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5619: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5620: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5621: END IF;
5622: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5623: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5616: IBE_Util.Debug('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5617: END IF;
5618: --dbms_output.put_line('lx_hd_shipment_tbl.shipment_id: '||lx_hd_shipment_tbl(1).shipment_id);
5619: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5620: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5621: END IF;
5622: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5623: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5624: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5619: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5620: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5621: END IF;
5622: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5623: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5624: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5625: END IF;
5626: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5627:
5620: IBE_Util.Debug('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5621: END IF;
5622: --dbms_output.put_line('lx_hd_shipment_tbl.quote_header_id: '||lx_hd_shipment_tbl(1).quote_header_id);
5623: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5624: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5625: END IF;
5626: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5627:
5628: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5624: IBE_Util.Debug('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5625: END IF;
5626: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5627:
5628: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5629: IBE_Util.Debug('*******************************');
5630: END IF;
5631: --dbms_output.put_line('*******************************');
5632:
5625: END IF;
5626: --dbms_output.put_line('lx_hd_shipment_tbl.operation_code: '||lx_hd_shipment_tbl(1).operation_code);
5627:
5628: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5629: IBE_Util.Debug('*******************************');
5630: END IF;
5631: --dbms_output.put_line('*******************************');
5632:
5633: -- 9/11/02: we only call this api if we were able to find the shipTo address because if we can't find
5631: --dbms_output.put_line('*******************************');
5632:
5633: -- 9/11/02: we only call this api if we were able to find the shipTo address because if we can't find
5634: -- this info, we can't default the contact
5635: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5636: IBE_Util.Debug('getHdrDefaultShipMethod() starts');
5637: END IF;
5638: getHdrDefaultShipMethod (
5639: P_Api_Version_Number => P_Api_Version_Number
5632:
5633: -- 9/11/02: we only call this api if we were able to find the shipTo address because if we can't find
5634: -- this info, we can't default the contact
5635: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5636: IBE_Util.Debug('getHdrDefaultShipMethod() starts');
5637: END IF;
5638: getHdrDefaultShipMethod (
5639: P_Api_Version_Number => P_Api_Version_Number
5640: ,p_Init_Msg_List => p_Init_Msg_List
5645: ,X_Return_Status => X_Return_Status
5646: ,X_Msg_Count => X_Msg_Count
5647: ,X_Msg_Data => X_Msg_Data
5648: );
5649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5650: IBE_Util.Debug('getHdrDefaultShipMethod() finishes');
5651: END IF;
5652: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5653: RAISE FND_API.G_EXC_ERROR;
5646: ,X_Msg_Count => X_Msg_Count
5647: ,X_Msg_Data => X_Msg_Data
5648: );
5649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5650: IBE_Util.Debug('getHdrDefaultShipMethod() finishes');
5651: END IF;
5652: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5653: RAISE FND_API.G_EXC_ERROR;
5654: END IF;
5656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5657: END IF;
5658:
5659: if (lx_hd_Shipment_Tbl.count <> 0) then
5660: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5661: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5662: END IF;
5663: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5657: END IF;
5658:
5659: if (lx_hd_Shipment_Tbl.count <> 0) then
5660: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5661: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5662: END IF;
5663: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5665: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5660: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5661: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5662: END IF;
5663: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5665: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5666: END IF;
5667: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5661: IBE_Util.Debug('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5662: END IF;
5663: --dbms_output.put_line('lx_hd_Shipment_Tbl.shipment_id: '||lx_hd_Shipment_Tbl(1).shipment_id);
5664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5665: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5666: END IF;
5667: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5669: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5665: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5666: END IF;
5667: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5669: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5670: END IF;
5671: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5665: IBE_Util.Debug('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5666: END IF;
5667: --dbms_output.put_line('lx_hd_Shipment_Tbl.quote_header_id: '||lx_hd_Shipment_Tbl(1).quote_header_id);
5668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5669: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5670: END IF;
5671: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5673: IBE_Util.Debug('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5668: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5669: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5670: END IF;
5671: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5673: IBE_Util.Debug('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5674: END IF;
5675: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5676:
5669: IBE_Util.Debug('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5670: END IF;
5671: --dbms_output.put_line('lx_hd_Shipment_Tbl.operation_code: '||lx_hd_Shipment_Tbl(1).operation_code);
5672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5673: IBE_Util.Debug('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5674: END IF;
5675: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5676:
5677: end if;
5674: END IF;
5675: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5676:
5677: end if;
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('*******************************');
5680: END IF;
5681: --dbms_output.put_line('*******************************');
5682: end if; -- if there is shipTo address
5675: --dbms_output.put_line('lx_hd_Shipment_Tbl.SHIP_METHOD_CODE: '||lx_hd_Shipment_Tbl(1).SHIP_METHOD_CODE);
5676:
5677: end if;
5678: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5679: IBE_Util.Debug('*******************************');
5680: END IF;
5681: --dbms_output.put_line('*******************************');
5682: end if; -- if there is shipTo address
5683:
5681: --dbms_output.put_line('*******************************');
5682: end if; -- if there is shipTo address
5683:
5684: -- #2 Billing Info
5685: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5686: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO starts');
5687: IBE_Util.Debug('STAR 123 getHdrDefaultAddress()' || lx_qte_header_rec.party_id);
5688: END IF;
5689: getHdrDefaultAddress (
5682: end if; -- if there is shipTo address
5683:
5684: -- #2 Billing Info
5685: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5686: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO starts');
5687: IBE_Util.Debug('STAR 123 getHdrDefaultAddress()' || lx_qte_header_rec.party_id);
5688: END IF;
5689: getHdrDefaultAddress (
5690: P_Api_Version_Number => P_Api_Version_Number
5683:
5684: -- #2 Billing Info
5685: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5686: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO starts');
5687: IBE_Util.Debug('STAR 123 getHdrDefaultAddress()' || lx_qte_header_rec.party_id);
5688: END IF;
5689: getHdrDefaultAddress (
5690: P_Api_Version_Number => P_Api_Version_Number
5691: ,p_Init_Msg_List => p_Init_Msg_List
5696: ,X_Return_Status => X_Return_Status
5697: ,X_Msg_Count => X_Msg_Count
5698: ,X_Msg_Data => X_Msg_Data
5699: );
5700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5701: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO finishes');
5702: END IF;
5703: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5704: RAISE FND_API.G_EXC_ERROR;
5697: ,X_Msg_Count => X_Msg_Count
5698: ,X_Msg_Data => X_Msg_Data
5699: );
5700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5701: IBE_Util.Debug('getHdrDefaultAddress() -- BILLTO finishes');
5702: END IF;
5703: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5704: RAISE FND_API.G_EXC_ERROR;
5705: END IF;
5706: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5708: END IF;
5709:
5710: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5711: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5712: END IF;
5713: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5714: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5708: END IF;
5709:
5710: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5711: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5712: END IF;
5713: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5714: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5715: IBE_Util.Debug('*******************************');
5710: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5711: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5712: END IF;
5713: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5714: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5715: IBE_Util.Debug('*******************************');
5716: END IF;
5717: --dbms_output.put_line('*******************************');
5718:
5711: IBE_Util.Debug('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5712: END IF;
5713: --dbms_output.put_line('lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID: '||to_char(lx_qte_header_rec.INVOICE_TO_PARTY_SITE_ID));
5714: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5715: IBE_Util.Debug('*******************************');
5716: END IF;
5717: --dbms_output.put_line('*******************************');
5718:
5719: IBE_PAYMENT_INT_PVT.check_Payment_channel_setups
5730: billing page to provide the credit card cvv2 number*/
5731: IF(l_cvv2_setup <> FND_API.G_TRUE) THEN
5732:
5733:
5734: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5735: IBE_Util.Debug('getHdrDefaultPaymentMethod() starts');
5736: END IF;
5737: getHdrDefaultPaymentMethod (
5738: P_Api_Version_Number => P_Api_Version_Number
5731: IF(l_cvv2_setup <> FND_API.G_TRUE) THEN
5732:
5733:
5734: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5735: IBE_Util.Debug('getHdrDefaultPaymentMethod() starts');
5736: END IF;
5737: getHdrDefaultPaymentMethod (
5738: P_Api_Version_Number => P_Api_Version_Number
5739: ,p_Init_Msg_List => p_Init_Msg_List
5744: ,X_Return_Status => X_Return_Status
5745: ,X_Msg_Count => X_Msg_Count
5746: ,X_Msg_Data => X_Msg_Data
5747: );
5748: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5749: IBE_Util.Debug('getHdrDefaultPaymentMethod() finishes');
5750: END IF;
5751: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5752: RAISE FND_API.G_EXC_ERROR;
5745: ,X_Msg_Count => X_Msg_Count
5746: ,X_Msg_Data => X_Msg_Data
5747: );
5748: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5749: IBE_Util.Debug('getHdrDefaultPaymentMethod() finishes');
5750: END IF;
5751: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5752: RAISE FND_API.G_EXC_ERROR;
5753: END IF;
5755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5756: END IF;
5757:
5758: if (lx_hd_Payment_Tbl.count <> 0) then
5759: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5760: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5761: END IF;
5762: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5756: END IF;
5757:
5758: if (lx_hd_Payment_Tbl.count <> 0) then
5759: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5760: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5761: END IF;
5762: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5764: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5759: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5760: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5761: END IF;
5762: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5764: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5765: END IF;
5766: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5760: IBE_Util.Debug('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5761: END IF;
5762: --dbms_output.put_line('lx_hd_Payment_Tbl.payment_id: '||lx_hd_Payment_Tbl(1).payment_id);
5763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5764: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5765: END IF;
5766: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5768: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5764: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5765: END IF;
5766: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5768: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5769: END IF;
5770: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5771: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5764: IBE_Util.Debug('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5765: END IF;
5766: --dbms_output.put_line('lx_hd_Payment_Tbl.quote_header_id: '||lx_hd_Payment_Tbl(1).quote_header_id);
5767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5768: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5769: END IF;
5770: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5771: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5772: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5768: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5769: END IF;
5770: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5771: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5772: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5773: END IF;
5774: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5775:
5768: IBE_Util.Debug('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5769: END IF;
5770: --dbms_output.put_line('lx_hd_Payment_Tbl.operation_code: '||lx_hd_Payment_Tbl(1).operation_code);
5771: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5772: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5773: END IF;
5774: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5775:
5776: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5772: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5773: END IF;
5774: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5775:
5776: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5777: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5779: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5780: END IF;
5774: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TYPE_CODE: '||lx_hd_Payment_Tbl(1).PAYMENT_TYPE_CODE);
5775:
5776: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5777: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5779: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5780: END IF;
5781: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5775:
5776: --IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5777: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_REF_NUMBER: '||lx_hd_Payment_Tbl(1).PAYMENT_REF_NUMBER);
5778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5779: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5780: END IF;
5781: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5783: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5779: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5780: END IF;
5781: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5783: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5784: END IF;
5785: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5786: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5779: IBE_Util.Debug('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5780: END IF;
5781: --dbms_output.put_line('lx_hd_Payment_Tbl.PAYMENT_TERM_ID: '||lx_hd_Payment_Tbl(1).PAYMENT_TERM_ID);
5782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5783: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5784: END IF;
5785: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5786: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5787: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5783: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5784: END IF;
5785: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5786: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5787: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5788: END IF;
5789: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5790: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5783: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5784: END IF;
5785: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_CODE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_CODE);
5786: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5787: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5788: END IF;
5789: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5790: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5791: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5786: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5787: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5788: END IF;
5789: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5790: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5791: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5792: END IF;
5793: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5794: end if;
5787: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5788: END IF;
5789: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_HOLDER_NAME: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME);
5790: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5791: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5792: END IF;
5793: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5794: end if;
5795: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5791: IBE_Util.Debug('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5792: END IF;
5793: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5794: end if;
5795: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5796: IBE_Util.Debug('*******************************');
5797: END IF;
5798: END IF; --l_cvv2_setup <> FND_API.G_TRUE
5799: --dbms_output.put_line('*******************************');
5792: END IF;
5793: --dbms_output.put_line('lx_hd_Payment_Tbl.CREDIT_CARD_EXPIRATION_DATE: '||lx_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE);
5794: end if;
5795: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5796: IBE_Util.Debug('*******************************');
5797: END IF;
5798: END IF; --l_cvv2_setup <> FND_API.G_TRUE
5799: --dbms_output.put_line('*******************************');
5800:
5800:
5801: 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
5802: -- 9/11/02: we only call this api if we were able to find the billTo address because if we can't find
5803: -- this info, we can't default the contact
5804: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5805: IBE_Util.Debug('getHdrDefaultTaxExemption() starts');
5806: END IF;
5807: getHdrDefaultTaxExemption (
5808: P_Api_Version_Number => P_Api_Version_Number
5801: 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
5802: -- 9/11/02: we only call this api if we were able to find the billTo address because if we can't find
5803: -- this info, we can't default the contact
5804: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5805: IBE_Util.Debug('getHdrDefaultTaxExemption() starts');
5806: END IF;
5807: getHdrDefaultTaxExemption (
5808: P_Api_Version_Number => P_Api_Version_Number
5809: ,p_Init_Msg_List => p_Init_Msg_List
5813: ,X_Return_Status => X_Return_Status
5814: ,X_Msg_Count => X_Msg_Count
5815: ,X_Msg_Data => X_Msg_Data
5816: );
5817: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5818: IBE_Util.Debug('getHdrDefaultTaxExemption() finishes');
5819: END IF;
5820: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5821: RAISE FND_API.G_EXC_ERROR;
5814: ,X_Msg_Count => X_Msg_Count
5815: ,X_Msg_Data => X_Msg_Data
5816: );
5817: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5818: IBE_Util.Debug('getHdrDefaultTaxExemption() finishes');
5819: END IF;
5820: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5821: RAISE FND_API.G_EXC_ERROR;
5822: END IF;
5824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5825: END IF;
5826:
5827: if (lx_hd_Tax_Detail_Tbl.count <> 0) then
5828: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5829: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5830: END IF;
5831: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5825: END IF;
5826:
5827: if (lx_hd_Tax_Detail_Tbl.count <> 0) then
5828: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5829: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5830: END IF;
5831: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5833: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5828: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5829: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5830: END IF;
5831: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5833: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5834: END IF;
5835: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5836: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5829: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5830: END IF;
5831: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_detail_id: '||lx_hd_Tax_Detail_Tbl(1).tax_detail_id);
5832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5833: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5834: END IF;
5835: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5836: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5837: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5832: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5833: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5834: END IF;
5835: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5836: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5837: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5838: END IF;
5839: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5840: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5833: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5834: END IF;
5835: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.quote_header_id: '||lx_hd_Tax_Detail_Tbl(1).quote_header_id);
5836: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5837: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5838: END IF;
5839: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5840: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5841: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5836: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5837: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5838: END IF;
5839: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5840: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5841: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5842: END IF;
5843: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5844:
5837: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5838: END IF;
5839: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.operation_code: '||lx_hd_Tax_Detail_Tbl(1).operation_code);
5840: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5841: IBE_Util.Debug('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5842: END IF;
5843: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5844:
5845: end if;
5842: END IF;
5843: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5844:
5845: end if;
5846: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5847: IBE_Util.Debug('*******************************');
5848: END IF;
5849: --dbms_output.put_line('*******************************');
5850: end if; -- if there is billTo address
5843: --dbms_output.put_line('lx_hd_Tax_Detail_Tbl.tax_exempt_flag: '||lx_hd_Tax_Detail_Tbl(1).tax_exempt_flag);
5844:
5845: end if;
5846: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5847: IBE_Util.Debug('*******************************');
5848: END IF;
5849: --dbms_output.put_line('*******************************');
5850: end if; -- if there is billTo address
5851:
5851:
5852: -- #3 End Customer Info (added 1/24/05>
5853: l_userType := IBE_Quote_Misc_pvt.getUserType(lx_qte_header_rec.party_id);
5854: if (l_userType = 'B2B') then
5855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5856: IBE_Util.Debug('getHdrDefaultEndCustomer() starts');
5857: END IF;
5858: getHdrDefaultEndCustomer (
5859: P_Api_Version_Number => P_Api_Version_Number
5852: -- #3 End Customer Info (added 1/24/05>
5853: l_userType := IBE_Quote_Misc_pvt.getUserType(lx_qte_header_rec.party_id);
5854: if (l_userType = 'B2B') then
5855: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5856: IBE_Util.Debug('getHdrDefaultEndCustomer() starts');
5857: END IF;
5858: getHdrDefaultEndCustomer (
5859: P_Api_Version_Number => P_Api_Version_Number
5860: ,p_Init_Msg_List => p_Init_Msg_List
5864: ,X_Return_Status => X_Return_Status
5865: ,X_Msg_Count => X_Msg_Count
5866: ,X_Msg_Data => X_Msg_Data
5867: );
5868: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5869: IBE_Util.Debug('getHdrDefaultEndCustomer() finishes');
5870: END IF;
5871: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5872: RAISE FND_API.G_EXC_ERROR;
5865: ,X_Msg_Count => X_Msg_Count
5866: ,X_Msg_Data => X_Msg_Data
5867: );
5868: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5869: IBE_Util.Debug('getHdrDefaultEndCustomer() finishes');
5870: END IF;
5871: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5872: RAISE FND_API.G_EXC_ERROR;
5873: END IF;
5893: -- Standard call to get message count and if count is 1, get message info.
5894: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5895: p_count => x_msg_count ,
5896: p_data => x_msg_data);
5897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5898: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultValues()');
5899: END IF;
5900: --IBE_Util.Disable_Debug;
5901:
5894: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5895: p_count => x_msg_count ,
5896: p_data => x_msg_data);
5897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5898: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultValues()');
5899: END IF;
5900: --IBE_Util.Disable_Debug;
5901:
5902: EXCEPTION
5896: p_data => x_msg_data);
5897: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5898: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultValues()');
5899: END IF;
5900: --IBE_Util.Disable_Debug;
5901:
5902: EXCEPTION
5903: WHEN FND_API.G_EXC_ERROR THEN
5904: ROLLBACK TO getHdrDefaultValues_PVT;
6010: x_return_status := FND_API.G_RET_STS_SUCCESS;
6011:
6012: -- API body
6013:
6014: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6015: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6016: END IF;
6017: -- 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:
6018: /*
6011:
6012: -- API body
6013:
6014: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6015: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6016: END IF;
6017: -- 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:
6018: /*
6019: *Here is the general algorithm:
6026: else
6027: there is shipment record but no shipTo_partyId -> partyId = cookie's
6028: */
6029:
6030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6031: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
6032: END IF;
6033: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
6034: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6027: there is shipment record but no shipTo_partyId -> partyId = cookie's
6028: */
6029:
6030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6031: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
6032: END IF;
6033: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
6034: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6035: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6031: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
6032: END IF;
6033: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
6034: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6035: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6036: END IF;
6037: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6038: 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
6031: IBE_Util.Debug('getDefaultAddress: l_party_id ='||l_party_id);
6032: END IF;
6033: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id ='||l_party_id);
6034: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6035: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6036: END IF;
6037: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6038: 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
6039: if (p_party_site_use = 'S') then
6042: open c_check_shipTo_rec_exist (px_qte_header_rec.quote_header_id);
6043: fetch c_check_shipTo_rec_exist into rec_shipTo_rec_exist;
6044: close c_check_shipTo_rec_exist;
6045:
6046: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6047: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6048: END IF;
6049: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6050: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6043: fetch c_check_shipTo_rec_exist into rec_shipTo_rec_exist;
6044: close c_check_shipTo_rec_exist;
6045:
6046: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6047: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6048: END IF;
6049: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6050: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6051: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6046: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6047: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6048: END IF;
6049: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6050: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6051: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6052: END IF;
6053: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6054: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6047: IBE_Util.Debug('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6048: END IF;
6049: --DBMS_OUTPUT.PUT_line('getDefaultAddress: px_qte_header_rec.quote_header_id ='||px_qte_header_rec.quote_header_id);
6050: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6051: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6052: END IF;
6053: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6054: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6055: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
6050: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6051: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6052: END IF;
6053: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6054: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6055: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
6056: END IF;
6057: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
6058:
6051: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6052: END IF;
6053: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID='||rec_shipTo_rec_exist.SHIP_TO_PARTY_SITE_ID);
6054: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6055: IBE_Util.Debug('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
6056: END IF;
6057: --DBMS_OUTPUT.PUT_line('getDefaultAddress: rec_shipTo_rec_exist.shipment_id ='||rec_shipTo_rec_exist.shipment_id);
6058:
6059: -- if there is already a shipTo partySiteId, we are done
6062:
6063: -- if there is no shipmentId
6064: elsif ((rec_shipTo_rec_exist.shipment_id = FND_API.G_MISS_NUM) or (rec_shipTo_rec_exist.shipment_id is null)) then
6065: l_party_id := px_qte_header_rec.party_id;
6066: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6067: IBE_Util.Debug('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
6068: END IF;
6069: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
6070:
6063: -- if there is no shipmentId
6064: elsif ((rec_shipTo_rec_exist.shipment_id = FND_API.G_MISS_NUM) or (rec_shipTo_rec_exist.shipment_id is null)) then
6065: l_party_id := px_qte_header_rec.party_id;
6066: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6067: IBE_Util.Debug('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
6068: END IF;
6069: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-no shipId-='||l_party_id);
6070:
6071: else
6078:
6079: -- if there is shipTo contact
6080: 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
6081: l_party_id := rec_shipTo_partyId.ship_to_party_id;
6082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6083: IBE_Util.Debug('getDefaultAddress: l_party_id-contact-='||l_party_id);
6084: END IF;
6085: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
6086: else
6079: -- if there is shipTo contact
6080: 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
6081: l_party_id := rec_shipTo_partyId.ship_to_party_id;
6082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6083: IBE_Util.Debug('getDefaultAddress: l_party_id-contact-='||l_party_id);
6084: END IF;
6085: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
6086: else
6087: l_party_id := px_qte_header_rec.party_id;
6084: END IF;
6085: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
6086: else
6087: l_party_id := px_qte_header_rec.party_id;
6088: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6089: IBE_Util.Debug('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
6090: END IF;
6091: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
6092: end if;
6085: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-contact-='||l_party_id);
6086: else
6087: l_party_id := px_qte_header_rec.party_id;
6088: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6089: IBE_Util.Debug('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
6090: END IF;
6091: --DBMS_OUTPUT.PUT_line('getDefaultAddress: l_party_id-soldTo-='||l_party_id);
6092: end if;
6093:
6127:
6128: end if; -- check p_party_site_use
6129: end if; -- for merge cart cases
6130:
6131: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6132: IBE_Util.Debug('l_party_id ='||l_party_id);
6133: END IF;
6134: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6135: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6128: end if; -- check p_party_site_use
6129: end if; -- for merge cart cases
6130:
6131: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6132: IBE_Util.Debug('l_party_id ='||l_party_id);
6133: END IF;
6134: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6135: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6136: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6131: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6132: IBE_Util.Debug('l_party_id ='||l_party_id);
6133: END IF;
6134: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6135: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6136: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6137: END IF;
6138: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6132: IBE_Util.Debug('l_party_id ='||l_party_id);
6133: END IF;
6134: --DBMS_OUTPUT.PUT_line('l_party_id ='||l_party_id);
6135: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6136: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6137: END IF;
6138: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6140: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6135: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6136: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6137: END IF;
6138: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6140: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6141: END IF;
6142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6143: IBE_Util.Debug('l_isDone ='||l_isDone);
6136: IBE_Util.Debug('p_party_site_use='||p_party_site_use);
6137: END IF;
6138: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6140: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6141: END IF;
6142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6143: IBE_Util.Debug('l_isDone ='||l_isDone);
6144: END IF;
6138: --DBMS_OUTPUT.PUT_line('p_party_site_use='||p_party_site_use);
6139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6140: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6141: END IF;
6142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6143: IBE_Util.Debug('l_isDone ='||l_isDone);
6144: END IF;
6145: --DBMS_OUTPUT.PUT_line('l_isDone ='||l_isDone);
6146:
6139: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6140: IBE_Util.Debug('l_orgId ='||MO_GLOBAL.get_current_org_id());
6141: END IF;
6142: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6143: IBE_Util.Debug('l_isDone ='||l_isDone);
6144: END IF;
6145: --DBMS_OUTPUT.PUT_line('l_isDone ='||l_isDone);
6146:
6147: -- 2. if there isn't a record, continue
6145: --DBMS_OUTPUT.PUT_line('l_isDone ='||l_isDone);
6146:
6147: -- 2. if there isn't a record, continue
6148: if (l_isDone <> 'Y') then
6149: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6150: IBE_Util.Debug('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6151: END IF;
6152: --DBMS_OUTPUT.PUT_line('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6153: IBE_ADDRESS_V2PVT.get_primary_addr_id
6146:
6147: -- 2. if there isn't a record, continue
6148: if (l_isDone <> 'Y') then
6149: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6150: IBE_Util.Debug('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6151: END IF;
6152: --DBMS_OUTPUT.PUT_line('Before calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6153: IBE_ADDRESS_V2PVT.get_primary_addr_id
6154: (
6169: END IF;
6170: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6172: END IF;
6173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6174: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6175: END IF;
6176: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6177: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6170: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6172: END IF;
6173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6174: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6175: END IF;
6176: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6177: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6178: IBE_Util.Debug('lx_party_site_id ='||lx_party_site_id);
6173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6174: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6175: END IF;
6176: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6177: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6178: IBE_Util.Debug('lx_party_site_id ='||lx_party_site_id);
6179: END IF;
6180: --DBMS_OUTPUT.PUT_line('lx_party_site_id ='||lx_party_site_id);
6181:
6174: IBE_Util.Debug('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6175: END IF;
6176: --DBMS_OUTPUT.PUT_line('After calling IBE_ADDRESS_V2PVT.get_primary_address_id');
6177: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6178: IBE_Util.Debug('lx_party_site_id ='||lx_party_site_id);
6179: END IF;
6180: --DBMS_OUTPUT.PUT_line('lx_party_site_id ='||lx_party_site_id);
6181:
6182: -- 2.1 populate the shipment/quote hdr record:
6209: -- Standard call to get message count and if count is 1, get message info.
6210: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6211: p_count => x_msg_count ,
6212: p_data => x_msg_data);
6213: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6214: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6215: END IF;
6216: --IBE_Util.Disable_Debug;
6217:
6210: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6211: p_count => x_msg_count ,
6212: p_data => x_msg_data);
6213: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6214: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6215: END IF;
6216: --IBE_Util.Disable_Debug;
6217:
6218: EXCEPTION
6212: p_data => x_msg_data);
6213: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6214: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultAddress()');
6215: END IF;
6216: --IBE_Util.Disable_Debug;
6217:
6218: EXCEPTION
6219: WHEN FND_API.G_EXC_ERROR THEN
6220: ROLLBACK TO getHdrDefaultAddress_pvt;
6314: x_return_status := FND_API.G_RET_STS_SUCCESS;
6315:
6316: -- API body
6317:
6318: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6319: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6320: END IF;
6321:
6322: -- 1. for the merge cart cases, we have to check if there is shipment method in the shipment record associated w/ the cart:
6315:
6316: -- API body
6317:
6318: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6319: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6320: END IF;
6321:
6322: -- 1. for the merge cart cases, we have to check if there is shipment method in the shipment record associated w/ the cart:
6323: 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
6337: l_shipment_id := rec_shipTo_rec_exist.shipment_id;
6338: end if;
6339: end if; -- for merge cart cases
6340:
6341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6342: IBE_Util.Debug('l_opCode :'||l_opCode);
6343: END IF;
6344: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6338: end if;
6339: end if; -- for merge cart cases
6340:
6341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6342: IBE_Util.Debug('l_opCode :'||l_opCode);
6343: END IF;
6344: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6346: IBE_Util.Debug('l_shipment_id :'||l_shipment_id);
6341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6342: IBE_Util.Debug('l_opCode :'||l_opCode);
6343: END IF;
6344: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6346: IBE_Util.Debug('l_shipment_id :'||l_shipment_id);
6347: END IF;
6348: --DBMS_OUTPUT.PUT_line('l_shipment_id :'||l_shipment_id);
6349:
6342: IBE_Util.Debug('l_opCode :'||l_opCode);
6343: END IF;
6344: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6345: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6346: IBE_Util.Debug('l_shipment_id :'||l_shipment_id);
6347: END IF;
6348: --DBMS_OUTPUT.PUT_line('l_shipment_id :'||l_shipment_id);
6349:
6350: -- 2. if there isn't a record, continue
6353: -- if there is a value then we have to validate this value with the list of shipment methods
6354: -- created from an intersection of shipment methods in the minisite and those in the operation unit
6355: l_ship_method_code := FND_PROFILE.VALUE('IBE_PREFERED_SHIP_METHOD');
6356:
6357: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6358: IBE_Util.Debug('l_ship_method_code :'||l_ship_method_code||'*');
6359: END IF;
6360: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6361: if (l_ship_method_code = '') then
6354: -- created from an intersection of shipment methods in the minisite and those in the operation unit
6355: l_ship_method_code := FND_PROFILE.VALUE('IBE_PREFERED_SHIP_METHOD');
6356:
6357: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6358: IBE_Util.Debug('l_ship_method_code :'||l_ship_method_code||'*');
6359: END IF;
6360: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6361: if (l_ship_method_code = '') then
6362: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6358: IBE_Util.Debug('l_ship_method_code :'||l_ship_method_code||'*');
6359: END IF;
6360: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6361: if (l_ship_method_code = '') then
6362: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6363: IBE_Util.Debug('l_ship_method_code is blank');
6364: END IF;
6365: --DBMS_OUTPUT.PUT_line('l_ship_method_code is blank');
6366: end if;
6359: END IF;
6360: --DBMS_OUTPUT.PUT_line('l_ship_method_code :'||l_ship_method_code||'*');
6361: if (l_ship_method_code = '') then
6362: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6363: IBE_Util.Debug('l_ship_method_code is blank');
6364: END IF;
6365: --DBMS_OUTPUT.PUT_line('l_ship_method_code is blank');
6366: end if;
6367:
6379:
6380: l_ship_method_code := rec_MiniSiteOrg_ShipMethod.msite_information1;
6381: -- l_ship_method_code := null; -- commenting for ER# 4663790
6382:
6383: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6384: IBE_Util.Debug('case 2.2: l_ship_method_code :'||l_ship_method_code);
6385: END IF;
6386:
6387: l_prefSMValid := 'Y';
6380: l_ship_method_code := rec_MiniSiteOrg_ShipMethod.msite_information1;
6381: -- l_ship_method_code := null; -- commenting for ER# 4663790
6382:
6383: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6384: IBE_Util.Debug('case 2.2: l_ship_method_code :'||l_ship_method_code);
6385: END IF;
6386:
6387: l_prefSMValid := 'Y';
6388: exit;
6388: exit;
6389: else
6390: -- case 2.1: validate preferred ship method w/ the result set
6391: if (l_ship_method_code = rec_MiniSiteOrg_ShipMethod.msite_information1) then
6392: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6393: IBE_Util.Debug('case 2.1: l_ship_method_code :'||l_ship_method_code);
6394: END IF;
6395: l_prefSMValid := 'Y';
6396: exit;
6389: else
6390: -- case 2.1: validate preferred ship method w/ the result set
6391: if (l_ship_method_code = rec_MiniSiteOrg_ShipMethod.msite_information1) then
6392: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6393: IBE_Util.Debug('case 2.1: l_ship_method_code :'||l_ship_method_code);
6394: END IF;
6395: l_prefSMValid := 'Y';
6396: exit;
6397: end if;
6399: -- case 2.2 #2: if preferred ship method is not in result set, then take the first row of the result set
6400: -- Hence, we have to keep track of the first row
6401: if (l_index = 1) then
6402: l_ship_method_code_first := rec_MiniSiteOrg_ShipMethod.msite_information1;
6403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6404: IBE_Util.Debug('l_ship_method_code_first :'||l_ship_method_code_first);
6405: END IF;
6406: l_index := 2;
6407: end if;
6400: -- Hence, we have to keep track of the first row
6401: if (l_index = 1) then
6402: l_ship_method_code_first := rec_MiniSiteOrg_ShipMethod.msite_information1;
6403: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6404: IBE_Util.Debug('l_ship_method_code_first :'||l_ship_method_code_first);
6405: END IF;
6406: l_index := 2;
6407: end if;
6408: end if;
6421: -- 11/14/02: added this
6422:
6423: -- l_ship_method_code := null; -- commenting for ER# 4663790
6424:
6425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6426: IBE_Util.Debug('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6427: END IF;
6428: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6429: end if;
6422:
6423: -- l_ship_method_code := null; -- commenting for ER# 4663790
6424:
6425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6426: IBE_Util.Debug('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6427: END IF;
6428: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6429: end if;
6430:
6427: END IF;
6428: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6429: end if;
6430:
6431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6432: IBE_Util.Debug('Finally: l_ship_method_code :'||l_ship_method_code);
6433: END IF;
6434: --DBMS_OUTPUT.PUT_line('Finally: l_ship_method_code :'||l_ship_method_code);
6435: -- 2.3 populate the shipment record:
6428: --DBMS_OUTPUT.PUT_line('case 2.2#2: l_ship_method_code :'||l_ship_method_code);
6429: end if;
6430:
6431: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6432: IBE_Util.Debug('Finally: l_ship_method_code :'||l_ship_method_code);
6433: END IF;
6434: --DBMS_OUTPUT.PUT_line('Finally: l_ship_method_code :'||l_ship_method_code);
6435: -- 2.3 populate the shipment record:
6436: if ((l_ship_method_code <> FND_API.G_MISS_char) and (l_ship_method_code is not null)) then
6451: -- Standard call to get message count and if count is 1, get message info.
6452: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6453: p_count => x_msg_count ,
6454: p_data => x_msg_data);
6455: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6456: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6457: END IF;
6458: --IBE_Util.Disable_Debug;
6459:
6452: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6453: p_count => x_msg_count ,
6454: p_data => x_msg_data);
6455: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6456: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6457: END IF;
6458: --IBE_Util.Disable_Debug;
6459:
6460:
6454: p_data => x_msg_data);
6455: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6456: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultShipMethod()');
6457: END IF;
6458: --IBE_Util.Disable_Debug;
6459:
6460:
6461: EXCEPTION
6462: WHEN FND_API.G_EXC_ERROR THEN
6569: x_return_status := FND_API.G_RET_STS_SUCCESS;
6570:
6571: -- API body
6572:
6573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6574: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6575: END IF;
6576: -- 1. for the merge cart cases, we have to check if there is a payment record associated w/ the cart:
6577: 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
6570:
6571: -- API body
6572:
6573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6574: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6575: END IF;
6576: -- 1. for the merge cart cases, we have to check if there is a payment record associated w/ the cart:
6577: 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
6578:
6598: l_isDone := 'Y';
6599: end if;
6600: end if; -- for merge cart cases
6601:
6602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6603: IBE_Util.Debug('l_opCode :'||l_opCode);
6604: END IF;
6605: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6599: end if;
6600: end if; -- for merge cart cases
6601:
6602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6603: IBE_Util.Debug('l_opCode :'||l_opCode);
6604: END IF;
6605: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6607: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6602: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6603: IBE_Util.Debug('l_opCode :'||l_opCode);
6604: END IF;
6605: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6607: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6608: END IF;
6609: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6610: IBE_Util.Debug('l_isDone :'||l_isDone);
6603: IBE_Util.Debug('l_opCode :'||l_opCode);
6604: END IF;
6605: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6607: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6608: END IF;
6609: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6610: IBE_Util.Debug('l_isDone :'||l_isDone);
6611: END IF;
6605: --DBMS_OUTPUT.PUT_line('l_opCode :'||l_opCode);
6606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6607: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6608: END IF;
6609: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6610: IBE_Util.Debug('l_isDone :'||l_isDone);
6611: END IF;
6612: --DBMS_OUTPUT.PUT_line('l_payment_id :'||l_payment_id);
6613:
6606: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6607: IBE_Util.Debug('l_payment_id :'||l_payment_id);
6608: END IF;
6609: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6610: IBE_Util.Debug('l_isDone :'||l_isDone);
6611: END IF;
6612: --DBMS_OUTPUT.PUT_line('l_payment_id :'||l_payment_id);
6613:
6614: -- 2. if there isn't a record, continue
6621:
6622: -- 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
6623: if ((rec_CC_enabled.msite_information1 <> FND_API.G_MISS_char) and (rec_CC_enabled.msite_information1 is not null)) then
6624:
6625: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6626: IBE_Util.Debug('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6627: END IF;
6628: --DBMS_OUTPUT.PUT_line('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6629: /* CC consolidation */
6622: -- 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
6623: if ((rec_CC_enabled.msite_information1 <> FND_API.G_MISS_char) and (rec_CC_enabled.msite_information1 is not null)) then
6624:
6625: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6626: IBE_Util.Debug('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6627: END IF;
6628: --DBMS_OUTPUT.PUT_line('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6629: /* CC consolidation */
6630:
6628: --DBMS_OUTPUT.PUT_line('Before calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6629: /* CC consolidation */
6630:
6631: l_ret_credit_pref := NVL(FND_PROFILE.VALUE('IBE_RETAIN_CC_PREFS'),'Y');
6632: G_PERM_VIEW_PAY_BOOK := IBE_UTIL.check_user_permission('IBE_USE_PAYMENT_BOOK');
6633:
6634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6635: IBE_Util.Debug('l_ret_credit_pref:'||l_ret_credit_pref);
6636:
6630:
6631: l_ret_credit_pref := NVL(FND_PROFILE.VALUE('IBE_RETAIN_CC_PREFS'),'Y');
6632: G_PERM_VIEW_PAY_BOOK := IBE_UTIL.check_user_permission('IBE_USE_PAYMENT_BOOK');
6633:
6634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6635: IBE_Util.Debug('l_ret_credit_pref:'||l_ret_credit_pref);
6636:
6637: IF(G_PERM_VIEW_PAY_BOOK) THEN
6638: Ibe_Util.debug(rpad('G_PERM_VIEW_PAY_BOOK',30)||':'||'TRUE');
6631: l_ret_credit_pref := NVL(FND_PROFILE.VALUE('IBE_RETAIN_CC_PREFS'),'Y');
6632: G_PERM_VIEW_PAY_BOOK := IBE_UTIL.check_user_permission('IBE_USE_PAYMENT_BOOK');
6633:
6634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6635: IBE_Util.Debug('l_ret_credit_pref:'||l_ret_credit_pref);
6636:
6637: IF(G_PERM_VIEW_PAY_BOOK) THEN
6638: Ibe_Util.debug(rpad('G_PERM_VIEW_PAY_BOOK',30)||':'||'TRUE');
6639: ELSE
6634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6635: IBE_Util.Debug('l_ret_credit_pref:'||l_ret_credit_pref);
6636:
6637: IF(G_PERM_VIEW_PAY_BOOK) THEN
6638: Ibe_Util.debug(rpad('G_PERM_VIEW_PAY_BOOK',30)||':'||'TRUE');
6639: ELSE
6640: Ibe_Util.debug(rpad('G_PERM_VIEW_PAY_BOOK',30)||':'||'FALSE');
6641: END IF;
6642: END IF;
6636:
6637: IF(G_PERM_VIEW_PAY_BOOK) THEN
6638: Ibe_Util.debug(rpad('G_PERM_VIEW_PAY_BOOK',30)||':'||'TRUE');
6639: ELSE
6640: Ibe_Util.debug(rpad('G_PERM_VIEW_PAY_BOOK',30)||':'||'FALSE');
6641: END IF;
6642: END IF;
6643:
6644: if ( not G_PERM_VIEW_PAY_BOOK or (l_ret_credit_pref = 'N')) then
6641: END IF;
6642: END IF;
6643:
6644: if ( not G_PERM_VIEW_PAY_BOOK or (l_ret_credit_pref = 'N')) then
6645: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6646: IBE_Util.Debug('padss is set: not querying cc pref : '||l_retain_cc);
6647: end if;
6648: l_retain_cc := 'N';
6649: end if;
6642: END IF;
6643:
6644: if ( not G_PERM_VIEW_PAY_BOOK or (l_ret_credit_pref = 'N')) then
6645: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6646: IBE_Util.Debug('padss is set: not querying cc pref : '||l_retain_cc);
6647: end if;
6648: l_retain_cc := 'N';
6649: end if;
6650:
6648: l_retain_cc := 'N';
6649: end if;
6650:
6651: if (l_retain_cc = 'Y') then
6652: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6653: IBE_Util.Debug('padss is not set: querying cc pref');
6654: end if;
6655:
6656: IBE_CUSTOMER_pvt.get_default_credit_card_info(
6649: end if;
6650:
6651: if (l_retain_cc = 'Y') then
6652: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6653: IBE_Util.Debug('padss is not set: querying cc pref');
6654: end if;
6655:
6656: IBE_CUSTOMER_pvt.get_default_credit_card_info(
6657: p_api_version => P_Api_Version_Number
6673: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6675: END IF;
6676:
6677: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6678: IBE_Util.Debug('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6679: END IF;
6680: --DBMS_OUTPUT.PUT_line('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6681: end if;
6674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6675: END IF;
6676:
6677: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6678: IBE_Util.Debug('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6679: END IF;
6680: --DBMS_OUTPUT.PUT_line('After calling IBE_CUSTOMER_pvt.get_default_credit_card_info');
6681: end if;
6682:
6683: -- 2.3 if CC is not enabled or the call from 2.2 doesn't return a valid value,
6684: -- then we try to find the next enabled payment option in this order: invoice, cash, check
6685: --if ((lx_credit_card_num = FND_API.G_MISS_char) or (lx_credit_card_num is null)) then
6686: if ((lx_cc_assignment_id = FND_API.G_MISS_NUM) or (lx_cc_assignment_id is null)) then
6687: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6688: IBE_Util.Debug('lx_credit_card_num is null');
6689: END IF;
6690: --DBMS_OUTPUT.PUT_line('lx_credit_card_num is null');
6691:
6684: -- then we try to find the next enabled payment option in this order: invoice, cash, check
6685: --if ((lx_credit_card_num = FND_API.G_MISS_char) or (lx_credit_card_num is null)) then
6686: if ((lx_cc_assignment_id = FND_API.G_MISS_NUM) or (lx_cc_assignment_id is null)) then
6687: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6688: IBE_Util.Debug('lx_credit_card_num is null');
6689: END IF;
6690: --DBMS_OUTPUT.PUT_line('lx_credit_card_num is null');
6691:
6692: /* 10/8/02: for bug 2608853: we're not going to default non-CC payment methods
6690: --DBMS_OUTPUT.PUT_line('lx_credit_card_num is null');
6691:
6692: /* 10/8/02: for bug 2608853: we're not going to default non-CC payment methods
6693: for rec_next_payment_type in c_get_next_payment_type(p_minisite_id) loop
6694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6695: IBE_Util.Debug('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6696: END IF;
6697: --DBMS_OUTPUT.PUT_line('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6698: if (rec_next_payment_type.msite_information1 = 'INVOICE') then
6691:
6692: /* 10/8/02: for bug 2608853: we're not going to default non-CC payment methods
6693: for rec_next_payment_type in c_get_next_payment_type(p_minisite_id) loop
6694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6695: IBE_Util.Debug('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6696: END IF;
6697: --DBMS_OUTPUT.PUT_line('rec_next_payment_type.msite_information1='||rec_next_payment_type.msite_information1||'*');
6698: if (rec_next_payment_type.msite_information1 = 'INVOICE') then
6699: l_isInvoice := 'Y';
6706: exit when c_get_next_payment_type%notfound;
6707: end loop;
6708: --close c_get_next_payment_type;
6709:
6710: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6711: IBE_Util.Debug('l_isInvoice ='||l_isInvoice);
6712: END IF;
6713: --DBMS_OUTPUT.PUT_line('l_isInvoice ='||l_isInvoice);
6714: if (l_isInvoice = 'Y') then
6707: end loop;
6708: --close c_get_next_payment_type;
6709:
6710: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6711: IBE_Util.Debug('l_isInvoice ='||l_isInvoice);
6712: END IF;
6713: --DBMS_OUTPUT.PUT_line('l_isInvoice ='||l_isInvoice);
6714: if (l_isInvoice = 'Y') then
6715: l_payment_type_code := 'INVOICE';
6725: else
6726: l_payment_type_code := 'CREDIT_CARD';
6727: end if;
6728:
6729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6730: IBE_Util.Debug('l_payment_type_code ='||l_payment_type_code);
6731: END IF;
6732: --DBMS_OUTPUT.PUT_line('l_payment_type_code ='||l_payment_type_code);
6733:
6726: l_payment_type_code := 'CREDIT_CARD';
6727: end if;
6728:
6729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6730: IBE_Util.Debug('l_payment_type_code ='||l_payment_type_code);
6731: END IF;
6732: --DBMS_OUTPUT.PUT_line('l_payment_type_code ='||l_payment_type_code);
6733:
6734: -- 2.4 populate the payment record:
6759: px_hd_Payment_Tbl(1).CREDIT_CARD_HOLDER_NAME := null;
6760: px_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE := null;
6761: end if;
6762:
6763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6764: IBE_Util.Debug('done: populate the payment record');
6765: END IF;
6766: --DBMS_OUTPUT.PUT_line('done: populate the payment record');
6767: end if;
6760: px_hd_Payment_Tbl(1).CREDIT_CARD_EXPIRATION_DATE := null;
6761: end if;
6762:
6763: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6764: IBE_Util.Debug('done: populate the payment record');
6765: END IF;
6766: --DBMS_OUTPUT.PUT_line('done: populate the payment record');
6767: end if;
6768:
6777: -- Standard call to get message count and if count is 1, get message info.
6778: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6779: p_count => x_msg_count ,
6780: p_data => x_msg_data);
6781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6782: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6783: END IF;
6784: --IBE_Util.Disable_Debug;
6785:
6778: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6779: p_count => x_msg_count ,
6780: p_data => x_msg_data);
6781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6782: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6783: END IF;
6784: --IBE_Util.Disable_Debug;
6785:
6786: EXCEPTION
6780: p_data => x_msg_data);
6781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6782: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultPaymentMethod()');
6783: END IF;
6784: --IBE_Util.Disable_Debug;
6785:
6786: EXCEPTION
6787: WHEN FND_API.G_EXC_ERROR THEN
6788: ROLLBACK TO getHdrDefPmtMethod_pvt;
6861: x_return_status := FND_API.G_RET_STS_SUCCESS;
6862:
6863: -- API body
6864:
6865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6866: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6867: END IF;
6868:
6869: -- 1. for the merge cart cases, we have to check if there is tax exemption flag in the tax record associated w/ the cart:
6862:
6863: -- API body
6864:
6865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6866: IBE_Util.Debug('Start IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6867: END IF;
6868:
6869: -- 1. for the merge cart cases, we have to check if there is tax exemption flag in the tax record associated w/ the cart:
6870: 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
6898: -- Standard call to get message count and if count is 1, get message info.
6899: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6900: p_count => x_msg_count ,
6901: p_data => x_msg_data);
6902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6903: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6904: END IF;
6905: --IBE_Util.Disable_Debug;
6906:
6899: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
6900: p_count => x_msg_count ,
6901: p_data => x_msg_data);
6902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6903: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6904: END IF;
6905: --IBE_Util.Disable_Debug;
6906:
6907: EXCEPTION
6901: p_data => x_msg_data);
6902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6903: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
6904: END IF;
6905: --IBE_Util.Disable_Debug;
6906:
6907: EXCEPTION
6908: WHEN FND_API.G_EXC_ERROR THEN
6909: ROLLBACK TO getHdrDefTaxExmpt_pvt;
6983: -- Initialize API return status to success
6984: x_return_status := FND_API.G_RET_STS_SUCCESS;
6985:
6986: -- API body
6987: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6988: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6989: END IF;
6990:
6991: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6984: x_return_status := FND_API.G_RET_STS_SUCCESS;
6985:
6986: -- API body
6987: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6988: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6989: END IF;
6990:
6991: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6992: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6987: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6988: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6989: END IF;
6990:
6991: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6992: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6993: END IF;
6994:
6995: 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
6988: IBE_Util.Debug('Begin IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
6989: END IF;
6990:
6991: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
6992: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.quote_header_id='||px_qte_header_rec.quote_header_id);
6993: END IF;
6994:
6995: 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
6996:
7007: end if; -- check to see if we shld try to default
7008:
7009: end if; -- for merge cart cases
7010:
7011: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7012: IBE_Util.Debug('l_isDone ='||l_isDone);
7013: END IF;
7014:
7015:
7008:
7009: end if; -- for merge cart cases
7010:
7011: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7012: IBE_Util.Debug('l_isDone ='||l_isDone);
7013: END IF;
7014:
7015:
7016: if (l_isDone <> 'Y') then
7029: px_qte_header_rec.end_customer_party_site_id := rec_shipTo_info.ship_to_party_site_id;
7030: end if;
7031: end if; -- if (l_isDone <> 'Y')
7032:
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
7035: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
7036: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
7037: END IF;
7030: end if;
7031: end if; -- if (l_isDone <> 'Y')
7032:
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
7035: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
7036: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
7037: END IF;
7038:
7031: end if; -- if (l_isDone <> 'Y')
7032:
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
7035: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
7036: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
7037: END IF;
7038:
7039: -- End of API body.
7032:
7033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7034: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_cust_account_id ='||px_qte_header_rec.end_customer_cust_account_id);
7035: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_id ='||px_qte_header_rec.end_customer_party_id);
7036: IBE_Util.Debug('getHdrDefaultEndCustomer: px_qte_header_rec.end_customer_party_site_id ='||px_qte_header_rec.end_customer_party_site_id);
7037: END IF;
7038:
7039: -- End of API body.
7040: -- Standard check of p_commit.
7045: -- Standard call to get message count and if count is 1, get message info.
7046: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7047: p_count => x_msg_count ,
7048: p_data => x_msg_data);
7049: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7050: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
7051: END IF;
7052: --IBE_Util.Disable_Debug;
7053:
7046: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7047: p_count => x_msg_count ,
7048: p_data => x_msg_data);
7049: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7050: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
7051: END IF;
7052: --IBE_Util.Disable_Debug;
7053:
7054: EXCEPTION
7048: p_data => x_msg_data);
7049: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7050: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultEndCustomer()');
7051: END IF;
7052: --IBE_Util.Disable_Debug;
7053:
7054: EXCEPTION
7055: WHEN FND_API.G_EXC_ERROR THEN
7056: ROLLBACK TO getHdrDefaultEndCustomer_pvt;
7106:
7107: -- Standard Start of API savepoint
7108: SAVEPOINT CREATECONTRACTFORQUOTE_pvt;
7109:
7110: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7111: IBE_UTIL.DEBUG('REACHED CREATE_CONTRACT_FOR_QUOTE' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
7112: END IF;
7113:
7114:
7107: -- Standard Start of API savepoint
7108: SAVEPOINT CREATECONTRACTFORQUOTE_pvt;
7109:
7110: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7111: IBE_UTIL.DEBUG('REACHED CREATE_CONTRACT_FOR_QUOTE' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
7112: END IF;
7113:
7114:
7115: -- Standard call to check for call compatibility.
7165: ,x_contract_id => x_contract_id
7166: ,x_contract_number => x_contract_number
7167: );
7168: */
7169: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7170: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7171: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7172: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7173: END IF;
7166: ,x_contract_number => x_contract_number
7167: );
7168: */
7169: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7170: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7171: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7172: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7173: END IF;
7174:
7167: );
7168: */
7169: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7170: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7171: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7172: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7173: END IF;
7174:
7175: aso_core_contracts_pub.create_contract(
7168: */
7169: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7170: IBE_Util.Debug('create contract, quote_id ='||p_quote_id);
7171: IBE_Util.Debug('create contract, rel_type ='||p_rel_type);
7172: IBE_Util.Debug('create contract, p_terms_agreed_flag ='||p_terms_agreed_flag);
7173: END IF;
7174:
7175: aso_core_contracts_pub.create_contract(
7176: x_return_status => x_return_status
7192: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7194: END IF;
7195:
7196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7197: IBE_Util.Debug('create contract, output contract_id ='||x_contract_id);
7198: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7199: END IF;
7200: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7194: END IF;
7195:
7196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7197: IBE_Util.Debug('create contract, output contract_id ='||x_contract_id);
7198: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7199: END IF;
7200: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7201: this is done because recipients cannot update a cart after it becomes a quote*/
7194: END IF;
7195:
7196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7197: IBE_Util.Debug('create contract, output contract_id ='||x_contract_id);
7198: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7199: END IF;
7200: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7201: this is done because recipients cannot update a cart after it becomes a quote*/
7202: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7198: IBE_Util.Debug('create contract, output contract_num ='||x_contract_number);
7199: END IF;
7200: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7201: this is done because recipients cannot update a cart after it becomes a quote*/
7202: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7203: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
7204: END IF;
7205: ibe_quote_saveshare_v2_pvt.share_readonly(
7206: p_quote_header_id => p_quote_id ,
7199: END IF;
7200: /*Calling share_readonly to downgrade the access levels of all recipients to 'R' status,
7201: this is done because recipients cannot update a cart after it becomes a quote*/
7202: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7203: IBE_UTIL.DEBUG('Calling share_readonly to downgrade the access levels of all recipients to R status');
7204: END IF;
7205: ibe_quote_saveshare_v2_pvt.share_readonly(
7206: p_quote_header_id => p_quote_id ,
7207: P_minisite_id => p_minisite_id ,
7218: END IF;
7219: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7221: END IF;
7222: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7223: IBE_UTIL.DEBUG('Done calling share_readonly');
7224: IBE_UTIL.DEBUG('Create_contract:Calling deactivate API');
7225: END IF;
7226:
7219: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7221: END IF;
7222: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7223: IBE_UTIL.DEBUG('Done calling share_readonly');
7224: IBE_UTIL.DEBUG('Create_contract:Calling deactivate API');
7225: END IF;
7226:
7227: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
7220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7221: END IF;
7222: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7223: IBE_UTIL.DEBUG('Done calling share_readonly');
7224: IBE_UTIL.DEBUG('Create_contract:Calling deactivate API');
7225: END IF;
7226:
7227: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
7228: P_Quote_header_id => p_quote_id ,
7240:
7241: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7243: END IF;
7244: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7245: IBE_UTIL.DEBUG('Create_Contract:Deactivate owner cart after creating the contract:Done');
7246: END IF;
7247:
7248:
7241: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7243: END IF;
7244: IF(IBE_UTIL.G_DEBUGON = 'Y') THEN
7245: IBE_UTIL.DEBUG('Create_Contract:Deactivate owner cart after creating the contract:Done');
7246: END IF;
7247:
7248:
7249:
7250: -- Standard call to get message count and if count is 1, get message info.
7251: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7252: p_count => x_msg_count ,
7253: p_data => x_msg_data);
7254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7255: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
7256: END IF;
7257: --IBE_Util.Disable_Debug;
7258:
7251: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7252: p_count => x_msg_count ,
7253: p_data => x_msg_data);
7254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7255: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
7256: END IF;
7257: --IBE_Util.Disable_Debug;
7258:
7259:
7253: p_data => x_msg_data);
7254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7255: IBE_Util.Debug('End IBE_Quote_Save_pvt.getHdrDefaultTaxExemption()');
7256: END IF;
7257: --IBE_Util.Disable_Debug;
7258:
7259:
7260: EXCEPTION
7261:
7370: l_control_rec ASO_Quote_Pub.Control_Rec_Type;
7371: l_header_pricing_event VARCHAR2(30);
7372: Begin
7373:
7374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7375: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7371: l_header_pricing_event VARCHAR2(30);
7372: Begin
7373:
7374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7375: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7372: Begin
7373:
7374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7375: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7373:
7374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7375: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7375: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7382: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7375: ibe_util.debug('Start IBE_Quote_Save_pvt.DUPLICATE_CART()');
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7382: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7383: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7376: IBE_UTIL.DEBUG('DUPLICATE_CART: Input values');
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7382: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7383: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7384: END IF;
7377: IBE_UTIL.DEBUG('DUPLICATE_CART: p_last_update_date = '||p_last_update_date);
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7382: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7383: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7384: END IF;
7385:
7378: IBE_UTIL.DEBUG('DUPLICATE_CART: p_party_id = '||p_party_id);
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7382: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7383: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7384: END IF;
7385:
7386: -- Standard Start of API savepoint
7379: IBE_UTIL.DEBUG('DUPLICATE_CART: p_cust_account_id = '||p_cust_account_id);
7380: IBE_UTIL.DEBUG('DUPLICATE_CART: p_validate_user = '||p_validate_user);
7381: IBE_UTIL.DEBUG('DUPLICATE_CART: P_new_quote_name = '||P_new_quote_name);
7382: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7383: IBE_UTIL.DEBUG('DUPLICATE_CART: p_minisite_id = '||p_minisite_id);
7384: END IF;
7385:
7386: -- Standard Start of API savepoint
7387: SAVEPOINT Duplicate_Cart;
7402: -- Initialize API return status to success
7403: x_return_status := FND_API.G_RET_STS_SUCCESS;
7404:
7405: --API Body
7406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7407: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7408: END IF;
7409: IBE_Quote_Misc_pvt.log_environment_info();
7410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7403: x_return_status := FND_API.G_RET_STS_SUCCESS;
7404:
7405: --API Body
7406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7407: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7408: END IF;
7409: IBE_Quote_Misc_pvt.log_environment_info();
7410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7411: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7407: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7408: END IF;
7409: IBE_Quote_Misc_pvt.log_environment_info();
7410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7411: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7412: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7413: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7414: END IF;
7407: IBE_UTIL.DEBUG('DUPLICATE_CART: Before Calling log_environment_info');
7408: END IF;
7409: IBE_Quote_Misc_pvt.log_environment_info();
7410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7411: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7412: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7413: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7414: END IF;
7415:
7408: END IF;
7409: IBE_Quote_Misc_pvt.log_environment_info();
7410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7411: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7412: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7413: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7414: END IF;
7415:
7416: -- User Authentication
7409: IBE_Quote_Misc_pvt.log_environment_info();
7410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7411: IBE_UTIL.DEBUG('DUPLICATE_CART: After Calling log_environment_info');
7412: IBE_UTIL.DEBUG('DUPLICATE_CART: p_retrieval_number = '||p_retrieval_number);
7413: IBE_UTIL.DEBUG('DUPLICATE_CART: p_new_quote_name = '||p_new_quote_name);
7414: END IF;
7415:
7416: -- User Authentication
7417: IBE_Quote_Misc_pvt.Validate_User_Update
7458:
7459: -- If the cart is a shared cart or published quote, then copy only items and agreements and commitments if applicable
7460: -- Else call ASO copy_quote api to copy the entire cart.
7461:
7462: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7463: IBE_UTIL.DEBUG('DUPLICATE_CART: l_controlled_copy='||l_controlled_copy);
7464: END IF;
7465:
7466: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7459: -- If the cart is a shared cart or published quote, then copy only items and agreements and commitments if applicable
7460: -- Else call ASO copy_quote api to copy the entire cart.
7461:
7462: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7463: IBE_UTIL.DEBUG('DUPLICATE_CART: l_controlled_copy='||l_controlled_copy);
7464: END IF;
7465:
7466: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7467: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7463: IBE_UTIL.DEBUG('DUPLICATE_CART: l_controlled_copy='||l_controlled_copy);
7464: END IF;
7465:
7466: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7467: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7468: -- get order_type_id from the original quote header
7469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7470: IBE_Util.Debug('Getting order_type_id,currency code from original quote header ' || p_quote_header_id);
7471: END IF;
7465:
7466: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7467: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7468: -- get order_type_id from the original quote header
7469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7470: IBE_Util.Debug('Getting order_type_id,currency code from original quote header ' || p_quote_header_id);
7471: END IF;
7472:
7473: OPEN c_get_orig_quote_details(p_quote_header_id);
7466: IF (l_controlled_copy = FND_API.G_TRUE) THEN
7467: IBE_UTIL.DEBUG('l controlled copy is true, so calling istore apis for DUPLICATE');
7468: -- get order_type_id from the original quote header
7469: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7470: IBE_Util.Debug('Getting order_type_id,currency code from original quote header ' || p_quote_header_id);
7471: END IF;
7472:
7473: OPEN c_get_orig_quote_details(p_quote_header_id);
7474: FETCH c_get_orig_quote_details INTO l_order_type_id,l_currency_code,l_price_list_id; -- bug 11805700, scnagara
7482: l_to_qte_header_rec.price_list_id := l_price_list_id; -- bug 11805700, scnagara
7483: END IF;
7484: CLOSE c_get_orig_quote_details;
7485:
7486: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7487: IBE_Util.Debug('order_type_id=' || l_order_type_id);
7488: IBE_Util.Debug('l_currency_code=' || l_currency_code);
7489: IBE_Util.Debug('l_price_list_id=' || l_price_list_id);
7490: END IF;
7483: END IF;
7484: CLOSE c_get_orig_quote_details;
7485:
7486: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7487: IBE_Util.Debug('order_type_id=' || l_order_type_id);
7488: IBE_Util.Debug('l_currency_code=' || l_currency_code);
7489: IBE_Util.Debug('l_price_list_id=' || l_price_list_id);
7490: END IF;
7491:
7484: CLOSE c_get_orig_quote_details;
7485:
7486: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7487: IBE_Util.Debug('order_type_id=' || l_order_type_id);
7488: IBE_Util.Debug('l_currency_code=' || l_currency_code);
7489: IBE_Util.Debug('l_price_list_id=' || l_price_list_id);
7490: END IF;
7491:
7492: --construct header rec with other information
7485:
7486: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7487: IBE_Util.Debug('order_type_id=' || l_order_type_id);
7488: IBE_Util.Debug('l_currency_code=' || l_currency_code);
7489: IBE_Util.Debug('l_price_list_id=' || l_price_list_id);
7490: END IF;
7491:
7492: --construct header rec with other information
7493: l_to_qte_header_rec.quote_name := p_new_quote_name;
7569: l_copy_quote_control_rec.Pricing_Request_Type := 'ASO';
7570: l_copy_quote_control_rec.Header_Pricing_Event := l_header_pricing_event;
7571: l_copy_quote_control_rec.Calculate_Freight_Charge_Flag := 'Y';
7572: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7574: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7570: l_copy_quote_control_rec.Header_Pricing_Event := l_header_pricing_event;
7571: l_copy_quote_control_rec.Calculate_Freight_Charge_Flag := 'Y';
7572: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7574: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7578: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7571: l_copy_quote_control_rec.Calculate_Freight_Charge_Flag := 'Y';
7572: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7574: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7578: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7579: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7572: l_copy_quote_control_rec.Calculate_Tax_Flag := 'Y';
7573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7574: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7578: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7579: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7580: END IF;
7573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7574: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7578: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7579: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7580: END IF;
7581:
7574: IBE_UTIL.DEBUG('DUPLICATE_CART: Copy Quote Header Rec Values');
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7578: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7579: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7580: END IF;
7581:
7582: ASO_Copy_Quote_Pub.Copy_Quote(
7575: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_header_id = '||l_copy_quote_header_rec.quote_header_id);
7576: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_name = '||l_copy_quote_header_rec.quote_name);
7577: IBE_UTIL.DEBUG('DUPLICATE_CART: quote_expiration_date = '||l_copy_quote_header_rec.quote_expiration_date);
7578: IBE_UTIL.DEBUG('DUPLICATE_CART: pricing_status_indicator = '||l_copy_quote_header_rec.pricing_status_indicator);
7579: IBE_UTIL.DEBUG('DUPLICATE_CART: Before calling ASO Copy Quote');
7580: END IF;
7581:
7582: ASO_Copy_Quote_Pub.Copy_Quote(
7583: p_api_Version_Number => 1.0,
7590: x_return_status => lx_return_status,
7591: x_msg_count => lx_msg_count,
7592: x_msg_data => lx_msg_data);
7593:
7594: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7595: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, return status='||lx_return_status);
7596: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, new quote header id='||lx_quote_header_id);
7597: END IF;
7598:
7591: x_msg_count => lx_msg_count,
7592: x_msg_data => lx_msg_data);
7593:
7594: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7595: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, return status='||lx_return_status);
7596: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, new quote header id='||lx_quote_header_id);
7597: END IF;
7598:
7599: IF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7592: x_msg_data => lx_msg_data);
7593:
7594: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7595: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, return status='||lx_return_status);
7596: IBE_UTIL.DEBUG('DUPLICATE_CART: After ASO Copy Quote call, new quote header id='||lx_quote_header_id);
7597: END IF;
7598:
7599: IF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7600: RAISE FND_API.G_EXC_ERROR;
7614: -- Standard call to get message count and if count is 1, get message info.
7615: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7616: p_count => x_msg_count ,
7617: p_data => x_msg_data);
7618: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7619: IBE_Util.Debug('End IBE_Quote_Save_pvt.Duplicate_cart');
7620: END IF;
7621: --IBE_Util.Disable_Debug;
7622:
7615: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7616: p_count => x_msg_count ,
7617: p_data => x_msg_data);
7618: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7619: IBE_Util.Debug('End IBE_Quote_Save_pvt.Duplicate_cart');
7620: END IF;
7621: --IBE_Util.Disable_Debug;
7622:
7623:
7617: p_data => x_msg_data);
7618: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7619: IBE_Util.Debug('End IBE_Quote_Save_pvt.Duplicate_cart');
7620: END IF;
7621: --IBE_Util.Disable_Debug;
7622:
7623:
7624: EXCEPTION
7625:
7712: BEGIN
7713: -- Standard Start of API savepoint
7714: SAVEPOINT Reconfigure_From_Ib;
7715:
7716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7717: IBE_UTIL.DEBUG('Begin Reconfigure_Form_IB');
7718: END IF;
7719:
7720: -- Standard call to check for call compatibility.
7713: -- Standard Start of API savepoint
7714: SAVEPOINT Reconfigure_From_Ib;
7715:
7716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7717: IBE_UTIL.DEBUG('Begin Reconfigure_Form_IB');
7718: END IF;
7719:
7720: -- Standard call to check for call compatibility.
7721: IF NOT FND_API.Compatible_API_Call(L_API_VERSION,
7733: -- Initialize API return status to success
7734: x_return_status := FND_API.G_RET_STS_SUCCESS;
7735:
7736: --Call Check Instance Lock API
7737: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7738: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Starts');
7739: END IF;
7740:
7741: l_table_size := p_instance_ids.COUNT;
7734: x_return_status := FND_API.G_RET_STS_SUCCESS;
7735:
7736: --Call Check Instance Lock API
7737: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7738: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Starts');
7739: END IF;
7740:
7741: l_table_size := p_instance_ids.COUNT;
7742: FOR i IN 1..l_table_size LOOP
7747: ,x_return_status => x_return_status
7748: ,X_Msg_Count => x_Msg_Count
7749: ,X_Msg_Data => x_Msg_Data
7750: );
7751: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7752: IF(l_instance_locked = TRUE) THEN
7753: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' islocked');
7754: ELSE
7755: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' isNotlocked');
7749: ,X_Msg_Data => x_Msg_Data
7750: );
7751: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7752: IF(l_instance_locked = TRUE) THEN
7753: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' islocked');
7754: ELSE
7755: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' isNotlocked');
7756: END IF;
7757: END IF;
7751: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7752: IF(l_instance_locked = TRUE) THEN
7753: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' islocked');
7754: ELSE
7755: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' isNotlocked');
7756: END IF;
7757: END IF;
7758: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7759: RAISE FND_API.G_EXC_ERROR;
7761: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7763: END IF;
7764: IF (l_instance_locked = TRUE) THEN
7765: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7766: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' is locked');
7767: END IF;
7768: x_return_status := FND_API.G_RET_STS_ERROR;
7769: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
7762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7763: END IF;
7764: IF (l_instance_locked = TRUE) THEN
7765: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7766: IBE_UTIL.debug('Instance Id '||p_instance_ids(i)||' is locked');
7767: END IF;
7768: x_return_status := FND_API.G_RET_STS_ERROR;
7769: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
7770: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
7777: RAISE FND_API.G_EXC_ERROR;
7778: END IF;
7779: END LOOP;
7780:
7781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7782: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7783: END IF;
7784: --API Body
7785: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7778: END IF;
7779: END LOOP;
7780:
7781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7782: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7783: END IF;
7784: --API Body
7785: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7786: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7782: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7783: END IF;
7784: --API Body
7785: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7786: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7787: END IF;
7788:
7789: IBE_UTIL.DEBUG('Before call to getHdrDefaultValues()');
7782: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7783: END IF;
7784: --API Body
7785: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7786: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7787: END IF;
7788:
7789: IBE_UTIL.DEBUG('Before call to getHdrDefaultValues()');
7790: getHdrDefaultValues(
7785: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7786: IBE_UTIL.DEBUG('Call IBE_QUOTE_SAVE_PVT.Save()');
7787: END IF;
7788:
7789: IBE_UTIL.DEBUG('Before call to getHdrDefaultValues()');
7790: getHdrDefaultValues(
7791: P_Api_Version_Number => p_api_version_number
7792: ,p_minisite_id => p_Qte_Header_Rec.minisite_id
7793: ,p_Qte_Header_Rec => p_Qte_Header_Rec
7804: ,X_Return_Status => x_return_status
7805: ,X_Msg_Count => x_msg_count
7806: ,X_Msg_Data => x_msg_data
7807: );
7808: IBE_UTIL.DEBUG('After call to getHdrDefaultValues()');
7809:
7810: Save(
7811: P_Api_Version_Number => p_api_version_number
7812: ,p_Init_Msg_List => p_init_msg_list
7844: l_instance_tbl(i) := l_instance_rec;
7845: END LOOP;
7846: l_control_rec := p_control_rec;
7847: -- Call Config_Operations to copy the Config Details from CZ to ASO
7848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7849: IBE_UTIL.DEBUG('API ASO_Config_Operations_Int.Config_Operations() Begin');
7850: END IF;
7851: ASO_CONFIG_OPERATIONS_INT.Config_Operations
7852: (
7845: END LOOP;
7846: l_control_rec := p_control_rec;
7847: -- Call Config_Operations to copy the Config Details from CZ to ASO
7848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7849: IBE_UTIL.DEBUG('API ASO_Config_Operations_Int.Config_Operations() Begin');
7850: END IF;
7851: ASO_CONFIG_OPERATIONS_INT.Config_Operations
7852: (
7853: P_Api_Version_Number => p_api_version_number
7861: ,X_Msg_Count => x_Msg_Count
7862: ,X_Msg_Data => x_Msg_Data
7863: ,x_Qte_Header_Rec => x_Qte_Header_Rec
7864: );
7865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7866: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7867: END IF;
7868: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7869: RAISE FND_API.G_EXC_ERROR;
7862: ,X_Msg_Data => x_Msg_Data
7863: ,x_Qte_Header_Rec => x_Qte_Header_Rec
7864: );
7865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7866: IBE_UTIL.DEBUG('API CSI_CZ_INT.Check_Item_Instance_Lock() Ends::x_return_status'||x_return_status);
7867: END IF;
7868: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7869: RAISE FND_API.G_EXC_ERROR;
7870: END IF;
7871: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7873: END IF;
7874:
7875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7876: IBE_UTIL.DEBUG('Ref cursor x_config_line begin');
7877: END IF;
7878: open x_config_line for l_refcursor_query using l_Qte_Header_Rec.quote_header_id;
7879: -- End of API body.
7872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7873: END IF;
7874:
7875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7876: IBE_UTIL.DEBUG('Ref cursor x_config_line begin');
7877: END IF;
7878: open x_config_line for l_refcursor_query using l_Qte_Header_Rec.quote_header_id;
7879: -- End of API body.
7880: -- Standard check of p_commit.
7885: -- Standard call to get message count and if count is 1, get message info.
7886: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7887: p_count => x_msg_count ,
7888: p_data => x_msg_data);
7889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7890: IBE_Util.Debug('End IBE_Quote_Save_pvt.Reconfigure_from_ib() end');
7891: END IF;
7892: EXCEPTION
7893: WHEN FND_API.G_EXC_ERROR THEN
7886: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
7887: p_count => x_msg_count ,
7888: p_data => x_msg_data);
7889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
7890: IBE_Util.Debug('End IBE_Quote_Save_pvt.Reconfigure_from_ib() end');
7891: END IF;
7892: EXCEPTION
7893: WHEN FND_API.G_EXC_ERROR THEN
7894: ROLLBACK TO Reconfigure_From_Ib;
7947: WHERE inventory_item_id = p_svc_item_id and organization_id = p_org_id;
7948:
7949: BEGIN
7950:
7951: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7952: IBE_UTIL.debug('enter ADD_CART_LEVEL_SERVICES');
7953: END IF;
7954:
7955: IF px_svc_period_tbl IS NULL THEN
7948:
7949: BEGIN
7950:
7951: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7952: IBE_UTIL.debug('enter ADD_CART_LEVEL_SERVICES');
7953: END IF;
7954:
7955: IF px_svc_period_tbl IS NULL THEN
7956: px_svc_period_tbl := JTF_VARCHAR2_TABLE_100();
7956: px_svc_period_tbl := JTF_VARCHAR2_TABLE_100();
7957: px_svc_duration_tbl := JTF_NUMBER_TABLE();
7958: px_svc_uom_tbl := JTF_VARCHAR2_TABLE_100();
7959: l_load_svc_detail := TRUE;
7960: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7961: IBE_UTIL.debug('l_load_svc_detail is true');
7962: END IF;
7963: ELSE
7964: l_load_svc_detail := FALSE;
7957: px_svc_duration_tbl := JTF_NUMBER_TABLE();
7958: px_svc_uom_tbl := JTF_VARCHAR2_TABLE_100();
7959: l_load_svc_detail := TRUE;
7960: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7961: IBE_UTIL.debug('l_load_svc_detail is true');
7962: END IF;
7963: ELSE
7964: l_load_svc_detail := FALSE;
7965: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7961: IBE_UTIL.debug('l_load_svc_detail is true');
7962: END IF;
7963: ELSE
7964: l_load_svc_detail := FALSE;
7965: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7966: IBE_UTIL.debug('l_load_svc_detail is false');
7967: END IF;
7968: END IF;
7969:
7962: END IF;
7963: ELSE
7964: l_load_svc_detail := FALSE;
7965: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7966: IBE_UTIL.debug('l_load_svc_detail is false');
7967: END IF;
7968: END IF;
7969:
7970: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7966: IBE_UTIL.debug('l_load_svc_detail is false');
7967: END IF;
7968: END IF;
7969:
7970: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7971: IBE_UTIL.debug('loop through new svc items...');
7972: END IF;
7973: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7974: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7967: END IF;
7968: END IF;
7969:
7970: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7971: IBE_UTIL.debug('loop through new svc items...');
7972: END IF;
7973: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7974: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7975: IBE_UTIL.debug('i='||i||', l_idx='||l_idx);
7970: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7971: IBE_UTIL.debug('loop through new svc items...');
7972: END IF;
7973: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7974: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7975: IBE_UTIL.debug('i='||i||', l_idx='||l_idx);
7976: END IF;
7977: IF l_load_svc_detail THEN
7978: px_svc_period_tbl.EXTEND;
7971: IBE_UTIL.debug('loop through new svc items...');
7972: END IF;
7973: FOR i IN p_svc_item_id_tbl.FIRST..p_svc_item_id_tbl.LAST LOOP
7974: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7975: IBE_UTIL.debug('i='||i||', l_idx='||l_idx);
7976: END IF;
7977: IF l_load_svc_detail THEN
7978: px_svc_period_tbl.EXTEND;
7979: px_svc_duration_tbl.EXTEND;
7977: IF l_load_svc_detail THEN
7978: px_svc_period_tbl.EXTEND;
7979: px_svc_duration_tbl.EXTEND;
7980: px_svc_uom_tbl.EXTEND;
7981: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7982: IBE_UTIL.debug('fetch service duration, period, and uom...');
7983: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7984: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7985: END IF;
7978: px_svc_period_tbl.EXTEND;
7979: px_svc_duration_tbl.EXTEND;
7980: px_svc_uom_tbl.EXTEND;
7981: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7982: IBE_UTIL.debug('fetch service duration, period, and uom...');
7983: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7984: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7985: END IF;
7986: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7979: px_svc_duration_tbl.EXTEND;
7980: px_svc_uom_tbl.EXTEND;
7981: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7982: IBE_UTIL.debug('fetch service duration, period, and uom...');
7983: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7984: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7985: END IF;
7986: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7987: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7980: px_svc_uom_tbl.EXTEND;
7981: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7982: IBE_UTIL.debug('fetch service duration, period, and uom...');
7983: IBE_UTIL.debug('p_svc_item_id_tbl('||i||')='||p_svc_item_id_tbl(i));
7984: IBE_UTIL.debug('p_organization_id='||p_organization_id);
7985: END IF;
7986: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7987: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7988: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7986: OPEN c_get_svc_detail(p_svc_item_id_tbl(i),p_organization_id);
7987: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7988: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7989: CLOSE c_get_svc_detail;
7990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7991: IBE_UTIL.debug('fetch is completed:');
7992: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7993: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7994: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7987: FETCH c_get_svc_detail into px_svc_uom_tbl(l_idx),
7988: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7989: CLOSE c_get_svc_detail;
7990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7991: IBE_UTIL.debug('fetch is completed:');
7992: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7993: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7994: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7995: END IF;
7988: px_svc_period_tbl(l_idx),px_svc_duration_tbl(l_idx);
7989: CLOSE c_get_svc_detail;
7990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7991: IBE_UTIL.debug('fetch is completed:');
7992: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7993: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7994: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7995: END IF;
7996: END IF;
7989: CLOSE c_get_svc_detail;
7990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7991: IBE_UTIL.debug('fetch is completed:');
7992: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7993: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7994: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7995: END IF;
7996: END IF;
7997:
7990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7991: IBE_UTIL.debug('fetch is completed:');
7992: IBE_UTIL.debug('px_svc_uom_tbl('||l_idx||')='||px_svc_uom_tbl(l_idx));
7993: IBE_UTIL.debug('px_svc_period_tbl('||l_idx||')='||px_svc_period_tbl(l_idx));
7994: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7995: END IF;
7996: END IF;
7997:
7998: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7994: IBE_UTIL.debug('px_svc_duration_tbl('||l_idx||')='||px_svc_duration_tbl(l_idx));
7995: END IF;
7996: END IF;
7997:
7998: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7999: IBE_UTIL.debug('populate line rec, px_line_rec_index='||px_line_rec_index);
8000: END IF;
8001: px_quote_line_tbl(px_line_rec_index).item_type_code := 'SRV';
8002: px_quote_line_tbl(px_line_rec_index).operation_code := 'CREATE';
7995: END IF;
7996: END IF;
7997:
7998: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
7999: IBE_UTIL.debug('populate line rec, px_line_rec_index='||px_line_rec_index);
8000: END IF;
8001: px_quote_line_tbl(px_line_rec_index).item_type_code := 'SRV';
8002: px_quote_line_tbl(px_line_rec_index).operation_code := 'CREATE';
8003: px_quote_line_tbl(px_line_rec_index).quote_header_id := p_quote_header_id;
8009: -- ASO will derive the correct service quantities from SVA line
8010: px_quote_line_tbl(px_line_rec_index).quantity := p_sva_line_qty;
8011: --px_quote_line_tbl(px_line_rec_index).minisite_id := p_minisite_id;
8012:
8013: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8014: IBE_UTIL.debug('populate line detail rec, px_dtl_rec_index='||px_dtl_rec_index);
8015: END IF;
8016: px_quote_line_dtl_tbl(px_dtl_rec_index).operation_code := 'CREATE';
8017: px_quote_line_dtl_tbl(px_dtl_rec_index).service_ref_line_id := p_sva_line_id;
8010: px_quote_line_tbl(px_line_rec_index).quantity := p_sva_line_qty;
8011: --px_quote_line_tbl(px_line_rec_index).minisite_id := p_minisite_id;
8012:
8013: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8014: IBE_UTIL.debug('populate line detail rec, px_dtl_rec_index='||px_dtl_rec_index);
8015: END IF;
8016: px_quote_line_dtl_tbl(px_dtl_rec_index).operation_code := 'CREATE';
8017: px_quote_line_dtl_tbl(px_dtl_rec_index).service_ref_line_id := p_sva_line_id;
8018: px_quote_line_dtl_tbl(px_dtl_rec_index).qte_line_index := px_line_rec_index;
8021: IF px_svc_duration_tbl(l_idx) IS NOT NULL THEN
8022: px_quote_line_dtl_tbl(px_dtl_rec_index).service_duration := px_svc_duration_tbl(l_idx);
8023: END IF;
8024:
8025: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8026: IBE_UTIL.debug('moving to next svc item ...');
8027: END IF;
8028: px_line_rec_index := px_line_rec_index + 1;
8029: px_dtl_rec_index := px_dtl_rec_index + 1;
8022: px_quote_line_dtl_tbl(px_dtl_rec_index).service_duration := px_svc_duration_tbl(l_idx);
8023: END IF;
8024:
8025: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8026: IBE_UTIL.debug('moving to next svc item ...');
8027: END IF;
8028: px_line_rec_index := px_line_rec_index + 1;
8029: px_dtl_rec_index := px_dtl_rec_index + 1;
8030: l_idx := l_idx + 1;
8028: px_line_rec_index := px_line_rec_index + 1;
8029: px_dtl_rec_index := px_dtl_rec_index + 1;
8030: l_idx := l_idx + 1;
8031: END LOOP;
8032: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8033: IBE_UTIL.debug('exit ADD_CART_LEVEL_SERVICES with success');
8034: END IF;
8035: END ADD_CART_LEVEL_SERVICES;
8036:
8029: px_dtl_rec_index := px_dtl_rec_index + 1;
8030: l_idx := l_idx + 1;
8031: END LOOP;
8032: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8033: IBE_UTIL.debug('exit ADD_CART_LEVEL_SERVICES with success');
8034: END IF;
8035: END ADD_CART_LEVEL_SERVICES;
8036:
8037: PROCEDURE UPDATE_SUPPORT_AND_QUANTITY(
8127: -- Initialize API return status to success.
8128: x_return_status := FND_API.G_RET_STS_SUCCESS;
8129:
8130: -- Print debugging info.
8131: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8132: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' Begin');
8133: IBE_UTIL.debug('p_quote_header_id = ' || p_quote_header_id);
8134: END IF;
8135:
8128: x_return_status := FND_API.G_RET_STS_SUCCESS;
8129:
8130: -- Print debugging info.
8131: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8132: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' Begin');
8133: IBE_UTIL.debug('p_quote_header_id = ' || p_quote_header_id);
8134: END IF;
8135:
8136: IF p_quote_line_id_tbl IS NOT NULL THEN
8129:
8130: -- Print debugging info.
8131: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8132: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' Begin');
8133: IBE_UTIL.debug('p_quote_header_id = ' || p_quote_header_id);
8134: END IF;
8135:
8136: IF p_quote_line_id_tbl IS NOT NULL THEN
8137: l_line_rec_size := p_quote_line_id_tbl.count;
8134: END IF;
8135:
8136: IF p_quote_line_id_tbl IS NOT NULL THEN
8137: l_line_rec_size := p_quote_line_id_tbl.count;
8138: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8139: IBE_UTIL.debug('p_quote_line_id_tbl.count= ' ||l_line_rec_size);
8140: END IF;
8141: END IF;
8142:
8135:
8136: IF p_quote_line_id_tbl IS NOT NULL THEN
8137: l_line_rec_size := p_quote_line_id_tbl.count;
8138: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8139: IBE_UTIL.debug('p_quote_line_id_tbl.count= ' ||l_line_rec_size);
8140: END IF;
8141: END IF;
8142:
8143: IF p_line_quantity_tbl IS NOT NULL THEN
8141: END IF;
8142:
8143: IF p_line_quantity_tbl IS NOT NULL THEN
8144: l_line_qty_size := p_line_quantity_tbl.count;
8145: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8146: IBE_UTIL.debug('p_line_quantity_tbl.count= ' || l_line_qty_size);
8147: END IF;
8148: END IF;
8149:
8142:
8143: IF p_line_quantity_tbl IS NOT NULL THEN
8144: l_line_qty_size := p_line_quantity_tbl.count;
8145: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8146: IBE_UTIL.debug('p_line_quantity_tbl.count= ' || l_line_qty_size);
8147: END IF;
8148: END IF;
8149:
8150: IF p_new_service_id_tbl IS NOT NULL THEN
8148: END IF;
8149:
8150: IF p_new_service_id_tbl IS NOT NULL THEN
8151: l_new_service_size := p_new_service_id_tbl.count;
8152: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8153: IBE_UTIL.debug('p_new_service_id_tbl.count= ' || l_new_service_size);
8154: END IF;
8155: END IF;
8156:
8149:
8150: IF p_new_service_id_tbl IS NOT NULL THEN
8151: l_new_service_size := p_new_service_id_tbl.count;
8152: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8153: IBE_UTIL.debug('p_new_service_id_tbl.count= ' || l_new_service_size);
8154: END IF;
8155: END IF;
8156:
8157: -- validating input parameters
8155: END IF;
8156:
8157: -- validating input parameters
8158: IF p_quote_header_id IS NULL THEN
8159: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8160: IBE_UTIL.debug('Invalid input parameters, quote header id is null');
8161: END IF;
8162: x_return_status := FND_API.G_RET_STS_ERROR;
8163: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8156:
8157: -- validating input parameters
8158: IF p_quote_header_id IS NULL THEN
8159: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8160: IBE_UTIL.debug('Invalid input parameters, quote header id is null');
8161: END IF;
8162: x_return_status := FND_API.G_RET_STS_ERROR;
8163: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8164: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
8171: RAISE FND_API.G_EXC_ERROR;
8172: END IF;
8173:
8174: IF l_line_qty_size>0 AND l_line_qty_size = l_line_rec_size THEN
8175: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8176: IBE_UTIL.debug('Need to update quantity');
8177: END IF;
8178: ELSIF l_line_qty_size=0 THEN
8179: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8172: END IF;
8173:
8174: IF l_line_qty_size>0 AND l_line_qty_size = l_line_rec_size THEN
8175: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8176: IBE_UTIL.debug('Need to update quantity');
8177: END IF;
8178: ELSIF l_line_qty_size=0 THEN
8179: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8180: IBE_UTIL.debug('No need to update quantity');
8175: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8176: IBE_UTIL.debug('Need to update quantity');
8177: END IF;
8178: ELSIF l_line_qty_size=0 THEN
8179: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8180: IBE_UTIL.debug('No need to update quantity');
8181: END IF;
8182: ELSE
8183: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8176: IBE_UTIL.debug('Need to update quantity');
8177: END IF;
8178: ELSIF l_line_qty_size=0 THEN
8179: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8180: IBE_UTIL.debug('No need to update quantity');
8181: END IF;
8182: ELSE
8183: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8184: IBE_UTIL.debug('Invalid input parameters, size of line records does not match size of line quantities');
8179: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8180: IBE_UTIL.debug('No need to update quantity');
8181: END IF;
8182: ELSE
8183: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8184: IBE_UTIL.debug('Invalid input parameters, size of line records does not match size of line quantities');
8185: END IF;
8186: x_return_status := FND_API.G_RET_STS_ERROR;
8187: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8180: IBE_UTIL.debug('No need to update quantity');
8181: END IF;
8182: ELSE
8183: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8184: IBE_UTIL.debug('Invalid input parameters, size of line records does not match size of line quantities');
8185: END IF;
8186: x_return_status := FND_API.G_RET_STS_ERROR;
8187: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
8188: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
8196: END IF;
8197:
8198: -- update quantities
8199: IF l_line_qty_size>0 THEN
8200: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8201: IBE_UTIL.debug('updating quantities, l_line_rec_index='||l_line_rec_index);
8202: END IF;
8203: FOR l_line_rec_index IN 1..l_line_qty_size LOOP
8204: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8197:
8198: -- update quantities
8199: IF l_line_qty_size>0 THEN
8200: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8201: IBE_UTIL.debug('updating quantities, l_line_rec_index='||l_line_rec_index);
8202: END IF;
8203: FOR l_line_rec_index IN 1..l_line_qty_size LOOP
8204: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8205: l_quote_line_tbl(l_line_rec_index).quote_line_id := p_quote_line_id_tbl(l_line_rec_index);
8204: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8205: l_quote_line_tbl(l_line_rec_index).quote_line_id := p_quote_line_id_tbl(l_line_rec_index);
8206: l_quote_line_tbl(l_line_rec_index).quantity := p_line_quantity_tbl(l_line_rec_index);
8207: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8208: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8209: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8210: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8211: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8212: END IF;
8205: l_quote_line_tbl(l_line_rec_index).quote_line_id := p_quote_line_id_tbl(l_line_rec_index);
8206: l_quote_line_tbl(l_line_rec_index).quantity := p_line_quantity_tbl(l_line_rec_index);
8207: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8208: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8209: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8210: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8211: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8212: END IF;
8213: END LOOP;
8206: l_quote_line_tbl(l_line_rec_index).quantity := p_line_quantity_tbl(l_line_rec_index);
8207: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8208: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8209: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8210: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8211: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8212: END IF;
8213: END LOOP;
8214: l_line_rec_index := l_line_rec_index + 1;
8207: l_quote_line_tbl(l_line_rec_index).operation_code := 'UPDATE';
8208: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8209: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8210: IBE_UTIL.debug('quote_line_id='||l_quote_line_tbl(l_line_rec_index).quote_line_id);
8211: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8212: END IF;
8213: END LOOP;
8214: l_line_rec_index := l_line_rec_index + 1;
8215: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8211: IBE_UTIL.debug('quantity='||l_quote_line_tbl(l_line_rec_index).quantity);
8212: END IF;
8213: END LOOP;
8214: l_line_rec_index := l_line_rec_index + 1;
8215: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8216: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8217: END IF;
8218: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8219: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8212: END IF;
8213: END LOOP;
8214: l_line_rec_index := l_line_rec_index + 1;
8215: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8216: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8217: END IF;
8218: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8219: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8220: END IF;
8214: l_line_rec_index := l_line_rec_index + 1;
8215: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8216: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8217: END IF;
8218: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8219: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8220: END IF;
8221:
8222: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8215: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8216: IBE_UTIL.debug('quantities updated, l_line_rec_index='||l_line_rec_index);
8217: END IF;
8218: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8219: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8220: END IF;
8221:
8222: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8223: IBE_UTIL.debug('updating cart level support...');
8218: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8219: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8220: END IF;
8221:
8222: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8223: IBE_UTIL.debug('updating cart level support...');
8224: IBE_UTIL.debug('checking existing cart level services...');
8225: END IF;
8226:
8219: IBE_UTIL.debug('no quantity updated, l_line_rec_index='||l_line_rec_index);
8220: END IF;
8221:
8222: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8223: IBE_UTIL.debug('updating cart level support...');
8224: IBE_UTIL.debug('checking existing cart level services...');
8225: END IF;
8226:
8227: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8220: END IF;
8221:
8222: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8223: IBE_UTIL.debug('updating cart level support...');
8224: IBE_UTIL.debug('checking existing cart level services...');
8225: END IF;
8226:
8227: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8228: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8224: IBE_UTIL.debug('checking existing cart level services...');
8225: END IF;
8226:
8227: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8228: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8229: IBE_UTIL.debug('found service line:');
8230: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8231: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8232: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8225: END IF;
8226:
8227: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8228: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8229: IBE_UTIL.debug('found service line:');
8230: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8231: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8232: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8233: END IF;
8226:
8227: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8228: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8229: IBE_UTIL.debug('found service line:');
8230: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8231: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8232: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8233: END IF;
8234: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8227: FOR rec_svc_line IN c_get_svc_lines(p_quote_header_id) LOOP
8228: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8229: IBE_UTIL.debug('found service line:');
8230: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8231: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8232: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8233: END IF;
8234: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8235: -- start a new sva line
8228: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8229: IBE_UTIL.debug('found service line:');
8230: IBE_UTIL.debug('service_ref_line_id='||rec_svc_line.service_ref_line_id);
8231: IBE_UTIL.debug('quote_line_id='||rec_svc_line.quote_line_id);
8232: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8233: END IF;
8234: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8235: -- start a new sva line
8236: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8232: IBE_UTIL.debug('l_curr_sva_line_id='||l_curr_sva_line_id);
8233: END IF;
8234: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8235: -- start a new sva line
8236: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8237: IBE_UTIL.debug('starts a new SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8238: END IF;
8239:
8240: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8233: END IF;
8234: IF l_curr_sva_line_id IS NULL OR l_curr_sva_line_id <> rec_svc_line.service_ref_line_id THEN
8235: -- start a new sva line
8236: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8237: IBE_UTIL.debug('starts a new SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8238: END IF;
8239:
8240: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8241: -- not the first sva line, add new services to previous SVA line first
8239:
8240: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8241: -- not the first sva line, add new services to previous SVA line first
8242: IF l_new_service_id_tbl.COUNT >0 THEN
8243: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8244: IBE_UTIL.debug('not the first sva line');
8245: IBE_UTIL.debug('adding new services to previous SVA line...:');
8246: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8247: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8240: IF l_curr_sva_line_id IS NOT NULL AND l_new_service_id_tbl IS NOT NULL THEN
8241: -- not the first sva line, add new services to previous SVA line first
8242: IF l_new_service_id_tbl.COUNT >0 THEN
8243: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8244: IBE_UTIL.debug('not the first sva line');
8245: IBE_UTIL.debug('adding new services to previous SVA line...:');
8246: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8247: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8248: END IF;
8241: -- not the first sva line, add new services to previous SVA line first
8242: IF l_new_service_id_tbl.COUNT >0 THEN
8243: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8244: IBE_UTIL.debug('not the first sva line');
8245: IBE_UTIL.debug('adding new services to previous SVA line...:');
8246: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8247: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8248: END IF;
8249: ADD_CART_LEVEL_SERVICES(
8242: IF l_new_service_id_tbl.COUNT >0 THEN
8243: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8244: IBE_UTIL.debug('not the first sva line');
8245: IBE_UTIL.debug('adding new services to previous SVA line...:');
8246: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8247: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8248: END IF;
8249: ADD_CART_LEVEL_SERVICES(
8250: p_quote_header_id =>p_quote_header_id,
8243: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8244: IBE_UTIL.debug('not the first sva line');
8245: IBE_UTIL.debug('adding new services to previous SVA line...:');
8246: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8247: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
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:');
8265: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8266: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8267: END IF;
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:');
8265: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8266: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8267: END IF;
8268: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
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:');
8265: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8266: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8267: END IF;
8268: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8269: IBE_UTIL.debug('no new service need to be added.');
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:');
8265: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8266: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8267: END IF;
8268: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8269: IBE_UTIL.debug('no new service need to be added.');
8270: END IF;
8264: IBE_UTIL.debug('new services added:');
8265: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8266: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8267: END IF;
8268: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8269: IBE_UTIL.debug('no new service need to be added.');
8270: END IF;
8271: END IF;
8272:
8265: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8266: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8267: END IF;
8268: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8269: IBE_UTIL.debug('no new service need to be added.');
8270: END IF;
8271: END IF;
8272:
8273: -- move to the new line
8270: END IF;
8271: END IF;
8272:
8273: -- move to the new line
8274: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8275: IBE_UTIL.debug('initializing the new SVA line...');
8276: END IF;
8277: l_curr_sva_line_id := rec_svc_line.service_ref_line_id;
8278: l_sva_line_size := l_sva_line_size + 1;
8271: END IF;
8272:
8273: -- move to the new line
8274: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8275: IBE_UTIL.debug('initializing the new SVA line...');
8276: END IF;
8277: l_curr_sva_line_id := rec_svc_line.service_ref_line_id;
8278: l_sva_line_size := l_sva_line_size + 1;
8279: l_map_index := 1;
8277: l_curr_sva_line_id := rec_svc_line.service_ref_line_id;
8278: l_sva_line_size := l_sva_line_size + 1;
8279: l_map_index := 1;
8280:
8281: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8282: IBE_UTIL.debug('l_sva_line_size='||l_sva_line_size);
8283: IBE_UTIL.debug('checking if need to update quantity...');
8284: END IF;
8285: l_curr_line_qty := NULL;
8278: l_sva_line_size := l_sva_line_size + 1;
8279: l_map_index := 1;
8280:
8281: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8282: IBE_UTIL.debug('l_sva_line_size='||l_sva_line_size);
8283: IBE_UTIL.debug('checking if need to update quantity...');
8284: END IF;
8285: l_curr_line_qty := NULL;
8286: IF l_quote_line_id_tbl IS NOT NULL AND l_line_quantity_tbl IS NOT NULL THEN
8279: l_map_index := 1;
8280:
8281: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8282: IBE_UTIL.debug('l_sva_line_size='||l_sva_line_size);
8283: IBE_UTIL.debug('checking if need to update quantity...');
8284: END IF;
8285: l_curr_line_qty := NULL;
8286: IF l_quote_line_id_tbl IS NOT NULL AND l_line_quantity_tbl IS NOT NULL THEN
8287: i := l_quote_line_id_tbl.FIRST;
8289: IF l_quote_line_id_tbl(i) = l_curr_sva_line_id THEN
8290: l_curr_line_qty := p_line_quantity_tbl(i);
8291: l_quote_line_id_tbl.DELETE(i);
8292: l_line_quantity_tbl.DELETE(i);
8293: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8294: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8295: END IF;
8296: EXIT;
8297: ELSE
8290: l_curr_line_qty := p_line_quantity_tbl(i);
8291: l_quote_line_id_tbl.DELETE(i);
8292: l_line_quantity_tbl.DELETE(i);
8293: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8294: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8295: END IF;
8296: EXIT;
8297: ELSE
8298: i := l_quote_line_id_tbl.NEXT(i);
8299: END IF;
8300: END LOOP;
8301: END IF;
8302: IF l_curr_line_qty IS NULL THEN
8303: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8304: IBE_UTIL.debug('no quantity entered, loading from db...');
8305: END IF;
8306: OPEN c_get_line_qty(l_curr_sva_line_id);
8307: FETCH c_get_line_qty into l_curr_line_qty;
8300: END LOOP;
8301: END IF;
8302: IF l_curr_line_qty IS NULL THEN
8303: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8304: IBE_UTIL.debug('no quantity entered, loading from db...');
8305: END IF;
8306: OPEN c_get_line_qty(l_curr_sva_line_id);
8307: FETCH c_get_line_qty into l_curr_line_qty;
8308: CLOSE c_get_line_qty;
8305: END IF;
8306: OPEN c_get_line_qty(l_curr_sva_line_id);
8307: FETCH c_get_line_qty into l_curr_line_qty;
8308: CLOSE c_get_line_qty;
8309: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8310: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8311: END IF;
8312: END IF;
8313: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8306: OPEN c_get_line_qty(l_curr_sva_line_id);
8307: FETCH c_get_line_qty into l_curr_line_qty;
8308: CLOSE c_get_line_qty;
8309: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8310: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8311: END IF;
8312: END IF;
8313: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8314: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8309: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8310: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8311: END IF;
8312: END IF;
8313: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8314: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8315: END IF;
8316: ELSE
8317: l_map_index := l_map_index + 1;
8310: IBE_UTIL.debug('quantity loaded, l_curr_line_qty='||l_curr_line_qty);
8311: END IF;
8312: END IF;
8313: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8314: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8315: END IF;
8316: ELSE
8317: l_map_index := l_map_index + 1;
8318: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8314: IBE_UTIL.debug('new SVA line initialized, l_sva_line_size='||l_sva_line_size);
8315: END IF;
8316: ELSE
8317: l_map_index := l_map_index + 1;
8318: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8319: IBE_UTIL.debug('remains in the same SVA line');
8320: END IF;
8321: END IF;
8322:
8315: END IF;
8316: ELSE
8317: l_map_index := l_map_index + 1;
8318: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8319: IBE_UTIL.debug('remains in the same SVA line');
8320: END IF;
8321: END IF;
8322:
8323: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8319: IBE_UTIL.debug('remains in the same SVA line');
8320: END IF;
8321: END IF;
8322:
8323: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8324: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8325: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8326: IBE_UTIL.debug('l_map_index='||l_map_index);
8327: END IF;
8320: END IF;
8321: END IF;
8322:
8323: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8324: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8325: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8326: IBE_UTIL.debug('l_map_index='||l_map_index);
8327: END IF;
8328:
8321: END IF;
8322:
8323: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8324: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8325: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8326: IBE_UTIL.debug('l_map_index='||l_map_index);
8327: END IF;
8328:
8329: IF l_sva_line_size = 1 THEN
8322:
8323: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8324: IBE_UTIL.debug('ready to processe current svc line, l_line_rec_index='||l_line_rec_index);
8325: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index ||', l_dtl_rec_index='||l_dtl_rec_index);
8326: IBE_UTIL.debug('l_map_index='||l_map_index);
8327: END IF;
8328:
8329: IF l_sva_line_size = 1 THEN
8330: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8326: IBE_UTIL.debug('l_map_index='||l_map_index);
8327: END IF;
8328:
8329: IF l_sva_line_size = 1 THEN
8330: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8331: IBE_UTIL.debug('The first SVA line detected');
8332: END IF;
8333: IF l_deleted_svc_map_tbl IS NULL THEN
8334: l_deleted_svc_map_tbl := JTF_VARCHAR2_TABLE_100();
8327: END IF;
8328:
8329: IF l_sva_line_size = 1 THEN
8330: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8331: IBE_UTIL.debug('The first SVA line detected');
8332: END IF;
8333: IF l_deleted_svc_map_tbl IS NULL THEN
8334: l_deleted_svc_map_tbl := JTF_VARCHAR2_TABLE_100();
8335: END IF;
8335: END IF;
8336: l_deleted_svc_map_tbl.EXTEND;
8337: l_deleted_svc_map_tbl(l_map_index) := 'DELETE';
8338: IF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.count >0 THEN
8339: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8340: IBE_UTIL.debug('populating l_deleted_svc_map_tbl table,l_map_index='||l_map_index);
8341: END IF;
8342: i := l_new_service_id_tbl.FIRST;
8343: WHILE i <= l_new_service_id_tbl.LAST LOOP
8336: l_deleted_svc_map_tbl.EXTEND;
8337: l_deleted_svc_map_tbl(l_map_index) := 'DELETE';
8338: IF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.count >0 THEN
8339: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8340: IBE_UTIL.debug('populating l_deleted_svc_map_tbl table,l_map_index='||l_map_index);
8341: END IF;
8342: i := l_new_service_id_tbl.FIRST;
8343: WHILE i <= l_new_service_id_tbl.LAST LOOP
8344: IF rec_svc_line.inventory_item_id = l_new_service_id_tbl(i) THEN
8342: i := l_new_service_id_tbl.FIRST;
8343: WHILE i <= l_new_service_id_tbl.LAST LOOP
8344: IF rec_svc_line.inventory_item_id = l_new_service_id_tbl(i) THEN
8345: l_deleted_svc_map_tbl(l_map_index) := 'KEEP'; -- keep the svc item
8346: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8347: IBE_UTIL.debug('skipping svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8348: END IF;
8349: l_new_service_id_tbl.DELETE(i);
8350: EXIT;
8343: WHILE i <= l_new_service_id_tbl.LAST LOOP
8344: IF rec_svc_line.inventory_item_id = l_new_service_id_tbl(i) THEN
8345: l_deleted_svc_map_tbl(l_map_index) := 'KEEP'; -- keep the svc item
8346: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8347: IBE_UTIL.debug('skipping svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8348: END IF;
8349: l_new_service_id_tbl.DELETE(i);
8350: EXIT;
8351: ELSE
8351: ELSE
8352: i := l_new_service_id_tbl.NEXT(i);
8353: END IF;
8354: END LOOP;
8355: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8356: IBE_UTIL.debug('l_deleted_svc_map_tbl('||l_map_index||')='||l_deleted_svc_map_tbl(l_map_index));
8357: END IF;
8358: END IF;
8359: END IF;
8352: i := l_new_service_id_tbl.NEXT(i);
8353: END IF;
8354: END LOOP;
8355: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8356: IBE_UTIL.debug('l_deleted_svc_map_tbl('||l_map_index||')='||l_deleted_svc_map_tbl(l_map_index));
8357: END IF;
8358: END IF;
8359: END IF;
8360:
8357: END IF;
8358: END IF;
8359: END IF;
8360:
8361: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8362: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8363: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8364: END IF;
8365: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8358: END IF;
8359: END IF;
8360:
8361: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8362: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8363: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8364: END IF;
8365: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8366: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8359: END IF;
8360:
8361: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8362: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8363: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8364: END IF;
8365: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8366: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8367: IBE_UTIL.debug('deleting svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8362: IBE_UTIL.debug('applying l_deleted_svc_map_tbl table, service item='||rec_svc_line.inventory_item_id);
8363: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8364: END IF;
8365: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8366: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8367: IBE_UTIL.debug('deleting svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8368: END IF;
8369: l_quote_line_tbl(l_line_rec_index).operation_code := 'DELETE';
8370: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8363: IBE_UTIL.debug('l_map_index='||l_map_index||', opcode='||l_deleted_svc_map_tbl(l_map_index));
8364: END IF;
8365: IF l_deleted_svc_map_tbl(l_map_index) = 'DELETE' THEN
8366: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8367: IBE_UTIL.debug('deleting svc line, inventory_item_id='||rec_svc_line.inventory_item_id);
8368: END IF;
8369: l_quote_line_tbl(l_line_rec_index).operation_code := 'DELETE';
8370: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8371: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8369: l_quote_line_tbl(l_line_rec_index).operation_code := 'DELETE';
8370: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8371: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8372: l_line_rec_index := l_line_rec_index + 1;
8373: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8374: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8375: END IF;
8376: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8377: IBE_UTIL.debug('svc line skipped (no change)');
8370: l_quote_line_tbl(l_line_rec_index).quote_line_id := rec_svc_line.quote_line_id;
8371: l_quote_line_tbl(l_line_rec_index).quote_header_id := p_quote_header_id;
8372: l_line_rec_index := l_line_rec_index + 1;
8373: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8374: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8375: END IF;
8376: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8377: IBE_UTIL.debug('svc line skipped (no change)');
8378: END IF;
8372: l_line_rec_index := l_line_rec_index + 1;
8373: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8374: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8375: END IF;
8376: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8377: IBE_UTIL.debug('svc line skipped (no change)');
8378: END IF;
8379: EXIT WHEN c_get_svc_lines%NOTFOUND;
8380: END LOOP;
8373: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8374: IBE_UTIL.debug('svc line deleted, l_line_rec_index='||l_line_rec_index);
8375: END IF;
8376: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8377: IBE_UTIL.debug('svc line skipped (no change)');
8378: END IF;
8379: EXIT WHEN c_get_svc_lines%NOTFOUND;
8380: END LOOP;
8381:
8380: END LOOP;
8381:
8382: IF l_sva_line_size > 0 AND l_new_service_id_tbl IS NOT NULL THEN
8383: -- add new services the last line if exist
8384: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8385: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8386: END IF;
8387: IF l_new_service_id_tbl.COUNT >0 THEN
8388: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8381:
8382: IF l_sva_line_size > 0 AND l_new_service_id_tbl IS NOT NULL THEN
8383: -- add new services the last line if exist
8384: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8385: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8386: END IF;
8387: IF l_new_service_id_tbl.COUNT >0 THEN
8388: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8389: IBE_UTIL.debug('adding new services the last SVA line,l_new_service_id_tbl.COUNT='||l_new_service_id_tbl.COUNT);
8384: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8385: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8386: END IF;
8387: IF l_new_service_id_tbl.COUNT >0 THEN
8388: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8389: IBE_UTIL.debug('adding new services the last SVA line,l_new_service_id_tbl.COUNT='||l_new_service_id_tbl.COUNT);
8390: END IF;
8391: ADD_CART_LEVEL_SERVICES(
8392: p_quote_header_id =>p_quote_header_id,
8385: IBE_UTIL.debug('the last SVA line detected,l_sva_line_size='||l_sva_line_size);
8386: END IF;
8387: IF l_new_service_id_tbl.COUNT >0 THEN
8388: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8389: IBE_UTIL.debug('adding new services the last SVA line,l_new_service_id_tbl.COUNT='||l_new_service_id_tbl.COUNT);
8390: END IF;
8391: ADD_CART_LEVEL_SERVICES(
8392: p_quote_header_id =>p_quote_header_id,
8393: p_organization_id =>p_organization_id,
8401: px_quote_line_tbl =>l_quote_line_tbl,
8402: px_line_rec_index =>l_line_rec_index,
8403: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8404: px_dtl_rec_index =>l_dtl_rec_index);
8405: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8406: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8407: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8408: END IF;
8409: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8402: px_line_rec_index =>l_line_rec_index,
8403: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8404: px_dtl_rec_index =>l_dtl_rec_index);
8405: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8406: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8407: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8408: END IF;
8409: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8410: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8403: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8404: px_dtl_rec_index =>l_dtl_rec_index);
8405: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8406: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8407: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8408: END IF;
8409: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8410: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8411: END IF;
8405: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8406: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8407: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8408: END IF;
8409: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8410: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8411: END IF;
8412: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8413: -- no previous cart level services found,retrieve sva lines
8406: IBE_UTIL.debug('new services added to the last SVA line,l_line_rec_index='||l_line_rec_index);
8407: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8408: END IF;
8409: ELSIF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8410: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8411: END IF;
8412: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8413: -- no previous cart level services found,retrieve sva lines
8414: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8410: IBE_UTIL.debug('no new service need to be added to the last SVA line.');
8411: END IF;
8412: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8413: -- no previous cart level services found,retrieve sva lines
8414: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8415: IBE_UTIL.debug('Current support level is NONE, directly adding new services...');
8416: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8417: END IF;
8418: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8411: END IF;
8412: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8413: -- no previous cart level services found,retrieve sva lines
8414: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8415: IBE_UTIL.debug('Current support level is NONE, directly adding new services...');
8416: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8417: END IF;
8418: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8419: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8412: ELSIF l_new_service_id_tbl IS NOT NULL AND l_new_service_id_tbl.COUNT >0 THEN
8413: -- no previous cart level services found,retrieve sva lines
8414: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8415: IBE_UTIL.debug('Current support level is NONE, directly adding new services...');
8416: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8417: END IF;
8418: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8419: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8420: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8416: IBE_UTIL.debug('Retrieving SVA lines, l_new_service_id_tbl.COUNT'||l_new_service_id_tbl.COUNT);
8417: END IF;
8418: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8419: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8420: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8421: IBE_UTIL.debug('found SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8422: IBE_UTIL.debug('checking quantity...');
8423: END IF;
8424: l_curr_line_qty := NULL;
8417: END IF;
8418: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8419: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8420: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8421: IBE_UTIL.debug('found SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8422: IBE_UTIL.debug('checking quantity...');
8423: END IF;
8424: l_curr_line_qty := NULL;
8425: IF l_quote_line_id_tbl IS NOT NULL AND p_line_quantity_tbl IS NOT NULL THEN
8418: FOR rec_sva_line IN c_get_sva_lines(p_quote_header_id) LOOP
8419: l_curr_sva_line_id := rec_sva_line.quote_line_id;
8420: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8421: IBE_UTIL.debug('found SVA line, l_curr_sva_line_id='||l_curr_sva_line_id);
8422: IBE_UTIL.debug('checking quantity...');
8423: END IF;
8424: l_curr_line_qty := NULL;
8425: IF l_quote_line_id_tbl IS NOT NULL AND p_line_quantity_tbl IS NOT NULL THEN
8426: i := l_quote_line_id_tbl.FIRST;
8428: IF l_quote_line_id_tbl(i) = l_curr_sva_line_id THEN
8429: l_curr_line_qty := p_line_quantity_tbl(i);
8430: l_quote_line_id_tbl.DELETE(i);
8431: l_line_quantity_tbl.DELETE(i);
8432: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8433: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8434: END IF;
8435: EXIT;
8436: ELSE
8429: l_curr_line_qty := p_line_quantity_tbl(i);
8430: l_quote_line_id_tbl.DELETE(i);
8431: l_line_quantity_tbl.DELETE(i);
8432: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8433: IBE_UTIL.debug('a new quantity is entered, l_curr_line_qty='||l_curr_line_qty);
8434: END IF;
8435: EXIT;
8436: ELSE
8437: i := l_quote_line_id_tbl.NEXT(i);
8439: END LOOP;
8440: END IF;
8441: IF l_curr_line_qty IS NULL THEN
8442: l_curr_line_qty := rec_sva_line.quantity;
8443: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8444: IBE_UTIL.debug('no quantity entered, default from db: '||l_curr_line_qty);
8445: END IF;
8446: END IF;
8447:
8440: END IF;
8441: IF l_curr_line_qty IS NULL THEN
8442: l_curr_line_qty := rec_sva_line.quantity;
8443: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8444: IBE_UTIL.debug('no quantity entered, default from db: '||l_curr_line_qty);
8445: END IF;
8446: END IF;
8447:
8448: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8444: IBE_UTIL.debug('no quantity entered, default from db: '||l_curr_line_qty);
8445: END IF;
8446: END IF;
8447:
8448: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8449: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8450: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8451: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8452: END IF;
8445: END IF;
8446: END IF;
8447:
8448: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8449: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8450: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8451: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8452: END IF;
8453: ADD_CART_LEVEL_SERVICES(
8446: END IF;
8447:
8448: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8449: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8450: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8451: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8452: END IF;
8453: ADD_CART_LEVEL_SERVICES(
8454: p_quote_header_id =>p_quote_header_id,
8447:
8448: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8449: IBE_UTIL.debug('before adding new services, l_curr_sva_line_id='||l_curr_sva_line_id);
8450: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8451: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8452: END IF;
8453: ADD_CART_LEVEL_SERVICES(
8454: p_quote_header_id =>p_quote_header_id,
8455: p_organization_id =>p_organization_id,
8463: px_quote_line_tbl =>l_quote_line_tbl,
8464: px_line_rec_index =>l_line_rec_index,
8465: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8466: px_dtl_rec_index =>l_dtl_rec_index);
8467: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8468: IBE_UTIL.debug('new services added:');
8469: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8470: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8471: END IF;
8464: px_line_rec_index =>l_line_rec_index,
8465: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8466: px_dtl_rec_index =>l_dtl_rec_index);
8467: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8468: IBE_UTIL.debug('new services added:');
8469: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8470: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8471: END IF;
8472: EXIT WHEN c_get_sva_lines%NOTFOUND;
8465: px_quote_line_dtl_tbl =>l_quote_line_dtl_tbl,
8466: px_dtl_rec_index =>l_dtl_rec_index);
8467: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8468: IBE_UTIL.debug('new services added:');
8469: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8470: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8471: END IF;
8472: EXIT WHEN c_get_sva_lines%NOTFOUND;
8473: END LOOP;
8466: px_dtl_rec_index =>l_dtl_rec_index);
8467: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8468: IBE_UTIL.debug('new services added:');
8469: IBE_UTIL.debug('l_line_rec_index='||l_line_rec_index);
8470: IBE_UTIL.debug('l_dtl_rec_index='||l_dtl_rec_index);
8471: END IF;
8472: EXIT WHEN c_get_sva_lines%NOTFOUND;
8473: END LOOP;
8474: END IF;
8473: END LOOP;
8474: END IF;
8475:
8476: IF l_quote_line_tbl IS NULL OR l_quote_line_tbl.count=0 THEN
8477: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8478: IBE_UTIL.debug('nothing to update, returning...');
8479: END IF;
8480: RETURN;
8481: END IF;
8474: END IF;
8475:
8476: IF l_quote_line_tbl IS NULL OR l_quote_line_tbl.count=0 THEN
8477: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8478: IBE_UTIL.debug('nothing to update, returning...');
8479: END IF;
8480: RETURN;
8481: END IF;
8482:
8479: END IF;
8480: RETURN;
8481: END IF;
8482:
8483: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8484: IBE_UTIL.debug('setup control record...');
8485: END IF;
8486: l_control_rec.pricing_request_type := 'ASO';
8487: l_control_rec.header_pricing_event := p_header_pricing_event;
8480: RETURN;
8481: END IF;
8482:
8483: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8484: IBE_UTIL.debug('setup control record...');
8485: END IF;
8486: l_control_rec.pricing_request_type := 'ASO';
8487: l_control_rec.header_pricing_event := p_header_pricing_event;
8488: l_control_rec.calculate_tax_flag := 'Y';
8487: l_control_rec.header_pricing_event := p_header_pricing_event;
8488: l_control_rec.calculate_tax_flag := 'Y';
8489: l_control_rec.calculate_freight_charge_flag := 'Y';
8490:
8491: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8492: IBE_UTIL.debug('header_pricing_event='||p_header_pricing_event);
8493: IBE_UTIL.debug('setup header record...');
8494: END IF;
8495: l_quote_header_rec.pricing_status_indicator := 'C';
8488: l_control_rec.calculate_tax_flag := 'Y';
8489: l_control_rec.calculate_freight_charge_flag := 'Y';
8490:
8491: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8492: IBE_UTIL.debug('header_pricing_event='||p_header_pricing_event);
8493: IBE_UTIL.debug('setup header record...');
8494: END IF;
8495: l_quote_header_rec.pricing_status_indicator := 'C';
8496: l_quote_header_rec.tax_status_indicator := 'C';
8489: l_control_rec.calculate_freight_charge_flag := 'Y';
8490:
8491: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8492: IBE_UTIL.debug('header_pricing_event='||p_header_pricing_event);
8493: IBE_UTIL.debug('setup header record...');
8494: END IF;
8495: l_quote_header_rec.pricing_status_indicator := 'C';
8496: l_quote_header_rec.tax_status_indicator := 'C';
8497: l_quote_header_rec.quote_header_id := p_quote_header_id;
8516: l_sharee_cust_account_id := p_cust_account_id;
8517: END IF;
8518: l_quote_header_rec.last_update_date := p_last_update_date;
8519:
8520: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8521: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8517: END IF;
8518: l_quote_header_rec.last_update_date := p_last_update_date;
8519:
8520: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8521: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8518: l_quote_header_rec.last_update_date := p_last_update_date;
8519:
8520: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8521: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8519:
8520: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8521: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8520: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8521: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8521: IBE_UTIL.debug('quote_header_id='||p_quote_header_id);
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8522: IBE_UTIL.debug('currency_code='||p_currency_code);
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8530: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8523: IBE_UTIL.debug('price_list_id='||p_price_list_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8530: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8531: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8524: IBE_UTIL.debug('p_sharee_number='||p_sharee_number);
8525: IBE_UTIL.debug('cust_account_id='||p_cust_account_id);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8530: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8531: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8532: IBE_UTIL.debug('p_save_type='||p_save_type);
8526: IBE_UTIL.debug('party_id='||p_party_id);
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8530: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8531: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8532: IBE_UTIL.debug('p_save_type='||p_save_type);
8533: END IF;
8534: SAVE(p_api_version_number => p_api_version
8527: IBE_UTIL.debug('l_sharee_party_id='||l_sharee_party_id);
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8530: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8531: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8532: IBE_UTIL.debug('p_save_type='||p_save_type);
8533: END IF;
8534: SAVE(p_api_version_number => p_api_version
8535: ,p_init_msg_list => FND_API.G_FALSE
8528: IBE_UTIL.debug('l_sharee_cust_account_id='||l_sharee_cust_account_id);
8529:
8530: IBE_UTIL.debug('call IBE_QUOTE_SAVE_PVT.SAVE...');
8531: IBE_UTIL.debug('p_minisite_id='||p_minisite_id);
8532: IBE_UTIL.debug('p_save_type='||p_save_type);
8533: END IF;
8534: SAVE(p_api_version_number => p_api_version
8535: ,p_init_msg_list => FND_API.G_FALSE
8536: ,p_commit => FND_API.G_FALSE
8551: ,x_last_update_date => x_last_update_date
8552: ,x_return_status => x_return_status
8553: ,x_msg_count => x_msg_count
8554: ,x_msg_data => x_msg_data);
8555: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8556: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8552: ,x_return_status => x_return_status
8553: ,x_msg_count => x_msg_count
8554: ,x_msg_data => x_msg_data);
8555: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8556: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8553: ,x_msg_count => x_msg_count
8554: ,x_msg_data => x_msg_data);
8555: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8556: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8561: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8554: ,x_msg_data => x_msg_data);
8555: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8556: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8561: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8562: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8555: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
8556: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8561: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8562: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8563: END IF;
8556: IBE_UTIL.debug('returned from IBE_QUOTE_SAVE_PVT.SAVE');
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8561: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8562: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8563: END IF;
8564: EXCEPTION
8557: IBE_UTIL.debug('l_quote_header_id='||l_quote_header_id);
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8561: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8562: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8563: END IF;
8564: EXCEPTION
8565: WHEN FND_API.G_EXC_ERROR THEN
8558: IBE_UTIL.debug('x_last_update_date='||x_last_update_date);
8559: IBE_UTIL.debug('x_return_status='||x_return_status);
8560: IBE_UTIL.debug('x_msg_count='||x_msg_count);
8561: IBE_UTIL.debug('x_msg_data='||x_msg_data);
8562: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||' End');
8563: END IF;
8564: EXCEPTION
8565: WHEN FND_API.G_EXC_ERROR THEN
8566: ROLLBACK TO UPDATE_SUPPORT_LEVEL_AND_QTY;