Module

fxServer

Path

C:\CPRS\CPRS30\fxServer.pas

Last Modified

7/15/2014 3:26:40 PM

Units Used in Interface

Name Comments
fBase508Form -

Units Used in Implementation

Name Comments
rMisc -

Classes

Name Comments
TfrmDbgServer -

Procedures

Name Owner Declaration Scope Comments
DebugShowServer - procedure DebugShowServer; Interfaced -
FormCreate TfrmDbgServer procedure FormCreate(Sender: TObject); Public/Published -
FormKeyUp TfrmDbgServer procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -


Module Source

1     unit fxServer;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, ComCtrls, ORNet, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmDbgServer = class(TfrmBase508Form)
11        memSymbols: TRichEdit;
12        RadioButton1: TRadioButton;
13        RadioButton2: TRadioButton;
14        Label1: TLabel;
15        Edit1: TEdit;
16        procedure FormCreate(Sender: TObject);
17        procedure FormKeyUp(Sender: TObject; var Key: Word;
18          Shift: TShiftState);
19      private
20        { Private declarations }
21      public
22        { Public declarations }
23      end;
24    
25    procedure DebugShowServer;
26    
27    implementation
28    
29    {$R *.DFM}
30    
31    uses rMisc, ORFn;
32    
33    procedure DebugShowServer;
34    var
35      frmDbgServer: TfrmDbgServer;
36    begin
37      frmDbgServer := TfrmDbgServer.Create(Application);
38      try
39        ResizeAnchoredFormToFont(frmDbgServer);
40        frmDbgServer.ShowModal;
41      finally
42        frmDbgServer.Release;
43      end;
44    end;
45    
46    procedure TfrmDbgServer.FormCreate(Sender: TObject);
47    begin
48      ListSymbolTable(memSymbols.Lines);
49    end;
50    
51    procedure TfrmDbgServer.FormKeyUp(Sender: TObject; var Key: Word;
52      Shift: TShiftState);
53    begin
54      if Key = VK_ESCAPE then
55      begin
56        Key := 0;
57        Close;
58      end;
59    end;
60    
61    end.

Module Calls (2 levels)


fxServer
 ├fBase508Form
 │ ├uConst
 │ └uHelpManager
 └rMisc
   └fOrders

Module Called-By (2 levels)


                   fxServer
                   fFrame┘ 
              CPRSChart┤   
                  fPage┤   
                uOrders┤   
                fODBase┤   
                UBACore┤   
                fOrders┤   
                   uPCE┤   
      fBALocalDiagnoses┤   
             fEncVitals┤   
                fVitals┤   
                 fCover┤   
                 rCover┤   
              fPtSelMsg┤   
                 fPtSel┤   
            fOrdersSign┤   
         fPrintLocation┤   
                  fMeds┤   
                fRptBox┤   
                 fNotes┤   
               fReports┤   
                 fEncnt┤   
                 fProbs┤   
          fReportsPrint┤   
                fGraphs┤   
              fConsults┤   
                fDCSumm┤   
        fReminderDialog┤   
                  fLabs┤   
              fLabPrint┤   
                fReview┤   
            fIconLegend┤   
           fOrdersPrint┤   
               fSurgery┤   
uVA508CPRSCompatibility┤   
           fOrdersRenew┤   
             fODConsult┤   
                fODProc┤   
                 fODRad┤   
                 fODLab┤   
                fODMeds┤   
               fODMedIV┤   
              fODVitals┤   
                fODAuto┤   
                 fOMSet┤   
         fOrdersRelease┤   
              fODMedNVA┤   
         fOrdersOnChart┤   
             fOCSession┤   
              fODActive┤   
               fPCEEdit┘