Ignore:
Timestamp:
Jul 6, 2008, 9:44:35 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading 1.0.26.76, OR_30_277

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/mVisitRelated.pas

    r459 r463  
    3333    procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
    3434    function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
     35   
    3536  public
    3637    constructor Create(AOwner: TComponent); override;
     
    4243    procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
    4344                                AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
     45                               
    4446  end;
    4547
     
    4951
    5052const
     53  TAG_NONE_CHECKED = 0;
    5154  TAG_SCYES      = 1;
    5255  TAG_AOYES      = 2;
     
    8992    TAG_CVNO:   if Checked then chkCVYes.Checked  := False;
    9093  end;
     94 
    9195  if chkSCYes.Checked then
    9296  begin
     
    119123begin
    120124  inherited;
    121 
    122125  lblSCYes.Height := 13;
    123126  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;
    131127end;
    132128
     
    185181  SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
    186182  SetCheckState(chkCVYes,  chkCVNo,  PCEData.CVRelated);
     183  // HDS00015356: GWOT Change that sets default answer to "YES"
     184  //if not previously determined or new encounter.
     185  if FSCCond.CVAllow then
     186  begin
     187    if PCEData.CVRelated = SCC_NA then
     188      chkCVYes.Checked := True;
     189  end;
    187190end;
    188191
     
    197200  SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
    198201  SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
     202  // HDS00015356: GWOT Change that sets default answer to "YES"
     203  //if not previously determined or new encounter.
     204  if FSCCond.CVAllow then
     205  begin
     206    if ACVRelated = SCC_NA then
     207      chkCVYes.Checked := True;
     208  end;
    199209end;
    200210
     
    224234    end; {case}
    225235  chkClick(Self);
     236 
    226237end;
    227238
Note: See TracChangeset for help on using the changeset viewer.