Changeset 465 for cprs


Ignore:
Timestamp:
Jul 9, 2008, 3:30:54 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

CPRS v1.0.26.76

Location:
cprs/branches/tmg-cprs/CPRS-Chart
Files:
1 deleted
3 edited

Legend:

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

    r453 r465  
    5050
    5151const
     52  TAG_NONE_CHECKED = 0;
    5253  TAG_SCYES      = 1;
    5354  TAG_AOYES      = 2;
     
    121122begin
    122123  inherited;
    123 
    124124  lblSCYes.Height := 13;
    125125  lblSCNo.Height := 13;
    126 //  chkHNCYes.Visible := HNCOK;
    127 //  chkHNCNo.Visible := HNCOK;
    128 //  if not HNCOK then
    129 //  begin
    130 //    height := height - chkHNCYes.height + 1;
    131 //    bvlSCFrame.height := bvlSCFrame.height - chkHNCYes.height + 1;
    132 //  end;
    133126end;
    134127
     
    187180  SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
    188181  SetCheckState(chkCVYes,  chkCVNo,  PCEData.CVRelated);
     182  //PATCH: Added OR_3_215v26_70 11/07/2007 jb; //kt
     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;
     190  //end patch  //kt
    189191end;
    190192
     
    199201  SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
    200202  SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
     203  //PATCH: Added OR_3_215v26_70 11/07/2007 jb; //kt
     204  // HDS00015356: GWOT Change that sets default answer to "YES"
     205  //if not previously determined or new encounter.
     206  if FSCCond.CVAllow then
     207  begin
     208    if ACVRelated = SCC_NA then
     209      chkCVYes.Checked := True;
     210  end;
     211  //end patch  //kt
    201212end;
    202213
  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.dfm

    r453 r465  
    11object frmFrame: TfrmFrame
    2   Left = 238
    3   Top = 200
     2  Left = 77
     3  Top = 20
    44  Width = 684
    55  Height = 487
  • cprs/branches/tmg-cprs/CPRS-Chart/uSignItems.pas

    r453 r465  
    742742                                 //end CQ3301/3302
    743743
    744                                //PATCH: Added OR_3_215v26_70 11/07/2007 jb
    745                                         // GWOT - CV Default to Yes.
    746                                         if ( (si = siCombatVeteran) and (StsIdx = isUnKnown) ) then
    747                                          begin
    748                                                 StsIdx := isChecked;
    749                                       Flags[7] := 'C';                  // HD200866 default as Combat Related - GWOT mandated Change
    750                                       FItems.SetStrPiece(i, 4, Flags);  // HD200866 default as Combat Related - GWOT mandated Change
    751                                    end;
    752                                //End Patch
     744                                 //PATCH: Added OR_3_215v26_70 11/07/2007 jb
     745                                 // GWOT - CV Default to Yes.
     746                                       if ( (si = siCombatVeteran) and (StsIdx = isUnKnown) ) then
     747                                 begin
     748                                                StsIdx := isChecked;
     749                                    Flags[7] := 'C';                  // HD200866 default as Combat Related - GWOT mandated Change
     750                                    FItems.SetStrPiece(i, 4, Flags);  // HD200866 default as Combat Related - GWOT mandated Change
     751                                 end;
     752                                 //End Patch
    753753
    754754                                 case StsIdx of
Note: See TracChangeset for help on using the changeset viewer.