Creatinine Clearance (Cockcroft-Gault Equation)

Predicts creatinine clearance from serum creatinine
Details
Description
Originally published in 1976, this equation predicts creatinine clearance from serum creatinine on the basis of two 24-hour creatinine clearances measured in 236 patients.
Academic References
Cockcroft DW, Gault MH. Prediction of creatinine clearance from serum creatinine. Nephron. 1976;16(1):31-41. doi:10.1159/000180580
See: https://www.ncbi.nlm.nih.gov/pubmed/ 1244564
Code Version Id
aa3a1b4a-1dd9-40ae-889b-1f46ac9c7ce9
Download 
// Copyright (C) 2023 Calcarta
module Calcarta.Calculation.``Creatinine_clearance_(cockcroft-gault_equation)``.Code
open Calcarta.CodeResource.Standard
open Calcarta.CodeResource.MedicalUnits.Creatinine
open Calcarta.CodeResource.Units.QuantitiesOfMechanics.Mass

type Patient = {
    [<Name("Is female")>]
    IsFemale : bool

    [<Unit("Years")>]
    Age : decimal

    [<Unit(Kilogram)>]
    Weight : decimal

    [<Name("Serum creatinine")>]
    [<Unit(MilligramPerDecilitre)>]
    Creatinine : decimal
}

[<Name("Creatinine clearance", AppliesTo = Argument.Output)>]
[<Unit("mL min⁻¹", AppliesTo = Argument.Output)>]
let ``creatinine_clearance_(cockcroft-gault_equation)`` (patient : Patient) = 
    let femaleModifier = if patient.IsFemale then 0.85m else 1m
    (140m - patient.Age) * patient.Weight * femaleModifier / (72m * patient.Creatinine)