Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas (modified) (2 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas

@@ -496 +496 @@
 
 procedure TfrmODAllergy.cboSymptomsMouseClick(Sender: TObject);
+var
+  x: string;
 begin
   inherited;
@@ -501 +503 @@
   Changing := True;
   if lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1 then exit;
+  with cboSymptoms do
+    if Piece(Items[ItemIndex], U, 3) <> '' then
+      x := ItemID + U + Piece(Items[ItemIndex], U, 3)
+    else
+      x := ItemID + U + Piece(Items[ItemIndex], U, 2);
   with lstSelectedSymptoms do
     begin
-      Items.Add(cboSymptoms.Items[cboSymptoms.ItemIndex]);
+      Items.Add(x);
       SelectByID(cboSymptoms.ItemID);
     end;