go to post Eduard Lebedyuk · Mar 9, 2019 ODBC log and maybe Audit log can contain additional information.
go to post Eduard Lebedyuk · Mar 8, 2019 IRIS Text Analytics/iKnow and Analytics/DeepSee are enabled on per-application basis. Interoperability/Ensemble/HealthShare are enabled on a per-namespace basis.First you need to get default application from the namespace: set namespace = "USER" set app = $System.CSP.GetDefaultApp(namespace) _ "/" And then call one of these methods: do EnableIKnow^%SYS.cspServer(app) do EnableDeepSee^%SYS.cspServer(app) If you want to enable Interoperability/Ensemble call: set sc = ##class(%EnsembleMgr).EnableNamespace(namespace,1)
go to post Eduard Lebedyuk · Mar 7, 2019 You can do that in Analyzer.Choose the row/column you want displayed this way, click on it's settings and set italic header:
go to post Eduard Lebedyuk · Mar 7, 2019 You can use CreateDirectoryChain method of %File class to create directory tree instead of several calls to CreateDirectory.
go to post Eduard Lebedyuk · Mar 7, 2019 Link to file doesn't need for a file to exist, but the containing directory must exist and should be writable by a OS user (cacheusr in uyour case probably).I'd try to write into a temp dir first, where you're sure you have access: set file = ##class(%File).TempFilename("pdf") set sc = stream2.LinkToFile(file) quit:$$$ISERR(sc) sc record value of file somewhere (output to display or store in global) and check if the file was created). %Save method also returns status, you should return it instead of $$$OK: set sc = stream2.%Save() quit sc
go to post Eduard Lebedyuk · Mar 7, 2019 The code looks good. What error are you getting?Try replacing stream2 %Stream.FileCharacter with %Stream.FileBinary.Try replacing stream1 %Stream.FileCharacter with %Stream.TmpBinary.If you have message sample less than 3,5 mb in size try to write a test without intermediate stream.You probably should write to a pdf file and not a txt one.If you can, get a sample original/decoded file. Compare original file and your stream2 file using hex editor to spot differences.
go to post Eduard Lebedyuk · Mar 7, 2019 Check this table of Ens resources. Your role should have some of these resources to give user access to Ensemble pages.
go to post Eduard Lebedyuk · Mar 7, 2019 I try to separate SQL from ObjectScript code. So mainly, I'm using queries, for example: /// Some report. To display in terminal call: /// do ##class(class).reportFunc().%Display() Query report(date As %String = {$zd($h-1,8)}) As %SQLQuery(SELECTMODE = "ODBC") { SELECT ID, Value, EventDate FROM myTable WHERE EventDate>=TO_POSIXTIME(:date,'YYYYMMDD') AND EventDate<TO_POSIXTIME(:date+1,'YYYYMMDD') ORDER BY EventDate } Queries can be calles from ObjectScript using autogenerated Func method: /// Really %sqlcq.<NAMESPACE>.cls<NUMBER> #dim rs As %SQL.ISelectResult set rs = ..reportFunc(date) //do rs.%Display() while rs.%Next() { write rs.ID,! } I found this approach improves readability of the codebase. More about queries in this article. Special case - one value. Sometimes you don't need a resultset, but one value. In that case: If you know ID it's possible to use GetStored method: set value = ##class(test).<PropertyName>GetStored(ID) If you know unique indexed value but don't know ID, it's possible to get id with Exists method: ClassMethod <IndexName>Exists(val, Output id) As %Boolean And after that use GetStored method. More on auto-generated methods, such as GetStored and Exists in this article. Finally, if you can't use above methods or you need one value but it's an aggregate, use embedded SQL if it's a short SQL and Query if it's long.
go to post Eduard Lebedyuk · Mar 7, 2019 Use methods from %CSP.Portal.Utils class: set pageID = "" //page url, URL encoded via $zconvert(url,"O","URL") set currentResource = ##class(%CSP.Portal.Utils).%GetCustomResource(pageID) set sc = ##class(%CSP.Portal.Utils).%SetCustomResource(pageID, newResource)
go to post Eduard Lebedyuk · Mar 7, 2019 I' do it in 2 steps.Iterate over data array and build a temp local structure to hold all additional items you needIterate over this new structure and add these items to data array.You can add to array using %Push method: do Obj.data.%Push(newItem) If you want to push at a specific posiiton, use %Set do Obj.data.%Set(position, newItem) That said your later structure contains data which does not exist in the original structure (text values for projects and sub-projects) so you need to get it from somewhere. Also is project - subproject hierarchy one-level, or there could be an arbitrary number of sub-project levels (i.e. 10 → 10-1 → 10-1-1 → 10-1-1-1)?
go to post Eduard Lebedyuk · Mar 7, 2019 Enable ODBC log. Maybe there would be errors pointing to the root of the issue?Maybe something to do with INFORMATION_SCHEMA.
go to post Eduard Lebedyuk · Mar 5, 2019 Okay, even if the classes/globals are the same there's a solution. Let's say you have Sample.Person class in namespaces SAMPLES and USER, each with their own data: Class Sample.Person Extends %Persistent { Property Name; Storage Default { <Data name="PersonDefaultData"> <Value name="1"> <Value>%%CLASSNAME</Value> </Value> <Value name="2"> <Value>Name</Value> </Value> </Data> <DataLocation>^Sample.PersonD</DataLocation> <DefaultData>PersonDefaultData</DefaultData> <IdLocation>^Sample.PersonD</IdLocation> <IndexLocation>^Sample.PersonI</IndexLocation> <StreamLocation>^Sample.PersonS</StreamLocation> <Type>%Library.CacheStorage</Type> } } And you want to query both from the USER namespace. In that case create a new class extending Sample.Person in the USER namespace and modify storage like this: Class Utils.SamplesPerson Extends (%Persistent, Sample.Person) { Storage Default { <Data name="PersonDefaultData"> <Value name="1"> <Value>%%CLASSNAME</Value> </Value> <Value name="2"> <Value>Name</Value> </Value> </Data> <DataLocation>^["SAMPLES"]Sample.PersonD</DataLocation> <DefaultData>PersonDefaultData</DefaultData> <ExtentSize>200</ExtentSize> <IdLocation>^["SAMPLES"]Sample.PersonD</IdLocation> <IndexLocation>^["SAMPLES"]Sample.PersonI</IndexLocation> <StreamLocation>^["SAMPLES"]Sample.PersonS</StreamLocation> <Type>%Library.CacheStorage</Type> } Note that DataLocation, IndexLocation, IdLocation and StreamLocation point to the SAMPLES namespace. Now query: SELECT * FROM Utils.SamplePerson Would fetch data from SAMPLES namespace.
go to post Eduard Lebedyuk · Mar 5, 2019 Some ideas.1. The problem is isc.rabbitmq.API class was imported with an error. Delete this class and try this code (post output): Set class = "isc.rabbitmq.API" Set classPath = ##class(%ListOfDataTypes).%New() Do classPath.Insert(PATH-TO-JAR) Set gateway = ##class(%Net.Remote.Gateway).%New() Set sc = gateway.%Connect("localhost", PORT, $Namespace, 2, classPath) Zwrite sc Set sc = gateway.%Import(class) Zwrite sc Write ##class(%Dictionary.CompiledClass).%ExistsId(class) 2. Try recompiling isc.rabbitmq.API class. 3. Maybe have 2 amqp jars with com.rabbitmq.tools.jsonrpc.JsonRpcException class. The only class you should import is isc.rabbitmq.API class. It shouldn't pull many additional ones. 4. What version of AMQP are you using? I'm using amqp-5.0.0. Try the same verison?
go to post Eduard Lebedyuk · Mar 5, 2019 I think the easier solution would be to map classes and data to a target namespace and just execute the query in the same namespace. Documentation.
go to post Eduard Lebedyuk · Mar 4, 2019 You can check out this RabbitMQ adapter. I had the same issue with stream interpretation and it's fixed there.
go to post Eduard Lebedyuk · Mar 4, 2019 You can check out this RabbitMQ adapter. I had the same issue with stream interpretation and it's fixed there.
go to post Eduard Lebedyuk · Mar 4, 2019 Great to see more AoC participants!Also please note, that $ListValid returns 1/0 (%Boolean) and not a %Status. So $system.Status methods won't work. set status = $LISTVALID(list) you can write something like this: set isValid = $listValid(list) if isValid { // main code } else { write "List is invalid:",! zwrite list }
go to post Eduard Lebedyuk · Mar 2, 2019 Check out my series of articles Continuous Delivery of your InterSystems solution using GitLab it talks about many features, related to automating these kind of tasks. In particular, Part VII (CD using containers) talks about programmatic enabling of OS-level authentication.
go to post Eduard Lebedyuk · Mar 2, 2019 Abstract class could have this method: ClassMethod GetNew() As test.Order { set class = "test.Order" if ..GetCompileDate($classname())'=..GetCompileDate(class) { set sc = $system.OBJ.Compile($classname(),"cukb /display=none") } quit $classmethod(class, "%New") } ClassMethod GetCompileDate(class As %Dictionary.CacheClassname) [CodeMode = expression] { $$$comClassKeyGet(class,$$$cCLASStimechanged) }