Changeset 120 for ccr/trunk/p/GPLVITAL.m
- Timestamp:
- Aug 30, 2008, 8:48:44 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLVITAL.m
r115 r120 207 207 N ZZCNT S ZZCNT=0 ; ANOTHER COUNTER 208 208 F ZI=0:0 D Q:ZDONE ; VISIT THE ARRAY IN DATE ORDER 209 . S ZD=$O(VSRT(ZD) ) ; NEXT DATE209 . S ZD=$O(VSRT(ZD),-1) ; NEXT DATE 210 210 . I ZD="" S ZDONE=1 211 211 . I 'ZDONE D ; MORE DATES 212 212 . . S ZT="" ; WANT FIRST TIME FOR THIS DATE 213 . . F ZJ=0:0 D Q:$O(VSRT(ZD,ZT) )="" ; LOOP THROUGH ALL TIMES214 . . . S ZT=$O(VSRT(ZD,ZT) ) ; NEXT TIME213 . . 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 215 215 . . . S ZZCNT=ZZCNT+1 ; INCREMENT COUNTER 216 216 . . . S V1(ZZCNT)=VSRT(ZD,ZT) ; PULL OUT THE INDEX
Note:
See TracChangeset
for help on using the changeset viewer.