Context Navigation

fODMeds.dfm@ 1094

Last change on this file since 1094 was 829, checked in by Kevin Toppenberg, 14 years ago
Upgrade to version 27
File size: 27.9 KB

Rev	Line
[456]	1	inherited frmODMeds: TfrmODMeds
[829]	2	Left = 321
	3	Top = 183
[456]	4	Width = 584
[829]	5	Height = 572
[456]	6	HorzScrollBar.Range = 558
	7	VertScrollBar.Range = 399
	8	Caption = 'Medication Order'
	9	Constraints.MinHeight = 325
	10	OnShow = FormShow
[829]	11	ExplicitWidth = 584
	12	ExplicitHeight = 572
[456]	13	DesignSize = (
	14	576
[829]	15	545)
[456]	16	PixelsPerInch = 96
	17	TextHeight = 13
	18	object pnlMeds: TPanel [0]
	19	Left = 6
	20	Top = 34
	21	Width = 580
[829]	22	Height = 470
[456]	23	Anchors = [akLeft, akTop, akRight, akBottom]
	24	BevelOuter = bvNone
	25	TabOrder = 1
	26	object sptSelect: TSplitter
	27	Left = 0
	28	Top = 133
	29	Width = 580
	30	Height = 4
	31	Cursor = crVSplit
	32	Align = alTop
	33	end
	34	object lstQuick: TCaptionListView
	35	Left = 0
	36	Top = 0
	37	Width = 580
	38	Height = 133
	39	Align = alTop
	40	BevelInner = bvLowered
	41	BevelOuter = bvSpace
	42	Columns = <
	43	item
	44	Width = 420
	45	end>
	46	ColumnClick = False
	47	HideSelection = False
	48	HotTrack = True
	49	HoverTime = 2147483647
	50	OwnerData = True
	51	ParentShowHint = False
	52	ShowColumnHeaders = False
	53	ShowHint = True
	54	TabOrder = 0
	55	ViewStyle = vsReport
	56	OnChange = lstChange
	57	OnClick = ListViewClick
	58	OnData = lstQuickData
	59	OnDataHint = lstQuickDataHint
	60	OnEditing = ListViewEditing
	61	OnEnter = ListViewEnter
	62	OnKeyUp = ListViewKeyUp
	63	OnResize = ListViewResize
	64	Caption = 'Quick Orders'
	65	end
	66	object lstAll: TCaptionListView
	67	Left = 0
	68	Top = 137
	69	Width = 580
[829]	70	Height = 333
[456]	71	Align = alClient
	72	BevelInner = bvLowered
	73	BevelOuter = bvNone
	74	Columns = <
	75	item
	76	Width = 420
	77	end>
	78	ColumnClick = False
	79	HideSelection = False
	80	HotTrack = True
	81	HoverTime = 2147483647
	82	OwnerData = True
	83	ParentShowHint = False
	84	ShowColumnHeaders = False
	85	ShowHint = True
	86	TabOrder = 1
	87	ViewStyle = vsReport
	88	OnChange = lstChange
	89	OnClick = ListViewClick
	90	OnData = lstAllData
	91	OnDataHint = lstAllDataHint
	92	OnEditing = ListViewEditing
	93	OnEnter = ListViewEnter
	94	OnKeyUp = ListViewKeyUp
	95	OnResize = ListViewResize
	96	Caption = 'All Medication orders'
	97	end
	98	end
	99	inherited memOrder: TCaptionMemo
[829]	100	Tag = 13
	101	Top = 505
[456]	102	Width = 502
[829]	103	TabStop = True
[456]	104	Anchors = [akLeft, akRight, akBottom]
	105	TabOrder = 4
[829]	106	ExplicitTop = 505
	107	ExplicitWidth = 502
[456]	108	end
	109	object txtMed: TEdit [2]
	110	Left = 6
	111	Top = 6
	112	Width = 580
	113	Height = 21
	114	Anchors = [akLeft, akTop, akRight]
	115	AutoSelect = False
	116	TabOrder = 0
	117	Text = '(Type a medication name or select from the orders below)'
	118	OnChange = txtMedChange
	119	OnExit = txtMedExit
	120	OnKeyDown = txtMedKeyDown
	121	OnKeyUp = txtMedKeyUp
	122	end
	123	object btnSelect: TButton [3]
	124	Left = 515
[829]	125	Top = 505
[456]	126	Width = 72
	127	Height = 21
	128	Anchors = [akRight, akBottom]
	129	Caption = 'OK'
	130	Default = True
	131	Enabled = False
	132	TabOrder = 5
	133	OnClick = btnSelectClick
	134	end
