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

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

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