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