TECH.RegisteredObject 1 Pos:%String 0 { w !, $Piece(^KLE(x,0),"\",Pos) Set Counter = $Increment(Counter) } } w:Counter>0 !! w "Er zijn "_Counter_" aantal waardes gevonden." ]]> d ##class(zTryout.PBO.Scripts.GlobalPieceChecker).PrintGlobalsWithSpecifiedPiece("15", "1054142") 1 Pos:TECH.String,Value:TECH.String x:"_x_", y:"_y) If $Piece(^PRHIST(x,y),"\",Pos) = Value { w !, "^PRHIST("_x_","_y_") = "_^PRHIST(x,y) } Set Counter = Counter + 1 } } ]]>