Changeset 830 for cprs/trunk/CPRS-Chart/fSurgery.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/fSurgery.pas (modified) (18 diffs)

cprs/trunk/CPRS-Chart/fSurgery.pas

@@ -7 +7 @@
   fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
   uPCE, ORClasses, fDrawers, ImgList, fSurgeryView, rSurgery, uSurgery,
-  uCaseTree, uTIU;
+  uCaseTree, uTIU, fBase508Form, VA508AccessibilityManager,
+  VA508ImageListLabeler;
 
 type
@@ -141 +142 @@
     mnuViewRemoteData: TMenuItem;
     mnuViewPostings: TMenuItem;
+    imgLblImages: TVA508ImageListLabeler;
+    imgLblSurgery: TVA508ImageListLabeler;
     procedure mnuChartTabClick(Sender: TObject);
     procedure pnlRightResize(Sender: TObject);
@@ -204 +207 @@
     procedure popNoteMemoPreviewClick(Sender: TObject);
     procedure popNoteMemoInsTemplateClick(Sender: TObject);
-    procedure tvSurgeryAddition(Sender: TObject; Node: TTreeNode);
-    procedure tvSurgeryDeletion(Sender: TObject; Node: TTreeNode);
     procedure ViewInfo(Sender: TObject);
     procedure mnuViewInformationClick(Sender: TObject);
@@ -273 +274 @@
      fTIUView, fTemplateEditor, uReminders, fReminderDialog, uOrders, rConsults, fReminderTree,
      fNoteProps, fNotesBP, fTemplateFieldEditor, uTemplates, dShared, rTemplates,
-     FIconLegend, fPCEEdit, rTIU, fRptBox, uAccessibleTreeView,
-     uAccessibleTreeNode, fTemplateDialog;
+     FIconLegend, fPCEEdit, rTIU, fRptBox, fTemplateDialog, VA508AccessibilityRouter;
 
 const
@@ -462 +462 @@
   inherited;
   PageID := CT_SURGERY;
-  memSurgery.Color := ReadOnlyColor;
-  memPCEShow.Color := ReadOnlyColor;
-  lblNewTitle.Color := ReadOnlyColor;
   EditingIndex := -1;
   FEditNote.LastCosigner := 0;
@@ -475 +472 @@
   frmDrawers.Splitter := splDrawers;
   frmDrawers.DefTempPiece := 1;
-  tvSurgery.Images := dmodShared.imgSurgery;
-  tvSurgery.StateImages := dmodShared.imgImages;
   FImageFlag := TBitmap.Create;
   FCaseList := TStringList.Create;
-  TAccessibleTreeView.WrapControl(tvSurgery);
 end;
 
@@ -532 +526 @@
 procedure TfrmSurgery.FormDestroy(Sender: TObject);
 begin
-  TAccessibleTreeView.UnwrapControl(tvSurgery);
   FCaseList.Free;
   FImageFlag.Free;
@@ -840 +833 @@
     if (DocType = TYP_ADDENDUM) then
     begin
-      if AskCosignerForDocument(Addend, Author) and (Cosigner <= 0) then Result := True;
+      if AskCosignerForDocument(Addend, Author, DateTime) and (Cosigner <= 0) then Result := True;
     end else
     begin
@@ -1003 +996 @@
       DocInfo := MakeXMLParamTIU(IntToStr(CreatedNote.IEN), FEditNote);
       ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
-      memNewNote.Lines.Assign(TmpBoilerPlate);
+      QuickCopy(TmpBoilerPlate, memNewNote);
       TmpBoilerPlate.Free;
     end;
@@ -1284 +1277 @@
   begin
     ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
-    memNewNote.Lines.Assign(BoilerText);
+    QuickCopy(BoilerText, memNewNote);
     FChanged := False;
   end;
@@ -1305 +1298 @@
         1: begin
              ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
-             memNewNote.Lines.AddStrings(BoilerText);  // append
+             QuickAdd(BoilerText, memNewNote);  // append
            end;
         2: AssignBoilerText;                         // replace
@@ -1387 +1380 @@
   ErrMsg: string;
 begin
+  if fFrame.frmFrame.DLLActive = true then Exit;  
   if (EditingIndex > -1) and FChanged then
   begin
@@ -2367 +2361 @@
   x: string;
   IsTIUDocument: boolean;
+  //MsgString, HasImages: string;
   //ShowReport: boolean;
 begin
@@ -2397 +2392 @@
               lblTitle.Hint := lblTitle.Caption;
               //LoadOpTop(memSurgery.Lines, StrToIntDef(Piece(x, U, 1), 0), PCaseTreeObject(Selected.Data)^.IsNonORProc, ShowReport);
+              //--------------------------------------------------------------------------------------------------------
+              //  DON'T DO THIS UNTIL SURGERY API IS CHANGED - OTHERWISE WILL GIVE FALSE '0' COUNT FOR EVERY CASE  (RV)
+(*              MsgString := 'SUR^' + Piece(x, U, 1);
+              HasImages := BOOLCHAR[PCaseTreeObject(Selected.Data)^.ImageCount > 0];
+              SetPiece(MsgString, U, 10, HasImages);
+              NotifyOtherApps(NAE_REPORT, 'SUR^' + MsgString);*)
+              //--------------------------------------------------------------------------------------------------------
               NotifyOtherApps(NAE_REPORT, 'SUR^' + Piece(x, U, 1));
               lstNotes.ItemIndex := -1;
@@ -2560 +2562 @@
 procedure TfrmSurgery.lstNotesClick(Sender: TObject);
 { loads the text for the selected note or displays the editing panel for the selected note }
+var
+  x: string;
 begin
   inherited;
@@ -2594 +2598 @@
   memNewNote.Repaint;
   memSurgery.Repaint;
-  NotifyOtherApps(NAE_REPORT, 'TIU^' + lstNotes.ItemID);
+  x := 'TIU^' + lstNotes.ItemID;
+  SetPiece(x, U, 10, Piece(lstNotes.Items[lstNotes.ItemIndex], U, 11));
+  NotifyOtherApps(NAE_REPORT, x);
 end;
 
@@ -2668 +2674 @@
 end;
 
-procedure TfrmSurgery.tvSurgeryAddition(Sender: TObject; Node: TTreeNode);
-begin
-  inherited;
-  TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
-end;
-
-procedure TfrmSurgery.tvSurgeryDeletion(Sender: TObject; Node: TTreeNode);
-begin
-  TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
-  inherited;
-end;
-
 procedure TfrmSurgery.ViewInfo(Sender: TObject);
 begin
@@ -2701 +2695 @@
 
 initialization
+  SpecifyFormIsNotADialog(TfrmSurgery);
   uPCEEdit := TPCEData.Create;
   uPCEShow := TPCEData.Create;