Function

TProbRec.GetFilerObject

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Comments

--------------------------------- Filer Objects -------------------------

return array for filing in dhcp

Visibility

Private

Owner

TProbRec

Declaration

function GetFilerObject:TstringList;

Calls Hierarchy


TProbRec.GetFilerObject
 ├TComment.TComtoDHCPCom
 │ └FixQuotes
 ├FixQuotes
 └TKeyVal.GetDHCPField

Called-By Hierarchy


                   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; -
TKeyVal.GetDHCPField function GetDHCPField:string; -
TComment.TComtoDHCPCom function TComtoDHCPCom:string; -

Called-By

Name Declaration Comments
TfrmdlgProb.bbFileClick procedure bbFileClick(Sender: TObject); -
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -
TfrmDiagnoses.UpdateProblem procedure UpdateProblem(AplIEN: String; AICDCode: String; ASCTCode: String = ''); -


Source

1168  function TProbRec.GetFilerObject:TstringList;
1169  {return array for filing in dhcp}
1170  var
1171    i:integer;
1172    fldID,fldVal: string;
1173  begin
1174    fFilerObj.clear;
1175    for i := 0 to pred(fFieldList.count) do
1176      begin
1177        fldID := fFieldList[i];
1178        if pos(',',fldID)>0 then {is a comment field}
1179          fldVal := TComment(fFieldList.objects[i]).TComtoDHCPCom
1180        else {is a regular field}
1181          begin
1182            if fldID = '1.02' then {have to make exception for CONDITION field}
1183              fldVal := TKeyVal(fFieldList.objects[i]).intern
1184            else
1185              fldVal := FixQuotes(TKeyVal(fFieldList.objects[i]).DHCPField);
1186          end;
1187        fFilerObj.add('GMPFLD(' + fldID + ')="' + fldVal + '"');
1188      end;
1189    fFilerObj.add('GMPFLD(10,0)="' + inttostr(fComments.count) + '"');
1190     {now get original fields}
1191    for i := 0 to pred(fOrigRec.count) do
1192      begin
1193        fldVal  := fOrigRec[i];
1194        fldID   := Piece(fldVal,v,2);
1195        fldVal  := FixQuotes(Piece(fldVal,v,3));
1196        fFilerObj.add('GMPORIG(' + fldID + ')="' + fldVal + '"');
1197      end;
1198    result := fFilerObj;
1199  end;