Changeset 219


Ignore:
Timestamp:
Oct 13, 2008, 1:14:13 PM (16 years ago)
Author:
George Lilly
Message:

debugging LEX use routines

File:
1 edited

Legend:

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

    r218 r219  
    105105 ; ASSOCIATED SNOMED CODES
    106106 N DASTMP,DASIEN,DASNO
    107  F  S DASTMP=$O(^LEX(757.21,"ANUR")) Q:DASTMP=""  D  ; NAME OF MED
     107 S DASTMP=""
     108 F  S DASTMP=$O(^LEX(757.21,"ANUR",DASTMP)) Q:DASTMP=""  D  ; NAME OF MED
    108109 . S DASIEN=$O(^LEX(757.21,"ANUR",DASTMP)) ; IEN OF MED
    109110 . S DASNO=$P(^LEX(757.02,DASIEN,0),"^",2) ; SNOMED CODE FOR ENTRY
Note: See TracChangeset for help on using the changeset viewer.