[829]	135	object pnlFields: TPanel [4]
[456]	136	Left = 6
	137	Top = 34
	138	Width = 580
[829]	139	Height = 470
[456]	140	Anchors = [akLeft, akTop, akRight, akBottom]
	141	BevelOuter = bvNone
	142	Enabled = False
	143	TabOrder = 2
	144	Visible = False
	145	OnResize = pnlFieldsResize
	146	object pnlTop: TPanel
	147	Left = 0
	148	Top = 0
	149	Width = 580
[829]	150	Height = 197
[456]	151	Align = alClient
	152	Constraints.MinHeight = 80
	153	TabOrder = 3
	154	DesignSize = (
	155	580
[829]	156	197)
[456]	157	object lblRoute: TLabel
	158	Left = 280
	159	Top = 23
	160	Width = 29
	161	Height = 13
	162	Anchors = [akTop, akRight]
	163	Caption = 'Route'
	164	Visible = False
	165	end
	166	object lblSchedule: TLabel
	167	Left = 394
	168	Top = 22
	169	Width = 45
	170	Height = 13
	171	Anchors = [akTop, akRight]
	172	Caption = 'Schedule'
	173	Visible = False
	174	WordWrap = True
	175	end
	176	object txtNSS: TLabel
	177	Left = 442
	178	Top = 22
	179	Width = 71
	180	Height = 13
	181	Anchors = [akTop, akRight]
	182	Caption = '(Day-Of-Week)'
	183	Font.Charset = DEFAULT_CHARSET
	184	Font.Color = clBlue
	185	Font.Height = -11
	186	Font.Name = 'MS Sans Serif'
	187	Font.Style = []
	188	ParentFont = False
	189	Visible = False
	190	WordWrap = True
	191	OnClick = txtNSSClick
	192	end
	193	object grdDoses: TCaptionStringGrid
	194	Left = 0
	195	Top = 36
	196	Width = 580
[829]	197	Height = 156
[456]	198	Anchors = [akLeft, akTop, akRight, akBottom]
[829]	199	ColCount = 7
[456]	200	DefaultColWidth = 76
	201	DefaultRowHeight = 21
	202	Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs]
	203	ScrollBars = ssVertical
	204	TabOrder = 8
	205	OnDrawCell = grdDosesDrawCell
	206	OnEnter = grdDosesEnter
	207	OnExit = grdDosesExit
	208	OnKeyDown = grdDosesKeyDown
	209	OnKeyPress = grdDosesKeyPress
	210	OnMouseDown = grdDosesMouseDown
	211	OnMouseUp = grdDosesMouseUp
	212	Caption = 'Complex Dosage'
	213	JustToTab = True
	214	ColWidths = (
	215	76
	216	76
	217	76
	218	76
	219	76
[829]	220	76
[456]	221	76)
	222	end
	223	object lblGuideline: TStaticText
	224	Left = 0
	225	Top = 1
	226	Width = 181
	227	Height = 17
	228	Caption = 'Display Restrictions/Guidelines'
	229	Color = clBtnFace
	230	Font.Charset = DEFAULT_CHARSET
	231	Font.Color = clBlue
	232	Font.Height = -11
	233	Font.Name = 'MS Sans Serif'
	234	Font.Style = [fsBold, fsUnderline]
	235	ParentColor = False
	236	ParentFont = False
	237	ShowAccelChar = False
	238	TabOrder = 0
	239	TabStop = True
	240	Visible = False
	241	OnClick = lblGuidelineClick
	242	end
	243	object tabDose: TTabControl
	244	Left = 1
	245	Top = 19
	246	Width = 175
	247	Height = 17
	248	TabOrder = 3
	249	Tabs.Strings = (
	250	'Dosage'
	251	'Complex')
	252	TabIndex = 0
	253	TabStop = False
	254	TabWidth = 86
	255	OnChange = tabDoseChange
	256	end
	257	object cboDosage: TORComboBox
	258	Left = 1
	259	Top = 36
	260	Width = 279
