Procedure

Add

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Scope

Local

Local subprogram to

btnFinishClick

Declaration

procedure Add(PCEItemClass: TPCEItemClass);

Calls Hierarchy


Add
 ├TPCEItem.SetFromString
 │ └TPCEItem.SetComment
 ├TPCEData.SetDiagnoses
 │ ├TPCEData.MarkDeletions
 │ │ ├TPCEItem.Match
 │ │ └TPCEItem.MatchProvider
 │ ├TPCEData.MatchItem
 │ │ ├TPCEItem.Match
 │ │ └TPCEItem.MatchProvider
 │ ├TPCEItem.SetComment
 │ └TPCEDiag.Assign
 │   └TPCEItem.Assign
 │     └TPCEItem.SetComment
 ├TPCEData.SetProcedures
 │ ├TPCEData.MarkDeletions...
 │ ├TPCEData.MatchItem...
 │ ├TPCEProc.Assign
 │ │ └TPCEItem.Assign...
 │ └TPCEItem.SetComment
 ├TPCEData.SetImmunizations
 │ ├TPCEData.MarkDeletions...
 │ ├TPCEData.MatchItem...
 │ ├TPCEItem.SetComment
 │ └TPCEImm.Assign
 │   └TPCEItem.Assign...
 ├TPCEData.SetSkinTests
 │ ├TPCEData.MarkDeletions...
 │ ├TPCEData.MatchItem...
 │ ├TPCEItem.SetComment
 │ └TPCESkin.Assign
 │   └TPCEItem.Assign...
 ├TPCEData.SetPatientEds
 │ ├TPCEData.MarkDeletions...
 │ ├TPCEData.MatchItem...
 │ ├TPCEItem.SetComment
 │ └TPCEPat.Assign
 │   └TPCEItem.Assign...
 ├TPCEData.SetHealthFactors
 │ ├TPCEData.MarkDeletions...
 │ ├TPCEData.MatchItem...
 │ ├TPCEItem.SetComment
 │ └TPCEHealth.Assign
 │   └TPCEItem.Assign...
 └TPCEData.SetExams
   ├TPCEData.MarkDeletions...
   ├TPCEData.MatchItem...
   ├TPCEItem.SetComment
   └TPCEExams.Assign
     └TPCEItem.Assign...

Called-By Hierarchy


                        Add
TfrmRemDlg.btnFinishClick┘ 

Calls

Name Declaration Comments
TPCEData.SetDiagnoses procedure SetDiagnoses(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetExams procedure SetExams(Src: TStrings; FromForm: boolean = TRUE); -
TPCEItem.SetFromString procedure SetFromString(const x: string); virtual; -
TPCEData.SetHealthFactors Procedure SetHealthFactors(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetImmunizations procedure SetImmunizations(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetPatientEds Procedure SetPatientEds(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetProcedures procedure SetProcedures(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetSkinTests procedure SetSkinTests(Src: TStrings; FromForm: boolean = TRUE); -

Called-By

Name Declaration Comments
TfrmRemDlg.btnFinishClick procedure btnFinishClick(Sender: TObject); -


Source

1109  procedure Add(PCEItemClass: TPCEItemClass);
1110  var
1111    itm: TPCEItem;
1112    tmp: string;
1113  
1114  begin
1115    if(Cat in MSTDataTypes) then
1116    begin
1117      tmp := piece(TmpData[i],U,pnumMST);
1118      if (tmp <> '') then
1119      begin
1120        MSTList.Add(tmp);
1121        tmp := TmpData[i];
1122        setpiece(tmp,U,pnumMST,'');
1123        TmpData[i] := tmp;
1124      end;
1125    end;
1126    itm := PCEItemClass.Create;
1127    try
1128      itm.SetFromString(copy(TmpData[i], 2, MaxInt));
1129      TmpList.AddObject('',itm);
1130      if Cat = pdcHF then itm.FGecRem := GecRemStr;
1131      case Cat of
1132        pdcDiag: PCEObj.SetDiagnoses(TmpList, FALSE);
1133        pdcProc: PCEObj.SetProcedures(TmpList, FALSE);
1134        pdcImm:  PCEObj.SetImmunizations(TmpList, FALSE);
1135        pdcSkin: PCEObj.SetSkinTests(TmpList, FALSE);
1136        pdcPED:  PCEObj.SetPatientEds(TmpList, FALSE);
1137        pdcHF:   PCEObj.SetHealthFactors(TmpList, FALSE);
1138        pdcExam: PCEObj.SetExams(TmpList, FALSE);
1139      end;
1140      itm.Free;
1141      TmpList.Clear;
1142    except
1143      itm.free;
1144    end;
1145  end;