Context Navigation

fNotes.dfm@ 819

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

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

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

Download in other formats:

Original Format