Changeset 270


Ignore:
Timestamp:
Nov 9, 2008, 12:34:18 PM (16 years ago)
Author:
George Lilly
Message:

fixed checking for LOINC codes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLRIMA.m

    r269 r270  
    123123    I $D(@SBASE@("RESULTS",1)) D  ; IF THE PATIENT HAS LABS VARIABLES
    124124    . D APOST("SATTR","RIMTBL","RESULTS")
    125     N ZR,ZI
     125    . N ZR,ZI
     126    . S ZR(0)=0 ; INITIALIZE TO NONE
    126127    . D RPCGV(.ZR,SDFN,"RESULTS") ;CHECK FOR LABS CODES
     128    . ; D PARY^GPLXPATH("ZR") ;
    127129    . I ZR(0)>0 D  ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN
    128130    . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
     
    401403    ; FOUND AT INARY RTN(X)="VAR^VALUE" RTN(0) IS THE COUNT
    402404    ; DFN IS THE PATIENT NUMBER.
    403     ; WHICH IS "ALL" OR "MEDS" OR "VITALS" OR "PROBLEMS" OR "ALERTS" OR "LABS"
     405    ; WHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS"
    404406    ; OR OTHER SECTIONS AS THEY ARE ADDED
    405407    ; THIS IS MEANT TO BE AVAILABLE AS AN RPC
     
    409411    N ZZGI
    410412    I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
    411     . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS","LABS" D  ; FOR EACH SECTION
     413    . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS","RESULTS" D  ; EACH SECTION
    412414    . . D ZGVWRK(ZZGI) ; DO EACH SECTION
    413415    E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
     
    433435DPATV(DFN,IWHICH) ; DISPLAY VARS FOR PATIENT DFN THAT ARE MAINTAINED IN GPLRIM
    434436    ; ALONG WITH SAMPLE VALUES.
    435     ; IWHICH IS "ALL" OR "MEDS" OR "VITALS" OR "PROBLEMS" OR "ALERTS" OR "LABS"
     437    ; IWHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS"
    436438    N GTMP
    437439    I '$D(^TMP("GPLRIM","ATTR",DFN)) D  ; RIM VARS NOT PRESENT
Note: See TracChangeset for help on using the changeset viewer.