[Home] [Help]
86: )
87: RETURN VARCHAR2
88: IS
89:
90: l_item_rec OE_ORDER_CACHE.ITEM_REC_TYPE;
91: l_hook_pricing_uom OE_ORDER_LINES_ALL.PRICING_QUANTITY_UOM%TYPE;
92: l_primary_catch_weight VARCHAR2(1) := NULL;
93: l_secondary_catch_weight VARCHAR2(1) := NULL;
94: l_ref_line_rec OE_ORDER_PUB.LINE_REC_TYPE;
472:
473: Procedure Calc_Catchweight_Return_qty2
474: ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
475: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type) IS
476: x_item_rec OE_ORDER_CACHE.item_rec_type;
477: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
478:
479: BEGIN
480: If l_debug_level > 0 Then
488: IF (p_x_line_rec.inventory_item_id IS NOT NULL AND
489: p_x_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
490: (p_x_line_rec.ship_from_org_id IS NOT NULL AND
491: p_x_line_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
492: x_item_rec := OE_Order_Cache.Load_Item (p_x_line_rec.inventory_item_id
493: ,p_x_line_rec.ship_from_org_id);
494: --IF x_item_rec.ont_pricing_qty_source = 1 AND -- INVCONV
495: IF x_item_rec.ont_pricing_qty_source = 'S' AND -- INVCONV
496: x_item_rec.tracking_quantity_ind = 'P' THEN -- AND -- INVCONV -
580: l_error_buffer VARCHAR2(240);
581: l_x_result_out VARCHAR2(30);
582: l_turn_off_pricing VARCHAR2(30);
583: --OPM 06/SEP/00
584: l_item_rec OE_ORDER_CACHE.item_rec_type; -- INVCONV
585: -- l_OPM_shipped_quantity NUMBER(19,9); -- INVCONV
586: -- l_OPM_shipping_quantity_uom VARCHAR2(4); -- INVCONV
587: -- l_OPM_order_quantity_uom VARCHAR2(4); -- INVCONV
588: l_status VARCHAR2(1);
620: l_charges_for_included_item VARCHAR2(1):= G_CHARGES_FOR_INCLUD_ITM; /* Bug # 5036404 */
621: -- bug 1406890
622: l_current_event number := 0;
623: l_tax_calculation_event_code number := 0; --renga's change
624: l_tax_calc_rec OE_ORDER_CACHE.Tax_Calc_Rec_Type;
625: l_tax_calculation_flag varchar2(1) := NULL; --end renga's change
626: l_tax_commt_flag varchar2(1) := 'N'; --bug 2505961
627: --B2037234 EMC
628: --B2204216 EMC Assignment of IC$EPSILON profile value moved outside
690: -- Query Header Record
691: -- Performance Improvement Bug 1929163
692: -- Use cached header rec instead of querying header rec into
693: -- a local variable
694: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
695:
696: l_tax_calc_rec := oe_order_cache.get_tax_calculation_flag
697: (p_x_line_rec.line_type_id,
698: p_x_line_rec);
692: -- Use cached header rec instead of querying header rec into
693: -- a local variable
694: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
695:
696: l_tax_calc_rec := oe_order_cache.get_tax_calculation_flag
697: (p_x_line_rec.line_type_id,
698: p_x_line_rec);
699:
700: l_tax_calculation_flag := l_tax_calc_rec.tax_calculation_flag;
813: Log delayed request for Verify Payment if the payment type
814: is not CREDIT CARD and the Order line is Booked */
815:
816: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
817: --IF NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
818: IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' OR l_cc_rev_reauth_code IS NOT NULL) --CC Reversal ER#16014135
819: AND p_x_line_rec.booked_flag ='Y'
820: THEN
821: -- Log Delayed Request for Verify Payment
814: is not CREDIT CARD and the Order line is Booked */
815:
816: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
817: --IF NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
818: IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' OR l_cc_rev_reauth_code IS NOT NULL) --CC Reversal ER#16014135
819: AND p_x_line_rec.booked_flag ='Y'
820: THEN
821: -- Log Delayed Request for Verify Payment
822: if l_debug_level > 0 then
951:
952: If p_x_line_rec.calculate_price_flag = 'Y' then
953: Begin
954:
955: OE_Order_Cache.Enforce_List_price(p_line_type_id => p_x_line_rec.Line_Type_id
956: , p_header_id => p_x_line_rec.header_id);
957:
958: exception when no_data_found then
959: OE_Order_Cache.g_Enforce_list_price_rec.enforce_line_prices_flag := 'N';
955: OE_Order_Cache.Enforce_List_price(p_line_type_id => p_x_line_rec.Line_Type_id
956: , p_header_id => p_x_line_rec.header_id);
957:
958: exception when no_data_found then
959: OE_Order_Cache.g_Enforce_list_price_rec.enforce_line_prices_flag := 'N';
960: end ;
961:
962: If OE_Order_Cache.g_Enforce_list_price_rec.enforce_line_prices_flag = 'Y' Then
963: p_x_line_rec.calculate_price_flag := 'P';
958: exception when no_data_found then
959: OE_Order_Cache.g_Enforce_list_price_rec.enforce_line_prices_flag := 'N';
960: end ;
961:
962: If OE_Order_Cache.g_Enforce_list_price_rec.enforce_line_prices_flag = 'Y' Then
963: p_x_line_rec.calculate_price_flag := 'P';
964: End If;
965:
966: IF p_x_line_rec.open_flag = 'N' or
1470: END IF;--Payment type code check
1471: --R12 CC Encryption
1472: /* Additional Task : Log a delayed request for Verify payment
1473: (Credit Checking) when the bill to site changes for a booked line */
1474: --IF NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
1475: IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' OR l_cc_rev_reauth_code IS NOT NULL) --CC Reversal ER#16014135
1476: AND p_x_line_rec.booked_flag ='Y'
1477: THEN
1478: if l_debug_level > 0 then
1471: --R12 CC Encryption
1472: /* Additional Task : Log a delayed request for Verify payment
1473: (Credit Checking) when the bill to site changes for a booked line */
1474: --IF NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
1475: IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD' OR l_cc_rev_reauth_code IS NOT NULL) --CC Reversal ER#16014135
1476: AND p_x_line_rec.booked_flag ='Y'
1477: THEN
1478: if l_debug_level > 0 then
1479: oe_debug_pub.ADD('log verify payment delayed request for change in invoice to site');
2085: IF (p_x_line_rec.inventory_item_id IS NOT NULL AND
2086: p_x_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
2087: (p_x_line_rec.ship_from_org_id IS NOT NULL AND
2088: p_x_line_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
2089: l_item_rec := OE_Order_Cache.Load_Item (p_x_line_rec.inventory_item_id
2090: ,p_x_line_rec.ship_from_org_id);
2091: -- IF l_item_rec.ont_pricing_qty_source = 1 AND
2092: IF l_item_rec.ont_pricing_qty_source = 'S' AND -- INVCONV
2093: l_item_rec.tracking_quantity_ind = 'P' and
2308: -- is not CREDIT CARD and the Line is Booked.
2309: -- If the payment type is CREDIT CARD then the delayed req should be
2310: -- logged only if the quantity has increased.
2311:
2312: --IF OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN --CC Reversal ER#16014135 Commented
2313: IF (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NULL) THEN --CC Reversal ER#16014135
2314: IF p_x_line_rec.ordered_quantity > p_old_line_rec.ordered_quantity
2315: THEN
2316: -- Log request here if commitment id is null
2309: -- If the payment type is CREDIT CARD then the delayed req should be
2310: -- logged only if the quantity has increased.
2311:
2312: --IF OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN --CC Reversal ER#16014135 Commented
2313: IF (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NULL) THEN --CC Reversal ER#16014135
2314: IF p_x_line_rec.ordered_quantity > p_old_line_rec.ordered_quantity
2315: THEN
2316: -- Log request here if commitment id is null
2317: if p_x_line_rec.commitment_id is null then
2565: oe_debug_pub.ADD('multpayments: logging delayed request for verify payment as payment term is changed');
2566: end if;
2567: l_verify_payment_flag := 'Y';
2568:
2569: --ELSIF NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
2570: ELSIF (NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' OR l_cc_rev_reauth_code IS NOT NULL) --CC Reversal ER#16014135
2571: THEN
2572:
2573: if l_debug_level > 0 then
2566: end if;
2567: l_verify_payment_flag := 'Y';
2568:
2569: --ELSIF NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
2570: ELSIF (NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' OR l_cc_rev_reauth_code IS NOT NULL) --CC Reversal ER#16014135
2571: THEN
2572:
2573: if l_debug_level > 0 then
2574: oe_debug_pub.ADD('logging delayed request for verify payment as payment term is changed');
2787: IF (p_x_line_rec.source_type_code <> OE_GLOBALS.G_SOURCE_EXTERNAL) THEN
2788:
2789: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2790: THEN
2791: IF NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' AND
2792: p_x_line_rec.booked_flag ='Y' AND
2793: (to_date(p_x_line_rec.schedule_ship_date, 'DD/MM/YYYY') <>
2794: to_date(p_x_line_rec.request_date, 'DD/MM/YYYY'))
2795: THEN
3831: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3832: -- Log Verify Payment only if the Tax Value has
3833: -- Increased AND Payment Type Code is Credit Card.
3834: IF p_x_line_rec.tax_value > p_old_line_rec.tax_value AND
3835: --OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN --CC Reversal ER#16014135 Commented
3836: (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NULL) THEN --CC Reversal ER#16014135
3837: -- Set flag to log Verify Payment Delayed Request
3838: if l_debug_level > 0 then
3839: oe_debug_pub.ADD('Log Verify Payment delayed request in Tax Value');
3832: -- Log Verify Payment only if the Tax Value has
3833: -- Increased AND Payment Type Code is Credit Card.
3834: IF p_x_line_rec.tax_value > p_old_line_rec.tax_value AND
3835: --OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN --CC Reversal ER#16014135 Commented
3836: (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NULL) THEN --CC Reversal ER#16014135
3837: -- Set flag to log Verify Payment Delayed Request
3838: if l_debug_level > 0 then
3839: oe_debug_pub.ADD('Log Verify Payment delayed request in Tax Value');
3840: end if;
3899: -- Additional task : Log Verify Payment always when the payment Type
3900: -- code is not CREDIT CARD. For CREDIT CARD, log this request only if
3901: -- the Unit Selling Price has increased.
3902:
3903: --IF OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN --CC Reversal ER#16014135 Commented
3904: IF (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NULL) THEN --CC Reversal ER#16014135
3905: IF p_x_line_rec.unit_selling_price > p_old_line_rec.unit_selling_price
3906: then
3907: -- Log request here if commitment id is null
3900: -- code is not CREDIT CARD. For CREDIT CARD, log this request only if
3901: -- the Unit Selling Price has increased.
3902:
3903: --IF OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN --CC Reversal ER#16014135 Commented
3904: IF (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NULL) THEN --CC Reversal ER#16014135
3905: IF p_x_line_rec.unit_selling_price > p_old_line_rec.unit_selling_price
3906: then
3907: -- Log request here if commitment id is null
3908: IF p_x_line_rec.commitment_id is null THEN
5866: END IF;
5867:
5868: BEGIN
5869:
5870: IF OE_Order_Cache.g_header_rec.order_type_id is not null THEN
5871:
5872: --use cache instead of SQL to fix bug 4200055
5873: if (OE_Order_Cache.g_order_type_rec.order_type_id = FND_API.G_MISS_NUM)
5874: OR (OE_Order_Cache.g_order_type_rec.order_type_id is null)
5869:
5870: IF OE_Order_Cache.g_header_rec.order_type_id is not null THEN
5871:
5872: --use cache instead of SQL to fix bug 4200055
5873: if (OE_Order_Cache.g_order_type_rec.order_type_id = FND_API.G_MISS_NUM)
5874: OR (OE_Order_Cache.g_order_type_rec.order_type_id is null)
5875: OR (OE_Order_Cache.g_order_type_rec.order_type_id <>
5876: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5870: IF OE_Order_Cache.g_header_rec.order_type_id is not null THEN
5871:
5872: --use cache instead of SQL to fix bug 4200055
5873: if (OE_Order_Cache.g_order_type_rec.order_type_id = FND_API.G_MISS_NUM)
5874: OR (OE_Order_Cache.g_order_type_rec.order_type_id is null)
5875: OR (OE_Order_Cache.g_order_type_rec.order_type_id <>
5876: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5878: ;
5871:
5872: --use cache instead of SQL to fix bug 4200055
5873: if (OE_Order_Cache.g_order_type_rec.order_type_id = FND_API.G_MISS_NUM)
5874: OR (OE_Order_Cache.g_order_type_rec.order_type_id is null)
5875: OR (OE_Order_Cache.g_order_type_rec.order_type_id <>
5876: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5878: ;
5879: END IF ;
5872: --use cache instead of SQL to fix bug 4200055
5873: if (OE_Order_Cache.g_order_type_rec.order_type_id = FND_API.G_MISS_NUM)
5874: OR (OE_Order_Cache.g_order_type_rec.order_type_id is null)
5875: OR (OE_Order_Cache.g_order_type_rec.order_type_id <>
5876: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5878: ;
5879: END IF ;
5880: IF (OE_Order_Cache.g_order_type_rec.order_type_id =
5873: if (OE_Order_Cache.g_order_type_rec.order_type_id = FND_API.G_MISS_NUM)
5874: OR (OE_Order_Cache.g_order_type_rec.order_type_id is null)
5875: OR (OE_Order_Cache.g_order_type_rec.order_type_id <>
5876: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5878: ;
5879: END IF ;
5880: IF (OE_Order_Cache.g_order_type_rec.order_type_id =
5881: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5876: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5878: ;
5879: END IF ;
5880: IF (OE_Order_Cache.g_order_type_rec.order_type_id =
5881: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5882: if (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5883: 'ENTERING') then
5884: l_tax_calculation_event_code := 0;
5877: OE_Order_Cache.Load_Order_type(OE_Order_CACHE.g_header_rec.Order_Type_id)
5878: ;
5879: END IF ;
5880: IF (OE_Order_Cache.g_order_type_rec.order_type_id =
5881: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5882: if (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5883: 'ENTERING') then
5884: l_tax_calculation_event_code := 0;
5885: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5878: ;
5879: END IF ;
5880: IF (OE_Order_Cache.g_order_type_rec.order_type_id =
5881: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5882: if (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5883: 'ENTERING') then
5884: l_tax_calculation_event_code := 0;
5885: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5886: 'BOOKING') then
5881: OE_Order_Cache.g_header_rec.Order_Type_id) THEN
5882: if (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5883: 'ENTERING') then
5884: l_tax_calculation_event_code := 0;
5885: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5886: 'BOOKING') then
5887: l_tax_calculation_event_code := 1;
5888: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5889: 'SHIPPING') then
5884: l_tax_calculation_event_code := 0;
5885: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5886: 'BOOKING') then
5887: l_tax_calculation_event_code := 1;
5888: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5889: 'SHIPPING') then
5890: l_tax_calculation_event_code := 2;
5891: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5892: 'INVOICING') then
5887: l_tax_calculation_event_code := 1;
5888: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5889: 'SHIPPING') then
5890: l_tax_calculation_event_code := 2;
5891: elsif (OE_Order_Cache.g_order_type_rec.tax_calculation_event_code =
5892: 'INVOICING') then
5893: l_tax_calculation_event_code := 3;
5894: else
5895: l_tax_calculation_event_code := -1;
5904: 'INVOICING', 3,
5905: -1)
5906: into l_tax_calculation_event_code
5907: from oe_transaction_types_all
5908: where transaction_type_id = OE_Order_Cache.g_header_rec.order_type_id;
5909: */
5910: --end bug 4200055
5911:
5912: END IF;
6084: -- new config item lines being added to an order.
6085: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
6086: p_x_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_CONFIG AND
6087: p_x_line_rec.booked_flag = 'Y' THEN
6088: --IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
6089: --CC Reversal ER#16014135 Start
6090: IF ((NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD'
6091: OR (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NOT NULL))
6092: --CC Reversal ER#16014135 End
6086: p_x_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_CONFIG AND
6087: p_x_line_rec.booked_flag = 'Y' THEN
6088: --IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
6089: --CC Reversal ER#16014135 Start
6090: IF ((NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD'
6091: OR (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NOT NULL))
6092: --CC Reversal ER#16014135 End
6093: AND OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id) = 'N')
6094: OR OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id) = 'Y'
6087: p_x_line_rec.booked_flag = 'Y' THEN
6088: --IF (NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD' --CC Reversal ER#16014135 Commented
6089: --CC Reversal ER#16014135 Start
6090: IF ((NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD'
6091: OR (OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' AND l_cc_rev_reauth_code IS NOT NULL))
6092: --CC Reversal ER#16014135 End
6093: AND OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id) = 'N')
6094: OR OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id) = 'Y'
6095: THEN
15853:
15854: -- bug 2411783
15855: -- for a newly created order, since the line is not posted,
15856: -- in Order import, there will be no Header record.
15857: --OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
15858: --l_sold_to_org_id := OE_Order_Cache.g_header_rec.sold_to_org_id;
15859: null;
15860:
15861: ELSIF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
15854: -- bug 2411783
15855: -- for a newly created order, since the line is not posted,
15856: -- in Order import, there will be no Header record.
15857: --OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
15858: --l_sold_to_org_id := OE_Order_Cache.g_header_rec.sold_to_org_id;
15859: null;
15860:
15861: ELSIF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
15862:
18402: if l_debug_level > 0 then
18403: oe_debug_pub.add('clear the cached top model record', 1);
18404: oe_debug_pub.add('model line: '|| p_x_line_rec.line_id, 1);
18405: end if;
18406: OE_Order_Cache.Clear_Top_Model_Line(p_key => p_x_line_rec.line_id);
18407: END IF;
18408:
18409: -- Changes for Late Demand Penalty Factor
18410: if l_debug_level > 0 then
20288: FUNCTION dual_uom_control -- INVCONV renamed from process_characteristics
20289: (
20290: p_inventory_item_id IN NUMBER
20291: ,p_ship_from_org_id IN NUMBER
20292: ,x_item_rec OUT NOCOPY OE_ORDER_CACHE.item_rec_type
20293: )
20294: RETURN BOOLEAN
20295: IS
20296:
20309: p_inventory_item_id <> FND_API.G_MISS_NUM) AND
20310: (p_ship_from_org_id IS NOT NULL AND
20311: p_ship_from_org_id <> FND_API.G_MISS_NUM) THEN
20312: x_item_rec :=
20313: OE_Order_Cache.Load_Item (p_inventory_item_id
20314: ,p_ship_from_org_id);
20315: -- IF x_item_rec.process_warehouse_flag = 'Y' INVCONV
20316: -- AND INVCONV
20317: oe_debug_pub.add('in function Dual_uom_control - tracking_quantity_ind = ' || x_item_rec.tracking_quantity_ind);
20359: -- l_APPS_UOM2 VARCHAR2(3) := NULL; INVCONV
20360: l_status VARCHAR2(1);
20361: l_msg_count NUMBER;
20362: l_msg_data VARCHAR2(2000);
20363: l_item_rec OE_ORDER_CACHE.item_rec_type;
20364:
20365: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20366:
20367: BEGIN
20428: RETURN VARCHAR2
20429: IS
20430: l_grade_ctl NUMBER(5):= NULL;
20431: l_preferred_grade VARCHAR2(4) := NULL;
20432: l_item_rec OE_ORDER_CACHE.item_rec_type;
20433:
20434: CURSOR C_GRADE1 IS
20435: SELECT alot.prefqc_grade
20436: FROM op_alot_prm alot, ic_item_mst item, op_cust_mst cust
20532: )
20533: IS
20534:
20535: l_converted_qty NUMBER(19,9); -- OPM 25/AUG/00
20536: l_item_rec OE_ORDER_CACHE.item_rec_type;
20537: -- l_OPM_UOM VARCHAR2(4); INVCONV
20538: l_return NUMBER;
20539: l_status VARCHAR2(1);
20540: l_msg_count NUMBER;
21092: P_LINE_REC IN OE_ORDER_PUB.Line_Rec_Type
21093: ) RETURN NUMBER
21094: IS
21095:
21096: l_item_rec OE_ORDER_CACHE.item_rec_type;
21097: -- OPM 25/AUG/00 - add precision of 19,9
21098: l_ordered_quantity2 NUMBER(19,9) := p_line_rec.ordered_quantity2;
21099: l_OPM_UOM VARCHAR2(4);
21100: l_return NUMBER;
23192:
23193: IS
23194:
23195: l_converted_qty NUMBER(19,9);
23196: l_item_rec OE_ORDER_CACHE.item_rec_type;
23197: --l_OPM_UOM VARCHAR2(4); -- INVCONV
23198: l_error_message VARCHAR2(1000); -- INVCONV
23199: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; -- INVCONV
23200: l_return NUMBER;
23716:
23717: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
23718: THEN
23719:
23720: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
23721:
23722: -- For DELETES, log process releases request with new values as
23723: -- null or 0 so that quantity/amount cumulations see negative
23724: -- changes thus resulting in decrementing final released qty/amount
23745: -- Other parameters
23746: ,p_param8 => p_x_line_rec.fulfilled_flag
23747: ,p_param9 => p_x_line_rec.line_set_id
23748: ,p_request_unique_key1 =>
23749: OE_Order_Cache.g_header_rec.transactional_curr_code
23750:
23751: ,x_return_status => l_return_status
23752: );
23753:
23763: ,p_request_type => OE_GLOBALS.G_VALIDATE_RELEASE_SHIPMENTS
23764: ,p_request_unique_key1 => p_x_line_rec.blanket_number
23765: ,p_request_unique_key2 => p_x_line_rec.blanket_line_number
23766: ,p_param1 =>
23767: OE_Order_Cache.g_header_rec.transactional_curr_code
23768: ,x_return_status => l_return_status
23769: );
23770: END IF;
23771:
23780: if l_debug_level > 0 then
23781: oe_debug_pub.add('log blanket requests for complete neg');
23782: end if;
23783:
23784: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
23785:
23786: -- Qty/amount against the blanket should be incremented by
23787: -- total qty/amount of this line, as complete negotiation is
23788: -- running consumption logic for this order first time.
23810: -- Other parameters
23811: ,p_param8 => p_x_line_rec.fulfilled_flag
23812: ,p_param9 => p_x_line_rec.line_set_id
23813: ,p_request_unique_key1 =>
23814: OE_Order_Cache.g_header_rec.transactional_curr_code
23815: ,x_return_status => l_return_status
23816: );
23817:
23818: -- If this is a shipment line, log request against the line set
23829: ,p_request_type => OE_GLOBALS.G_VALIDATE_RELEASE_SHIPMENTS
23830: ,p_request_unique_key1 => p_x_line_rec.blanket_number
23831: ,p_request_unique_key2 => p_x_line_rec.blanket_line_number
23832: ,p_param1 =>
23833: OE_Order_Cache.g_header_rec.transactional_curr_code
23834: ,x_return_status => l_return_status
23835: );
23836: END IF;
23837:
23852:
23853: -- For creates and updates, log request if any fields affecting
23854: -- quantities/amounts are changed
23855:
23856: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
23857:
23858: OE_Delayed_Requests_Pvt.Log_Request
23859: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
23860: ,p_entity_id => p_x_line_rec.line_id
23878: -- Other parameters
23879: ,p_param8 => p_x_line_rec.fulfilled_flag
23880: ,p_param9 => p_x_line_rec.line_set_id
23881: ,p_request_unique_key1 =>
23882: OE_Order_Cache.g_header_rec.transactional_curr_code
23883: ,x_return_status => l_return_status
23884: );
23885:
23886: -- If this is a shipment line, log request against the line set
23897: ,p_request_type => OE_GLOBALS.G_VALIDATE_RELEASE_SHIPMENTS
23898: ,p_request_unique_key1 => p_x_line_rec.blanket_number
23899: ,p_request_unique_key2 => p_x_line_rec.blanket_line_number
23900: ,p_param1 =>
23901: OE_Order_Cache.g_header_rec.transactional_curr_code
23902: ,x_return_status => l_return_status
23903: );
23904: END IF;
23905:
23920: ,p_request_type => OE_GLOBALS.G_VALIDATE_RELEASE_SHIPMENTS
23921: ,p_request_unique_key1 => p_old_line_rec.blanket_number
23922: ,p_request_unique_key2 => p_old_line_rec.blanket_line_number
23923: ,p_param1 =>
23924: OE_Order_Cache.g_header_rec.transactional_curr_code
23925: ,x_return_status => l_return_status
23926: );
23927: END IF;
23928: