Constructor

TComment.Create

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Comments

------------------- TComment Class ----------------

Visibility

Public/Published

Owner

TComment

Declaration

constructor Create(dhcpcom:string);

Called-By Hierarchy


                               TComment.Create
                       TProbRec.LoadComments┤ 
                           TProbRec.Create┘ │ 
           TfrmProblems.lstProbActsClick┤   │ 
       TfrmProblems.wgProbDataDblClick┤ │   │ 
             TfrmProblems.lstViewClick┘ │   │ 
     TfrmProblems.HighlightDuplicate┘   │   │ 
           TfrmProblems.AddProblem┤     │   │ 
TfrmProblems.lstProbActsClick...┤ │     │   │ 
   TfrmProblems.lstProbPickClick┤ │     │   │ 
TfrmProblems.lstProbPickDblClick┤ │     │   │ 
TfrmProblems.edProbEntKeyPress┘ │ │     │   │ 
        TfrmProblems.UMPLLexicon┘ │     │   │ 
     TfrmdlgProb.bbChangeProbClick┘     │   │ 
              TfrmProblems.UpdateProblem┤   │ 
      TfrmProblems.lstProbActsClick...┘ │   │ 
             TfrmProblems.RestoreProblem┤   │ 
      TfrmProblems.lstProbActsClick...┘ │   │ 
                    TfrmdlgProb.FormShow┤   │ 
             TfrmDiagnoses.UpdateProblem┘   │ 
    TfrmDiagnoses.lbxSectionClickCheck┘     │ 
                      TProbRec.AddNewComment┘ 
          TfrmProblems.lstProbActsClick...┤   
                TfrmdlgProb.GetNewComments┘   
                 TfrmdlgProb.bbFileClick┘     

Called-By

Name Declaration Comments
TProbRec.AddNewComment procedure AddNewComment(Txt:string); -
TProbRec.LoadComments procedure LoadComments; -


Source

319   constructor TComment.Create(dhcpcom:string);
320   begin
321     {create and instantiate a Tcomment object}
322     IFN:=Piece(dhcpcom,u,1);
323     Facility:=Piece(dhcpcom,u,2);
324     Narrative:=Piece(dhcpcom,u,3);
325     Status:=Piece(dhcpcom,u,4);
326     DateAdd:=Piece(dhcpcom,u,5);
327     AuthorID:=Piece(dhcpcom,u,6);
328     AuthorName:=Piece(dhcpcom,u,7);
329     StatusFlag:='';
330   end;