POtoStr refactoring into generic method

Author: eduard93

MDX2JSON/AbstractREST.cls.xml

@@ -444,9 +444,9 @@ This is the Schema which defines the form of the dispatch map</Description>
 ]]></Data>
 </XData>
 
-<Method name="POtoStr">
+<Method name="OutputToStr">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>obj:%ZEN.proxyObject</FormalSpec>
+<FormalSpec>pObj:%ZEN.proxyObject,pMethod:%String="%ToJSON",pArgs...</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -457,8 +457,12 @@ This is the Schema which defines the form of the dispatch map</Description>
 	
 	//Enable redirection
 	do ##class(%Device).ReDirectIO(1)
-
-	set st = obj.%ToJSON()
+	
+	if $d(pArgs)= 0 {
+		do $Method(pobj,pMethod)
+	} else {
+		do $Method(pobj,pMethod,pArgs)
+	}
 	
     //Disable redirection
     do ##class(%Device).ReDirectIO(0)

MDX2JSON/Dashboard.cls.xml

@@ -205,7 +205,7 @@ Converts relevant parts of %DeepSee.Dashboard.Widget object into %ZEN.proxyObjec
 		do ##class(%ZEN.Auxiliary.jsonProvider).%ConvertJSONToObject(overridestr,,.override,1) // convert it into %ZEN.proxyObject
 
 		#if $$$IsNewJSON // if we are on new versions
-			set overridestr = ##class(MDX2JSON.AbstractREST).POtoStr(override) // convert it into valid json 
+			set overridestr = ##class(MDX2JSON.AbstractREST).OutputToStr(override,"%ToJSON") // convert it into valid json 
 			set override = ##class(%Object).$fromJSON(overridestr) // and into %Object
 		#endif
 		

MDX2JSON/REST.cls.xml

@@ -305,7 +305,7 @@ Wrapper for ##class(MDX2JSON.Users).SetConfig()</Description>
 <Implementation><![CDATA[
 	set config = $$$R("Config")
 	if (($IsObject(config)) && (config.%IsA("%ZEN.proxyObject"))) {					
-		set config = ..POtoStr(config)
+		set config = ..OutputToStr(config,"%ToJSON")
 	}
 	return ##class(MDX2JSON.Users).SetConfig($$$R("Application"),config)
 ]]></Implementation>