Ignore:
Timestamp:
Oct 30, 2012, 1:11:02 PM (12 years ago)
Author:
Sam Habiel
Message:

Changed license to AGPL. Some clean-up for XINDEX

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CRXNRD.m

    r1544 r1586  
    11C0CRXNRD        ; WV/SMH - CCR/CCD PROJECT: Routine to Read RxNorm files;11/15/08
    2         ;;1.2;C0C;;May 11, 2012;Build 47
     2        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
     3        ; Copyright Sam Habiel 2008.
     4        ;
     5        ; This program is free software: you can redistribute it and/or modify
     6        ; it under the terms of the GNU Affero General Public License as
     7        ; published by the Free Software Foundation, either version 3 of the
     8        ; License, or (at your option) any later version.
     9        ;
     10        ; This program is distributed in the hope that it will be useful,
     11        ; but WITHOUT ANY WARRANTY; without even the implied warranty of
     12        ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     13        ; GNU Affero General Public License for more details.
     14        ;
     15        ; You should have received a copy of the GNU Affero General Public License
     16        ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
     17        ;
    318        W "No entry from top" Q
    4 IMPORT(PATH)   
     19IMPORT(PATH)    ; Main entry point
    520        I PATH="" QUIT
    621        D READSRC(PATH),READCON(PATH),READNDC(PATH)
    … …  
    2136        U IO
    2237        N I
    23         F I=1:1 R LINE Q:$$STATUS^%ZISH
     38        F I=1:1 R LINE:0 Q:$$STATUS^%ZISH
    2439        D CLOSE^%ZISH("FILE")
    2540        Q I-1
    … …  
    3752        F C0CCOUNT=1:1 D  Q:$$STATUS^%ZISH
    3853        . U IO
    39         . N LINE R LINE
     54        . N LINE R LINE:0
    4055        . IF $$STATUS^%ZISH QUIT
    4156        . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
    … …  
    8297        F C0CCOUNT=1:1 Q:$$STATUS^%ZISH  D
    8398        . U IO
    84         . N LINE R LINE
     99        . N LINE R LINE:0
    85100        . IF $$STATUS^%ZISH QUIT
    86101        . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
    … …  
    106121        F I=1:1 Q:$$STATUS^%ZISH  D
    107122        . U IO
    108         . N LINE R LINE
     123        . N LINE R LINE:0
    109124        . IF $$STATUS^%ZISH QUIT
    110125        . U $P W I,! U IO  ; Write I to the screen, then go back to reading the file
    … …  
    141156EX3     D CLOSE^%ZISH("FILE")
    142157        Q
    143        
Note: See TracChangeset for help on using the changeset viewer.