- Timestamp:
- Jul 6, 2008, 8:20:14 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.pas
r459 r460 218 218 var 219 219 i: integer; 220 dxString: string;221 220 dxCode, dxName: string; 222 221 ADiagnosis: TPCEItem; 223 222 begin 224 223 inherited; 225 ADiagnosis := TPCEItem.Create;226 224 UBAGlobals.BAPCEDiagList.Clear; 227 225 with lbGrid do for i := 0 to Items.Count - 1 do
Note:
See TracChangeset
for help on using the changeset viewer.