New post
Question
· Mar 24

HL7 OBX 5 modification

#Analytics #Caché

I need to make changes to  OBX 5 which shows as immutable

I have tried ConstructClone, ThrowOnError, and Streams but I can't get the syntax correct

Example

OBX|1|TX|2000.02^REASON FOR REQUEST^AS4|142|REASON FOR REQUEST:      Total Cost:           0.00||||||O
                                        ^^^^ remove "REASON FOR REQUEST"                                                                            ^^ add cr/lf so down stream reports can be formatted more easily

I have the code done to parse out the "REASON FOR REQUEST" but I need to make the OBX 5 show the change.

Before:

OBX|1|TX|2000.02^REASON FOR REQUEST^AS4|142|REASON FOR REQUEST:      Total Cost:           0.00||||||O
OBX|1|TX|2000.02^REASON FOR REQUEST^AS4|143|Special Instructions: ||||||O
OBX|2|CE|^PROVISIONAL DIAGNOSIS|1|R52^Pain, unspecified^I10|O|||||||||||test|\0x0A\0x0D\

After

OBX|1|TX|2000.02^REASON FOR REQUEST^AS4|142|      Total Cost:           0.00||||||O

blank line added
OBX|1|TX|2000.02^REASON FOR REQUEST^AS4|143|Special Instructions: ||||||O
OBX|2|CE|^PROVISIONAL DIAGNOSIS|1|R52^Pain, unspecified^I10|O|||||||||||test|\0x0A\0x0D\

FYI

Set pRequest = ##class(EnsLib.HL7.Message).%OpenId(284)
Set pOutput = pRequest.%ConstructClone()
zw pOutput
pOutput=14@EnsLib.HL7.Message ; <OREF>

+----------------- general information ---------------
| oref value: 14
| class name: EnsLib.HL7.Message

| reference count: 2
+----------------- attribute values ------------------
| %ClonedId = 284
| %Concurrency = 1 <Set>
|%maps("runtimeIndex") = 149
|%maps("runtimeIndex",0) = ""
| AutoBuildMap = 0
| BuildMapStatus = ""
| CacheSegsGotten = 1
| DocType = "2.3:ORM_O01" <Set>
| DocTypeCategory = 2.3
| DocTypeName = "ORM_O01"
| Envelope = ""
| IsMutable = 1 <Set>     <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

I tried concantonating cr/lf.

The do statement doesn't work

 If (tItemNumberCount > 1) && (tTotalCostSegment > 0) {

                Set tOBXSegment = pRequest.GetSegmentAt("ORCgrp(1).OBRuniongrp.OBXgrp("_tTotalCostSegment_").OBX", .tStatus)

                Set tOBXText = tOBXSegment.GetValueAt(5)_"\X0D\\X0A\"  // Append escaped CR/LF representation

                Do tOBXSegment.SetValueAt(tOBXText, 5)     <<<<<<<<<<<<<<<<<<<<<<<<<<

            }

Discussion (2)1
Log in or sign up to continue
Bot DC AI · Mar 24

To make changes to the OBX-5 segment, which is immutable, you can follow these steps:

  1. Clone the Message: Use the %ConstructClone() method to create a mutable copy of the original HL7 message.
  2. Modify the OBX-5 Segment: Extract the OBX-5 segment, modify it as needed, and then set the modified value back into the cloned message.

Here is a general approach:

  1. Clone the Original Message:

    Set pRequest = ##class(EnsLib.HL7.Message).%OpenId(284)
Set pOutput = pRequest.%ConstructClone()

  2. Extract and Modify the OBX-5 Segment:

    Set tOBXSegment = pRequest.GetSegmentAt("ORCgrp(1).OBRuniongrp.OBXgrp("_tTotalCostSegment_").OBX", .tStatus)
Set tOBXText = tOBXSegment.GetValueAt(5)
Set tOBXText = $REPLACE(tOBXText, "REASON FOR REQUEST: ", "") _ "\X0D\\\X0A\"
Do tOBXSegment.SetValueAt(tOBXText, 5)

  3. Store the Modified Segment:

    Set tSC = pOutput.SetSegmentAt(tOBXSegment, "ORCgrp(1).OBRuniongrp.OBXgrp("_tTotalCostSegment_").OBX")

This approach ensures that the OBX-5 segment is modified correctly and the changes are reflected in the cloned message. For more detailed instructions, refer to the relevant documentation on handling HL7 messages and segments [1].

0 0