66: ELSE -- Get sequence type from AOL
67:
68: x_result := fnd_seqnum.get_seq_info( 660,
69: x_doc_category_code,
70: OE_Bulk_Order_Pvt.G_SOB_ID,
71: null,
72: sysdate,
73: x_doc_sequence_id,
74: x_doc_sequence_type,
117: END IF;
118:
119: X_result := fnd_seqnum.get_seq_val(660,
120: x_doc_category_code,
121: OE_Bulk_Order_Pvt.G_SOB_ID,
122: null,
123: sysdate,
124: x_doc_sequence_value,
125: x_doc_sequence_id,
610:
611: --bug 5054618}
612:
613: PROCEDURE Check_Book_Reqd_Attributes
614: ( p_header_rec IN OE_Bulk_Order_Pvt.HEADER_REC_TYPE
615: , p_index IN NUMBER
616: , x_return_status IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2
617: )
618: IS
824: END Check_Book_Reqd_Attributes;
825:
826:
827: PROCEDURE Default_Record
828: (p_header_rec IN OUT NOCOPY OE_Bulk_Order_Pvt.HEADER_REC_TYPE
829: ,p_index IN NUMBER
830: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
831: )
832: IS
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: END Default_Record;
1066:
1067: PROCEDURE Populate_Internal_Fields
1068: (p_header_rec IN OUT NOCOPY OE_Bulk_Order_Pvt.HEADER_REC_TYPE
1069: ,p_index IN NUMBER
1070: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1071: )
1072: IS
1276: (OE_Bulk_Cache.G_AGREEMENT_TBL(l_c_index).sold_to_org_id
1277: ,p_sold_to_org_id)
1278: THEN
1279:
1280: IF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N'
1281: OR (OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'Y'
1282: AND NOT Is_Related_Customer(p_sold_to_org_id
1283: ,OE_Bulk_Cache.G_AGREEMENT_TBL(l_c_index).sold_to_org_id))
1284: THEN
1277: ,p_sold_to_org_id)
1278: THEN
1279:
1280: IF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N'
1281: OR (OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'Y'
1282: AND NOT Is_Related_Customer(p_sold_to_org_id
1283: ,OE_Bulk_Cache.G_AGREEMENT_TBL(l_c_index).sold_to_org_id))
1284: THEN
1285:
1417: THEN
1418: RETURN TRUE;
1419: END IF;
1420:
1421: IF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N' THEN
1422:
1423: RETURN FALSE;
1424:
1425: ELSIF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'Y' THEN
1421: IF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N' THEN
1422:
1423: RETURN FALSE;
1424:
1425: ELSIF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'Y' THEN
1426:
1427: SELECT 'VALID'
1428: INTO l_dummy
1429: FROM HZ_CUST_ACCT_RELATE
1508: THEN
1509: RETURN TRUE;
1510: END IF;
1511:
1512: IF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N' THEN
1513:
1514: RETURN FALSE;
1515:
1516: ELSIF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'Y' THEN
1512: IF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N' THEN
1513:
1514: RETURN FALSE;
1515:
1516: ELSIF OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'Y' THEN
1517:
1518: SELECT 'VALID'
1519: INTO l_dummy
1520: FROM HZ_CUST_ACCT_RELATE
1564: AND ROWNUM=1;
1565:
1566: BEGIN
1567:
1568: IF (OE_Bulk_Order_Pvt.G_CUST_RELATIONS = 'N') THEN
1569:
1570: SELECT 'VALID'
1571: INTO l_dummy
1572: FROM oe_deliver_to_orgs_v
1659: -- 4. Other misc processing like holds evaluation, sales credits.
1660: ---------------------------------------------------------------------
1661:
1662: PROCEDURE Entity
1663: ( p_header_rec IN OUT NOCOPY OE_Bulk_Order_Pvt.HEADER_REC_TYPE
1664: , x_header_scredit_rec IN OUT NOCOPY OE_Bulk_Order_Pvt.SCREDIT_REC_TYPE
1665: , p_defaulting_mode IN VARCHAR2
1666: , p_process_configurations IN VARCHAR2 DEFAULT 'N'
1667: , p_validate_configurations IN VARCHAR2 DEFAULT 'Y'
1660: ---------------------------------------------------------------------
1661:
1662: PROCEDURE Entity
1663: ( p_header_rec IN OUT NOCOPY OE_Bulk_Order_Pvt.HEADER_REC_TYPE
1664: , x_header_scredit_rec IN OUT NOCOPY OE_Bulk_Order_Pvt.SCREDIT_REC_TYPE
1665: , p_defaulting_mode IN VARCHAR2
1666: , p_process_configurations IN VARCHAR2 DEFAULT 'N'
1667: , p_validate_configurations IN VARCHAR2 DEFAULT 'Y'
1668: , p_schedule_configurations IN VARCHAR2 DEFAULT 'N'
2220: -- BEGIN: Desc Flex Validation
2221:
2222: IF p_validate_desc_flex = 'Y' THEN
2223:
2224: IF OE_Bulk_Order_Pvt.G_OE_HEADER_ATTRIBUTES = 'Y' THEN
2225:
2226: IF NOT OE_VALIDATE.Header_Desc_Flex
2227: (p_context => p_header_rec.context(i)
2228: ,p_attribute1 => p_header_rec.attribute1(i)
2363:
2364: END IF;
2365: END IF;
2366:
2367: IF OE_Bulk_Order_Pvt.G_OE_HEADER_GLOBAL_ATTRIBUTE = 'Y' THEN
2368:
2369: IF NOT OE_VALIDATE.G_Header_Desc_Flex
2370: (p_context => p_header_rec.global_attribute_category(i)
2371: ,p_attribute1 => p_header_rec.global_attribute1(i)
2505:
2506: END IF;
2507: END IF;
2508:
2509: IF OE_Bulk_Order_Pvt.G_OE_HEADER_TP_ATTRIBUTES = 'Y' THEN
2510:
2511: IF NOT OE_VALIDATE.TP_Header_Desc_Flex
2512: (p_context => p_header_rec.tp_context(i)
2513: ,p_attribute1 => p_header_rec.tp_attribute1(i)
2661: );
2662:
2663: IF OE_Bulk_Cache.G_SOLD_TO_TBL(l_c_index).tp_setup THEN
2664:
2665: OE_Bulk_Order_Pvt.G_ACK_NEEDED := 'Y';
2666: p_header_rec.first_ack_code(i) := 'X';
2667:
2668: -- Cache EDI attributes as these will be used in creating
2669: -- the acknowledgment records later.
2813: --End of ER 9060917
2814:
2815: error_count := error_count + 1;
2816:
2817: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id.EXTEND(1);
2818: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
2819: := p_header_rec.order_source_id(i);
2820:
2821: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
2814:
2815: error_count := error_count + 1;
2816:
2817: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id.EXTEND(1);
2818: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
2819: := p_header_rec.order_source_id(i);
2820:
2821: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
2822: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
2817: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id.EXTEND(1);
2818: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
2819: := p_header_rec.order_source_id(i);
2820:
2821: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
2822: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
2823: := p_header_rec.orig_sys_document_ref(i);
2824:
2825: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
2818: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
2819: := p_header_rec.order_source_id(i);
2820:
2821: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
2822: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
2823: := p_header_rec.orig_sys_document_ref(i);
2824:
2825: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
2826: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
2821: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
2822: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
2823: := p_header_rec.orig_sys_document_ref(i);
2824:
2825: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
2826: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
2827: := p_header_rec.header_id(i);
2828: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop.EXTEND(1);
2829: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch.EXTEND(1);
2822: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
2823: := p_header_rec.orig_sys_document_ref(i);
2824:
2825: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
2826: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
2827: := p_header_rec.header_id(i);
2828: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop.EXTEND(1);
2829: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch.EXTEND(1);
2830:
2824:
2825: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
2826: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
2827: := p_header_rec.header_id(i);
2828: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop.EXTEND(1);
2829: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch.EXTEND(1);
2830:
2831: IF p_header_rec.lock_control(i) = -98 THEN
2832: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop(error_count):=
2825: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
2826: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
2827: := p_header_rec.header_id(i);
2828: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop.EXTEND(1);
2829: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch.EXTEND(1);
2830:
2831: IF p_header_rec.lock_control(i) = -98 THEN
2832: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop(error_count):=
2833: 'Y';
2828: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop.EXTEND(1);
2829: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch.EXTEND(1);
2830:
2831: IF p_header_rec.lock_control(i) = -98 THEN
2832: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop(error_count):=
2833: 'Y';
2834: ELSIF p_header_rec.lock_control(i) = -97 THEN
2835: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch(error_count):= 'Y';
2836: END IF;
2831: IF p_header_rec.lock_control(i) = -98 THEN
2832: OE_Bulk_Order_PVT.G_ERROR_REC.ineligible_for_hvop(error_count):=
2833: 'Y';
2834: ELSIF p_header_rec.lock_control(i) = -97 THEN
2835: OE_Bulk_Order_PVT.G_ERROR_REC.skip_batch(error_count):= 'Y';
2836: END IF;
2837: END IF;
2838:
2839: END LOOP;