From df3f1e082db2eef97864279414df97ba57f8b371 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 6 Mar 2010 10:17:24 -0700 Subject: [PATCH] update SRLUS for 20009AB SNOMED change --- parse-rrf.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/parse-rrf.lisp b/parse-rrf.lisp index abe5a0a..efb8975 100644 --- a/parse-rrf.lisp +++ b/parse-rrf.lisp @@ -24,14 +24,17 @@ (declaim (inline srl-to-srlus)) (defun srl-to-srlus (srl) - "Convert the standard SRL category to one oriented for use in the United States. -Specifically, SRL 4 in the USA has license restrictions between SRL 1 and 2 when -used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapping is: -(0->0, 1->1, 4->2, 2->3, 3->4)." + "Convert the standard SRL category to one oriented for use in the ~ +United States. Specifically, SRL 4 in the USA has license restrictions ~ +between SRL 1 and 2 when used in the United States. As of 2009AA, the +SNOMED SRL changed from 4 to 9. So we create a new scale ~ +(SRLUS) where SRL to SRLUS mapping is: ~ +(0->0, 1->1, 4->2, 9->2, 2->3, 3->4)." (declare (type (integer 0 100) srl)) (cond ((<= srl 1) srl) ((= srl 4) 2) + ((= srl 9) 2) ((= srl 2) 3) ((= srl 3) 4) (t srl))) -- 2.34.1