Changeset 829 for cprs/trunk/CPRS-Chart/Orders/fOrderSaveQuick.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Orders/fOrderSaveQuick.pas (modified) (8 diffs)

cprs/trunk/CPRS-Chart/Orders/fOrderSaveQuick.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, Buttons, ExtCtrls, StdCtrls, ORCtrls, ORFn, fODBase, uOrders;
+  fAutoSz, Buttons, ExtCtrls, StdCtrls, ORCtrls, ORFn, fODBase, uOrders,
+  VA508AccessibilityManager;
 
 type
@@ -58 +59 @@
   TX_NO_TEXT     = 'No fields have been entered - cannot save as quick order.';
   TC_NO_TEXT     = 'Save as Quick Order';
+  TX_DUP_NAME = 'There is already a quick order with that name.' + CRLF +
+                'Please either delete the original or enter a different name.';
+  TC_DUP_NAME = 'Unable to save quick order';
+  TC_DUP_RENAME = 'Unable to rename quick order';
 
 function EditCommonList(ADisplayGroup: Integer): Boolean;
@@ -84 +89 @@
         ItemIndex := 0;
       end;
+      ActiveControl := lstQuickList;
       ShowModal;
       if OKPressed then
@@ -128 +134 @@
       else
         DGroupName := NameOfDGroup(ResponseSet.DisplayGroup);
+      if DGroupName = 'Inpt. Meds' then
+        begin
+          ResponseSet.DisplayGroup := InptDisp;
+          DGroupName := NameOfDGroup(InptDisp);
+        end;
       Caption := 'Add Quick Order (' + DGroupName + ')';
       lblQuickList.Caption := 'Common List for ' + DGroupName;
@@ -145 +156 @@
         ItemIndex := 0;
       end;
+      ActiveControl := txtDisplayName;
       ShowModal;
       if OKPressed then
@@ -213 +225 @@
 var
   AName: string;
+  i: integer;
 begin
   inherited;
@@ -219 +232 @@
     if ItemIndex < 0 then Exit;
     AName := Piece(Items[ItemIndex], U, 2);
-    if ExecuteRename(AName, TX_QO_RENAME)
-      then Items[ItemIndex] := Piece(Items[ItemIndex], U, 1) + U + AName;
-  end;
+    if ExecuteRename(AName, TX_QO_RENAME) then
+    begin
+      i := Items.IndexOf(AName);
+      if (i > -1) and (i <> ItemIndex) then
+        InfoBox(TX_DUP_NAME, TC_DUP_RENAME, MB_ICONERROR or MB_OK)
+      else
+        Items[ItemIndex] := Piece(Items[ItemIndex], U, 1) + U + AName;
+    end;
+  end;
+
 end;
 
@@ -247 +267 @@
 
 procedure TfrmSaveQuickOrder.cmdOKClick(Sender: TObject);
-begin
-  inherited;
-  if txtDisplayName.Enabled and (txtDisplayName.Text = '') then
-  begin
-    InfoBox(TX_DNAME_REQ, TC_DNAME_REQ, MB_OK);
-    Exit;
+var
+  i: integer;
+begin
+  inherited;
+  if txtDisplayName.Enabled then
+  begin
+    if (txtDisplayName.Text = '') then
+    begin
+      InfoBox(TX_DNAME_REQ, TC_DNAME_REQ, MB_OK);
+      Exit;
+    end;
+    for i := 0 to lstQuickList.Count - 1 do
+      if (UpperCase(lstQuickList.DisplayText[i]) = UpperCase(txtDisplayName.Text)) and (i > 0) then
+      begin
+        InfoBox(TX_DUP_NAME, TC_DUP_NAME, MB_ICONERROR or MB_OK);
+        lstQuickList.ItemIndex := i;
+        Exit;
+      end;
   end;
   OKPressed := True;