Changeset 430


Ignore:
Timestamp:
Apr 3, 2009, 12:02:41 PM (16 years ago)
Author:
George Lilly
Message:

checksum processing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CRIMA.m

    r429 r430  
    208208 S C0CI=""
    209209 F  S C0CI=$O(@C0CGLB@(CKDFN,C0CI)) Q:C0CI=""  D  ;FOR EACH DOMAIN
    210  . ;W "DFN:",DFN," DOMAIN:",C0CI,!
     210 . ;W "DFN:",CKDFN," DOMAIN:",C0CI,!
    211211 . S C0CJ=$NA(@C0CGLB@(CKDFN,C0CI))
    212212 . I C0CI="HEADER" D  ; HAVE TO TAKE OUT THE "DATE GENERATED"
Note: See TracChangeset for help on using the changeset viewer.