Procedure

CheckBoilerplate4Fields

Directives

Overload

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;

Called-By Hierarchy


                        CheckBoilerplate4Fields
                                 AssignBPText┤ 
                      TResponses.SetControl┘ │ 
                   TfrmODMisc.SetupDialog┤   │ 
                    TfrmODGen.SetupDialog┤   │ 
                  TfrmODMedIn.SetupDialog┤   │ 
          TfrmODMedIn.cboMedicationSelect┤   │ 
               TfrmODMedIn.CheckFormAlt┘ │   │ 
          TfrmODMedIn.cboDispenseExit┤   │   │ 
    TfrmODMedIn.cboDispenseMouseClick┘   │   │ 
 TfrmODMedIn.cboMedicationSelect...┘     │   │ 
                 TfrmODMedOut.SetupDialog┤   │ 
         TfrmODMedOut.cboMedicationSelect┤   │ 
              TfrmODMedOut.CheckFormAlt┘ │   │ 
         TfrmODMedOut.cboDispenseExit┤   │   │ 
   TfrmODMedOut.cboDispenseMouseClick┘   │   │ 
TfrmODMedOut.cboMedicationSelect...┘     │   │ 
             TfrmODMedOut.SetInstructions┤   │ 
               TfrmODMedOut.SetupDialog┤ │   │ 
    TfrmODMedOut.cboMedicationSelect...┤ │   │ 
           TfrmODMedOut.cmdComplexClick┘ │   │ 
                   TfrmODText.SetupDialog┤   │ 
                   TfrmODProc.SetupDialog┤   │ 
                 TfrmODProc.cboProcSelect┤   │ 
                   TfrmODCslt.SetupDialog┤   │ 
              TfrmODCslt.treServiceChange┤   │ 
           TfrmODCslt.treServiceKeyDown┘ │   │ 
              TfrmODCslt.cboServiceSelect┤   │ 
              TfrmODCslt.cboServiceExit┘ │   │ 
                    TfrmODRad.SetupDialog┤   │ 
             TfrmODRad.cboProcedureSelect┤   │ 
             TfrmODRad.cboProcedureExit┘ │   │ 
                    TfrmODLab.SetupDialog┤   │ 
             TfrmODLab.cboAvailTestSelect┤   │ 
                  TfrmODLab.SetupDialog┤ │   │ 
             TfrmODLab.cboAvailTestExit┘ │   │ 
                  TfrmODBBank.SetupDialog┤   │ 
              TfrmODBBank.SetOnQuickOrder┤   │ 
              TfrmODBBank.cboQuickClick┘ │   │ 
       TfrmODMedIV.SetValuesFromResponses┤   │ 
                TfrmODMedIV.SetupDialog┤ │   │ 
      TfrmODMedIV.cboSolutionMouseClick┘ │   │ 
          TfrmODMedIV.cboSolutionExit┘   │   │ 
                 TfrmODVitals.SetupDialog┤   │ 
             TfrmODMedNVA.SetOnQuickOrder┤   │ 
               TfrmODMedNVA.SetupDialog┤ │   │ 
            TfrmODMedNVA.btnSelectClick┘ │   │ 
            TfrmODMedNVA.UMDelayClick┘   │   │ 
               TfrmODMeds.SetOnQuickOrder┤   │ 
                 TfrmODMeds.SetupDialog┤ │   │ 
              TfrmODMeds.btnSelectClick┘ │   │ 
              TfrmODMeds.UMDelayClick┘   │   │ 
      TfrmODDiet.SetValuesFromResponsesDO┤   │ 
                 TfrmODDiet.SetupDialog┤ │   │ 
      TfrmODDiet.cboDietAvailMouseClick┘ │   │ 
          TfrmODDiet.cboDietAvailExit┘   │   │ 
      TfrmODDiet.SetValuesFromResponsesTF┤   │ 
                 TfrmODDiet.SetupDialog┤ │   │ 
        TfrmODDiet.cboProductMouseClick┘ │   │ 
            TfrmODDiet.cboProductExit┘   │   │ 
      TfrmODDiet.SetValuesFromResponsesEL┤   │ 
                 TfrmODDiet.SetupDialog┘ │   │ 
      TfrmODDiet.SetValuesFromResponsesIP┤   │ 
                 TfrmODDiet.SetupDialog┘ │   │ 
      TfrmODDiet.SetValuesFromResponsesAO┤   │ 
                 TfrmODDiet.SetupDialog┘ │   │ 
      TfrmODDiet.SetValuesFromResponsesOP┤   │ 
                 TfrmODDiet.SetupDialog┤ │   │ 
    TfrmODDiet.cboOPDietAvailMouseClick┘ │   │ 
             TfrmODDiet.nbkDietChange┤   │   │ 
              TfrmODDiet.InitDialog┤ │   │   │ 
             TfrmODDiet.SetupDialog┤ │   │   │ 
                          ..(rec)..┘ │   │   │ 
        TfrmODDiet.cboOPDietAvailExit┤   │   │ 
     TfrmODDiet.cboOPDietAvailKeyDown┘   │   │ 
                TfrmODAllergy.SetupDialog┤   │ 
           TfrmODAllergy.lstAllergySelect┘   │ 
              TfrmODAllergy.SetupDialog┤     │ 
                              ..(rec)..┘     │ 
           TfrmTemplateFields.btnPreviewClick┤ 
                 ExecuteTemplateOrBoilerPlate┤ 
                          TfrmODAuto.Validate┤ 
                       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.mnuCopyTemplateClick┘ 

Called-By

Name Declaration Comments
AssignBPText procedure AssignBPText(List: TStrings; const Value: string); -
TfrmTemplateFields.btnPreviewClick procedure btnPreviewClick(Sender: TObject); -
ExecuteTemplateOrBoilerPlate procedure ExecuteTemplateOrBoilerPlate(SL: TStrings; IEN: Integer; LType: TTemplateLinkType; OwningForm: TForm; CaptionText: string; var DocInfo: string); overload; -
TfrmDrawers.InsertText procedure InsertText; -
TfrmDrawers.mnuCopyTemplateClick procedure mnuCopyTemplateClick(Sender: TObject); -
TfrmODAuto.Validate procedure Validate(var AnErrMsg: string); override; -


Source

321   procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE);
322   var
323     tmp: TStringList;
324   
325   begin
326     tmp := TStringList.Create;
327     try
328       tmp.text := AText;
329       CheckBoilerplate4Fields(tmp, CaptionText, PreviewMode);
330       AText := tmp.text;
331     finally
332       tmp.free;
333     end;
334   end;