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

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

Uploading from OR_30_258
File size: 9.8 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 561
21 308)
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 CharsNeedMatch = 1
169 end
170 object radInpatient: TRadioButton
171 Left = 190
172 Top = 61
173 Width = 61
174 Height = 17
175 Caption = '&Inpatient'
176 TabOrder = 4
177 OnClick = radInpatientClick
178 end
179 object radOutpatient: TRadioButton
180 Left = 264
181 Top = 61
182 Width = 73
183 Height = 17
184 Caption = '&Outpatient'
185 TabOrder = 5
186 OnClick = radOutpatientClick
187 end
188 object cboPlace: TORComboBox
189 Left = 362
190 Top = 63
191 Width = 195
192 Height = 21
193 Anchors = [akLeft, akTop, akRight]
194 Style = orcsDropDown
195 AutoSelect = True
196 Caption = 'Place of Consultation'
197 Color = clWindow
198 DropDownCount = 8
199 ItemHeight = 13
200 ItemTipColor = clWindow
201 ItemTipEnable = True
202 ListItemsOnly = True
203 LongList = False
204 LookupPiece = 0
205 MaxLength = 0
206 Pieces = '2'
207 Sorted = False
208 SynonymChars = '<>'
209 TabOrder = 6
210 OnChange = ControlChange
211 CharsNeedMatch = 1
212 end
213 object txtProvDiag: TCaptionEdit
214 Left = 190
215 Top = 94
216 Width = 313
217 Height = 21
218 Anchors = [akLeft, akTop, akRight]
219 MaxLength = 180
220 ParentShowHint = False
221 PopupMenu = mnuPopProvDx
222 ShowHint = True
223 TabOrder = 7
224 OnChange = ControlChange
225 Caption = 'Provisional Diagnosis'
226 end
227 object txtAttn: TORComboBox
228 Left = 362
229 Top = 22
230 Width = 195
231 Height = 21
232 Anchors = [akLeft, akTop, akRight]
233 Style = orcsDropDown
234 AutoSelect = True
235 Caption = 'Attention'
236 Color = clWindow
237 DropDownCount = 8
238 ItemHeight = 13
239 ItemTipColor = clWindow
240 ItemTipEnable = True
241 ListItemsOnly = True
242 LongList = True
243 LookupPiece = 2
244 MaxLength = 0
245 Pieces = '2,3'
246 Sorted = False
247 SynonymChars = '<>'
248 TabOrder = 3
249 OnChange = ControlChange
250 OnNeedData = txtAttnNeedData
251 CharsNeedMatch = 1
252 end
253 object cboProc: TORComboBox
254 Left = 3
255 Top = 22
256 Width = 173
257 Height = 21
258 Style = orcsDropDown
259 AutoSelect = True
260 Caption = 'Procedure'
261 Color = clWindow
262 DropDownCount = 8
263 Enabled = False
264 Font.Charset = DEFAULT_CHARSET
265 Font.Color = clGrayText
266 Font.Height = -11
267 Font.Name = 'MS Sans Serif'
268 Font.Style = []
269 ItemHeight = 13
270 ItemTipColor = clWindow
271 ItemTipEnable = True
272 ListItemsOnly = True
273 LongList = True
274 LookupPiece = 0
275 MaxLength = 0
276 ParentFont = False
277 Pieces = '2'
278 Sorted = False
279 SynonymChars = '<>'
280 TabOrder = 0
281 OnChange = cboProcSelect
282 OnNeedData = cboProcNeedData
283 CharsNeedMatch = 1
284 end
285 object cboCategory: TORComboBox
286 Left = 505
287 Top = -11
288 Width = 2
289 Height = 21
290 Style = orcsDropDown
291 AutoSelect = True
292 Color = clWindow
293 DropDownCount = 8
294 ItemHeight = 13
295 ItemTipColor = clWindow
296 ItemTipEnable = True
297 ListItemsOnly = False
298 LongList = False
299 LookupPiece = 0
300 MaxLength = 0
301 Sorted = False
302 SynonymChars = '<>'
303 TabOrder = 15
304 Visible = False
305 OnChange = ControlChange
306 CharsNeedMatch = 1
307 end
308 object cboService: TORComboBox
309 Left = 3
310 Top = 65
311 Width = 173
312 Height = 21
313 Style = orcsDropDown
314 AutoSelect = True
315 Caption = 'Service to perform this procedure'
316 Color = clWindow
317 DropDownCount = 8
318 Enabled = False
319 Font.Charset = DEFAULT_CHARSET
320 Font.Color = clGrayText
321 Font.Height = -11
322 Font.Name = 'MS Sans Serif'
323 Font.Style = []
324 ItemHeight = 13
325 ItemTipColor = clWindow
326 ItemTipEnable = True
327 ListItemsOnly = False
328 LongList = False
329 LookupPiece = 0
330 MaxLength = 0
331 ParentFont = False
332 Pieces = '2'
333 Sorted = False
334 SynonymChars = '<>'
335 TabOrder = 1
336 OnChange = ControlChange
337 CharsNeedMatch = 1
338 end
339 object memComment: TRichEdit
340 Left = 106
341 Top = 123
342 Width = 449
343 Height = 38
344 Anchors = [akLeft, akTop, akRight]
345 PopupMenu = popReason
346 TabOrder = 11
347 WantTabs = True
348 OnChange = ControlChange
349 OnKeyUp = memCommentKeyUp
350 end
351 object pnlMessage: TPanel
352 Left = 29
353 Top = 264
354 Width = 381
355 Height = 44
356 Anchors = [akLeft, akRight, akBottom]
357 BevelInner = bvRaised
358 BorderStyle = bsSingle
359 Caption = 'pnlMessage'
360 TabOrder = 16
361 Visible = False
362 object imgMessage: TImage
363 Left = 4
364 Top = 4
365 Width = 32
366 Height = 32
367 end
368 object memMessage: TRichEdit
369 Left = 40
370 Top = 4
371 Width = 332
372 Height = 32
373 Color = clInfoBk
374 Font.Charset = DEFAULT_CHARSET
375 Font.Color = clInfoText
376 Font.Height = -11
377 Font.Name = 'MS Sans Serif'
378 Font.Style = []
379 ParentFont = False
380 ScrollBars = ssVertical
381 TabOrder = 0
382 WantReturns = False
383 end
384 end
385 object btnCmtCancel: TButton
386 Left = 11
387 Top = 116
388 Width = 75
389 Height = 21
390 Caption = 'Cancellation'
391 TabOrder = 9
392 OnClick = btnCmtCancelClick
393 end
394 object btnCmtOther: TButton
395 Left = 11
396 Top = 139
397 Width = 75
398 Height = 21
399 Caption = 'Other'
400 TabOrder = 10
401 OnClick = btnCmtOtherClick
402 end
403 object cmdLexSearch: TButton
404 Left = 507
405 Top = 94
406 Width = 49
407 Height = 21
408 Anchors = [akTop, akRight]
409 Caption = 'Lexicon'
410 TabOrder = 8
411 OnClick = cmdLexSearchClick
412 end
413 object mnuPopProvDx: TPopupMenu
414 Left = 353
415 Top = 77
416 object mnuPopProvDxDelete: TMenuItem
417 Caption = 'Delete diagnosis'
418 OnClick = mnuPopProvDxDeleteClick
419 end
420 end
421 object popReason: TPopupMenu
422 OnPopup = popReasonPopup
423 Left = 411
424 Top = 169
425 object popReasonCut: TMenuItem
426 Caption = 'Cu&t'
427 ShortCut = 16472
428 OnClick = popReasonCutClick
429 end
430 object popReasonCopy: TMenuItem
431 Caption = '&Copy'
432 ShortCut = 16451
433 OnClick = popReasonCopyClick
434 end
435 object popReasonPaste: TMenuItem
436 Caption = '&Paste'
437 ShortCut = 16470
438 OnClick = popReasonPasteClick
439 end
440 object popReasonPaste2: TMenuItem
441 Caption = 'Paste2'
442 ShortCut = 8237
443 Visible = False
444 OnClick = popReasonPasteClick
445 end
446 object popReasonReformat: TMenuItem
447 Caption = 'Reformat Paragraph'
448 ShortCut = 16466
449 OnClick = popReasonReformatClick
450 end
451 end
452end
Note: See TracBrowser for help on using the repository browser.