curb65: CURB 65 criteria for severity of community acquired pneumonia

In CCVR/inteRn: What the package does (short line)

Description

Estimates mortality of community-acquired pneumonia to help determine inpatient vs. outpatient treatment.

Usage

curb65(
  confusion = "no",
  BUN = 17,
  systolic.blood.pressure = 120,
  diastolic.blood.pressure = 80,
  respiratory.rate = 16
)

Arguments

confusion	Accepts a string value. The value should be 'yes' if the patient has altered mental status and 'no' if the patient does not have altered mental status. Please use the clinical criteria of altered mental status. Please use lower case for the input.
BUN	Accepts a numerical or integer value. The value should be the measured serum BUN reported in a lab test such as a BMP or CMP.
systolic.blood.pressure	Integer or numerical value corresponding to the patient's systolic blood pressure.
diastolic.blood.pressure	Integer or numerical value corresponding to the patient's diastolic blood pressure.
respiratory.rate	Integer or numerical value corresponding to the patient's breaths per minute.

Author(s)

Carlos C Vera Recio

References

Lim, W S et al. “Defining community acquired pneumonia severity on presentation to hospital: an international derivation and validation study.” Thorax vol. 58,5 (2003): 377-82. doi:10.1136/thorax.58.5.377

Examples

curb65(
  confusion = "no",
  BUN = 17,
  systolic.blood.pressure = 120,
  diastolic.blood.pressure = 80,
  respiratory.rate = 16
)

## The function is currently defined as
function (confusion = "no", BUN = 17, systolic.blood.pressure = 120, 
    diastolic.blood.pressure = 80, respiratory.rate = 16) 
{
    guide = list(`high risk, 27.8% 30-day mortality` = 4, `Severe risk group: 14.0% 30-day mortality.` = 3, 
        `Moderate risk group: 6.8% 30-day mortality.` = 2, `Low risk group: 2.7% 30-day mortality.` = 1, 
        `Low risk group: 0.6% 30-day mortality.` = 0)
    curb.score = 0
    if (confusion == "yes") {
        curb.score = curb.score + 1
    }
    if (BUN > 17) {
        curb.score = curb.score + 1
    }
    if (respiratory.rate > 29) {
        curb.score = curb.score + 1
    }
    if (systolic.blood.pressure < 90 | diastolic.blood.pressure < 
        61) {
        curb.score = curb.score + 1
    }
    res = list(`curb score` = curb.score, interpretation = names(guide[guide == 
        curb.score]))
    return(res)
  }

CCVR/inteRn documentation built on Dec. 17, 2021, 12:51 p.m.