Changeset 120 for ccr/trunk/p


Ignore:
Timestamp:
Aug 30, 2008, 8:48:44 AM (16 years ago)
Author:
George Lilly
Message:

Vitals now sorted in reverse date and time order

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r119 r120  
    3232          S H=$E(DATE,9,10)
    3333          I $L(H)=1 S H="0"_H
    34           I $L(H)=1 S H="0"_H
    3534          S MM=$E(DATE,11,12)
    3635          I $L(MM)=1 S MM="0"_MM
  • ccr/trunk/p/GPLVITAL.m

    r115 r120  
    207207          N ZZCNT S ZZCNT=0 ; ANOTHER COUNTER
    208208          F ZI=0:0 D  Q:ZDONE ; VISIT THE ARRAY IN DATE ORDER
    209           . S ZD=$O(VSRT(ZD)) ; NEXT DATE
     209          . S ZD=$O(VSRT(ZD),-1) ; NEXT DATE
    210210          . I ZD="" S ZDONE=1
    211211          . I 'ZDONE D  ; MORE DATES
    212212          . . S ZT="" ; WANT FIRST TIME FOR THIS DATE
    213           . . F ZJ=0:0 D  Q:$O(VSRT(ZD,ZT))=""  ; LOOP THROUGH ALL TIMES
    214           . . . S ZT=$O(VSRT(ZD,ZT)) ; NEXT TIME
     213          . . F ZJ=0:0 D  Q:$O(VSRT(ZD,ZT),-1)=""  ; LOOP THROUGH ALL TIMES
     214          . . . S ZT=$O(VSRT(ZD,ZT),-1) ; NEXT TIME
    215215          . . . S ZZCNT=ZZCNT+1 ; INCREMENT COUNTER
    216216          . . . S V1(ZZCNT)=VSRT(ZD,ZT) ; PULL OUT THE INDEX
Note: See TracChangeset for help on using the changeset viewer.