Changeset 146 for ccr/trunk/p/GPLVITAL.m


Ignore:
Timestamp:
Sep 9, 2008, 1:30:01 PM (16 years ago)
Author:
George Lilly
Message:

enhancements to GPLRIMA to locate patients

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLVITAL.m

    r141 r146  
    4242          S VCNT=$$SORTDT^CCRUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE
    4343          ; DATE ORDER AND COUNT THEM. VSORT CONTAINS INDIRECT INDEXES ONLY
     44          S @VITTVMAP@(0)=VCNT ; SAVE NUMBER OF VITALS
    4445          F J=1:1:VCNT  D  ; FOR EACH VITAL IN THE LIST
    4546          . I $D(VITRSLT(VSORT(J))) D
Note: See TracChangeset for help on using the changeset viewer.