Changeset 463 for cprs

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Uploading 1.0.26.76, OR_30_277

Location:

cprs/branches/foia-cprs

Files:

• CPRS-Chart/Encounter/mVisitRelated.pas (modified) (8 diffs)
• CPRS-Chart/fFrame.dfm (modified) (6 diffs)
• CPRS-Chart/uSignItems.pas (modified) (2 diffs)
• CPRS-Lib/sqasrvr.dcu (deleted)

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;
 

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

@@ -1 +1 @@
 object frmFrame: TfrmFrame
-  Left = 372
-  Top = 222
+  Left = 77
+  Top = 0
   Width = 684
   Height = 487
@@ -30 +30 @@
     Top = 0
     Width = 676
-    Height = 433
+    Height = 441
     Align = alClient
     Caption = 'No patient is currently selected'
@@ -46 +46 @@
     Top = 0
     Width = 676
-    Height = 433
+    Height = 441
     Align = alClient
     TabOrder = 0
@@ -592 +592 @@
     object stsArea: TStatusBar
       Left = 1
-      Top = 411
+      Top = 419
       Width = 674
       Height = 21
@@ -624 +624 @@
     object tabPage: TTabControl
       Left = 1
-      Top = 389
-      Width = 674
+      Top = 397
+      Width = 647
       Height = 22
       Align = alBottom
@@ -643 +643 @@
       Top = 42
       Width = 674
-      Height = 347
+      Height = 355
       Align = alClient
       BevelOuter = bvNone

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

@@ -1 @@
-      unit uSignItems;
+unit uSignItems;
 
 {.$define debug}
@@ -654 +654 @@
                                  //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