Context Navigation

fNotes.dfm@ 1710

Last change on this file since 1710 was 1703, checked in by healthsevak, 10 years ago
updated this file to version 28 and Implemented the OpenSource based spell check feature
File size: 28.4 KB

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

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

Download in other formats:

Original Format