Changeset 356 for ccr/trunk/p/GPLRIMA.m

Timestamp:

Feb 4, 2009, 3:18:25 PM (15 years ago)

Author:

George Lilly

Message:

added Immunizations to RIM variable analysis code.. changed global for
parms to ^{TMP("C0CPARMS",$J)}

File:

• ccr/trunk/p/GPLRIMA.m (modified) (2 diffs)

ccr/trunk/p/GPLRIMA.m

@@ -109 +109 @@
     . ; W "POSTING PROBLEMS",!
     I $D(@SBASE@("VITALS",1)) D APOST("SATTR","RIMTBL","VITALS")
+    I $D(@SBASE@("IMMUNE",1)) D  ;IMMUNIZATIONS PRESENT
+    . D APOST("SATTR","RIMTBL","IMMUNE")
+    . N ZR,ZI
+    . D GETPA(.ZR,SDFN,"IMMUNE","IMMUNEPRODUCTCODE")
+    . I ZR(0)>0 D APOST("SATTR","RIMTBL","IMMUNECODE") ;IMMUNIZATION CODES
     I $D(@SBASE@("MEDS",1)) D  ; IF THE PATIENT HAS MEDS VARIABLES
     . D APOST("SATTR","RIMTBL","MEDS")
@@ -307 +312 @@
       D APUSH(RIMTBL,"VITALSDATE")
       D APUSH(RIMTBL,"VITALSNODATE")
+      D APUSH(RIMTBL,"IMMUNE")
+      D APUSH(RIMTBL,"IMMUNECODE")
       D APUSH(RIMTBL,"MEDS")
       D APUSH(RIMTBL,"MEDSCODE")