source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm@ 1806

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

Uploading from OR_30_258

File size: 8.7 KB
Line 
1inherited frmODProc: TfrmODProc
2 Tag = 112
3 Left = 208
4 Top = 188
5 Width = 543
6 Height = 393
7 HorzScrollBar.Range = 523
8 VertScrollBar.Range = 295
9 Caption = 'Order a Procedure'
10 Constraints.MinHeight = 393
11 Constraints.MinWidth = 543
12 PixelsPerInch = 96
13 TextHeight = 13
14 object lblProc: TLabel [0]
15 Left = 4
16 Top = 4
17 Width = 49
18 Height = 13
19 Caption = 'Procedure'
20 end
21 object lblService: TOROffsetLabel [1]
22 Left = 4
23 Top = 42
24 Width = 158
25 Height = 15
26 Caption = 'Service to perform this procedure'
27 HorzOffset = 2
28 Transparent = False
29 VertOffset = 2
30 WordWrap = False
31 end
32 object lblReason: TLabel [2]
33 Left = 4
34 Top = 103
35 Width = 95
36 Height = 13
37 Caption = 'Reason for Request'
38 end
39 object lblUrgency: TStaticText [3]
40 Left = 249
41 Top = 4
42 Width = 44
43 Height = 17
44 Anchors = [akTop, akRight]
45 Caption = 'Urgency'
46 TabOrder = 15
47 end
48 object lblPlace: TStaticText [4]
49 Left = 396
50 Top = 43
51 Width = 104
52 Height = 17
53 Anchors = [akTop, akRight]
54 Caption = 'Place of Consultation'
55 TabOrder = 16
56 end
57 object lblAttn: TStaticText [5]
58 Left = 396
59 Top = 4
60 Width = 46
61 Height = 17
62 Anchors = [akTop, akRight]
63 Caption = 'Attention'
64 TabOrder = 17
65 end
66 object lblProvDiag: TStaticText [6]
67 Left = 249
68 Top = 81
69 Width = 104
70 Height = 17
71 Anchors = [akTop, akRight]
72 Caption = 'Provisional Diagnosis'
73 TabOrder = 18
74 end
75 object pnlReason: TPanel [7]
76 Left = 0
77 Top = 120
78 Width = 528
79 Height = 192
80 Anchors = [akLeft, akTop, akRight, akBottom]
81 BevelOuter = bvNone
82 TabOrder = 9
83 object memReason: TCaptionRichEdit
84 Left = 0
85 Top = 0
86 Width = 528
87 Height = 192
88 Align = alClient
89 Font.Charset = DEFAULT_CHARSET
90 Font.Color = clWindowText
91 Font.Height = -11
92 Font.Name = 'Courier New'
93 Font.Style = []
94 Constraints.MinHeight = 40
95 ParentFont = False
96 PopupMenu = popReason
97 ScrollBars = ssBoth
98 TabOrder = 0
99 WantTabs = True
100 OnChange = ControlChange
101 OnExit = memReasonExit
102 OnKeyDown = memReasonKeyDown
103 OnKeyPress = memReasonKeyPress
104 OnKeyUp = memReasonKeyUp
105 Caption = 'Reason for Request'
106 end
107 end
108 inherited memOrder: TCaptionMemo
109 Left = 0
110 Top = 321
111 Width = 380
112 Height = 41
113 Anchors = [akLeft, akRight]
114 Lines.Strings = (
115 'The order text...'
116
117 '----------------------------------------------------------------' +
118 '--------------'
119 'An order message may be displayed here.')
120 TabOrder = 1
121 end
122 object cboUrgency: TORComboBox [9]
123 Left = 249
124 Top = 17
125 Width = 133
126 Height = 21
127 Anchors = [akTop, akRight]
128 Style = orcsDropDown
129 AutoSelect = True
130 Caption = 'Urgency'
131 Color = clWindow
132 DropDownCount = 8
133 ItemHeight = 13
134 ItemTipColor = clWindow
135 ItemTipEnable = True
136 ListItemsOnly = True
137 LongList = False
138 LookupPiece = 0
139 MaxLength = 0
140 Pieces = '2'
141 Sorted = False
142 SynonymChars = '<>'
143 TabOrder = 2
144 OnChange = ControlChange
145 CharsNeedMatch = 1
146 end
147 object cboPlace: TORComboBox [10]
148 Left = 396
149 Top = 56
150 Width = 133
151 Height = 21
152 Anchors = [akTop, akRight]
153 Style = orcsDropDown
154 AutoSelect = True
155 Caption = 'Place of Consultation'
156 Color = clWindow
157 DropDownCount = 8
158 ItemHeight = 13
159 ItemTipColor = clWindow
160 ItemTipEnable = True
161 ListItemsOnly = True
162 LongList = False
163 LookupPiece = 0
164 MaxLength = 0
165 Pieces = '2'
166 Sorted = False
167 SynonymChars = '<>'
168 TabOrder = 6
169 OnChange = ControlChange
170 CharsNeedMatch = 1
171 end
172 object txtAttn: TORComboBox [11]
173 Left = 396
174 Top = 17
175 Width = 133
176 Height = 21
177 Anchors = [akTop, akRight]
178 Style = orcsDropDown
179 AutoSelect = True
180 Caption = 'Attention'
181 Color = clWindow
182 DropDownCount = 8
183 ItemHeight = 13
184 ItemTipColor = clWindow
185 ItemTipEnable = True
186 ListItemsOnly = True
187 LongList = True
188 LookupPiece = 2
189 MaxLength = 0
190 Pieces = '2,3'
191 Sorted = False
192 SynonymChars = '<>'
193 TabOrder = 3
194 OnChange = ControlChange
195 OnNeedData = txtAttnNeedData
196 CharsNeedMatch = 1
197 end
198 object cboProc: TORComboBox [12]
199 Left = 4
200 Top = 17
201 Width = 227
202 Height = 21
203 Anchors = [akLeft, akTop, akRight]
204 Style = orcsDropDown
205 AutoSelect = True
206 Caption = 'Procedure'
207 Color = clWindow
208 DropDownCount = 8
209 ItemHeight = 13
210 ItemTipColor = clWindow
211 ItemTipEnable = True
212 ListItemsOnly = True
213 LongList = True
214 LookupPiece = 0
215 MaxLength = 0
216 Pieces = '2'
217 Sorted = False
218 SynonymChars = '<>'
219 TabOrder = 0
220 OnChange = cboProcSelect
221 OnNeedData = cboProcNeedData
222 CharsNeedMatch = 1
223 end
224 object cboCategory: TORComboBox [13]
225 Left = 516
226 Top = 10
227 Width = 3
228 Height = 21
229 Style = orcsDropDown
230 AutoSelect = True
231 Color = clWindow
232 DropDownCount = 8
233 ItemHeight = 13
234 ItemTipColor = clWindow
235 ItemTipEnable = True
236 ListItemsOnly = False
237 LongList = False
238 LookupPiece = 0
239 MaxLength = 0
240 Sorted = False
241 SynonymChars = '<>'
242 TabOrder = 13
243 Visible = False
244 OnChange = ControlChange
245 CharsNeedMatch = 1
246 end
247 object cboService: TORComboBox [14]
248 Left = 4
249 Top = 58
250 Width = 227
251 Height = 21
252 Anchors = [akLeft, akTop, akRight]
253 Style = orcsDropDown
254 AutoSelect = True
255 Caption = 'Service to perform this procedure'
256 Color = clWindow
257 DropDownCount = 8
258 Enabled = False
259 ItemHeight = 13
260 ItemTipColor = clWindow
261 ItemTipEnable = True
262 ListItemsOnly = False
263 LongList = False
264 LookupPiece = 0
265 MaxLength = 0
266 Pieces = '2'
267 Sorted = False
268 SynonymChars = '<>'
269 TabOrder = 4
270 OnChange = cboServiceChange
271 CharsNeedMatch = 1
272 end
273 inherited cmdAccept: TButton
274 Left = 387
275 Top = 339
276 Anchors = [akRight, akBottom]
277 TabOrder = 10
278 end
279 inherited cmdQuit: TButton
280 Left = 469
281 Top = 339
282 Width = 64
283 Anchors = [akRight, akBottom]
284 TabOrder = 11
285 end
286 inherited pnlMessage: TPanel
287 Left = 50
288 Top = 320
289 Width = 316
290 Anchors = [akLeft, akRight, akBottom]
291 TabOrder = 12
292 inherited memMessage: TRichEdit
293 Width = 254
294 end
295 end
296 object cmdLexSearch: TButton
297 Left = 486
298 Top = 93
299 Width = 49
300 Height = 21
301 Anchors = [akTop, akRight]
302 Caption = 'Lexicon'
303 TabOrder = 8
304 OnClick = cmdLexSearchClick
305 end
306 object gbInptOpt: TGroupBox
307 Left = 249
308 Top = 36
309 Width = 140
310 Height = 45
311 Anchors = [akTop, akRight]
312 Caption = 'Patient will be seen as an:'
313 TabOrder = 5
314 object radInpatient: TRadioButton
315 Left = 3
316 Top = 20
317 Width = 61
318 Height = 17
319 Caption = '&Inpatient'
320 TabOrder = 0
321 OnClick = radInpatientClick
322 end
323 object radOutpatient: TRadioButton
324 Left = 67
325 Top = 20
326 Width = 71
327 Height = 17
328 Caption = '&Outpatient'
329 TabOrder = 1
330 OnClick = radOutpatientClick
331 end
332 end
333 object txtProvDiag: TCaptionEdit
334 Left = 249
335 Top = 93
336 Width = 234
337 Height = 21
338 Anchors = [akTop, akRight]
339 MaxLength = 180
340 ParentShowHint = False
341 PopupMenu = mnuPopProvDx
342 ShowHint = True
343 TabOrder = 7
344 OnChange = txtProvDiagChange
345 Caption = 'Provisional Diagnosis'
346 end
347 object mnuPopProvDx: TPopupMenu
348 Left = 353
349 Top = 77
350 object mnuPopProvDxDelete: TMenuItem
351 Caption = 'Delete diagnosis'
352 OnClick = mnuPopProvDxDeleteClick
353 end
354 end
355 object popReason: TPopupMenu
356 OnPopup = popReasonPopup
357 Left = 411
358 Top = 169
359 object popReasonCut: TMenuItem
360 Caption = 'Cu&t'
361 ShortCut = 16472
362 OnClick = popReasonCutClick
363 end
364 object popReasonCopy: TMenuItem
365 Caption = '&Copy'
366 ShortCut = 16451
367 OnClick = popReasonCopyClick
368 end
369 object popReasonPaste: TMenuItem
370 Caption = '&Paste'
371 ShortCut = 16470
372 OnClick = popReasonPasteClick
373 end
374 object popReasonPaste2: TMenuItem
375 Caption = 'Paste2'
376 ShortCut = 8237
377 Visible = False
378 OnClick = popReasonPasteClick
379 end
380 object popReasonReformat: TMenuItem
381 Caption = 'Reformat Paragraph'
382 ShortCut = 16466
383 OnClick = popReasonReformatClick
384 end
385 end
386end
Note: See TracBrowser for help on using the repository browser.