source: cprs/trunk/CPRS-Chart/fDCSummProps.dfm@ 1332

Last change on this file since 1332 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27
File size: 9.3 KB
RevLine 
[830]1inherited frmDCSummProperties: TfrmDCSummProperties
[456]2 Left = 298
3 Top = 186
4 BorderIcons = []
5 Caption = 'Discharge Summary Properties'
6 ClientHeight = 437
7 ClientWidth = 498
8 Position = poScreenCenter
9 OnClose = FormClose
10 OnShow = FormShow
[830]11 ExplicitWidth = 506
12 ExplicitHeight = 471
[456]13 PixelsPerInch = 96
14 TextHeight = 13
[830]15 object bvlConsult: TBevel [0]
[456]16 Tag = 1
17 Left = 6
18 Top = 119
19 Width = 483
20 Height = 2
21 end
[830]22 object pnlFields: TORAutoPanel [1]
[456]23 Left = 0
24 Top = 0
25 Width = 498
26 Height = 218
27 Align = alTop
28 BevelOuter = bvNone
29 TabOrder = 0
30 object lblNewTitle: TLabel
31 Left = 7
32 Top = 15
33 Width = 120
34 Height = 13
35 Alignment = taRightJustify
36 Caption = 'Discharge Summary Title:'
37 end
38 object lblDateTime: TLabel
39 Left = 28
40 Top = 141
41 Width = 99
42 Height = 13
43 Alignment = taRightJustify
44 Caption = 'Dictation Date/Time:'
45 end
46 object lblAuthor: TLabel
47 Left = 51
48 Top = 167
49 Width = 76
50 Height = 13
51 Alignment = taRightJustify
52 Caption = 'Author/Dictator:'
53 end
54 object lblCosigner: TLabel
55 Left = 31
56 Top = 194
57 Width = 96
58 Height = 13
59 Alignment = taRightJustify
60 Caption = 'Attending Physician:'
61 end
62 object cboNewTitle: TORComboBox
63 Left = 148
64 Top = 11
65 Width = 347
66 Height = 118
67 Style = orcsSimple
68 AutoSelect = True
69 Caption = 'Discharge Summary Title:'
70 Color = clWindow
71 DropDownCount = 8
72 ItemHeight = 13
73 ItemTipColor = clWindow
74 ItemTipEnable = True
75 ListItemsOnly = True
76 LongList = True
77 LookupPiece = 0
78 MaxLength = 0
79 ParentShowHint = False
80 Pieces = '2'
81 ShowHint = True
82 Sorted = False
83 SynonymChars = '<>'
84 TabOrder = 0
[830]85 OnChange = cboNewTitleChange
[456]86 OnDblClick = cboNewTitleDblClick
87 OnDropDownClose = cboNewTitleDropDownClose
88 OnEnter = cboNewTitleEnter
89 OnExit = cboNewTitleExit
90 OnMouseClick = cboNewTitleMouseClick
91 OnNeedData = cboNewTitleNeedData
92 CharsNeedMatch = 1
93 end
94 object calSumm: TORDateBox
95 Left = 148
96 Top = 138
97 Width = 140
98 Height = 21
99 TabOrder = 1
100 DateOnly = False
101 RequireTime = False
102 Caption = 'Dictation Date/Time:'
103 end
104 object cboAuthor: TORComboBox
105 Left = 148
106 Top = 164
107 Width = 239
108 Height = 21
109 Style = orcsDropDown
110 AutoSelect = True
111 Caption = 'Author/Dictator:'
112 Color = clWindow
113 DropDownCount = 8
114 ItemHeight = 13
115 ItemTipColor = clWindow
116 ItemTipEnable = True
117 ListItemsOnly = False
118 LongList = True
119 LookupPiece = 2
120 MaxLength = 0
121 ParentShowHint = False
122 Pieces = '2,3'
123 ShowHint = True
124 Sorted = False
125 SynonymChars = '<>'
126 TabOrder = 2
127 OnEnter = cboAuthorEnter
128 OnExit = cboAuthorExit
129 OnMouseClick = cboAuthorMouseClick
130 OnNeedData = cboAuthorNeedData
131 CharsNeedMatch = 1
132 end
133 object cboAttending: TORComboBox
134 Left = 148
135 Top = 191
136 Width = 239
137 Height = 21
138 Style = orcsDropDown
139 AutoSelect = True
140 Caption = 'Attending Physician:'
141 Color = clWindow
142 DropDownCount = 8
143 ItemHeight = 13
144 ItemTipColor = clWindow
145 ItemTipEnable = True
146 ListItemsOnly = False
147 LongList = True
148 LookupPiece = 2
149 MaxLength = 0
150 ParentShowHint = False
151 Pieces = '2,3'
152 ShowHint = True
153 Sorted = False
154 SynonymChars = '<>'
155 TabOrder = 3
156 OnExit = cboAttendingExit
157 OnNeedData = cboAttendingNeedData
158 CharsNeedMatch = 1
159 end
160 object cmdOK: TButton
161 Left = 411
162 Top = 165
163 Width = 72
164 Height = 21
165 Caption = 'OK'
166 Default = True
167 TabOrder = 4
168 OnClick = cmdOKClick
169 end
170 object cmdCancel: TButton
171 Left = 411
172 Top = 190
173 Width = 72
174 Height = 21
175 Cancel = True
176 Caption = 'Cancel'
177 TabOrder = 5
178 OnClick = cmdCancelClick
179 end
180 end
[830]181 object pnlTranscription: TORAutoPanel [2]
[456]182 Left = 0
183 Top = 218
184 Width = 498
185 Height = 63
186 Align = alTop
187 BevelOuter = bvNone
188 TabOrder = 1
189 Visible = False
190 object lblTranscriptionist: TLabel
191 Left = 53
192 Top = 13
193 Width = 71
194 Height = 13
195 Alignment = taRightJustify
196 Caption = 'Transcriptionist'
197 end
198 object lblUrgency: TLabel
199 Left = 84
200 Top = 38
201 Width = 40
202 Height = 13
203 Alignment = taRightJustify
204 Caption = 'Urgency'
205 end
206 object cboTranscriptionist: TORComboBox
207 Left = 148
208 Top = 7
209 Width = 239
210 Height = 21
211 Style = orcsDropDown
212 AutoSelect = True
213 Caption = 'Transcriptionist'
214 Color = clWindow
215 DropDownCount = 8
216 ItemHeight = 13
217 ItemTipColor = clWindow
218 ItemTipEnable = True
219 ListItemsOnly = True
220 LongList = True
221 LookupPiece = 2
222 MaxLength = 0
223 ParentShowHint = False
224 Pieces = '2,3'
225 ShowHint = True
226 Sorted = False
227 SynonymChars = '<>'
228 TabOrder = 0
229 OnNeedData = cboAuthorNeedData
230 CharsNeedMatch = 1
231 end
232 object cboUrgency: TORComboBox
233 Left = 148
234 Top = 37
235 Width = 121
236 Height = 21
237 Style = orcsDropDown
238 AutoSelect = True
239 Caption = 'Urgency'
240 Color = clWindow
241 DropDownCount = 8
242 ItemHeight = 13
243 ItemTipColor = clWindow
244 ItemTipEnable = True
245 ListItemsOnly = True
246 LongList = False
247 LookupPiece = 0
248 MaxLength = 0
249 Pieces = '2'
250 Sorted = False
251 SynonymChars = '<>'
252 TabOrder = 1
253 CharsNeedMatch = 1
254 end
255 end
[830]256 object pnlAdmissions: TORAutoPanel [3]
[456]257 Left = 0
258 Top = 327
259 Width = 498
260 Height = 110
261 Align = alClient
262 AutoSize = True
263 BevelOuter = bvNone
264 TabOrder = 2
265 Visible = False
266 object lstAdmissions: TORListBox
267 Left = 0
268 Top = 0
269 Width = 498
270 Height = 110
271 Align = alClient
272 ItemHeight = 13
273 ParentShowHint = False
274 ShowHint = True
275 TabOrder = 0
276 Caption = 'Associated Admission'
277 ItemTipColor = clWindow
278 LongList = False
279 Pieces = '3,5,4,9'
280 TabPositions = '20'
281 OnChange = lstAdmissionsChange
282 end
283 end
[830]284 object pnlLabels: TORAutoPanel [4]
[456]285 Left = 0
286 Top = 281
287 Width = 498
288 Height = 46
289 Align = alTop
290 AutoSize = True
291 BevelOuter = bvNone
292 TabOrder = 3
293 Visible = False
294 DesignSize = (
295 498
296 46)
297 object lblLocation: TLabel
298 Left = 1
299 Top = 33
300 Width = 41
301 Height = 13
302 Caption = 'Location'
303 end
304 object lblDate: TLabel
305 Left = 133
306 Top = 33
307 Width = 73
308 Height = 13
309 Caption = 'Admission Date'
310 end
311 object lblType: TLabel
312 Left = 249
313 Top = 33
314 Width = 24
315 Height = 13
316 Caption = 'Type'
317 end
318 object lblSummStatus: TLabel
319 Left = 336
320 Top = 33
321 Width = 127
322 Height = 13
323 Caption = 'Discharge Summary Status'
324 end
325 object lblDCSumm1: TStaticText
326 Tag = 1
327 Left = 81
328 Top = 0
329 Width = 300
330 Height = 17
331 Anchors = []
332 Caption = 'This discharge summary must be associated with an admission.'
333 Font.Charset = DEFAULT_CHARSET
334 Font.Color = clWindowText
335 Font.Height = -11
336 Font.Name = 'MS Sans Serif'
337 Font.Style = []
338 ParentFont = False
339 TabOrder = 0
340 end
341 object lblDCSumm2: TStaticText
342 Tag = 1
343 Left = 120
344 Top = 14
345 Width = 207
346 Height = 17
347 Anchors = []
348 Caption = 'Select one of the following or press cancel.'
349 TabOrder = 1
350 end
351 end
[830]352 inherited amgrMain: TVA508AccessibilityManager
353 Data = (
354 (
355 'Component = pnlFields'
356 'Status = stsDefault')
357 (
358 'Component = cboNewTitle'
359 'Status = stsDefault')
360 (
361 'Component = calSumm'
362 'Status = stsDefault')
363 (
364 'Component = cboAuthor'
365 'Status = stsDefault')
366 (
367 'Component = cboAttending'
368 'Status = stsDefault')
369 (
370 'Component = cmdOK'
371 'Status = stsDefault')
372 (
373 'Component = cmdCancel'
374 'Status = stsDefault')
375 (
376 'Component = pnlTranscription'
377 'Status = stsDefault')
378 (
379 'Component = cboTranscriptionist'
380 'Status = stsDefault')
381 (
382 'Component = cboUrgency'
383 'Status = stsDefault')
384 (
385 'Component = pnlAdmissions'
386 'Status = stsDefault')
387 (
388 'Component = lstAdmissions'
389 'Status = stsDefault')
390 (
391 'Component = pnlLabels'
392 'Status = stsDefault')
393 (
394 'Component = lblDCSumm1'
395 'Status = stsDefault')
396 (
397 'Component = lblDCSumm2'
398 'Status = stsDefault')
399 (
400 'Component = frmDCSummProperties'
401 'Status = stsDefault'))
402 end
[456]403end
Note: See TracBrowser for help on using the repository browser.