Index: /cprs/branches/foia-cprs/CPRS-Chart/Encounter/mVisitRelated.pas
===================================================================
--- /cprs/branches/foia-cprs/CPRS-Chart/Encounter/mVisitRelated.pas	(revision 462)
+++ /cprs/branches/foia-cprs/CPRS-Chart/Encounter/mVisitRelated.pas	(revision 463)
@@ -33,4 +33,5 @@
     procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
     function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
+    
   public
     constructor Create(AOwner: TComponent); override;
@@ -42,4 +43,5 @@
     procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
                                 AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
+                                
   end;
 
@@ -49,4 +51,5 @@
 
 const
+  TAG_NONE_CHECKED = 0;
   TAG_SCYES      = 1;
   TAG_AOYES      = 2;
@@ -89,4 +92,5 @@
     TAG_CVNO:   if Checked then chkCVYes.Checked  := False;
   end;
+  
   if chkSCYes.Checked then
   begin
@@ -119,14 +123,6 @@
 begin
   inherited;
-
   lblSCYes.Height := 13;
   lblSCNo.Height := 13;
-//  chkHNCYes.Visible := HNCOK;
-//  chkHNCNo.Visible := HNCOK;
-//  if not HNCOK then
-//  begin
-//    height := height - chkHNCYes.height + 1;
-//    bvlSCFrame.height := bvlSCFrame.height - chkHNCYes.height + 1;
-//  end;
 end;
 
@@ -185,4 +181,11 @@
   SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
   SetCheckState(chkCVYes,  chkCVNo,  PCEData.CVRelated);
+  // HDS00015356: GWOT Change that sets default answer to "YES"
+  //if not previously determined or new encounter.
+  if FSCCond.CVAllow then
+  begin
+    if PCEData.CVRelated = SCC_NA then
+      chkCVYes.Checked := True;
+  end; 
 end;
 
@@ -197,4 +200,11 @@
   SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
   SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
+  // HDS00015356: GWOT Change that sets default answer to "YES"
+  //if not previously determined or new encounter.
+  if FSCCond.CVAllow then
+  begin
+    if ACVRelated = SCC_NA then
+      chkCVYes.Checked := True;
+  end;
 end;
 
@@ -224,4 +234,5 @@
     end; {case}
   chkClick(Self);
+  
 end;
 
Index: /cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm
===================================================================
--- /cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm	(revision 462)
+++ /cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm	(revision 463)
@@ -1,5 +1,5 @@
 object frmFrame: TfrmFrame
-  Left = 372
-  Top = 222
+  Left = 77
+  Top = 0
   Width = 684
   Height = 487
@@ -30,5 +30,5 @@
     Top = 0
     Width = 676
-    Height = 433
+    Height = 441
     Align = alClient
     Caption = 'No patient is currently selected'
@@ -46,5 +46,5 @@
     Top = 0
     Width = 676
-    Height = 433
+    Height = 441
     Align = alClient
     TabOrder = 0
@@ -592,5 +592,5 @@
     object stsArea: TStatusBar
       Left = 1
-      Top = 411
+      Top = 419
       Width = 674
       Height = 21
@@ -624,6 +624,6 @@
     object tabPage: TTabControl
       Left = 1
-      Top = 389
-      Width = 674
+      Top = 397
+      Width = 647
       Height = 22
       Align = alBottom
@@ -643,5 +643,5 @@
       Top = 42
       Width = 674
-      Height = 347
+      Height = 355
       Align = alClient
       BevelOuter = bvNone
Index: /cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas
===================================================================
--- /cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas	(revision 462)
+++ /cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas	(revision 463)
@@ -1,3 +1,3 @@
-      unit uSignItems;
+unit uSignItems;
 
 {.$define debug}
@@ -654,4 +654,11 @@
                                  //end CQ3301/3302
 
+                                 // GWOT - CV Default to Yes.
+                                 if ( (si = siCombatVeteran) and (StsIdx = isUnKnown) ) then
+                                 begin
+                                    StsIdx := isChecked;
+                                    Flags[7] := 'C';                  // HD200866 default as Combat Related - GWOT mandated Change
+                                    FItems.SetStrPiece(i, 4, Flags);  // HD200866 default as Combat Related - GWOT mandated Change
+                                 end;
                                      
                                  case StsIdx of