Lincoln Memorial University-
DeBusk College of Osteopathic Medicine

Interest Form

J. Michael Wieting, DO
Dean of Clinical Medicine
6965 Cumberland Gap Parkway, Harrogate, TN, 37752
Phone: 423-869-7406          Fax: 423-869-7078           kari.hoskins@lmunet.edu

David Metcalf, PA-C, MPAS
Director of Preceptor Recruitment and Development, LMU-DCOM PA Program
Phone: 423-869-7755        Fax: 423-869-6672         david.metcalf@lmunet.edu

">

Name

Name of Employer, Group or Solo Practice

Address

City    State       Zip

Phone

Fax

Board Certification (list)

AOA# (if applicable)

Hospital Privileges(City and State)

Contact Person (Practice Manager or Other Contact)

Contact Person Phone

Contact Person Fax

Contact Person Email

Member of Tennessee Osteopathic Medical Associati on? Yes No

Clinical Rotations:

Hospital Supervision
Med Students - Yes
Med Students - No
PA Students - Yes
PA Students - No

Office Preceptorship/Clerkship
Med Students - Yes
Med Stu dents - No
PA Students - Yes
PA Students - No

I will take students on a regular basis.

This is a one- time commitment

If one-time commitment, please provide student's name:

Other Areas of Interest:

Lectures on Campus
Med Students - Yes
Med Students - No
PA Students - Yes
PA Students - No

Facilitate and Teach on Campus (OMM and/or Clinical Skills Labs)
Med Students - Yes
Med Students - No
PA Students - Yes
PA Students - No

Full Time or Part Time Campus Faculty
Med Students - Yes
Med Students - No
PA Students - Yes
PA Students - No

Participate in Student Interview Process
Med Students - Yes
Med Students - No
PA Students - Yes
PA Students - No

Participate in Student Shadowing and DO Letter of Recommendation to LMU-DCOM
Med Students - Yes
Med Students - No
PA Students - Yes
PA Students - No

Other special interests:


<%=recaptcha_challenge_writer()%>

 

<% else %> <% 'Using CDOsys with Basic authentication in Classic ASP 'Original Author: Unknown 'Heavily Modified by: Joshua Cantrell 'Last Revision Date: 07-30-2009 'If authentication is enabled, it requires access to a mailbox on your account. 'reports 'mailFailed' - true or false 'and 'strErr' - Mail server error response 'and 'strErrCode' - Mail server numerical error response (as string) 'currently disabled 'dimension all variables (essential if 'option expicit' used) dim strHost, strErr, mailFailed dim strBody, strName, strMail dim strSubject, strFrom, strTo, strCC, strBCC, strReplyTo dim strAutoMailbox, strEmPass, ix dim fieldName, fieldValue, intFields Dim strLeft, strRedir, strRedirect Dim strNoprint 'modify for yourDomain ********************************************* 'your mail server strHost = "10.10.1.11" 'address of your outgoing mailbox 'this will appear in the headers as the originating mailbox 'strAutoMailbox = "formmail@ourarea.com" 'password for your AutoMailbox 'strEmPass = "1234" 'the name and email that appears in the "From:" line (can be different to above) 'strFrom = strName & "<" & strMail & ">" 'where to send the mail 'strTo = "janette.martin@lmunet.edu" strTo = Request.Form("zz_form_to") strTo = strTo & "@lmunet.edu" 'set the redirect variable strRedir = Request.Form("zz_redirect_to") if strRedir = "dcom" Then strRedirect = "http://www.lmunet.edu/dcom/thanks.shtml" elseif strRedir = "lmu" Then strRedirect = "http://www.lmunet.edu/thanks.shtml" end if 'where to send copies (optional) strCC = "" strBCC = "" '********************************************************************** 'collect details from the form *************************** strName = Request.Form("Name") strMail = Request.Form("Email") if strMail = "" Then strMail = "webmaster@lmunet.edu" end if 'create the "Reply To:" i.e. the name and email of the form user strFrom = strName & "<" & strMail & ">" strReplyTo = strName & "<" & strMail & ">" 'create subject string strSubject = Request.Form("zz_form_subject") 'create Body string strBody = strBody & "***************************************************" & vbCrLf 'This method will result in an unsorted form 'I left it here for reference only 'To enable it, add x to the variable list above 'and uncomment. 'For Each x In Request.Form 'strBody = strBody & x & ": " & Request.Form(x) & vbcrLf 'Next 'This method induces a count to sort the form based on 'the order of the form elements in the HTML strLeft = Left(fieldName,2) strLeft = lcase(strLeft) For ix = 1 to Request.Form.Count fieldName = Request.Form.Key(ix) fieldValue = Request.Form.Item(ix) strLeft = Left(fieldName,2) strLeft = lcase(strLeft) if strLeft <> "zz" then if lcase(fieldValue) <> "submit" then strBody = strBody & fieldName & ": " & fieldValue & vbcrLf end if end if Next 'Adds the referring page and the IP details of sender to the mail body (optional) strBody = strBody & "Requested from " & Request.ServerVariables("http_referer") & vbCrLf strBody = strBody & "Requested by " & Request.ServerVariables("REMOTE_ADDR") _ & " at " & Request.ServerVariables("REMOTE_HOST") _ & ". Server time: " & time & " " & Date & " " & vbcrlf 'note the '_' continuation character, if spreading code to the next line for readability 'send the mail ************************************************** ******* 'initialise the error response string strErr = "" 'Const cdoBasic = 1 'Use basic (clear-text) authentication. Const cdoSendUsingPort = 2 Dim iMsg Dim iConf Dim Flds Dim sMsg On Error Resume Next set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic '.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strAutoMailbox '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strEmPass .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 100 .Update End With With iMsg Set .Configuration = iConf .To = strTo 'To .From = strFrom 'From: if strReplyTo <> "" then .ReplyTo = strReplyTo 'add ReplyTo: if exists end if if strCC <> "" then .CC = strCC 'add CC if exists end if if strBCC <> "" then .BCC = strBCC 'add BCC if exists end if .Subject = strSubject 'add the subject .TextBody = strBody 'add the body (this is plain text) .Send 'send the mail strErr = Err.description 'response (empty if no problems) 'note: Err.number was not available when tested live End With 'clean up Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing 'prepare report flag and string if strErr = "" then mailFailed = false strErr = "Your mail has been sent." else mailFailed = true end if %> <% 'report result 'response.write (strErr) Response.Redirect strRedirect %> <%end if%>