Clean up

Author: evshvarov

src/shvarov/SQL/REST/Query.cls

@@ -35,104 +35,7 @@ ClassMethod RunSQLQuery() As %Status
     return 1
 }
 
-/// Retreive all the records of Sample.Person
-ClassMethod GetAllPersons() As %Status
-{
-
-    #dim tSC As %Status = $$$OK
-
-    Set rset = ##class(Sample.Person).ExtentFunc()
-
-    Set %response.ContentType = ..#CONTENTTYPEJSON
-    Write "["
-    if rset.%Next() {
-        Set person = ##class(Sample.Person).%OpenId(rset.ID)    
-        Do person.%JSONExport()
-    }
-    While rset.%Next() {   
-        Write ","
-        Set person = ##class(Sample.Person).%OpenId(rset.ID)    
-        Do person.%JSONExport()
-    }
-    Write "]"
-    Quit tSC
-}
-
-/// Return one record fo Sample.Person
-ClassMethod GetPerson(id As %Integer) As %Status
-{
-	#dim tSC As %Status = $$$OK
-    #dim e As %Exception.AbstractException
-
-
-    #; Set the response header to plain text
-    Set %response.ContentType = ..#CONTENTTYPEJSON
-
-    Set person = ##class(Sample.Person).%OpenId(id)
-
-    If '$IsObject(person) Quit ..Http404()
-
-    Do person.%JSONExport()
-
-    Quit tSC
-}
-
-/// Creates a new Sample.Person record
-ClassMethod CreatePerson() As %Status
-{
-	#dim tSC As %Status = $$$OK
-    #dim e As %Exception.AbstractException
-    Set person = ##class(Sample.Person).%New()
-    Set data=%request.Content
-
 
-    $$$TOE(tSC,person.%JSONImport(data))
-    $$$TOE(tSC,person.%Save())
-
-    Set %response.Status = 204
-    Set %response.ContentType = ..#CONTENTTYPEJSON
-    //d data.%ToJSON()
-    Do person.%JSONExport()
-
-    Quit tSC
-}
-
-/// Update a record in Sample.Person with id
-ClassMethod UpdatePerson(id As %Integer) As %Status
-{
-	#dim tSC As %Status = $$$OK
-    #dim e As %Exception.AbstractException
-    Set person = ##class(Sample.Person).%OpenId(id)
-    If '$IsObject(person) Return ..Http404()
-    Set data=%request.Content
-
-    $$$TOE(tSC,person.%JSONImport(data))
-    $$$TOE(tSC,person.%Save())
-
-    Set %response.Status = 200
-
-    Set %response.ContentType = ..#CONTENTTYPEJSON
-    Do person.%JSONExport()
-
-    Quit tSC
-}
-
-/// Delete a record with id in Sample.Person
-ClassMethod DeletePerson(id As %Integer) As %Status
-{
-	#dim tSC As %Status = $$$OK
-    #dim e As %Exception.AbstractException
-    Set person = ##class(Sample.Person).%OpenId(id)
-    If '$IsObject(person) Return ..Http404()
-
-    $$$TOE(tSC,person.%DeleteId(id))
-
-    Set %response.Status = 200
-
-    Set %response.ContentType = ..#CONTENTTYPEJSON
-
-    Quit tSC
-}
 
 ClassMethod SwaggerSpec() As %Status
 {