Constructor

TPLPt.Create

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Comments

-------------------------- TPLPt Class ----------------------

Visibility

Public/Published

Owner

TPLPt

Declaration

constructor Create(Alist:TStringList);

Called-By Hierarchy


                                 TPLPt.Create
             TfrmProblems.LoadPatientParams┘ 
                TfrmProblems.LoadProblems┘   
               TfrmProblems.DisplayPage┤     
TfrmProblems.mnuViewRestoreDefaultClick┤     
                  TfrmProblems.FormShow┘     

Called-By

Name Declaration Comments
TfrmProblems.LoadPatientParams procedure LoadPatientParams(AList:TstringList); -


Source

382   constructor TPLPt.Create(Alist:TStringList);
383   var
384     i: integer;
385   begin
386     for i := 0 to AList.Count - 1 do
387       case i of
388         0: PtVAMC             := copy(Alist[i],1,999);
389         1: PtDead             := AList[i];
390         2: PtServiceConnected := (AList[i] = '1');
391         3: PtAgentOrange      := (AList[i] = '1');
392         4: PtRadiation        := (AList[i] = '1');
393         5: PtEnvironmental    := (AList[i] = '1');
394         6: PtBID              := Alist[i];
395         7: PtHNC              := (AList[i] = '1');
396         8: PtMST              := (AList[i] = '1');
397        //9:CombatVet   Not tracked in Problem list
398         10: PtSHAD             := (AList[i] = '1');
399       end;
400   end;