From 4b45550d3e75b982ef4d3420a39bb0bd7d7b6684 Mon Sep 17 00:00:00 2001
From: Ernest Guevarra <ernest@guevarra.io>
Date: Thu, 27 Jun 2024 05:02:31 +0100
Subject: [PATCH] replace placeholder function for icd10 unlikely cod

---
 R/cod_check_code.R | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/R/cod_check_code.R b/R/cod_check_code.R
index 993969b..36e1d87 100644
--- a/R/cod_check_code.R
+++ b/R/cod_check_code.R
@@ -296,8 +296,14 @@ cod_check_code_ill_defined_icd11 <- function(cod) {
 #' @export
 #'
 cod_check_code_unlikely_icd10 <- function(cod) {
-  cod_check <- NA_integer_
-  cod_check_note <- NA_character_
+  unlikely_cod <- expand_icd10_code_range(codeditr::icd10_unlikely_cod$code)
+
+  cod_check <- ifelse(cod %in% unlikely_cod, 1L, 0L)
+  cod_check_note <- ifelse(
+    cod_check == 0L,
+    "No issues found in CoD code",
+    "CoD code is an unlikely cause-of-death"
+  )
 
   tibble(cod_check, cod_check_note)
 }