<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_emergeidall_STRING MM_editTable = "tbfu" MM_editRedirectUrl = "" MM_fieldsStr = "studyid|value|datefu|value|fuclinical|value|fuclinical4|value|fuclinical2|value|fuclinical5|value|fuclinical3|value|specAFB|value|afbculture|value|daysinisolation|value|tbtreatment|value|diagnosis|value|wbc|value|lymphocytes|value|bloodcultures|value|respcultures|value|spectype|value" MM_columnsStr = "studyid|',none,''|datefu|',none,''|fuclinical|none,'Y','N'|fuclinical4|none,'Y','N'|fuclinical2|none,'Y','N'|fuclinical5|none,'Y','N'|fuclinical3|none,'Y','N'|specafb|',none,''|afbcultures|',none,''|daysinisolation|',none,''|tbtreatment|',none,''|diagnosis|',none,''|wbc|',none,''|lymphocytes|',none,''|bloodcultures|',none,''|respcultures|',none,''|spectype|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> Untitled Document
Site hosted by Angelfire.com: Build your free website today!
Study ID Date of Followup Entry
What followup clinical information is available? (check all that apply)
  No followup information is available Telephone contact with patient
  Hospital record of admission Lab information from original ED visit
  Hospital record of follow-up clinic or ED       visit  
Number of specimens submitted for AFB smears: 0      1      2     3      >3
AFB Smear results: (check one) Not done   All negative   Positive (any)   unknown
AFB culture and susceptibility results (check one)
Length of stay in TB Isolation room: Days
Did the patient ever receive TB treatment? Yes       No        Unknown
Hospital discharge diagnosis:
  Pneumonia - bacterial, viral, etc Pneumocystis Carinii pneumonia
  TB Unknown
  Other  
CBC results from Initial Admission labs:
    WBC Total    % Lymphocytes
Blood Culture Results:  
  Blood Cultures not done Blood cultures positive-Strep. pneumoniae
  Blood Cultures negative Blood cultures positive - other organism

Respiratory Specimen Culture results:

  Respiratory cultures not done respiratory cultures positive Strep. pneumoniae
  Respiratory cultures negative or reported as normal flora Respiratory cultures positive- other pathogen
Speciment type for above respiratory culture results:
  Respiratory cultures not done bronchoscopy specimen
  Sputum - coughed up trans-tracheal aspirate
  endotracheal tube aspirate unknown specimen type