Injury Log Code

From FeMR Wiki
Jump to navigation Jump to search

Place holder for a generic description. Most times the code will be brought in from a template and no modifications will be required.

Removal

Some clients may use a differing method of logging injuries to the body during a medical exam. If code remove is found to be necessary, the following steps can be used.

ASP

Locate the fieldsets named divinjuryblock# where # is a block of 25 log entries, for example there is typically a divinjuryblock1 and divinjuryblock2. These fieldsets can be collapsed and wholly deleted.

VB

Protected Sub Page_Load comment out FillInjuryLog() for each "IF" load reason

sub disablefields comment out all injury items block/locator/type/area/description

sub btninjuryblock# comment out all code until end sub

sub FillInjuryLog delete everything

sub writeinjurylogtodb# delete everything

Protected Sub btnOverride_Click delete

 
      dsInjuryLogData = GetTable("tblInjuryLog2", "InjuryLog", "AND varBodyArea = 'Anterior' ORDER BY intRowNumber")

      intTotalRows = dsInjuryLogData.Tables("InjuryLog").Rows.Count
 

and

	If intTotalRows > 0 Then
            intDBWriteError = WriteInjuryLogToDB1(intDBWriteError)
        End If
        If intTotalRows > 25 Then
            intDBWriteError = WriteInjuryLogToDB2(intDBWriteError)
        End If
 

Protected Sub btnSavePatientRecord_Click delete

      dsInjuryLogData = GetTable("tblInjuryLog2", "InjuryLog", "AND varBodyArea = 'Anterior' ORDER BY intRowNumber")

        intTotalRows = dsInjuryLogData.Tables("InjuryLog").Rows.Count
 

and

    If intTotalRows > 0 Then
                intDBWriteError = WriteInjuryLogToDB1(intDBWriteError)
            End If
            If intTotalRows > 25 Then
                intDBWriteError = WriteInjuryLogToDB2(intDBWriteError)
            End If