Function

CanEditTemplateFields

Module

rTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function CanEditTemplateFields: boolean;

Called-By Hierarchy


                      CanEditTemplateFields
               TfrmDCSumm.mnuOptionsClick┤ 
             TfrmConsults.mnuOptionsClick┤ 
         TfrmTemplateEditor.mnuToolsClick┤ 
TfrmTemplateEditor.mnuImportTemplateClick┤ 
              TfrmSurgery.mnuOptionsClick┤ 
                TfrmNotes.mnuOptionsClick┘ 

Called-By

Name Declaration Comments
TfrmTemplateEditor.mnuImportTemplateClick procedure mnuImportTemplateClick(Sender: TObject); -
TfrmDCSumm.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmConsults.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmSurgery.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmNotes.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmTemplateEditor.mnuToolsClick procedure mnuToolsClick(Sender: TObject); -


Source

319   function CanEditTemplateFields: boolean;
320   begin
321     if(not uCanEditDlgFldChecked) then
322     begin
323       uCanEditDlgFldChecked := TRUE;
324       uCanEditDlgFlds := sCallV('TIU FIELD CAN EDIT', []) = '1';
325     end;
326     Result := uCanEditDlgFlds;
327   end;