Context Navigation

fARTAllgy.dfm@ 1800

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

Rev	Line
[456]	1	inherited frmARTAllergy: TfrmARTAllergy
	2	Tag = 1105
[1679]	3	Left = 274
	4	Top = 150
[456]	5	Caption = 'Enter Allergy or Adverse Reaction'
[830]	6	ClientHeight = 438
	7	ClientWidth = 553
[1679]	8	FormStyle = fsStayOnTop
	9	Position = poDesigned
[456]	10	OnClose = FormClose
	11	OnCloseQuery = FormCloseQuery
	12	OnCreate = FormCreate
[830]	13	ExplicitWidth = 561
[1679]	14	ExplicitHeight = 465
[456]	15	PixelsPerInch = 96
	16	TextHeight = 13
[830]	17	object pnlBase: TORAutoPanel [0]
[456]	18	Left = 0
	19	Top = 0
	20	Width = 553
	21	Height = 438
	22	Align = alClient
	23	BevelOuter = bvNone
	24	TabOrder = 0
	25	object lblAllergyType: TOROffsetLabel
	26	Left = 38
	27	Top = 403
	28	Width = 63
	29	Height = 15
	30	Caption = 'Allergy Type:'
	31	HorzOffset = 2
	32	Transparent = False
	33	VertOffset = 2
	34	Visible = False
	35	WordWrap = False
	36	end
	37	object cmdOK: TButton
	38	Left = 380
	39	Top = 403
	40	Width = 72
	41	Height = 21
[830]	42	Caption = '&OK'
[456]	43	TabOrder = 1
	44	OnClick = cmdOKClick
	45	end
	46	object cmdCancel: TButton
	47	Left = 459
	48	Top = 403
	49	Width = 72
	50	Height = 21
	51	Cancel = True
[830]	52	Caption = '&Cancel'
[456]	53	TabOrder = 2
	54	OnClick = cmdCancelClick
	55	end
	56	object pgAllergy: TPageControl
	57	Left = 4
	58	Top = 17
	59	Width = 529
	60	Height = 371
	61	ActivePage = tabGeneral
	62	MultiLine = True
	63	TabOrder = 0
	64	object tabGeneral: TTabSheet
[830]	65	Caption = 'General'
[456]	66	object lblAgent: TOROffsetLabel
	67	Left = 7
	68	Top = 44
	69	Width = 82
	70	Height = 15
	71	Caption = 'Causative agent:'
	72	HorzOffset = 2
	73	Transparent = False
	74	VertOffset = 2
	75	WordWrap = False
	76	end
[1679]	77	object btnAgent1: TSpeedButton
[456]	78	Left = 175
	79	Top = 62
	80	Width = 19
	81	Height = 19
	82	Caption = '...'
[1679]	83	Enabled = False
[456]	84	Font.Charset = DEFAULT_CHARSET
	85	Font.Color = clWindowText
	86	Font.Height = -11
	87	Font.Name = 'MS Sans Serif'
	88	Font.Style = [fsBold]
	89	ParentFont = False
[1679]	90	OnClick = btnAgent1Click
[456]	91	end
	92	object lblOriginator: TOROffsetLabel
	93	Left = 202
	94	Top = 1
	95	Width = 50
	96	Height = 15
	97	Caption = 'Originator:'
	98	HorzOffset = 2
	99	Transparent = False
	100	VertOffset = 2
	101	WordWrap = False
	102	end
	103	object lblOriginateDate: TOROffsetLabel
	104	Left = 202
	105	Top = 44
	106	Width = 81
	107	Height = 15
	108	Caption = 'Origination Date:'
	109	HorzOffset = 2
	110	Transparent = False
	111	VertOffset = 2
	112	WordWrap = False
	113	end
	114	object Bevel1: TBevel
[1679]	115	Left = 3
	116	Top = 312
[456]	117	Width = 502
[1679]	118	Height = 26
[456]	119	end
	120	object lblSymptoms: TOROffsetLabel
	121	Left = 7
	122	Top = 127
	123	Width = 84
	124	Height = 15
	125	Caption = 'Signs/Symptoms:'
	126	HorzOffset = 2
	127	Transparent = False
	128	VertOffset = 2
	129	WordWrap = False
	130	end
	131	object lblSelectedSymptoms: TOROffsetLabel
	132	Left = 147
	133	Top = 127
	134	Width = 98
	135	Height = 15
	136	Caption = 'Selected Symptoms:'
	137	HorzOffset = 2
	138	Transparent = False
	139	VertOffset = 2
	140	WordWrap = False
	141	end
	142	object lblSeverity: TOROffsetLabel
	143	Left = 362
	144	Top = 81
	145	Width = 43
	146	Height = 15
	147	Caption = 'Severity:'
	148	HorzOffset = 2
	149	Transparent = False
	150	VertOffset = 2
	151	WordWrap = False
	152	end
	153	object lblObservedDate: TOROffsetLabel
	154	Left = 362
	155	Top = 44
	156	Width = 102
	157	Height = 15
	158	Caption = 'Reaction Date/Time:'
	159	HorzOffset = 2
	160	Transparent = False
	161	VertOffset = 2
	162	WordWrap = False
	163	end
	164	object lblComments: TOROffsetLabel
	165	Left = 295
	166	Top = 127
	167	Width = 54
	168	Height = 15
	169	Caption = 'Comments:'
	170	HorzOffset = 2
	171	Transparent = False
	172	VertOffset = 2
	173	WordWrap = False
	174	end
	175	object lblNatureOfReaction: TOROffsetLabel
	176	Left = 7
	177	Top = 82
	178	Width = 95
	179	Height = 15
	180	Caption = 'Nature of Reaction:'
	181	HorzOffset = 2
	182	Transparent = False
	183	VertOffset = 2
	184	WordWrap = False
	185	end
	186	object ckNoKnownAllergies: TCheckBox
	187	Left = 7
	188	Top = 3
	189	Width = 119
	190	Height = 17
[830]	191	Caption = '&No Known Allergies'
[1679]	192	TabOrder = 1
[456]	193	OnClick = ckNoKnownAllergiesClick
	194	end
	195	object btnCurrent: TButton
	196	Left = 7
	197	Top = 24
	198	Width = 114
	199	Height = 21
[830]	200	Caption = '&Active Allergies'
[1679]	201	TabOrder = 2
[456]	202	OnClick = btnCurrentClick
	203	end
	204	object lstAllergy: TORListBox
	205	Left = 7
	206	Top = 61
	207	Width = 166
	208	Height = 21
	209	Color = clBtnFace
	210	ExtendedSelect = False
	211	ItemHeight = 13
	212	ParentShowHint = False
	213	ShowHint = True
[1679]	214	TabOrder = 3
[456]	215	OnClick = lstAllergyClick
	216	ItemTipColor = clWindow
	217	LongList = False
	218	Pieces = '2'
	219	OnChange = ControlChange
	220	end
	221	object cboOriginator: TORComboBox
	222	Left = 202
	223	Top = 16
	224	Width = 139
	225	Height = 21
	226	Style = orcsDropDown
	227	AutoSelect = True
[830]	228	Color = clBtnFace
[456]	229	DropDownCount = 8
[830]	230	Enabled = False
	231	Font.Charset = DEFAULT_CHARSET
	232	Font.Color = clInactiveCaption
	233	Font.Height = -11
	234	Font.Name = 'MS Sans Serif'
	235	Font.Style = []
[456]	236	ItemHeight = 13
	237	ItemTipColor = clWindow
	238	ItemTipEnable = True
	239	ListItemsOnly = True
	240	LongList = True
	241	LookupPiece = 2
	242	MaxLength = 0
[830]	243	ParentFont = False
[456]	244	ParentShowHint = False
	245	Pieces = '2,3'
	246	ShowHint = False
	247	Sorted = False
	248	SynonymChars = '<>'
[1679]	249	TabOrder = 8
	250	TabStop = True
[456]	251	OnChange = ControlChange
	252	OnNeedData = cboOriginatorNeedData
	253	CharsNeedMatch = 1
	254	end
	255	object calOriginated: TORDateBox
	256	Left = 202
	257	Top = 61
	258	Width = 140
	259	Height = 21
	260	Color = clBtnFace
	261	Enabled = False
[1679]	262	TabOrder = 9
[456]	263	OnChange = ControlChange
	264	DateOnly = False
	265	RequireTime = False
	266	end
	267	object ckChartMarked: TCheckBox
	268	Left = 294
[1679]	269	Top = 313
[456]	270	Width = 113
[1679]	271	Height = 22
[830]	272	Caption = '&Marked On Chart'
[456]	273	Checked = True
	274	State = cbChecked
[1679]	275	TabOrder = 22
[456]	276	Visible = False
	277	OnClick = ControlChange
	278	end
	279	object ckIDBand: TCheckBox
	280	Left = 122
[1679]	281	Top = 313
[456]	282	Width = 97
[1679]	283	Height = 22
[830]	284	Caption = '&ID Band Marked'
[1679]	285	TabOrder = 21
[456]	286	OnClick = ControlChange
	287	end
	288	object cboSymptoms: TORComboBox
	289	Left = 7
	290	Top = 141
	291	Width = 135
	292	Height = 152
	293	Style = orcsSimple
	294	AutoSelect = True
[1679]	295	Caption = 'Signs and Symptoms'
[456]	296	Color = clWindow
	297	DropDownCount = 8
	298	ItemHeight = 13
	299	ItemTipColor = clWindow
	300	ItemTipEnable = True
	301	ListItemsOnly = True
	302	LongList = True
	303	LookupPiece = 0
	304	MaxLength = 0
	305	Pieces = '2'
	306	Sorted = False
	307	SynonymChars = '<>'
[1679]	308	TabOrder = 15
[456]	309	OnKeyDown = cboSymptomsKeyDown
	310	OnMouseClick = cboSymptomsMouseClick
	311	OnNeedData = cboSymptomsNeedData
	312	CharsNeedMatch = 1
	313	end
	314	object lstSelectedSymptoms: TORListBox
	315	Left = 147
	316	Top = 141
	317	Width = 136
	318	Height = 122
	319	ExtendedSelect = False
	320	ItemHeight = 13
	321	ParentShowHint = False
	322	ShowHint = True
[1679]	323	TabOrder = 16
	324	Caption = 'Selected Symptoms'
[456]	325	ItemTipColor = clWindow
	326	LongList = False
	327	Pieces = '2,4'
	328	OnChange = lstSelectedSymptomsChange
	329	end
	330	object btnRemove: TButton
[1679]	331	Left = 148
	332	Top = 290
	333	Width = 132
[456]	334	Height = 21
[830]	335	Caption = '&Remove'
[1679]	336	Enabled = False
	337	TabOrder = 18
[456]	338	OnClick = btnRemoveClick
	339	end
	340	object grpObsHist: TRadioGroup
	341	Left = 362
[1679]	342	Top = 0
[456]	343	Width = 147
	344	Height = 38
	345	Columns = 2
	346	Ctl3D = True
	347	Items.Strings = (
[830]	348	'O&bserved'
	349	'&Historical')
[456]	350	ParentCtl3D = False
	351	ParentShowHint = False
	352	ShowHint = True
[1679]	353	TabOrder = 11
	354	TabStop = True
[456]	355	OnClick = grpObsHistClick
	356	end
	357	object cboSeverity: TORComboBox
	358	Left = 362
	359	Top = 96
	360	Width = 127
	361	Height = 21
	362	Style = orcsDropDown
	363	AutoSelect = True
[1679]	364	Caption = 'Severity'
[456]	365	Color = clWindow
	366	DropDownCount = 8
	367	ItemHeight = 13
	368	ItemTipColor = clWindow
	369	ItemTipEnable = True
	370	ListItemsOnly = True
	371	LongList = False
	372	LookupPiece = 0
	373	MaxLength = 0
	374	Pieces = '2'
	375	Sorted = False
	376	SynonymChars = '<>'
[1679]	377	TabOrder = 13
[456]	378	OnChange = ControlChange
	379	OnExit = ControlChange
	380	CharsNeedMatch = 1
	381	end
	382	object calObservedDate: TORDateBox
	383	Left = 362
	384	Top = 61
	385	Width = 145
	386	Height = 21
[1679]	387	TabOrder = 12
[456]	388	OnChange = ControlChange
[1679]	389	OnExit = calObservedDateExit
[456]	390	DateOnly = False
	391	RequireTime = False
	392	end
	393	object cmdPrevObs: TButton
	394	Left = 202
	395	Top = 96
	396	Width = 140
	397	Height = 21
[830]	398	Caption = 'View &Previous Observations'
[1679]	399	TabOrder = 10
[456]	400	OnClick = cmdPrevObsClick
	401	end
	402	object memComments: TRichEdit
	403	Left = 294
	404	Top = 141
	405	Width = 213
	406	Height = 112
[1679]	407	Hint = 'Comments'
[456]	408	Font.Charset = DEFAULT_CHARSET
	409	Font.Color = clWindowText
	410	Font.Height = -11
	411	Font.Name = 'Courier New'
	412	Font.Style = []
	413	ParentFont = False
	414	ScrollBars = ssVertical
[1679]	415	TabOrder = 19
[456]	416	OnExit = memCommentsExit
	417	end
	418	object cmdPrevCmts: TButton
	419	Left = 322
	420	Top = 270
	421	Width = 157
	422	Height = 21
[830]	423	Caption = '&View Previous Comments'
[1679]	424	TabOrder = 20
[456]	425	OnClick = cmdPrevCmtsClick
	426	end
	427	object cboNatureOfReaction: TORComboBox
	428	Left = 7
	429	Top = 96
	430	Width = 190
	431	Height = 21
	432	Style = orcsDropDown
	433	AutoSelect = True
[1679]	434	Caption = 'Nature of Reaction'
[456]	435	Color = clWindow
	436	DropDownCount = 8
	437	ItemHeight = 13
	438	ItemTipColor = clWindow
	439	ItemTipEnable = True
	440	ListItemsOnly = True
	441	LongList = False
	442	LookupPiece = 0
	443	MaxLength = 0
	444	Pieces = '2'
	445	Sorted = False
	446	SynonymChars = '<>'
[1679]	447	TabOrder = 5
[456]	448	OnChange = ControlChange
	449	CharsNeedMatch = 1
	450	end
	451	object btnSevHelp: TORAlignButton
[1679]	452	Left = 488
[456]	453	Top = 96
	454	Width = 21
	455	Height = 21
[1679]	456	Hint = 'Severity Help'
[830]	457	Caption = '&?'
[456]	458	Font.Charset = DEFAULT_CHARSET
	459	Font.Color = clWindowText
	460	Font.Height = -11
	461	Font.Name = 'MS Sans Serif'
	462	Font.Style = [fsBold]
	463	ParentFont = False
[1679]	464	ParentShowHint = False
	465	ShowHint = True
	466	TabOrder = 14
[456]	467	OnClick = btnSevHelpClick
	468	end
[1679]	469	object origlbl508: TVA508StaticText
	470	Name = 'origlbl508'
	471	Left = 294
	472	Top = -5
	473	Width = 47
	474	Height = 15
	475	Alignment = taLeftJustify
	476	Caption = 'Originator'
	477	Enabled = False
	478	TabOrder = 6
	479	ShowAccelChar = True
	480	end
	481	object origdtlbl508: TVA508StaticText
	482	Name = 'origdtlbl508'
	483	Left = 295
	484	Top = 43
	485	Width = 28
	486	Height = 15
	487	Alignment = taLeftJustify
	488	Caption = 'origdt'
	489	Enabled = False
	490	TabOrder = 7
	491	ShowAccelChar = True
	492	end
	493	object SymptomDateBox: TORDateBox
	494	Left = 148
	495	Top = 265
	496	Width = 135
	497	Height = 21
	498	Hint = 'Enter date/time for selected symptom '
	499	Enabled = False
	500	TabOrder = 17
	501	Text = 'NOW'
	502	OnExit = SymptomDateBoxExit
	503	DateOnly = False
	504	RequireTime = False
	505	end
	506	object btnAgent: TButton
	507	Left = 175
	508	Top = 62
	509	Width = 19
	510	Height = 19
	511	Caption = '...'
	512	Font.Charset = DEFAULT_CHARSET
	513	Font.Color = clWindowText
	514	Font.Height = -11
	515	Font.Name = 'MS Sans Serif'
	516	Font.Style = [fsBold]
	517	ParentFont = False
	518	TabOrder = 4
	519	OnClick = btnAgent1Click
	520	end
	521	object NoAllergylbl508: TVA508StaticText
	522	Name = 'NoAllergylbl508'
	523	Left = 10
	524	Top = 8
	525	Width = 6
	526	Height = 6
	527	Alignment = taLeftJustify
	528	Enabled = False
	529	TabOrder = 0
	530	TabStop = True
	531	Visible = False
	532	ShowAccelChar = True
	533	end
[456]	534	end
	535	object tabVerify: TTabSheet
[830]	536	Caption = 'Verify'
[456]	537	ImageIndex = 3
	538	object lblVerifier: TOROffsetLabel
	539	Left = 99
	540	Top = 51
	541	Width = 55
	542	Height = 15
	543	Caption = 'Verified By:'
	544	HorzOffset = 2
	545	Transparent = False
	546	VertOffset = 2
	547	WordWrap = False
	548	end
	549	object lblVerifyDate: TOROffsetLabel
	550	Left = 99
	551	Top = 108
	552	Width = 66
	553	Height = 15
	554	Caption = 'Date Verified:'
	555	HorzOffset = 2
	556	Transparent = False
	557	VertOffset = 2
	558	WordWrap = False
	559	end
	560	object ckVerified: TCheckBox
	561	Left = 99
	562	Top = 18
	563	Width = 69
	564	Height = 17
[830]	565	Caption = '&Verified'
[456]	566	TabOrder = 0
	567	OnClick = ControlChange
	568	end
	569	object cboVerifier: TORComboBox
	570	Left = 99
	571	Top = 65
	572	Width = 138
	573	Height = 21
	574	Style = orcsDropDown
	575	AutoSelect = True
[1679]	576	Caption = 'Verified By'
[456]	577	Color = clWindow
	578	DropDownCount = 8
	579	ItemHeight = 13
	580	ItemTipColor = clWindow
	581	ItemTipEnable = True
	582	ListItemsOnly = True
	583	LongList = True
	584	LookupPiece = 2
	585	MaxLength = 0
	586	Pieces = '2,3'
	587	Sorted = False
	588	SynonymChars = '<>'
	589	TabOrder = 1
	590	OnChange = ControlChange
	591	OnNeedData = cboVerifierNeedData
	592	CharsNeedMatch = 1
	593	end
	594	object calVerifyDate: TORDateBox
	595	Left = 99
	596	Top = 124
	597	Width = 137
	598	Height = 21
	599	TabOrder = 2
	600	OnChange = ControlChange
	601	DateOnly = False
	602	RequireTime = False
[1679]	603	Caption = 'Date Verified'
[456]	604	end
	605	end
	606	object tabEnteredInError: TTabSheet
	607	Caption = 'Entered In Error'
	608	ImageIndex = 2
	609	object lblErrCmts: TLabel
	610	Left = 7
	611	Top = 12
	612	Width = 98
	613	Height = 13
	614	Caption = 'Comments (optional):'
	615	end
	616	object lblEnteredInError: TLabel
	617	Left = 0
	618	Top = 330
	619	Width = 521
	620	Height = 13
	621	Align = alBottom
	622	Alignment = taCenter
	623	Caption = 'EnteredInError'
	624	Font.Charset = DEFAULT_CHARSET
	625	Font.Color = clWindowText
	626	Font.Height = -11
	627	Font.Name = 'MS Sans Serif'
	628	Font.Style = [fsBold]
	629	ParentFont = False
[830]	630	ExplicitWidth = 83
[456]	631	end
	632	object ckEnteredInError: TCheckBox
	633	Left = 286
	634	Top = 5
	635	Width = 203
	636	Height = 17
[830]	637	Caption = '&Mark this allergy as "Entered In Error"'
[456]	638	TabOrder = 0
	639	Visible = False
	640	OnClick = ControlChange
	641	end
	642	object memErrCmts: TRichEdit
	643	Left = 6
	644	Top = 27
	645	Width = 506
	646	Height = 263
	647	Font.Charset = DEFAULT_CHARSET
	648	Font.Color = clWindowText
	649	Font.Height = -11
	650	Font.Name = 'Courier New'
	651	Font.Style = []
	652	ParentFont = False
	653	ScrollBars = ssVertical
	654	TabOrder = 1
[1679]	655	OnExit = memErrCmtsExit
[456]	656	end
	657	end
	658	end
	659	object cboAllergyType: TORComboBox
	660	Left = 38
	661	Top = 418
	662	Width = 190
	663	Height = 21
	664	Style = orcsDropDown
	665	AutoSelect = True
	666	Color = clBtnFace
	667	DropDownCount = 8
	668	Enabled = False
	669	ItemHeight = 13
	670	ItemTipColor = clWindow
	671	ItemTipEnable = True
	672	ListItemsOnly = True
	673	LongList = False
	674	LookupPiece = 0
	675	MaxLength = 0
	676	Pieces = '2'
	677	Sorted = False
	678	SynonymChars = '<>'
	679	TabOrder = 3
	680	Visible = False
	681	OnChange = ControlChange
	682	CharsNeedMatch = 1
	683	end
	684	end
[830]	685	inherited amgrMain: TVA508AccessibilityManager
[1679]	686	Left = 168
	687	Top = 56
[830]	688	Data = (
	689	(
	690	'Component = pnlBase'
	691	'Status = stsDefault')
	692	(
	693	'Component = cmdOK'
	694	'Status = stsDefault')
	695	(
	696	'Component = cmdCancel'
	697	'Status = stsDefault')
	698	(
	699	'Component = pgAllergy'
	700	'Status = stsDefault')
	701	(
	702	'Component = tabGeneral'
[1679]	703	'Property = Caption'
	704	'Status = stsOK')
[830]	705	(
	706	'Component = ckNoKnownAllergies'
	707	'Status = stsDefault')
	708	(
	709	'Component = btnCurrent'
	710	'Status = stsDefault')
	711	(
	712	'Component = lstAllergy'
[1679]	713	'Text = Causative Agent'
	714	'Status = stsOK')
[830]	715	(
	716	'Component = cboOriginator'
	717	'Status = stsDefault')
	718	(
	719	'Component = calOriginated'
	720	'Status = stsDefault')
	721	(
	722	'Component = ckChartMarked'
	723	'Status = stsDefault')
	724	(
	725	'Component = ckIDBand'
	726	'Status = stsDefault')
	727	(
	728	'Component = cboSymptoms'
[1679]	729
	730	'Text = Signs and Symptoms. Press enter to select the sign/sympto' +
	731	'm.'
	732	'Status = stsOK')
[830]	733	(
	734	'Component = lstSelectedSymptoms'
[1679]	735	'Text = Selected Symptoms'
	736	'Status = stsOK')
[830]	737	(
	738	'Component = btnRemove'
	739	'Status = stsDefault')
	740	(
	741	'Component = grpObsHist'
[1679]	742	'Text = Observed or Historical Allergy Group Box'
	743	'Status = stsOK')
[830]	744	(
	745	'Component = cboSeverity'
	746	'Status = stsDefault')
	747	(
	748	'Component = calObservedDate'
[1679]	749	'Text = Reaction Date/Time'
	750	'Status = stsOK')
[830]	751	(
	752	'Component = cmdPrevObs'
	753	'Status = stsDefault')
	754	(
	755	'Component = memComments'
	756	'Status = stsDefault')
	757	(
	758	'Component = cmdPrevCmts'
	759	'Status = stsDefault')
	760	(
	761	'Component = cboNatureOfReaction'
	762	'Status = stsDefault')
	763	(
	764	'Component = btnSevHelp'
[1679]	765	'Text = Severity Help'
	766	'Status = stsOK')
[830]	767	(
	768	'Component = tabVerify'
[1679]	769	'Property = Caption'
	770	'Status = stsOK')
[830]	771	(
	772	'Component = ckVerified'
	773	'Status = stsDefault')
	774	(
	775	'Component = cboVerifier'
	776	'Status = stsDefault')
	777	(
	778	'Component = calVerifyDate'
	779	'Status = stsDefault')
	780	(
	781	'Component = tabEnteredInError'
[1679]	782	'Property = Caption'
	783	'Status = stsOK')
[830]	784	(
	785	'Component = ckEnteredInError'
	786	'Status = stsDefault')
	787	(
	788	'Component = memErrCmts'
[1679]	789	'Text = Comments (optional)'
	790	'Status = stsOK')
[830]	791	(
	792	'Component = cboAllergyType'
	793	'Status = stsDefault')
	794	(
	795	'Component = frmARTAllergy'
[1679]	796	'Status = stsDefault')
	797	(
	798	'Component = origlbl508'
	799	'Status = stsDefault')
	800	(
	801	'Component = origdtlbl508'
	802	'Status = stsDefault')
	803	(
	804	'Component = SymptomDateBox'
	805	'Property = Hint'
	806	'Status = stsOK')
	807	(
	808	'Component = btnAgent'
	809	'Text = Causative Agent Reselect'
	810	'Status = stsOK')
	811	(
	812	'Component = NoAllergylbl508'
	813	'Text = No Known Allergies checkbox disabled'
	814	'Status = stsOK'))
[830]	815	end
[1679]	816	object VA508ComponentAccessibility1: TVA508ComponentAccessibility
	817	Component = memComments
	818	OnStateQuery = VA508ComponentAccessibility1StateQuery
	819	Left = 408
	820	Top = 216
[456]	821	end
[1679]	822	object VA508ComponentAccessibility2: TVA508ComponentAccessibility
	823	Component = lstAllergy
	824	OnComponentNameQuery = VA508ComponentAccessibility2ComponentNameQuery
	825	OnCaptionQuery = VA508ComponentAccessibility2CaptionQuery
	826	OnValueQuery = VA508ComponentAccessibility2ValueQuery
	827	OnStateQuery = VA508ComponentAccessibility2StateQuery
	828	OnInstructionsQuery = VA508ComponentAccessibility2InstructionsQuery
	829	OnItemInstructionsQuery = VA508ComponentAccessibility2ItemInstructionsQuery
	830	OnItemQuery = VA508ComponentAccessibility2ItemQuery
	831	Left = 104
	832	Top = 104
	833	end
	834	object VA508ComponentAccessibility3: TVA508ComponentAccessibility
	835	Component = memErrCmts
	836	OnStateQuery = VA508ComponentAccessibility3StateQuery
	837	Left = 264
	838	Top = 216
	839	end
[456]	840	end

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

Download in other formats:

Original Format