Content Comparison

...

All Other Hours of Service

•   If XREF Code = "7" Then
  
•  r@Level7Description := True


•  set Out of Service
:=
• equal to "
N
• No"

If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) =
•  If Federal Code begins with"395.13D"
Or UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) =
• or "395.15G"
Then

•  Disable (Out of Service)


•  If
Format (
• Date Inspection Started
, "MM/dd/yyyy") <> Format (Smart Logic Date, "MM/dd/yyyy") Then
//
• is not equal to Smart Logic Date
•  ErrLog("smartlogicDateViolation must be the Current Date.
",Date Inspection Started,[SmartLogic.smartlogicDateViolation()])

•  r@Level7Description := False


•  Else


•  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) = "395.13D"
Then

•  Enable (
[SmartLogic.smartlogicDateOOS(r@subgroupinstance)], [SmartLogic.smartlogicTimeOOS(r@subgroupinstance)], [SmartLogic.smartlogicOOSSatisfiedFlag(r@subgroupinstance)], [SmartLogic.smartlogicInspectionNumber(r@subgroupinstance)])
//If [SmartLogic.smartlogicDateOOS()] = "" or [SmartLogic.smartlogicTimeOOS()] = "" Then
//r@Level7Description := False
//[SmartLogic.smartlogicDateOOS().focus] := True
//Else
If [SmartLogic.smartlogicOOSSatisfiedFlag(r@subgroupinstance)] = "" Then
r@Level7Description := False
//[SmartLogic.smartlogicOOSSatisfiedFlag().focus] := True
EndIf
//
• Date OOS, Time OOS, OOS Satisfied Flag, Inspection Number)
•   If OOS Satisfied Flag = "" Then
•  r@Level7Description := False
•  Do not set the description until both OOS fields are filled in

//If [SmartLogic.smartlogicOOSSatisfiedFlag()] <> "" and [SmartLogic.smartlogicDateOOS()] <> "" and [SmartLogic.smartlogicTimeOOS()] <> "" Then
If [SmartLogic.smartlogicOOSSatisfiedFlag(r@subgroupinstance)]
•  If OOS Satisfied Flag <> "" Then

If [SmartLogic.smartlogicOOSSatisfiedFlag(r@subgroupinstance)]
•  If OOS Satisfied Flag = "Y" Then


•  Out of Service := "N"


•  Else


•  Out of Service := "Y"

