Procedure

TfrmConsults.popNoteMemoViewCsltClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Comments

Wat cq 17586
wat cq 17586

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteMemoViewCsltClick(Sender: TObject);   //wat cq 17586

Calls Hierarchy


TfrmConsults.popNoteMemoViewCsltClick
 ├FindConsult
 │ └MakeConsultListItem
 ├LoadConsultDetail
 └ReportBox
   └CreateReportBox
     └TfrmBase508Form.Create
       ├TfrmBase508Form.UpdateAccessibilityActions
       ├UnfocusableControlEnter
       └AdjustControls
         ├TfrmBase508Form.ModifyUnfocusableControl
         └..(rec)..

Calls

Name Declaration Comments
FindConsult function FindConsult(ConsultIEN: integer): string ; -
LoadConsultDetail procedure LoadConsultDetail(Dest: TStrings; IEN: integer) ; -
ReportBox procedure ReportBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean); -


Source

1572  procedure TfrmConsults.popNoteMemoViewCsltClick(Sender: TObject);
1573  var
1574    CsltIEN: integer ;
1575    ConsultDetail: TStringList;
1576    x: string;
1577  begin
1578    inherited;
1579    if (Screen.ActiveControl <> memResults) or (FEditNote.PkgPtr <> PKG_CONSULTS) then Exit;
1580    CsltIEN := frmConsults.FEditNote.PkgIEN;
1581    x := FindConsult(CsltIEN);
1582    ConsultDetail := TStringList.Create;
1583    try
1584      LoadConsultDetail(ConsultDetail, CsltIEN) ;
1585      ReportBox(ConsultDetail, 'Consult Details: #' + IntToStr(CsltIEN) + ' - ' + Piece(x, U, 4), TRUE);
1586    finally
1587      ConsultDetail.Free;
1588    end;
1589  end;  //END cq 17586
1590