Changeset 1679 for cprs/trunk/CPRS-Chart/Options/fOptionsLists.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Options/fOptionsLists.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/Options/fOptionsLists.pas

@@ -58 +58 @@
     procedure lstAddByKeyPress(Sender: TObject; var Key: Char);
     procedure grpVisibilityClick(Sender: TObject);
+    procedure lstAddByChange(Sender: TObject);
   private
     { Private declarations }
@@ -146 +147 @@
     case radAddByType.ItemIndex of
       0: begin
-           ListItemsOnly := true;
+           ListItemsOnly := false;
            LongList := true;
            InitLongList('');
@@ -256 +257 @@
 end;
 
+procedure TfrmOptionsLists.lstAddByChange(Sender: TObject);
+  procedure ShowMatchingPatients;
+  begin
+    with lstAddBy do begin
+      if ShortCount > 0 then begin
+        if ShortCount = 1 then begin
+          ItemIndex := 0;
+        end;
+        Items.Add(LLS_LINE);
+        Items.Add(LLS_SPACE);
+      end;
+      InitLongList('');
+    end;
+  end;
+
+begin
+  inherited;
+  if radAddByType.ItemIndex = 0 {patient} then begin
+    with lstAddBy do
+    if frmPtSelOptns.IsLast5(Text) then begin
+        ListPtByLast5(Items, Text);
+        ShowMatchingPatients;
+      end
+    else if frmPtSelOptns.IsFullSSN(Text) then begin
+        ListPtByFullSSN(Items, Text);
+        ShowMatchingPatients;
+    end;
+  end;
+end;
+
+
 procedure TfrmOptionsLists.lstAddByClick(Sender: TObject);
 var
@@ -266 +298 @@
   if lstAddBy.ItemIndex < 0 then exit;
   ien := Piece(lstAddBy.Items[lstAddBy.ItemIndex], '^', 1);
+  If ien = '' then exit;
   case radAddByType.ItemIndex of
     0: