Changeset 465

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:

• CPRSChart.dof (deleted)
• Encounter/mVisitRelated.pas (modified) (4 diffs)
• fFrame.dfm (modified) (1 diff)
• uSignItems.pas (modified) (1 diff)

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;
 

cprs/branches/tmg-cprs/CPRS-Chart/fFrame.dfm

@@ -1 +1 @@
 object frmFrame: TfrmFrame
-  Left = 238
-  Top = 200
+  Left = 77
+  Top = 20
   Width = 684
   Height = 487

cprs/branches/tmg-cprs/CPRS-Chart/uSignItems.pas

@@ -742 +742 @@
                                  //end CQ3301/3302
 
-                               //PATCH: Added OR_3_215v26_70 11/07/2007 jb
-                                        // 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;
-                               //End Patch
+                                 //PATCH: Added OR_3_215v26_70 11/07/2007 jb
+                                 // 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;
+                                 //End Patch
 
                                  case StsIdx of