Function

TfrmGraphs.ProfileName

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmGraphs

Declaration

function ProfileName(aProfile, aName, aString: string): string;

Calls Hierarchy


TfrmGraphs.ProfileName
 └TfrmGraphs.DCName
   └rpcClass
     └onoff

Called-By Hierarchy


                                               TfrmGraphs.ProfileName
                                              TfrmGraphs.SetProfile┘ 
                                         TfrmGraphs.AssignProfile┘   
                                        TfrmGraphs.SortListView┤     
                                    TfrmGraphs.FilterListView┘ │     
                              TfrmGraphs.cboDateRangeChange┘   │     
                            TfrmReports.lstDateRangeClick┤     │     
                                 TfrmReports.GraphPanel┘ │     │     
                                    TfrmReports.Graph┤   │     │     
                         TfrmReports.tvReportsClick┘ │   │     │     
                  TfrmFrame.lstCIRNLocationsClick┤   │   │     │     
                            TfrmFrame.SetUpCIRN┘ │   │   │     │     
                       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┘     │   │   │     │     
                          TfrmReports.DisplayPage┤   │   │     │     
                         TfrmReports.LoadTreeView┤   │   │     │     
                        TfrmReports.DisplayPage┤ │   │   │     │     
           TfrmOptionsReportsDefault.btnOKClick┤ │   │   │     │     
        TfrmOptionsReportsDefault.btnResetClick┤ │   │   │     │     
         TfrmOptionsReportsCustom.btnApplyClick┘ │   │   │     │     
          TfrmOptionsReportsCustom.btnOKClick┘   │   │   │     │     
                 TfrmReports.ProcessNotifications┤   │   │     │     
                        TfrmReports.DisplayPage┘ │   │   │     │     
                     TfrmReports.tvReportsKeyDown┤   │   │     │     
                  TfrmReports.tvProceduresKeyDown┤   │   │     │     
                      TfrmReports.chkMaxFreqClick┤   │   │     │     
             TfrmOptionsReportsDefault.btnOKClick┤   │   │     │     
          TfrmOptionsReportsDefault.btnResetClick┤   │   │     │     
        TfrmOptionsReportsCustom.btnApplyClick...┘   │   │     │     
                        TfrmReports.tvReportsClick...┘   │     │     
                                    TfrmGraphs.Initialize┤     │     
                                 TfrmFrame.ClearPatient┤ │     │     
                            TfrmFrame.SetupPatient...┘ │ │     │     
                        TfrmFrame.mnuToolsGraphingClick┤ │     │     
                                 TfrmLabs.grdLabClick┤ │ │     │     
                              TfrmLabs.tvReportsClick┤ │ │     │     
                               TfrmLabs.DisplayPage┤ │ │ │     │     
                              TfrmLabs.LoadTreeView┤ │ │ │     │     
                             TfrmLabs.DisplayPage┤ │ │ │ │     │     
        TfrmOptionsReportsCustom.btnApplyClick...┘ │ │ │ │     │     
                        TfrmLabs.cmdOtherTestsClick┤ │ │ │     │     
                           TfrmLabs.chkMaxFreqClick┤ │ │ │     │     
                      TfrmLabs.ProcessNotifications┤ │ │ │     │     
                             TfrmLabs.DisplayPage┘ │ │ │ │     │     
                                          ..(rec)..┤ │ │ │     │     
                          TfrmLabs.tvReportsKeyDown┤ │ │ │     │     
                 TfrmFrame.lstCIRNLocationsClick...┘ │ │ │     │     
                                            ..(rec)..┘ │ │     │     
                                TfrmReports.ClearPtData┤ │     │     
                            TfrmFrame.ClearPatient...┘ │ │     │     
                                   TfrmReports.Graph...┘ │     │     
                                      TfrmGraphs.FormShow┤     │     
                        TfrmGraphs.btnChangeSettingsClick┤     │     
                         TfrmReports.btnChangeViewClick┘ │     │     
                             TfrmGraphs.CheckExpandedLabs┤     │     
                                  TfrmGraphs.ItemsClick┘ │     │     
                               TfrmGraphs.DisplayData┤   │     │     
                          TfrmFrame.ClearPatient...┤ │   │     │     
                         TfrmReports.ClearPtData...┤ │   │     │     
                               TfrmReports.Graph...┤ │   │     │     
                        TfrmGraphs.chkItemsTopClick┤ │   │     │     
                     TfrmGraphs.chkItemsBottomClick┤ │   │     │     
                 TfrmGraphs.mnuPopGraphIsolateClick┤ │   │     │     
                   TfrmGraphs.cboDateRangeChange...┤ │   │     │     
                           TfrmGraphs.ItemsClick...┤ │   │     │     
                             TfrmGraphs.ViewsChange┤ │   │     │     
                     TfrmGraphs.lstViewsTopChange┤ │ │   │     │     
                       TfrmGraphs.Initialize...┤ │ │ │   │     │     
                         TfrmGraphs.GraphSwitch┤ │ │ │   │     │     
                         TfrmGraphs.GraphSwap┘ │ │ │ │   │     │     
            TfrmGraphs.mnuPopGraphSwapClick┘   │ │ │ │   │     │     
               TfrmGraphs.cboDateRangeChange...┤ │ │ │   │     │     
                      TfrmGraphs.ViewSelections┘ │ │ │   │     │     
                TfrmReports.tvReportsClick...┤   │ │ │   │     │     
           TfrmGraphs.btnGraphSelectionsClick┘   │ │ │   │     │     
        TfrmReports.btnGraphSelectionsClick┘     │ │ │   │     │     
                  TfrmGraphs.lstViewsBottomChange┘ │ │   │     │     
                       TfrmGraphs.Initialize...┤   │ │   │     │     
                      TfrmGraphs.GraphSwitch...┤   │ │   │     │     
               TfrmGraphs.cboDateRangeChange...┤   │ │   │     │     
                   TfrmGraphs.ViewSelections...┘   │ │   │     │     
                  TfrmGraphs.mnuPopGraphRemoveClick┘ │   │     │     
                       TfrmGraphs.lvwItemsBottomClick┤   │     │     
                           TfrmGraphs.Initialize...┤ │   │     │     
                            TfrmGraphs.CheckContext┤ │   │     │     
                              TfrmGraphs.FormShow┘ │ │   │     │     
                       TfrmGraphs.chkDualViewsClick┤ │   │     │     
                         TfrmGraphs.Initialize...┤ │ │   │     │     
                              TfrmGraphs.FormShow┤ │ │   │     │     
                                           Layout┤ │ │   │     │     
                             TfrmGraphs.GetSize┘ │ │ │   │     │     
                          TfrmGraphs.FormShow┘   │ │ │   │     │     
             TfrmGraphs.mnuPopGraphDualViewsClick┤ │ │   │     │     
                     TfrmGraphs.ViewSelections...┘ │ │   │     │     
                          TfrmGraphs.GraphSwitch...┤ │   │     │     
                              TfrmGraphs.SplitClick┤ │   │     │     
                 TfrmGraphs.mnuPopGraphSplitClick┘ │ │   │     │     
                   TfrmGraphs.mnuPopGraphClearClick┤ │   │     │     
                              TfrmGraphs.AutoSelect┤ │   │     │     
                        TfrmGraphs.ViewsChange...┘ │ │   │     │     
                    TfrmGraphs.lvwItemsBottomChange┘ │   │     │     
                          TfrmGraphs.lvwItemsTopClick┘   │     │     
                           TfrmGraphs.Initialize...┤     │     │     
                                TfrmGraphs.FormShow┤     │     │     
                    TfrmGraphs.chkDualViewsClick...┤     │     │     
                          TfrmGraphs.GraphSwitch...┤     │     │     
                           TfrmGraphs.SplitClick...┤     │     │     
                   TfrmGraphs.mnuPopGraphClearClick┤     │     │     
                           TfrmGraphs.AutoSelect...┤     │     │     
                   TfrmGraphs.mnuPopGraphResetClick┤     │     │     
                              TfrmGraphs.FormShow┤ │     │     │     
            TfrmGraphs.mnuPopGraphHorizontalClick┤ │     │     │     
              TfrmGraphs.mnuPopGraphVerticalClick┤ │     │     │     
                TfrmGraphs.mnuPopGraphRemoveClick┤ │     │     │     
              TfrmGraphs.mnuPopGraphZoomBackClick┘ │     │     │     
                       TfrmGraphs.lvwItemsTopChange┘     │     │     
                                TfrmGraphs.ViewsChange...┤     │     
                     TfrmGraphs.mnuPopGraphMergeLabsClick┘     │     
                                      TfrmGraphs.ViewsChange...┘     

