1: PACKAGE BODY PO_LINES_SV4 as
2: /* $Header: POXPOL4B.pls 115.24 2004/07/01 17:20:52 zxzhang ship $ */
3:
4: /*============================= PO_LINES_SV4 ==============================*/
5:
1: PACKAGE BODY PO_LINES_SV4 as
2: /* $Header: POXPOL4B.pls 115.24 2004/07/01 17:20:52 zxzhang ship $ */
3:
4: /*============================= PO_LINES_SV4 ==============================*/
5:
6: /*=============================================================================
7:
8: FUNCTION: get_line_num
11:
12: =============================================================================*/
13: FUNCTION get_line_num
14: (
15: p_po_line_id IN PO_LINES_ALL.po_line_id%TYPE
16: )
17: RETURN PO_LINES_ALL.line_num%TYPE
18: IS
19: x_line_num PO_LINES_ALL.line_num%TYPE;
13: FUNCTION get_line_num
14: (
15: p_po_line_id IN PO_LINES_ALL.po_line_id%TYPE
16: )
17: RETURN PO_LINES_ALL.line_num%TYPE
18: IS
19: x_line_num PO_LINES_ALL.line_num%TYPE;
20: BEGIN
21:
15: p_po_line_id IN PO_LINES_ALL.po_line_id%TYPE
16: )
17: RETURN PO_LINES_ALL.line_num%TYPE
18: IS
19: x_line_num PO_LINES_ALL.line_num%TYPE;
20: BEGIN
21:
22: SELECT line_num
23: INTO x_line_num
20: BEGIN
21:
22: SELECT line_num
23: INTO x_line_num
24: FROM po_lines_all
25: WHERE po_line_id = p_po_line_id;
26:
27: return (x_line_num);
28:
43:
44: =============================================================================*/
45: FUNCTION is_cumulative_pricing
46: (
47: p_po_line_id IN PO_LINES_ALL.po_line_id%TYPE
48: )
49: RETURN BOOLEAN
50: IS
51: l_price_break_lookup_code PO_LINES_ALL.price_break_lookup_code%TYPE;
47: p_po_line_id IN PO_LINES_ALL.po_line_id%TYPE
48: )
49: RETURN BOOLEAN
50: IS
51: l_price_break_lookup_code PO_LINES_ALL.price_break_lookup_code%TYPE;
52: BEGIN
53:
54: SELECT price_break_lookup_code
55: INTO l_price_break_lookup_code
52: BEGIN
53:
54: SELECT price_break_lookup_code
55: INTO l_price_break_lookup_code
56: FROM po_lines_all
57: WHERE po_line_id = p_po_line_id;
58:
59: IF ( l_price_break_lookup_code = 'CUMULATIVE' ) THEN
60: return(TRUE);
87: -- Exceptions : -
88: --=============================================================================
89: FUNCTION effective_dates_exist
90: (
91: p_po_line_id IN PO_LINES_ALL.po_line_id%TYPE
92: )
93: RETURN BOOLEAN
94: IS
95: l_count NUMBER;
130: -- Exceptions : -
131: --=============================================================================
132: FUNCTION allow_price_override
133: (
134: p_po_line_id PO_LINES_ALL.po_line_id%TYPE
135: )
136: RETURN BOOLEAN
137: IS
138: l_allow_price_override_flag PO_LINES_ALL.allow_price_override_flag%TYPE;
134: p_po_line_id PO_LINES_ALL.po_line_id%TYPE
135: )
136: RETURN BOOLEAN
137: IS
138: l_allow_price_override_flag PO_LINES_ALL.allow_price_override_flag%TYPE;
139: BEGIN
140:
141: SELECT allow_price_override_flag
142: INTO l_allow_price_override_flag
139: BEGIN
140:
141: SELECT allow_price_override_flag
142: INTO l_allow_price_override_flag
143: FROM po_lines_all
144: WHERE po_line_id = p_po_line_id;
145:
146: IF ( l_allow_price_override_flag = 'Y' )
147: THEN
371: X_progress varchar2(3);
372: X_row_exists number := 0;
373:
374: l_is_global_agreement BOOLEAN; --
375: l_value_basis PO_LINES_ALL.order_type_lookup_code%TYPE;
376: X_amount_received NUMBER;
377: X_amount_billed NUMBER;
378:
379: --
492:
493: X_Progress := '100';
494: Select order_type_lookup_code
495: into l_value_basis
496: from po_lines_all
497: where po_line_id = X_po_line_id;
498:
499: --
500: X_Progress := '110';
606: EXCEPTION
607:
608: WHEN OTHERS THEN
609: -- dbms_output.put_line('In exception');
610: po_message_s.sql_error('PO_LINES_SV4','get_ship_quantity_info',
611: x_progress, sqlcode, sqlerrm);
612: RAISE;
613:
614:
695: X_progress := '020';
696:
697: SELECT line_num
698: INTO X_quotation_line
699: FROM po_lines
700: WHERE po_line_id = X_from_line_id;
701:
702: EXCEPTION
703:
877: BEGIN
878:
879: select po_line_id, item_id
880: into x_po_line_id_record.po_line_id, X_po_line_id_record.item_id
881: from po_lines
882: where po_header_id = X_po_line_id_record.po_header_id and
883: line_num = X_po_line_id_record.document_line_num;
884:
885: if (x_po_line_id_record.po_line_id is null) then
977: null;
978:
979: end get_om_uom_tl;
980:
981: END PO_LINES_SV4;