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

checking for LOINC codes

This commit is contained in:
george 2008-11-09 17:41:43 +00:00
parent beaf1ea72e
commit 4c44092d22
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
p/GPLRIMA.m
View File

@ -128,8 +128,8 @@ SETATTR(SDFN) ; SET ATTRIBUTES BASED ON VARS
. ; D PARY^GPLXPATH("ZR") ; . ; D PARY^GPLXPATH("ZR") ;
. I ZR(0)>0 D ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN . I ZR(0)>0 D ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN
. . F ZI=1:1:ZR(0) D ; LOOP THROUGH RETURNED VAR^VALUE PAIRS . . F ZI=1:1:ZR(0) D ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
. . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D ; . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D ; LOINC CODE CHECK
. . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
W "ATTRIBUTES: ",SATTR,! W "ATTRIBUTES: ",SATTR,!
Q SATTR Q SATTR
@ -311,7 +311,7 @@ AINIT ; INITIALIZE ATTRIBUTE TABLE
D APUSH(RIMTBL,"ALERTS") D APUSH(RIMTBL,"ALERTS")
D APUSH(RIMTBL,"ALERTSCODE") D APUSH(RIMTBL,"ALERTSCODE")
D APUSH(RIMTBL,"RESULTS") D APUSH(RIMTBL,"RESULTS")
D APUSH(RIMTBL,"LABSLN") D APUSH(RIMTBL,"RESULTSLN")
Q Q
; ;
APOST(PRSLT,PTBL,PVAL) ; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL APOST(PRSLT,PTBL,PVAL) ; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL