In case someone would like to add the Mirror Monitor to the app I managed to do it using the following:

rs = ##class(%ResultSet).%New()
rs.ClassName="SYS.Mirror"
rs.QueryName = "MemberStatusList"
rs.Execute("MIRRORNAME")

arrayMessage = []

While rs.%Next() {
obj  = {}
  DO obj.%Set("MirrorMemberName", rs.GetData(1))
  DO obj.%Set("CurrentRole", rs.GetData(2))
  DO obj.%Set("CurrentStatus", rs.GetData(3))
 
  Do arrayMessage.%Push(obj)
}

Hi @Joan Cruz 

Can you tell me how you managed to get the information?

I am trying to do something similar but to show the information in a CSP page.

Best Regards,

Joao Palma

Thank you, Henrique.

I've had a look at it yesterday. The whole project is very well structured.

Well done again for it.

I'm creating another page rather than adding in more stuff to the dashboard as I don't want to fill it more. 

Then using a new classmethod and javascript as you've said I'm going to get the properties out of %SYSTEM.Mirror I think.

That is the bit I am not completely sure about. But I will eventually get there.

Kind Regards,

Joao Palma

Hi Henrique. 

This is very nice. I started using this at work and I was wondering if it would be too complicated to add a Mirror Monitor Widget to the CSP page.

Could you give me any clues?

Kind Regards.

P.S.: Obrigado.

I use a similar approach but in a routine file.

So, I just have an  include at the top and then I do 

$$$TryCatch 

...

$$$TryEnd

Hi Dinesh

I'm not sure whether you still need help with this.

In summary what you need to do is to create a message of your own and then pass that string as a message property and do something like

 Set request.StringValue="test"
Set tSC = ..SendRequest( "Tutorial.ExampleOperation" ,request)
 

Thank you Robert. 

Ended up adding a dummy property to Ping with a default value and XMLPROJECTION = "Attribute" as "None" would error.

Thank you Robert. 

I've tried that before and it didn't work though.

This is what I've tried:

pRequest As Conexes.Request.PingRequest

with Property parameters As Conexes.tns.Ping;

----------------------------------

Conexes.tns.Ping :

Parameter ELEMENTQUALIFIED = 1;

Parameter NAMESPACE = "mynamespace";

Parameter XMLNAME = "Ping";

Parameter XMLSEQUENCE = 1;

Parameter XMLPREFIX = "ns";

Parameter XMLIGNORENULL = 0;

Parameter XMLNIL = 1;

-----

Set tSC = ..Adapter.InvokeMethod("Ping",.pOutput, pRequest.parameters)