source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditConsult.dfm@ 1065

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

Uploading from OR_30_258
File size: 8.9 KB
RevLine 
[459]1object frmEditCslt: TfrmEditCslt
2 Tag = 110
[460]3 Left = 409
4 Top = 225
[459]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
[460]176 CharsNeedMatch = 1
[459]177 end
178 object cboUrgency: TORComboBox
179 Left = 196
180 Top = 19
181 Width = 170
182 Height = 21
183 Style = orcsDropDown
184 AutoSelect = True
185 Caption = 'Urgency'
186 Color = clWindow
187 DropDownCount = 8
188 ItemHeight = 13
189 ItemTipColor = clWindow
190 ItemTipEnable = True
191 ListItemsOnly = True
192 LongList = False
193 LookupPiece = 0
194 MaxLength = 0
195 Pieces = '2'
196 Sorted = False
197 SynonymChars = '<>'
198 TabOrder = 1
199 OnChange = ControlChange
[460]200 CharsNeedMatch = 1
[459]201 end
202 object radInpatient: TRadioButton
203 Left = 197
204 Top = 61
205 Width = 61
206 Height = 17
207 Caption = '&Inpatient'
208 TabOrder = 5
209 OnClick = radInpatientClick
210 end
211 object radOutpatient: TRadioButton
212 Left = 269
213 Top = 61
214 Width = 73
215 Height = 17
216 Caption = '&Outpatient'
217 TabOrder = 6
218 OnClick = radOutpatientClick
219 end
220 object cboPlace: TORComboBox
221 Left = 376
222 Top = 54
223 Width = 179
224 Height = 21
225 Anchors = [akLeft, akTop, akRight]
226 Style = orcsDropDown
227 AutoSelect = True
228 Caption = 'Place of Consultation'
229 Color = clWindow
230 DropDownCount = 8
231 ItemHeight = 13
232 ItemTipColor = clWindow
233 ItemTipEnable = True
234 ListItemsOnly = True
235 LongList = False
236 LookupPiece = 0
237 MaxLength = 0
238 Pieces = '2'
239 Sorted = False
240 SynonymChars = '<>'
241 TabOrder = 7
242 OnChange = ControlChange
[460]243 CharsNeedMatch = 1
[459]244 end
245 object txtProvDiag: TCaptionEdit
246 Left = 195
247 Top = 95
248 Width = 309
249 Height = 21
250 Anchors = [akLeft, akTop, akRight]
[460]251 MaxLength = 180
[459]252 ParentShowHint = False
253 PopupMenu = mnuPopProvDx
254 ShowHint = True
255 TabOrder = 8
256 OnChange = ControlChange
257 Caption = 'Provisional Diagnosis'
258 end
259 object txtAttn: TORComboBox
260 Left = 376
261 Top = 19
262 Width = 181
263 Height = 21
264 Anchors = [akLeft, akTop, akRight]
265 Style = orcsDropDown
266 AutoSelect = True
267 Caption = 'Attention'
268 Color = clWindow
269 DropDownCount = 8
270 ItemHeight = 13
271 ItemTipColor = clWindow
272 ItemTipEnable = True
273 ListItemsOnly = True
274 LongList = True
275 LookupPiece = 2
276 MaxLength = 0
277 Pieces = '2,3'
278 Sorted = False
279 SynonymChars = '<>'
280 TabOrder = 2
281 OnChange = ControlChange
282 OnNeedData = txtAttnNeedData
[460]283 CharsNeedMatch = 1
[459]284 end
285 object cboCategory: TORComboBox
286 Left = 561
287 Top = 103
288 Width = 10
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 = 14
304 Visible = False
[460]305 CharsNeedMatch = 1
[459]306 end
307 object cmdAccept: TButton
308 Left = 407
309 Top = 313
310 Width = 72
311 Height = 21
312 Anchors = [akRight, akBottom]
313 Caption = 'Resubmit'
314 TabOrder = 12
315 OnClick = cmdAcceptClick
316 end
317 object cmdQuit: TButton
318 Left = 484
319 Top = 313
320 Width = 72
321 Height = 21
322 Anchors = [akRight, akBottom]
323 Cancel = True
324 Caption = 'Cancel'
325 TabOrder = 13
326 OnClick = cmdQuitClick
327 end
328 object memComment: TRichEdit
329 Left = 4
330 Top = 121
331 Width = 550
332 Height = 41
333 Anchors = [akLeft, akTop, akRight]
334 PopupMenu = popReason
335 TabOrder = 10
336 WantTabs = True
337 OnChange = ControlChange
338 OnKeyDown = memCommentKeyDown
339 OnKeyPress = memCommentKeyPress
340 OnKeyUp = memCommentKeyUp
341 end
342 object btnCmtCancel: TButton
343 Left = 110
344 Top = 49
345 Width = 75
346 Height = 21
347 Caption = 'Cancellation'
348 TabOrder = 3
349 OnClick = btnCmtCancelClick
350 end
351 object btnCmtOther: TButton
352 Left = 110
353 Top = 75
354 Width = 75
355 Height = 21
356 Caption = 'Other'
357 TabOrder = 4
358 OnClick = btnCmtOtherClick
359 end
360 object cmdLexSearch: TButton
361 Left = 508
362 Top = 95
363 Width = 46
364 Height = 21
365 Anchors = [akTop, akRight]
366 Caption = 'Lexicon'
367 TabOrder = 9
368 OnClick = cmdLexSearchClick
369 end
370 object mnuPopProvDx: TPopupMenu
371 Left = 353
372 Top = 77
373 object mnuPopProvDxDelete: TMenuItem
374 Caption = 'Delete diagnosis'
375 OnClick = mnuPopProvDxDeleteClick
376 end
377 end
378 object popReason: TPopupMenu
379 OnPopup = popReasonPopup
380 Left = 411
381 Top = 169
382 object popReasonCut: TMenuItem
383 Caption = 'Cu&t'
384 ShortCut = 16472
385 OnClick = popReasonCutClick
386 end
387 object popReasonCopy: TMenuItem
388 Caption = '&Copy'
389 ShortCut = 16451
390 OnClick = popReasonCopyClick
391 end
392 object popReasonPaste: TMenuItem
393 Caption = '&Paste'
394 ShortCut = 16470
395 OnClick = popReasonPasteClick
396 end
397 object popReasonPaste2: TMenuItem
398 Caption = 'Paste2'
399 ShortCut = 8237
400 Visible = False
401 OnClick = popReasonPasteClick
402 end
403 object popReasonReformat: TMenuItem
404 Caption = 'Reformat Paragraph'
405 ShortCut = 16466
406 OnClick = popReasonReformatClick
407 end
408 end
409end
Note: See TracBrowser for help on using the repository browser.