Context Navigation

fSurgery.dfm@ 1727

Last change on this file since 1727 was 1704, checked in by healthsevak, 10 years ago
Implemented the OpenSource based spell check feature
File size: 25.6 KB

Rev	Line
[456]	1	inherited frmSurgery: TfrmSurgery
[830]	2	Left = 468
	3	Top = 224
[456]	4	Align = alClient
	5	Caption = 'Surgery Page'
[1704]	6	ClientHeight = 403
[830]	7	ClientWidth = 712
[456]	8	HelpFile = 'overvw'
	9	Menu = mnuNotes
	10	OnDestroy = FormDestroy
[830]	11	ExplicitWidth = 720
[1704]	12	ExplicitHeight = 457
[456]	13	PixelsPerInch = 96
	14	TextHeight = 13
	15	inherited shpPageBottom: TShape
[1704]	16	Top = 398
[456]	17	Width = 712
[830]	18	ExplicitTop = 358
	19	ExplicitWidth = 712
[456]	20	end
	21	inherited sptHorz: TSplitter
	22	Left = 64
[1704]	23	Height = 398
[456]	24	AutoSnap = False
	25	OnCanResize = sptHorzCanResize
[830]	26	ExplicitLeft = 64
	27	ExplicitHeight = 358
[456]	28	end
	29	inherited pnlLeft: TPanel
	30	Width = 64
[1704]	31	Height = 398
[830]	32	ExplicitWidth = 64
	33	ExplicitHeight = 358
[456]	34	object lblCases: TOROffsetLabel
	35	Left = 0
	36	Top = 0
	37	Width = 64
	38	Height = 19
	39	Align = alTop
	40	Caption = 'Last 100 Surgery Cases'
	41	HorzOffset = 2
	42	ParentShowHint = False
	43	ShowHint = True
	44	Transparent = True
	45	VertOffset = 6
	46	WordWrap = False
	47	end
	48	object lblSpace1: TLabel
	49	Left = 0
[1704]	50	Top = 353
[456]	51	Width = 64
	52	Height = 3
	53	Align = alBottom
	54	AutoSize = False
	55	Caption = ' '
[1704]	56	ExplicitTop = 313
[456]	57	end
	58	object cmdNewNote: TORAlignButton
	59	Left = 0
[1704]	60	Top = 356
[456]	61	Width = 64
	62	Height = 21
[830]	63	Align = alBottom
[456]	64	Caption = 'New Report'
	65	TabOrder = 0
	66	Visible = False
	67	OnClick = cmdNewNoteClick
[1704]	68	ExplicitTop = 316
[456]	69	end
	70	object cmdPCE: TORAlignButton
	71	Left = 0
[1704]	72	Top = 377
[456]	73	Width = 64
	74	Height = 21
[830]	75	Align = alBottom
[456]	76	Caption = 'Encounter'
	77	TabOrder = 1
	78	Visible = False
	79	OnClick = cmdPCEClick
[1704]	80	ExplicitTop = 337
[456]	81	end
	82	object pnlDrawers: TPanel
	83	Left = 0
	84	Top = 19
	85	Width = 64
[1704]	86	Height = 334
[456]	87	Align = alClient
	88	BevelOuter = bvNone
	89	TabOrder = 2
[1704]	90	ExplicitHeight = 294
[456]	91	object splDrawers: TSplitter
	92	Left = 0
[1704]	93	Top = 331
[456]	94	Width = 64
	95	Height = 3
	96	Cursor = crVSplit
	97	Align = alBottom
[1704]	98	ExplicitTop = 291
[456]	99	end
	100	object lstNotes: TORListBox
	101	Left = 14
	102	Top = 289
	103	Width = 121
	104	Height = 97
	105	ItemHeight = 13
	106	ParentShowHint = False
	107	ShowHint = True
	108	TabOrder = 1
	109	Visible = False
	110	OnClick = lstNotesClick
	111	ItemTipColor = clWindow
	112	LongList = False
	113	end
	114	object tvSurgery: TORTreeView
	115	Left = 0
	116	Top = 0
	117	Width = 64
