All
Accepted answers
Javier Gonzalez · Jul 14, 2017 go to post

My problem was that I had disabled the user UnknowUser and could not access the management portal. I needed to reactivate the user. He could not access the terminal either.

The solution that you proposed to Natasa and that it worked for her, used by Docker, the reality is that I did not know how to implement it since I do not know what is docker. I thank you that you can tell the community about what goes docker and so we document a little more.

Thank you !

Javier Gonzalez · Jul 14, 2017 go to post

Hi Dmitry,

I have the same problem as Natasha except I could not. I get the same error. There is no way to activate the user "Unknow user"? The error window has a "Click here for get access" link but it does not work.

The strange thing is that from the Web Gateway Management I can make a satisfactory test to the server.

Can you help me with any ideas?

Regards

Javier Gonzalez · Jun 6, 2017 go to post

Thanks Sean,

With %RegisteredObject occurring same as with %Library.DynamicObject, the dynamic attribute is not serialized.

The REST service architecture is a BusinessService that invokes a BusinessOperation. In this BO I have a block "code" that does the following:

set response.Value="OK" 
set response.Res.Message = "I am a message"    
set response.Res.Code = 999
set response.Res.Info = ##class(CitaResponseOMI360).%New()
set response.Res.Info.idCita = 1

 

Return to the BS, I perform the serialization with class:

##class(Ens.Utils.JSON).ObjectToJSONStream(tRsp, .tStream)

and return the result with:

do tStream.OutputToDevice ().

The result of invoking the  REST service from POSTMAN or SOAPUI is this:

{
  "Value": "OK",
  "Res": {
    "Code": "999",
    "Message": "I am a message"
  }
}

From the terminal this is the result

"{"_$c(13,10)_"    ""Value"":""OK"","_$c(13,10)_"    ""Res"": {"_$c(13,10)_"        ""Code"":""999"","_$c(13,10)_"        ""Message"":""I am a message"","_$c(13,10)_"        ""Info"": {"_$c(13,10)_"            ""idCita "":""1""}"_$c(13,10)_"    }"_$c(13,10)_"}"

 

In order to provide some detail, this is the definition of the classes involved:

Class Respuesta Extends (%SerialObject, %XML.Adaptor) {
Property Value As %String;
Property Res As RespuestaNodo;
}

 

Class RespuestaNodo Extends (%SerialObject, %XML.Adaptor) {
Property Code As %String;
Property Message As %String;
Property Info As %RegisteredObject;
}

 

Class CitaResponseOMI360 Extends Ens.Response
{
Property idCita As %String;
Property FechaHora As %TimeStamp;
Property agenda As AgendaOMI360;
Property paciente As PacienteOMI360;
Property observaciones As %String;
Property estado As %String;
​}

 

I thank your contribution because I am confused.

Javier Gonzalez · Jun 2, 2017 go to post

I am looking for a native COS solution to avoid working with own classes and I believe that the proposal by Eduard is valid for what I need. Check his proposal, maybe you might be interested.

However I vote your solution for if in the future I had to recover it.

Thank you !

Javier Gonzalez · Jun 2, 2017 go to post

This solution is perfectly adapted to what I wanted. I will review the class to see what other methods are available for handling JSON objects.

Thank you, Eduard, for the answer !.

Javier Gonzalez · Jun 2, 2017 go to post

Hello Chris,

Thanks for the reply. I am looking for a native COS solution to avoid working with own classes. Maybe you may be interested in the solution that Eduard has provided. I do not know what limitations I may have (for example with the dates, which Sean has commented). If the community sees any, they could comment on it.

Regards !!