iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

debugging LEX use routines

This commit is contained in:
george 2008-10-13 17:14:13 +00:00
parent 42dbb36891
commit 1906202e7e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
p/CCRUTIL.m
View File

@ -104,7 +104,8 @@ DASNO(DANAME) ; PRINTS THE SNOMED CODE FOR ALLERGY TO DRUG DANAME
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 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
. W DASTMP,"=",DASNO,! ; PRINT IT OUT