Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Consults/fConsults.pas

    r456 r829  
    11unit fConsults;
    2 
     2{Notes of Intent:
     3  Tab Order:
     4    The tab order has been custom coded to place the pnlRight in the Tab order
     5    right after the tvConsults. 
     6}
    37
    48interface
    … …  
    711  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORDtTm,
    812  fHSplit, stdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConsults, rOrders, uPCE,
    9   ORClasses, uConst, fDrawers, rTIU, uTIU, uDocTree, RichEdit, fPrintList;
     13  ORClasses, uConst, fDrawers, rTIU, uTIU, uDocTree, RichEdit, fPrintList,
     14  VA508AccessibilityManager, fBase508Form, VA508ImageListLabeler;
    1015
    1116type
    … …  
    172177    mnuViewRemoteData: TMenuItem;
    173178    mnuViewPostings: TMenuItem;
     179    imgLblNotes: TVA508ImageListLabeler;
     180    imgLblImages: TVA508ImageListLabeler;
     181    imgLblConsults: TVA508ImageListLabeler;
    174182    procedure mnuChartTabClick(Sender: TObject);
    175183    procedure lstConsultsClick(Sender: TObject);
    … …  
    268276    procedure popNoteMemoPreviewClick(Sender: TObject);
    269277    procedure popNoteMemoInsTemplateClick(Sender: TObject);
    270     procedure tvConsultsAddition(Sender: TObject; Node: TTreeNode);
    271     procedure tvConsultsDeletion(Sender: TObject; Node: TTreeNode);
    272278    procedure tvConsultsExit(Sender: TObject);
    273     procedure pnlResultsExit(Sender: TObject);
    274     procedure pnlActionExit(Sender: TObject);
    275279    procedure FormHide(Sender: TObject);
    276280    procedure FormShow(Sender: TObject);
    277     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
    278       Y: Integer);
    279281    procedure ViewInfo(Sender: TObject);
    280282    procedure mnuViewInformationClick(Sender: TObject);
     283    procedure pnlLeftExit(Sender: TObject);
     284    procedure pnlRightExit(Sender: TObject);
     285    procedure cmdEditResubmitExit(Sender: TObject);
     286    procedure cmdNewConsultExit(Sender: TObject);
    281287  private
     288    FocusToRightPanel : Boolean;
    282289    FEditingIndex: Integer;      // TIU index of document being currently edited
    283290    FChanged: Boolean;
    … …  
    300307    FNotifPending: boolean;
    301308    FOldFramePnlPatientExit: TNotifyEvent;
    302     FOldDrawerPnlTemplatesButtonExit: TNotifyEvent;
    303     FOldDrawerPnlEncounterButtonExit: TNotifyEvent;
    304     FOldDrawerEdtSearchExit: TNotifyEvent;
    305     FMousing: TDateTime;
     309    //FMousing: TDateTime;
     310    procedure DoLeftPanelCustomShiftTab;
    306311    procedure frmFramePnlPatientExit(Sender: TObject);
    307     procedure frmDrawerPnlTemplatesButtonExit(Sender: TObject);
    308     procedure frmDrawerPnlEncounterButtonExit(Sender: TObject);
    309     procedure frmDrawerEdtSearchExit(Sender: TObject);
    310312    procedure DoAutoSave(Suppress: integer = 1);
    311313    function GetTitleText(AnIndex: Integer): string;
    … …  
    395397     fReminderDialog, uReminders, fConsMedRslt, fTemplateFieldEditor,
    396398     dShared, rTemplates, fIconLegend, fNoteIDParents, fNoteCPFields,
    397      uTemplates,  uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog, DateUtils;
     399     uTemplates, fTemplateDialog, DateUtils, uVA508CPRSCompatibility, VA508AccessibilityRouter;
    398400
    399401const
    … …  
    906908      DocInfo := MakeXMLParamTIU(IntToStr(CreatedNote.IEN), FEditNote);
    907909      ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
    908       memResults.Lines.Assign(TmpBoilerPlate);
     910      QuickCopyWith508Msg(TmpBoilerPlate, memResults);
    909911      TmpBoilerPlate.Free;
    910912    end;
    … …  
    11071109      DocInfo := MakeXMLParamTIU(IntToStr(lstNotes.ItemIEN), FEditNote);
    11081110      ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
    1109       memResults.Lines.Assign(TmpBoilerPlate);
     1111      QuickCopyWith508Msg(TmpBoilerPlate, memResults);
    11101112      TmpBoilerPlate.Free;
    11111113    end;
    … …  
    12211223
    12221224{ Form events -----------------------------------------------------------------}
     1225
     1226procedure TfrmConsults.pnlRightExit(Sender: TObject);
     1227begin
     1228  inherited;
     1229  if TabIsPressed then
     1230    FindNextControl(tvConsults, True, True, False).SetFocus
     1231  else if ShiftTabIsPressed then
     1232    FindNextControl(pnlLeft, True, True, False).SetFocus;
     1233end;
    12231234
    12241235procedure TfrmConsults.pnlRightResize(Sender: TObject);
    … …  
    13831394end;
    13841395
     1396procedure TfrmConsults.cmdNewConsultExit(Sender: TObject);
     1397begin
     1398  inherited;
     1399  if Not cmdEditResubmit.Visible then
     1400    DoLeftPanelCustomShiftTab;
     1401end;
     1402
    13851403procedure TfrmConsults.cmdNewProcClick(Sender: TObject);
    13861404begin
    … …  
    23382356         mnuActPrintSF513.Enabled     :=  True;
    23392357         mnuActConsultResults.Enabled :=  (lstConsults.ItemIEN > 0) and
    2340                                           (((UserLevel = UL_UPDATE) or (UserLevel = UL_UPDATE_AND_ADMIN)) and
     2358                                          (((UserLevel = UL_UPDATE) or (UserLevel = UL_UPDATE_AND_ADMIN) or (UserLevel = UL_UNRESTRICTED)) and
    23412359                                          ((status<>ST_DISCONTINUED) and
    23422360                                           (status<>ST_CANCELLED)))
    … …  
    23652383  mnuActComplete.Enabled           :=   mnuActConsultResults.Enabled and
    23662384                                        ((MenuAccessRec.UserLevel = UL_UPDATE) or
    2367                                         (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN))
     2385                                        (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN) or
     2386                                        (MenuAccessRec.UserLevel = UL_UNRESTRICTED))
    23682387                                        and
    23692388                                       ((ConsultRec.ORStatus=ST_PENDING) or
    … …  
    23742393  mnuActMakeAddendum.Enabled       :=  mnuActConsultResults.Enabled and
    23752394                                        ((MenuAccessRec.UserLevel = UL_UPDATE) or
    2376                                         (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN))
     2395                                        (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN) or
     2396                                        (MenuAccessRec.UserLevel = UL_UNRESTRICTED))
    23772397                                        and
    23782398                                        (ConsultRec.ORStatus=ST_COMPLETE) and
    … …  
    26312651       if Copy(Piece(lstNotes.ItemID, ';', 2), 1, 4)= 'MCAR' then
    26322652         begin
    2633            memConsult.Lines.Assign(GetDetailedMedicineResults(lstNotes.ItemID));
     2653           QuickCopy(GetDetailedMedicineResults(lstNotes.ItemID), memConsult);
    26342654           x := Piece(Piece(Piece(lstNotes.ItemID, ';', 2), '(', 2), ',', 1) + ';' + Piece(lstNotes.ItemID, ';', 1);
    2635            NotifyOtherApps(NAE_REPORT, 'MED^' + x);
     2655           x := 'MED^' + x;
     2656           SetPiece(x, U, 10, Piece(lstNotes.Items[lstNotes.ItemIndex], U, 11));
     2657           NotifyOtherApps(NAE_REPORT, x);
    26362658         end
    26372659       else
    … …  
    26402662           mnuActChange.Enabled     := False;
    26412663           mnuActLoadBoiler.Enabled := False;
    2642            NotifyOtherApps(NAE_REPORT, 'TIU^' + lstNotes.ItemID);
     2664           x := 'TIU^' + lstNotes.ItemID;
     2665           SetPiece(x, U, 10, Piece(lstNotes.Items[lstNotes.ItemIndex], U, 11));
     2666           NotifyOtherApps(NAE_REPORT, x);
    26432667         end;
    26442668       memConsult.SelStart := 0;
    … …  
    28142838end;
    28152839
     2840{for printing multiple notes}
    28162841procedure TfrmConsults.RequestMultiplePrint(AForm: TfrmPrintList);
    28172842var
    … …  
    28192844  i: integer;
    28202845begin
    2821   inherited;
    28222846  with AForm.lbIDParents do
    2823   begin
    2824     for i := 0 to Items.Count - 1 do
    2825      begin
    2826        if Selected[i] then
    2827         begin
    2828          NoteIEN := StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
    2829          if NoteIEN > 0 then PrintSF513(NoteIEN, DisplayText[i]) else
    2830           begin
    2831            if NoteIEN = 0 then InfoBox(TX_NOCONSULT, TX_NOCSLT_CAP, MB_OK);
    2832            if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
    2833           end;
    2834         end; {if selected}
    2835      end; {for}
    2836   end; {with}
     2847  for i := 0 to Items.Count - 1 do
     2848  if Selected[i] then
     2849  begin
     2850    NoteIEN := StrToInt64def(Piece(Items[i], U, 1), 0);
     2851    if NoteIEN > 0 then PrintSF513(NoteIEN, DisplayText[i])
     2852    else if NoteIEN = 0 then InfoBox(TX_NOCONSULT, TX_NOCSLT_CAP, MB_OK)
     2853    else InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
     2854  end;
    28372855end;
    28382856
    … …  
    28522870  memConsult.SelStart := 0;
    28532871  SetResultMenus;
     2872  if memConsult.CanFocus then
     2873    memConsult.SetFocus;
    28542874end;
    28552875
    … …  
    28832903  LimitEditWidth(memResults, MAX_ENTRY_WIDTH - 1);
    28842904  memResults.Constraints.MinWidth := TextWidthByFont(memResults.Font.Handle, StringOfChar('X', MAX_ENTRY_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
    2885   pnlLeft.Width := self.ClientWidth - pnlResults.Width - sptHorz.Width;
     2905  //CQ13181     508 Consults--Splitter bar doesn't retain size
     2906 //CQ13181  pnlLeft.Width := self.ClientWidth - pnlResults.Width - sptHorz.Width;
    28862907end;
    28872908
    28882909procedure TfrmConsults.NotifyOrder(OrderAction: Integer; AnOrder: TOrder);
     2910var
     2911  SavedCsltID: string;
    28892912begin
    28902913  if ViewContext = 0 then exit;     // form has not yet been displayed, so nothing to update
    28912914  if EditingIndex <> -1 then exit;  // do not rebuild list until after save
     2915  with tvConsults do if Selected <> nil then SavedCsltID := lstConsults.ItemID;
    28922916  case OrderAction of
    28932917  ORDER_NEW:  UpdateList ;
    28942918  ORDER_SIGN: UpdateList{ sent by fReview, fOrderSign when orders signed, AnOrder=nil}
    28952919  end;
     2920  if SavedCsltID <> '' then with tvConsults do
     2921  begin
     2922    Selected := FindPieceNode(SavedCsltID, U, Items.GetFirstNode);
     2923    tvConsultsChange(Self, Selected);
     2924  end;
    28962925end;
    28972926
    … …  
    29252954begin
    29262955  inherited;
     2956  FocusToRightPanel := False;
    29272957  PageID := CT_CONSULTS;
    2928   memConsult.Color := ReadOnlyColor;
    2929   memPCEShow.Color := ReadOnlyColor;
    2930   lblNewTitle.Color := ReadOnlyColor;
    29312958  EditingIndex := -1;
    29322959  FLastNoteID := '';
    … …  
    29402967  frmDrawers.Splitter := splDrawers;
    29412968  frmDrawers.DefTempPiece := 2;
    2942   tvCsltNotes.Images := dmodShared.imgNotes;
    2943   tvCsltNotes.StateImages := dmodShared.imgImages;
    2944   tvConsults.Images := dmodShared.imgConsults;
    29452969  FImageFlag := TBitmap.Create;
    29462970  FDocList := TStringList.Create;
    … …  
    29522976    end;
    29532977  FCsltList := TStringList.Create;
    2954   TAccessibleTreeView.WrapControl(tvConsults);
    29552978end;
    29562979
    … …  
    29682991  tvConsultsChange(Self, tvConsults.Selected);
    29692992  //lstConsultsClick(Self);
     2993  if memConsult.CanFocus then
     2994    memConsult.SetFocus;
    29702995end;
    29712996
    … …  
    32553280end;
    32563281
     3282procedure TfrmConsults.cmdEditResubmitExit(Sender: TObject);
     3283begin
     3284  inherited;
     3285  DoLeftPanelCustomShiftTab;
     3286end;
     3287
    32573288procedure TfrmConsults.mnuViewSaveAsDefaultClick(Sender: TObject);
    32583289begin
    … …  
    32913322  inherited;
    32923323  EditTemplates(Self, True);
     3324end;
     3325
     3326procedure TfrmConsults.pnlLeftExit(Sender: TObject);
     3327begin
     3328  inherited;
     3329  if (Not FocusToRightPanel) then
     3330    if ShiftTabIsPressed then
     3331      frmFrame.tabPage.SetFocus
     3332    else if TabIsPressed then
     3333      frmFrame.pnlPatient.SetFocus;
     3334
     3335  if FocusToRightPanel then
     3336    FocusToRightPanel := False;
    32933337end;
    32943338
    … …  
    33873431procedure TfrmConsults.FormDestroy(Sender: TObject);
    33883432begin
    3389   TAccessibleTreeView.UnwrapControl(tvConsults);
    33903433  FDocList.Free;
    33913434  FCsltList.Free;
    … …  
    35783621    if (DocType = TYP_ADDENDUM) then
    35793622    begin
    3580       if AskCosignerForDocument(Addend, Author) and (Cosigner <= 0) then Result := True;
     3623      if AskCosignerForDocument(Addend, Author, DateTime) and (Cosigner <= 0) then Result := True;
    35813624    end else
    35823625    begin
    … …  
    36953738  ErrMsg: string;
    36963739begin
     3740  if fFrame.frmFrame.DLLActive = True then Exit; 
    36973741  if (EditingIndex > -1) and FChanged then
    36983742  begin
    … …  
    37113755    InfoBox(TX_SAVE_ERROR1 + ErrMsg + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING);
    37123756  //Assert(ErrMsg = '', 'AutoSave: ' + ErrMsg);
     3757end;
     3758
     3759procedure TfrmConsults.DoLeftPanelCustomShiftTab;
     3760begin
     3761  if ShiftTabIsPressed then begin
     3762    FocusToRightPanel := True;
     3763    FindNextControl(frmFrame.pnlPatient, False, True, False).SetFocus;
     3764  end;
    37133765end;
    37143766
    … …  
    38283880  begin
    38293881    ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
    3830     memResults.Lines.Assign(BoilerText);
     3882    QuickCopyWith508Msg(BoilerText, memResults);
    38313883    FChanged := False;
    38323884  end;
    … …  
    38493901        1: begin
    38503902             ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
    3851              memResults.Lines.AddStrings(BoilerText);  // append
     3903             QuickCopyWith508Msg(BoilerText, memResults);  // append
    38523904           end;
    38533905        2: AssignBoilerText;                         // replace
    … …  
    42834335        CreateListItemsforConsultTree(FCsltList, tmpList, ViewContext, GroupBy, Ascending);
    42844336        UpdateConsultsTreeView(FCsltList, tvConsults);
    4285         lstConsults.Items.Assign(tmpList);
     4337        FastAssign(tmpList, lstConsults.Items);
    42864338      end;
    42874339    with tvConsults do
    … …  
    43094361      uChanging := True;
    43104362      Items.BeginUpdate;
    4311       lstConsults.Items.AddStrings(DocList);
     4363      FastAddStrings(DocList, lstConsults.Items);
    43124364      BuildConsultsTree(Tree, DocList, '0', nil, FCurrentContext);
    43134365      Items.EndUpdate;
    … …  
    45394591  Signers := TStringList.Create;
    45404592  try
    4541     Signers.Assign(GetCurrentSigners(NoteIEN));
     4593    FastAssign(GetCurrentSigners(NoteIEN), Signers);
    45424594    for i := 0 to Signers.Count - 1 do
    45434595      if Piece(Signers[i], U, 1) = IntToStr(User.DUZ) then
    … …  
    45944646end;
    45954647
    4596 procedure TfrmConsults.tvConsultsAddition(Sender: TObject;
    4597   Node: TTreeNode);
    4598 begin
    4599   inherited;
    4600   TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
    4601 end;
    4602 
    4603 procedure TfrmConsults.tvConsultsDeletion(Sender: TObject;
    4604   Node: TTreeNode);
    4605 begin
    4606   inherited;
    4607   TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
    4608 end;
    4609 
    46104648procedure TfrmConsults.lstConsultsToPrint;     
    46114649var
    … …  
    46304668end;
    46314669
    4632 
    4633 {Tab Order tricks.  Need to change
    4634   tvConsult
    4635 
    4636   tvCsltNotes
    4637   cmdEditResubmit
    4638   cmdNewConsult
    4639   cmdNewProc
    4640   frmDrawers.pnlTemplateButton
    4641   frmDrawers.pnlEncounterButton
    4642   cmdPCE
    4643 
    4644   cmdChange
    4645   txtSubject
    4646   memResults
    4647 
    4648 to
    4649   tvConsult
    4650 
    4651   cmdChange
    4652   txtSubject
    4653   memResults
    4654 
    4655   tvCsltNotes
    4656   cmdEditResubmit
    4657   cmdNewConsult
    4658   cmdNewProc
    4659   frmDrawers.pnlTemplateButton
    4660   frmDrawers.pnlEncounterButton
    4661   cmdPCE
    4662 }
    4663 
    46644670procedure TfrmConsults.tvConsultsExit(Sender: TObject);
    46654671begin
    46664672  inherited;
    4667   if IncSecond(FMousing,1) < Now then
    4668   begin
    4669     if (Screen.ActiveControl = tvCsltNotes) or
    4670         (Screen.ActiveControl = cmdEditResubmit) or
    4671         (Screen.ActiveControl = cmdNewConsult) or
    4672         (Screen.ActiveControl = cmdNewProc) or
    4673         (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
    4674         (Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
    4675         (Screen.ActiveControl = cmdPCE) then
    4676       FindNextControl( cmdPCE, True, True, False).SetFocus;
    4677   end;
    4678   FMousing := 0;
    4679 end;
    4680 
    4681 procedure TfrmConsults.pnlResultsExit(Sender: TObject);
    4682 begin
    4683   inherited;
    4684   if IncSecond(FMousing,1) < Now then
    4685   begin
    4686     if (Screen.ActiveControl = frmFrame.pnlPatient) then
    4687       FindNextControl( tvConsults, True, True, False).SetFocus
    4688     else
    4689     if (Screen.ActiveControl = tvCsltNotes) or
    4690         (Screen.ActiveControl = cmdEditResubmit) or
    4691         (Screen.ActiveControl = cmdNewConsult) or
    4692         (Screen.ActiveControl = cmdNewProc) or
    4693         (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
    4694         (Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
    4695         (Screen.ActiveControl = cmdPCE) then
    4696       FindNextControl( tvCsltNotes, False, True, False).SetFocus;
    4697   end;
    4698   FMousing := 0;
    4699 end;
    4700 
    4701 procedure TfrmConsults.pnlActionExit(Sender: TObject);
    4702 begin
    4703   inherited;
    4704   if IncSecond(FMousing,1) < Now then
    4705   begin
    4706     if (Screen.ActiveControl = memConsult) or
    4707         (Screen.ActiveControl = cmdChange) or
    4708         (Screen.ActiveControl = txtSubject) or
    4709         (Screen.ActiveControl = memResults) then
    4710       begin
    4711         //frmFrame.pnlPatient.SetFocus  //COMMENTED OUT FOR CQ6498
    4712         if memResults.CanFocus then
    4713           memResults.SetFocus //ADDED THIS LINE FOR CQ6498
    4714         else
    4715           memConsult.SetFocus;
    4716       end
    4717     else
    4718     if (Screen.ActiveControl = tvConsults) then
    4719       FindNextControl( frmFrame.pnlPatient, False, True, False).SetFocus;
    4720   end;
    4721   FMousing := 0;
     4673  FocusToRightPanel := True;
     4674  if TabIsPressed then
     4675    FindNextControl(pnlLeft, False, True, False).SetFocus;
    47224676end;
    47234677
    … …  
    47254679begin
    47264680  FOldFramePnlPatientExit(Sender);
    4727   if IncSecond(FMousing,1) < Now then
    4728   begin
    4729     if (Screen.ActiveControl = memConsult) or
    4730         (Screen.ActiveControl = cmdChange) or
    4731         (Screen.ActiveControl = txtSubject) or
    4732         (Screen.ActiveControl = memResults) then
    4733       FindNextControl( memConsult, False, True, False).SetFocus;
    4734   end;
    4735   FMousing := 0;
     4681  if ShiftTabIsPressed then
     4682    FindNextControl( pnlRight, False, True, False).SetFocus;
    47364683end;
    47374684
    … …  
    47404687  inherited;
    47414688  frmFrame.pnlPatient.OnExit := FOldFramePnlPatientExit;
    4742   frmDrawers.pnlTemplatesButton.OnExit := FOldDrawerPnlTemplatesButtonExit;
    4743   frmDrawers.pnlEncounterButton.OnExit := FOldDrawerPnlEncounterButtonExit;
    4744   frmDrawers.edtSearch.OnExit := FOldDrawerEdtSearchExit;
    47454689end;
    47464690
    … …  
    47524696  FOldFramePnlPatientExit := frmFrame.pnlPatient.OnExit;
    47534697  frmFrame.pnlPatient.OnExit := frmFramePnlPatientExit;
    4754   FOldDrawerPnlTemplatesButtonExit := frmDrawers.pnlTemplatesButton.OnExit;
    4755   frmDrawers.pnlTemplatesButton.OnExit := frmDrawerPnlTemplatesButtonExit;
    4756   FOldDrawerPnlEncounterButtonExit := frmDrawers.pnlEncounterButton.OnExit;
    4757   frmDrawers.pnlEncounterButton.OnExit := frmDrawerPnlEncounterButtonExit;
    4758   FOldDrawerEdtSearchExit := frmDrawers.edtSearch.OnExit;
    4759   frmDrawers.edtSearch.OnExit := frmDrawerEdtSearchExit;
    47604698  {Below is a fix for ClearQuest Defect HDS0000948, Kind of Kloogy I looked
    47614699  and looked for side effects and a better solution and this was the best!}
    … …  
    47734711  end
    47744712  {End of ClearQuest Defect HDS0000948 Fixes}
    4775 end;
    4776 
    4777 procedure TfrmConsults.frmDrawerEdtSearchExit(Sender: TObject);
    4778 begin
    4779   FOldDrawerEdtSearchExit(Sender);
    4780   pnlActionExit(Sender);
    4781 end;
    4782 
    4783 procedure TfrmConsults.frmDrawerPnlTemplatesButtonExit(Sender: TObject);
    4784 begin
    4785   FOldDrawerPnlTemplatesButtonExit(Sender);
    4786   pnlActionExit(Sender);
    4787 end;
    4788 
    4789 procedure TfrmConsults.frmDrawerPnlEncounterButtonExit(Sender: TObject);
    4790 begin
    4791   FOldDrawerPnlEncounterButtonExit(Sender);
    4792   pnlActionExit(Sender);
    4793 end;
    4794 
    4795 procedure TfrmConsults.FormMouseMove(Sender: TObject; Shift: TShiftState;
    4796   X, Y: Integer);
    4797 begin
    4798   inherited;
    4799   FMousing := Now;
    48004713end;
    48014714
    … …  
    48214734
    48224735initialization
     4736  SpecifyFormIsNotADialog(TfrmConsults);
    48234737  uPCEEdit := TPCEData.Create;
    48244738  uPCEShow := TPCEData.Create;
Note: See TracChangeset for help on using the changeset viewer.