Changeset 1586 for ccr/trunk/p/C0CVITAL.m
- Timestamp:
- Oct 30, 2012, 1:11:02 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CVITAL.m
r1544 r1586 1 1 C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08 2 ;;1.2;C0C;;May 11, 2012;Build 47 3 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. 4 ;Licensed under the terms of the GNU General Public License. 5 ;See attached copy of the License. 6 ; 7 ;This program is free software; you can redistribute it and/or modify 8 ;it under the terms of the GNU General Public License as published by 9 ;the Free Software Foundation; either version 2 of the License, or 10 ;(at your option) any later version. 11 ; 12 ;This program is distributed in the hope that it will be useful, 13 ;but WITHOUT ANY WARRANTY; without even the implied warranty of 14 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 ;GNU General Public License for more details. 16 ; 17 ;You should have received a copy of the GNU General Public License along 18 ;with this program; if not, write to the Free Software Foundation, Inc., 19 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 2 ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50 3 ; 4 ; This program is free software: you can redistribute it and/or modify 5 ; it under the terms of the GNU Affero General Public License as 6 ; published by the Free Software Foundation, either version 3 of the 7 ; License, or (at your option) any later version. 8 ; 9 ; This program is distributed in the hope that it will be useful, 10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of 11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 ; GNU Affero General Public License for more details. 13 ; 14 ; You should have received a copy of the GNU Affero General Public License 15 ; along with this program. If not, see <http://www.gnu.org/licenses/>. 20 16 ; 21 17 W "NO ENTRY FROM TOP",! … … 57 53 K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES 58 54 N VSORT,VDATES,VCNT ; ARRAY FOR DATE SORTED VITALS INDEX 59 D VITDVISTA(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY60 I DEBUG ZWR VDATES ;DEBUG55 D SORTVIST(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY 56 ; I DEBUG ZWR VDATES ;DEBUG 61 57 S VCNT=$$SORTDT^C0CUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE 62 58 ; DATE ORDER AND COUNT THEM. VSORT CONTAINS INDIRECT INDEXES ONLY … … 239 235 K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES 240 236 N VSORT,VDATES,VCNT ; ARRAY FOR DATE SORTED VITALS INDEX 241 D VITDRPMS(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY237 D SORTRPMS(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY 242 238 S VCNT=$$SORTDT^C0CUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE 243 239 ; DATE ORDER AND COUNT THEM. VSORT CONTAINS INDIRECT INDEXES ONLY … … 386 382 Q 387 383 ; 388 VITDRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS384 SORTRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS 389 385 ; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY 390 386 ; OF DATES IN THE VITALS RESULTS … … 399 395 Q 400 396 ; 401 VITDVISTA(VDT) ; RUN DATE SORTING ALGORITHM FOR VISTA397 SORTVIST(VDT) ; RUN DATE SORTING ALGORITHM FOR VISTA 402 398 ; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY 403 399 ; OF DATES IN THE VITALS RESULTS
Note:
See TracChangeset
for help on using the changeset viewer.