Changeset 465 for cprs/branches/tmg-cprs/CPRS-Chart/Encounter

Timestamp:

Jul 9, 2008, 3:30:54 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

CPRS v1.0.26.76

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Encounter/mVisitRelated.pas (modified) (4 diffs)

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

@@ -50 +50 @@
 
 const
+  TAG_NONE_CHECKED = 0;
   TAG_SCYES      = 1;
   TAG_AOYES      = 2;
@@ -121 +122 @@
 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;
 
@@ -187 +180 @@
   SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
   SetCheckState(chkCVYes,  chkCVNo,  PCEData.CVRelated);
+  //PATCH: Added OR_3_215v26_70 11/07/2007 jb; //kt
+  // 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 patch  //kt
 end;
 
@@ -199 +201 @@
   SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
   SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
+  //PATCH: Added OR_3_215v26_70 11/07/2007 jb; //kt
+  // 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 patch  //kt
 end;