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

cprs/branches/foia-cprs/CPRS-Chart/Orders/rODLab.pas

@@ -22 +22 @@
 procedure GetLabTimesForDate(Dest: TStrings; LabDate: TFMDateTime; Location: integer);
 function  GetLastCollectionTime: string;
+procedure GetPatientBBInfo(Dest: TStrings; PatientID: string; Loc: integer);
+procedure GetPatientBloodResults(Dest: TStrings; PatientID: string; ATests: TStringList);
+procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList);
+function  StatAllowed(PatientID: string): boolean;
+procedure GetBloodComponents(Dest: TStrings);
 
 implementation
@@ -27 +32 @@
 uses  rODBase;
 (*    fODBase, rODBase, fODLab;*)
+
+procedure GetBloodComponents(Dest: TStrings);
+begin
+  tCallV(Dest, 'ORWDXVB COMPORD', []);
+end;
+
+function  StatAllowed(PatientID: string): boolean;
+begin
+  Result := (StrToInt(sCallV('ORWDXVB STATALOW',[PatientID])) > 0);
+end;
+
+procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList);
+begin
+  tCallV(Dest, 'ORWDXVB RAW', [PatientID, ATests]);
+end;
+
+procedure GetPatientBloodResults(Dest: TStrings; PatientID: string; ATests: TStringList);
+begin
+  tCallV(Dest, 'ORWDXVB RESULTS', [PatientID, ATests]);
+end;
+
+procedure GetPatientBBInfo(Dest: TStrings; PatientID: string; Loc: integer);
+begin
+  tCallV(Dest, 'ORWDXVB GETALL', [PatientID, Loc]);
+end;
 
 function ODForLab(Location, Division: integer): TStrings;