User comments | InterSystems Developer Community

Eduard Lebedyuk · Sep 20, 2024 go to post

Great article, Ron!

ICD, DSM, SNOMED, and other classifiers on Coruscant must be crazy.

Eduard Lebedyuk · Sep 20, 2024 go to post

I think projecting as an attribute is enough. Here's an example:

Class Utils.Message Extends (%RegisteredObject, %XML.Adaptor)
{

Parameter XMLNAME = "ID";

Property scope As %String(XMLPROJECTION = "ATTRIBUTE");

}

DTL:

Class Utils.DTL Extends Ens.DataTransformDTL
{

XData DTL [ XMLNamespace = "http://www.intersystems.com/dtl" ]
{
<transform sourceClass='Ens.Request' targetClass='Utils.Message' create='new' language='objectscript' >
<assign value='"Message"' property='target.scope' action='set' />
</transform>
}

/// do ##class(Utils.DTL).Test()
ClassMethod Test()
{
	set source = ##class(Ens.Request).%New()
	#dim target As Utils.Message
	set sc = ..Transform(source, .target)
	do target.XMLExportToString(.xml)
	w xml, !
}

}

Results in:

>do ##class(Utils.DTL).Test()

<ID scope="Message"></ID>

Eduard Lebedyuk · Sep 20, 2024 go to post

My recommended approach is to call routines in a silent mode if at all possible, or to do minimal modifications to add silent mode. But here's how you can work with read using input redirection:

ClassMethod Test() [ ProcedureBlock = 0 ]
{
    set tOldIORedirected = ##class(%Device).ReDirectIO()
    set tOldMnemonic = ##class(%Device).GetMnemonicRoutine()
    set tOldIO = $io
    try {
        set str=""
        //Redirect IO to the current routine - makes use of the labels defined below
        use $io::("^"_$ZNAME)

        //Enable redirection
        do ##class(%Device).ReDirectIO(1)

        set x = ..MyLegacyRoutine()
    } catch ex {
        do ex.Log()
    }

    //Return to original redirection/mnemonic routine settings
    if (tOldMnemonic '= "") {
        use tOldIO::("^"_tOldMnemonic)
    } else {
        use tOldIO
    }
    do ##class(%Device).ReDirectIO(tOldIORedirected)
    
    w !,"x is: ",x,!
    w "Routine wrote to device: ", str

    //Labels that allow for IO redirection
    //Read Character
rchr(time)  quit "a"
    //Read a string
rstr(len,time) quit "xyz"
    //Write a character - call the output label
wchr(s)      do output($char(s))  quit
    //Write a form feed - call the output label
wff()        do output($char(12))  quit
    //Write a newline - call the output label
wnl()        do output($char(13,10))  quit
    //Write a string - call the output label
wstr(s)      do output(s)  quit
    //Write a tab - call the output label
wtab(s)      do output($char(9))  quit
    //Output label - this is where you would handle routine device output.
    //in our case, we want to write to str
output(s)    set str=str_s   quit
}

ClassMethod MyLegacyRoutine()
{
    read "Input x: ",x
    write "Hello!"
    return x
}

}

It outputs:

x is: xyz
Routine wrote to device: Input x: Hello!

Eduard Lebedyuk · Sep 19, 2024 go to post

February 31st?

Eduard Lebedyuk · Sep 19, 2024 go to post

The easiest way would be to run on the first day of a month and send results for a previous month.

Another way you can do it is to create a schedule which runs 9:00 am to 9:30 am every day (or 28-31) and checks if this is a last day of a month before doing anything.

Schedule is limited to Max String length, so you can also generate a very long schedule once. For example this code would produce a schedule for the next 10 years:

/// date - start date. Must be the last day of the month.
/// months - how many months to generate
ClassMethod Test(date = "2024-09-30", months = 120)
{
	while $i(months,-1)>=0 {
		set year = $system.SQL.DATEPART("year", date)
		set month = $tr($j($system.SQL.DATEPART("month", date), 2), " ", 0)
		set day = $system.SQL.DATEPART("day", date)
		write $$$FormatText("START:%1-%2-%3T09:00:00,STOP:%1-%2-%3T09:30:00,", year, month, day)
		set date = $system.SQL.DATEADD("day", -1, $system.SQL.DATEADD("month", 1, $system.SQL.DATEADD("day", 1, date)))
	}
}

Schedule

