Constructor

TProbRec.Create

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Comments

------------------ TProbRec -----------------------

Visibility

Public

Owner

TProbRec

Declaration

constructor Create(AList:TstringList);

Calls Hierarchy


TProbRec.Create
 ├TProbRec.CreateFields
 ├TProbRec.LoadField
 │ └GetOrigVal
 └TProbRec.LoadComments
   └TComment.Create

Called-By Hierarchy


                           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
TProbRec.CreateFields Procedure CreateFields; -
TProbRec.LoadComments procedure LoadComments; -
TProbRec.LoadField Procedure LoadField(Fldrec:TKeyVal;Id:String;name:string); -

Called-By

Name Declaration Comments
TfrmdlgProb.FormShow procedure FormShow(Sender: TObject); -
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -
TfrmProblems.RestoreProblem procedure RestoreProblem; -
TfrmProblems.UpdateProblem procedure UpdateProblem(const why:char;Line: string;AllProblemsIndex:integer); -
TfrmDiagnoses.UpdateProblem procedure UpdateProblem(AplIEN: String; AICDCode: String; ASCTCode: String = ''); -


Source

503   constructor TProbRec.create(AList:TstringList);
504   var
505     i: integer;
506   begin
507     fFieldList := TstringList.create;
508     fFilerObj := TStringList.Create;
509     fNewRec := TstringList.create;
510     for i := 0 to Pred(Alist.count) do
511       if copy(Alist[i],1,3) = 'NEW' then fNewRec.add(Alist[i]);
512     fOrigRec := TStringList.Create;
513     for i := 0 to pred(Alist.count) do
514       if copy(Alist[i],1,3) = 'ORG' then fOrigRec.add(Alist[i]);
515     CreateFields;
516     {names selected to agree with subscripts of argument array to callable
517      entrypoints in ^GMPUTL where possible.}
518     LoadField(fDiagnosis,'.01','DIAGNOSIS');
519     LoadField(fModDate,'.03','MODIFIED');
520     LoadField(fNarrative,'.05','NARRATIVE');
521     LoadField(fEntDate,'.08','ENTERED');
522     LoadField(fStatus,'.12','STATUS');
523     LoadField(fOnsetDate,'.13','ONSET');
524     LoadField(fProblem,'1.01','LEXICON');
525     LoadField(fCondition,'1.02','CONDITION');
526     LoadField(fEntBy,'1.03','ENTERER');
527     LoadField(fRecBy,'1.04','RECORDER');
528     LoadField(fRespProv,'1.05','PROVIDER');
529     LoadField(fService,'1.06','SERVICE');
530     LoadField(fResolveDate,'1.07','RESOLVED');
531     LoadField(fClinic,'1.08','LOCATION');
532     LoadField(fRecordDate,'1.09','RECORDED');
533     LoadField(fServCon,'1.1','SC');
534     LoadField(fAOExposure,'1.11','AO');
535     LoadField(fRadExposure,'1.12','IR');
536     LoadField(fGulfExposure,'1.13','EC');
537     LoadField(fPriority,'1.14','PRIORITY');
538     LoadField(fHNC,'1.15','HNC');
539     LoadField(fMST,'1.16','MST');
540     LoadField(fCV,'1.17','CV');   // not used at this time
541     LoadField(fSHAD,'1.18','SHD');
542     LoadField(fSCTConcept,'80001','SCTC');
543     LoadField(fSCTDesignation,'80002','SCTD');
544     LoadField(fNTRTRequested, '80101', 'NTRT');
545     LoadField(fNTRTComment, '80102', 'NTRTC');
546     LoadField(fCodeDate, '80201', 'CODEDT');
547     LoadField(fCodeSystem, '80202', 'CODESYS');
548     LoadComments;
549   end;