The following lines contain the word 'select', 'insert', 'update' or 'delete':
X_prevent_price_update_flag IN OUT NOCOPY varchar2,
X_online_req_flag IN OUT NOCOPY varchar2,
X_quantity_released IN OUT NOCOPY number,
X_amount_released IN OUT NOCOPY number,
X_quotation_number IN OUT NOCOPY varchar2,
X_quotation_line IN OUT NOCOPY number,
X_quotation_type IN OUT NOCOPY varchar2,
X_vendor_quotation_number IN OUT NOCOPY varchar2,
X_num_of_ship IN OUT NOCOPY number,
--< NBD TZ/Timestamp FPJ Start >
--X_promised_date IN OUT NOCOPY varchar2,
--X_need_by IN OUT NOCOPY varchar2,
X_promised_date IN OUT NOCOPY DATE,
X_need_by IN OUT NOCOPY DATE,
--< NBD TZ/Timestamp FPJ End >
X_num_of_dist IN OUT NOCOPY number,
X_code_combination_id IN OUT NOCOPY number,
X_line_total IN OUT NOCOPY number,
X_ship_total IN OUT NOCOPY number,
X_ship_total_rtot_db IN OUT NOCOPY number,
--togeorge 10/03/2000
--added oke variables
X_oke_contract_header_id IN number,
X_oke_contract_num IN OUT NOCOPY varchar2
) is
X_Progress varchar2(3) := NULL;
po_lines_pkg_scu.select_ship_total( X_po_line_id,
X_ship_total,
X_ship_total_rtot_db);
X_prevent_price_update_flag,
X_online_req_flag,
X_quantity_released,
X_amount_released );
* Unit_price field to check whether price is updateable or not */
FUNCTION price_update_allowed(p_po_line_id NUMBER)
return BOOLEAN IS
x_quantity_billed NUMBER;
l_api_name VARCHAR2(30) := 'PRICE_UPDATE_ALLOWED';
SELECT 'EXPENSE'
INTO x_destination_code
FROM DUAL
WHERE EXISTS (
select destination_type_code
from po_distributions_all
where po_line_id = p_po_line_id
and destination_type_code IN ('EXPENSE')
);
select sum(quantity_received),
sum(quantity_billed),
max(nvl(accrue_on_receipt_flag,'N')),
max(nvl(encumbered_flag,'N'))
into x_quantity_received,
x_quantity_billed,
x_accrual_option,
x_encumbered_flag
from po_line_locations
where po_line_id = p_po_line_id;
return (FALSE); /* Price Update NOT Allowed */
return (TRUE); /* Price Update Allowed */
return (FALSE); /* Price Update NOT Allowed */