in business rule , it cannot valuate the value in iteration?

Question

Question

Yuhong Snyder · Dec 23, 2024

We have a customized doctype with iterated PIDgrp, so I have a rule that needs to evaluate the pv1:3.1 value to decide which operation the HL& message should go, so I debugged the value in the rule and it definitely should go to the when #2 but it just won't. so did I do anything wrong or it is just the InterSystems doesn't like the iteration value here? I only need to evaluate the first pv1:3.1

Product version: IRIS 2024.3

Discussion (4)2

Log in or sign up to continue

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.

0 0

score 0 · Answer 1 · 2024-12-23T15:45:47-05:00

I got with the resource and this is clarified, with when, only the first true condition will be executed. any other condition after the first one won't be executed.

score 0 · Answer 2 · 2025-01-01T10:49:38-05:00

Yuhong Snyder · Jan 1

Thank you Scott.

0 0

score 0 · Answer 3 · 2025-01-15T09:07:11-05:00

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....