Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.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/BA/fBAOptionsDiagnoses.pas (modified) (5 diffs)

cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.pas

@@ -29 +29 @@
     btnAdd: TBitBtn;
     btnDelete: TBitBtn;
-    Splitter4: TSplitter;
     Splitter5: TSplitter;
     Button1: TButton;
@@ -65 +64 @@
     procedure ListDiagnosesCodes(Section: String);
     procedure InactiveICDNotification;
+    procedure SyncDxDeleteList;
+    procedure SyncDxNewList;
   
   public
@@ -123 +124 @@
     LoadEncounterDx;
     ListDiagnosesSections(lbSections.Items);
-    lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ);
+  //  lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ);
+    LoadPersonalDxList;
     btnOK.Enabled := False;
     hdrCntlDx.Sections[0].Width := lbPersonalDX.Width;
     hdrCntlDxSections.Sections[0].Width := lbSections.Width;
     hdrCntlDxAdd.Sections[0].Width := lbDiagnosis.Width;
-    lbPersonalDx.Sorted := false;
-    lbPersonalDx.Sorted := True;
+  //  lbPersonalDx.Sorted := false;
+ //  lbPersonalDx.Sorted := True;
     lbPersonalDX.Repaint;
 end;
@@ -374 +376 @@
 procedure TfrmBAOptionsDiagnoses.btnDeleteClick(Sender: TObject);
 var
-  delDxCode: string;
-  i, c: integer;
-begin
-  inherited;
-  // save dx seleted for deletion, update file when ok is pressed
-  for i := 0 to lbPersonalDX.Count-1 do
-  begin
-     if(lbPersonalDX.Selected[i]) then
-     begin
-        delDxCode := Piece(lbPersonalDX.Items[i],U,1);
-        delDxLst.Add(delDxCode);
-     end;
- end;
-
+   i, c: integer;
+begin
+  inherited;
+  SyncDxDeleteList;
+  SyncDxNewList;
  // delete selected dx from listbox.
  with lbPersonalDX do
@@ -599 +592 @@
 end;
 
+procedure TfrmBAOptionsDiagnoses.SyncDxDeleteList;
+var
+ i: integer;
+ delDxCode: string;
+begin
+// save dx selected for deletion, update file when ok is pressed
+  for i := 0 to lbPersonalDX.Count-1 do
+  begin
+     if(lbPersonalDX.Selected[i]) then
+     begin
+        delDxCode := Piece(lbPersonalDX.Items[i],U,1);
+        delDxLst.Add(delDxCode);
+     end;
+ end;
+end;
+
+procedure TfrmBAOptionsDiagnoses.SyncDxNewList;
+var
+i,j :integer;
+begin
+ // remove diagnoses selected for deletion from newdxList;
+   for i := 0 to lbPersonalDX.Count-1 do
+   begin
+      if lbPersonalDX.Selected[i] then
+      begin
+        for j := 0 to newDxLst.Count-1 do
+        begin
+           if (Piece(lbPersonalDX.Items[i],U,1)) = (newDxLst.Strings[j]) then
+           begin
+              newDxLst.Delete(j);
+              Break;
+           end;
+        end;
+     end;
+  end;
+end;
+
+
 initialization
   uAddToPDL := 0;