Function

ExecuteDCSummProperties

Module

fDCSummProps

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

function ExecuteDCSummProperties(var ASumm: TEditDCSummRec; var ListBoxItem: string; ShowAdmissions, IDNoteTitlesOnly: boolean): Boolean;

Calls Hierarchy


ExecuteDCSummProperties
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 ├ListDCSummTitlesShort
 │ └LoadDCSummTitles
 │   └TDCSummTitles.Create
 ├LoadDCUrgencies
 ├TfrmDCSummProperties.ShowAdmissionList
 │ └ListAdmitAll
 ├PrintNameForTitle
 ├StrToFMDateTime
 ├GetDischargeDate
 ├FMNow
 └GetTIUListItem

Called-By Hierarchy


                                                 ExecuteDCSummProperties
                                              TfrmDCSumm.InsertNewSumm┤ 
                                           TfrmDCSumm.mnuActNewClick┤ │ 
                                        TfrmDCSumm.cmdNewSummClick┘ │ │ 
                                    TfrmDCSumm.mnuActAddIDEntryClick┘ │ 
                                             TfrmDCSumm.InsertAddendum┤ 
                                        TfrmDCSumm.mnuActAddendClick┘ │ 
                                             TfrmDCSumm.cmdChangeClick┘ 
                                         TfrmDCSumm.InsertNewSumm...┤   
                                        TfrmDCSumm.InsertAddendum...┤   
                                              TfrmDCSumm.LoadForEdit┤   
                                       TfrmDCSumm.InsertNewSumm...┤ │   
                                        TfrmDCSumm.mnuActEditClick┘ │   
                                           TfrmDCSumm.SaveEditedSumm┤   
                                        TfrmDCSumm.SaveCurrentSumm┘ │   
                                   TfrmDCSumm.AllowContextChange┤   │   
                               TfrmFrame.AllowContextChangeAll┘ │   │   
                                    TfrmFrame.FormCloseQuery┤   │   │   
                                  TfrmFrame.mnuFileNextClick┤   │   │   
                                TfrmFrame.mnuFileOpenClick┤ │   │   │   
                                    TfrmFrame.UMInitiate┤ │ │   │   │   
                           TfrmFrame.mnuFileNextClick...┤ │ │   │   │   
                           TfrmFrame.mnuFileRefreshClick┤ │ │   │   │   
                           TfrmOrders.CheckOrderStatus┤ │ │ │   │   │   
                       TfrmOrders.mnuActChgEvntClick┤ │ │ │ │   │   │   
                          TfrmOrders.mnuActHoldClick┤ │ │ │ │   │   │   
                        TfrmOrders.mnuActUnholdClick┤ │ │ │ │   │   │   
                         TfrmOrders.mnuActRenewClick┤ │ │ │ │   │   │   
                        TfrmOrders.mnuActChangeClick┤ │ │ │ │   │   │   
                          TfrmOrders.mnuActCopyClick┘ │ │ │ │   │   │   
                                TfrmMeds.mnuActDCClick┤ │ │ │   │   │   
                               TfrmMeds.CheckMedStatus┘ │ │ │   │   │   
                            TfrmMeds.mnuActHoldClick┤   │ │ │   │   │   
                           TfrmMeds.mnuActRenewClick┤   │ │ │   │   │   
                          TfrmMeds.mnuActUnholdClick┤   │ │ │   │   │   
                          TfrmMeds.mnuActChangeClick┤   │ │ │   │   │   
                            TfrmMeds.mnuActCopyClick┤   │ │ │   │   │   
                          TfrmMeds.mnuActRefillClick┘   │ │ │   │   │   
                                      TfrmFrame.ViewInfo┘ │ │   │   │   
                                   TfrmDCSumm.ViewInfo┤   │ │   │   │   
                                 TfrmConsults.ViewInfo┤   │ │   │   │   
                         TfrmFrame.pnlRemindersMouseUp┤   │ │   │   │   
                          TfrmFrame.RemindersChanged┘ │   │ │   │   │   
                              TfrmFrame.FormCreate┘   │   │ │   │   │   
                                TfrmFrame.pnlCIRNClick┤   │ │   │   │   
                          TfrmFrame.pnlVistaWebClick┤ │   │ │   │   │   
                               TfrmFrame.FormKeyDown┘ │   │ │   │   │   
                             TfrmFrame.pnlPatientClick┤   │ │   │   │   
                               TfrmFrame.pnlVisitClick┤   │ │   │   │   
                         TfrmFrame.pnlPrimaryCareClick┤   │ │   │   │   
                           TfrmFrame.pnlRemindersClick┤   │ │   │   │   
                            TfrmFrame.pnlPostingsClick┤   │ │   │   │   
                                TfrmFrame.pnlFlagClick┤   │ │   │   │   
                                  TfrmFrame.laMHVClick┤   │ │   │   │   
                                 TfrmFrame.laVAA2Click┤   │ │   │   │   
                                   TfrmOrders.ViewInfo┤   │ │   │   │   
                                     TfrmMeds.ViewInfo┤   │ │   │   │   
                                  TfrmSurgery.ViewInfo┤   │ │   │   │   
                                    TfrmNotes.ViewInfo┤   │ │   │   │   
                                 TfrmProblems.ViewInfo┘   │ │   │   │   
                         TfrmFrame.mnuFileNotifRemoveClick┤ │   │   │   
                                 TfrmFrame.NextButtonClick┘ │   │   │   
                               TfrmFrame.SetUpNextButton┘   │   │   │   
                         TfrmFrame.mnuFileOpenClick...┤     │   │   │   
                                  TfrmFrame.FormResize┘     │   │   │   
                                TfrmFrame.ChangeFont┘       │   │   │   
                        TfrmFrame.LoadSizesForUser┤         │   │   │   
                   TfrmFrame.LoadUserPreferences┘ │         │   │   │   
                          TfrmFrame.UMInitiate┘   │         │   │   │   
                        TfrmFrame.mnuFontSizeClick┘         │   │   │   
                               TfrmFrame.mnuFileOpenClick...┤   │   │   
                               TfrmFrame.ctxContextorPending┤   │   │   
                              TfrmFrame.StartCCOWContextor┘ │   │   │   
                                    TfrmFrame.FormCreate┘   │   │   │   
                             TfrmFrame.ctxContextorCommitted┤   │   │   
                           TfrmFrame.StartCCOWContextor...┘ │   │   │   
                      TfrmFrame.mnuFileResumeContextGetClick┤   │   │   
                      TfrmFrame.mnuFileResumeContextSetClick┘   │   │   
                                      TfrmDCSumm.LstSummsToPrint┤   │   
                      TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   │   
                                         TfrmDCSumm.RequestPrint┤   │   
                                   TfrmFrame.mnuFilePrintClick┘ │   │   
                                     TfrmDCSumm.InsertNewSumm...┤   │   
                                         TfrmDCSumm.mnuViewClick┤   │   
                                     TfrmDCSumm.SetViewContext┤ │   │   
                                      TfrmDCSumm.DisplayPage┤ │ │   │   
                      TfrmDCSumm.mnuViewReturntoDefaultClick┘ │ │   │   
                          TfrmDCSumm.mnuViewSaveAsDefaultClick┘ │   │   
                                         TfrmDCSumm.StartNewEdit┤   │   
                                  TfrmDCSumm.mnuActNewClick...┤ │   │   
                              TfrmDCSumm.mnuActAddIDEntryClick┤ │   │   
                                  TfrmDCSumm.mnuActAddendClick┤ │   │   
                                    TfrmDCSumm.mnuActEditClick┘ │   │   
                        TfrmDCSumm.mnuActDetachFromIDParentClick┤   │   
                                    TfrmDCSumm.mnuActDeleteClick┤   │   
                                  TfrmDCSumm.SaveEditedSumm...┘ │   │   
                                      TfrmDCSumm.mnuActSaveClick┤   │   
                                      TfrmDCSumm.mnuActSignClick┤   │   
                                         TfrmDCSumm.SaveSignItem┤   │   
                                         TfrmReview.cmdOKClick┘ │   │   
                                               ReviewChanges┘   │   │   
                        TfrmFrame.AllowContextChangeAll...┤     │   │   
                                  TfrmFrame.FormCloseQuery┤     │   │   
                              TfrmFrame.mnuFileReviewClick┤     │   │   
                                           UpdateEncounter┘     │   │   
                         TfrmFrame.mnuFileEncounterClick┤       │   │   
                                 TfrmFrame.ViewInfo...┤ │       │   │   
                    TfrmODMedIV.SetValuesFromResponses┤ │       │   │   
                             TfrmODMedIV.SetupDialog┤ │ │       │   │   
                   TfrmODMedIV.cboSolutionMouseClick┘ │ │       │   │   
                       TfrmODMedIV.cboSolutionExit┘   │ │       │   │   
                  TfrmODMedIV.cboSolutionMouseClick...┤ │       │   │   
                     TfrmODMedIV.cboAdditiveMouseClick┤ │       │   │   
                         TfrmODMedIV.cboAdditiveExit┘ │ │       │   │   
                                TfrmODAuto.SetupDialog┤ │       │   │   
                                   ActivateOrderDialog┤ │       │   │   
                           TfrmRemDlg.btnFinishClick┤ │ │       │   │   
           TfrmConsults.mnuActNewConsultRequestClick┤ │ │       │   │   
                   TfrmConsults.cmdNewConsultClick┘ │ │ │       │   │   
                TfrmConsults.mnuActNewProcedureClick┤ │ │       │   │   
                      TfrmConsults.cmdNewProcClick┘ │ │ │       │   │   
                                        ChangeOrders┤ │ │       │   │   
                      TfrmOrders.mnuActChangeClick┤ │ │ │       │   │   
                        TfrmMeds.mnuActChangeClick┘ │ │ │       │   │   
                                     ChangeOrdersEvt┤ │ │       │   │   
                                          CopyOrders┤ │ │       │   │   
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │   │   
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │   │   
                           TfrmODActive.btnOKClick┘ │ │ │       │   │   
                                      TransferOrders┤ │ │       │   │   
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │   │   
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │   │   
                           TfrmODActive.btnOKClick┘ │ │ │       │   │   
                            TfrmOrders.lstWriteClick┤ │ │       │   │   
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ │       │   │   
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ │       │   │   
                       TfrmOrders.ResetOrderPage┘ │ │ │ │       │   │   
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ │       │   │   
                                 DisplayEvntDialog┤ │ │ │       │   │   
                             SetDelayEventForMed┘ │ │ │ │       │   │   
                      TfrmMeds.mnuActCopyClick┘   │ │ │ │       │   │   
                                 DisplayEvntDialog┤ │ │ │       │   │   
                                  SetViewForCopy┘ │ │ │ │       │   │   
                    TfrmOrders.mnuActCopyClick┘   │ │ │ │       │   │   
                                 DisplayEvntDialog┘ │ │ │       │   │   
                                ExecuteChangeEvt┘   │ │ │       │   │   
                 TfrmOrders.mnuActChgEvntClick┘     │ │ │       │   │   
                             TfrmMeds.mnuActNewClick┤ │ │       │   │   
                           TfrmOMNavA.ActivateDialog┤ │ │       │   │   
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ │       │   │   
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ │       │   │   
                                TfrmOMSet.DoNextItem┘ │ │       │   │   
                              TfrmOMSet.InsertList┤   │ │       │   │   
                               ActivateOrderList┘ │   │ │       │   │   
                     TfrmRemDlg.btnFinishClick┤   │   │ │       │   │   
                             ActivateOrderHTML┤   │   │ │       │   │   
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │   │   
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ │       │   │   
                              ActivateOrderSet┤   │   │ │       │   │   
                   TfrmRemDlg.btnFinishClick┤ │   │   │ │       │   │   
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ │       │   │   
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ │       │   │   
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │   │   
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ │       │   │   
                     TfrmMeds.mnuActNewClick┤ │   │   │ │       │   │   
                TfrmOMNavA.ActivateDialog...┤ │   │   │ │       │   │   
                     TfrmOMSet.DoNextItem...┘ │   │   │ │       │   │   
                       TfrmOMNavA.DoSelectList┘   │   │ │       │   │   
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ │       │   │   
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ │       │   │   
                                        SkipToNext┤   │ │       │   │   
                         TfrmOMSet.DoNextItem...┘ │   │ │       │   │   
                            TfrmOMSet.UMDelayEvent┘   │ │       │   │   
                               TfrmOMSet.InsertList...┤ │       │   │   
                                TfrmODMeds.SetupDialog┤ │       │   │   
                             TfrmODMeds.btnSelectClick┤ │       │   │   
                             TfrmODMeds.UMDelayClick┘ │ │       │   │   
                                    ExecuteRenewOrders┘ │       │   │   
                         TfrmOrders.mnuActRenewClick┤   │       │   │   
                           TfrmMeds.mnuActRenewClick┘   │       │   │   
                                        EncounterPresent┤       │   │   
                                      ReadyForNewOrder┤ │       │   │   
                           TfrmRemDlg.btnFinishClick┤ │ │       │   │   
        TfrmConsults.mnuActNewConsultRequestClick...┤ │ │       │   │   
             TfrmConsults.mnuActNewProcedureClick...┤ │ │       │   │   
                                     ChangeOrders...┤ │ │       │   │   
                                     ChangeOrdersEvt┤ │ │       │   │   
                                       CopyOrders...┤ │ │       │   │   
                                   TransferOrders...┤ │ │       │   │   
                            TfrmOrders.lstWriteClick┤ │ │       │   │   
                             TfrmMeds.mnuActNewClick┘ │ │       │   │   
                                     ReadyForNewOrder1┤ │       │   │   
            TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │       │   │   
                              TfrmOrders.mnuActDCClick┤ │       │   │   
                             TfrmOrders.mnuActRelClick┤ │       │   │   
                            TfrmOrders.mnuActHoldClick┤ │       │   │   
                          TfrmOrders.mnuActUnholdClick┤ │       │   │   
                           TfrmOrders.mnuActRenewClick┤ │       │   │   
                         TfrmOrders.mnuActReleaseClick┤ │       │   │   
                         TfrmOrders.mnuActOnChartClick┤ │       │   │   
                            TfrmOrders.mnuActSignClick┤ │       │   │   
                                TfrmMeds.mnuActDCClick┤ │       │   │   
                              TfrmMeds.mnuActHoldClick┤ │       │   │   
                             TfrmMeds.mnuActRenewClick┤ │       │   │   
                            TfrmMeds.mnuActUnholdClick┤ │       │   │   
                              TfrmMeds.mnuActCopyClick┤ │       │   │   
                            TfrmMeds.mnuActRefillClick┘ │       │   │   
                                     EncounterPresentEDO┤       │   │   
                                   ReadyForNewOrder...┤ │       │   │   
                         TfrmOrders.mnuActChgEvntClick┤ │       │   │   
                          TfrmOrders.mnuActChangeClick┤ │       │   │   
                            TfrmOrders.mnuActCopyClick┤ │       │   │   
                       TfrmOrders.btnDelayedOrderClick┤ │       │   │   
                            TfrmMeds.mnuActChangeClick┤ │       │   │   
                              TfrmMeds.mnuActCopyClick┘ │       │   │   
                                             UpdateVisit┤       │   │   
                                           EditPCEData┤ │       │   │   
                             TfrmSurgery.cmdPCEClick┤ │ │       │   │   
                                 UpdateEncounterInfo┘ │ │       │   │   
                             TfrmNotes.cmdPCEClick┘   │ │       │   │   
                        TfrmVitals.btnEnterVitalsClick┘ │       │   │   
                                             UpdateVisit┤       │   │   
                                        EncounterPresent┘       │   │   
                         TfrmProblems.lstProbActsClick┘         │   │   
                     TfrmProblems.wgProbDataDblClick┤           │   │   
                           TfrmProblems.lstViewClick┘           │   │   
                   TfrmProblems.HighlightDuplicate┘             │   │   
                         TfrmProblems.AddProblem┤               │   │   
              TfrmProblems.lstProbActsClick...┤ │               │   │   
                 TfrmProblems.lstProbPickClick┤ │               │   │   
              TfrmProblems.lstProbPickDblClick┤ │               │   │   
              TfrmProblems.edProbEntKeyPress┘ │ │               │   │   
                      TfrmProblems.UMPLLexicon┘ │               │   │   
                   TfrmdlgProb.bbChangeProbClick┘               │   │   
                                            TfrmDCSumm.FormClose┤   │   
                       TfrmDCSumm.mnuActIdentifyAddlSignersClick┤   │   
                           TfrmDCSumm.popSummMemoAddlSignClick┘ │   │   
                                 TfrmDCSumm.ProcessNotifications┤   │   
                                        TfrmDCSumm.DisplayPage┘ │   │   
                                    TfrmDCSumm.SetViewContext...┤   │   
                                      TfrmDCSumm.tvSummsDragDrop┤   │   
                                     TfrmDCSumm.tvSummsStartDrag┤   │   
                          TfrmDCSumm.mnuActAttachtoIDParentClick┘   │   
                                        TfrmDCSumm.mnuActChangeClick┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