EndIf
Disable (Out of Service)
r@Level7Description := True
EndIf
//EndIf
EndIf
EndIf
EndIf
If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) =
•  Disable (Out of Service)
•  r@Level7Description := True
•  If Federal Code begins with"395.15B" Then
  r@Vio3958e := 0
  For r@VioCount = 1 to GroupCountAll ("Violation")
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 8 ) ) = "395.8E" Then
  r@Vio3958e := r@Vio3958e + 1
  EndIf
  Next
  EndIf
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 9 ) ) = "395.3A3II" Then
  r@Vio3A3II := 0
  r@Vio8A := 0
  For r@VioCount = 1 to GroupCountAll ("Violation")
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 9 ) ) = "395.3A3II" Then
  r@Vio3A3II := r@Vio3A3II + 1
  EndIf
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 6 ) ) = "395.8A" And Smart Logic Date = [SmartLogic.smartlogicDateViolation(r@VioCount)] Then
  r@Vio8A := r@Vio8A + 1
  EndIf
  Next
  If r@Vio3A3II > 1 Then
  r@Level7Description := False
  EndIf
  If r@Vio3A3II >= 1 And r@Vio8A >= 1 Then
  r@Level7Description := False
  EndIf
  EndIf
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) = "395.15F" Then
  If [SmartLogic.smartlogicAOBRDFlag(r@VioCount)] = "" Then
  Enable ([SmartLogic.smartlogicAOBRDFlag(r@VioCount)])
  //[SmartLogic.smartlogicAOBRDFlag(r@VioCount).focus] := True
  EndIf
  If [SmartLogic.smartlogicAOBRDFlag(r@VioCount)] <> "Y" Then
  r@Level7Description := False
  EndIf
  EndIf
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) = "395.15G" Then
  r@Vio15G := 0
  For r@VioCount = 1 to GroupCountAll ("Violation")
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 7 ) ) = "395.15G" Then
  r@Vio15G := r@Vio15G + 1
  EndIf
  Next
  If r@Vio15G > 1 Then
  r@Level7Description := False
  EndIf
  EndIf
  If r@Level7Description = True Then
  Supplemental Description := "On " & Smart Logic Date& " " & [Violation.violationFederalDescription(r@parentGroupInstance)]
  EndIf
  EndIf
  //All Other smartlogicDriverViolationFlags
  If XREF Code = "14" Then
  r@Vio383Count := 0
  For r@VioCount = 1 to GroupCountAll ("Violation")
  If UCase (Left ([Violation.violationFederalCode(r@VioCount)], 8 ) ) = "383.23A2" Then
  r@Vio383Count := r@Vio383Count + 1
  EndIf
  Next
  Supplemental Description := Federal Violation Description
  If r@Vio383Count <= 1 Then
  Out of Service := "Y"
  Disable (Out of Service)
  Supplemental Description := "Driver Operating without " & "- " & Federal Violation Description
  EndIf
  EndIf
  //Log Book Form and Manner Violations
  If XREF Code = "50" Then
  Out of Service := "N"
  r@Level50Description := False
  f@SmartLogic := ""
  r@violationdescriptiontext := ""
  r@addviotext := ""
  r@notestext := ""
  Enable (Smart Logic Date)
  If [Violation.violationFederalCode(any )] = "395.8" Then
  //Figure out which violations need filtered
  r@Level50Description := True
  For r@VioCount = 1 to GroupCountAll ("Violation")
  If UCase ([Violation.violationFederalCode(r@VioCount)]) = "395.8" Then
  r@filter3958 := r@VioCount
  ExitFor
  EndIf
  Next
  EndIf
  If [Violation.violationFederalCode(any )] = "395.15I5" Then
  //Figure out which violations need filtered
  r@Level50Description := True
  For r@VioCount = 1 to GroupCountAll ("Violation")
  If UCase ([Violation.violationFederalCode(r@VioCount)]) = "395.15I5" Then
  r@filter39515 := r@VioCount
  ExitFor
  EndIf
  Next
  EndIf
  //Build notes
  For r@VioCount = 1 to GroupCountAll ("Violation")
  r@OtherSmartLogicInstance := GetSubGroupInstanceByParent ("Violation", r@VioCount, "SmartLogic", 1 )
  If (r@Viocount > r@filter3958 And r@filter3958 <> "" And r@filter3958 <> 0 ) Or (r@Viocount > r@filter39515 And r@filter39515 <> "" And r@filter39515 <> 0 ) Then
  If [Violation.violationFederalCode(r@VioCount)] <> "" Then
  If r@addviotxt = "" Then
  r@addviotxt := "Violation(s) of: " & [Violation.violationFederalCode(r@VioCount)]
  Else
  r@addviotxt := r@addviotxt & ", " & [Violation.violationFederalCode(r@VioCount)]
  EndIf
  If r@notestxt = "" Then
  r@notestxt := "Record of Duty Status, Form and Manner Violations on " & [SmartLogic.smartlogicDateViolation(r@OtherSmartLogicInstance)]& ":" & newline & [Violation.violationFederalCode(r@VioCount)]& "-" & [SmartLogic.smartlogicItemRemark(r@OtherSmartLogicInstance)]& newline
  Else
  r@notestxt := r@notestxt & [Violation.violationFederalCode(r@VioCount)]& "-" & [SmartLogic.smartlogicItemRemark(r@OtherSmartLogicInstance)]& newline
  EndIf
  EndIf
  EndIf
  Next
  //Apply Notes
  If r@addviotxt <> "" Or r@notestxt <> "" Then
  //Place in tbd field
  [Description.descriptionNotes(0 )] := r@addviotxt & Newline & "***********************" & newline & r@notestxt
  EndIf
  EndIf
  If XREF Code = "" And [Violation.violationTraCSFederalKey(r@parentGroupInstance)] = "" Then
  DisableWithClear (Smart Logic Date, Evidence, Driver Violation Flag,
[SmartLogic.smartlogicDateOOS(r@subgroupinstance)], [SmartLogic.smartlogicTimeOOS(r@subgroupinstance)], [SmartLogic.smartlogicOOSSatisfiedFlag(r@subgroupinstance)], [SmartLogic.smartlogicInspectionNumber(r@subgroupinstance)]
• Date OOS, Time OOS, [OOS Satisfied Flag, [Inspection Number, [SmartLogic.smartlogicAOBRDFlag(r@subgroupinstance)], Supplemental Description)
  Clear ([Violation.violationCitationFlag(r@parentGroupInstance)])
  EndIf
  EndIf
•  
•  
•  

...

Other Occurrences

•  Yes or No fields
•  Enable for XRef codes of 4 or 6
•  These are the last 7 calendar dates where the violation could have occurred based on the Federal Code violated. Check the dates not in compliance.
•  The once one or more dates have been checked the Supplemental Description will enter the Dates in Violation along with the Federal codes description of the violation.

...