1 | inherited frmMeds: TfrmMeds
|
---|
2 | Left = 158
|
---|
3 | Top = 50
|
---|
4 | Width = 709
|
---|
5 | Height = 686
|
---|
6 | HelpContext = 3000
|
---|
7 | VertScrollBar.Visible = False
|
---|
8 | Caption = 'Medications Page'
|
---|
9 | HelpFile = 'qnoback'
|
---|
10 | Menu = mnuMeds
|
---|
11 | Visible = True
|
---|
12 | OnDestroy = FormDestroy
|
---|
13 | OnMouseUp = FormMouseUp
|
---|
14 | OnResize = FormResize
|
---|
15 | OnShow = FormShow
|
---|
16 | PixelsPerInch = 96
|
---|
17 | TextHeight = 13
|
---|
18 | inherited shpPageBottom: TShape
|
---|
19 | Top = 524
|
---|
20 | Width = 1028
|
---|
21 | Height = -4
|
---|
22 | Align = alCustom
|
---|
23 | end
|
---|
24 | object splitTop: TSplitter [1]
|
---|
25 | Left = 0
|
---|
26 | Top = 421
|
---|
27 | Width = 701
|
---|
28 | Height = 4
|
---|
29 | Cursor = crVSplit
|
---|
30 | Align = alBottom
|
---|
31 | AutoSnap = False
|
---|
32 | Color = clBtnFace
|
---|
33 | Constraints.MaxHeight = 4
|
---|
34 | Constraints.MinHeight = 4
|
---|
35 | MinSize = 100
|
---|
36 | ParentColor = False
|
---|
37 | OnMoved = splitTopMoved
|
---|
38 | end
|
---|
39 | object pnlBottom: TORAutoPanel [2]
|
---|
40 | Left = 0
|
---|
41 | Top = 425
|
---|
42 | Width = 701
|
---|
43 | Height = 207
|
---|
44 | Align = alBottom
|
---|
45 | Constraints.MinHeight = 40
|
---|
46 | Ctl3D = False
|
---|
47 | ParentCtl3D = False
|
---|
48 | TabOrder = 0
|
---|
49 | object splitBottom: TSplitter
|
---|
50 | Left = 1
|
---|
51 | Top = 102
|
---|
52 | Width = 699
|
---|
53 | Height = 4
|
---|
54 | Cursor = crVSplit
|
---|
55 | Align = alBottom
|
---|
56 | AutoSnap = False
|
---|
57 | Color = clBtnFace
|
---|
58 | Constraints.MaxHeight = 4
|
---|
59 | Constraints.MinHeight = 4
|
---|
60 | MinSize = 100
|
---|
61 | ParentColor = False
|
---|
62 | OnMoved = splitBottomMoved
|
---|
63 | end
|
---|
64 | object pnlMedIn: TPanel
|
---|
65 | Left = 1
|
---|
66 | Top = 106
|
---|
67 | Width = 699
|
---|
68 | Height = 100
|
---|
69 | Align = alBottom
|
---|
70 | Constraints.MinHeight = 100
|
---|
71 | TabOrder = 0
|
---|
72 | object lstMedsIn: TCaptionListBox
|
---|
73 | Tag = 2
|
---|
74 | Left = 1
|
---|
75 | Top = 17
|
---|
76 | Width = 697
|
---|
77 | Height = 82
|
---|
78 | Style = lbOwnerDrawVariable
|
---|
79 | Align = alClient
|
---|
80 | Color = clCream
|
---|
81 | Constraints.MinHeight = 65
|
---|
82 | Ctl3D = False
|
---|
83 | ItemHeight = 13
|
---|
84 | MultiSelect = True
|
---|
85 | ParentCtl3D = False
|
---|
86 | PopupMenu = popMed
|
---|
87 | TabOrder = 0
|
---|
88 | OnClick = lstMedsInClick
|
---|
89 | OnDblClick = lstMedsDblClick
|
---|
90 | OnDrawItem = lstMedsDrawItem
|
---|
91 | OnExit = lstMedsExit
|
---|
92 | OnMeasureItem = lstMedsMeasureItem
|
---|
93 | Caption = 'Inpatient Medications'
|
---|
94 | end
|
---|
95 | object hdrMedsIn: THeaderControl
|
---|
96 | Left = 1
|
---|
97 | Top = 1
|
---|
98 | Width = 697
|
---|
99 | Height = 16
|
---|
100 | BiDiMode = bdLeftToRight
|
---|
101 | Constraints.MinHeight = 16
|
---|
102 | Sections = <
|
---|
103 | item
|
---|
104 | ImageIndex = -1
|
---|
105 | MinWidth = 42
|
---|
106 | Text = 'Action'
|
---|
107 | Width = 42
|
---|
108 | end
|
---|
109 | item
|
---|
110 | ImageIndex = -1
|
---|
111 | MinWidth = 20
|
---|
112 | Text = 'Inpatient Medications'
|
---|
113 | Width = 100
|
---|
114 | end
|
---|
115 | item
|
---|
116 | ImageIndex = -1
|
---|
117 | MinWidth = 16
|
---|
118 | Text = 'Stop Date'
|
---|
119 | Width = 62
|
---|
120 | end
|
---|
121 | item
|
---|
122 | ImageIndex = -1
|
---|
123 | MinWidth = 16
|
---|
124 | Text = 'Status'
|
---|
125 | Width = 62
|
---|
126 | end
|
---|
127 | item
|
---|
128 | ImageIndex = -1
|
---|
129 | MinWidth = 16
|
---|
130 | Text = 'Location'
|
---|
131 | Width = 20
|
---|
132 | end>
|
---|
133 | OnSectionClick = hdrMedsInSectionClick
|
---|
134 | OnSectionResize = hdrMedsInSectionResize
|
---|
135 | ParentBiDiMode = False
|
---|
136 | OnMouseDown = hdrMedsInMouseDown
|
---|
137 | OnMouseUp = hdrMedsInMouseUp
|
---|
138 | OnResize = hdrMedsInResize
|
---|
139 | end
|
---|
140 | end
|
---|
141 | object pnlNonVA: TPanel
|
---|
142 | Left = 1
|
---|
143 | Top = 1
|
---|
144 | Width = 699
|
---|
145 | Height = 101
|
---|
146 | Align = alClient
|
---|
147 | Caption = 'pnlNonVA'
|
---|
148 | Constraints.MinHeight = 40
|
---|
149 | TabOrder = 1
|
---|
150 | object lstMedsNonVA: TCaptionListBox
|
---|
151 | Tag = 3
|
---|
152 | Left = 1
|
---|
153 | Top = 17
|
---|
154 | Width = 697
|
---|
155 | Height = 83
|
---|
156 | Style = lbOwnerDrawVariable
|
---|
157 | Align = alClient
|
---|
158 | Color = clCream
|
---|
159 | Constraints.MinHeight = 40
|
---|
160 | Ctl3D = False
|
---|
161 | ItemHeight = 13
|
---|
162 | MultiSelect = True
|
---|
163 | ParentCtl3D = False
|
---|
164 | PopupMenu = popMed
|
---|
165 | TabOrder = 0
|
---|
166 | OnClick = lstMedsNonVAClick
|
---|
167 | OnDblClick = lstMedsDblClick
|
---|
168 | OnDrawItem = lstMedsDrawItem
|
---|
169 | OnExit = lstMedsExit
|
---|
170 | OnMeasureItem = lstMedsMeasureItem
|
---|
171 | Caption = 'Inpatient Medications'
|
---|
172 | end
|
---|
173 | object hdrMedsNonVA: THeaderControl
|
---|
174 | Left = 1
|
---|
175 | Top = 1
|
---|
176 | Width = 697
|
---|
177 | Height = 16
|
---|
178 | BiDiMode = bdLeftToRight
|
---|
179 | Constraints.MinHeight = 16
|
---|
180 | Sections = <
|
---|
181 | item
|
---|
182 | ImageIndex = -1
|
---|
183 | MinWidth = 42
|
---|
184 | Text = 'Action'
|
---|
185 | Width = 42
|
---|
186 | end
|
---|
187 | item
|
---|
188 | ImageIndex = -1
|
---|
189 | MinWidth = 20
|
---|
190 | Text = 'Non-VA Medications'
|
---|
191 | Width = 100
|
---|
192 | end
|
---|
193 | item
|
---|
194 | ImageIndex = -1
|
---|
195 | MinWidth = 16
|
---|
196 | Text = 'Start Date'
|
---|
197 | Width = 62
|
---|
198 | end
|
---|
199 | item
|
---|
200 | ImageIndex = -1
|
---|
201 | MinWidth = 16
|
---|
202 | Text = 'Status'
|
---|
203 | Width = 62
|
---|
204 | end>
|
---|
205 | OnSectionClick = hdrMedsNonVASectionClick
|
---|
206 | OnSectionResize = hdrMedsNonVASectionResize
|
---|
207 | ParentBiDiMode = False
|
---|
208 | OnMouseDown = hdrMedsNonVAMouseDown
|
---|
209 | OnMouseUp = hdrMedsNonVAMouseUp
|
---|
210 | OnResize = hdrMedsNonVAResize
|
---|
211 | end
|
---|
212 | end
|
---|
213 | end
|
---|
214 | object pnlTop: TORAutoPanel [3]
|
---|
215 | Left = 0
|
---|
216 | Top = 0
|
---|
217 | Width = 701
|
---|
218 | Height = 421
|
---|
219 | Align = alClient
|
---|
220 | Ctl3D = True
|
---|
221 | ParentCtl3D = False
|
---|
222 | TabOrder = 1
|
---|
223 | object lstMedsOut: TCaptionListBox
|
---|
224 | Tag = 1
|
---|
225 | Left = 1
|
---|
226 | Top = 17
|
---|
227 | Width = 699
|
---|
228 | Height = 403
|
---|
229 | Style = lbOwnerDrawVariable
|
---|
230 | Align = alClient
|
---|
231 | Color = clCream
|
---|
232 | Constraints.MinHeight = 40
|
---|
233 | Ctl3D = False
|
---|
234 | ItemHeight = 13
|
---|
235 | MultiSelect = True
|
---|
236 | ParentCtl3D = False
|
---|
237 | PopupMenu = popMed
|
---|
238 | TabOrder = 0
|
---|
239 | OnClick = lstMedsOutClick
|
---|
240 | OnDblClick = lstMedsDblClick
|
---|
241 | OnDrawItem = lstMedsDrawItem
|
---|
242 | OnExit = lstMedsExit
|
---|
243 | OnMeasureItem = lstMedsMeasureItem
|
---|
244 | Caption = 'Outpatient Medications'
|
---|
245 | end
|
---|
246 | object hdrMedsOut: THeaderControl
|
---|
247 | Left = 1
|
---|
248 | Top = 1
|
---|
249 | Width = 699
|
---|
250 | Height = 16
|
---|
251 | BiDiMode = bdLeftToRight
|
---|
252 | Constraints.MinHeight = 16
|
---|
253 | Sections = <
|
---|
254 | item
|
---|
255 | ImageIndex = -1
|
---|
256 | MinWidth = 42
|
---|
257 | Text = 'Action'
|
---|
258 | Width = 42
|
---|
259 | end
|
---|
260 | item
|
---|
261 | ImageIndex = -1
|
---|
262 | MinWidth = 20
|
---|
263 | Text = 'Outpatient Medications'
|
---|
264 | Width = 100
|
---|
265 | end
|
---|
266 | item
|
---|
267 | ImageIndex = -1
|
---|
268 | MinWidth = 16
|
---|
269 | Text = 'Expires'
|
---|
270 | Width = 62
|
---|
271 | end
|
---|
272 | item
|
---|
273 | ImageIndex = -1
|
---|
274 | MinWidth = 16
|
---|
275 | Text = 'Status'
|
---|
276 | Width = 62
|
---|
277 | end
|
---|
278 | item
|
---|
279 | ImageIndex = -1
|
---|
280 | MinWidth = 16
|
---|
281 | Text = 'Last Filled'
|
---|
282 | Width = 62
|
---|
283 | end
|
---|
284 | item
|
---|
285 | ImageIndex = -1
|
---|
286 | MinWidth = 16
|
---|
287 | Text = 'Refills Remaining'
|
---|
288 | Width = 78
|
---|
289 | end>
|
---|
290 | OnSectionClick = hdrMedsOutSectionClick
|
---|
291 | OnSectionResize = hdrMedsOutSectionResize
|
---|
292 | ParentBiDiMode = False
|
---|
293 | OnMouseDown = hdrMedsOutMouseDown
|
---|
294 | OnMouseUp = hdrMedsOutMouseUp
|
---|
295 | OnResize = hdrMedsOutResize
|
---|
296 | end
|
---|
297 | end
|
---|
298 | inherited DKLanguageController1: TDKLanguageController
|
---|
299 | LangData = {
|
---|
300 | 070066726D4D656473010200000001000000070043617074696F6E0200000008
|
---|
301 | 0048656C7046696C6501420000000D0073687050616765426F74746F6D000008
|
---|
302 | 0073706C6974546F7000000900706E6C426F74746F6D00000B0073706C697442
|
---|
303 | 6F74746F6D00000800706E6C4D6564496E000009006C73744D656473496E0101
|
---|
304 | 00000003000000070043617074696F6E0009006864724D656473496E01050000
|
---|
305 | 0004000000100053656374696F6E735B305D2E54657874050000001000536563
|
---|
306 | 74696F6E735B315D2E5465787406000000100053656374696F6E735B325D2E54
|
---|
307 | 65787407000000100053656374696F6E735B335D2E5465787408000000100053
|
---|
308 | 656374696F6E735B345D2E54657874000800706E6C4E6F6E5641010100000009
|
---|
309 | 000000070043617074696F6E000C006C73744D6564734E6F6E56410101000000
|
---|
310 | 0A000000070043617074696F6E000C006864724D6564734E6F6E564101040000
|
---|
311 | 000B000000100053656374696F6E735B305D2E546578740C0000001000536563
|
---|
312 | 74696F6E735B315D2E546578740D000000100053656374696F6E735B325D2E54
|
---|
313 | 6578740E000000100053656374696F6E735B335D2E54657874000600706E6C54
|
---|
314 | 6F7000000A006C73744D6564734F757401010000000F00000007004361707469
|
---|
315 | 6F6E000A006864724D6564734F7574010600000010000000100053656374696F
|
---|
316 | 6E735B305D2E5465787411000000100053656374696F6E735B315D2E54657874
|
---|
317 | 12000000100053656374696F6E735B325D2E5465787413000000100053656374
|
---|
318 | 696F6E735B335D2E5465787414000000100053656374696F6E735B345D2E5465
|
---|
319 | 787415000000100053656374696F6E735B355D2E546578740007006D6E754D65
|
---|
320 | 6473000007006D6E7556696577010100000016000000070043617074696F6E00
|
---|
321 | 0C006D6E75566965774368617274010100000017000000070043617074696F6E
|
---|
322 | 000D006D6E754368617274436F76657201010000001800000007004361707469
|
---|
323 | 6F6E000D006D6E75436861727450726F62730101000000190000000700436170
|
---|
324 | 74696F6E000C006D6E7543686172744D65647301010000001A00000007004361
|
---|
325 | 7074696F6E000E006D6E7543686172744F726465727301010000001B00000007
|
---|
326 | 0043617074696F6E000D006D6E7543686172744E6F74657301010000001C0000
|
---|
327 | 00070043617074696F6E000D006D6E75436861727443736C747301010000001D
|
---|
328 | 000000070043617074696F6E000F006D6E754368617274537572676572790101
|
---|
329 | 0000001E000000070043617074696F6E000E006D6E754368617274444353756D
|
---|
330 | 6D01010000001F000000070043617074696F6E000C006D6E7543686172744C61
|
---|
331 | 6273010100000020000000070043617074696F6E000F006D6E75436861727452
|
---|
332 | 65706F727473010100000021000000070043617074696F6E0012006D6E755669
|
---|
333 | 6577496E666F726D6174696F6E010100000022000000070043617074696F6E00
|
---|
334 | 0B006D6E755669657744656D6F010100000023000000070043617074696F6E00
|
---|
335 | 0D006D6E7556696577566973697473010100000024000000070043617074696F
|
---|
336 | 6E0012006D6E75566965775072696D6172794361726501010000002500000007
|
---|
337 | 0043617074696F6E0013006D6E75566965774D794865616C7468655665740101
|
---|
338 | 00000026000000070043617074696F6E000C006D6E75496E737572616E636501
|
---|
339 | 0100000027000000070043617074696F6E000C006D6E7556696577466C616773
|
---|
340 | 010100000028000000070043617074696F6E0011006D6E755669657752656D6F
|
---|
341 | 746544617461010100000029000000070043617074696F6E0010006D6E755669
|
---|
342 | 657752656D696E6465727301010000002A000000070043617074696F6E000F00
|
---|
343 | 6D6E7556696577506F7374696E677301010000002B000000070043617074696F
|
---|
344 | 6E0002005A3200000D006D6E755669657741637469766501010000002C000000
|
---|
345 | 070043617074696F6E000F006D6E75566965774578706972696E670101000000
|
---|
346 | 2D000000070043617074696F6E0002005A33000010006D6E7556696577536F72
|
---|
347 | 74436C61737301010000002E000000070043617074696F6E000F006D6E755669
|
---|
348 | 6577536F72744E616D6501010000002F000000070043617074696F6E0002005A
|
---|
349 | 3400000D006D6E755669657744657461696C0101000000300000000700436170
|
---|
350 | 74696F6E000E006D6E7556696577486973746F72790101000000310000000700
|
---|
351 | 43617074696F6E0006006D6E7541637401010000003200000007004361707469
|
---|
352 | 6F6E0009006D6E754163744E6577010100000033000000070043617074696F6E
|
---|
353 | 0002005A3100000C006D6E754163744368616E67650101000000340000000700
|
---|
354 | 43617074696F6E0008006D6E7541637444430101000000350000000700436170
|
---|
355 | 74696F6E000A006D6E75416374486F6C64010100000036000000070043617074
|
---|
356 | 696F6E000B006D6E7541637452656E6577010100000037000000070043617074
|
---|
357 | 696F6E000A006D6E75416374436F707901010000003800000007004361707469
|
---|
358 | 6F6E000E006D6E754163745472616E7366657201010000003900000007004361
|
---|
359 | 7074696F6E000C006D6E75416374526566696C6C01010000003A000000070043
|
---|
360 | 617074696F6E000600706F704D656400000D00706F704D656444657461696C73
|
---|
361 | 01010000003B000000070043617074696F6E000D00706F704D6564486973746F
|
---|
362 | 727901010000003C000000070043617074696F6E0002004E3100000C00706F70
|
---|
363 | 4D65644368616E676501010000003D000000070043617074696F6E000800706F
|
---|
364 | 704D6564444301010000003E000000070043617074696F6E000C00706F704D65
|
---|
365 | 64526566696C6C01010000003F000000070043617074696F6E000B00706F704D
|
---|
366 | 656452656E6577010100000040000000070043617074696F6E0002004E320000
|
---|
367 | 0900706F704D65644E6577010100000041000000070043617074696F6E001100
|
---|
368 | 6D6E754F7074696D697A654669656C6473010100000042000000070043617074
|
---|
369 | 696F6E00}
|
---|
370 | end
|
---|
371 | object mnuMeds: TMainMenu
|
---|
372 | Left = 56
|
---|
373 | Top = 154
|
---|
374 | object mnuView: TMenuItem
|
---|
375 | Caption = '&View'
|
---|
376 | GroupIndex = 3
|
---|
377 | OnClick = mnuViewClick
|
---|
378 | object mnuViewChart: TMenuItem
|
---|
379 | Caption = 'Chart &Tab'
|
---|
380 | object mnuChartCover: TMenuItem
|
---|
381 | Tag = 1
|
---|
382 | Caption = 'Cover &Sheet'
|
---|
383 | ShortCut = 16467
|
---|
384 | OnClick = mnuChartTabClick
|
---|
385 | end
|
---|
386 | object mnuChartProbs: TMenuItem
|
---|
387 | Tag = 2
|
---|
388 | Caption = '&Problem List'
|
---|
389 | ShortCut = 16464
|
---|
390 | OnClick = mnuChartTabClick
|
---|
391 | end
|
---|
392 | object mnuChartMeds: TMenuItem
|
---|
393 | Tag = 3
|
---|
394 | Caption = '&Medications'
|
---|
395 | ShortCut = 16461
|
---|
396 | OnClick = mnuChartTabClick
|
---|
397 | end
|
---|
398 | object mnuChartOrders: TMenuItem
|
---|
399 | Tag = 4
|
---|
400 | Caption = '&Orders'
|
---|
401 | ShortCut = 16463
|
---|
402 | OnClick = mnuChartTabClick
|
---|
403 | end
|
---|
404 | object mnuChartNotes: TMenuItem
|
---|
405 | Tag = 6
|
---|
406 | Caption = 'Progress &Notes'
|
---|
407 | ShortCut = 16462
|
---|
408 | OnClick = mnuChartTabClick
|
---|
409 | end
|
---|
410 | object mnuChartCslts: TMenuItem
|
---|
411 | Tag = 7
|
---|
412 | Caption = 'Consul&ts'
|
---|
413 | ShortCut = 16468
|
---|
414 | OnClick = mnuChartTabClick
|
---|
415 | end
|
---|
416 | object mnuChartSurgery: TMenuItem
|
---|
417 | Tag = 11
|
---|
418 | Caption = 'S&urgery'
|
---|
419 | ShortCut = 16469
|
---|
420 | OnClick = mnuChartTabClick
|
---|
421 | end
|
---|
422 | object mnuChartDCSumm: TMenuItem
|
---|
423 | Tag = 8
|
---|
424 | Caption = '&Discharge Summaries'
|
---|
425 | ShortCut = 16452
|
---|
426 | OnClick = mnuChartTabClick
|
---|
427 | end
|
---|
428 | object mnuChartLabs: TMenuItem
|
---|
429 | Tag = 9
|
---|
430 | Caption = '&Laboratory'
|
---|
431 | ShortCut = 16460
|
---|
432 | OnClick = mnuChartTabClick
|
---|
433 | end
|
---|
434 | object mnuChartReports: TMenuItem
|
---|
435 | Tag = 10
|
---|
436 | Caption = '&Reports'
|
---|
437 | ShortCut = 16466
|
---|
438 | OnClick = mnuChartTabClick
|
---|
439 | end
|
---|
440 | end
|
---|
441 | object mnuViewInformation: TMenuItem
|
---|
442 | Caption = 'Information'
|
---|
443 | OnClick = mnuViewInformationClick
|
---|
444 | object mnuViewDemo: TMenuItem
|
---|
445 | Tag = 1
|
---|
446 | Caption = 'De&mographics...'
|
---|
447 | OnClick = ViewInfo
|
---|
448 | end
|
---|
449 | object mnuViewVisits: TMenuItem
|
---|
450 | Tag = 2
|
---|
451 | Caption = 'Visits/Pr&ovider...'
|
---|
452 | OnClick = ViewInfo
|
---|
453 | end
|
---|
454 | object mnuViewPrimaryCare: TMenuItem
|
---|
455 | Tag = 3
|
---|
456 | Caption = 'Primary &Care...'
|
---|
457 | OnClick = ViewInfo
|
---|
458 | end
|
---|
459 | object mnuViewMyHealtheVet: TMenuItem
|
---|
460 | Tag = 4
|
---|
461 | Caption = 'MyHealthe&Vet...'
|
---|
462 | OnClick = ViewInfo
|
---|
463 | end
|
---|
464 | object mnuInsurance: TMenuItem
|
---|
465 | Tag = 5
|
---|
466 | Caption = '&Insurance...'
|
---|
467 | OnClick = ViewInfo
|
---|
468 | end
|
---|
469 | object mnuViewFlags: TMenuItem
|
---|
470 | Tag = 6
|
---|
471 | Caption = '&Flags...'
|
---|
472 | OnClick = ViewInfo
|
---|
473 | end
|
---|
474 | object mnuViewRemoteData: TMenuItem
|
---|
475 | Tag = 7
|
---|
476 | Caption = 'Remote &Data...'
|
---|
477 | OnClick = ViewInfo
|
---|
478 | end
|
---|
479 | object mnuViewReminders: TMenuItem
|
---|
480 | Tag = 8
|
---|
481 | Caption = '&Reminders...'
|
---|
482 | Enabled = False
|
---|
483 | OnClick = ViewInfo
|
---|
484 | end
|
---|
485 | object mnuViewPostings: TMenuItem
|
---|
486 | Tag = 9
|
---|
487 | Caption = '&Postings...'
|
---|
488 | OnClick = ViewInfo
|
---|
489 | end
|
---|
490 | end
|
---|
491 | object Z2: TMenuItem
|
---|
492 | Caption = '-'
|
---|
493 | end
|
---|
494 | object mnuViewActive: TMenuItem
|
---|
495 | Caption = '&Active Medications'
|
---|
496 | Visible = False
|
---|
497 | end
|
---|
498 | object mnuViewExpiring: TMenuItem
|
---|
499 | Caption = '&Expiring Medications'
|
---|
500 | Visible = False
|
---|
501 | end
|
---|
502 | object Z3: TMenuItem
|
---|
503 | Caption = '-'
|
---|
504 | Visible = False
|
---|
505 | end
|
---|
506 | object mnuViewSortClass: TMenuItem
|
---|
507 | Caption = 'Sort by &VA Drug Class'
|
---|
508 | Visible = False
|
---|
509 | end
|
---|
510 | object mnuViewSortName: TMenuItem
|
---|
511 | Caption = 'Sort by Drug &Name'
|
---|
512 | Visible = False
|
---|
513 | end
|
---|
514 | object Z4: TMenuItem
|
---|
515 | Caption = '-'
|
---|
516 | Visible = False
|
---|
517 | end
|
---|
518 | object mnuViewDetail: TMenuItem
|
---|
519 | Caption = '&Details...'
|
---|
520 | OnClick = mnuViewDetailClick
|
---|
521 | end
|
---|
522 | object mnuViewHistory: TMenuItem
|
---|
523 | Caption = 'Administration &History...'
|
---|
524 | OnClick = mnuViewHistoryClick
|
---|
525 | end
|
---|
526 | end
|
---|
527 | object mnuAct: TMenuItem
|
---|
528 | Caption = '&Action'
|
---|
529 | GroupIndex = 4
|
---|
530 | OnClick = mnuActClick
|
---|
531 | object mnuActNew: TMenuItem
|
---|
532 | Caption = '&New Medication...'
|
---|
533 | OnClick = mnuActNewClick
|
---|
534 | end
|
---|
535 | object Z1: TMenuItem
|
---|
536 | Caption = '-'
|
---|
537 | end
|
---|
538 | object mnuActChange: TMenuItem
|
---|
539 | Caption = '&Change...'
|
---|
540 | OnClick = mnuActChangeClick
|
---|
541 | end
|
---|
542 | object mnuActDC: TMenuItem
|
---|
543 | Caption = '&Discontinue / Cancel...'
|
---|
544 | OnClick = mnuActDCClick
|
---|
545 | end
|
---|
546 | object mnuActHold: TMenuItem
|
---|
547 | Caption = '&Hold...'
|
---|
548 | OnClick = mnuActHoldClick
|
---|
549 | end
|
---|
550 | object mnuActRenew: TMenuItem
|
---|
551 | Caption = 'Rene&w...'
|
---|
552 | OnClick = mnuActRenewClick
|
---|
553 | end
|
---|
554 | object mnuActCopy: TMenuItem
|
---|
555 | Caption = 'Co&py to New Order...'
|
---|
556 | OnClick = mnuActCopyClick
|
---|
557 | end
|
---|
558 | object mnuActTransfer: TMenuItem
|
---|
559 | Caption = '&Transfer to...'
|
---|
560 | OnClick = mnuActCopyClick
|
---|
561 | end
|
---|
562 | object mnuActRefill: TMenuItem
|
---|
563 | Caption = 'R&efill...'
|
---|
564 | OnClick = mnuActRefillClick
|
---|
565 | end
|
---|
566 | end
|
---|
567 | end
|
---|
568 | object popMed: TPopupMenu
|
---|
569 | OnPopup = popMedPopup
|
---|
570 | Left = 116
|
---|
571 | Top = 155
|
---|
572 | object popMedDetails: TMenuItem
|
---|
573 | Caption = 'Detai&ls...'
|
---|
574 | OnClick = mnuViewDetailClick
|
---|
575 | end
|
---|
576 | object popMedHistory: TMenuItem
|
---|
577 | Caption = 'Administration &History...'
|
---|
578 | OnClick = mnuViewHistoryClick
|
---|
579 | end
|
---|
580 | object N1: TMenuItem
|
---|
581 | Caption = '-'
|
---|
582 | end
|
---|
583 | object popMedChange: TMenuItem
|
---|
584 | Caption = '&Change...'
|
---|
585 | OnClick = mnuActChangeClick
|
---|
586 | end
|
---|
587 | object popMedDC: TMenuItem
|
---|
588 | Caption = '&Discontinue...'
|
---|
589 | OnClick = mnuActDCClick
|
---|
590 | end
|
---|
591 | object popMedRefill: TMenuItem
|
---|
592 | Caption = 'R&efill...'
|
---|
593 | OnClick = mnuActRefillClick
|
---|
594 | end
|
---|
595 | object popMedRenew: TMenuItem
|
---|
596 | Caption = 'Rene&w...'
|
---|
597 | OnClick = mnuActRenewClick
|
---|
598 | end
|
---|
599 | object N2: TMenuItem
|
---|
600 | Caption = '-'
|
---|
601 | end
|
---|
602 | object popMedNew: TMenuItem
|
---|
603 | Caption = '&New Medication...'
|
---|
604 | OnClick = mnuActNewClick
|
---|
605 | end
|
---|
606 | object mnuOptimizeFields: TMenuItem
|
---|
607 | Caption = 'Adjust Field Size'
|
---|
608 | Visible = False
|
---|
609 | OnClick = mnuOptimizeFieldsClick
|
---|
610 | end
|
---|
611 | end
|
---|
612 | end
|
---|