108: IS
109: x_progress varchar2(3) := null;
110: l_unit_price number;
111: l_price_discount number;
112: l_type_lookup_code po_headers_all.type_lookup_code%TYPE; /*
114:
115: BEGIN
116: x_progress := '010';
141: /*
142: /* Defaulting the price discount and pricebreak price for Blanket Agreement, if absent */
143: select type_lookup_code
144: into l_type_lookup_code
145: from po_headers_all
146: where po_header_id = x_po_header_id;
147:
148: if (l_type_lookup_code = 'BLANKET') then
149: if (x_price_override is not null) then