source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fEditProc.dfm@ 1742

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 12.3 KB
RevLine 
[453]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 544
21 284)
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
452 object DKLanguageController1: TDKLanguageController
453 Left = 96
454 Top = 96
455 LangData = {
456 0B0066726D4564697450726F63010100000001000000070043617074696F6E01
457 2500000007006C626C50726F63010100000002000000070043617074696F6E00
458 09006C626C526561736F6E010100000003000000070043617074696F6E000A00
459 6C626C53657276696365010100000004000000070043617074696F6E000A006C
460 626C436F6D6D656E74010100000005000000070043617074696F6E000B006C62
461 6C436F6D6D656E7473010100000006000000070043617074696F6E000A006C62
462 6C557267656E6379010100000007000000070043617074696F6E0008006C626C
463 506C616365010100000008000000070043617074696F6E0007006C626C417474
464 6E010100000009000000070043617074696F6E000B006C626C50726F76446961
465 6701010000000A000000070043617074696F6E000A006C626C496E704F757470
466 01010000000B000000070043617074696F6E0009006D656D526561736F6E0000
467 0900636D6441636365707401010000000C000000070043617074696F6E000700
468 636D645175697401010000000D000000070043617074696F6E000A0063626F55
469 7267656E637901010000000E000000070043617074696F6E000C00726164496E
470 70617469656E7401010000000F000000070043617074696F6E000D007261644F
471 757470617469656E74010100000010000000070043617074696F6E0008006362
472 6F506C616365010100000011000000070043617074696F6E000B007478745072
473 6F7644696167010100000012000000070043617074696F6E0007007478744174
474 746E010100000013000000070043617074696F6E00070063626F50726F630101
475 00000014000000070043617074696F6E000B0063626F43617465676F72790000
476 0A0063626F53657276696365010100000015000000070043617074696F6E000A
477 006D656D436F6D6D656E7400000A00706E6C4D65737361676501010000001600
478 0000070043617074696F6E000A00696D674D65737361676500000A006D656D4D
479 65737361676500000C0062746E436D7443616E63656C01010000001700000007
480 0043617074696F6E000B0062746E436D744F7468657201010000001800000007
481 0043617074696F6E000C00636D644C6578536561726368010100000019000000
482 070043617074696F6E000C006D6E75506F7050726F764478000012006D6E7550
483 6F7050726F76447844656C65746501010000001A000000070043617074696F6E
484 000900706F70526561736F6E00000C00706F70526561736F6E43757401010000
485 001B000000070043617074696F6E000D00706F70526561736F6E436F70790101
486 0000001C000000070043617074696F6E000E00706F70526561736F6E50617374
487 6501010000001D000000070043617074696F6E000F00706F70526561736F6E50
488 617374653201010000001E000000070043617074696F6E001100706F70526561
489 736F6E5265666F726D617401010000001F000000070043617074696F6E00}
490 end
491end
Note: See TracBrowser for help on using the repository browser.