Function

TSizeHolder.GetSize

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Comments

Fuctions returns a String of the Size(s) Of the Name parameter passed,
 if the Size(s) are already loaded into the object it will return those,
 otherwise it will make the apropriate RPC call to LOADSIZ

Visibility

Public

Owner

TSizeHolder

Declaration

function GetSize(AName: String): String;

Called-By Hierarchy


                                               TSizeHolder.GetSize
                                                 SetFormPosition┘ 
                                  TfrmNotesSearchText.FormShow┤   
                                 TfrmTemplateDialog.FormCreate┤   
                                   TfrmTemplateView.FormCreate┤   
                                                     ShowFlags┤   
                                      TfrmFrame.SetupPatient┤ │   
                                 UpdatePatientInfoForAlert┤ │ │   
                              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.AllowCCOWContextChange┤ │ │   
                           TfrmFrame.mnuFileNextClick...┤ │ │ │   
                           TfrmFrame.mnuFileOpenClick...┤ │ │ │   
                  TfrmFrame.mnuFileResumeContextSetClick┘ │ │ │   
                               TfrmFrame.UpdateCCOWContext┤ │ │   
                           TfrmFrame.mnuFileOpenClick...┤ │ │ │   
                         TfrmFrame.ctxContextorCommitted┤ │ │ │   
                          TfrmFrame.StartCCOWContextor┘ │ │ │ │   
                                TfrmFrame.FormCreate┘   │ │ │ │   
                  TfrmFrame.mnuFileResumeContextGetClick┘ │ │ │   
                    TfrmFrame.mnuFileResumeContextSetClick┘ │ │   
                                       TfrmFrame.ViewInfo...┤ │   
                                      TfrmCover.lstFlagClick┘ │   
                                  TfrmCover.lstFlagKeyDown┘   │   
                                            TfrmFlags.FormShow┤   
                                      TfrmPtSel.AdjustFormSize┤   
                                               SelectPatient┘ │   
                             TfrmFrame.mnuFileOpenClick...┘   │   
                                 TfrmDCSummProperties.FormShow┤   
                                  TfrmPrerequisites.FormCreate┤   
                                             ShowOtherSchedule┤   
                             TfrmODMedIV.CreateOtherSchedule┤ │   
                             TfrmODMedIV.cboScheduleChange┤ │ │   
                                 TfrmODMedIV.txtNSSClick┘ │ │ │   
                        TfrmODMedIV.cboScheduleKeyDown┘   │ │ │   
                              TfrmODMedIV.cboScheduleClick┘ │ │   
                              TfrmODMedIV.txtNSSClick...┘   │ │   
                              TfrmODMeds.CreateOtherScheduel┤ │   
                               TfrmODMeds.cboScheduleClick┤ │ │   
                               TfrmODMeds.cmdAcceptClick┤ │ │ │   
                                  TfrmODMeds.chkPRNClick┤ │ │ │   
                                  TfrmODMeds.txtNSSClick┤ │ │ │   
                             TfrmODMeds.cboScheduleEnter┤ │ │ │   
                             TfrmODMeds.UMShowNSSBuilder┘ │ │ │   
                              TfrmODMeds.cboScheduleChange┘ │ │   
                       TfrmODMeds.CreateOtherScheduelComplex┘ │   
                             TfrmODMeds.cboXScheduleChange┘   │   
                                  TfrmODMeds.txtNSSClick┘     │   
                                               ShowOtherRoutes┤   
                                TfrmODMedIV.CreateOtherRoute┘ │   
                                 TfrmODMedIV.cboRouteClick┘   │   
                              TfrmODMedIV.cboRouteChange┤     │   
                       TfrmODMedIV.txtAllIVRoutesClick┘ │     │   
                         TfrmODMedIV.cboRouteKeyDown┘   │     │   
                      TfrmODMedIV.txtAllIVRoutesClick...┘     │   
                                        TfrmODMedOIFA.FormShow┤   
                                                ShowVerifyText┤   
                                         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┘     │   
                                        ActivateOrderDialog...┤   
                                          ActivateOrderHTML...┤   
                                             ActivateOrderMenu┤   
                                   TfrmRemDlg.btnFinishClick┤ │   
                TfrmConsults.mnuActNewConsultRequestClick...┤ │   
                     TfrmConsults.mnuActNewProcedureClick...┤ │   
                                    TfrmOrders.lstWriteClick┤ │   
                    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   
                                     TfrmMeds.mnuActNewClick┤ │   
                                     TfrmOMSet.DoNextItem...┘ │   
                                          ActivateOrderList...┤   
                                        TfrmOCSession.FormShow┤   
                           ShowDelayedEventsTreatingSepecialty┤   
                             TfrmOrders.btnDelayedOrderClick┘ │   
                                     TfrmRefillOrders.FormShow┤   
                                       SelectEvtReleasedOrders┤   
                        TfrmOrders.EventRealeasedOrder1Click┘ │   
                                           ExecuteChangeEvt...┤   
                                               ExecuteDCOrders┤   
                                    TfrmOrders.mnuActDCClick┤ │   
                                      TfrmMeds.mnuActDCClick┘ │   
                                    TfrmRenewOrders.FormCreate┤   
                                                     UpdatePCE┤   
                                        TPCEData.OK2SignNote┤ │   
                                                 IsOK2Sign┘ │ │   
                              TfrmDCSumm.mnuActSignClick┤   │ │   
                                 TfrmDCSumm.SaveSignItem┤   │ │   
                                 TfrmReview.cmdOKClick┘ │   │ │   
                                       ReviewChanges┘   │   │ │   
                   TfrmFrame.AllowContextChangeAll┤     │   │ │   
                        TfrmFrame.FormCloseQuery┤ │     │   │ │   
                   TfrmFrame.mnuFileNextClick...┤ │     │   │ │   
                   TfrmFrame.mnuFileOpenClick...┤ │     │   │ │   
                   TfrmFrame.ctxContextorPending┤ │     │   │ │   
               TfrmFrame.StartCCOWContextor...┘ │ │     │   │ │   
              TfrmFrame.ctxContextorCommitted...┤ │     │   │ │   
          TfrmFrame.mnuFileResumeContextGetClick┤ │     │   │ │   
          TfrmFrame.mnuFileResumeContextSetClick┘ │     │   │ │   
                          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...┤ │       │   │ │   
                       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.mnuActSignatureSignClick┤   │ │   
                               TfrmConsults.SaveSignItem┤   │ │   
                              TfrmReview.cmdOKClick...┘ │   │ │   
                             TfrmSurgery.mnuActSignClick┤   │ │   
                                TfrmSurgery.SaveSignItem┤   │ │   
                              TfrmReview.cmdOKClick...┘ │   │ │   
                               TfrmNotes.mnuActSignClick┤   │ │   
                                  TfrmNotes.SaveSignItem┘   │ │   
                              TfrmReview.cmdOKClick...┘     │ │   
                                      TfrmDCSumm.cmdPCEClick┤ │   
                                    TfrmConsults.cmdPCEClick┤ │   
                                              EditPCEData...┤ │   
                                     TfrmSurgery.cmdPCEClick┤ │   
                                      UpdateEncounterInfo...┘ │   
                                 TfrmTemplateEditor.FormCreate┤   
                                   TfrmDeviceSelect.FormCreate┤   
                                                   SelectTests┘   
                                     TfrmLabs.tvReportsClick┘     
                                      TfrmLabs.DisplayPage┤       
                                     TfrmLabs.LoadTreeView┤       
                                    TfrmLabs.DisplayPage┤ │       
                  TfrmOptionsReportsCustom.btnApplyClick┘ │       
                   TfrmOptionsReportsCustom.btnOKClick┘   │       
                               TfrmLabs.cmdOtherTestsClick┤       
                                  TfrmLabs.chkMaxFreqClick┤       
                             TfrmLabs.ProcessNotifications┤       
                                    TfrmLabs.DisplayPage┘ │       
                                                 ..(rec)..┤       
                                 TfrmLabs.tvReportsKeyDown┤       
                           TfrmFrame.lstCIRNLocationsClick┘       
                                     TfrmFrame.SetUpCIRN┘         
                             TfrmFrame.SetupPatient...┘           

Called-By

Name Declaration Comments
SetFormPosition procedure SetFormPosition(AForm: TForm); -


Source

489   function TSizeHolder.GetSize(AName: String): String;
490   {Fuctions returns a String of the Size(s) Of the Name parameter passed,
491    if the Size(s) are already loaded into the object it will return those,
492    otherwise it will make the apropriate RPC call to LOADSIZ}
493   var
494     rSizeVal: String; //return Size value
495     nameIndex: integer;
496   begin
497     rSizeVal := '';
498     nameIndex := FNameList.IndexOf(AName);
499     if nameIndex = -1 then //Currently Not in the NameList
500     begin
501       rSizeVal := sCallV('ORWCH LOADSIZ', [AName]);
502       if rSizeVal <> '' then
503       begin
504         FNameList.Add(AName);
505         FSizeList.Add(rSizeVal);
506       end;
507     end
508     else //Currently is in the NameList
509       rSizeVal := FSizeList[nameIndex];
510     result := rSizeVal;
511   end;