Index: AX/common/impl/Formatter.cls.xml =================================================================== diff -u -r34401 -r34408 --- AX/common/impl/Formatter.cls.xml (.../Formatter.cls.xml) (revision 34401) +++ AX/common/impl/Formatter.cls.xml (.../Formatter.cls.xml) (revision 34408) @@ -96,8 +96,7 @@ #dim LandCodeUit As %String = "" #dim LandCode As %String = "" - For { - Set LandCode=$Order(^ISO(0,"ISO.LAND",LandCode)) Quit:(LandCode="")||($$$HasLength(LandCodeUit)) + For { Quit:$$$HasLength(LandCodeUit) Set LandCode=$Order(^ISO(0,"ISO.LAND",LandCode)) Quit:(LandCode="") If $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",1) = LandCodeIn { Set LandCodeUit = $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",35) }