DECLARE
     pl_id	ParamList;
BEGIN
     pl_id := Get_Parameter_List('tmpdata');

     IF NOT Id_Null(pl_id)
     THEN
	 Destroy_Parameter_List( pl_id );
     END IF;

     pl_id := Create_Parameter_List('tmpdata');

     Add_Parameter(pl_id, 'R_CODE', TEXT_PARAMETER, :LOCATION_DETAILS.loc_code);
     Add_Parameter(pl_id, 'ORACLE_SHUTDOWN', TEXT_PARAMETER, 'YES');
     Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');
     Add_Parameter(pl_id, 'DESTYPE', TEXT_PARAMETER, 'PRINTER');
     Add_Parameter(pl_id, 'DESFORMAT', TEXT_PARAMETER, 'PDF');

     Run_Product (REPORTS, :GLOBAL.rep_location_details, ASYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, 'NULL');
     clear_button;
END;