[Home] [Help]
106:
107:
108: BEGIN
109:
110: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
111:
112: -- make ids null or g_miss. this checking should be removed from table handlers
113:
114:
345: := l_qte_line_dtl_rec.SERVICE_REF_LINE_ID;
346: l_line_rtlship_rec.related_quote_line_id
347: := x_qte_line_rec.quote_line_id;
348: l_line_rtlship_rec.relationship_type_code := 'SERVICE';
349: l_line_rtlship_rec.reciprocal_flag := FND_API.G_FALSE;
350:
351: ASO_LINE_RLTSHIP_PVT.Create_line_rltship(
352: P_Api_Version_Number => 1.0,
353: P_LINE_RLTSHIP_Rec => l_line_rtlship_rec,
368: END IF;
369:
370: ASO_VALIDATE_PVT.Validate_Promotion (
371: P_Api_Version_Number => 1.0,
372: P_Init_Msg_List => FND_API.G_FALSE,
373: P_Commit => FND_API.G_FALSE,
374: p_price_attr_tbl => p_price_attributes_tbl,
375: x_price_attr_tbl => lx_price_attr_tbl,
376: x_return_status => x_return_status,
369:
370: ASO_VALIDATE_PVT.Validate_Promotion (
371: P_Api_Version_Number => 1.0,
372: P_Init_Msg_List => FND_API.G_FALSE,
373: P_Commit => FND_API.G_FALSE,
374: p_price_attr_tbl => p_price_attributes_tbl,
375: x_price_attr_tbl => lx_price_attr_tbl,
376: x_return_status => x_return_status,
377: x_msg_count => x_msg_count,
381: aso_debug_pub.add('after calling Validate_Promotion ', 1, 'Y');
382: aso_debug_pub.add('Validate_Promotion Return Status: '||x_return_status, 1, 'Y');
383: END IF;
384:
385: if x_return_status <> fnd_api.g_ret_sts_success then
386: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
389: RAISE FND_API.G_EXC_ERROR;
382: aso_debug_pub.add('Validate_Promotion Return Status: '||x_return_status, 1, 'Y');
383: END IF;
384:
385: if x_return_status <> fnd_api.g_ret_sts_success then
386: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
389: RAISE FND_API.G_EXC_ERROR;
390: ELSE
383: END IF;
384:
385: if x_return_status <> fnd_api.g_ret_sts_success then
386: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
389: RAISE FND_API.G_EXC_ERROR;
390: ELSE
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
384:
385: if x_return_status <> fnd_api.g_ret_sts_success then
386: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
389: RAISE FND_API.G_EXC_ERROR;
390: ELSE
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
385: if x_return_status <> fnd_api.g_ret_sts_success then
386: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
389: RAISE FND_API.G_EXC_ERROR;
390: ELSE
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
393: end if;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
389: RAISE FND_API.G_EXC_ERROR;
390: ELSE
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
393: end if;
394:
395:
1035: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1036: aso_debug_pub.add('Insert_Quote_Line_Rows: After call to create_payment_row: x_return_status: '||x_return_status, 1, 'Y');
1037: END IF;
1038:
1039: if x_return_status <> fnd_api.g_ret_sts_success then
1040: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1043: RAISE FND_API.G_EXC_ERROR;
1036: aso_debug_pub.add('Insert_Quote_Line_Rows: After call to create_payment_row: x_return_status: '||x_return_status, 1, 'Y');
1037: END IF;
1038:
1039: if x_return_status <> fnd_api.g_ret_sts_success then
1040: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1043: RAISE FND_API.G_EXC_ERROR;
1044: ELSE
1037: END IF;
1038:
1039: if x_return_status <> fnd_api.g_ret_sts_success then
1040: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1043: RAISE FND_API.G_EXC_ERROR;
1044: ELSE
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1038:
1039: if x_return_status <> fnd_api.g_ret_sts_success then
1040: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1043: RAISE FND_API.G_EXC_ERROR;
1044: ELSE
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: END IF;
1039: if x_return_status <> fnd_api.g_ret_sts_success then
1040: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1043: RAISE FND_API.G_EXC_ERROR;
1044: ELSE
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: END IF;
1047: end if;
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1043: RAISE FND_API.G_EXC_ERROR;
1044: ELSE
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: END IF;
1047: end if;
1048:
1049: x_payment_tbl(i).payment_term_id_from := l_payment_rec.payment_term_id_from;
1180: P_Price_Adj_Attr_Tbl IN ASO_QUOTE_PUB.Price_Adj_Attr_Tbl_Type := ASO_QUOTE_PUB.G_Miss_PRICE_ADJ_ATTR_Tbl,
1181: P_Line_Attribs_Ext_Tbl IN ASO_QUOTE_PUB.Line_Attribs_Ext_Tbl_type := ASO_QUOTE_PUB.G_Miss_Line_Attribs_Ext_Tbl,
1182: P_Sales_Credit_Tbl IN ASO_QUOTE_PUB.Sales_Credit_Tbl_Type := ASO_QUOTE_PUB.G_MISS_Sales_Credit_Tbl,
1183: P_Quote_Party_Tbl IN ASO_QUOTE_PUB.Quote_Party_Tbl_Type := ASO_QUOTE_PUB.G_MISS_Quote_Party_Tbl,
1184: P_Update_Header_Flag IN VARCHAR2 := FND_API.G_TRUE,
1185: P_operation_code IN VARCHAR2,
1186: X_Qte_Line_Rec OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Qte_Line_Rec_Type,
1187: X_Payment_Tbl OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Payment_Tbl_Type,
1188: X_Price_Adj_Tbl OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Price_Adj_Tbl_Type,
1284: l_total_quantity NUMBER;
1285: l_shipment_quantity NUMBER;
1286: l_shipment_rec_count NUMBER;
1287: l_line_number NUMBER;
1288: l_check VARCHAR2(1) := FND_API.G_FALSE;
1289: l_customer_id NUMBER;
1290: l_acct NUMBER;
1291: l_party NUMBER;
1292: l_coterminate_flag VARCHAR2(1);
1293: l_start_date DATE;
1294: l_end_date DATE;
1295: l_service_period VARCHAR2(200);
1296: l_service_duration NUMBER;
1297: calc_service VARCHAR2(1) := FND_API.G_FALSE;
1298: l_inventory_item_id NUMBER;
1299: l_organization_id NUMBER;
1300: i NUMBER;
1301: l_serviceable_line_number NUMBER;
1319: l_hd_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type;
1320: l_hd_shipment_rec ASO_QUOTE_PUB.Shipment_Rec_Type;
1321: l_hd_price_attr_tbl ASO_QUOTE_PUB.Price_Adj_Attr_Tbl_Type;
1322:
1323: l_call_get_duration VARCHAR2(1) := FND_API.G_FALSE;
1324: /* New Variable for changes */
1325: l_Qte_Line_Dtl_tbl_out ASO_QUOTE_PUB.Qte_Line_Dtl_tbl_Type;
1326: l_qte_line_rec_out ASO_QUOTE_PUB.Qte_Line_Rec_Type;
1327: l_ship_model_complete_flag VARCHAR2(1);
1331: l_config_model_type varchar2(1);
1332:
1333: BEGIN
1334:
1335: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1336:
1337: l_Qte_Line_Rec := p_Qte_Line_Rec ;
1338: l_Payment_Tbl := p_Payment_Tbl ;
1339: l_Price_Adj_Tbl := p_Price_Adj_Tbl ;
1355: IF p_operation_code = 'CREATE' THEN
1356:
1357: -- default org id from header
1358:
1359: IF l_qte_line_rec.org_id is NULL OR l_qte_line_rec.org_id = FND_API.G_MISS_NUM THEN
1360:
1361: OPEN C_org_id;
1362: FETCH C_org_id into l_qte_line_rec.org_id;
1363:
1376: END IF;
1377:
1378: -- default organization_id from profile
1379:
1380: IF l_qte_line_rec.organization_id is NULL or l_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
1381:
1382: l_qte_line_rec.organization_id := oe_profile.value('OE_ORGANIZATION_ID',l_qte_line_rec.org_id);
1383:
1384: IF l_qte_line_rec.organization_id is NULL or l_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
1380: IF l_qte_line_rec.organization_id is NULL or l_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
1381:
1382: l_qte_line_rec.organization_id := oe_profile.value('OE_ORGANIZATION_ID',l_qte_line_rec.org_id);
1383:
1384: IF l_qte_line_rec.organization_id is NULL or l_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
1385:
1386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1387: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1388: FND_MESSAGE.Set_Token('COLUMN', 'ORGANIZATION_ID', FALSE);
1399:
1400:
1401: -- item_type code
1402:
1403: IF l_qte_line_rec.item_type_code is NULL OR l_qte_line_rec.item_type_code = FND_API.G_MISS_CHAR THEN
1404:
1405: SELECT Decode(i.bom_item_type , 1, 'MDL',2,'OPT',3,'PLN',4,'STD')
1406: INTO l_qte_line_rec.item_type_code
1407: FROM mtl_system_items_b i
1417: END IF;
1418:
1419: END IF;
1420:
1421: END IF; --IF l_qte_line_rec.item_type_code is NULL OR l_qte_line_rec.item_type_code = FND_API.G_MISS_CHAR
1422:
1423:
1424:
1425:
1428: -- default charge_periodicity_code from Inventory
1429:
1430: if p_control_rec.defaulting_fwk_flag = 'N' then
1431:
1432: IF l_qte_line_rec.charge_periodicity_code is NULL OR l_qte_line_rec.charge_periodicity_code = FND_API.G_MISS_CHAR THEN
1433:
1434: l_master_organization_id := oe_sys_parameters.value(param_name => 'MASTER_ORGANIZATION_ID', p_org_id => l_qte_line_rec.org_id);
1435:
1436: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1454: END IF;
1455: end if;
1456:
1457:
1458: IF l_qte_line_rec.quantity is null or l_qte_line_rec.quantity = FND_API.G_MISS_NUM THEN
1459: l_qte_line_rec.quantity := nvl(fnd_profile.value(name => 'ASO_DEFAULT_QTY'),1);
1460: END IF;
1461:
1462:
1473: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1474: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_SHIPMENTS');
1475: FND_MSG_PUB.ADD;
1476: END IF;
1477: raise FND_API.G_EXC_ERROR;
1478: END IF;
1479: END LOOP;
1480:
1481: END IF;
1490: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1491: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_SHIPMENTS');
1492: FND_MSG_PUB.ADD;
1493: END IF;
1494: raise FND_API.G_EXC_ERROR;
1495:
1496: ELSIF l_shipment_tbl.count > 0 THEN
1497:
1498: IF l_qte_line_rec.quantity <> l_shipment_tbl(1).quantity THEN
1511: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
1512: FND_MESSAGE.Set_Token('COLUMN','ITEM RELATED', FALSE);
1513: FND_MSG_PUB.Add;
1514: END IF;
1515: raise FND_API.G_EXC_ERROR;
1516:
1517: ELSE
1518:
1519: -- pnpl changes
1523: if (l_installment_option = 'ENABLE_PAY_NOW') THEN
1524:
1525: --if ((p_control_rec.defaulting_fwk_flag = 'N') and (l_installment_option = 'ENABLE_PAYNOW')) THEN
1526:
1527: if (l_payment_term_id is not null and l_payment_term_id <> fnd_api.g_miss_num) then
1528:
1529: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1530: aso_debug_pub.add('Populate_Quote_lines:Setting the payment term for line from item master ', 1, 'N');
1531: END IF;
1534: l_payment_tbl(1).operation_code := 'CREATE';
1535: l_payment_tbl(1).quote_header_id := l_qte_line_rec.quote_header_id ;
1536: l_payment_tbl(1).payment_term_id := l_payment_term_id;
1537: l_payment_tbl(1).qte_line_index := 1;
1538: ELSIF (l_payment_tbl.count= 1 and l_payment_tbl(1).payment_term_id = FND_API.G_MISS_NUM
1539: and l_payment_tbl(1).operation_code = 'CREATE') THEN
1540: l_payment_tbl(1).payment_term_id := l_payment_term_id;
1541: End if;
1542: end if;
1547:
1548:
1549: -- default uom code
1550:
1551: IF l_qte_line_rec.uom_code IS NULL OR l_qte_line_rec.uom_code = FND_API.G_MISS_CHAR THEN
1552: l_qte_line_rec.uom_code := l_uom_code;
1553: END IF;
1554:
1555: -- Default the ship model complete flag and config model type
1570: -- find end date for service
1571:
1572: IF nvl(l_service_item_flag,'N') = 'Y' THEN
1573:
1574: IF P_Qte_Line_Rec.start_date_active is NULL OR P_Qte_Line_Rec.start_date_active = FND_API.G_MISS_DATE THEN
1575:
1576: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1577: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_COLUMN');
1578: FND_MESSAGE.Set_Token('COLUMN', 'START_DATE_ACTIVE', FALSE);
1577: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_COLUMN');
1578: FND_MESSAGE.Set_Token('COLUMN', 'START_DATE_ACTIVE', FALSE);
1579: FND_MSG_PUB.ADD;
1580: END IF;
1581: RAISE FND_API.G_EXC_ERROR;
1582:
1583: END IF;
1584:
1585: -- if account id is not null use account id otherwise use party id
1609: end if;
1610:
1611: ASO_SERVICE_CONTRACTS_INT.Get_service_attributes(
1612: P_Api_Version_Number => 1,
1613: P_init_msg_list => FND_API.G_FALSE,
1614: P_Qte_Line_Rec => P_Qte_Line_Rec,
1615: P_Qte_Line_Dtl_tbl => P_Qte_Line_Dtl_tbl,
1616: X_msg_Count => X_msg_Count,
1617: X_msg_Data => X_msg_Data,
1620: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1621: aso_debug_pub.add('Populate_Quote_lines:Create :after get service attr '||X_Return_Status, 1, 'N');
1622: end if;
1623:
1624: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1625: RAISE FND_API.G_EXC_ERROR;
1626: END IF;
1627:
1628: -- New code begins 04/26/2002
1621: aso_debug_pub.add('Populate_Quote_lines:Create :after get service attr '||X_Return_Status, 1, 'N');
1622: end if;
1623:
1624: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1625: RAISE FND_API.G_EXC_ERROR;
1626: END IF;
1627:
1628: -- New code begins 04/26/2002
1629:
1631: aso_debug_pub.add('Populate_quote_lines: l_qte_line_dtl_tbl.count: '|| l_qte_line_dtl_tbl.count,1,'N');
1632: aso_debug_pub.add('Populate_quote_lines: p_qte_line_dtl_tbl.count: '|| p_qte_line_dtl_tbl.count,1,'N');
1633: end if;
1634:
1635: l_call_get_duration := FND_API.G_FALSE;
1636:
1637: IF l_qte_line_rec.end_date_active is NOT NULL AND l_qte_line_rec.end_date_active = FND_API.G_MISS_DATE THEN
1638:
1639: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1633: end if;
1634:
1635: l_call_get_duration := FND_API.G_FALSE;
1636:
1637: IF l_qte_line_rec.end_date_active is NOT NULL AND l_qte_line_rec.end_date_active = FND_API.G_MISS_DATE THEN
1638:
1639: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1640: aso_debug_pub.add('Populate_quote_lines: First IF cond G_MISS_DATE', 1, 'N');
1641: end if;
1641: end if;
1642:
1643: IF l_qte_line_dtl_tbl.count > 0 THEN
1644: l_qte_line_rec.end_date_active := null;
1645: l_call_get_duration := FND_API.G_TRUE;
1646: ELSE
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1648: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO5');
1649: FND_MSG_PUB.Add;
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1648: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO5');
1649: FND_MSG_PUB.Add;
1650: END IF;
1651: RAISE FND_API.G_EXC_ERROR;
1652: END IF;
1653:
1654: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1655: aso_debug_pub.add('Populate_quote_lines: l_qte_line_rec.end_date_active: '|| l_qte_line_rec.end_date_active,1,'N');
1654: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1655: aso_debug_pub.add('Populate_quote_lines: l_qte_line_rec.end_date_active: '|| l_qte_line_rec.end_date_active,1,'N');
1656: end if;
1657:
1658: IF l_qte_line_dtl_tbl(1).Service_Duration is NOT NULL AND l_qte_line_dtl_tbl(1).Service_Duration = FND_API.G_MISS_NUM THEN
1659: l_qte_line_dtl_tbl(1).Service_Duration := null;
1660: END IF;
1661:
1662: if aso_debug_pub.g_debug_flag = 'Y' THEN
1662: if aso_debug_pub.g_debug_flag = 'Y' THEN
1663: aso_debug_pub.add('Populate_quote_lines: l_qte_line_dtl_tbl(1).Service_Duration: '|| l_qte_line_dtl_tbl(1).Service_Duration,1,'N');
1664: end if;
1665:
1666: IF l_qte_line_dtl_tbl(1).Service_period is NOT NULL AND l_qte_line_dtl_tbl(1).Service_period = FND_API.G_MISS_CHAR THEN
1667: l_qte_line_dtl_tbl(1).Service_period := null;
1668: END IF;
1669:
1670: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1670: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1671: aso_debug_pub.add('Populate_quote_lines: l_qte_line_dtl_tbl(1).Service_period: '|| l_qte_line_dtl_tbl(1).Service_period,1,'N');
1672: end if;
1673:
1674: IF l_qte_line_dtl_tbl(1).service_coterminate_flag is NOT NULL AND l_qte_line_dtl_tbl(1).service_coterminate_flag <> FND_API.G_MISS_CHAR THEN
1675: l_qte_line_dtl_tbl(1).service_coterminate_flag := null;
1676: END IF;
1677:
1678: if aso_debug_pub.g_debug_flag = 'Y' THEN
1711: aso_debug_pub.add('After call to ASO Get_Duration: l_qte_line_dtl_tbl(1).service_period: '||l_qte_line_dtl_tbl(1).service_period, 1, 'N');
1712: aso_debug_pub.add('After call to ASO Get_Duration: l_qte_line_dtl_tbl(1).Service_Duration: '||l_qte_line_dtl_tbl(1).Service_Duration, 1, 'N');
1713: end if;
1714:
1715: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718:
1719: ELSIF l_qte_line_rec.end_date_active IS NULL AND l_qte_line_dtl_tbl.count = 0 THEN
1712: aso_debug_pub.add('After call to ASO Get_Duration: l_qte_line_dtl_tbl(1).Service_Duration: '||l_qte_line_dtl_tbl(1).Service_Duration, 1, 'N');
1713: end if;
1714:
1715: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718:
1719: ELSIF l_qte_line_rec.end_date_active IS NULL AND l_qte_line_dtl_tbl.count = 0 THEN
1720:
1726: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO5');
1727: FND_MSG_PUB.Add;
1728: END IF;
1729:
1730: RAISE FND_API.G_EXC_ERROR;
1731:
1732: ELSE
1733:
1734: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1734: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1735: aso_debug_pub.add('Populate_quote_lines: ELSE Cond not end date NULL', 1, 'N');
1736: end if;
1737:
1738: l_call_get_duration := FND_API.G_TRUE;
1739:
1740: IF l_qte_line_dtl_tbl(1).Service_Duration is NOT NULL
1741: AND l_qte_line_dtl_tbl(1).Service_Duration = FND_API.G_MISS_NUM THEN
1742:
1737:
1738: l_call_get_duration := FND_API.G_TRUE;
1739:
1740: IF l_qte_line_dtl_tbl(1).Service_Duration is NOT NULL
1741: AND l_qte_line_dtl_tbl(1).Service_Duration = FND_API.G_MISS_NUM THEN
1742:
1743: l_qte_line_dtl_tbl(1).Service_Duration := null;
1744: END IF;
1745:
1743: l_qte_line_dtl_tbl(1).Service_Duration := null;
1744: END IF;
1745:
1746: IF l_qte_line_dtl_tbl(1).Service_period is NOT NULL
1747: AND l_qte_line_dtl_tbl(1).Service_period = FND_API.G_MISS_CHAR THEN
1748:
1749: l_qte_line_dtl_tbl(1).Service_period := null;
1750: END IF;
1751:
1749: l_qte_line_dtl_tbl(1).Service_period := null;
1750: END IF;
1751:
1752: IF l_qte_line_dtl_tbl(1).service_coterminate_flag is NOT NULL
1753: AND l_qte_line_dtl_tbl(1).service_coterminate_flag <> FND_API.G_MISS_CHAR THEN
1754:
1755: l_qte_line_dtl_tbl(1).service_coterminate_flag := null;
1756: END IF;
1757:
1760: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1761: aso_debug_pub.add('Populate_quote_lines: Before call to Get_Duration: l_call_get_duration: '||l_call_get_duration,1,'N');
1762: end if;
1763:
1764: IF l_call_get_duration = FND_API.G_TRUE THEN
1765:
1766: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1767: aso_debug_pub.add('Populate_quote_lines: Inside IF l_call_get_duration = FND_API.G_TRUE Cond ', 1, 'N');
1768: end if;
1763:
1764: IF l_call_get_duration = FND_API.G_TRUE THEN
1765:
1766: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1767: aso_debug_pub.add('Populate_quote_lines: Inside IF l_call_get_duration = FND_API.G_TRUE Cond ', 1, 'N');
1768: end if;
1769:
1770: ASO_Service_Contracts_INT.Get_Duration(
1771: P_Api_Version_Number => 1.0,
1793: aso_debug_pub.add('After call to ASO Get_Duration: l_qte_line_dtl_tbl(1).service_period: '||l_qte_line_dtl_tbl(1).service_period, 1, 'N');
1794: aso_debug_pub.add('After call to ASO Get_Duration: l_qte_line_dtl_tbl(1).Service_Duration: '||l_qte_line_dtl_tbl(1).Service_Duration, 1, 'N');
1795: end if;
1796:
1797: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800:
1801: END IF; --l_call_get_duration = FND_API.G_TRUE
1794: aso_debug_pub.add('After call to ASO Get_Duration: l_qte_line_dtl_tbl(1).Service_Duration: '||l_qte_line_dtl_tbl(1).Service_Duration, 1, 'N');
1795: end if;
1796:
1797: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800:
1801: END IF; --l_call_get_duration = FND_API.G_TRUE
1802:
1797: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800:
1801: END IF; --l_call_get_duration = FND_API.G_TRUE
1802:
1803: END IF; -- Service_item_flag
1804:
1805: --populate the config_item_id and bom_sort_order column values from cz_config_details_v
1821: aso_debug_pub.add('l_qte_line_dtl_tbl('||i||').bom_sort_order: '||l_qte_line_dtl_tbl(i).bom_sort_order);
1822: end if;
1823:
1824: if ( l_qte_line_dtl_tbl(i).config_header_id is not null and
1825: l_qte_line_dtl_tbl(i).config_header_id <> fnd_api.g_miss_num ) and
1826: ( l_qte_line_dtl_tbl(i).config_revision_num is not null and
1827: l_qte_line_dtl_tbl(i).config_revision_num <> fnd_api.g_miss_num ) and
1828: l_qte_line_dtl_tbl(i).operation_code = 'CREATE' then
1829:
1823:
1824: if ( l_qte_line_dtl_tbl(i).config_header_id is not null and
1825: l_qte_line_dtl_tbl(i).config_header_id <> fnd_api.g_miss_num ) and
1826: ( l_qte_line_dtl_tbl(i).config_revision_num is not null and
1827: l_qte_line_dtl_tbl(i).config_revision_num <> fnd_api.g_miss_num ) and
1828: l_qte_line_dtl_tbl(i).operation_code = 'CREATE' then
1829:
1830: if ( l_qte_line_dtl_tbl(i).config_item_id is null or l_qte_line_dtl_tbl(i).config_item_id = fnd_api.g_miss_num ) then
1831:
1826: ( l_qte_line_dtl_tbl(i).config_revision_num is not null and
1827: l_qte_line_dtl_tbl(i).config_revision_num <> fnd_api.g_miss_num ) and
1828: l_qte_line_dtl_tbl(i).operation_code = 'CREATE' then
1829:
1830: if ( l_qte_line_dtl_tbl(i).config_item_id is null or l_qte_line_dtl_tbl(i).config_item_id = fnd_api.g_miss_num ) then
1831:
1832: open c_config_item_id( l_qte_line_dtl_tbl(i).config_header_id,
1833: l_qte_line_dtl_tbl(i).config_revision_num,
1834: l_qte_line_dtl_tbl(i).component_code );
1846: aso_debug_pub.add('Inside c_config_item_id%notfound cond.');
1847: end if;
1848:
1849: close c_config_item_id;
1850: raise fnd_api.g_exc_error;
1851: end if;
1852:
1853: close c_config_item_id;
1854:
1851: end if;
1852:
1853: close c_config_item_id;
1854:
1855: elsif ( l_qte_line_dtl_tbl(i).bom_sort_order is null or l_qte_line_dtl_tbl(i).bom_sort_order = fnd_api.g_miss_char ) then
1856:
1857: open c_bom_sort_order( l_qte_line_dtl_tbl(i).config_header_id,
1858: l_qte_line_dtl_tbl(i).config_revision_num,
1859: l_qte_line_dtl_tbl(i).config_item_id );
1870: aso_debug_pub.add('Inside c_bom_sort_order%notfound cond.');
1871: end if;
1872:
1873: close c_bom_sort_order;
1874: raise fnd_api.g_exc_error;
1875:
1876: end if;
1877: close c_bom_sort_order;
1878:
1875:
1876: end if;
1877: close c_bom_sort_order;
1878:
1879: end if; --l_qte_line_dtl_tbl(i).config_item_id is null or l_qte_line_dtl_tbl(i).config_item_id = fnd_api.g_miss_num
1880:
1881: end if; --l_qte_line_dtl_tbl(i).config_header_id is not null and
1882:
1883: end loop;
1955:
1956: Close C_Item1;
1957:
1958:
1959: IF (l_qte_line_rec.line_number IS NULL OR l_qte_line_rec.line_number = FND_API.G_MISS_NUM) THEN
1960:
1961: SELECT max(line_number) into l_line_number
1962: FROM aso_quote_lines_all
1963: WHERE quote_header_id = l_qte_line_rec.quote_header_id;
1990:
1991:
1992: IF p_operation_code = 'UPDATE' THEN
1993:
1994: l_qte_line_rec.service_item_flag := fnd_api.g_miss_char;
1995: l_qte_line_rec.serviceable_product_flag := fnd_api.g_miss_char;
1996: l_qte_line_rec.config_model_type := fnd_api.g_miss_char;
1997:
1998:
1991:
1992: IF p_operation_code = 'UPDATE' THEN
1993:
1994: l_qte_line_rec.service_item_flag := fnd_api.g_miss_char;
1995: l_qte_line_rec.serviceable_product_flag := fnd_api.g_miss_char;
1996: l_qte_line_rec.config_model_type := fnd_api.g_miss_char;
1997:
1998:
1999: --Made changes in cursor to select inventory_item_id for Bug#2930734
1992: IF p_operation_code = 'UPDATE' THEN
1993:
1994: l_qte_line_rec.service_item_flag := fnd_api.g_miss_char;
1995: l_qte_line_rec.serviceable_product_flag := fnd_api.g_miss_char;
1996: l_qte_line_rec.config_model_type := fnd_api.g_miss_char;
1997:
1998:
1999: --Made changes in cursor to select inventory_item_id for Bug#2930734
2000:
2015: CLOSE C_header;
2016:
2017: --Made the following changes for Bug#2930734
2018:
2019: IF l_qte_line_rec.organization_id IS NULL OR l_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
2020: l_qte_line_rec.organization_id := l_organization_id;
2021: END IF;
2022:
2023: if l_qte_line_rec.inventory_item_id = fnd_api.g_miss_num then
2019: IF l_qte_line_rec.organization_id IS NULL OR l_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
2020: l_qte_line_rec.organization_id := l_organization_id;
2021: END IF;
2022:
2023: if l_qte_line_rec.inventory_item_id = fnd_api.g_miss_num then
2024: l_qte_line_rec.inventory_item_id := l_inventory_item_id;
2025: end if;
2026:
2027: if aso_debug_pub.g_debug_flag = 'Y' then
2052: IF l_qte_line_rec.quantity is null then
2053:
2054: l_qte_line_rec.quantity := nvl(fnd_profile.value(name => 'ASO_DEFAULT_QTY'),1);
2055:
2056: ELSIF l_qte_line_rec.quantity = FND_API.G_MISS_NUM THEN
2057:
2058: select quantity into l_qte_line_rec.quantity from aso_quote_lines_All
2059: where quote_line_id = l_qte_line_rec.quote_line_id;
2060:
2066: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2067: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_SHIPMENTS');
2068: FND_MSG_PUB.ADD;
2069: END IF;
2070: raise FND_API.G_EXC_ERROR;
2071:
2072: ELSIF l_shipment_tbl.count > 0 THEN
2073:
2074: IF l_qte_line_rec.quantity <> l_shipment_tbl(1).quantity THEN
2101: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2102: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_SHIPMENT');
2103: FND_MSG_PUB.ADD;
2104: END IF;
2105: raise FND_API.G_EXC_ERROR;
2106: END IF;
2107:
2108: END LOOP;
2109:
2125: FND_MSG_PUB.Add;
2126: END IF;
2127:
2128: close c_item1;
2129: raise FND_API.G_EXC_ERROR;
2130:
2131: end if;
2132:
2133: close c_item1;
2153: FND_MESSAGE.Set_Token('COLUMN', 'START_DATE_ACTIVE', FALSE);
2154: FND_MSG_PUB.ADD;
2155: END IF;
2156:
2157: RAISE FND_API.G_EXC_ERROR;
2158:
2159: end if;
2160:
2161: --Check if any of the service attributes has changed
2159: end if;
2160:
2161: --Check if any of the service attributes has changed
2162:
2163: l_call_get_duration := FND_API.G_FALSE;
2164:
2165: if (p_qte_line_rec.start_date_active <> FND_API.G_MISS_DATE) OR (p_qte_line_rec.end_date_active <> FND_API.G_MISS_DATE) then
2166:
2167: l_call_get_duration := FND_API.G_TRUE;
2161: --Check if any of the service attributes has changed
2162:
2163: l_call_get_duration := FND_API.G_FALSE;
2164:
2165: if (p_qte_line_rec.start_date_active <> FND_API.G_MISS_DATE) OR (p_qte_line_rec.end_date_active <> FND_API.G_MISS_DATE) then
2166:
2167: l_call_get_duration := FND_API.G_TRUE;
2168:
2169: elsif p_qte_line_dtl_tbl.count > 0 then
2163: l_call_get_duration := FND_API.G_FALSE;
2164:
2165: if (p_qte_line_rec.start_date_active <> FND_API.G_MISS_DATE) OR (p_qte_line_rec.end_date_active <> FND_API.G_MISS_DATE) then
2166:
2167: l_call_get_duration := FND_API.G_TRUE;
2168:
2169: elsif p_qte_line_dtl_tbl.count > 0 then
2170:
2171: if (p_qte_line_dtl_tbl(1).service_duration <> FND_API.G_MISS_NUM) OR (p_qte_line_dtl_tbl(1).service_period <> FND_API.G_MISS_CHAR) then
2167: l_call_get_duration := FND_API.G_TRUE;
2168:
2169: elsif p_qte_line_dtl_tbl.count > 0 then
2170:
2171: if (p_qte_line_dtl_tbl(1).service_duration <> FND_API.G_MISS_NUM) OR (p_qte_line_dtl_tbl(1).service_period <> FND_API.G_MISS_CHAR) then
2172:
2173: l_call_get_duration := FND_API.G_TRUE;
2174:
2175: end if;
2169: elsif p_qte_line_dtl_tbl.count > 0 then
2170:
2171: if (p_qte_line_dtl_tbl(1).service_duration <> FND_API.G_MISS_NUM) OR (p_qte_line_dtl_tbl(1).service_period <> FND_API.G_MISS_CHAR) then
2172:
2173: l_call_get_duration := FND_API.G_TRUE;
2174:
2175: end if;
2176:
2177: end if;
2175: end if;
2176:
2177: end if;
2178:
2179: if l_call_get_duration = FND_API.G_TRUE then
2180:
2181: OPEN C_service_item;
2182: FETCH C_service_item INTO l_start_date, l_end_date, l_service_duration, l_service_period, l_coterminate_flag, l_customer_id, l_party;
2183:
2194: FND_MESSAGE.Set_Token('INFO', 'SERVICE RELATED', FALSE);
2195: FND_MSG_PUB.ADD;
2196: END IF;
2197:
2198: RAISE FND_API.G_EXC_ERROR;
2199:
2200: END IF;
2201:
2202: CLOSE C_service_item;
2212: aso_debug_pub.add('Populate_Quote_lines:Update :before call to ASO_SERVICE_CONTRACTS_INT.Get_service_attributes', 1, 'N');
2213: END IF;
2214:
2215: ASO_SERVICE_CONTRACTS_INT.Get_service_attributes( P_Api_Version_Number => 1,
2216: P_init_msg_list => FND_API.G_FALSE,
2217: P_Qte_Line_Rec => P_Qte_Line_Rec,
2218: P_Qte_Line_Dtl_tbl => P_Qte_Line_Dtl_tbl,
2219: X_msg_Count => X_msg_Count,
2220: X_msg_Data => X_msg_Data,
2223: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2224: aso_debug_pub.add('Populate_Quote_lines:after call to Get_service_attributes: X_Return_Status: '|| X_Return_Status, 1, 'N');
2225: end if;
2226:
2227: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2228: RAISE FND_API.G_EXC_ERROR;
2229: END IF;
2230:
2231: --print the input parameter values
2224: aso_debug_pub.add('Populate_Quote_lines:after call to Get_service_attributes: X_Return_Status: '|| X_Return_Status, 1, 'N');
2225: end if;
2226:
2227: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2228: RAISE FND_API.G_EXC_ERROR;
2229: END IF;
2230:
2231: --print the input parameter values
2232:
2267: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO5');
2268: FND_MSG_PUB.Add;
2269: END IF;
2270:
2271: RAISE FND_API.G_EXC_ERROR;
2272:
2273: else
2274:
2275: l_qte_line_dtl_tbl(1).operation_code := 'UPDATE';
2282: aso_debug_pub.add('Populate_quote_lines: l_qte_line_rec.start_date_active: '|| l_qte_line_rec.start_date_active,1,'N');
2283: aso_debug_pub.add('Populate_quote_lines: l_qte_line_rec.end_date_active: '|| l_qte_line_rec.end_date_active,1,'N');
2284: end if;
2285:
2286: IF p_qte_line_rec.start_date_active = FND_API.G_MISS_DATE THEN
2287: l_qte_line_rec.start_date_active := l_start_date;
2288: END IF;
2289:
2290: IF p_qte_line_rec.end_date_active = FND_API.G_MISS_DATE THEN
2286: IF p_qte_line_rec.start_date_active = FND_API.G_MISS_DATE THEN
2287: l_qte_line_rec.start_date_active := l_start_date;
2288: END IF;
2289:
2290: IF p_qte_line_rec.end_date_active = FND_API.G_MISS_DATE THEN
2291: l_qte_line_rec.end_date_active := null;
2292: END IF;
2293:
2294: if aso_debug_pub.g_debug_flag = 'Y' then
2296: end if;
2297:
2298: if p_qte_line_dtl_tbl.count > 0 then
2299:
2300: IF l_qte_line_dtl_tbl(1).Service_Duration = FND_API.G_MISS_NUM THEN
2301: l_qte_line_dtl_tbl(1).Service_Duration := l_service_duration;
2302: END IF;
2303:
2304: IF l_qte_line_dtl_tbl(1).Service_period = FND_API.G_MISS_CHAR THEN
2300: IF l_qte_line_dtl_tbl(1).Service_Duration = FND_API.G_MISS_NUM THEN
2301: l_qte_line_dtl_tbl(1).Service_Duration := l_service_duration;
2302: END IF;
2303:
2304: IF l_qte_line_dtl_tbl(1).Service_period = FND_API.G_MISS_CHAR THEN
2305: l_qte_line_dtl_tbl(1).Service_period := l_service_period;
2306: END IF;
2307:
2308: IF l_qte_line_dtl_tbl(1).service_coterminate_flag = FND_API.G_MISS_CHAR THEN
2304: IF l_qte_line_dtl_tbl(1).Service_period = FND_API.G_MISS_CHAR THEN
2305: l_qte_line_dtl_tbl(1).Service_period := l_service_period;
2306: END IF;
2307:
2308: IF l_qte_line_dtl_tbl(1).service_coterminate_flag = FND_API.G_MISS_CHAR THEN
2309: l_qte_line_dtl_tbl(1).service_coterminate_flag := l_coterminate_flag;
2310: END IF;
2311:
2312: end if;
2310: END IF;
2311:
2312: end if;
2313:
2314: IF l_customer_id is NULL OR l_customer_id = FND_API.G_MISS_NUM THEN
2315: l_customer_id := l_party;
2316: END IF;
2317:
2318: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2349: aso_debug_pub.add('l_qte_line_dtl_tbl(1).service_period: '|| l_qte_line_dtl_tbl(1).service_period, 1, 'N');
2350: aso_debug_pub.add('l_qte_line_dtl_tbl(1).Service_Duration: '|| l_qte_line_dtl_tbl(1).Service_Duration, 1, 'N');
2351: end if;
2352:
2353: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2356:
2357: end if; --if l_call_get_duration = fnd_api.g_true then
2350: aso_debug_pub.add('l_qte_line_dtl_tbl(1).Service_Duration: '|| l_qte_line_dtl_tbl(1).Service_Duration, 1, 'N');
2351: end if;
2352:
2353: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2356:
2357: end if; --if l_call_get_duration = fnd_api.g_true then
2358:
2353: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2356:
2357: end if; --if l_call_get_duration = fnd_api.g_true then
2358:
2359: end if; -- service item flag = 'Y'
2360:
2361: --Set the line_number of service items to the line_number of serviceable item, if the
2412:
2413: end if;
2414:
2415: if ( l_qte_line_dtl_tbl(i).config_header_id is not null and
2416: l_qte_line_dtl_tbl(i).config_header_id <> fnd_api.g_miss_num ) and
2417: ( l_qte_line_dtl_tbl(i).config_revision_num is not null and
2418: l_qte_line_dtl_tbl(i).config_revision_num <> fnd_api.g_miss_num ) and
2419: l_qte_line_dtl_tbl(i).operation_code = 'CREATE' then
2420:
2414:
2415: if ( l_qte_line_dtl_tbl(i).config_header_id is not null and
2416: l_qte_line_dtl_tbl(i).config_header_id <> fnd_api.g_miss_num ) and
2417: ( l_qte_line_dtl_tbl(i).config_revision_num is not null and
2418: l_qte_line_dtl_tbl(i).config_revision_num <> fnd_api.g_miss_num ) and
2419: l_qte_line_dtl_tbl(i).operation_code = 'CREATE' then
2420:
2421: if ( l_qte_line_dtl_tbl(i).config_item_id is null or
2422: l_qte_line_dtl_tbl(i).config_item_id = fnd_api.g_miss_num ) then
2418: l_qte_line_dtl_tbl(i).config_revision_num <> fnd_api.g_miss_num ) and
2419: l_qte_line_dtl_tbl(i).operation_code = 'CREATE' then
2420:
2421: if ( l_qte_line_dtl_tbl(i).config_item_id is null or
2422: l_qte_line_dtl_tbl(i).config_item_id = fnd_api.g_miss_num ) then
2423:
2424: open c_config_item_id( l_qte_line_dtl_tbl(i).config_header_id,
2425: l_qte_line_dtl_tbl(i).config_revision_num,
2426: l_qte_line_dtl_tbl(i).component_code );
2443: aso_debug_pub.add('Inside c_config_item_id%notfound cond.');
2444: end if;
2445:
2446: close c_config_item_id;
2447: raise fnd_api.g_exc_error;
2448:
2449: end if;
2450:
2451: close c_config_item_id;
2450:
2451: close c_config_item_id;
2452:
2453: elsif ( l_qte_line_dtl_tbl(i).bom_sort_order is null or
2454: l_qte_line_dtl_tbl(i).bom_sort_order = fnd_api.g_miss_char ) then
2455:
2456: open c_bom_sort_order( l_qte_line_dtl_tbl(i).config_header_id,
2457: l_qte_line_dtl_tbl(i).config_revision_num,
2458: l_qte_line_dtl_tbl(i).config_item_id );
2471: aso_debug_pub.add('Inside c_bom_sort_order%notfound cond.');
2472: end if;
2473:
2474: close c_bom_sort_order;
2475: raise fnd_api.g_exc_error;
2476:
2477: end if;
2478:
2479: close c_bom_sort_order;
2520: -- Pre-Req :
2521: -- Parameters:
2522: -- IN
2523: -- p_api_version_number IN NUMBER Required
2524: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2525: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2526: -- P_qte_lines_Rec IN qte_line_Rec_Type Required
2527: -- P_Payment_Tbl IN Payment_Tbl_Type
2528: -- P_Price_Adj_Tbl IN Price_Adj_Tbl_Type
2521: -- Parameters:
2522: -- IN
2523: -- p_api_version_number IN NUMBER Required
2524: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2525: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2526: -- P_qte_lines_Rec IN qte_line_Rec_Type Required
2527: -- P_Payment_Tbl IN Payment_Tbl_Type
2528: -- P_Price_Adj_Tbl IN Price_Adj_Tbl_Type
2529: -- P_Qte_Line_Dtl_Rec IN Qte_Line_Dtl_Rec_Type
2532: -- P_Freight_Charges_Tbl IN Freight_Charges_Tbl_Type
2533: -- P_Line_Relationship_Tbl IN Line_Relationship_Tbl_Type
2534: -- P_Price_Attributes_Tbl IN Price_Attributes_Tbl_Type
2535: -- P_Price_Adj_Relationship_Tbl IN Price_Adj_Relationship_Tbl_Type
2536: -- P_Update_Header_Flag IN VARCHAR2 Optional Default = FND_API.G_TRUE
2537:
2538: -- OUT:
2539: -- X_quote_line_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
2540: -- x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2547: -- End of Comments
2548: --
2549: PROCEDURE Create_Quote_Lines(
2550: P_Api_Version_Number IN NUMBER,
2551: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2552: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2553: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2554: P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2555: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_qte_line_REC,
2548: --
2549: PROCEDURE Create_Quote_Lines(
2550: P_Api_Version_Number IN NUMBER,
2551: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2552: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2553: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2554: P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2555: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_qte_line_REC,
2556: P_Control_REC IN ASO_QUOTE_PUB.Control_Rec_Type := ASO_QUOTE_PUB.G_MISS_Control_Rec,
2549: PROCEDURE Create_Quote_Lines(
2550: P_Api_Version_Number IN NUMBER,
2551: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2552: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2553: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2554: P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2555: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_qte_line_REC,
2556: P_Control_REC IN ASO_QUOTE_PUB.Control_Rec_Type := ASO_QUOTE_PUB.G_MISS_Control_Rec,
2557: P_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
2750: -- Standard Start of API savepoint
2751: SAVEPOINT CREATE_quote_lines_PVT;
2752:
2753: -- Standard call to check for call compatibility.
2754: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2755: p_api_version_number,
2756: l_api_name,
2757: G_PKG_NAME) THEN
2758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2754: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2755: p_api_version_number,
2756: l_api_name,
2757: G_PKG_NAME) THEN
2758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2759: END IF;
2760:
2761: -- Initialize message list if p_init_msg_list is set to TRUE.
2762: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2759: END IF;
2760:
2761: -- Initialize message list if p_init_msg_list is set to TRUE.
2762: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2763: FND_MSG_PUB.initialize;
2764: END IF;
2765:
2766: -- Initialize API return status to SUCCESS
2763: FND_MSG_PUB.initialize;
2764: END IF;
2765:
2766: -- Initialize API return status to SUCCESS
2767: x_return_status := FND_API.G_RET_STS_SUCCESS;
2768:
2769: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2770: aso_debug_pub.add('Create_Quote_lines - Begin ', 1, 'Y');
2771: aso_debug_pub.add('P_Control_REC.AUTO_VERSION_FLAG: '||nvl(P_Control_REC.AUTO_VERSION_FLAG,'null'),1,'N');
2808: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
2809: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2810: FND_MSG_PUB.ADD;
2811: END IF;
2812: RAISE FND_API.G_EXC_ERROR;
2813: END IF;
2814:
2815:
2816:
2834: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_UPDATE_TARGET');
2835: FND_MESSAGE.Set_Token ('INFO', 'quote', FALSE);
2836: FND_MSG_PUB.Add;
2837: END IF;
2838: raise FND_API.G_EXC_ERROR;
2839: END IF;
2840: Close C_Get_quote;
2841:
2842: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2842: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2843: aso_debug_pub.add('After C_Get_quote Cursor call ',1,'N');
2844: end if;
2845:
2846: If (l_last_update_date is NULL or l_last_update_date = FND_API.G_MISS_Date ) Then
2847: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2848: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
2849: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2850: FND_MSG_PUB.ADD;
2848: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
2849: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2850: FND_MSG_PUB.ADD;
2851: END IF;
2852: raise FND_API.G_EXC_ERROR;
2853: End if;
2854:
2855: -- Check Whether record has been changed by someone else
2856:
2859: FND_MESSAGE.Set_Name('ASO', 'API_RECORD_CHANGED');
2860: FND_MESSAGE.Set_Token('INFO', 'quote', FALSE);
2861: FND_MSG_PUB.ADD;
2862: END IF;
2863: raise FND_API.G_EXC_ERROR;
2864: End if;
2865:
2866: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2867: aso_debug_pub.add('After Last update date validation',1,'N');
2886: end if;
2887:
2888: --If the control rec does not set auto version to 'Y' then it should not be versioned
2889:
2890: IF p_control_rec.auto_version_flag = FND_API.G_TRUE AND NVL(l_auto_version,'Y') = 'Y' THEN
2891:
2892: OPEN C_Qte_Version(l_quote_number);
2893: FETCH C_Qte_Version into l_quote_version;
2894: l_quote_version := nvl(l_quote_version, 0) + 1;
2909: -- header should be updated only if the flag is set to 'Y'
2910: -- update quote header with the new version number
2911: -- should be called after querying the existing rec and before copying
2912:
2913: l_copy_quote_control_rec.new_version := FND_API.G_TRUE;
2914: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
2915:
2916: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
2917: P_Init_Msg_List => FND_API.G_FALSE,
2913: l_copy_quote_control_rec.new_version := FND_API.G_TRUE;
2914: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
2915:
2916: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
2917: P_Init_Msg_List => FND_API.G_FALSE,
2918: P_Commit => FND_API.G_FALSE,
2919: P_Copy_Quote_Header_Rec => l_copy_quote_header_rec,
2920: P_Copy_Quote_Control_Rec => l_copy_quote_control_rec,
2921: X_Qte_Header_Id => x_quote_header_id,
2914: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
2915:
2916: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
2917: P_Init_Msg_List => FND_API.G_FALSE,
2918: P_Commit => FND_API.G_FALSE,
2919: P_Copy_Quote_Header_Rec => l_copy_quote_header_rec,
2920: P_Copy_Quote_Control_Rec => l_copy_quote_control_rec,
2921: X_Qte_Header_Id => x_quote_header_id,
2922: X_Qte_Number => l_qte_nbr,
2930: aso_debug_pub.add('Create_Quote_Lines: After copy_quote x_quote_header_id: '|| x_quote_header_id);
2931: aso_debug_pub.add('Create_Quote_Lines: After copy_quote l_qte_nbr: '|| l_qte_nbr);
2932: end if;
2933:
2934: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2935:
2936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2937:
2938: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2932: end if;
2933:
2934: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2935:
2936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2937:
2938: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2939: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
2940: FND_MESSAGE.Set_Token('ROW', 'ASO_QUOTE_HEADER', TRUE);
2940: FND_MESSAGE.Set_Token('ROW', 'ASO_QUOTE_HEADER', TRUE);
2941: FND_MSG_PUB.ADD;
2942: END IF;
2943:
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945:
2946: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2947:
2948: x_return_status := FND_API.G_RET_STS_ERROR;
2942: END IF;
2943:
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945:
2946: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2947:
2948: x_return_status := FND_API.G_RET_STS_ERROR;
2949:
2950: END IF;
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945:
2946: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2947:
2948: x_return_status := FND_API.G_RET_STS_ERROR;
2949:
2950: END IF;
2951:
2952: update aso_quote_headers_all
3058: aso_debug_pub.add('Create_Quote_line: After call to ASO_DEFAULTING_INT.Default_Entity', 1, 'Y');
3059: aso_debug_pub.add('Create_Quote_line: x_return_status: '|| x_return_status, 1, 'Y');
3060: end if;
3061:
3062: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3063:
3064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3065: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_DEFAULTING');
3066: FND_MSG_PUB.ADD;
3065: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_DEFAULTING');
3066: FND_MSG_PUB.ADD;
3067: END IF;
3068:
3069: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3071: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3072: RAISE FND_API.G_EXC_ERROR;
3073: END IF;
3066: FND_MSG_PUB.ADD;
3067: END IF;
3068:
3069: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3071: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3072: RAISE FND_API.G_EXC_ERROR;
3073: END IF;
3074:
3067: END IF;
3068:
3069: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3071: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3072: RAISE FND_API.G_EXC_ERROR;
3073: END IF;
3074:
3075: END IF;
3068:
3069: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3071: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3072: RAISE FND_API.G_EXC_ERROR;
3073: END IF;
3074:
3075: END IF;
3076:
3099: -- item type code must exist in aso_lookups and the item, item type
3100: -- should exist in mtl_system_items
3101:
3102: ASO_VALIDATE_PVT.Validate_item_type_code(
3103: p_init_msg_list => FND_API.G_FALSE,
3104: p_item_type_code => lx_qte_line_rec.item_type_code,
3105: x_return_status => x_return_status,
3106: x_msg_count => x_msg_count,
3107: x_msg_data => x_msg_data);
3105: x_return_status => x_return_status,
3106: x_msg_count => x_msg_count,
3107: x_msg_data => x_msg_data);
3108:
3109: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3110: RAISE FND_API.G_EXC_ERROR;
3111: END IF;
3112:
3113: -- invoice_to_party_id must exist and be active in HZ_PARTIES,
3106: x_msg_count => x_msg_count,
3107: x_msg_data => x_msg_data);
3108:
3109: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3110: RAISE FND_API.G_EXC_ERROR;
3111: END IF;
3112:
3113: -- invoice_to_party_id must exist and be active in HZ_PARTIES,
3114: -- and have the usage INVOICE.
3113: -- invoice_to_party_id must exist and be active in HZ_PARTIES,
3114: -- and have the usage INVOICE.
3115:
3116: ASO_VALIDATE_PVT.Validate_Party (
3117: p_init_msg_list => FND_API.G_FALSE,
3118: p_party_id => lx_qte_line_rec.invoice_to_party_id,
3119: p_party_usage => 'INVOICE',
3120: x_return_status => x_return_status,
3121: x_msg_count => x_msg_count,
3119: p_party_usage => 'INVOICE',
3120: x_return_status => x_return_status,
3121: x_msg_count => x_msg_count,
3122: x_msg_data => x_msg_data);
3123: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3124: RAISE FND_API.G_EXC_ERROR;
3125: END IF;
3126:
3127: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3120: x_return_status => x_return_status,
3121: x_msg_count => x_msg_count,
3122: x_msg_data => x_msg_data);
3123: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3124: RAISE FND_API.G_EXC_ERROR;
3125: END IF;
3126:
3127: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3128: aso_debug_pub.add('Create_Quote_lines - after validate_party ', 1, 'N');
3129: end if;
3130:
3131: -- price list must exist and be active in OE_PRICE_LISTS
3132: ASO_VALIDATE_PVT.Validate_PriceList (
3133: p_init_msg_list => FND_API.G_FALSE,
3134: p_price_list_id => lx_qte_line_rec.price_list_id,
3135: x_return_status => x_return_status,
3136: x_msg_count => x_msg_count,
3137: x_msg_data => x_msg_data);
3135: x_return_status => x_return_status,
3136: x_msg_count => x_msg_count,
3137: x_msg_data => x_msg_data);
3138:
3139: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: END IF;
3142:
3143:
3136: x_msg_count => x_msg_count,
3137: x_msg_data => x_msg_data);
3138:
3139: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: END IF;
3142:
3143:
3144: ASO_VALIDATE_PVT.Validate_Quote_Price_Exp(
3141: END IF;
3142:
3143:
3144: ASO_VALIDATE_PVT.Validate_Quote_Price_Exp(
3145: p_init_msg_list => FND_API.G_FALSE,
3146: p_price_list_id => lx_qte_line_rec.price_list_id,
3147: p_quote_expiration_date => l_quote_exp_date,
3148: x_return_status => x_return_status,
3149: x_msg_count => x_msg_count,
3148: x_return_status => x_return_status,
3149: x_msg_count => x_msg_count,
3150: x_msg_data => x_msg_data);
3151:
3152: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3153: RAISE FND_API.G_EXC_ERROR;
3154: END IF;
3155:
3156: -- shp_to_party_id must exist and be active in HZ_PARTIES and have the usage SHIP.
3149: x_msg_count => x_msg_count,
3150: x_msg_data => x_msg_data);
3151:
3152: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3153: RAISE FND_API.G_EXC_ERROR;
3154: END IF;
3155:
3156: -- shp_to_party_id must exist and be active in HZ_PARTIES and have the usage SHIP.
3157: For i in 1..lx_ln_shipment_tbl.count LOOP
3156: -- shp_to_party_id must exist and be active in HZ_PARTIES and have the usage SHIP.
3157: For i in 1..lx_ln_shipment_tbl.count LOOP
3158:
3159: ASO_VALIDATE_PVT.Validate_Party (
3160: p_init_msg_list => FND_API.G_FALSE,
3161: p_party_id => lx_ln_shipment_tbl(i).ship_to_party_id,
3162: p_party_usage => 'SHIP',
3163: x_return_status => x_return_status,
3164: x_msg_count => x_msg_count,
3163: x_return_status => x_return_status,
3164: x_msg_count => x_msg_count,
3165: x_msg_data => x_msg_data);
3166:
3167: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3168: RAISE FND_API.G_EXC_ERROR;
3169: END IF;
3170:
3171: END LOOP;
3164: x_msg_count => x_msg_count,
3165: x_msg_data => x_msg_data);
3166:
3167: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3168: RAISE FND_API.G_EXC_ERROR;
3169: END IF;
3170:
3171: END LOOP;
3172:
3170:
3171: END LOOP;
3172:
3173: ASO_VALIDATE_PVT.Validate_Marketing_Source_Code(
3174: p_init_msg_list => FND_API.G_FALSE,
3175: p_mkting_source_code_id => lx_qte_line_rec.marketing_source_code_id,
3176: x_return_status => x_return_status,
3177: x_msg_count => x_msg_count,
3178: x_msg_data => x_msg_data);
3176: x_return_status => x_return_status,
3177: x_msg_count => x_msg_count,
3178: x_msg_data => x_msg_data);
3179:
3180: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3183:
3184: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3177: x_msg_count => x_msg_count,
3178: x_msg_data => x_msg_data);
3179:
3180: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3183:
3184: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3185:
3183:
3184: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3185:
3186: ASO_VALIDATE_PVT.Validate_Service_Duration(
3187: p_init_msg_list => FND_API.G_FALSE,
3188: p_service_duration => p_qte_line_dtl_tbl(i).service_duration,
3189: x_return_status => x_return_status,
3190: x_msg_count => x_msg_count,
3191: x_msg_data => x_msg_data);
3189: x_return_status => x_return_status,
3190: x_msg_count => x_msg_count,
3191: x_msg_data => x_msg_data);
3192:
3193: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3194: RAISE FND_API.G_EXC_ERROR;
3195: END IF;
3196:
3197: END LOOP;
3190: x_msg_count => x_msg_count,
3191: x_msg_data => x_msg_data);
3192:
3193: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3194: RAISE FND_API.G_EXC_ERROR;
3195: END IF;
3196:
3197: END LOOP;
3198:
3205:
3206: if (p_sales_credit_tbl(i).operation_code = 'CREATE' or p_sales_credit_tbl(i).operation_code = 'UPDATE') then
3207:
3208: ASO_VALIDATE_PVT.Validate_Resource_id(
3209: p_init_msg_list => FND_API.G_FALSE,
3210: p_resource_id => p_sales_credit_tbl(i).resource_id,
3211: x_return_status => x_return_status,
3212: x_msg_count => x_msg_count,
3213: x_msg_data => x_msg_data);
3211: x_return_status => x_return_status,
3212: x_msg_count => x_msg_count,
3213: x_msg_data => x_msg_data);
3214:
3215: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3216:
3217: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3218: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_SALES_REP_ID');
3219: FND_MSG_PUB.ADD;
3217: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3218: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_SALES_REP_ID');
3219: FND_MSG_PUB.ADD;
3220: END IF;
3221: RAISE FND_API.G_EXC_ERROR;
3222:
3223: END IF;
3224:
3225: ASO_VALIDATE_PVT.Validate_Resource_group_id(
3222:
3223: END IF;
3224:
3225: ASO_VALIDATE_PVT.Validate_Resource_group_id(
3226: p_init_msg_list => FND_API.G_FALSE,
3227: p_resource_group_id => p_sales_credit_tbl(i).resource_group_id,
3228: x_return_status => x_return_status,
3229: x_msg_count => x_msg_count,
3230: x_msg_data => x_msg_data);
3228: x_return_status => x_return_status,
3229: x_msg_count => x_msg_count,
3230: x_msg_data => x_msg_data);
3231:
3232: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3233: RAISE FND_API.G_EXC_ERROR;
3234: END IF;
3235:
3236: ASO_VALIDATE_PVT.Validate_Salescredit_Type(
3229: x_msg_count => x_msg_count,
3230: x_msg_data => x_msg_data);
3231:
3232: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3233: RAISE FND_API.G_EXC_ERROR;
3234: END IF;
3235:
3236: ASO_VALIDATE_PVT.Validate_Salescredit_Type(
3237: p_init_msg_list => FND_API.G_FALSE,
3233: RAISE FND_API.G_EXC_ERROR;
3234: END IF;
3235:
3236: ASO_VALIDATE_PVT.Validate_Salescredit_Type(
3237: p_init_msg_list => FND_API.G_FALSE,
3238: p_salescredit_type_id => p_sales_credit_tbl(i).sales_credit_type_id,
3239: x_return_status => x_return_status,
3240: x_msg_count => x_msg_count,
3241: x_msg_data => x_msg_data);
3239: x_return_status => x_return_status,
3240: x_msg_count => x_msg_count,
3241: x_msg_data => x_msg_data);
3242:
3243: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246:
3247: ASO_VALIDATE_PVT.Validate_EmployPerson(
3240: x_msg_count => x_msg_count,
3241: x_msg_data => x_msg_data);
3242:
3243: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246:
3247: ASO_VALIDATE_PVT.Validate_EmployPerson(
3248: p_init_msg_list => FND_API.G_FALSE,
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246:
3247: ASO_VALIDATE_PVT.Validate_EmployPerson(
3248: p_init_msg_list => FND_API.G_FALSE,
3249: p_employee_id => p_sales_credit_tbl(i).employee_person_id,
3250: x_return_status => x_return_status,
3251: x_msg_count => x_msg_count,
3252: x_msg_data => x_msg_data);
3250: x_return_status => x_return_status,
3251: x_msg_count => x_msg_count,
3252: x_msg_data => x_msg_data);
3253:
3254: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3255: RAISE FND_API.G_EXC_ERROR;
3256: END IF;
3257:
3258: end if;
3251: x_msg_count => x_msg_count,
3252: x_msg_data => x_msg_data);
3253:
3254: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3255: RAISE FND_API.G_EXC_ERROR;
3256: END IF;
3257:
3258: end if;
3259:
3261:
3262: FOR i in 1..p_quote_party_tbl.count LOOP
3263:
3264: ASO_VALIDATE_PVT.Validate_Party_Type(
3265: p_init_msg_list => FND_API.G_FALSE,
3266: p_party_type => p_quote_party_tbl(i).party_type,
3267: x_return_status => x_return_status,
3268: x_msg_count => x_msg_count,
3269: x_msg_data => x_msg_data);
3267: x_return_status => x_return_status,
3268: x_msg_count => x_msg_count,
3269: x_msg_data => x_msg_data);
3270:
3271: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3272: RAISE FND_API.G_EXC_ERROR;
3273: END IF;
3274:
3275: ASO_VALIDATE_PVT.Validate_Party(
3268: x_msg_count => x_msg_count,
3269: x_msg_data => x_msg_data);
3270:
3271: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3272: RAISE FND_API.G_EXC_ERROR;
3273: END IF;
3274:
3275: ASO_VALIDATE_PVT.Validate_Party(
3276: p_init_msg_list => FND_API.G_FALSE,
3272: RAISE FND_API.G_EXC_ERROR;
3273: END IF;
3274:
3275: ASO_VALIDATE_PVT.Validate_Party(
3276: p_init_msg_list => FND_API.G_FALSE,
3277: p_party_id => p_quote_party_tbl(i).party_id,
3278: p_party_usage => null,
3279: x_return_status => x_return_status,
3280: x_msg_count => x_msg_count,
3279: x_return_status => x_return_status,
3280: x_msg_count => x_msg_count,
3281: x_msg_data => x_msg_data);
3282:
3283: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3284: RAISE FND_API.G_EXC_ERROR;
3285: END IF;
3286:
3287: ASO_VALIDATE_PVT.Validate_Party_Object_Type(
3280: x_msg_count => x_msg_count,
3281: x_msg_data => x_msg_data);
3282:
3283: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3284: RAISE FND_API.G_EXC_ERROR;
3285: END IF;
3286:
3287: ASO_VALIDATE_PVT.Validate_Party_Object_Type(
3288: p_init_msg_list => FND_API.G_FALSE,
3284: RAISE FND_API.G_EXC_ERROR;
3285: END IF;
3286:
3287: ASO_VALIDATE_PVT.Validate_Party_Object_Type(
3288: p_init_msg_list => FND_API.G_FALSE,
3289: p_party_object_type => p_quote_party_tbl(i).party_object_type,
3290: x_return_status => x_return_status,
3291: x_msg_count => x_msg_count,
3292: x_msg_data => x_msg_data);
3290: x_return_status => x_return_status,
3291: x_msg_count => x_msg_count,
3292: x_msg_data => x_msg_data);
3293:
3294: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3295: RAISE FND_API.G_EXC_ERROR;
3296: END IF;
3297:
3298: END LOOP;
3291: x_msg_count => x_msg_count,
3292: x_msg_data => x_msg_data);
3293:
3294: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3295: RAISE FND_API.G_EXC_ERROR;
3296: END IF;
3297:
3298: END LOOP;
3299:
3298: END LOOP;
3299:
3300:
3301: ASO_VALIDATE_PVT.Validate_MiniSite(
3302: p_init_msg_list => FND_API.G_FALSE,
3303: p_minisite_id => lx_qte_line_rec.minisite_id,
3304: x_return_status => x_return_status,
3305: x_msg_count => x_msg_count,
3306: x_msg_data => x_msg_data);
3303: p_minisite_id => lx_qte_line_rec.minisite_id,
3304: x_return_status => x_return_status,
3305: x_msg_count => x_msg_count,
3306: x_msg_data => x_msg_data);
3307: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3308: RAISE FND_API.G_EXC_ERROR;
3309: END IF;
3310:
3311: ASO_VALIDATE_PVT.Validate_Section(
3304: x_return_status => x_return_status,
3305: x_msg_count => x_msg_count,
3306: x_msg_data => x_msg_data);
3307: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3308: RAISE FND_API.G_EXC_ERROR;
3309: END IF;
3310:
3311: ASO_VALIDATE_PVT.Validate_Section(
3312: p_init_msg_list => FND_API.G_FALSE,
3308: RAISE FND_API.G_EXC_ERROR;
3309: END IF;
3310:
3311: ASO_VALIDATE_PVT.Validate_Section(
3312: p_init_msg_list => FND_API.G_FALSE,
3313: p_section_id => lx_qte_line_rec.section_id,
3314: x_return_status => x_return_status,
3315: x_msg_count => x_msg_count,
3316: x_msg_data => x_msg_data);
3313: p_section_id => lx_qte_line_rec.section_id,
3314: x_return_status => x_return_status,
3315: x_msg_count => x_msg_count,
3316: x_msg_data => x_msg_data);
3317: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3318: RAISE FND_API.G_EXC_ERROR;
3319: END IF;
3320:
3321: END IF;
3314: x_return_status => x_return_status,
3315: x_msg_count => x_msg_count,
3316: x_msg_data => x_msg_data);
3317: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3318: RAISE FND_API.G_EXC_ERROR;
3319: END IF;
3320:
3321: END IF;
3322:
3326:
3327: -- if organization id does not exist then it should be defaulted
3328:
3329: IF lx_qte_line_rec.organization_id is NULL or
3330: lx_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
3331:
3332: -- default org id from header
3333:
3334: IF lx_qte_line_rec.org_id is NULL OR lx_qte_line_rec.org_id = FND_API.G_MISS_NUM THEN
3330: lx_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
3331:
3332: -- default org id from header
3333:
3334: IF lx_qte_line_rec.org_id is NULL OR lx_qte_line_rec.org_id = FND_API.G_MISS_NUM THEN
3335:
3336: OPEN C_org_id;
3337: FETCH C_org_id into l_org_id;
3338: IF C_org_id%NOTFOUND THEN
3357:
3358: -- UOM must exist and should be in ASO_I_UNITS_OF_MEASURE
3359:
3360: ASO_VALIDATE_PVT.Validate_UOM_code(
3361: p_init_msg_list => FND_API.G_FALSE,
3362: p_uom_code => lx_qte_line_rec.uom_code,
3363: p_organization_id => l_organization_id,
3364: p_inventory_item_id => lx_qte_line_rec.inventory_item_id,
3365: x_return_status => x_return_status,
3365: x_return_status => x_return_status,
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data);
3368:
3369: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3370: RAISE FND_API.G_EXC_ERROR;
3371: END IF;
3372:
3373: if aso_debug_pub.g_debug_flag = 'Y' THEN
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data);
3368:
3369: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3370: RAISE FND_API.G_EXC_ERROR;
3371: END IF;
3372:
3373: if aso_debug_pub.g_debug_flag = 'Y' THEN
3374: aso_debug_pub.add('Create_Quote_lines - After validate_UOM_code ', 1, 'N');
3374: aso_debug_pub.add('Create_Quote_lines - After validate_UOM_code ', 1, 'N');
3375: end if;
3376:
3377: ASO_VALIDATE_PVT.Validate_For_GreaterEndDate (
3378: p_init_msg_list => FND_API.G_FALSE,
3379: p_start_date => lx_qte_line_rec.start_date_active,
3380: p_end_date => lx_qte_line_rec.end_date_active,
3381: x_return_status => x_return_status,
3382: x_msg_count => x_msg_count,
3381: x_return_status => x_return_status,
3382: x_msg_count => x_msg_count,
3383: x_msg_data => x_msg_data);
3384:
3385: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3386:
3387: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3388: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_END_DATE');
3389: FND_MSG_PUB.ADD;
3387: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3388: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_END_DATE');
3389: FND_MSG_PUB.ADD;
3390: END IF;
3391: RAISE FND_API.G_EXC_ERROR;
3392: END IF;
3393:
3394: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3395: ASO_VALIDATE_PVT.Validate_Returns(
3392: END IF;
3393:
3394: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3395: ASO_VALIDATE_PVT.Validate_Returns(
3396: p_init_msg_list => FND_API.G_FALSE,
3397: p_return_ref_type_code => p_qte_line_dtl_tbl(i).return_ref_type,
3398: p_return_ref_header_id => p_qte_line_dtl_tbl(i).return_ref_header_id,
3399: p_return_ref_line_id => p_qte_line_dtl_tbl(i).return_ref_line_id,
3400: x_return_status => x_return_status,
3400: x_return_status => x_return_status,
3401: x_msg_count => x_msg_count,
3402: x_msg_data => x_msg_data);
3403:
3404: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3405: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3406: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3407: FND_MESSAGE.Set_Token('INFO', 'RETURN', FALSE);
3408: FND_MSG_PUB.ADD;
3406: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3407: FND_MESSAGE.Set_Token('INFO', 'RETURN', FALSE);
3408: FND_MSG_PUB.ADD;
3409: END IF;
3410: RAISE FND_API.G_EXC_ERROR;
3411: END IF;
3412: END LOOP;
3413:
3414: -- tax_exempt_flag must be in 'E', 'R' and 'S'
3414: -- tax_exempt_flag must be in 'E', 'R' and 'S'
3415: -- and tax_exempt_reason_code must exist if tax_exempt_flag is 'E'.
3416: FOR i in 1..p_tax_detail_tbl.count LOOP
3417: ASO_VALIDATE_PVT.Validate_Tax_Exemption (
3418: p_init_msg_list => FND_API.G_FALSE,
3419: p_tax_exempt_flag => p_tax_detail_tbl(i).tax_exempt_flag,
3420: p_tax_exempt_reason_code=> p_tax_detail_tbl(i).tax_exempt_reason_code,
3421: x_return_status => x_return_status,
3422: x_msg_count => x_msg_count,
3420: p_tax_exempt_reason_code=> p_tax_detail_tbl(i).tax_exempt_reason_code,
3421: x_return_status => x_return_status,
3422: x_msg_count => x_msg_count,
3423: x_msg_data => x_msg_data);
3424: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3425: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3426: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3427: FND_MESSAGE.Set_Token('INFO', 'TAX', FALSE);
3428: FND_MSG_PUB.ADD;
3426: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3427: FND_MESSAGE.Set_Token('INFO', 'TAX', FALSE);
3428: FND_MSG_PUB.ADD;
3429: END IF;
3430: RAISE FND_API.G_EXC_ERROR;
3431: END IF;
3432: END LOOP;
3433:
3434: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3440: end if;
3441:
3442: -- We will add config_item_id when we will implement solution model
3443: IF ((p_qte_line_dtl_tbl(i).config_header_id IS NOT NULL AND
3444: p_qte_line_dtl_tbL(i).config_header_id <> FND_API.G_MISS_NUM) AND
3445: (p_qte_line_dtl_tbl(i).config_revision_num IS NOT NULL AND
3446: p_qte_line_dtl_tbl(i).config_revision_num <> FND_API.G_MISS_NUM) AND
3447: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
3448: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
3442: -- We will add config_item_id when we will implement solution model
3443: IF ((p_qte_line_dtl_tbl(i).config_header_id IS NOT NULL AND
3444: p_qte_line_dtl_tbL(i).config_header_id <> FND_API.G_MISS_NUM) AND
3445: (p_qte_line_dtl_tbl(i).config_revision_num IS NOT NULL AND
3446: p_qte_line_dtl_tbl(i).config_revision_num <> FND_API.G_MISS_NUM) AND
3447: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
3448: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
3449:
3450: ASO_VALIDATE_PVT.Validate_Configuration(
3444: p_qte_line_dtl_tbL(i).config_header_id <> FND_API.G_MISS_NUM) AND
3445: (p_qte_line_dtl_tbl(i).config_revision_num IS NOT NULL AND
3446: p_qte_line_dtl_tbl(i).config_revision_num <> FND_API.G_MISS_NUM) AND
3447: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
3448: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
3449:
3450: ASO_VALIDATE_PVT.Validate_Configuration(
3451: p_init_msg_list => FND_API.G_FALSE,
3452: p_config_header_id => p_qte_line_dtl_tbl(i).config_header_id,
3447: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
3448: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
3449:
3450: ASO_VALIDATE_PVT.Validate_Configuration(
3451: p_init_msg_list => FND_API.G_FALSE,
3452: p_config_header_id => p_qte_line_dtl_tbl(i).config_header_id,
3453: p_config_revision_num => p_qte_line_dtl_tbl(i).config_revision_num,
3454: p_config_item_id => p_qte_line_dtl_tbl(i).config_item_id,
3455: x_return_status => x_return_status,
3458:
3459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3460: aso_debug_pub.add('Create_Quote_Lines after Validate_Configuration :x_return_status:'||x_return_status,1,'N');
3461: end if;
3462: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3463: RAISE FND_API.G_EXC_ERROR;
3464: END IF;
3465: END IF;
3466: END LOOP;
3459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3460: aso_debug_pub.add('Create_Quote_Lines after Validate_Configuration :x_return_status:'||x_return_status,1,'N');
3461: end if;
3462: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3463: RAISE FND_API.G_EXC_ERROR;
3464: END IF;
3465: END IF;
3466: END LOOP;
3467:
3467:
3468:
3469: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3470: ASO_VALIDATE_PVT.Validate_Delayed_Service(
3471: p_init_msg_list => FND_API.G_FALSE,
3472: p_service_ref_type_code
3473: => p_qte_line_dtl_tbl(i).service_ref_type_code,
3474: p_service_ref_line_id
3475: => p_qte_line_dtl_tbl(i).service_ref_line_id,
3477: => p_qte_line_dtl_tbl(i).service_ref_system_id,
3478: x_return_status => x_return_status,
3479: x_msg_count => x_msg_count,
3480: x_msg_data => x_msg_data);
3481: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3482: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3483: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3484: FND_MESSAGE.Set_Token('INFO', 'DELAYED_SERVICE', FALSE);
3485: FND_MSG_PUB.ADD;
3483: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3484: FND_MESSAGE.Set_Token('INFO', 'DELAYED_SERVICE', FALSE);
3485: FND_MSG_PUB.ADD;
3486: END IF;
3487: RAISE FND_API.G_EXC_ERROR;
3488: END IF;
3489: END LOOP;
3490:
3491:
3491:
3492:
3493: FOR i in 1..p_quote_party_tbl.count LOOP
3494: ASO_VALIDATE_PVT.Validate_Party_Object_Id(
3495: p_init_msg_list => FND_API.G_FALSE,
3496: p_party_id => p_quote_party_tbl(i).party_id,
3497: p_party_object_type => p_quote_party_tbl(i).party_object_type,
3498: p_party_object_id => p_quote_party_tbl(i).party_object_id,
3499: x_return_status => x_return_status,
3498: p_party_object_id => p_quote_party_tbl(i).party_object_id,
3499: x_return_status => x_return_status,
3500: x_msg_count => x_msg_count,
3501: x_msg_data => x_msg_data);
3502: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3504: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3505: FND_MESSAGE.Set_Token('INFO', 'PARTY OBJECT ID', FALSE);
3506: FND_MSG_PUB.ADD;
3504: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3505: FND_MESSAGE.Set_Token('INFO', 'PARTY OBJECT ID', FALSE);
3506: FND_MSG_PUB.ADD;
3507: END IF;
3508: RAISE FND_API.G_EXC_ERROR;
3509: END IF;
3510: END LOOP;
3511:
3512:
3523: aso_debug_pub.add('Create_Quote_Lines: lx_qte_line_rec.inventory_item_id: '||lx_qte_line_rec.inventory_item_id, 1, 'Y');
3524: aso_debug_pub.add('Create_Quote_Lines: lx_ln_shipment_tbl(1).ship_from_org_id: '||lx_ln_shipment_tbl(1).ship_from_org_id, 1, 'Y');
3525: end if;
3526:
3527: IF lx_ln_shipment_tbl(1).ship_from_org_id IS NOT NULL AND lx_ln_shipment_tbl(1).ship_from_org_id <> FND_API.G_MISS_NUM THEN
3528: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3529: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: before Validate_ship_from_org_ID', 1, 'Y');
3530: end if;
3531: ASO_VALIDATE_PVT.Validate_ship_from_org_ID(
3535:
3536: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3537: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: after Validate_ship_from_org_ID', 1, 'Y');
3538: end if;
3539: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3540: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3541: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: after Validate_ship_from_org_ID: <> SUCCESS', 1, 'Y');
3542: end if;
3543:
3547: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', lx_qte_line_rec.inventory_item_id, FALSE);
3548: FND_MSG_PUB.ADD;
3549: END IF;
3550:
3551: RAISE FND_API.G_EXC_ERROR;
3552: END IF;
3553: END IF;
3554:
3555: ELSE
3570: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: before Validate_ship_from_org_ID: lx_qte_line_rec.inventory_item_id: '||lx_qte_line_rec.inventory_item_id, 1, 'Y');
3571: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: before Validate_ship_from_org_ID: l_hd_shipment_rec.ship_from_org_id: '||l_hd_shipment_rec.ship_from_org_id, 1, 'Y');
3572: end if;
3573:
3574: IF l_hd_shipment_rec.ship_from_org_id IS NOT NULL AND l_hd_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM THEN
3575: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3576: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: before Validate_ship_from_org_ID (no ln_shipment_tbl)', 1, 'Y');
3577: end if;
3578: ASO_VALIDATE_PVT.Validate_ship_from_org_ID(
3583:
3584: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3585: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: after Validate_ship_from_org_ID (no ln_shipment_tbl)', 1, 'Y');
3586: end if;
3587: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3588: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3589: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_Lines: after Validate_ship_from_org_ID: <> SUCCESS', 1, 'Y');
3590: end if;
3591:
3595: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', lx_qte_line_rec.inventory_item_id, FALSE);
3596: FND_MSG_PUB.ADD;
3597: END IF;
3598:
3599: RAISE FND_API.G_EXC_ERROR;
3600: END IF;
3601: END IF;
3602:
3603: END IF;
3650: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3651: aso_debug_pub.add('Create_Quote_lines - after populate_quote_line '||x_return_status, 1, 'Y');
3652: end if;
3653:
3654: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3655: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3656: FND_MESSAGE.Set_Name('ASO', 'ASO_POPULATING_COLUMNS');
3657: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
3658: FND_MSG_PUB.ADD;
3657: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
3658: FND_MSG_PUB.ADD;
3659: END IF;
3660:
3661: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: END IF;
3658: FND_MSG_PUB.ADD;
3659: END IF;
3660:
3661: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: END IF;
3666:
3659: END IF;
3660:
3661: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: END IF;
3666:
3667: END IF;
3660:
3661: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: END IF;
3666:
3667: END IF;
3668:
3683: l_is_model_published := CZ_CF_API.ui_for_item(inventory_item_id => l_qte_line_rec.inventory_item_id,
3684: organization_id => l_Qte_Line_Rec.organization_id,
3685: config_creation_date => sysdate ,
3686: ui_type => 'DHTML',
3687: user_id => FND_API.G_MISS_NUM,
3688: responsibility_id => FND_PROFILE.value('RESP_ID'),
3689: calling_application_id => fnd_profile.VALUE('RESP_APPL_ID')
3690: );
3691:
3696: FND_MESSAGE.Set_Name('ASO', 'ASO_NO_CFG_UI');
3697: FND_MSG_PUB.ADD;
3698: END IF;
3699:
3700: RAISE FND_API.G_EXC_ERROR;
3701: END IF;
3702: END IF;
3703:
3704: --inter entity validations
3715: END IF;
3716:
3717: -- validate inventory item id. item should be active
3718: ASO_VALIDATE_PVT.Validate_Inventory_Item(
3719: p_init_msg_list => FND_API.G_FALSE,
3720: p_inventory_item_id => l_qte_line_rec.inventory_item_id,
3721: p_organization_id => l_Qte_Line_Rec.organization_id,
3722: x_return_status => x_return_status,
3723: x_msg_count => x_msg_count,
3721: p_organization_id => l_Qte_Line_Rec.organization_id,
3722: x_return_status => x_return_status,
3723: x_msg_count => x_msg_count,
3724: x_msg_data => x_msg_data);
3725: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3726: RAISE FND_API.G_EXC_ERROR;
3727: END IF;
3728:
3729: -- bug 5196952 validate the ship method code
3722: x_return_status => x_return_status,
3723: x_msg_count => x_msg_count,
3724: x_msg_data => x_msg_data);
3725: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3726: RAISE FND_API.G_EXC_ERROR;
3727: END IF;
3728:
3729: -- bug 5196952 validate the ship method code
3730: if (l_Shipment_Tbl.count > 0 ) then
3728:
3729: -- bug 5196952 validate the ship method code
3730: if (l_Shipment_Tbl.count > 0 ) then
3731:
3732: IF (l_Shipment_Tbl(1).ship_method_code is not null and l_Shipment_Tbl(1).ship_method_code <> fnd_api.g_miss_char) then
3733:
3734: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3735: aso_debug_pub.add('Create_Quote_lines - before validate ship_method_code ', 1, 'N');
3736: end if;
3735: aso_debug_pub.add('Create_Quote_lines - before validate ship_method_code ', 1, 'N');
3736: end if;
3737: ASO_VALIDATE_PVT.validate_ship_method_code
3738: (
3739: p_init_msg_list => fnd_api.g_false,
3740: p_qte_header_id => fnd_api.g_miss_num,
3741: p_qte_line_id => fnd_api.g_miss_num,
3742: p_organization_id => lx_qte_line_rec.organization_id,
3743: p_ship_method_code => l_Shipment_Tbl(1).ship_method_code,
3736: end if;
3737: ASO_VALIDATE_PVT.validate_ship_method_code
3738: (
3739: p_init_msg_list => fnd_api.g_false,
3740: p_qte_header_id => fnd_api.g_miss_num,
3741: p_qte_line_id => fnd_api.g_miss_num,
3742: p_organization_id => lx_qte_line_rec.organization_id,
3743: p_ship_method_code => l_Shipment_Tbl(1).ship_method_code,
3744: p_operation_code => 'CREATE',
3737: ASO_VALIDATE_PVT.validate_ship_method_code
3738: (
3739: p_init_msg_list => fnd_api.g_false,
3740: p_qte_header_id => fnd_api.g_miss_num,
3741: p_qte_line_id => fnd_api.g_miss_num,
3742: p_organization_id => lx_qte_line_rec.organization_id,
3743: p_ship_method_code => l_Shipment_Tbl(1).ship_method_code,
3744: p_operation_code => 'CREATE',
3745: x_return_status => x_return_status,
3749: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3750: aso_debug_pub.add('Create_Quote_lines - After validate ship_method_code ', 1, 'N');
3751: end if;
3752:
3753: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3754: RAISE FND_API.G_EXC_ERROR;
3755: END IF;
3756: end if; -- end if for ship method code check
3757: end if; -- end if for the ship tbl count
3750: aso_debug_pub.add('Create_Quote_lines - After validate ship_method_code ', 1, 'N');
3751: end if;
3752:
3753: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3754: RAISE FND_API.G_EXC_ERROR;
3755: END IF;
3756: end if; -- end if for ship method code check
3757: end if; -- end if for the ship tbl count
3758:
3759:
3760: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
3761:
3762: ASO_VALIDATE_PVT.Validate_Service(
3763: p_init_msg_list => FND_API.G_FALSE,
3764: p_inventory_item_id => l_qte_line_rec.inventory_item_id,
3765: p_start_date_active => l_qte_line_rec.start_date_active,
3766: p_end_date_active => l_qte_line_rec.end_date_active,
3767: p_service_duration => p_qte_line_dtl_tbl(i).service_duration,
3771: x_return_status => x_return_status,
3772: x_msg_count => x_msg_count,
3773: x_msg_data => x_msg_data);
3774:
3775: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3776:
3777: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3778: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3779: FND_MESSAGE.Set_Token('INFO','SERVICE', FALSE);
3779: FND_MESSAGE.Set_Token('INFO','SERVICE', FALSE);
3780: FND_MSG_PUB.ADD;
3781: END IF;
3782:
3783: RAISE FND_API.G_EXC_ERROR;
3784:
3785: END IF;
3786:
3787:
3787:
3788: --validate service period
3789:
3790: ASO_VALIDATE_PVT.Validate_UOM_code(
3791: p_init_msg_list => FND_API.G_FALSE,
3792: p_uom_code => p_qte_line_dtl_tbl(i).service_period,
3793: p_organization_id => l_qte_line_rec.organization_id,
3794: p_inventory_item_id => l_qte_line_rec.inventory_item_id,
3795: x_return_status => x_return_status,
3795: x_return_status => x_return_status,
3796: x_msg_count => x_msg_count,
3797: x_msg_data => x_msg_data);
3798:
3799: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3800: RAISE FND_API.G_EXC_ERROR;
3801: END IF;
3802:
3803:
3796: x_msg_count => x_msg_count,
3797: x_msg_data => x_msg_data);
3798:
3799: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3800: RAISE FND_API.G_EXC_ERROR;
3801: END IF;
3802:
3803:
3804: --New code for Bug # 2498942 fix
3804: --New code for Bug # 2498942 fix
3805:
3806: IF p_qte_line_dtl_tbl(i).service_ref_type_code = 'QUOTE'
3807: AND p_qte_line_dtl_tbl(i).service_ref_line_id IS NOT NULL
3808: AND p_qte_line_dtl_tbl(i).service_ref_line_id <> FND_API.G_MISS_NUM THEN
3809:
3810: OPEN C_line_category_code(p_qte_line_dtl_tbl(i).service_ref_line_id);
3811: FETCH C_line_category_code INTO l_line_category_code;
3812:
3818: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SERVICE_REFERENCE');
3819: FND_MSG_PUB.ADD;
3820: END IF;
3821:
3822: RAISE FND_API.G_EXC_ERROR;
3823:
3824: END IF;
3825:
3826: CLOSE C_line_category_code;
3830:
3831: --New code for Bug#3280130
3832:
3833: if p_qte_line_dtl_tbl(i).service_ref_line_id is not null and
3834: p_qte_line_dtl_tbl(i).service_ref_line_id <> fnd_api.g_miss_num then
3835:
3836: if p_qte_line_dtl_tbl(i).service_ref_type_code is null or
3837: p_qte_line_dtl_tbl(i).service_ref_type_code = fnd_api.g_miss_char then
3838:
3833: if p_qte_line_dtl_tbl(i).service_ref_line_id is not null and
3834: p_qte_line_dtl_tbl(i).service_ref_line_id <> fnd_api.g_miss_num then
3835:
3836: if p_qte_line_dtl_tbl(i).service_ref_type_code is null or
3837: p_qte_line_dtl_tbl(i).service_ref_type_code = fnd_api.g_miss_char then
3838:
3839: x_return_status := fnd_api.g_ret_sts_error;
3840:
3841: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3835:
3836: if p_qte_line_dtl_tbl(i).service_ref_type_code is null or
3837: p_qte_line_dtl_tbl(i).service_ref_type_code = fnd_api.g_miss_char then
3838:
3839: x_return_status := fnd_api.g_ret_sts_error;
3840:
3841: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3842: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3843: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_TYPE_CODE', FALSE);
3844: FND_MESSAGE.Set_Token('VALUE', p_qte_line_dtl_tbl(i).service_ref_type_code,FALSE);
3845: FND_MSG_PUB.ADD;
3846: END IF;
3847:
3848: raise fnd_api.g_exc_error;
3849:
3850: else
3851:
3852: if aso_debug_pub.g_debug_flag = 'Y' then
3853: aso_debug_pub.add('CREATE_QUOTE_LINES: Before calling aso_validate_pvt.validate_service_ref_line_id');
3854: end if;
3855:
3856: aso_validate_pvt.validate_service_ref_line_id (
3857: p_init_msg_list => fnd_api.g_false,
3858: p_service_ref_type_code => p_qte_line_dtl_tbl(i).service_ref_type_code,
3859: p_service_ref_line_id => p_qte_line_dtl_tbl(i).service_ref_line_id,
3860: p_qte_header_id => l_qte_line_rec.quote_header_id,
3861: x_return_status => x_return_status,
3866: aso_debug_pub.add('CREATE_QUOTE_LINES: After calling aso_validate_pvt.validate_service_ref_line_id');
3867: aso_debug_pub.add('CREATE_QUOTE_LINES: x_return_status: '|| x_return_status);
3868: end if;
3869:
3870: if x_return_status <> fnd_api.g_ret_sts_success then
3871: raise fnd_api.g_exc_error;
3872: end if;
3873:
3874: end if;
3867: aso_debug_pub.add('CREATE_QUOTE_LINES: x_return_status: '|| x_return_status);
3868: end if;
3869:
3870: if x_return_status <> fnd_api.g_ret_sts_success then
3871: raise fnd_api.g_exc_error;
3872: end if;
3873:
3874: end if;
3875:
3885: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: CREATE_QUOTE_LINES: End of Inter entity validations');
3886: end if;
3887:
3888:
3889: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3890:
3891: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3892: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3893: FND_MSG_PUB.ADD;
3892: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
3893: FND_MSG_PUB.ADD;
3894: END IF;
3895:
3896: RAISE FND_API.G_EXC_ERROR;
3897:
3898: END IF;
3899:
3900:
3906: end if;
3907:
3908: ASO_CHECK_TCA_PVT.check_line_account_info(
3909: p_api_version => 1.0,
3910: p_init_msg_list => FND_API.G_FALSE,
3911: p_cust_account_id => l_qte_header_rec.cust_account_id,
3912: p_qte_line_rec => l_qte_line_rec,
3913: p_line_shipment_tbl => l_shipment_tbl,
3914: p_application_type_code => l_control_rec.application_type_code,
3915: x_return_status => l_return_status,
3916: x_msg_count => l_msg_count,
3917: x_msg_data => l_msg_data );
3918:
3919: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3920: raise FND_API.G_EXC_ERROR;
3921: END IF;
3922: -- END IF;
3923:
3916: x_msg_count => l_msg_count,
3917: x_msg_data => l_msg_data );
3918:
3919: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3920: raise FND_API.G_EXC_ERROR;
3921: END IF;
3922: -- END IF;
3923:
3924: ASO_TRADEIN_PVT.LineType(
3921: END IF;
3922: -- END IF;
3923:
3924: ASO_TRADEIN_PVT.LineType(
3925: p_init_msg_list => FND_API.G_FALSE,
3926: p_qte_header_rec => l_qte_header_rec,
3927: p_qte_line_rec => l_qte_line_rec,
3928: x_return_status => x_return_status,
3929: x_msg_count => x_msg_count,
3928: x_return_status => x_return_status,
3929: x_msg_count => x_msg_count,
3930: x_msg_data => x_msg_data);
3931:
3932: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3933: RAISE FND_API.G_EXC_ERROR;
3934: END IF;
3935: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3936: aso_debug_pub.add('after order type'|| x_return_status, 1, 'Y');
3929: x_msg_count => x_msg_count,
3930: x_msg_data => x_msg_data);
3931:
3932: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3933: RAISE FND_API.G_EXC_ERROR;
3934: END IF;
3935: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3936: aso_debug_pub.add('after order type'|| x_return_status, 1, 'Y');
3937: END IF;
3936: aso_debug_pub.add('after order type'|| x_return_status, 1, 'Y');
3937: END IF;
3938:
3939:
3940: If (p_qte_header_rec.order_type_id = FND_API.G_MISS_NUM )then -- [This is for backward compatibility]
3941: l_db_order_type_id := l_qte_header_rec.order_type_id;
3942: else
3943: l_db_order_type_id := p_qte_header_rec.order_type_id;
3944: end if;
3942: else
3943: l_db_order_type_id := p_qte_header_rec.order_type_id;
3944: end if;
3945:
3946: If (l_db_order_type_id = l_qte_header_rec.order_type_id) and (l_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM) then
3947: ASO_validate_PVT.Validate_ln_type_for_ord_type(
3948: p_init_msg_list => FND_API.G_FALSE,
3949: p_qte_header_rec => l_qte_header_rec,
3950: P_Qte_Line_rec => l_qte_line_rec,
3944: end if;
3945:
3946: If (l_db_order_type_id = l_qte_header_rec.order_type_id) and (l_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM) then
3947: ASO_validate_PVT.Validate_ln_type_for_ord_type(
3948: p_init_msg_list => FND_API.G_FALSE,
3949: p_qte_header_rec => l_qte_header_rec,
3950: P_Qte_Line_rec => l_qte_line_rec,
3951: x_return_status => x_return_status,
3952: x_msg_count => x_msg_count,
3951: x_return_status => x_return_status,
3952: x_msg_count => x_msg_count,
3953: x_msg_data => x_msg_data);
3954:
3955: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3956: RAISE FND_API.G_EXC_ERROR;
3957: END IF;
3958: End if;
3959:
3952: x_msg_count => x_msg_count,
3953: x_msg_data => x_msg_data);
3954:
3955: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3956: RAISE FND_API.G_EXC_ERROR;
3957: END IF;
3958: End if;
3959:
3960: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3962: END IF;
3963:
3964: aso_validate_pvt.Validate_po_line_number
3965: (
3966: p_init_msg_list => fnd_api.g_false,
3967: p_qte_header_rec => l_qte_header_rec,
3968: P_Qte_Line_rec => l_qte_line_rec,
3969: x_return_status => x_return_status,
3970: x_msg_count => x_msg_count,
3969: x_return_status => x_return_status,
3970: x_msg_count => x_msg_count,
3971: x_msg_data => x_msg_data);
3972:
3973: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3974: RAISE FND_API.G_EXC_ERROR;
3975: END IF;
3976:
3977: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3970: x_msg_count => x_msg_count,
3971: x_msg_data => x_msg_data);
3972:
3973: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3974: RAISE FND_API.G_EXC_ERROR;
3975: END IF;
3976:
3977: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3978: aso_debug_pub.add('x_return_status for Validate_po_line_number'|| x_return_status, 1, 'Y');
3979: END IF;
3980:
3981:
3982: ASO_TRADEIN_PVT.Validate_Line_Tradein(
3983: p_init_msg_list => FND_API.G_FALSE,
3984: p_qte_header_rec => l_qte_header_rec,
3985: P_Qte_Line_rec => l_qte_line_rec,
3986: x_return_status => x_return_status,
3987: x_msg_count => x_msg_count,
3986: x_return_status => x_return_status,
3987: x_msg_count => x_msg_count,
3988: x_msg_data => x_msg_data);
3989:
3990: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3991: RAISE FND_API.G_EXC_ERROR;
3992: END IF;
3993:
3994: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3987: x_msg_count => x_msg_count,
3988: x_msg_data => x_msg_data);
3989:
3990: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3991: RAISE FND_API.G_EXC_ERROR;
3992: END IF;
3993:
3994: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3995: aso_debug_pub.add('ASO_QUOTE_LINES Create_Quote_lines - after validate_line_tradein '||x_return_status, 1, 'Y');
3995: aso_debug_pub.add('ASO_QUOTE_LINES Create_Quote_lines - after validate_line_tradein '||x_return_status, 1, 'Y');
3996: end if;
3997:
3998: ASO_TRADEIN_PVT.Validate_IB_Return_Qty(
3999: p_init_msg_list => FND_API.G_FALSE,
4000: p_Qte_Line_rec => l_qte_line_rec,
4001: p_Qte_Line_Dtl_Tbl => l_qte_line_dtl_tbl,
4002: x_return_status => x_return_status,
4003: x_msg_count => x_msg_count,
4002: x_return_status => x_return_status,
4003: x_msg_count => x_msg_count,
4004: x_msg_data => x_msg_data);
4005:
4006: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4007: RAISE FND_API.G_EXC_ERROR;
4008: END IF;
4009: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4010: aso_debug_pub.add('ASO_QUOTE_LINES Create_Quote_lines - after validate_IB_Return_Qty '||x_return_status, 1, 'Y');
4003: x_msg_count => x_msg_count,
4004: x_msg_data => x_msg_data);
4005:
4006: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4007: RAISE FND_API.G_EXC_ERROR;
4008: END IF;
4009: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4010: aso_debug_pub.add('ASO_QUOTE_LINES Create_Quote_lines - after validate_IB_Return_Qty '||x_return_status, 1, 'Y');
4011: end if;
4011: end if;
4012:
4013: IF ( P_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
4014: ASO_VALIDATE_PVT.Validate_Sales_Credit_Return(
4015: p_init_msg_list => FND_API.G_FALSE,
4016: p_sales_credit_tbl => p_sales_credit_tbl,
4017: p_qte_line_rec => l_qte_line_rec,
4018: x_return_status => x_return_status,
4019: x_msg_count => x_msg_count,
4017: p_qte_line_rec => l_qte_line_rec,
4018: x_return_status => x_return_status,
4019: x_msg_count => x_msg_count,
4020: x_msg_data => x_msg_data);
4021: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4022: RAISE FND_API.G_EXC_ERROR;
4023: END IF;
4024: END IF;
4025:
4018: x_return_status => x_return_status,
4019: x_msg_count => x_msg_count,
4020: x_msg_data => x_msg_data);
4021: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4022: RAISE FND_API.G_EXC_ERROR;
4023: END IF;
4024: END IF;
4025:
4026: -- EDU
4028: aso_debug_pub.add('Create_Quote_Line - before Validate_Agreement:l_qte_line_rec.Agreement_Id: '||l_qte_line_rec.Agreement_Id, 1, 'N');
4029: end if;
4030:
4031: IF (l_qte_line_rec.Agreement_Id IS NOT NULL AND
4032: l_qte_line_rec.Agreement_Id <> FND_API.G_MISS_NUM) THEN
4033: ASO_VALIDATE_PVT.Validate_Agreement(
4034: p_init_msg_list => FND_API.G_FALSE,
4035: P_Agreement_Id => l_qte_line_rec.Agreement_Id,
4036: x_return_status => x_return_status,
4030:
4031: IF (l_qte_line_rec.Agreement_Id IS NOT NULL AND
4032: l_qte_line_rec.Agreement_Id <> FND_API.G_MISS_NUM) THEN
4033: ASO_VALIDATE_PVT.Validate_Agreement(
4034: p_init_msg_list => FND_API.G_FALSE,
4035: P_Agreement_Id => l_qte_line_rec.Agreement_Id,
4036: x_return_status => x_return_status,
4037: x_msg_count => x_msg_count,
4038: x_msg_data => x_msg_data);
4039: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4040: aso_debug_pub.add('Create_Quote_Line - after Validate_Agreement:x_return_status: '||x_return_status, 1, 'N');
4041: end if;
4042:
4043: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4044: RAISE FND_API.G_EXC_ERROR;
4045: END IF;
4046: END IF;
4047: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4040: aso_debug_pub.add('Create_Quote_Line - after Validate_Agreement:x_return_status: '||x_return_status, 1, 'N');
4041: end if;
4042:
4043: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4044: RAISE FND_API.G_EXC_ERROR;
4045: END IF;
4046: END IF;
4047: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4048: aso_debug_pub.add('Create_Quote - after Validate_Agreement:l_qte_line_rec.UOM_Code: '||l_qte_line_rec.UOM_Code,1, 'N');
4049: aso_debug_pub.add('Create_Quote - after Validate_Agreement:l_qte_line_rec.Quantity: '||l_qte_line_rec.Quantity,1, 'N');
4050: end if;
4051: IF l_qte_line_rec.UOM_Code = 'ENR' THEN
4052: IF l_qte_line_rec.Quantity <> 1 THEN
4053: x_return_status := FND_API.G_RET_STS_ERROR;
4054: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4055: FND_MESSAGE.Set_Name('ASO', 'ASO_EDU_INVALID_QTY');
4056: FND_MSG_PUB.ADD;
4057: END IF;
4054: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4055: FND_MESSAGE.Set_Name('ASO', 'ASO_EDU_INVALID_QTY');
4056: FND_MSG_PUB.ADD;
4057: END IF;
4058: RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061: -- EDU
4062:
4077: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row (p_qte_line_rec.Quote_Header_Id );
4078:
4079: aso_validate_pvt.Validate_cc_info
4080: (
4081: p_init_msg_list => fnd_api.g_false,
4082: p_payment_rec => l_payment_rec,
4083: p_qte_header_rec => l_qte_header_rec,
4084: P_Qte_Line_rec => p_qte_line_rec,
4085: x_return_status => x_return_status,
4090: aso_debug_pub.add('after calling Validate_cc_info ', 1, 'Y');
4091: aso_debug_pub.add('Validate_cc_info Return Status: '||x_return_status, 1, 'Y');
4092: END IF;
4093:
4094: if x_return_status <> fnd_api.g_ret_sts_success then
4095: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4097: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4098: RAISE FND_API.G_EXC_ERROR;
4091: aso_debug_pub.add('Validate_cc_info Return Status: '||x_return_status, 1, 'Y');
4092: END IF;
4093:
4094: if x_return_status <> fnd_api.g_ret_sts_success then
4095: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4097: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4098: RAISE FND_API.G_EXC_ERROR;
4099: ELSE
4092: END IF;
4093:
4094: if x_return_status <> fnd_api.g_ret_sts_success then
4095: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4097: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4098: RAISE FND_API.G_EXC_ERROR;
4099: ELSE
4100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4093:
4094: if x_return_status <> fnd_api.g_ret_sts_success then
4095: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4097: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4098: RAISE FND_API.G_EXC_ERROR;
4099: ELSE
4100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4101: END IF;
4094: if x_return_status <> fnd_api.g_ret_sts_success then
4095: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4097: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4098: RAISE FND_API.G_EXC_ERROR;
4099: ELSE
4100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4101: END IF;
4102: end if;
4096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4097: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4098: RAISE FND_API.G_EXC_ERROR;
4099: ELSE
4100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4101: END IF;
4102: end if;
4103: END IF;
4104:
4136: X_Msg_Count => x_msg_count,
4137: X_Msg_Data => x_msg_data
4138: );
4139:
4140: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4141: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4142: FND_MESSAGE.Set_Name('ASO', 'ASO_INSERT_ERROR');
4143: FND_MSG_PUB.ADD;
4144: END IF;
4141: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4142: FND_MESSAGE.Set_Name('ASO', 'ASO_INSERT_ERROR');
4143: FND_MSG_PUB.ADD;
4144: END IF;
4145: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4147: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: END IF;
4142: FND_MESSAGE.Set_Name('ASO', 'ASO_INSERT_ERROR');
4143: FND_MSG_PUB.ADD;
4144: END IF;
4145: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4147: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: END IF;
4150: END IF;
4143: FND_MSG_PUB.ADD;
4144: END IF;
4145: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4147: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: END IF;
4150: END IF;
4151:
4144: END IF;
4145: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4147: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: END IF;
4150: END IF;
4151:
4152: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4153: aso_debug_pub.add('Create_Quote_lines - after insert_quote_line_rows '||x_return_status, 1, 'Y');
4154: end if;
4155:
4156: -- Service line quantity update Bmishra 01/09/02
4157: l_call_update := FND_API.G_FALSE;
4158: OPEN c_service (X_Qte_Line_Rec.quote_line_id);
4159:
4160: FETCH c_service INTO l_service_item_flag, l_serviceable_product_flag;
4161: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4164: end if;
4165: IF c_service%FOUND THEN
4166: CLOSE c_service;
4167: IF l_service_item_flag = 'Y' THEN
4168: l_service := FND_API.G_TRUE;
4169: l_call_update := FND_API.G_TRUE;
4170: ELSIF l_serviceable_product_flag = 'Y' THEN
4171: l_service := FND_API.G_FALSE;
4172: l_call_update := FND_API.G_TRUE;
4165: IF c_service%FOUND THEN
4166: CLOSE c_service;
4167: IF l_service_item_flag = 'Y' THEN
4168: l_service := FND_API.G_TRUE;
4169: l_call_update := FND_API.G_TRUE;
4170: ELSIF l_serviceable_product_flag = 'Y' THEN
4171: l_service := FND_API.G_FALSE;
4172: l_call_update := FND_API.G_TRUE;
4173: END IF;
4167: IF l_service_item_flag = 'Y' THEN
4168: l_service := FND_API.G_TRUE;
4169: l_call_update := FND_API.G_TRUE;
4170: ELSIF l_serviceable_product_flag = 'Y' THEN
4171: l_service := FND_API.G_FALSE;
4172: l_call_update := FND_API.G_TRUE;
4173: END IF;
4174:
4175: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4168: l_service := FND_API.G_TRUE;
4169: l_call_update := FND_API.G_TRUE;
4170: ELSIF l_serviceable_product_flag = 'Y' THEN
4171: l_service := FND_API.G_FALSE;
4172: l_call_update := FND_API.G_TRUE;
4173: END IF;
4174:
4175: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4176: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_lines: l_call_update'||l_call_update,1, 'N');
4175: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4176: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Create_Quote_lines: l_call_update'||l_call_update,1, 'N');
4177: end if;
4178:
4179: IF l_call_update = FND_API.G_TRUE THEN
4180: ASO_QUOTE_LINES_PVT.service_item_qty_update
4181: (p_qte_line_rec => X_Qte_Line_Rec ,
4182: p_service_item_flag => l_service,
4183: x_return_status => X_return_status
4201: end if;
4202:
4203: IF ( P_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
4204: IF x_sales_credit_tbl.count > 0 THEN
4205: IF x_sales_credit_tbl(1).quote_header_id IS NULL OR x_sales_credit_tbl(1).quote_header_id = FND_API.G_MISS_NUM THEN
4206: x_sales_credit_tbl(1).quote_header_id := X_Qte_Line_Rec.quote_header_id;
4207: END IF;
4208: IF x_sales_credit_tbl(1).quote_line_id IS NULL OR x_sales_credit_tbl(1).quote_line_id = FND_API.G_MISS_NUM THEN
4209: x_sales_credit_tbl(1).quote_line_id := X_Qte_Line_Rec.quote_line_id;
4204: IF x_sales_credit_tbl.count > 0 THEN
4205: IF x_sales_credit_tbl(1).quote_header_id IS NULL OR x_sales_credit_tbl(1).quote_header_id = FND_API.G_MISS_NUM THEN
4206: x_sales_credit_tbl(1).quote_header_id := X_Qte_Line_Rec.quote_header_id;
4207: END IF;
4208: IF x_sales_credit_tbl(1).quote_line_id IS NULL OR x_sales_credit_tbl(1).quote_line_id = FND_API.G_MISS_NUM THEN
4209: x_sales_credit_tbl(1).quote_line_id := X_Qte_Line_Rec.quote_line_id;
4210: END IF;
4211:
4212: ASO_VALIDATE_PVT.Validate_Quote_Percent(
4209: x_sales_credit_tbl(1).quote_line_id := X_Qte_Line_Rec.quote_line_id;
4210: END IF;
4211:
4212: ASO_VALIDATE_PVT.Validate_Quote_Percent(
4213: p_init_msg_list => FND_API.G_FALSE,
4214: p_sales_credit_tbl => x_sales_credit_tbl,
4215: x_return_status => x_return_status,
4216: x_msg_count => x_msg_count,
4217: x_msg_data => x_msg_data
4215: x_return_status => x_return_status,
4216: x_msg_count => x_msg_count,
4217: x_msg_data => x_msg_data
4218: );
4219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4220: RAISE FND_API.G_EXC_ERROR;
4221: END IF;
4222: END IF;
4223: END IF;
4216: x_msg_count => x_msg_count,
4217: x_msg_data => x_msg_data
4218: );
4219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4220: RAISE FND_API.G_EXC_ERROR;
4221: END IF;
4222: END IF;
4223: END IF;
4224:
4225: -- end sales credits
4226:
4227:
4228: IF l_control_rec.line_pricing_event IS NOT NULL AND
4229: l_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR THEN
4230:
4231: -- call pricing engine
4232:
4233: l_pricing_control_rec.pricing_event := l_control_rec.line_pricing_event;
4247:
4248:
4249: ASO_PRICING_INT.Pricing_Order(
4250: P_Api_Version_Number => 1.0,
4251: P_Init_Msg_List => fnd_api.g_false,
4252: P_Commit => fnd_api.g_false,
4253: p_control_rec => l_pricing_control_rec,
4254: p_qte_header_rec => l_qte_header_rec,
4255: p_hd_shipment_rec => l_hd_shipment_rec,
4248:
4249: ASO_PRICING_INT.Pricing_Order(
4250: P_Api_Version_Number => 1.0,
4251: P_Init_Msg_List => fnd_api.g_false,
4252: P_Commit => fnd_api.g_false,
4253: p_control_rec => l_pricing_control_rec,
4254: p_qte_header_rec => l_qte_header_rec,
4255: p_hd_shipment_rec => l_hd_shipment_rec,
4256: p_hd_price_attr_tbl => l_hd_price_attr_tbl,
4268: if lx_qte_line_tbl.count > 0 then
4269: x_qte_line_rec := lx_qte_line_tbl(1);
4270: end if;
4271:
4272: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4273:
4274: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4275:
4276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4270: end if;
4271:
4272: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4273:
4274: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4275:
4276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4277:
4278: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4272: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4273:
4274: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4275:
4276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4277:
4278: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4279:
4280: RAISE FND_API.G_EXC_ERROR;
4274: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4275:
4276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4277:
4278: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4279:
4280: RAISE FND_API.G_EXC_ERROR;
4281:
4282: END IF;
4276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4277:
4278: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4279:
4280: RAISE FND_API.G_EXC_ERROR;
4281:
4282: END IF;
4283:
4284: END IF;
4290: *
4291: *
4292: IF l_control_rec.CALCULATE_TAX_FLAG = 'Y'THEN
4293: l_tax_control_rec.tax_level := 'SHIPPING';
4294: l_tax_control_rec.update_db := 'Y' ; --FND_API.G_TRUE;
4295:
4296: l_tax_detail_rec.quote_header_id := l_qte_line_rec.quote_header_id;
4297: l_tax_detail_rec.quote_line_id := l_qte_line_rec.quote_line_id;
4298:
4304: END IF;
4305: CLOSE get_cust_acct;
4306:
4307: IF( l_qte_line_rec.invoice_to_party_site_id is not NULL
4308: AND l_qte_line_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM )
4309: AND (l_cust_Acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM) THEN
4310:
4311: ASO_PARTY_INT.GET_ACCT_SITE_USES (
4312: p_api_version => 1.0
4305: CLOSE get_cust_acct;
4306:
4307: IF( l_qte_line_rec.invoice_to_party_site_id is not NULL
4308: AND l_qte_line_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM )
4309: AND (l_cust_Acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM) THEN
4310:
4311: ASO_PARTY_INT.GET_ACCT_SITE_USES (
4312: p_api_version => 1.0
4313: ,P_Cust_Account_Id => l_cust_acct
4320: );
4321: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4322: aso_debug_pub.add('Create_Quote_lines - after create_acct_site_uses- invoice_org_id: '||nvl(to_char(l_invoice_org_id),'null'), 1, 'N');
4323: end if;
4324: IF L_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
4325: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4326: THEN
4327: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
4328: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
4327: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
4328: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
4329: FND_MSG_PUB.ADD;
4330: END IF;
4331: -- raise FND_API.G_EXC_ERROR;
4332: END IF;
4333: END IF;
4334:
4335: lx_tax_shipment_tbl := ASO_UTILITY_PVT.Query_Shipment_Rows(l_qte_line_rec.quote_header_id,x_qte_line_rec.quote_line_id);
4336:
4337: FOR i in 1..lx_tax_shipment_tbl.count LOOP
4338: l_tax_detail_rec.quote_shipment_id := lx_tax_shipment_tbl(i).shipment_id;
4339:
4340: IF (lx_tax_shipment_tbl(i).ship_to_party_site_id is not NULL AND lx_tax_shipment_tbl(i).ship_to_party_site_id <> FND_API.G_MISS_NUM)
4341: AND(l_cust_acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM )
4342: THEN
4343: ASO_PARTY_INT.GET_ACCT_SITE_USES (
4344: p_api_version => 1.0
4337: FOR i in 1..lx_tax_shipment_tbl.count LOOP
4338: l_tax_detail_rec.quote_shipment_id := lx_tax_shipment_tbl(i).shipment_id;
4339:
4340: IF (lx_tax_shipment_tbl(i).ship_to_party_site_id is not NULL AND lx_tax_shipment_tbl(i).ship_to_party_site_id <> FND_API.G_MISS_NUM)
4341: AND(l_cust_acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM )
4342: THEN
4343: ASO_PARTY_INT.GET_ACCT_SITE_USES (
4344: p_api_version => 1.0
4345: ,P_Cust_Account_Id => l_cust_acct
4350: ,x_msg_data => l_msg_data
4351: ,x_site_use_id => l_ship_org_id
4352: );
4353:
4354: IF L_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
4355: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4356: THEN
4357: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
4358: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
4357: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
4358: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
4359: FND_MSG_PUB.ADD;
4360: END IF;
4361: -- raise FND_API.G_EXC_ERROR;
4362: END IF;
4363:
4364: END IF;
4365:
4381: if l_tax_detail_tbl.count > 0 then
4382: x_tax_detail_tbl(i) := l_tax_detail_tbl(1);
4383: end if;
4384:
4385: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4387: FND_MESSAGE.Set_Name('ASO', 'ASO_TAX_CALCULATION');
4388: FND_MSG_PUB.ADD;
4389: END IF;
4386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4387: FND_MESSAGE.Set_Name('ASO', 'ASO_TAX_CALCULATION');
4388: FND_MSG_PUB.ADD;
4389: END IF;
4390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4393: RAISE FND_API.G_EXC_ERROR;
4394: END IF;
4387: FND_MESSAGE.Set_Name('ASO', 'ASO_TAX_CALCULATION');
4388: FND_MSG_PUB.ADD;
4389: END IF;
4390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4393: RAISE FND_API.G_EXC_ERROR;
4394: END IF;
4395: END IF;
4388: FND_MSG_PUB.ADD;
4389: END IF;
4390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4393: RAISE FND_API.G_EXC_ERROR;
4394: END IF;
4395: END IF;
4396: END LOOP;
4389: END IF;
4390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4393: RAISE FND_API.G_EXC_ERROR;
4394: END IF;
4395: END IF;
4396: END LOOP;
4397:
4432: last_updated_by = fnd_global.user_id,
4433: last_update_login = fnd_global.conc_login_id
4434: WHERE shipment_id = l_shipment_tbl(i).shipment_id;
4435:
4436: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4437: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4438: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATING_RESERVATION');
4439: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
4440: FND_MSG_PUB.ADD;
4438: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATING_RESERVATION');
4439: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
4440: FND_MSG_PUB.ADD;
4441: END IF;
4442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4439: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
4440: FND_MSG_PUB.ADD;
4441: END IF;
4442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447: END IF;
4440: FND_MSG_PUB.ADD;
4441: END IF;
4442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447: END IF;
4448:
4441: END IF;
4442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447: END IF;
4448:
4449:
4477: X_Return_Status => l_return_status,
4478: X_Msg_Count => x_msg_count,
4479: X_Msg_Data => x_msg_data);
4480:
4481: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4482: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4483: FND_MESSAGE.Set_Name('ASO', 'ASO_UPDATE_QUOTE_TOTAL');
4484: -- FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
4485: FND_MSG_PUB.ADD;
4486: END IF;
4487: END IF;
4488:
4489:
4490: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4491: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4492: FND_MESSAGE.Set_Name('ASO', 'ASO_UPDATE_QUOTE_TOTAL');
4493: -- FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
4494: FND_MSG_PUB.ADD;
4494: FND_MSG_PUB.ADD;
4495: END IF;
4496: END IF;
4497:
4498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4502: x_return_status := FND_API.G_RET_STS_ERROR;
4495: END IF;
4496: END IF;
4497:
4498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4502: x_return_status := FND_API.G_RET_STS_ERROR;
4503: RAISE FND_API.G_EXC_ERROR;
4496: END IF;
4497:
4498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4502: x_return_status := FND_API.G_RET_STS_ERROR;
4503: RAISE FND_API.G_EXC_ERROR;
4504: END IF;
4497:
4498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4502: x_return_status := FND_API.G_RET_STS_ERROR;
4503: RAISE FND_API.G_EXC_ERROR;
4504: END IF;
4505:
4498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4502: x_return_status := FND_API.G_RET_STS_ERROR;
4503: RAISE FND_API.G_EXC_ERROR;
4504: END IF;
4505:
4506: END IF;
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4502: x_return_status := FND_API.G_RET_STS_ERROR;
4503: RAISE FND_API.G_EXC_ERROR;
4504: END IF;
4505:
4506: END IF;
4507:
4529: -- End of API body
4530: --
4531:
4532: -- Standard check for p_commit
4533: IF FND_API.to_Boolean( p_commit )
4534: THEN
4535: COMMIT WORK;
4536: END IF;
4537:
4543: p_data => x_msg_data
4544: );
4545:
4546: EXCEPTION
4547: WHEN FND_API.G_EXC_ERROR THEN
4548: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4549: P_API_NAME => L_API_NAME
4550: ,P_PKG_NAME => G_PKG_NAME
4551: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4555: ,X_MSG_COUNT => X_MSG_COUNT
4556: ,X_MSG_DATA => X_MSG_DATA
4557: ,X_RETURN_STATUS => X_RETURN_STATUS);
4558:
4559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4560: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4561: P_API_NAME => L_API_NAME
4562: ,P_PKG_NAME => G_PKG_NAME
4563: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4593: -- Pre-Req :
4594: -- Parameters:
4595: -- IN
4596: -- p_api_version_number IN NUMBER Required
4597: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
4598: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
4599: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
4600: -- P_qte_lines_Rec IN qte_line_Rec_Type Required
4601: -- P_quote_header_id IN NUMBER Required
4594: -- Parameters:
4595: -- IN
4596: -- p_api_version_number IN NUMBER Required
4597: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
4598: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
4599: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
4600: -- P_qte_lines_Rec IN qte_line_Rec_Type Required
4601: -- P_quote_header_id IN NUMBER Required
4602: -- P_header_last_update_date IN DATE Required
4608: -- P_Freight_Charges_Tbl IN Freight_Charges_Tbl_Type
4609: -- P_Line_Relationship_Tbl IN Line_Relationship_Tbl_Type
4610: -- P_Price_Attributes_Tbl IN Price_Attributes_Tbl_Type
4611: -- P_Price_Adj_Relationship_Tbl IN Price_Adj_Relationship_Tbl_Type
4612: -- P_Update_Header_Flag IN VARCHAR2 Optional Default = FND_API.G_TRUE
4613: -- OUT:
4614: -- X_quote_line_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
4615: -- x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
4616: -- x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
4624: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
4625:
4626: PROCEDURE Update_Quote_Line(
4627: P_Api_Version_Number IN NUMBER,
4628: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4629: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4630: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4631: P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
4632: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_qte_line_REC,
4625:
4626: PROCEDURE Update_Quote_Line(
4627: P_Api_Version_Number IN NUMBER,
4628: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4629: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4630: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4631: P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
4632: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_qte_line_REC,
4633: P_Control_REC IN ASO_QUOTE_PUB.Control_Rec_Type := ASO_QUOTE_PUB.G_MISS_Control_Rec,
4626: PROCEDURE Update_Quote_Line(
4627: P_Api_Version_Number IN NUMBER,
4628: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4629: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4630: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4631: P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
4632: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_qte_line_REC,
4633: P_Control_REC IN ASO_QUOTE_PUB.Control_Rec_Type := ASO_QUOTE_PUB.G_MISS_Control_Rec,
4634: P_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
4942: -- Standard Start of API savepoint
4943: SAVEPOINT UPDATE_quote_line_PVT;
4944:
4945: -- Standard call to check for call compatibility.
4946: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4947: p_api_version_number,
4948: l_api_name,
4949: G_PKG_NAME) THEN
4950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4946: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4947: p_api_version_number,
4948: l_api_name,
4949: G_PKG_NAME) THEN
4950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4951: END IF;
4952:
4953:
4954: -- Initialize message list if p_init_msg_list is set to TRUE.
4951: END IF;
4952:
4953:
4954: -- Initialize message list if p_init_msg_list is set to TRUE.
4955: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4956: FND_MSG_PUB.initialize;
4957: END IF;
4958:
4959:
4957: END IF;
4958:
4959:
4960: -- Initialize API return status to SUCCESS
4961: x_return_status := FND_API.G_RET_STS_SUCCESS;
4962:
4963: if aso_debug_pub.g_debug_flag = 'Y' THEN
4964: aso_debug_pub.add('Update_Quote_line - Begin ', 1, 'Y');
4965: aso_debug_pub.add('P_Control_REC.AUTO_VERSION_FLAG: '||nvl(P_Control_REC.AUTO_VERSION_FLAG,'null'),1,'N');
5004: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
5005: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
5006: FND_MSG_PUB.ADD;
5007: END IF;
5008: RAISE FND_API.G_EXC_ERROR;
5009: END IF;
5010:
5011:
5012: OPEN C_qln_exist;
5011:
5012: OPEN C_qln_exist;
5013: FETCH C_qln_exist into l_qln_exist;
5014:
5015: IF c_qln_exist%NOTFOUND OR l_qln_exist = FND_API.G_MISS_NUM THEN
5016:
5017: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5018: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_LINE');
5019: FND_MESSAGE.Set_Token ('VALUE', p_qte_line_rec.quote_line_id, FALSE);
5019: FND_MESSAGE.Set_Token ('VALUE', p_qte_line_rec.quote_line_id, FALSE);
5020: FND_MSG_PUB.ADD;
5021: END IF;
5022: CLOSE C_qln_exist;
5023: raise FND_API.G_EXC_ERROR;
5024:
5025: END IF;
5026: CLOSE C_qln_exist;
5027:
5043: FND_MESSAGE.Set_Token ('INFO', 'quote', FALSE);
5044: FND_MSG_PUB.Add;
5045: END IF;
5046: Close C_Get_quote;
5047: raise FND_API.G_EXC_ERROR;
5048: END IF;
5049: Close C_Get_quote;
5050:
5051: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5051: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5052: aso_debug_pub.add('After C_Get_quote Cursor call ',1,'N');
5053: end if;
5054:
5055: If (l_last_update_date is NULL or l_last_update_date = FND_API.G_MISS_Date ) Then
5056:
5057: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5058: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
5059: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
5058: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
5059: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
5060: FND_MSG_PUB.ADD;
5061: END IF;
5062: raise FND_API.G_EXC_ERROR;
5063: End if;
5064:
5065: -- Check Whether record has been changed by someone else
5066: If (trunc(l_last_update_date) <> trunc(p_control_rec.last_update_date)) Then
5069: FND_MESSAGE.Set_Name('ASO', 'API_RECORD_CHANGED');
5070: FND_MESSAGE.Set_Token('INFO', 'quote', FALSE);
5071: FND_MSG_PUB.ADD;
5072: END IF;
5073: raise FND_API.G_EXC_ERROR;
5074: End if;
5075:
5076: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5077: aso_debug_pub.add('After Last update date validation',1,'N');
5092: end if;
5093:
5094: -- the control rec does not set auto version to 'Y' then it should not be versioned
5095:
5096: IF p_control_rec.auto_version_flag = FND_API.G_TRUE AND NVL(l_auto_version,'Y') = 'Y' THEN
5097:
5098: OPEN C_Qte_Version(l_quote_number);
5099: FETCH C_Qte_Version into l_quote_version;
5100: l_quote_version := nvl(l_quote_version, 0) + 1;
5110: IF l_auto_version = 'Y' THEN
5111:
5112: l_old_header_rec := ASO_UTILITY_PVT.Query_Header_Row(p_qte_line_rec.QUOTE_HEADER_ID);
5113:
5114: l_copy_quote_control_rec.new_version := FND_API.G_TRUE;
5115: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
5116:
5117: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
5118: P_Init_Msg_List => FND_API.G_FALSE,
5114: l_copy_quote_control_rec.new_version := FND_API.G_TRUE;
5115: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
5116:
5117: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
5118: P_Init_Msg_List => FND_API.G_FALSE,
5119: P_Commit => FND_API.G_FALSE,
5120: P_Copy_Quote_Header_Rec => l_copy_quote_header_rec,
5121: P_Copy_Quote_Control_Rec => l_copy_quote_control_rec,
5122: X_Qte_Header_Id => x_quote_header_id,
5115: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
5116:
5117: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
5118: P_Init_Msg_List => FND_API.G_FALSE,
5119: P_Commit => FND_API.G_FALSE,
5120: P_Copy_Quote_Header_Rec => l_copy_quote_header_rec,
5121: P_Copy_Quote_Control_Rec => l_copy_quote_control_rec,
5122: X_Qte_Header_Id => x_quote_header_id,
5123: X_Qte_Number => l_qte_nbr,
5161: END IF; -- update header flag
5162:
5163: /* Code change for Quoting Usability Sun ER Start */
5164:
5165: IF P_Control_Rec.Change_Customer_flag = FND_API.G_TRUE THEN
5166:
5167: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5168: aso_debug_pub.add('Update_Quote_Line - P_Control_Rec.Change_Customer_flag is True', 1, 'Y');
5169: END IF ;
5212: l_line_rec.PRICE_LIST_ID := Null;
5213: l_line_rec.CURRENCY_CODE := Null;
5214:
5215: IF (l_line_rec.AGREEMENT_ID IS NOT NULL AND
5216: l_line_rec.AGREEMENT_ID <> FND_API.G_MISS_NUM) THEN
5217:
5218: Open C_AGREEMENT(l_line_rec.AGREEMENT_ID,l_line_rec.INVOICE_TO_CUST_ACCOUNT_ID);
5219: Fetch C_AGREEMENT Into l_var;
5220: Close C_AGREEMENT;
5317: aso_debug_pub.add('Update_Quote_line: After call to ASO_DEFAULTING_INT.Default_Entity', 1, 'Y');
5318: aso_debug_pub.add('Update_Quote_line: x_return_status: '|| x_return_status, 1, 'Y');
5319: End If;
5320:
5321: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5322:
5323: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5324: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_DEFAULTING');
5325: FND_MSG_PUB.ADD;
5324: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_DEFAULTING');
5325: FND_MSG_PUB.ADD;
5326: END IF;
5327:
5328: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5330: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5331: RAISE FND_API.G_EXC_ERROR;
5332: END IF;
5325: FND_MSG_PUB.ADD;
5326: END IF;
5327:
5328: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5330: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5331: RAISE FND_API.G_EXC_ERROR;
5332: END IF;
5333: END IF;
5326: END IF;
5327:
5328: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5330: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5331: RAISE FND_API.G_EXC_ERROR;
5332: END IF;
5333: END IF;
5334:
5327:
5328: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5330: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5331: RAISE FND_API.G_EXC_ERROR;
5332: END IF;
5333: END IF;
5334:
5335: IF aso_quote_headers_pvt.Shipment_Null_Rec_Exists(lx_ln_shipment_rec, l_db_object_name) THEN
5351: lx_ln_shipment_tbl := l_ln_Shipment_Tbl;
5352: lx_ln_payment_tbl := l_ln_payment_tbl;
5353: END IF;
5354:
5355: ELSIF P_Control_Rec.Change_Customer_flag = FND_API.G_FALSE THEN
5356:
5357: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5358: aso_debug_pub.add('Update_Quote_Line - P_Control_Rec.Change_Customer_flag is FALSE', 1, 'Y');
5359: END IF ;
5371:
5372: IF ( P_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
5373:
5374: ASO_VALIDATE_PVT.Validate_Item_Type_Code(
5375: p_init_msg_list => FND_API.G_FALSE,
5376: p_item_type_code => lx_qte_line_rec.item_type_code,
5377: x_return_status => x_return_status,
5378: x_msg_count => x_msg_count,
5379: x_msg_data => x_msg_data);
5377: x_return_status => x_return_status,
5378: x_msg_count => x_msg_count,
5379: x_msg_data => x_msg_data);
5380:
5381: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5382: RAISE FND_API.G_EXC_ERROR;
5383: END IF;
5384:
5385: -- invoice_to_party_id must exist and be active in HZ_PARTIES and have the usage INVOICE.
5378: x_msg_count => x_msg_count,
5379: x_msg_data => x_msg_data);
5380:
5381: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5382: RAISE FND_API.G_EXC_ERROR;
5383: END IF;
5384:
5385: -- invoice_to_party_id must exist and be active in HZ_PARTIES and have the usage INVOICE.
5386:
5384:
5385: -- invoice_to_party_id must exist and be active in HZ_PARTIES and have the usage INVOICE.
5386:
5387: ASO_VALIDATE_PVT.Validate_Party (
5388: p_init_msg_list => FND_API.G_FALSE,
5389: p_party_id => lx_qte_line_rec.invoice_to_party_id,
5390: p_party_usage => 'INVOICE',
5391: x_return_status => x_return_status,
5392: x_msg_count => x_msg_count,
5395: if aso_debug_pub.g_debug_flag = 'Y' THEN
5396: aso_debug_pub.add('after validate invoice to party: x_return_status: '||x_return_status, 1, 'N');
5397: end if;
5398:
5399: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5403: ASO_VALIDATE_PVT.Validate_PartySite (
5396: aso_debug_pub.add('after validate invoice to party: x_return_status: '||x_return_status, 1, 'N');
5397: end if;
5398:
5399: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5403: ASO_VALIDATE_PVT.Validate_PartySite (
5404: p_init_msg_list => FND_API.G_FALSE,
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5403: ASO_VALIDATE_PVT.Validate_PartySite (
5404: p_init_msg_list => FND_API.G_FALSE,
5405: p_party_id => lx_qte_line_rec.invoice_to_party_id,
5406: p_party_site_id => lx_qte_line_rec.invoice_to_party_site_id,
5407: p_site_usage => 'INVOICE',
5408: x_return_status => x_return_status,
5412: if aso_debug_pub.g_debug_flag = 'Y' THEN
5413: aso_debug_pub.add('after validate invoice to party site: x_return_status: '||x_return_status, 1, 'N');
5414: end if;
5415:
5416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5417: RAISE FND_API.G_EXC_ERROR;
5418: END IF;
5419:
5420: -- price list must exist and be active in OE_PRICE_LISTS
5413: aso_debug_pub.add('after validate invoice to party site: x_return_status: '||x_return_status, 1, 'N');
5414: end if;
5415:
5416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5417: RAISE FND_API.G_EXC_ERROR;
5418: END IF;
5419:
5420: -- price list must exist and be active in OE_PRICE_LISTS
5421: ASO_VALIDATE_PVT.Validate_PriceList (
5418: END IF;
5419:
5420: -- price list must exist and be active in OE_PRICE_LISTS
5421: ASO_VALIDATE_PVT.Validate_PriceList (
5422: p_init_msg_list => FND_API.G_FALSE,
5423: p_price_list_id => lx_qte_line_rec.price_list_id,
5424: x_return_status => x_return_status,
5425: x_msg_count => x_msg_count,
5426: x_msg_data => x_msg_data);
5424: x_return_status => x_return_status,
5425: x_msg_count => x_msg_count,
5426: x_msg_data => x_msg_data);
5427:
5428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5429: RAISE FND_API.G_EXC_ERROR;
5430: END IF;
5431:
5432: ASO_VALIDATE_PVT.Validate_Quote_Price_Exp(
5425: x_msg_count => x_msg_count,
5426: x_msg_data => x_msg_data);
5427:
5428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5429: RAISE FND_API.G_EXC_ERROR;
5430: END IF;
5431:
5432: ASO_VALIDATE_PVT.Validate_Quote_Price_Exp(
5433: p_init_msg_list => FND_API.G_FALSE,
5429: RAISE FND_API.G_EXC_ERROR;
5430: END IF;
5431:
5432: ASO_VALIDATE_PVT.Validate_Quote_Price_Exp(
5433: p_init_msg_list => FND_API.G_FALSE,
5434: p_price_list_id => lx_qte_line_rec.price_list_id,
5435: p_quote_expiration_date => l_quote_exp_date,
5436: x_return_status => x_return_status,
5437: x_msg_count => x_msg_count,
5436: x_return_status => x_return_status,
5437: x_msg_count => x_msg_count,
5438: x_msg_data => x_msg_data);
5439:
5440: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5441:
5442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5443: FND_MESSAGE.Set_Name('ASO', 'API_INVALID_ID');
5444: FND_MESSAGE.Set_Token('COLUMN', 'Price List Expires Before Quote', FALSE);
5444: FND_MESSAGE.Set_Token('COLUMN', 'Price List Expires Before Quote', FALSE);
5445: FND_MSG_PUB.ADD;
5446: END IF;
5447:
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450:
5451: if aso_debug_pub.g_debug_flag = 'Y' THEN
5452: aso_debug_pub.add('After call to Validate_Quote_Price_Exp: x_return_status: '|| x_return_status, 1, 'Y');
5460: aso_debug_pub.add('before validating ship_to party: '||nvl(to_char(lx_ln_shipment_tbl(i).ship_to_party_id), 'null'),1,'N');
5461: end if;
5462:
5463: ASO_VALIDATE_PVT.Validate_Party (
5464: p_init_msg_list => FND_API.G_FALSE,
5465: p_party_id => lx_ln_shipment_tbl(i).ship_to_party_id,
5466: p_party_usage => 'SHIP',
5467: x_return_status => x_return_status,
5468: x_msg_count => x_msg_count,
5471: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5472: aso_debug_pub.add('after validate ship to party: x_return_status: '||x_return_status, 1, 'N');
5473: end if;
5474:
5475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5476: RAISE FND_API.G_EXC_ERROR;
5477: END IF;
5478:
5479: if aso_debug_pub.g_debug_flag = 'Y' THEN
5472: aso_debug_pub.add('after validate ship to party: x_return_status: '||x_return_status, 1, 'N');
5473: end if;
5474:
5475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5476: RAISE FND_API.G_EXC_ERROR;
5477: END IF;
5478:
5479: if aso_debug_pub.g_debug_flag = 'Y' THEN
5480: aso_debug_pub.add('before validating ship_to party site: '||nvl(to_char(lx_ln_shipment_tbl(i).ship_to_party_site_id),'null'),1,'N');
5480: aso_debug_pub.add('before validating ship_to party site: '||nvl(to_char(lx_ln_shipment_tbl(i).ship_to_party_site_id),'null'),1,'N');
5481: end if;
5482:
5483: ASO_VALIDATE_PVT.Validate_PartySite (
5484: p_init_msg_list => FND_API.G_FALSE,
5485: p_party_id => lx_ln_shipment_tbl(i).ship_to_party_id,
5486: p_party_site_id => lx_ln_shipment_tbl(i).ship_to_party_site_id,
5487: p_site_usage => 'SHIP',
5488: x_return_status => x_return_status,
5492: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5493: aso_debug_pub.add('after validate ship to party site: x_return_status: '||x_return_status, 1, 'N');
5494: end if;
5495:
5496: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5497: RAISE FND_API.G_EXC_ERROR;
5498: END IF;
5499:
5500: End LOOP;
5493: aso_debug_pub.add('after validate ship to party site: x_return_status: '||x_return_status, 1, 'N');
5494: end if;
5495:
5496: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5497: RAISE FND_API.G_EXC_ERROR;
5498: END IF;
5499:
5500: End LOOP;
5501:
5500: End LOOP;
5501:
5502:
5503: ASO_VALIDATE_PVT.Validate_Marketing_Source_Code(
5504: p_init_msg_list => FND_API.G_FALSE,
5505: p_mkting_source_code_id => lx_qte_line_rec.marketing_source_code_id,
5506: x_return_status => x_return_status,
5507: x_msg_count => x_msg_count,
5508: x_msg_data => x_msg_data);
5510: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5511: aso_debug_pub.add('after marketing source code: x_return_status: '|| x_return_status, 1, 'Y');
5512: end if;
5513:
5514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5515: RAISE FND_API.G_EXC_ERROR;
5516: END IF;
5517:
5518:
5511: aso_debug_pub.add('after marketing source code: x_return_status: '|| x_return_status, 1, 'Y');
5512: end if;
5513:
5514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5515: RAISE FND_API.G_EXC_ERROR;
5516: END IF;
5517:
5518:
5519: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
5518:
5519: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
5520:
5521: ASO_VALIDATE_PVT.Validate_Service_Duration(
5522: p_init_msg_list => FND_API.G_FALSE,
5523: p_service_duration => p_qte_line_dtl_tbl(i).service_duration,
5524: x_return_status => x_return_status,
5525: x_msg_count => x_msg_count,
5526: x_msg_data => x_msg_data);
5528: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5529: aso_debug_pub.add('after service duration: x_return_status: '|| x_return_status, 1, 'Y');
5530: end if;
5531:
5532: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5533: RAISE FND_API.G_EXC_ERROR;
5534: END IF;
5535:
5536: END LOOP;
5529: aso_debug_pub.add('after service duration: x_return_status: '|| x_return_status, 1, 'Y');
5530: end if;
5531:
5532: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5533: RAISE FND_API.G_EXC_ERROR;
5534: END IF;
5535:
5536: END LOOP;
5537:
5544:
5545: if (p_sales_credit_tbl(i).operation_code = 'CREATE' or p_sales_credit_tbl(i).operation_code = 'UPDATE') then
5546:
5547: ASO_VALIDATE_PVT.Validate_Resource_id(
5548: p_init_msg_list => FND_API.G_FALSE,
5549: p_resource_id => p_sales_credit_tbl(i).resource_id ,
5550: x_return_status => x_return_status,
5551: x_msg_count => x_msg_count,
5552: x_msg_data => x_msg_data);
5550: x_return_status => x_return_status,
5551: x_msg_count => x_msg_count,
5552: x_msg_data => x_msg_data);
5553:
5554: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5555:
5556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5557: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_SALES_REP_ID');
5558: FND_MSG_PUB.ADD;
5556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5557: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_SALES_REP_ID');
5558: FND_MSG_PUB.ADD;
5559: END IF;
5560: RAISE FND_API.G_EXC_ERROR;
5561: END IF;
5562:
5563: ASO_VALIDATE_PVT.Validate_Resource_group_id(
5564: p_init_msg_list => FND_API.G_FALSE,
5560: RAISE FND_API.G_EXC_ERROR;
5561: END IF;
5562:
5563: ASO_VALIDATE_PVT.Validate_Resource_group_id(
5564: p_init_msg_list => FND_API.G_FALSE,
5565: p_resource_group_id => p_sales_credit_tbl(i).resource_group_id,
5566: x_return_status => x_return_status,
5567: x_msg_count => x_msg_count,
5568: x_msg_data => x_msg_data);
5566: x_return_status => x_return_status,
5567: x_msg_count => x_msg_count,
5568: x_msg_data => x_msg_data);
5569:
5570: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5571: RAISE FND_API.G_EXC_ERROR;
5572: END IF;
5573:
5574: ASO_VALIDATE_PVT.Validate_Salescredit_Type(
5567: x_msg_count => x_msg_count,
5568: x_msg_data => x_msg_data);
5569:
5570: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5571: RAISE FND_API.G_EXC_ERROR;
5572: END IF;
5573:
5574: ASO_VALIDATE_PVT.Validate_Salescredit_Type(
5575: p_init_msg_list => FND_API.G_FALSE,
5571: RAISE FND_API.G_EXC_ERROR;
5572: END IF;
5573:
5574: ASO_VALIDATE_PVT.Validate_Salescredit_Type(
5575: p_init_msg_list => FND_API.G_FALSE,
5576: p_salescredit_type_id => p_sales_credit_tbl(i).sales_credit_type_id,
5577: x_return_status => x_return_status,
5578: x_msg_count => x_msg_count,
5579: x_msg_data => x_msg_data);
5577: x_return_status => x_return_status,
5578: x_msg_count => x_msg_count,
5579: x_msg_data => x_msg_data);
5580:
5581: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5582: RAISE FND_API.G_EXC_ERROR;
5583: END IF;
5584:
5585: ASO_VALIDATE_PVT.Validate_EmployPerson(
5578: x_msg_count => x_msg_count,
5579: x_msg_data => x_msg_data);
5580:
5581: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5582: RAISE FND_API.G_EXC_ERROR;
5583: END IF;
5584:
5585: ASO_VALIDATE_PVT.Validate_EmployPerson(
5586: p_init_msg_list => FND_API.G_FALSE,
5582: RAISE FND_API.G_EXC_ERROR;
5583: END IF;
5584:
5585: ASO_VALIDATE_PVT.Validate_EmployPerson(
5586: p_init_msg_list => FND_API.G_FALSE,
5587: p_employee_id => p_sales_credit_tbl(i).employee_person_id,
5588: x_return_status => x_return_status,
5589: x_msg_count => x_msg_count,
5590: x_msg_data => x_msg_data);
5588: x_return_status => x_return_status,
5589: x_msg_count => x_msg_count,
5590: x_msg_data => x_msg_data);
5591:
5592: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5593: RAISE FND_API.G_EXC_ERROR;
5594: END IF;
5595:
5596: end if;
5589: x_msg_count => x_msg_count,
5590: x_msg_data => x_msg_data);
5591:
5592: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5593: RAISE FND_API.G_EXC_ERROR;
5594: END IF;
5595:
5596: end if;
5597:
5601: /* commented by bmishra on 12/15/2004 as we are not using quote_party_tbl
5602: FOR i in 1..p_quote_party_tbl.count LOOP
5603:
5604: ASO_VALIDATE_PVT.Validate_Party_Type(
5605: p_init_msg_list => FND_API.G_FALSE,
5606: p_party_type => p_quote_party_tbl(i).party_type,
5607: x_return_status => x_return_status,
5608: x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5607: x_return_status => x_return_status,
5608: x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5610:
5611: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5615: ASO_VALIDATE_PVT.Validate_Party(
5608: x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5610:
5611: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5615: ASO_VALIDATE_PVT.Validate_Party(
5616: p_init_msg_list => FND_API.G_FALSE,
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5615: ASO_VALIDATE_PVT.Validate_Party(
5616: p_init_msg_list => FND_API.G_FALSE,
5617: p_party_id => p_quote_party_tbl(i).party_id,
5618: p_party_usage => null,
5619: x_return_status => x_return_status,
5620: x_msg_count => x_msg_count,
5619: x_return_status => x_return_status,
5620: x_msg_count => x_msg_count,
5621: x_msg_data => x_msg_data);
5622:
5623: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5624: RAISE FND_API.G_EXC_ERROR;
5625: END IF;
5626:
5627: ASO_VALIDATE_PVT.Validate_Party_Object_Type(
5620: x_msg_count => x_msg_count,
5621: x_msg_data => x_msg_data);
5622:
5623: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5624: RAISE FND_API.G_EXC_ERROR;
5625: END IF;
5626:
5627: ASO_VALIDATE_PVT.Validate_Party_Object_Type(
5628: p_init_msg_list => FND_API.G_FALSE,
5624: RAISE FND_API.G_EXC_ERROR;
5625: END IF;
5626:
5627: ASO_VALIDATE_PVT.Validate_Party_Object_Type(
5628: p_init_msg_list => FND_API.G_FALSE,
5629: p_party_object_type => p_quote_party_tbl(i).party_object_type,
5630: x_return_status => x_return_status,
5631: x_msg_count => x_msg_count,
5632: x_msg_data => x_msg_data);
5629: p_party_object_type => p_quote_party_tbl(i).party_object_type,
5630: x_return_status => x_return_status,
5631: x_msg_count => x_msg_count,
5632: x_msg_data => x_msg_data);
5633: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5636:
5637: END LOOP;
5630: x_return_status => x_return_status,
5631: x_msg_count => x_msg_count,
5632: x_msg_data => x_msg_data);
5633: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5636:
5637: END LOOP;
5638: */
5638: */
5639:
5640:
5641: ASO_VALIDATE_PVT.Validate_MiniSite(
5642: p_init_msg_list => FND_API.G_FALSE,
5643: p_minisite_id => lx_qte_line_rec.minisite_id,
5644: x_return_status => x_return_status,
5645: x_msg_count => x_msg_count,
5646: x_msg_data => x_msg_data);
5644: x_return_status => x_return_status,
5645: x_msg_count => x_msg_count,
5646: x_msg_data => x_msg_data);
5647:
5648: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: ASO_VALIDATE_PVT.Validate_Section(
5645: x_msg_count => x_msg_count,
5646: x_msg_data => x_msg_data);
5647:
5648: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: ASO_VALIDATE_PVT.Validate_Section(
5653: p_init_msg_list => FND_API.G_FALSE,
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: ASO_VALIDATE_PVT.Validate_Section(
5653: p_init_msg_list => FND_API.G_FALSE,
5654: p_section_id => lx_qte_line_rec.section_id,
5655: x_return_status => x_return_status,
5656: x_msg_count => x_msg_count,
5657: x_msg_data => x_msg_data);
5655: x_return_status => x_return_status,
5656: x_msg_count => x_msg_count,
5657: x_msg_data => x_msg_data);
5658:
5659: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5660: RAISE FND_API.G_EXC_ERROR;
5661: END IF;
5662:
5663: END IF;
5656: x_msg_count => x_msg_count,
5657: x_msg_data => x_msg_data);
5658:
5659: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5660: RAISE FND_API.G_EXC_ERROR;
5661: END IF;
5662:
5663: END IF;
5664:
5669:
5670:
5671: IF p_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_RECORD THEN
5672:
5673: IF lx_qte_line_rec.organization_id is NULL or lx_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
5674:
5675: IF lx_qte_line_rec.org_id is NULL OR lx_qte_line_rec.org_id = FND_API.G_MISS_NUM THEN
5676:
5677: OPEN C_org_id;
5671: IF p_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_RECORD THEN
5672:
5673: IF lx_qte_line_rec.organization_id is NULL or lx_qte_line_rec.organization_id = FND_API.G_MISS_NUM THEN
5674:
5675: IF lx_qte_line_rec.org_id is NULL OR lx_qte_line_rec.org_id = FND_API.G_MISS_NUM THEN
5676:
5677: OPEN C_org_id;
5678: FETCH C_org_id into l_org_id;
5679:
5698:
5699: END IF;
5700:
5701:
5702: IF lx_qte_line_rec.inventory_item_id is NULL OR lx_qte_line_rec.inventory_item_id = FND_API.G_MISS_NUM THEN
5703:
5704: SELECT inventory_item_id INTO l_inventory_item_id
5705: FROM aso_quote_lines_all
5706: WHERE quote_line_id = lx_qte_line_rec.quote_line_id;
5719:
5720: -- UOM must exist and should be in ASO_I_UNITS_OF_MEASURE
5721:
5722: ASO_VALIDATE_PVT.Validate_UOM_code(
5723: p_init_msg_list => FND_API.G_FALSE,
5724: p_uom_code => lx_qte_line_rec.uom_code,
5725: p_organization_id => l_organization_id,
5726: p_inventory_item_id => l_inventory_item_id,
5727: x_return_status => x_return_status,
5727: x_return_status => x_return_status,
5728: x_msg_count => x_msg_count,
5729: x_msg_data => x_msg_data);
5730:
5731: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5732: RAISE FND_API.G_EXC_ERROR;
5733: END IF;
5734:
5735:
5728: x_msg_count => x_msg_count,
5729: x_msg_data => x_msg_data);
5730:
5731: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5732: RAISE FND_API.G_EXC_ERROR;
5733: END IF;
5734:
5735:
5736: ASO_VALIDATE_PVT.Validate_For_GreaterEndDate (
5733: END IF;
5734:
5735:
5736: ASO_VALIDATE_PVT.Validate_For_GreaterEndDate (
5737: p_init_msg_list => FND_API.G_FALSE,
5738: p_start_date => lx_qte_line_rec.start_date_active,
5739: p_end_date => lx_qte_line_rec.end_date_active,
5740: x_return_status => x_return_status,
5741: x_msg_count => x_msg_count,
5740: x_return_status => x_return_status,
5741: x_msg_count => x_msg_count,
5742: x_msg_data => x_msg_data);
5743:
5744: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5745:
5746: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5747: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5748: FND_MESSAGE.Set_Token('INFO', 'END_DATE', FALSE);
5747: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5748: FND_MESSAGE.Set_Token('INFO', 'END_DATE', FALSE);
5749: FND_MSG_PUB.ADD;
5750: END IF;
5751: RAISE FND_API.G_EXC_ERROR;
5752: END IF;
5753:
5754: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5755: aso_debug_pub.add('validate greater end date'|| x_return_status , 1, 'Y');
5757:
5758: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
5759:
5760: ASO_VALIDATE_PVT.Validate_Returns(
5761: p_init_msg_list => FND_API.G_FALSE,
5762: p_return_ref_type_code => p_qte_line_dtl_tbl(i).return_ref_type,
5763: p_return_ref_header_id => p_qte_line_dtl_tbl(i).return_ref_header_id,
5764: p_return_ref_line_id => p_qte_line_dtl_tbl(i).return_ref_line_id,
5765: x_return_status => x_return_status,
5765: x_return_status => x_return_status,
5766: x_msg_count => x_msg_count,
5767: x_msg_data => x_msg_data);
5768:
5769: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5770:
5771: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5772: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5773: FND_MESSAGE.Set_Token('INFO', 'RETURN', FALSE);
5772: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5773: FND_MESSAGE.Set_Token('INFO', 'RETURN', FALSE);
5774: FND_MSG_PUB.ADD;
5775: END IF;
5776: RAISE FND_API.G_EXC_ERROR;
5777: END IF;
5778:
5779: END LOOP;
5780:
5787:
5788: FOR i in 1..p_tax_detail_tbl.count LOOP
5789:
5790: ASO_VALIDATE_PVT.Validate_Tax_Exemption (
5791: p_init_msg_list => FND_API.G_FALSE,
5792: p_tax_exempt_flag => p_tax_detail_tbl(i).tax_exempt_flag,
5793: p_tax_exempt_reason_code => p_tax_detail_tbl(i).tax_exempt_reason_code,
5794: x_return_status => x_return_status,
5795: x_msg_count => x_msg_count,
5794: x_return_status => x_return_status,
5795: x_msg_count => x_msg_count,
5796: x_msg_data => x_msg_data);
5797:
5798: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5799:
5800: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5801: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5802: FND_MESSAGE.Set_Token('INFO', 'TAX', FALSE);
5801: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5802: FND_MESSAGE.Set_Token('INFO', 'TAX', FALSE);
5803: FND_MSG_PUB.ADD;
5804: END IF;
5805: RAISE FND_API.G_EXC_ERROR;
5806: END IF;
5807:
5808: END LOOP;
5809:
5820: aso_debug_pub.add('ASO_QUOTE_LINES_PVT:Update_Quote_Lines:config_item_id: '|| p_qte_line_dtl_tbl(i).config_item_id,1,'N');
5821: end if;
5822:
5823: IF ((p_qte_line_dtl_tbl(i).config_header_id IS NOT NULL AND
5824: p_qte_line_dtl_tbL(i).config_header_id <> FND_API.G_MISS_NUM) AND
5825: (p_qte_line_dtl_tbl(i).config_revision_num IS NOT NULL AND
5826: p_qte_line_dtl_tbl(i).config_revision_num <> FND_API.G_MISS_NUM) AND
5827: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
5828: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
5822:
5823: IF ((p_qte_line_dtl_tbl(i).config_header_id IS NOT NULL AND
5824: p_qte_line_dtl_tbL(i).config_header_id <> FND_API.G_MISS_NUM) AND
5825: (p_qte_line_dtl_tbl(i).config_revision_num IS NOT NULL AND
5826: p_qte_line_dtl_tbl(i).config_revision_num <> FND_API.G_MISS_NUM) AND
5827: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
5828: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
5829:
5830: ASO_VALIDATE_PVT.Validate_Configuration(
5824: p_qte_line_dtl_tbL(i).config_header_id <> FND_API.G_MISS_NUM) AND
5825: (p_qte_line_dtl_tbl(i).config_revision_num IS NOT NULL AND
5826: p_qte_line_dtl_tbl(i).config_revision_num <> FND_API.G_MISS_NUM) AND
5827: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
5828: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
5829:
5830: ASO_VALIDATE_PVT.Validate_Configuration(
5831: p_init_msg_list => FND_API.G_FALSE,
5832: p_config_header_id => p_qte_line_dtl_tbl(i).config_header_id,
5827: (p_qte_line_dtl_tbl(i).config_item_id IS NOT NULL AND
5828: p_qte_line_dtl_tbl(i).config_item_id <> FND_API.G_MISS_NUM)) THEN
5829:
5830: ASO_VALIDATE_PVT.Validate_Configuration(
5831: p_init_msg_list => FND_API.G_FALSE,
5832: p_config_header_id => p_qte_line_dtl_tbl(i).config_header_id,
5833: p_config_revision_num => p_qte_line_dtl_tbl(i).config_revision_num,
5834: p_config_item_id => p_qte_line_dtl_tbl(i).config_item_id,
5835: x_return_status => x_return_status,
5839: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5840: aso_debug_pub.add('Update_Quote_Lines after Validate_Configuration :x_return_status:'||x_return_status,1, 'N');
5841: end if;
5842:
5843: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5844:
5845: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5846: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5847: FND_MESSAGE.Set_Token('INFO', 'CONFIGURATION', FALSE);
5846: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5847: FND_MESSAGE.Set_Token('INFO', 'CONFIGURATION', FALSE);
5848: FND_MSG_PUB.ADD;
5849: END IF;
5850: RAISE FND_API.G_EXC_ERROR;
5851: END IF;
5852: END IF;
5853:
5854: END LOOP;
5860:
5861: FOR i in 1..p_qte_line_dtl_tbl.count LOOP
5862:
5863: ASO_VALIDATE_PVT.Validate_Delayed_Service(
5864: p_init_msg_list => FND_API.G_FALSE,
5865: p_service_ref_type_code => p_qte_line_dtl_tbl(i).service_ref_type_code,
5866: p_service_ref_line_id => p_qte_line_dtl_tbl(i).service_ref_line_id,
5867: p_service_ref_system_id => p_qte_line_dtl_tbl(i).service_ref_system_id,
5868: x_return_status => x_return_status,
5868: x_return_status => x_return_status,
5869: x_msg_count => x_msg_count,
5870: x_msg_data => x_msg_data);
5871:
5872: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5873:
5874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5875: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5876: FND_MESSAGE.Set_Token('INFO', 'DELAYED SERVICE', FALSE);
5875: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5876: FND_MESSAGE.Set_Token('INFO', 'DELAYED SERVICE', FALSE);
5877: FND_MSG_PUB.ADD;
5878: END IF;
5879: RAISE FND_API.G_EXC_ERROR;
5880: END IF;
5881:
5882: END LOOP;
5883:
5889:
5890: FOR i in 1..p_quote_party_tbl.count LOOP
5891:
5892: ASO_VALIDATE_PVT.Validate_Party_Object_Id(
5893: p_init_msg_list => FND_API.G_FALSE,
5894: p_party_id => p_quote_party_tbl(i).party_id,
5895: p_party_object_type => p_quote_party_tbl(i).party_object_type,
5896: p_party_object_id => p_quote_party_tbl(i).party_object_id,
5897: x_return_status => x_return_status,
5896: p_party_object_id => p_quote_party_tbl(i).party_object_id,
5897: x_return_status => x_return_status,
5898: x_msg_count => x_msg_count,
5899: x_msg_data => x_msg_data);
5900: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5902: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5903: FND_MESSAGE.Set_Token('INFO', 'PARTY OBJECT ID', FALSE);
5904: FND_MSG_PUB.ADD;
5902: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
5903: FND_MESSAGE.Set_Token('INFO', 'PARTY OBJECT ID', FALSE);
5904: FND_MSG_PUB.ADD;
5905: END IF;
5906: RAISE FND_API.G_EXC_ERROR;
5907: END IF;
5908: END LOOP;
5909: */
5910:
5934:
5935: IF (l_db_shipment_rec.ship_from_org_id <> lx_ln_shipment_tbl(1).ship_from_org_id) OR
5936: ((l_db_qte_line_rec.inventory_item_id <> lx_qte_line_rec.inventory_item_id) AND
5937: ((lx_ln_shipment_tbl(1).ship_from_org_id IS NOT NULL) AND
5938: (lx_ln_shipment_tbl(1).ship_from_org_id <> FND_API.G_MISS_NUM))) THEN
5939:
5940: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5941: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_Line: before Validate_ship_from_org_ID', 1, 'Y');
5942: end if;
5949: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5950: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_Line: after Validate_ship_from_org_ID', 1, 'Y');
5951: end if;
5952:
5953: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5954:
5955: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5956: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_Line: after Validate_ship_from_org_ID: <> SUCCESS', 1, 'Y');
5957: end if;
5962: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', lx_qte_line_rec.inventory_item_id, FALSE);
5963: FND_MSG_PUB.ADD;
5964: END IF;
5965:
5966: RAISE FND_API.G_EXC_ERROR;
5967:
5968: END IF;
5969:
5970: END IF;
5981: end if;
5982:
5983: IF (l_db_qte_line_rec.inventory_item_id <> lx_qte_line_rec.inventory_item_id) AND
5984: ((l_db_shipment_rec.ship_from_org_id IS NOT NULL) AND
5985: (l_db_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM)) THEN
5986:
5987: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5988: aso_debug_pub.add('Update_Quote_Line: before Validate_ship_from_org_ID (no lx_ln_shipment_tbl)', 1, 'Y');
5989: end if;
5996: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5997: aso_debug_pub.add('Update_Quote_Line: after Validate_ship_from_org_ID (no lx_ln_shipment_tbl)', 1, 'Y');
5998: end if;
5999:
6000: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6001:
6002: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6003: aso_debug_pub.add('Update_Quote_Line: after Validate_ship_from_org_ID: <> SUCCESS (no lx_ln_shipment_tbl)', 1, 'Y');
6004: end if;
6009: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', lx_qte_line_rec.inventory_item_id, FALSE);
6010: FND_MSG_PUB.ADD;
6011: END IF;
6012:
6013: RAISE FND_API.G_EXC_ERROR;
6014: END IF;
6015:
6016: ELSE
6017:
6014: END IF;
6015:
6016: ELSE
6017:
6018: IF (l_db_shipment_rec.ship_from_org_id IS NULL) OR (l_db_shipment_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
6019:
6020: l_hd_shipment_tbl := ASO_UTILITY_PVT.Query_Shipment_Rows( P_Qte_Header_Id => l_db_qte_line_rec.quote_header_id,
6021: P_Qte_Line_Id => NULL);
6022:
6029: end if;
6030:
6031: IF (l_db_qte_line_rec.inventory_item_id <> lx_qte_line_rec.inventory_item_id) AND
6032: ((l_hd_shipment_rec.ship_from_org_id IS NOT NULL) AND
6033: (l_hd_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM)) THEN
6034:
6035: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6036: aso_debug_pub.add('Update_Quote_Line: before Validate_ship_from_org_ID (no db_shipment_tbl)', 1, 'Y');
6037: end if;
6044: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6045: aso_debug_pub.add('Update_Quote_Line: after Validate_ship_from_org_ID (no db_shipment_tbl)', 1, 'Y');
6046: end if;
6047:
6048: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6049:
6050: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6051: aso_debug_pub.add('after Validate_ship_from_org_ID: <> SUCCESS (no db_shipment_tbl)', 1, 'Y');
6052: end if;
6057: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', lx_qte_line_rec.inventory_item_id, FALSE);
6058: FND_MSG_PUB.ADD;
6059: END IF;
6060:
6061: RAISE FND_API.G_EXC_ERROR;
6062: END IF;
6063:
6064: END IF;
6065:
6082: -- hyang csi change 1935614
6083:
6084: FOR i IN 1..lx_ln_shipment_tbl.count LOOP
6085:
6086: IF lx_ln_shipment_tbl(i).quantity <> FND_API.G_MISS_NUM THEN
6087:
6088: if not (csi_utility_grp.ib_active()) then
6089:
6090: Open C_inst_details( lx_ln_shipment_tbl(i).shipment_id);
6097: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6098: FND_MESSAGE.Set_Name('ASO', 'INST_DETAILS_EXIST');
6099: FND_MSG_PUB.ADD;
6100: END IF;
6101: raise FND_API.G_EXC_ERROR;
6102:
6103: ELSE
6104: close C_inst_details;
6105:
6117: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6118: FND_MESSAGE.Set_Name('ASO', 'INST_DETAILS_EXIST');
6119: FND_MSG_PUB.ADD;
6120: END IF;
6121: raise FND_API.G_EXC_ERROR;
6122:
6123: else
6124: close c_csi_details;
6125:
6137: end if;
6138:
6139: IF lx_qte_line_rec.UOM_Code = 'ENR' THEN
6140:
6141: IF lx_qte_line_rec.Quantity <> FND_API.G_MISS_NUM THEN
6142:
6143: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6144: aso_debug_pub.add('Update_Quote_Line - Invalid Quantity for EDU: ',1, 'N');
6145: end if;
6143: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6144: aso_debug_pub.add('Update_Quote_Line - Invalid Quantity for EDU: ',1, 'N');
6145: end if;
6146:
6147: x_return_status := FND_API.G_RET_STS_ERROR;
6148: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6149: FND_MESSAGE.Set_Name('ASO', 'ASO_EDU_INVALID_QTY');
6150: FND_MSG_PUB.ADD;
6151: END IF;
6148: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6149: FND_MESSAGE.Set_Name('ASO', 'ASO_EDU_INVALID_QTY');
6150: FND_MSG_PUB.ADD;
6151: END IF;
6152: RAISE FND_API.G_EXC_ERROR;
6153:
6154: END IF;
6155:
6156: END IF;
6192: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6193: aso_debug_pub.add('Update_Quote_Line - After call to Populate_Quote_Line: x_return_status: '|| x_return_status ,1, 'N');
6194: end if;
6195:
6196: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6197:
6198: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6199: FND_MESSAGE.Set_Name('ASO', 'ASO_POPULATING_COLUMNS');
6200: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
6200: FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
6201: FND_MSG_PUB.ADD;
6202: END IF;
6203:
6204: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6206: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6201: FND_MSG_PUB.ADD;
6202: END IF;
6203:
6204: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6206: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209:
6202: END IF;
6203:
6204: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6206: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209:
6210: END IF;
6203:
6204: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6206: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209:
6210: END IF;
6211: -- copy the orig payment tbl to another variable as the count of the payment tbl may get changed
6223: ASO_DEBUG_PUB.add('UQ organization_id = '||nvl(to_char(l_Qte_Line_Rec.organization_id),'null') , 1, 'Y');
6224: ASO_DEBUG_PUB.add('UQ Inventory_item_id = '||l_Qte_Line_Rec.inventory_item_id, 1, 'Y');
6225: END IF;
6226:
6227: IF l_Qte_Line_Rec.inventory_item_id <> FND_API.G_MISS_NUM THEN
6228:
6229: ASO_VALIDATE_PVT.Validate_Inventory_Item(
6230: p_init_msg_list => FND_API.G_FALSE,
6231: p_inventory_item_id => l_Qte_Line_Rec.inventory_item_id,
6226:
6227: IF l_Qte_Line_Rec.inventory_item_id <> FND_API.G_MISS_NUM THEN
6228:
6229: ASO_VALIDATE_PVT.Validate_Inventory_Item(
6230: p_init_msg_list => FND_API.G_FALSE,
6231: p_inventory_item_id => l_Qte_Line_Rec.inventory_item_id,
6232: p_organization_id => l_Qte_Line_Rec.organization_id,
6233: x_return_status => x_return_status,
6234: x_msg_count => x_msg_count,
6233: x_return_status => x_return_status,
6234: x_msg_count => x_msg_count,
6235: x_msg_data => x_msg_data);
6236:
6237: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6238: RAISE FND_API.G_EXC_ERROR;
6239: END IF;
6240: END IF ;
6241:
6234: x_msg_count => x_msg_count,
6235: x_msg_data => x_msg_data);
6236:
6237: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6238: RAISE FND_API.G_EXC_ERROR;
6239: END IF;
6240: END IF ;
6241:
6242: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6245:
6246: -- bug 5196952
6247: if (P_shipment_Tbl.count > 0) then
6248:
6249: IF ( p_shipment_tbl(1).ship_method_code is not null and p_shipment_tbl(1).ship_method_code <> fnd_api.g_miss_char) then
6250:
6251: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6252: aso_debug_pub.add('Update_Quote_line - ship method codeof quote line is being updated ', 1, 'N');
6253: aso_debug_pub.add('Update_Quote_line - before validate ship_method_code ', 1, 'N');
6253: aso_debug_pub.add('Update_Quote_line - before validate ship_method_code ', 1, 'N');
6254: end if;
6255: ASO_VALIDATE_PVT.validate_ship_method_code
6256: (
6257: p_init_msg_list => fnd_api.g_false,
6258: p_qte_header_id => lx_qte_line_rec.quote_header_id,
6259: p_qte_line_id => lx_qte_line_rec.quote_line_id,
6260: p_organization_id => lx_qte_line_rec.organization_id,
6261: p_ship_method_code => p_shipment_tbl(1).ship_method_code,
6267: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6268: aso_debug_pub.add('Update_Quote_line - After validate ship_method_code ', 1, 'N');
6269: end if;
6270:
6271: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6274: end if; -- end if for ship method code check
6275: elsif (lx_qte_line_rec.organization_id is not null and lx_qte_line_rec.organization_id <> fnd_api.g_miss_num and P_shipment_Tbl.count = 0) then
6268: aso_debug_pub.add('Update_Quote_line - After validate ship_method_code ', 1, 'N');
6269: end if;
6270:
6271: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6274: end if; -- end if for ship method code check
6275: elsif (lx_qte_line_rec.organization_id is not null and lx_qte_line_rec.organization_id <> fnd_api.g_miss_num and P_shipment_Tbl.count = 0) then
6276: -- this means the organization id on the qte line is being updated, hence need to validate the ship method code again for new organization id
6271: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6274: end if; -- end if for ship method code check
6275: elsif (lx_qte_line_rec.organization_id is not null and lx_qte_line_rec.organization_id <> fnd_api.g_miss_num and P_shipment_Tbl.count = 0) then
6276: -- this means the organization id on the qte line is being updated, hence need to validate the ship method code again for new organization id
6277: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6278: aso_debug_pub.add('Update_Quote_line - Organization id of quote line is being updated ', 1, 'N');
6279: aso_debug_pub.add('Update_Quote_line - before validate ship_method_code ', 1, 'N');
6279: aso_debug_pub.add('Update_Quote_line - before validate ship_method_code ', 1, 'N');
6280: end if;
6281: ASO_VALIDATE_PVT.validate_ship_method_code
6282: (
6283: p_init_msg_list => fnd_api.g_false,
6284: p_qte_header_id => lx_qte_line_rec.quote_header_id,
6285: p_qte_line_id => lx_qte_line_rec.quote_line_id,
6286: p_organization_id => lx_qte_line_rec.organization_id,
6287: p_ship_method_code => fnd_api.g_miss_char,
6283: p_init_msg_list => fnd_api.g_false,
6284: p_qte_header_id => lx_qte_line_rec.quote_header_id,
6285: p_qte_line_id => lx_qte_line_rec.quote_line_id,
6286: p_organization_id => lx_qte_line_rec.organization_id,
6287: p_ship_method_code => fnd_api.g_miss_char,
6288: p_operation_code => 'UPDATE',
6289: x_return_status => x_return_status,
6290: x_msg_count => x_msg_count,
6291: x_msg_data => x_msg_data);
6293: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6294: aso_debug_pub.add('Update_Quote_line - After validate ship_method_code ', 1, 'N');
6295: end if;
6296:
6297: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6298: RAISE FND_API.G_EXC_ERROR;
6299: END IF;
6300: end if; -- end if for shipment tbl check
6301:
6294: aso_debug_pub.add('Update_Quote_line - After validate ship_method_code ', 1, 'N');
6295: end if;
6296:
6297: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6298: RAISE FND_API.G_EXC_ERROR;
6299: END IF;
6300: end if; -- end if for shipment tbl check
6301:
6302:
6304:
6305: FOR i in 1..l_qte_line_dtl_tbl.count LOOP
6306:
6307: -- bug 4258846
6308: IF l_Qte_Line_Rec.start_date_active = FND_API.G_MISS_DATE THEN
6309: l_Qte_Line_Rec.start_date_active := l_db_qte_line_rec.start_date_active;
6310: END IF;
6311: IF l_Qte_Line_Rec.end_date_active = FND_API.G_MISS_DATE THEN
6312: l_Qte_Line_Rec.end_date_active := l_db_qte_line_rec.end_date_active;
6307: -- bug 4258846
6308: IF l_Qte_Line_Rec.start_date_active = FND_API.G_MISS_DATE THEN
6309: l_Qte_Line_Rec.start_date_active := l_db_qte_line_rec.start_date_active;
6310: END IF;
6311: IF l_Qte_Line_Rec.end_date_active = FND_API.G_MISS_DATE THEN
6312: l_Qte_Line_Rec.end_date_active := l_db_qte_line_rec.end_date_active;
6313: END IF;
6314: IF l_Qte_Line_Rec.organization_id = FND_API.G_MISS_NUM THEN
6315: l_Qte_Line_Rec.organization_id := l_db_qte_line_rec.organization_id;
6310: END IF;
6311: IF l_Qte_Line_Rec.end_date_active = FND_API.G_MISS_DATE THEN
6312: l_Qte_Line_Rec.end_date_active := l_db_qte_line_rec.end_date_active;
6313: END IF;
6314: IF l_Qte_Line_Rec.organization_id = FND_API.G_MISS_NUM THEN
6315: l_Qte_Line_Rec.organization_id := l_db_qte_line_rec.organization_id;
6316: END IF;
6317:
6318: IF l_db_qte_line_dtl_tbl.COUNT > 0 THEN
6316: END IF;
6317:
6318: IF l_db_qte_line_dtl_tbl.COUNT > 0 THEN
6319:
6320: IF l_qte_line_dtl_tbl(i).service_duration = FND_API.G_MISS_NUM THEN
6321: l_qte_line_dtl_tbl(i).service_duration := l_db_qte_line_dtl_tbl(i).service_duration;
6322: END IF;
6323:
6324: IF l_qte_line_dtl_tbl(i).service_period = FND_API.G_MISS_CHAR THEN
6320: IF l_qte_line_dtl_tbl(i).service_duration = FND_API.G_MISS_NUM THEN
6321: l_qte_line_dtl_tbl(i).service_duration := l_db_qte_line_dtl_tbl(i).service_duration;
6322: END IF;
6323:
6324: IF l_qte_line_dtl_tbl(i).service_period = FND_API.G_MISS_CHAR THEN
6325: l_qte_line_dtl_tbl(i).service_period := l_db_qte_line_dtl_tbl(i).service_period;
6326: END IF;
6327:
6328: IF l_qte_line_dtl_tbl(i).service_coterminate_flag = FND_API.G_MISS_CHAR THEN
6324: IF l_qte_line_dtl_tbl(i).service_period = FND_API.G_MISS_CHAR THEN
6325: l_qte_line_dtl_tbl(i).service_period := l_db_qte_line_dtl_tbl(i).service_period;
6326: END IF;
6327:
6328: IF l_qte_line_dtl_tbl(i).service_coterminate_flag = FND_API.G_MISS_CHAR THEN
6329: l_qte_line_dtl_tbl(i).service_coterminate_flag := l_db_qte_line_dtl_tbl(i).service_coterminate_flag;
6330: END IF;
6331:
6332: END IF;
6331:
6332: END IF;
6333:
6334: ASO_VALIDATE_PVT.Validate_Service(
6335: p_init_msg_list => FND_API.G_FALSE,
6336: p_inventory_item_id => l_Qte_Line_Rec.inventory_item_id,
6337: p_start_date_active => l_Qte_Line_Rec.start_date_active,
6338: p_end_date_active => l_Qte_Line_Rec.end_date_active,
6339: p_service_duration => l_qte_line_dtl_tbl(i).service_duration,
6347: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6348: aso_debug_pub.add('Update_Quote_line: After Validate_Service: x_return_status: '|| x_return_status);
6349: end if;
6350:
6351: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6352:
6353: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6354: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_INFORMATION');
6355: FND_MESSAGE.Set_Token('INFO','SERVICE', FALSE);
6355: FND_MESSAGE.Set_Token('INFO','SERVICE', FALSE);
6356: FND_MSG_PUB.ADD;
6357: END IF;
6358:
6359: RAISE FND_API.G_EXC_ERROR;
6360:
6361: END IF;
6362:
6363: --validate service period
6362:
6363: --validate service period
6364:
6365: ASO_VALIDATE_PVT.Validate_UOM_code(
6366: p_init_msg_list => FND_API.G_FALSE,
6367: p_uom_code => l_qte_line_dtl_tbl(i).service_period,
6368: p_organization_id => l_Qte_Line_Rec.organization_id,
6369: p_inventory_item_id => l_Qte_Line_Rec.inventory_item_id,
6370: x_return_status => x_return_status,
6374: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6375: aso_debug_pub.add('Update_Quote_line: After validate service period: x_return_status: '|| x_return_status);
6376: end if;
6377:
6378: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6379: RAISE FND_API.G_EXC_ERROR;
6380: END IF;
6381:
6382: --Service cannot be added to a product that is being returned
6375: aso_debug_pub.add('Update_Quote_line: After validate service period: x_return_status: '|| x_return_status);
6376: end if;
6377:
6378: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6379: RAISE FND_API.G_EXC_ERROR;
6380: END IF;
6381:
6382: --Service cannot be added to a product that is being returned
6383:
6382: --Service cannot be added to a product that is being returned
6383:
6384: IF l_qte_line_dtl_tbl(i).service_ref_type_code = 'QUOTE'
6385: AND l_qte_line_dtl_tbl(i).service_ref_line_id IS NOT NULL
6386: AND l_qte_line_dtl_tbl(i).service_ref_line_id <> FND_API.G_MISS_NUM THEN
6387:
6388: OPEN C_line_category_code(l_qte_line_dtl_tbl(i).service_ref_line_id);
6389: FETCH C_line_category_code INTO l_line_category_code;
6390:
6396: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SERVICE_REFERENCE');
6397: FND_MSG_PUB.ADD;
6398: END IF;
6399:
6400: RAISE FND_API.G_EXC_ERROR;
6401:
6402: END IF;
6403:
6404: CLOSE C_line_category_code;
6411: aso_debug_pub.add('l_qte_line_dtl_tbl('||i||').service_ref_line_id: ' || l_qte_line_dtl_tbl(i).service_ref_line_id);
6412: end if;
6413:
6414: if l_qte_line_dtl_tbl(i).service_ref_line_id is not null and
6415: l_qte_line_dtl_tbl(i).service_ref_line_id <> fnd_api.g_miss_num then
6416:
6417: if aso_debug_pub.g_debug_flag = 'Y' then
6418: aso_debug_pub.add('l_qte_line_dtl_tbl('||i||').service_ref_type_code: ' || l_qte_line_dtl_tbl(i).service_ref_type_code);
6419: end if;
6418: aso_debug_pub.add('l_qte_line_dtl_tbl('||i||').service_ref_type_code: ' || l_qte_line_dtl_tbl(i).service_ref_type_code);
6419: end if;
6420:
6421: if l_qte_line_dtl_tbl(i).service_ref_type_code is null or
6422: l_qte_line_dtl_tbl(i).service_ref_type_code = fnd_api.g_miss_char then
6423:
6424: open c_service_ref_type_code( l_qte_line_dtl_tbl(i).quote_line_detail_id );
6425: fetch c_service_ref_type_code into l_service_ref_type_code;
6426: close c_service_ref_type_code;
6430: end if;
6431:
6432: if l_service_ref_type_code is null then
6433:
6434: x_return_status := fnd_api.g_ret_sts_error;
6435:
6436: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6437: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
6438: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_TYPE_CODE', FALSE);
6439: FND_MESSAGE.Set_Token('VALUE', l_qte_line_dtl_tbl(i).service_ref_type_code,FALSE);
6440: FND_MSG_PUB.ADD;
6441: END IF;
6442:
6443: raise fnd_api.g_exc_error;
6444:
6445: end if;
6446:
6447: else
6456: aso_debug_pub.add('UPDATE_QUOTE_LINE: Before calling aso_validate_pvt.validate_service_ref_line_id');
6457: end if;
6458:
6459: aso_validate_pvt.validate_service_ref_line_id (
6460: p_init_msg_list => fnd_api.g_false,
6461: p_service_ref_type_code => l_service_ref_type_code,
6462: p_service_ref_line_id => l_qte_line_dtl_tbl(i).service_ref_line_id,
6463: p_qte_header_id => l_Qte_Line_Rec.quote_header_id,
6464: x_return_status => x_return_status,
6469: aso_debug_pub.add('UPDATE_QUOTE_LINE: After calling aso_validate_pvt.validate_service_ref_line_id');
6470: aso_debug_pub.add('UPDATE_QUOTE_LINE: x_return_status: '|| x_return_status);
6471: end if;
6472:
6473: if x_return_status <> fnd_api.g_ret_sts_success then
6474: raise fnd_api.g_exc_error;
6475: end if;
6476:
6477: end if;
6470: aso_debug_pub.add('UPDATE_QUOTE_LINE: x_return_status: '|| x_return_status);
6471: end if;
6472:
6473: if x_return_status <> fnd_api.g_ret_sts_success then
6474: raise fnd_api.g_exc_error;
6475: end if;
6476:
6477: end if;
6478:
6495: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_CATEGORY');
6496: FND_MSG_PUB.ADD;
6497: END IF;
6498:
6499: RAISE FND_API.G_EXC_ERROR;
6500:
6501: END IF;
6502:
6503: CLOSE c_service_exist;
6510: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: UPDATE_QUOTE_LINE: End of Inter entity validations');
6511: end if;
6512:
6513:
6514: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6515: RAISE FND_API.G_EXC_ERROR;
6516: END IF;
6517:
6518: -- order_type must exist and be active in OE_ORDER_TYPES
6511: end if;
6512:
6513:
6514: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6515: RAISE FND_API.G_EXC_ERROR;
6516: END IF;
6517:
6518: -- order_type must exist and be active in OE_ORDER_TYPES
6519: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row(l_Qte_Line_Rec.QUOTE_HEADER_ID);
6524: end if;
6525:
6526: ASO_CHECK_TCA_PVT.check_line_account_info(
6527: p_api_version => 1.0,
6528: p_init_msg_list => FND_API.G_FALSE,
6529: p_cust_account_id => l_qte_header_rec.cust_account_id,
6530: p_qte_line_rec => l_Qte_Line_Rec,
6531: p_line_shipment_tbl => l_shipment_tbl,
6532: p_application_type_code => l_control_rec.application_type_code,
6533: x_return_status => l_return_status,
6534: x_msg_count => l_msg_count,
6535: x_msg_data => l_msg_data );
6536:
6537: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
6538: raise FND_API.G_EXC_ERROR;
6539: END IF;
6540:
6541: ASO_TRADEIN_PVT.LineType( p_init_msg_list => FND_API.G_FALSE,
6534: x_msg_count => l_msg_count,
6535: x_msg_data => l_msg_data );
6536:
6537: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
6538: raise FND_API.G_EXC_ERROR;
6539: END IF;
6540:
6541: ASO_TRADEIN_PVT.LineType( p_init_msg_list => FND_API.G_FALSE,
6542: p_qte_header_rec => l_qte_header_rec,
6537: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
6538: raise FND_API.G_EXC_ERROR;
6539: END IF;
6540:
6541: ASO_TRADEIN_PVT.LineType( p_init_msg_list => FND_API.G_FALSE,
6542: p_qte_header_rec => l_qte_header_rec,
6543: p_qte_line_rec => l_Qte_Line_Rec,
6544: x_return_status => x_return_status,
6545: x_msg_count => x_msg_count,
6544: x_return_status => x_return_status,
6545: x_msg_count => x_msg_count,
6546: x_msg_data => x_msg_data);
6547:
6548: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6549: RAISE FND_API.G_EXC_ERROR;
6550: END IF;
6551:
6552: if aso_debug_pub.g_debug_flag = 'Y' THEN
6545: x_msg_count => x_msg_count,
6546: x_msg_data => x_msg_data);
6547:
6548: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6549: RAISE FND_API.G_EXC_ERROR;
6550: END IF;
6551:
6552: if aso_debug_pub.g_debug_flag = 'Y' THEN
6553: aso_debug_pub.add('after order type'|| x_return_status, 1, 'Y');
6552: if aso_debug_pub.g_debug_flag = 'Y' THEN
6553: aso_debug_pub.add('after order type'|| x_return_status, 1, 'Y');
6554: end if;
6555:
6556: If (p_qte_header_rec.order_type_id = FND_API.G_MISS_NUM) then -- [This is for backward compatibility]
6557: l_db_order_type_id := l_qte_header_rec.order_type_id;
6558: else
6559: l_db_order_type_id := p_qte_header_rec.order_type_id;
6560: end if;
6558: else
6559: l_db_order_type_id := p_qte_header_rec.order_type_id;
6560: end if;
6561:
6562: If (l_db_order_type_id = l_qte_header_rec.order_type_id) and (l_Qte_Line_Rec.order_line_type_id <> FND_API.G_MISS_NUM) Then
6563:
6564: ASO_validate_PVT.Validate_ln_type_for_ord_type(
6565: p_init_msg_list => FND_API.G_FALSE,
6566: p_qte_header_rec => l_qte_header_rec,
6561:
6562: If (l_db_order_type_id = l_qte_header_rec.order_type_id) and (l_Qte_Line_Rec.order_line_type_id <> FND_API.G_MISS_NUM) Then
6563:
6564: ASO_validate_PVT.Validate_ln_type_for_ord_type(
6565: p_init_msg_list => FND_API.G_FALSE,
6566: p_qte_header_rec => l_qte_header_rec,
6567: P_Qte_Line_rec => l_Qte_Line_Rec,
6568: x_return_status => x_return_status,
6569: x_msg_count => x_msg_count,
6568: x_return_status => x_return_status,
6569: x_msg_count => x_msg_count,
6570: x_msg_data => x_msg_data);
6571:
6572: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6573: RAISE FND_API.G_EXC_ERROR;
6574: END IF;
6575:
6576: End if;
6569: x_msg_count => x_msg_count,
6570: x_msg_data => x_msg_data);
6571:
6572: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6573: RAISE FND_API.G_EXC_ERROR;
6574: END IF;
6575:
6576: End if;
6577:
6580: aso_debug_pub.add('x_return_status for Validate_ln_type_for_ord_type'|| x_return_status, 1, 'Y');
6581: END IF;
6582:
6583:
6584: ASO_TRADEIN_PVT.Validate_Line_Tradein( p_init_msg_list => FND_API.G_FALSE,
6585: p_qte_header_rec => l_qte_header_rec,
6586: P_Qte_Line_rec => l_Qte_Line_Rec,
6587: x_return_status => x_return_status,
6588: x_msg_count => x_msg_count,
6587: x_return_status => x_return_status,
6588: x_msg_count => x_msg_count,
6589: x_msg_data => x_msg_data);
6590:
6591: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6592: RAISE FND_API.G_EXC_ERROR;
6593: END IF;
6594:
6595: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6588: x_msg_count => x_msg_count,
6589: x_msg_data => x_msg_data);
6590:
6591: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6592: RAISE FND_API.G_EXC_ERROR;
6593: END IF;
6594:
6595: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6596: aso_debug_pub.add('Update_Quote_Line - after Validate_Line_Tradein:x_return_status: '||x_return_status, 1, 'N');
6595: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6596: aso_debug_pub.add('Update_Quote_Line - after Validate_Line_Tradein:x_return_status: '||x_return_status, 1, 'N');
6597: end if;
6598:
6599: ASO_TRADEIN_PVT.Validate_IB_Return_Qty( p_init_msg_list => FND_API.G_FALSE,
6600: p_Qte_Line_rec => l_Qte_Line_Rec,
6601: p_Qte_Line_Dtl_Tbl => l_qte_line_dtl_tbl,
6602: x_return_status => x_return_status,
6603: x_msg_count => x_msg_count,
6602: x_return_status => x_return_status,
6603: x_msg_count => x_msg_count,
6604: x_msg_data => x_msg_data);
6605:
6606: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6607: RAISE FND_API.G_EXC_ERROR;
6608: END IF;
6609:
6610: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6603: x_msg_count => x_msg_count,
6604: x_msg_data => x_msg_data);
6605:
6606: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6607: RAISE FND_API.G_EXC_ERROR;
6608: END IF;
6609:
6610: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6611: aso_debug_pub.add('Update_Quote_Line - after Validate_IB_Return_Qty:x_return_status: '||x_return_status, 1, 'N');
6613:
6614: IF ( P_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
6615:
6616: ASO_VALIDATE_PVT.Validate_Sales_Credit_Return(
6617: p_init_msg_list => FND_API.G_FALSE,
6618: p_sales_credit_tbl => p_sales_credit_tbl,
6619: p_qte_line_rec => l_Qte_Line_Rec,
6620: x_return_status => x_return_status,
6621: x_msg_count => x_msg_count,
6620: x_return_status => x_return_status,
6621: x_msg_count => x_msg_count,
6622: x_msg_data => x_msg_data);
6623:
6624: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6625: RAISE FND_API.G_EXC_ERROR;
6626: END IF;
6627:
6628: END IF;
6621: x_msg_count => x_msg_count,
6622: x_msg_data => x_msg_data);
6623:
6624: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6625: RAISE FND_API.G_EXC_ERROR;
6626: END IF;
6627:
6628: END IF;
6629:
6630: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6631: aso_debug_pub.add('Update_Quote_Line - before Validate_Agreement:l_Qte_Line_Rec.Agreement_Id: '||l_Qte_Line_Rec.Agreement_Id, 1, 'N');
6632: end if;
6633:
6634: IF (l_Qte_Line_Rec.Agreement_Id IS NOT NULL AND l_Qte_Line_Rec.Agreement_Id <> FND_API.G_MISS_NUM) THEN
6635:
6636: ASO_VALIDATE_PVT.Validate_Agreement(
6637: p_init_msg_list => FND_API.G_FALSE,
6638: P_Agreement_Id => l_Qte_Line_Rec.Agreement_Id,
6633:
6634: IF (l_Qte_Line_Rec.Agreement_Id IS NOT NULL AND l_Qte_Line_Rec.Agreement_Id <> FND_API.G_MISS_NUM) THEN
6635:
6636: ASO_VALIDATE_PVT.Validate_Agreement(
6637: p_init_msg_list => FND_API.G_FALSE,
6638: P_Agreement_Id => l_Qte_Line_Rec.Agreement_Id,
6639: x_return_status => x_return_status,
6640: x_msg_count => x_msg_count,
6641: x_msg_data => x_msg_data);
6643: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6644: aso_debug_pub.add('Update_Quote_Line - after Validate_Agreement:x_return_status: '||x_return_status, 1, 'N');
6645: end if;
6646:
6647: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6648: RAISE FND_API.G_EXC_ERROR;
6649: END IF;
6650:
6651: END IF;
6644: aso_debug_pub.add('Update_Quote_Line - after Validate_Agreement:x_return_status: '||x_return_status, 1, 'N');
6645: end if;
6646:
6647: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6648: RAISE FND_API.G_EXC_ERROR;
6649: END IF;
6650:
6651: END IF;
6652:
6654: IF l_payment_tbl.count = 0 then
6655: l_payment_tbl := aso_utility_pvt.Query_Payment_Rows( l_qte_line_rec.QUOTE_HEADER_ID,l_qte_line_rec.quote_line_id);
6656: Else
6657: -- check to see if the value has been changed, if not get orig value from db
6658: if l_payment_tbl(1).payment_type_code = fnd_api.g_miss_char then
6659: open get_payment_type_code(l_payment_tbl(1).payment_id);
6660: fetch get_payment_type_code into l_payment_tbl(1).payment_type_code;
6661: close get_payment_type_code;
6662: end if;
6662: end if;
6663: End if;
6664:
6665: -- bill to customer may not have been changed, if so get orig value from db
6666: if l_qte_line_rec.invoice_to_cust_party_id = fnd_api.g_miss_num then
6667: open get_bill_to_party(l_qte_line_rec.quote_line_id);
6668: fetch get_bill_to_party into l_qte_line_rec.invoice_to_cust_party_id;
6669: close get_bill_to_party;
6670: end if;
6678: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row (l_qte_line_rec.Quote_Header_Id );
6679:
6680: aso_validate_pvt.Validate_cc_info
6681: (
6682: p_init_msg_list => fnd_api.g_false,
6683: p_payment_rec => l_payment_rec,
6684: p_qte_header_rec => l_qte_header_rec,
6685: P_Qte_Line_rec => l_qte_line_rec,
6686: x_return_status => x_return_status,
6691: aso_debug_pub.add('after calling Validate_cc_info ', 1, 'Y');
6692: aso_debug_pub.add('Validate_cc_info Return Status: '||x_return_status, 1, 'Y');
6693: END IF;
6694:
6695: if x_return_status <> fnd_api.g_ret_sts_success then
6696: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6699: RAISE FND_API.G_EXC_ERROR;
6692: aso_debug_pub.add('Validate_cc_info Return Status: '||x_return_status, 1, 'Y');
6693: END IF;
6694:
6695: if x_return_status <> fnd_api.g_ret_sts_success then
6696: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6699: RAISE FND_API.G_EXC_ERROR;
6700: ELSE
6693: END IF;
6694:
6695: if x_return_status <> fnd_api.g_ret_sts_success then
6696: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6699: RAISE FND_API.G_EXC_ERROR;
6700: ELSE
6701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6694:
6695: if x_return_status <> fnd_api.g_ret_sts_success then
6696: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6699: RAISE FND_API.G_EXC_ERROR;
6700: ELSE
6701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6702: END IF;
6695: if x_return_status <> fnd_api.g_ret_sts_success then
6696: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6699: RAISE FND_API.G_EXC_ERROR;
6700: ELSE
6701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6702: END IF;
6703: end if;
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6699: RAISE FND_API.G_EXC_ERROR;
6700: ELSE
6701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6702: END IF;
6703: end if;
6704: --END IF;
6705:
6811: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6812: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.line_category_code: '||l_Qte_Line_Rec.line_category_code, 1, 'Y');
6813: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.order_line_type_id: '||l_Qte_Line_Rec.order_line_type_id, 1, 'Y');
6814: end if;
6815: IF (l_Qte_Line_Rec.line_category_code <> FND_API.G_MISS_CHAR) OR
6816: (l_Qte_Line_Rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
6817: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6818: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.item_type_code: '||l_Qte_Line_Rec.item_type_code, 1, 'Y');
6819: end if;
6812: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.line_category_code: '||l_Qte_Line_Rec.line_category_code, 1, 'Y');
6813: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.order_line_type_id: '||l_Qte_Line_Rec.order_line_type_id, 1, 'Y');
6814: end if;
6815: IF (l_Qte_Line_Rec.line_category_code <> FND_API.G_MISS_CHAR) OR
6816: (l_Qte_Line_Rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
6817: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6818: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.item_type_code: '||l_Qte_Line_Rec.item_type_code, 1, 'Y');
6819: end if;
6820: IF l_Qte_Line_Rec.item_type_code = FND_API.G_MISS_CHAR THEN
6816: (l_Qte_Line_Rec.order_line_type_id <> FND_API.G_MISS_NUM) THEN
6817: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6818: aso_debug_pub.add('Update_Quote_lines - l_Qte_Line_Rec.item_type_code: '||l_Qte_Line_Rec.item_type_code, 1, 'Y');
6819: end if;
6820: IF l_Qte_Line_Rec.item_type_code = FND_API.G_MISS_CHAR THEN
6821: OPEN c_item_type_code;
6822: FETCH c_item_type_code INTO l_item_type_code;
6823: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6824: aso_debug_pub.add('Update_Quote_lines - Cursor c_item_type_code: l_item_type_code: '||l_item_type_code, 1, 'Y');
6872:
6873: EXCEPTION
6874:
6875: WHEN OTHERS THEN
6876: x_return_status := FND_API.G_RET_STS_ERROR;
6877:
6878: if aso_debug_pub.g_debug_flag = 'Y' then
6879: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_quote_line: line_category_code
6880: update, inside WHEN OTHERS EXCEPTION');
7006: l_line_rtlship_rec.operation_code := 'CREATE';
7007: l_line_rtlship_rec.quote_line_id := l_qte_line_dtl_rec.SERVICE_REF_LINE_ID;
7008: l_line_rtlship_rec.related_quote_line_id := x_qte_line_rec.quote_line_id;
7009: l_line_rtlship_rec.relationship_type_code := 'SERVICE';
7010: l_line_rtlship_rec.reciprocal_flag := FND_API.G_FALSE;
7011:
7012: ASO_LINE_RLTSHIP_PVT.Create_line_rltship(
7013: P_Api_Version_Number => 1.0,
7014: P_LINE_RLTSHIP_Rec => l_line_rtlship_rec,
7127: l_line_rtlship_rec.operation_code := 'CREATE';
7128: l_line_rtlship_rec.quote_line_id := l_db_qte_line_dtl_tbl(1).SERVICE_REF_LINE_ID;
7129: l_line_rtlship_rec.related_quote_line_id := x_qte_line_rec.quote_line_id;
7130: l_line_rtlship_rec.relationship_type_code := 'SERVICE';
7131: l_line_rtlship_rec.reciprocal_flag := FND_API.G_FALSE;
7132: ASO_LINE_RLTSHIP_PVT.Create_line_rltship(
7133: P_Api_Version_Number => 1.0,
7134: P_LINE_RLTSHIP_Rec => l_line_rtlship_rec,
7135: X_LINE_RELATIONSHIP_ID => x_relationship_id,
7151: aso_debug_pub.add('Update_Quote_line - after line_details.update ', 1, 'Y');
7152: end if;
7153:
7154: -- Service line quantity update Bmishra 01/09/02
7155: l_call_update := FND_API.G_FALSE;
7156: IF l_Qte_Line_Rec.inventory_item_id = FND_API.G_MISS_NUM THEN
7157: OPEN c_inventory_item_id;
7158: FETCH c_inventory_item_id INTO l_Qte_Line_Rec.inventory_item_id;
7159: CLOSE c_inventory_item_id;
7152: end if;
7153:
7154: -- Service line quantity update Bmishra 01/09/02
7155: l_call_update := FND_API.G_FALSE;
7156: IF l_Qte_Line_Rec.inventory_item_id = FND_API.G_MISS_NUM THEN
7157: OPEN c_inventory_item_id;
7158: FETCH c_inventory_item_id INTO l_Qte_Line_Rec.inventory_item_id;
7159: CLOSE c_inventory_item_id;
7160: END IF;
7169: IF l_service_item_flag = 'Y' THEN
7170: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7171: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: Inside IF l_service_item_flag = Y',1,'N');
7172: end if;
7173: l_service := FND_API.G_TRUE;
7174: l_call_update := FND_API.G_TRUE;
7175: ELSIF l_serviceable_product_flag = 'Y' THEN
7176: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7177: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: Inside IF l_serviceable_product_flag = Y',
7170: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7171: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: Inside IF l_service_item_flag = Y',1,'N');
7172: end if;
7173: l_service := FND_API.G_TRUE;
7174: l_call_update := FND_API.G_TRUE;
7175: ELSIF l_serviceable_product_flag = 'Y' THEN
7176: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7177: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: Inside IF l_serviceable_product_flag = Y',
7178: 1,'N');
7176: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7177: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: Inside IF l_serviceable_product_flag = Y',
7178: 1,'N');
7179: end if;
7180: l_service := FND_API.G_FALSE;
7181: l_call_update := FND_API.G_TRUE;
7182: END IF;
7183:
7184: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7177: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: Inside IF l_serviceable_product_flag = Y',
7178: 1,'N');
7179: end if;
7180: l_service := FND_API.G_FALSE;
7181: l_call_update := FND_API.G_TRUE;
7182: END IF;
7183:
7184: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7185: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: l_call_update'||l_call_update,1,'N');
7183:
7184: IF aso_debug_pub.g_debug_flag = 'Y' THEN
7185: aso_debug_pub.add('ASO_QUOTE_LINES_PVT: Update_Quote_lines: l_call_update'||l_call_update,1,'N');
7186: end if;
7187: IF l_call_update = FND_API.G_TRUE THEN
7188: ASO_QUOTE_LINES_PVT.service_item_qty_update
7189: (p_qte_line_rec => l_Qte_Line_Rec ,
7190: p_service_item_flag => l_service,
7191: x_return_status => X_return_status
7319: end if;
7320:
7321: IF ( P_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
7322: IF x_sales_credit_tbl.count > 0 THEN
7323: IF x_sales_credit_tbl(1).quote_header_id IS NULL OR x_sales_credit_tbl(1).quote_header_id = FND_API.G_MISS_NUM THEN
7324: x_sales_credit_tbl(1).quote_header_id := l_qte_line_rec.quote_header_id;
7325: END IF;
7326: IF x_sales_credit_tbl(1).quote_line_id IS NULL OR x_sales_credit_tbl(1).quote_line_id = FND_API.G_MISS_NUM THEN
7327: x_sales_credit_tbl(1).quote_line_id := l_qte_line_rec.quote_line_id;
7322: IF x_sales_credit_tbl.count > 0 THEN
7323: IF x_sales_credit_tbl(1).quote_header_id IS NULL OR x_sales_credit_tbl(1).quote_header_id = FND_API.G_MISS_NUM THEN
7324: x_sales_credit_tbl(1).quote_header_id := l_qte_line_rec.quote_header_id;
7325: END IF;
7326: IF x_sales_credit_tbl(1).quote_line_id IS NULL OR x_sales_credit_tbl(1).quote_line_id = FND_API.G_MISS_NUM THEN
7327: x_sales_credit_tbl(1).quote_line_id := l_qte_line_rec.quote_line_id;
7328: END IF;
7329:
7330: ASO_VALIDATE_PVT.Validate_Quote_Percent(
7327: x_sales_credit_tbl(1).quote_line_id := l_qte_line_rec.quote_line_id;
7328: END IF;
7329:
7330: ASO_VALIDATE_PVT.Validate_Quote_Percent(
7331: p_init_msg_list => FND_API.G_FALSE,
7332: p_sales_credit_tbl => x_sales_credit_tbl,
7333: x_return_status => x_return_status,
7334: x_msg_count => x_msg_count,
7335: x_msg_data => x_msg_data
7333: x_return_status => x_return_status,
7334: x_msg_count => x_msg_count,
7335: x_msg_data => x_msg_data
7336: );
7337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7338: RAISE FND_API.G_EXC_ERROR;
7339: END IF;
7340: END IF;
7341: END IF;
7334: x_msg_count => x_msg_count,
7335: x_msg_data => x_msg_data
7336: );
7337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7338: RAISE FND_API.G_EXC_ERROR;
7339: END IF;
7340: END IF;
7341: END IF;
7342:
7348: END IF;
7349:
7350: ASO_VALIDATE_PVT.Validate_Promotion (
7351: P_Api_Version_Number => 1.0,
7352: P_Init_Msg_List => FND_API.G_FALSE,
7353: P_Commit => FND_API.G_FALSE,
7354: p_price_attr_tbl => p_price_attributes_tbl,
7355: x_price_attr_tbl => lx_price_attr_tbl,
7356: x_return_status => x_return_status,
7349:
7350: ASO_VALIDATE_PVT.Validate_Promotion (
7351: P_Api_Version_Number => 1.0,
7352: P_Init_Msg_List => FND_API.G_FALSE,
7353: P_Commit => FND_API.G_FALSE,
7354: p_price_attr_tbl => p_price_attributes_tbl,
7355: x_price_attr_tbl => lx_price_attr_tbl,
7356: x_return_status => x_return_status,
7357: x_msg_count => x_msg_count,
7361: aso_debug_pub.add('after calling Validate_Promotion ', 1, 'Y');
7362: aso_debug_pub.add('Validate_Promotion Return Status: '||x_return_status, 1, 'Y');
7363: END IF;
7364:
7365: if x_return_status <> fnd_api.g_ret_sts_success then
7366: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7368: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7369: RAISE FND_API.G_EXC_ERROR;
7362: aso_debug_pub.add('Validate_Promotion Return Status: '||x_return_status, 1, 'Y');
7363: END IF;
7364:
7365: if x_return_status <> fnd_api.g_ret_sts_success then
7366: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7368: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSE
7363: END IF;
7364:
7365: if x_return_status <> fnd_api.g_ret_sts_success then
7366: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7368: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSE
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7364:
7365: if x_return_status <> fnd_api.g_ret_sts_success then
7366: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7368: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSE
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7365: if x_return_status <> fnd_api.g_ret_sts_success then
7366: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7368: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSE
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7373: end if;
7367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7368: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSE
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7373: end if;
7374:
7375:
7809: END LOOP;
7810:
7811: ELSIF l_shipment_rec.operation_code = 'UPDATE' THEN
7812:
7813: IF l_shipment_rec.ship_method_code = fnd_api.g_miss_char THEN
7814:
7815: FOR l_ship_db_rec IN c_db_ship_freight_terms(l_shipment_rec.shipment_id) LOOP
7816:
7817: IF l_ship_db_rec.ship_method_code_from is null THEN
7824: l_shipment_rec.ship_method_code_from := l_shipment_rec.ship_method_code;
7825:
7826: END IF;
7827:
7828: IF l_shipment_rec.freight_terms_code = fnd_api.g_miss_char THEN
7829:
7830: FOR l_ship_db_rec IN c_db_ship_freight_terms(l_shipment_rec.shipment_id) LOOP
7831:
7832: IF l_ship_db_rec.freight_terms_code_from is null THEN
7910: FETCH C_ship_partial into l_ship_count;
7911: CLOSE C_ship_partial;
7912:
7913: IF l_ship_count = 1 THEN
7914: x_return_status := FND_API.G_RET_STS_ERROR;
7915: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7916: FND_MESSAGE.Set_Name('ASO', 'DELETE_SHIPMENT');
7917: FND_MESSAGE.Set_Token('COLUMN', 'SHIPMENT_ID', FALSE);
7918: FND_MSG_PUB.ADD;
8569: IF l_Price_Attributes_Tbl.count > 0 THEN
8570:
8571: aso_pricing_int.Delete_Promotion (
8572: P_Api_Version_Number => 1.0,
8573: P_Init_Msg_List => FND_API.G_FALSE,
8574: P_Commit => FND_API.G_FALSE,
8575: p_price_attr_tbl => l_Price_Attributes_Tbl,
8576: x_return_status => x_return_status,
8577: x_msg_count => x_msg_count,
8570:
8571: aso_pricing_int.Delete_Promotion (
8572: P_Api_Version_Number => 1.0,
8573: P_Init_Msg_List => FND_API.G_FALSE,
8574: P_Commit => FND_API.G_FALSE,
8575: p_price_attr_tbl => l_Price_Attributes_Tbl,
8576: x_return_status => x_return_status,
8577: x_msg_count => x_msg_count,
8578: x_msg_data => x_msg_data
8621: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8622: aso_debug_pub.add('Update_Quote_Line_Rows: After call to create_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8623: END IF;
8624:
8625: if x_return_status <> fnd_api.g_ret_sts_success then
8626: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8628: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8629: RAISE FND_API.G_EXC_ERROR;
8622: aso_debug_pub.add('Update_Quote_Line_Rows: After call to create_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8623: END IF;
8624:
8625: if x_return_status <> fnd_api.g_ret_sts_success then
8626: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8628: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8629: RAISE FND_API.G_EXC_ERROR;
8630: ELSE
8623: END IF;
8624:
8625: if x_return_status <> fnd_api.g_ret_sts_success then
8626: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8628: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8629: RAISE FND_API.G_EXC_ERROR;
8630: ELSE
8631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8624:
8625: if x_return_status <> fnd_api.g_ret_sts_success then
8626: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8628: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8629: RAISE FND_API.G_EXC_ERROR;
8630: ELSE
8631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8632: END IF;
8625: if x_return_status <> fnd_api.g_ret_sts_success then
8626: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8628: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8629: RAISE FND_API.G_EXC_ERROR;
8630: ELSE
8631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8632: END IF;
8633: end if;
8627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8628: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8629: RAISE FND_API.G_EXC_ERROR;
8630: ELSE
8631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8632: END IF;
8633: end if;
8634:
8635: -- End Suyog Payment Changes
8637: x_payment_tbl(i).PAYMENT_TERM_ID_FROM := l_payment_rec.PAYMENT_TERM_ID_FROM;
8638:
8639: ELSIF l_payment_rec.operation_code = 'UPDATE' THEN
8640:
8641: IF l_payment_rec.payment_term_id = FND_API.G_MISS_NUM THEN
8642: FOR l_payment_db_rec IN c_db_payment_terms(l_payment_rec.PAYMENT_ID) LOOP
8643: IF l_payment_db_rec.payment_term_id_from IS NULL THEN
8644: l_payment_rec.payment_term_id_from := l_payment_db_rec.payment_term_id;
8645: END IF;
8667:
8668: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8669: aso_debug_pub.add('Update_Quote_Line_Rows: After call to update_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8670: END IF;
8671: if x_return_status <> fnd_api.g_ret_sts_success then
8672: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8674: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE FND_API.G_EXC_ERROR;
8668: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8669: aso_debug_pub.add('Update_Quote_Line_Rows: After call to update_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8670: END IF;
8671: if x_return_status <> fnd_api.g_ret_sts_success then
8672: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8674: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE FND_API.G_EXC_ERROR;
8676: ELSE
8669: aso_debug_pub.add('Update_Quote_Line_Rows: After call to update_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8670: END IF;
8671: if x_return_status <> fnd_api.g_ret_sts_success then
8672: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8674: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE FND_API.G_EXC_ERROR;
8676: ELSE
8677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8670: END IF;
8671: if x_return_status <> fnd_api.g_ret_sts_success then
8672: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8674: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE FND_API.G_EXC_ERROR;
8676: ELSE
8677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8678: END IF;
8671: if x_return_status <> fnd_api.g_ret_sts_success then
8672: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8674: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE FND_API.G_EXC_ERROR;
8676: ELSE
8677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8678: END IF;
8679: end if;
8673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8674: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE FND_API.G_EXC_ERROR;
8676: ELSE
8677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8678: END IF;
8679: end if;
8680:
8681: -- End Suyog Payment Changes
8696:
8697: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8698: aso_debug_pub.add('Update_Quote_Line_Rows: After call to delete_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8699: END IF;
8700: if x_return_status <> fnd_api.g_ret_sts_success then
8701: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8703: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8704: RAISE FND_API.G_EXC_ERROR;
8697: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8698: aso_debug_pub.add('Update_Quote_Line_Rows: After call to delete_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8699: END IF;
8700: if x_return_status <> fnd_api.g_ret_sts_success then
8701: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8703: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8704: RAISE FND_API.G_EXC_ERROR;
8705: ELSE
8698: aso_debug_pub.add('Update_Quote_Line_Rows: After call to delete_payment_row: x_return_status: '||x_return_status, 1, 'Y');
8699: END IF;
8700: if x_return_status <> fnd_api.g_ret_sts_success then
8701: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8703: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8704: RAISE FND_API.G_EXC_ERROR;
8705: ELSE
8706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8699: END IF;
8700: if x_return_status <> fnd_api.g_ret_sts_success then
8701: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8703: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8704: RAISE FND_API.G_EXC_ERROR;
8705: ELSE
8706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8707: END IF;
8700: if x_return_status <> fnd_api.g_ret_sts_success then
8701: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8703: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8704: RAISE FND_API.G_EXC_ERROR;
8705: ELSE
8706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8707: END IF;
8708: end if;
8702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8703: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8704: RAISE FND_API.G_EXC_ERROR;
8705: ELSE
8706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8707: END IF;
8708: end if;
8709:
8710: -- End Suyog Payment Changes
8715:
8716: -- fix for bug 4483808 , moved validation after the row has been updated
8717: aso_validate_pvt.Validate_po_line_number
8718: (
8719: p_init_msg_list => fnd_api.g_false,
8720: p_qte_header_rec => l_qte_header_rec,
8721: P_Qte_Line_rec => l_Qte_Line_Rec,
8722: x_return_status => x_return_status,
8723: x_msg_count => x_msg_count,
8722: x_return_status => x_return_status,
8723: x_msg_count => x_msg_count,
8724: x_msg_data => x_msg_data);
8725:
8726: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
8727: RAISE FND_API.G_EXC_ERROR;
8728: END IF;
8729:
8730: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
8723: x_msg_count => x_msg_count,
8724: x_msg_data => x_msg_data);
8725:
8726: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
8727: RAISE FND_API.G_EXC_ERROR;
8728: END IF;
8729:
8730: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
8731: aso_debug_pub.add('x_return_status for Validate_po_line_number'|| x_return_status, 1, 'Y');
8825:
8826:
8827:
8828: IF l_control_rec.line_pricing_event IS NOT NULL AND
8829: l_control_rec.line_pricing_event <> FND_API.G_MISS_CHAR THEN
8830:
8831: l_pricing_control_rec.pricing_event := l_control_rec.line_pricing_event;
8832: l_pricing_control_rec.request_type := l_control_rec.pricing_request_type;
8833: l_pricing_control_rec.price_mode := l_control_rec.price_mode;
8846:
8847:
8848: ASO_PRICING_INT.Pricing_Order(
8849: P_Api_Version_Number => 1.0,
8850: P_Init_Msg_List => fnd_api.g_false,
8851: P_Commit => fnd_api.g_false,
8852: p_control_rec => l_pricing_control_rec,
8853: p_qte_header_rec => l_qte_header_rec,
8854: p_hd_shipment_rec => l_hd_shipment_rec,
8847:
8848: ASO_PRICING_INT.Pricing_Order(
8849: P_Api_Version_Number => 1.0,
8850: P_Init_Msg_List => fnd_api.g_false,
8851: P_Commit => fnd_api.g_false,
8852: p_control_rec => l_pricing_control_rec,
8853: p_qte_header_rec => l_qte_header_rec,
8854: p_hd_shipment_rec => l_hd_shipment_rec,
8855: p_hd_price_attr_tbl => l_hd_price_attr_tbl,
8871: if lx_qte_line_tbl.count > 0 then
8872: x_qte_line_rec := lx_qte_line_tbl(1);
8873: end if;
8874:
8875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8876:
8877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8879: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8873: end if;
8874:
8875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8876:
8877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8879: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8880: RAISE FND_API.G_EXC_ERROR;
8881: END IF;
8874:
8875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8876:
8877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8879: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8880: RAISE FND_API.G_EXC_ERROR;
8881: END IF;
8882:
8875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8876:
8877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8879: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8880: RAISE FND_API.G_EXC_ERROR;
8881: END IF;
8882:
8883: END IF;
8876:
8877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8879: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8880: RAISE FND_API.G_EXC_ERROR;
8881: END IF;
8882:
8883: END IF;
8884:
8884:
8885:
8886: END IF; -- pricing
8887:
8888: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8890: END IF;
8891:
8892: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8885:
8886: END IF; -- pricing
8887:
8888: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8890: END IF;
8891:
8892: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8893: aso_debug_pub.add('Update_Quote_line - before calculate_tax_flag ', 1, 'N');
8897: *
8898: *
8899: IF l_control_rec.CALCULATE_TAX_FLAG = 'Y'THEN
8900: l_tax_control_rec.tax_level := 'SHIPPING';
8901: l_tax_control_rec.update_db := 'Y' ; --FND_API.G_TRUE;
8902:
8903: l_calc_tax_detail_rec.quote_header_id := l_Qte_Line_Rec.quote_header_id;
8904: l_calc_tax_detail_rec.quote_line_id := l_Qte_Line_Rec.quote_line_id;
8905:
8915: aso_debug_pub.add('Cust acct'||l_cust_acct , 1, 'Y');
8916: end if;
8917:
8918: IF (l_Qte_Line_Rec.invoice_to_party_site_id is not NULL
8919: AND l_Qte_Line_Rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM) AND
8920: (l_cust_acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM) THEN
8921: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8922: aso_debug_pub.add('inside if'||nvl(to_char(l_Qte_Line_Rec.invoice_to_party_site_id),'null'), 1, 'Y' );
8923: end if;
8916: end if;
8917:
8918: IF (l_Qte_Line_Rec.invoice_to_party_site_id is not NULL
8919: AND l_Qte_Line_Rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM) AND
8920: (l_cust_acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM) THEN
8921: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8922: aso_debug_pub.add('inside if'||nvl(to_char(l_Qte_Line_Rec.invoice_to_party_site_id),'null'), 1, 'Y' );
8923: end if;
8924:
8931: ,x_msg_count => l_msg_count
8932: ,x_msg_data => l_msg_data
8933: ,x_site_use_id => l_invoice_org_id
8934: );
8935: IF L_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
8936: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
8937: THEN
8938: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
8939: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
8938: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
8939: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
8940: FND_MSG_PUB.ADD;
8941: END IF;
8942: -- raise FND_API.G_EXC_ERROR;
8943: END IF;
8944: END IF;
8945:
8946: lx_tax_shipment_tbl := ASO_UTILITY_PVT.Query_Shipment_Rows(l_Qte_Line_Rec.quote_header_id,l_Qte_Line_Rec.quote_line_id);
8948: FOR i in 1..lx_tax_shipment_tbl.count LOOP
8949: l_calc_tax_detail_rec.quote_shipment_id := lx_tax_shipment_tbl(i).shipment_id;
8950:
8951: IF (lx_tax_shipment_tbl(i).ship_to_party_site_id is not NULL
8952: AND lx_tax_shipment_tbl(i).ship_to_party_site_id <> FND_API.G_MISS_NUM)
8953: AND (l_cust_acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM)
8954: THEN
8955: ASO_PARTY_INT.GET_ACCT_SITE_USES (
8956: p_api_version => 1.0
8949: l_calc_tax_detail_rec.quote_shipment_id := lx_tax_shipment_tbl(i).shipment_id;
8950:
8951: IF (lx_tax_shipment_tbl(i).ship_to_party_site_id is not NULL
8952: AND lx_tax_shipment_tbl(i).ship_to_party_site_id <> FND_API.G_MISS_NUM)
8953: AND (l_cust_acct is NOT NULL AND l_cust_acct <> FND_API.G_MISS_NUM)
8954: THEN
8955: ASO_PARTY_INT.GET_ACCT_SITE_USES (
8956: p_api_version => 1.0
8957: ,P_Cust_Account_Id => l_cust_acct
8962: ,x_msg_data => l_msg_data
8963: ,x_site_use_id => l_ship_org_id
8964: );
8965:
8966: IF L_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
8967: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
8968: THEN
8969: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
8970: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
8969: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
8970: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_TO_SITE_USE_ID',FALSE);
8971: FND_MSG_PUB.ADD;
8972: END IF;
8973: -- raise FND_API.G_EXC_ERROR;
8974: END IF;
8975:
8976: END IF;
8977: ASO_TAX_INT.Calculate_Tax(
8987: if l_tax_detail_tbl.count > 0 then
8988: x_tax_detail_tbl(i) := l_tax_detail_tbl(1);
8989: end if;
8990:
8991: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
8992: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8993: FND_MESSAGE.Set_Name('ASO', 'ASO_TAX_CALCULATION');
8994: FND_MSG_PUB.ADD;
8995: END IF;
8992: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8993: FND_MESSAGE.Set_Name('ASO', 'ASO_TAX_CALCULATION');
8994: FND_MSG_PUB.ADD;
8995: END IF;
8996: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8998: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8999: RAISE FND_API.G_EXC_ERROR;
9000: END IF;
8993: FND_MESSAGE.Set_Name('ASO', 'ASO_TAX_CALCULATION');
8994: FND_MSG_PUB.ADD;
8995: END IF;
8996: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8998: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8999: RAISE FND_API.G_EXC_ERROR;
9000: END IF;
9001: END IF;
8994: FND_MSG_PUB.ADD;
8995: END IF;
8996: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8998: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8999: RAISE FND_API.G_EXC_ERROR;
9000: END IF;
9001: END IF;
9002: END LOOP;
8995: END IF;
8996: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8998: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
8999: RAISE FND_API.G_EXC_ERROR;
9000: END IF;
9001: END IF;
9002: END LOOP;
9003:
9013: FOR i in 1..l_shipment_tbl.count LOOP
9014:
9015: -- shipment quantity should be changed
9016: IF l_shipment_tbl(i).quantity is not NULL AND
9017: l_shipment_tbl(i).quantity <> FND_API.G_MISS_NUM THEN
9018:
9019: SELECT reservation_id INTO l_shipment_tbl(i).reservation_id
9020: FROM ASO_SHIPMENTS
9021: WHERE shipment_id = l_shipment_tbl(i).shipment_id;
9036: last_updated_by = fnd_global.user_id,
9037: last_update_login = fnd_global.conc_login_id
9038: WHERE shipment_id = l_shipment_tbl(i).shipment_id;
9039:
9040: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9041: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9042: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATING_RESERVATION');
9043: FND_MSG_PUB.ADD;
9044: END IF;
9041: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9042: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATING_RESERVATION');
9043: FND_MSG_PUB.ADD;
9044: END IF;
9045: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9047: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9048: RAISE FND_API.G_EXC_ERROR;
9049: END IF;
9042: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATING_RESERVATION');
9043: FND_MSG_PUB.ADD;
9044: END IF;
9045: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9047: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9048: RAISE FND_API.G_EXC_ERROR;
9049: END IF;
9050: END IF;
9043: FND_MSG_PUB.ADD;
9044: END IF;
9045: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9047: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9048: RAISE FND_API.G_EXC_ERROR;
9049: END IF;
9050: END IF;
9051:
9044: END IF;
9045: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9047: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9048: RAISE FND_API.G_EXC_ERROR;
9049: END IF;
9050: END IF;
9051:
9052:
9076: X_Return_Status => l_return_status,
9077: X_Msg_Count => x_msg_count,
9078: X_Msg_Data => x_msg_data);
9079:
9080: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9081: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9082: FND_MESSAGE.Set_Name('ASO', 'ASO_UPDATE_QUOTE_TOTAL');
9083: -- FND_MESSAGE.Set_Token('LINE' , x_qte_line_rec.line_number, FALSE);
9084: FND_MSG_PUB.ADD;
9084: FND_MSG_PUB.ADD;
9085: END IF;
9086: END IF;
9087:
9088: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9090: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH, 'Private API: '|| l_api_name || 'error in updating header');
9091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9092: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
9085: END IF;
9086: END IF;
9087:
9088: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9090: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH, 'Private API: '|| l_api_name || 'error in updating header');
9091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9092: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
9093: x_return_status := FND_API.G_RET_STS_ERROR;
9087:
9088: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9090: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH, 'Private API: '|| l_api_name || 'error in updating header');
9091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9092: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
9093: x_return_status := FND_API.G_RET_STS_ERROR;
9094: END IF;
9095:
9088: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9090: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH, 'Private API: '|| l_api_name || 'error in updating header');
9091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9092: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
9093: x_return_status := FND_API.G_RET_STS_ERROR;
9094: END IF;
9095:
9096:
9089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9090: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH, 'Private API: '|| l_api_name || 'error in updating header');
9091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9092: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
9093: x_return_status := FND_API.G_RET_STS_ERROR;
9094: END IF;
9095:
9096:
9097: END IF;
9115:
9116: -- Change END
9117:
9118:
9119: IF FND_API.to_Boolean( p_commit )
9120: THEN
9121: COMMIT WORK;
9122: END IF;
9123:
9129: p_data => x_msg_data
9130: );
9131:
9132: EXCEPTION
9133: WHEN FND_API.G_EXC_ERROR THEN
9134: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
9135: P_API_NAME => L_API_NAME
9136: ,P_PKG_NAME => G_PKG_NAME
9137: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
9141: ,X_MSG_COUNT => X_MSG_COUNT
9142: ,X_MSG_DATA => X_MSG_DATA
9143: ,X_RETURN_STATUS => X_RETURN_STATUS);
9144:
9145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9146: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
9147: P_API_NAME => L_API_NAME
9148: ,P_PKG_NAME => G_PKG_NAME
9149: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9178: -- Pre-Req :
9179: -- Parameters:
9180: -- IN
9181: -- p_api_version_number IN NUMBER Required
9182: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
9183: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
9184: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
9185: -- P_qte_line_Rec IN qte_line_Rec_Type Required
9186: -- P_quote_header_id IN NUMBER Required
9179: -- Parameters:
9180: -- IN
9181: -- p_api_version_number IN NUMBER Required
9182: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
9183: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
9184: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
9185: -- P_qte_line_Rec IN qte_line_Rec_Type Required
9186: -- P_quote_header_id IN NUMBER Required
9187: -- P_header_last_update_date IN DATE Required
9200: -- The Master delete procedure may not be needed depends on different business requirements.
9201:
9202: PROCEDURE Delete_Quote_Line(
9203: P_Api_Version_Number IN NUMBER,
9204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
9206: P_qte_line_Rec IN ASO_QUOTE_PUB.qte_line_Rec_Type,
9207: P_Control_REC IN ASO_QUOTE_PUB.Control_Rec_Type
9208: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
9201:
9202: PROCEDURE Delete_Quote_Line(
9203: P_Api_Version_Number IN NUMBER,
9204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
9206: P_qte_line_Rec IN ASO_QUOTE_PUB.qte_line_Rec_Type,
9207: P_Control_REC IN ASO_QUOTE_PUB.Control_Rec_Type
9208: := ASO_QUOTE_PUB.G_MISS_Control_Rec,
9209: P_Update_Header_Flag IN VARCHAR2 := 'Y',
9331: -- Standard Start of API savepoint
9332: SAVEPOINT DELETE_quote_line_PVT;
9333:
9334: -- Standard call to check for call compatibility.
9335: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9336: p_api_version_number,
9337: l_api_name,
9338: G_PKG_NAME)
9339: THEN
9336: p_api_version_number,
9337: l_api_name,
9338: G_PKG_NAME)
9339: THEN
9340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9341: END IF;
9342:
9343:
9344: -- Initialize message list if p_init_msg_list is set to TRUE.
9341: END IF;
9342:
9343:
9344: -- Initialize message list if p_init_msg_list is set to TRUE.
9345: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9346: FND_MSG_PUB.initialize;
9347: END IF;
9348:
9349:
9347: END IF;
9348:
9349:
9350: -- Initialize API return status to SUCCESS
9351: x_return_status := FND_API.G_RET_STS_SUCCESS;
9352:
9353: --
9354: -- Api body
9355: --
9361: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
9362: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
9363: FND_MSG_PUB.ADD;
9364: END IF;
9365: RAISE FND_API.G_EXC_ERROR;
9366: END IF;
9367:
9368: open c_pricing_line_type_indicator;
9369: fetch c_pricing_line_type_indicator into l_pricing_line_type_indicator;
9384: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_UPDATE_TARGET');
9385: FND_MESSAGE.Set_Token ('INFO', 'quote', FALSE);
9386: FND_MSG_PUB.Add;
9387: END IF;
9388: raise FND_API.G_EXC_ERROR;
9389: END IF; -- update header flag
9390: Close C_Get_quote;
9391:
9392:
9390: Close C_Get_quote;
9391:
9392:
9393: If (l_last_update_date is NULL or
9394: l_last_update_date = FND_API.G_MISS_Date ) Then
9395: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9396: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
9397: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
9398: FND_MSG_PUB.ADD;
9396: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
9397: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
9398: FND_MSG_PUB.ADD;
9399: END IF;
9400: raise FND_API.G_EXC_ERROR;
9401: End if;
9402:
9403:
9404: -- Check Whether record has been changed by someone else
9407: FND_MESSAGE.Set_Name('ASO', 'API_RECORD_CHANGED');
9408: FND_MESSAGE.Set_Token('INFO', 'quote', FALSE);
9409: FND_MSG_PUB.ADD;
9410: END IF;
9411: raise FND_API.G_EXC_ERROR;
9412: End if;
9413:
9414: Open c_qte_status (l_qte_status_id);
9415: Fetch C_qte_status into l_update_allowed, l_auto_version;
9415: Fetch C_qte_status into l_update_allowed, l_auto_version;
9416: Close c_qte_status;
9417:
9418:
9419: IF p_control_rec.auto_version_flag = FND_API.G_TRUE AND NVL(l_auto_version,'Y') = 'Y' THEN
9420:
9421: OPEN C_Qte_Version(l_quote_number);
9422: FETCH C_Qte_Version into l_quote_version;
9423: l_quote_version := nvl(l_quote_version, 0) + 1;
9437: IF l_auto_version = 'Y' THEN
9438:
9439: l_old_header_rec := aso_utility_pvt.Query_Header_Row(p_qte_line_rec.QUOTE_HEADER_ID);
9440:
9441: IF l_quote_header_id IS NULL OR l_quote_header_id = FND_API.G_MISS_NUM THEN
9442:
9443: open c_get_quote( p_qte_line_rec.quote_line_id);
9444: fetch c_get_quote into l_last_update_date, l_qte_status_id,
9445: l_quote_number, l_hd_discount_percent,
9448:
9449:
9450: END IF; -- l_quote_header is null
9451:
9452: l_copy_quote_control_rec.new_version := fnd_api.g_true;
9453: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
9454:
9455: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
9456: P_Init_Msg_List => FND_API.G_FALSE,
9452: l_copy_quote_control_rec.new_version := fnd_api.g_true;
9453: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
9454:
9455: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
9456: P_Init_Msg_List => FND_API.G_FALSE,
9457: P_Commit => FND_API.G_FALSE,
9458: P_Copy_Quote_Header_Rec => l_copy_quote_header_rec,
9459: P_Copy_Quote_Control_Rec => l_copy_quote_control_rec,
9460: X_Qte_Header_Id => x_quote_header_id,
9453: l_copy_quote_header_rec.quote_header_id := l_old_header_rec.quote_header_id;
9454:
9455: aso_copy_quote_pvt.copy_quote( P_Api_Version_Number => 1.0,
9456: P_Init_Msg_List => FND_API.G_FALSE,
9457: P_Commit => FND_API.G_FALSE,
9458: P_Copy_Quote_Header_Rec => l_copy_quote_header_rec,
9459: P_Copy_Quote_Control_Rec => l_copy_quote_control_rec,
9460: X_Qte_Header_Id => x_quote_header_id,
9461: X_Qte_Number => l_qte_nbr,
9624:
9625: aso_quote_lines_pvt.delete_quote_line(
9626: P_Api_Version_Number => 1.0,
9627: p_control_rec => p_control_rec,
9628: p_update_header_flag => fnd_api.g_false,
9629: P_qte_Line_Rec => l_qte_line_rec,
9630: X_Return_Status => x_return_status,
9631: X_Msg_Count => x_msg_count,
9632: X_Msg_Data => x_msg_data);
9630: X_Return_Status => x_return_status,
9631: X_Msg_Count => x_msg_count,
9632: X_Msg_Data => x_msg_data);
9633:
9634: if x_return_status <> fnd_api.g_ret_sts_success then
9635: raise fnd_api.g_exc_error;
9636: end if;
9637:
9638: end loop;
9631: X_Msg_Count => x_msg_count,
9632: X_Msg_Data => x_msg_data);
9633:
9634: if x_return_status <> fnd_api.g_ret_sts_success then
9635: raise fnd_api.g_exc_error;
9636: end if;
9637:
9638: end loop;
9639:
9682: X_Return_Status => x_return_status,
9683: X_Msg_Count => x_msg_count,
9684: X_Msg_Data => x_msg_data);
9685:
9686: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9687: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9688: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9689: FND_MESSAGE.Set_Token('OBJECT','LINE_RLTSHIP',FALSE);
9690: FND_MSG_PUB.ADD;
9688: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9689: FND_MESSAGE.Set_Token('OBJECT','LINE_RLTSHIP',FALSE);
9690: FND_MSG_PUB.ADD;
9691: END IF;
9692: RAISE FND_API.G_EXC_ERROR;
9693: END IF;
9694:
9695:
9696: -- delete price adjustment relationships
9702: X_Return_Status => x_return_status,
9703: X_Msg_Count => x_msg_count,
9704: X_Msg_Data => x_msg_data);
9705:
9706: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9707: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9708: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9709: FND_MESSAGE.Set_Token('OBJECT','PRICE_ADJ_RLTSHIP',FALSE);
9710: FND_MSG_PUB.ADD;
9708: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9709: FND_MESSAGE.Set_Token('OBJECT','PRICE_ADJ_RLTSHIP',FALSE);
9710: FND_MSG_PUB.ADD;
9711: END IF;
9712: RAISE FND_API.G_EXC_ERROR;
9713: END IF;
9714:
9715: IF aso_debug_pub.g_debug_flag = 'Y' THEN
9716: aso_debug_pub.add('before deleting the quote line price adjustments.', 1, 'Y');
9762:
9763: IF aso_debug_pub.g_debug_flag = 'Y' THEN
9764: aso_debug_pub.add('Delete_Quote_Line: After call to delete_payment_row: x_return_status: '||x_return_status, 1, 'Y');
9765: END IF;
9766: if x_return_status <> fnd_api.g_ret_sts_success then
9767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9770: RAISE FND_API.G_EXC_ERROR;
9763: IF aso_debug_pub.g_debug_flag = 'Y' THEN
9764: aso_debug_pub.add('Delete_Quote_Line: After call to delete_payment_row: x_return_status: '||x_return_status, 1, 'Y');
9765: END IF;
9766: if x_return_status <> fnd_api.g_ret_sts_success then
9767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9770: RAISE FND_API.G_EXC_ERROR;
9771: ELSE
9764: aso_debug_pub.add('Delete_Quote_Line: After call to delete_payment_row: x_return_status: '||x_return_status, 1, 'Y');
9765: END IF;
9766: if x_return_status <> fnd_api.g_ret_sts_success then
9767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9770: RAISE FND_API.G_EXC_ERROR;
9771: ELSE
9772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9765: END IF;
9766: if x_return_status <> fnd_api.g_ret_sts_success then
9767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9770: RAISE FND_API.G_EXC_ERROR;
9771: ELSE
9772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9773: END IF;
9766: if x_return_status <> fnd_api.g_ret_sts_success then
9767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
9768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9770: RAISE FND_API.G_EXC_ERROR;
9771: ELSE
9772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9773: END IF;
9774: end if;
9768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
9770: RAISE FND_API.G_EXC_ERROR;
9771: ELSE
9772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9773: END IF;
9774: end if;
9775:
9776: else
9840: IF l_config_id is not NULL THEN
9841:
9842: ASO_CFG_INT.DELETE_CONFIGURATION(
9843: P_API_VERSION_NUMBER => 1.0,
9844: P_INIT_MSG_LIST => FND_API.G_FALSE,
9845: P_CONFIG_HDR_ID => l_config_id,
9846: P_CONFIG_REV_NBR => l_rev_num,
9847: X_RETURN_STATUS => x_return_status,
9848: X_MSG_COUNT => x_msg_count,
9847: X_RETURN_STATUS => x_return_status,
9848: X_MSG_COUNT => x_msg_count,
9849: X_MSG_DATA => x_msg_data);
9850:
9851: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9852: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9853: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9854: FND_MESSAGE.Set_Token('OBJECT', 'CONFIGURATION', FALSE);
9855: FND_MSG_PUB.ADD;
9853: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9854: FND_MESSAGE.Set_Token('OBJECT', 'CONFIGURATION', FALSE);
9855: FND_MSG_PUB.ADD;
9856: END IF;
9857: RAISE FND_API.G_EXC_ERROR;
9858: END IF;
9859:
9860: ELSIF l_ref_type_code = 'TOP_MODEL' THEN
9861:
9870: P_qte_Line_Rec => l_qte_line_rec,
9871: X_Return_Status => x_return_status,
9872: X_Msg_Count => x_msg_count,
9873: X_Msg_Data => x_msg_data);
9874: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9875: RAISE FND_API.G_EXC_ERROR;
9876: END IF;
9877:
9878: END LOOP;
9871: X_Return_Status => x_return_status,
9872: X_Msg_Count => x_msg_count,
9873: X_Msg_Data => x_msg_data);
9874: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9875: RAISE FND_API.G_EXC_ERROR;
9876: END IF;
9877:
9878: END LOOP;
9879:
9925: l_line_inst_dtl_id := j.transaction_line_id;
9926:
9927: ASO_INSTBASE_INT.Delete_Installation_Detail(
9928: p_api_version_number => 1.0,
9929: p_init_msg_list => FND_API.G_FALSE,
9930: p_commit => FND_API.G_FALSE,
9931: x_return_status => x_return_status,
9932: x_msg_count => x_msg_count,
9933: x_msg_data => x_msg_data,
9926:
9927: ASO_INSTBASE_INT.Delete_Installation_Detail(
9928: p_api_version_number => 1.0,
9929: p_init_msg_list => FND_API.G_FALSE,
9930: p_commit => FND_API.G_FALSE,
9931: x_return_status => x_return_status,
9932: x_msg_count => x_msg_count,
9933: x_msg_data => x_msg_data,
9934: p_line_inst_dtl_id => l_line_inst_dtl_id
9933: x_msg_data => x_msg_data,
9934: p_line_inst_dtl_id => l_line_inst_dtl_id
9935: );
9936:
9937: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9938: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9939: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9940: FND_MESSAGE.Set_Token('OBJECT', 'INSTALLATION DETAILS');
9941: FND_MSG_PUB.ADD;
9939: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9940: FND_MESSAGE.Set_Token('OBJECT', 'INSTALLATION DETAILS');
9941: FND_MSG_PUB.ADD;
9942: END IF;
9943: RAISE FND_API.G_EXC_ERROR;
9944: END IF;
9945: END LOOP;
9946: END IF;
9947:
9952: X_Return_Status => x_return_status,
9953: X_Msg_Count => x_msg_count,
9954: X_Msg_Data => x_msg_data);
9955:
9956: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9957: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9958: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9959: FND_MESSAGE.Set_Token('OBJECT', 'LINE_SHIPMENTS', FALSE);
9960: FND_MSG_PUB.ADD;
9958: FND_MESSAGE.Set_Name('ASO', 'ASO_DELETE');
9959: FND_MESSAGE.Set_Token('OBJECT', 'LINE_SHIPMENTS', FALSE);
9960: FND_MSG_PUB.ADD;
9961: END IF;
9962: RAISE FND_API.G_EXC_ERROR;
9963: END IF;
9964:
9965: END LOOP;
9966:
10002: X_Return_Status => l_return_status,
10003: X_Msg_Count => x_msg_count,
10004: X_Msg_Data => x_msg_data);
10005:
10006: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10007:
10008: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10009: FND_MESSAGE.Set_Name('ASO', 'ASO_UPDATE_QUOTE_TOTAL');
10010: FND_MSG_PUB.ADD;
10012:
10013: END IF;
10014:
10015:
10016: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
10017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10019: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
10020: x_return_status := FND_API.G_RET_STS_ERROR;
10013: END IF;
10014:
10015:
10016: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
10017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10019: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
10020: x_return_status := FND_API.G_RET_STS_ERROR;
10021: END IF;
10014:
10015:
10016: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
10017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10019: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
10020: x_return_status := FND_API.G_RET_STS_ERROR;
10021: END IF;
10022:
10015:
10016: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
10017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10019: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
10020: x_return_status := FND_API.G_RET_STS_ERROR;
10021: END IF;
10022:
10023:
10016: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
10017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10019: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
10020: x_return_status := FND_API.G_RET_STS_ERROR;
10021: END IF;
10022:
10023:
10024: END IF;
10028: aso_debug_pub.add('p_qte_line_rec.quote_line_id: '|| p_qte_line_rec.quote_line_id);
10029: end if;
10030:
10031: ASO_EDUCATION_INT.Delete_OTA_Line(
10032: P_Init_Msg_List => FND_API.G_FALSE,
10033: P_Commit => FND_API.G_FALSE,
10034: P_Qte_Line_Id => p_qte_line_rec.quote_line_id,
10035: X_Return_Status => l_return_status,
10036: X_Msg_Count => x_msg_count,
10029: end if;
10030:
10031: ASO_EDUCATION_INT.Delete_OTA_Line(
10032: P_Init_Msg_List => FND_API.G_FALSE,
10033: P_Commit => FND_API.G_FALSE,
10034: P_Qte_Line_Id => p_qte_line_rec.quote_line_id,
10035: X_Return_Status => l_return_status,
10036: X_Msg_Count => x_msg_count,
10037: X_Msg_Data => x_msg_data);
10040: aso_debug_pub.add('Delete_Quote_Line: After call to Delete_OTA_Line.');
10041: aso_debug_pub.add('Delete_Quote_Line: l_return_status: '|| l_return_status);
10042: end if;
10043:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10048: x_return_status := FND_API.G_RET_STS_ERROR;
10041: aso_debug_pub.add('Delete_Quote_Line: l_return_status: '|| l_return_status);
10042: end if;
10043:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10048: x_return_status := FND_API.G_RET_STS_ERROR;
10049: RAISE FND_API.G_EXC_ERROR;
10042: end if;
10043:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10048: x_return_status := FND_API.G_RET_STS_ERROR;
10049: RAISE FND_API.G_EXC_ERROR;
10050: END IF;
10043:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10048: x_return_status := FND_API.G_RET_STS_ERROR;
10049: RAISE FND_API.G_EXC_ERROR;
10050: END IF;
10051:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10048: x_return_status := FND_API.G_RET_STS_ERROR;
10049: RAISE FND_API.G_EXC_ERROR;
10050: END IF;
10051:
10052: -- Change START
10045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10048: x_return_status := FND_API.G_RET_STS_ERROR;
10049: RAISE FND_API.G_EXC_ERROR;
10050: END IF;
10051:
10052: -- Change START
10053: -- Release 12 TAP Changes
10053: -- Release 12 TAP Changes
10054: -- Girish Sachdeva 8/30/2005
10055: -- Adding the call to insert record in the ASO_CHANGED_QUOTES
10056:
10057: IF ((p_qte_line_rec.quote_header_id is not null) and (p_qte_line_rec.quote_header_id <> FND_API.G_MISS_NUM)) THEN
10058:
10059: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10060: aso_debug_pub.add('ASO_QUOTE_LINES_PVT.delete_quote_line : Before calling ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES, Quote Header ID :' || p_qte_line_rec.quote_header_id, 1, 'Y');
10061: END IF;
10080: -- End of API body
10081: --
10082:
10083: -- Standard check for p_commit
10084: IF FND_API.to_Boolean( p_commit ) THEN
10085: COMMIT WORK;
10086: END IF;
10087:
10088: -- Standard call to get message count and if count is 1, get message info.
10091:
10092:
10093: EXCEPTION
10094:
10095: WHEN FND_API.G_EXC_ERROR THEN
10096: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
10097: P_API_NAME => L_API_NAME
10098: ,P_PKG_NAME => G_PKG_NAME
10099: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
10103: ,X_MSG_COUNT => X_MSG_COUNT
10104: ,X_MSG_DATA => X_MSG_DATA
10105: ,X_RETURN_STATUS => X_RETURN_STATUS);
10106:
10107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10108: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
10109: P_API_NAME => L_API_NAME
10110: ,P_PKG_NAME => G_PKG_NAME
10111: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10141: -- Pre-Req :
10142: -- Parameters:
10143: -- IN
10144: -- p_api_version_number IN NUMBER Required
10145: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
10146: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
10147: -- P_quote_id IN NUMBER Required
10148: -- p_rec_requested IN NUMBER Optional Default = 30
10149: -- p_start_rec_ptr IN NUMBER Optional Default = 1
10150: --
10151: -- Return Total Records Count Flag. This flag controls whether the total record count
10152: -- and total record amount is returned.
10153: --
10154: -- p_return_tot_count IN VARCHAR2 Optional Default = FND_API.G_FALSE
10155: -- Hint: User defined record type
10156: -- p_order_by_tbl IN AS_UTILITY_PUB.UTIL_ORDER_BY_TBL_TYPE;
10157: --
10158: -- OUT:
10182: -- End of Comments
10183: --
10184: PROCEDURE Get_Quote_Line(
10185: P_Api_Version_Number IN NUMBER,
10186: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
10187: p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
10188: p_start_rec_prt IN NUMBER := 1,
10189: p_return_tot_count IN NUMBER := FND_API.G_FALSE,
10190: -- Hint: user defined record type
10185: P_Api_Version_Number IN NUMBER,
10186: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
10187: p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
10188: p_start_rec_prt IN NUMBER := 1,
10189: p_return_tot_count IN NUMBER := FND_API.G_FALSE,
10190: -- Hint: user defined record type
10191: p_order_by_rec IN ASO_QUOTE_PUB.qte_line_sort_rec_type,
10192: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
10193: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
10241: l_inventory_item_id NUMBER;
10242: l_organization_id NUMBER;
10243: l_qte_line_detail_tbl ASO_QUOTE_PUB.QTE_LINE_DTL_TBL_TYPE;
10244: l_quantity NUMBER;
10245: l_update_flag VARCHAR2(1) := FND_API.G_FALSE;
10246:
10247: Begin
10248: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10249: aso_debug_pub.add('Procedure Service_item_qty_update Starts.', 1, 'Y');
10247: Begin
10248: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10249: aso_debug_pub.add('Procedure Service_item_qty_update Starts.', 1, 'Y');
10250: end if;
10251: x_return_status := FND_API.G_RET_STS_SUCCESS;
10252:
10253: IF p_service_item_flag = FND_API.G_FALSE THEN
10254: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10255: aso_debug_pub.add('Service_item_qty_update: Inside IF condition p_service_item_flag = FND_API.G_FALSE', 1, 'N');
10249: aso_debug_pub.add('Procedure Service_item_qty_update Starts.', 1, 'Y');
10250: end if;
10251: x_return_status := FND_API.G_RET_STS_SUCCESS;
10252:
10253: IF p_service_item_flag = FND_API.G_FALSE THEN
10254: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10255: aso_debug_pub.add('Service_item_qty_update: Inside IF condition p_service_item_flag = FND_API.G_FALSE', 1, 'N');
10256: end if;
10257:
10251: x_return_status := FND_API.G_RET_STS_SUCCESS;
10252:
10253: IF p_service_item_flag = FND_API.G_FALSE THEN
10254: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10255: aso_debug_pub.add('Service_item_qty_update: Inside IF condition p_service_item_flag = FND_API.G_FALSE', 1, 'N');
10256: end if;
10257:
10258: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row(p_qte_line_rec.quote_line_id);
10259: begin
10267: where service_ref_type_code = 'QUOTE' and service_ref_line_id = l_qte_line_rec.quote_line_id );
10268:
10269: EXCEPTION
10270: WHEN OTHERS THEN
10271: x_return_status := FND_API.G_RET_STS_ERROR;
10272: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10273: aso_debug_pub.add('Service_item_qty_update:Exception1',1,'N');
10274: end if;
10275: end;
10274: end if;
10275: end;
10276: ELSE
10277: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10278: aso_debug_pub.add('Service_item_qty_update:ELSE condition of p_service_item_flag = FND_API.G_FALSE', 1, 'N');
10279: end if;
10280: l_qte_line_detail_tbl := ASO_UTILITY_PVT.Query_Line_Dtl_Rows(p_qte_line_rec.quote_line_id);
10281:
10282: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10293: IF C_quantity%NOTFOUND THEN
10294: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10295: aso_debug_pub.add('Service_item_qty_update: Inside cursor C_quantity%NOTFOUND ', 1, 'N');
10296: end if;
10297: x_return_status := FND_API.G_RET_STS_ERROR;
10298: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10299: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SERVICE_REF_LINE');
10300: FND_MESSAGE.Set_Token('CODE', 'QUOTE', FALSE);
10301: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10301: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10302: FND_MSG_PUB.ADD;
10303: END IF;
10304: ELSE
10305: l_update_flag := FND_API.G_TRUE;
10306: END IF;
10307: CLOSE C_quantity;
10308: ELSIF l_qte_line_detail_tbl(i).service_ref_type_code = 'ORDER' THEN
10309: OPEN C_ord_qty(l_qte_line_detail_tbl(i).service_ref_line_id);
10314: IF C_ord_qty%NOTFOUND THEN
10315: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10316: aso_debug_pub.add('Service_item_qty_update: Inside cursor C_ord_qty%NOTFOUND condition.', 1, 'N');
10317: end if;
10318: x_return_status := FND_API.G_RET_STS_ERROR;
10319: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10320: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SERVICE_REF_LINE');
10321: FND_MESSAGE.Set_Token('CODE', 'ORDER', FALSE);
10322: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10322: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10323: FND_MSG_PUB.ADD;
10324: END IF;
10325: ELSE
10326: l_update_flag := FND_API.G_TRUE;
10327: END IF;
10328: CLOSE C_ord_qty;
10329: ELSIF l_qte_line_detail_tbl(i).service_ref_type_code = 'CUSTOMER_PRODUCT' THEN
10330: OPEN C_cs_qty(l_qte_line_detail_tbl(i).service_ref_line_id);
10336: IF C_cs_qty%NOTFOUND THEN
10337: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10338: aso_debug_pub.add('Service_item_qty_update: Inside cursor C_cs_qty%NOTFOUND condition. ', 1, 'N');
10339: end if;
10340: x_return_status := FND_API.G_RET_STS_ERROR;
10341: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10342: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SERVICE_REF_LINE');
10343: FND_MESSAGE.Set_Token('CODE', 'CUSTOMER_PRODUCT', FALSE);
10344: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10347: ELSE
10348: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10349: aso_debug_pub.add('Service_item_qty_update: cursor C_cs_qty%FOUND ', 1, 'N ');
10350: end if;
10351: l_update_flag := FND_API.G_TRUE;
10352: END IF;
10353: CLOSE C_cs_qty;
10354: /*** Start: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
10355: ELSIF l_qte_line_detail_tbl(i).service_ref_type_code = 'PRODUCT_CATALOG' THEN
10361: IF C_quantity%NOTFOUND THEN
10362: IF aso_debug_pub.g_debug_flag = 'Y' THEN
10363: aso_debug_pub.add('Service_item_qty_update: Inside cursor C_quantity%NOTFOUND ', 1, 'N');
10364: end if;
10365: x_return_status := FND_API.G_RET_STS_ERROR;
10366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10367: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SERVICE_REF_LINE');
10368: FND_MESSAGE.Set_Token('CODE', 'PRODUCT_CATALOG', FALSE);
10369: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10369: FND_MESSAGE.Set_Token('VALUE', l_qte_line_detail_tbl(i).service_ref_line_id, FALSE);
10370: FND_MSG_PUB.ADD;
10371: END IF;
10372: ELSE
10373: l_update_flag := FND_API.G_TRUE;
10374: END IF;
10375: CLOSE C_quantity;
10376: /*** End: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
10377: END IF; -- service_ref_type_code
10376: /*** End: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
10377: END IF; -- service_ref_type_code
10378:
10379:
10380: IF x_return_status <> FND_API.G_RET_STS_ERROR AND l_update_flag = FND_API.G_TRUE THEN
10381:
10382: Begin
10383:
10384: UPDATE aso_quote_lines_all
10389: where quote_line_id = p_qte_line_rec.quote_line_id;
10390:
10391: EXCEPTION
10392: WHEN OTHERS THEN
10393: x_return_status := FND_API.G_RET_STS_ERROR;
10394:
10395: if aso_debug_pub.g_debug_flag = 'Y' THEN
10396: aso_debug_pub.add('Service_item_qty_update:Exception raised when others', 1, 'N');
10397: end if;
10399: End;
10400:
10401: END IF;
10402:
10403: l_update_flag := FND_API.G_FALSE;
10404:
10405: END LOOP;
10406:
10407: END IF;