Procedure

AssignBoilerText

Module

fNotes

Last Modified

7/15/2014 3:26:38 PM

Scope

Local

Local subprogram to

mnuActLoadBoilerClick

Declaration

procedure AssignBoilerText;

Calls Hierarchy


AssignBoilerText
 ├QuickCopyWith508Msg
 │ └SpeakTextInserted
 └TfrmNotes.UpdateNoteAuthor
   ├GetXMLParamReturnValueTIU
   ├ExternalName
   ├AskCosignerForTitle
   │ └TIUPatch175Installed
   │   └ServerHasPatch
   └TfrmNotes.cmdChangeClick
     ├ExecuteNoteProperties
     │ ├TfrmBase508Form.Create
     │ │ ├TfrmBase508Form.UpdateAccessibilityActions
     │ │ ├UnfocusableControlEnter
     │ │ └AdjustControls
     │ │   ├TfrmBase508Form.ModifyUnfocusableControl
     │ │   └..(rec)..
     │ ├FMToday
     │ │ └FMNow
     │ ├ListClinProcTitlesShort
     │ │ └LoadClinProcTitles
     │ │   ├IdentifyClinProcClass
     │ │   └TClinProcTitles.Create
     │ ├ListConsultTitlesShort
     │ │ └LoadConsultTitles
     │ │   ├IdentifyConsultsClass
     │ │   └TConsultTitles.Create
     │ ├ListSurgeryTitlesShort
     │ │ └LoadSurgeryTitles
     │ │   └TSurgeryTitles.Create
     │ ├GetUnresolvedConsultsInfo
     │ ├ListNoteTitlesShort
     │ │ └LoadNoteTitles
     │ │   └TNoteTitles.Create
     │ ├TfrmNoteProperties.ShowClinProcFields
     │ ├TfrmNoteProperties.SetCosignerRequired
     │ │ ├AskCosignerForDocument
     │ │ │ └TIUPatch175Installed...
     │ │ ├AskCosignerForTitle...
     │ │ └DefaultCosigner
     │ │   └LoadTIUPrefs
     │ │     └ExternalName
     │ ├TfrmNoteProperties.SetGenericFormSize
     │ ├TfrmNoteProperties.ShowRequestList
     │ │ └ListConsultRequests
     │ ├TfrmNoteProperties.ShowSurgCaseList
     │ │ └ListSurgeryCases
     │ ├TfrmNoteProperties.ShowPRFList
     │ │ ├TPRFActions.Create
     │ │ ├TPRFActions.Load
     │ │ └TPRFActions.ShowActionsOnList
     │ │   └TPRFActions.SelActionHasNote
     │ ├IsConsultTitle
     │ ├IsSurgeryTitle
     │ │ └ShowSurgeryTab
     │ ├IsPRFTitle
     │ ├TfrmNoteProperties.cboNewTitleExit
     │ │ └TfrmNoteProperties.cboNewTitleMouseClick
     │ │   ├IsConsultTitle
     │ │   ├TfrmNoteProperties.SetGenericFormSize
     │ │   ├TfrmNoteProperties.ShowRequestList...
     │ │   ├TfrmNoteProperties.ShowSurgCaseList...
     │ │   ├IsSurgeryTitle...
     │ │   ├TfrmNoteProperties.ShowPRFList...
     │ │   ├IsPRFTitle
     │ │   └TfrmNoteProperties.SetCosignerRequired...
     │ ├TfrmNoteProperties.FormatRequestList
     │ │ └TfrmNoteProperties.ShowRequestList...
     │ ├PrintNameForTitle
     │ ├TEncounter.GetLocationName
     │ │ └TEncounter.UpdateText
     │ │   └GetEncounterText
     │ ├TPRFActions.GetPRF_IEN
     │ └TPRFActions.GetActionIEN
     ├TChanges.ReplaceSignState
     ├MakeNoteDisplayText
     ├TChanges.ReplaceText
     ├TfrmNotes.GetTitleText
     ├TfrmNotes.LockConsultRequest
     │ ├GetConsultOrderIEN
     │ └OrderCanBeLocked
     │   └LockOrder
     ├UnlockOrderIfAble
     │ └UnlockOrder
     ├GetConsultOrderIEN
     └TfrmNotes.mnuActLoadBoilerClick
       ├LoadBoilerPlate
       ├GetLinkedTemplate
       │ ├GetLinkedTemplateData
       │ └AddTemplate
       │   ├TTemplate.Create
       │   │ └TTemplate.ReminderDialogIEN
       │   └TTemplate.AddChild
       │     └TTemplate.GetItems
       │       └ExpandTemplate
       │         ├TTemplate.GetChildren
       │         ├GetTemplateChildren
       │         ├AddTemplate...
       │         └TTemplate.ItemIENs
       │           └TTemplate.GetItems...
       ├MakeXMLParamTIU
       │ └ExternalName
       ├AssignBoilerText...
       ├QueryBoilerPlate
       │ └TfrmBase508Form.Create...
       ├QuickAddWith508Msg
       │ └SpeakTextInserted
       └TfrmNotes.UpdateNoteAuthor...

Called-By Hierarchy


                          AssignBoilerText
         TfrmNotes.mnuActLoadBoilerClick┘ 
              TfrmNotes.cmdChangeClick┘   
             TfrmNotes.InsertNewNote┤     
          TfrmNotes.mnuActNewClick┤ │     
       TfrmNotes.cmdNewNoteClick┘ │ │     
   TfrmNotes.mnuActAddIDEntryClick┘ │     
            TfrmNotes.InsertAddendum┤     
       TfrmNotes.mnuActAddendClick┘ │     
               TfrmNotes.LoadForEdit┤     
         TfrmNotes.mnuActEditClick┘ │     
         TfrmNotes.mnuActChangeClick┤     
          TfrmNotes.UpdateNoteAuthor┘     
        TfrmNotes.InsertNewNote...┤       
               AssignBoilerText...┤       
TfrmNotes.mnuActLoadBoilerClick...┘       

Calls

Name Declaration Comments
QuickCopyWith508Msg procedure QuickCopyWith508Msg(AFrom, ATo: TObject; docType: string = ''); -
TfrmNotes.UpdateNoteAuthor procedure UpdateNoteAuthor(DocInfo: string); -

Called-By

Name Declaration Comments
TfrmNotes.mnuActLoadBoilerClick procedure mnuActLoadBoilerClick(Sender: TObject); -


Source

1473  procedure AssignBoilerText;
1474  begin
1475    ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
1476    QuickCopyWith508Msg(BoilerText, memNewNote);
1477    UpdateNoteAuthor(DocInfo);
1478    FChanged := False;
1479  end;