START:2024-09-30T09:00:00,STOP:2024-09-30T09:30:00,START:2024-10-31T09:00:00,STOP:2024-10-31T09:30:00,START:2024-11-30T09:00:00,STOP:2024-11-30T09:30:00,START:2024-12-31T09:00:00,STOP:2024-12-31T09:30:00,START:2025-01-31T09:00:00,STOP:2025-01-31T09:30:00,START:2025-02-28T09:00:00,STOP:2025-02-28T09:30:00,START:2025-03-31T09:00:00,STOP:2025-03-31T09:30:00,START:2025-04-30T09:00:00,STOP:2025-04-30T09:30:00,START:2025-05-31T09:00:00,STOP:2025-05-31T09:30:00,START:2025-06-30T09:00:00,STOP:2025-06-30T09:30:00,START:2025-07-31T09:00:00,STOP:2025-07-31T09:30:00,START:2025-08-31T09:00:00,STOP:2025-08-31T09:30:00,START:2025-09-30T09:00:00,STOP:2025-09-30T09:30:00,START:2025-10-31T09:00:00,STOP:2025-10-31T09:30:00,START:2025-11-30T09:00:00,STOP:2025-11-30T09:30:00,START:2025-12-31T09:00:00,STOP:2025-12-31T09:30:00,START:2026-01-31T09:00:00,STOP:2026-01-31T09:30:00,START:2026-02-28T09:00:00,STOP:2026-02-28T09:30:00,START:2026-03-31T09:00:00,STOP:2026-03-31T09:30:00,START:2026-04-30T09:00:00,STOP:2026-04-30T09:30:00,START:2026-05-31T09:00:00,STOP:2026-05-31T09:30:00,START:2026-06-30T09:00:00,STOP:2026-06-30T09:30:00,START:2026-07-31T09:00:00,STOP:2026-07-31T09:30:00,START:2026-08-31T09:00:00,STOP:2026-08-31T09:30:00,START:2026-09-30T09:00:00,STOP:2026-09-30T09:30:00,START:2026-10-31T09:00:00,STOP:2026-10-31T09:30:00,START:2026-11-30T09:00:00,STOP:2026-11-30T09:30:00,START:2026-12-31T09:00:00,STOP:2026-12-31T09:30:00,START:2027-01-31T09:00:00,STOP:2027-01-31T09:30:00,START:2027-02-28T09:00:00,STOP:2027-02-28T09:30:00,START:2027-03-31T09:00:00,STOP:2027-03-31T09:30:00,START:2027-04-30T09:00:00,STOP:2027-04-30T09:30:00,START:2027-05-31T09:00:00,STOP:2027-05-31T09:30:00,START:2027-06-30T09:00:00,STOP:2027-06-30T09:30:00,START:2027-07-31T09:00:00,STOP:2027-07-31T09:30:00,START:2027-08-31T09:00:00,STOP:2027-08-31T09:30:00,START:2027-09-30T09:00:00,STOP:2027-09-30T09:30:00,START:2027-10-31T09:00:00,STOP:2027-10-31T09:30:00,START:2027-11-30T09:00:00,STOP:2027-11-30T09:30:00,START:2027-12-31T09:00:00,STOP:2027-12-31T09:30:00,START:2028-01-31T09:00:00,STOP:2028-01-31T09:30:00,START:2028-02-29T09:00:00,STOP:2028-02-29T09:30:00,START:2028-03-31T09:00:00,STOP:2028-03-31T09:30:00,START:2028-04-30T09:00:00,STOP:2028-04-30T09:30:00,START:2028-05-31T09:00:00,STOP:2028-05-31T09:30:00,START:2028-06-30T09:00:00,STOP:2028-06-30T09:30:00,START:2028-07-31T09:00:00,STOP:2028-07-31T09:30:00,START:2028-08-31T09:00:00,STOP:2028-08-31T09:30:00,START:2028-09-30T09:00:00,STOP:2028-09-30T09:30:00,START:2028-10-31T09:00:00,STOP:2028-10-31T09:30:00,START:2028-11-30T09:00:00,STOP:2028-11-30T09:30:00,START:2028-12-31T09:00:00,STOP:2028-12-31T09:30:00,START:2029-01-31T09:00:00,STOP:2029-01-31T09:30:00,START:2029-02-28T09:00:00,STOP:2029-02-28T09:30:00,START:2029-03-31T09:00:00,STOP:2029-03-31T09:30:00,START:2029-04-30T09:00:00,STOP:2029-04-30T09:30:00,START:2029-05-31T09:00:00,STOP:2029-05-31T09:30:00,START:2029-06-30T09:00:00,STOP:2029-06-30T09:30:00,START:2029-07-31T09:00:00,STOP:2029-07-31T09:30:00,START:2029-08-31T09:00:00,STOP:2029-08-31T09:30:00,START:2029-09-30T09:00:00,STOP:2029-09-30T09:30:00,START:2029-10-31T09:00:00,STOP:2029-10-31T09:30:00,START:2029-11-30T09:00:00,STOP:2029-11-30T09:30:00,START:2029-12-31T09:00:00,STOP:2029-12-31T09:30:00,START:2030-01-31T09:00:00,STOP:2030-01-31T09:30:00,START:2030-02-28T09:00:00,STOP:2030-02-28T09:30:00,START:2030-03-31T09:00:00,STOP:2030-03-31T09:30:00,START:2030-04-30T09:00:00,STOP:2030-04-30T09:30:00,START:2030-05-31T09:00:00,STOP:2030-05-31T09:30:00,START:2030-06-30T09:00:00,STOP:2030-06-30T09:30:00,START:2030-07-31T09:00:00,STOP:2030-07-31T09:30:00,START:2030-08-31T09:00:00,STOP:2030-08-31T09:30:00,START:2030-09-30T09:00:00,STOP:2030-09-30T09:30:00,START:2030-10-31T09:00:00,STOP:2030-10-31T09:30:00,START:2030-11-30T09:00:00,STOP:2030-11-30T09:30:00,START:2030-12-31T09:00:00,STOP:2030-12-31T09:30:00,START:2031-01-31T09:00:00,STOP:2031-01-31T09:30:00,START:2031-02-28T09:00:00,STOP:2031-02-28T09:30:00,START:2031-03-31T09:00:00,STOP:2031-03-31T09:30:00,START:2031-04-30T09:00:00,STOP:2031-04-30T09:30:00,START:2031-05-31T09:00:00,STOP:2031-05-31T09:30:00,START:2031-06-30T09:00:00,STOP:2031-06-30T09:30:00,START:2031-07-31T09:00:00,STOP:2031-07-31T09:30:00,START:2031-08-31T09:00:00,STOP:2031-08-31T09:30:00,START:2031-09-30T09:00:00,STOP:2031-09-30T09:30:00,START:2031-10-31T09:00:00,STOP:2031-10-31T09:30:00,START:2031-11-30T09:00:00,STOP:2031-11-30T09:30:00,START:2031-12-31T09:00:00,STOP:2031-12-31T09:30:00,START:2032-01-31T09:00:00,STOP:2032-01-31T09:30:00,START:2032-02-29T09:00:00,STOP:2032-02-29T09:30:00,START:2032-03-31T09:00:00,STOP:2032-03-31T09:30:00,START:2032-04-30T09:00:00,STOP:2032-04-30T09:30:00,START:2032-05-31T09:00:00,STOP:2032-05-31T09:30:00,START:2032-06-30T09:00:00,STOP:2032-06-30T09:30:00,START:2032-07-31T09:00:00,STOP:2032-07-31T09:30:00,START:2032-08-31T09:00:00,STOP:2032-08-31T09:30:00,START:2032-09-30T09:00:00,STOP:2032-09-30T09:30:00,START:2032-10-31T09:00:00,STOP:2032-10-31T09:30:00,START:2032-11-30T09:00:00,STOP:2032-11-30T09:30:00,START:2032-12-31T09:00:00,STOP:2032-12-31T09:30:00,START:2033-01-31T09:00:00,STOP:2033-01-31T09:30:00,START:2033-02-28T09:00:00,STOP:2033-02-28T09:30:00,START:2033-03-31T09:00:00,STOP:2033-03-31T09:30:00,START:2033-04-30T09:00:00,STOP:2033-04-30T09:30:00,START:2033-05-31T09:00:00,STOP:2033-05-31T09:30:00,START:2033-06-30T09:00:00,STOP:2033-06-30T09:30:00,START:2033-07-31T09:00:00,STOP:2033-07-31T09:30:00,START:2033-08-31T09:00:00,STOP:2033-08-31T09:30:00,START:2033-09-30T09:00:00,STOP:2033-09-30T09:30:00,START:2033-10-31T09:00:00,STOP:2033-10-31T09:30:00,START:2033-11-30T09:00:00,STOP:2033-11-30T09:30:00,START:2033-12-31T09:00:00,STOP:2033-12-31T09:30:00,START:2034-01-31T09:00:00,STOP:2034-01-31T09:30:00,START:2034-02-28T09:00:00,STOP:2034-02-28T09:30:00,START:2034-03-31T09:00:00,STOP:2034-03-31T09:30:00,START:2034-04-30T09:00:00,STOP:2034-04-30T09:30:00,START:2034-05-31T09:00:00,STOP:2034-05-31T09:30:00,START:2034-06-30T09:00:00,STOP:2034-06-30T09:30:00,START:2034-07-31T09:00:00,STOP:2034-07-31T09:30:00,START:2034-08-31T09:00:00,STOP:2034-08-31T09:30:00

