Changeset 246 for ccr

Timestamp:

Oct 28, 2008, 8:14:30 PM (16 years ago)

Author:

George Lilly

Message:

added Alerts to GPLRIMA

Location:

ccr/trunk/p

Files:

• GPLALER2.m (modified) (1 diff)
• GPLRIMA.m (modified) (3 diffs)

ccr/trunk/p/GPLALER2.m

@@ -89 +89 @@
  . . S ARVUID=$$GET1^DIQ(120.83,ARIEN,"VUID")
  . S @ALTVMAP@("ALERTREACTIOINDESCRIPTIONTEXT")=ARDES
- . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=ARVUID
- . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="VUID"
+ . I ARVUID'="" D  ; IF REACTION VUID IS NOT NULL
+ . . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=ARVUID
+ . . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="VUID"
+ . E  D  ; IF IT IS NULL DON'T SET CODE SYSTEM
+ . . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=""
+ . . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")=""
  . S ALTARYTMP=$NA(@ALTTARYTMP@(ALTCNT))
  . K @ALTARYTMP

ccr/trunk/p/GPLRIMA.m

@@ -65 +65 @@
     . I $D(^TMP("GPLCCR",$J,"MEDMAP",1)) D  ; MEDS VARS EXISTS
     . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDMAP")
+    . I $D(^TMP("GPLALERT",$J,"ALERTS",1,"ALERTOBJECTID")) D  ; ALERTS EXIST
+    . . W "FOUND ALERT VARS",!
+    . . M @RIMBASE@("VARS",RIMDFN,"ALERTS")=^TMP("GPLALERT",$J,"ALERTS")
     . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
     . ;
@@ -108 +111 @@
     . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","MEDSCODE") ;CODES
     . ; D PATD^GPLRIMA(2,"MEDS","MEDPRODUCTNAMECODEVALUE") CHECK FOR MED CODES
-    D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
+    I $D(@SBASE@("ALERTS",1)) D  ; IF THE PATIENT HAS ALERTS
+    . D APOST("SATTR","RIMTBL","ALERTS")
+    . N ZR,ZI
+    . D GETPA(.ZR,SDFN,"ALERTS","ALERTAGENTPRODUCTCODEVALUE") ;REACTANT CODES
+    . 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)'="" D APOST("SATTR","RIMTBL","ALERTSSCODE") ;CODES
+    ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
     W "ATTRIBUTES: ",SATTR,!
     Q SATTR
@@ -286 +296 @@
       D APUSH(RIMTBL,"MEDSDATE")
       D APUSH(RIMTBL,"MEDSNODATE")
+      D APUSH(RIMTBL,"ALERTS")
+      D APUSH(RIMTBL,"ALERTSCODE")
       Q
       ;