Changeset 830 for cprs/trunk/CPRS-Chart/fReminderDialog.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fReminderDialog.pas (modified) (30 diffs)

cprs/trunk/CPRS-Chart/fReminderDialog.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, ORFn, StdCtrls, ComCtrls, Buttons, ORCtrls, uReminders, uConst,
-  ORClasses, fRptBox, Menus, rPCE, uTemplates;
+  ORClasses, fRptBox, Menus, rPCE, uTemplates,fBase508Form,
+  VA508AccessibilityManager, fMHTest;
 
 type
-  TfrmRemDlg = class(TForm)
+  TfrmRemDlg = class(TfrmBase508Form)
     sb1: TScrollBox;
     sb2: TScrollBox;
     splTxtData: TSplitter;
-    Label1: TLabel;
     pnlFrmBottom: TPanel;
     pnlBottom: TPanel;
@@ -27 +27 @@
     btnClinMaint: TButton;
     btnVisit: TButton;
-    lblFootnotes: TStaticText;
+    lblFootnotes: TLabel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -54 +54 @@
     FHNCRelated: integer;
     FCVRelated: integer;
+    FSHDRelated: integer;
     FLastWidth: integer;
     FUseBox2: boolean;
@@ -116 +117 @@
 uses fNotes, uPCE, uOrders, rOrders, uCore, rMisc, rReminders,
   fReminderTree, uVitals, rVitals, RichEdit, fConsults, fTemplateDialog,
-  uTemplateFields, fRemVisitInfo, rCore;
+  uTemplateFields, fRemVisitInfo, rCore, uVA508CPRSCompatibility,
+  VA508AccessibilityRouter, VAUtils;
 
 {$R *.DFM}
@@ -164 +166 @@
     Result := frmRemDlg.FReminder;
 end;