Calls

Name Declaration Comments
TfrmGraphs.DCName function DCName(aDCien: string): string; -

Called-By

Name Declaration Comments
TfrmGraphs.SetProfile procedure SetProfile(aProfile, aName: string; aListView: TListView); -


Source

5366  function TfrmGraphs.ProfileName(aProfile, aName, aString: string): string;
5367  var
5368    j: integer;
5369    dcnm, itemdrugclass, itemnums, itempart, itempart1, itempart2: string;
5370    itemstring1, itemstringnums: string;
5371  begin
5372    Result := '';
5373    itemstring1 := UpperCase(Piece(aString, '^', 1));
5374    itemdrugclass := Piece(aString, '^', 6);
5375    itemstringnums := UpperCase(Pieces(aString, '^', 1, 2));
5376    for j := 1 to BIG_NUMBER do
5377    begin
5378      itempart := Piece(aProfile, '|', j);
5379      if itempart = '' then
5380        break;
5381      itempart1 := Piece(itempart, '~', 1);
5382      itempart2 := Piece(itempart, '~', 2);
5383      itemnums := itempart1 + '^' + itempart2;
5384      if (itempart1 = '50.605') and (length(itemdrugclass) > 0) then
5385      begin
5386        dcnm := DCName(itempart2);
5387        if dcnm = itemdrugclass then
5388        begin
5389          Result := aName;
5390          break;
5391        end;
5392      end
5393      else if itempart1 = '63' then
5394      begin
5395        if itemnums = Piece(itemstringnums, '.', 1) then
5396        begin
5397          Result := aName;
5398          break;
5399        end;
5400      end
5401      else
5402      begin
5403        if itemnums = itemstringnums then
5404        begin
5405          Result := aName;
5406          break;
5407        end;
5408      end;
5409      if (itempart1 = '0') and (itempart2 = itemstring1) then
5410      begin
5411        Result := aName;
5412        break;
5413      end
5414      else if (itempart1 = '0') and (length(Piece(itempart2, ';', 2)) > 0) then    // subtypes
5415      if copy(itempart2, 1, length(itemstring1)) = Piece(itempart2, ';', 1) then
5416      if Piece(itempart2, ';', 2) = UpperCase(Piece(Piece(aString, '^', 2), ';', 2)) then
5417      begin
5418        Result := aName;
5419        break;
5420      end;
5421    end;
5422  end;