If you're okay with February 28th for leap years a schedule can be simplified to 12 entries with * in the year.

If all of the above is not an option create a separate Business Service which runs on a first day of a month, calculates last day of a month and sets a correct schedule for BO.

Eduard Lebedyuk · Sep 17, 2024 go to post

$System.OBJ.Load() your installation routine?

Eduard Lebedyuk · Sep 13, 2024 go to post

Great Article, Vic!

Please consider embedding URLs.

Also there are Object and SQL interfaces to journal records, which sometimes might be useful.

Eduard Lebedyuk · Sep 12, 2024 go to post

WQM is a recommended and preferred approach, but here's an article which might be helpful to you.

Eduard Lebedyuk · Sep 9, 2024 go to post

$zf should work:

w $zf(-100,"/SHELL","eventcreate","/ID",1,"/L","APPLICATION","/T","INFORMATION","/SO","MYEVENTSOURCE","/D","My first log")

Eduard Lebedyuk · Sep 9, 2024 go to post

Congratulations, Benjamin!

Eduard Lebedyuk · Sep 6, 2024 go to post

While I agree that ideally you'd run two IRIS nodes in two geographically close but fully separate datacenters, running IRIS in a mirror with both servers in the same datacenter still provides protection from:

Server hardware failure
OS-level failure
IRIS failure

