All
Accepted answers
Scott Roth · May 5, 2025 go to post

Adding a Pre-Processing Router on top seems like it would work, but it's not really efficient when you are struggling with processing, cpu, memory etc... it adds another process on top of everything else.

Scott Roth · May 5, 2025 go to post

My task class is calling another Method in another class file that is set to write, but when the Task ran, I got was a blank Output File.

Scott Roth · May 1, 2025 go to post

I just had a similar issue, where there were 25 sessions open with my name. We hit our limit of licenses, so I ended up killing what I was not using so it did not interrupt my team. I did not capture the Timeout (UTC) before I did it, but should of.

After I freed up sessions, I did notice that if I opened VSCode that /api/atelier sessions still opened after I had closed out VS Code. We have the CSP Inactivity Timeout on the Web Gateway to 24 hrs, so I don't know if those sessions were over that timeframe or not.

Scott Roth · Apr 28, 2025 go to post

I have an Identifier that I receive in an HL7 MFN message, I need to take this Identifier and find the Locations that the Identifier is associated with, so I can set the Sending Facility value within the HL7 message to help filter out specific locations from being sent to the Health Share Provider Directory.
for example... ID1 might be associated with Site 1, Site 3. IF site 1 is valued and equals xxx, then send on else do not send on.

Scott Roth · Apr 22, 2025 go to post

I was able to get it to work. I found that in Cache I need to call %Get("<column>") name vs what I am doing in a BPL.

 s Loc = ""
 s tStatement = ##class(%SQL.Statement).%New()
 s execall= "CALL osuwmc_Utils_EnterpriseDirDb.InterfaceCheckConnectMedCtrID(?)"
 s qStatus = tStatement.%Prepare(execall)
 if $$$ISERR(qStatus) {write "%Prepare failed:" do $SYSTEM.Status.DisplayError(qStatus) quit}
 set rset = tStatement.%Execute(pInput)
 while rset.%Next() {
 set Loc = rset.%Get("OSUguestRoleDTL")
 }
 if $Length(Loc) = 0 {
    set Loc = "OSUWMC"
 }
Scott Roth · Apr 14, 2025 go to post

The Class name is osuwmc.Epic.Clarity.DepartmentMaster and it is storing data in 

  • Data - ^E2C8.D9IS.1
  • BitmapExtent Index - ^E2C8.D9IS.2
  • IDIndex Index - ^E2C8.D9IS.3
  • IDKey Index - ^E2C8.D9IS.1
  • Indexes - ^E2C8.D9IS.I
  • Stream - ^E2C8.D9IS.S

I am not sure what to put in as the Global Name, would that be E2C8? and then the subscript to be mapped would be D9IS.*?

Scott Roth · Apr 14, 2025 go to post

I am also trying to map a Database table from one namespace to another. When I enter the following into the %ALL namespace as the global map, when I select from that table in the second namespace I get no results.

Scott Roth · Apr 3, 2025 go to post

The rule was just routing the message through a DTL and sending it to two places in the same line.

The message size was 12661.

My team member just ended up splitting up the send line into multiple send lines instead of a single send line with two destinations.

Scott Roth · Apr 2, 2025 go to post

interesting theory to try, someone on my team changed it to cover it to stream, and put it back into the message before this answer. the Physician memory usage went down, the virtual memory usage went up. However, the error seemed more at the Routing than the DTL. It may have something to do with Locking and trying to send to multiple locations in a single send.

Scott Roth · Apr 1, 2025 go to post

With the way that we built our namespaces, I had to create a smaller namespace that included all of our nuances that we do like... BPL making JDBC MS SQL Stored Procedure calls, making internal cache calls, making linked table/store procedure calls.

Larger namespaces will cause the comparison run to take longer to run.

So, my mini namespace is used to test new versions of HealthShare Health Connect.

Scott Roth · Mar 17, 2025 go to post

I ended up doing a BS for each query that I was pulling into an Internal Cache Table. Adding a Service and BP would cause more overhead system resource wise.

Scott Roth · Mar 13, 2025 go to post

The issue was with the query I was using. Those that wrote the query were renaming columns with ' ' but putting spaces in the new names. 

SELECT A AS 'ABC CDE' FROM TableName

I think there was the Typo in my service code, because I never use spaces and assumed that the column names did not have spaces.

Scott Roth · Mar 13, 2025 go to post

I am connecting to a MS SQL Server Database using JDBC. These columns can be up to 255 characters.

Scott Roth · Mar 7, 2025 go to post

I thought the EnsLib.JavaGateway.Service is its own JVM. I have many different JavaGateway Services build 1 for each database I connect to so I can make MS SQL Query/Stored procedure calls. 

But you want to make sure the %JDBC Server is running at the Server Level as well.

Scott Roth · Mar 4, 2025 go to post

Within a BP, you can create a Variable list, and just call

do context.<variable>.Insert(<value>)

and it will add it to the list. Now that I have that piece working, I need to figure out how to extract that list so I can create some logic around it.

Scott Roth · Mar 4, 2025 go to post

do I have to call

foreach(<field>)
{
  set list = $LB(<field>)
 }

or can I 

