Function

ExecuteNoteProperties

Module

fNoteProps

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Declaration

function ExecuteNoteProperties(var ANote: TEditNoteRec; CallingTab: integer; IDNoteTitlesOnly,
          IsNewIDEntry: boolean; AClassName: string; CPStatusFlag: integer): Boolean;

Calls Hierarchy


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
 │ │   └ServerHasPatch
 │ ├AskCosignerForTitle
 │ │ └TIUPatch175Installed...
 │ └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

Called-By Hierarchy


                                                   ExecuteNoteProperties
                                          TfrmConsults.CompleteConsult┤ 
                                    TfrmConsults.mnuActCompleteClick┤ │ 
                                  TfrmConsults.mnuActAddIDEntryClick┘ │ 
                                           TfrmConsults.InsertAddendum┤ 
                                TfrmConsults.mnuActMakeAddendumClick┘ │ 
                                           TfrmConsults.cmdChangeClick┤ 
                                     TfrmConsults.CompleteConsult...┤ │ 
                                      TfrmConsults.InsertAddendum...┤ │ 
                                            TfrmConsults.LoadForEdit┤ │ 
                                  TfrmConsults.mnuActNoteEditClick┘ │ │ 
                                TfrmConsults.mnuActCompleteClick┘   │ │ 
                                      TfrmConsults.SaveEditedConsult┤ │ 
                                      TfrmConsults.SaveCurrentNote┘ │ │ 
                                 TfrmConsults.AllowContextChange┤   │ │ 
                               TfrmFrame.AllowContextChangeAll┘ │   │ │ 
                                    TfrmFrame.FormCloseQuery┤   │   │ │ 
                                  TfrmFrame.mnuFileNextClick┤   │   │ │ 
                                TfrmFrame.mnuFileOpenClick┤ │   │   │ │ 
                                    TfrmFrame.UMInitiate┤ │ │   │   │ │ 
                           TfrmFrame.mnuFileNextClick...┤ │ │   │   │ │ 
                           TfrmFrame.mnuFileRefreshClick┤ │ │   │   │ │ 
                           TfrmOrders.CheckOrderStatus┤ │ │ │   │   │ │ 
                       TfrmOrders.mnuActChgEvntClick┤ │ │ │ │   │   │ │ 
                          TfrmOrders.mnuActHoldClick┤ │ │ │ │   │   │ │ 
                        TfrmOrders.mnuActUnholdClick┤ │ │ │ │   │   │ │ 
                         TfrmOrders.mnuActRenewClick┤ │ │ │ │   │   │ │ 
                        TfrmOrders.mnuActChangeClick┤ │ │ │ │   │   │ │ 
                          TfrmOrders.mnuActCopyClick┘ │ │ │ │   │   │ │ 
                                TfrmMeds.mnuActDCClick┤ │ │ │   │   │ │ 
                               TfrmMeds.CheckMedStatus┘ │ │ │   │   │ │ 
                            TfrmMeds.mnuActHoldClick┤   │ │ │   │   │ │ 
                           TfrmMeds.mnuActRenewClick┤   │ │ │   │   │ │ 
                          TfrmMeds.mnuActUnholdClick┤   │ │ │   │   │ │ 
                          TfrmMeds.mnuActChangeClick┤   │ │ │   │   │ │ 
                            TfrmMeds.mnuActCopyClick┤   │ │ │   │   │ │ 
                          TfrmMeds.mnuActRefillClick┘   │ │ │   │   │ │ 
                                      TfrmFrame.ViewInfo┘ │ │   │   │ │ 
                                   TfrmDCSumm.ViewInfo┤   │ │   │   │ │ 
                                 TfrmConsults.ViewInfo┤   │ │   │   │ │ 
                         TfrmFrame.pnlRemindersMouseUp┤   │ │   │   │ │ 
                          TfrmFrame.RemindersChanged┘ │   │ │   │   │ │ 
                              TfrmFrame.FormCreate┘   │   │ │   │   │ │ 
                                TfrmFrame.pnlCIRNClick┤   │ │   │   │ │ 
                          TfrmFrame.pnlVistaWebClick┤ │   │ │   │   │ │ 
                               TfrmFrame.FormKeyDown┘ │   │ │   │   │ │ 
                             TfrmFrame.pnlPatientClick┤   │ │   │   │ │ 
                               TfrmFrame.pnlVisitClick┤   │ │   │   │ │ 
                         TfrmFrame.pnlPrimaryCareClick┤   │ │   │   │ │ 
                           TfrmFrame.pnlRemindersClick┤   │ │   │   │ │ 
                            TfrmFrame.pnlPostingsClick┤   │ │   │   │ │ 
                                TfrmFrame.pnlFlagClick┤   │ │   │   │ │ 
                                  TfrmFrame.laMHVClick┤   │ │   │   │ │ 
                                 TfrmFrame.laVAA2Click┤   │ │   │   │ │ 
                                   TfrmOrders.ViewInfo┤   │ │   │   │ │ 
                                     TfrmMeds.ViewInfo┤   │ │   │   │ │ 
                                  TfrmSurgery.ViewInfo┤   │ │   │   │ │ 
                                    TfrmNotes.ViewInfo┤   │ │   │   │ │ 
                                 TfrmProblems.ViewInfo┘   │ │   │   │ │ 
                         TfrmFrame.mnuFileNotifRemoveClick┤ │   │   │ │ 
                                 TfrmFrame.NextButtonClick┘ │   │   │ │ 
                               TfrmFrame.SetUpNextButton┘   │   │   │ │ 
                         TfrmFrame.mnuFileOpenClick...┤     │   │   │ │ 
                                  TfrmFrame.FormResize┘     │   │   │ │ 
                                TfrmFrame.ChangeFont┘       │   │   │ │ 
                        TfrmFrame.LoadSizesForUser┤         │   │   │ │ 
                   TfrmFrame.LoadUserPreferences┘ │         │   │   │ │ 
                          TfrmFrame.UMInitiate┘   │         │   │   │ │ 
                        TfrmFrame.mnuFontSizeClick┘         │   │   │ │ 
                               TfrmFrame.mnuFileOpenClick...┤   │   │ │ 
                               TfrmFrame.ctxContextorPending┤   │   │ │ 
                              TfrmFrame.StartCCOWContextor┘ │   │   │ │ 
                                    TfrmFrame.FormCreate┘   │   │   │ │ 
                             TfrmFrame.ctxContextorCommitted┤   │   │ │ 
                           TfrmFrame.StartCCOWContextor...┘ │   │   │ │ 
                      TfrmFrame.mnuFileResumeContextGetClick┤   │   │ │ 
                      TfrmFrame.mnuFileResumeContextSetClick┘   │   │ │ 
                                     TfrmConsults.SetViewContext┤   │ │ 
                                      TfrmConsults.DisplayPage┤ │   │ │ 
                      TfrmConsults.mnuViewReturntoDefaultClick┘ │   │ │ 
                                       TfrmConsults.mnuViewClick┤   │ │ 
                                TfrmConsults.SetViewContext...┘ │   │ │ 
                      TfrmConsults.mnuActDetachFromIDParentClick┤   │ │ 
                              TfrmConsults.mnuActNoteDeleteClick┤   │ │ 
                             TfrmConsults.SaveEditedConsult...┘ │   │ │ 
                           TfrmConsults.mnuActSignatureSaveClick┤   │ │ 
                           TfrmConsults.mnuActSignatureSignClick┤   │ │ 
                                       TfrmConsults.SaveSignItem┤   │ │ 
                                         TfrmReview.cmdOKClick┘ │   │ │ 
                                               ReviewChanges┘   │   │ │ 
                        TfrmFrame.AllowContextChangeAll...┤     │   │ │ 
                                  TfrmFrame.FormCloseQuery┤     │   │ │ 
                              TfrmFrame.mnuFileReviewClick┤     │   │ │ 
                                           UpdateEncounter┘     │   │ │ 
                         TfrmFrame.mnuFileEncounterClick┤       │   │ │ 
                                 TfrmFrame.ViewInfo...┤ │       │   │ │ 
                    TfrmODMedIV.SetValuesFromResponses┤ │       │   │ │ 
                             TfrmODMedIV.SetupDialog┤ │ │       │   │ │ 
                   TfrmODMedIV.cboSolutionMouseClick┘ │ │       │   │ │ 
                       TfrmODMedIV.cboSolutionExit┘   │ │       │   │ │ 
                  TfrmODMedIV.cboSolutionMouseClick...┤ │       │   │ │ 
                     TfrmODMedIV.cboAdditiveMouseClick┤ │       │   │ │ 
                         TfrmODMedIV.cboAdditiveExit┘ │ │       │   │ │ 
                                TfrmODAuto.SetupDialog┤ │       │   │ │ 
                                   ActivateOrderDialog┤ │       │   │ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │   │ │ 
           TfrmConsults.mnuActNewConsultRequestClick┤ │ │       │   │ │ 
                   TfrmConsults.cmdNewConsultClick┘ │ │ │       │   │ │ 
                TfrmConsults.mnuActNewProcedureClick┤ │ │       │   │ │ 
                      TfrmConsults.cmdNewProcClick┘ │ │ │       │   │ │ 
                                        ChangeOrders┤ │ │       │   │ │ 
                      TfrmOrders.mnuActChangeClick┤ │ │ │       │   │ │ 
                        TfrmMeds.mnuActChangeClick┘ │ │ │       │   │ │ 
                                     ChangeOrdersEvt┤ │ │       │   │ │ 
                                          CopyOrders┤ │ │       │   │ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │   │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │   │ │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │   │ │ 
                                      TransferOrders┤ │ │       │   │ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │   │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │   │ │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │   │ │ 
                            TfrmOrders.lstWriteClick┤ │ │       │   │ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ │       │   │ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ │       │   │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ │       │   │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ │       │   │ │ 
                                 DisplayEvntDialog┤ │ │ │       │   │ │ 
                             SetDelayEventForMed┘ │ │ │ │       │   │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ │       │   │ │ 
                                 DisplayEvntDialog┤ │ │ │       │   │ │ 
                                  SetViewForCopy┘ │ │ │ │       │   │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ │       │   │ │ 
                                 DisplayEvntDialog┘ │ │ │       │   │ │ 
                                ExecuteChangeEvt┘   │ │ │       │   │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ │       │   │ │ 
                             TfrmMeds.mnuActNewClick┤ │ │       │   │ │ 
                           TfrmOMNavA.ActivateDialog┤ │ │       │   │ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ │       │   │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ │       │   │ │ 
                                TfrmOMSet.DoNextItem┘ │ │       │   │ │ 
                              TfrmOMSet.InsertList┤   │ │       │   │ │ 
                               ActivateOrderList┘ │   │ │       │   │ │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ │       │   │ │ 
                             ActivateOrderHTML┤   │   │ │       │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ │       │   │ │ 
                              ActivateOrderSet┤   │   │ │       │   │ │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ │       │   │ │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ │       │   │ │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ │       │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ │       │   │ │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ │       │   │ │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ │       │   │ │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ │       │   │ │ 
                       TfrmOMNavA.DoSelectList┘   │   │ │       │   │ │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ │       │   │ │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ │       │   │ │ 
                                        SkipToNext┤   │ │       │   │ │ 
                         TfrmOMSet.DoNextItem...┘ │   │ │       │   │ │ 
                            TfrmOMSet.UMDelayEvent┘   │ │       │   │ │ 
                               TfrmOMSet.InsertList...┤ │       │   │ │ 
                                TfrmODMeds.SetupDialog┤ │       │   │ │ 
                             TfrmODMeds.btnSelectClick┤ │       │   │ │ 
                             TfrmODMeds.UMDelayClick┘ │ │       │   │ │ 
                                    ExecuteRenewOrders┘ │       │   │ │ 
                         TfrmOrders.mnuActRenewClick┤   │       │   │ │ 
                           TfrmMeds.mnuActRenewClick┘   │       │   │ │ 
                                        EncounterPresent┤       │   │ │ 
                                      ReadyForNewOrder┤ │       │   │ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │   │ │ 
        TfrmConsults.mnuActNewConsultRequestClick...┤ │ │       │   │ │ 
             TfrmConsults.mnuActNewProcedureClick...┤ │ │       │   │ │ 
                                     ChangeOrders...┤ │ │       │   │ │ 
                                     ChangeOrdersEvt┤ │ │       │   │ │ 
                                       CopyOrders...┤ │ │       │   │ │ 
                                   TransferOrders...┤ │ │       │   │ │ 
                            TfrmOrders.lstWriteClick┤ │ │       │   │ │ 
                             TfrmMeds.mnuActNewClick┘ │ │       │   │ │ 
                                     ReadyForNewOrder1┤ │       │   │ │ 
            TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │       │   │ │ 
                              TfrmOrders.mnuActDCClick┤ │       │   │ │ 
                             TfrmOrders.mnuActRelClick┤ │       │   │ │ 
                            TfrmOrders.mnuActHoldClick┤ │       │   │ │ 
                          TfrmOrders.mnuActUnholdClick┤ │       │   │ │ 
                           TfrmOrders.mnuActRenewClick┤ │       │   │ │ 
                         TfrmOrders.mnuActReleaseClick┤ │       │   │ │ 
                         TfrmOrders.mnuActOnChartClick┤ │       │   │ │ 
                            TfrmOrders.mnuActSignClick┤ │       │   │ │ 
                                TfrmMeds.mnuActDCClick┤ │       │   │ │ 
                              TfrmMeds.mnuActHoldClick┤ │       │   │ │ 
                             TfrmMeds.mnuActRenewClick┤ │       │   │ │ 
                            TfrmMeds.mnuActUnholdClick┤ │       │   │ │ 
                              TfrmMeds.mnuActCopyClick┤ │       │   │ │ 
                            TfrmMeds.mnuActRefillClick┘ │       │   │ │ 
                                     EncounterPresentEDO┤       │   │ │ 
                                   ReadyForNewOrder...┤ │       │   │ │ 
                         TfrmOrders.mnuActChgEvntClick┤ │       │   │ │ 
                          TfrmOrders.mnuActChangeClick┤ │       │   │ │ 
                            TfrmOrders.mnuActCopyClick┤ │       │   │ │ 
                       TfrmOrders.btnDelayedOrderClick┤ │       │   │ │ 
                            TfrmMeds.mnuActChangeClick┤ │       │   │ │ 
                              TfrmMeds.mnuActCopyClick┘ │       │   │ │ 
                                             UpdateVisit┤       │   │ │ 
                                           EditPCEData┤ │       │   │ │ 
                             TfrmSurgery.cmdPCEClick┤ │ │       │   │ │ 
                                 UpdateEncounterInfo┘ │ │       │   │ │ 
                             TfrmNotes.cmdPCEClick┘   │ │       │   │ │ 
                        TfrmVitals.btnEnterVitalsClick┘ │       │   │ │ 
                                             UpdateVisit┤       │   │ │ 
                                        EncounterPresent┘       │   │ │ 
                         TfrmProblems.lstProbActsClick┘         │   │ │ 
                     TfrmProblems.wgProbDataDblClick┤           │   │ │ 
                           TfrmProblems.lstViewClick┘           │   │ │ 
                   TfrmProblems.HighlightDuplicate┘             │   │ │ 
                         TfrmProblems.AddProblem┤               │   │ │ 
              TfrmProblems.lstProbActsClick...┤ │               │   │ │ 
                 TfrmProblems.lstProbPickClick┤ │               │   │ │ 
              TfrmProblems.lstProbPickDblClick┤ │               │   │ │ 
              TfrmProblems.edProbEntKeyPress┘ │ │               │   │ │ 
                      TfrmProblems.UMPLLexicon┘ │               │   │ │ 
                   TfrmdlgProb.bbChangeProbClick┘               │   │ │ 
                                 TfrmConsults.mnuActConsultClick┤   │ │ 
                                       TfrmConsults.RequestPrint┤   │ │ 
                            TfrmConsults.mnuActPrintSF513Click┤ │   │ │ 
                                   TfrmFrame.mnuFilePrintClick┘ │   │ │ 
                          TfrmConsults.mnuActDisplayResultsClick┤   │ │ 
                             TfrmConsults.ProcessNotifications┘ │   │ │ 
                                    TfrmConsults.DisplayPage┘   │   │ │ 
                            TfrmConsults.mnuActDisplaySF513Click┤   │ │ 
                              TfrmConsults.mnuActPrintSF513Click┤   │ │ 
                          TfrmConsults.mnuActDisplayDetailsClick┤   │ │ 
                                          TfrmConsults.FormClose┤   │ │ 
                     TfrmConsults.mnuActIdentifyAddlSignersClick┤   │ │ 
                         TfrmConsults.popNoteMemoAddlSignClick┘ │   │ │ 
                            TfrmConsults.ProcessNotifications...┤   │ │ 
                               TfrmConsults.mnuActNotePrintClick┤   │ │ 
                            TfrmConsults.popNoteMemoPrintClick┘ │   │ │ 
                                       TfrmConsults.StartNewEdit┤   │ │ 
                              TfrmConsults.mnuActCompleteClick┤ │   │ │ 
                            TfrmConsults.mnuActAddIDEntryClick┤ │   │ │ 
                          TfrmConsults.mnuActMakeAddendumClick┤ │   │ │ 
                           TfrmConsults.mnuActNoteEditClick...┘ │   │ │ 
                                TfrmConsults.tvCsltNotesDragDrop┤   │ │ 
                               TfrmConsults.tvCsltNotesStartDrag┤   │ │ 
                        TfrmConsults.mnuActAttachtoIDParentClick┤   │ │ 
                                 TfrmConsults.LstConsultsToPrint┘   │ │ 
                      TfrmFrame.mnuFilePrintSelectedItemsClick┘     │ │ 
                                      TfrmConsults.mnuActChangeClick┘ │ 
                                             TfrmSurgery.InsertNewNote┤ 
                                          TfrmSurgery.mnuActNewClick┘ │ 
                                       TfrmSurgery.cmdNewNoteClick┘   │ 
                                            TfrmSurgery.InsertAddendum┤ 
                                       TfrmSurgery.mnuActAddendClick┘ │ 
                                            TfrmSurgery.cmdChangeClick┤ 
                                        TfrmSurgery.InsertNewNote...┤ │ 
                                       TfrmSurgery.InsertAddendum...┤ │ 
                                             TfrmSurgery.LoadForEdit┤ │ 
                                       TfrmSurgery.mnuActEditClick┘ │ │ 
                                       TfrmSurgery.mnuActChangeClick┘ │ 
                                               TfrmNotes.InsertNewNote┤ 
                                            TfrmNotes.mnuActNewClick┤ │ 
                                         TfrmNotes.cmdNewNoteClick┘ │ │ 
                                     TfrmNotes.mnuActAddIDEntryClick┘ │ 
                                              TfrmNotes.InsertAddendum┤ 
                                         TfrmNotes.mnuActAddendClick┘ │ 
                                              TfrmNotes.cmdChangeClick┘ 
                                          TfrmNotes.InsertNewNote...┤   
                                         TfrmNotes.InsertAddendum...┤   
                                               TfrmNotes.LoadForEdit┤   
                                         TfrmNotes.mnuActEditClick┘ │   
                                         TfrmNotes.mnuActChangeClick┤   
                                          TfrmNotes.UpdateNoteAuthor┘   
                                        TfrmNotes.InsertNewNote...┤     
                                                  AssignBoilerText┤     
                                 TfrmNotes.mnuActLoadBoilerClick┘ │     
                                   TfrmNotes.cmdChangeClick...┘   │     
                                TfrmNotes.mnuActLoadBoilerClick...┘     

