Procedure

ConvertVital

Module

uVitals

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ConvertVital(VType: TVitalType; var VValue, VUnit: string);

Called-By Hierarchy


                                                                              ConvertVital
                                                                             GetVitalStr┤ 
                                                                              AddVital┤ │ 
                                                                   AssignVitals2List┘ │ │ 
                                                              TfrmVit.AssignVitals┤   │ │ 
                                                              TfrmVit.cmdOKClick┘ │   │ │ 
                                                        TfrmEncVitals.AssignVitals┘   │ │ 
                                                     TfrmEncounterFrame.SendData┘     │ │ 
                                             TfrmEncounterFrame.FormCloseQuery┘       │ │ 
                                                             TfrmRemDlg.btnFinishClick┘ │ 
                                                                               AddPrompt┘ 
                                                                                   Add┘   
                                                                    TRemData.AddData┘     
                                                            TRemDlgElement.AddData┘       
                                                         TReminderDialog.AddData┤         
                                                               GetReminderData┤ │         
                                                               GetReminderData┘ │         
                                                           TRemDlgElement.Add2PN┤         
                                                                     CheckItem┤ │         
                                                             ChildrenChecked┤ │ │         
                                                              CheckItem...┘ │ │ │         
                                                  TReminderDialog.Processing┘ │ │         
                                                  TfrmRemDlg.btnClearClick┤   │ │         
                                                        TfrmRemDlg.KillAll┤   │ │         
                                               TfrmRemDlg.FormCloseQuery┤ │   │ │         
                                               TfrmRemDlg.btnCancelClick┘ │   │ │         
                                          TfrmNotes.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┘   │   │   │ │         
                                           TfrmNotes.mnuActDeleteClick┘   │   │ │         
                                            TfrmNotes.SaveEditedNote┘     │   │ │         
                                         TfrmNotes.SaveCurrentNote┘       │   │ │         
                                 TfrmNotes.AllowContextChange...┤         │   │ │         
                                       TfrmNotes.LstNotesToPrint┤         │   │ │         
                      TfrmFrame.mnuFilePrintSelectedItemsClick┘ │         │   │ │         
                                          TfrmNotes.RequestPrint┤         │   │ │         
                                   TfrmFrame.mnuFilePrintClick┘ │         │   │ │         
                                          TfrmNotes.mnuViewClick┤         │   │ │         
                                      TfrmNotes.SetViewContext┤ │         │   │ │         
                                       TfrmNotes.DisplayPage┤ │ │         │   │ │         
                       TfrmNotes.mnuViewReturntoDefaultClick┘ │ │         │   │ │         
                           TfrmNotes.mnuViewSaveAsDefaultClick┘ │         │   │ │         
                                          TfrmNotes.StartNewEdit┤         │   │ │         
                                      TfrmNotes.mnuActNewClick┤ │         │   │ │         
                                   TfrmNotes.cmdNewNoteClick┘ │ │         │   │ │         
                               TfrmNotes.mnuActAddIDEntryClick┤ │         │   │ │         
                                   TfrmNotes.mnuActAddendClick┤ │         │   │ │         
                                     TfrmNotes.mnuActEditClick┘ │         │   │ │         
                         TfrmNotes.mnuActDetachFromIDParentClick┤         │   │ │         
                                  TfrmNotes.mnuActDeleteClick...┤         │   │ │         
                                       TfrmNotes.mnuActSaveClick┤         │   │ │         
                                       TfrmNotes.mnuActSignClick┤         │   │ │         
                                          TfrmNotes.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┘               │         │   │ │         
                                             TfrmNotes.FormClose┤         │   │ │         
                        TfrmNotes.mnuActIdentifyAddlSignersClick┤         │   │ │         
                            TfrmNotes.popNoteMemoAddlSignClick┘ │         │   │ │         
                                  TfrmNotes.ProcessNotifications┤         │   │ │         
                                         TfrmNotes.DisplayPage┘ │         │   │ │         
                                     TfrmNotes.SetViewContext...┤         │   │ │         
                                       TfrmNotes.tvNotesDragDrop┤         │   │ │         
                           TfrmNotes.mnuActAttachtoIDParentClick┘         │   │ │         
                                                 TfrmRemDlg.btnFinishClick┤   │ │         
                                                    ProcessingChangeString┤   │ │         
                                                       ClearReminderData┤ │   │ │         
                                                TfrmFrame.ClearPatient┘ │ │   │ │         
                                              TfrmFrame.SetupPatient┘   │ │   │ │         
                                         UpdatePatientInfoForAlert┤     │ │   │ │         
                                   TfrmFrame.mnuFileNextClick...┘ │     │ │   │ │         
                                     TfrmFrame.mnuFileOpenClick...┤     │ │   │ │         
                                  TfrmFrame.AllowCCOWContextChange┤     │ │   │ │         
                                   TfrmFrame.mnuFileNextClick...┤ │     │ │   │ │         
                                   TfrmFrame.mnuFileOpenClick...┤ │     │ │   │ │         
                          TfrmFrame.mnuFileResumeContextSetClick┘ │     │ │   │ │         
                                       TfrmFrame.UpdateCCOWContext┤     │ │   │ │         
                                   TfrmFrame.mnuFileOpenClick...┤ │     │ │   │ │         
                              TfrmFrame.ctxContextorCommitted...┤ │     │ │   │ │         
                          TfrmFrame.mnuFileResumeContextGetClick┘ │     │ │   │ │         
                            TfrmFrame.mnuFileResumeContextSetClick┘     │ │   │ │         
                                               RemindersInProcessChanged┘ │   │ │         
                                                   InitReminderObjects┘   │   │ │         
                                           uReminders.initialization┘     │   │ │         
                                                         BuildReminderTree┤   │ │         
                                            TfrmDrawers.RemindersChanged┤ │   │ │         
                                               TfrmDrawers.ShowDrawers┘ │ │   │ │         
                                           TfrmDrawers.CreateDrawers┤   │ │   │ │         
                                             TfrmDCSumm.FormCreate┤ │   │ │   │ │         
                                           TfrmConsults.FormCreate┤ │   │ │   │ │         
                                            TfrmSurgery.FormCreate┤ │   │ │   │ │         
                                              TfrmNotes.FormCreate┘ │   │ │   │ │         
                                          TfrmDrawers.DisplayDrawers┘   │ │   │ │         
                                           TfrmConsults.DisplayPCE┤     │ │   │ │         
                                   TfrmConsults.lstConsultsClick┤ │     │ │   │ │         
                                 TfrmConsults.tvConsultsChange┘ │ │     │ │   │ │         
                  TfrmConsults.mnuActDetachFromIDParentClick┤   │ │     │ │   │ │         
                                    TfrmConsults.NotifyOrder┤   │ │     │ │   │ │         
                                      TfrmFrame.UMNewOrder┘ │   │ │     │ │   │ │         
                      TfrmConsults.mnuActDisplayDetailsClick┤   │ │     │ │   │ │         
                 TfrmConsults.mnuActIdentifyAddlSignersClick┤   │ │     │ │   │ │         
                     TfrmConsults.popNoteMemoAddlSignClick┘ │   │ │     │ │   │ │         
                           TfrmConsults.ProcessNotifications┤   │ │     │ │   │ │         
                                  TfrmConsults.DisplayPage┘ │   │ │     │ │   │ │         
                                   TfrmConsults.LoadConsults┤   │ │     │ │   │ │         
                                   TfrmConsults.UpdateList┤ │   │ │     │ │   │ │         
                               TfrmConsults.mnuViewClick┤ │ │   │ │     │ │   │ │         
                           TfrmConsults.SetViewContext┘ │ │ │   │ │     │ │   │ │         
                            TfrmConsults.DisplayPage┤   │ │ │   │ │     │ │   │ │         
            TfrmConsults.mnuViewReturntoDefaultClick┘   │ │ │   │ │     │ │   │ │         
                      TfrmConsults.mnuActNoteDeleteClick┤ │ │   │ │     │ │   │ │         
                        TfrmConsults.SaveEditedConsult┘ │ │ │   │ │     │ │   │ │         
                        TfrmConsults.SaveCurrentNote┘   │ │ │   │ │     │ │   │ │         
                   TfrmConsults.AllowContextChange┤     │ │ │   │ │     │ │   │ │         
              TfrmFrame.AllowContextChangeAll...┘ │     │ │ │   │ │     │ │   │ │         
                    TfrmConsults.SetViewContext...┤     │ │ │   │ │     │ │   │ │         
                      TfrmConsults.mnuViewClick...┤     │ │ │   │ │     │ │   │ │         
        TfrmConsults.mnuActDetachFromIDParentClick┤     │ │ │   │ │     │ │   │ │         
             TfrmConsults.mnuActNoteDeleteClick...┤     │ │ │   │ │     │ │   │ │         
             TfrmConsults.mnuActSignatureSaveClick┤     │ │ │   │ │     │ │   │ │         
             TfrmConsults.mnuActSignatureSignClick┤     │ │ │   │ │     │ │   │ │         
                         TfrmConsults.SaveSignItem┤     │ │ │   │ │     │ │   │ │         
                        TfrmReview.cmdOKClick...┘ │     │ │ │   │ │     │ │   │ │         
                   TfrmConsults.mnuActConsultClick┤     │ │ │   │ │     │ │   │ │         
                         TfrmConsults.RequestPrint┤     │ │ │   │ │     │ │   │ │         
              TfrmConsults.mnuActPrintSF513Click┤ │     │ │ │   │ │     │ │   │ │         
                     TfrmFrame.mnuFilePrintClick┘ │     │ │ │   │ │     │ │   │ │         
            TfrmConsults.mnuActDisplayResultsClick┤     │ │ │   │ │     │ │   │ │         
            TfrmConsults.ProcessNotifications...┘ │     │ │ │   │ │     │ │   │ │         
              TfrmConsults.mnuActDisplaySF513Click┤     │ │ │   │ │     │ │   │ │         
                TfrmConsults.mnuActPrintSF513Click┤     │ │ │   │ │     │ │   │ │         
            TfrmConsults.mnuActDisplayDetailsClick┤     │ │ │   │ │     │ │   │ │         
                            TfrmConsults.FormClose┤     │ │ │   │ │     │ │   │ │         
    TfrmConsults.mnuActIdentifyAddlSignersClick...┤     │ │ │   │ │     │ │   │ │         
              TfrmConsults.ProcessNotifications...┤     │ │ │   │ │     │ │   │ │         
                 TfrmConsults.mnuActNotePrintClick┤     │ │ │   │ │     │ │   │ │         
              TfrmConsults.popNoteMemoPrintClick┘ │     │ │ │   │ │     │ │   │ │         
                         TfrmConsults.StartNewEdit┤     │ │ │   │ │     │ │   │ │         
                TfrmConsults.mnuActCompleteClick┤ │     │ │ │   │ │     │ │   │ │         
              TfrmConsults.mnuActAddIDEntryClick┤ │     │ │ │   │ │     │ │   │ │         
            TfrmConsults.mnuActMakeAddendumClick┤ │     │ │ │   │ │     │ │   │ │         
                TfrmConsults.mnuActNoteEditClick┘ │     │ │ │   │ │     │ │   │ │         
              TfrmConsults.mnuActCompleteClick┘   │     │ │ │   │ │     │ │   │ │         
                  TfrmConsults.tvCsltNotesDragDrop┤     │ │ │   │ │     │ │   │ │         
                 TfrmConsults.tvCsltNotesStartDrag┤     │ │ │   │ │     │ │   │ │         
          TfrmConsults.mnuActAttachtoIDParentClick┤     │ │ │   │ │     │ │   │ │         
                   TfrmConsults.LstConsultsToPrint┘     │ │ │   │ │     │ │   │ │         
        TfrmFrame.mnuFilePrintSelectedItemsClick┘       │ │ │   │ │     │ │   │ │         
                   TfrmConsults.mnuActSignatureSaveClick┤ │ │   │ │     │ │   │ │         
                   TfrmConsults.mnuActSignatureSignClick┤ │ │   │ │     │ │   │ │         
                            TfrmConsults.SaveSignItem...┤ │ │   │ │     │ │   │ │         
                         TfrmConsults.mnuActConsultClick┤ │ │   │ │     │ │   │ │         
                             TfrmConsults.NotifyOrder...┤ │ │   │ │     │ │   │ │         
                                 TfrmConsults.UMNewOrder┤ │ │   │ │     │ │   │ │         
                          TfrmConsults.ProcessMedResults┘ │ │   │ │     │ │   │ │         
                     TfrmConsults.mnuActAttachMedClick┤   │ │   │ │     │ │   │ │         
                     TfrmConsults.mnuActRemoveMedClick┘   │ │   │ │     │ │   │ │         
                      TfrmConsults.mnuActEditResubmitClick┤ │   │ │     │ │   │ │         
                       TfrmConsults.cmdEditResubmitClick┘ │ │   │ │     │ │   │ │         
                        TfrmConsults.LstConsultsToPrint...┘ │   │ │     │ │   │ │         
                                TfrmConsults.tvConsultsClick┤   │ │     │ │   │ │         
                              TfrmConsults.mnuViewClick...┤ │   │ │     │ │   │ │         
                TfrmConsults.mnuActDetachFromIDParentClick┤ │   │ │     │ │   │ │         
                     TfrmConsults.mnuActNoteDeleteClick...┤ │   │ │     │ │   │ │         
                     TfrmConsults.mnuActSignatureSaveClick┤ │   │ │     │ │   │ │         
                     TfrmConsults.mnuActSignatureSignClick┤ │   │ │     │ │   │ │         
                              TfrmConsults.SaveSignItem...┤ │   │ │     │ │   │ │         
                           TfrmConsults.mnuActConsultClick┤ │   │ │     │ │   │ │         
                   TfrmConsults.mnuActEditResubmitClick...┤ │   │ │     │ │   │ │         
                              TfrmConsults.StartNewEdit...┤ │   │ │     │ │   │ │         
                         TfrmConsults.ProcessMedResults...┤ │   │ │     │ │   │ │         
                  TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │     │ │   │ │         
                                TfrmConsults.DoAttachIDChild┤   │ │     │ │   │ │         
                          TfrmConsults.tvCsltNotesDragDrop┤ │   │ │     │ │   │ │         
                  TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │     │ │   │ │         
                                TfrmConsults.tvConsultsKeyUp┘   │ │     │ │   │ │         
                                        TfrmConsults.cmdPCEClick┤ │     │ │   │ │         
                                      TfrmConsults.lstNotesClick┤ │     │ │   │ │         
                                  TfrmConsults.CompleteConsult┤ │ │     │ │   │ │         
                            TfrmConsults.mnuActCompleteClick┤ │ │ │     │ │   │ │         
                          TfrmConsults.mnuActAddIDEntryClick┘ │ │ │     │ │   │ │         
                                   TfrmConsults.InsertAddendum┤ │ │     │ │   │ │         
                        TfrmConsults.mnuActMakeAddendumClick┘ │ │ │     │ │   │ │         
                                      TfrmConsults.LoadForEdit┤ │ │     │ │   │ │         
                         TfrmConsults.mnuActNoteEditClick...┘ │ │ │     │ │   │ │         
                                                   SaveOrAbort┤ │ │     │ │   │ │         
                           TfrmConsults.SaveEditedConsult...┘ │ │ │     │ │   │ │         
                             TfrmConsults.SaveEditedConsult...┤ │ │     │ │   │ │         
                         TfrmConsults.mnuActSignatureSignClick┤ │ │     │ │   │ │         
                                  TfrmConsults.SaveSignItem...┤ │ │     │ │   │ │         
                TfrmConsults.mnuActIdentifyAddlSignersClick...┤ │ │     │ │   │ │         
                                TfrmConsults.tvCsltNotesChange┘ │ │     │ │   │ │         
                           TfrmConsults.SaveEditedConsult...┤   │ │     │ │   │ │         
                       TfrmConsults.mnuActSignatureSignClick┤   │ │     │ │   │ │         
                        TfrmConsults.ProcessNotifications...┘   │ │     │ │   │ │         
                                      TfrmConsults.AssignRemForm┘ │     │ │   │ │         
                                            ViewRemDlgFromForm┘   │     │ │   │ │         
                                                  ViewRemDlg┤     │     │ │   │ │         
                                        ViewReminderDialog┤ │     │     │ │   │ │         
                          TfrmDrawers.tvRemindersMouseUp┤ │ │     │     │ │   │ │         
                       TfrmDrawers.RemindersChanged...┘ │ │ │     │     │ │   │ │         
                          TfrmDrawers.tvRemindersKeyDown┘ │ │     │     │ │   │ │         
                                ViewReminderDialogTemplate┘ │     │     │ │   │ │         
                                  ViewRemDlgTemplateFromForm┘     │     │ │   │ │         
                           TTemplate.ExecuteReminderDialog┘       │     │ │   │ │         
                            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┘             │     │ │   │ │         
                                            TfrmSurgery.DisplayPCE┤     │ │   │ │         
                                         TfrmSurgery.cmdPCEClick┤ │     │ │   │ │         
                                     TfrmSurgery.tvSurgeryChange┤ │     │ │   │ │         
                                    TfrmSurgery.SaveEditedNote┤ │ │     │ │   │ │         
                                 TfrmSurgery.SaveCurrentNote┘ │ │ │     │ │   │ │         
                            TfrmSurgery.AllowContextChange┤   │ │ │     │ │   │ │         
                      TfrmFrame.AllowContextChangeAll...┘ │   │ │ │     │ │   │ │         
                                TfrmSurgery.SetViewContext┤   │ │ │     │ │   │ │         
                                 TfrmSurgery.DisplayPage┤ │   │ │ │     │ │   │ │         
                 TfrmSurgery.mnuViewReturntoDefaultClick┘ │   │ │ │     │ │   │ │         
                                  TfrmSurgery.RequestPrint┤   │ │ │     │ │   │ │         
                             TfrmFrame.mnuFilePrintClick┘ │   │ │ │     │ │   │ │         
                                  TfrmSurgery.mnuViewClick┤   │ │ │     │ │   │ │         
                           TfrmSurgery.SetViewContext...┘ │   │ │ │     │ │   │ │         
                                  TfrmSurgery.StartNewEdit┤   │ │ │     │ │   │ │         
                              TfrmSurgery.mnuActNewClick┤ │   │ │ │     │ │   │ │         
                           TfrmSurgery.cmdNewNoteClick┘ │ │   │ │ │     │ │   │ │         
                           TfrmSurgery.mnuActAddendClick┤ │   │ │ │     │ │   │ │         
                             TfrmSurgery.mnuActEditClick┘ │   │ │ │     │ │   │ │         
                             TfrmSurgery.mnuActDeleteClick┤   │ │ │     │ │   │ │         
                           TfrmSurgery.SaveEditedNote...┘ │   │ │ │     │ │   │ │         
                               TfrmSurgery.mnuActSaveClick┤   │ │ │     │ │   │ │         
                               TfrmSurgery.mnuActSignClick┤   │ │ │     │ │   │ │         
                                  TfrmSurgery.SaveSignItem┤   │ │ │     │ │   │ │         
                                TfrmReview.cmdOKClick...┘ │   │ │ │     │ │   │ │         
                                     TfrmSurgery.FormClose┤   │ │ │     │ │   │ │         
                TfrmSurgery.mnuActIdentifyAddlSignersClick┤   │ │ │     │ │   │ │         
                    TfrmSurgery.popNoteMemoAddlSignClick┘ │   │ │ │     │ │   │ │         
                          TfrmSurgery.ProcessNotifications┘   │ │ │     │ │   │ │         
                                 TfrmSurgery.DisplayPage┘     │ │ │     │ │   │ │         
                                   TfrmSurgery.mnuActSignClick┤ │ │     │ │   │ │         
                                TfrmSurgery.mnuViewDetailClick┤ │ │     │ │   │ │         
                           TfrmSurgery.ProcessNotifications...┤ │ │     │ │   │ │         
                                  TfrmSurgery.LoadSurgeryCases┘ │ │     │ │   │ │         
                                 TfrmSurgery.mnuViewClick...┤   │ │     │ │   │ │         
                                 TfrmSurgery.StartNewEdit...┤   │ │     │ │   │ │         
                            TfrmSurgery.mnuActDeleteClick...┤   │ │     │ │   │ │         
                                 TfrmSurgery.mnuActSaveClick┤   │ │     │ │   │ │         
                                 TfrmSurgery.mnuActSignClick┤   │ │     │ │   │ │         
                                 TfrmSurgery.SaveSignItem...┤   │ │     │ │   │ │         
               TfrmSurgery.mnuActIdentifyAddlSignersClick...┘   │ │     │ │   │ │         
                                       TfrmSurgery.lstNotesClick┘ │     │ │   │ │         
                                     TfrmSurgery.InsertNewNote┤   │     │ │   │ │         
                               TfrmSurgery.mnuActNewClick...┘ │   │     │ │   │ │         
                                    TfrmSurgery.InsertAddendum┤   │     │ │   │ │         
                               TfrmSurgery.mnuActAddendClick┘ │   │     │ │   │ │         
                                       TfrmSurgery.LoadForEdit┤   │     │ │   │ │         
                                 TfrmSurgery.mnuActEditClick┘ │   │     │ │   │ │         
                                 TfrmSurgery.SaveEditedNote...┤   │     │ │   │ │         
                                   TfrmSurgery.mnuActSignClick┤   │     │ │   │ │         
                                   TfrmSurgery.SaveSignItem...┤   │     │ │   │ │         
                 TfrmSurgery.mnuActIdentifyAddlSignersClick...┤   │     │ │   │ │         
                                TfrmSurgery.tvSurgeryChange...┘   │     │ │   │ │         
                                              TfrmNotes.DisplayPCE┘     │ │   │ │         
                                         TfrmNotes.lstNotesClick┤       │ │   │ │         
                                       TfrmNotes.InsertNewNote┤ │       │ │   │ │         
                                 TfrmNotes.mnuActNewClick...┤ │ │       │ │   │ │         
                             TfrmNotes.mnuActAddIDEntryClick┘ │ │       │ │   │ │         
                                      TfrmNotes.InsertAddendum┤ │       │ │   │ │         
                                 TfrmNotes.mnuActAddendClick┘ │ │       │ │   │ │         
                                         TfrmNotes.LoadForEdit┤ │       │ │   │ │         
                                   TfrmNotes.mnuActEditClick┘ │ │       │ │   │ │         
                                   TfrmNotes.SaveEditedNote...┤ │       │ │   │ │         
                                     TfrmNotes.mnuActSignClick┤ │       │ │   │ │         
                                     TfrmNotes.SaveSignItem...┤ │       │ │   │ │         
                                  TfrmNotes.mnuViewDetailClick┤ │       │ │   │ │         
                   TfrmNotes.mnuActIdentifyAddlSignersClick...┤ │       │ │   │ │         
                                       TfrmNotes.tvNotesChange┤ │       │ │   │ │         
                                 TfrmNotes.SaveEditedNote...┤ │ │       │ │   │ │         
                                   TfrmNotes.mnuActSignClick┤ │ │       │ │   │ │         
                           TfrmNotes.ProcessNotifications...┤ │ │       │ │   │ │         
                                         TfrmNotes.LoadNotes┘ │ │       │ │   │ │         
                              TfrmNotes.LstNotesToPrint...┤   │ │       │ │   │ │         
                                 TfrmNotes.mnuViewClick...┤   │ │       │ │   │ │         
                                 TfrmNotes.StartNewEdit...┤   │ │       │ │   │ │         
                   TfrmNotes.mnuActDetachFromIDParentClick┤   │ │       │ │   │ │         
                            TfrmNotes.mnuActDeleteClick...┤   │ │       │ │   │ │         
                                 TfrmNotes.mnuActSaveClick┤   │ │       │ │   │ │         
                                 TfrmNotes.mnuActSignClick┤   │ │       │ │   │ │         
                                 TfrmNotes.SaveSignItem...┤   │ │       │ │   │ │         
               TfrmNotes.mnuActIdentifyAddlSignersClick...┤   │ │       │ │   │ │         
                     TfrmNotes.mnuActAttachtoIDParentClick┤   │ │       │ │   │ │         
                                 TfrmNotes.DoAttachIDChild┘   │ │       │ │   │ │         
                               TfrmNotes.tvNotesDragDrop┤     │ │       │ │   │ │         
                   TfrmNotes.mnuActAttachtoIDParentClick┘     │ │       │ │   │ │         
                                   TfrmNotes.lvNotesSelectItem┘ │       │ │   │ │         
                                  TfrmNotes.tvNotesChange...┘   │       │ │   │ │         
                                          UpdateEncounterInfo...┤       │ │   │ │         
                                         TfrmNotes.AssignRemForm┘       │ │   │ │         
                                         ViewRemDlgFromForm...┘         │ │   │ │         
                                       TfrmReminderTree.RemindersChanged┘ │   │ │         
                                           TfrmReminderTree.FormCreate┤   │   │ │         
                                          TfrmReminderTree.FormDestroy┘   │   │ │         
                                            TReminderDialog.FinishProblems┘   │ │         
                                              TfrmRemDlg.ProcessReminder┤     │ │         
                                                 ViewRemDlgFromForm...┤ │     │ │         
                                              TfrmRemDlg.btnClearClick┤ │     │ │         
                                 TfrmRemDlg.ProcessReminderFromNodeStr┘ │     │ │         
                                             TfrmRemDlg.btnNextClick┤   │     │ │         
                                             TfrmRemDlg.btnBackClick┘   │     │ │         
                                               TfrmRemDlg.btnFinishClick┘     │ │         
                                                        TRemDlgElement.AddText┘ │         
                                                     TReminderDialog.AddText┤   │         
                                                     TfrmRemDlg.UpdateText┤ │   │         
                                           TfrmRemDlg.ProcessReminder...┤ │ │   │         
                                                TfrmRemDlg.BuildControls┤ │ │   │         
                                         TfrmRemDlg.ProcessReminder...┤ │ │ │   │         
                                                TfrmRemDlg.UMResyncRem┤ │ │ │   │         
                                            TfrmRemDlg.ProcessTemplate┤ │ │ │   │         
                                               ViewRemDlgFromForm...┘ │ │ │ │   │         
                                                TfrmRemDlg.SetFontSize┘ │ │ │   │         
                                               ViewRemDlgFromForm...┤   │ │ │   │         
                                             TfrmFrame.ChangeFont...┘   │ │ │   │         
                                                TfrmRemDlg.btnVisitClick┤ │ │   │         
                                           TfrmRemDlg.ProcessTemplate...┘ │ │   │         
                                                 TfrmRemDlg.btnFinishClick┤ │   │         
                                         TReminderDialog.FinishProblems...┘ │   │         
                                                                   ..(rec)..┘   │         
                                                                       ..(rec)..┘         

Called-By

Name Declaration Comments
AddPrompt procedure AddPrompt(Prompt: TRemPrompt; dt: TRemDataType; var x: string); -
GetVitalStr function GetVitalStr(VType: TVitalType; rte, unt, UserStr, DateStr: string): string; -


Source

227   procedure ConvertVital(VType: TVitalType; var VValue, VUnit: string);
228   begin
229     case VType of
230       vtTemp:     if(VUnit = 'C') then  //if metric, convert to standard
231                   begin
232                     if StrToFloat(VValue) > 0 then
233                       //VValue := FloatToStr(StrToFloat(VValue) * 9.0 / 5.0 +32.0);
234                       VValue := FloatToStr(Round((StrToFloat(VValue) * 9.0 / 5.0 +32.0)*100)/100);
235                     VUnit := 'F';
236                   end;
237                   
238       vtHeight:   if VUnit = 'CM' then
239                   begin
240                     if StrToFloat(VValue) > 0 then
241                       //VValue := FloatToStr(StrtoFloat(VValue) / 2.54);
242                       VValue := FloatToStr(Round((StrtoFloat(VValue) / 2.54)*1000)/1000);
243                     VUnit := 'IN';
244                   end;
245   
246       vtWeight:   if VUnit = 'KG' then
247                   begin
248                     if StrToFloat(VValue) > 0 then
249                       //VValue := FloatToStr(StrtoFloat(VValue) * 2.2046);
250                       //
251                       // the vitals package uses 2.2 (not 2.2046), so the GUI needs to use the
252                       // same so conversions back & forth don't lead to errors
253                       // this probably shouldn't even be done here - it should be done by the
254                       // vitals package - KCM
255                       //
256                       VValue := FloatToStr(Round(StrtoFloat(VValue) * 2.2{046} *1000)/1000);
257                     VUnit := 'LB';
258                   end;
259     end;
260   end;