source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fODProc.dfm@ 768

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 10.9 KB
RevLine 
[453]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 object cmdLexSearch: TButton [15]
274 Left = 486
275 Top = 93
276 Width = 49
277 Height = 21
278 Anchors = [akTop, akRight]
279 Caption = 'Lexicon'
280 TabOrder = 8
281 OnClick = cmdLexSearchClick
282 end
283 object gbInptOpt: TGroupBox [16]
284 Left = 249
285 Top = 36
286 Width = 140
287 Height = 45
288 Anchors = [akTop, akRight]
289 Caption = 'Patient will be seen as an:'
290 TabOrder = 5
291 object radInpatient: TRadioButton
292 Left = 3
293 Top = 20
294 Width = 61
295 Height = 17
296 Caption = '&Inpatient'
297 TabOrder = 0
298 OnClick = radInpatientClick
299 end
300 object radOutpatient: TRadioButton
301 Left = 67
302 Top = 20
303 Width = 71
304 Height = 17
305 Caption = '&Outpatient'
306 TabOrder = 1
307 OnClick = radOutpatientClick
308 end
309 end
310 object txtProvDiag: TCaptionEdit [17]
311 Left = 249
312 Top = 93
313 Width = 234
314 Height = 21
315 Anchors = [akTop, akRight]
316 MaxLength = 180
317 ParentShowHint = False
318 PopupMenu = mnuPopProvDx
319 ShowHint = True
320 TabOrder = 7
321 OnChange = txtProvDiagChange
322 Caption = 'Provisional Diagnosis'
323 end
324 inherited cmdAccept: TButton
325 Left = 387
326 Top = 339
327 Anchors = [akRight, akBottom]
328 TabOrder = 10
329 end
330 inherited cmdQuit: TButton
331 Left = 469
332 Top = 339
333 Width = 64
334 Anchors = [akRight, akBottom]
335 TabOrder = 11
336 end
337 inherited pnlMessage: TPanel
338 Left = 50
339 Top = 320
340 Width = 316
341 Anchors = [akLeft, akRight, akBottom]
342 TabOrder = 12
343 inherited memMessage: TRichEdit
344 Width = 254
345 end
346 end
347 inherited DKLanguageController1: TDKLanguageController
348 LangData = {
349 090066726D4F4450726F63010100000005000000070043617074696F6E012200
350 000008006D656D4F72646572010200000002000000070043617074696F6E0600
351 000005004C696E6573000900636D644163636570740101000000030000000700
352 43617074696F6E000700636D6451756974010100000004000000070043617074
353 696F6E000A00706E6C4D65737361676500000A00696D674D6573736167650000
354 0A006D656D4D657373616765000007006C626C50726F63010100000007000000
355 070043617074696F6E000A006C626C5365727669636501010000000800000007
356 0043617074696F6E0009006C626C526561736F6E010100000009000000070043
357 617074696F6E000A006C626C557267656E637901010000000A00000007004361
358 7074696F6E0008006C626C506C61636501010000000B00000007004361707469
359 6F6E0007006C626C4174746E01010000000C000000070043617074696F6E000B
360 006C626C50726F764469616701010000000D000000070043617074696F6E0009
361 00706E6C526561736F6E000009006D656D526561736F6E01010000000E000000
362 070043617074696F6E000A0063626F557267656E637901010000000F00000007
363 0043617074696F6E00080063626F506C61636501010000001000000007004361
364 7074696F6E0007007478744174746E010100000011000000070043617074696F
365 6E00070063626F50726F63010100000012000000070043617074696F6E000B00
366 63626F43617465676F727900000A0063626F5365727669636501010000001300
367 0000070043617074696F6E000C00636D644C6578536561726368010100000014
368 000000070043617074696F6E0009006762496E70744F70740101000000150000
369 00070043617074696F6E000C00726164496E70617469656E7401010000001600
370 0000070043617074696F6E000D007261644F757470617469656E740101000000
371 17000000070043617074696F6E000B0074787450726F76446961670101000000
372 18000000070043617074696F6E000C006D6E75506F7050726F76447800001200
373 6D6E75506F7050726F76447844656C6574650101000000190000000700436170
374 74696F6E000900706F70526561736F6E00000C00706F70526561736F6E437574
375 01010000001A000000070043617074696F6E000D00706F70526561736F6E436F
376 707901010000001B000000070043617074696F6E000E00706F70526561736F6E
377 506173746501010000001C000000070043617074696F6E000F00706F70526561
378 736F6E50617374653201010000001D000000070043617074696F6E001100706F
379 70526561736F6E5265666F726D617401010000001E000000070043617074696F
380 6E00}
381 end
382 object mnuPopProvDx: TPopupMenu
383 Left = 353
384 Top = 77
385 object mnuPopProvDxDelete: TMenuItem
386 Caption = 'Delete diagnosis'
387 OnClick = mnuPopProvDxDeleteClick
388 end
389 end
390 object popReason: TPopupMenu
391 OnPopup = popReasonPopup
392 Left = 411
393 Top = 169
394 object popReasonCut: TMenuItem
395 Caption = 'Cu&t'
396 ShortCut = 16472
397 OnClick = popReasonCutClick
398 end
399 object popReasonCopy: TMenuItem
400 Caption = '&Copy'
401 ShortCut = 16451
402 OnClick = popReasonCopyClick
403 end
404 object popReasonPaste: TMenuItem
405 Caption = '&Paste'
406 ShortCut = 16470
407 OnClick = popReasonPasteClick
408 end
409 object popReasonPaste2: TMenuItem
410 Caption = 'Paste2'
411 ShortCut = 8237
412 Visible = False
413 OnClick = popReasonPasteClick
414 end
415 object popReasonReformat: TMenuItem
416 Caption = 'Reformat Paragraph'
417 ShortCut = 16466
418 OnClick = popReasonReformatClick
419 end
420 end
421end
Note: See TracBrowser for help on using the repository browser.