Procedure

TProbRec.CreateFields

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TProbRec

Declaration

Procedure CreateFields;

Called-By Hierarchy


                       TProbRec.CreateFields
                           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.Create constructor Create(AList:TstringList); -


Source

601   procedure TProbRec.CreateFields;
602   begin
603     fDiagnosis:=TKeyVal.create;
604     fModDate:=TKeyVal.create;
605     fNarrative:=TKeyVal.create;
606     fEntDate:=TKeyVal.create;
607     fStatus:=TKeyVal.create;
608     fOnsetDate:=TKeyVal.create;
609     fProblem:=TKeyVal.create;
610     fCondition:=TKeyVal.create;
611     fEntBy:=TKeyVal.create;
612     fRecBy:=TKeyVal.create;
613     fRespProv:=TKeyVal.create;
614     fService:=TKeyVal.create;
615     fResolveDate:=TKeyVal.create;
616     fClinic:=TKeyVal.create;
617     fRecordDate:=TKeyVal.create;
618     fServCon:=TKeyVal.create;
619     fAOExposure:=TKeyVal.create;
620     fRadExposure:=TKeyVal.create;
621     fGulfExposure:=TKeyVal.create;
622     fPriority:=TKeyVal.create;
623     fHNC:=TKeyVal.create;
624     fMST:=TKeyVal.create;
625     fCV := TKeyVal.create;
626     fSHAD:=TKeyVal.Create;
627     fSCTConcept:=TKeyVal.Create;
628     fSCTDesignation:=TKeyVal.Create;
629     fNTRTRequested := TKeyVal.Create;
630     fNTRTComment := TKeyVal.Create;
631     fCodeDate := TKeyVal.create;
632     fCodeSystem := TKeyVal.create;
633     fComments:=TList.create;
634   end;