Changeset 222 for ccr/trunk/p/CCRUTIL.m

Timestamp:

Oct 21, 2008, 10:06:59 AM (16 years ago)

Author:

George Lilly

Message:

Alert SNOMED research routines

File:

• ccr/trunk/p/CCRUTIL.m (modified) (2 diffs)

ccr/trunk/p/CCRUTIL.m

@@ -86 +86 @@
  ;
  N LEXIEN
- I $O(^LEX(757.21,"ADIS",DNAME))'="" D  ; IEN FOUND FOR THIS DRUG
- . S LEXIEN=$O(^LEX(757.21,"ADIS",DNAME)) ; GET THE IEN IN THE LEXICON
+ I $O(^LEX(757.21,"ADIS",DNAME,""))'="" D  ; IEN FOUND FOR THIS DRUG
+ . S LEXIEN=$O(^LEX(757.21,"ADIS",DNAME,"")) ; GET THE IEN IN THE LEXICON
+ . W LEXIEN,!
  . S RTN(1)=$P(^LEX(757.02,LEXIEN,0),"^",2) ; SNOMED CODE IN P2
  . S RTN(0)=1 ; ONE THING RETURNED
@@ -98 +99 @@
  D DA2SNO(.DARTN,DANAME) ; CALL THE LOOKUP ROUTINE
  I DARTN(0)>0 D  ; GOT RESULTS
- . W !,RTN(1) ;PRINT THE SNOMED CODE
+ . W !,DARTN(1) ;PRINT THE SNOMED CODE
  E  W !,"NOT FOUND",!
  Q
  ;
-DASNALL ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
+DASNALL(WHICH) ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
  ; ASSOCIATED SNOMED CODES
  N DASTMP,DASIEN,DASNO
  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
+ F  S DASTMP=$O(^LEX(757.21,WHICH,DASTMP)) Q:DASTMP=""  D  ; NAME OF MED
+ . S DASIEN=$O(^LEX(757.21,WHICH,DASTMP,"")) ; IEN OF MED
  . S DASNO=$P(^LEX(757.02,DASIEN,0),"^",2) ; SNOMED CODE FOR ENTRY
  . W DASTMP,"=",DASNO,! ; PRINT IT OUT