Function

AllowChartPrintForNote

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Comments

Printing
Printing --------------------------------------------------------------------------------- 

 returns true if a progress note may be printed outside of MAS

Scope

Interfaced

Declaration

function AllowChartPrintForNote(ANote: Integer): Boolean;

Called-By Hierarchy


                  AllowChartPrintForNote
                             PrintNote┘ 
             TfrmDCSumm.RequestPrint┤   
       TfrmFrame.mnuFilePrintClick┘ │   
     TfrmDCSumm.RequestMultiplePrint┤   
          TfrmPrintList.cmdOKClick┘ │   
   TfrmConsults.mnuActNotePrintClick┤   
TfrmConsults.popNoteMemoPrintClick┘ │   
            TfrmSurgery.RequestPrint┤   
       TfrmFrame.mnuFilePrintClick┘ │   
              TfrmNotes.RequestPrint┤   
       TfrmFrame.mnuFilePrintClick┘ │   
      TfrmNotes.RequestMultiplePrint┘   
          TfrmPrintList.cmdOKClick┘     

Called-By

Name Declaration Comments
PrintNote procedure PrintNote(ANote: Longint; const ANoteTitle: string; MultiNotes: boolean = False); -


Source

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