1 APPS.PM.OL.Common 1 TECH.RegisteredObject %Boolean 1 %Boolean 1 %String 1 IKenmerkBuilder list %String array 1 Prod.Kenmerk.Product 1 TECH.File.FileWriter 1 1 flagReadOnly:%Boolean=1 %Status 1 UnIDs:%ListOfDataTypes,flagReadOnly:%Boolean=1 flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status 0 ) Quit sc ]]> 1 1 1 %Status 1 1 UnID 1 Prod.Kenmerk.Product 1 %Status 0 { Set UnIDiterator=##class(TECH.ListIterator).%New(ListOfUnIDs) Set sc=..GenerateForUnIDs(UnIDiterator) } Quit sc ]]> 1 UnIDsIterator:TECH.Iterator %Status 0 { Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("Er is een fout opgetreden bij het aanmaken van KenmerkObjecten.") Do Exceptie.VoegToeInnerExcepties(InnerExcepties) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } Quit sc ]]> 1 1 0 1 %Status See method Write() Text:%String="" 1 Dedicated method to write output to file (only if the flag is set to true) Text:%String="" 1 Dedicated method to write output to the terminal. In case the process is already writing to a specific device (to file), then the output device will be switched. Text:%String 1