Util.EmptyToNull.cls

Class User.Util
{

ClassMethod EmptyToNull(dyna As %DynamicObject) As %DynamicObject
{
    set iter = dyna.%GetIterator()
    while iter.%GetNext(.key , .value ) {
       if value = "" {
           do dyna.%Set(key,"","null")
       }
       if dyna.%GetTypeOf(key) = "object" {
           do dyna.%Set(key,..EmptyToNull(value))
       }
       if dyna.%GetTypeOf(key) = "array" {
           set iterArray = value.%GetIterator()
           while iterArray.%GetNext(.keyArray , .value ) {
                do:(value'="") ..EmptyToNull(value)
           }
       }
    }
    Return dyna
}

}