[1704]	118	Height = 331
[456]	119	Align = alClient
	120	Constraints.MinWidth = 30
	121	DragMode = dmAutomatic
	122	HideSelection = False
[830]	123	Images = dmodShared.imgSurgery
[456]	124	Indent = 19
	125	PopupMenu = popNoteList
	126	ReadOnly = True
[830]	127	StateImages = dmodShared.imgImages
[456]	128	TabOrder = 0
	129	OnChange = tvSurgeryChange
	130	OnCollapsed = tvSurgeryCollapsed
	131	OnExpanded = tvSurgeryExpanded
	132	Caption = 'Last 100 Surgery Cases'
	133	NodePiece = 0
	134	ShortNodeCaptions = True
[1704]	135	ExplicitHeight = 291
[456]	136	end
	137	end
	138	end
	139	inherited pnlRight: TPanel
	140	Left = 68
	141	Width = 644
[1704]	142	Height = 398
[830]	143	ExplicitLeft = 68
	144	ExplicitWidth = 644
	145	ExplicitHeight = 358
[456]	146	object sptVert: TSplitter
	147	Left = 0
[1704]	148	Top = 349
[456]	149	Width = 644
	150	Height = 4
	151	Cursor = crVSplit
	152	Align = alBottom
[1704]	153	ExplicitTop = 309
[456]	154	end
	155	object pnlRead: TPanel
	156	Left = 0
	157	Top = 0
	158	Width = 644
[1704]	159	Height = 349
[456]	160	Align = alClient
	161	BevelOuter = bvNone
	162	TabOrder = 0
[1704]	163	ExplicitHeight = 309
[456]	164	object lblTitle: TOROffsetLabel
	165	Left = 0
	166	Top = 0
	167	Width = 644
	168	Height = 19
	169	Align = alTop
	170	Caption = 'No Surgery Cases Found'
	171	Font.Charset = DEFAULT_CHARSET
	172	Font.Color = clWindowText
	173	Font.Height = -11
	174	Font.Name = 'MS Sans Serif'
	175	Font.Style = []
	176	HorzOffset = 2
	177	ParentFont = False
	178	ParentShowHint = False
	179	ShowHint = True
	180	Transparent = False
	181	VertOffset = 6
	182	WordWrap = False
	183	end
	184	object memSurgery: TRichEdit
	185	Left = 0
	186	Top = 19
	187	Width = 644
[1704]	188	Height = 330
[456]	189	Align = alClient
	190	Color = clCream
	191	Ctl3D = True
	192	Font.Charset = DEFAULT_CHARSET
	193	Font.Color = clWindowText
	194	Font.Height = -11
	195	Font.Name = 'Courier New'
	196	Font.Style = []
	197	Lines.Strings = (
	198
	199	'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
	200	'mnopqrstuvwxyz12')
	201	ParentCtl3D = False
	202	ParentFont = False
	203	PlainText = True
	204	PopupMenu = popNoteMemo
	205	ReadOnly = True
	206	ScrollBars = ssBoth
	207	TabOrder = 0
	208	WantReturns = False
	209	WordWrap = False
[1704]	210	ExplicitHeight = 290
[456]	211	end
	212	end
	213	object memPCEShow: TRichEdit
	214	Left = 0
[1704]	215	Top = 353
[456]	216	Width = 644
	217	Height = 45
	218	Align = alBottom
	219	Color = clCream
	220	Lines.Strings = (
	221	'<No encounter information entered>')
	222	PlainText = True
	223	ReadOnly = True
	224	ScrollBars = ssVertical
	225	TabOrder = 2
	226	WantReturns = False
[1704]	227	ExplicitTop = 313
[456]	228	end
	229	object pnlWrite: TPanel
	230	Left = 0
	231	Top = 0
	232	Width = 644
[1704]	233	Height = 349
[456]	234	Align = alClient
	235	BevelOuter = bvNone
	236	TabOrder = 1
	237	Visible = False
	238	OnResize = pnlWriteResize
[1704]	239	ExplicitHeight = 309
[456]	240	object memNewNote: TRichEdit
	241	Left = 0
	242	Top = 67
	243	Width = 644
