source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.dfm@ 1676

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

Uploading from OR_30_258
File size: 9.0 KB
RevLine 
[459]1object frmConsultAction: TfrmConsultAction
2 Left = 277
3 Top = 217
4 Width = 600
5 Height = 406
6 BorderIcons = []
7 Caption = 'frmConsultAction'
8 Color = clBtnFace
9 Constraints.MinHeight = 406
10 Constraints.MinWidth = 600
11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 Font.Style = []
16 OldCreateOrder = True
17 Position = poScreenCenter
18 PixelsPerInch = 96
19 TextHeight = 13
20 object pnlBase: TPanel
21 Left = 0
22 Top = 0
23 Width = 592
24 Height = 379
25 Align = alClient
26 BevelOuter = bvNone
27 TabOrder = 0
28 object pnlForward: TPanel
29 Left = 0
30 Top = 0
31 Width = 224
32 Height = 379
33 Align = alLeft
34 BevelOuter = bvNone
35 TabOrder = 0
36 object lblToService: TOROffsetLabel
37 Left = 2
38 Top = 0
39 Width = 120
40 Height = 19
41 Caption = 'To service'
42 HorzOffset = 2
43 Transparent = False
44 VertOffset = 6
45 WordWrap = False
46 end
47 object lblAttentionOf: TOROffsetLabel
48 Left = 2
49 Top = 325
50 Width = 44
51 Height = 19
52 Caption = 'Attention'
53 HorzOffset = 2
54 Transparent = False
55 VertOffset = 6
56 WordWrap = False
57 end
58 object lblUrgency: TOROffsetLabel
59 Left = 2
60 Top = 277
61 Width = 42
62 Height = 19
63 Caption = 'Urgency'
64 HorzOffset = 2
65 Transparent = False
66 VertOffset = 6
67 WordWrap = False
68 end
69 object Label1: TMemo
70 Left = 18
71 Top = 123
72 Width = 185
73 Height = 65
74 TabStop = False
75 Alignment = taCenter
76 BorderStyle = bsNone
77 Color = clBtnFace
78 Lines.Strings = (
79 'A procedure can only be forwarded to '
80 'other services defined as being able to '
81 'perform that procedure. Valid '
82 'selections for this procedure are listed '
83 'in the drop-down box above.')
84 ReadOnly = True
85 TabOrder = 4
86 end
87 object cboAttentionOf: TORComboBox
88 Left = 2
89 Top = 344
90 Width = 212
91 Height = 21
92 Style = orcsDropDown
93 AutoSelect = True
94 Caption = 'Attention'
95 Color = clWindow
96 DropDownCount = 8
97 ItemHeight = 13
98 ItemTipColor = clWindow
99 ItemTipEnable = True
100 ListItemsOnly = True
101 LongList = True
102 LookupPiece = 2
103 MaxLength = 0
104 Pieces = '2,3'
105 Sorted = False
106 SynonymChars = '<>'
107 TabOrder = 3
108 OnNeedData = NewPersonNeedData
[460]109 CharsNeedMatch = 1
[459]110 end
111 object cboUrgency: TORComboBox
112 Left = 2
113 Top = 297
114 Width = 212
115 Height = 21
116 Style = orcsDropDown
117 AutoSelect = True
118 Caption = 'Urgency'
119 Color = clWindow
120 DropDownCount = 8
121 ItemHeight = 13
122 ItemTipColor = clWindow
123 ItemTipEnable = True
124 ListItemsOnly = True
125 LongList = False
126 LookupPiece = 0
127 MaxLength = 0
128 Pieces = '2'
129 Sorted = False
130 SynonymChars = '<>'
131 TabOrder = 2
[460]132 CharsNeedMatch = 1
[459]133 end
134 object treService: TORTreeView
135 Left = 2
136 Top = 100
137 Width = 212
138 Height = 182
139 HideSelection = False
140 Indent = 19
141 ReadOnly = True
142 TabOrder = 1
143 OnChange = treServiceChange
144 OnExit = treServiceExit
145 Caption = 'To service'
146 NodePiece = 0
147 end
148 object cboService: TORComboBox
149 Left = 2
150 Top = 23
151 Width = 212
152 Height = 75
153 Style = orcsSimple
154 AutoSelect = True
155 Caption = 'To service'
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 = True
167 SynonymChars = '<>'
168 TabOrder = 0
169 OnKeyPause = cboServiceSelect
170 OnMouseClick = cboServiceSelect
[460]171 CharsNeedMatch = 1
[459]172 end
173 end
174 object pnlOther: TPanel
175 Left = 224
176 Top = 0
177 Width = 368
178 Height = 379
179 Align = alClient
180 BevelOuter = bvNone
181 TabOrder = 1
182 object pnlSigFind: TPanel
183 Left = 0
184 Top = 0
185 Width = 368
186 Height = 57
187 Align = alTop
188 BevelOuter = bvNone
189 TabOrder = 0
190 object grpSigFindings: TRadioGroup
191 Left = 9
192 Top = 7
193 Width = 350
194 Height = 41
195 Caption = 'Significant Findings - Current status: '
196 Columns = 3
197 Ctl3D = True
198 Items.Strings = (
199 '&Yes'
200 '&No'
201 '&Unknown')
202 ParentCtl3D = False
203 TabOrder = 0
204 end
205 end
206 object pnlComments: TPanel
207 Left = 0
208 Top = 57
209 Width = 368
210 Height = 224
211 Align = alClient
212 Alignment = taLeftJustify
213 BevelOuter = bvNone
214 TabOrder = 1
215 object lblComments: TOROffsetLabel
216 Left = 0
217 Top = 0
218 Width = 368
219 Height = 19
220 Align = alTop
221 Caption = 'Comments'
222 HorzOffset = 2
223 Transparent = False
224 VertOffset = 6
225 WordWrap = False
226 end
227 object memComments: TCaptionMemo
228 Left = 0
229 Top = 19
230 Width = 368
231 Height = 170
232 Align = alClient
233 Font.Charset = ANSI_CHARSET
234 Font.Color = clWindowText
235 Font.Height = -11
236 Font.Name = 'Courier New'
237 Font.Style = []
238 ParentFont = False
239 ScrollBars = ssVertical
240 TabOrder = 0
241 Caption = 'Comments'
242 end
243 object pnlAlert: TPanel
244 Left = 0
245 Top = 189
246 Width = 368
247 Height = 35
248 Align = alBottom
249 BevelOuter = bvNone
250 TabOrder = 1
251 object lblAutoAlerts: TStaticText
252 Left = 6
253 Top = 1
254 Width = 4
255 Height = 4
256 TabOrder = 1
257 end
258 object ckAlert: TCheckBox
259 Left = 6
260 Top = 17
261 Width = 129
262 Height = 17
263 Caption = 'Send additional alerts'
264 TabOrder = 0
265 OnClick = ckAlertClick
266 end
267 end
268 end
269 object pnlAllActions: TPanel
270 Left = 0
271 Top = 281
272 Width = 368
273 Height = 98
274 Align = alBottom
275 BevelOuter = bvNone
276 TabOrder = 2
277 DesignSize = (
278 368
279 98)
280 object lblActionBy: TOROffsetLabel
281 Left = 138
282 Top = -4
283 Width = 215
284 Height = 19
285 Caption = 'Action by'
286 HorzOffset = 2
287 Transparent = False
288 VertOffset = 6
289 WordWrap = False
290 end
291 object lblDateofAction: TOROffsetLabel
292 Left = 5
293 Top = -4
294 Width = 112
295 Height = 19
296 Caption = 'Date/time of this action'
297 HorzOffset = 2
298 Transparent = False
299 VertOffset = 6
300 WordWrap = False
301 end
302 object calDateofAction: TORDateBox
303 Left = 5
304 Top = 15
305 Width = 116
306 Height = 21
307 TabOrder = 0
308 Text = 'Now'
309 DateOnly = False
310 RequireTime = False
311 Caption = 'Date/time of this action'
312 end
313 object cmdOK: TORAlignButton
314 Left = 201
315 Top = 62
316 Width = 75
317 Height = 22
318 Anchors = [akRight, akBottom]
319 Caption = 'OK'
320 TabOrder = 2
321 OnClick = cmdOKClick
322 end
323 object cmdCancel: TORAlignButton
324 Left = 286
325 Top = 62
326 Width = 75
327 Height = 22
328 Anchors = [akRight, akBottom]
329 Cancel = True
330 Caption = 'Cancel'
331 TabOrder = 3
332 OnClick = cmdCancelClick
333 end
334 object cboPerson: TORComboBox
335 Left = 137
336 Top = 15
337 Width = 220
338 Height = 21
339 Style = orcsDropDown
340 AutoSelect = True
341 Caption = 'Action by'
342 Color = clWindow
343 DropDownCount = 8
344 ItemHeight = 13
345 ItemTipColor = clWindow
346 ItemTipEnable = True
347 ListItemsOnly = True
348 LongList = True
349 LookupPiece = 2
350 MaxLength = 0
351 Pieces = '2,3'
352 Sorted = False
353 SynonymChars = '<>'
354 TabOrder = 1
355 TabStop = True
356 OnNeedData = NewPersonNeedData
[460]357 CharsNeedMatch = 1
[459]358 end
359 end
360 end
361 end
362end
Note: See TracBrowser for help on using the repository browser.