[Home] [Help]
561:
562: K := ppr_price_list_line_tbl.next(K);
563: END LOOP;
564:
565: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
566: g_new_price_list := false;
567: EXCEPTION
568:
569: WHEN FND_API.G_EXC_ERROR THEN
935: THEN
936:
937: IF NOT OE_Validate.Accounting_Rule(p_x_header_rec.accounting_rule_id)
938: THEN
939: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
940: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
941: p_x_header_rec.accounting_rule_id := NULL;
942: ELSE
943: x_return_status := FND_API.G_RET_STS_ERROR;
936:
937: IF NOT OE_Validate.Accounting_Rule(p_x_header_rec.accounting_rule_id)
938: THEN
939: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
940: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
941: p_x_header_rec.accounting_rule_id := NULL;
942: ELSE
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: END IF;
953: THEN
954:
955: IF NOT OE_Validate.Freight_Terms(p_x_header_rec.freight_terms_code)
956: THEN
957: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
958: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
959: p_x_header_rec.freight_terms_code := NULL;
960: ELSE
961: x_return_status := FND_API.G_RET_STS_ERROR;
954:
955: IF NOT OE_Validate.Freight_Terms(p_x_header_rec.freight_terms_code)
956: THEN
957: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
958: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
959: p_x_header_rec.freight_terms_code := NULL;
960: ELSE
961: x_return_status := FND_API.G_RET_STS_ERROR;
962: END IF;
971: THEN
972:
973: IF NOT OE_Validate.Invoicing_Rule(p_x_header_rec.invoicing_rule_id)
974: THEN
975: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
976: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
977: p_x_header_rec.invoicing_rule_id := NULL;
978: ELSE
979: x_return_status := FND_API.G_RET_STS_ERROR;
972:
973: IF NOT OE_Validate.Invoicing_Rule(p_x_header_rec.invoicing_rule_id)
974: THEN
975: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
976: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
977: p_x_header_rec.invoicing_rule_id := NULL;
978: ELSE
979: x_return_status := FND_API.G_RET_STS_ERROR;
980: END IF;
1008: p_old_header_rec.payment_term_id IS NULL )
1009: THEN
1010: IF NOT OE_Validate.Payment_Term(p_x_header_rec.payment_term_id)
1011: THEN
1012: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1013: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1014: p_x_header_rec.payment_term_id := NULL;
1015: ELSE
1016: x_return_status := FND_API.G_RET_STS_ERROR;
1009: THEN
1010: IF NOT OE_Validate.Payment_Term(p_x_header_rec.payment_term_id)
1011: THEN
1012: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1013: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1014: p_x_header_rec.payment_term_id := NULL;
1015: ELSE
1016: x_return_status := FND_API.G_RET_STS_ERROR;
1017: END IF;
1025: p_old_header_rec.price_list_id IS NULL )
1026: THEN
1027: IF NOT OE_Validate.Price_List(p_x_header_rec.price_list_id)
1028: THEN
1029: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1030: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1031: p_x_header_rec.price_list_id := NULL;
1032: ELSE
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1026: THEN
1027: IF NOT OE_Validate.Price_List(p_x_header_rec.price_list_id)
1028: THEN
1029: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1030: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1031: p_x_header_rec.price_list_id := NULL;
1032: ELSE
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: END IF;
1043: THEN
1044:
1045: IF NOT OE_Validate.Shipping_Method(p_x_header_rec.shipping_method_code)
1046: THEN
1047: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1048: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1049: p_x_header_rec.shipping_method_code := NULL;
1050: ELSE
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1044:
1045: IF NOT OE_Validate.Shipping_Method(p_x_header_rec.shipping_method_code)
1046: THEN
1047: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1048: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1049: p_x_header_rec.shipping_method_code := NULL;
1050: ELSE
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: END IF;
1061: THEN
1062:
1063: IF NOT OE_Validate.Ship_From_Org(p_x_header_rec.ship_from_org_id)
1064: THEN
1065: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1066: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1067: p_x_header_rec.ship_from_org_id := NULL;
1068: ELSE
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1062:
1063: IF NOT OE_Validate.Ship_From_Org(p_x_header_rec.ship_from_org_id)
1064: THEN
1065: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1066: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1067: p_x_header_rec.ship_from_org_id := NULL;
1068: ELSE
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1070: END IF;
1110: THEN
1111:
1112: IF NOT OE_Validate.Invoice_To_Org(p_x_header_rec.invoice_to_org_id)
1113: THEN
1114: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1115: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1116: p_x_header_rec.invoice_to_org_id := NULL;
1117: ELSE
1118: x_return_status := FND_API.G_RET_STS_ERROR;
1111:
1112: IF NOT OE_Validate.Invoice_To_Org(p_x_header_rec.invoice_to_org_id)
1113: THEN
1114: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1115: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1116: p_x_header_rec.invoice_to_org_id := NULL;
1117: ELSE
1118: x_return_status := FND_API.G_RET_STS_ERROR;
1119: END IF;
1128: THEN
1129:
1130: IF NOT OE_Validate.Ship_To_Org(p_x_header_rec.ship_to_org_id)
1131: THEN
1132: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1133: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1134: p_x_header_rec.ship_to_org_id := NULL;
1135: ELSE
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1129:
1130: IF NOT OE_Validate.Ship_To_Org(p_x_header_rec.ship_to_org_id)
1131: THEN
1132: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1133: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1134: p_x_header_rec.ship_to_org_id := NULL;
1135: ELSE
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: END IF;
1161: THEN
1162:
1163: IF NOT OE_Validate.salesrep(p_x_header_rec.salesrep_id)
1164: THEN
1165: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1166: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1167: p_x_header_rec.salesrep_id := NULL;
1168: ELSE
1169: x_return_status := FND_API.G_RET_STS_ERROR;
1162:
1163: IF NOT OE_Validate.salesrep(p_x_header_rec.salesrep_id)
1164: THEN
1165: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1166: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1167: p_x_header_rec.salesrep_id := NULL;
1168: ELSE
1169: x_return_status := FND_API.G_RET_STS_ERROR;
1170: END IF;
1173: END IF;
1174:
1175: -- Validate descriptive flex
1176:
1177: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
1178:
1179: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
1180: (p_x_header_rec.attribute1 IS NOT NULL AND
1181: ( p_x_header_rec.attribute1 <>
1175: -- Validate descriptive flex
1176:
1177: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
1178:
1179: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
1180: (p_x_header_rec.attribute1 IS NOT NULL AND
1181: ( p_x_header_rec.attribute1 <>
1182: p_old_header_rec.attribute1 OR
1183: p_old_header_rec.attribute1 IS NULL ))
1291: ,p_attribute20 => p_x_header_rec.attribute20
1292: ,p_document_type => 'BLANKET')
1293: THEN
1294:
1295: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1296: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
1297: THEN
1298: p_x_header_rec.context := null;
1299: p_x_header_rec.attribute1 := null;
1292: ,p_document_type => 'BLANKET')
1293: THEN
1294:
1295: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1296: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
1297: THEN
1298: p_x_header_rec.context := null;
1299: p_x_header_rec.attribute1 := null;
1300: p_x_header_rec.attribute2 := null;
1317: p_x_header_rec.attribute19 := null;
1318: p_x_header_rec.attribute20 := null;
1319:
1320:
1321: ELSIF p_validation_level = OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF AND
1322: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
1323: THEN
1324: p_x_header_rec.context := FND_API.G_MISS_CHAR;
1325: p_x_header_rec.attribute1 := FND_API.G_MISS_CHAR;
1318: p_x_header_rec.attribute20 := null;
1319:
1320:
1321: ELSIF p_validation_level = OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF AND
1322: p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
1323: THEN
1324: p_x_header_rec.context := FND_API.G_MISS_CHAR;
1325: p_x_header_rec.attribute1 := FND_API.G_MISS_CHAR;
1326: p_x_header_rec.attribute2 := FND_API.G_MISS_CHAR;
1527: if l_debug_level > 0 then
1528: oe_debug_pub.add('Calling OE_VALIDATE for accounting_rule',1);
1529: end if;
1530: IF NOT OE_Validate.Accounting_Rule(p_x_line_rec.accounting_rule_id) THEN
1531: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1532: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1533: p_x_line_rec.accounting_rule_id := NULL;
1534: ELSE
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1528: oe_debug_pub.add('Calling OE_VALIDATE for accounting_rule',1);
1529: end if;
1530: IF NOT OE_Validate.Accounting_Rule(p_x_line_rec.accounting_rule_id) THEN
1531: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1532: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1533: p_x_line_rec.accounting_rule_id := NULL;
1534: ELSE
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: END IF;
1543: p_old_line_rec.freight_terms_code IS NULL )
1544: THEN
1545:
1546: IF NOT OE_Validate.Freight_Terms(p_x_line_rec.freight_terms_code) THEN
1547: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1548: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1549: p_x_line_rec.freight_terms_code := NULL;
1550: ELSE
1551: x_return_status := FND_API.G_RET_STS_ERROR;
1544: THEN
1545:
1546: IF NOT OE_Validate.Freight_Terms(p_x_line_rec.freight_terms_code) THEN
1547: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1548: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1549: p_x_line_rec.freight_terms_code := NULL;
1550: ELSE
1551: x_return_status := FND_API.G_RET_STS_ERROR;
1552: END IF;
1558: p_old_line_rec.invoicing_rule_id OR
1559: p_old_line_rec.invoicing_rule_id IS NULL )
1560: THEN
1561: IF NOT OE_Validate.Invoicing_Rule(p_x_line_rec.invoicing_rule_id) THEN
1562: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1563: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1564: p_x_line_rec.invoicing_rule_id := NULL;
1565: ELSE
1566: x_return_status := FND_API.G_RET_STS_ERROR;
1559: p_old_line_rec.invoicing_rule_id IS NULL )
1560: THEN
1561: IF NOT OE_Validate.Invoicing_Rule(p_x_line_rec.invoicing_rule_id) THEN
1562: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1563: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1564: p_x_line_rec.invoicing_rule_id := NULL;
1565: ELSE
1566: x_return_status := FND_API.G_RET_STS_ERROR;
1567: END IF;
1584: p_old_line_rec.payment_term_id OR
1585: p_old_line_rec.payment_term_id IS NULL )
1586: THEN
1587: IF NOT OE_Validate.Payment_Term(p_x_line_rec.payment_term_id) THEN
1588: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1589: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1590: p_x_line_rec.payment_term_id := NULL;
1591: ELSE
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1585: p_old_line_rec.payment_term_id IS NULL )
1586: THEN
1587: IF NOT OE_Validate.Payment_Term(p_x_line_rec.payment_term_id) THEN
1588: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1589: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1590: p_x_line_rec.payment_term_id := NULL;
1591: ELSE
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593: END IF;
1609: p_old_line_rec.shipping_method_code OR
1610: p_old_line_rec.shipping_method_code IS NULL )
1611: THEN
1612: IF NOT OE_Validate.Shipping_Method(p_x_line_rec.shipping_method_code) THEN
1613: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1614: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1615: p_x_line_rec.shipping_method_code := NULL;
1616: ELSE
1617: x_return_status := FND_API.G_RET_STS_ERROR;
1610: p_old_line_rec.shipping_method_code IS NULL )
1611: THEN
1612: IF NOT OE_Validate.Shipping_Method(p_x_line_rec.shipping_method_code) THEN
1613: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1614: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1615: p_x_line_rec.shipping_method_code := NULL;
1616: ELSE
1617: x_return_status := FND_API.G_RET_STS_ERROR;
1618: END IF;
1624: p_old_line_rec.ship_from_org_id OR
1625: p_old_line_rec.ship_from_org_id IS NULL )
1626: THEN
1627: IF NOT OE_Validate.Ship_From_Org(p_x_line_rec.ship_from_org_id) THEN
1628: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1629: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1630: p_x_line_rec.ship_from_org_id := NULL;
1631: ELSE
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1625: p_old_line_rec.ship_from_org_id IS NULL )
1626: THEN
1627: IF NOT OE_Validate.Ship_From_Org(p_x_line_rec.ship_from_org_id) THEN
1628: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1629: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1630: p_x_line_rec.ship_from_org_id := NULL;
1631: ELSE
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1633: END IF;
1639: p_old_line_rec.salesrep_id OR
1640: p_old_line_rec.salesrep_id IS NULL )
1641: THEN
1642: IF NOT OE_Validate.salesrep(p_x_line_rec.salesrep_id) THEN
1643: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1644: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1645: p_x_line_rec.salesrep_id := NULL;
1646: ELSE
1647: x_return_status := FND_API.G_RET_STS_ERROR;
1640: p_old_line_rec.salesrep_id IS NULL )
1641: THEN
1642: IF NOT OE_Validate.salesrep(p_x_line_rec.salesrep_id) THEN
1643: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1644: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1645: p_x_line_rec.salesrep_id := NULL;
1646: ELSE
1647: x_return_status := FND_API.G_RET_STS_ERROR;
1648: END IF;
1657:
1658: oe_debug_pub.add('Maitrayee: Entering the code change in Validate_Attributes');
1659: -- Skip the Validation if not changes are made in the DFF from the UI.
1660:
1661: IF l_context_required_flag = 'Y' AND ( p_x_line_rec.context IS NULL OR p_x_line_rec.context = FND_API.G_MISS_CHAR ) AND (OE_GLOBALS.G_UI_FLAG) THEN
1662:
1663: l_validate_line := 'N';
1664: IF l_debug_level > 0 then
1665: oe_debug_pub.add('Skipping Validation');
1664: IF l_debug_level > 0 then
1665: oe_debug_pub.add('Skipping Validation');
1666: END IF;
1667:
1668: ELSIF l_context_required_flag = 'Y' AND ( p_x_line_rec.context IS NULL OR p_x_line_rec.context = FND_API.G_MISS_CHAR ) AND NOT (OE_GLOBALS.G_UI_FLAG) THEN
1669:
1670: -- Show Error message if appropriate context value is not passed
1671: -- from the Process Order Call and if the Context field is required.
1672:
1692: -- Bug # 5562785)
1693:
1694: IF(l_validate_line = 'Y') THEN -- Bug # 5562785
1695:
1696: IF p_x_line_rec.operation = oe_globals.g_opr_create OR
1697: (p_x_line_rec.operation = oe_globals.g_opr_update AND
1698: (p_x_line_rec.attribute1 IS NOT NULL AND
1699: ( p_x_line_rec.attribute1 <>
1700: p_old_line_rec.attribute1 OR
1693:
1694: IF(l_validate_line = 'Y') THEN -- Bug # 5562785
1695:
1696: IF p_x_line_rec.operation = oe_globals.g_opr_create OR
1697: (p_x_line_rec.operation = oe_globals.g_opr_update AND
1698: (p_x_line_rec.attribute1 IS NOT NULL AND
1699: ( p_x_line_rec.attribute1 <>
1700: p_old_line_rec.attribute1 OR
1701: p_old_line_rec.attribute1 IS NULL ))
1807: ,p_attribute19 => p_x_line_rec.attribute19
1808: ,p_attribute20 => p_x_line_rec.attribute20
1809: ,p_document_type => 'BLANKET' ) THEN -- Bug # 5562785
1810:
1811: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1812: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1813:
1814: p_x_line_rec.context := null;
1815: p_x_line_rec.attribute1 := null;
1808: ,p_attribute20 => p_x_line_rec.attribute20
1809: ,p_document_type => 'BLANKET' ) THEN -- Bug # 5562785
1810:
1811: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1812: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1813:
1814: p_x_line_rec.context := null;
1815: p_x_line_rec.attribute1 := null;
1816: p_x_line_rec.attribute2 := null;
1832: p_x_line_rec.attribute18 := null;
1833: p_x_line_rec.attribute19 := null;
1834: p_x_line_rec.attribute20 := null;
1835:
1836: ELSIF p_validation_level = OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF AND
1837: p_x_line_rec.operation =OE_GLOBALS.G_OPR_CREATE THEN
1838:
1839: p_x_line_rec.context := FND_API.G_MISS_CHAR;
1840: p_x_line_rec.attribute1 := FND_API.G_MISS_CHAR;
1833: p_x_line_rec.attribute19 := null;
1834: p_x_line_rec.attribute20 := null;
1835:
1836: ELSIF p_validation_level = OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF AND
1837: p_x_line_rec.operation =OE_GLOBALS.G_OPR_CREATE THEN
1838:
1839: p_x_line_rec.context := FND_API.G_MISS_CHAR;
1840: p_x_line_rec.attribute1 := FND_API.G_MISS_CHAR;
1841: p_x_line_rec.attribute2 := FND_API.G_MISS_CHAR;
2163: WHEN OTHERS THEN
2164: l_dummy := null;
2165: END;
2166:
2167: IF OE_GLOBALS.Equal(l_dummy,'VALID') THEN
2168: RETURN TRUE;
2169: ELSE
2170: IF p_inventory_item_id IS NOT NULL THEN
2171: select service_item_flag,bom_item_type
2238: oe_debug_pub.add('Header end date : '||g_header_rec.end_date_active);
2239: end if;
2240:
2241: -- Load old line rec if not passed
2242: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2243: IF l_old_line_rec.line_id is null THEN
2244: l_old_line_rec := Query_Row(p_line_id => p_line_rec.line_id);
2245: END IF;
2246: END IF;
2246: END IF;
2247:
2248: -- Validate Last Updated By values.
2249: -- Added for bug #6270818.
2250: IF p_line_rec.operation = oe_globals.g_opr_update
2251: THEN
2252: If p_line_rec.last_updated_by <> FND_GLOBAL.USER_ID or
2253: l_old_line_rec.last_updated_by <> FND_GLOBAL.USER_ID
2254: THEN
2268: END IF;
2269:
2270: -- Versioning/Reasons changes (moved to beginning for bug 3775937
2271: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
2272: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
2273: OE_GLOBALS.G_REASON_CODE := p_line_rec.revision_change_reason_code;
2274: OE_GLOBALS.G_REASON_COMMENTS := p_line_rec.revision_change_comments;
2275: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2276: end if;
2269:
2270: -- Versioning/Reasons changes (moved to beginning for bug 3775937
2271: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
2272: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
2273: OE_GLOBALS.G_REASON_CODE := p_line_rec.revision_change_reason_code;
2274: OE_GLOBALS.G_REASON_COMMENTS := p_line_rec.revision_change_comments;
2275: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2276: end if;
2277:
2270: -- Versioning/Reasons changes (moved to beginning for bug 3775937
2271: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
2272: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
2273: OE_GLOBALS.G_REASON_CODE := p_line_rec.revision_change_reason_code;
2274: OE_GLOBALS.G_REASON_COMMENTS := p_line_rec.revision_change_comments;
2275: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2276: end if;
2277:
2278: -- added for bug 3443777 need to call validate entity for reasons capture
2271: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
2272: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
2273: OE_GLOBALS.G_REASON_CODE := p_line_rec.revision_change_reason_code;
2274: OE_GLOBALS.G_REASON_COMMENTS := p_line_rec.revision_change_comments;
2275: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2276: end if;
2277:
2278: -- added for bug 3443777 need to call validate entity for reasons capture
2279: IF (p_line_rec.operation <> OE_GLOBALS.g_opr_delete) THEN
2275: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2276: end if;
2277:
2278: -- added for bug 3443777 need to call validate entity for reasons capture
2279: IF (p_line_rec.operation <> OE_GLOBALS.g_opr_delete) THEN
2280:
2281: -----------------------------------------------------------
2282: -- Check required attributes.
2283: -----------------------------------------------------------
2345: oe_debug_pub.add('Blanket In validate entity 2');
2346: end if;
2347:
2348: -- Customer Item Validation
2349: IF (p_line_rec.operation = oe_globals.g_opr_update or p_line_rec.operation = oe_globals.g_opr_create) AND
2350: p_line_rec.ITEM_IDENTIFIER_TYPE = 'CUST' then
2351: oe_blanket_util.Get_Inventory_Item(p_x_line_rec => p_line_rec,
2352: x_return_status => l_return_status);
2353: END if;
2374: ---------------------------------------------------------------------
2375:
2376: -- Log request to validate line number if line number changed
2377:
2378: IF NOT OE_GLOBALS.Equal
2379: (p_line_rec.line_number,l_old_line_rec.line_number)
2380: THEN
2381: --some fields not allowed to update if release exists against line
2382: IF (p_line_rec.released_amount > 0) THEN
2403:
2404:
2405: -- Inventory Item Validations
2406:
2407: IF NOT OE_GLOBALS.Equal
2408: (p_line_rec.item_identifier_type,l_old_line_rec.item_identifier_type)
2409: OR NOT OE_GLOBALS.Equal
2410: (p_line_rec.inventory_item_id,l_old_line_rec.inventory_item_id)
2411: OR NOT OE_GLOBALS.Equal
2405: -- Inventory Item Validations
2406:
2407: IF NOT OE_GLOBALS.Equal
2408: (p_line_rec.item_identifier_type,l_old_line_rec.item_identifier_type)
2409: OR NOT OE_GLOBALS.Equal
2410: (p_line_rec.inventory_item_id,l_old_line_rec.inventory_item_id)
2411: OR NOT OE_GLOBALS.Equal
2412: (p_line_rec.end_date_active,l_old_line_rec.end_date_active)
2413: OR NOT OE_GLOBALS.Equal
2407: IF NOT OE_GLOBALS.Equal
2408: (p_line_rec.item_identifier_type,l_old_line_rec.item_identifier_type)
2409: OR NOT OE_GLOBALS.Equal
2410: (p_line_rec.inventory_item_id,l_old_line_rec.inventory_item_id)
2411: OR NOT OE_GLOBALS.Equal
2412: (p_line_rec.end_date_active,l_old_line_rec.end_date_active)
2413: OR NOT OE_GLOBALS.Equal
2414: (p_line_rec.start_date_active,l_old_line_rec.start_date_active)
2415: THEN
2409: OR NOT OE_GLOBALS.Equal
2410: (p_line_rec.inventory_item_id,l_old_line_rec.inventory_item_id)
2411: OR NOT OE_GLOBALS.Equal
2412: (p_line_rec.end_date_active,l_old_line_rec.end_date_active)
2413: OR NOT OE_GLOBALS.Equal
2414: (p_line_rec.start_date_active,l_old_line_rec.start_date_active)
2415: THEN
2416: --fields not allowed to update if releases exist against this line
2417: IF (p_line_rec.released_amount > 0) AND
2414: (p_line_rec.start_date_active,l_old_line_rec.start_date_active)
2415: THEN
2416: --fields not allowed to update if releases exist against this line
2417: IF (p_line_rec.released_amount > 0) AND
2418: (NOT OE_GLOBALS.Equal
2419: (p_line_rec.inventory_item_id,l_old_line_rec.inventory_item_id)) THEN
2420:
2421: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2422: fnd_message.set_token('ATTRIBUTE',
2424: OE_MSG_PUB.add;
2425: x_return_status := FND_API.G_RET_STS_ERROR;
2426:
2427: ELSIF (p_line_rec.released_amount > 0) AND
2428: (NOT OE_GLOBALS.Equal
2429: (p_line_rec.item_identifier_type,l_old_line_rec.item_identifier_type)) THEN
2430: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2431: fnd_message.set_token('ATTRIBUTE',
2432: OE_Order_UTIL.Get_Attribute_Name('ITEM_IDENTIFIER_TYPE'));
2492:
2493: -- Validate Ship to
2494:
2495: IF p_line_rec.ship_to_org_id IS NOT NULL AND
2496: ( NOT OE_GLOBALS.EQUAL(p_line_rec.ship_to_org_id ,l_old_line_rec.ship_to_org_id) OR
2497: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2498: -- ER 5743580
2499: IF ( NOT Validate_Ship_To_Org(p_line_rec.ship_to_org_id,
2500: p_line_rec.sold_to_org_id )) THEN
2493: -- Validate Ship to
2494:
2495: IF p_line_rec.ship_to_org_id IS NOT NULL AND
2496: ( NOT OE_GLOBALS.EQUAL(p_line_rec.ship_to_org_id ,l_old_line_rec.ship_to_org_id) OR
2497: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2498: -- ER 5743580
2499: IF ( NOT Validate_Ship_To_Org(p_line_rec.ship_to_org_id,
2500: p_line_rec.sold_to_org_id )) THEN
2501: if l_debug_level > 0 then
2514: oe_debug_pub.add('Validating deliver_to_org_id :'|| to_char(p_line_rec.deliver_to_org_id),2);
2515: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
2516: end if;
2517: IF p_line_rec.deliver_to_org_id IS NOT NULL AND
2518: ( NOT OE_GLOBALS.EQUAL(p_line_rec.deliver_to_org_id,l_old_line_rec.deliver_to_org_id) OR
2519: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2520: -- ER 5743580
2521: IF NOT (Validate_Deliver_To_Org(p_line_rec.deliver_to_org_id,
2522: p_line_rec.sold_to_org_id )) THEN
2515: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
2516: end if;
2517: IF p_line_rec.deliver_to_org_id IS NOT NULL AND
2518: ( NOT OE_GLOBALS.EQUAL(p_line_rec.deliver_to_org_id,l_old_line_rec.deliver_to_org_id) OR
2519: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2520: -- ER 5743580
2521: IF NOT (Validate_Deliver_To_Org(p_line_rec.deliver_to_org_id,
2522: p_line_rec.sold_to_org_id )) THEN
2523:
2532:
2533: -- Invoice to Org id depends on sold to org.
2534:
2535: IF p_line_rec.invoice_to_org_id IS NOT NULL AND
2536: ( NOT OE_GLOBALS.EQUAL(p_line_rec.invoice_to_org_id ,l_old_line_rec.invoice_to_org_id) OR
2537: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2538: -- ER 5743580
2539: IF NOT ( Validate_Invoice_To_Org ( p_line_rec.invoice_to_org_id,
2540: p_line_rec.sold_to_org_id )) THEN
2533: -- Invoice to Org id depends on sold to org.
2534:
2535: IF p_line_rec.invoice_to_org_id IS NOT NULL AND
2536: ( NOT OE_GLOBALS.EQUAL(p_line_rec.invoice_to_org_id ,l_old_line_rec.invoice_to_org_id) OR
2537: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2538: -- ER 5743580
2539: IF NOT ( Validate_Invoice_To_Org ( p_line_rec.invoice_to_org_id,
2540: p_line_rec.sold_to_org_id )) THEN
2541: x_return_status := FND_API.G_RET_STS_ERROR;
2555: if (p_line_rec.end_date_active is not NULL and
2556: (p_line_rec.start_date_active)
2557: > (p_line_rec.end_date_active)) THEN
2558: if ( nvl(p_line_rec.source_document_type_id,0) = 2 --bug#5528507
2559: AND p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
2560: then
2561: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
2562: OE_MSG_PUB.ADD;
2563: oe_debug_pub.add('1: Not Setting Error',1);
2673: x_return_status := FND_API.G_RET_STS_ERROR;
2674:
2675: END IF;
2676:
2677: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2678:
2679: if l_debug_level > 0 then
2680: oe_debug_pub.add('Blanket In validate entity 4: update');
2681: end if;
2691: --oe_blanket_util.Get_Inventory_Item(p_x_line_rec => p_line_rec,
2692: -- x_return_status => l_return_status);
2693: --End srini
2694: --display warning if we haven't fulfilled minimum requirements
2695: IF NOT OE_GLOBALS.Equal(p_line_rec.end_date_active, l_old_line_rec.end_date_active) AND
2696: p_line_rec.end_date_active <= trunc(sysdate) AND
2697: p_line_rec.override_blanket_controls_flag = 'N' THEN
2698: IF nvl(p_line_rec.released_amount,0) < p_line_rec.blanket_min_amount THEN
2699: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
2712: END IF;
2713:
2714: --some fields are not allowed to update if release exists against line
2715: IF (p_line_rec.released_amount > 0) THEN
2716: IF NOT OE_GLOBALS.Equal (p_line_rec.order_quantity_uom,
2717: l_old_line_rec.order_quantity_uom) THEN
2718: x_return_status := FND_API.G_RET_STS_ERROR;
2719: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2720: fnd_message.set_token('ATTRIBUTE',
2722: OE_MSG_PUB.Add;
2723: END IF;
2724: END IF;
2725:
2726: IF NOT OE_GLOBALS.EQUAL (p_line_rec.end_date_active, l_old_line_rec.end_date_active) THEN
2727: --validate item uniqueness
2728: OE_Delayed_Requests_Pvt.Log_Request(p_Entity_Code =>
2729: OE_BLANKET_pub.G_ENTITY_BLANKET_LINE ,
2730: p_Entity_Id => p_line_rec.line_id,
2779: -- line creation is anyway restricted to line CREATE operation.
2780: oe_debug_pub.add('old pricing uom :'||l_old_line_rec.pricing_uom);
2781: oe_debug_pub.add('new pricing uom :'||p_line_rec.pricing_uom);
2782: --pricing uom not allowed to change if blanket price list
2783: if NOT OE_GLOBALS.EQUAL(p_line_rec.pricing_uom,
2784: l_old_line_rec.pricing_uom) THEN
2785: if (g_new_price_list) THEN
2786: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2787: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2803:
2804: if l_debug_level > 0 then
2805: oe_debug_pub.add('Blanket In validate entity update 1');
2806: end if;
2807: if NOT OE_GLOBALS.EQUAL(p_line_rec.released_amount,
2808: l_old_line_rec.released_amount) THEN
2809: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2810: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Released Amount');
2811: OE_MSG_PUB.ADD;
2811: OE_MSG_PUB.ADD;
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: end if;
2814:
2815: if NOT OE_GLOBALS.EQUAL(p_line_rec.returned_amount,
2816: l_old_line_rec.returned_amount) THEN
2817: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2818: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Returned Amount');
2819: OE_MSG_PUB.ADD;
2819: OE_MSG_PUB.ADD;
2820: x_return_status := FND_API.G_RET_STS_ERROR;
2821: end if;
2822:
2823: if NOT OE_GLOBALS.EQUAL(p_line_rec.released_quantity,
2824: l_old_line_rec.released_quantity) THEN
2825: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2826: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Released Quantity');
2827: OE_MSG_PUB.ADD;
2827: OE_MSG_PUB.ADD;
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: end if;
2830:
2831: if NOT OE_GLOBALS.EQUAL(p_line_rec.fulfilled_quantity,
2832: l_old_line_rec.fulfilled_quantity) THEN
2833: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2834: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Fulfilled Quantity');
2835: OE_MSG_PUB.ADD;
2835: OE_MSG_PUB.ADD;
2836: x_return_status := FND_API.G_RET_STS_ERROR;
2837: end if;
2838:
2839: if NOT OE_GLOBALS.EQUAL(p_line_rec.fulfilled_amount,
2840: l_old_line_rec.fulfilled_amount) THEN
2841: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2842: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Fulfilled Amount');
2843: OE_MSG_PUB.ADD;
2843: OE_MSG_PUB.ADD;
2844: x_return_status := FND_API.G_RET_STS_ERROR;
2845: end if;
2846:
2847: if NOT OE_GLOBALS.EQUAL(p_line_rec.returned_quantity,
2848: l_old_line_rec.returned_quantity) THEN
2849: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2850: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Returned Quantity');
2851: OE_MSG_PUB.ADD;
2862: -- Bug 3193220
2863: -- Expiration Date cannot be less than sysdate
2864: ---------------------------------------------------------------------
2865: --Changes made for Bug No 5528599
2866: if (NOT OE_GLOBALS.EQUAL(trunc(p_line_rec.end_date_active),
2867: trunc(l_old_line_rec.end_date_active))
2868: AND trunc(p_line_rec.end_date_active) < trunc(sysdate))
2869: THEN
2870: oe_debug_pub.add('2:source_document_type_id :'|| p_line_rec.source_document_type_id,1);
2870: oe_debug_pub.add('2:source_document_type_id :'|| p_line_rec.source_document_type_id,1);
2871: oe_debug_pub.add('2:source_document_line_id :'|| p_line_rec.source_document_line_id,1);
2872:
2873: if ( nvl(p_line_rec.source_document_type_id,0) = 2 --bug#5528507
2874: AND p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
2875: then
2876: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
2877: OE_MSG_PUB.ADD;
2878: oe_debug_pub.add('2: Not Setting Error',1);
2896: -- blanket line is updated with list price information i.e. list
2897: -- price was originally null on the line.
2898: -- Note that it's not supported if list price existed before
2899: -- and user tries to update list price itself.
2900: --IF p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2901:
2902: --only add line information if new price list
2903: -- This if is for the scenario where price list is also being
2904: -- created i.e. blanket header with new price list is being
2911: end if;
2912:
2913: --for bug 3229225.Commented out NOCOPY /* file.sql.39 change */ the If condition and added modified condition
2914: -- IF p_line_rec.unit_list_price IS NOT NULL
2915: IF NOT OE_GLOBALS.EQUAL(p_line_rec.unit_list_price,p_old_line_rec.unit_list_price)
2916: THEN
2917: oe_delayed_requests_pvt.Log_request(p_Entity_Code =>
2918: OE_BLANKET_pub.G_ENTITY_BLANKET_LINE,
2919: p_Entity_Id => p_line_rec.line_id,
2948: THEN
2949: -- Only for release before 11i10 check if header and line price list
2950: -- are same.
2951: IF (OE_Code_Control.Get_Code_Release_Level < '110510'
2952: AND OE_GLOBALS.Equal(p_line_rec.price_list_id, g_header_rec.price_list_id))
2953: OR OE_Code_Control.Get_Code_Release_Level >= '110510'
2954: THEN
2955:
2956: if l_debug_level > 0 then
2961: --for bug 3229225.Commented out NOCOPY /* file.sql.39 change */ the If condition and added modified condition
2962: -- IF p_line_rec.unit_list_price IS NOT NULL
2963: -- AND p_line_rec.qp_list_line_id IS NULL THEN
2964:
2965: IF (NOT OE_GLOBALS.EQUAL(p_line_rec.unit_list_price,p_old_line_rec.unit_list_price))
2966: OR (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2967: p_line_rec.unit_list_price IS NOT NULL) --Bug#4694968
2968: THEN
2969:
2962: -- IF p_line_rec.unit_list_price IS NOT NULL
2963: -- AND p_line_rec.qp_list_line_id IS NULL THEN
2964:
2965: IF (NOT OE_GLOBALS.EQUAL(p_line_rec.unit_list_price,p_old_line_rec.unit_list_price))
2966: OR (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2967: p_line_rec.unit_list_price IS NOT NULL) --Bug#4694968
2968: THEN
2969:
2970: -- Bug 3380740
3046: p_Entity_Id => p_line_rec.line_id,
3047: p_requesting_entity_code =>
3048: OE_BLANKET_pub.G_ENTITY_BLANKET_LINE,
3049: p_requesting_entity_id => p_line_rec.line_id,
3050: p_request_type => OE_GLOBALS.G_CLEAR_BLKT_PRICE_LIST_LINE,
3051: p_param1=> p_line_rec.qp_list_line_id,
3052: p_param2 => g_header_rec.new_price_list_id,
3053: p_param3 => p_line_rec.price_list_id,
3054: p_param4 => p_line_rec.header_id,
3056: END IF;
3057:
3058: -- 11i10 Pricing Changes Start
3059: -- Log request to create new discount line
3060: IF NOT OE_GLOBALS.EQUAL(p_line_rec.discount_percent,
3061: p_old_line_rec.discount_percent)
3062: OR NOT OE_GLOBALS.EQUAL(p_line_rec.discount_amount,
3063: p_old_line_rec.discount_amount)
3064: OR (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND --bug#4691643
3058: -- 11i10 Pricing Changes Start
3059: -- Log request to create new discount line
3060: IF NOT OE_GLOBALS.EQUAL(p_line_rec.discount_percent,
3061: p_old_line_rec.discount_percent)
3062: OR NOT OE_GLOBALS.EQUAL(p_line_rec.discount_amount,
3063: p_old_line_rec.discount_amount)
3064: OR (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND --bug#4691643
3065: (p_line_rec.discount_amount IS NOT NULL OR
3066: p_line_rec.discount_percent IS NOT NULL))
3060: IF NOT OE_GLOBALS.EQUAL(p_line_rec.discount_percent,
3061: p_old_line_rec.discount_percent)
3062: OR NOT OE_GLOBALS.EQUAL(p_line_rec.discount_amount,
3063: p_old_line_rec.discount_amount)
3064: OR (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND --bug#4691643
3065: (p_line_rec.discount_amount IS NOT NULL OR
3066: p_line_rec.discount_percent IS NOT NULL))
3067: THEN
3068:
3163: oe_debug_pub.add('new end date :'||p_header_rec.end_date_active);
3164: oe_debug_pub.add('old end date :'||l_old_header_rec.end_date_active);
3165: end if;
3166:
3167: IF p_header_rec.operation = oe_globals.g_opr_update THEN
3168: if l_old_header_rec.header_id is null THEN
3169: Query_Header(
3170: p_header_id => p_header_rec.header_id,
3171: x_header_rec => l_old_header_Rec,
3177: END IF;
3178:
3179: -- Validate Last Updated By valued issue
3180: -- Added for a bug #6270818.
3181: IF p_header_rec.operation = oe_globals.g_opr_update
3182: THEN
3183: If p_header_rec.last_updated_by <> FND_GLOBAL.USER_ID or
3184: l_old_header_rec.last_updated_by <> FND_GLOBAL.USER_ID
3185: THEN
3194:
3195:
3196: -- Validate Transaction Phase
3197: -- Added for Pack -j Srini.
3198: IF p_header_rec.operation = oe_globals.g_opr_create and
3199: oe_code_control.get_code_release_level >= '110510'
3200: THEN
3201: If p_header_rec.TRANSACTION_PHASE_CODE is null and
3202: l_old_header_rec.TRANSACTION_PHASE_CODE is null
3208:
3209: g_header_rec := p_header_rec;
3210:
3211: -- Get Blanket Number
3212: IF NOT OE_GLOBALS.EQUAL(p_header_rec.order_type_id,
3213: l_old_header_rec.order_type_id) THEN
3214: IF p_header_rec.order_number is null or
3215: p_header_rec.order_number = FND_API.G_MISS_NUM
3216: Then
3237: g_header_rec := p_header_rec;
3238:
3239: -- Versioning/Reasons changes (moved to beginning for bug 3775937
3240: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
3241: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
3242: OE_GLOBALS.G_REASON_CODE := p_header_rec.revision_change_reason_code;
3243: OE_GLOBALS.G_REASON_COMMENTS := p_header_rec.revision_change_comments;
3244: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3245: end if;
3238:
3239: -- Versioning/Reasons changes (moved to beginning for bug 3775937
3240: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
3241: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
3242: OE_GLOBALS.G_REASON_CODE := p_header_rec.revision_change_reason_code;
3243: OE_GLOBALS.G_REASON_COMMENTS := p_header_rec.revision_change_comments;
3244: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3245: end if;
3246:
3239: -- Versioning/Reasons changes (moved to beginning for bug 3775937
3240: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
3241: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
3242: OE_GLOBALS.G_REASON_CODE := p_header_rec.revision_change_reason_code;
3243: OE_GLOBALS.G_REASON_COMMENTS := p_header_rec.revision_change_comments;
3244: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3245: end if;
3246:
3247: -- Check Required attributes
3240: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
3241: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
3242: OE_GLOBALS.G_REASON_CODE := p_header_rec.revision_change_reason_code;
3243: OE_GLOBALS.G_REASON_COMMENTS := p_header_rec.revision_change_comments;
3244: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3245: end if;
3246:
3247: -- Check Required attributes
3248: IF p_header_rec.header_id IS NULL THEN
3290: -- Bug 3193220
3291: -- Expiration Date cannot be less than sysdate
3292: ---------------------------------------------------------------------
3293: --Changes made for Bug No 5528599 start
3294: if (NOT OE_GLOBALS.EQUAL(trunc(p_header_rec.end_date_active),
3295: trunc(l_old_header_rec.end_date_active))
3296: AND trunc(p_header_rec.end_date_active) < trunc(sysdate))
3297: then
3298:
3296: AND trunc(p_header_rec.end_date_active) < trunc(sysdate))
3297: then
3298:
3299: if ( nvl(p_header_rec.source_document_type_id,0) = 2) --bug#5528507
3300: AND p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
3301: then
3302: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3303: OE_MSG_PUB.ADD;
3304: oe_debug_pub.add('3: Not Setting Error',1);
3314: -- End Expiration Date < sysdate check
3315:
3316: -- Validate Ship to
3317: IF p_header_rec.ship_to_org_id IS NOT NULL AND
3318: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ship_to_org_id ,l_old_header_rec.ship_to_org_id) OR
3319: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3320: -- ER 5743580
3321: IF ( NOT Validate_Ship_To_Org(p_header_rec.ship_to_org_id,
3322: p_header_rec.sold_to_org_id )) THEN
3315:
3316: -- Validate Ship to
3317: IF p_header_rec.ship_to_org_id IS NOT NULL AND
3318: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ship_to_org_id ,l_old_header_rec.ship_to_org_id) OR
3319: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3320: -- ER 5743580
3321: IF ( NOT Validate_Ship_To_Org(p_header_rec.ship_to_org_id,
3322: p_header_rec.sold_to_org_id )) THEN
3323: if l_debug_level > 0 then
3337:
3338: -- Customer Location depends on Sold To Org
3339:
3340: IF p_header_rec.sold_to_site_use_id IS NOT NULL AND
3341: ( NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_site_use_id
3342: ,p_old_header_rec.sold_to_site_use_id) OR
3343: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id
3344: ,p_old_header_rec.sold_to_org_id))
3345: THEN
3339:
3340: IF p_header_rec.sold_to_site_use_id IS NOT NULL AND
3341: ( NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_site_use_id
3342: ,p_old_header_rec.sold_to_site_use_id) OR
3343: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id
3344: ,p_old_header_rec.sold_to_org_id))
3345: THEN
3346:
3347: BEGIN
3394: oe_debug_pub.add('Validating deliver_to_org_id :'|| to_char(p_header_rec.deliver_to_org_id),2);
3395: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
3396: end if;
3397: IF p_header_rec.deliver_to_org_id IS NOT NULL AND
3398: ( NOT OE_GLOBALS.EQUAL(p_header_rec.deliver_to_org_id,l_old_header_rec.deliver_to_org_id) OR
3399: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3400: -- ER 5743580
3401: IF NOT (Validate_Deliver_To_Org(p_header_rec.deliver_to_org_id,
3402: p_header_rec.sold_to_org_id )) THEN
3395: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
3396: end if;
3397: IF p_header_rec.deliver_to_org_id IS NOT NULL AND
3398: ( NOT OE_GLOBALS.EQUAL(p_header_rec.deliver_to_org_id,l_old_header_rec.deliver_to_org_id) OR
3399: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3400: -- ER 5743580
3401: IF NOT (Validate_Deliver_To_Org(p_header_rec.deliver_to_org_id,
3402: p_header_rec.sold_to_org_id )) THEN
3403:
3411: END if; -- Deliver to
3412:
3413: -- Invoice to Org id depends on sold to org.
3414: IF p_header_rec.invoice_to_org_id IS NOT NULL AND
3415: ( NOT OE_GLOBALS.EQUAL(p_header_rec.invoice_to_org_id ,l_old_header_rec.invoice_to_org_id) OR
3416: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3417: -- ER 5743580
3418: IF NOT ( Validate_Invoice_To_Org ( p_header_rec.invoice_to_org_id,
3419: p_header_rec.sold_to_org_id )) THEN
3412:
3413: -- Invoice to Org id depends on sold to org.
3414: IF p_header_rec.invoice_to_org_id IS NOT NULL AND
3415: ( NOT OE_GLOBALS.EQUAL(p_header_rec.invoice_to_org_id ,l_old_header_rec.invoice_to_org_id) OR
3416: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3417: -- ER 5743580
3418: IF NOT ( Validate_Invoice_To_Org ( p_header_rec.invoice_to_org_id,
3419: p_header_rec.sold_to_org_id )) THEN
3420: x_return_status := FND_API.G_RET_STS_ERROR;
3427: END IF; -- Invoice to org
3428:
3429: -- Sold to contact depends on Sold To Org
3430: IF p_header_rec.sold_to_contact_id IS NOT NULL AND
3431: ( NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_contact_id ,l_old_header_rec.sold_to_contact_id) OR
3432: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3433: BEGIN
3434:
3435: SELECT 'VALID'
3428:
3429: -- Sold to contact depends on Sold To Org
3430: IF p_header_rec.sold_to_contact_id IS NOT NULL AND
3431: ( NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_contact_id ,l_old_header_rec.sold_to_contact_id) OR
3432: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3433: BEGIN
3434:
3435: SELECT 'VALID'
3436: INTO l_dummy
3510: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3511: oe_debug_pub.add('old ml id :'||p_old_header_rec.new_modifier_list_id);
3512: end if;
3513:
3514: IF NOT OE_GLOBALS.EQUAL(p_header_rec.new_price_list_id,
3515: p_old_header_rec.new_price_list_id)
3516: THEN
3517:
3518: -- Cannot enter ID for a new price list, only name
3523: ELSIF p_header_rec.new_price_list_name IS NOT NULL
3524: -- Bug 3213174
3525: -- Changes from null to not null will be allowed
3526: AND p_old_header_rec.new_price_list_name IS NULL
3527: AND NOT OE_GLOBALS.EQUAL(p_header_rec.new_price_list_name
3528: ,p_old_header_rec.new_price_list_name
3529: )
3530: THEN
3531:
3548: END;
3549:
3550: END IF;
3551:
3552: IF NOT OE_GLOBALS.EQUAL(p_header_rec.new_modifier_list_id,
3553: p_old_header_rec.new_modifier_list_id)
3554: THEN
3555:
3556: -- Cannot enter ID for a new modifier list, only name
3561: ELSIF p_header_rec.new_modifier_list_name IS NOT NULL
3562: -- Bug 3213174
3563: -- Changes from null to not null will be allowed
3564: AND p_old_header_rec.new_modifier_list_name IS NULL
3565: AND NOT OE_GLOBALS.EQUAL(p_header_rec.new_modifier_list_name
3566: ,p_old_header_rec.new_modifier_list_name
3567: )
3568: THEN
3569:
3594:
3595:
3596: -- Apending Time component to End Date Active for Create or Update Operation.
3597: -- Pack J
3598: IF (p_header_rec.operation = oe_globals.g_opr_create) OR
3599: (p_header_rec.operation = oe_globals.g_opr_update)
3600: THEN
3601: IF NOT OE_GLOBALS.EQUAL(p_header_rec.end_date_active
3602: ,l_old_header_rec.end_date_active)
3595:
3596: -- Apending Time component to End Date Active for Create or Update Operation.
3597: -- Pack J
3598: IF (p_header_rec.operation = oe_globals.g_opr_create) OR
3599: (p_header_rec.operation = oe_globals.g_opr_update)
3600: THEN
3601: IF NOT OE_GLOBALS.EQUAL(p_header_rec.end_date_active
3602: ,l_old_header_rec.end_date_active)
3603: THEN
3597: -- Pack J
3598: IF (p_header_rec.operation = oe_globals.g_opr_create) OR
3599: (p_header_rec.operation = oe_globals.g_opr_update)
3600: THEN
3601: IF NOT OE_GLOBALS.EQUAL(p_header_rec.end_date_active
3602: ,l_old_header_rec.end_date_active)
3603: THEN
3604: p_header_rec.end_date_active :=
3605: trunc(p_header_rec.end_date_active,'DD') +
3613: Validate_Min_Max_Range(p_min_value => p_header_rec.Blanket_Min_amount,
3614: p_max_value => p_header_rec.Blanket_Max_amount,
3615: p_attribute => 'BLANKET_HEADER_AMOUNT', x_return_status => x_return_status);
3616:
3617: IF p_header_rec.operation = oe_globals.g_opr_update THEN
3618: --validate for updates
3619:
3620:
3621: --commented because waiting for message
3628: END IF;
3629:
3630:
3631: --display warning if we haven't fulfilled minimum requirements
3632: IF NOT OE_GLOBALS.Equal(p_header_rec.end_date_active, l_old_header_rec.end_date_active) AND
3633: p_header_rec.end_date_active <= trunc(sysdate) AND
3634: nvl(p_header_rec.released_amount,0) < p_header_rec.blanket_min_amount THEN
3635: if l_debug_level > 0 then
3636: oe_debug_pub.add('Blanket header close min amount ');
3639: OE_MSG_PUB.ADD;
3640: END IF;
3641:
3642:
3643: IF NOT OE_GLOBALS.Equal (p_header_rec.header_id,
3644: l_old_header_rec.header_id) THEN
3645: x_return_status := FND_API.G_RET_STS_ERROR;
3646: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3647: fnd_message.set_token('ATTRIBUTE',
3648: OE_Order_UTIL.Get_Attribute_Name('HEADER_ID'));
3649: OE_MSG_PUB.Add;
3650: END IF;
3651:
3652: IF NOT OE_GLOBALS.Equal (p_header_rec.order_number,
3653: l_old_header_rec.order_number) THEN
3654: x_return_status := FND_API.G_RET_STS_ERROR;
3655: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3656: fnd_message.set_token('ATTRIBUTE',
3657: OE_Order_UTIL.Get_Attribute_Name('BLANKET_NUMBER'));
3658: OE_MSG_PUB.Add;
3659: END IF;
3660:
3661: IF NOT OE_GLOBALS.Equal (p_header_rec.order_category_code,
3662: l_old_header_rec.order_category_code) THEN
3663: x_return_status := FND_API.G_RET_STS_ERROR;
3664: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3665: fnd_message.set_token('ATTRIBUTE',
3666: OE_Order_UTIL.Get_Attribute_Name('ORDER_CATEGORY_CODE'));
3667: OE_MSG_PUB.Add;
3668: END IF;
3669:
3670: IF NOT OE_GLOBALS.Equal (p_header_rec.org_id,
3671: l_old_header_rec.org_id) THEN
3672: x_return_status := FND_API.G_RET_STS_ERROR;
3673: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3674: fnd_message.set_token('ATTRIBUTE',
3677: END IF;
3678:
3679: --restricted from changing if releases exist
3680: IF p_header_rec.released_amount > 0 THEN
3681: IF NOT OE_GLOBALS.Equal (p_header_rec.sold_to_org_id,
3682: l_old_header_rec.sold_to_org_id) THEN
3683: x_return_status := FND_API.G_RET_STS_ERROR;
3684: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3685: fnd_message.set_token('ATTRIBUTE',
3686: OE_Order_UTIL.Get_Attribute_Name('SOLD_TO_ORG_ID'));
3687: OE_MSG_PUB.Add;
3688: END IF;
3689:
3690: IF NOT OE_GLOBALS.Equal (p_header_rec.transactional_curr_code,
3691: l_old_header_rec.transactional_curr_code) THEN
3692: x_return_status := FND_API.G_RET_STS_ERROR;
3693: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3694: fnd_message.set_token('ATTRIBUTE',
3695: OE_Order_UTIL.Get_Attribute_Name('TRANSACTIONAL_CURR_CODE'));
3696: OE_MSG_PUB.Add;
3697: END IF;
3698:
3699: IF NOT OE_GLOBALS.Equal (p_header_rec.start_date_active,
3700: l_old_header_rec.start_date_active) THEN
3701: x_return_status := FND_API.G_RET_STS_ERROR;
3702: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3703: fnd_message.set_token('ATTRIBUTE','Activation Date');
3704: OE_MSG_PUB.Add;
3705: END IF;
3706: END IF; --if releases exist
3707:
3708: IF NOT OE_GLOBALS.Equal (p_header_rec.released_amount,
3709: l_old_header_rec.released_amount) THEN
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3712: fnd_message.set_token('ATTRIBUTE','Released Amount');
3712: fnd_message.set_token('ATTRIBUTE','Released Amount');
3713: OE_MSG_PUB.Add;
3714: END IF;
3715:
3716: IF NOT OE_GLOBALS.Equal (p_header_rec.returned_amount,
3717: l_old_header_rec.returned_amount) THEN
3718: x_return_status := FND_API.G_RET_STS_ERROR;
3719: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3720: fnd_message.set_token('ATTRIBUTE', 'Returned Amount');
3722: fnd_message.set_token('old amount', l_old_header_rec.returned_amount);
3723: OE_MSG_PUB.Add;
3724: END IF;
3725:
3726: IF NOT OE_GLOBALS.Equal (p_header_rec.fulfilled_amount,
3727: l_old_header_rec.fulfilled_amount) THEN
3728: x_return_status := FND_API.G_RET_STS_ERROR;
3729: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3730: fnd_message.set_token('ATTRIBUTE','Fulfilled Amount');
3736:
3737: -- Date Validations
3738:
3739: IF p_header_rec.end_date_active IS NOT NULL
3740: AND NOT OE_GLOBALS.EQUAL(p_header_rec.end_date_active
3741: ,l_old_header_rec.end_date_active)
3742: THEN
3743:
3744: IF (l_old_header_rec.end_date_active IS NOT NULL
3803: AND END_DATE_ACTIVE IS NULL
3804: AND ROWNUM = 1;
3805:
3806: IF l_dummy = 'CASCADE' THEN
3807: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3808:
3809: --if cascading, check to see if minimum values are satisfied
3810: IF (p_header_rec.end_date_active <= trunc(sysdate)) THEN
3811: SELECT 'WARNING'
3835:
3836:
3837: --verify max limits
3838:
3839: IF NOT OE_GLOBALS.Equal (p_header_rec.blanket_max_amount,
3840: l_old_header_rec.blanket_max_amount)
3841: AND p_header_rec.blanket_max_amount < p_header_rec.released_amount
3842: AND nvl(p_header_rec.override_amount_flag, 'N') = 'N' THEN
3843: x_return_status := FND_API.G_RET_STS_ERROR;
3847:
3848: -- Version Change
3849: -- Validations and Record History
3850:
3851: IF NOT OE_GLOBALS.EQUAL(p_header_rec.version_number,
3852: l_old_header_rec.version_number)
3853: AND OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110510'
3854: THEN
3855:
3908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3909: x_return_status := l_return_status;
3910: END IF;
3911:
3912: IF NOT OE_GLOBALS.Equal(x_return_status, FND_API.G_RET_STS_ERROR) THEN
3913: OE_Delayed_Requests_PVT.Log_Request
3914: (p_entity_code => OE_BLANKET_pub.G_ENTITY_BLANKET_HEADER
3915: ,p_Entity_Id => p_header_rec.header_id
3916: ,p_requesting_entity_code =>
3936:
3937: -- Validate WF STATUS for Start and End Date for a BSA. For Pack J
3938: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3939: THEN
3940: if (NOT OE_GLOBALS.Equal(p_header_rec.start_date_active,l_old_header_rec.start_date_active) OR
3941: NOT OE_GLOBALS.Equal(p_header_rec.end_date_active,l_old_header_rec.end_date_active))
3942: THEN
3943: OE_Delayed_Requests_PVT.Log_Request
3944: (p_entity_code => OE_BLANKET_pub.G_ENTITY_BLANKET_HEADER
3937: -- Validate WF STATUS for Start and End Date for a BSA. For Pack J
3938: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3939: THEN
3940: if (NOT OE_GLOBALS.Equal(p_header_rec.start_date_active,l_old_header_rec.start_date_active) OR
3941: NOT OE_GLOBALS.Equal(p_header_rec.end_date_active,l_old_header_rec.end_date_active))
3942: THEN
3943: OE_Delayed_Requests_PVT.Log_Request
3944: (p_entity_code => OE_BLANKET_pub.G_ENTITY_BLANKET_HEADER
3945: ,p_Entity_Id => p_header_rec.header_id
3959:
3960: -- For bug #4447494
3961: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3962: THEN
3963: if (NOT OE_GLOBALS.Equal(p_header_rec.sold_to_org_id,l_old_header_rec.sold_to_org_id) and
3964: p_header_rec.operation = oe_globals.g_opr_update) THEN
3965: OE_Delayed_Requests_PVT.Log_Request
3966: (p_entity_code => OE_BLANKET_pub.G_ENTITY_BLANKET_HEADER
3967: ,p_Entity_Id => p_header_rec.header_id
3960: -- For bug #4447494
3961: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3962: THEN
3963: if (NOT OE_GLOBALS.Equal(p_header_rec.sold_to_org_id,l_old_header_rec.sold_to_org_id) and
3964: p_header_rec.operation = oe_globals.g_opr_update) THEN
3965: OE_Delayed_Requests_PVT.Log_Request
3966: (p_entity_code => OE_BLANKET_pub.G_ENTITY_BLANKET_HEADER
3967: ,p_Entity_Id => p_header_rec.header_id
3968: ,p_param1 => p_header_rec.sold_to_org_id
4060: oe_debug_pub.add('Entering OE_BLANKET_UTIL.INSERT_ROW - Header ID :'||
4061: p_header_rec.header_id);
4062: end if;
4063: --bug 7139169
4064: OE_GLOBALS.Set_Context;
4065: l_org_id := OE_GLOBALS.G_ORG_ID;
4066:
4067: --l_org_id := to_number(FND_PROFILE.VALUE('ORG_ID'));
4068: -- for bug 3342548. Added column CONTEXT
4061: p_header_rec.header_id);
4062: end if;
4063: --bug 7139169
4064: OE_GLOBALS.Set_Context;
4065: l_org_id := OE_GLOBALS.G_ORG_ID;
4066:
4067: --l_org_id := to_number(FND_PROFILE.VALUE('ORG_ID'));
4068: -- for bug 3342548. Added column CONTEXT
4069: INSERT INTO OE_BLANKET_HEADERS
4524: END IF;
4525:
4526: -- added for delete attachments
4527: OE_Atchmt_Util.Delete_Attachments
4528: ( p_entity_code => OE_GLOBALS.G_ENTITY_HEADER
4529: , p_entity_id => p_header_id
4530: , x_return_status => l_return_status
4531: );
4532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5063: END IF;
5064:
5065: OE_Atchmt_Util.Delete_Attachments
5066: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5067: , p_entity_id => p_line_id
5068: , x_return_status => l_return_status
5069: );
5070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6268:
6269: EXCEPTION
6270: WHEN FND_API.G_EXC_ERROR THEN
6271:
6272: OE_GLOBALS.G_UI_FLAG := FALSE;
6273:
6274: x_return_status := FND_API.G_RET_STS_ERROR;
6275:
6276: -- Get message count and data
6281: );
6282:
6283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6284:
6285: OE_GLOBALS.G_UI_FLAG := FALSE;
6286:
6287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6288:
6289: -- Get message count and data
6433: -- following constants are used to debug lock_order,
6434: -- please do not use them for any other purpose.
6435: -- set G_LOCK_TEST := 'Y', for debugging.
6436:
6437: -- OE_GLOBALS.G_LOCK_CONST := 0;
6438: --OE_GLOBALS.G_LOCK_TEST := 'Y';
6439: -- OE_GLOBALS.G_LOCK_TEST := 'N';
6440:
6441: IF OE_GLOBALS.Equal(p_x_lock_control,
6434: -- please do not use them for any other purpose.
6435: -- set G_LOCK_TEST := 'Y', for debugging.
6436:
6437: -- OE_GLOBALS.G_LOCK_CONST := 0;
6438: --OE_GLOBALS.G_LOCK_TEST := 'Y';
6439: -- OE_GLOBALS.G_LOCK_TEST := 'N';
6440:
6441: IF OE_GLOBALS.Equal(p_x_lock_control,
6442: l_db_lock_control)
6435: -- set G_LOCK_TEST := 'Y', for debugging.
6436:
6437: -- OE_GLOBALS.G_LOCK_CONST := 0;
6438: --OE_GLOBALS.G_LOCK_TEST := 'Y';
6439: -- OE_GLOBALS.G_LOCK_TEST := 'N';
6440:
6441: IF OE_GLOBALS.Equal(p_x_lock_control,
6442: l_db_lock_control)
6443: THEN
6437: -- OE_GLOBALS.G_LOCK_CONST := 0;
6438: --OE_GLOBALS.G_LOCK_TEST := 'Y';
6439: -- OE_GLOBALS.G_LOCK_TEST := 'N';
6440:
6441: IF OE_GLOBALS.Equal(p_x_lock_control,
6442: l_db_lock_control)
6443: THEN
6444:
6445: if l_debug_level > 0 then
6471: if l_debug_level > 0 then
6472: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.LOCK_BLANKET', 1);
6473: end if;
6474:
6475: OE_GLOBALS.G_LOCK_TEST := 'N';
6476:
6477:
6478: EXCEPTION
6479:
6487:
6488: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
6489: OE_MSG_PUB.Add;
6490:
6491: OE_GLOBALS.G_LOCK_TEST := 'N';
6492:
6493: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
6494:
6495: x_return_status := FND_API.G_RET_STS_ERROR;
6500:
6501: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
6502: OE_MSG_PUB.Add;
6503:
6504: OE_GLOBALS.G_LOCK_TEST := 'N';
6505:
6506: WHEN OTHERS THEN
6507:
6508: if l_debug_level > 0 then
6514: ( G_PKG_NAME
6515: , 'Lock_Blanket'
6516: );
6517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6518: OE_GLOBALS.G_LOCK_TEST := 'N';
6519:
6520: END Lock_Blanket;
6521:
6522:
6556: p_x_header_rec.start_Date_active := trunc(sysdate);
6557: END IF;
6558:
6559: -- Default Who Columns
6560: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
6561: p_x_header_rec.creation_Date := sysdate;
6562: p_x_header_rec.created_by := FND_GLOBAL.USER_ID;
6563: END IF;
6564:
6624: IF p_x_header_rec.order_type_id IS NULL THEN
6625: p_x_header_rec.order_type_id := FND_PROFILE.VALUE('OE_DEFAULT_BLANKET_ORDER_TYPE');
6626: END IF;
6627:
6628: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
6629: -- Revision Number
6630: p_x_header_rec.version_number := 0.0;
6631: -- Operating unit
6632: --
6890: -- 11i10 Pricing Changes End
6891: END IF; --if default from header
6892:
6893: -- WHO columns
6894: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
6895: p_x_line_rec.creation_Date := sysdate;
6896: p_x_line_rec.created_by := FND_GLOBAL.USER_ID;
6897: END IF;
6898: p_x_line_rec.last_update_date := sysdate;
7154: END IF;
7155:
7156:
7157: IF oe_code_control.get_code_release_level >= '110510' and
7158: G_Header_Rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
7159: oe_debug_pub.ADD('Create and Start Flow srini : '||G_Header_Rec.operation) ;
7160: oe_blanket_wf_util.create_and_start_flow(
7161: p_header_id => G_header_rec.header_id,
7162: p_transaction_phase_code => G_header_rec.transaction_phase_code,
7180:
7181: -- moved instantiate call after create_and_start_flow procedure for bug 3691452
7182:
7183: -- Instantiate the contract template id against the BSA if new record --ABH
7184: IF G_Header_Rec.operation = OE_GLOBALS.G_OPR_CREATE AND
7185: OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
7186: -- Do not instantiate for copied orders
7187: AND nvl(g_header_rec.source_document_type_id,-1) <> 2
7188: THEN
7216:
7217: END IF;
7218:
7219: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
7220: OE_GLOBALS.G_ROLL_VERSION <> 'N' AND
7221: Not OE_GLOBALS.Equal(G_Header_Rec.operation, OE_GLOBALS.G_OPR_CREATE) THEN
7222: OE_Versioning_Util.Perform_Versioning(p_header_id => g_header_rec.header_id,
7223: p_document_type => 'BLANKETS',
7224: x_msg_count => lx_msg_count,
7217: END IF;
7218:
7219: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
7220: OE_GLOBALS.G_ROLL_VERSION <> 'N' AND
7221: Not OE_GLOBALS.Equal(G_Header_Rec.operation, OE_GLOBALS.G_OPR_CREATE) THEN
7222: OE_Versioning_Util.Perform_Versioning(p_header_id => g_header_rec.header_id,
7223: p_document_type => 'BLANKETS',
7224: x_msg_count => lx_msg_count,
7225: x_msg_data => lx_msg_data,
7260:
7261: END IF;
7262:
7263: g_old_version_captured := FALSE;
7264: G_Header_Rec.operation := OE_GLOBALS.G_OPR_NONE;
7265:
7266: EXCEPTION
7267:
7268: WHEN FND_API.G_EXC_ERROR THEN
7680: FROM DUAL;
7681:
7682: l_header_rec.order_number := NULL;
7683: l_header_rec.version_number := 0;
7684: l_header_rec.operation := oe_globals.g_opr_create;
7685: --l_header_rec.start_date_active := trunc(SYSDATE);
7686: --l_header_rec.end_date_active := NULL;
7687: l_header_rec.revision_change_date := NULL;
7688: l_header_rec.revision_change_reason_code := NULL;
7730: SELECT OE_ORDER_LINES_S.NEXTVAL
7731: INTO l_line_tbl(l_count).line_id
7732: FROM DUAL;
7733:
7734: l_line_tbl(l_count).operation := oe_globals.g_opr_create;
7735: l_line_tbl(l_count).order_number := NULL;
7736: l_line_tbl(l_count).line_number := NULL;
7737: --l_line_tbl(l_count).start_date_active := NULL;
7738: --l_line_tbl(l_count).end_date_active := NULL;
7759: END LOOP;
7760:
7761: OE_BLANKET_PVT.Process_Blanket
7762: ( p_api_version_number => 1.0
7763: , p_validation_level => OE_GLOBALS.G_VALID_LEVEL_PARTIAL
7764: , x_return_status => x_return_status
7765: , x_msg_count => x_msg_count
7766: , x_msg_data => x_msg_data
7767: , p_header_rec => l_header_rec
7790: x_msg_data => x_msg_data
7791: );
7792:
7793:
7794: IF NOT OE_GLOBALS.EQUAL(l_return_status, FND_API.G_RET_STS_SUCCESS) THEN
7795: x_return_status := nvl(l_return_status, x_return_status);
7796: END IF;
7797:
7798: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9550: if l_debug_level > 0 then
9551: oe_debug_pub.add('Enter OE_Blanket_Util.Batch_Call');
9552: end if;
9553:
9554: if OE_GLOBALS.G_UI_FLAG THEN
9555: oe_debug_pub.add(' UI Call ');
9556: ELSE
9557: oe_debug_pub.add(' Batch call' );
9558: end if;
9555: oe_debug_pub.add(' UI Call ');
9556: ELSE
9557: oe_debug_pub.add(' Batch call' );
9558: end if;
9559: IF NOT (OE_GLOBALS.G_UI_FLAG ) THEN
9560: p_result :=1;
9561: ELSE
9562: p_result :=0;
9563: END IF;