Compile function Dialog_Box_Listener(DialogID, PassedParentID, InitParam)

    $Insert LOGICAL

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

