Context Navigation

fODMeds.dfm@ 1721

Last change on this file since 1721 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 28.1 KB

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

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

Download in other formats:

Original Format