diff --git a/p/CCRUTIL.m b/p/CCRUTIL.m
index 54e721f..b514891 100644
--- a/p/CCRUTIL.m
+++ b/p/CCRUTIL.m
@@ -104,7 +104,8 @@ DASNO(DANAME) ; PRINTS THE SNOMED CODE FOR ALLERGY TO DRUG DANAME
 DASNALL ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
  ; ASSOCIATED SNOMED CODES
  N DASTMP,DASIEN,DASNO
- F  S DASTMP=$O(^LEX(757.21,"ANUR")) Q:DASTMP=""  D  ; NAME OF MED
+ S DASTMP=""
+ F  S DASTMP=$O(^LEX(757.21,"ANUR",DASTMP)) Q:DASTMP=""  D  ; NAME OF MED
  . S DASIEN=$O(^LEX(757.21,"ANUR",DASTMP)) ; IEN OF MED
  . S DASNO=$P(^LEX(757.02,DASIEN,0),"^",2) ; SNOMED CODE FOR ENTRY
  . W DASTMP,"=",DASNO,! ; PRINT IT OUT