Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.pas

    r459 r460  
    1818     end;
    1919  TfrmBALocalDiagnoses = class(TfrmAutoSz)
    20     lblPatientName: TStaticText;
    2120    pnlTop: TPanel;
    2221    lbOrders: TListBox;
    … …  
    3837    ORStaticText3: TORStaticText;
    3938    ORStaticText4: TORStaticText;
     39    lblPatientName: TStaticText;
    4040    procedure buOKClick(Sender: TObject);
    4141    procedure buCancelClick(Sender: TObject);
    … …  
    798798procedure TfrmBALocalDiagnoses.AddToProblemList;
    799799var
    800    i,j: integer;
    801    tempCode, passCode,x: string;
     800   i: integer;
     801   tempCode, passCode: string;
    802802   NewList: TStringList;
    803803   PatientInfo:string;
Note: See TracChangeset for help on using the changeset viewer.