public function delete($resource, $id, $request, $response)
 {
     $DOName = $this->getDOName($resource);
     if (empty($DOName)) {
         $response->status(404);
         $response->body("Resource '{$resource}' is not found.");
         return;
     }
     $dataObj = Openbiz::getObject($DOName);
     $rec = $dataObj->fetchById($id);
     if (empty($rec)) {
         $response->status(400);
         $response->body("No data is found for {$resource} {$id}");
         return;
     }
     $dataRec = new DataRecord($rec, $dataObj);
     try {
         $dataRec->delete();
     } catch (Openbiz\data\Exception $e) {
         $response->status(400);
         $response->body($e->getMessage());
         return;
     }
     $format = strtolower($request->params('format'));
     $response->status(200);
     $message = "Successfully deleted record of {$resource} {$id}";
     if ($format == 'json') {
         $response['Content-Type'] = 'application/json';
         $response->body($message);
     } else {
         $response['Content-Type'] = "text/xml; charset=utf-8";
         $response->body($message);
     }
     return;
 }