<% ' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "1" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("pvd_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields1(36) Dim arFormDBFields1(36) Dim arFormValues1(36) arFormFields1(0) = "C2" arFormDBFields1(0) = "C2" arFormValues1(0) = Request("C2") arFormFields1(1) = "C12" arFormDBFields1(1) = "C12" arFormValues1(1) = Request("C12") arFormFields1(2) = "C23" arFormDBFields1(2) = "C23" arFormValues1(2) = Request("C23") arFormFields1(3) = "date of intervention" arFormDBFields1(3) = "date_of_intervention" arFormValues1(3) = Request("date of intervention") arFormFields1(4) = "C3" arFormDBFields1(4) = "C3" arFormValues1(4) = Request("C3") arFormFields1(5) = "C13" arFormDBFields1(5) = "C13" arFormValues1(5) = Request("C13") arFormFields1(6) = "C24" arFormDBFields1(6) = "C24" arFormValues1(6) = Request("C24") arFormFields1(7) = "C4" arFormDBFields1(7) = "C4" arFormValues1(7) = Request("C4") arFormFields1(8) = "C14" arFormDBFields1(8) = "C14" arFormValues1(8) = Request("C14") arFormFields1(9) = "describe kidney" arFormDBFields1(9) = "describe_kidney" arFormValues1(9) = Request("describe kidney") arFormFields1(10) = "C25" arFormDBFields1(10) = "C25" arFormValues1(10) = Request("C25") arFormFields1(11) = "C5" arFormDBFields1(11) = "C5" arFormValues1(11) = Request("C5") arFormFields1(12) = "C15" arFormDBFields1(12) = "C15" arFormValues1(12) = Request("C15") arFormFields1(13) = "C26" arFormDBFields1(13) = "C26" arFormValues1(13) = Request("C26") arFormFields1(14) = "C6" arFormDBFields1(14) = "C6" arFormValues1(14) = Request("C6") arFormFields1(15) = "C16" arFormDBFields1(15) = "C16" arFormValues1(15) = Request("C16") arFormFields1(16) = "C27" arFormDBFields1(16) = "C27" arFormValues1(16) = Request("C27") arFormFields1(17) = "C7" arFormDBFields1(17) = "C7" arFormValues1(17) = Request("C7") arFormFields1(18) = "C17" arFormDBFields1(18) = "C17" arFormValues1(18) = Request("C17") arFormFields1(19) = "C28" arFormDBFields1(19) = "C28" arFormValues1(19) = Request("C28") arFormFields1(20) = "C8" arFormDBFields1(20) = "C8" arFormValues1(20) = Request("C8") arFormFields1(21) = "C18" arFormDBFields1(21) = "C18" arFormValues1(21) = Request("C18") arFormFields1(22) = "C29" arFormDBFields1(22) = "C29" arFormValues1(22) = Request("C29") arFormFields1(23) = "C9" arFormDBFields1(23) = "C9" arFormValues1(23) = Request("C9") arFormFields1(24) = "C19" arFormDBFields1(24) = "C19" arFormValues1(24) = Request("C19") arFormFields1(25) = "surgery intervention" arFormDBFields1(25) = "surgery_intervention" arFormValues1(25) = Request("surgery intervention") arFormFields1(26) = "C30" arFormDBFields1(26) = "C30" arFormValues1(26) = Request("C30") arFormFields1(27) = "C20" arFormDBFields1(27) = "C20" arFormValues1(27) = Request("C20") arFormFields1(28) = "C31" arFormDBFields1(28) = "C31" arFormValues1(28) = Request("C31") arFormFields1(29) = "C10" arFormDBFields1(29) = "C10" arFormValues1(29) = Request("C10") arFormFields1(30) = "C21" arFormDBFields1(30) = "C21" arFormValues1(30) = Request("C21") arFormFields1(31) = "C32" arFormDBFields1(31) = "C32" arFormValues1(31) = Request("C32") arFormFields1(32) = "C1" arFormDBFields1(32) = "C1" arFormValues1(32) = Request("C1") arFormFields1(33) = "C11" arFormDBFields1(33) = "C11" arFormValues1(33) = Request("C11") arFormFields1(34) = "C22" arFormDBFields1(34) = "C22" arFormValues1(34) = Request("C22") arFormFields1(35) = "reason for no exercising" arFormDBFields1(35) = "reason_for_no_exercising" arFormValues1(35) = Request("reason for no exercising") FP_SaveFormFields fp_rs, arFormFields1, arFormDBFields1 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "pvd.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> PVD

   

 

 

 

 

PHYSICIANS

 

BILLING CONCERNS    

 

PAY YOUR BILL

 

APPOINTMENTS          

 

INSURANCE

 

TAKE IT TO HEART   

   

PATIENT SURVEY        

 

COMMON CONDITIONS    

 

Peripheral Vascular Questionnaire


Please complete the following questionnaire and bring to your next appointment

Name: 

Date of Birth: 

Today's date: 

Do you experience aching, cramping or pain in your arms, legs, thighs or buttocks when you walk or exercise?

Yes    No

If you answered yes to question 1, does the pain subside with rest?

Yes    No

Do you have numbness and tingling in the arms or lower legs and feet?

Yes    No

Are your fingers or toes pale, discolored, or bluish?

Yes    No

Are your hands or feet cold to the touch?

Yes    No

Do you have any painful sores or ulcers on legs or fee that don't heal?

Yes    No

Do you now, or have you ever smoked cigarettes?

Yes    No

Do you have emphysema?

Yes    No

Do you have High blood pressure?

Yes    No   

Have you had any problems with your kidneys?

Yes    No

If yes, please describe:


 

Do you have High cholesterol?

Yes    No

Do you have Diabetes?

Yes    No

Do you exercise on a regular basis?

Yes    No

If not, what keeps you from exercising?


 

Are you more than 25 pounds overweight?

Yes    No

Do you have a family history of diabetes or cardiovascular problems? (immediate family such as parent, sister, brother)

Yes    No

Have you ever experienced a stroke, mini-stroke or percutaneous interventions on your peripheral circulation?

Yes    No

If yes, what surgery or intervention was performed?


 

When was that procedure performed?


 


Nancy Carr
Copyright © 2003 Baker-Gilmour Cardiovascular Institute. All rights reserved.
Revised: 05/12/09

 

 

Send mail to ncarr@bakergilmour.com with questions or comments about this web site.
Last modified: 11/08/09