Calls

Name Declaration Comments
TfrmNoteProperties.cboNewTitleExit procedure cboNewTitleExit(Sender: TObject); -
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
FMToday function FMToday: TFMDateTime; -
TfrmNoteProperties.FormatRequestList procedure FormatRequestList; -
TPRFActions.GetActionIEN function GetActionIEN(lstIndex : integer) : String; -
TEncounter.GetLocationName function GetLocationName: string; -
TPRFActions.GetPRF_IEN function GetPRF_IEN(lstIndex : integer) : integer; -
GetUnresolvedConsultsInfo procedure GetUnresolvedConsultsInfo; -
IsConsultTitle function IsConsultTitle(TitleIEN: Integer): Boolean; -
IsPRFTitle function IsPRFTitle(TitleIEN: Integer): Boolean; -
IsSurgeryTitle function IsSurgeryTitle(TitleIEN: Integer): Boolean; -
ListClinProcTitlesShort procedure ListClinProcTitlesShort(Dest: TStrings); -
ListConsultTitlesShort procedure ListConsultTitlesShort(Dest: TStrings); -
ListNoteTitlesShort procedure ListNoteTitlesShort(Dest: TStrings); -
ListSurgeryTitlesShort procedure ListSurgeryTitlesShort(Dest: TStrings; AClassName: string); -
PrintNameForTitle function PrintNameForTitle(TitleIEN: Integer): string; -
TfrmNoteProperties.SetCosignerRequired procedure SetCosignerRequired(DoSetup: boolean); -
TfrmNoteProperties.SetGenericFormSize procedure SetGenericFormSize; -
TfrmNoteProperties.ShowClinProcFields procedure ShowClinProcFields(YesNo: boolean); -
TfrmNoteProperties.ShowPRFList procedure ShowPRFList(ShouldShow: Boolean); -
TfrmNoteProperties.ShowRequestList procedure ShowRequestList(ShouldShow: Boolean); -
TfrmNoteProperties.ShowSurgCaseList procedure ShowSurgCaseList(ShouldShow: Boolean); -

