Page History

Transfer Param1 to EntityID 
Transfer Param2 to ApptID 
Transfer Param3 to Location 
Transfer Param4 to MousePoint 
Transfer Param5 to ShiftIsPressed 
Transfer Param6 to CtrlIsPressed 

// Parse the point 
X = Field(MousePoint, ",", 1) 
Y = Field(MousePoint, ",", 2) 

// Based on the current view, determine the time beneath the mouse 
CurrentView = Get_Property(@Window:".OLE_SCHEDULE", "OLE.View") 
Begin Case 
   Case CurrentView EQ "SingleDay" 
       TimeVal = Send_Message(Ctrl, "OLE.MapClientToTime", Y, 0) 
       Time = OConv(TimeVal, "MTH") 
   Case CurrentView EQ "SingleDayHorz" 
       TimeVal = Send_Message(Ctrl, "OLE.MapClientToTime", X, 0) 
       Time = OConv(TimeVal, "MTH") 
   Case CurrentView EQ "MultiDayHorz" 
       TimeVal = Send_Message(Ctrl, "OLE.MapClientToTime", X, 0) 
       Time = OConv(TimeVal, "DT2/^H'") 
End Case 
    
// Show the time in the SRP StatusBar Control 
Set_Property(@Window:".OLE_STATUSBAR", "OLE.PaneCaption[2]", Time)