Diuretics

This function checks if a given medication for a CHMS respondent belongs to the diuretic drug class. The identification is based on the Anatomical Therapeutic Chemical (ATC) code of the medication and the time when the medication was last taken.

Usage

is_diuretic(MEUCATC, NPI_25B)

Arguments

MEUCATC

A character vector representing the Anatomical Therapeutic Chemical (ATC) code of the medication.

NPI_25B

An integer representing the CHMS response for the time when the medication was last taken. 1 = Today, 2 = Yesterday, 3 = Within the last week, 4 = Within the last month, 5 = More than a month ago, 6 = Never taken

Value

A numeric, 1 if medication is in the diuretic class and 0 if it is not.

Details

This function uses the startsWith function to identify diuretics based on their ATC codes, which typically start with "C03". Additionally, specific sub-codes 'C03BA08' and 'C03CA01' are excluded from the diuretic class. If the ATC code matches the pattern and is not in the exclusion list, and the medication was taken within the last month (NPI_25B <= 4), the medication is considered a diuretic, and the function returns TRUE. Otherwise, it returns FALSE.

Examples

# Let's say the ATC code is "C03AA03" and the time last taken was within last week (3).

is_diuretic("C03AA03", 3) # Should return 1 (TRUE)
#> [1] 1