Module

fPCEOther

Path

C:\CPRS\CPRS30\Encounter\fPCEOther.pas

Last Modified

7/15/2014 3:26:36 PM

Units Used in Interface

Name Comments
fAutoSz -

Units Used in Implementation

Name Comments
fEncounterFrame -
rPCE -

Classes

Name Comments
TfrmPCEOther -

Procedures

Name Owner Declaration Scope Comments
cboOtherChange TfrmPCEOther procedure cboOtherChange(Sender: TObject); Public/Published -
cboOtherDblClick TfrmPCEOther procedure cboOtherDblClick(Sender: TObject); Public/Published -
cmdCancelClick TfrmPCEOther procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick TfrmPCEOther procedure cmdOKClick(Sender: TObject); Public/Published -
FormCreate TfrmPCEOther procedure FormCreate(Sender: TObject); Public/Published -
OtherLookup - procedure OtherLookup(var Code: string; OtherApp: Integer); Interfaced -
SetApp TfrmPCEOther procedure SetApp(OtherApp: Integer); Private -


Module Source

1     unit fPCEOther;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       fAutoSz, ORFn, ORCtrls, StdCtrls, VA508AccessibilityManager;
8     
9     type
10      TfrmPCEOther = class(TfrmAutoSz)
11        cmdCancel: TButton;
12        cmdOK: TButton;
13        cboOther: TORComboBox;
14        procedure cmdOKClick(Sender: TObject);
15        procedure FormCreate(Sender: TObject);
16        procedure cmdCancelClick(Sender: TObject);
17        procedure cboOtherDblClick(Sender: TObject);
18        procedure cboOtherChange(Sender: TObject);
19      private
20        fOtherApp: Integer;
21        FCode:   string;
22        procedure SetApp(OtherApp: Integer);
23      public
24        { Public declarations }
25      end;
26    
27    
28    procedure OtherLookup(var Code: string; OtherApp: Integer);
29    
30    implementation
31    
32    {$R *.DFM}
33    
34    uses rPCE, fEncounterFrame;
35    
36    procedure OtherLookup(var Code: string; OtherApp: Integer);
37    var
38      frmPCEOther: TfrmPCEOther;
39    begin
40      frmPCEOther := TfrmPCEOther.Create(Application);
41      try
42        ResizeFormToFont(TForm(frmPCEOther));
43        frmPCEOther.SetApp(OtherApp);
44        frmPCEOther.ShowModal;
45        Code := frmPCEOther.FCode;
46      finally
47        frmPCEOther.Free;
48      end;
49    end;
50    
51    procedure TfrmPCEOther.SetApp(OtherApp: Integer);
52    begin
53      fOtherApp := OtherApp;
54      case OtherApp of
55        PCE_IMM: Caption := 'Other Immunizations';
56        PCE_SK:  Caption := 'Other Skin Tests';
57        PCE_PED: Caption := 'Other Education Topics';
58    //    PCE_HF:  Caption := 'Other Health Factors';
59        PCE_XAM: Caption := 'Other Examinations';
60    
61      end;
62      cboOther.Caption := Caption;
63      LoadcboOther(cboOther.Items, uEncPCEData.Location, OtherApp);
64    end;
65    
66    
67    procedure TfrmPCEOther.cmdOKClick(Sender: TObject);
68    begin
69      inherited;
70      with cboOther do
71      begin
72        if ItemIndex = -1 then Exit;
73        FCode := CboOther.Items[ItemIndex];
74    //
75        Close;
76      end;
77    end;
78    
79    procedure TfrmPCEOther.FormCreate(Sender: TObject);
80    begin
81      inherited;
82      FCode := '';
83    end;
84    
85    
86    procedure TfrmPCEOther.cmdCancelClick(Sender: TObject);
87    begin
88      inherited;
89      fCode := '';
90      close();
91    end;
92    
93    procedure TfrmPCEOther.cboOtherDblClick(Sender: TObject);
94    begin
95      inherited;
96      cmdOKClick(Sender);
97    end;
98    
99    procedure TfrmPCEOther.cboOtherChange(Sender: TObject);
100   begin
101     inherited;
102     cmdOK.Enabled := (cboOther.ItemIndex >= 0);
103   end;
104   
105   end.

Module Calls (2 levels)


fPCEOther
 ├fAutoSz
 │ └fBase508Form
 ├rPCE
 │ ├uPCE
 │ ├UBACore
 │ ├rCore
 │ ├uCore
 │ ├uConst
 │ ├fEncounterFrame
 │ ├UBAGlobals
 │ └UBAConst
 └fEncounterFrame...

Module Called-By (2 levels)


        fPCEOther
   fPCEBaseMain┘ 
   fDiagnoses┤   
   fProcedure┤   
fImmunization┤   
    fSkinTest┤   
   fPatientEd┤   
fHealthFactor┤   
        fExam┘