1 %RegisteredObject 1 Publishing command" Set Command = ##class(WriteCommand).%New() Set Command.Tekst = Tekst Do Command.%Save() Set ID = Command.%Id() Use 227 Write ID Use 0 Write ", done..." do { Use 228 Read Reply Use 0 Write Reply,! } while $Piece(Reply, ",", 1) < ID Set Result = $Piece(Reply, ",", 2) Use 0 Write " result=", Result if (Result '= $$$OK) { Use 0 Write " [FAIL]" } Use 0 Write ! } ]]>