64: /* Bug 5610714,
65: l_shipment_nums,
66: l_estimated_pickup_dates,
67: l_ship_methods */
68: FROM DUAL;
69:
70: IF X_shipment_num IS NOT NULL THEN
71: -- 5610714 Initialize the Collection with the parameter value
72: l_shipment_nums := po_tbl_number(X_shipment_num);
204: -- debug
205:
206: select instr(x_supply_number, '(')
207: into x_pare_left
208: from dual;
209:
210: if x_pare_left <= 0 then
211: X_po_type := 'PO';
212: ELSE
220: if X_po_type <> 'PO' then
221: -- Get the index of ')' in the supply number
222: select instr(x_supply_number, ')')
223: into x_pare_right
224: from dual;
225:
226: if x_pare_right <=0 then
227: -- No ending parentheis.
228: add_error_to_msg_list (
234:
235: select to_number(substr(x_supply_number, x_pare_left+1,
236: x_pare_right - x_pare_left-1))
237: into x_release_num
238: from dual;
239:
240:
241: l_progress:= '020';
242: -- debug