Class

TfrmPrintLocation

Module

fPrintLocation

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmPrintLocation = class(TfrmAutoSz)
  pnlTop: TPanel;
  pnlBottom: TORAutoPanel;
  orderGrid: TStringGrid;
  pnlOrder: TPanel;
  btnOK: TButton;
  lblText: TLabel;
  btnClinic: TButton;
  btnWard: TButton;
  lblEncounter: TLabel;
  cbolocation: TORComboBox;
  ORpnlBottom: TORAutoPanel;
  orpnlTopBottom: TORAutoPanel;
  cboEncLoc: TComboBox;
  procedure pnlFieldsResize(Sender: TObject);
  procedure orderGridMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure OrderGridDrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  procedure orderGridKeyPress(Sender: TObject; var Key: Char);
  procedure btnClinicClick(Sender: TObject);
  procedure btnWardClick(Sender: TObject);
  procedure cbolocationChange(Sender: TObject);
  procedure cbolocationExit(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormDestroy(Sender: TObject);
private
  { Private declarations }
  CLoc,WLoc: string;
  CIEN,WIEN: integer;
  function ValFor(FieldID, ARow: Integer): string;
  procedure ShowEditor(ACol, ARow: Integer; AChar: Char);
  procedure ProcessClinicOrders(WardList, ClinicList: TStringList; WardIEN, ClinicIEN: integer; ContainsIMO: boolean);
  procedure rpcChangeOrderLocation(pOrderList:TStringList; ContainsIMO: boolean);
  function ClinicText(ALoc: integer): string;
public
   { Public declarations }
CloseOK: boolean;
DisplayOrders: boolean;
procedure PrintLocation(OrderLst: TStringList; pEncounterLoc: integer; pEncounterLocName, pEncounterLocText: string;
           pEncounterDT: TFMDateTime; pEncounterVC: Char; var ClinicLst, WardLst: TStringList;
           var wardIEN: integer; var wardLocation: string; ContainsIMOOrders: boolean; displayEncSwitch: boolean = false);
procedure SwitchEncounterLoction(pEncounterLoc: integer; pEncounterLocName, pEncounterLocText: string; pEncounterDT: TFMDateTime; pEncounterVC: Char);
function rpcIsPatientOnWard(Patient: string): string;
end;

DFM Objects


frmPrintLocation : TfrmPrintLocation
 ├lblEncounter : TLabel
 ├pnlTop : TPanel
 │ ├lblText : TLabel
 │ └orpnlTopBottom : TORAutoPanel
 │   ├btnClinic : TButton
 │   └btnWard : TButton
 ├pnlBottom : TORAutoPanel
 │ ├orderGrid : TStringGrid
 │ ├pnlOrder : TPanel
 │ └cbolocation : TORComboBox
 ├ORpnlBottom : TORAutoPanel
 │ └btnOK : TButton
 ├cboEncLoc : TComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnClinic TButton Public/Published -
btnOK TButton Public/Published -
btnWard TButton Public/Published -
cboEncLoc TComboBox Public/Published -
cbolocation TORComboBox Public/Published -
CIEN Integer Private -
CLoc UnicodeString Private Private declarations
CloseOK Boolean Public Public declarations
DisplayOrders Boolean Public -
lblEncounter TLabel Public/Published -
lblText TLabel Public/Published -
orderGrid TStringGrid Public/Published -
ORpnlBottom TORAutoPanel Public/Published -
orpnlTopBottom TORAutoPanel Public/Published -
pnlBottom TORAutoPanel Public/Published -
pnlOrder TPanel Public/Published -
pnlTop TPanel Public/Published -
WIEN Integer Private -
WLoc UnicodeString Private Private declarations

Methods

Name Declaration Scope Comments
btnClinicClick procedure btnClinicClick(Sender: TObject); Public/Published TfrmPrintLocation
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnWardClick procedure btnWardClick(Sender: TObject); Public/Published -
cbolocationChange procedure cbolocationChange(Sender: TObject); Public/Published -
cbolocationExit procedure cbolocationExit(Sender: TObject); Public/Published -
ClinicText function ClinicText(ALoc: integer): string; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published Action1: TCloseAction;
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
OrderGridDrawCell procedure OrderGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published -
orderGridKeyPress procedure orderGridKeyPress(Sender: TObject; var Key: Char); Public/Published -
orderGridMouseDown procedure orderGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlFieldsResize procedure pnlFieldsResize(Sender: TObject); Public/Published -
PrintLocation procedure PrintLocation(OrderLst: TStringList; pEncounterLoc: integer; pEncounterLocName, pEncounterLocText: string; pEncounterDT: TFMDateTime; pEncounterVC: Char; var ClinicLst, WardLst: TStringList; var wardIEN: integer; var wardLocation: string; ContainsIMOOrders: boolean; displayEncSwitch: boolean = false); Public -
ProcessClinicOrders procedure ProcessClinicOrders(WardList, ClinicList: TStringList; WardIEN, ClinicIEN: integer; ContainsIMO: boolean); Private -
rpcChangeOrderLocation procedure rpcChangeOrderLocation(pOrderList:TStringList; ContainsIMO: boolean); Private -
rpcIsPatientOnWard function rpcIsPatientOnWard(Patient: string): string; Public -
ShowEditor procedure ShowEditor(ACol, ARow: Integer; AChar: Char); Private -
SwitchEncounterLoction procedure SwitchEncounterLoction(pEncounterLoc: integer; pEncounterLocName, pEncounterLocText: string; pEncounterDT: TFMDateTime; pEncounterVC: Char); Public -
ValFor function ValFor(FieldID, ARow: Integer): string; Private -

Referenced By (3)

Module (line) Referrer Type
fPrintLocation (61) frmPrintLocation Read
fPrintLocation (340) - Read
fPrintLocation (478) - Read