Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/rMeds.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/rMeds.pas (modified) (5 diffs)

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

@@ -35 +35 @@
 procedure Refill(AnOrderID, PickUpAt: string);
 function IsFirstDoseNowOrder(OrderID: string): boolean;
+function GetMedStatus(MedID: TStringList): boolean;
 
 implementation
@@ -96 +97 @@
     if NonVAMed then
         Instruct := 'Non-VA  ' + Instruct;
-    IVFluid   := Piece(x, U, 1) = 'IV';
+    IVFluid   := Piece(x, U, 1) = '~IV';
     SrvSeq    := 0;
     LastFill  := MakeFMDateTime(Piece(x, U, 11));
@@ -135 +136 @@
   AMed: TMedListRec;
 begin
+  //Check for CQ 9814 this should prevent an M error is DFn is not defined.
+  if patient=nil then exit;
+  if patient.DFN='' then exit;
   ClinMeds := TList.Create;           //IMO new
   tmpInPtMeds := TList.Create;        //IMO new
@@ -176 +180 @@
   OutPtMeds.Sort(ByStatusThenStop);
   NonVAMeds.Sort(ByStatusThenStop);
+  if Assigned(ClinMeds) then FreeAndNil(ClinMeds);
+  if Assigned(tmpInPtMeds) then FreeAndNil(tmpInPtMeds);
 end;
 
@@ -201 +207 @@
 end;
 
+function GetMedStatus(MedID: TStringList): boolean;
+begin
+ Result := SCallV('ORWDX1 STCHANGE',[Patient.DFN, MedID])= '1';
+end;
+
 end.