Procedure

AssignFieldIDs

Directives

Overload

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Scope

Interfaced

Declaration

procedure AssignFieldIDs(SL: TStrings); overload;

Calls Hierarchy


AssignFieldIDs
 └AssignFieldIDs
   └GetNewFieldID

Called-By Hierarchy


                                    AssignFieldIDs
                                DoTemplateDialog┘ 
                       CheckBoilerplate4Fields┤   
                         DoTemplateDialog...┤ │   
                            ShowTemplateData┘ │   
       TfrmDrawers.mnuPreviewTemplateClick┤   │   
      TfrmDCSumm.popSummMemoPreviewClick┤ │   │   
    TfrmConsults.popNoteMemoPreviewClick┤ │   │   
     TfrmSurgery.popNoteMemoPreviewClick┤ │   │   
       TfrmNotes.popNoteMemoPreviewClick┘ │   │   
          TfrmTemplateEditor.mnuBPTryClick┘   │   
        TfrmTemplateEditor.tvTreeKeyDown┘     │   
                             TTemplate.GetText┘   
                ExecuteTemplateOrBoilerPlate┤     
                      TfrmDrawers.InsertText┤     
           TfrmDrawers.tvTemplatesDblClick┤ │     
            TfrmDrawers.tvTemplatesKeyDown┤ │     
                TfrmDrawers.NewRECDragDrop┤ │     
          TfrmDrawers.SetRichEditControl┘ │ │     
                 TfrmDCSumm.FormCreate┤   │ │     
               TfrmConsults.FormCreate┤   │ │     
                TfrmSurgery.FormCreate┤   │ │     
                  TfrmNotes.FormCreate┘   │ │     
        TfrmDrawers.mnuInsertTemplateClick┘ │     
  TfrmDCSumm.popSummMemoInsTemplateClick┤   │     
TfrmConsults.popNoteMemoInsTemplateClick┤   │     
 TfrmSurgery.popNoteMemoInsTemplateClick┤   │     
   TfrmNotes.popNoteMemoInsTemplateClick┘   │     
      TfrmDrawers.mnuPreviewTemplateClick...┤     
            TfrmDrawers.mnuCopyTemplateClick┤     
         TfrmTemplateEditor.mnuBPTryClick...┘     

Calls

Name Declaration Comments
AssignFieldIDs procedure AssignFieldIDs(var Txt: string); overload; -

Called-By

Name Declaration Comments
DoTemplateDialog function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean; -


Source

378   procedure AssignFieldIDs(SL: TStrings);
379   var
380     i: integer;
381     txt: string;
382   
383   begin
384     for i := 0 to SL.Count-1 do
385     begin
386       txt := SL[i];
387       AssignFieldIDs(txt);
388       SL[i] := txt;
389     end;
390   end;