Como quitar de un JSON una lista vacia?
Tengo esta clase definida:
Class Services.IS.Data.Pe Extends (%RegisteredObject, %JSON.Adaptor)
{
Property codigo As %String;
Property descripcion As %String;
Property ListaP As list Of P;
ClassMethod LoadPeCap(Param1 As %String, Param2 As %String) As %JSON.Adaptor
{
Set rs = ##class(%SQL.Statement).%ExecDirect(,"SELECT PRF_c as PRF_c,PRF_des as PRF_des FROM Esquema.tabla where PRF_c ="_Param1_" or PRF_c="_Param2)
Set pts ={"pts":[]}
While rs.%Next() {
Set pec ={
"PRF_c": (rs.%Get("PRF_c")),
"PRF_des": (rs.%Get("PRF_des"))
}
set pec.codigo = rs.Get("PRF_c")
set pec.descripcion = rs.%Get("PRF_des")*/
Do pts.pts.%Push(pec)
}
Quit pts
}
Y en el JSON me aparece esto:
{
"pts": [
"{\"codigo\":\"1\",\"descripcion\":\"Publicada\",\"ListaP\":[]}"
]
}
Hay alguna manera de que la Property creada como List no aparezca si no tiene datos??
Gracias