Changeset 137 for ccr/trunk


Ignore:
Timestamp:
Sep 4, 2008, 12:02:10 PM (16 years ago)
Author:
George Lilly
Message:

new command PATCGPLRIMA(DFN) to display patient category

File:
1 edited

Legend:

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

    r112 r137  
    215215    . . S ZC=0
    216216    . . W !
     217    Q
     218    ;
     219PATC(DFN) ; DISPLAY THE CATEGORY FOR THIS PATIENT
     220    ;
     221    N ATTR S ATTR=""
     222    I $D(^TMP("GPLRIM","ATTR",DFN)) S ATTR=^TMP("GPLRIM","ATTR",DFN)
     223    I ATTR="" W "THIS PATIENT NOT ANALYZED.",! Q  ;NO ATTRIBUTES FOUND
     224    I $D(^TMP("GPLRIM","RIMTBL","CATS",ATTR)) D  ; FOUND A CAT
     225    . N CAT
     226    . S CAT=$P(^TMP("GPLRIM","RIMTBL","CATS",ATTR),U,1) ; LOOK UP THE CAT
     227    . W CAT,": ",ATTR,!
    217228    Q
    218229    ;
Note: See TracChangeset for help on using the changeset viewer.