Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderSaveQuick.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/fOrderSaveQuick.pas (modified) (3 diffs)

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

@@ -104 +104 @@
   DGroupName, QuickName, CRC: string;
   NewIEN, AnIndex, i: Integer;
+  IsClinicOrder: boolean;
 begin
   Result := False;
   CRC := ResponseSet.OrderCRC;
+  IsClinicOrder := False;
   if CRC = EMPTY_CRC then
   begin
@@ -117 +119 @@
     with frmSaveQuickOrder do
     begin
+      if (ResponseSet.DisplayGroup = ClinDisp) and (ResponseSet.Dialog = 'PSJI OR PAT FLUID OE') then
+        begin
+          ResponseSet.DisplayGroup := IVDisp;
+          IsClinicOrder := True;
+        end;
       if ResponseSet.DisplayGroup = ClinDisp then
         DGroupName := NameOfDGroup(InptDisp)
@@ -156 +163 @@
           SaveQuickListForOD(lstQuickList.Items, ResponseSet.DisplayGroup);
       end; {if OKPressed}
+      if IsClinicOrder = True then ResponseSet.DisplayGroup := ClinDisp;
     end; {with frmSaveQuickOrder}
   finally