Changeset 463 for cprs/branches/foia-cprs/CPRS-Chart/Encounter

Timestamp:

Jul 6, 2008, 9:44:35 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading 1.0.26.76, OR_30_277

File:

• cprs/branches/foia-cprs/CPRS-Chart/Encounter/mVisitRelated.pas (modified) (8 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Encounter/mVisitRelated.pas

@@ -33 +33 @@
     procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
     function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
+    
   public
     constructor Create(AOwner: TComponent); override;
@@ -42 +43 @@
     procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
                                 AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
+                                
   end;
 
@@ -49 +51 @@
 
 const
+  TAG_NONE_CHECKED = 0;
   TAG_SCYES      = 1;
   TAG_AOYES      = 2;
@@ -89 +92 @@
     TAG_CVNO:   if Checked then chkCVYes.Checked  := False;
   end;
+  
   if chkSCYes.Checked then
   begin
@@ -119 +123 @@
 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 +181 @@
   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 +200 @@
   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 +234 @@
     end; {case}
   chkClick(Self);
+  
 end;