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

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

Adding foia-cprs branch
File size: 9.7 KB
Line 
1object frmEditProc: TfrmEditProc
2 Tag = 112
3 Left = 296
4 Top = 245
5 Width = 569
6 Height = 335
7 HorzScrollBar.Range = 561
8 VertScrollBar.Range = 308
9 AutoScroll = False
10 Caption = 'Edit and resubmit a cancelled procedure'
11 Color = clBtnFace
12 Font.Charset = DEFAULT_CHARSET
13 Font.Color = clWindowText
14 Font.Height = -11
15 Font.Name = 'MS Sans Serif'
16 Font.Style = []
17 OldCreateOrder = True
18 Position = poScreenCenter
19 DesignSize = (
20 545
21 289)
22 PixelsPerInch = 96
23 TextHeight = 13
24 object lblProc: TLabel
25 Left = 3
26 Top = 7
27 Width = 49
28 Height = 13
29 Caption = 'Procedure'
30 end
31 object lblReason: TLabel
32 Left = 3
33 Top = 167
34 Width = 90
35 Height = 13
36 Caption = 'Reason for Consult'
37 end
38 object lblService: TOROffsetLabel
39 Left = 3
40 Top = 49
41 Width = 158
42 Height = 15
43 Caption = 'Service to perform this procedure'
44 HorzOffset = 2
45 Transparent = False
46 VertOffset = 2
47 WordWrap = False
48 end
49 object lblComment: TLabel
50 Left = 106
51 Top = 109
52 Width = 74
53 Height = 13
54 Caption = 'New Comments'
55 end
56 object lblComments: TLabel
57 Left = 3
58 Top = 99
59 Width = 89
60 Height = 13
61 Caption = 'Display Comments:'
62 end
63 object lblUrgency: TStaticText
64 Left = 190
65 Top = 7
66 Width = 44
67 Height = 17
68 Caption = 'Urgency'
69 TabOrder = 18
70 end
71 object lblPlace: TStaticText
72 Left = 362
73 Top = 50
74 Width = 104
75 Height = 17
76 Caption = 'Place of Consultation'
77 TabOrder = 19
78 end
79 object lblAttn: TStaticText
80 Left = 362
81 Top = 7
82 Width = 46
83 Height = 17
84 Caption = 'Attention'
85 TabOrder = 20
86 end
87 object lblProvDiag: TStaticText
88 Left = 190
89 Top = 81
90 Width = 104
91 Height = 17
92 Caption = 'Provisional Diagnosis'
93 TabOrder = 21
94 end
95 object lblInpOutp: TStaticText
96 Left = 192
97 Top = 48
98 Width = 127
99 Height = 17
100 Caption = 'Patient will be seen as an:'
101 TabOrder = 17
102 end
103 object memReason: TRichEdit
104 Left = 2
105 Top = 181
106 Width = 555
107 Height = 95
108 Anchors = [akLeft, akTop, akRight, akBottom]
109 Font.Charset = DEFAULT_CHARSET
110 Font.Color = clWindowText
111 Font.Height = -11
112 Font.Name = 'Courier New'
113 Font.Style = []
114 ParentFont = False
115 PopupMenu = popReason
116 ScrollBars = ssBoth
117 TabOrder = 12
118 WantTabs = True
119 OnChange = ControlChange
120 OnExit = memReasonExit
121 OnKeyDown = memReasonKeyDown
122 OnKeyPress = memReasonKeyPress
123 OnKeyUp = memCommentKeyUp
124 end
125 object cmdAccept: TButton
126 Left = 399
127 Top = 282
128 Width = 72
129 Height = 21
130 Anchors = [akRight, akBottom]
131 Caption = 'Resubmit'
132 TabOrder = 13
133 OnClick = cmdAcceptClick
134 end
135 object cmdQuit: TButton
136 Left = 484
137 Top = 282
138 Width = 72
139 Height = 21
140 Anchors = [akRight, akBottom]
141 Cancel = True
142 Caption = 'Cancel'
143 TabOrder = 14
144 OnClick = cmdQuitClick
145 end
146 object cboUrgency: TORComboBox
147 Left = 190
148 Top = 22
149 Width = 165
150 Height = 21
151 Style = orcsDropDown
152 AutoSelect = True
153 Caption = 'Urgency'
154 Color = clWindow
155 DropDownCount = 8
156 ItemHeight = 13
157 ItemTipColor = clWindow
158 ItemTipEnable = True
159 ListItemsOnly = True
160 LongList = False
161 LookupPiece = 0
162 MaxLength = 0
163 Pieces = '2'
164 Sorted = False
165 SynonymChars = '<>'
166 TabOrder = 2
167 OnChange = ControlChange
168 end
169 object radInpatient: TRadioButton
170 Left = 190
171 Top = 61
172 Width = 61
173 Height = 17
174 Caption = '&Inpatient'
175 TabOrder = 4
176 OnClick = radInpatientClick
177 end
178 object radOutpatient: TRadioButton
179 Left = 264
180 Top = 61
181 Width = 73
182 Height = 17
183 Caption = '&Outpatient'
184 TabOrder = 5
185 OnClick = radOutpatientClick
186 end
187 object cboPlace: TORComboBox
188 Left = 362
189 Top = 63
190 Width = 195
191 Height = 21
192 Anchors = [akLeft, akTop, akRight]
193 Style = orcsDropDown
194 AutoSelect = True
195 Caption = 'Place of Consultation'
196 Color = clWindow
197 DropDownCount = 8
198 ItemHeight = 13
199 ItemTipColor = clWindow
200 ItemTipEnable = True
201 ListItemsOnly = True
202 LongList = False
203 LookupPiece = 0
204 MaxLength = 0
205 Pieces = '2'
206 Sorted = False
207 SynonymChars = '<>'
208 TabOrder = 6
209 OnChange = ControlChange
210 end
211 object txtProvDiag: TCaptionEdit
212 Left = 190
213 Top = 94
214 Width = 313
215 Height = 21
216 Anchors = [akLeft, akTop, akRight]
217 ParentShowHint = False
218 PopupMenu = mnuPopProvDx
219 ShowHint = True
220 TabOrder = 7
221 OnChange = ControlChange
222 Caption = 'Provisional Diagnosis'
223 end
224 object txtAttn: TORComboBox
225 Left = 362
226 Top = 22
227 Width = 195
228 Height = 21
229 Anchors = [akLeft, akTop, akRight]
230 Style = orcsDropDown
231 AutoSelect = True
232 Caption = 'Attention'
233 Color = clWindow
234 DropDownCount = 8
235 ItemHeight = 13
236 ItemTipColor = clWindow
237 ItemTipEnable = True
238 ListItemsOnly = True
239 LongList = True
240 LookupPiece = 2
241 MaxLength = 0
242 Pieces = '2,3'
243 Sorted = False
244 SynonymChars = '<>'
245 TabOrder = 3
246 OnChange = ControlChange
247 OnNeedData = txtAttnNeedData
248 end
249 object cboProc: TORComboBox
250 Left = 3
251 Top = 22
252 Width = 173
253 Height = 21
254 Style = orcsDropDown
255 AutoSelect = True
256 Caption = 'Procedure'
257 Color = clWindow
258 DropDownCount = 8
259 Enabled = False
260 Font.Charset = DEFAULT_CHARSET
261 Font.Color = clGrayText
262 Font.Height = -11
263 Font.Name = 'MS Sans Serif'
264 Font.Style = []
265 ItemHeight = 13
266 ItemTipColor = clWindow
267 ItemTipEnable = True
268 ListItemsOnly = True
269 LongList = True
270 LookupPiece = 0
271 MaxLength = 0
272 ParentFont = False
273 Pieces = '2'
274 Sorted = False
275 SynonymChars = '<>'
276 TabOrder = 0
277 OnChange = cboProcSelect
278 OnNeedData = cboProcNeedData
279 end
280 object cboCategory: TORComboBox
281 Left = 505
282 Top = -11
283 Width = 2
284 Height = 21
285 Style = orcsDropDown
286 AutoSelect = True
287 Color = clWindow
288 DropDownCount = 8
289 ItemHeight = 13
290 ItemTipColor = clWindow
291 ItemTipEnable = True
292 ListItemsOnly = False
293 LongList = False
294 LookupPiece = 0
295 MaxLength = 0
296 Sorted = False
297 SynonymChars = '<>'
298 TabOrder = 15
299 Visible = False
300 OnChange = ControlChange
301 end
302 object cboService: TORComboBox
303 Left = 3
304 Top = 65
305 Width = 173
306 Height = 21
307 Style = orcsDropDown
308 AutoSelect = True
309 Caption = 'Service to perform this procedure'
310 Color = clWindow
311 DropDownCount = 8
312 Enabled = False
313 Font.Charset = DEFAULT_CHARSET
314 Font.Color = clGrayText
315 Font.Height = -11
316 Font.Name = 'MS Sans Serif'
317 Font.Style = []
318 ItemHeight = 13
319 ItemTipColor = clWindow
320 ItemTipEnable = True
321 ListItemsOnly = False
322 LongList = False
323 LookupPiece = 0
324 MaxLength = 0
325 ParentFont = False
326 Pieces = '2'
327 Sorted = False
328 SynonymChars = '<>'
329 TabOrder = 1
330 OnChange = ControlChange
331 end
332 object memComment: TRichEdit
333 Left = 106
334 Top = 123
335 Width = 449
336 Height = 38
337 Anchors = [akLeft, akTop, akRight]
338 PopupMenu = popReason
339 TabOrder = 11
340 WantTabs = True
341 OnChange = ControlChange
342 OnKeyUp = memCommentKeyUp
343 end
344 object pnlMessage: TPanel
345 Left = 29
346 Top = 264
347 Width = 381
348 Height = 44
349 Anchors = [akLeft, akRight, akBottom]
350 BevelInner = bvRaised
351 BorderStyle = bsSingle
352 Caption = 'pnlMessage'
353 TabOrder = 16
354 Visible = False
355 object imgMessage: TImage
356 Left = 4
357 Top = 4
358 Width = 32
359 Height = 32
360 end
361 object memMessage: TRichEdit
362 Left = 40
363 Top = 4
364 Width = 332
365 Height = 32
366 Color = clInfoBk
367 Font.Charset = DEFAULT_CHARSET
368 Font.Color = clInfoText
369 Font.Height = -11
370 Font.Name = 'MS Sans Serif'
371 Font.Style = []
372 ParentFont = False
373 ScrollBars = ssVertical
374 TabOrder = 0
375 WantReturns = False
376 end
377 end
378 object btnCmtCancel: TButton
379 Left = 11
380 Top = 116
381 Width = 75
382 Height = 21
383 Caption = 'Cancellation'
384 TabOrder = 9
385 OnClick = btnCmtCancelClick
386 end
387 object btnCmtOther: TButton
388 Left = 11
389 Top = 139
390 Width = 75
391 Height = 21
392 Caption = 'Other'
393 TabOrder = 10
394 OnClick = btnCmtOtherClick
395 end
396 object cmdLexSearch: TButton
397 Left = 507
398 Top = 94
399 Width = 49
400 Height = 21
401 Anchors = [akTop, akRight]
402 Caption = 'Lexicon'
403 TabOrder = 8
404 OnClick = cmdLexSearchClick
405 end
406 object mnuPopProvDx: TPopupMenu
407 Left = 353
408 Top = 77
409 object mnuPopProvDxDelete: TMenuItem
410 Caption = 'Delete diagnosis'
411 OnClick = mnuPopProvDxDeleteClick
412 end
413 end
414 object popReason: TPopupMenu
415 OnPopup = popReasonPopup
416 Left = 411
417 Top = 169
418 object popReasonCut: TMenuItem
419 Caption = 'Cu&t'
420 ShortCut = 16472
421 OnClick = popReasonCutClick
422 end
423 object popReasonCopy: TMenuItem
424 Caption = '&Copy'
425 ShortCut = 16451
426 OnClick = popReasonCopyClick
427 end
428 object popReasonPaste: TMenuItem
429 Caption = '&Paste'
430 ShortCut = 16470
431 OnClick = popReasonPasteClick
432 end
433 object popReasonPaste2: TMenuItem
434 Caption = 'Paste2'
435 ShortCut = 8237
436 Visible = False
437 OnClick = popReasonPasteClick
438 end
439 object popReasonReformat: TMenuItem
440 Caption = 'Reformat Paragraph'
441 ShortCut = 16466
442 OnClick = popReasonReformatClick
443 end
444 end
445end
Note: See TracBrowser for help on using the repository browser.