Procedure

TfrmConsults.RequestMultiplePrint

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public

Owner

TfrmConsults

Declaration

procedure RequestMultiplePrint(AForm: TfrmPrintList);

Calls Hierarchy


TfrmConsults.RequestMultiplePrint
 └PrintSF513
   ├TfrmBase508Form.Create
   │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ ├UnfocusableControlEnter
   │ └AdjustControls
   │   ├TfrmBase508Form.ModifyUnfocusableControl
   │   └..(rec)..
   ├GetDefaultPrinter
   ├TUser.SetCurrentPrinter
   └Tfrm513Print.cmdOKClick
     ├CreateReportTextComponent
     │ └ReportTextFontChange
     ├GetFormattedSF513
     ├PrintWindowsReport
     │ └CreatePatientHeader
     │   ├TEncounter.GetLocationName
     │   │ └TEncounter.UpdateText
     │   │   └GetEncounterText
     │   └FMNow
     ├PrintSF513ToDevice
     ├SaveDefaultPrinter
     └TUser.SetCurrentPrinter

Called-By Hierarchy


TfrmConsults.RequestMultiplePrint
       TfrmPrintList.cmdOKClick┘ 

Calls

Name Declaration Comments
PrintSF513 procedure PrintSF513(AConsult: Longint; AConsultTitle: string); -

Called-By

Name Declaration Comments
TfrmPrintList.cmdOKClick procedure cmdOKClick(Sender: TObject); -


Source

2878  procedure TfrmConsults.RequestMultiplePrint(AForm: TfrmPrintList);
2879  var
2880    NoteIEN: int64;
2881    i: integer;
2882  begin
2883    inherited;
2884    with AForm.lbIDParents do
2885    begin
2886      for i := 0 to Items.Count - 1 do
2887       begin
2888         if Selected[i] then
2889          begin
2890           NoteIEN := ItemIEN;  //StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
2891           if NoteIEN > 0 then PrintSF513(NoteIEN, DisplayText[i]) else
2892            begin
2893             if NoteIEN = 0 then InfoBox(TX_NOCONSULT, TX_NOCSLT_CAP, MB_OK);
2894             if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
2895            end;
2896          end; {if selected}
2897       end; {for}
2898    end; {with}
2899  end;