[1704]	244	Height = 282
[456]	245	Align = alClient
	246	Font.Charset = DEFAULT_CHARSET
	247	Font.Color = clWindowText
	248	Font.Height = -11
	249	Font.Name = 'Courier New'
	250	Font.Style = []
[1693]	251	MaxLength = 2147483645
[456]	252	ParentFont = False
	253	PlainText = True
	254	PopupMenu = popNoteMemo
	255	ScrollBars = ssBoth
	256	TabOrder = 0
	257	WantTabs = True
	258	OnChange = memNewNoteChange
	259	OnKeyDown = memNewNoteKeyDown
[1704]	260	ExplicitHeight = 242
[456]	261	end
	262	object pnlFields: TPanel
	263	Left = 0
	264	Top = 0
	265	Width = 644
	266	Height = 67
	267	Align = alTop
	268	BevelOuter = bvNone
	269	TabOrder = 1
	270	OnResize = pnlFieldsResize
	271	DesignSize = (
	272	644
	273	67)
	274	object bvlNewTitle: TBevel
	275	Left = 5
	276	Top = 5
	277	Width = 117
	278	Height = 15
	279	end
	280	object lblRefDate: TLabel
	281	Left = 237
	282	Top = 6
	283	Width = 97
	284	Height = 13
	285	Hint = 'Press "Change..." to change date/time of note.'
	286	Alignment = taCenter
	287	Caption = 'Oct 20,1999@15:30'
	288	ParentShowHint = False
	289	ShowAccelChar = False
	290	ShowHint = True
	291	end
	292	object lblAuthor: TLabel
	293	Left = 426
	294	Top = 6
	295	Width = 148
	296	Height = 13
	297	Hint = 'Press "Change..." to select a different author.'
	298	Alignment = taRightJustify
	299	Anchors = [akTop, akRight]
	300	Caption = 'Winchester,Charles Emerson III'
	301	ParentShowHint = False
	302	ShowAccelChar = False
	303	ShowHint = True
	304	end
	305	object lblVisit: TLabel
	306	Left = 6
	307	Top = 21
	308	Width = 200
	309	Height = 13
	310	Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
	311	ShowAccelChar = False
	312	end
	313	object lblCosigner: TLabel
	314	Left = 331
	315	Top = 21
	316	Width = 243
	317	Height = 13
	318	Hint = 'Press "Change..." to select a different cosigner.'
	319	Alignment = taRightJustify
	320	Anchors = [akTop, akRight]
	321	AutoSize = False
	322	Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
	323	ParentShowHint = False
	324	ShowAccelChar = False
	325	ShowHint = True
	326	end
	327	object lblSubject: TLabel
	328	Left = 6
	329	Top = 43
	330	Width = 39
	331	Height = 13
	332	Caption = 'Subject:'
	333	end
	334	object lblNewTitle: TLabel
	335	Left = 6
	336	Top = 6
	337	Width = 115
	338	Height = 13
	339	Hint = 'Press "Change..." to select a different title.'
	340	Caption = ' General Medicine Note '
	341	Color = clCream
	342	Font.Charset = DEFAULT_CHARSET
	343	Font.Color = clWindowText
	344	Font.Height = -11
	345	Font.Name = 'MS Sans Serif'
	346	Font.Style = []
	347	ParentColor = False
	348	ParentFont = False
	349	ParentShowHint = False
	350	ShowAccelChar = False
	351	ShowHint = True
	352	end
	353	object cmdChange: TButton
	354	Left = 580
	355	Top = 6
	356	Width = 58
	357	Height = 21
	358	Anchors = [akTop, akRight]
	359	Caption = 'Change...'
	360	TabOrder = 0
	361	OnClick = cmdChangeClick
	362	end
	363	object txtSubject: TCaptionEdit
	364	Left = 48
	365	Top = 40
	366	Width = 590
	367	Height = 21
	368	Hint = 'Subject is limited to a maximum of 80 characters.'
	369	Anchors = [akLeft, akTop, akRight]
	370	MaxLength = 80
	371	ParentShowHint = False
	372	ShowHint = True
	373	TabOrder = 1
	374	Text = 'txtSubject'
	375	Caption = 'Subject'
	376	end
	377	end
	378	end
	379	end
[830]	380	inherited amgrMain: TVA508AccessibilityManager
	381	Data = (
	382	(
	383	'Component = cmdNewNote'
	384	'Status = stsDefault')
	385	(
	386	'Component = cmdPCE'
	387	'Status = stsDefault')
	388	(
	389	'Component = pnlDrawers'
	390	'Status = stsDefault')
	391	(
	392	'Component = lstNotes'
	393	'Status = stsDefault')
	394	(
	395	'Component = tvSurgery'
	396	'Status = stsDefault')
	397	(
	398	'Component = pnlRead'
	399	'Status = stsDefault')
	400	(
	401	'Component = memSurgery'
	402	'Status = stsDefault')
	403	(
	404	'Component = memPCEShow'
	405	'Status = stsDefault')
	406	(
	407	'Component = pnlWrite'
	408	'Status = stsDefault')
	409	(
	410	'Component = memNewNote'
	411	'Status = stsDefault')
	412	(
	413	'Component = pnlFields'
	414	'Status = stsDefault')
	415	(
	416	'Component = cmdChange'
	417	'Status = stsDefault')
	418	(
	419	'Component = txtSubject'
	420	'Status = stsDefault')
	421	(
	422	'Component = pnlLeft'
	423	'Status = stsDefault')
	424	(
	425	'Component = pnlRight'
	426	'Status = stsDefault')
	427	(
	428	'Component = frmSurgery'
	429	'Status = stsDefault'))
	430	end
