Procedure

ExecuteTemplateOrBoilerPlate

Directives

Overload

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Comments

Procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType;
                                       OwningForm: TForm; const CaptionText: string = ''; DocInfo: string = '');

Scope

Interfaced

Declaration

procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType;
                                       OwningForm: TForm; CaptionText: string; var DocInfo: string); overload;

Called-By Hierarchy


                   ExecuteTemplateOrBoilerPlate
                                 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)..┘     │ 
                          TfrmODAuto.Validate┘ 

Called-By

Name Declaration Comments
AssignBPText procedure AssignBPText(List: TStrings; const Value: string); -
TfrmODAuto.Validate procedure Validate(var AnErrMsg: string); override; -


Source

1550  procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType;
1551                                         OwningForm: TForm; CaptionText: string; var DocInfo: string);
1552  
1553  var
1554    tmp: TStringList;
1555  
1556  begin
1557    tmp := TStringList.Create;
1558    try
1559      tmp.text := AText;
1560      ExecuteTemplateOrBoilerPlate(tmp, IEN, LType, OwningForm, CaptionText, DocInfo);
1561      AText := tmp.text;
1562    finally
1563      tmp.free;
1564    end;
1565  end;