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

Timestamp:

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

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

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

cprs/branches/HealthSevak-CPRS/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