Non-steroidal anti-inflammatory drugs (NSAIDs)

This function checks if a given medication for a CHMS respondent belongs to the non-steroidal anti-inflammatory drug (NSAID) 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_NSAID(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 NSAID class and 0 if it is not.

Details

This function uses the startsWith function to identify NSAIDs based on their ATC codes, which typically start with "M01A". If the ATC code matches the pattern and the medication was taken within the last month (NPI_25B <= 4), the medication is considered an NSAID, and the function returns TRUE. Otherwise, it returns FALSE.

Examples

# Let's say the ATC code is "M01AB05" and the time last taken was today (1).

is_NSAID("M01AB05", 1) # Should return 1 (TRUE)
#> [1] 1