source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.dfm@ 459

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

Adding foia-cprs branch
File size: 9.5 KB
Line 
1inherited frmODMedNVA: TfrmODMedNVA
2 Left = 168
3 Top = 36
4 Width = 632
5 Height = 536
6 Caption = 'Document Herbal/OTC/Non-VA Medications'
7 Constraints.MinHeight = 365
8 PixelsPerInch = 96
9 TextHeight = 13
10 inherited memOrder: TCaptionMemo
11 Left = 0
12 Top = 461
13 Width = 525
14 Anchors = [akLeft, akRight, akBottom]
15 Constraints.MinWidth = 25
16 TabOrder = 4
17 end
18 inherited cmdAccept: TButton
19 Left = 540
20 Top = 463
21 Width = 69
22 Anchors = [akRight, akBottom]
23 TabOrder = 6
24 Visible = False
25 end
26 inherited cmdQuit: TButton
27 Left = 546
28 Top = 489
29 Width = 49
30 Anchors = [akRight, akBottom]
31 TabOrder = 7
32 end
33 inherited pnlMessage: TPanel
34 Top = 240
35 end
36 object pnlMeds: TPanel
37 Left = 6
38 Top = 34
39 Width = 593
40 Height = 415
41 Anchors = [akLeft, akTop, akRight, akBottom]
42 BevelOuter = bvNone
43 Caption = 'pnlMeds'
44 TabOrder = 1
45 object sptSelect: TSplitter
46 Left = 0
47 Top = 133
48 Width = 593
49 Height = 4
50 Cursor = crVSplit
51 Align = alTop
52 end
53 object lstQuick: TCaptionListView
54 Left = 0
55 Top = 0
56 Width = 593
57 Height = 133
58 Align = alTop
59 Columns = <
60 item
61 Width = 420
62 end>
63 ColumnClick = False
64 HideSelection = False
65 OwnerData = True
66 ParentShowHint = False
67 ShowColumnHeaders = False
68 ShowHint = True
69 TabOrder = 0
70 TabStop = False
71 ViewStyle = vsReport
72 OnChange = lstChange
73 OnData = lstQuickData
74 Caption = 'Quick Orders'
75 end
76 object lstAll: TCaptionListView
77 Left = 0
78 Top = 137
79 Width = 593
80 Height = 278
81 Align = alClient
82 Columns = <
83 item
84 Width = 420
85 end>
86 ColumnClick = False
87 HideSelection = False
88 OwnerData = True
89 ParentShowHint = False
90 ShowColumnHeaders = False
91 ShowHint = True
92 TabOrder = 1
93 ViewStyle = vsReport
94 OnChange = lstChange
95 OnClick = ListViewClick
96 OnData = lstAllData
97 OnDataHint = lstAllDataHint
98 OnEditing = ListViewEditing
99 OnEnter = ListViewEnter
100 OnResize = ListViewResize
101 Caption = 'All Medication orders'
102 end
103 end
104 object txtMed: TEdit
105 Left = 5
106 Top = 6
107 Width = 596
108 Height = 21
109 Anchors = [akLeft, akTop, akRight]
110 AutoSelect = False
111 TabOrder = 0
112 Text = '(Type a medication name or select from the orders below)'
113 OnChange = txtMedChange
114 OnExit = txtMedExit
115 OnKeyDown = txtMedKeyDown
116 OnKeyUp = txtMedKeyUp
117 end
118 object pnlFields: TPanel
119 Left = 3
120 Top = 30
121 Width = 624
122 Height = 428
123 Anchors = [akLeft, akTop, akRight, akBottom]
124 BevelOuter = bvNone
125 Enabled = False
126 TabOrder = 2
127 Visible = False
128 object pnlTop: TPanel
129 Left = 0
130 Top = 0
131 Width = 624
132 Height = 264
133 Align = alClient
134 Constraints.MinHeight = 80
135 Constraints.MinWidth = 30
136 TabOrder = 0
137 DesignSize = (
138 624
139 264)
140 object lblRoute: TLabel
141 Left = 349
142 Top = 23
143 Width = 29
144 Height = 13
145 Anchors = [akTop, akRight]
146 Caption = 'Route'
147 Visible = False
148 end
149 object lblSchedule: TLabel
150 Left = 467
151 Top = 23
152 Width = 45
153 Height = 13
154 Anchors = [akTop, akRight]
155 Caption = 'Schedule'
156 Visible = False
157 end
158 object lblGuideline: TStaticText
159 Left = 0
160 Top = 1
161 Width = 181
162 Height = 17
163 Caption = 'Display Restrictions/Guidelines'
164 Color = clBtnFace
165 Font.Charset = DEFAULT_CHARSET
166 Font.Color = clBlue
167 Font.Height = -11
168 Font.Name = 'MS Sans Serif'
169 Font.Style = [fsBold, fsUnderline]
170 ParentColor = False
171 ParentFont = False
172 ShowAccelChar = False
173 TabOrder = 0
174 TabStop = True
175 Visible = False
176 end
177 object tabDose: TTabControl
178 Left = -7
179 Top = 19
180 Width = 175
181 Height = 17
182 TabOrder = 4
183 Tabs.Strings = (
184 'Dosage')
185 TabIndex = 0
186 TabStop = False
187 TabWidth = 86
188 OnChange = tabDoseChange
189 end
190 object cboDosage: TORComboBox
191 Left = 8
192 Top = 36
193 Width = 383
194 Height = 222
195 Anchors = [akLeft, akTop, akRight, akBottom]
196 Style = orcsSimple
197 AutoSelect = True
198 Caption = 'Dosage'
199 Color = clWindow
200 DropDownCount = 8
201 ItemHeight = 13
202 ItemTipColor = clWindow
203 ItemTipEnable = True
204 ListItemsOnly = False
205 LongList = False
206 LookupPiece = 0
207 MaxLength = 0
208 Pieces = '5,3,6'
209 Sorted = False
210 SynonymChars = '<>'
211 TabPositions = '27,32'
212 TabOrder = 1
213 OnChange = cboDosageChange
214 OnClick = cboDosageClick
215 OnExit = cboDosageExit
216 CharsNeedMatch = 1
217 UniqueAutoComplete = True
218 end
219 object cboRoute: TORComboBox
220 Left = 355
221 Top = 36
222 Width = 114
223 Height = 223
224 Anchors = [akTop, akRight, akBottom]
225 Style = orcsSimple
226 AutoSelect = True
227 Caption = 'Route'
228 Color = clWindow
229 DropDownCount = 8
230 ItemHeight = 13
231 ItemTipColor = clWindow
232 ItemTipEnable = True
233 ListItemsOnly = False
234 LongList = False
235 LookupPiece = 0
236 MaxLength = 0
237 ParentShowHint = False
238 Pieces = '2'
239 ShowHint = True
240 Sorted = False
241 SynonymChars = '<>'
242 TabOrder = 2
243 OnChange = cboRouteChange
244 OnClick = ControlChange
245 OnExit = cboRouteExit
246 CharsNeedMatch = 1
247 UniqueAutoComplete = True
248 end
249 object cboSchedule: TORComboBox
250 Left = 467
251 Top = 36
252 Width = 157
253 Height = 223
254 Anchors = [akTop, akRight, akBottom]
255 Style = orcsSimple
256 AutoSelect = True
257 Caption = 'Schedule'
258 Color = clWindow
259 DropDownCount = 8
260 ItemHeight = 13
261 ItemTipColor = clWindow
262 ItemTipEnable = True
263 ListItemsOnly = False
264 LongList = False
265 LookupPiece = 0
266 MaxLength = 0
267 Pieces = '1'
268 Sorted = False
269 SynonymChars = '<>'
270 TabOrder = 3
271 OnChange = cboScheduleChange
272 OnClick = cboScheduleClick
273 OnExit = cboScheduleExit
274 CharsNeedMatch = 1
275 UniqueAutoComplete = True
276 end
277 object chkPRN: TCheckBox
278 Left = 582
279 Top = 39
280 Width = 42
281 Height = 17
282 Anchors = [akTop, akRight]
283 Caption = 'PRN'
284 Color = clBtnFace
285 ParentColor = False
286 TabOrder = 5
287 end
288 end
289 object pnlBottom: TPanel
290 Left = 0
291 Top = 264
292 Width = 624
293 Height = 164
294 Align = alBottom
295 TabOrder = 1
296 DesignSize = (
297 624
298 164)
299 object lblComment: TLabel
300 Left = 4
301 Top = 5
302 Width = 52
303 Height = 16
304 Alignment = taRightJustify
305 AutoSize = False
306 Caption = 'Comments:'
307 end
308 object Label1: TLabel
309 Left = 5
310 Top = 50
311 Width = 108
312 Height = 13
313 Caption = 'Statement/Explanation'
314 end
315 object Label2: TLabel
316 Left = 10
317 Top = 145
318 Width = 51
319 Height = 13
320 Caption = 'Start Date:'
321 end
322 object memComment: TCaptionMemo
323 Left = 64
324 Top = 2
325 Width = 559
326 Height = 44
327 Align = alCustom
328 Anchors = [akLeft, akTop, akRight]
329 ScrollBars = ssVertical
330 TabOrder = 2
331 OnChange = ControlChange
332 Caption = 'Comments'
333 end
334 object lblAdminTime: TStaticText
335 Left = 267
336 Top = 105
337 Width = 4
338 Height = 4
339 TabOrder = 0
340 Visible = False
341 end
342 object calStart: TORDateBox
343 Left = 64
344 Top = 141
345 Width = 145
346 Height = 21
347 Anchors = [akLeft, akTop, akBottom]
348 TabOrder = 5
349 Text = 'Today'
350 OnChange = ControlChange
351 DateOnly = True
352 RequireTime = False
353 Caption = 'Effective Date'
354 end
355 object lbStatements: TORListBox
356 Left = 8
357 Top = 62
358 Width = 603
359 Height = 76
360 Style = lbOwnerDrawFixed
361 Anchors = [akLeft, akTop, akRight]
362 ExtendedSelect = False
363 ItemHeight = 16
364 ParentShowHint = False
365 ShowHint = True
366 TabOrder = 3
367 ItemTipColor = clWindow
368 LongList = False
369 CheckBoxes = True
370 OnClickCheck = lbStatementsClickCheck
371 end
372 end
373 end
374 object btnSelect: TButton
375 Left = 539
376 Top = 461
377 Width = 72
378 Height = 21
379 Anchors = [akRight, akBottom]
380 Caption = 'OK'
381 Default = True
382 Enabled = False
383 TabOrder = 5
384 OnClick = btnSelectClick
385 end
386 object dlgStart: TORDateTimeDlg
387 FMDateTime = 3001101
388 DateOnly = False
389 RequireTime = True
390 Left = 500
391 Top = 201
392 end
393 object timCheckChanges: TTimer
394 Enabled = False
395 Interval = 500
396 Left = 501
397 Top = 233
398 end
399end
Note: See TracBrowser for help on using the repository browser.