+
+var
+  uRemDlgStarting: boolean = False;
 
 procedure ViewRemDlgFromForm(OwningForm: TForm; RemNode: TORTreeNode; Template: TTemplate;
@@ -172 +177 @@
 
 begin
-  Err := '';
-  if assigned(frmRemDlg) then
-  begin
-    if IsTemplate then
-      Err := 'Can not process template while another reminder dialog is being processed.'
-    else
-    if frmRemDlg.FProcessingTemplate then
-      Err := 'Can not process reminder while a reminder dialog template is being processed.'
-  end;
-  Update := FALSE;
-  if Err = '' then
-  begin
-    if(RemForm.Form <> OwningForm) then
-    begin
-      if(assigned(RemForm.Form)) then
-        Err := 'Reminders currently begin processed on another tab.'
+  if uRemDlgStarting then exit;  // CQ#16219 - double click started reminder creation twice
+  uRemDlgStarting := True;
+  try
+    Err := '';
+    if assigned(frmRemDlg) then
+    begin
+      if IsTemplate then
+        Err := 'Can not process template while another reminder dialog is being processed.'
       else
+      if frmRemDlg.FProcessingTemplate then
+        Err := 'Can not process reminder while a reminder dialog template is being processed.'
+    end;
+    Update := FALSE;
+    if Err = '' then
+    begin
+      if(RemForm.Form <> OwningForm) then
       begin
-        if(OwningForm = frmNotes) then
-          frmNotes.AssignRemForm
+        if(assigned(RemForm.Form)) then
+          Err := 'Reminders currently begin processed on another tab.'
         else
-        if(OwningForm = frmConsults) then
-          frmConsults.AssignRemForm
-        else
-          Err := 'Can not process reminder dialogs on this tab.';
-        Update := TRUE;
+        begin
+          if(OwningForm = frmNotes) then
+            frmNotes.AssignRemForm
+          else
+          if(OwningForm = frmConsults) then
+            frmConsults.AssignRemForm
+          else
+            Err := 'Can not process reminder dialogs on this tab.';
+          Update := TRUE;
+        end;
       end;
     end;
-  end;
-  if Err <> '' then
-  begin
-    InfoBox(Err, 'Reminders in Process', MB_OK or MB_ICONERROR);
-    exit;
-  end;
-
-  if(InitDlg and (not assigned(frmRemDlg))) then
-  begin
-  //(AGP add) Check for a bad encounter date
-    if RemForm.PCEObj.DateTime < 0 then
+    if Err <> '' then
+    begin
+      InfoBox(Err, 'Reminders in Process', MB_OK or MB_ICONERROR);
+      exit;
+    end;
+
+    if(InitDlg and (not assigned(frmRemDlg))) then
+    begin
+    //(AGP add) Check for a bad encounter date
+      if RemForm.PCEObj.DateTime < 0 then
+        begin
+          InfoBox('The parent note has an invalid encounter date. Please contact IRM support for assistance.','Warning',MB_OK);
+          exit;
+        end;
+      frmRemDlg := TfrmRemDlg.Create(Application);
+      frmRemDlg.SetFontSize;
+      Update := TRUE;
+    end;
+    if(assigned(frmRemDlg)) then
+    begin
+      if Update then
       begin
-        InfoBox('The parent note has an invalid encounter date. Please contact IRM support for assistance.','Warning',MB_OK);
-        exit;
+        frmRemDlg.FSCRelated  := RemForm.PCEObj.SCRelated;
+        frmRemDlg.FAORelated  := RemForm.PCEObj.AORelated;
+        frmRemDlg.FIRRelated  := RemForm.PCEObj.IRRelated;
+        frmRemDlg.FECRelated  := RemForm.PCEObj.ECRelated;
+        frmRemDlg.FMSTRelated := RemForm.PCEObj.MSTRelated;
+        frmRemDlg.FHNCRelated := RemForm.PCEObj.HNCRelated;
+        frmRemDlg.FCVRelated  := RemForm.PCEObj.CVRelated;
+        frmRemDlg.FSHDRelated := RemForm.PCEObj.SHADRelated;
       end;
-    frmRemDlg := TfrmRemDlg.Create(Application);
-    frmRemDlg.SetFontSize;
-    Update := TRUE;
-  end;
-  if(assigned(frmRemDlg)) then
-  begin
-    if Update then
-    begin
-      frmRemDlg.FSCRelated  := RemForm.PCEObj.SCRelated;
-      frmRemDlg.FAORelated  := RemForm.PCEObj.AORelated;
-      frmRemDlg.FIRRelated  := RemForm.PCEObj.IRRelated;
-      frmRemDlg.FECRelated  := RemForm.PCEObj.ECRelated;
-      frmRemDlg.FMSTRelated := RemForm.PCEObj.MSTRelated;
-      frmRemDlg.FHNCRelated := RemForm.PCEObj.HNCRelated;
-      frmRemDlg.FCVRelated  := RemForm.PCEObj.CVRelated;
-    end;
-    UpdateReminderFinish;
-    if IsTemplate then
-      frmRemDlg.ProcessTemplate(Template)
-    else if assigned(RemNode) then
-      frmRemDlg.ProcessReminder(RemNode.StringData, RemNode.TreeView.GetNodeID(RemNode, 1, IncludeParentID));
+      UpdateReminderFinish;
+      if IsTemplate then
+        frmRemDlg.ProcessTemplate(Template)
+      else if assigned(RemNode) then
+        frmRemDlg.ProcessReminder(RemNode.StringData, RemNode.TreeView.GetNodeID(RemNode, 1, IncludeParentID));
+    end;
+  finally
+    uRemDlgStarting := False;
   end;
 end;
@@ -242 +254 @@
 var
   own: TComponent;
-  
+
 begin
   if assigned(RemNode) then
@@ -367 +379 @@
 procedure TfrmRemDlg.FormCreate(Sender: TObject);
 begin
-  reData.Color := ReadOnlyColor;
-  reText.Color := ReadOnlyColor;
+ // reData.Color := ReadOnlyColor;
+//  reText.Color := ReadOnlyColor;
   FSCCond := EligbleConditions;
  (* FSCRelated  := SCC_NA;
@@ -548 +560 @@
 
     ClearControls;
+
     FReminder.OnNeedRedraw := ControlsChanged;
     FReminder.OnTextChanged := UpdateText;
@@ -566 +579 @@
   sb1.Visible := not FUseBox2;
   FUseBox2 := not FUseBox2;
+  ClearControls;
+  if ScreenReaderSystemActive then
+    amgrMain.RefreshComponents;
   Application.ProcessMessages; // allows new ScrollBox to repaint
 end;
@@ -651 +667 @@
     LastCat := BadType;
     tmp := RemForm.PCEObj.StrVisitType(FSCRelated, FAORelated, FIRRelated,
-                          FECRelated, FMSTRelated, FHNCRelated, FCVRelated);
+                          FECRelated, FMSTRelated, FHNCRelated, FCVRelated,FSHDRelated);
     if FProcessingTemplate then
       i := GetReminderData(FReminder, TmpData)
@@ -720 +736 @@
   if(assigned(FReminder)) then
   begin
+    try
+    self.btnClear.Enabled := false;
     i := RemindersInProcess.IndexOf(FReminder.IEN);
     if(i >= 0) then
@@ -730 +748 @@
       if(OK) then
       begin
+        FReminder.ClearMHTest(FReminder.IEN);
+        if (FReminder.MHTestArray <> nil) and (FReminder.MHTestArray.Count = 0) then FReminder.MHTestArray.Free;
         RemindersInProcess.Delete(i);
         Tmp := (FReminder as TReminder).RemData; // clear should never be active if template
@@ -737 +757 @@
       end;
     end;
+    finally
+      self.btnClear.Enabled := true;
+    end;
   end;
 end;
@@ -742 +765 @@
 procedure TfrmRemDlg.btnCancelClick(Sender: TObject);
 begin
+  try
+    self.btnCancel.Enabled := false;
   if(KillAll) then
   begin
@@ -747 +772 @@
     frmRemDlg.Release;
     frmRemDlg := nil;
+  end;
+  finally
+    self.btnCancel.Enabled := true;
   end;
 end;
@@ -754 +782 @@
   i, cnt: integer;
   msg, RemWipe: string;
-
+  ClearMH: boolean;
 
 begin
@@ -760 +788 @@
  //flag the patient specific dialog to be destroy if not in process.
  RemWipe := '';
+ ClearMH := false;
   if FProcessingTemplate or FSilent then
     begin
@@ -797 +826 @@
   end;
   if(Result) then
+    begin
+      for i := 0 to RemindersInProcess.Count - 1 do
+        begin
+          if (TReminderDialog(TReminder(RemindersInProcess.Objects[i])).MHTestArray <> nil) and
+             (TReminderDialog(TReminder(RemindersInProcess.Objects[i])).MHTestArray.Count > 0) then
+             begin
+               if ClearMH = false then
+                 begin
+                   RemoveMHTest('');
+                   ClearMH := true;
+                 end;
+                TReminderDialog(TReminder(RemindersInProcess.Objects[i])).MHTestArray.Free;
+             end;
+        end;
+      (* if (FReminder.MHTestArray <> nil) and (FReminder.MHTestArray.Count > 0) then
+         begin
+           RemoveMHTest('');
+           FReminder.MHTestArray.Free;
+         end; *)
     ResetProcessing(RemWipe);
+  end;
 end;
 
@@ -954 +1003 @@
   WHType: TStrings;
   //Test: String;
-  WHCnt,x: Integer;
+  MHLoc, WHCnt,x: Integer;
   WHArray: TStringlist;
   GecRemIen, GecRemStr, RemWipe: String;
@@ -1029 +1078 @@
   RemWipe := '';   //AGP CHANGE 24.8
   try
+    self.btnFinish.Enabled := false;
     OldRemCount := ProcessedReminders.Count;
     if not FProcessingTemplate then
@@ -1145 +1195 @@
                   Process := FALSE
                 else
+                begin
                   RemForm.NewNoteRE.SelText := TmpText.Text;
+                  SpeakTextInserted;
+                end;
               end;
             end;
@@ -1359 +1412 @@
                   Tmp := ValAndStoreVitals(VitalList);
                   if (Tmp <> 'True') then
-                    showmessage(Tmp);
+                    ShowMsg(Tmp);
                 end;
 
@@ -1384 +1437 @@
                     if TestStaff <= 0 then
                       TestStaff := User.DUZ;
-                    if(Piece(MHList[i],U,3) = '1') then
+                   if (Piece(MHList[i],U,3) = '1') and (MHDLLFound = false) then
                     begin
                       GAFScore := StrToIntDef(Piece(MHList[i],U,6),0);
@@ -1392 +1445 @@
                     else
                     begin
+                      if Piece(MHLIst[i],U,6) = 'New MH dll' then
+                        begin
+                          //The dll take date and time the original code took only date.
+                          if Encounter.Location <> FReminder.PCEDataObj.Location then
+                            MHLoc := FReminder.PCEDataObj.Location
+                            else MHLoc := Encounter.Location;
+                          saveMHTest(Piece(MHList[i],U,2), FloattoStr(FReminder.PCEDataObj.VisitDateTime), InttoStr(MHLoc));
+                        end
+                      else
                       SaveMentalHealthTest(Piece(MHList[i],U,2), TestDate, TestStaff,
                                            Piece(MHList[i],U,6));
@@ -1401 +1463 @@
             finally
               MHList.Free;
+              if (FReminder.MHTestArray <> nil) and (FReminder.MHTestArray.Count > 0) then FReminder.MHTestArray.Free;
             end;
 
@@ -1458 +1521 @@
                   begin
                     DoOrders := FALSE;
-                    ShowMessage('No Orders Placed.');
+                    ShowMsg('No Orders Placed.');
                   end;
                 end;
@@ -1496 +1559 @@
     end;
   finally
+    self.btnFinish.Enabled := true;
     if(Kill) then
     begin
@@ -1600 +1664 @@
     frmRemVisitInfo.fraVisitRelated.InitAllow(FSCCond);
     frmRemVisitInfo.fraVisitRelated.InitRelated(FSCRelated, FAORelated,
-                FIRRelated, FECRelated, FMSTRelated, FHNCRelated, FCVRelated);
+                FIRRelated, FECRelated, FMSTRelated, FHNCRelated, FCVRelated, FSHDRelated);
     frmRemVisitInfo.dteVitals.FMDateTime := VitalsDate;
     frmRemVisitInfo.ShowModal;
@@ -1609 +1673 @@
         FVitalsDate := VitalsDate;
       frmRemVisitInfo.fraVisitRelated.GetRelated(FSCRelated, FAORelated,
-                FIRRelated, FECRelated, FMSTRelated, FHNCRelated, FCVRelated);
+                FIRRelated, FECRelated, FMSTRelated, FHNCRelated, FCVRelated, FSHDRelated);
       FSCPrompt := FALSE;
       UpdateText(nil);