[829]	261	Height = 155
[456]	262	Anchors = [akLeft, akTop, akRight, akBottom]
	263	Style = orcsSimple
	264	AutoSelect = True
	265	Caption = 'Dosage'
	266	Color = clWindow
	267	DropDownCount = 8
	268	ItemHeight = 13
	269	ItemTipColor = clWindow
	270	ItemTipEnable = True
	271	ListItemsOnly = False
	272	LongList = False
	273	LookupPiece = 0
	274	MaxLength = 0
	275	Pieces = '5,3,6'
	276	Sorted = False
	277	SynonymChars = '<>'
	278	TabPositions = '27,32'
	279	TabOrder = 4
	280	OnChange = cboDosageChange
	281	OnClick = cboDosageClick
	282	OnExit = cboDosageExit
	283	OnKeyUp = cboDosageKeyUp
	284	CharsNeedMatch = 1
	285	UniqueAutoComplete = True
	286	end
	287	object cboRoute: TORComboBox
	288	Left = 280
	289	Top = 36
	290	Width = 113
[829]	291	Height = 156
[456]	292	Anchors = [akTop, akRight, akBottom]
	293	Style = orcsSimple
	294	AutoSelect = True
	295	Caption = 'Route'
	296	Color = clWindow
	297	DropDownCount = 8
	298	ItemHeight = 13
	299	ItemTipColor = clWindow
	300	ItemTipEnable = True
	301	ListItemsOnly = False
	302	LongList = False
	303	LookupPiece = 0
	304	MaxLength = 0
	305	ParentShowHint = False
	306	Pieces = '2'
	307	ShowHint = True
	308	Sorted = False
	309	SynonymChars = '<>'
	310	TabOrder = 5
	311	OnChange = cboRouteChange
	312	OnClick = ControlChange
	313	OnExit = cboRouteExit
	314	CharsNeedMatch = 1
	315	UniqueAutoComplete = True
	316	end
	317	object cboSchedule: TORComboBox
	318	Left = 394
	319	Top = 36
	320	Width = 178
[829]	321	Height = 156
[456]	322	Anchors = [akTop, akRight, akBottom]
	323	Style = orcsSimple
	324	AutoSelect = False
	325	Caption = 'Schedule'
	326	Color = clWindow
	327	DropDownCount = 8
	328	ItemHeight = 13
	329	ItemTipColor = clWindow
	330	ItemTipEnable = True
	331	ListItemsOnly = False
	332	LongList = False
	333	LookupPiece = 0
	334	MaxLength = 0
	335	Pieces = '1'
	336	Sorted = True
	337	SynonymChars = '<>'
	338	TabOrder = 6
	339	OnChange = cboScheduleChange
	340	OnClick = cboScheduleClick
	341	OnEnter = cboScheduleEnter
	342	OnExit = cboScheduleExit
	343	CharsNeedMatch = 1
	344	UniqueAutoComplete = True
	345	end
	346	object chkPRN: TCheckBox
	347	Left = 530
	348	Top = 37
	349	Width = 42
	350	Height = 18
	351	Anchors = [akTop, akRight]
	352	Caption = 'PRN'
	353	Color = clBtnFace
	354	ParentColor = False
	355	TabOrder = 7
	356	OnClick = chkPRNClick
	357	end
	358	object btnXInsert: TButton
	359	Left = 403
	360	Top = 3
	361	Width = 79
	362	Height = 17
	363	Caption = 'Insert Row'
	364	ParentShowHint = False
	365	ShowHint = True
	366	TabOrder = 1
	367	OnClick = btnXInsertClick
	368	end
	369	object btnXRemove: TButton
	370	Left = 488
	371	Top = 3
	372	Width = 79
	373	Height = 17
	374	Caption = 'Remove Row'
	375	ParentShowHint = False
	376	ShowHint = True
	377	TabOrder = 2
	378	OnClick = btnXRemoveClick
	379	end
[829]	380	object pnlXAdminTime: TPanel
	381	Left = 432
	382	Top = 149
	383	Width = 65
	384	Height = 17
	385	Caption = 'pnlXAdminTime'
	386	TabOrder = 9
	387	Visible = False
	388	OnClick = pnlXAdminTimeClick
	389	end
