Changeset 1679 for cprs/trunk/CPRS-Chart/rTIU.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/rTIU.pas (modified) (1 diff)

cprs/trunk/CPRS-Chart/rTIU.pas

@@ -913 +913 @@
 { returns true if a progress note may be printed outside of MAS }
 begin
-  Result := (Piece(sCallV('TIU GET DOCUMENT PARAMETERS', [ANote]), U, 9) = '1');
+  Result := (Piece(sCallV('TIU GET DOCUMENT PARAMETERS', [ANote]), U, 9) = '1')
+            or (sCallV('TIU AUTHORIZATION', [ANote , 'PRINT RECORD']) = '1');
   //        or (sCallV('TIU USER IS MEMBER OF CLASS', [User.DUZ, 'MEDICAL INFORMATION SECTION']) = '1');
   //         (V16? - RV)  New TIU RPC required, per discussion on NOIS MAR-0900-21265