Code Snippet | InterSystems Developer Community

Question

Justin Wilson · May 9, 2018

I have been tasked with creating a class that will handle error logging in a consistent manor for an application I am working on. The need is to have all variables in the calling method logged along with some other information.

The example given was zwrite which is exactly what I need, however, I somehow need to capture the output of ZW and put it into a database table. Any easy way to capture this data? I was able to dump ZW to a file, but that is not ideal.

Any help is appreciated!

#Code Snippet #Caché

0 8

0 1.1K

Question

Eduard Lebedyuk · Apr 5, 2018

Drawing boxes

Hello, Community!

Here's an interesting task I found on the Internet.

Problem description

Write a method that would draw a box of a specified size.

The goal is to write the shortest method.

Here's a method signature (it can't be modified):

ClassMethod main(s As %Integer = 10)

And call sample:

>do ##class(ITPlanet.Task4).main(5)
#####
## ##
# # #
## ##
#####

>do ##class(ITPlanet.Task4).main(10)
##########
##      ##
# #    # #
#  #  #  #
#   ##   #
#   ##   #
#  #  #  #
# #    # #
##      ##
##########
 
>do ##class(ITPlanet.Task4).main(20)
####################
##                ##
# #              # #
#  #            #  #
#   #          #   #
#    #        #    #
#     #      #     #
#      #    #      #
#       #  #       #
#        ##        #
#        ##        #
#       #  #       #
#      #    #      #
#     #      #     #
#    #        #    #
#   #          #   #
#  #            #  #
# #              # #
##                ##
####################

#Caché #Code Snippet

2 15

0 578

Question

Token Ibragimov · Apr 2, 2018

How to set space in numbers

Hello!

Is it possible in cache to divide numbers with spaces. For example number 12500 divide to 12 500?

Thank you!

#Code Snippet #Object Data Model #Caché

0 5

0 374

Question

Scott Roth · Feb 9, 2018

Mix case function

Does anyone have a function they built to change a name from all lower case, or all upper case to mix case?

Thanks

Scott Roth

#Code Snippet #ObjectScript #Caché

0 6

0 816

Question

Evgeny Shvarov · Nov 30, 2017

How to Map Class Package to a Namespace Programmatically

Hi folks!

Is there a one line command to map class package A to Namespace ASPACE?

#Code Snippet #Namespace #ObjectScript #Mapping #Caché

1 7

1 1K

Question

Aniket Kumar · Oct 27, 2017

Not able to edit code via Atelier

I successfully connected the Cache instance to Atelier but I can just view the code and not edit it. Any suggestions ?

Thanks

Kumar

#Code Snippet

0 3

0 410

Question

Murillo Braga · Aug 31, 2017

Extract piece of string

Hello guys,

I was wondering whether there is another alternative to extracting a certain string out from a bigger one, rather than using the function $piece.

Maybe regular expressions? Another specific function?

Example:

Big string:

NAD+SLA+++TextIsHereNAD+SLA+++TextIsHere

String I want to extract:

TextIsHere

Function I'm already using:

#Code Snippet #Ensemble #ObjectScript #Caché

0 3

0 667

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

Ranjith Narasimha · Jun 15, 2017

cache program to compare two files

How can i compare two files using cache program, i need this for unit testing purpose

#Code Snippet #Object Data Model #Caché

0 6

0 740

Question

Eduard Lebedyuk · May 24, 2017

How do I get a list of files in directory including subdirectories?

I'm aware of two ways to get list of files in a dir:

set dir = "C:\temp\"
set rs = ##class(%File).FileSetFunc(dir, , , 1)
do rs.%Display()

and:

set dir = "C:\temp\"
set file=$ZSEARCH(dir_"*")
while file'="" {
   write !,file
   set file=$ZSEARCH("")
}

Yet they bot return only files and directories in a current directory, but not files in subdirectories.

I suppose I call one of these recursively, but maybe there's a better solution?

#Beginner #Caché #Code Snippet

1 25

1 3.7K

Question

Evgeny Shvarov · May 26, 2017

What Is the Best Object Callback for Insert Operations: %OnBeforSave(), %OnAddToSaveSet(), %OnAfterSave()

Hi!

I'm saving object instance using RestForms.

RESTFormsUI calls %Save() for me, which is great. But I want to set the property CreationDate with the current date for every new record being inserted.

So object callback implementation seems as a reasonable option. I did the following:

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

0 15

0 818

Question

Evgeny Shvarov · Jan 24, 2017

How to calculate percentage of all for a member in DeepSee?

Hi, All!

What is the calculated measure expression for the percentage of a member?

Say in Holefoods I want to see in a Cols Online sales in Revenue, All the revenue and % of Online sales for the Revenue?

I have the following:

With expression:

#Analytics #Code Snippet #MDX #InterSystems IRIS BI (DeepSee)

0 5

0 496

Question

Evgeny Shvarov · Dec 18, 2016

How to exclude substring(s) from a string

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:

#Code Snippet #ObjectScript #Caché

0 2

0 413

Question

Peter Steiwer · Dec 12, 2016

Iterating through all properties of an object

Is there a better way to iterate through all properties of an object than the following? Perhaps without needing to open a definition of the class but directly against the object?

#Code Snippet #Object Data Model #Caché #InterSystems IRIS

4 6

1 3.1K

Question

Evgeny Shvarov · Nov 22, 2016

Create Namespace snippet

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!

#Code Snippet #Namespace #ObjectScript #Caché

1 4

0 745

Question

DQ Hu · Nov 7, 2016

SOAP Fault handling with ERROR #5659: Property '%ZHSLIB.Audit.LogParticipant::Log' required

Environment: Cache for Windows (x86-64) 2015.2.2 (Build 811U) Thu Mar 3 2016 12:55:48 EST [HealthShare Modules:Core:14.01.351

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)

#Business Service #Code Snippet #ObjectScript #SOAP #HealthShare

0 1

0 675

Question

Juliana Schallert · Jul 20, 2016

ConvertJSONToObject not working when 1st element of a list is blank

Hi,

I am new to Cache and I am trying to convert a JSON string (msgdata) that contains a JSON payload to an object to be saved into a Driver. Entity table. I am running into 2 issues and would appreciate any help:

1) It seems that when the 1st element of a list within the payload (Choices) is an empty string, after I call %ConvertJSONToObject, the obj.%data("payload").Choices contains just 1 empty element, removing the next 3 valid values (10,20,30). The same does not happen if I change the input to [10,20,"",30], in this case it works correctly.

#Code Snippet #Caché

0 3

0 973

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 682

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.3K

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 488

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 484

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 423

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.4K

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.3K

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.8K

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:

#Change Management #Perforce #Code Snippet #Ensemble

0 6

0 429

Question

Scott Beeson · Feb 8, 2016

Variable scope in .mac routine?

Given the following code:

#Code Snippet #Caché

0 11

0 580

Question