go to post Scott Roth · Mar 17 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.
go to post Scott Roth · Mar 13 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.
go to post Scott Roth · Mar 13 I am connecting to a MS SQL Server Database using JDBC. These columns can be up to 255 characters.
go to post Scott Roth · Mar 7 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.
go to post Scott Roth · Mar 4 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.
go to post Scott Roth · Mar 4 do I have to call foreach(<field>) { set list = $LB(<field>) } or can I foreach(<field>) { set list= $LI(<field>,<counter>) }
go to post Scott Roth · Feb 18 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.
go to post Scott Roth · Feb 4 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' />
go to post Scott Roth · Feb 3 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 }
go to post Scott Roth · Jan 24 Thanks, I was able to resolve my issues with JDBC and using Active Directory Password Authentication through Microsoft Entra. Connecting using JDBC to MS Azure SQL through Microsoft Entra and Active
go to post Scott Roth · Jan 24 I published an article based on my findings... Connecting using JDBC to MS Azure SQL through Microsoft Entra and Active
go to post Scott Roth · Jan 15 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....
go to post Scott Roth · Jan 14 I ended up putting statements into my BP that set the EnsLib.SQL.Snapshot variable = "" after use.
go to post Scott Roth · Jan 14 I am still working with WRC and Microsoft to determine where the issue is.
go to post Scott Roth · Jan 9 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.
go to post Scott Roth · Jan 9 We use the Gateway to make Queries and Stored Procedure calls from our Business Processes/Business Operations.
go to post Scott Roth · Jan 6 @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.
go to post Scott Roth · Dec 27, 2024 Thanks, this looks very helpful in the case where we are in EST, but Radiology reads might come from a CST.
go to post Scott Roth · Dec 27, 2024 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.
