source: cprs/branches/foia-cprs/CPRS-Chart/fNoteProps.dfm@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch
File size: 9.1 KB
Line 
1object frmNoteProperties: TfrmNoteProperties
2 Left = 176
3 Top = 204
4 AutoScroll = False
5 BorderIcons = []
6 Caption = 'Progress Note Properties'
7 ClientHeight = 371
8 ClientWidth = 543
9 Color = clBtnFace
10 Constraints.MinWidth = 551
11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 Font.Style = []
16 OldCreateOrder = False
17 Position = poScreenCenter
18 OnResize = FormResize
19 OnShow = FormShow
20 PixelsPerInch = 96
21 TextHeight = 13
22 object lblNewTitle: TLabel
23 Left = 7
24 Top = 14
25 Width = 93
26 Height = 13
27 Alignment = taRightJustify
28 Caption = 'Progress Note Title:'
29 end
30 object lblDateTime: TLabel
31 Left = 6
32 Top = 138
33 Width = 94
34 Height = 13
35 Alignment = taRightJustify
36 AutoSize = False
37 Caption = 'Date/Time of Note:'
38 end
39 object lblAuthor: TLabel
40 Left = 6
41 Top = 165
42 Width = 94
43 Height = 13
44 Alignment = taRightJustify
45 AutoSize = False
46 Caption = 'Author:'
47 end
48 object lblCosigner: TLabel
49 Left = 6
50 Top = 192
51 Width = 94
52 Height = 13
53 Alignment = taRightJustify
54 AutoSize = False
55 Caption = 'Expected Cosigner:'
56 end
57 object lblProcSummCode: TOROffsetLabel
58 Left = 371
59 Top = 135
60 Width = 125
61 Height = 15
62 Caption = 'Procedure Summary Code'
63 HorzOffset = 2
64 Transparent = False
65 VertOffset = 2
66 WordWrap = False
67 end
68 object lblProcDateTime: TOROffsetLabel
69 Left = 371
70 Top = 174
71 Width = 105
72 Height = 15
73 Caption = 'Procedure Date/Time'
74 HorzOffset = 2
75 Transparent = False
76 VertOffset = 2
77 WordWrap = False
78 end
79 object cboNewTitle: TORComboBox
80 Left = 104
81 Top = 11
82 Width = 347
83 Height = 118
84 Style = orcsSimple
85 AutoSelect = True
86 Caption = 'Progress Note Title'
87 Color = clWindow
88 DropDownCount = 8
89 ItemHeight = 13
90 ItemTipColor = clWindow
91 ItemTipEnable = True
92 ListItemsOnly = True
93 LongList = True
94 LookupPiece = 0
95 MaxLength = 0
96 ParentShowHint = False
97 Pieces = '2'
98 ShowHint = True
99 Sorted = False
100 SynonymChars = '<>'
101 TabOrder = 0
102 OnDblClick = cboNewTitleDblClick
103 OnDropDownClose = cboNewTitleDropDownClose
104 OnEnter = cboNewTitleEnter
105 OnExit = cboNewTitleExit
106 OnMouseClick = cboNewTitleMouseClick
107 OnNeedData = cboNewTitleNeedData
108 end
109 object calNote: TORDateBox
110 Left = 104
111 Top = 135
112 Width = 140
113 Height = 21
114 TabOrder = 1
115 OnEnter = calNoteEnter
116 DateOnly = False
117 RequireTime = True
118 Caption = 'Date/Time of Note:'
119 end
120 object cboAuthor: TORComboBox
121 Left = 104
122 Top = 162
123 Width = 239
124 Height = 21
125 Style = orcsDropDown
126 AutoSelect = True
127 Caption = 'Author'
128 Color = clWindow
129 DropDownCount = 8
130 ItemHeight = 13
131 ItemTipColor = clWindow
132 ItemTipEnable = True
133 ListItemsOnly = False
134 LongList = True
135 LookupPiece = 2
136 MaxLength = 0
137 ParentShowHint = False
138 Pieces = '2,3'
139 ShowHint = True
140 Sorted = False
141 SynonymChars = '<>'
142 TabOrder = 2
143 OnEnter = cboAuthorEnter
144 OnExit = cboAuthorExit
145 OnMouseClick = cboAuthorMouseClick
146 OnNeedData = NewPersonNeedData
147 end
148 object cboCosigner: TORComboBox
149 Left = 104
150 Top = 189
151 Width = 239
152 Height = 21
153 Style = orcsDropDown
154 AutoSelect = True
155 Caption = 'Expected Cosigner:'
156 Color = clWindow
157 DropDownCount = 8
158 ItemHeight = 13
159 ItemTipColor = clWindow
160 ItemTipEnable = True
161 ListItemsOnly = False
162 LongList = True
163 LookupPiece = 2
164 MaxLength = 0
165 ParentShowHint = False
166 Pieces = '2,3'
167 ShowHint = True
168 Sorted = False
169 SynonymChars = '<>'
170 TabOrder = 3
171 OnExit = cboCosignerExit
172 OnNeedData = cboCosignerNeedData
173 end
174 object cmdOK: TButton
175 Left = 465
176 Top = 11
177 Width = 72
178 Height = 21
179 Caption = 'OK'
180 Default = True
181 TabOrder = 8
182 OnClick = cmdOKClick
183 end
184 object cmdCancel: TButton
185 Left = 465
186 Top = 38
187 Width = 72
188 Height = 21
189 Cancel = True
190 Caption = 'Cancel'
191 TabOrder = 9
192 OnClick = cmdCancelClick
193 end
194 object cboProcSummCode: TORComboBox
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 end
221 object calProcDateTime: TORDateBox
222 Left = 371
223 Top = 189
224 Width = 142
225 Height = 21
226 TabOrder = 5
227 OnEnter = calNoteEnter
228 DateOnly = False
229 RequireTime = True
230 Caption = 'Procedure Date/Time'
231 end
232 object pnlSurgery: TORAutoPanel
233 Tag = 2
234 Left = 0
235 Top = 218
236 Width = 543
237 Height = 153
238 BevelOuter = bvNone
239 TabOrder = 6
240 object lblSurgDate: TLabel
241 Tag = 2
242 Left = 2
243 Top = 40
244 Width = 62
245 Height = 13
246 Caption = 'Surgery Date'
247 end
248 object lblSurgProc: TLabel
249 Tag = 2
250 Left = 98
251 Top = 40
252 Width = 49
253 Height = 13
254 Caption = 'Procedure'
255 end
256 object lblSurgeon: TLabel
257 Tag = 2
258 Left = 362
259 Top = 40
260 Width = 40
261 Height = 13
262 Caption = 'Surgeon'
263 end
264 object bvlSurgery: TBevel
265 Tag = 2
266 Left = 1
267 Top = 2
268 Width = 531
269 Height = 2
270 end
271 object lblSurgery1: TStaticText
272 Tag = 2
273 Left = 103
274 Top = 8
275 Width = 284
276 Height = 17
277 Caption = 'This document title must be associated with a surgery case.'
278 Font.Charset = DEFAULT_CHARSET
279 Font.Color = clWindowText
280 Font.Height = -11
281 Font.Name = 'MS Sans Serif'
282 Font.Style = []
283 ParentFont = False
284 TabOrder = 1
285 end
286 object lblSurgery2: TStaticText
287 Tag = 2
288 Left = 93
289 Top = 22
290 Width = 335
291 Height = 17
292 Caption =
293 'Select one of the following or press cancel and choose a differe' +
294 'nt title.'
295 TabOrder = 2
296 end
297 object lstSurgery: TORListBox
298 Tag = 2
299 Left = 0
300 Top = 52
301 Width = 543
302 Height = 101
303 Align = alBottom
304 ItemHeight = 13
305 ParentShowHint = False
306 ShowHint = True
307 TabOrder = 0
308 Caption = 'Associated Surgery Case'
309 ItemTipColor = clWindow
310 LongList = False
311 Pieces = '3,2,4'
312 TabPositions = '16,60,85'
313 end
314 end
315 object pnlConsults: TORAutoPanel
316 Tag = 1
317 Left = 0
318 Top = 218
319 Width = 543
320 Height = 153
321 BevelOuter = bvNone
322 TabOrder = 7
323 object lblConsult1: TLabel
324 Tag = 1
325 Left = 26
326 Top = 8
327 Width = 309
328 Height = 13
329 Caption =
330 'This progress note title must be associated with a consult reque' +
331 'st.'
332 Font.Charset = DEFAULT_CHARSET
333 Font.Color = clWindowText
334 Font.Height = -11
335 Font.Name = 'MS Sans Serif'
336 Font.Style = []
337 ParentFont = False
338 end
339 object lblConsult2: TLabel
340 Tag = 1
341 Left = 26
342 Top = 22
343 Width = 247
344 Height = 13
345 Caption = 'Select one of the following or choose a different title.'
346 end
347 object lblCsltDate: TLabel
348 Tag = 1
349 Left = 2
350 Top = 40
351 Width = 104
352 Height = 13
353 Caption = 'Consult Request Date'
354 end
355 object lblCsltServ: TLabel
356 Tag = 1
357 Left = 128
358 Top = 40
359 Width = 36
360 Height = 13
361 Caption = 'Service'
362 end
363 object lblCsltProc: TLabel
364 Tag = 1
365 Left = 261
366 Top = 40
367 Width = 49
368 Height = 13
369 Caption = 'Procedure'
370 end
371 object lblCsltStat: TLabel
372 Tag = 1
373 Left = 416
374 Top = 40
375 Width = 30
376 Height = 13
377 Caption = 'Status'
378 end
379 object lblCsltNotes: TLabel
380 Tag = 1
381 Left = 482
382 Top = 40
383 Width = 38
384 Height = 13
385 Caption = '# Notes'
386 end
387 object bvlConsult: TBevel
388 Tag = 1
389 Left = 1
390 Top = 2
391 Width = 531
392 Height = 2
393 end
394 object lstRequests: TORListBox
395 Tag = 1
396 Left = 0
397 Top = 52
398 Width = 543
399 Height = 101
400 Align = alBottom
401 ItemHeight = 13
402 ParentShowHint = False
403 ShowHint = True
404 TabOrder = 0
405 Caption = 'Associated Consult Request'
406 ItemTipColor = clWindow
407 LongList = False
408 Pieces = '2,3,4,5,6'
409 TabPositions = '21,43,69,83'
410 end
411 object btnShowList: TButton
412 Left = 386
413 Top = 12
414 Width = 100
415 Height = 21
416 Caption = 'Show Unresolved'
417 TabOrder = 1
418 OnClick = btnShowListClick
419 end
420 end
421end
Note: See TracBrowser for help on using the repository browser.