From e982868e75fdb344b2059af5ebab4f882c7cb5f0 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Fri, 22 Jan 2010 22:55:01 +0000
Subject: [PATCH] added PROCEDURES ENCOUNTERS and NOTES to RIM Analysis

---
 p/C0CRIMA.m | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/p/C0CRIMA.m b/p/C0CRIMA.m
index e6f3379..387f540 100644
--- a/p/C0CRIMA.m
+++ b/p/C0CRIMA.m
@@ -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),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
     ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
+    I $D(@SBASE@("PROCEDURES",1)) D  ;
+    . D APOST("SATTR","RIMTBL","PROCEDURES")
     W "ATTRIBUTES: ",SATTR,!
     Q SATTR
     ;
@@ -355,6 +357,9 @@ AINIT	; INITIALIZE ATTRIBUTE TABLE
       D APUSH(RIMTBL,"ALERTSCODE")
       D APUSH(RIMTBL,"RESULTS")
       D APUSH(RIMTBL,"RESULTSLN")
+      D APUSH(RIMTBL,"PROCEDURES")
+      D APUSH(RIMTBL,"ENCOUNTERS")
+      D APUSH(RIMTBL,"NOTES")
       Q
       ;
 APOST(PRSLT,PTBL,PVAL)	; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL