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

Uploading 1.0.26.76, OR_30_277

Location:
cprs/branches/foia-cprs/CPRS-Chart
Files:
3 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
  • cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm

    r462 r463  
    11object frmFrame: TfrmFrame
    2   Left = 372
    3   Top = 222
     2  Left = 77
     3  Top = 0
    44  Width = 684
    55  Height = 487
     
    3030    Top = 0
    3131    Width = 676
    32     Height = 433
     32    Height = 441
    3333    Align = alClient
    3434    Caption = 'No patient is currently selected'
     
    4646    Top = 0
    4747    Width = 676
    48     Height = 433
     48    Height = 441
    4949    Align = alClient
    5050    TabOrder = 0
     
    592592    object stsArea: TStatusBar
    593593      Left = 1
    594       Top = 411
     594      Top = 419
    595595      Width = 674
    596596      Height = 21
     
    624624    object tabPage: TTabControl
    625625      Left = 1
    626       Top = 389
    627       Width = 674
     626      Top = 397
     627      Width = 647
    628628      Height = 22
    629629      Align = alBottom
     
    643643      Top = 42
    644644      Width = 674
    645       Height = 347
     645      Height = 355
    646646      Align = alClient
    647647      BevelOuter = bvNone
  • cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas

    r460 r463  
    1       unit uSignItems;
     1unit uSignItems;
    22
    33{.$define debug}
     
    654654                                 //end CQ3301/3302
    655655
     656                                 // GWOT - CV Default to Yes.
     657                                 if ( (si = siCombatVeteran) and (StsIdx = isUnKnown) ) then
     658                                 begin
     659                                    StsIdx := isChecked;
     660                                    Flags[7] := 'C';                  // HD200866 default as Combat Related - GWOT mandated Change
     661                                    FItems.SetStrPiece(i, 4, Flags);  // HD200866 default as Combat Related - GWOT mandated Change
     662                                 end;
    656663                                     
    657664                                 case StsIdx of
Note: See TracChangeset for help on using the changeset viewer.