[Home] [Help]
1: PACKAGE BODY OE_Validate_Header AS
2: /* $Header: OEXLHDRB.pls 120.20 2008/01/10 07:10:56 smanian ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXLHDRB.pls 120.20 2008/01/10 07:10:56 smanian ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Validate_Header';
7:
8:
9: /* LOCAL PROCEDURES */
10:
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;
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;
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');
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
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
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');
1209: THEN
1210:
1211: OE_MSG_PUB.Add_Exc_Msg
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;
2379: OR (p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE)
2380: )
2381: THEN
2382:
2383: IF OE_Validate_Header.Is_Duplicate_PO_Number
2384: (p_header_rec.cust_po_number
2385: ,p_header_rec.sold_to_org_id
2386: ,p_header_rec.header_id )
2387: THEN
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
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
3783: -- p_x_header_rec.source_document_type_id = FND_API.G_MISS_NUM OR
3784: -- p_x_header_rec.source_document_type_id = 2) THEN
3785: -- commented above, bug 2511313
3786:
3787: IF NOT OE_VALIDATE.Header_Desc_Flex
3788: (p_context => p_x_header_rec.context
3789: ,p_attribute1 => p_x_header_rec.attribute1
3790: ,p_attribute2 => p_x_header_rec.attribute2
3791: ,p_attribute3 => p_x_header_rec.attribute3
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
5111: END IF;
5112:
5113: END Entity_Delete;
5114:
5115: END OE_Validate_Header;