foreach(<field>)
{
 set list= $LI(<field>,<counter>)
}
Scott Roth · Feb 18, 2025 go to post

Nice comparison, also you have to take in account the processing speed as well. I found using Embedded SQL through a SQL Outbound Adapter can slow processing significantly down as it has to build the SQL in the connection to get results. I have a high-volume Business Process that required us to build a Stored Procedure on MS SQL instead of the Embedded SQL so that the SQL Server has the query already built.

Scott Roth · Feb 4, 2025 go to post

Within our DTC...

<assign value='source.GetFieldStreamRaw(.tStream,"ORCgrp(1).OBRgrp(1).OBXgrp(1).OBX:ObservationValue(1).AlternateText",.tRemainder)' property='tSC' action='set' />
<assign value='##class(osuwmc.Utils.Functions).DecodeBase64HL7ToFileFaxing(tStream,source.{MSH:SendingApplication.NamespaceID},source.{PID:PatientIdentifierList(1).IDNumber}_context.TextIDTemp_".PDF")' property='a' action='set' />
Scott Roth · Feb 3, 2025 go to post

With some help from the Developer community, below is a Function I wrote for our needs to take a Base64 and write it out to a PDF.

ClassMethod DecodeBase64HL7ToFileFaxing(base64 As %Stream.GlobalBinary, Ancillary As %String, FileName As %String) As %String
{
	set ArchDir = <directory>
	set ArchAncDir = ArchDir_Ancillary_"/"
	set FaxDateDir = ArchAncDir_$PIECE($ZDATE($HOROLOG,7)," ",1)_"-"_$PIECE($ZDATE($HOROLOG,7)," ",2)_"-1/"

	if '##class(%Library.File).DirectoryExists(ArchDir)
	{
		do ##class(%Library.File).CreateDirectory(ArchDir)
	}
	if '##class(%Library.File).DirectoryExists(ArchAncDir)
	{
		do ##class(%Library.File).CreateDirectory(ArchAncDir)
	}
	if '##class(%Library.File).DirectoryExists(FaxDateDir)
	{
 		do ##class(%Library.File).CreateDirectory(FaxDateDir)
 	}
	set Oref = ##class(%Stream.FileBinary).%New()

	$$$LOGINFO(FaxDateDir_FileName)

	set Oref.Filename = FaxDateDir_FileName

	Do base64.Rewind()
	While 'base64.AtEnd {
		set ln = base64.ReadLine()
		set lnDecoded = $system.Encryption.Base64Decode(ln)
		do Oref.Write(lnDecoded)
	}
	Do Oref.%Save()
	do ##class(%File).SetAttributes(Oref,33261,.return)
	set Oref = "" // Close file
	set PDFFilePath = "/Fax/PDFFiles/"_Ancillary_"/"_$PIECE($ZDATE($HOROLOG,7)," ",1)_"-"_$PIECE($ZDATE($HOROLOG,7)," ",2)_"-1/"_FileName
	return PDFFilePath
}
Scott Roth · Jan 15, 2025 go to post 
ClassMethod GroupIDExists(pHL7Msg As EnsLib.HL7.Message, pSegment As %String, pField As %String, pLookupTable As %String) As %Boolean
{
            #dim tSeg as EnsLib.HL7.Segment
            
            set tSegCount = pHL7Msg.SegCountGet()
            set i = 1
            Set tFound = 0
            //get new values
            set tval=""
            while ((i <= tSegCount) && (tval="")) {
                         
                        set tSeg = pHL7Msg.GetSegmentAt(i)
                        if (tSeg.Name = pSegment) {
                                    set tID = tSeg.GetValueAt(pField)
                                    set tval= ..Lookup(pLookupTable, tID)
                                                            
                        }
                        set i = i + 1 
            }
            if (tval '= "")
            {
                        Q 1 
            }
            quit 0
}

An example....

Scott Roth · Jan 14, 2025 go to post

I ended up putting statements into my BP that set the EnsLib.SQL.Snapshot variable = "" after use.

Scott Roth · Jan 14, 2025 go to post

I am still working with WRC and Microsoft to determine where the issue is.

Scott Roth · Jan 9, 2025 go to post

According to Microsoft, I had to download the 12.8 driver. But that did not work either, Microsoft is saying I need to install Maven and POM. 

Scott Roth · Jan 9, 2025 go to post

We use the Gateway to make Queries and Stored Procedure calls from our Business Processes/Business Operations.

Scott Roth · Jan 6, 2025 go to post

@Chandrasekar Angaiah 

My Init is as follows..

Method OnInit() As %Status

{

  Set ..InitDSN = ..Adapter.DSN

  //Set ..Adapter.ConnectAttrs = "QueryTimeout:45" ; try this too just in case...

  Set ..%Row.MaxRowsToGet = -1

  Quit $$$OK

}

When I try to compile, I am getting a %Row does not exist in this class.

Scott Roth · Dec 27, 2024 go to post

Thanks, this looks very helpful in the case where we are in EST, but Radiology reads might come from a CST.

Scott Roth · Dec 27, 2024 go to post

I ended up writing a function with some help from the Developer community to do this. The function basically iterates through the the HL7 message and check it against a Data Lookup Table. I am in the office in two week and will share it once I am back in the office.