Is there a way to have a Data Lookup table be automatically updated via a script or cache code? We have a file that is being created by our EMR, and we need to import it into Ensemble to update it. Just trying to see if we can automate this process.
Thanks
Scott Roth
Ohio State University Wexner Medical Center
Cache rendering of an old classic:
s enc="dQZ4nK1VzU7DMAy+I/EEveTcCWicpt3UU2VABTRA/AhBeYW+As/U7vE4VNhxypJuoAlhS1vixJ//"_
"06TNsy5p4TppzRKTNqtMXuXQjSSrdEPSEmmtK1uZssp1l0Z3nHJ9fEQroJURlQLHNE35WPYWx7N3"_
"YpJYkeRe4mQzkEKuGDwjkHTBP+9JW4oUsB+Y2CVj2JuttlkFAbhbfdIuRU/jhvZkryejtNok7UpO"_
"Moww3JbdcPifW8APosVi4Q9Otwck5LMojmKOojNnDUIXe0XEvnVrdaEeiF95H8BYgXG38o6i0Vpg"_
"lhSO00TVkN6VelRPaq1q9ehucnizrGopJ5TY+8zHzOBSPih8jjnLQWbyKSYy25Cpe+JXMTdM2dZS"_
"cbAu3YP42EQw4GOq1a16VjfEtWoCGHJdS5dAjkPoYgRTCsw8DG4MaSAw2G++KfA6So0v9xTJVmHD"_
"0UjTAeD4TQ7oRr1EMMbXm2N6IyO1AxtDLS2NCBqHiCIYX+9hLxGGtCxk2Me0D8Q5eknNcafW0j47"_
"SiBNqVcYTSHEM3ASTfwvogDB4qFKc9G+YTzYg4yfqYyfqd2M6O6KqnOh3vgaK1SHIP8403/IitX/"_
"khVb/JYVkBdCh4/53gmCHyZoh3kApk/BrNdcOsBMDzb/hCPEI+zfA/fnvjTWnn8BUo3vtEE="
s enc=$SYSTEM.Util.Decompress($SYSTEM.Encryption.Base64Decode(enc))
w enc
Share more ANSI art!
Merry XMas and a Happy New Year!
I was benchmarking the populate utils when I noticed something strange. Consider this simple benchmarking method:
ClassMethod runBench(count As %Integer = 300000)
{
s types=["name","ssn","company","title","phone","city","street","zip","mission","state","color","product","string","integer","float"]
//s types=["name","ssn"]
s iter=types.%GetIterator()
while iter.%GetNext(.key,.value){
s start=$P($ZTS,",",2)
s opt={}
s opt.type=value
for i=1:1:count{
s res=##class(DataGen.Generator).genVal(opt) }
s end=$P($ZTS,",",2)
s total=end-start
w value_$C(9)_" total time:"_total_$C(9)_" rate: "_$NORMALIZE(count/total,2)_" per second",!
}
}
With my genVal method being this
Hi, community!
Consider you need to exclude substring(s) from a string.
I did it with the following snippet:
/// excludes all the substrings from the string
ClassMethod ExcludeSubstring(substr,str as %String) As %String
{
while ($L(str,substr)>1) {
set str=$Piece(str,substr)_$Piece(str,substr,2,*)
}
quit str
}
So, for example:
USER> set str=”ExcludemeGoodstringExcludemeExcludemeGoodstring” w ##class(User.Utils).ExcludeSubstring(“Excludeme”,str) GoodstringGoodstring
Is this the optimal approach or I reinvented the wheel?
Does anyone have a good example of using
Thanks
Scott
How can I prevent large number truncation when using the DynamicObject and DynamicArray classes to create JSON in objectscript and then parsing the result in javascript. Are there any global settings that configure the output when using these classes?
I am looking at converting to the new DynamicObject and DynamicArray classes to build JSON. Our current (homegrown) JSON library forces string representation of numbers too long because of errors we were seeing with long numbers being truncated on the client, I am hoping to accomplish the same with the new classes.
USER>set longNum = 1234567890123456789
USER>w longNum
1234567890123456789 //valid cache number, 19 digits
USER>s arr = [(longNum)]
USER>w arr.%ToJSON()
[1234567890123456789] //Valid JSON, however I would like this to be a quoted string so it can be parsed in javascript
//Parsed in javascrip
Is there any way that I can check the native type of an object script variable? (similar to the typeof check in javascript)
I see that the DynamicArray class uses the type of the variable for its output, I would like to do something similar when I receive a value as an argument to my method.
USER>s var1 = 123 //No quotes, number type
USER>s var2 = "123" //quotes, string type
//DynamicArray can tell the difference
USER>s arr = []
USER>d arr.%Push(var1)
USER>d arr.%Push(var2)
USER>w arr.%ToJSON()
[123,"123"] //first value is output without quotes, second value is quoted
Class Queries in InterSystems Caché is a useful tool that separates SQL queries from Caché Object Script code. Basically, it works like this: suppose that you want to use the same SQL query with different arguments in several different places.In this case you can avoid code duplication by declaring the query body as a class query and then calling this query by name. This approach is also convenient for custom queries, in which the task of obtaining the next row is defined by a developer. Sounds interesting? Then read on!
Using the following...
//Get PDF stream object previously saved
Set pdfStreamContainer = ##Class(Ens.StreamContainer).%OpenId(context.StreamContainerID)
Try {
Set pdfStreamObj = pdfStreamContainer.StreamGet()
}
Catch {
$$$TRACE("Error opening stream object ID = "_context.StreamContainerID)
Quit
}Would it be possible to search the pdfStreamObj for certain values like a Medical Record, or Patient Name?
Thanks
Scott
Hi,
Thanks for your time.
Plain $ZF(-1) and $ZF(-2) calls from Cache Studio or Terminal have stopped launching the OS shell from Win10.
cmd (Windows Command Prompt) should be launched.
Configuration:
Windows 10 Anniversary Update, Ensemble 2016.2.0.585.0 Developer Edition x64
Is this common? I have enabled both %Developer role and a Cache CallOut privilege for all users that operate in this scenario.
In Terminal, W $ZF(-1) prints -1, W $ZF(-2) prints -1
In Studio, W $ZF(-1) hangs the IDE, W $ZF(-2) prints 0
In all four cases, cmd (Windows Command Prompt) is not launched!
Any ideas, anybody?
Thanks in advance. :-)
We don't often use SQL within our org, which is mostly due to the performance issue we experience due to the quantity of data we are reviewing.
Aside from the standard performance measures for non-Caché databases, are there any recommended approaches when querying large tables?
The table would have roughly 50M records, but there are not a finite amount of sub-nodes.
Have some free text fields in your application that you wish you could search efficiently? Tried using some methods before but found out that they just cannot match the performance needs of your customers? Do I have one weird trick that will solve all your problems? Don’t you already know!? All I do is bring great solutions to your performance pitfalls!
As usual, if you want the TL;DR (too long; didn’t read) version, skip to the end. Just know you are hurting my feelings.
If you open up your version of Sample.Company in the SAMPLES namespace of a recent (2015.1 or later) Caché/Ensemble/HealthShare version you will see a Mission field that is pseudo-randomly generated text. Suppose we want to search this text field. For the purpose of this exercise, I generated about 256,246 companies – feel free to populate some on your own and follow along. Well you might run the following query
I have a standard text file that is coming out of a system new line delimited. Each document will have the same field structure each time
Does anyone have a snippet to create the Namespace and database with defaults in one command?
Something like:
do ##class(Utils.Namespace).Create(Name)Please share?
Thank you in advance!
I am trying to write some code to check to see if a directory exists before creating a new directory.
When I do the following I am not getting a response, but the directory exists..
do ##class(%File).DirectoryExists("/ensemble/")
am I missing something?
I would like to integrate SQL into our ObjectScript routines in order to illustrate how SQL can be used to minimize development time. However, there are two questions I have.
We have a couple of systems that send us a URL link to a PDF instead of base 64 encoding it in the HL7 message. Has anyone ever tired to take that URL, and retrieve the file off of the server to save it off somewhere?
A new Health Connect customer has a few experienced Java folks on their interface team. As they get more into Health Connect and learn Caché ObjectScript they thought it would be useful to have a list of common Java statements with an equivalent statement in ObjectScript. They mentioned string manipulation as an example, but would be interested in other areas as well.
This seems like something that is probably already floating around somewhere. Does anyone have something like this or other "COS jumpstart for Java devs" materials?
Thanks,
Marc
How can I round to the next whole number?
.1 = 1
1.2 = 2
1.7 = 2
When try the following to send back SOAP Fault, is the following correct way?
Set fault=##class(%SOAP.Fault).%New()
Set fault.faultcode=$$$FAULTServer
Set fault.faultstring="Processing Error"
Set fault.detail= "Error on server"
Do ..ReturnFault(fault)
Got the error
Here are a few examples of conversions and operations you might need, along with links to documentation where you can learn more.
At the time I wrote this, Eastern Daylight Time was in effect for my Caché system.
Caché has a simple time format, with a longer range of recognized dates compared to some other technologies.
The current time is maintained in a special variable $HOROLOG ($H):
USER>WRITE $H 64146,54027 USER>
The first integer is the count of days since December 31, 1840. The second integer is the count of seconds since midnight of the current day.
You can also obtain the current time and date with $SYSTEM.SYS.Horolog()
Here's an easy one for you; before I spend another hour looking for the answer, how do you convert %ArrayOfDataTypes to an array (that could, say, fit into the %session.Data array, or maybe just some array named info()), and of course back again?
NS>s aodt=##class(%ArrayOfDataTypes).%New()
NS>w aodt.SetAt("lcavanaugh","username")
1
NS>w aodt.SetAt("organization","coolcompany")
1
NS>w ##class(%ArrayOfDataTypes).BuildValueArray(aodt,.array)
<LIST>zBuildValueArray+1^%Library.ArrayOfDataTypes.1
aodt must be serialzed. What?
NS>zw array
NS>
I try to run the cmd command in the studio terminal, but i am getting the <NOTOPEN> Error.
Even ZF(-1) also not working. Any help, Please!!!
Note: i restart the Cache instance service with full privilege
Code:
Set Path="mkdir E:\Sample\New"
Open Path:"QR":10
Error:<NOTOPEN>
This command working on my PC, but on server throws error.
Many Thanks
Hello,
I'm sending http request through %Net.HttpRequest and I have html page in response. Is there any built-in tool for beautify html for printing in terminal?
Thanks.
Can somebody explain this behaviour of Cache (and many other calculating machine as well) :
WRITE 1/3*12
4
WRITE 1/3*5
1.666666666666666667
W 1/3*18
5.999999999999999999
W 1/3*21
6.999999999999999999
W 1/3*24
7.999999999999999999
How can we make more occurate caculations in Cache ?
There is an interesting discussion in the Russian forum going.
What is the best solution for the function which returns the max for the set of parameters?
From the listed solutions I like this one:
ClassMethod max(args...) {
for i=1:1:args { s max(+$g(args(i))) = i }
s i="", max=$o(max(i),-1, i) Q $lb(max, i)
}
Hi,
I am using iknow text categorization to classify texts. I have 11 medical articles as my training set. Here is part of the source code
I was recently asked whether we have a function to convert LDAP date time stamps into $HOROLOG format or other formats and the answer is not at the moment, but there is a simple method to do the conversion.
Let us look at the facts and figures involved...
1) Active Directory's (AD) date 0 (zero) is 1601-01-01 00:00:00.000 or January 1st, 1601 at midnight (00:00:00)
2) AD timestamps are calculated as the number of 100 nanosecond intervals from date 0
3) 864000000000 is the number of 100 nanosecond intervals per day
4) The $HOROLOG format (Cache internal date) is a pair of numbers separated by a comma. The first number is the number of days since December 31st, 1840 and the second number is the number of seconds since midnight on the given day.
5) It is 87657 days from the 01/01/1601 to 01/01/1841, but not including the end date - so number of days pas
