Changeset 462 for cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas

Timestamp:

Jul 6, 2008, 9:11:54 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Upload of OR_30_270, 1.0.26.69

File:

• cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas

@@ -1354 +1354 @@
   Reason: string;
   CCOWResponse: UserResponse;
+
+    procedure UpdatePatientInfoForAlert;
+    begin
+      if Patient.Inpatient then
+      begin
+        Encounter.Inpatient := True;
+        Encounter.Location := Patient.Location;
+        Encounter.DateTime := Patient.AdmitTime;
+        Encounter.VisitCategory := 'H';
+      end;
+      if User.IsProvider then Encounter.Provider := User.DUZ;
+      SetupPatient(FlaggedPTList);
+      if (FlaggedPTList.IndexOf(Patient.DFN) < 0) then
+        FlaggedPTList.Add(Patient.DFN);
+    end;
+
 begin
   SaveDFN := Patient.DFN;
@@ -1377 +1393 @@
          HasActiveFlg(FlagList, HasFlag, NewDFN);
         end;
-        if (FCCOWInstalled and (ctxContextor.State = csSuspended)) or (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then
+        if FCCOWInstalled and (ctxContextor.State = csParticipating) then
           begin
-            if Patient.Inpatient then
-            begin
-              Encounter.Inpatient := True;
-              Encounter.Location := Patient.Location;
-              Encounter.DateTime := Patient.AdmitTime;
-              Encounter.VisitCategory := 'H';
-            end;
-            if User.IsProvider then Encounter.Provider := User.DUZ;
-            SetupPatient(FlaggedPTList);
-            if (FlaggedPTList.IndexOf(Patient.DFN) < 0) then
-                FlaggedPTList.Add(Patient.DFN);
+            if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then
+              UpdatePatientInfoForAlert
+            else
+              begin
+                case CCOWResponse of
+                  urCancel:
+                    begin
+                      Patient.DFN := SaveDFN;
+                      Notifications.Prior;
+                      Exit;
+                    end;
+                  urBreak:
+                    begin
+                      // do not revert to old DFN if context was manually broken by user - v26 (RV)
+                      if (ctxContextor.State = csParticipating) then Patient.DFN := SaveDFN;
+                      UpdatePatientInfoForAlert;
+                    end;
+                  else
+                    UpdatePatientInfoForAlert;
+                end;
+              end;
           end
         else
-          begin
-            Patient.DFN := SaveDFN;
-            if Assigned(FlagList) then
-            begin
-             FlagList.Clear;
-             HasFlag := False;
-             HasActiveFlg(FlagList, HasFlag, NewDFN);
-            end;
-             Notifications.Prior;
-            Exit;
-          end;
+          UpdatePatientInfoForAlert
       end else
       begin
@@ -1655 +1671 @@
                     // do not revert to old DFN if context was manually broken by user - v26 (RV)
                     if (ctxContextor.State = csParticipating) then Patient.DFN := SaveDFN;
+                    SetupPatient;
+                    tabPage.TabIndex := PageIDToTab(NextTab);
+                    tabPageChange(tabPage);
+                  end;
+                else
+                  begin
                     SetupPatient;
                     tabPage.TabIndex := PageIDToTab(NextTab);
@@ -4064 +4086 @@
   mnuFilePrintSelectedItems.Enabled := True;
   mnuFileNotifRemove.Enabled := True;
-  if FCCOWIconName= 'BMP_CCOW_BROKEN' then
-  begin
-    mnuFileResumeContext.Enabled := True;
-    mnuFileBreakContext.Enabled := False;
-  end else
-  begin
-    mnuFileResumeContext.Enabled := False;
-    mnuFileBreakContext.Enabled := True;
-  end;
-
+  if not FCCOWError then
+  begin
+    if FCCOWIconName= 'BMP_CCOW_BROKEN' then
+    begin
+      mnuFileResumeContext.Enabled := True;
+      mnuFileBreakContext.Enabled := False;
+    end else
+    begin
+      mnuFileResumeContext.Enabled := False;
+      mnuFileBreakContext.Enabled := True;
+    end;
+  end;
   mnuEdit.Enabled := True;
   mnuView.Enabled := True;