Context Navigation

fNoteProps.dfm@ 1727

Last change on this file since 1727 was 830, checked in by Kevin Toppenberg, 14 years ago
Upgrading to version 27
File size: 12.4 KB

Line
1	inherited frmNoteProperties: TfrmNoteProperties
2	Left = 384
3	Top = 56
4	BorderIcons = []
5	Caption = 'Progress Note Properties'
6	ClientHeight = 676
7	ClientWidth = 543
8	Constraints.MinWidth = 551
9	Position = poScreenCenter
10	OnDestroy = FormDestroy
11	OnResize = FormResize
12	OnShow = FormShow
13	ExplicitLeft = 384
14	ExplicitTop = 56
15	ExplicitWidth = 551
16	ExplicitHeight = 710
17	PixelsPerInch = 96
18	TextHeight = 13
19	object lblNewTitle: TLabel [0]
20	Left = 7
21	Top = 14
22	Width = 93
23	Height = 13
24	Alignment = taRightJustify
25	Caption = 'Progress Note Title:'
26	end
27	object lblDateTime: TLabel [1]
28	Left = 6
29	Top = 138
30	Width = 94
31	Height = 13
32	Alignment = taRightJustify
33	AutoSize = False
34	Caption = 'Date/Time of Note:'
35	end
36	object lblAuthor: TLabel [2]
37	Left = 6
38	Top = 165
39	Width = 94
40	Height = 13
41	Alignment = taRightJustify
42	AutoSize = False
43	Caption = 'Author:'
44	end
45	object lblCosigner: TLabel [3]
46	Left = 6
47	Top = 192
48	Width = 94
49	Height = 13
50	Alignment = taRightJustify
51	AutoSize = False
52	Caption = 'Expected Cosigner:'
53	end
54	object lblProcSummCode: TOROffsetLabel [4]
55	Left = 371
56	Top = 135
57	Width = 125
58	Height = 15
59	Caption = 'Procedure Summary Code'
60	HorzOffset = 2
61	Transparent = False
62	VertOffset = 2
63	WordWrap = False
64	end
65	object lblProcDateTime: TOROffsetLabel [5]
66	Left = 371
67	Top = 174
68	Width = 105
69	Height = 15
70	Caption = 'Procedure Date/Time'
71	HorzOffset = 2
72	Transparent = False
73	VertOffset = 2
74	WordWrap = False
75	end
76	object cboNewTitle: TORComboBox [6]
77	Left = 104
78	Top = 11
79	Width = 347
80	Height = 118
81	Style = orcsSimple
82	AutoSelect = True
83	Caption = 'Progress Note Title'
84	Color = clWindow
85	DropDownCount = 8
86	ItemHeight = 13
87	ItemTipColor = clWindow
88	ItemTipEnable = True
89	ListItemsOnly = True
90	LongList = True
91	LookupPiece = 0
92	MaxLength = 0
93	ParentShowHint = False
94	Pieces = '2'
95	ShowHint = True
96	Sorted = False
97	SynonymChars = '<>'
98	TabOrder = 0
99	OnDblClick = cboNewTitleDblClick
100	OnDropDownClose = cboNewTitleDropDownClose
101	OnEnter = cboNewTitleEnter
102	OnExit = cboNewTitleExit
103	OnMouseClick = cboNewTitleMouseClick
104	OnNeedData = cboNewTitleNeedData
105	CharsNeedMatch = 1
106	end
107	object calNote: TORDateBox [7]
108	Left = 104
109	Top = 135
110	Width = 140
111	Height = 21
112	TabOrder = 1
113	OnEnter = calNoteEnter
114	DateOnly = False
115	RequireTime = True
116	Caption = 'Date/Time of Note:'
117	end
118	object cboAuthor: TORComboBox [8]
119	Left = 104
120	Top = 162
121	Width = 239
122	Height = 21
123	Style = orcsDropDown
124	AutoSelect = True
125	Caption = 'Author'
126	Color = clWindow
127	DropDownCount = 8
128	ItemHeight = 13
129	ItemTipColor = clWindow
130	ItemTipEnable = True
131	ListItemsOnly = False
132	LongList = True
133	LookupPiece = 2
134	MaxLength = 0
135	ParentShowHint = False
136	Pieces = '2,3'
137	ShowHint = True
138	Sorted = False
139	SynonymChars = '<>'
140	TabOrder = 2
141	OnEnter = cboAuthorEnter
142	OnExit = cboAuthorExit
143	OnMouseClick = cboAuthorMouseClick
144	OnNeedData = NewPersonNeedData
145	CharsNeedMatch = 1
146	end
147	object cboCosigner: TORComboBox [9]
148	Left = 104
149	Top = 189
150	Width = 239
151	Height = 21
152	Style = orcsDropDown
153	AutoSelect = True
154	Caption = 'Expected Cosigner:'
155	Color = clWindow
156	DropDownCount = 8
157	ItemHeight = 13
158	ItemTipColor = clWindow
159	ItemTipEnable = True
160	ListItemsOnly = False
161	LongList = True
162	LookupPiece = 2
163	MaxLength = 0
164	ParentShowHint = False
165	Pieces = '2,3'
166	ShowHint = True
167	Sorted = False
168	SynonymChars = '<>'
169	TabOrder = 3
170	OnExit = cboCosignerExit
171	OnNeedData = cboCosignerNeedData
172	CharsNeedMatch = 1
173	end
174	object cmdOK: TButton [10]
175	Left = 465
176	Top = 11
177	Width = 72
178	Height = 21
179	Caption = 'OK'
180	Default = True
181	TabOrder = 9
182	OnClick = cmdOKClick
183	end
184	object cmdCancel: TButton [11]
185	Left = 465
186	Top = 38
187	Width = 72
188	Height = 21
189	Cancel = True
190	Caption = 'Cancel'
191	TabOrder = 10
192	OnClick = cmdCancelClick
193	end
194	object cboProcSummCode: TORComboBox [12]
195	Left = 371
196	Top = 150
197	Width = 142
198	Height = 21
199	Style = orcsDropDown
200	AutoSelect = True
201	Caption = 'Procedure Summary Code'
202	Color = clWindow
203	DropDownCount = 8
204	Items.Strings = (
205	'1^Normal'
206	'2^Abnormal'
207	'3^Borderline'
208	'4^Incomplete')
209	ItemHeight = 13
210	ItemTipColor = clWindow
211	ItemTipEnable = True
212	ListItemsOnly = False
213	LongList = False
214	LookupPiece = 0
215	MaxLength = 0
216	Pieces = '2'
217	Sorted = False
218	SynonymChars = '<>'
219	TabOrder = 4
220	CharsNeedMatch = 1
221	end
222	object calProcDateTime: TORDateBox [13]
223	Left = 371
224	Top = 189
225	Width = 142
226	Height = 21
227	TabOrder = 5
228	OnEnter = calNoteEnter
229	DateOnly = False
230	RequireTime = True
231	Caption = 'Procedure Date/Time'
232	end
233	object pnlSurgery: TORAutoPanel [14]
234	Tag = 2
235	Left = 0
236	Top = 217
237	Width = 543
238	Height = 153
239	Align = alBottom
240	BevelOuter = bvNone
241	TabOrder = 6
242	Visible = False
243	object lblSurgDate: TLabel
244	Tag = 2
245	Left = 2
246	Top = 40
247	Width = 62
248	Height = 13
249	Caption = 'Surgery Date'
250	end
251	object lblSurgProc: TLabel
252	Tag = 2
253	Left = 98
254	Top = 40
255	Width = 49
256	Height = 13
257	Caption = 'Procedure'
258	end
259	object lblSurgeon: TLabel
260	Tag = 2
261	Left = 362
262	Top = 40
263	Width = 40
264	Height = 13
265	Caption = 'Surgeon'
266	end
267	object bvlSurgery: TBevel
268	Tag = 2
269	Left = 1
270	Top = 2
271	Width = 531
272	Height = 2
273	end
274	object lblSurgery1: TStaticText
275	Tag = 2
276	Left = 103
277	Top = 8
278	Width = 284
279	Height = 17
280	Caption = 'This document title must be associated with a surgery case.'
281	Font.Charset = DEFAULT_CHARSET
282	Font.Color = clWindowText
283	Font.Height = -11
284	Font.Name = 'MS Sans Serif'
285	Font.Style = []
286	ParentFont = False
287	TabOrder = 1
288	end
289	object lblSurgery2: TStaticText
290	Tag = 2
291	Left = 93
292	Top = 22
293	Width = 335
294	Height = 17
295	Caption =
296	'Select one of the following or press cancel and choose a differe' +
297	'nt title.'
298	TabOrder = 2
299	end
300	object lstSurgery: TORListBox
301	Tag = 2
302	Left = 0
303	Top = 52
304	Width = 543
305	Height = 101
306	Align = alBottom
307	ItemHeight = 13
308	ParentShowHint = False
309	ShowHint = True
310	TabOrder = 0
311	Caption = 'Associated Surgery Case'
312	ItemTipColor = clWindow
313	LongList = False
314	Pieces = '3,2,4'
315	TabPositions = '16,60,85'
316	end
317	end
318	object pnlConsults: TORAutoPanel [15]
319	Tag = 1
320	Left = 0
321	Top = 370
322	Width = 543
323	Height = 153
324	Align = alBottom
325	BevelOuter = bvNone
326	TabOrder = 7
327	Visible = False
328	object lblConsult1: TLabel
329	Tag = 1
330	Left = 3
331	Top = 8
332	Width = 309
333	Height = 13
334	Caption =
335	'This progress note title must be associated with a consult reque' +
336	'st.'
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
343	end
344	object lblConsult2: TLabel
345	Tag = 1
346	Left = 3
347	Top = 22
348	Width = 247
349	Height = 13
350	Caption = 'Select one of the following or choose a different title.'
351	end
352	object lblCsltDate: TLabel
353	Tag = 1
354	Left = 2
355	Top = 40
356	Width = 104
357	Height = 13
358	Caption = 'Consult Request Date'
359	end
360	object lblCsltServ: TLabel
361	Tag = 1
362	Left = 128
363	Top = 40
364	Width = 36
365	Height = 13
366	Caption = 'Service'
367	end
368	object lblCsltProc: TLabel
369	Tag = 1
370	Left = 261
371	Top = 40
372	Width = 49
373	Height = 13
374	Caption = 'Procedure'
375	end
376	object lblCsltStat: TLabel
377	Tag = 1
378	Left = 416
379	Top = 40
380	Width = 30
381	Height = 13
382	Caption = 'Status'
383	end
384	object lblCsltNotes: TLabel
385	Tag = 1
386	Left = 482
387	Top = 40
388	Width = 38
389	Height = 13
390	Caption = '# Notes'
391	end
392	object bvlConsult: TBevel
393	Tag = 1
394	Left = 1
395	Top = 2
396	Width = 531
397	Height = 2
398	end
399	object lstRequests: TORListBox
400	Tag = 1
401	Left = 0
402	Top = 52
403	Width = 543
404	Height = 101
405	Align = alBottom
406	ItemHeight = 13
407	ParentShowHint = False
408	ShowHint = True
409	TabOrder = 0
410	Caption = 'Associated Consult Request'
411	ItemTipColor = clWindow
412	LongList = False
413	Pieces = '2,3,4,5,6'
414	TabPositions = '21,43,69,83'
415	OnChange = lstRequestsChange
416	end
417	object btnShowList: TButton
418	Left = 335
419	Top = 13
420	Width = 100
421	Height = 21
422	Caption = 'Show Unresolved'
423	TabOrder = 1
424	OnClick = btnShowListClick
425	end
426	object btnDetails: TButton
427	Left = 450
428	Top = 13
429	Width = 75
430	Height = 21
431	Caption = 'Show Details'
432	TabOrder = 2
433	OnClick = btnDetailsClick
434	end
435	end
436	object pnlPRF: TORAutoPanel [16]
437	Tag = 3
438	Left = 0
439	Top = 523
440	Width = 543
441	Height = 153
442	Align = alBottom
443	BevelOuter = bvNone
444	TabOrder = 8
445	Visible = False
446	object lblPRF: TLabel
447	Tag = 1
448	Left = 2
449	Top = 16
450	Width = 304
451	Height = 13
452	Caption = 'Which Patient Record Flag Action should this Note be linked to?'
453	Font.Charset = DEFAULT_CHARSET
454	Font.Color = clWindowText
455	Font.Height = -11
456	Font.Name = 'MS Sans Serif'
457	Font.Style = []
458	ParentFont = False
459	end
460	object Bevel1: TBevel
461	Tag = 1
462	Left = 1
463	Top = 2
464	Width = 531
465	Height = 2
466	end
467	object lvPRF: TCaptionListView
468	Left = 0
469	Top = 32
470	Width = 543
471	Height = 121
472	Align = alBottom
473	Columns = <
474	item
475	Caption = 'Used For Screen Readers'
476	Width = 1
477	end
478	item
479	AutoSize = True
480	Caption = 'Flag'
481	end
482	item
483	AutoSize = True
484	Caption = 'Date'
485	end
486	item
487	AutoSize = True
488	Caption = 'Action'
489	end
490	item
491	AutoSize = True
492	Caption = 'Note'
493	end>
494	Constraints.MinHeight = 50
495	HideSelection = False
496	ReadOnly = True
497	RowSelect = True
498	TabOrder = 0
499	ViewStyle = vsReport
500	end
501	end
502	inherited amgrMain: TVA508AccessibilityManager
503	Data = (
504	(
505	'Component = cboNewTitle'
506	'Status = stsDefault')
507	(
508	'Component = calNote'
509	'Label = lblDateTime'
510	'Status = stsOK')
511	(
512	'Component = cboAuthor'
513	'Status = stsDefault')
514	(
515	'Component = cboCosigner'
516	'Status = stsDefault')
517	(
518	'Component = cmdOK'
519	'Status = stsDefault')
520	(
521	'Component = cmdCancel'
522	'Status = stsDefault')
523	(
524	'Component = cboProcSummCode'
525	'Status = stsDefault')
526	(
527	'Component = calProcDateTime'
528	'Property = Caption'
529	'Status = stsOK')
530	(
531	'Component = pnlSurgery'
532	'Status = stsDefault')
533	(
534	'Component = lblSurgery1'
535	'Status = stsDefault')
536	(
537	'Component = lblSurgery2'
538	'Status = stsDefault')
539	(
540	'Component = lstSurgery'
541	'Status = stsDefault')
542	(
543	'Component = pnlConsults'
544	'Status = stsDefault')
545	(
546	'Component = lstRequests'
547	'Status = stsDefault')
548	(
549	'Component = btnShowList'
550	'Status = stsDefault')
551	(
552	'Component = btnDetails'
553	'Status = stsDefault')
554	(
555	'Component = pnlPRF'
556	'Status = stsDefault')
557	(
558	'Component = lvPRF'
559	'Status = stsDefault')
560	(
561	'Component = frmNoteProperties'
562	'Status = stsDefault'))
563	end
564	end

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

Download in other formats:

Original Format