Ending Focused $Order Loops
Now let's focus the end of the loop. Again, assume the variable substring holds the non-empty substring. Then the following statement: quit:($extract(ln, 1, $length(substring)) '= substring) means: “Quit if the beginning of ln doesn't match substring”. It also handles the case where $Order reaches the end of the names, where ln = "". That's because, if ln is the empty string, $Extract of ln is the empty string, and since substring isn't empty, the Quit happens and the loop ends.
VS Code - ObjectScript
Class ObjectScript.Examples { /// loop through last names that MATCH substring ClassMethod FocusedLoopStartEnd() { read "Search for: ",substring // find the last name just BEFORE the substring and then start looping set ln = $order(^PersonI("Name", substring), -1) for { set ln = $order(^PersonI("Name", ln)) // quit if no match or at end quit:($extract(ln, 1, $length(substring)) '= substring) write !, ln } } }
Copy code to clipboard
Testing using the Terminal
USER>do ##class(ObjectScript.Examples).FocusedLoopStartEnd() Search for: A Agee USER>do ##class(ObjectScript.Examples).FocusedLoopStartEnd() Search for: Jo Jones USER>do ##class(ObjectScript.Examples).FocusedLoopStartEnd() Search for: Jones Jones USER>do ##class(ObjectScript.Examples).FocusedLoopStartEnd() Search for: Ju USER>do ##class(ObjectScript.Examples).FocusedLoopStartEnd() Search for: Sw Swoboda USER>
Copy code to clipboard
