Code Snippet | InterSystems Developer Community

Question

Rustam Ibragimov · Jul 12, 2016

How to access routine

Hello, everyone!

I opened one project and there I found such lines as

$$Export^%occXMLExport(filename,"-d /diffexport",InternalName)

#Caché #Code Snippet #ObjectScript

1 3

0 723

Question

Timothy Leavitt · Jul 8, 2016

Best way to compare two arrays for "equality" (same subscripts and values)

I've been trying to write a method to compare two local variables, which may be arrays, for "equality" - that is, to see if they have all the same subscripts (if they're arrays) and values. This is the best I've come up with so far - are there any better/simpler approaches out there?

#Code Snippet #ObjectScript #Caché

3 6

0 1.4K

Question

Marc Mundt · Jun 21, 2016

Looking for a good routine/class for purging Caché backups

A customer is using Caché online backups and needs to automatically purge the cbk files with a scheduled task.

This is a wheel has been reinvented uncountable times already and I know somebody out there has a well written, extremely robust version that has already stood the test of time.

Does anyone have a nice routine/class/task for purging old Caché backup files?

#Code Snippet #Backup #Caché

0 10

1 1.6K

Question

Francis Galiegue · Apr 25, 2016

Determining whether a class, which you only have the name of, is a unit test class... I know this code sucks; but how to fix it properly?

Hello,

Here's the code:

#Code Snippet #ObjectScript #Caché

0 6

0 513

Question

Jose Antonio Ca... · Apr 1, 2016

How to extract column sorting of %ZEN.tablePane with or without snapShot

Hi all,

I've been looking for a way to extract the sorting from the ^CacheTemp.zenData global that contain the tablePane snapshot data in order to use it on a report following the current UI sorting criteria.

I could see that if the column is sorted by one column, new entries with this structure are created:

^CacheTemp.zenData(<sessionId>,<snapShotId>,<tablePaneId>,"index",<columnId>,<value>,<dataId>)=""

#Caché #Code Snippet #ZEN

0 6

0 513

Question

Eduard Lebedyuk · Mar 28, 2016

How to display or save stack information?

Hello.

For debugging purposes I sometimes need to display stack information to the current device or save it (to a global for example).

There is this snippet offered in documentation:

ClassMethod StackToDisplay()
{
    For loop = 0:1:$Stack(-1) {
        Write !, "Context level:", loop, ?25, "Context type: ", $Stack(loop)
        Write !, ?5, "Current place: ", $Stack(loop, "PLACE")
        Write !, ?5, "Current source: ", $Stack(loop, "MCODE")
        Write !
    }
}

And to save stack to a global there's always an exception method:

#Code Snippet #Debugging #Object Data Model #Caché

0 11

0 1.5K

Question

Josh Barney · Mar 24, 2016

Help with Mime attachment HTTP post request

I believe the I have followed the instructions to attach a document to the body of a post request but nothing is being sent out in the files{} port of the request. I can either get the stream in "data", not visible at all, or visible but no form data. Any help would be appreciated, below is what I have:

#Code Snippet #REST API #Frontend #Caché

1 3

0 2.4K

Question

Evgeny Shvarov · Mar 23, 2016

Get coordinates against street address

Hi!

Does anyone have an example of subj?

I know there is google service for it. Anyone uses it in production? What is the feedback?

In case of positive feedback would you please post the code example?

TIA!

#Caché #Code Snippet

0 5

0 442

Question

David Reche · Feb 16, 2016

Manage data types with %ZEN.proxyObject and Ens.Util.JSON.ObjectToJSONStream()

Hello,

I am trying to use %ZEN.proxyObject to send out in JSON format so I do:

set tProxyRequest = ##class(%ZEN.proxyObject).%New()
set tProxyRequest.notanumber = "28001"
set tProxyRequest.aboolean = "true"

set tBody = ##class(%GlobalCharacterStream).%New()
do ##class(Ens.Util.JSON).ObjectToJSONStream(tProxyRequest,.tBody,"aelotwu")
w tBody.Read()

and I get:

#Code Snippet #Interoperability #JSON #Frontend #ZEN #Caché

0 10

0 1.5K

Question

Scott Beeson · Feb 16, 2016

Concatenate columns in results with GROUP BY?

Here is my original query:

SELECT EventType, InitiatedAt, COUNT(*) as cnt
FROM HS_IHE_ATNA_Repository.Aggregation
WHERE EventType = 'LOGIN'
AND LocalDateTime > '2016-02-16 11:00:00'
GROUP BY EventType, InitiatedAt

This gives me data like this:

#Code Snippet #Databases #SQL #Caché

0 3

0 6.9K

Question

Scott Beeson · Feb 11, 2016

Ens.Rule.FunctionSet without parameter?

I'm writing some custom functions for use in a routing rule. I have a few that are working, but right now I'm trying to use one that has no parameters. Typically this would be a sub instead of a function, but I'm not familiar enough with Cache to know what I need to do here.

Here is the code:

#Code Snippet #Debugging #Perforce #Ensemble

0 6

0 455

Question

Scott Beeson · Feb 8, 2016

Variable scope in .mac routine?

Given the following code:

#Code Snippet #Caché

0 11

0 621

Question

Alexander Koblov · Feb 5, 2016

How to convert JSON to %ListOfDataTypes?

Hi.

It is easy to receive JSON representation or dynamic Array from %ListOfDataTypes:

set l=##class(%ListOfDataTypes).%New()
do l.Insert("a")
do l.Insert("b")
do l.Insert("c")

set arrStr=l.$toJSON()
zwrite arrStr
set arr=l.$compose([])
zwrite arr

How to make backward conversion? How to receive %ListOfDataTypes from dynamic Array an JSON string?

I've tried

#Code Snippet #Interoperability #JSON #Caché

2 3

0 1.4K

Question

Scott Beeson · Jan 21, 2016

[SOLVED (KIND OF)] Missing something obvious trying to do a lookup in a method

So calling this lookup manually from the console works as expected:

PHR>set key = "WMMC_IMM"
PHR>w ##class(Ens.Util.FunctionSet).Lookup("BlockFeed",key)
1

However, calling it from a method with some concatination to build the key is giving me problems:

#Beginner #Code Snippet #Ensemble #Unstructured Data