[Home] [Help]
1173: l_control_rec OE_GLOBALS.Control_Rec_Type;
1174: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1175: l_date_format_mask VARCHAR2(30) := p_date_format_mask;
1176: l_order_date_type_code VARCHAR2(30) := null;
1177: l_orig_ship_from_org_id OE_Order_LINES.ship_from_org_id%TYPE;
1178: l_x_item_rec_type OE_ORDER_CACHE.item_rec_type; -- OPM 2/JUN/00
1179: file_name varchar2(100);
1180: i pls_Integer;
1181: L_PRICE_CONTROL_REC QP_PREQ_GRP.control_record_type;
3443: , top_model_line_id
3444: , nvl(ship_model_complete_flag, 'N') smc_flag
3445: , item_type_code
3446: , link_to_line_id
3447: FROM oe_order_lines
3448: WHERE line_id = c_line_id;
3449:
3450: CURSOR ato_lines_on_hold(c_ato_line_id NUMBER, c_top_model_line_id NUMBER) IS
3451: SELECT 'Y' hold_exists
3448: WHERE line_id = c_line_id;
3449:
3450: CURSOR ato_lines_on_hold(c_ato_line_id NUMBER, c_top_model_line_id NUMBER) IS
3451: SELECT 'Y' hold_exists
3452: FROM oe_order_holds ooh, oe_order_lines ool
3453: where ool.ato_line_id = c_ato_line_id
3454: and ool.top_model_line_id = c_top_model_line_id
3455: and ooh.line_id = ool.line_id
3456: and ooh.released_flag = 'N';
3456: and ooh.released_flag = 'N';
3457:
3458: CURSOR smc_lines_on_hold(c_top_model_line_id NUMBER) IS
3459: SELECT 'Y' hold_exists
3460: FROM oe_order_holds ooh, oe_order_lines ool
3461: where ool.top_model_line_id = c_top_model_line_id
3462: and ooh.line_id = ool.line_id
3463: and ooh.released_flag = 'N';
3464:
3737: x_line_val_rec.ref_shipment_number,
3738: x_line_val_rec.ref_option_number,
3739: x_line_val_rec.ref_component_number
3740: from oe_order_headers_all h,
3741: oe_order_lines_all l
3742: where l.line_id=p_line_rec.reference_line_id
3743: and h.header_id=l.header_id;
3744: EXCEPTION
3745: WHEN NO_DATA_FOUND THEN
4997: from oe_order_headers
4998: where header_id=p_line_rec.source_document_id;
4999:
5000: Select line_number into x_line_val_rec.order_source_line_ref
5001: from oe_order_lines
5002: where line_id=p_line_rec.source_document_line_id;
5003: Exception
5004: when no_data_found then
5005: null;
5107: IF (p_line_rec.line_id IS NOT NULL AND oe_sys_parameters.value('ENABLE_RETROBILLING',p_line_rec.org_id) = 'Y') THEN
5108: BEGIN
5109: SELECT sum(decode(line_category_code,'RETURN',-1*nvl(unit_selling_price,0),nvl(unit_selling_price,0)))
5110: INTO l_retrobilled_price_diff
5111: FROM oe_order_lines
5112: WHERE order_source_id=27 AND
5113: orig_sys_document_ref=to_char(p_line_rec.header_id) AND
5114: orig_sys_line_ref = to_char(p_line_rec.line_id) AND
5115: retrobill_request_id IS NOT NULL;
5115: retrobill_request_id IS NOT NULL;
5116:
5117: SELECT unit_selling_price
5118: INTO l_unit_selling_price
5119: FROM oe_order_lines_all
5120: WHERE line_id=p_line_rec.line_id;
5121:
5122: IF(l_retrobilled_price_diff IS NOT NULL AND l_unit_selling_price IS NOT NULL) THEN
5123: x_line_val_rec.retrobilled_price := l_unit_selling_price+l_retrobilled_price_diff;
5139: x_line_val_rec.Retro_Option_Number,
5140: x_line_val_rec.Retro_Component_Number,
5141: x_line_val_rec.Retro_Service_Number
5142: FROM oe_order_headers_all orig_head,
5143: oe_order_lines_all orig_lin
5144: WHERE line_id =
5145: (
5146: SELECT orig_sys_line_ref
5147: FROM oe_order_lines_all
5143: oe_order_lines_all orig_lin
5144: WHERE line_id =
5145: (
5146: SELECT orig_sys_line_ref
5147: FROM oe_order_lines_all
5148: WHERE line_id=p_line_rec.line_id
5149: and order_source_id=27) AND
5150: orig_head.header_id=orig_lin.header_id;
5151: END IF;
6300: --Calling procedure to remove fulfillment set info for the record
6301:
6302: --bug # 6059554--
6303: --Before calling procedure OE_Set_Util.Remove_From_Fulfilment to remove the fulfillment information,
6304: --check whether Order line exists in oe_order_lines_all or not.If it does
6305: --not exists then only Call OE_Set_Util.Remove_From_Fulfilment to remove the fulfillment set information for the
6306: --line otherwise we will not remove the fulfillment information from line.
6307:
6308: select count(1) into l_count_to_keep
6305: --not exists then only Call OE_Set_Util.Remove_From_Fulfilment to remove the fulfillment set information for the
6306: --line otherwise we will not remove the fulfillment information from line.
6307:
6308: select count(1) into l_count_to_keep
6309: from oe_order_lines_all
6310: where line_id=p_line_id;
6311:
6312: if l_count_to_keep = 0 then
6313:
6382: BEGIN
6383:
6384: SELECT return_context, return_attribute1, return_attribute2
6385: INTO x_return_context, x_return_attribute1, x_return_attribute2
6386: FROM oe_order_lines
6387: WHERE line_id = p_line_id;
6388:
6389: EXCEPTION
6390: WHEN OTHERS THEN NULL;
6466: --
6467: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6468: --
6469: BEGIN
6470: SELECT OE_ORDER_LINES_S.NEXTVAL
6471: INTO x_line_id
6472: FROM DUAL;
6473:
6474: SELECT NVL(MAX(LINE_NUMBER)+1,1)
6472: FROM DUAL;
6473:
6474: SELECT NVL(MAX(LINE_NUMBER)+1,1)
6475: INTO x_line_number
6476: FROM OE_ORDER_LINES_ALL
6477: WHERE HEADER_ID = p_header_id;
6478: l_line_number:=x_line_number;
6479: IF x_line_number IS NOT NULL THEN
6480: SELECT NVL(MAX(SHIPMENT_NUMBER)+1,1)
6478: l_line_number:=x_line_number;
6479: IF x_line_number IS NOT NULL THEN
6480: SELECT NVL(MAX(SHIPMENT_NUMBER)+1,1)
6481: INTO x_shipment_number
6482: FROM OE_ORDER_LINES
6483: WHERE HEADER_ID = p_header_id
6484: AND LINE_NUMBER = l_line_number;
6485: END IF;
6486: