Procedure

TProbRec.LoadComments

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TProbRec

Declaration

procedure LoadComments;

Calls Hierarchy


TProbRec.LoadComments
 └TComment.Create

Called-By Hierarchy


                       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┘     

Calls

Name Declaration Comments
TComment.Create constructor Create(dhcpcom:string); -

Called-By

Name Declaration Comments
TProbRec.Create constructor Create(AList:TstringList); -


Source

674   procedure TProbrec.LoadComments;
675   var
676     i,j:integer;
677     cv, noedit:string;
678     co:TComment;
679     first:boolean;
680   begin
681     j := 1; {first comment must be 1 or greater}
682     first := true;
683     for i := 0 to Pred(fNewRec.count) do
684     begin
685       if Piece(Piece(fNewRec[i],v,2),',',1) = '10' then
686       begin
687         if first then {the first line is just a counter}
688         begin
689           first := false;
690           // 'NEW■10,0■-1^These notes are now in XHTML format and must be modified via CPRS-R.'
691           noedit := Piece(fNewRec[i], v, 3);
692           if Piece(noedit, U, 1) = '-1' then
693           begin
694             fCmtIsXHTML := TRUE;
695             fCmtNoEditReason := Piece(noedit, U, 2);
696           end
697           else
698           begin
699             fCmtIsXHTML := FALSE;
700             fCmtNoEditReason := '';
701           end;
702         end
703         else
704         begin
705           cv := Piece(fNewRec[i],v,3);
706           co := TComment.Create(cv);
707           fComments.add(co); {put object in list}
708           fFieldList.addObject('10,' + inttostr(j),co);
709           inc(j);
710         end;
711       end;
712     end;
713   end;