[Home] [Help]
20: , p_old_header_rec IN OE_Order_PUB.Header_Rec_Type
21: , x_return_status IN OUT NOCOPY VARCHAR2
22: )
23: IS
24: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
25: BEGIN
26:
27: if l_debug_level > 0 then
28: oe_debug_pub.add('Enter OE_VALIDATE_HEADER.Check_Negotiation_Attributes',1);
24: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
25: BEGIN
26:
27: if l_debug_level > 0 then
28: oe_debug_pub.add('Enter OE_VALIDATE_HEADER.Check_Negotiation_Attributes',1);
29: end if;
30:
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
159: END IF;
160:
161: END IF; -- End of check if phase = F/N
162:
163: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.Check_Negotiation_Attributes',1);
164:
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: x_return_status := FND_API.G_RET_STS_ERROR;
192: l_order_type_rec OE_Order_Cache.Order_Type_Rec_Type;
193: l_set_of_books_rec OE_Order_Cache.Set_Of_Books_Rec_Type;
194: BEGIN
195:
196: oe_debug_pub.add('Enter OE_VALIDATE_HEADER.CHECK_BOOK_REQD',1);
197:
198: -- Check for the following required fields on a booked order:
199: -- Order Number, Sold To Org, Invoice To Org,
200: -- Price List, Tax Exempt Flag, Sales Person, Order Date
388: */
389:
390: END IF; -- END of checks related to payment type
391:
392: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.CHECK_BOOK_REQD',1);
393: EXCEPTION
394: WHEN OTHERS THEN
395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
420: lexists varchar2(30);
421: lprocessname varchar2(80);
422: BEGIN
423:
424: oe_debug_pub.add('Entering OE_VALIDATE_HEADER.Validate_Order_Type',1);
425: IF p_operation = OE_GLOBALS.G_OPR_UPDATE
426: THEN
427: IF NOT OE_GLOBALS.EQUAL(p_order_type_id
428: ,p_old_Order_type_id)
444: AND rownum = 1;
445: END IF;
446: END IF;
447:
448: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.Validate_Order_Type',1);
449: EXCEPTION
450: WHEN NO_DATA_FOUND THEN
451: FND_MESSAGE.SET_NAME('ONT','OE_FLOW_CNT_CHANGE');
452: OE_MSG_PUB.ADD;
481: AND commitment_id is not null;
482:
483: BEGIN
484:
485: oe_debug_pub.add('Entering OE_VALIDATE_HEADER.Validate_Commitment_Currency',1);
486: OPEN l_line_csr;
487: LOOP
488: FETCH l_line_csr INTO l_commitment_id;
489: EXIT WHEN l_line_csr%NOTFOUND;
499: EXCEPTION WHEN NO_DATA_FOUND THEN
500: null;
501: END;
502:
503: oe_debug_pub.add('OEXLHDRB: commitment currency is: '||l_commitment_curr_code, 3);
504: oe_debug_pub.add('OEXLHDRB: order currency is: '||p_transactional_curr_code, 3);
505:
506: IF NOT OE_GLOBALS.EQUAL(l_commitment_curr_code, p_transactional_curr_code) THEN
507: x_return_status := FND_API.G_RET_STS_ERROR;
500: null;
501: END;
502:
503: oe_debug_pub.add('OEXLHDRB: commitment currency is: '||l_commitment_curr_code, 3);
504: oe_debug_pub.add('OEXLHDRB: order currency is: '||p_transactional_curr_code, 3);
505:
506: IF NOT OE_GLOBALS.EQUAL(l_commitment_curr_code, p_transactional_curr_code) THEN
507: x_return_status := FND_API.G_RET_STS_ERROR;
508: EXIT;
511:
512: END LOOP;
513: CLOSE l_line_csr;
514:
515: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.Validate_Commitment_Currency',1);
516:
517: EXCEPTION
518: WHEN NO_DATA_FOUND THEN
519: FND_MESSAGE.SET_NAME('ONT','OE_FLOW_CNT_CHANGE');
568: AND hcar.bill_to_flag = 'Y');
569:
570: BEGIN
571:
572: oe_debug_pub.add('Entering OE_VALIDATE_HEADER.Validate_Commitment_Customer',1);
573: OPEN l_line_csr;
574: LOOP
575: FETCH l_line_csr INTO l_commitment_id;
576: EXIT WHEN l_line_csr%NOTFOUND;
575: FETCH l_line_csr INTO l_commitment_id;
576: EXIT WHEN l_line_csr%NOTFOUND;
577:
578: -- validate the sold_to_org_id of order against the customer for commitment.
579: oe_debug_pub.add('OEXLHDRB: l_commitment_id in validation is: '||l_commitment_id, 3);
580: IF l_commitment_id IS NOT NULL THEN
581: BEGIN
582: /*SELECT MOAC_SQL_CHANGE 'Y'
583: INTO l_exists
604: EXCEPTION WHEN NO_DATA_FOUND THEN
605: null;
606: END;
607:
608: oe_debug_pub.add('OEXLHDRB: l_exists in validate_commitment_customer is: '||l_exists, 3);
609:
610: IF l_exists = 'N' THEN
611: x_return_status := FND_API.G_RET_STS_ERROR;
612: EXIT;
615:
616: END LOOP;
617: CLOSE l_line_csr;
618:
619: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.Validate_Commitment_Customer',1);
620:
621: EXCEPTION
622: WHEN NO_DATA_FOUND THEN
623: FND_MESSAGE.SET_NAME('ONT','OE_FLOW_CNT_CHANGE');
694: l_agreement_id NUMBER;
695: l_on_hold_flag VARCHAR2(1);
696: l_start_date_active DATE;
697: l_end_date_active DATE;
698: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
699: --FOR BUG 3192386
700: l_flow_status_code VARCHAR2(30);
701: -- Bug 3232544
702: lcustomer_relations varchar2(1) :=
706: l_customer_name VARCHAR2(240);
707: l_customer_number NUMBER;
708: BEGIN
709: if l_debug_level > 0 then
710: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
711: OE_DEBUG_PUB.Add('Blanket Number :'||p_header_rec.blanket_number,1);
712: end if;
713:
714: IF p_header_rec.blanket_number IS NULL THEN
707: l_customer_number NUMBER;
708: BEGIN
709: if l_debug_level > 0 then
710: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
711: OE_DEBUG_PUB.Add('Blanket Number :'||p_header_rec.blanket_number,1);
712: end if;
713:
714: IF p_header_rec.blanket_number IS NULL THEN
715: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_NO_BLANKET_LINE_NUM');
746: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
747: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
748: OE_MSG_PUB.Add;
749: if l_debug_level > 0 then
750: OE_DEBUG_PUB.Add('No Data Found when Validating Blanket',3);
751: end if;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
753: WHEN OTHERS THEN
754: if l_debug_level > 0 then
751: end if;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
753: WHEN OTHERS THEN
754: if l_debug_level > 0 then
755: OE_DEBUG_PUB.Add('When Others when Validating Blanket',3);
756: end if;
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: END;
759:
762: ,p_old_header_rec.sold_to_org_id) OR
763: NOT OE_GLOBALS.EQUAL(p_header_rec.blanket_number
764: ,p_old_header_rec.blanket_number) ) THEN
765: If l_debug_level > 0 then
766: oe_debug_pub.add('Customer on release does not match blanket customer');
767: End if;
768: if lcustomer_relations = 'Y' then
769: begin
770: SELECT 'Y'
808: IF (p_header_rec.order_category_code = 'ORDER') AND ( l_on_hold_flag <> 'N') AND
809: (NOT OE_GLOBALS.EQUAL(p_header_rec.blanket_number
810: ,p_old_header_rec.blanket_number) ) THEN
811: if l_debug_level > 0 then
812: OE_DEBUG_PUB.Add('Blanket order is currently on hold', 1);
813: end if;
814: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_ON_HOLD');
815: OE_MSG_PUB.Add;
816: x_return_status := FND_API.G_RET_STS_ERROR;
824: NOT (trunc(nvl(p_header_rec.request_date,sysdate))
825: BETWEEN trunc(l_start_date_active)
826: AND trunc(nvl(l_end_date_active, nvl(p_header_rec.request_date,sysdate)))) THEN
827: if l_debug_level > 0 then
828: oe_debug_pub.add('Request date is not within active blanket dates', 1);
829: end if;
830: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
831: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
832: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
838: IF p_header_rec.order_category_code = 'ORDER' AND
839: l_flow_status_code <> 'ACTIVE'
840: THEN
841: if l_debug_level > 0 then
842: oe_debug_pub.add('Not an active Blanket for Release', 1);
843: end if;
844: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
845: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
846: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
853: OE_MSG_PUB.Add;
854: x_return_status := FND_API.G_RET_STS_ERROR;
855: END IF;
856: if l_debug_level > 0 then
857: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
858: end if;
859: EXCEPTION
860:
861: WHEN FND_API.G_EXC_ERROR THEN
859: EXCEPTION
860:
861: WHEN FND_API.G_EXC_ERROR THEN
862: if l_debug_level > 0 then
863: OE_DEBUG_PUB.Add('Expected Error in Validate Blanket Values',2);
864: End if;
865:
866: x_return_status := FND_API.G_RET_STS_ERROR;
867:
866: x_return_status := FND_API.G_RET_STS_ERROR;
867:
868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
869: if l_debug_level > 0 then
870: OE_DEBUG_PUB.Add('Unexpected Error in Validate Blanket Values:'||SqlErrm, 1);
871: End if;
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873:
874:
925: l_comt_cust_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
926: l_comt_curr_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
927: l_blanket_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
928:
929: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
930: l_control_rec OE_GLOBALS.Control_Rec_Type;
931: l_header_rec OE_Order_PUB.Header_Rec_Type := p_header_rec;
932: l_old_header_rec OE_Order_PUB.Header_Rec_Type := p_old_header_rec;
933: /* Added the above 3 line to fix the bug 2824240 */
965: WHERE l.header_id=p_old_header_rec.header_id;
966: --added for bug 3739650
967: l_site_use_code VARCHAR2(30);
968: BEGIN
969: oe_debug_pub.add('Enter OE_VALIDATE_HEADER.ENTITY',1);
970:
971: -- Check required attributes.
972: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
973: lcustomer_relations := OE_Sys_Parameters.VALUE('CUSTOMER_RELATIONSHIPS_FLAG');
1046: -- Return Error IF a required attribute is missing.
1047: IF l_return_status = FND_API.G_RET_STS_ERROR
1048: THEN
1049: if l_debug_level > 0 then
1050: oe_debug_pub.add('reqd attribute missing');
1051: end if;
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1181: ----------------------------------------------------------------
1182: -- VALIDATE ATTRIBUTE DEPENDENCIES
1183: ----------------------------------------------------------------
1184:
1185: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1186: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1187: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1188: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1189: -- Validate currency
1182: -- VALIDATE ATTRIBUTE DEPENDENCIES
1183: ----------------------------------------------------------------
1184:
1185: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1186: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1187: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1188: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1189: -- Validate currency
1190:
1183: ----------------------------------------------------------------
1184:
1185: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1186: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1187: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1188: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1189: -- Validate currency
1190:
1191: l_price_list_rec :=OE_Order_Cache.Load_Price_List (p_header_rec.price_list_id );
1184:
1185: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1186: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1187: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1188: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1189: -- Validate currency
1190:
1191: l_price_list_rec :=OE_Order_Cache.Load_Price_List (p_header_rec.price_list_id );
1192:
1212: ( G_PKG_NAME ,
1213: 'OE_VALIDATE_HEADER-QP_UTIL_PUB'
1214: );
1215: END IF;
1216: Oe_Debug_Pub.Add('Error when calling QP_UTIL_PUB.Validate_Price_list_Curr_code:'||SQLERRM);
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218:
1219: End;
1220:
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218:
1219: End;
1220:
1221: Oe_Debug_Pub.add(' M Currency:'||l_validate_result);
1222: IF l_validate_result = 'N' THEN
1223: Begin
1224: Select 1
1225: into l_temp
1285: -- on the order line.
1286: IF NOT OE_GLOBALS.EQUAL(p_header_rec.transactional_curr_code,
1287: p_old_header_rec.transactional_curr_code) THEN
1288:
1289: oe_debug_pub.add('OEXLHDRB: before validating currency for commitment.', 3);
1290: Validate_Commitment_Currency
1291: (p_header_id => p_header_rec.header_id
1292: ,p_transactional_curr_code => p_header_rec.transactional_curr_code
1293: ,x_return_status => l_comt_curr_status);
1296: l_return_status := FND_API.G_RET_STS_ERROR;
1297: Fnd_Message.Set_Name('ONT','ONT_INVALID_CURR_CHANGE');
1298: Fnd_message.set_token('REASON','ONT_COMMITMENT_ON_LINE',TRUE);
1299: OE_MSG_PUB.Add;
1300: oe_debug_pub.add('Error: currency code does not match the currency for the commitment.', 3);
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303: END IF;
1304:
1456: fnd_message.set_name('ONT', 'ONT_INVALID_AGREEMENT');
1457: fnd_message.set_Token('AGREEMENT_NAME',l_agreement_name);
1458: fnd_message.set_Token('REVISION',l_agreement_revision);
1459: OE_MSG_PUB.Add;
1460: oe_debug_pub.add('Invalid Agreement ',1);
1461: raise FND_API.G_EXC_ERROR;
1462: END IF;
1463: END;
1464:
1484: ('AGREEMENT_NAME', l_agreement_name || sqlerrm);
1485: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
1486: fnd_message.set_Token('PRICE_LIST2', l_price_list_id);
1487: OE_MSG_PUB.Add;
1488: oe_debug_pub.add('Invalid Agreement +price_list_id combination',2);
1489: raise FND_API.G_EXC_ERROR;
1490: END IF;
1491: END IF;
1492:
1499: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1500: fnd_message.set_Token('CUSTOMER_ID', p_header_rec.sold_to_org_id);
1501: OE_MSG_PUB.Add;
1502: IF l_debug_level > 0 then
1503: oe_debug_pub.add('Invalid Agreement +sold_org_id combination',2);
1504: END IF;
1505: RAISE FND_API.G_EXC_ERROR;
1506: ELSIF lcustomer_relations = 'Y' THEN
1507:
1524: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1525: fnd_message.set_Token('CUSTOMER_ID', p_header_rec.sold_to_org_id);
1526: OE_MSG_PUB.Add;
1527: IF l_debug_level > 0 then
1528: oe_debug_pub.add('Invalid Agreement +sold_org_id combination',2);
1529: END IF;
1530: RAISE FND_API.G_EXC_ERROR;
1531: END;
1532: END IF;
1541: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1542: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
1543: fnd_message.set_Token('PRICE_LIST2', l_price_list_id || sqlerrm);
1544: OE_MSG_PUB.Add;
1545: oe_debug_pub.add
1546: ('No Data Found Agreement+price_list_id combination',2);
1547: raise FND_API.G_EXC_ERROR;
1548: END;
1549:
1582: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
1583: THEN
1584:
1585: BEGIN
1586: oe_debug_pub.add
1587: ('ship_to_org_id :'||to_char(p_header_rec.ship_to_org_id),2);
1588: oe_debug_pub.add
1589: ('Customer Relation :'||lcustomer_relations,2);
1590:
1584:
1585: BEGIN
1586: oe_debug_pub.add
1587: ('ship_to_org_id :'||to_char(p_header_rec.ship_to_org_id),2);
1588: oe_debug_pub.add
1589: ('Customer Relation :'||lcustomer_relations,2);
1590:
1591: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
1592:
1590:
1591: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
1592:
1593: IF nvl(lcustomer_relations,'N') = 'N' THEN
1594: oe_debug_pub.add
1595: ('Cr: No',2);
1596:
1597: SELECT 'VALID'
1598: INTO l_dummy
1602: AND status = 'A'
1603: AND address_status ='A'; --bug 2752321
1604:
1605: ELSIF lcustomer_relations = 'Y' THEN
1606: oe_debug_pub.add
1607: ('Cr: Yes Ship',2);
1608: --variable added for bug 3739650
1609: l_site_use_code := 'SHIP_TO' ;
1610: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
1626: and ship_to_flag = 'Y' and status = 'A')
1627: --bug 4205113
1628: AND EXISTS(SELECT 1 FROM HZ_CUST_ACCOUNTS WHERE CUST_ACCOUNT_ID = ACCT_SITE.CUST_ACCOUNT_ID AND STATUS='A')
1629: AND ROWNUM = 1;
1630: oe_debug_pub.add
1631: ('Cr: Yes- After the select',2);
1632: ELSIF lcustomer_relations = 'A' THEN
1633: SELECT 'VALID'
1634: INTO l_dummy
1647:
1648: EXCEPTION
1649:
1650: WHEN NO_DATA_FOUND THEN
1651: oe_debug_pub.add
1652: ('In: No data found',2);
1653: l_return_status := FND_API.G_RET_STS_ERROR;
1654: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1655: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', OE_Order_Util.Get_Attribute_Name
1682: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
1683: THEN
1684: BEGIN
1685:
1686: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_header_rec.deliver_to_org_id),2);
1687: oe_debug_pub.add('Customer Relation :'||lcustomer_relations,2);
1688:
1689: IF nvl(lcustomer_relations,'N') = 'N' THEN
1690:
1683: THEN
1684: BEGIN
1685:
1686: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_header_rec.deliver_to_org_id),2);
1687: oe_debug_pub.add('Customer Relation :'||lcustomer_relations,2);
1688:
1689: IF nvl(lcustomer_relations,'N') = 'N' THEN
1690:
1691: oe_debug_pub.add('Cr: No',2);
1687: oe_debug_pub.add('Customer Relation :'||lcustomer_relations,2);
1688:
1689: IF nvl(lcustomer_relations,'N') = 'N' THEN
1690:
1691: oe_debug_pub.add('Cr: No',2);
1692:
1693: SELECT 'VALID'
1694: INTO l_dummy
1695: FROM oe_deliver_to_orgs_v
1699: AND address_status ='A'; --bug 2752321
1700: -- Valid Deliver To Org Id.
1701:
1702: ELSIF lcustomer_relations = 'Y' THEN
1703: oe_debug_pub.add('Cr: Yes deliver',2);
1704: --variable added for bug 3739650
1705: l_site_use_code := 'DELIVER_TO' ;
1706: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
1707: Into l_dummy
1722: and ship_to_flag = 'Y' and status='A')
1723: --bug 4205113
1724: AND EXISTS(SELECT 1 FROM HZ_CUST_ACCOUNTS WHERE CUST_ACCOUNT_ID = ACCT_SITE.CUST_ACCOUNT_ID AND STATUS='A')
1725: AND ROWNUM = 1;
1726: oe_debug_pub.add('Cr: Yes- After the select',2);
1727:
1728: ELSIF lcustomer_relations = 'A' THEN
1729:
1730: SELECT 'VALID'
1778: ,p_old_header_rec.sold_to_org_id)
1779: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
1780: THEN
1781: BEGIN
1782: oe_debug_pub.add
1783: ('invoice_to_org_id :'||to_char(p_header_rec.invoice_to_org_id),2);
1784:
1785: IF nvl(lcustomer_relations,'N') = 'N' THEN
1786:
1795: -- for Order entered in the Sales Order form , it is assumed that the
1796: -- invoice to org passed is the correct one
1797: ELSIF lcustomer_relations = 'Y' THEN
1798:
1799: oe_debug_pub.add
1800: ('Cr: Yes Inv',2);
1801: --variable added for bug 3739650
1802: l_site_use_code := 'BILL_TO' ;
1803: SELECT 'VALID'
2063: ,p_old_header_rec.invoice_to_org_id)
2064: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
2065: THEN
2066: BEGIN
2067: oe_debug_pub.add
2068: ('inv_to_contact :'||to_char(p_header_rec.invoice_to_contact_id),2);
2069:
2070: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
2071: INTO l_dummy
2322: END IF;
2323:
2324: END IF;
2325:
2326: oe_debug_pub.Add(' Valid Tax Exempt Number',1);
2327:
2328: EXCEPTION
2329:
2330: WHEN NO_DATA_FOUND THEN
2337: p_header_rec.tax_exempt_number := FND_API.G_MISS_CHAR;
2338: p_header_rec.tax_exempt_reason_code := FND_API.G_MISS_CHAR;
2339: p_header_rec.tax_exempt_flag :=FND_API.G_MISS_CHAR;
2340:
2341: oe_debug_pub.Add('Redefault the tax_exempt_number',1);
2342: ELSE
2343: l_return_status := FND_API.G_RET_STS_ERROR;
2344: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2345: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2365: END IF; -- Tax exempton info validation.
2366:
2367: */
2368:
2369: oe_debug_pub.Add('p_header_rec.cust_po_number'|| p_header_rec.cust_po_number);-- Bug# 6603714
2370: IF p_header_rec.order_source_id <> 27 THEN-- Bug# 6603714
2371:
2372: -- Fix bug 1162304: issue a warning message if the PO number
2373: -- is being referenced by another order
2403:
2404: IF (NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id
2405: ,p_old_header_rec.sold_to_org_id)) THEN
2406:
2407: oe_debug_pub.add('OEXLHDRB: before validating customer for commitment.', 3);
2408: Validate_Commitment_Customer
2409: (p_header_id => p_header_rec.header_id
2410: ,p_sold_to_org_id => p_header_rec.sold_to_org_id
2411: ,x_return_status => l_comt_cust_status);
2429:
2430: Fnd_Message.Set_Name('ONT','ONT_COM_CUSTOMER_MISMATCH');
2431: Fnd_message.set_token('CUSTOMER',l_customer_name);
2432: OE_MSG_PUB.Add;
2433: oe_debug_pub.add('Error: customer of the order does not match the customer for the commitment.', 3);
2434: RAISE FND_API.G_EXC_ERROR;
2435: END IF;
2436: END IF;
2437: */
2442:
2443: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110509' AND
2444: p_header_rec.blanket_number IS NOT NULL THEN
2445: If l_debug_level > 0 THEN
2446: OE_DEBUG_PUB.Add('Blankets are only available in Pack I or greater',1);
2447: End if;
2448: l_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MESSAGE.Set_Name('ONT','OE_BLANKET_INVALID_VERSION');
2450: OE_MSG_PUB.Add;
2498: l_return_status := FND_API.G_RET_STS_ERROR;
2499:
2500: fnd_message.Set_Name('ONT','ONT_MULTIPLE_PAYMENTS_EXIST');
2501: OE_MSG_PUB.Add;
2502: oe_debug_pub.add('Error: multiple payments exist. cannot update order header',3);
2503:
2504: end if;
2505:
2506: END IF; -- if not oe_globals.equal...
2507:
2508: END IF; -- if multiple_payments is enabled
2509: */
2510: --distributed orders @
2511: oe_debug_pub.ADD('ib_owner: '||p_header_rec.ib_owner);
2512: IF p_header_rec.ib_owner IS NOT NULL AND
2513: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ib_owner ,p_old_header_rec.ib_owner)
2514: OR p_old_header_rec.ib_owner is null
2515: OR NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id, p_old_header_rec.sold_to_org_id)
2531: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_OWNER'));
2532: OE_MSG_PUB.Add;
2533: END IF;
2534: END IF;
2535: oe_debug_pub.ADD('ib_installed_at_location: '||p_header_rec.ib_installed_at_location);
2536:
2537: IF p_header_rec.ib_installed_at_location IS NOT NULL AND
2538: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ib_installed_at_location ,p_old_header_rec.ib_installed_at_location)
2539: OR p_old_header_rec.ib_installed_at_location is null
2580: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2581: OE_MSG_PUB.Add;
2582: END IF;
2583: END IF;
2584: oe_debug_pub.ADD('ib_current_location: '||p_header_rec.ib_current_location);
2585:
2586: IF p_header_rec.ib_current_location IS NOT NULL AND
2587: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ib_current_location ,p_old_header_rec.ib_current_location)
2588: OR NOT OE_GLOBALS.EQUAL(p_header_rec.invoice_to_org_id ,p_old_header_rec.invoice_to_org_id)
2640: and p_old_header_rec.header_id is not null
2641: then
2642: -- okay, loop for all lines
2643: If l_debug_level > 0 THEN
2644: oe_debug_pub.add('>sold_to_site_use_id has changed to null,');
2645: oe_debug_pub.add('>checking all lines for IB validation');
2646: end if;
2647:
2648: for l in ib_lines loop
2641: then
2642: -- okay, loop for all lines
2643: If l_debug_level > 0 THEN
2644: oe_debug_pub.add('>sold_to_site_use_id has changed to null,');
2645: oe_debug_pub.add('>checking all lines for IB validation');
2646: end if;
2647:
2648: for l in ib_lines loop
2649: if l.ib_current_location='SOLD_TO'
2648: for l in ib_lines loop
2649: if l.ib_current_location='SOLD_TO'
2650: then
2651: If l_debug_level > 0 THEN
2652: oe_debug_pub.add('>line_id:'||l.line_id||' has ib_current_location as SOLD_TO');
2653: end if;
2654: l_return_status := FND_API.G_RET_STS_ERROR;
2655: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2656: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2657: OE_MSG_PUB.Add;
2658: elsif l.ib_installed_at_location='SOLD_TO'
2659: then
2660: If l_debug_level > 0 THEN
2661: oe_debug_pub.add('>line_id:'||l.line_id||' has ib_installed_at_location as SOLD_TO');
2662: end if;
2663: l_return_status := FND_API.G_RET_STS_ERROR;
2664: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2665: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2667: end if;
2668: end loop;
2669: end if;
2670: If l_debug_level > 0 THEN
2671: oe_debug_pub.add('>IB Line validation done');
2672: end if;
2673: -- IB Validation ENDS
2674:
2675: --R12 CC Encryption
2700:
2701: -- Done validating entity
2702: x_return_status := l_return_status;
2703:
2704: oe_debug_pub.add('Exit OE_VALIDATE_HEADER.ENTITY',1);
2705:
2706: EXCEPTION
2707:
2708: WHEN FND_API.G_EXC_ERROR THEN
2741: IS
2742: l_cc_security_code_use Varchar2(20);
2743: BEGIN
2744:
2745: oe_debug_pub.add('Entering OE_VALIDATE_HEADER.ATTRIBUTES',1);
2746:
2747: x_return_status := FND_API.G_RET_STS_SUCCESS;
2748:
2749: -- Validate header attributes
2836: END IF;
2837:
2838: END IF;
2839:
2840: oe_debug_pub.add('sarita:p_x_header_rec.booked_flag :'||
2841: p_x_header_rec.booked_flag);
2842:
2843: IF p_x_header_rec.booked_flag IS NOT NULL AND
2844: ( ( p_x_header_rec.booked_flag <>
2846: p_old_header_rec.booked_flag IS NULL ) OR
2847: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE ))
2848: --bug 5060064
2849: THEN
2850: oe_debug_pub.add('sarita:before validate booked flag');
2851:
2852: IF NOT OE_Validate.Booked(p_x_header_rec.booked_flag)
2853: THEN
2854: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
3164: END IF;
3165:
3166: END IF;
3167:
3168: oe_debug_pub.add('sarita: p_x_header_rec.order_type_id:'||
3169: p_x_header_rec.order_type_id);
3170: oe_debug_pub.add('sarita: p_old_header_rec.order_type_id:'||
3171: p_old_header_rec.order_type_id);
3172:
3166: END IF;
3167:
3168: oe_debug_pub.add('sarita: p_x_header_rec.order_type_id:'||
3169: p_x_header_rec.order_type_id);
3170: oe_debug_pub.add('sarita: p_old_header_rec.order_type_id:'||
3171: p_old_header_rec.order_type_id);
3172:
3173: IF p_x_header_rec.order_type_id IS NOT NULL AND
3174: ( (p_x_header_rec.order_type_id <>
3176: p_old_header_rec.order_type_id IS NULL ) OR
3177: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE ))
3178: --bug 5060064
3179: THEN
3180: oe_debug_pub.add('Before OE_Validate.Order_Type');
3181:
3182: IF NOT OE_Validate.Order_Type(p_x_header_rec.order_type_id)
3183: THEN
3184: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
3607: END IF;
3608:
3609: END IF;
3610:
3611: oe_debug_pub.add('after payment_type_code');
3612:
3613: IF p_x_header_rec.credit_card_code IS NOT NULL AND
3614: ( ( p_x_header_rec.credit_card_code <>
3615: p_old_header_rec.credit_card_code OR
3633: END IF;
3634:
3635: END IF;
3636:
3637: oe_debug_pub.add('after credit_card_code');
3638:
3639: --R12 CVV2
3640: IF p_x_header_rec.credit_card_number IS NOT NULL AND p_x_header_rec.credit_card_number <> FND_API.G_MISS_CHAR THEN
3641: l_cc_security_code_use := OE_Payment_Trxn_Util.Get_CC_Security_Code_Use;
3648: END IF;
3649: END IF;
3650: --R12 CVV2
3651:
3652: oe_debug_pub.add('after security code');
3653:
3654: IF p_x_header_rec.flow_status_code IS NOT NULL AND
3655: ( (p_x_header_rec.flow_status_code <>
3656: p_old_header_rec.flow_status_code OR
3675: END IF;
3676:
3677: END IF;
3678:
3679: oe_Debug_pub.add('after flow_status_code');
3680: if OE_GLOBALS.g_validate_desc_flex ='Y' then -- bug4343612
3681: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Header.attributes ',1);
3682: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3683:
3677: END IF;
3678:
3679: oe_Debug_pub.add('after flow_status_code');
3680: if OE_GLOBALS.g_validate_desc_flex ='Y' then -- bug4343612
3681: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Header.attributes ',1);
3682: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3683:
3684: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
3685: (p_x_header_rec.attribute1 IS NOT NULL AND
3768: p_old_header_rec.context IS NULL )))
3769: THEN
3770:
3771:
3772: oe_debug_pub.add('Before calling header_desc_flex',2);
3773: oe_debug_pub.add('source doc type:'||to_char(p_x_header_rec.source_document_type_id),5);
3774: /* Fixing 2375476 to skip the Flex field validation in case of
3775: Internal Orders. This condition will be removed once process Order
3776: starts defaulting the FF */
3769: THEN
3770:
3771:
3772: oe_debug_pub.add('Before calling header_desc_flex',2);
3773: oe_debug_pub.add('source doc type:'||to_char(p_x_header_rec.source_document_type_id),5);
3774: /* Fixing 2375476 to skip the Flex field validation in case of
3775: Internal Orders. This condition will be removed once process Order
3776: starts defaulting the FF */
3777: /* Fixing 2611912 to skip the Flex field validation in case of
3974: END IF;
3975: END IF ; -- If flex enabled
3976: END IF;
3977:
3978: oe_debug_pub.add('After header_desc_flex ' || x_return_status,2);
3979: IF p_x_header_rec.operation = oe_globals.g_opr_create OR
3980: ( p_x_header_rec.operation = oe_globals.g_opr_update AND
3981: (p_x_header_rec.global_attribute1 IS NOT NULL AND
3982: ( p_x_header_rec.global_attribute1 <>
4065: THEN
4066:
4067:
4068:
4069: OE_DEBUG_PUB.ADD('Before G_header_desc_flex',2);
4070: /* Fixing 2375476 to skip the Flex field validation in case of
4071: Internal Orders. This condition will be removed once process Order
4072: starts defaulting the FF */
4073: IF OE_ORDER_CACHE.IS_FLEX_ENABLED('OE_HEADER_GLOBAL_ATTRIBUTE') = 'Y' THEN
4259: END IF;
4260: END IF; -- Enabled
4261: END IF;
4262:
4263: OE_DEBUG_PUB.ADD('After G_header_desc_flex ' || x_return_status,2);
4264:
4265: -- Added the Trading Partner Flex Validation and also the changes for defaulting
4266: -- for bug 2511313
4267:
4477:
4478: END IF;
4479: END IF; -- Is flex enabled
4480:
4481: --oe_debug_pub.add('After TP_header_desc_flex ' || x_return_status);
4482:
4483: END IF;
4484: /* Trading Partner */
4485: end if; --for bug4343612
4510: END IF;
4511:
4512: END IF;
4513:
4514: oe_debug_pub.add('after salesrep_id');
4515:
4516: IF p_x_header_rec.sales_channel_code IS NOT NULL AND
4517: ( (p_x_header_rec.sales_channel_code <>
4518: p_old_header_rec.sales_channel_code OR
5046:
5047:
5048: --End Of Addition
5049: --End Of Addition
5050: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.ATTRIBUTES',1);
5051:
5052: EXCEPTION
5053:
5054: WHEN FND_API.G_EXC_ERROR THEN