1 APPS.PM.OL.Common,vhLib.Macro 1 %RegisteredObject 0 %Boolean 1 %Boolean 1 %String 1 IKenmerkBuilder list %String array 1 Prod.Kenmerk.Product 1 1 flagReadOnly:%Boolean=1 %Status 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) } Else { Set sc=$$$OK } Quit sc ]]> 1 UnIDsIterator:TECH.Iterator %Status 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