Changeset 218 for ccr/trunk


Ignore:
Timestamp:
Oct 13, 2008, 12:52:15 PM (16 years ago)
Author:
George Lilly
Message:

routine to find SNOMED codes for drug allergies

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRUTIL.m

    r217 r218  
    102102 Q
    103103 ;
     104DASNALL ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
     105 ; ASSOCIATED SNOMED CODES
     106 N DASTMP,DASIEN,DASNO
     107 F  S DASTMP=$O(^LEX(757.21,"ANUR")) Q:DASTMP=""  D  ; NAME OF MED
     108 . S DASIEN=$O(^LEX(757.21,"ANUR",DASTMP)) ; IEN OF MED
     109 . S DASNO=$P(^LEX(757.02,DASIEN,0),"^",2) ; SNOMED CODE FOR ENTRY
     110 . W DASTMP,"=",DASNO,! ; PRINT IT OUT
     111 Q
     112 ;
Note: See TracChangeset for help on using the changeset viewer.