[456]	390	end
	391	object cboXDosage: TORComboBox
	392	Left = 49
	393	Top = 122
	394	Width = 72
	395	Height = 21
	396	Style = orcsDropDown
	397	AutoSelect = False
	398	Caption = 'Dosage'
	399	Color = clWindow
	400	DropDownCount = 8
	401	ItemHeight = 13
	402	ItemTipColor = clWindow
	403	ItemTipEnable = True
	404	ListItemsOnly = False
	405	LongList = False
	406	LookupPiece = 0
	407	MaxLength = 0
	408	Pieces = '5'
	409	Sorted = False
	410	SynonymChars = '<>'
	411	TabOrder = 0
	412	Visible = False
	413	OnChange = cboXDosageChange
	414	OnClick = cboXDosageClick
	415	OnEnter = cboXDosageEnter
	416	OnExit = cboXDosageExit
	417	OnKeyDown = memMessageKeyDown
	418	OnKeyUp = cboXDosageKeyUp
	419	CharsNeedMatch = 1
	420	UniqueAutoComplete = True
	421	end
	422	object cboXRoute: TORComboBox
	423	Left = 122
	424	Top = 122
	425	Width = 72
	426	Height = 21
	427	Style = orcsDropDown
	428	AutoSelect = False
	429	Caption = 'Route'
	430	Color = clWindow
	431	DropDownCount = 8
	432	ItemHeight = 13
	433	ItemTipColor = clWindow
	434	ItemTipEnable = True
	435	ListItemsOnly = False
	436	LongList = False
	437	LookupPiece = 0
	438	MaxLength = 0
	439	Pieces = '2'
	440	Sorted = False
	441	SynonymChars = '<>'
	442	TabOrder = 1
	443	Visible = False
	444	OnChange = cboXRouteChange
	445	OnClick = cboXRouteClick
	446	OnEnter = cboXRouteEnter
	447	OnExit = cboXRouteExit
	448	OnKeyDown = memMessageKeyDown
	449	CharsNeedMatch = 1
	450	UniqueAutoComplete = True
	451	end
	452	object pnlXDuration: TPanel
	453	Left = 300
	454	Top = 122
	455	Width = 72
	456	Height = 21
	457	BevelOuter = bvNone
	458	TabOrder = 4
	459	Visible = False
	460	OnEnter = pnlXDurationEnter
	461	OnExit = pnlXDurationExit
	462	DesignSize = (
	463	72
	464	21)
	465	object pnlXDurationButton: TKeyClickPanel
	466	Left = 39
	467	Top = 1
	468	Width = 33
	469	Height = 19
	470	Anchors = [akLeft, akTop, akRight, akBottom]
	471	Caption = 'Duration'
	472	TabOrder = 2
	473	TabStop = True
	474	OnClick = btnXDurationClick
	475	object btnXDuration: TSpeedButton
	476	Left = 0
	477	Top = 0
	478	Width = 33
	479	Height = 19
	480	Caption = 'days'
	481	Flat = True
	482	Glyph.Data = {
	483	AE000000424DAE0000000000000076000000280000000E000000070000000100
	484	0400000000003800000000000000000000001000000000000000000000000000
	485	8000008000000080800080000000800080008080000080808000C0C0C0000000
	486	FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
	487	330033333333333333003330333333733300330003333F87330030000033FFFF
	488	F30033333333333333003333333333333300}
	489	Layout = blGlyphRight
	490	NumGlyphs = 2
	491	Spacing = 0
	492	Transparent = False
	493	OnClick = btnXDurationClick
	494	end
	495	end
	496	object txtXDuration: TCaptionEdit
	497	Left = 0
	498	Top = 0
	499	Width = 25
	500	Height = 21
	501	Anchors = [akLeft, akTop, akBottom]
	502	TabOrder = 0
	503	Text = '0'
	504	OnChange = txtXDurationChange
	505	OnKeyDown = memMessageKeyDown
	506	Caption = 'Duration'
	507	end
	508	object spnXDuration: TUpDown
	509	Left = 25
	510	Top = 0
	511	Width = 15
	512	Height = 21
	513	Anchors = [akLeft, akTop, akBottom]
	514	Associate = txtXDuration
	515	Max = 999
	516	TabOrder = 1
	517	end
	518	end
	519	object pnlXSchedule: TPanel
	520	Left = 195
	521	Top = 122
	522	Width = 106
	523	Height = 21
	524	BevelOuter = bvNone
	525	TabOrder = 2
	526	Visible = False
	527	OnEnter = pnlXScheduleEnter
	528	OnExit = pnlXScheduleExit
	529	DesignSize = (
	530	106
	531	21)
	532	object cboXSchedule: TORComboBox
	533	Left = 0
	534	Top = 0
	535	Width = 63
	536	Height = 21
	537	Anchors = [akLeft, akTop, akRight]
	538	Style = orcsDropDown
	539	AutoSelect = False
	540	Caption = 'Schedule'
	541	Color = clWindow
	542	DropDownCount = 8
	543	ItemHeight = 13
	544	ItemTipColor = clWindow
	545	ItemTipEnable = True
	546	ListItemsOnly = False
	547	LongList = False
	548	LookupPiece = 0
	549	MaxLength = 0
	550	Pieces = '1'
	551	Sorted = False
	552	SynonymChars = '<>'
	553	TabOrder = 0
	554	TabStop = True
	555	OnChange = cboXScheduleChange
	556	OnClick = cboXScheduleClick
	557	OnEnter = cboXScheduleEnter
	558	OnExit = cboXScheduleExit
	559	OnKeyDown = memMessageKeyDown
	560	CharsNeedMatch = 1
	561	UniqueAutoComplete = True
	562	end
	563	object chkXPRN: TCheckBox
	564	Left = 63
	565	Top = 4
	566	Width = 42
	567	Height = 11
	568	Anchors = [akTop, akRight]
	569	Caption = 'PRN'
	570	TabOrder = 1
	571	OnClick = chkXPRNClick
	572	OnKeyDown = memMessageKeyDown
	573	end
	574	end
	575	object pnlBottom: TPanel
	576	Left = 0
