Module

fCombatVet

Path

C:\CPRS\CPRS30\fCombatVet.pas

Last Modified

7/15/2014 3:26:36 PM

Units Used in Interface

Name Comments
fBase508Form -

Units Used in Implementation

Name Comments
uCore -

Classes

Name Comments
TfrmCombatVet -

Procedures

Name Owner Declaration Scope Comments
FormShow TfrmCombatVet procedure FormShow(Sender: TObject); Public/Published -

Global Variables

Name Type Declaration Comments
frmCombatVet TfrmCombatVet frmCombatVet: TfrmCombatVet; -

Constants

Name Declaration Scope Comments
clCPRSBlue TColor($914F01) Interfaced Blue 145 Green 79 Red 1
clCPRSRed TColor($2F01C1) Interfaced Blue 47 Green 1 Red 193
clCPRSYellow TColor($01C9FF) Interfaced Blue 1 Green 201 Red 255


Module Source

1     unit fCombatVet;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7       Dialogs, fBase508Form, StdCtrls, VA508AccessibilityManager, Buttons,
8       ExtCtrls;
9     const
10      clCPRSYellow = TColor($01C9FF);  //Blue 1 Green 201 Red 255
11      clCPRSRed = TColor($2F01C1);  //Blue 47 Green 1 Red 193
12      clCPRSBlue = TColor($914F01);  //Blue 145 Green 79 Red 1
13    
14    type
15      TfrmCombatVet = class(TfrmBase508Form)
16        pnlTop: TPanel;
17        BitBtn1: TBitBtn;
18        edtServiceBranch: TEdit;
19        edtStatus: TEdit;
20        edtSeparationDate: TEdit;
21        edtExpireDate: TEdit;
22        edtOEF_OIF: TEdit;
23        lblServiceBranch: TLabel;
24        lblStatus: TLabel;
25        lblSepDate: TLabel;
26        lblExpireDate: TLabel;
27        procedure FormShow(Sender: TObject);
28      private
29        { Private declarations }
30      public
31        { Public declarations }
32      end;
33    
34    var
35      frmCombatVet: TfrmCombatVet;
36    
37    implementation
38    
39    {$R *.dfm}
40    
41    uses uCore, ORFn;
42    
43    procedure TfrmCombatVet.FormShow(Sender: TObject);
44    const
45      FONTFACTOR = 2; //WAT - edit control height wasn't increasing as font size increased
46    begin
47      inherited;
48      ResizeFormToFont(Self);
49      edtServiceBranch.Text := Patient.CombatVet.ServiceBranch;
50      edtStatus.Text := Patient.CombatVet.Status;
51      edtSeparationDate.Text := Patient.CombatVet.ServiceSeparationDate;
52      edtExpireDate.Text := Patient.CombatVet.ExpirationDate;
53      edtOEF_OIF.Text := Patient.CombatVet.OEF_OIF;
54      //WAT
55      edtServiceBranch.Height := Round(FONTFACTOR * MainFontWidth);
56      edtStatus.Height := Round(FONTFACTOR * MainFontWidth);
57      edtSeparationDate.Height := Round(FONTFACTOR * MainFontWidth);
58      edtExpireDate.Height := Round(FONTFACTOR * MainFontWidth);
59      if edtOEF_OIF.GetTextLen > 0 then  edtOEF_OIF.Height := Round(FONTFACTOR * MainFontWidth);
60      BitBtn1.Height := BitBtn1.Height + MainFontWidth;
61      BitBtn1.Width := BitBtn1.Width + MainFontWidth;
62      //WAT
63    end;
64    
65    end.

Module Calls (2 levels)


fCombatVet
 ├fBase508Form
 │ ├uConst
 │ └uHelpManager
 └uCore
   ├rCore
   ├uConst
   ├uCombatVet
   ├rTIU
   ├rOrders
   ├rConsults
   └uOrders

Module Called-By (2 levels)


                 fCombatVet
                   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┘