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

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Encounter/mVisitRelated.pas

    r456 r829  
    99type
    1010  TfraVisitRelated = class(TFrame)
    11     lblSCYes: TStaticText;
    12     lblSCNo: TStaticText;
    13     lblSCSelect: TStaticText;
    14     bvlSCFrame: TBevel;
     11    gbVisitRelatedTo: TGroupBox;
    1512    chkSCYes: TCheckBox;
    1613    chkAOYes: TCheckBox;
    … …  
    2724    chkCVYes: TCheckBox;
    2825    chkCVNo: TCheckBox;
     26    chkSHDYes: TCheckBox;
     27    chkSHDNo: TCheckBox;
     28    lblSCNo: TStaticText;
     29    lblSCYes: TStaticText;
    2930    procedure chkClick(Sender: TObject);
    3031  private
    … …  
    3334    procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
    3435    function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
     36
    3537  public
    3638    constructor Create(AOwner: TComponent); override;
    3739    procedure GetRelated(PCEData: TPCEData); overload;
    3840    procedure GetRelated(var ASCRelated, AAORelated, AIRRelated,
    39                                 AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
     41                                AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
    4042    procedure InitAllow(SCCond: TSCConditions);
    4143    procedure InitRelated(PCEData: TPCEData); overload;
    4244    procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
    43                                 AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
     45                                AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
     46
    4447  end;
    4548
    4649implementation
     50
     51uses VA508AccessibilityRouter;
    4752
    4853{$R *.DFM}
    … …  
    5661  TAG_HNCYES     = 6;
    5762  TAG_CVYES      = 7;
     63  TAG_SHDYES     = 8;
    5864  TAG_SCNO       = 11;
    5965  TAG_AONO       = 12;
    … …  
    6369  TAG_HNCNO      = 16;
    6470  TAG_CVNO       = 17;
     71  TAG_SHDNO      = 18;
     72
    6573
    6674procedure TfraVisitRelated.chkClick(Sender: TObject);
    … …  
    7482  inherited;
    7583  if Sender is TCheckBox then with TCheckBox(Sender) do case Tag of
    76     TAG_SCYES:  if Checked then chkSCNo.Checked   := False;
    77     TAG_AOYES:  if Checked then chkAONo.Checked   := False;
    78     TAG_IRYES:  if Checked then chkIRNo.Checked   := False;
    79     TAG_ECYES:  if Checked then chkECNo.Checked   := False;
    80     TAG_MSTYES: if Checked then chkMSTNo.Checked  := False;
    81     TAG_HNCYES: if Checked then chkHNCNo.Checked  := False;
    82     TAG_CVYES:  if Checked then chkCVNo.Checked   := False;
    83     TAG_SCNO:   if Checked then chkSCYes.Checked  := False;
    84     TAG_AONO:   if Checked then chkAOYes.Checked  := False;
    85     TAG_IRNO:   if Checked then chkIRYes.Checked  := False;
    86     TAG_ECNO:   if Checked then chkECYes.Checked  := False;
    87     TAG_MSTNO:  if Checked then chkMSTYes.Checked := False;
    88     TAG_HNCNO:  if Checked then chkHNCYes.Checked := False;
    89     TAG_CVNO:   if Checked then chkCVYes.Checked  := False;
     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;
    90100  end;
    91101  if chkSCYes.Checked then
    … …  
    94104    DisableCheck(chkIRYes);
    95105    DisableCheck(chkECYes);
     106    DisableCheck(chkSHDYes);
    96107//    DisableCheck(chkMSTYes);
    97108    DisableCheck(chkAONo);
    98109    DisableCheck(chkIRNo);
    99110    DisableCheck(chkECNo);
     111    DisableCheck(chkSHDNo);
    100112//    DisableCheck(chkMSTNo);
    101113  end else
    … …  
    105117    SetCheckEnable(chkIRYes,  chkIRNo,  FSCCond.IRAllow);
    106118    SetCheckEnable(chkECYes,  chkECNo,  FSCCond.ECAllow);
     119    SetCheckEnable(chkSHDYEs, chkSHDNo, FSCCond.SHDAllow);
    107120  end;
    108121  SetCheckEnable(chkMSTYes, chkMSTNo, FSCCond.MSTAllow);
    109122  SetCheckEnable(chkHNCYes, chkHNCNo, FSCCond.HNCAllow);
    110   SetCheckEnable(chkCVYes, chkCVNo, FSCCond.CVAllow);
    111   if chkAOYes.Checked or chkIRYes.Checked or chkECYes.Checked then //or chkMSTYes.Checked then
    112   begin
    113     chkSCYes.Checked := False;
    114     chkSCNo.Checked := True;
     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;
    115132  end;
    116133end;
    … …  
    118135constructor TfraVisitRelated.Create(AOwner: TComponent);
    119136begin
    120   inherited;
    121 
     137  inherited Create(AOwner);
     138  TabStop := FALSE;
    122139  lblSCYes.Height := 13;
    123140  lblSCNo.Height := 13;
    124 //  chkHNCYes.Visible := HNCOK;
    125 //  chkHNCNo.Visible := HNCOK;
    126 //  if not HNCOK then
    127 //  begin
    128 //    height := height - chkHNCYes.height + 1;
    129 //    bvlSCFrame.height := bvlSCFrame.height - chkHNCYes.height + 1;
    130 //  end;
    131141end;
    132142
    … …  
    147157  PCEData.HNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
    148158  PCEData.CVRelated  := GetCheckState(chkCVYes,  chkCVNo);
     159  PCEData.SHADRelated := GetCheckState(chkSHDYes, chkSHDNo);
    149160end;
    150161
    151162procedure TfraVisitRelated.GetRelated(var ASCRelated, AAORelated,
    152   AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer);
     163  AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
    153164begin
    154165  ASCRelated  := GetCheckState(chkSCYes,  chkSCNo);
    … …  
    159170  AHNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
    160171  ACVRelated  := GetCheckState(chkCVYes,  chkCVNo);
     172  ASHDRelated := GetCheckState(chkSHDYes, chkSHDNo);
    161173end;
    162174
    … …  
    173185    SetCheckEnable(chkHNCYes, chkHNCNo, HNCAllow);
    174186    SetCheckEnable(chkCVYes,  chkCVNo,  CVAllow);
     187    SetCheckEnable(chkSHDYes, chkSHDNo, SHDAllow);
    175188  end;
    176189end;
    … …  
    185198  SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
    186199  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;
    187208end;
    188209
    189210procedure TfraVisitRelated.InitRelated(const ASCRelated, AAORelated, AIRRelated,
    190   AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer);
     211  AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
    191212begin
    192213  SetCheckState(chkSCYes,  chkSCNo,  ASCRelated);
    … …  
    197218  SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
    198219  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;
    199228end;
    200229
    … …  
    226255end;
    227256
     257
     258initialization
     259  SpecifyFormIsNotADialog(TfraVisitRelated);
     260
    228261end.
Note: See TracChangeset for help on using the changeset viewer.