[829]	577	Top = 197
[456]	578	Width = 580
[829]	579	Height = 273
[456]	580	Align = alBottom
[829]	581	TabOrder = 5
[456]	582	DesignSize = (
	583	580
[829]	584	273)
[456]	585	object lblComment: TLabel
	586	Left = 4
	587	Top = 5
	588	Width = 52
	589	Height = 16
	590	Alignment = taRightJustify
	591	AutoSize = False
	592	Caption = 'Comments:'
	593	end
	594	object lblDays: TLabel
	595	Left = 4
	596	Top = 65
	597	Width = 59
	598	Height = 13
	599	Caption = 'Days Supply'
	600	end
	601	object lblQuantity: TLabel
	602	Left = 84
	603	Top = 65
	604	Width = 39
	605	Height = 13
	606	Caption = 'Quantity'
	607	ParentShowHint = False
	608	ShowHint = True
	609	end
	610	object lblRefills: TLabel
	611	Left = 164
	612	Top = 65
	613	Width = 28
	614	Height = 13
	615	Caption = 'Refills'
	616	end
	617	object lblPriority: TLabel
	618	Left = 500
	619	Top = 61
	620	Width = 31
	621	Height = 13
	622	Anchors = [akTop, akRight]
	623	Caption = 'Priority'
	624	end
	625	object Image1: TImage
	626	Left = 5
[829]	627	Top = 221
[456]	628	Width = 31
	629	Height = 31
	630	Anchors = [akLeft, akBottom]
	631	Visible = False
[829]	632	ExplicitTop = 177
[456]	633	end
	634	object chkDoseNow: TCheckBox
	635	Left = 3
	636	Top = 104
	637	Width = 247
	638	Height = 21
	639	Caption = 'Give additional dose now'
[829]	640	TabOrder = 8
[456]	641	OnClick = chkDoseNowClick
	642	end
	643	object memComment: TCaptionMemo
	644	Left = 57
	645	Top = 2
	646	Width = 513
	647	Height = 43
	648	Anchors = [akLeft, akTop, akRight]
	649	ScrollBars = ssVertical
	650	TabOrder = 0
	651	OnChange = ControlChange
	652	OnClick = memCommentClick
	653	Caption = 'Comments'
	654	end
	655	object lblQtyMsg: TStaticText
	656	Left = 4
	657	Top = 47
	658	Width = 206
	659	Height = 17
	660	Caption = '>> Quantity Dispensed: Multiples of 100 <<'
[829]	661	TabOrder = 13
[456]	662	end
	663	object txtSupply: TCaptionEdit
	664	Left = 2
	665	Top = 78
	666	Width = 60
	667	Height = 21
	668	AutoSize = False
	669	TabOrder = 1
	670	Text = '0'
	671	OnChange = txtSupplyChange
	672	OnClick = txtSupplyClick
	673	Caption = 'Days Supply'
	674	end
	675	object spnSupply: TUpDown
	676	Left = 62
	677	Top = 78
	678	Width = 15
	679	Height = 21
	680	Associate = txtSupply
	681	TabOrder = 2
	682	end
	683	object txtQuantity: TCaptionEdit
	684	Left = 83
	685	Top = 78
	686	Width = 60
	687	Height = 21
	688	AutoSize = False
	689	TabOrder = 3
	690	Text = '0'
	691	OnChange = txtQuantityChange
	692	OnClick = txtQuantityClick
	693	Caption = 'Quantity'
	694	end
	695	object spnQuantity: TUpDown
	696	Left = 143
	697	Top = 78
	698	Width = 16
	699	Height = 21
