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

added PROCEDURES ENCOUNTERS and NOTES to RIM Analysis

This commit is contained in:
george 2010-01-22 22:55:01 +00:00
parent 45b1bb815c
commit e982868e75
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
p/C0CRIMA.m
View File

@ -146,6 +146,8 @@ SETATTR(SDFN) ; SET ATTRIBUTES BASED ON VARS
. . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D ; LOINC CODE CHECK . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D ; LOINC CODE CHECK
. . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ; . . . . 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
I $D(@SBASE@("PROCEDURES",1)) D ;
. D APOST("SATTR","RIMTBL","PROCEDURES")
W "ATTRIBUTES: ",SATTR,! W "ATTRIBUTES: ",SATTR,!
Q SATTR Q SATTR
; ;
@ -355,6 +357,9 @@ AINIT ; INITIALIZE ATTRIBUTE TABLE
D APUSH(RIMTBL,"ALERTSCODE") D APUSH(RIMTBL,"ALERTSCODE")
D APUSH(RIMTBL,"RESULTS") D APUSH(RIMTBL,"RESULTS")
D APUSH(RIMTBL,"RESULTSLN") D APUSH(RIMTBL,"RESULTSLN")
D APUSH(RIMTBL,"PROCEDURES")
D APUSH(RIMTBL,"ENCOUNTERS")
D APUSH(RIMTBL,"NOTES")
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