[456]	431	object mnuNotes: TMainMenu
	432	Left = 600
	433	Top = 304
	434	object mnuView: TMenuItem
	435	Caption = '&View'
	436	GroupIndex = 3
	437	object mnuViewChart: TMenuItem
	438	Caption = 'Chart &Tab'
	439	object mnuChartCover: TMenuItem
	440	Tag = 1
	441	Caption = 'Cover &Sheet'
	442	ShortCut = 16467
	443	OnClick = mnuChartTabClick
	444	end
	445	object mnuChartProbs: TMenuItem
	446	Tag = 2
	447	Caption = '&Problem List'
	448	ShortCut = 16464
	449	OnClick = mnuChartTabClick
	450	end
	451	object mnuChartMeds: TMenuItem
	452	Tag = 3
	453	Caption = '&Medications'
	454	ShortCut = 16461
	455	OnClick = mnuChartTabClick
	456	end
	457	object mnuChartOrders: TMenuItem
	458	Tag = 4
	459	Caption = '&Orders'
	460	ShortCut = 16463
	461	OnClick = mnuChartTabClick
	462	end
	463	object mnuChartNotes: TMenuItem
	464	Tag = 6
	465	Caption = 'Progress &Notes'
	466	ShortCut = 16462
	467	OnClick = mnuChartTabClick
	468	end
	469	object mnuChartCslts: TMenuItem
	470	Tag = 7
	471	Caption = 'Consul&ts'
	472	ShortCut = 16468
	473	OnClick = mnuChartTabClick
	474	end
	475	object mnuChartSurgery: TMenuItem
	476	Tag = 11
	477	Caption = 'S&urgery'
	478	ShortCut = 16469
	479	OnClick = mnuChartTabClick
	480	end
	481	object mnuChartDCSumm: TMenuItem
	482	Tag = 8
	483	Caption = '&Discharge Summaries'
	484	ShortCut = 16452
	485	OnClick = mnuChartTabClick
	486	end
	487	object mnuChartLabs: TMenuItem
	488	Tag = 9
	489	Caption = '&Laboratory'
	490	ShortCut = 16460
	491	OnClick = mnuChartTabClick
	492	end
	493	object mnuChartReports: TMenuItem
	494	Tag = 10
	495	Caption = '&Reports'
	496	ShortCut = 16466
	497	OnClick = mnuChartTabClick
	498	end
	499	end
	500	object mnuViewInformation: TMenuItem
	501	Caption = 'Information'
	502	OnClick = mnuViewInformationClick
	503	object mnuViewDemo: TMenuItem
	504	Tag = 1
	505	Caption = 'De&mographics...'
	506	OnClick = ViewInfo
	507	end
	508	object mnuViewVisits: TMenuItem
	509	Tag = 2
	510	Caption = 'Visits/Pr&ovider...'
	511	OnClick = ViewInfo
	512	end
	513	object mnuViewPrimaryCare: TMenuItem
	514	Tag = 3
	515	Caption = 'Primary &Care...'
	516	OnClick = ViewInfo
	517	end
	518	object mnuViewMyHealtheVet: TMenuItem
	519	Tag = 4
	520	Caption = 'MyHealthe&Vet...'
	521	OnClick = ViewInfo
	522	end
	523	object mnuInsurance: TMenuItem
	524	Tag = 5
	525	Caption = '&Insurance...'
	526	OnClick = ViewInfo
	527	end
	528	object mnuViewFlags: TMenuItem
	529	Tag = 6
	530	Caption = '&Flags...'
	531	OnClick = ViewInfo
	532	end
	533	object mnuViewRemoteData: TMenuItem
	534	Tag = 7
	535	Caption = 'Remote &Data...'
	536	OnClick = ViewInfo
	537	end
	538	object mnuViewReminders: TMenuItem
	539	Tag = 8
	540	Caption = '&Reminders...'
	541	Enabled = False
	542	OnClick = ViewInfo
	543	end
	544	object mnuViewPostings: TMenuItem
	545	Tag = 9
	546	Caption = '&Postings...'
	547	OnClick = ViewInfo
	548	end
	549	end
	550	object Z3: TMenuItem
	551	Caption = '-'
	552	end
	553	object mnuViewAll: TMenuItem
	554	Tag = 1
	555	Caption = '&All Cases'
	556	OnClick = mnuViewClick
	557	end
	558	object mnuViewBySurgeon: TMenuItem
	559	Tag = 4
	560	Caption = 'Cases by &Surgeon'
	561	Enabled = False
	562	Visible = False
	563	OnClick = mnuViewClick
	564	end
	565	object mnuViewByDate: TMenuItem
	566	Tag = 5
	567	Caption = 'Cases by Date &Range'
	568	Enabled = False
	569	Visible = False
	570	OnClick = mnuViewClick
	571	end
	572	object mnuViewUncosigned: TMenuItem
	573	Tag = 3
	574	Caption = 'Un&cosigned Notes'
	575	Enabled = False
	576	Visible = False
	577	OnClick = mnuViewClick
	578	end
	579	object mnuViewUnsigned: TMenuItem
	580	Tag = 2
	581	Caption = '&Unsigned Notes'
	582	Enabled = False
	583	Visible = False
	584	OnClick = mnuViewClick
	585	end
	586	object mnuViewCustom: TMenuItem
	587	Tag = 6
	588	Caption = 'Custo&m View'
	589	OnClick = mnuViewClick
	590	end
	591	object N1: TMenuItem
	592	Caption = '-'
	593	Enabled = False
	594	end
	595	object mnuViewSaveAsDefault: TMenuItem
	596	Caption = 'Sa&ve as Default View'
	597	OnClick = mnuViewSaveAsDefaultClick
	598	end
	599	object ReturntoDefault1: TMenuItem
	600	Caption = 'Return to De&fault View'
	601	OnClick = mnuViewReturntoDefaultClick
	602	end
	603	object Z1: TMenuItem
	604	Caption = '-'
	605	Enabled = False
	606	end
	607	object mnuViewDetail: TMenuItem
	608	Caption = '&Details'
	609	OnClick = mnuViewDetailClick
	610	end
	611	object N6: TMenuItem
	612	Caption = '-'
	613	Enabled = False
	614	end
	615	object mnuIconLegend: TMenuItem
	616	Caption = 'Icon Legend'
	617	OnClick = mnuIconLegendClick
	618	end
	619	end
	620	object mnuAct: TMenuItem
	621	Caption = '&Action'
	622	GroupIndex = 4
	623	object mnuActNew: TMenuItem
	624	Caption = '&New Report'
	625	Hint = 'Creates a new operative summary'
	626	ShortCut = 24654
	627	Visible = False
	628	OnClick = mnuActNewClick
	629	end
	630	object mnuActAddend: TMenuItem
	631	Caption = '&Make Addendum...'
	632	Hint = 'Makes an addendum for the currently selected report'
	633	ShortCut = 24653
	634	OnClick = mnuActAddendClick
	635	end
	636	object mnuActAddIDEntry: TMenuItem
	637	Caption = 'Add Ne&w Entry to Interdisciplinary Note'
	638	Enabled = False
	639	Visible = False
	640	end
	641	object mnuActDetachFromIDParent: TMenuItem
	642	Caption = 'Detac&h from Interdisciplinary Note'
	643	Enabled = False
	644	Visible = False
	645	end
	646	object Z4: TMenuItem
	647	Caption = '-'
	648	Enabled = False
	649	end
	650	object mnuActChange: TMenuItem
	651	Caption = '&Change Title...'
	652	ShortCut = 24643
	653	OnClick = mnuActChangeClick
	654	end
	655	object mnuActLoadBoiler: TMenuItem
	656	Caption = 'Reload &Boilerplate Text'
	657	OnClick = mnuActLoadBoilerClick
	658	end
	659	object Z2: TMenuItem
	660	Caption = '-'
	661	Enabled = False
	662	end
	663	object mnuActSignList: TMenuItem
	664	Caption = 'Add to Signature &List'
	665	Hint =
	666	'Adds the currently displayed report to list of things to be sign' +
	667	'ed'
	668	OnClick = mnuActSignListClick
	669	end
	670	object mnuActDelete: TMenuItem
	671	Caption = '&Delete Report'
	672	ShortCut = 24644
	673	OnClick = mnuActDeleteClick
	674	end
	675	object mnuActEdit: TMenuItem
	676	Caption = '&Edit Report...'
	677	ShortCut = 24645
	678	OnClick = mnuActEditClick
	679	end
	680	object mnuActSave: TMenuItem
	681	Caption = 'S&ave without Signature'
	682	Hint = 'Saves the report that is being edited'
	683	ShortCut = 24641
	684	OnClick = mnuActSaveClick
	685	end
	686	object mnuActSign: TMenuItem
	687	Caption = 'Si&gn Report Now...'
	688	ShortCut = 24647
	689	OnClick = mnuActSignClick
	690	end
	691	object mnuActIdentifyAddlSigners: TMenuItem
	692	Caption = '&Identify Additional Signers'
	693	OnClick = mnuActIdentifyAddlSignersClick
	694	end
	695	end
	696	object mnuOptions: TMenuItem
	697	Caption = '&Options'
	698	GroupIndex = 4
	699	OnClick = mnuOptionsClick
	700	object mnuEditTemplates: TMenuItem
	701	Caption = 'Edit &Templates...'
	702	Enabled = False
	703	OnClick = mnuEditTemplatesClick
	704	end
	705	object mnuNewTemplate: TMenuItem
	706	Caption = 'Create &New Template...'
	707	Enabled = False
	708	OnClick = mnuNewTemplateClick
	709	end
	710	object N2: TMenuItem
	711	Caption = '-'
	712	Enabled = False
	713	end
	714	object mnuEditSharedTemplates: TMenuItem
	715	Caption = 'Edit &Shared Templates...'
	716	Enabled = False
	717	OnClick = mnuEditSharedTemplatesClick
	718	end
	719	object mnuNewSharedTemplate: TMenuItem
	720	Caption = '&Create New Shared Template...'
	721	Enabled = False
	722	OnClick = mnuNewSharedTemplateClick
	723	end
	724	object N3: TMenuItem
	725	Caption = '-'
	726	Enabled = False
	727	OnClick = cmdChangeClick
	728	end
	729	object mnuEditDialgFields: TMenuItem
	730	Caption = 'Edit Template &Fields'
	731	Enabled = False
	732	OnClick = mnuEditDialgFieldsClick
	733	end
	734	end
	735	end
	736	object popNoteMemo: TPopupMenu
	737	OnPopup = popNoteMemoPopup
	738	Left = 540
	739	Top = 304
	740	object popNoteMemoCut: TMenuItem
	741	Caption = 'Cu&t'
	742	ShortCut = 16472
	743	OnClick = popNoteMemoCutClick
	744	end
	745	object popNoteMemoCopy: TMenuItem
	746	Caption = '&Copy'
	747	ShortCut = 16451
	748	OnClick = popNoteMemoCopyClick
	749	end
	750	object popNoteMemoPaste: TMenuItem
	751	Caption = '&Paste'
	752	ShortCut = 16470
	753	OnClick = popNoteMemoPasteClick
	754	end
	755	object popNoteMemoPaste2: TMenuItem
	756	Caption = 'Paste2'
	757	ShortCut = 8237
	758	Visible = False
	759	OnClick = popNoteMemoPasteClick
	760	end
	761	object popNoteMemoReformat: TMenuItem
	762	Caption = 'Reformat Paragraph'
	763	ShortCut = 24658
	764	OnClick = popNoteMemoReformatClick
	765	end
	766	object popNoteMemoSaveContinue: TMenuItem
	767	Caption = 'Save && Continue Editing'
	768	ShortCut = 24659
	769	Visible = False
	770	OnClick = popNoteMemoSaveContinueClick
	771	end
	772	object Z11: TMenuItem
	773	Caption = '-'
	774	end
	775	object popNoteMemoFind: TMenuItem
	776	Caption = '&Find in Selected Document'
	777	OnClick = popNoteMemoFindClick
	778	end
	779	object popNoteMemoReplace: TMenuItem
	780	Caption = '&Replace Text'
	781	OnClick = popNoteMemoReplaceClick
	782	end
	783	object N7: TMenuItem
	784	Caption = '-'
	785	OnClick = cmdChangeClick
	786	end
	787	object popNoteMemoGrammar: TMenuItem
	788	Caption = 'Check &Grammar'
	789	OnClick = popNoteMemoGrammarClick
	790	end
[1704]	791	object popNoteMemoSpellOpenSource: TMenuItem
	792	Caption = 'Chec&k Spelling (OpenSource based)'
	793	ShortCut = 118
	794	OnClick = popNoteMemoSpellClick
	795	end
[456]	796	object popNoteMemoSpell: TMenuItem
[1704]	797	Caption = 'C&heck Spelling (MS Office based)'
[456]	798	OnClick = popNoteMemoSpellClick
	799	end
	800	object Z12: TMenuItem
	801	Caption = '-'
	802	end
	803	object popNoteMemoTemplate: TMenuItem
	804	Caption = 'Copy into New &Template'
	805	OnClick = popNoteMemoTemplateClick
	806	end
	807	object Z10: TMenuItem
	808	Caption = '-'
	809	end
	810	object popNoteMemoSignList: TMenuItem
	811	Caption = 'Add to Signature &List'
	812	OnClick = mnuActSignListClick
	813	end
	814	object popNoteMemoDelete: TMenuItem
	815	Caption = '&Delete Report'
	816	OnClick = mnuActDeleteClick
	817	end
	818	object popNoteMemoEdit: TMenuItem
	819	Caption = '&Edit Report'
	820	OnClick = mnuActEditClick
	821	end
	822	object popNoteMemoAddend: TMenuItem
	823	Caption = '&Make Addendum'
	824	OnClick = mnuActAddendClick
	825	end
	826	object popNoteMemoSave: TMenuItem
	827	Caption = 'S&ave without Signature'
	828	OnClick = mnuActSaveClick
	829	end
	830	object popNoteMemoSign: TMenuItem
	831	Caption = '&Sign Report Now'
	832	OnClick = mnuActSignClick
	833	end
	834	object popNoteMemoAddlSign: TMenuItem
	835	Caption = '&Identify Additional Signers'
	836	OnClick = popNoteMemoAddlSignClick
	837	end
	838	object N8: TMenuItem
	839	Caption = '-'
	840	end
	841	object popNoteMemoPreview: TMenuItem
	842	Caption = 'Previe&w/Print Current Template'
	843	ShortCut = 16471
	844	OnClick = popNoteMemoPreviewClick
	845	end
	846	object popNoteMemoInsTemplate: TMenuItem
	847	Caption = 'Insert Current Template'
	848	ShortCut = 16429
	849	OnClick = popNoteMemoInsTemplateClick
	850	end
	851	object popNoteMemoEncounter: TMenuItem
	852	Caption = 'Edit Encounter Information'
	853	ShortCut = 16453
	854	OnClick = cmdPCEClick
	855	end
	856	end
	857	object popNoteList: TPopupMenu
	858	OnPopup = popNoteListPopup
	859	Left = 500
	860	Top = 305
	861	object popNoteListAll: TMenuItem
	862	Tag = 1
	863	Caption = '&All cases'
	864	OnClick = mnuViewClick
	865	end
	866	object popNoteListBySurgeon: TMenuItem
	867	Tag = 4
	868	Caption = 'Cases by &Surgeon'
	869	Enabled = False
	870	Visible = False
	871	OnClick = mnuViewClick
	872	end
	873	object popNoteListByDate: TMenuItem
	874	Tag = 5
	875	Caption = 'Cases by Date &Range'
	876	Enabled = False
	877	OnClick = mnuViewClick
	878	end
	879	object popNoteListUncosigned: TMenuItem
	880	Tag = 3
	881	Caption = 'Un&cosigned Notes'
	882	Enabled = False
	883	Visible = False
	884	OnClick = mnuViewClick
	885	end
	886	object popNoteListUnsigned: TMenuItem
	887	Tag = 2
	888	Caption = '&Unsigned Notes'
	889	Enabled = False
	890	Visible = False
	891	OnClick = mnuViewClick
	892	end
	893	object popNoteListCustom: TMenuItem
	894	Tag = 6
	895	Caption = 'Cus&tom List'
	896	OnClick = mnuViewClick
	897	end
	898	object N4: TMenuItem
	899	Caption = '-'
	900	end
	901	object popNoteListExpandSelected: TMenuItem
	902	Caption = '&Expand Selected'
	903	OnClick = popNoteListExpandSelectedClick
	904	end
	905	object popNoteListExpandAll: TMenuItem
	906	Caption = 'E&xpand All'
	907	OnClick = popNoteListExpandAllClick
	908	end
	909	object popNoteListCollapseSelected: TMenuItem
	910	Caption = 'C&ollapse Selected'
	911	OnClick = popNoteListCollapseSelectedClick
	912	end
	913	object popNoteListCollapseAll: TMenuItem
	914	Caption = 'Co&llapse All'
	915	OnClick = popNoteListCollapseAllClick
	916	end
	917	object N5: TMenuItem
	918	Caption = '-'
	919	end
	920	object popNoteListAddIDEntry: TMenuItem
	921	Caption = 'Add Ne&w Entry to ID Note'
	922	Enabled = False
	923	end
	924	object popNoteListDetachFromIDParent: TMenuItem
	925	Caption = 'Detac&h from ID Note'
	926	Enabled = False
	927	end
	928	end
	929	object timAutoSave: TTimer
	930	Enabled = False
	931	Interval = 300000
	932	OnTimer = timAutoSaveTimer
	933	Left = 592
	934	Top = 27
	935	end
	936	object dlgFindText: TFindDialog
	937	Options = [frDown, frHideUpDown]
	938	OnFind = dlgFindTextFind
	939	Left = 452
	940	Top = 312
	941	end
	942	object dlgReplaceText: TReplaceDialog
	943	OnFind = dlgReplaceTextFind
	944	OnReplace = dlgReplaceTextReplace
	945	Left = 413
	946	Top = 312
	947	end
[830]	948	object imgLblImages: TVA508ImageListLabeler
	949	Components = <
	950	item
	951	Component = tvSurgery
	952	end>
	953	Labels = <>
	954	RemoteLabeler = dmodShared.imgLblImages
	955	Left = 16
	956	Top = 139
	957	end
	958	object imgLblSurgery: TVA508ImageListLabeler
	959	Components = <
	960	item
	961	Component = tvSurgery
	962	end>
	963	Labels = <>
	964	RemoteLabeler = dmodShared.imgLblSurgery
	965	Left = 24
	966	Top = 203
	967	end
[456]	968	end

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

Download in other formats:

Original Format