Context Navigation

fConsults.dfm@ 1727

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

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

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

Download in other formats:

Original Format