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

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

@@ -49 +49 @@
   end;
 
+  TARTClinUser = record
+    IsClinUser: boolean;
+    ReasonFailed: string;
+    AccessChecked: boolean;
+  end;
+
 function SearchForAllergies(StringToMatch: string): TStrings;
 function SubsetofSymptoms(const StartFrom: string; Direction: Integer): TStrings;
@@ -64 +70 @@
 function RequireOriginatorComments: boolean;
 function EnableErrorComments: boolean;
+function IsARTClinicalUser(var AMessage: string): boolean;
 
 implementation
@@ -73 +80 @@
   uARTPatchInstalled: TARTPatchInstalled;
   uGMRASiteParams: TGMRASiteParams;
+  uARTClinUser: TARTClinUser;
 
 function ODForAllergies: TStrings;
@@ -326 +334 @@
 end;
 
+(*function IsARTClinicalUser(var AMessage: string): boolean;
+const
+  TX_NO_AUTH = 'You are not authorized to perform this action.' + CRLF +
+               'Either the ORES or ORELSE key is required.';
+begin
+  Result := (User.UserClass > UC_CLERK);     // User has ORES or ORELSE key
+  if not Result then AMessage := TX_NO_AUTH else AMessage := '';
+end;*)
+
+function IsARTClinicalUser(var AMessage: string): boolean;
+const
+  TX_NO_AUTH = 'You are not authorized to perform this action.' + CRLF;
+var
+  x: string;
+begin
+  with uARTClinUser do
+  begin
+    if not AccessChecked then
+      begin
+        x := sCallV('ORWDAL32 CLINUSER',[nil]);
+        IsClinUser := (Piece(x, U, 1) = '1');
+        if not IsClinUser then ReasonFailed := TX_NO_AUTH + Piece(x, U, 2) else ReasonFailed := '';
+        AccessChecked := True;
+      end;
+    Result   := IsClinUser;
+    AMessage := ReasonFailed ;
+  end;
+end;
+
 end.