AllAccepted answers
Mark OReilly · Feb 20, 2023

Thanks I now understand. 

I was not looking at the .int 

Also was testing using SQL trigger delete i.e. from sql Delete from (field) where ID = id. This delete helper uses the objectscript deleteID which is perfectly good as this is what the main Ens.Util.Tasks.Purge will use. 

Great tool as this was for one message object with 10 embedded xml objects and 2 lists of xml objects, added some manually on before and it is the case this with using this plus doing a test on a single object first is a lot faster than the risks of manual typos for doing this manually. The SQL trigger on delete will not be required in my usecases

Mark OReilly · Feb 17, 2023

I raised a different question but go no reply. 

I don't understand how you actually use this? 

Have a class like 

Class Messages.NonHL7.PMEP.Outbound.PathologyResult Extends (Ens.Request, SRFT.Utility.DeleteHelper.OnDeleteSuper)

contains 


Property freeTextLine As list Of Messages.NonHL7.PMEP.Outbound.FreeTextLine;

How do you actually get the ondelete to work or generate? What should you see?

i added  

ClassMethod %OnDelete(oid As %ObjectIdentity) As %Status
{
        Do ##super()
}

but did not delete the id 2211269686 listed in the list. 

Can an implementation example be provided to this? The only step really to use this yourself is "add this class as another Super class for your class." but i don't grasp what we should see if we do this and if indeed this is correct

Tried with just Class Messages.NonHL7.PMEP.Outbound.PathologyResult Extends (Ens.Request, SRFT.Utility.DeleteHelper.OnDeleteSuper) without defining an %onDelete as the guide would suggest but again have id 2211269800 which did not delete 

id 2211269834 of  Messages.NonHL7.PMEP.Outbound.Location also did not delete

Mark OReilly · Jun 23, 2022

Hi Still not working. Might be my misexplaining

Two values from the global veiw page

1:  ^je1("NotConfigured","CBB") = "" 2:  ^je1("NotConfigured","CH11") = "" Total: 2 [End of global]

All i'm getting is the first 

Set node = $Query(^je1("NotConfigured"))
   WRITE !,node
  FOR   {
    SET queryary=$QUERY(node)
        QUIT:queryary=""  
        WRITE !,queryary
        SET node=queryary
  }

In terminal we would have used ^%G then je1("NotConfigured", looking the exact same but in code in objectscript

queryary is blank after the first query so node is blank

Mark OReilly · May 19, 2022

Thanks Oliver this has been great. I have created a fork of this original code for our own use- i don't use github too much so hope this is an ideal way to keep the information sharing from your initial work done that was great. I have not included on an error section due to trying to keep things simple on a monitor screen but it could be added if others wish. If there are further updates will try keep my code on github for this up to date if possible and still quite non bespoke as seems fair for anyone who wants a better solution. 

Mark OReilly · May 13, 2022

I plan to be accessing it via a website saved in intersystems server to be accessed on the server. I have some ideas how it will look/work. Is mainly the finding the current errored services as one of the things I just can't seem to find in existing code how to get the status. I plan to have any suspended and queues or where intersystems has stopped a operation because of E=D  but think I know ways to get the rest of this to make a really nice clean clear monitor page