PO Approve Script

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;