Changeset 270 for ccr/trunk/p

Timestamp:

Nov 9, 2008, 12:34:18 PM (16 years ago)

Author:

George Lilly

Message:

fixed checking for LOINC codes

File:

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

ccr/trunk/p/GPLRIMA.m

@@ -123 +123 @@
     I $D(@SBASE@("RESULTS",1)) D  ; IF THE PATIENT HAS LABS VARIABLES
     . D APOST("SATTR","RIMTBL","RESULTS")
-    N ZR,ZI
+    . N ZR,ZI
+    . S ZR(0)=0 ; INITIALIZE TO NONE
     . D RPCGV(.ZR,SDFN,"RESULTS") ;CHECK FOR LABS CODES
+    . ; D PARY^GPLXPATH("ZR") ;
     . 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
@@ -401 +403 @@
     ; FOUND AT INARY RTN(X)="VAR^VALUE" RTN(0) IS THE COUNT
     ; DFN IS THE PATIENT NUMBER.
-    ; WHICH IS "ALL" OR "MEDS" OR "VITALS" OR "PROBLEMS" OR "ALERTS" OR "LABS"
+    ; WHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS"
     ; OR OTHER SECTIONS AS THEY ARE ADDED
     ; THIS IS MEANT TO BE AVAILABLE AS AN RPC
@@ -409 +411 @@
     N ZZGI
     I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
-    . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS","LABS" D  ; FOR EACH SECTION
+    . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS","RESULTS" D  ; EACH SECTION
     . . D ZGVWRK(ZZGI) ; DO EACH SECTION
     E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
@@ -433 +435 @@
 DPATV(DFN,IWHICH) ; DISPLAY VARS FOR PATIENT DFN THAT ARE MAINTAINED IN GPLRIM
     ; ALONG WITH SAMPLE VALUES.
-    ; IWHICH IS "ALL" OR "MEDS" OR "VITALS" OR "PROBLEMS" OR "ALERTS" OR "LABS"
+    ; IWHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS"
     N GTMP
     I '$D(^TMP("GPLRIM","ATTR",DFN)) D  ; RIM VARS NOT PRESENT