[829]	700	Associate = txtQuantity
[456]	701	Max = 32766
	702	TabOrder = 4
	703	end
	704	object txtRefills: TCaptionEdit
	705	Left = 164
	706	Top = 78
	707	Width = 30
	708	Height = 21
	709	AutoSize = False
	710	TabOrder = 5
	711	Text = '0'
[829]	712	OnChange = txtRefillsChange
[456]	713	OnClick = txtRefillsClick
	714	Caption = 'Refills'
	715	end
	716	object spnRefills: TUpDown
	717	Left = 194
	718	Top = 78
	719	Width = 15
	720	Height = 21
	721	Associate = txtRefills
	722	Max = 11
	723	TabOrder = 6
	724	end
	725	object grpPickup: TGroupBox
	726	Left = 283
	727	Top = 66
	728	Width = 172
	729	Height = 36
	730	Anchors = [akTop, akRight]
	731	Caption = 'Pick Up'
	732	TabOrder = 7
	733	object radPickWindow: TRadioButton
	734	Left = 105
	735	Top = 14
	736	Width = 58
	737	Height = 17
	738	Caption = '&Window'
	739	TabOrder = 2
	740	OnClick = ControlChange
	741	end
	742	object radPickMail: TRadioButton
	743	Left = 58
	744	Top = 14
	745	Width = 38
	746	Height = 17
	747	Caption = '&Mail'
	748	TabOrder = 1
	749	OnClick = ControlChange
	750	end
	751	object radPickClinic: TRadioButton
	752	Left = 7
	753	Top = 14
	754	Width = 44
	755	Height = 17
	756	Caption = '&Clinic'
	757	TabOrder = 0
	758	OnClick = ControlChange
	759	end
	760	end
	761	object cboPriority: TORComboBox
	762	Left = 499
	763	Top = 76
	764	Width = 72
	765	Height = 21
	766	Anchors = [akTop, akRight]
	767	Style = orcsDropDown
	768	AutoSelect = True
	769	Caption = 'Priority'
	770	Color = clWindow
	771	DropDownCount = 8
	772	ItemHeight = 13
	773	ItemTipColor = clWindow
	774	ItemTipEnable = True
	775	ListItemsOnly = True
	776	LongList = False
	777	LookupPiece = 0
	778	MaxLength = 0
	779	Pieces = '2'
	780	Sorted = False
	781	SynonymChars = '<>'
[829]	782	TabOrder = 9
[456]	783	OnChange = ControlChange
	784	CharsNeedMatch = 1
	785	end
	786	object stcPI: TStaticText
	787	Left = 2
	788	Top = 123
	789	Width = 89
	790	Height = 17
	791	Caption = 'Patient Instruction'
	792	TabOrder = 17
	793	Visible = False
	794	end
	795	object chkPtInstruct: TCheckBox
	796	Left = 4
	797	Top = 137
	798	Width = 14
	799	Height = 21
	800	Color = clBtnFace
	801	ParentColor = False
	802	TabOrder = 18
	803	Visible = False
	804	OnClick = chkPtInstructClick
	805	end
	806	object memPI: TMemo
	807	Left = 23
	808	Top = 139
	809	Width = 547
	810	Height = 35
	811	TabStop = False
	812	Anchors = [akLeft, akTop, akRight]
	813	ReadOnly = True
	814	ScrollBars = ssVertical
	815	TabOrder = 19
	816	Visible = False
	817	OnClick = memPIClick
	818	OnKeyDown = memPIKeyDown
	819	end
	820	object memDrugMsg: TMemo
	821	Left = 37
[829]	822	Top = 220
[456]	823	Width = 533
	824	Height = 51
	825	Anchors = [akLeft, akRight, akBottom]
	826	Color = clCream
	827	ReadOnly = True
	828	ScrollBars = ssVertical
	829	TabOrder = 20
	830	Visible = False
	831	end
[829]	832	object lblAdminSch: TMemo
	833	Left = 344
	834	Top = 120
	835	Width = 68
	836	Height = 15
	837	Anchors = [akLeft, akTop, akRight]
	838	Color = clCream
	839	ParentShowHint = False
	840	ReadOnly = True
	841	ScrollBars = ssVertical
	842	ShowHint = True
	843	TabOrder = 10
	844	Visible = False
	845	end
	846	object lblAdminTime: TVA508StaticText
	847	Name = 'lblAdminTime'
	848	Left = 164
	849	Top = 116
	850	Width = 64
	851	Height = 15
	852	Alignment = taLeftJustify
	853	Caption = 'lblAdminTime'
	854	TabOrder = 11
	855	TabStop = True
	856	ShowAccelChar = True
	857	end
