[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');
725: l_agreement_id NUMBER;
726: l_on_hold_flag VARCHAR2(1);
727: l_start_date_active DATE;
728: l_end_date_active DATE;
729: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
730: --FOR BUG 3192386
731: l_flow_status_code VARCHAR2(30);
732: -- Bug 3232544
733: lcustomer_relations varchar2(1) :=
737: l_customer_name VARCHAR2(240);
738: l_customer_number NUMBER;
739: BEGIN
740: if l_debug_level > 0 then
741: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
742: OE_DEBUG_PUB.Add('Blanket Number :'||p_header_rec.blanket_number,1);
743: end if;
744:
745: IF p_header_rec.blanket_number IS NULL THEN
738: l_customer_number NUMBER;
739: BEGIN
740: if l_debug_level > 0 then
741: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
742: OE_DEBUG_PUB.Add('Blanket Number :'||p_header_rec.blanket_number,1);
743: end if;
744:
745: IF p_header_rec.blanket_number IS NULL THEN
746: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_NO_BLANKET_LINE_NUM');
777: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
778: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
779: OE_MSG_PUB.Add;
780: if l_debug_level > 0 then
781: OE_DEBUG_PUB.Add('No Data Found when Validating Blanket',3);
782: end if;
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: WHEN OTHERS THEN
785: if l_debug_level > 0 then
782: end if;
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: WHEN OTHERS THEN
785: if l_debug_level > 0 then
786: OE_DEBUG_PUB.Add('When Others when Validating Blanket',3);
787: end if;
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: END;
790:
793: ,p_old_header_rec.sold_to_org_id) OR
794: NOT OE_GLOBALS.EQUAL(p_header_rec.blanket_number
795: ,p_old_header_rec.blanket_number) ) THEN
796: If l_debug_level > 0 then
797: oe_debug_pub.add('Customer on release does not match blanket customer');
798: End if;
799: if lcustomer_relations = 'Y' then
800: begin
801: SELECT 'Y'
839: IF (p_header_rec.order_category_code = 'ORDER') AND ( l_on_hold_flag <> 'N') AND
840: (NOT OE_GLOBALS.EQUAL(p_header_rec.blanket_number
841: ,p_old_header_rec.blanket_number) ) THEN
842: if l_debug_level > 0 then
843: OE_DEBUG_PUB.Add('Blanket order is currently on hold', 1);
844: end if;
845: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_ON_HOLD');
846: OE_MSG_PUB.Add;
847: x_return_status := FND_API.G_RET_STS_ERROR;
855: NOT (trunc(nvl(p_header_rec.request_date,sysdate))
856: BETWEEN trunc(l_start_date_active)
857: AND trunc(nvl(l_end_date_active, nvl(p_header_rec.request_date,sysdate)))) THEN
858: if l_debug_level > 0 then
859: oe_debug_pub.add('Request date is not within active blanket dates', 1);
860: end if;
861: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
862: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
863: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
869: IF p_header_rec.order_category_code = 'ORDER' AND
870: l_flow_status_code <> 'ACTIVE'
871: THEN
872: if l_debug_level > 0 then
873: oe_debug_pub.add('Not an active Blanket for Release', 1);
874: end if;
875: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
876: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
877: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
884: OE_MSG_PUB.Add;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: END IF;
887: if l_debug_level > 0 then
888: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
889: end if;
890: EXCEPTION
891:
892: WHEN FND_API.G_EXC_ERROR THEN
890: EXCEPTION
891:
892: WHEN FND_API.G_EXC_ERROR THEN
893: if l_debug_level > 0 then
894: OE_DEBUG_PUB.Add('Expected Error in Validate Blanket Values',2);
895: End if;
896:
897: x_return_status := FND_API.G_RET_STS_ERROR;
898:
897: x_return_status := FND_API.G_RET_STS_ERROR;
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: if l_debug_level > 0 then
901: OE_DEBUG_PUB.Add('Unexpected Error in Validate Blanket Values:'||SqlErrm, 1);
902: End if;
903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904:
905:
956: l_comt_cust_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
957: l_comt_curr_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
958: l_blanket_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
959:
960: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
961: l_control_rec OE_GLOBALS.Control_Rec_Type;
962: l_header_rec OE_Order_PUB.Header_Rec_Type := p_header_rec;
963: l_old_header_rec OE_Order_PUB.Header_Rec_Type := p_old_header_rec;
964: /* Added the above 3 line to fix the bug 2824240 */
996: WHERE l.header_id=p_old_header_rec.header_id;
997: --added for bug 3739650
998: l_site_use_code VARCHAR2(30);
999: BEGIN
1000: oe_debug_pub.add('Enter OE_VALIDATE_HEADER.ENTITY',1);
1001:
1002: -- Check required attributes.
1003: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
1004: lcustomer_relations := OE_Sys_Parameters.VALUE('CUSTOMER_RELATIONSHIPS_FLAG');
1077: -- Return Error IF a required attribute is missing.
1078: IF l_return_status = FND_API.G_RET_STS_ERROR
1079: THEN
1080: if l_debug_level > 0 then
1081: oe_debug_pub.add('reqd attribute missing');
1082: end if;
1083: RAISE FND_API.G_EXC_ERROR;
1084: END IF;
1085:
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210:
1211: --BUG#9366518
1212: oe_debug_pub.add('Checking for Payment Type and its Related Required Attributes');
1213: oe_debug_pub.add('PAYMENT_TYPE_CODE = '|| p_header_rec.PAYMENT_TYPE_CODE);
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1209: END IF;
1210:
1211: --BUG#9366518
1212: oe_debug_pub.add('Checking for Payment Type and its Related Required Attributes');
1213: oe_debug_pub.add('PAYMENT_TYPE_CODE = '|| p_header_rec.PAYMENT_TYPE_CODE);
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1217: oe_debug_pub.add('CREDIT_CARD_EXPIRATION_DATE = '|| p_header_rec.CREDIT_CARD_EXPIRATION_DATE);
1210:
1211: --BUG#9366518
1212: oe_debug_pub.add('Checking for Payment Type and its Related Required Attributes');
1213: oe_debug_pub.add('PAYMENT_TYPE_CODE = '|| p_header_rec.PAYMENT_TYPE_CODE);
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1217: oe_debug_pub.add('CREDIT_CARD_EXPIRATION_DATE = '|| p_header_rec.CREDIT_CARD_EXPIRATION_DATE);
1218: oe_debug_pub.add('CHECK_NUMBER = '|| p_header_rec.CHECK_NUMBER);
1211: --BUG#9366518
1212: oe_debug_pub.add('Checking for Payment Type and its Related Required Attributes');
1213: oe_debug_pub.add('PAYMENT_TYPE_CODE = '|| p_header_rec.PAYMENT_TYPE_CODE);
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1217: oe_debug_pub.add('CREDIT_CARD_EXPIRATION_DATE = '|| p_header_rec.CREDIT_CARD_EXPIRATION_DATE);
1218: oe_debug_pub.add('CHECK_NUMBER = '|| p_header_rec.CHECK_NUMBER);
1219:
1212: oe_debug_pub.add('Checking for Payment Type and its Related Required Attributes');
1213: oe_debug_pub.add('PAYMENT_TYPE_CODE = '|| p_header_rec.PAYMENT_TYPE_CODE);
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1217: oe_debug_pub.add('CREDIT_CARD_EXPIRATION_DATE = '|| p_header_rec.CREDIT_CARD_EXPIRATION_DATE);
1218: oe_debug_pub.add('CHECK_NUMBER = '|| p_header_rec.CHECK_NUMBER);
1219:
1220: IF p_header_rec.PAYMENT_TYPE_CODE = 'CHECK' THEN
1213: oe_debug_pub.add('PAYMENT_TYPE_CODE = '|| p_header_rec.PAYMENT_TYPE_CODE);
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1217: oe_debug_pub.add('CREDIT_CARD_EXPIRATION_DATE = '|| p_header_rec.CREDIT_CARD_EXPIRATION_DATE);
1218: oe_debug_pub.add('CHECK_NUMBER = '|| p_header_rec.CHECK_NUMBER);
1219:
1220: IF p_header_rec.PAYMENT_TYPE_CODE = 'CHECK' THEN
1221: IF p_header_rec.CHECK_NUMBER IS NULL
1214: oe_debug_pub.add('CREDIT_CARD_CODE = '|| p_header_rec.CREDIT_CARD_CODE);
1215: oe_debug_pub.add('CREDIT_CARD_NUMBER = '|| p_header_rec.CREDIT_CARD_NUMBER);
1216: oe_debug_pub.add('CREDIT_CARD_HOLDER_NAME = '|| p_header_rec.CREDIT_CARD_HOLDER_NAME);
1217: oe_debug_pub.add('CREDIT_CARD_EXPIRATION_DATE = '|| p_header_rec.CREDIT_CARD_EXPIRATION_DATE);
1218: oe_debug_pub.add('CHECK_NUMBER = '|| p_header_rec.CHECK_NUMBER);
1219:
1220: IF p_header_rec.PAYMENT_TYPE_CODE = 'CHECK' THEN
1221: IF p_header_rec.CHECK_NUMBER IS NULL
1222: THEN
1249: ----------------------------------------------------------------
1250: -- VALIDATE ATTRIBUTE DEPENDENCIES
1251: ----------------------------------------------------------------
1252:
1253: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1254: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1255: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1256: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1257: -- Validate currency
1250: -- VALIDATE ATTRIBUTE DEPENDENCIES
1251: ----------------------------------------------------------------
1252:
1253: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1254: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1255: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1256: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1257: -- Validate currency
1258:
1251: ----------------------------------------------------------------
1252:
1253: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1254: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1255: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1256: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1257: -- Validate currency
1258:
1259: l_price_list_rec :=OE_Order_Cache.Load_Price_List (p_header_rec.price_list_id );
1252:
1253: oe_debug_pub.add('old price ' || p_old_header_rec.price_list_id,2);
1254: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
1255: oe_debug_pub.add('old curr ' || p_old_header_rec.transactional_curr_code,2);
1256: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
1257: -- Validate currency
1258:
1259: l_price_list_rec :=OE_Order_Cache.Load_Price_List (p_header_rec.price_list_id );
1260:
1280: ( G_PKG_NAME ,
1281: 'OE_VALIDATE_HEADER-QP_UTIL_PUB'
1282: );
1283: END IF;
1284: Oe_Debug_Pub.Add('Error when calling QP_UTIL_PUB.Validate_Price_list_Curr_code:'||SQLERRM);
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1286:
1287: End;
1288:
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1286:
1287: End;
1288:
1289: Oe_Debug_Pub.add(' M Currency:'||l_validate_result);
1290: IF l_validate_result = 'N' THEN
1291: Begin
1292: Select 1
1293: into l_temp
1353: -- on the order line.
1354: IF NOT OE_GLOBALS.EQUAL(p_header_rec.transactional_curr_code,
1355: p_old_header_rec.transactional_curr_code) THEN
1356:
1357: oe_debug_pub.add('OEXLHDRB: before validating currency for commitment.', 3);
1358: Validate_Commitment_Currency
1359: (p_header_id => p_header_rec.header_id
1360: ,p_transactional_curr_code => p_header_rec.transactional_curr_code
1361: ,x_return_status => l_comt_curr_status);
1364: l_return_status := FND_API.G_RET_STS_ERROR;
1365: Fnd_Message.Set_Name('ONT','ONT_INVALID_CURR_CHANGE');
1366: Fnd_message.set_token('REASON','ONT_COMMITMENT_ON_LINE',TRUE);
1367: OE_MSG_PUB.Add;
1368: oe_debug_pub.add('Error: currency code does not match the currency for the commitment.', 3);
1369: RAISE FND_API.G_EXC_ERROR;
1370: END IF;
1371: END IF;
1372:
1524: fnd_message.set_name('ONT', 'ONT_INVALID_AGREEMENT');
1525: fnd_message.set_Token('AGREEMENT_NAME',l_agreement_name);
1526: fnd_message.set_Token('REVISION',l_agreement_revision);
1527: OE_MSG_PUB.Add;
1528: oe_debug_pub.add('Invalid Agreement ',1);
1529: raise FND_API.G_EXC_ERROR;
1530: END IF;
1531: END;
1532:
1552: ('AGREEMENT_NAME', l_agreement_name || sqlerrm);
1553: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
1554: fnd_message.set_Token('PRICE_LIST2', l_price_list_id);
1555: OE_MSG_PUB.Add;
1556: oe_debug_pub.add('Invalid Agreement +price_list_id combination',2);
1557: raise FND_API.G_EXC_ERROR;
1558: END IF;
1559: END IF;
1560:
1567: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1568: fnd_message.set_Token('CUSTOMER_ID', p_header_rec.sold_to_org_id);
1569: OE_MSG_PUB.Add;
1570: IF l_debug_level > 0 then
1571: oe_debug_pub.add('Invalid Agreement +sold_org_id combination',2);
1572: END IF;
1573: RAISE FND_API.G_EXC_ERROR;
1574: ELSIF lcustomer_relations = 'Y' THEN
1575:
1592: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1593: fnd_message.set_Token('CUSTOMER_ID', p_header_rec.sold_to_org_id);
1594: OE_MSG_PUB.Add;
1595: IF l_debug_level > 0 then
1596: oe_debug_pub.add('Invalid Agreement +sold_org_id combination',2);
1597: END IF;
1598: RAISE FND_API.G_EXC_ERROR;
1599: END;
1600: END IF;
1609: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1610: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
1611: fnd_message.set_Token('PRICE_LIST2', l_price_list_id || sqlerrm);
1612: OE_MSG_PUB.Add;
1613: oe_debug_pub.add
1614: ('No Data Found Agreement+price_list_id combination',2);
1615: raise FND_API.G_EXC_ERROR;
1616: END;
1617:
1650: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
1651: THEN
1652:
1653: BEGIN
1654: oe_debug_pub.add
1655: ('ship_to_org_id :'||to_char(p_header_rec.ship_to_org_id),2);
1656: oe_debug_pub.add
1657: ('Customer Relation :'||lcustomer_relations,2);
1658:
1652:
1653: BEGIN
1654: oe_debug_pub.add
1655: ('ship_to_org_id :'||to_char(p_header_rec.ship_to_org_id),2);
1656: oe_debug_pub.add
1657: ('Customer Relation :'||lcustomer_relations,2);
1658:
1659: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
1660:
1658:
1659: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
1660:
1661: IF nvl(lcustomer_relations,'N') = 'N' THEN
1662: oe_debug_pub.add
1663: ('Cr: No',2);
1664:
1665: SELECT 'VALID'
1666: INTO l_dummy
1670: AND status = 'A'
1671: AND address_status ='A'; --bug 2752321
1672:
1673: ELSIF lcustomer_relations = 'Y' THEN
1674: oe_debug_pub.add
1675: ('Cr: Yes Ship',2);
1676: --variable added for bug 3739650
1677: l_site_use_code := 'SHIP_TO' ;
1678: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
1694: and ship_to_flag = 'Y' and status = 'A')
1695: --bug 4205113
1696: AND EXISTS(SELECT 1 FROM HZ_CUST_ACCOUNTS WHERE CUST_ACCOUNT_ID = ACCT_SITE.CUST_ACCOUNT_ID AND STATUS='A')
1697: AND ROWNUM = 1;
1698: oe_debug_pub.add
1699: ('Cr: Yes- After the select',2);
1700: ELSIF lcustomer_relations = 'A' THEN
1701: SELECT 'VALID'
1702: INTO l_dummy
1715:
1716: EXCEPTION
1717:
1718: WHEN NO_DATA_FOUND THEN
1719: oe_debug_pub.add
1720: ('In: No data found',2);
1721: l_return_status := FND_API.G_RET_STS_ERROR;
1722: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1723: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', OE_Order_Util.Get_Attribute_Name
1750: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
1751: THEN
1752: BEGIN
1753:
1754: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_header_rec.deliver_to_org_id),2);
1755: oe_debug_pub.add('Customer Relation :'||lcustomer_relations,2);
1756:
1757: IF nvl(lcustomer_relations,'N') = 'N' THEN
1758:
1751: THEN
1752: BEGIN
1753:
1754: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_header_rec.deliver_to_org_id),2);
1755: oe_debug_pub.add('Customer Relation :'||lcustomer_relations,2);
1756:
1757: IF nvl(lcustomer_relations,'N') = 'N' THEN
1758:
1759: oe_debug_pub.add('Cr: No',2);
1755: oe_debug_pub.add('Customer Relation :'||lcustomer_relations,2);
1756:
1757: IF nvl(lcustomer_relations,'N') = 'N' THEN
1758:
1759: oe_debug_pub.add('Cr: No',2);
1760:
1761: SELECT 'VALID'
1762: INTO l_dummy
1763: FROM oe_deliver_to_orgs_v
1767: AND address_status ='A'; --bug 2752321
1768: -- Valid Deliver To Org Id.
1769:
1770: ELSIF lcustomer_relations = 'Y' THEN
1771: oe_debug_pub.add('Cr: Yes deliver',2);
1772: --variable added for bug 3739650
1773: l_site_use_code := 'DELIVER_TO' ;
1774: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
1775: Into l_dummy
1790: and ship_to_flag = 'Y' and status='A')
1791: --bug 4205113
1792: AND EXISTS(SELECT 1 FROM HZ_CUST_ACCOUNTS WHERE CUST_ACCOUNT_ID = ACCT_SITE.CUST_ACCOUNT_ID AND STATUS='A')
1793: AND ROWNUM = 1;
1794: oe_debug_pub.add('Cr: Yes- After the select',2);
1795:
1796: ELSIF lcustomer_relations = 'A' THEN
1797:
1798: SELECT 'VALID'
1846: ,p_old_header_rec.sold_to_org_id)
1847: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
1848: THEN
1849: BEGIN
1850: oe_debug_pub.add
1851: ('invoice_to_org_id :'||to_char(p_header_rec.invoice_to_org_id),2);
1852:
1853: IF nvl(lcustomer_relations,'N') = 'N' THEN
1854:
1863: -- for Order entered in the Sales Order form , it is assumed that the
1864: -- invoice to org passed is the correct one
1865: ELSIF lcustomer_relations = 'Y' THEN
1866:
1867: oe_debug_pub.add
1868: ('Cr: Yes Inv',2);
1869: --variable added for bug 3739650
1870: l_site_use_code := 'BILL_TO' ;
1871: SELECT 'VALID'
2132: ,p_old_header_rec.invoice_to_org_id)
2133: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE))
2134: THEN
2135: BEGIN
2136: oe_debug_pub.add
2137: ('inv_to_contact :'||to_char(p_header_rec.invoice_to_contact_id),2);
2138:
2139: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
2140: INTO l_dummy
2391: END IF;
2392:
2393: END IF;
2394:
2395: oe_debug_pub.Add(' Valid Tax Exempt Number',1);
2396:
2397: EXCEPTION
2398:
2399: WHEN NO_DATA_FOUND THEN
2406: p_header_rec.tax_exempt_number := FND_API.G_MISS_CHAR;
2407: p_header_rec.tax_exempt_reason_code := FND_API.G_MISS_CHAR;
2408: p_header_rec.tax_exempt_flag :=FND_API.G_MISS_CHAR;
2409:
2410: oe_debug_pub.Add('Redefault the tax_exempt_number',1);
2411: ELSE
2412: l_return_status := FND_API.G_RET_STS_ERROR;
2413: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2414: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2434: END IF; -- Tax exempton info validation.
2435:
2436: */
2437:
2438: oe_debug_pub.Add('p_header_rec.cust_po_number'|| p_header_rec.cust_po_number);-- Bug# 6603714
2439: IF p_header_rec.order_source_id <> 27 THEN-- Bug# 6603714
2440:
2441: -- Fix bug 1162304: issue a warning message if the PO number
2442: -- is being referenced by another order
2472:
2473: IF (NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id
2474: ,p_old_header_rec.sold_to_org_id)) THEN
2475:
2476: oe_debug_pub.add('OEXLHDRB: before validating customer for commitment.', 3);
2477: Validate_Commitment_Customer
2478: (p_header_id => p_header_rec.header_id
2479: ,p_sold_to_org_id => p_header_rec.sold_to_org_id
2480: ,x_return_status => l_comt_cust_status);
2498:
2499: Fnd_Message.Set_Name('ONT','ONT_COM_CUSTOMER_MISMATCH');
2500: Fnd_message.set_token('CUSTOMER',l_customer_name);
2501: OE_MSG_PUB.Add;
2502: oe_debug_pub.add('Error: customer of the order does not match the customer for the commitment.', 3);
2503: RAISE FND_API.G_EXC_ERROR;
2504: END IF;
2505: END IF;
2506: */
2511:
2512: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110509' AND
2513: p_header_rec.blanket_number IS NOT NULL THEN
2514: If l_debug_level > 0 THEN
2515: OE_DEBUG_PUB.Add('Blankets are only available in Pack I or greater',1);
2516: End if;
2517: l_return_status := FND_API.G_RET_STS_ERROR;
2518: FND_MESSAGE.Set_Name('ONT','OE_BLANKET_INVALID_VERSION');
2519: OE_MSG_PUB.Add;
2567: l_return_status := FND_API.G_RET_STS_ERROR;
2568:
2569: fnd_message.Set_Name('ONT','ONT_MULTIPLE_PAYMENTS_EXIST');
2570: OE_MSG_PUB.Add;
2571: oe_debug_pub.add('Error: multiple payments exist. cannot update order header',3);
2572:
2573: end if;
2574:
2575: END IF; -- if not oe_globals.equal...
2576:
2577: END IF; -- if multiple_payments is enabled
2578: */
2579: --distributed orders @
2580: oe_debug_pub.ADD('ib_owner: '||p_header_rec.ib_owner);
2581: IF p_header_rec.ib_owner IS NOT NULL AND
2582: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ib_owner ,p_old_header_rec.ib_owner)
2583: OR p_old_header_rec.ib_owner is null
2584: OR NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id, p_old_header_rec.sold_to_org_id)
2600: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_OWNER'));
2601: OE_MSG_PUB.Add;
2602: END IF;
2603: END IF;
2604: oe_debug_pub.ADD('ib_installed_at_location: '||p_header_rec.ib_installed_at_location);
2605:
2606: IF p_header_rec.ib_installed_at_location IS NOT NULL AND
2607: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ib_installed_at_location ,p_old_header_rec.ib_installed_at_location)
2608: OR p_old_header_rec.ib_installed_at_location is null
2649: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2650: OE_MSG_PUB.Add;
2651: END IF;
2652: END IF;
2653: oe_debug_pub.ADD('ib_current_location: '||p_header_rec.ib_current_location);
2654:
2655: IF p_header_rec.ib_current_location IS NOT NULL AND
2656: ( NOT OE_GLOBALS.EQUAL(p_header_rec.ib_current_location ,p_old_header_rec.ib_current_location)
2657: OR NOT OE_GLOBALS.EQUAL(p_header_rec.invoice_to_org_id ,p_old_header_rec.invoice_to_org_id)
2709: and p_old_header_rec.header_id is not null
2710: then
2711: -- okay, loop for all lines
2712: If l_debug_level > 0 THEN
2713: oe_debug_pub.add('>sold_to_site_use_id has changed to null,');
2714: oe_debug_pub.add('>checking all lines for IB validation');
2715: end if;
2716:
2717: for l in ib_lines loop
2710: then
2711: -- okay, loop for all lines
2712: If l_debug_level > 0 THEN
2713: oe_debug_pub.add('>sold_to_site_use_id has changed to null,');
2714: oe_debug_pub.add('>checking all lines for IB validation');
2715: end if;
2716:
2717: for l in ib_lines loop
2718: if l.ib_current_location='SOLD_TO'
2717: for l in ib_lines loop
2718: if l.ib_current_location='SOLD_TO'
2719: then
2720: If l_debug_level > 0 THEN
2721: oe_debug_pub.add('>line_id:'||l.line_id||' has ib_current_location as SOLD_TO');
2722: end if;
2723: l_return_status := FND_API.G_RET_STS_ERROR;
2724: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2725: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2726: OE_MSG_PUB.Add;
2727: elsif l.ib_installed_at_location='SOLD_TO'
2728: then
2729: If l_debug_level > 0 THEN
2730: oe_debug_pub.add('>line_id:'||l.line_id||' has ib_installed_at_location as SOLD_TO');
2731: end if;
2732: l_return_status := FND_API.G_RET_STS_ERROR;
2733: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2734: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2736: end if;
2737: end loop;
2738: end if;
2739: If l_debug_level > 0 THEN
2740: oe_debug_pub.add('>IB Line validation done');
2741: end if;
2742: -- IB Validation ENDS
2743:
2744: --R12 CC Encryption
2769:
2770: -- Done validating entity
2771: x_return_status := l_return_status;
2772:
2773: oe_debug_pub.add('Exit OE_VALIDATE_HEADER.ENTITY',1);
2774:
2775: EXCEPTION
2776:
2777: WHEN FND_API.G_EXC_ERROR THEN
2811: l_cc_security_code_use Varchar2(20);
2812: l_auth_exist varchar2(10); --Bug# 16099743
2813: BEGIN
2814:
2815: oe_debug_pub.add('Entering OE_VALIDATE_HEADER.ATTRIBUTES',1);
2816:
2817: x_return_status := FND_API.G_RET_STS_SUCCESS;
2818:
2819: -- Validate header attributes
2906: END IF;
2907:
2908: END IF;
2909:
2910: oe_debug_pub.add('sarita:p_x_header_rec.booked_flag :'||
2911: p_x_header_rec.booked_flag);
2912:
2913: IF p_x_header_rec.booked_flag IS NOT NULL AND
2914: ( ( p_x_header_rec.booked_flag <>
2916: p_old_header_rec.booked_flag IS NULL ) OR
2917: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE ))
2918: --bug 5060064
2919: THEN
2920: oe_debug_pub.add('sarita:before validate booked flag');
2921:
2922: IF NOT OE_Validate.Booked(p_x_header_rec.booked_flag)
2923: THEN
2924: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
3234: END IF;
3235:
3236: END IF;
3237:
3238: oe_debug_pub.add('sarita: p_x_header_rec.order_type_id:'||
3239: p_x_header_rec.order_type_id);
3240: oe_debug_pub.add('sarita: p_old_header_rec.order_type_id:'||
3241: p_old_header_rec.order_type_id);
3242:
3236: END IF;
3237:
3238: oe_debug_pub.add('sarita: p_x_header_rec.order_type_id:'||
3239: p_x_header_rec.order_type_id);
3240: oe_debug_pub.add('sarita: p_old_header_rec.order_type_id:'||
3241: p_old_header_rec.order_type_id);
3242:
3243: IF p_x_header_rec.order_type_id IS NOT NULL AND
3244: ( (p_x_header_rec.order_type_id <>
3246: p_old_header_rec.order_type_id IS NULL ) OR
3247: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE ))
3248: --bug 5060064
3249: THEN
3250: oe_debug_pub.add('Before OE_Validate.Order_Type');
3251:
3252: IF NOT OE_Validate.Order_Type(p_x_header_rec.order_type_id)
3253: THEN
3254: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
3677: END IF;
3678:
3679: END IF;
3680:
3681: oe_debug_pub.add('after payment_type_code');
3682:
3683: IF p_x_header_rec.credit_card_code IS NOT NULL AND
3684: ( ( p_x_header_rec.credit_card_code <>
3685: p_old_header_rec.credit_card_code OR
3703: END IF;
3704:
3705: END IF;
3706:
3707: oe_debug_pub.add('after credit_card_code');
3708:
3709: --R12 CVV2
3710: 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
3711: l_cc_security_code_use := OE_Payment_Trxn_Util.Get_CC_Security_Code_Use;
3738: END IF;
3739: END IF;
3740: --R12 CVV2
3741:
3742: oe_debug_pub.add('after security code');
3743:
3744: IF p_x_header_rec.flow_status_code IS NOT NULL AND
3745: ( (p_x_header_rec.flow_status_code <>
3746: p_old_header_rec.flow_status_code OR
3765: END IF;
3766:
3767: END IF;
3768:
3769: oe_Debug_pub.add('after flow_status_code');
3770: if OE_GLOBALS.g_validate_desc_flex ='Y' then -- bug4343612
3771: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Header.attributes ',1);
3772: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3773:
3767: END IF;
3768:
3769: oe_Debug_pub.add('after flow_status_code');
3770: if OE_GLOBALS.g_validate_desc_flex ='Y' then -- bug4343612
3771: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Header.attributes ',1);
3772: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3773:
3774: ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
3775: (p_x_header_rec.attribute1 IS NOT NULL AND
3858: p_old_header_rec.context IS NULL )))
3859: THEN
3860:
3861:
3862: oe_debug_pub.add('Before calling header_desc_flex',2);
3863: oe_debug_pub.add('source doc type:'||to_char(p_x_header_rec.source_document_type_id),5);
3864: /* Fixing 2375476 to skip the Flex field validation in case of
3865: Internal Orders. This condition will be removed once process Order
3866: starts defaulting the FF */
3859: THEN
3860:
3861:
3862: oe_debug_pub.add('Before calling header_desc_flex',2);
3863: oe_debug_pub.add('source doc type:'||to_char(p_x_header_rec.source_document_type_id),5);
3864: /* Fixing 2375476 to skip the Flex field validation in case of
3865: Internal Orders. This condition will be removed once process Order
3866: starts defaulting the FF */
3867: /* Fixing 2611912 to skip the Flex field validation in case of
4064: END IF;
4065: END IF ; -- If flex enabled
4066: END IF;
4067:
4068: oe_debug_pub.add('After header_desc_flex ' || x_return_status,2);
4069: IF p_x_header_rec.operation = oe_globals.g_opr_create OR
4070: ( p_x_header_rec.operation = oe_globals.g_opr_update AND
4071: (p_x_header_rec.global_attribute1 IS NOT NULL AND
4072: ( p_x_header_rec.global_attribute1 <>
4155: THEN
4156:
4157:
4158:
4159: OE_DEBUG_PUB.ADD('Before G_header_desc_flex',2);
4160: /* Fixing 2375476 to skip the Flex field validation in case of
4161: Internal Orders. This condition will be removed once process Order
4162: starts defaulting the FF */
4163: IF OE_ORDER_CACHE.IS_FLEX_ENABLED('OE_HEADER_GLOBAL_ATTRIBUTE') = 'Y' THEN
4349: END IF;
4350: END IF; -- Enabled
4351: END IF;
4352:
4353: OE_DEBUG_PUB.ADD('After G_header_desc_flex ' || x_return_status,2);
4354:
4355: -- Added the Trading Partner Flex Validation and also the changes for defaulting
4356: -- for bug 2511313
4357:
4567:
4568: END IF;
4569: END IF; -- Is flex enabled
4570:
4571: --oe_debug_pub.add('After TP_header_desc_flex ' || x_return_status);
4572:
4573: END IF;
4574: /* Trading Partner */
4575: end if; --for bug4343612
4600: END IF;
4601:
4602: END IF;
4603:
4604: oe_debug_pub.add('after salesrep_id');
4605:
4606: IF p_x_header_rec.sales_channel_code IS NOT NULL AND
4607: ( (p_x_header_rec.sales_channel_code <>
4608: p_old_header_rec.sales_channel_code OR
5136:
5137:
5138: --End Of Addition
5139: --End Of Addition
5140: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.ATTRIBUTES',1);
5141:
5142: EXCEPTION
5143:
5144: WHEN FND_API.G_EXC_ERROR THEN