38: BEGIN
39: FOR grh IN get_rcv_headers LOOP
40: SELECT po_wf_itemkey_s.NEXTVAL
41: INTO l_wf_item_seq
42: FROM DUAL;
43:
44: l_event_key := TO_CHAR(grh.shipment_header_id) || '-' || TO_CHAR(l_wf_item_seq);
45: --Clear the parameter list
46: --Bug 3481437 - commented out clear