[Home] [Help]
21: l_order_type_rec OE_Order_Cache.Order_Type_Rec_Type;
22: l_set_of_books_rec OE_Order_Cache.Set_Of_Books_Rec_Type;
23: BEGIN
24:
25: oe_debug_pub.add('Enter OE_CNCL_VALIDATE_HEADER.CHECK_BOOK_REQD',1);
26:
27: -- Check for the following required fields on a booked order:
28: -- Order Number, Sold To Org, Invoice To Org,
29: -- Price List, Tax Exempt Flag, Sales Person, Order Date
77: -- Fix bug 1262790
78: -- Ship To Org and Payment Term are required only on regular or
79: -- MIXED orders, NOT on RETURN orders
80:
81: oe_debug_pub.add('p_header_rec.ship_to_org_id' || to_char(p_header_rec.ship_to_org_id),2);
82:
83: IF p_header_rec.order_category_code <>
84: OE_GLOBALS.G_RETURN_CATEGORY_CODE THEN
85:
213: */
214:
215: END IF; -- END of checks related to payment type
216:
217: oe_debug_pub.add('Exiting OE_CNCL_VALIDATE_HEADER.CHECK_BOOK_REQD',1);
218: EXCEPTION
219: WHEN OTHERS THEN
220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221:
358: AND ROWNUM = 1;
359:
360:
361: BEGIN
362: oe_debug_pub.add('Enter OE_CNCL_VALIDATE_HEADER.ENTITY',1);
363:
364: -- Check required attributes.
365: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
366: lcustomer_relations := OE_Sys_Parameters.VALUE('CUSTOMER_RELATIONSHIPS_FLAG');
372: -- Check rest of required attributes here.
373: ----------------------------------------------------------
374:
375:
376: oe_debug_pub.add('p_header_rec.order_type_id' || p_header_rec.order_type_id, 2);
377:
378: IF p_header_rec.order_type_id IS NULL
379: THEN
380: l_return_status := FND_API.G_RET_STS_ERROR;
390:
391: --add messages
392:
393:
394: oe_debug_pub.add('p_header_rec.transactional_curr_code' || p_header_rec.transactional_curr_code, 2);
395:
396: IF p_header_rec.transactional_curr_code IS NULL
397: THEN
398: l_return_status := FND_API.G_RET_STS_ERROR;
421:
422: -- Check attributes required for booked header
423:
424:
425: oe_debug_pub.add('p_header_rec.booked_flag' || p_header_rec.booked_flag, 2);
426:
427:
428: IF p_header_rec.booked_flag = 'Y' THEN
429:
435: END IF;
436:
437: -- IF the Tax handling is "Exempt"
438:
439: oe_debug_pub.add('p_header_rec.tax_exempt_flag' || p_header_rec.tax_exempt_flag, 2);
440:
441: IF p_header_rec.tax_exempt_flag = 'E'
442: THEN
443: -- Check for Tax exempt reason
495: ----------------------------------------------------------------
496: -- VALIDATE ATTRIBUTE DEPENDENCIES
497: ----------------------------------------------------------------
498:
499: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
500: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
501: -- Validate currency
502:
503: l_price_list_rec :=
496: -- VALIDATE ATTRIBUTE DEPENDENCIES
497: ----------------------------------------------------------------
498:
499: oe_debug_pub.add('New price ' || p_header_rec.price_list_id,2);
500: oe_debug_pub.add('New curr ' || p_header_rec.transactional_curr_code,2);
501: -- Validate currency
502:
503: l_price_list_rec :=
504: OE_Order_Cache.Load_Price_List ( p_header_rec.price_list_id );
503: l_price_list_rec :=
504: OE_Order_Cache.Load_Price_List ( p_header_rec.price_list_id );
505:
506:
507: oe_debug_pub.add('p_header_rec.price_list_id' || p_header_rec.price_list_id, 2);
508:
509:
510: IF p_header_rec.price_list_id IS NOT NULL
511: THEN
519: l_validate_result);
520: EXCEPTION
521: WHEN OTHERS THEN
522:
523: oe_debug_pub.add('OEXVCHDB: Error when calling QP_UTIL_PUB.Validate_Price_list_Curr_code:'||SQLERRM);
524:
525: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
526: THEN
527:
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534:
535: END;
536:
537: oe_debug_pub.add('OEXVCHDB: Currency Validation Result:'||l_validate_result);
538: --15878235 end
539:
540: /*15878235 start
541: IF p_header_rec.transactional_curr_code <>
556:
557: -- Currency_date, currency_rate should be null when type is null.
558:
559:
560: oe_debug_pub.add('p_header_rec.Conversion_type_code' || p_header_rec.Conversion_type_code, 2);
561:
562: IF p_header_rec.Conversion_type_code IS NULL
563: THEN
564: IF Nvl(p_header_rec.conversion_rate, FND_API.G_MISS_NUM)
584: OE_MSG_PUB.ADD;
585:
586: END IF; -- END of checks based on conversion type
587:
588: oe_debug_pub.add('p_header_rec.ordered_date' || p_header_rec.ordered_date, 2);
589:
590: -- Order Type has to be valid
591: BEGIN
592:
627:
628: -- Agreement depends on Order Type AND Sold To Org
629:
630:
631: oe_debug_pub.add('p_header_rec.agreement_id' || p_header_rec.agreement_id, 2);
632:
633: IF p_header_rec.agreement_id IS NOT NULL THEN
634: -- commented by Geresh
635: -- l_agreement_rec :=
668: ('AGREEMENT_NAME', l_agreement_name || sqlerrm);
669: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
670: fnd_message.set_Token('PRICE_LIST2', l_price_list_id);
671: OE_MSG_PUB.Add;
672: oe_debug_pub.add('Invalid Agreement +price_list_id combination',2);
673: raise FND_API.G_EXC_ERROR;
674: END IF;
675: END IF;
676:
681: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
682: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
683: fnd_message.set_Token('PRICE_LIST2', l_price_list_id || sqlerrm);
684: OE_MSG_PUB.Add;
685: oe_debug_pub.add
686: ('No Data Found Agreement+price_list_id combination',2);
687: raise FND_API.G_EXC_ERROR;
688: END;
689:
693: END IF; -- Agreement is not null
694:
695: -- Ship to Org id depends on sold to org.
696:
697: oe_debug_pub.add('p_header_rec.ship_to_org_id' || p_header_rec.ship_to_org_id, 2);
698:
699: IF p_header_rec.ship_to_org_id IS NOT NULL
700: THEN
701:
699: IF p_header_rec.ship_to_org_id IS NOT NULL
700: THEN
701:
702: BEGIN
703: oe_debug_pub.add
704: ('ship_to_org_id :'||to_char(p_header_rec.ship_to_org_id),2);
705: oe_debug_pub.add
706: ('Customer Relation :'||lcustomer_relations,2);
707:
701:
702: BEGIN
703: oe_debug_pub.add
704: ('ship_to_org_id :'||to_char(p_header_rec.ship_to_org_id),2);
705: oe_debug_pub.add
706: ('Customer Relation :'||lcustomer_relations,2);
707:
708: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
709:
707:
708: --lcustomer_relations := FND_PROFILE.VALUE('ONT_CUSTOMER_RELATIONSHIPS');
709:
710: IF nvl(lcustomer_relations,'N') = 'N' THEN
711: oe_debug_pub.add
712: ('Cr: No',2);
713:
714: SELECT 'VALID'
715: INTO l_dummy
722: --
723: -- AND status = 'A';
724:
725: ELSIF lcustomer_relations = 'Y' THEN
726: oe_debug_pub.add
727: ('Cr: Yes',2);
728:
729: /*Select /*MOAC_SQL_NO_CHANGE 'VALID'
730: Into l_dummy
757:
758: /* added the following ELSIF condition to fix the bug 2002486 */
759:
760: ELSIF nvl(lcustomer_relations,'N') = 'A' THEN
761: oe_debug_pub.add
762: ('Cr: A',2);
763:
764: SELECT 'VALID'
765: INTO l_dummy
767: WHERE site_use_id = p_header_rec.ship_to_org_id
768: AND ROWNUM = 1;
769:
770:
771: oe_debug_pub.add
772: ('Cr: Yes- After the select',2);
773:
774: END IF;
775:
778:
779: EXCEPTION
780:
781: WHEN NO_DATA_FOUND THEN
782: oe_debug_pub.add
783: ('In: No data found',2);
784: l_return_status := FND_API.G_RET_STS_ERROR;
785: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
786: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', OE_Order_Util.Get_Attribute_Name
803:
804: END IF; -- Ship To needed validation.
805:
806: -- Deliver to Org id depends on sold to org.
807: oe_debug_pub.add('p_header_rec.deliver_to_org_id'|| to_char(p_header_rec.deliver_to_org_id),2);
808: IF p_header_rec.deliver_to_org_id IS NOT NULL
809: THEN
810:
811: BEGIN
820: AND ROWNUM = 1;
821:
822: ELSIF lcustomer_relations = 'Y' THEN
823:
824: oe_debug_pub.add('Cr: Yes deliver',2);
825:
826: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
827: Into l_dummy
828: FROM HZ_CUST_SITE_USES_ALL SITE,
838: R.ORG_ID = ACCT_SITE.ORG_ID
839: AND R.RELATED_CUST_ACCOUNT_ID = p_header_rec.sold_to_org_id
840: and R.ship_to_flag = 'Y')
841: AND ROWNUM = 1;
842: oe_debug_pub.add('Cr: Yes- After the select',2);
843:
844: ELSIF lcustomer_relations = 'A' THEN
845:
846: SELECT 'VALID'
882:
883: -- Invoice to Org id depends on sold to org.
884:
885:
886: oe_debug_pub.add
887: ('invoice_to_org_id :'||to_char(p_header_rec.invoice_to_org_id),2);
888:
889: IF p_header_rec.invoice_to_org_id IS NOT NULL
890: THEN
888:
889: IF p_header_rec.invoice_to_org_id IS NOT NULL
890: THEN
891: BEGIN
892: oe_debug_pub.add
893: ('invoice_to_org_id :'||to_char(p_header_rec.invoice_to_org_id),2);
894:
895: IF nvl(lcustomer_relations,'N') = 'N' THEN
896:
931:
932: /* added the following ELSIF condition to fix the bug 2002486 */
933:
934: ELSIF nvl(lcustomer_relations,'N') = 'A' THEN
935: oe_debug_pub.add
936: ('Cr: A',2);
937:
938: SELECT 'VALID'
939: INTO l_dummy
969:
970: END IF; -- Invoice to org needed validation.
971:
972: -- Customer Location depends on Sold To Org
973: oe_debug_pub.add('p_header_rec.sold_to_site_use_id'|| to_char(p_header_rec.sold_to_site_use_id),2);
974: IF p_header_rec.sold_to_site_use_id IS NOT NULL
975: THEN
976:
977: BEGIN
1011: END; -- BEGIN
1012:
1013: END IF; --
1014: -- Sold to contact depends on Sold To Org
1015: oe_debug_pub.add('p_header_rec.sold_to_contact_id'|| to_char(p_header_rec.sold_to_contact_id),2);
1016: IF p_header_rec.sold_to_contact_id IS NOT NULL
1017: THEN
1018:
1019: BEGIN
1056: END IF; -- Sold to contact needed validation.
1057:
1058:
1059: -- Invoice to contact depends on Invoice To Org
1060: oe_debug_pub.add('p_header_rec.invoice_to_contact_id'|| to_char(p_header_rec.invoice_to_contact_id),2);
1061: IF p_header_rec.invoice_to_contact_id IS NOT NULL
1062: THEN
1063: BEGIN
1064: oe_debug_pub.add
1060: oe_debug_pub.add('p_header_rec.invoice_to_contact_id'|| to_char(p_header_rec.invoice_to_contact_id),2);
1061: IF p_header_rec.invoice_to_contact_id IS NOT NULL
1062: THEN
1063: BEGIN
1064: oe_debug_pub.add
1065: ('inv_to_contact :'||to_char(p_header_rec.invoice_to_contact_id),2);
1066:
1067: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
1068: INTO l_dummy
1108: END IF; -- Invoice to contact needed validation.
1109:
1110:
1111: -- Ship to contact depends on Ship To Org
1112: oe_debug_pub.add('p_header_rec.ship_to_contact_id'|| to_char(p_header_rec.ship_to_contact_id),2);
1113: IF p_header_rec.ship_to_contact_id IS NOT NULL
1114: THEN
1115:
1116: BEGIN
1163: END IF; -- Ship to contact needed validation.
1164:
1165:
1166: -- Deliver to contact depends on Deliver To Org
1167: oe_debug_pub.add('p_header_rec.deliver_to_contact_id' || to_char(p_header_rec.deliver_to_contact_id),2);
1168: IF p_header_rec.deliver_to_contact_id IS NOT NULL
1169: THEN
1170:
1171: BEGIN
1215:
1216:
1217: -- Check for Tax Exempt number/Tax exempt reason code IF the Tax exempt
1218: -- flag is 'S' (StANDard).
1219: oe_debug_pub.add('p_header_rec.tax_exempt_number'|| p_header_rec.tax_exempt_number,2);
1220: oe_debug_pub.add('p_header_rec.tax_exempt_flag'|| p_header_rec.tax_exempt_flag,2);
1221: IF p_header_rec.tax_exempt_flag IS NOT NULL
1222: THEN
1223:
1216:
1217: -- Check for Tax Exempt number/Tax exempt reason code IF the Tax exempt
1218: -- flag is 'S' (StANDard).
1219: oe_debug_pub.add('p_header_rec.tax_exempt_number'|| p_header_rec.tax_exempt_number,2);
1220: oe_debug_pub.add('p_header_rec.tax_exempt_flag'|| p_header_rec.tax_exempt_flag,2);
1221: IF p_header_rec.tax_exempt_flag IS NOT NULL
1222: THEN
1223:
1224: BEGIN
1339:
1340: -- Done validating entity
1341: x_return_status := l_return_status;
1342:
1343: oe_debug_pub.add('Exit OE_CNCL_VALIDATE_HEADER.ENTITY',1);
1344:
1345: EXCEPTION
1346:
1347: WHEN FND_API.G_EXC_ERROR THEN
1377: )
1378: IS
1379: BEGIN
1380:
1381: oe_debug_pub.add('Entering OE_CNCL_VALIDATE_HEADER.ATTRIBUTES',1);
1382:
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1384: -- validate Sales agreements Attributes
1385: IF p_x_header_rec.Blanket_number IS NOT NULL
2318: OR p_x_header_rec.attribute9 IS NOT NULL
2319: OR p_x_header_rec.context IS NOT NULL
2320: THEN
2321: --
2322: oe_debug_pub.add('Before calling header_desc_flex',2);
2323: IF NOT OE_CNCL_VALIDATE.Header_Desc_Flex
2324: (p_context => p_x_header_rec.context
2325: ,p_attribute1 => p_x_header_rec.attribute1
2326: ,p_attribute2 => p_x_header_rec.attribute2
2402: END IF;
2403: --
2404: END IF;
2405: --
2406: oe_debug_pub.add('After header_desc_flex ' || x_return_status,2);
2407: --
2408: IF p_x_header_rec.global_attribute1 IS NOT NULL
2409: OR p_x_header_rec.global_attribute10 IS NOT NULL
2410: OR p_x_header_rec.global_attribute11 IS NOT NULL
2428: OR p_x_header_rec.global_attribute_category IS NOT NULL
2429: THEN
2430:
2431: --
2432: OE_DEBUG_PUB.ADD('Before G_header_desc_flex',2);
2433: IF NOT OE_CNCL_VALIDATE.G_Header_Desc_Flex
2434: (p_context => p_x_header_rec.global_attribute_category
2435: ,p_attribute1 => p_x_header_rec.global_attribute1
2436: ,p_attribute2 => p_x_header_rec.global_attribute2
2512: END IF;
2513: --
2514:
2515: --
2516: OE_DEBUG_PUB.ADD('After G_header_desc_flex ' || x_return_status,2);
2517: -- Done validating attributes
2518:
2519: -- Salesrep_id
2520: IF p_x_header_rec.salesrep_id IS NOT NULL THEN
2613: END IF;
2614: --
2615: END IF;
2616: --
2617: oe_debug_pub.add('Exiting OE_CNCL_VALIDATE_HEADER.ATTRIBUTES',1);
2618:
2619: EXCEPTION
2620:
2621: WHEN FND_API.G_EXC_ERROR THEN