Called-By

Name Declaration Comments
TfrmConsults.cmdChangeClick procedure cmdChangeClick(Sender: TObject); -
TfrmSurgery.cmdChangeClick procedure cmdChangeClick(Sender: TObject); -
TfrmNotes.cmdChangeClick procedure cmdChangeClick(Sender: TObject); -
TfrmConsults.CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); -
TfrmConsults.InsertAddendum procedure InsertAddendum; -
TfrmSurgery.InsertAddendum procedure InsertAddendum; -
TfrmNotes.InsertAddendum procedure InsertAddendum; -
TfrmSurgery.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -
TfrmNotes.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -


Source

209   function ExecuteNoteProperties(var ANote: TEditNoteRec; CallingTab: integer; IDNoteTitlesOnly,
210             IsNewIDEntry: boolean; AClassName: string; CPStatusFlag: integer): Boolean;
211   var
212     frmNoteProperties: TfrmNoteProperties;
213   begin
214     frmNoteProperties := TfrmNoteProperties.Create(Application);
215     frmNoteProperties.FIsNewNote := ANote.IsNewNote;
216     uConsultsList := TStringList.Create;
217     try
218       ResizeAnchoredFormToFont(frmNoteProperties);
219       with frmNoteProperties do
220       begin
221         // setup common fields (title, reference date, author)
222         FToday := FloatToStr(FMToday);
223         FCallingTab := CallingTab;
224         FIDNoteTitlesOnly := IDNoteTitlesOnly;
225         FClassName := AClassName;
226         FIsClinProcNote := (AClassName = DCL_CLINPROC);
227         FCPStatusFlag := CPStatusFlag;
228         //uShowUnresolvedOnly := False;                      //v26.5 (RV)
229         uShowUnresolvedOnly := True;                         //v26.5 (RV)
230         if ANote.DocType <> TYP_ADDENDUM then
231           begin
232             case FCallingTab of
233               CT_CONSULTS:  begin
234                               Caption := 'Consult Note Properties';
235                               cboNewTitle.InitLongList('');
236                               if FIsClinProcNote then
237                                 begin
238                                   Caption := TX_CP_CAPTION;
239                                   lblNewTitle.Caption := TX_CP_TITLE;
240                                   ListClinProcTitlesShort(cboNewTitle.Items);
241                                   cboAuthor.InitLongList(User.Name);
242                                   cboAuthor.SelectByIEN(User.DUZ);
243                                   cboProcSummCode.SelectByIEN(ANote.ClinProcSummCode);
244                                   calProcDateTime.FMDateTime := ANote.ClinProcDateTime;
245                                 end
246                               else   // not CP note
247                                 begin
248                                   ListConsultTitlesShort(cboNewTitle.Items);
249                                   cboAuthor.InitLongList(ANote.AuthorName);
250                                   if ANote.Author > 0 then cboAuthor.SelectByIEN(ANote.Author);
251                                 end;
252                             end ;
253              CT_SURGERY:    begin
254                               Caption := TX_SR_CAPTION;
255                               lblNewTitle.Caption := TX_SR_TITLE;
256                               cboNewTitle.InitLongList('');
257                               cboAuthor.InitLongList(ANote.AuthorName);
258                               if ANote.Author > 0 then cboAuthor.SelectByIEN(ANote.Author);
259                               ListSurgeryTitlesShort(cboNewTitle.Items, FClassName);
260                             end;
261              CT_NOTES:      begin
262                               Caption := 'Progress Note Properties';
263                               if ANote.IsNewNote then
264                               begin
265                                 GetUnresolvedConsultsInfo; // v26.5 (RV) removed nag screen
266                               end;
267                               cboNewTitle.InitLongList('');
268                               cboAuthor.InitLongList(ANote.AuthorName);
269                               if ANote.Author > 0 then cboAuthor.SelectByIEN(ANote.Author);
270                               ListNoteTitlesShort(cboNewTitle.Items);
271                               // HOW TO PREVENT TITLE CHANGE ON ID CHILD, BUT NOT ON INITIAL CREATE?????
272                               cboNewTitle.Enabled := not ((ANote.IDParent > 0) and (ANote.Title > 0) and (not IsNewIDEntry));
273                               if not cboNewTitle.Enabled then
274                                 begin
275                                   cboNewTitle.Color := clBtnFace;
276                                   InfoBox(TX_NO_TITLE_CHANGE, TC_NO_TITLE_CHANGE, MB_OK);
277                                 end;
278                             end;
279               end;
280           end
281         else //if addendum
282           begin
283             Caption := 'Addendum Properties';
284             cboNewTitle.Items.Insert(0, IntToStr(ANote.Title) + U + ANote.TitleName);
285             cboAuthor.InitLongList(ANote.AuthorName);
286             if ANote.Author > 0 then cboAuthor.SelectByIEN(ANote.Author);
287           end;
288         ShowClinProcFields(FIsClinProcNote);
289         FStarting := True;
290         if ANote.Title > 0 then cboNewTitle.SelectByIEN(ANote.Title);
291         if (ANote.Title > 0) and (cboNewTitle.ItemIndex < 0)
292           then cboNewTitle.SetExactByIEN(ANote.Title, ANote.TitleName);
293         FStarting := False;
294         calNote.FMDateTime := ANote.DateTime;
295         // setup cosigner fields
296         FAddend           := ANote.Addend;
297         FCosignIEN        := ANote.Cosigner;
298         FCosignName       := ANote.CosignerName;
299         FDocType          := ANote.DocType;
300         FLastCosigner     := ANote.LastCosigner;
301         FLastCosignerName := ANote.LastCosignerName;
302         SetCosignerRequired(True);
303         // setup package fields
304         SetGenericFormSize;
305         case FCallingTab of
306           CT_CONSULTS:  begin
307                           ShowRequestList(False);
308                           ShowSurgCaseList(False);
309                           ShowPRFList(False);
310                         end;
311           CT_SURGERY :  begin
312                           ShowRequestList(False);
313                           ShowSurgCaseList(False);
314                           ShowPRFList(False);
315                         end;
316           CT_NOTES   :  begin
317                           with uUnresolvedConsults do                          // v26.5 (RV)
318                             ShowRequestList(IsConsultTitle(ANote.Title) or
319                               (UnresolvedConsultsExist and ShowNagScreen));    // v26.5 (RV)
320                           ShowSurgCaseList(IsSurgeryTitle(ANote.Title));
321                           ShowPRFList(IsPRFTitle(ANote.Title));
322                         end;
323         end;
324         // restrict edit of title if addendum
325         if FDocType = TYP_ADDENDUM then
326         begin
327           lblNewTitle.Caption := 'Addendum to:';
328           cboNewTitle.Enabled := False;
329           cboNewTitle.Color   := clBtnFace;
330         end;
331         cboNewTitle.Caption := lblNewTitle.Caption;
332         FStarting := True;
333         cboNewTitleExit(frmNoteProperties);        // force display of request/case list
334         FStarting := False;
335         if uShowUnresolvedOnly then                // override previous display if SHOW ME clicked on entrance
336         begin
337           //cboNewTitle.ItemIndex := -1;      CQ#7587, v26.25 - RV
338           uShowUnresolvedOnly := not uShowUnresolvedOnly;
339           FormatRequestList;
340         end ;
341         Result := ShowModal = idOK;                // display the form
342         if Result then with ANote do
343         begin
344           if FDocType <> TYP_ADDENDUM then
345           begin
346             Title := cboNewTitle.ItemIEN;
347             TitleName := PrintNameForTitle(Title);
348           end;
349           IsNewNote := False;
350           DateTime := calNote.FMDateTime;
351           Author := cboAuthor.ItemIEN;
352           AuthorName := Piece(cboAuthor.Items[cboAuthor.ItemIndex], U, 2);
353           if cboCosigner.Visible then
354           begin
355             Cosigner := cboCosigner.ItemIEN;
356             CosignerName := Piece(cboCosigner.Items[cboCosigner.ItemIndex], U, 2);
357             // The LastCosigner fields are used to default the cosigner in subsequent notes.
358             // These fields are not reset with new notes & not passed into TIU.
359             LastCosigner := Cosigner;
360             LastCosignerName := CosignerName;
361           end else
362           begin
363             Cosigner := 0;
364             CosignerName := '';
365           end;
366           if FIsClinProcNote then
367             begin
368               ClinProcSummCode := FProcSummCode;
369               ClinProcDateTime := FProcDateTime;
370               if Location <= 0 then
371                 begin
372                   Location := Encounter.Location;
373                   LocationName := Encounter.LocationName;
374                 end;
375               if VisitDate <= 0 then VisitDate := Encounter.DateTime;
376             end;
377           case FCallingTab of
378             CT_CONSULTS:  ;// no action required
379             CT_SURGERY :  ;// no action required
380                           (*begin
381                             PkgIEN := lstSurgery.ItemIEN;
382                             PkgPtr := PKG_SURGERY;
383                             PkgRef := IntToStr(PkgIEN) + ';' + PkgPtr;
384                           end;*)
385             CT_NOTES   :  begin
386                             if pnlConsults.Visible then
387                               begin
388                                 PkgIEN := lstRequests.ItemIEN;
389                                 PkgPtr := PKG_CONSULTS;
390                                 PkgRef := IntToStr(PkgIEN) + ';' + PkgPtr;
391                               end
392                             else if pnlSurgery.Visible then
393                               begin
394                                 PkgIEN := lstSurgery.ItemIEN;
395                                 PkgPtr := PKG_SURGERY;
396                                 PkgRef := IntToStr(PkgIEN) + ';' + PkgPtr;
397                               end
398                             else if (pnlPRF.Visible) and (lvPRF.ItemIndex >= 0) then //PRF
399                               begin
400                                 PRF_IEN := FPRFActions.GetPRF_IEN(lvPRF.ItemIndex);
401                                 ActionIEN := FPRFActions.GetActionIEN(lvPRF.ItemIndex);
402                               end
403                             else
404                               begin
405                                 PkgIEN := 0;
406                                 PkgPtr := '';
407                                 PkgRef := '';
408                               end;
409                           end;
410           end;
411         end;
412       end;
413     finally
414       if Assigned(uConsultsList) then uConsultsList.Free;
415       frmNoteProperties.Free;
416     end;
417   end;