Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Consults/uConsults.pas

    r456 r829  
    3838    ProvDxCode: string;                     {  30.1}
    3939    RequestProcessingActivity: TStringList; {  40}
     40    //EarliestDate: TFMDateTime;
     41    //LatestDate: TFMDateTime;
    4042  end ;
    4143
    … …  
    5153    Urgency: integer;
    5254    UrgencyName: string;
     55    //EarliestDate: TFMDateTime;
     56    //LatestDate: TFMDateTime;
    5357    Place: string;
    5458    PlaceName: string;
    … …  
    134138   UL_ADMIN             = 3;
    135139   UL_UPDATE_AND_ADMIN  = 4;
     140   UL_UNRESTRICTED      = 5;
    136141
    137142   {Clinical Procedure statuses}
    … …  
    297302  SrcList := TStringList.Create;
    298303  try
    299     SrcList.Assign(Source);
     304    FastAssign(Source, SrcList);
    300305    with SrcList do
    301306      begin
Note: See TracChangeset for help on using the changeset viewer.