In addition to that datacenters often allow users to specify placement strategy. Select spread placement strategy to avoid hosting both servers on the same underlying hardware if possible.

So mirroring in this scenario still provides a lot of advantages.

Eduard Lebedyuk · Aug 30, 2024 go to post

Sure, you have two approaches:

Define a message class with XMLPROJECTION=NONE for the properties you want to skip
Redefine %ShowContents method for your message class to skip some of the properties (check Ens.Util.MessageBodyMethods for a sample implementation).

Eduard Lebedyuk · Aug 30, 2024 go to post

What BO are you using?

Eduard Lebedyuk · Aug 29, 2024 go to post

Done

Eduard Lebedyuk · Aug 26, 2024 go to post

In that case you need to implement REST API and call that.

Eduard Lebedyuk · Aug 26, 2024 go to post

~~Are you in the interop context? If yes, SendSync/SendAsync should be available for you.~~

If not, check this article.

Eduard Lebedyuk · Aug 23, 2024 go to post

Use %Classname(1) method?

Eduard Lebedyuk · Aug 21, 2024 go to post

Can you copy FOP to two places (or each job at a start copies FOP to it's own dir) and call it in parallel after that. Would that work?

Eduard Lebedyuk · Aug 16, 2024 go to post

I recommend using embedded python and boto3.

Eduard Lebedyuk · Aug 9, 2024 go to post

I agree that

[ CodeMode = objectgenerator ]

is certainly outside of this code golf conditions (method signature should not be changed), but it's still a creative example.

Eduard Lebedyuk · Aug 8, 2024 go to post

^IRIS.Msg("EnsColumnsNAMESPACENAME,"en"

Can be mapped to your DB, so you won't lose the changes on update (and also you won't need to make ENSLIB RW).

Eduard Lebedyuk · Aug 8, 2024 go to post

*i is a great idea.

Eduard Lebedyuk · Aug 7, 2024 go to post

Check DATEDIFF.

Eduard Lebedyuk · Aug 7, 2024 go to post

There are to valid ways to solve this code golf:

Create a program that contains all ASCII characters in the source code (so it does not have to print anything)
Create a program which prints ASCII characters not present in a source code

Both approaches are valid, sample solution uses approach 1.

"Print out" is any output the program produces so if you for example add 1/0 at the end it might save you a few characters.

Eduard Lebedyuk · Aug 7, 2024 go to post

Well, in that case you might as well do this (down to 41):

ClassMethod ascii() [ CodeMode = objectgenerator ]
{
 f i=0,27,0:1:94 d %code.Write($c(i+32))
}

Eduard Lebedyuk · Aug 7, 2024 go to post

I am very interested how compilation flags help you with this.

Eduard Lebedyuk · Aug 6, 2024 go to post

it's like cheating

Reflective programming is not cheating!

Eduard Lebedyuk · Aug 5, 2024 go to post

42 characters so far.

Eduard Lebedyuk · Aug 1, 2024 go to post

Pinging @Stefan Wittmann

Eduard Lebedyuk · Jul 15, 2024 go to post

Class methods are recommended for use in all cases.

While classes provide an overhead, this is usually negligible.

User statistics