68: END IF;
69:
70: -- Initialize API return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72: IF aso_debug_pub.g_debug_flag = 'Y' THEN
73: aso_debug_pub.add('Entering Validate_Line_Tradein ', 2, 'Y');
74: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
75: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
76: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
69:
70: -- Initialize API return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72: IF aso_debug_pub.g_debug_flag = 'Y' THEN
73: aso_debug_pub.add('Entering Validate_Line_Tradein ', 2, 'Y');
74: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
75: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
76: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
77: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
70: -- Initialize API return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72: IF aso_debug_pub.g_debug_flag = 'Y' THEN
73: aso_debug_pub.add('Entering Validate_Line_Tradein ', 2, 'Y');
74: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
75: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
76: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
77: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
78: END IF;
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72: IF aso_debug_pub.g_debug_flag = 'Y' THEN
73: aso_debug_pub.add('Entering Validate_Line_Tradein ', 2, 'Y');
74: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
75: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
76: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
77: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
78: END IF;
79:
72: IF aso_debug_pub.g_debug_flag = 'Y' THEN
73: aso_debug_pub.add('Entering Validate_Line_Tradein ', 2, 'Y');
74: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
75: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
76: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
77: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
78: END IF;
79:
80:
73: aso_debug_pub.add('Entering Validate_Line_Tradein ', 2, 'Y');
74: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
75: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
76: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
77: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
78: END IF;
79:
80:
81: IF p_qte_line_rec.operation_code = 'UPDATE' then
101: l_inventory_item_id := p_qte_line_rec.inventory_item_id;
102: end if;
103: end if; -- end check update operation.
104:
105: IF aso_debug_pub.g_debug_flag = 'Y' THEN
106: aso_debug_pub.add('Line category code after update check = ' || l_line_category_code, 2, 'N');
107: aso_debug_pub.add('inventory item after update check = ' || l_inventory_item_id,2, 'N');
108: END IF;
109:
102: end if;
103: end if; -- end check update operation.
104:
105: IF aso_debug_pub.g_debug_flag = 'Y' THEN
106: aso_debug_pub.add('Line category code after update check = ' || l_line_category_code, 2, 'N');
107: aso_debug_pub.add('inventory item after update check = ' || l_inventory_item_id,2, 'N');
108: END IF;
109:
110:
103: end if; -- end check update operation.
104:
105: IF aso_debug_pub.g_debug_flag = 'Y' THEN
106: aso_debug_pub.add('Line category code after update check = ' || l_line_category_code, 2, 'N');
107: aso_debug_pub.add('inventory item after update check = ' || l_inventory_item_id,2, 'N');
108: END IF;
109:
110:
111: -- Check if item is returnable
261: END IF;
262:
263: -- Initialize API return status to success
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
265: IF aso_debug_pub.g_debug_flag = 'Y' THEN
266: aso_debug_pub.add('Entering OrderType ', 2, 'Y');
267: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
268: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
269: END IF;
262:
263: -- Initialize API return status to success
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
265: IF aso_debug_pub.g_debug_flag = 'Y' THEN
266: aso_debug_pub.add('Entering OrderType ', 2, 'Y');
267: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
268: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
269: END IF;
270:
263: -- Initialize API return status to success
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
265: IF aso_debug_pub.g_debug_flag = 'Y' THEN
266: aso_debug_pub.add('Entering OrderType ', 2, 'Y');
267: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
268: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
269: END IF;
270:
271: IF (p_qte_header_rec.order_type_id IS NOT NULL AND p_qte_header_rec.order_type_id <> FND_API.G_MISS_NUM) THEN
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
265: IF aso_debug_pub.g_debug_flag = 'Y' THEN
266: aso_debug_pub.add('Entering OrderType ', 2, 'Y');
267: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
268: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
269: END IF;
270:
271: IF (p_qte_header_rec.order_type_id IS NOT NULL AND p_qte_header_rec.order_type_id <> FND_API.G_MISS_NUM) THEN
272: OPEN C_Order_Type(p_qte_header_rec.order_type_id);
270:
271: IF (p_qte_header_rec.order_type_id IS NOT NULL AND p_qte_header_rec.order_type_id <> FND_API.G_MISS_NUM) THEN
272: OPEN C_Order_Type(p_qte_header_rec.order_type_id);
273: FETCH C_Order_Type INTO l_order_category_code, l_start_date, l_end_date;
274: IF aso_debug_pub.g_debug_flag = 'Y' THEN
275: aso_debug_pub.add('l_Quote category code = ' || l_order_category_code , 2, 'N');
276: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
277: aso_debug_pub.add('end date = ' || l_end_date, 2, 'N');
278: END IF;
271: IF (p_qte_header_rec.order_type_id IS NOT NULL AND p_qte_header_rec.order_type_id <> FND_API.G_MISS_NUM) THEN
272: OPEN C_Order_Type(p_qte_header_rec.order_type_id);
273: FETCH C_Order_Type INTO l_order_category_code, l_start_date, l_end_date;
274: IF aso_debug_pub.g_debug_flag = 'Y' THEN
275: aso_debug_pub.add('l_Quote category code = ' || l_order_category_code , 2, 'N');
276: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
277: aso_debug_pub.add('end date = ' || l_end_date, 2, 'N');
278: END IF;
279:
272: OPEN C_Order_Type(p_qte_header_rec.order_type_id);
273: FETCH C_Order_Type INTO l_order_category_code, l_start_date, l_end_date;
274: IF aso_debug_pub.g_debug_flag = 'Y' THEN
275: aso_debug_pub.add('l_Quote category code = ' || l_order_category_code , 2, 'N');
276: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
277: aso_debug_pub.add('end date = ' || l_end_date, 2, 'N');
278: END IF;
279:
280: IF (C_Order_Type%NOTFOUND OR
273: FETCH C_Order_Type INTO l_order_category_code, l_start_date, l_end_date;
274: IF aso_debug_pub.g_debug_flag = 'Y' THEN
275: aso_debug_pub.add('l_Quote category code = ' || l_order_category_code , 2, 'N');
276: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
277: aso_debug_pub.add('end date = ' || l_end_date, 2, 'N');
278: END IF;
279:
280: IF (C_Order_Type%NOTFOUND OR
281: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
306:
307: END IF;
308: END IF;
309:
310: IF aso_debug_pub.g_debug_flag = 'Y' THEN
311: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
312: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
313: END IF;
314:
307: END IF;
308: END IF;
309:
310: IF aso_debug_pub.g_debug_flag = 'Y' THEN
311: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
312: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
313: END IF;
314:
315: END OrderType;
308: END IF;
309:
310: IF aso_debug_pub.g_debug_flag = 'Y' THEN
311: aso_debug_pub.add('Quote category code = ' || p_qte_header_rec.quote_category_code, 2, 'N');
312: aso_debug_pub.add('order type id = ' || p_qte_header_rec.order_type_id, 2, 'N');
313: END IF;
314:
315: END OrderType;
316:
350: END IF;
351:
352: -- Initialize API return status to success
353: x_return_status := FND_API.G_RET_STS_SUCCESS;
354: IF aso_debug_pub.g_debug_flag = 'Y' THEN
355: aso_debug_pub.add('Entering LineType ', 2, 'Y');
356: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
357: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
358: END IF;
351:
352: -- Initialize API return status to success
353: x_return_status := FND_API.G_RET_STS_SUCCESS;
354: IF aso_debug_pub.g_debug_flag = 'Y' THEN
355: aso_debug_pub.add('Entering LineType ', 2, 'Y');
356: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
357: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
358: END IF;
359:
352: -- Initialize API return status to success
353: x_return_status := FND_API.G_RET_STS_SUCCESS;
354: IF aso_debug_pub.g_debug_flag = 'Y' THEN
355: aso_debug_pub.add('Entering LineType ', 2, 'Y');
356: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
357: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
358: END IF;
359:
360: IF (p_qte_line_rec.order_line_type_id IS NOT NULL AND p_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
353: x_return_status := FND_API.G_RET_STS_SUCCESS;
354: IF aso_debug_pub.g_debug_flag = 'Y' THEN
355: aso_debug_pub.add('Entering LineType ', 2, 'Y');
356: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
357: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
358: END IF;
359:
360: IF (p_qte_line_rec.order_line_type_id IS NOT NULL AND p_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
361: OPEN C_Order_Line_Type(p_qte_line_rec.order_line_type_id);
359:
360: IF (p_qte_line_rec.order_line_type_id IS NOT NULL AND p_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
361: OPEN C_Order_Line_Type(p_qte_line_rec.order_line_type_id);
362: FETCH C_Order_Line_Type INTO l_line_category_code, l_start_date, l_end_date;
363: IF aso_debug_pub.g_debug_flag = 'Y' THEN
364: aso_debug_pub.add('l Line category code = ' || l_line_category_code, 2, 'N');
365: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
366: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
367: END IF;
360: IF (p_qte_line_rec.order_line_type_id IS NOT NULL AND p_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
361: OPEN C_Order_Line_Type(p_qte_line_rec.order_line_type_id);
362: FETCH C_Order_Line_Type INTO l_line_category_code, l_start_date, l_end_date;
363: IF aso_debug_pub.g_debug_flag = 'Y' THEN
364: aso_debug_pub.add('l Line category code = ' || l_line_category_code, 2, 'N');
365: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
366: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
367: END IF;
368: IF (C_Order_Line_Type%NOTFOUND OR
361: OPEN C_Order_Line_Type(p_qte_line_rec.order_line_type_id);
362: FETCH C_Order_Line_Type INTO l_line_category_code, l_start_date, l_end_date;
363: IF aso_debug_pub.g_debug_flag = 'Y' THEN
364: aso_debug_pub.add('l Line category code = ' || l_line_category_code, 2, 'N');
365: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
366: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
367: END IF;
368: IF (C_Order_Line_Type%NOTFOUND OR
369: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
362: FETCH C_Order_Line_Type INTO l_line_category_code, l_start_date, l_end_date;
363: IF aso_debug_pub.g_debug_flag = 'Y' THEN
364: aso_debug_pub.add('l Line category code = ' || l_line_category_code, 2, 'N');
365: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
366: aso_debug_pub.add('start date= ' || l_start_date, 2, 'N');
367: END IF;
368: IF (C_Order_Line_Type%NOTFOUND OR
369: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
370: NVL(l_end_date, sysdate))) THEN
369: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
370: NVL(l_end_date, sysdate))) THEN
371: CLOSE C_Order_Line_Type;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: IF aso_debug_pub.g_debug_flag = 'Y' THEN
374: aso_debug_pub.add('Create_Quote_lines - check line type 1', 1, 'Y');
375: END IF;
376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
377: FND_MESSAGE.Set_Name('ASO', 'API_INVALID_ID');
370: NVL(l_end_date, sysdate))) THEN
371: CLOSE C_Order_Line_Type;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: IF aso_debug_pub.g_debug_flag = 'Y' THEN
374: aso_debug_pub.add('Create_Quote_lines - check line type 1', 1, 'Y');
375: END IF;
376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
377: FND_MESSAGE.Set_Name('ASO', 'API_INVALID_ID');
378: FND_MESSAGE.Set_Token('COLUMN', 'ORDER_LINE_TYPE_ID', FALSE);
402: p_qte_line_rec.line_category_code := 'ORDER';
403: END IF;
404: END IF;
405:
406: IF aso_debug_pub.g_debug_flag = 'Y' THEN
407: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
408: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
409: END IF;
410: END LineType;
403: END IF;
404: END IF;
405:
406: IF aso_debug_pub.g_debug_flag = 'Y' THEN
407: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
408: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
409: END IF;
410: END LineType;
411:
404: END IF;
405:
406: IF aso_debug_pub.g_debug_flag = 'Y' THEN
407: aso_debug_pub.add('Line category code = ' || p_qte_line_rec.line_category_code, 2, 'N');
408: aso_debug_pub.add('Line Type = ' || p_qte_line_rec.order_line_type_id, 2, 'N');
409: END IF;
410: END LineType;
411:
412:
529: THEN
530: FND_MSG_PUB.initialize;
531: END IF;
532:
533: IF aso_debug_pub.g_debug_flag = 'Y' THEN
534: aso_debug_pub.add('Add_Lines_from_InstallBase - Begin ', 1, 'Y');
535: END IF;
536:
537: -- Initialize API return status to SUCCESS
530: FND_MSG_PUB.initialize;
531: END IF;
532:
533: IF aso_debug_pub.g_debug_flag = 'Y' THEN
534: aso_debug_pub.add('Add_Lines_from_InstallBase - Begin ', 1, 'Y');
535: END IF;
536:
537: -- Initialize API return status to SUCCESS
538: x_return_status := FND_API.G_RET_STS_SUCCESS;
548: END IF;
549:
550: l_organization_id := oe_profile.value('OE_ORGANIZATION_ID', l_org_id);
551:
552: IF aso_debug_pub.g_debug_flag = 'Y' THEN
553: aso_debug_pub.add('Add_Lines_from_InstallBase - l_org_id '||l_org_id, 1, 'N');
554: aso_debug_pub.add('Add_Lines_from_InstallBase - l_organization_id '||l_organization_id, 1, 'N');
555: aso_debug_pub.add('Add_Lines_from_InstallBase - P_instance_tbl.count '||P_instance_tbl.count, 1, 'N');
556: END IF;
549:
550: l_organization_id := oe_profile.value('OE_ORGANIZATION_ID', l_org_id);
551:
552: IF aso_debug_pub.g_debug_flag = 'Y' THEN
553: aso_debug_pub.add('Add_Lines_from_InstallBase - l_org_id '||l_org_id, 1, 'N');
554: aso_debug_pub.add('Add_Lines_from_InstallBase - l_organization_id '||l_organization_id, 1, 'N');
555: aso_debug_pub.add('Add_Lines_from_InstallBase - P_instance_tbl.count '||P_instance_tbl.count, 1, 'N');
556: END IF;
557:
550: l_organization_id := oe_profile.value('OE_ORGANIZATION_ID', l_org_id);
551:
552: IF aso_debug_pub.g_debug_flag = 'Y' THEN
553: aso_debug_pub.add('Add_Lines_from_InstallBase - l_org_id '||l_org_id, 1, 'N');
554: aso_debug_pub.add('Add_Lines_from_InstallBase - l_organization_id '||l_organization_id, 1, 'N');
555: aso_debug_pub.add('Add_Lines_from_InstallBase - P_instance_tbl.count '||P_instance_tbl.count, 1, 'N');
556: END IF;
557:
558: FOR i IN 1..P_instance_tbl.count LOOP
551:
552: IF aso_debug_pub.g_debug_flag = 'Y' THEN
553: aso_debug_pub.add('Add_Lines_from_InstallBase - l_org_id '||l_org_id, 1, 'N');
554: aso_debug_pub.add('Add_Lines_from_InstallBase - l_organization_id '||l_organization_id, 1, 'N');
555: aso_debug_pub.add('Add_Lines_from_InstallBase - P_instance_tbl.count '||P_instance_tbl.count, 1, 'N');
556: END IF;
557:
558: FOR i IN 1..P_instance_tbl.count LOOP
559:
556: END IF;
557:
558: FOR i IN 1..P_instance_tbl.count LOOP
559:
560: IF aso_debug_pub.g_debug_flag = 'Y' THEN
561: aso_debug_pub.add('Add_Lines_from_InstallBase - P_Instance_Tbl(i).Instance_Id: '||P_Instance_Tbl(i).Instance_Id, 1, 'N');
562: END IF;
563:
564: l_used := 'N';
557:
558: FOR i IN 1..P_instance_tbl.count LOOP
559:
560: IF aso_debug_pub.g_debug_flag = 'Y' THEN
561: aso_debug_pub.add('Add_Lines_from_InstallBase - P_Instance_Tbl(i).Instance_Id: '||P_Instance_Tbl(i).Instance_Id, 1, 'N');
562: END IF;
563:
564: l_used := 'N';
565: OPEN C_Ln_Dtl_Instances(P_Instance_Tbl(i).Instance_Id, P_Qte_Header_Rec.quote_header_id);
565: OPEN C_Ln_Dtl_Instances(P_Instance_Tbl(i).Instance_Id, P_Qte_Header_Rec.quote_header_id);
566: FETCH C_Ln_Dtl_Instances INTO l_used;
567: CLOSE C_Ln_Dtl_Instances;
568:
569: IF aso_debug_pub.g_debug_flag = 'Y' THEN
570: aso_debug_pub.add('Add_Lines_from_InstallBase - exists in quote: '||l_used, 1, 'N');
571: END IF;
572:
573: IF l_used = 'N' THEN
566: FETCH C_Ln_Dtl_Instances INTO l_used;
567: CLOSE C_Ln_Dtl_Instances;
568:
569: IF aso_debug_pub.g_debug_flag = 'Y' THEN
570: aso_debug_pub.add('Add_Lines_from_InstallBase - exists in quote: '||l_used, 1, 'N');
571: END IF;
572:
573: IF l_used = 'N' THEN
574:
577: l_used := 'Y';
578: EXIT;
579: END IF;
580: END LOOP;
581: IF aso_debug_pub.g_debug_flag = 'Y' THEN
582: aso_debug_pub.add('Add_Lines_from_InstallBase - already in quote: '||l_used, 1, 'N');
583: END IF;
584:
585: END IF;
578: EXIT;
579: END IF;
580: END LOOP;
581: IF aso_debug_pub.g_debug_flag = 'Y' THEN
582: aso_debug_pub.add('Add_Lines_from_InstallBase - already in quote: '||l_used, 1, 'N');
583: END IF;
584:
585: END IF;
586:
591: OPEN C_Get_Item_Details(P_instance_tbl(i).Instance_Id, l_organization_id);
592: FETCH C_Get_Item_Details INTO l_Cur_Inst;
593:
594: IF C_Get_Item_Details%NOTFOUND THEN
595: IF aso_debug_pub.g_debug_flag = 'Y' THEN
596: aso_debug_pub.add('Add_Lines_from_InstallBase - Invalid instance: ', 1, 'N');
597: END IF;
598:
599: CLOSE C_Get_Item_Details;
592: FETCH C_Get_Item_Details INTO l_Cur_Inst;
593:
594: IF C_Get_Item_Details%NOTFOUND THEN
595: IF aso_debug_pub.g_debug_flag = 'Y' THEN
596: aso_debug_pub.add('Add_Lines_from_InstallBase - Invalid instance: ', 1, 'N');
597: END IF;
598:
599: CLOSE C_Get_Item_Details;
600: x_return_status := FND_API.G_RET_STS_ERROR;
607:
608: CLOSE C_Get_Item_Details;
609:
610: IF NVL(l_Cur_Inst.Returnable_Flag, 'Y') <> 'Y' THEN
611: IF aso_debug_pub.g_debug_flag = 'Y' THEN
612: aso_debug_pub.add('Add_Lines_from_InstallBase - Not Returnable instance: ', 1, 'N');
613: END IF;
614:
615: x_return_status := FND_API.G_RET_STS_ERROR;
608: CLOSE C_Get_Item_Details;
609:
610: IF NVL(l_Cur_Inst.Returnable_Flag, 'Y') <> 'Y' THEN
611: IF aso_debug_pub.g_debug_flag = 'Y' THEN
612: aso_debug_pub.add('Add_Lines_from_InstallBase - Not Returnable instance: ', 1, 'N');
613: END IF;
614:
615: x_return_status := FND_API.G_RET_STS_ERROR;
616:
619: RAISE FND_API.G_EXC_ERROR;
620:
621: ELSE
622:
623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
624: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Inventory_Item_Id: '||l_Cur_Inst.Inventory_Item_Id, 1, 'N');
625: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Quantity: '||l_Cur_Inst.Quantity, 1, 'N');
626: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Unit_Of_Measure: '||l_Cur_Inst.Unit_Of_Measure, 1, 'N');
627: END IF;
620:
621: ELSE
622:
623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
624: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Inventory_Item_Id: '||l_Cur_Inst.Inventory_Item_Id, 1, 'N');
625: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Quantity: '||l_Cur_Inst.Quantity, 1, 'N');
626: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Unit_Of_Measure: '||l_Cur_Inst.Unit_Of_Measure, 1, 'N');
627: END IF;
628:
621: ELSE
622:
623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
624: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Inventory_Item_Id: '||l_Cur_Inst.Inventory_Item_Id, 1, 'N');
625: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Quantity: '||l_Cur_Inst.Quantity, 1, 'N');
626: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Unit_Of_Measure: '||l_Cur_Inst.Unit_Of_Measure, 1, 'N');
627: END IF;
628:
629: j := j + 1;
622:
623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
624: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Inventory_Item_Id: '||l_Cur_Inst.Inventory_Item_Id, 1, 'N');
625: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Quantity: '||l_Cur_Inst.Quantity, 1, 'N');
626: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.Unit_Of_Measure: '||l_Cur_Inst.Unit_Of_Measure, 1, 'N');
627: END IF;
628:
629: j := j + 1;
630: l_qte_line_tbl(j).quote_header_id := p_qte_header_rec.quote_header_id;
641: l_qte_line_tbl(j).Price_List_Id := FND_API.G_MISS_NUM;
642: END IF;
643: /*
644: IF l_Cur_Inst.last_oe_order_line_id IS NOT NULL THEN
645: IF aso_debug_pub.g_debug_flag = 'Y' THEN
646: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.last_oe_order_line_id: '||l_Cur_Inst.last_oe_order_line_id, 1, 'N');
647: END IF;
648:
649: OPEN C_Get_Order_Header(l_Cur_Inst.last_oe_order_line_id);
642: END IF;
643: /*
644: IF l_Cur_Inst.last_oe_order_line_id IS NOT NULL THEN
645: IF aso_debug_pub.g_debug_flag = 'Y' THEN
646: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.last_oe_order_line_id: '||l_Cur_Inst.last_oe_order_line_id, 1, 'N');
647: END IF;
648:
649: OPEN C_Get_Order_Header(l_Cur_Inst.last_oe_order_line_id);
650: FETCH C_Get_Order_Header INTO l_ord_hdr;
649: OPEN C_Get_Order_Header(l_Cur_Inst.last_oe_order_line_id);
650: FETCH C_Get_Order_Header INTO l_ord_hdr;
651: CLOSE C_Get_Order_Header;
652:
653: IF aso_debug_pub.g_debug_flag = 'Y' THEN
654: aso_debug_pub.add('Add_Lines_from_InstallBase - referenced ord hdr: '||l_ord_hdr, 1, 'N');
655: END IF;
656:
657: l_qte_line_dtl_tbl(j).return_ref_type := 'ORDER';
650: FETCH C_Get_Order_Header INTO l_ord_hdr;
651: CLOSE C_Get_Order_Header;
652:
653: IF aso_debug_pub.g_debug_flag = 'Y' THEN
654: aso_debug_pub.add('Add_Lines_from_InstallBase - referenced ord hdr: '||l_ord_hdr, 1, 'N');
655: END IF;
656:
657: l_qte_line_dtl_tbl(j).return_ref_type := 'ORDER';
658: l_qte_line_dtl_tbl(j).return_ref_header_id := l_ord_hdr;
668:
669: l_ln_shipment_tbl(j).qte_line_index := j;
670:
671: IF l_Cur_Inst.BOM_Item_Type = 1 THEN
672: IF aso_debug_pub.g_debug_flag = 'Y' THEN
673: aso_debug_pub.add('Add_Lines_from_InstallBase - model ', 1, 'N');
674: END IF;
675:
676: l_qte_line_dtl_tbl(j).ref_type_code :='TOP_MODEL';
669: l_ln_shipment_tbl(j).qte_line_index := j;
670:
671: IF l_Cur_Inst.BOM_Item_Type = 1 THEN
672: IF aso_debug_pub.g_debug_flag = 'Y' THEN
673: aso_debug_pub.add('Add_Lines_from_InstallBase - model ', 1, 'N');
674: END IF;
675:
676: l_qte_line_dtl_tbl(j).ref_type_code :='TOP_MODEL';
677: l_top_model_index := j;
681: l_used := 'N';
682: OPEN C_Ln_Dtl_Instances(Inst_Children.Subject_Id, P_Qte_Header_Rec.quote_header_id);
683: FETCH C_Ln_Dtl_Instances INTO l_used;
684: CLOSE C_Ln_Dtl_Instances;
685: IF aso_debug_pub.g_debug_flag = 'Y' THEN
686: aso_debug_pub.add('Add_Lines_from_InstallBase - exists in quote: '||l_used, 1, 'N');
687: END IF;
688:
689: FOR k IN 1..l_used_inst_tbl.count LOOP
682: OPEN C_Ln_Dtl_Instances(Inst_Children.Subject_Id, P_Qte_Header_Rec.quote_header_id);
683: FETCH C_Ln_Dtl_Instances INTO l_used;
684: CLOSE C_Ln_Dtl_Instances;
685: IF aso_debug_pub.g_debug_flag = 'Y' THEN
686: aso_debug_pub.add('Add_Lines_from_InstallBase - exists in quote: '||l_used, 1, 'N');
687: END IF;
688:
689: FOR k IN 1..l_used_inst_tbl.count LOOP
690: IF l_used_inst_tbl(k).Instance_Id = Inst_Children.Subject_Id THEN
691: l_used := 'Y';
692: EXIT;
693: END IF;
694: END LOOP;
695: IF aso_debug_pub.g_debug_flag = 'Y' THEN
696: aso_debug_pub.add('Add_Lines_from_InstallBase - already in quote: '||l_used, 1, 'N');
697: END IF;
698:
699: IF l_used = 'N' THEN
692: EXIT;
693: END IF;
694: END LOOP;
695: IF aso_debug_pub.g_debug_flag = 'Y' THEN
696: aso_debug_pub.add('Add_Lines_from_InstallBase - already in quote: '||l_used, 1, 'N');
697: END IF;
698:
699: IF l_used = 'N' THEN
700:
703: OPEN C_Get_Item_Details(Inst_Children.Subject_Id, l_organization_id);
704: FETCH C_Get_Item_Details INTO l_Cur_Child;
705:
706: IF C_Get_Item_Details%NOTFOUND THEN
707: IF aso_debug_pub.g_debug_flag = 'Y' THEN
708: aso_debug_pub.add('Add_Lines_from_InstallBase - Invalid child instance: ', 1, 'N');
709: END IF;
710:
711: CLOSE C_Get_Item_Details;
704: FETCH C_Get_Item_Details INTO l_Cur_Child;
705:
706: IF C_Get_Item_Details%NOTFOUND THEN
707: IF aso_debug_pub.g_debug_flag = 'Y' THEN
708: aso_debug_pub.add('Add_Lines_from_InstallBase - Invalid child instance: ', 1, 'N');
709: END IF;
710:
711: CLOSE C_Get_Item_Details;
712: x_return_status := FND_API.G_RET_STS_ERROR;
719:
720: CLOSE C_Get_Item_Details;
721:
722: IF NVL(l_Cur_Child.Returnable_Flag, 'Y') = 'Y' THEN
723: IF aso_debug_pub.g_debug_flag = 'Y' THEN
724: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Inventory_Item_Id: '||l_Cur_Child.Inventory_Item_Id, 1, 'N');
725: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Quantity: '||l_Cur_Child.Quantity, 1, 'N');
726: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Unit_Of_Measure: '||l_Cur_Child.Unit_Of_Measure, 1, 'N');
727: END IF;
720: CLOSE C_Get_Item_Details;
721:
722: IF NVL(l_Cur_Child.Returnable_Flag, 'Y') = 'Y' THEN
723: IF aso_debug_pub.g_debug_flag = 'Y' THEN
724: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Inventory_Item_Id: '||l_Cur_Child.Inventory_Item_Id, 1, 'N');
725: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Quantity: '||l_Cur_Child.Quantity, 1, 'N');
726: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Unit_Of_Measure: '||l_Cur_Child.Unit_Of_Measure, 1, 'N');
727: END IF;
728:
721:
722: IF NVL(l_Cur_Child.Returnable_Flag, 'Y') = 'Y' THEN
723: IF aso_debug_pub.g_debug_flag = 'Y' THEN
724: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Inventory_Item_Id: '||l_Cur_Child.Inventory_Item_Id, 1, 'N');
725: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Quantity: '||l_Cur_Child.Quantity, 1, 'N');
726: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Unit_Of_Measure: '||l_Cur_Child.Unit_Of_Measure, 1, 'N');
727: END IF;
728:
729: j := j + 1;
722: IF NVL(l_Cur_Child.Returnable_Flag, 'Y') = 'Y' THEN
723: IF aso_debug_pub.g_debug_flag = 'Y' THEN
724: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Inventory_Item_Id: '||l_Cur_Child.Inventory_Item_Id, 1, 'N');
725: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Quantity: '||l_Cur_Child.Quantity, 1, 'N');
726: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Child.Unit_Of_Measure: '||l_Cur_Child.Unit_Of_Measure, 1, 'N');
727: END IF;
728:
729: j := j + 1;
730: l_qte_line_tbl(j).quote_header_id := p_qte_header_rec.quote_header_id;
743:
744: l_qte_line_tbl(j).Price_List_Id := P_Instance_Tbl(i).Price_List_Id;
745: /*
746: IF l_Cur_Child.last_oe_order_line_id IS NOT NULL THEN
747: IF aso_debug_pub.g_debug_flag = 'Y' THEN
748: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.last_oe_order_line_id: '||l_Cur_Inst.last_oe_order_line_id, 1, 'N');
749: END IF;
750:
751: OPEN C_Get_Order_Header(l_Cur_Child.last_oe_order_line_id);
744: l_qte_line_tbl(j).Price_List_Id := P_Instance_Tbl(i).Price_List_Id;
745: /*
746: IF l_Cur_Child.last_oe_order_line_id IS NOT NULL THEN
747: IF aso_debug_pub.g_debug_flag = 'Y' THEN
748: aso_debug_pub.add('Add_Lines_from_InstallBase - l_Cur_Inst.last_oe_order_line_id: '||l_Cur_Inst.last_oe_order_line_id, 1, 'N');
749: END IF;
750:
751: OPEN C_Get_Order_Header(l_Cur_Child.last_oe_order_line_id);
752: FETCH C_Get_Order_Header INTO l_ord_hdr;
750:
751: OPEN C_Get_Order_Header(l_Cur_Child.last_oe_order_line_id);
752: FETCH C_Get_Order_Header INTO l_ord_hdr;
753: CLOSE C_Get_Order_Header;
754: IF aso_debug_pub.g_debug_flag = 'Y' THEN
755: aso_debug_pub.add('Add_Lines_from_InstallBase - referenced ord hdr: '||l_ord_hdr, 1, 'N');
756: END IF:
757:
758: l_qte_line_dtl_tbl(j).return_ref_type := 'ORDER';
751: OPEN C_Get_Order_Header(l_Cur_Child.last_oe_order_line_id);
752: FETCH C_Get_Order_Header INTO l_ord_hdr;
753: CLOSE C_Get_Order_Header;
754: IF aso_debug_pub.g_debug_flag = 'Y' THEN
755: aso_debug_pub.add('Add_Lines_from_InstallBase - referenced ord hdr: '||l_ord_hdr, 1, 'N');
756: END IF:
757:
758: l_qte_line_dtl_tbl(j).return_ref_type := 'ORDER';
759: l_qte_line_dtl_tbl(j).return_ref_header_id := l_ord_hdr;
762: l_qte_line_dtl_tbl(j).return_attribute2 := l_Cur_Child.last_oe_order_line_id;
763:
764: END IF;
765: */
766: IF aso_debug_pub.g_debug_flag = 'Y' THEN
767: aso_debug_pub.add('Add_Lines_from_InstallBase - Inst_Children.Subject_Id: '||Inst_Children.Subject_Id, 1, 'N');
768: END IF;
769:
770: l_qte_line_dtl_tbl(j).instance_id := Inst_Children.Subject_Id;
763:
764: END IF;
765: */
766: IF aso_debug_pub.g_debug_flag = 'Y' THEN
767: aso_debug_pub.add('Add_Lines_from_InstallBase - Inst_Children.Subject_Id: '||Inst_Children.Subject_Id, 1, 'N');
768: END IF;
769:
770: l_qte_line_dtl_tbl(j).instance_id := Inst_Children.Subject_Id;
771: l_qte_line_dtl_tbl(j).Operation_Code := 'CREATE';
789: END IF; -- used = N
790:
791: END LOOP;
792:
793: IF aso_debug_pub.g_debug_flag = 'Y' THEN
794: aso_debug_pub.add('p_qte_header_rec.last_update_date = '||
795: to_char(p_qte_header_rec.last_update_date,'DD-MM-YYYY HH:MI:SS'),1,'N');
796: aso_debug_pub.add('l_Qte_line_tbl.count = '|| l_Qte_line_tbl.count,1,'N');
797: END IF;
790:
791: END LOOP;
792:
793: IF aso_debug_pub.g_debug_flag = 'Y' THEN
794: aso_debug_pub.add('p_qte_header_rec.last_update_date = '||
795: to_char(p_qte_header_rec.last_update_date,'DD-MM-YYYY HH:MI:SS'),1,'N');
796: aso_debug_pub.add('l_Qte_line_tbl.count = '|| l_Qte_line_tbl.count,1,'N');
797: END IF;
798:
792:
793: IF aso_debug_pub.g_debug_flag = 'Y' THEN
794: aso_debug_pub.add('p_qte_header_rec.last_update_date = '||
795: to_char(p_qte_header_rec.last_update_date,'DD-MM-YYYY HH:MI:SS'),1,'N');
796: aso_debug_pub.add('l_Qte_line_tbl.count = '|| l_Qte_line_tbl.count,1,'N');
797: END IF;
798:
799:
800: IF j > 0 THEN
800: IF j > 0 THEN
801:
802: l_prof_val := fnd_profile.value('ASO_ENABLE_DEFAULTING_RULE');
803:
804: IF aso_debug_pub.g_debug_flag = 'Y' THEN
805: aso_debug_pub.add('l_prof_val: '|| l_prof_val,1,'N');
806: END IF;
807:
808: if l_prof_val = 'Y' then
801:
802: l_prof_val := fnd_profile.value('ASO_ENABLE_DEFAULTING_RULE');
803:
804: IF aso_debug_pub.g_debug_flag = 'Y' THEN
805: aso_debug_pub.add('l_prof_val: '|| l_prof_val,1,'N');
806: END IF;
807:
808: if l_prof_val = 'Y' then
809: l_control_rec.DEFAULTING_FWK_FLAG := 'Y';
813: l_control_rec.DEFAULTING_FWK_FLAG := 'N';
814: l_control_rec.DEFAULTING_FLAG := FND_API.G_FALSE;
815: end if;
816:
817: IF aso_debug_pub.g_debug_flag = 'Y' THEN
818: aso_debug_pub.add('Add_Lines_from_InstallBase - calling ASO_QUOTE_PUB.Update_Quote: ', 1, 'N');
819: END IF;
820:
821: ASO_QUOTE_PUB.Update_Quote(
814: l_control_rec.DEFAULTING_FLAG := FND_API.G_FALSE;
815: end if;
816:
817: IF aso_debug_pub.g_debug_flag = 'Y' THEN
818: aso_debug_pub.add('Add_Lines_from_InstallBase - calling ASO_QUOTE_PUB.Update_Quote: ', 1, 'N');
819: END IF;
820:
821: ASO_QUOTE_PUB.Update_Quote(
822: p_api_version_number => 1.0,
853: X_Return_Status => x_Return_Status,
854: X_Msg_Count => x_Msg_Count,
855: X_Msg_Data => x_Msg_Data);
856:
857: IF aso_debug_pub.g_debug_flag = 'Y' THEN
858: aso_debug_pub.add('Add_Lines_from_InstallBase - after update_quote: x_ret_status: '||x_return_status, 1, 'N');
859: END IF;
860:
861: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
854: X_Msg_Count => x_Msg_Count,
855: X_Msg_Data => x_Msg_Data);
856:
857: IF aso_debug_pub.g_debug_flag = 'Y' THEN
858: aso_debug_pub.add('Add_Lines_from_InstallBase - after update_quote: x_ret_status: '||x_return_status, 1, 'N');
859: END IF;
860:
861: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: x_qte_header_rec := p_qte_header_rec;
869:
870: END IF; -- end j >0
871:
872: IF aso_debug_pub.g_debug_flag = 'Y' THEN
873: aso_debug_pub.add('x_qte_header_rec.last_update_date = '||
874: to_char(x_qte_header_rec.last_update_date,'DD-MM-YYYY HH:MI:SS'),1,'N');
875: aso_debug_pub.add('x_Qte_line_tbl.count = '|| x_Qte_line_tbl.count,1,'N');
876: END IF;
869:
870: END IF; -- end j >0
871:
872: IF aso_debug_pub.g_debug_flag = 'Y' THEN
873: aso_debug_pub.add('x_qte_header_rec.last_update_date = '||
874: to_char(x_qte_header_rec.last_update_date,'DD-MM-YYYY HH:MI:SS'),1,'N');
875: aso_debug_pub.add('x_Qte_line_tbl.count = '|| x_Qte_line_tbl.count,1,'N');
876: END IF;
877:
871:
872: IF aso_debug_pub.g_debug_flag = 'Y' THEN
873: aso_debug_pub.add('x_qte_header_rec.last_update_date = '||
874: to_char(x_qte_header_rec.last_update_date,'DD-MM-YYYY HH:MI:SS'),1,'N');
875: aso_debug_pub.add('x_Qte_line_tbl.count = '|| x_Qte_line_tbl.count,1,'N');
876: END IF;
877:
878: FND_MSG_PUB.Count_And_Get
879: ( p_count => x_msg_count,
969: END IF;
970:
971: -- Initialize API return status to success
972: x_return_status := FND_API.G_RET_STS_SUCCESS;
973: IF aso_debug_pub.g_debug_flag = 'Y' THEN
974: aso_debug_pub.add('Entering Validate_IB_Return_Qty ', 2, 'Y');
975: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
976: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
977: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.quantity: '||p_qte_line_rec.quantity, 1, 'N');
970:
971: -- Initialize API return status to success
972: x_return_status := FND_API.G_RET_STS_SUCCESS;
973: IF aso_debug_pub.g_debug_flag = 'Y' THEN
974: aso_debug_pub.add('Entering Validate_IB_Return_Qty ', 2, 'Y');
975: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
976: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
977: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.quantity: '||p_qte_line_rec.quantity, 1, 'N');
978: END IF;
971: -- Initialize API return status to success
972: x_return_status := FND_API.G_RET_STS_SUCCESS;
973: IF aso_debug_pub.g_debug_flag = 'Y' THEN
974: aso_debug_pub.add('Entering Validate_IB_Return_Qty ', 2, 'Y');
975: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
976: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
977: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.quantity: '||p_qte_line_rec.quantity, 1, 'N');
978: END IF;
979:
972: x_return_status := FND_API.G_RET_STS_SUCCESS;
973: IF aso_debug_pub.g_debug_flag = 'Y' THEN
974: aso_debug_pub.add('Entering Validate_IB_Return_Qty ', 2, 'Y');
975: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
976: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
977: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.quantity: '||p_qte_line_rec.quantity, 1, 'N');
978: END IF;
979:
980: IF p_qte_line_rec.operation_code = 'UPDATE' THEN
973: IF aso_debug_pub.g_debug_flag = 'Y' THEN
974: aso_debug_pub.add('Entering Validate_IB_Return_Qty ', 2, 'Y');
975: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
976: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.operation_code: '||p_qte_line_rec.operation_code, 1, 'N');
977: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.quantity: '||p_qte_line_rec.quantity, 1, 'N');
978: END IF;
979:
980: IF p_qte_line_rec.operation_code = 'UPDATE' THEN
981:
1024:
1025: END IF;
1026:
1027:
1028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1029: aso_debug_pub.add('Validate_IB_Return_Qty - l_inst_id: '||l_inst_id, 1, 'N');
1030: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_type: '||l_ref_type, 1, 'N');
1031: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_id: '||l_ref_id, 1, 'N');
1032: aso_debug_pub.add('Validate_IB_Return_Qty - l_qte_quantity: '||l_qte_quantity, 1, 'N');
1025: END IF;
1026:
1027:
1028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1029: aso_debug_pub.add('Validate_IB_Return_Qty - l_inst_id: '||l_inst_id, 1, 'N');
1030: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_type: '||l_ref_type, 1, 'N');
1031: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_id: '||l_ref_id, 1, 'N');
1032: aso_debug_pub.add('Validate_IB_Return_Qty - l_qte_quantity: '||l_qte_quantity, 1, 'N');
1033: END IF;
1026:
1027:
1028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1029: aso_debug_pub.add('Validate_IB_Return_Qty - l_inst_id: '||l_inst_id, 1, 'N');
1030: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_type: '||l_ref_type, 1, 'N');
1031: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_id: '||l_ref_id, 1, 'N');
1032: aso_debug_pub.add('Validate_IB_Return_Qty - l_qte_quantity: '||l_qte_quantity, 1, 'N');
1033: END IF;
1034:
1027:
1028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1029: aso_debug_pub.add('Validate_IB_Return_Qty - l_inst_id: '||l_inst_id, 1, 'N');
1030: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_type: '||l_ref_type, 1, 'N');
1031: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_id: '||l_ref_id, 1, 'N');
1032: aso_debug_pub.add('Validate_IB_Return_Qty - l_qte_quantity: '||l_qte_quantity, 1, 'N');
1033: END IF;
1034:
1035: IF l_qte_quantity IS NOT NULL AND
1028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1029: aso_debug_pub.add('Validate_IB_Return_Qty - l_inst_id: '||l_inst_id, 1, 'N');
1030: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_type: '||l_ref_type, 1, 'N');
1031: aso_debug_pub.add('Validate_IB_Return_Qty - l_ref_id: '||l_ref_id, 1, 'N');
1032: aso_debug_pub.add('Validate_IB_Return_Qty - l_qte_quantity: '||l_qte_quantity, 1, 'N');
1033: END IF;
1034:
1035: IF l_qte_quantity IS NOT NULL AND
1036: l_qte_quantity <> FND_API.G_MISS_NUM THEN
1040:
1041: IF p_qte_line_rec.line_category_code IS NOT NULL AND
1042: p_qte_line_rec.line_category_code <> FND_API.G_MISS_CHAR THEN
1043:
1044: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1045: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.line_category_code: '||p_qte_line_rec.line_category_code, 1, 'N');
1046: END IF;
1047:
1048: IF p_qte_line_rec.line_category_code <> 'RETURN' THEN
1041: IF p_qte_line_rec.line_category_code IS NOT NULL AND
1042: p_qte_line_rec.line_category_code <> FND_API.G_MISS_CHAR THEN
1043:
1044: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1045: aso_debug_pub.add('Validate_IB_Return_Qty - p_qte_line_rec.line_category_code: '||p_qte_line_rec.line_category_code, 1, 'N');
1046: END IF;
1047:
1048: IF p_qte_line_rec.line_category_code <> 'RETURN' THEN
1049: x_return_status := FND_API.G_RET_STS_ERROR;
1061: OPEN C_Get_Ord_Qty(l_ref_id);
1062: FETCH C_Get_Ord_Qty INTO l_qty;
1063: CLOSE C_Get_Ord_Qty;
1064:
1065: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1066: aso_debug_pub.add('Validate_IB_Return_Qty - l_qty: '||l_qty, 1, 'N');
1067: END IF;
1068: IF l_qty <> l_qte_quantity THEN
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1062: FETCH C_Get_Ord_Qty INTO l_qty;
1063: CLOSE C_Get_Ord_Qty;
1064:
1065: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1066: aso_debug_pub.add('Validate_IB_Return_Qty - l_qty: '||l_qty, 1, 'N');
1067: END IF;
1068: IF l_qty <> l_qte_quantity THEN
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1070: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1079: OPEN C_Get_Inst_Qty(l_inst_id);
1080: FETCH C_Get_Inst_Qty INTO l_qty;
1081: CLOSE C_Get_Inst_Qty;
1082:
1083: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1084: aso_debug_pub.add('Validate_IB_Return_Qty - l_qty: '||l_qty, 1, 'N');
1085: END IF;
1086: IF l_qty < l_qte_quantity THEN
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1080: FETCH C_Get_Inst_Qty INTO l_qty;
1081: CLOSE C_Get_Inst_Qty;
1082:
1083: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1084: aso_debug_pub.add('Validate_IB_Return_Qty - l_qty: '||l_qty, 1, 'N');
1085: END IF;
1086: IF l_qty < l_qte_quantity THEN
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN