Context Navigation

fODBBank.dfm@ 1694

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

Rev	Line
[456]	1	inherited frmODBBank: TfrmODBBank
[829]	2	Left = 409
	3	Top = 244
[1679]	4	Width = 700
	5	Height = 626
	6	AutoScroll = True
[456]	7	Caption = 'Blood Component and Diagnostic Test Order Form'
[1679]	8	OnShow = FormShow
	9	ExplicitWidth = 700
	10	ExplicitHeight = 626
[456]	11	PixelsPerInch = 96
	12	TextHeight = 13
[1679]	13	object Splitter1: TSplitter [0]
	14	Left = 0
	15	Top = 0
	16	Width = 692
	17	Height = 2
	18	Cursor = crVSplit
	19	Align = alTop
	20	end
	21	object pnlComments: TPanel [1]
[456]	22	Left = 12
[829]	23	Top = 25
	24	Width = 534
	25	Height = 368
[456]	26	TabOrder = 5
[829]	27	Visible = False
	28	object lblOrdComment: TLabel
	29	Left = 25
	30	Top = 3
	31	Width = 87
	32	Height = 13
	33	Caption = 'Order Comment'
	34	Font.Charset = DEFAULT_CHARSET
	35	Font.Color = clWindowText
	36	Font.Height = -11
	37	Font.Name = 'MS Sans Serif'
	38	Font.Style = [fsBold]
	39	ParentFont = False
	40	end
	41	object btnUpdateComments: TButton
	42	Left = 372
	43	Top = 174
	44	Width = 115
	45	Height = 25
	46	Caption = 'Update Comments'
[456]	47	TabOrder = 0
[829]	48	OnClick = btnUpdateCommentsClick
	49	end
	50	object btnCancelComment: TButton
	51	Left = 279
	52	Top = 174
	53	Width = 75
	54	Height = 25
	55	Caption = 'Cancel'
	56	TabOrder = 1
	57	OnClick = btnCancelCommentClick
	58	end
	59	end
	60	inherited memOrder: TCaptionMemo
[1679]	61	Left = 4
	62	Top = 503
[829]	63	Width = 449
	64	Height = 59
	65	Visible = False
[1679]	66	ExplicitLeft = 4
	67	ExplicitTop = 503
[829]	68	ExplicitWidth = 449
	69	ExplicitHeight = 59
	70	end
[1679]	71	object pgeProduct: TPageControl [3]
[829]	72	Left = 0
[1679]	73	Top = 2
	74	Width = 692
	75	Height = 497
[829]	76	ActivePage = TabDiag
	77	Align = alTop
[1679]	78	TabOrder = 4
[829]	79	OnChange = pgeProductChange
	80	object TabInfo: TTabSheet
	81	Caption = 'Patient Information'
	82	ImageIndex = 3
[1679]	83	ExplicitLeft = 0
	84	ExplicitTop = 0
	85	ExplicitWidth = 0
	86	ExplicitHeight = 0
[829]	87	object edtInfo: TCaptionRichEdit
[456]	88	Left = 0
[1679]	89	Top = 0
	90	Width = 684
	91	Height = 469
	92	Align = alClient
[829]	93	BevelInner = bvNone
	94	BevelOuter = bvNone
[456]	95	Font.Charset = DEFAULT_CHARSET
	96	Font.Color = clWindowText
	97	Font.Height = -11
[829]	98	Font.Name = 'Courier New'
[456]	99	Font.Style = []
	100	ParentFont = False
[829]	101	ReadOnly = True
	102	ScrollBars = ssBoth
[456]	103	TabOrder = 0
[1679]	104	WordWrap = False
[829]	105	Caption = 'Patient Info'
	106	end
	107	end
	108	object TabDiag: TTabSheet
	109	Caption = 'Blood Bank Orders'
	110	ImageIndex = 2
	111	object lblReqComment: TOROffsetLabel
[1679]	112	Left = 300
[829]	113	Top = 25
	114	Width = 108
	115	Height = 37
	116	HorzOffset = 2
	117	Transparent = False
	118	VertOffset = 2
	119	WordWrap = False
	120	end
	121	object pnlFields: TPanel
	122	Left = 0
[1679]	123	Top = 145
	124	Width = 684
	125	Height = 210
[829]	126	Hint = 'Data entered into these fields apply to the entire order.'
	127	Align = alTop
	128	BevelEdges = []
	129	BevelOuter = bvNone
	130	ParentShowHint = False
	131	ShowHint = True
	132	TabOrder = 2
	133	object lblDiagComment: TOROffsetLabel
[1679]	134	Left = 0
	135	Top = 128
	136	Width = 62
[829]	137	Height = 15
	138	Caption = 'Comment'
	139	Font.Charset = DEFAULT_CHARSET
	140	Font.Color = clWindowText
	141	Font.Height = -11
	142	Font.Name = 'MS Sans Serif'
	143	Font.Style = []
	144	HorzOffset = 2
	145	ParentFont = False
	146	Transparent = False
	147	VertOffset = 2
	148	WordWrap = True
	149	end
	150	object lblUrgency: TLabel
[1679]	151	Left = 0
	152	Top = -1
[829]	153	Width = 44
	154	Height = 13
	155	Caption = 'Urgency*'
	156	Font.Charset = DEFAULT_CHARSET
	157	Font.Color = clWindowText
	158	Font.Height = -11
	159	Font.Name = 'MS Sans Serif'
	160	Font.Style = []
	161	ParentFont = False
	162	end
	163	object lblReason: TLabel
[1679]	164	Left = 0
	165	Top = 40
	166	Width = 95
[829]	167	Height = 13
[1679]	168	Caption = 'Reason for Request'
[829]	169	Font.Charset = DEFAULT_CHARSET
	170	Font.Color = clWindowText
	171	Font.Height = -11
	172	Font.Name = 'MS Sans Serif'
	173	Font.Style = []
	174	ParentFont = False
	175	end
	176	object lblSurgery: TLabel
[1679]	177	Left = 117
	178	Top = 0
[829]	179	Width = 36
	180	Height = 13
	181	Hint =
	182	'Enter the name of the surgical procedure that this request is fo' +
	183	'r.'
	184	Caption = 'Surgery'
[1679]	185	Enabled = False
[829]	186	Font.Charset = DEFAULT_CHARSET
	187	Font.Color = clWindowText
	188	Font.Height = -11
	189	Font.Name = 'MS Sans Serif'
	190	Font.Style = []
	191	ParentFont = False
	192	end
	193	object lblRequiredField: TLabel
[1679]	194	Left = 398
	195	Top = 38
[829]	196	Width = 122
	197	Height = 13
	198	Caption = '* Indicates a required field'
	199	end
[1679]	200	object lblTNS: TLabel
	201	Left = 270
	202	Top = 0
	203	Width = 14
	204	Height = 13
	205	Caption = 'tns'
	206	Color = clActiveBorder
	207	Font.Charset = DEFAULT_CHARSET
	208	Font.Color = clMaroon
	209	Font.Height = -11
	210	Font.Name = 'MS Sans Serif'
	211	Font.Style = []
	212	ParentColor = False
	213	ParentFont = False
	214	Visible = False
	215	end
	216	object lblNoBloodReq: TLabel
	217	Left = 341
	218	Top = 21
	219	Width = 176
	220	Height = 13
	221	Caption = 'No Blood Required for this Procedure'
	222	Font.Charset = DEFAULT_CHARSET
	223	Font.Color = clMaroon
	224	Font.Height = -11
	225	Font.Name = 'MS Sans Serif'
	226	Font.Style = []
	227	ParentFont = False
	228	Visible = False
	229	end
[829]	230	object cboUrgency: TORComboBox
[1679]	231	Left = 4
	232	Top = 14
[829]	233	Width = 98
	234	Height = 21
	235	Style = orcsDropDown
	236	AutoSelect = True
	237	Caption = 'Urgency'
	238	Color = clWindow
	239	DropDownCount = 8
	240	Font.Charset = DEFAULT_CHARSET
	241	Font.Color = clWindowText
	242	Font.Height = -11
	243	Font.Name = 'MS Sans Serif'
	244	Font.Style = []
	245	ItemHeight = 13
	246	ItemTipColor = clWindow
	247	ItemTipEnable = True
	248	ListItemsOnly = True
	249	LongList = False
	250	LookupPiece = 0
	251	MaxLength = 0
	252	ParentFont = False
	253	Pieces = '2'
	254	Sorted = False
	255	SynonymChars = '<>'
	256	TabOrder = 0
	257	OnChange = cboUrgencyChange
	258	OnExit = cboUrgencyExit
	259	CharsNeedMatch = 1
	260	end
	261	object chkConsent: TCheckBox
[1679]	262	Left = 529
	263	Top = 92
[829]	264	Width = 112
	265	Height = 17
	266	Hint = 'Informed Consent Signed On Chart?'
	267	Alignment = taLeftJustify
	268	Caption = 'Informed Consent?'
	269	Font.Charset = DEFAULT_CHARSET
	270	Font.Color = clWindowText
	271	Font.Height = -11
	272	Font.Name = 'MS Sans Serif'
	273	Font.Style = []
	274	ParentFont = False
	275	ParentShowHint = False
	276	ShowHint = True
	277	TabOrder = 3
	278	Visible = False
	279	OnClick = chkConsentClick
	280	end
	281	object cboSurgery: TORComboBox
[1679]	282	Left = 117
	283	Top = 14
[829]	284	Width = 218
	285	Height = 21
	286	Style = orcsDropDown
	287	AutoSelect = True
	288	Caption = 'Surgery'
	289	Color = clWindow
	290	DropDownCount = 8
	291	Enabled = False
	292	Font.Charset = DEFAULT_CHARSET
	293	Font.Color = clWindowText
	294	Font.Height = -11
	295	Font.Name = 'MS Sans Serif'
	296	Font.Style = []
	297	ItemHeight = 13
	298	ItemTipColor = clWindow
	299	ItemTipEnable = True
	300	ListItemsOnly = False
	301	LongList = False
	302	LookupPiece = 0
	303	MaxLength = 0
	304	ParentFont = False
	305	Pieces = '2'
	306	Sorted = False
	307	SynonymChars = '<>'
	308	TabOrder = 1
	309	OnChange = cboSurgeryChange
	310	OnClick = cboSurgeryClick
	311	CharsNeedMatch = 1
	312	end
	313	object cboReasons: TORComboBox
[1679]	314	Left = 4
	315	Top = 55
	316	Width = 525
	317	Height = 74
	318	Style = orcsSimple
[829]	319	AutoSelect = True
	320	Color = clWindow
	321	DropDownCount = 8
	322	ItemHeight = 13
	323	ItemTipColor = clWindow
	324	ItemTipEnable = True
	325	ListItemsOnly = False
	326	LongList = False
	327	LookupPiece = 0
	328	MaxLength = 0
	329	Sorted = False
	330	SynonymChars = '<>'
	331	TabOrder = 2
	332	OnChange = cboReasonsChange
	333	OnEnter = cboReasonsEnter
	334	OnExit = cboReasonsExit
	335	CharsNeedMatch = 1
	336	end
	337	object memDiagComment: TRichEdit
[1679]	338	Left = 4
	339	Top = 144
	340	Width = 525
	341	Height = 60
[829]	342	TabOrder = 4
	343	OnChange = memDiagCommentChange
	344	end
	345	end
	346	object pnlSelect: TPanel
	347	Left = 0
	348	Top = 35
[1679]	349	Width = 684
	350	Height = 110
[829]	351	Align = alTop
	352	BevelEdges = []
	353	BevelOuter = bvNone
	354	TabOrder = 1
	355	object pnlDiagnosticTests: TGroupBox
[1679]	356	Left = 266
[829]	357	Top = 0
[1679]	358	Width = 256
[829]	359	Height = 110
	360	Caption = 'Diagnostic Tests'
	361	Font.Charset = DEFAULT_CHARSET
	362	Font.Color = clWindowText
	363	Font.Height = -11
	364	Font.Name = 'MS Sans Serif'
	365	Font.Style = [fsBold]
	366	ParentFont = False
	367	TabOrder = 1
[1679]	368	OnClick = pnlDiagnosticTestsClick
	369	OnEnter = pnlDiagnosticTestsEnter
	370	OnExit = pnlDiagnosticTestsExit
[829]	371	object lblCollType: TLabel
	372	Left = 13
	373	Top = 33
	374	Width = 77
	375	Height = 13
	376	Caption = 'Collection Type*'
[456]	377	Font.Charset = DEFAULT_CHARSET
	378	Font.Color = clWindowText
	379	Font.Height = -11
[829]	380	Font.Name = 'MS Sans Serif'
[456]	381	Font.Style = []
	382	ParentFont = False
	383	end
[829]	384	object lblCollTime: TLabel
	385	Left = 12
	386	Top = 70
[1679]	387	Width = 100
[829]	388	Height = 13
[1679]	389	Caption = 'Collection Date/Time'
[829]	390	Font.Charset = DEFAULT_CHARSET
	391	Font.Color = clWindowText
	392	Font.Height = -11
	393	Font.Name = 'MS Sans Serif'
	394	Font.Style = []
	395	ParentFont = False
[456]	396	end
[1679]	397	object pnlCollTimeButton: TKeyClickPanel
	398	Left = 178
	399	Top = 82
[829]	400	Width = 21
[1679]	401	Height = 21
	402	BevelOuter = bvNone
	403	Caption = 'Select collection time'
	404	TabOrder = 5
	405	TabStop = True
	406	object cmdImmedColl: TSpeedButton
	407	Left = 0
	408	Top = 0
	409	Width = 21
	410	Height = 21
	411	Align = alClient
	412	Font.Charset = DEFAULT_CHARSET
	413	Font.Color = clWindowText
	414	Font.Height = -16
	415	Font.Name = 'MS Sans Serif'
	416	Font.Style = [fsBold]
	417	Glyph.Data = {
	418	D6000000424DD60000000000000076000000280000000C0000000C0000000100
	419	0400000000006000000000000000000000001000000010000000000000000000
	420	80000080000000808000800000008000800080800000C0C0C000808080000000
	421	FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
	422	0000333333333333000033333333333300003333333333330000300330033003
	423	0000300330033003000033333333333300003333333333330000333333333333
	424	0000333333333333000033333333333300003333333333330000}
	425	ParentFont = False
	426	ParentShowHint = False
	427	ShowHint = False
	428	OnClick = cmdImmedCollClick
	429	end
	430	end
	431	object calCollTime: TORDateBox
	432	Left = 12
	433	Top = 82
	434	Width = 165
	435	Height = 21
[829]	436	Font.Charset = DEFAULT_CHARSET
	437	Font.Color = clWindowText
[1679]	438	Font.Height = -11
[829]	439	Font.Name = 'MS Sans Serif'
[1679]	440	Font.Style = []
[829]	441	ParentFont = False
[1679]	442	TabOrder = 4
	443	OnChange = calCollTimeChange
	444	OnEnter = calCollTimeEnter
	445	DateOnly = False
	446	RequireTime = False
[829]	447	end
	448	object cboAvailTest: TORComboBox
	449	Left = 13
	450	Top = 13
	451	Width = 234
	452	Height = 21
	453	Style = orcsDropDown
	454	AutoSelect = True
	455	Caption = 'Diagnostic Tests'
	456	Color = clWindow
	457	DropDownCount = 8
	458	Font.Charset = DEFAULT_CHARSET
	459	Font.Color = clWindowText
	460	Font.Height = -11
	461	Font.Name = 'MS Sans Serif'
	462	Font.Style = []
	463	ItemHeight = 13
	464	ItemTipColor = clWindow
	465	ItemTipEnable = True
	466	ListItemsOnly = False
[1679]	467	LongList = False
[829]	468	LookupPiece = 0
	469	MaxLength = 0
	470	ParentFont = False
	471	Pieces = '2'
	472	Sorted = False
	473	SynonymChars = '<>'
[456]	474	TabOrder = 0
[829]	475	TabStop = True
[1679]	476	OnClick = cboAvailTestSelect
	477	OnEnter = cboAvailTestEnter
[829]	478	OnExit = cboAvailTestExit
	479	OnNeedData = cboAvailTestNeedData
	480	CharsNeedMatch = 1
[456]	481	end
[829]	482	object cboCollType: TORComboBox
	483	Left = 12
	484	Top = 46
[1679]	485	Width = 197
[829]	486	Height = 21
	487	Style = orcsDropDown
	488	AutoSelect = True
	489	Caption = 'Collection Type'
	490	Color = clWindow
	491	DropDownCount = 8
	492	Font.Charset = DEFAULT_CHARSET
	493	Font.Color = clWindowText
	494	Font.Height = -11
	495	Font.Name = 'MS Sans Serif'
	496	Font.Style = []
	497	ItemHeight = 13
	498	ItemTipColor = clWindow
	499	ItemTipEnable = True
	500	ListItemsOnly = True
	501	LongList = False
	502	LookupPiece = 0
	503	MaxLength = 0
	504	ParentFont = False
	505	Pieces = '2'
	506	Sorted = False
	507	SynonymChars = '<>'
[456]	508	TabOrder = 1
[829]	509	OnChange = cboCollTypeChange
[1679]	510	OnClick = cboCollTypeClick
	511	OnEnter = cboCollTypeEnter
[829]	512	CharsNeedMatch = 1
[456]	513	end
[829]	514	object cboCollTime: TORComboBox
	515	Left = 12
	516	Top = 82
	517	Width = 165
	518	Height = 21
	519	Style = orcsDropDown
	520	AutoSelect = True
	521	Caption = 'Collection Date/Time'
	522	Color = clWindow
	523	DropDownCount = 8
	524	Font.Charset = DEFAULT_CHARSET
	525	Font.Color = clWindowText
	526	Font.Height = -11
	527	Font.Name = 'MS Sans Serif'
	528	Font.Style = []
	529	ItemHeight = 13
	530	ItemTipColor = clWindow
	531	ItemTipEnable = True
	532	ListItemsOnly = False
	533	LongList = False
	534	LookupPiece = 0
	535	MaxLength = 0
	536	ParentFont = False
	537	Pieces = '2'
	538	Sorted = False
	539	SynonymChars = '<>'
	540	TabOrder = 2
	541	OnChange = cboCollTimeChange
[1679]	542	OnEnter = cboCollTimeEnter
[829]	543	CharsNeedMatch = 1
	544	end
	545	object txtImmedColl: TCaptionEdit
	546	Left = 12
	547	Top = 82
	548	Width = 165
	549	Height = 21
	550	Color = clBtnFace
	551	ReadOnly = True
[1679]	552	TabOrder = 3
	553	OnEnter = txtImmedCollEnter
[829]	554	end
[456]	555	end
[829]	556	object pnlBloodComponents: TGroupBox
	557	Left = 4
	558	Top = 0
[1679]	559	Width = 256
[829]	560	Height = 110
	561	Caption = 'Blood Components'
[1679]	562	Color = clBtnFace
[829]	563	Font.Charset = DEFAULT_CHARSET
	564	Font.Color = clWindowText
	565	Font.Height = -11
	566	Font.Name = 'MS Sans Serif'
	567	Font.Style = [fsBold]
[1679]	568	ParentColor = False
[829]	569	ParentFont = False
	570	TabOrder = 0
[1679]	571	OnClick = pnlBloodComponentsClick
	572	OnEnter = pnlBloodComponentsEnter
	573	OnExit = pnlBloodComponentsExit
[829]	574	object lblQuantity: TLabel
	575	Left = 198
	576	Top = 0
[1679]	577	Width = 39
[829]	578	Height = 13
[1679]	579	Caption = 'Quantity'
[456]	580	Font.Charset = DEFAULT_CHARSET
	581	Font.Color = clWindowText
	582	Font.Height = -11
[829]	583	Font.Name = 'MS Sans Serif'
[456]	584	Font.Style = []
	585	ParentFont = False
[829]	586	end
	587	object lblModifiers: TLabel
	588	Left = 7
	589	Top = 33
	590	Width = 42
	591	Height = 13
	592	Caption = 'Modifiers'
	593	Font.Charset = DEFAULT_CHARSET
	594	Font.Color = clWindowText
	595	Font.Height = -11
	596	Font.Name = 'MS Sans Serif'
	597	Font.Style = []
	598	ParentFont = False
	599	end
	600	object lblWanted: TLabel
	601	Left = 7
	602	Top = 70
[1679]	603	Width = 92
[829]	604	Height = 13
[1679]	605	Caption = 'Date/Time Wanted'
[829]	606	Font.Charset = DEFAULT_CHARSET
	607	Font.Color = clWindowText
	608	Font.Height = -11
	609	Font.Name = 'MS Sans Serif'
	610	Font.Style = []
	611	ParentFont = False
	612	end
	613	object cboAvailComp: TORComboBox
	614	Left = 11
	615	Top = 13
	616	Width = 181
	617	Height = 21
	618	Style = orcsDropDown
	619	AutoSelect = True
	620	Caption = 'Blood Components'
	621	Color = clWindow
	622	DropDownCount = 8
	623	Font.Charset = DEFAULT_CHARSET
	624	Font.Color = clWindowText
	625	Font.Height = -11
	626	Font.Name = 'MS Sans Serif'
	627	Font.Style = []
	628	ItemHeight = 13
	629	ItemTipColor = clWindow
	630	ItemTipEnable = True
	631	ListItemsOnly = False
	632	LongList = False
	633	LookupPiece = 0
	634	MaxLength = 0
	635	ParentFont = False
	636	Pieces = '2'
	637	Sorted = False
	638	SynonymChars = '<>'
[456]	639	TabOrder = 0
[829]	640	TabStop = True
[1679]	641	OnEnter = cboAvailCompEnter
[829]	642	OnExit = cboAvailCompExit
	643	OnMouseClick = cboAvailCompSelect
	644	OnNeedData = cboAvailCompNeedData
	645	CharsNeedMatch = 1
[456]	646	end
[829]	647	object tQuantity: TEdit
	648	Left = 198
	649	Top = 13
	650	Width = 25
	651	Height = 21
	652	Font.Charset = DEFAULT_CHARSET
	653	Font.Color = clWindowText
	654	Font.Height = -11
	655	Font.Name = 'MS Sans Serif'
	656	Font.Style = []
	657	ParentFont = False
	658	TabOrder = 1
	659	OnChange = tQuantityChange
	660	OnClick = tQuantityClick
	661	OnEnter = tQuantityEnter
	662	end
	663	object cboModifiers: TORComboBox
	664	Left = 11
	665	Top = 46
[1679]	666	Width = 181
[829]	667	Height = 21
	668	Style = orcsDropDown
	669	AutoSelect = True
	670	Caption = 'Modifier'
	671	Color = clWindow
	672	DropDownCount = 8
	673	Font.Charset = DEFAULT_CHARSET
	674	Font.Color = clWindowText
	675	Font.Height = -11
	676	Font.Name = 'MS Sans Serif'
	677	Font.Style = []
	678	ItemHeight = 13
	679	ItemTipColor = clWindow
	680	ItemTipEnable = True
	681	ListItemsOnly = True
	682	LongList = False
	683	LookupPiece = 0
	684	MaxLength = 0
	685	ParentFont = False
	686	Sorted = False
	687	SynonymChars = '<>'
	688	TabOrder = 2
	689	OnChange = cboModifiersChange
[1679]	690	OnEnter = cboModifiersEnter
[829]	691	CharsNeedMatch = 1
	692	end
	693	object calWantTime: TORDateBox
	694	Left = 11
	695	Top = 82
[1679]	696	Width = 181
[829]	697	Height = 21
	698	Font.Charset = DEFAULT_CHARSET
	699	Font.Color = clWindowText
	700	Font.Height = -11
	701	Font.Name = 'MS Sans Serif'
	702	Font.Style = []
	703	ParentFont = False
	704	TabOrder = 3
	705	OnChange = calWantTimeChange
[1679]	706	OnEnter = calWantTimeEnter
[829]	707	DateOnly = False
	708	RequireTime = False
	709	end
[456]	710	end
	711	end
[829]	712	object GroupBox1: TGroupBox
	713	Left = 0
	714	Top = 0
[1679]	715	Width = 684
[829]	716	Height = 35
	717	Align = alTop
	718	Caption = ' Personal Quick Orders'
	719	Font.Charset = DEFAULT_CHARSET
	720	Font.Color = clWindowText
	721	Font.Height = -11
	722	Font.Name = 'MS Sans Serif'
	723	Font.Style = []
	724	ParentFont = False
	725	TabOrder = 0
	726	object cboQuick: TORComboBox
	727	Left = 15
	728	Top = 11
[1679]	729	Width = 508
[829]	730	Height = 21
	731	Style = orcsDropDown
	732	AutoSelect = True
	733	Color = clWindow
	734	DropDownCount = 8
	735	ItemHeight = 13
	736	ItemTipColor = clWindow
	737	ItemTipEnable = True
	738	ListItemsOnly = False
	739	LongList = True
	740	LookupPiece = 0
	741	MaxLength = 0
	742	Pieces = '2'
	743	Sorted = False
	744	SynonymChars = '<>'
	745	TabOrder = 0
	746	OnClick = cboQuickClick
	747	CharsNeedMatch = 1
	748	end
	749	end
[456]	750	object pnlSelectedTests: TGroupBox
[829]	751	Left = 0
[1679]	752	Top = 355
	753	Width = 684
	754	Height = 109
[829]	755	Align = alTop
[456]	756	Caption = 'Selected Components and Tests'
[829]	757	Font.Charset = DEFAULT_CHARSET
	758	Font.Color = clWindowText
	759	Font.Height = -11
	760	Font.Name = 'MS Sans Serif'
	761	Font.Style = [fsBold]
	762	ParentFont = False
	763	TabOrder = 3
[456]	764	Visible = False
	765	object lvSelectionList: TCaptionListView
[829]	766	Left = 5
[1679]	767	Top = 15
	768	Width = 430
[829]	769	Height = 91
[456]	770	Columns = <
	771	item
	772	AutoSize = True
	773	Caption = 'Test/Component'
	774	end
	775	item
	776	AutoSize = True
	777	Caption = 'Qty'
	778	end
	779	item
	780	AutoSize = True
	781	Caption = 'Modifiers'
	782	end
	783	item
[829]	784	Caption = 'ModifierItemIndex'
[456]	785	Width = 0
[829]	786	end
	787	item
	788	Caption = 'TestIEN'
	789	Width = 0
[456]	790	end>
[829]	791	Font.Charset = DEFAULT_CHARSET
	792	Font.Color = clWindowText
	793	Font.Height = -11
	794	Font.Name = 'MS Sans Serif'
[1679]	795	Font.Style = []
[829]	796	ReadOnly = True
[456]	797	RowSelect = True
[829]	798	ParentFont = False
[456]	799	TabOrder = 0
[829]	800	TabStop = False
[456]	801	ViewStyle = vsReport
[829]	802	OnClick = lvSelectionListClick
[456]	803	Caption = 'lvSelectionList'
	804	end
	805	object btnRemove: TButton
[1679]	806	Left = 450
[829]	807	Top = 37
[456]	808	Width = 75
	809	Height = 21
	810	Caption = 'Remove'
[829]	811	Font.Charset = DEFAULT_CHARSET
	812	Font.Color = clWindowText
	813	Font.Height = -11
	814	Font.Name = 'MS Sans Serif'
	815	Font.Style = []
	816	ParentFont = False
[456]	817	TabOrder = 1
	818	OnClick = btnRemoveClick
	819	end
	820	object btnRemoveAll: TButton
[1679]	821	Left = 450
[829]	822	Top = 64
[456]	823	Width = 75
	824	Height = 21
	825	Caption = 'Remove All'
[829]	826	Font.Charset = DEFAULT_CHARSET
	827	Font.Color = clWindowText
	828	Font.Height = -11
	829	Font.Name = 'MS Sans Serif'
	830	Font.Style = []
	831	ParentFont = False
[456]	832	TabOrder = 2
	833	OnClick = btnRemoveAllClick
	834	end
	835	end
	836	end
[829]	837	object TabResults: TTabSheet
	838	Caption = 'Lab Results'
[1679]	839	ExplicitLeft = 0
	840	ExplicitTop = 0
	841	ExplicitWidth = 0
	842	ExplicitHeight = 0
[829]	843	object edtResults: TCaptionRichEdit
[1679]	844	Left = 0
	845	Top = 0
	846	Width = 684
	847	Height = 469
	848	Align = alClient
[829]	849	Font.Charset = DEFAULT_CHARSET
	850	Font.Color = clWindowText
	851	Font.Height = -11
	852	Font.Name = 'Courier New'
	853	Font.Style = []
	854	ParentFont = False
	855	TabOrder = 0
	856	end
	857	end
[456]	858	end
[829]	859	inherited cmdAccept: TButton
	860	Left = 455
[1679]	861	Top = 503
	862	Width = 75
[829]	863	TabOrder = 2
	864	Visible = False
	865	ExplicitLeft = 455
[1679]	866	ExplicitTop = 503
	867	ExplicitWidth = 75
[829]	868	end
	869	inherited cmdQuit: TButton
	870	Left = 455
[1679]	871	Top = 541
[829]	872	Width = 52
	873	TabOrder = 3
	874	ExplicitLeft = 455
[1679]	875	ExplicitTop = 541
[829]	876	ExplicitWidth = 52
	877	end
	878	inherited pnlMessage: TPanel
	879	Left = 8
[1679]	880	Top = 513
[829]	881	Width = 409
	882	Height = 49
	883	TabOrder = 1
	884	ExplicitLeft = 8
