go to post Jeffrey Drumm · Jun 25 I'm assuming you mean one target field, since a segment in HL7 starts with a segment identifier like PID or PV1 and contains a string of fields separated by field delimiters (normally the "|" character). If, for example, you want to copy the Patient First Name and Last Name separated by a space character into a single field, you could do this: The underscore character is the concatenation operator in IRIS, so the example is taking: source.{PIDgrpgrp(1).PIDgrp.PID:PatientName(1).GivenName}, Concatenating it with a space character followed by source.{PIDgrpgrp(1).PIDgrp.PID:PatientName(1).FamilyName}, then storing it in target.{PIDgrpgrp(1).PIDgrp.PID:PatientName(1)}. This effectively replaces the entire field with just the patient's first and last name. My example uses the HL7 2.5.1 schema; your field paths may be different based on the version of HL7 you're using.
go to post Jeffrey Drumm · Jun 20 OK, I'm pretty sure I found the problem. Studio's default compiler flags are "cbk" and VS Code's were set to "cuk." I changed VS Code to match and it appears the issue is resolved. EDIT: Weirdly, the tooltip text is not updated ... EDIT 2: If the first line of the comment in the source contains HTML tags, the tooltip reverts to some earlier iteration of the comment (no idea where it's finding that). However, the popup is correct. Removing the tag(s) from the first line causes the tooltip to display the specified comment. So ... if you want your tooltip to match the first comment line, make sure it has no HTML tags!
go to post Jeffrey Drumm · Jun 1 @Robert Cemper pointed you in the right direction. However the USER namespace is not normally enabled for Interoperability. You can create your own database(s)/namespace(s) in the Management Console and they would default to being interoperability-enabled, or you can enable USER for Interoperability with the following command: Do ##class(%EnsembleMgr).EnableNamespace("USER",1)
go to post Jeffrey Drumm · May 29 The credentials entered at the Web Gateway login page are not related to any credentials stored in IRIS. They're controlled solely by the Username and Password entries in the [SYSTEM] section of CSP.ini. If those entries are deleted from CSP.ini, you should bypass the login page completely. Note that if you're using a standalone web server on an IRIS installation that's been upgraded from an earlier version, there may be multiple CSP.ini files. For example, I work with an IRIS installation that has been upgraded many times and is now using a standalone web server; the original CSP.ini for the previously-included "private" web server is in the <install-dir>/sys/csp/bin/ folder, but the active CSP.ini is in /opt/webgateway/conf/.
go to post Jeffrey Drumm · May 28 ^Ens.AppData is the target of the $$$EnsStaticAppData macro, which is referenced in these classes: Ens.Adapter.clsEns.Util.File.clsEnsLib.EDI.EDIFACT.Operation.BatchStandard.clsEnsLib.EDI.X12.Document.clsEnsLib.EDI.X12.Operation.BatchStandard.clsEnsLib.EDI.X12.Operation.FileOperation.clsEnsLib.File.InboundAdapter.clsEnsLib.FTP.InboundAdapter.clsEnsLib.HL7.Operation.BatchStandard.clsEnsLib.RecordMap.Operation.FileOperation.clsEnsLib.SQL.InboundAdapter.clsEnsLib.SQL.InboundProcAdapter.clsEnsLib.SQL.Operation.GenericOperation.clsEnsLib.SQL.Snapshot.cls
go to post Jeffrey Drumm · May 28 You can't specify a DocType Name in a routing rule, at least directly. By specifying the docName, you're both selecting the message by Message Type/Trigger Event and identifying the structure (DocType Name) that will be used to parse the message in the rule. If you look at the HL7 v2.3 DocType Category via the Management Console in Interoperability | Interoperate | HL7 v2.x | HL7 v2.x Message Structures | 2.3, then select the ADT_A04 Message Type, you'll see this: This means that an A04 event will be evaluated/parsed using the structure defined for an A01; the DocType Name (Message Structure) is ADT_A01.
go to post Jeffrey Drumm · May 5 Are you dealing with multiple DocTypes and Categories of messages going to Epic, or are all messages the same schema? I know you're not crazy about a custom operation, but if you take a look at the source for EnsLib.HL7.Operation.TCPOperation, you'll see that it would be dead simple to copy/extend it, add a check for the population of the Ordering Provider field, and the logic to populate it with a default if it's empty.
go to post Jeffrey Drumm · May 5 From within your task, you can obtain the task's classname with $CLASSNAME() and query the %SYS.Task table using the TaskClass of your task to fetch the OutputFilename column. If you want to use that file under your direct control, you can set "Open output file when task is running" to "yes," enter the full path of the filename, then set the previous setting back to "no." The filename will remain in the table. If you're calling the same class under multiple Task schedules or with different configurations, the schedule values and settings are also available to help you refine your selection. Settings are stored in $LIST() format. EDIT: You can also define a Filename property in the task class, assuming it's a custom class. It will show up as a configurable field in the task editor. That way you don't have to deal with the OutputFilename settings.
go to post Jeffrey Drumm · May 4 Usually, OBX segments are either defined as repeating segments or members of repeating segment groups. The syntax you'll use will vary depending on the HL7 Document Category and Structure you're using in your DTL. In HL7 2.5.1, the OBX segment itself is non-repeating, but is part of a repeating group (OBXgrp) inside another repeating group (ORCgrp) inside yet another repeating group (PIDgrpgrp). You first need to get the count of the total number of OBX segments, which you can do by supplying the "*" character in the iteration argument to the source path's OBXgrp(). Add 1 to that, and you have your iteration for the new OBX segment. Use that value as the iteration for the new OBX segment and populate the fields as needed, as in the example below: The above assumes that the OBX segments are the last segments in the message. If they're not and the message requires another OBX at the very end, it's a bit more complicated ... you'd create a new segment object, populate it, then use the AppendSegment method to slap it on the end of the target:
go to post Jeffrey Drumm · Apr 27 Until such time as InterSystems provides synchronization for security components across mirror members, you can save a bit of effort by exporting them on the primary and importing them on the alternate server via the ^SECURITY routine in the %SYS namespace. At least you won't need to create them manually. You can do the same for users, roles, resources and a few other things as well. All of these have ObjectScript methods for accomplishing the same in the Security package.
go to post Jeffrey Drumm · Apr 17 There really is no list of "Standard" settings. You can use whatever section name you desire and it will appear in the list of settings for the business host in the production. Most adapters provide the settings Basic, Connection, and Additional. However if the setting you're creating doesn't fit any of those categories, you can create your own with the "MySetting:MyCategory" format. The documentation for creating business host settings can be found here. EDIT: After reviewing the documentation, I discovered that there are a set of predefined categories and they're listed here.
go to post Jeffrey Drumm · Apr 5 Are you using VS Code? With the Intersystems plugins installed, IRIS Terminal Lite is available on version 2025.1. Unless the Linux system admin has set session timeouts for ssh, you shouldn't be timing out. The default settings (for Redhat and Ubuntu, at least) do not time you out.
go to post Jeffrey Drumm · Mar 27 Glad you got it working. I feel I should mention that I specifically told you to just that 2 days ago ... quoted here: There are a few issues with this code, but the biggest one is that you've created a clone and should be modifying the clone (pOutput) exclusively. However, you're still calling SetValueAt() against a segment pulled from pRequest. The above notwithstanding, you're still sending the original unchanged message object (pRequest) to the target operation with the SendRequestAsync() call. Fundamentally, you should: Create a clone of the request object pRequest (i.e. pOutput) Modify the clone, which is a mutable copy of the original message Send the modified clone (pOutput) to the target operation
go to post Jeffrey Drumm · Mar 26 You're cloning the source message inside the While loop that is iterating over segments within the message. That's not doing anything useful. Clone the message, then iterate over its OBX segments, making whatever changes are necessary. Before sending it with SendRequestAsync(), do a pOutput.%Save().This snippet below is completely untested and there are other enhancements I would make to it, but I'm not going to be available for a while, so here's something to play with. It's a cleaned up version of the code snippet you provided above. Note that there is not a single call to GetSegmentAt() ... it's an unnecessary extra step. // Message Subtype Set tMessageSubType = pRequest.GetValueAt("ORCgrp(1).ORC:1") // // Check if OBR:19 contains "Implant Usage (PSAS)" OR "Issued in Clinic (PSAS)" Set tOrderType = pRequest.GetValueAt("ORCgrp(1).OBRuniongrp.OBRunion.OBR:19(1).1") If ((tOrderType["Implant Usage (PSAS)") || (tOrderType["Issued in Clinic (PSAS)")) { // First loop: Count occurrences of "Item Number:" Set i = 1 Set tItemNumberCount = 0 While (pRequest.GetValueAt("ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX")'="") { Set tOBXText = pRequest.GetValueAt("ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX.5", .tStatus) // If (tOBXText [ "Item Number:") { Set tItemNumberCount = tItemNumberCount + 1 } // If (tOBXText[ "Total Cost:") { Set tTotalCostSegment = i //$$$LOGINFO(tTotalCostSegment_" ------ "tTotalCostSegment check Total Cost") } Set i = i + 1 } // Second loop: Modify OBX segments if necessary Set i = 1 Set tItemNumberProcessed = 0 Set pOutput = pRequest.%ConstructClone(1) // moved here because %ConstructClone() need only be done at the message object level. While (pOutput.GetValueAt("ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX")'="") { Set tOBXText = pOutput.GetValueAt("ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX.5", .tStatus) // using pOutput instead of pRequest If (tOBXText [ "Item Number:") { Set tItemNumberProcessed = tItemNumberProcessed + 1 } If (tItemNumberCount > 1) && (tOBXText [ "REASON FOR REQUEST:") { set tOBXKey = i Set tOBXText=$p(tOBXText,":",2,5) /// OBX 5 text parsed to replace in OBX 5 later // Start replacement process Do pOutput.SetValueAt(tOBXText,"ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX.5") $$$LOGINFO(tOBXText_" ---- OBX 5 parsed to be saved in new OBX 5") /// works Set tOBXTextChanged = pOutput.GetValueAt("ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX.5") $$$LOGINFO(i_tOBXTextChanged_" --- i --- tOBXTextChanged, Is OBX 5 changed???") } Set i = i + 1 } } Do pOutput.%Save()
go to post Jeffrey Drumm · Mar 26 %ConstructClone() need only be done at the message object level. And I'm not sure why you're extracting segments to update them; you can use SetValueAt() against the message object instead a segment object ... For example this code: Set tOBXSegmentpOutput = pOutput.GetSegmentAt("ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX", .tStatus) Do tOBXSegmentpOutput.SetValueAt(tOBXText, 5) Is functionally identical to: Do pOutput.SetValueAt(tOBXText,"ORCgrp(1).OBRuniongrp.OBXgrp("_i_").OBX.5") That should help simplify the code. You shouldn't need to do a "deep clone" for this, so the "1" argument to %ConstructClone() is optional.
go to post Jeffrey Drumm · Mar 25 Somewhere between the %ContstructClone() call and the SetValueAt() call, you'll be using the GetSegmentAt() method of the clone to get the segment object into tOBXSegmentpOutput. The syntax of the SetValueAt() call should have the string to store as the first argument rather than the pOutput message object. tOBXSegmentpOutput is a reference to the segment in the clone message. It should not need to be explicitly saved, and I'm pretty sure SaveData() doesn't do what you think it does anyway.
go to post Jeffrey Drumm · Mar 25 There are a few issues with this code, but the biggest one is that you've created a clone and should be modifying the clone (pOutput) exclusively. However, you're still calling SetValueAt() against a segment pulled from pRequest. The above notwithstanding, you're still sending the original unchanged message object (pRequest) to the target operation with the SendRequestAsync() call. Fundamentally, you should: Create a clone of the request object pRequest (i.e. pOutput) Modify the clone, which is a mutable copy of the original message Send the modified clone (pOutput) to the target operation
go to post Jeffrey Drumm · Mar 25 The code sample you've provided above is pulling the OBX segment from pRequest, not the clone. pRequest is immutable so you can't make changes to it. You should be using the pOutput object for your SetValueAt() calls, and since it's a clone you can use it for the GetValueAt() calls as well. I provided pretty much everything you need to do this via a DTL in your other post on this subject. If you're worried about keeping things simple for ongoing support, the DTL solution is likely the better option.
go to post Jeffrey Drumm · Mar 20 You can do this by creating a collection object in a code block, and iterate over the comma-separated string to populate it: Set tArray = ##class(%ArrayOfDataTypes).%New() For i = 1:1:$LENGTH(LookupVal,",") { Do tArray.SetAt($PIECE(LookupVal,",",i),i) } You can now iterate over the collection variable in the for each action:
go to post Jeffrey Drumm · Mar 15 Here's how I would approach this using a DTL ... Create a counter variable to hold the number of occurrences of "Item Number:" Use a for each action to iterate over the OBX segments In the for each, create an if action that checks for the presence of "Item Number:" in OBX:5 (using ..Contains()) If the action is true, increment the counter variable Example: On completion of the for each, you should have a value that indicates the presence of more than one "Item Number." Next, update the OBXs: Create another counter variable to track occurrences of "Item Number" to be used for comparison Add another for each action to perform the modifications to the OBX segments Use the $REPLACE() or ..Replace() functions to replace "REASON FOR REQUEST:" in each OBX:5 with an empty string Add an if action to check the OBX:5 field for "Item Number:"; increment the new counter variable if found Add an if action to evaluate the new counter variable against the original; if it's less than the original, add a line break (not actual $C(13)/$C(10) characters, but escaped representation such as \.br\ or \X0D\\X0A\; likely vendor-dependent) Example: