anchor.diff:                      PickupTime = cmd.PickupTime
                   }
   
  -           yield pickupPatient
  -                |> simpleHandler stateBuilder
  -                |> buildCmd
  +           yield buildCmdHandler pickupPatient
   
              let dischargePatient (cmd : DischargePatientCommand) =
                   Discharged {    
                       VisitId = cmd.VisitId
                       DischargeLocation = cmd.DischargeLocation
  +                    DischargeTime = cmd.DischargeTime
                   }
   
  -           yield dischargePatient
  -                |> simpleHandler stateBuilder
  -                |> buildCmd
  +           yield buildCmdHandler dischargePatient
           }
   
       let handlers =
  
positive.code:                    TriageLevel = cmd.TriageLevel
                 }
  
             yield triagePatient
                   |> simpleHandler stateBuilder
                   |> buildCmd
  
             yield registerPatient
                  |> fullHandler isRegistered
  
negative.code: type DischargePatientCommand = {
      VisitId : VisitId
      DischargeLocation : DischargeLocation
      DischargeTime : DateTime
  }
  
  type PatientDischargedEvent = {
      VisitId : VisitId
      DischargeLocation : DischargeLocation
      DischargeTime : DateTime
  }
  
  open Eventful.AggregateActionBuilder
  