Changeset 219 for ccr/trunk/p

Timestamp:

Oct 13, 2008, 1:14:13 PM (16 years ago)

Author:

George Lilly

Message:

debugging LEX use routines

File:

• ccr/trunk/p/CCRUTIL.m (modified) (1 diff)

ccr/trunk/p/CCRUTIL.m

@@ -105 +105 @@
  ; 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