Module

mVisitRelated

Path

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

Last Modified

7/15/2014 3:26:36 PM

Initialization Code

initialization
  SpecifyFormIsNotADialog(TfraVisitRelated);

end.

Units Used in Interface

Name Comments
rPCE -
uPCE -

Classes

Name Comments
TfraVisitRelated -

Procedures

Name Owner Declaration Scope Comments
chkClick TfraVisitRelated procedure chkClick(Sender: TObject); Public/Published -
DisableCheck - procedure DisableCheck(ACheckBox: TCheckBox); Local -
GetRelated TfraVisitRelated procedure GetRelated(var ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; Public -
GetRelated TfraVisitRelated procedure GetRelated(PCEData: TPCEData); overload; Public -
InitAllow TfraVisitRelated procedure InitAllow(SCCond: TSCConditions); Public -
InitRelated TfraVisitRelated procedure InitRelated(const ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; Public -
InitRelated TfraVisitRelated procedure InitRelated(PCEData: TPCEData); overload; Public -
SetCheckEnable TfraVisitRelated procedure SetCheckEnable(CheckYes, CheckNo: TCheckBox; Allow: Boolean); Private -
SetCheckState TfraVisitRelated procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer); Private -

Functions

Name Owner Declaration Scope Comments
GetCheckState TfraVisitRelated function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer; Private -

Constants

Name Declaration Scope Comments
TAG_AONO 12 Global -
TAG_AOYES 2 Global -
TAG_CVNO 17 Global -
TAG_CVYES 7 Global -
TAG_ECNO 14 Global -
TAG_ECYES 4 Global -
TAG_HNCNO 16 Global -
TAG_HNCYES 6 Global -
TAG_IRNO 13 Global -
TAG_IRYES 3 Global -
TAG_MSTNO 15 Global -
TAG_MSTYES 5 Global -
TAG_SCNO 11 Global -
TAG_SCYES 1 Global -
TAG_SHDNO 18 Global -
TAG_SHDYES 8 Global -


Module Source

1     unit mVisitRelated;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, ExtCtrls, rPCE, uPCE;
8     
9     type
10      TfraVisitRelated = class(TFrame)
11        gbVisitRelatedTo: TGroupBox;
12        chkSCYes: TCheckBox;
13        chkAOYes: TCheckBox;
14        chkIRYes: TCheckBox;
15        chkECYes: TCheckBox;
16        chkMSTYes: TCheckBox;
17        chkMSTNo: TCheckBox;
18        chkECNo: TCheckBox;
19        chkIRNo: TCheckBox;
20        chkAONo: TCheckBox;
21        chkSCNo: TCheckBox;
22        chkHNCYes: TCheckBox;
23        chkHNCNo: TCheckBox;
24        chkCVYes: TCheckBox;
25        chkCVNo: TCheckBox;
26        chkSHDYes: TCheckBox;
27        chkSHDNo: TCheckBox;
28        lblSCNo: TStaticText;
29        lblSCYes: TStaticText;
30        procedure chkClick(Sender: TObject);
31      private
32        FSCCond: TSCConditions;
33        procedure SetCheckEnable(CheckYes, CheckNo: TCheckBox; Allow: Boolean);
34        procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
35        function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
36    
37      public
38        constructor Create(AOwner: TComponent); override;
39        procedure GetRelated(PCEData: TPCEData); overload;
40        procedure GetRelated(var ASCRelated, AAORelated, AIRRelated,
41                                    AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
42        procedure InitAllow(SCCond: TSCConditions);
43        procedure InitRelated(PCEData: TPCEData); overload;
44        procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
45                                    AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
46    
47      end;
48    
49    implementation
50    
51    uses VA508AccessibilityRouter;
52    
53    {$R *.DFM}
54    
55    const
56      TAG_SCYES      = 1;
57      TAG_AOYES      = 2;
58      TAG_IRYES      = 3;
59      TAG_ECYES      = 4;
60      TAG_MSTYES     = 5;
61      TAG_HNCYES     = 6;
62      TAG_CVYES      = 7;
63      TAG_SHDYES     = 8;
64      TAG_SCNO       = 11;
65      TAG_AONO       = 12;
66      TAG_IRNO       = 13;
67      TAG_ECNO       = 14;
68      TAG_MSTNO      = 15;
69      TAG_HNCNO      = 16;
70      TAG_CVNO       = 17;
71      TAG_SHDNO      = 18;
72    
73    
74    procedure TfraVisitRelated.chkClick(Sender: TObject);
75    
76      procedure DisableCheck(ACheckBox: TCheckBox);
77      begin
78        ACheckBox.Checked := False; ACheckBox.Enabled := False;
79      end;
80    
81    begin
82      inherited;
83      if Sender is TCheckBox then with TCheckBox(Sender) do case Tag of
84        TAG_SCYES:   if Checked then chkSCNo.Checked    := False;
85        TAG_AOYES:   if Checked then chkAONo.Checked    := False;
86        TAG_IRYES:   if Checked then chkIRNo.Checked    := False;
87        TAG_ECYES:   if Checked then chkECNo.Checked    := False;
88        TAG_MSTYES:  if Checked then chkMSTNo.Checked   := False;
89        TAG_HNCYES:  if Checked then chkHNCNo.Checked   := False;
90        TAG_CVYES:   if Checked then chkCVNo.Checked    := False;
91        TAG_SHDYES:  if Checked then chkSHDNo.Checked   := False;
92        TAG_SCNO:    if Checked then chkSCYes.Checked   := False;
93        TAG_AONO:    if Checked then chkAOYes.Checked   := False;
94        TAG_IRNO:    if Checked then chkIRYes.Checked   := False;
95        TAG_ECNO:    if Checked then chkECYes.Checked   := False;
96        TAG_MSTNO:   if Checked then chkMSTYes.Checked  := False;
97        TAG_HNCNO:   if Checked then chkHNCYes.Checked  := False;
98        TAG_CVNO:    if Checked then chkCVYes.Checked   := False;
99        TAG_SHDNO:   if Checked then chkSHDYes.Checked := False;
100     end;
101     if chkSCYes.Checked then
102     begin
103       DisableCheck(chkAOYes);
104       DisableCheck(chkIRYes);
105       DisableCheck(chkECYes);
106       DisableCheck(chkSHDYes);
107   //    DisableCheck(chkMSTYes);
108       DisableCheck(chkAONo);
109       DisableCheck(chkIRNo);
110       DisableCheck(chkECNo);
111       DisableCheck(chkSHDNo);
112   //    DisableCheck(chkMSTNo);
113     end else
114     begin
115       SetCheckEnable(chkSCYes,  chkSCNo,  FSCCond.SCAllow);
116       SetCheckEnable(chkAOYes,  chkAONo,  FSCCond.AOAllow);
117       SetCheckEnable(chkIRYes,  chkIRNo,  FSCCond.IRAllow);
118       SetCheckEnable(chkECYes,  chkECNo,  FSCCond.ECAllow);
119       SetCheckEnable(chkSHDYEs, chkSHDNo, FSCCond.SHDAllow);
120     end;
121     SetCheckEnable(chkMSTYes, chkMSTNo, FSCCond.MSTAllow);
122     SetCheckEnable(chkHNCYes, chkHNCNo, FSCCond.HNCAllow);
123     SetCheckEnable(chkCVYes, chkCVNo,   FSCCond.CVAllow);
124   
125     if chkAOYes.Checked or chkIRYes.Checked or chkECYes.Checked or chkSHDYes.Checked then //or chkMSTYes.Checked then
126     begin
127       if FSCCond.SCAllow then
128       begin
129          chkSCYes.Checked := False;
130          chkSCNo.Checked := True;
131       end;
132     end;
133   end;
134   
135   constructor TfraVisitRelated.Create(AOwner: TComponent);
136   begin
137     inherited Create(AOwner);
138     TabStop := FALSE;
139     lblSCYes.Height := 13;
140     lblSCNo.Height := 13;
141   end;
142   
143   function TfraVisitRelated.GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
144   begin
145     Result := SCC_NA;
146     if CheckYes.Enabled and CheckYes.Checked then Result := SCC_YES;
147     if CheckNo.Enabled and CheckNo.Checked then Result := SCC_NO;
148   end;
149   
150   procedure TfraVisitRelated.GetRelated(PCEData: TPCEData);
151   begin
152     PCEData.SCRelated  := GetCheckState(chkSCYes,  chkSCNo);
153     PCEData.AORelated  := GetCheckState(chkAOYes,  chkAONo);
154     PCEData.IRRelated  := GetCheckState(chkIRYes,  chkIRNo);
155     PCEData.ECRelated  := GetCheckState(chkECYes,  chkECNo);
156     PCEData.MSTRelated := GetCheckState(chkMSTYes, chkMSTNo);
157     PCEData.HNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
158     PCEData.CVRelated  := GetCheckState(chkCVYes,  chkCVNo);
159     PCEData.SHADRelated := GetCheckState(chkSHDYes, chkSHDNo);
160   end;
161   
162   procedure TfraVisitRelated.GetRelated(var ASCRelated, AAORelated,
163     AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
164   begin
165     ASCRelated  := GetCheckState(chkSCYes,  chkSCNo);
166     AAORelated  := GetCheckState(chkAOYes,  chkAONo);
167     AIRRelated  := GetCheckState(chkIRYes,  chkIRNo);
168     AECRelated  := GetCheckState(chkECYes,  chkECNo);
169     AMSTRelated := GetCheckState(chkMSTYes, chkMSTNo);
170     AHNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
171     ACVRelated  := GetCheckState(chkCVYes,  chkCVNo);
172     ASHDRelated := GetCheckState(chkSHDYes, chkSHDNo);
173   end;
174   
175   procedure TfraVisitRelated.InitAllow(SCCond: TSCConditions);
176   begin
177     FSCCond := SCCond;
178     with FSCCond do
179     begin
180       SetCheckEnable(chkSCYes,  chkSCNo,  SCAllow);
181       SetCheckEnable(chkAOYes,  chkAONo,  AOAllow);
182       SetCheckEnable(chkIRYes,  chkIRNo,  IRAllow);
183       SetCheckEnable(chkECYes,  chkECNo,  ECAllow);
184       SetCheckEnable(chkMSTYes, chkMSTNo, MSTAllow);
185       SetCheckEnable(chkHNCYes, chkHNCNo, HNCAllow);
186       SetCheckEnable(chkCVYes,  chkCVNo,  CVAllow);
187       SetCheckEnable(chkSHDYes, chkSHDNo, SHDAllow);
188     end;
189   end;
190   
191   procedure TfraVisitRelated.InitRelated(PCEData: TPCEData);
192   begin
193     SetCheckState(chkSCYes,  chkSCNo,  PCEData.SCRelated);
194     SetCheckState(chkAOYes,  chkAONo,  PCEData.AORelated);
195     SetCheckState(chkIRYes,  chkIRNo,  PCEData.IRRelated);
196     SetCheckState(chkECYes,  chkECNo,  PCEData.ECRelated);
197     SetCheckState(chkMSTYes, chkMSTNo, PCEData.MSTRelated);
198     SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
199     SetCheckState(chkCVYes,  chkCVNo,  PCEData.CVRelated);
200     SetCheckState(chkSHDYes, chkSHDNo, PCEData.SHADRelated);
201      //HDS00015356: GWOT Default, if Related no specified default to "Yes"
202     // -1=Null, 0=No, 1 = Yes
203     if FSCCond.CVAllow then
204     begin
205       if PCEData.CVRelated = SCC_NA then
206          chkCVYes.Checked := True;
207     end;
208   end;
209   
210   procedure TfraVisitRelated.InitRelated(const ASCRelated, AAORelated, AIRRelated,
211     AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
212   begin
213     SetCheckState(chkSCYes,  chkSCNo,  ASCRelated);
214     SetCheckState(chkAOYes,  chkAONo,  AAORelated);
215     SetCheckState(chkIRYes,  chkIRNo,  AIRRelated);
216     SetCheckState(chkECYes,  chkECNo,  AECRelated);
217     SetCheckState(chkMSTYes, chkMSTNo, AMSTRelated);
218     SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
219     SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
220     SetCheckState(chkSHDYes, chkSHDNo, ASHDRelated);
221      //HDS00015356: GWOT Default, if Related no specified default to "Yes"
222      // -1=Null, 0=No, 1 = Yes
223     if FSCCond.CVAllow then
224     begin
225       if ACVRelated = SCC_NA then
226          chkCVYes.Checked := True;
227     end;
228   end;
229   
230   procedure TfraVisitRelated.SetCheckEnable(CheckYes, CheckNo: TCheckBox;
231     Allow: Boolean);
232   begin
233     CheckYes.Enabled := Allow;
234     CheckNo.Enabled := Allow;
235   end;
236   
237   procedure TfraVisitRelated.SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
238   begin
239     if CheckYes.Enabled then
240       case CheckState of
241       SCC_NA:  begin
242                  CheckYes.Checked := False;
243                  CheckNo.Checked := False;
244                end;
245       SCC_NO:  begin
246                  CheckYes.Checked := False;
247                  CheckNo.Checked := True;
248                end;
249       SCC_YES: begin
250                  CheckYes.Checked := True;
251                  CheckNo.Checked := False;
252                end;
253       end; {case}
254     chkClick(Self);
255   end;
256   
257   
258   initialization
259     SpecifyFormIsNotADialog(TfraVisitRelated);
260   
261   end.

Module Calls (2 levels)


mVisitRelated
 ├rPCE
 │ ├uPCE
 │ ├UBACore
 │ ├rCore
 │ ├uCore
 │ ├uConst
 │ ├fEncounterFrame
 │ ├UBAGlobals
 │ └UBAConst
 └uPCE...

Module Called-By (2 levels)


      mVisitRelated
       fVisitType┤ 
fEncounterFrame┘ │ 
    fRemVisitInfo┘ 
fReminderDialog┘