Changeset 1679 for cprs/trunk/CPRS-Chart/fPtSelDemog.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fPtSelDemog.pas (modified) (7 diffs)

cprs/trunk/CPRS-Chart/fPtSelDemog.pas

@@ -23 +23 @@
     lblPtName: TStaticText;
     Memo: TCaptionMemo;
-    lblPtHRN: TStaticText;
+    lblCombatVet: TStaticText;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     FLastDFN: string;
@@ -41 +42 @@
 implementation
 
-uses rCore, VA508AccessibilityRouter;
+uses rCore, VA508AccessibilityRouter, uCombatVet;
 
 {$R *.DFM}
@@ -70 +71 @@
   PtRec: TPtIDInfo;
   i: Integer;
-
+  CV : TCombatVet;
 begin
   if ItemID = FLastDFN then Exit;
@@ -100 +101 @@
     lblPtLocation.Caption := Location;
     lblPtRoomBed.Caption  := RoomBed;
-    //VWPT
-    if HRN <> '' then lblPtHRN.Caption      := 'HRN: '+HRN
-    else    lblPtHRN.Caption :=''  ;
   end;
   with orapnlMain do for i := 0 to ControlCount - 1 do
@@ -114 +112 @@
   else
     lblRoomBed.Show;
+  CV := TCombatVet.Create(ItemID);
+  if CV.IsEligible then begin
+    lblCombatVet.Caption := 'CV ' + CV.ExpirationDate + ' ' + CV.OEF_OIF;
+    Memo.Lines.Add(lblCombatVet.Caption);
+  end else
+    lblCombatVet.Caption := '';
+  CV.Free;
   Memo.SelectAll;
 end;
@@ -186 +191 @@
     lblPtRoomBed.Height := uHeight;
     lblPtRoomBed.Top  := lblRoomBed.Top ;
+    lblCombatVet.Top := (lblRoomBed.Top + uHeight) + 2;
   end;
 end;
@@ -192 +198 @@
 begin
   orapnlMain.WindowProc := FOldWinProc;
+end;
+
+procedure TfrmPtSelDemog.FormShow(Sender: TObject);
+begin
+  inherited;
+  lblCombatVet.Caption := '';
 end;