Changeset 218 for ccr/trunk/p

Timestamp:

Oct 13, 2008, 12:52:15 PM (16 years ago)

Author:

George Lilly

Message:

routine to find SNOMED codes for drug allergies

File:

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

ccr/trunk/p/CCRUTIL.m

@@ -102 +102 @@
  Q
  ;
+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 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
+ Q
+ ;