Class

TfrmClinicWardMeds

Module

fClinicWardMeds

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmClinicWardMeds = class(TfrmAutoSz)
  stxtLine3: TStaticText;
  stxtLine2: TStaticText;
  stxtLine1: TStaticText;
  btnClinic: TButton;
  btnWard: TButton;
  procedure btnClinicClick(Sender: TObject);
  procedure btnWardClick(Sender: TObject);

private
  { Private declarations }
  procedure StartLocationCheck;
  procedure rpcChangeOrderLocation(pOrderList:TStringList);
  procedure BuildMessage(MsgSw:string);
  function  BuildOrderLocList(pOrderList:TStringList; pLocation:integer):TStringList;

public
  { Public declarations }
  // passes order list and selected locations to rpc to be saved with order.
  procedure ClinicOrWardLocation(pOrderList:TStringList; pEncounterLoc: integer; pEncounterLocName: string; var RetLoc: integer); overload;
  // returns Location selected by user.
  function  ClinicOrWardLocation(pEncounterLoc: integer):integer;overLoad;
  function  rpcIsPatientOnWard(Patient: string): boolean;
  function  SelectPrintLocation(pEncounterLoc:integer):integer;
end;

DFM Objects


frmClinicWardMeds : TfrmClinicWardMeds
 ├stxtLine3 : TStaticText
 ├stxtLine2 : TStaticText
 ├stxtLine1 : TStaticText
 ├btnClinic : TButton
 ├btnWard : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnClinic TButton Public/Published -
btnWard TButton Public/Published -
stxtLine1 TStaticText Public/Published -
stxtLine2 TStaticText Public/Published -
stxtLine3 TStaticText Public/Published -

Methods

Name Declaration Scope Comments
btnClinicClick procedure btnClinicClick(Sender: TObject); Public/Published -
btnWardClick procedure btnWardClick(Sender: TObject); Public/Published -
BuildMessage procedure BuildMessage(MsgSw:string); Private -
BuildOrderLocList function BuildOrderLocList(pOrderList:TStringList; pLocation:integer):TStringList; Private -
ClinicOrWardLocation function ClinicOrWardLocation(pEncounterLoc: integer):integer;overLoad; Public
Returns Location selected by user.
entry point
ClinicOrWardLocation procedure ClinicOrWardLocation(pOrderList:TStringList; pEncounterLoc: integer; pEncounterLocName: string; var RetLoc: integer); overload; Public
Public declarations 
 passes order list and selected locations to rpc to be saved with order.
entry point
rpcChangeOrderLocation procedure rpcChangeOrderLocation(pOrderList:TStringList); Private -
rpcIsPatientOnWard function rpcIsPatientOnWard(Patient: string): boolean; Public -
SelectPrintLocation function SelectPrintLocation(pEncounterLoc:integer):integer; Public
Returns button selected by user - ward or clinic.  print location
entry point  -
StartLocationCheck procedure StartLocationCheck; Private Private declarations

Referenced By (2)

Module (line) Referrer Type
fClinicWardMeds (38) frmClinicWardMeds Read
fClinicWardMeds (105) - Read