Class demo.CoffeeMakerRESTServer Extends %CSP.REST
 {
  Parameter HandleCorsRequest = 1

  XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ]
  {
    <Routes>
      <Route Url="/test" Method="GET" Call="test"/>
      <Route Url="/coffeemakers" Method="GET" Call="GetAll" /> 
      <Route Url="/coffeemaker/:id" Method="GET" Call="GetCoffeeMakerInfo" /> 
      <Route Url="/newcoffeemaker" Method="POST" Call="NewMaker" /> 
      <Route Url="/coffeemaker/:id" Method="PUT" Call="EditMaker" /> 
      <Route Url="/coffeemaker/:id" Method="DELETE" Call="RemoveCoffeemaker"/>
...
   </Routes> 
  }

ClassMethod GetAll() As %Status
{
  Set tArr = []
  Set rs = ##class(%SQL.Statement).%ExecDirect(,"SELECT * FROM demo.coffeemaker")
  While rs.%Next() {
    Do tArr.%Push({
      "img":              (rs.%Get("Img")),
      "coffeemakerID":    (rs.%Get("CoffeemakerID")),
      "name":             (rs.%Get("Name")),
      "brand":            (rs.%Get("Brand")),
      "color":            (rs.%Get("Color")),
      "numcups":          (rs.%Get("NumCups")),
      "price":            (rs.%Get("Price"))
    })
  }
  
  Write tArr.%ToJSON()
  Quit $$$OK
}

ClassMethod NewMaker() As %Status
{
  If '..GetJSONFromRequest(.obj) {
    Set %response.Status = ..#HTTP400BADREQUEST
    Set error = {"errormessage": "JSON not found"}
    Write error.%ToJSON()
    Quit $$$OK
  }
  
  If '..ValidateJSON(obj,.error) {
    Set %response.Status = ..#HTTP400BADREQUEST
    Write error.%ToJSON()
    Quit $$$OK
  }
  
  Set cm = ##class(demo.coffeemaker).%New()
  Do ..CopyToCoffeemakerFromJSON(.cm,obj)
  
  Set sc = cm.%Save()
  
  Set result={}
  do result.%Set("Status",$s($$$ISERR(sc):$system.Status.GetOneErrorText(sc),1:"OK"))
  write result.%ToJSON()
  Quit sc
}

ClassMethod RemoveCoffeemaker(id As %String) As %Status
{
  Set result={}
  Set sc=0
  
  if id'="",##class(demo.coffeemaker).%ExistsId(id) {
    Set sc=##class(demo.coffeemaker).%DeleteId(id)
    do result.%Set("Status",$s($$$ISERR(sc):$system.Status.GetOneErrorText(sc),1:"OK"))
  }
  else  {
    do result.%Set("Status","")  
  }
  
  write result.%ToJSON()
  
    quit sc
}

Class demo.RESTCoffeeMakerService Extends Ens.BusinessService 
{
  Method OnProcessInput(pInput As demo.GenericCoffeeMakerRequest, Output pOutput As demo.GenericCoffeeMakerResponse) As %Status
  {
    set tSC = $$$OK
    try {
      set tSC = ..SendRequestSync("demo.CoffeeMakerBPL", pInput, .pOutput)
      $$$ThrowOnError(tSC)
     }
    catch ex
    {
      set tSC = ex.AsStatus()
    }
    return tSC
  }
}

Class demo.GenericCoffeeMakerRequest Extends Ens.Request
{
Property Method As %String;
Property URL As %String;
Property Argument1 As %String;
Property Payload As demo.tempCoffeemaker;
...

ClassMethod GetCoffeeMakerInfoFromInterface(id As %String) As %Status
{
  set tSC = $$$OK
  try {
    // Instantiate business service
    set tSC = ##class(Ens.Director).CreateBusinessService("demo.RESTCoffeeMakerService",.tService)
    $$$ThrowOnError(tSC)
    //Pass aloong input from url to ProcessInput.
    set request = ##class(demo.GenericCoffeeMakerRequest).%New()
    set request.URL = "/coffeemaker/:id/int"
    set request.Method = "GET"
    set request.Argument1 = id
    set request.Payload = ""
    set tSC = tService.ProcessInput(request, .output)
    
    $$$ThrowOnError(tSC)

    do %response.SetHeader("ContentType", "application/json")
    #Dim output As demo.GendericCoffeeMakerResponse

    //Write JSON response back to client application
    write output.JSONResponse
  }
  catch ex {
    set tSC = ex.AsStatus()
  }
  return tSC
}