Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/rCover.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/rCover.pas (modified) (1 diff)

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

@@ -156 +156 @@
         Src[i] := x;
       end;
+    if (Piece(Src[i], U, 5)='C') then  // Clin Meds
+    begin
+       MarkForDelete := False;                    // always display non-VA meds
+       x := Src[i];
+       SetPiece(x, U, 2, 'Clin Meds  ' + Piece(x, U, 2));
+       Src[i] := x;
+    end;
     // clear non-active meds   (SHOULD THIS INCLUDE PENDING ORDERS?)
     if MedStatusGroup(Piece(Src[i], U, 4)) = MED_NONACTIVE then MarkForDelete := True;