Compile function Create_Dialog_Listener(DialogID, PassedParentID, Mode, InitParam)

    $Insert LOGICAL

    Declare function Create_Dialog_Redirect, Datetime
    Declare subroutine Database_Services
    
*    EventTime = Datetime()
*    Database_Services('WriteDataRow', 'FORM_METRICS', DialogID:'*':@User4:'*':EventTime, '', True$, False$, False$)
    
    Ans = Create_Dialog_Redirect(DialogID, PassedParentID, Mode, InitParam)
    
Return Ans

