Changeset 266 for ccr

Timestamp:

Nov 9, 2008, 11:56:39 AM (16 years ago)

Author:

George Lilly

Message:

integrate LABS with ANALYZE^{GPLRIMA attribute categories}

Location:

ccr/trunk/p

Files:

• GPLALERT.m (modified) (1 diff)
• GPLCCR.m (modified) (2 diffs)
• GPLLABS.m (modified) (4 diffs)
• GPLRIMA.m (modified) (3 diffs)

ccr/trunk/p/GPLALERT.m

@@ -33 +33 @@
  ; DEFINE MAPPING
  N ALTTVMAP,ALTVMAP,ALTTARYTMP,ALTARYTMP
- S ALTTVMAP=$NA(^TMP("GPLALERT",$J,"ALERTS"))
- S ALTTARYTMP=$NA(^TMP("GPLALERT",$J,"ALERTSARYTMP"))
+ S ALTTVMAP=$NA(^TMP("GPLCCR",$J,"ALERTS"))
+ S ALTTARYTMP=$NA(^TMP("GPLCCR",$J,"ALERTSARYTMP"))
  K @ALTTVMAP,@ALTTARYTMP
  N ALTTMP,ALTCNT S ALTG=$NA(GMRAL),ALTCNT=1

ccr/trunk/p/GPLCCR.m

@@ -109 +109 @@
     . ; W OXML,!
     . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
-    . I DEBUG W "RUNNING ",CALL,!
+    . W "RUNNING ",CALL,!
     . X CALL
     . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
@@ -134 +134 @@
     D PUSH^GPLXPATH(TAB,"EXTRACT;CCRMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
-    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
+    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
     I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
     Q

ccr/trunk/p/GPLLABS.m

@@ -18 +18 @@
  ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
            ;
-EXTRACT(DFN) ; EXTRACT LABS INTO PROVIDED XML TEMPLATE
+EXTRACT(ILXML,DFN,OLXML) ; EXTRACT LABS INTO THE C0CLVAR GLOBAL
  ;
  ; LABXML AND LABOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
@@ -25 +25 @@
  ;
  D GHL7 ; GET HL7 MESSAGE FOR THIS PATIENT
- S C0CLB=$NA(^TMP("GPLCCR",$J,"LABS")) ; BASE GLB FOR LABS VARS
+ S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
  K @C0CLB ; CLEAR OUT OLD VARS IF ANY
  S C0CSILENT=1 ; SURPRESS LISTING
  D LIST ; EXTRACT THE VARIABLES
+ K C0CSILENT ; RESET SILENT FLAG
+ I $D(OLXML) S @OLXML@(0)=0 ; EXTRACT DOES NOT PRODUCE XML... SEE MAP^GPLLABS
  Q
      ;
@@ -47 +49 @@
  ; N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR
  ; D EXTRACT^GPLLABS(1)
- I '$D(C0CLB) S C0CLB=$NA(^TMP("GPLCCR",$J,"LABS")) ; BASE GLB FOR LABS VARS
+ I '$D(C0CLB) S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
  I '$D(C0CSILENT) S C0CSILENT=0
  I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
@@ -97 +99 @@
  . . W C0CI," ",C0CTYP,!
  . ; S C0CI=$O(@C0CHB@(C0CI))
- K ^TMP("GPLRIM","VARS",DFN,"LABS")
- M ^TMP("GPLRIM","VARS",DFN,"LABS")=@C0CLB
+ ;K ^TMP("GPLRIM","VARS",DFN,"RESULTS")
+ ;M ^TMP("GPLRIM","VARS",DFN,"RESULTS")=@C0CLB
  Q
 LTYP(OSEG,OTYP,OVARA,OC0CSILENT) ;

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
+    . I $D(^TMP("GPLCCR",$J,"ALERTS",1,"ALERTOBJECTID")) D  ; ALERTS EXIST
     . . W "FOUND ALERT VARS",!
-    . . M @RIMBASE@("VARS",RIMDFN,"ALERTS")=^TMP("GPLALERT",$J,"ALERTS")
+    . . M @RIMBASE@("VARS",RIMDFN,"ALERTS")=^TMP("GPLCCR",$J,"ALERTS")
+    . I $D(^TMP("GPLCCR",$J,"RESULTS",0)) D  ; RESULTS EXIST
+    . . W "FOUND RESULTS VARS",!
+    . . M @RIMBASE@("VARS",RIMDFN,"RESULTS")=^TMP("GPLCCR",$J,"RESULTS")
     . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
     . ;
@@ -118 +121 @@
     . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
     . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","ALERTSCODE") ;CODES
+    I $D(@SBASE@("RESULTS",1)) D  ; IF THE PATIENT HAS LABS VARIABLES
+    . D APOST("SATTR","RIMTBL","RESULTS")
+    N ZR,ZI
+    . D RPCGV(.ZR,SDFN,"RESULTS") ;CHECK FOR LABS 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)="RESULTTESTCODINGSYSTEM" D  ;
+    . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES
     ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
     W "ATTRIBUTES: ",SATTR,!
@@ -298 +309 @@
       D APUSH(RIMTBL,"ALERTS")
       D APUSH(RIMTBL,"ALERTSCODE")
+      D APUSH(RIMTBL,"RESULTS")
+      D APUSH(RIMTBL,"LABSLN")
       Q
       ;