Context Navigation

fODMeds.dfm@ 1705

Last change on this file since 1705 was 460, checked in by Kevin Toppenberg, 16 years ago
Uploading from OR_30_258
File size: 24.1 KB

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

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

Download in other formats:

Original Format