Function

LoadServiceListWithSynonyms

Directives

Overload

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Comments

Param 1 = Starting service (1=All Services)
 Param 2 = Purpose:  0=display all services, 1=forward or order from possible services
 Param 3 = Show synonyms

Scope

Interfaced

Declaration

function  LoadServiceListWithSynonyms(Purpose: integer): TStrings ; overload;

Called-By Hierarchy


                        LoadServiceListWithSynonyms
                      TfrmTemplateEditor.ShowInfo┘ 
                                  EditTemplates┤   
          TfrmDCSumm.popSummMemoTemplateClick┤ │   
               TfrmDCSumm.mnuNewTemplateClick┤ │   
             TfrmDCSumm.mnuEditTemplatesClick┤ │   
       TfrmDCSumm.mnuEditSharedTemplatesClick┤ │   
         TfrmDCSumm.mnuNewSharedTemplateClick┤ │   
        TfrmConsults.popNoteMemoTemplateClick┤ │   
           TfrmConsults.mnuEditTemplatesClick┤ │   
             TfrmConsults.mnuNewTemplateClick┤ │   
     TfrmConsults.mnuEditSharedTemplatesClick┤ │   
       TfrmConsults.mnuNewSharedTemplateClick┤ │   
            TfrmDrawers.mnuEditTemplatesClick┤ │   
              TfrmDrawers.mnuNewTemplateClick┤ │   
         TfrmSurgery.popNoteMemoTemplateClick┤ │   
            TfrmSurgery.mnuEditTemplatesClick┤ │   
              TfrmSurgery.mnuNewTemplateClick┤ │   
      TfrmSurgery.mnuEditSharedTemplatesClick┤ │   
        TfrmSurgery.mnuNewSharedTemplateClick┤ │   
           TfrmNotes.popNoteMemoTemplateClick┤ │   
              TfrmNotes.mnuEditTemplatesClick┤ │   
                TfrmNotes.mnuNewTemplateClick┤ │   
        TfrmNotes.mnuEditSharedTemplatesClick┤ │   
          TfrmNotes.mnuNewSharedTemplateClick┘ │   
                TfrmTemplateEditor.tvTreeChange┤   
             TfrmTemplateEditor.cbActiveClick┤ │   
               TfrmTemplateEditor.tvTreeEnter┤ │   
             TfrmTemplateEditor.cbShHideClick┤ │   
           TfrmTemplateEditor.cbActiveClick┘ │ │   
            TfrmTemplateEditor.cbPerHideClick┤ │   
           TfrmTemplateEditor.cbActiveClick┘ │ │   
             TfrmTemplateEditor.sbDeleteClick┤ │   
      TfrmTemplateEditor.mnuNodeDeleteClick┤ │ │   
           TfrmTemplateEditor.tvTreeKeyDown┘ │ │   
                    TfrmTemplateEditor.Resync┤ │   
             TfrmTemplateEditor.btnNewClick┤ │ │   
                         EditTemplates...┤ │ │ │   
       TfrmTemplateEditor.mnuAutoGenClick┤ │ │ │   
TfrmTemplateEditor.mnuImportTemplateClick┘ │ │ │   
           TfrmTemplateEditor.sbMoveUpClick┤ │ │   
         TfrmTemplateEditor.sbMoveDownClick┤ │ │   
        TfrmTemplateEditor.sbDeleteClick...┤ │ │   
          TfrmTemplateEditor.tvTreeDragDrop┤ │ │   
       TfrmTemplateEditor.sbCopyLeftClick┤ │ │ │   
      TfrmTemplateEditor.sbCopyRightClick┤ │ │ │   
     TfrmTemplateEditor.mnuNodePasteClick┘ │ │ │   
            TfrmTemplateEditor.mnuSortClick┤ │ │   
          TfrmTemplateEditor.TemplateLocked┘ │ │   
            TfrmTemplateEditor.FormCreate┘   │ │   
             TfrmTemplateEditor.SharedEditing┤ │   
              TfrmTemplateEditor.FormCreate┤ │ │   
       TfrmTemplateEditor.cbEditSharedClick┘ │ │   
             TfrmTemplateEditor.cbxTypeChange┘ │   
                TfrmTemplateEditor.reBoilChange┤   
             TfrmTemplateEditor.mnuAutoGenClick┤   
      TfrmTemplateEditor.mnuImportTemplateClick┘   

Called-By

Name Declaration Comments
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -


Source

547   function LoadServiceListWithSynonyms(Purpose: integer): TStrings ;
548   // Param 1 = Starting service (1=All Services)
549   // Param 2 = Purpose:  0=display all services, 1=forward or order from possible services
550   // Param 3 = Show synonyms
551   begin
552     Callv('ORQQCN SVC W/SYNONYMS',[1, Purpose, True]) ;
553     MixedCaseList(RPCBrokerV.Results) ;
554     Result := RPCBrokerV.Results;
555   end ;