This.Caption = translatewrd(this.Caption)

SELECT defaults
SCAN FOR property = "Patient Order"
	This.grdList.Columns[defaults.column].ColumnOrder = defaults.setting
ENDSCAN
SCAN FOR property = "Patient Width"
	This.grdList.Columns[defaults.column].Width = defaults.setting
ENDSCAN
SELECT rx
This.cboOrder.RowSource = translatewrd("Name,First Name,ID,Phone,Shortcut,Prior,SSN,Birthday,Chart,Shortname")