Function

MakeConsultDisplayText

Module

uTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function MakeConsultDisplayText(RawText:string): string;

Called-By Hierarchy


                        MakeConsultDisplayText
          TfrmPrintList.SelectParentFromList┘ 
                TfrmDCSumm.LstSummsToPrint┤   
TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   
           TfrmConsults.LstConsultsToPrint┤   
TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   
                 TfrmNotes.LstNotesToPrint┘   
TfrmFrame.mnuFilePrintSelectedItemsClick┘     

Called-By

Name Declaration Comments
TfrmPrintList.SelectParentFromList function SelectParentFromList(ATree: TORTreeView; PageID: Integer): string; -


Source

105   function MakeConsultDisplayText(RawText:string): string;
106   var
107    x: string;
108   begin
109      x := RawText;
110      Result := Piece(x, U, 2) + ',' + Piece(x, U, 3) + ',' +
111                Piece(x, U, 4) + ', '+ Piece(x, U, 5);
112   
113   end;