[456]	858	end
[829]	859	object cboXSequence: TORComboBox
	860	Left = 438
	861	Top = 122
	862	Width = 64
	863	Height = 21
	864	Style = orcsDropDown
	865	AutoSelect = True
	866	Caption = 'Sequence'
	867	Color = clWindow
	868	DropDownCount = 8
	869	Items.Strings = (
	870	'and'
	871	'then')
	872	ItemHeight = 13
	873	ItemTipColor = clWindow
	874	ItemTipEnable = True
	875	ListItemsOnly = False
	876	LongList = False
	877	LookupPiece = 0
	878	MaxLength = 0
	879	Sorted = False
	880	SynonymChars = '<>'
	881	TabOrder = 6
	882	Visible = False
	883	OnChange = cboXSequenceChange
	884	OnEnter = cboXSequenceEnter
	885	OnExit = cboXSequenceExit
	886	OnKeyDown = memMessageKeyDown
	887	CharsNeedMatch = 1
	888	end
[456]	889	end
[829]	890	inherited cmdAccept: TButton
	891	Left = 514
	892	Top = 505
	893	Anchors = [akRight, akBottom]
	894	TabOrder = 6
	895	TabStop = False
	896	Visible = False
	897	ExplicitLeft = 514
	898	ExplicitTop = 505
	899	end
	900	inherited cmdQuit: TButton
	901	Left = 514
	902	Top = 530
	903	Width = 51
	904	Anchors = [akRight, akBottom]
	905	TabOrder = 7
	906	ExplicitLeft = 514
	907	ExplicitTop = 530
	908	ExplicitWidth = 51
	909	end
	910	inherited pnlMessage: TPanel
	911	Left = 31
	912	Top = 200
	913	OnEnter = pnlMessageEnter
	914	ExplicitLeft = 31
	915	ExplicitTop = 200
	916	inherited imgMessage: TImage
	917	Left = 2
	918	ExplicitLeft = 2
	919	end
	920	inherited memMessage: TRichEdit
	921	OnKeyDown = memMessageKeyDown
	922	end
	923	end
	924	inherited amgrMain: TVA508AccessibilityManager
	925	Data = (
	926	(
	927	'Component = pnlMeds'
	928	'Status = stsDefault')
	929	(
	930	'Component = lstQuick'
	931	'Text = Quick Orders'
	932	'Status = stsOK')
	933	(
	934	'Component = lstAll'
	935	'Text = Medications'
	936	'Status = stsOK')
	937	(
	938	'Component = txtMed'
	939	'Text = Medication'
	940	'Status = stsOK')
	941	(
	942	'Component = btnSelect'
	943	'Status = stsDefault')
	944	(
	945	'Component = pnlFields'
	946	'Status = stsDefault')
	947	(
	948	'Component = pnlTop'
	949	'Status = stsDefault')
	950	(
	951	'Component = grdDoses'
	952	'Status = stsDefault')
	953	(
	954	'Component = lblGuideline'
	955	'Status = stsDefault')
	956	(
	957	'Component = tabDose'
	958	'Status = stsDefault')
	959	(
	960	'Component = cboDosage'
	961	'Status = stsDefault')
	962	(
	963	'Component = cboRoute'
	964	'Status = stsDefault')
	965	(
	966	'Component = cboSchedule'
	967	'Status = stsDefault')
	968	(
	969	'Component = chkPRN'
	970	'Status = stsDefault')
	971	(
	972	'Component = btnXInsert'
	973	'Status = stsDefault')
	974	(
	975	'Component = btnXRemove'
	976	'Status = stsDefault')
	977	(
	978	'Component = pnlXAdminTime'
	979	'Status = stsDefault')
	980	(
	981	'Component = cboXDosage'
	982	'Status = stsDefault')
	983	(
	984	'Component = cboXRoute'
	985	'Status = stsDefault')
	986	(
	987	'Component = pnlXDuration'
	988	'Status = stsDefault')
	989	(
	990	'Component = pnlXDurationButton'
	991	'Status = stsDefault')
	992	(
	993	'Component = txtXDuration'
	994	'Status = stsDefault')
	995	(
	996	'Component = spnXDuration'
	997	'Status = stsDefault')
	998	(
	999	'Component = pnlXSchedule'
	1000	'Status = stsDefault')
	1001	(
	1002	'Component = cboXSchedule'
	1003	'Status = stsDefault')
	1004	(
	1005	'Component = chkXPRN'
	1006	'Status = stsDefault')
	1007	(
	1008	'Component = pnlBottom'
	1009	'Status = stsDefault')
	1010	(
	1011	'Component = chkDoseNow'
	1012	'Status = stsDefault')
	1013	(
	1014	'Component = memComment'
	1015	'Status = stsDefault')
	1016	(
	1017	'Component = lblQtyMsg'
	1018	'Status = stsDefault')
	1019	(
	1020	'Component = txtSupply'
	1021	'Status = stsDefault')
	1022	(
	1023	'Component = spnSupply'
	1024	'Status = stsDefault')
	1025	(
	1026	'Component = txtQuantity'
	1027	'Status = stsDefault')
	1028	(
	1029	'Component = spnQuantity'
	1030	'Status = stsDefault')
	1031	(
	1032	'Component = txtRefills'
	1033	'Status = stsDefault')
	1034	(
	1035	'Component = spnRefills'
	1036	'Status = stsDefault')
	1037	(
	1038	'Component = grpPickup'
	1039	'Status = stsDefault')
	1040	(
	1041	'Component = radPickWindow'
	1042	'Status = stsDefault')
	1043	(
	1044	'Component = radPickMail'
	1045	'Status = stsDefault')
	1046	(
	1047	'Component = radPickClinic'
	1048	'Status = stsDefault')
	1049	(
	1050	'Component = cboPriority'
	1051	'Status = stsDefault')
	1052	(
	1053	'Component = stcPI'
	1054	'Status = stsDefault')
	1055	(
	1056	'Component = chkPtInstruct'
	1057	'Status = stsDefault')
	1058	(
	1059	'Component = memPI'
	1060	'Status = stsDefault')
	1061	(
	1062	'Component = memDrugMsg'
	1063	'Status = stsDefault')
	1064	(
	1065	'Component = memOrder'
	1066	'Status = stsDefault')
	1067	(
	1068	'Component = cmdAccept'
	1069	'Status = stsDefault')
	1070	(
	1071	'Component = cmdQuit'
	1072	'Status = stsDefault')
	1073	(
	1074	'Component = pnlMessage'
	1075	'Status = stsDefault')
	1076	(
	1077	'Component = memMessage'
	1078	'Status = stsDefault')
	1079	(
	1080	'Component = frmODMeds'
	1081	'Status = stsDefault')
	1082	(
	1083	'Component = cboXSequence'
	1084	'Status = stsDefault')
	1085	(
	1086	'Component = lblAdminSch'
	1087	'Status = stsDefault')
	1088	(
	1089	'Component = lblAdminTime'
	1090	'Status = stsDefault'))
	1091	end
