1 %RegisteredObject Do ##class(APPS.P2L.P2LDisplayInput).Key(50,32) 1 DisplayAdres:%Integer,KeyCode:%Integer