Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/rODLab.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/rODLab.pas (modified) (3 diffs)

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

@@ -28 +28 @@
 procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList);
 function  StatAllowed(PatientID: string): boolean;
+function  RemoveCollTimeDefault: boolean;
+function  GetDiagnosticPanelLocation: boolean;
 procedure GetBloodComponents(Dest: TStrings);
+procedure GetDiagnosticTests(Dest: TStrings);
 function  NursAdminSuppress: boolean;
 function  GetSubtype(TestName: string): string;
@@ -54 +57 @@
 end;
 
+procedure GetDiagnosticTests(Dest: TStrings);
+begin
+  tCallV(Dest, 'ORWDXVB3 DIAGORD', []);
+end;
+
 function NursAdminSuppress: boolean;
 begin
@@ -62 +70 @@
 begin
   Result := (StrToInt(sCallV('ORWDXVB STATALOW',[PatientID])) > 0);
+end;
+
+function  RemoveCollTimeDefault: boolean;
+begin
+  Result := (StrToInt(sCallV('ORWDXVB3 COLLTIM',[nil])) > 0);
+end;
+
+function  GetDiagnosticPanelLocation: boolean;
+begin
+  Result := (StrToInt(sCallV('ORWDXVB3 SWPANEL',[nil])) > 0);
 end;