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") ;
. 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
. . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D ;
. . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES
. . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D ; LOINC CODE CHECK
. . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
W "ATTRIBUTES: ",SATTR,!
Q SATTR
@ -311,7 +311,7 @@ AINIT ; INITIALIZE ATTRIBUTE TABLE
D APUSH(RIMTBL,"ALERTS")
D APUSH(RIMTBL,"ALERTSCODE")
D APUSH(RIMTBL,"RESULTS")
D APUSH(RIMTBL,"LABSLN")
D APUSH(RIMTBL,"RESULTSLN")
Q
;
APOST(PRSLT,PTBL,PVAL) ; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL