New post
AllAccepted answers
Joao Palma · Jan 30, 2020

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

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

s arrayMessage = []

While rs.%Next() {
s 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)
}

Joao Palma · Jan 30, 2020

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

Joao Palma · Nov 6, 2019

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)