source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMedNVA.~dfm@ 611

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

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