Changeset 1679 for cprs/trunk/CPRS-Chart/fNotes.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fNotes.pas (modified) (16 diffs)

cprs/trunk/CPRS-Chart/fNotes.pas

@@ -9 +9 @@
   uPCE, ORClasses, fDrawers, ImgList, rTIU, uTIU, uDocTree, fRptBox, fPrintList,
   fNoteST, ORNet, fNoteSTStop, fBase508Form, VA508AccessibilityManager,
-  VA508ImageListLabeler;
+  VA508ImageListLabeler, RichEdit;
 
 type
@@ -416 +416 @@
   uChanging: Boolean;
   uIDNotesActive: Boolean;
+  NoteTotal: string;
 
 
@@ -453 +454 @@
                  frmRemDlg.btnCancelClick(Self);
                end;
+             //agp fix for a problem with reminders not clearing out when switching patients
+             if WhyNot = '' then
+                begin
+                 frmRemDlg.btnCancelClick(Self);
+                 if assigned(frmRemDlg) then
+                   begin
+                     result := false;
+                     exit;
+                   end;
+                end;
            end;
     end;
@@ -466 +477 @@
       '0': begin
              if WhyNot = 'COMMIT' then FSilent := True;
-             SaveCurrentNote(Result)
+             SaveCurrentNote(Result);
            end;
     end;
@@ -529 +540 @@
   uPCEEdit.Clear;
   frmDrawers.ResetTemplates;
+  NoteTotal := sCallV('ORCNOTE GET TOTAL', [Patient.DFN]);
 end;
 
@@ -592 +604 @@
 begin
   with AForm.lbIDParents do
-  for i := 0 to Items.Count - 1 do
-  if Selected[i] then
-  begin
-    NoteIEN := StrToInt64def(Piece(Items[i], U, 1), 0);
-    if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE)
-    else if NoteIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK)
-    else InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
-  end;
+  begin
+    for i := 0 to Items.Count - 1 do
+     begin
+       if Selected[i] then
+        begin
+         AForm.lbIDParents.ItemIndex := i;
+         NoteIEN := ItemIEN;  //StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
+         if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE) else
+         begin
+           if NoteIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK);
+           if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
+         end;
+        end; {if selected}
+     end; {for}
+  end; {with}
 end;
 
@@ -649 +668 @@
   // clear the editing controls (also clear the new labels?)
   txtSubject.Text := '';
-  //lblNotes.Caption := '';
+  lblNotes.Caption := '';
   SearchTextStopFlag := false;
   if memNewNote <> nil then memNewNote.Clear; //CQ7012 Added test for nil
@@ -703 +722 @@
           EnableList := [odTemplates]
         else
-          EnableList := [odTemplates, odReminders];
-        ShowList := [odTemplates, odReminders];
+          if FutureEncounter(uPCEEdit) then
+            begin
+              EnableList := [odTemplates];
+              ShowList := [odTemplates];
+            end
+          else
+            begin
+              EnableList := [odTemplates, odReminders];
+              ShowList := [odTemplates, odReminders];
+            end;
       end
       else
@@ -1359 +1386 @@
   if(assigned(frmReminderTree)) then
     frmReminderTree.EnableActions;
-  DisplayPCE;  
+  DisplayPCE;
   pnlRight.Refresh;
   memNewNote.Repaint;
@@ -1373 +1400 @@
   inherited;
   mnuActNewClick(Self);
- end;
+end;
 
 procedure TfrmNotes.cmdPCEClick(Sender: TObject);
@@ -1484 +1511 @@
           if not NoteEmpty then
 //            if not FChanged and (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES)
-            if (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES)
+            if (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR,
+                        MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = ID_YES)
               then memNewNote.Lines.Clear;
         end;
@@ -1659 +1687 @@
   NC_SEARCHTEXT: begin;
                    SearchTextStopFlag := False;
-                   SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt );
+                   SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt, StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]) );
                    with SearchCtxt do if Changed then
                    begin
@@ -1743 +1771 @@
     lblNotes.Caption := 'Search for "'+FCurrentContext.SearchString+'" was stopped!';
   end;
+  //Clear the search text. We are done searching
+  FCurrentContext.SearchString := '';
   frmSearchStop.Hide;
   // Text Search CQ: HDS00002856 --------------------
+  lblNotes.Caption := lblNotes.Caption + ' (Total: ' + NoteTotal + ')'; 
   lblNotes.hint := lblNotes.Caption;
   tvNotes.Caption := lblNotes.Caption;
@@ -1984 +2015 @@
   inherited;
   if lstNotes.ItemIEN = 0 then Exit;
+  if assigned(frmRemDlg) then
+    begin
+       frmRemDlg.btnCancelClick(Self);
+       if assigned(frmRemDlg) then exit;
+    end;
   ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD');
   if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;
@@ -2355 +2391 @@
 begin
   inherited;
-  FEditCtrl.SelText := Clipboard.AsText; {*KCM*}
+  Sendmessage(FEditCtrl.Handle,EM_PASTESPECIAL,CF_TEXT,0);
   frmNotes.pnlWriteResize(Self);
   //FEditCtrl.PasteFromClipboard;        // use AsText to prevent formatting
@@ -2945 +2981 @@
               end;
             Dest.Free;
-          end;
+          end else
+          //Reset the caption
+          lblNotes.Caption := SetNoteTreeLabel(FCurrentContext);
+
         // Text Search CQ: HDS00002856 ---------------------------------------