[1679]	885	ExplicitTop = 513
[829]	886	ExplicitWidth = 409
	887	ExplicitHeight = 49
	888	inherited memMessage: TRichEdit
	889	Left = 42
	890	Top = 5
	891	Width = 360
	892	ExplicitLeft = 42
	893	ExplicitTop = 5
	894	ExplicitWidth = 360
	895	end
	896	end
	897	inherited amgrMain: TVA508AccessibilityManager
	898	Data = (
	899	(
	900	'Component = memOrder'
	901	'Status = stsDefault')
	902	(
	903	'Component = cmdAccept'
	904	'Status = stsDefault')
	905	(
	906	'Component = cmdQuit'
	907	'Status = stsDefault')
	908	(
	909	'Component = pnlMessage'
	910	'Status = stsDefault')
	911	(
	912	'Component = memMessage'
	913	'Status = stsDefault')
	914	(
	915	'Component = frmODBBank'
	916	'Status = stsDefault')
	917	(
	918	'Component = pnlComments'
	919	'Status = stsDefault')
	920	(
	921	'Component = btnUpdateComments'
	922	'Status = stsDefault')
	923	(
	924	'Component = btnCancelComment'
	925	'Status = stsDefault')
	926	(
	927	'Component = pgeProduct'
	928	'Status = stsDefault')
	929	(
	930	'Component = TabInfo'
	931	'Status = stsDefault')
	932	(
	933	'Component = edtInfo'
	934	'Status = stsDefault')
	935	(
	936	'Component = TabDiag'
	937	'Status = stsDefault')
	938	(
	939	'Component = TabResults'
	940	'Status = stsDefault')
	941	(
	942	'Component = edtResults'
	943	'Status = stsDefault')
	944	(
	945	'Component = pnlFields'
	946	'Status = stsDefault')
	947	(
	948	'Component = cboUrgency'
	949	'Status = stsDefault')
	950	(
	951	'Component = chkConsent'
	952	'Status = stsDefault')
	953	(
	954	'Component = cboSurgery'
	955	'Status = stsDefault')
	956	(
	957	'Component = pnlSelect'
	958	'Status = stsDefault')
	959	(
	960	'Component = pnlDiagnosticTests'
	961	'Status = stsDefault')
	962	(
	963	'Component = cboAvailTest'
	964	'Status = stsDefault')
	965	(
	966	'Component = pnlBloodComponents'
	967	'Status = stsDefault')
	968	(
	969	'Component = cboAvailComp'
	970	'Status = stsDefault')
	971	(
	972	'Component = tQuantity'
	973	'Status = stsDefault')
	974	(
	975	'Component = cboModifiers'
	976	'Status = stsDefault')
	977	(
	978	'Component = GroupBox1'
	979	'Status = stsDefault')
	980	(
	981	'Component = cboQuick'
	982	'Status = stsDefault')
	983	(
	984	'Component = pnlSelectedTests'
	985	'Status = stsDefault')
	986	(
	987	'Component = lvSelectionList'
	988	'Status = stsDefault')
	989	(
	990	'Component = btnRemove'
	991	'Status = stsDefault')
	992	(
	993	'Component = btnRemoveAll'
	994	'Status = stsDefault')
	995	(
	996	'Component = cboReasons'
[1679]	997	'Status = stsDefault')
[829]	998	(
	999	'Component = memDiagComment'
	1000	'Status = stsDefault')
	1001	(
	1002	'Component = cboCollType'
	1003	'Status = stsDefault')
	1004	(
	1005	'Component = cboCollTime'
	1006	'Status = stsDefault')
	1007	(
[1679]	1008	'Component = txtImmedColl'
[829]	1009	'Status = stsDefault')
	1010	(
	1011	'Component = calCollTime'
	1012	'Status = stsDefault')
	1013	(
[1679]	1014	'Component = pnlCollTimeButton'
[829]	1015	'Status = stsDefault')
	1016	(
[1679]	1017	'Component = calWantTime'
[829]	1018	'Status = stsDefault'))
	1019	end
[456]	1020	object dlgLabCollTime: TORDateTimeDlg
[829]	1021	FMDateTime = 2980923.000000000000000000
[456]	1022	DateOnly = False
	1023	RequireTime = True
	1024	Left = 435
[829]	1025	Top = 72
[456]	1026	end
	1027	object ORWanted: TORDateTimeDlg
[829]	1028	FMDateTime = 2980923.000000000000000000
[456]	1029	DateOnly = False
	1030	RequireTime = True
[829]	1031	Left = 343
	1032	Top = 72
[456]	1033	end
	1034	end

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

Download in other formats:

Original Format