FMNow function FMNow: TFMDateTime; -
GetDischargeDate function GetDischargeDate(const DFN: string; AdmitDateTime: string): string; -
GetTIUListItem function GetTIUListItem(IEN: Int64): string; -
ListDCSummTitlesShort procedure ListDCSummTitlesShort(Dest: TStrings); -
LoadDCUrgencies function LoadDCUrgencies: TStrings; -
PrintNameForTitle function PrintNameForTitle(TitleIEN: Integer): string; -
TfrmDCSummProperties.ShowAdmissionList procedure ShowAdmissionList; -
StrToFMDateTime function StrToFMDateTime(const AString: string): TFMDateTime; -

Called-By

Name Declaration Comments
TfrmDCSumm.cmdChangeClick procedure cmdChangeClick(Sender: TObject); -
TfrmDCSumm.InsertAddendum procedure InsertAddendum; -
TfrmDCSumm.InsertNewSumm procedure InsertNewSumm(IsIDChild: boolean; AnIDParent: integer); -


Source

120   function ExecuteDCSummProperties(var ASumm: TEditDCSummRec; var ListBoxItem: string; ShowAdmissions, IDNoteTitlesOnly: boolean): Boolean;
121   var
122     frmDCSummProperties: TfrmDCSummProperties;
123     x: string;
124   begin
125     frmDCSummProperties := TfrmDCSummProperties.Create(Application);
126     EditLines := TStringList.Create;
127     try
128       ResizeAnchoredFormToFont(frmDCSummProperties);
129       with frmDCSummProperties do
130       begin
131         // setup common fields (title, reference date, author)
132         FShowAdmissions := ShowAdmissions;
133         FIDNoteTitlesOnly := IDNoteTitlesOnly;
134         pnlTranscription.Visible := False;    {was never used on old form}
135         if not pnlTranscription.Visible then
136           begin
137             Height := Height - pnlTranscription.Height;
138             Top := Top  - pnlTranscription.Height;
139           end;
140   //      Height := Height - pnlAdmissions.Height - pnlLabels.Height;
141         if ASumm.DocType <> TYP_ADDENDUM then
142           begin
143             cboNewTitle.InitLongList('');
144             ListDCSummTitlesShort(cboNewTitle.Items);
145           end
146         else //if addendum
147           cboNewTitle.Items.Insert(0, IntToStr(ASumm.Title) + U + ASumm.TitleName);
148         if ASumm.Title > 0 then cboNewTitle.SelectByIEN(ASumm.Title);
149         if (ASumm.Title > 0) and (cboNewTitle.ItemIndex < 0)
150           then cboNewTitle.SetExactByIEN(ASumm.Title, ASumm.TitleName);
151         cboAuthor.InitLongList(ASumm.DictatorName);
152         if ASumm.Dictator > 0 then cboAuthor.SelectByIEN(ASumm.Dictator);
153         FastAssign(LoadDCUrgencies, cboUrgency.Items);
154         cboUrgency.SelectByID('R');
155         if Asumm.Attending = 0 then
156           begin
157             ASumm.Attending  := FLastCosigner;
158             ASumm.AttendingName := FLastCosignerName;
159           end;
160         calSumm.FMDateTime := ASumm.DictDateTime;
161         if FShowAdmissions then ShowAdmissionList;
162         FAddend     := ASumm.Addend;
163         FDocType    := ASumm.DocType;
164         FLastCosigner     := ASumm.LastCosigner;
165         FLastCosignerName := ASumm.LastCosignerName;
166         FEditIEN    := 0;
167         cboAttending.InitLongList(ASumm.AttendingName);
168         if ASumm.Attending > 0 then cboAttending.SelectByIEN(ASumm.Attending);
169         // restrict edit of title if addendum
170         if FDocType = TYP_ADDENDUM then
171         begin
172           lblNewTitle.Caption := 'Addendum to:';
173           cboNewTitle.Caption := 'Addendum to:';
174           cboNewTitle.Enabled := False;
175           cboNewTitle.Color   := clBtnFace;
176         end;
177         Result := ShowModal = idOK;                // display the form
178         if Result then with ASumm do
179           begin
180             if FDocType <> TYP_ADDENDUM then
181             begin
182               Title := cboNewTitle.ItemIEN;
183               TitleName := PrintNameForTitle(Title);
184             end;
185             Urgency           := cboUrgency.ItemID;
186             DictDateTime      := calSumm.FMDateTime;
187             Dictator          := cboAuthor.ItemIEN;
188             DictatorName      := Piece(cboAuthor.Items[cboAuthor.ItemIndex], U, 2);
189             Attending         := cboAttending.ItemIEN;
190             AttendingName     := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2);
191             if Attending = Dictator then Cosigner := 0 else
192               begin
193                 Cosigner      := cboAttending.ItemIEN;
194                 CosignerName  := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2);
195                 // The LastCosigner fields are used to default the cosigner in subsequent notes.
196                 // These fields are not reset with new notes & not passed into TIU.
197                 LastCosigner :=  Cosigner;
198                 LastCosignerName := CosignerName;
199               end;
200             Transcriptionist  := cboTranscriptionist.ItemIEN;
201             if FShowAdmissions then
202               begin
203                 AdmitDateTime   := StrToFMDateTime(FAdmitDateTime);
204                 DischargeDateTime := StrToFMDateTime(GetDischargeDate(Patient.DFN, FAdmitDateTime));
205                 if DischargeDateTime <= 0 then DischargeDateTime := FMNow;
206                 Location          := FLocation;
207                 LocationName      := FLocationName;
208                 VisitStr          := IntToStr(Location) + ';' + FloatToStr(AdmitDateTime) + ';H' ;
209               end;
210             EditIEN           := FEditIEN;
211             if FEditIEN > 0 then
212               begin
213                 x := GetTIUListItem(FEditIEN);
214                 ListBoxItem := x;
215                 if Lines = nil then Lines := TStringList.Create;
216                 FastAssign(EditLines, Lines);
217               end
218             else
219               begin
220                 ListBoxItem := '';
221               end;
222           end;
223             // The following fields in TEditDCSummRec are not set:
224             //   DocType, NeedCPT, Lines (unless editing an existing summary)
225       end;
226     finally
227       EditLines.Free;
228       frmDCSummProperties.Release;
229     end;
230   end;