[456]	1092	object dlgStart: TORDateTimeDlg
[829]	1093	FMDateTime = 3001101.000000000000000000
[456]	1094	DateOnly = False
	1095	RequireTime = True
	1096	Left = 444
	1097	Top = 336
	1098	end
	1099	object timCheckChanges: TTimer
	1100	Enabled = False
	1101	Interval = 500
	1102	OnTimer = timCheckChangesTimer
	1103	Left = 477
	1104	Top = 336
	1105	end
	1106	object popDuration: TPopupMenu
	1107	AutoHotkeys = maManual
	1108	Left = 380
	1109	Top = 145
	1110	object popBlank: TMenuItem
	1111	Caption = '(no selection)'
	1112	OnClick = popDurationClick
	1113	end
	1114	object months1: TMenuItem
	1115	Tag = 5
	1116	Caption = 'months'
	1117	OnClick = popDurationClick
	1118	end
	1119	object weeks1: TMenuItem
	1120	Tag = 4
	1121	Caption = 'weeks'
	1122	OnClick = popDurationClick
	1123	end
	1124	object popDays: TMenuItem
	1125	Tag = 3
	1126	Caption = 'days'
	1127	OnClick = popDurationClick
	1128	end
	1129	object hours1: TMenuItem
	1130	Tag = 2
	1131	Caption = 'hours'
	1132	OnClick = popDurationClick
	1133	end
	1134	object minutes1: TMenuItem
	1135	Tag = 1
	1136	Caption = 'minutes'
	1137	OnClick = popDurationClick
	1138	end
	1139	end
	1140	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format