Function

TComment.TComtoDHCPCom

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TComment

Declaration

function TComtoDHCPCom:string;

Calls Hierarchy


TComment.TComtoDHCPCom
 └FixQuotes

Called-By Hierarchy


                      TComment.TComtoDHCPCom
                   TProbRec.GetFilerObject┘ 
           TfrmProblems.lstProbActsClick┤   
       TfrmProblems.wgProbDataDblClick┤ │   
             TfrmProblems.lstViewClick┘ │   
     TfrmProblems.HighlightDuplicate┘   │   
           TfrmProblems.AddProblem┤     │   
TfrmProblems.lstProbActsClick...┤ │     │   
   TfrmProblems.lstProbPickClick┤ │     │   
TfrmProblems.lstProbPickDblClick┤ │     │   
TfrmProblems.edProbEntKeyPress┘ │ │     │   
        TfrmProblems.UMPLLexicon┘ │     │   
     TfrmdlgProb.bbChangeProbClick┘     │   
                 TfrmdlgProb.bbFileClick┤   
             TfrmDiagnoses.UpdateProblem┘   
    TfrmDiagnoses.lbxSectionClickCheck┘     

Calls

Name Declaration Comments
FixQuotes function FixQuotes(Instring: string): string; -

Called-By

Name Declaration Comments
TProbRec.GetFilerObject function GetFilerObject:TstringList; -


Source

337   function TComment.TComtoDHCPCom:string;
338   begin
339     Narrative := FixQuotes(Narrative);
340     if uppercase(IFN)='NEW' then {new note}
341       result := Narrative
342     else {potential edit of existing note}
343       result := IFN + u + Facility + u + Narrative + u +
344               Status + u + DateAdd + u + AuthorID; {leave off author name}
345   end;