EBS PO Approve Script

declare x_po_head_id number ; begin select po_header_id into x_po_head_id from po_headers_all where segment1 = '&ponumber' and org_id = &org_id; update po_headers_all set authorization_status = 'APPROVED', approved_flag = 'Y', approved_date = sysdate, last_update_date= sysdate where po_header_id = x_po_head_id; update po_line_locations_all set approved_flag = 'Y' where po_header_id = x_po_head_id ; commit; end;