Function

GetOrigVal

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

LoadField

Declaration

function GetOrigVal(id:string):string;

Called-By Hierarchy


                                    GetOrigVal
                          TProbRec.LoadField┘ 
                           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┘       

Called-By

Name Declaration Comments
TProbRec.LoadField Procedure LoadField(Fldrec:TKeyVal;Id:String;name:string); -


Source

641   function GetOrigVal(id:string):string;
642   var
643     i:integer;
644   begin
645     i := 0;
646     Result := '^';
647     if fOrigRec.count = 0 then exit;
648     while (i < fOrigRec.Count) and (Piece(fOrigRec[i],v,2)<>id) do inc(i);
649     if i = fOrigRec.Count then exit;
650     if Piece(fOrigRec[i],v,2) = id then Result := Piece(fOrigRec[i],v,3)
651   end;