1 1 TECH.RegisteredObject %String %Boolean 0 %Boolean 0 %Integer 0 %Status 1 1 1 %Status %GlobalCharacterStream 0 { #dim MeldingNr As %Integer = 0 For MeldingNr = 0 : 1 : (..MeldingNr-1) { If ($Data(^||vhConsistency.Check(MeldingNr))){ Do Stream.WriteLine($C(9)_^||vhConsistency.Check(MeldingNr)) } } } Quit Stream ]]> %Boolean 1 Melding:%String 1 Melding:%String Melding:%String 1 %Boolean %Integer 1 1 %Status 1