go to post Enrico Parisi · Nov 6, 2024 Evidently "The first 4KB of the stream cannot be compressed by at least 20 percent." Demonstration: USER>set data="" for i=1:1:400 set data=data_"a"_i USER>set compressed=##class(%SYSTEM.Util).Compress(data,"lz4") USER>write $length(data)," - ",$length(compressed),! 1492 - 1481 P.S.: IRIS use lz4 compression for streams
go to post Enrico Parisi · Nov 6, 2024 From Stream Compression documentation: .....new stream data is automatically compressed, except for the following cases, where the data is not suitable for compression: The stream can be stored in a single chunk less than 1024 characters long. The stream is already compressed, that is, the first chunk of data matches a typical compressed file format, such as JPEG, MP3, or ZIP. The first 4KB of the stream cannot be compressed by at least 20 percent. I guess your test runs into these cases.
go to post Enrico Parisi · Nov 6, 2024 Rules are subclasses of Ens.Rule.Definition class, to list rules you can use the class query SubclassOf in the %Dictionary.ClassDefinition class. From ObjectScript: Set rs=##class(%Dictionary.ClassDefinition).SubclassOfFunc("Ens.Rule.Definition")Do rs.%Display() From SQL: Call %Dictionary.ClassDefinition_SubclassOf('Ens.Rule.Definition')
go to post Enrico Parisi · Nov 4, 2024 You can Export from DEV using: Set status=##class(EnsLib.DICOM.Util.AssociationContext).ExportXML() And import in PROD with: Set status=##class(EnsLib.DICOM.Util.AssociationContext).ImportXML() See class reference documentation.
go to post Enrico Parisi · Nov 4, 2024 You did not specify the IRIS version, so I assume you are using the latest version. You can export the source of a class to a file: Do $system.OBJ.ExportUDL("My.Class.Name.cls","/full/path/My.Class.Name.cls")
go to post Enrico Parisi · Nov 1, 2024 What's your use case? Are you using Ens.BusinessProcess or Ens.BusinessProcessBPL?
go to post Enrico Parisi · Oct 31, 2024 To call a class method the syntax is: ##class(ClassName).MethodName(params)
go to post Enrico Parisi · Oct 30, 2024 I don't think there is a ready to use SQL query/procedure but you can call the class query "TypeCategories" in the class "EnsLib.HL7.Schema" from ObjectScript: set ResultSet=##class(EnsLib.HL7.Schema).TypeCategoriesFunc() do ResultSet.%Display()
go to post Enrico Parisi · Oct 30, 2024 In the documentation page there is a "Feedback" button/link on the right, I encourage you to provide your comments as Feedback, possibly linking this post in the Community.
go to post Enrico Parisi · Oct 29, 2024 You can call: Set status = $System.OBJ.Export(SchemaName_".HL7",Filename)
go to post Enrico Parisi · Oct 29, 2024 You can call: Set status = $system.OBJ.Export(Tablename_".LUT", Filename)
go to post Enrico Parisi · Oct 29, 2024 Hi Timo, your sample is not a valid/full check for "valid number": USER>set number="123.40" USER>write (+number=number) 0 USER>write $isvalidnum(number) 1
go to post Enrico Parisi · Oct 28, 2024 True, but the problem definition is: If both fields are numeric and the result of subtraction of field1-field2 is positive. My understanding/interpretation is that the subtraction and further test should be performed only "If both fields are numeric", so the code should check that condition. If the first part of the problem (If both fields are numeric) is irrelevant....then the question/problem definition is misleading.
go to post Enrico Parisi · Oct 27, 2024 Use XML format and you get 6x faster load than using UDL. My guess the difference is due to the parsing needed by UDL import. My estimate in your case you can get as low as 42 seconds, I'm curious to see the actual numbers.
go to post Enrico Parisi · Oct 25, 2024 I really don't think that an addon package is the solution. I access, more or less regularly, around 20 IRIS different systems used by various customers and a number of local instances in my machines and VMs. Do you really think that installing an add on package in all this systems is a "solution"?
go to post Enrico Parisi · Oct 25, 2024 Can you please provide some details on what you are actually doing in your DTL?
go to post Enrico Parisi · Oct 24, 2024 To check if MyVal is a valid positive number I'd use $ISVALIDNUM(MyVal,,0) See $ISVALIDNUM function documentation.
go to post Enrico Parisi · Oct 11, 2024 This works only if you assume that the stream size is less than the maximum string length.
