go to post Julian Matthews · Dec 30, 2019 Have you tried rebooting the machine running healthshare? Did you complete any post upgrade tasks like recompiling custom classes?
go to post Julian Matthews · Nov 21, 2019 Hi Steve. The main reason is that I'm trying to reduce the footprint within our Ensemble/interoperability production. However, I'm not too proud to rule it out if I am stuck for other options.
go to post Julian Matthews · Sep 6, 2019 Doesn't answer your question, but I use Winmerge with some tweaks to the settings to make the highlighting a little nicer:http://forums.winmerge.org/viewtopic.php?f=4&t=1040If I need to compare 1000s of messages from two sets of transforms, I then point their outbound to a single fileout (or since I upgraded to 2019.1, using the export) and then compare the two files.
go to post Julian Matthews · Aug 29, 2019 That is actually quite impressive - thanks @Evgeny Shvarov (and @Nikita.Savchenko for the tool itself)
go to post Julian Matthews · Aug 29, 2019 Just to add to this - in a real world situation, you would be accessing the terminal from the cube menu as described by Robert. I think this is something created by Intersystems to facilitate the online learning.
go to post Julian Matthews · Aug 29, 2019 Hi Marta.I just took a look at the course to see what was what, and on the lab site generated, there is a link for the terminal on the home page:This then prompts you to log in with the credentials provided when you first created the lab session, and you end up with an oversized terminal window the size of your browser
go to post Julian Matthews · Aug 29, 2019 Hi Vandrei.Have a look at the learning site: https://learning.intersystems.comHere you will find learning paths for what you want such as Building Your First Application with Caché and Learn Caché for Developers.There is also classroom training that can be arranged with Intersystems, but it might be good to give yourself exposure with the above before considering such courses.
go to post Julian Matthews · Aug 28, 2019 It might be unrelated, but I recently had a similar issue when installing healthconnect on a windows 10 machine with Kaspersky Endpoint Security.Kaspersky was being triggered by some temp files created by the installer, and placing them in quarantine. This was then leaving the installer showing it had completed, but with the progress bar still showing. I never did leave it for as long as you did to then get the error you didn't save.The weird thing was that Kaspersky only reported a virus with the installer on specific versions of Windows 10.I ended up submitting the installer to Kaspersky so that they could white list it. Long story short, check the reports section within Kaspersky and see if it interfered with your install.
go to post Julian Matthews · Aug 21, 2019 I did consider going the oldschool route, but your guidance above worked perfectly for me
go to post Julian Matthews · Aug 21, 2019 This looks really good!Any idea how I'd be able to use this in a non-docker environment?
go to post Julian Matthews · Aug 19, 2019 Hi David.I raised this with WRC following my recent upgrade to IRIS, and the reason given was that the auto-refresh interferes with a new feature that logs out inactive users.What you need to do (in a Terminal session) is set a global as follows:>set ^%SYS("Portal","EnableAutoRefresh")=1
go to post Julian Matthews · Aug 8, 2019 I have a task that deletes txt files older than x number of days: Class PROD.Schedule.PurgeTxtFiles Extends %SYS.Task.Definition { Parameter TaskName = "Purge TXT Files"; Property Directory As %String; Property Daystokeep As %Integer(VALUELIST = ",5,10,15,20,25,30,35,40,45,50,55,60") [ InitialExpression = "30" ]; Method OnTask() As %Status { Set tsc = ..PurgeSentFolder(..Directory,..Daystokeep,"txt") Quit tsc } Method PurgeSentFolder(Directory As %String, DaysToKeep As %Integer, Extention As %String) As %Status { // Calculate the oldest date to keep files on or after set BeforeThisDate = $zdt($h-DaysToKeep_",0",3) // Gather the list of files in the specified directory set rs=##class(%ResultSet).%New("%File:FileSet") Set ext = "*."_Extention do rs.Execute(Directory,ext,"DateModified") // Step through the files in DateModified order while rs.Next() { set DateModified=rs.Get("DateModified") if BeforeThisDate]DateModified { // Delete the file set Name=rs.Get("Name") do ##class(%File).Delete(Name) } // Stop when we get to files with last modified dates on or after our delete date if DateModified]BeforeThisDate set tSC = 1 } quit tSC } } Hopefully you can make this work for your needs
go to post Julian Matthews · Aug 5, 2019 Thanks Jeff, that's a better articulation of what I originally tried to say.
go to post Julian Matthews · Aug 1, 2019 Personally, I would use a DTL which removes the EVN, and then I would call the DTL class from objectscript:Set tSC=$CLASSMETHOD("DEV.Transformations.DUMMY.A01toA01","Transform",request,.messageWithoutEVN)So, "Transform" in quotes is the action, request is your original Enslib.HL7.Message coming in, and .messageWithoutEVN is the output from your DTL.Does that help?
go to post Julian Matthews · Jul 31, 2019 The method RemoveSegmentAt returns a status, not the message with the segment removed.So your HL7 message with the EVN removed is still "newreq" and it is this that you want to pass on.
go to post Julian Matthews · Jul 9, 2019 Assuming you're talking about the online backup function within ensemble/HS/etc - I use a task that will run a purge based on the age of the file, and then runs the backup. The order of the two methods is important if you set your retention period to 0, as you'll end up deleting the backup you just made (I'm neither confirming or denying if this happened to me).Class Live.Schedule.BackupPurge Extends %SYS.Task.BackupAllDatabases{Parameter TaskName = "Backup With Purge";Property Daystokeep As %Integer(VALUELIST = ",0,1,2,3,4,5") [ InitialExpression = "1" ];Method OnTask() As %Status{ //Call PurgeBackup Method, Return Status Set tsc = ..PurgeBackups(..Device,..Daystokeep) Set tsc = ..RunBackup() Quit tsc}Method PurgeBackups(Directory As %String, DaysToKeep As %Integer) As %Status{ // Calculate the oldest date to keep files on or after set BeforeThisDate = $zdt($h-DaysToKeep_",0",3) // Gather the list of files in the specified directory set rs=##class(%ResultSet).%New("%File:FileSet") do rs.Execute(Directory,"*.cbk","DateModified") // Step through the files in DateModified order while rs.Next() { set DateModified=rs.Get("DateModified") if BeforeThisDate]DateModified { // Delete the file set Name=rs.Get("Name") do ##class(%File).Delete(Name) } // Stop when we get to files with last modified dates on or after our delete date if DateModified]BeforeThisDate set tSC = 1 } quit tSC}Method RunBackup() As %Status{ d $zu(5,"%SYS") Set jobbackup = 0 Set quietflag = 1 Set Device = ..Device Set tSC = ##class(Backup.General).StartTask("FullAllDatabases", jobbackup, quietflag, Device, "0") Quit tSC }}The downside to this is you will end up with an extra backup file in your backup location if you run the backup manually as the purge is based on the file age. Not a massive problem unless you're storing in a location with a finite amount of disk space.
go to post Julian Matthews · Jul 9, 2019 After working with WRC, I now have an answer.If the DataSet property points to the MutabaleDateSet property then GetValueAt will return a stream if more than 32k.If (as in my situation) the DataSet property points to the FixedDateSet property then GetValueAt will return a string of 32648.The workaround provided by WRC did the trick for me: Try { Set setStatus = $$$OK, getStatus = $$$OK If 'pInput.Modified{ Set setStatus = pInput.SetValueAt(pInput.GetValueAt("DataSet.DocumentTitle",,.getStatus),"DataSet.DocumentTitle")}} Catch e { Set setStatus = e.AsStatus()} If setStatus && getStatus{ Set X = pInput.GetValueAt("DataSet.EncapsulatedDocument",,.tSC)}However there was an alternative of using the CreateFromDataSetFileStream method of the class EnsLib.DICOM.Document:set tSC = ##class(EnsLib.DICOM.Document).CreateFromDataSetFileStream(pInput.DataSet.FileStream,pInput.DataSet.TransferSyntax,.dicomDocFromStream)If tSC Set X = dicomDocFromStream.GetValueAt("DataSet.EncapsulatedDocument",,.tSC)In both of these options, the next step is to then check tSC to see if X is a stream or string and then work from there.
go to post Julian Matthews · Jul 2, 2019 That's odd - when I am using GetValueAt("DataSet.(0042,0011)"), it is returning a string and not a stream object.I have an open ticket with WRC to see what's going on. I'm 99% sure this is user error, but we'll see.
go to post Julian Matthews · Jun 19, 2019 I took a look at the error and it doesn't seem to be truncating at the linebreaks (which are represented as \.br\). I think your suggestion of a custom operation is going to be my best approach. Fingers crossed!