- Timestamp:
- Jul 6, 2008, 8:20:14 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.pas
r459 r460 465 465 FUrgency := cboUrgency.ItemIEN ; 466 466 if (FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE) then 467 FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex], 1,1);467 FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],2,1); 468 468 LimitEditWidth(memComments, 74); 469 469 FComments := memComments.Lines ;
Note:
See TracChangeset
for help on using the changeset viewer.