1 | inherited frmProblems: TfrmProblems
|
---|
2 | Left = 408
|
---|
3 | Top = 154
|
---|
4 | Width = 639
|
---|
5 | Height = 409
|
---|
6 | HelpContext = 2000
|
---|
7 | Caption = 'Problems List Page'
|
---|
8 | HelpFile = 'overvw'
|
---|
9 | Menu = mnuProbs
|
---|
10 | OnDestroy = FormDestroy
|
---|
11 | OnHide = FormHide
|
---|
12 | OnMouseMove = FormMouseMove
|
---|
13 | OnShow = FormShow
|
---|
14 | PixelsPerInch = 96
|
---|
15 | TextHeight = 13
|
---|
16 | inherited shpPageBottom: TShape
|
---|
17 | Top = 350
|
---|
18 | Width = 631
|
---|
19 | Constraints.MinHeight = 5
|
---|
20 | end
|
---|
21 | inherited sptHorz: TSplitter
|
---|
22 | Left = 159
|
---|
23 | Width = 2
|
---|
24 | Height = 350
|
---|
25 | OnMoved = sptHorzMoved
|
---|
26 | end
|
---|
27 | inherited pnlLeft: TPanel
|
---|
28 | Width = 159
|
---|
29 | Height = 350
|
---|
30 | TabStop = True
|
---|
31 | object pnlButtons: TPanel
|
---|
32 | Left = 0
|
---|
33 | Top = 304
|
---|
34 | Width = 159
|
---|
35 | Height = 46
|
---|
36 | Align = alBottom
|
---|
37 | BevelOuter = bvNone
|
---|
38 | Constraints.MinHeight = 46
|
---|
39 | TabOrder = 3
|
---|
40 | object bbOtherProb: TORAlignButton
|
---|
41 | Left = 0
|
---|
42 | Top = 2
|
---|
43 | Width = 159
|
---|
44 | Height = 22
|
---|
45 | Caption = 'Other Problem'
|
---|
46 | TabOrder = 0
|
---|
47 | OnClick = bbOtherProbClick
|
---|
48 | OnExit = bbNewProbExit
|
---|
49 | OnMouseMove = FormMouseMove
|
---|
50 | Align = alBottom
|
---|
51 | end
|
---|
52 | object bbCancel: TORAlignButton
|
---|
53 | Left = 0
|
---|
54 | Top = 24
|
---|
55 | Width = 159
|
---|
56 | Height = 22
|
---|
57 | Caption = 'Cancel'
|
---|
58 | TabOrder = 1
|
---|
59 | OnClick = bbCancelClick
|
---|
60 | OnExit = bbNewProbExit
|
---|
61 | OnMouseMove = FormMouseMove
|
---|
62 | Align = alBottom
|
---|
63 | end
|
---|
64 | end
|
---|
65 | object pnlView: TPanel
|
---|
66 | Left = 0
|
---|
67 | Top = 0
|
---|
68 | Width = 159
|
---|
69 | Height = 304
|
---|
70 | Align = alClient
|
---|
71 | BevelOuter = bvNone
|
---|
72 | TabOrder = 1
|
---|
73 | object lblView: TOROffsetLabel
|
---|
74 | Left = 0
|
---|
75 | Top = 0
|
---|
76 | Width = 159
|
---|
77 | Height = 19
|
---|
78 | Align = alTop
|
---|
79 | Caption = 'View options'
|
---|
80 | HorzOffset = 2
|
---|
81 | Transparent = False
|
---|
82 | VertOffset = 6
|
---|
83 | WordWrap = False
|
---|
84 | end
|
---|
85 | object lstView: TORListBox
|
---|
86 | Left = 0
|
---|
87 | Top = 19
|
---|
88 | Width = 159
|
---|
89 | Height = 97
|
---|
90 | Align = alTop
|
---|
91 | ExtendedSelect = False
|
---|
92 | ItemHeight = 13
|
---|
93 | Items.Strings = (
|
---|
94 | 'A^Active'
|
---|
95 | 'I^Inactive'
|
---|
96 | 'B^Both active and inactive'
|
---|
97 | 'R^Removed')
|
---|
98 | ParentShowHint = False
|
---|
99 | ShowHint = True
|
---|
100 | TabOrder = 0
|
---|
101 | OnClick = lstViewClick
|
---|
102 | OnExit = lstViewExit
|
---|
103 | OnMouseMove = FormMouseMove
|
---|
104 | Caption = 'View options'
|
---|
105 | ItemTipColor = clWindow
|
---|
106 | LongList = False
|
---|
107 | Pieces = '2'
|
---|
108 | end
|
---|
109 | object bbNewProb: TORAlignButton
|
---|
110 | Tag = 100
|
---|
111 | Left = 0
|
---|
112 | Top = 116
|
---|
113 | Width = 159
|
---|
114 | Height = 24
|
---|
115 | Caption = 'New problem'
|
---|
116 | TabOrder = 1
|
---|
117 | OnClick = lstProbActsClick
|
---|
118 | OnExit = bbNewProbExit
|
---|
119 | OnMouseMove = FormMouseMove
|
---|
120 | Align = alTop
|
---|
121 | end
|
---|
122 | end
|
---|
123 | object pnlProbEnt: TPanel
|
---|
124 | Left = 0
|
---|
125 | Top = 0
|
---|
126 | Width = 159
|
---|
127 | Height = 304
|
---|
128 | Align = alClient
|
---|
129 | BevelOuter = bvNone
|
---|
130 | TabOrder = 2
|
---|
131 | Visible = False
|
---|
132 | OnResize = pnlProbEntResize
|
---|
133 | object lblProbEnt: TLabel
|
---|
134 | Left = 0
|
---|
135 | Top = 270
|
---|
136 | Width = 159
|
---|
137 | Height = 13
|
---|
138 | Align = alBottom
|
---|
139 | AutoSize = False
|
---|
140 | Caption = 'Enter new problem:'
|
---|
141 | end
|
---|
142 | object edProbEnt: TCaptionEdit
|
---|
143 | Left = 0
|
---|
144 | Top = 283
|
---|
145 | Width = 159
|
---|
146 | Height = 21
|
---|
147 | TabOrder = 0
|
---|
148 | OnExit = lstViewExit
|
---|
149 | OnKeyPress = edProbEntKeyPress
|
---|
150 | Align = alBottom
|
---|
151 | Caption = 'Enter new problem'
|
---|
152 | end
|
---|
153 | end
|
---|
154 | object pnlProbList: TORAutoPanel
|
---|
155 | Left = 0
|
---|
156 | Top = 0
|
---|
157 | Width = 159
|
---|
158 | Height = 304
|
---|
159 | Align = alClient
|
---|
160 | BevelOuter = bvNone
|
---|
161 | Constraints.MinHeight = 90
|
---|
162 | TabOrder = 0
|
---|
163 | object sptProbPanel: TSplitter
|
---|
164 | Left = 0
|
---|
165 | Top = 157
|
---|
166 | Width = 159
|
---|
167 | Height = 3
|
---|
168 | Cursor = crVSplit
|
---|
169 | Align = alTop
|
---|
170 | end
|
---|
171 | object pnlProbCats: TPanel
|
---|
172 | Left = 0
|
---|
173 | Top = 0
|
---|
174 | Width = 159
|
---|
175 | Height = 157
|
---|
176 | Align = alTop
|
---|
177 | BevelOuter = bvNone
|
---|
178 | TabOrder = 0
|
---|
179 | object lblProbCats: TLabel
|
---|
180 | Left = 0
|
---|
181 | Top = 0
|
---|
182 | Width = 159
|
---|
183 | Height = 13
|
---|
184 | Align = alTop
|
---|
185 | AutoSize = False
|
---|
186 | Caption = 'Problem categories'
|
---|
187 | end
|
---|
188 | object lstCatPick: TORListBox
|
---|
189 | Left = 0
|
---|
190 | Top = 13
|
---|
191 | Width = 159
|
---|
192 | Height = 144
|
---|
193 | Hint = 'Select problem category'
|
---|
194 | Align = alClient
|
---|
195 | ExtendedSelect = False
|
---|
196 | ItemHeight = 13
|
---|
197 | ParentShowHint = False
|
---|
198 | ShowHint = True
|
---|
199 | TabOrder = 0
|
---|
200 | OnClick = lstCatPickClick
|
---|
201 | OnExit = lstViewExit
|
---|
202 | OnMouseMove = FormMouseMove
|
---|
203 | Caption = 'Problem categories'
|
---|
204 | ItemTipColor = clWindow
|
---|
205 | LongList = False
|
---|
206 | Pieces = '2'
|
---|
207 | end
|
---|
208 | end
|
---|
209 | object pnlProbs: TPanel
|
---|
210 | Left = 0
|
---|
211 | Top = 160
|
---|
212 | Width = 159
|
---|
213 | Height = 144
|
---|
214 | Align = alClient
|
---|
215 | BevelOuter = bvNone
|
---|
216 | TabOrder = 1
|
---|
217 | object lblProblems: TLabel
|
---|
218 | Left = 0
|
---|
219 | Top = 0
|
---|
220 | Width = 159
|
---|
221 | Height = 13
|
---|
222 | Align = alTop
|
---|
223 | AutoSize = False
|
---|
224 | Caption = 'Problems'
|
---|
225 | Constraints.MaxHeight = 13
|
---|
226 | Constraints.MinHeight = 13
|
---|
227 | end
|
---|
228 | object lstProbPick: TORListBox
|
---|
229 | Left = 0
|
---|
230 | Top = 13
|
---|
231 | Width = 159
|
---|
232 | Height = 131
|
---|
233 | Hint = 'Select problem to add'
|
---|
234 | Align = alClient
|
---|
235 | Ctl3D = False
|
---|
236 | ExtendedSelect = False
|
---|
237 | ItemHeight = 13
|
---|
238 | ParentCtl3D = False
|
---|
239 | ParentShowHint = False
|
---|
240 | ShowHint = True
|
---|
241 | TabOrder = 0
|
---|
242 | OnClick = lstProbPickClick
|
---|
243 | OnDblClick = lstProbPickDblClick
|
---|
244 | Caption = 'Problems'
|
---|
245 | ItemTipColor = clWindow
|
---|
246 | LongList = False
|
---|
247 | Pieces = '2,3'
|
---|
248 | end
|
---|
249 | end
|
---|
250 | end
|
---|
251 | end
|
---|
252 | inherited pnlRight: TPanel
|
---|
253 | Left = 161
|
---|
254 | Width = 470
|
---|
255 | Height = 350
|
---|
256 | OnExit = pnlRightExit
|
---|
257 | OnResize = pnlRightResize
|
---|
258 | object lblProbList: TOROffsetLabel
|
---|
259 | Left = 0
|
---|
260 | Top = 0
|
---|
261 | Width = 470
|
---|
262 | Height = 19
|
---|
263 | Align = alTop
|
---|
264 | Caption = 'Active Problems List'
|
---|
265 | HorzOffset = 2
|
---|
266 | Transparent = False
|
---|
267 | VertOffset = 6
|
---|
268 | WordWrap = False
|
---|
269 | end
|
---|
270 | object pnlProbDlg: TPanel
|
---|
271 | Left = 0
|
---|
272 | Top = 36
|
---|
273 | Width = 470
|
---|
274 | Height = 314
|
---|
275 | Align = alClient
|
---|
276 | TabOrder = 0
|
---|
277 | Visible = False
|
---|
278 | OnMouseMove = FormMouseMove
|
---|
279 | end
|
---|
280 | object wgProbData: TCaptionListBox
|
---|
281 | Left = 0
|
---|
282 | Top = 36
|
---|
283 | Width = 470
|
---|
284 | Height = 314
|
---|
285 | Style = lbOwnerDrawVariable
|
---|
286 | Align = alClient
|
---|
287 | Color = clCream
|
---|
288 | ItemHeight = 13
|
---|
289 | MultiSelect = True
|
---|
290 | ParentShowHint = False
|
---|
291 | PopupMenu = popProb
|
---|
292 | ShowHint = True
|
---|
293 | TabOrder = 1
|
---|
294 | OnClick = wgProbDataClick
|
---|
295 | OnDblClick = wgProbDataDblClick
|
---|
296 | OnDrawItem = wgProbDataDrawItem
|
---|
297 | OnMeasureItem = wgProbDataMeasureItem
|
---|
298 | OnMouseMove = FormMouseMove
|
---|
299 | Caption = 'Active Problems List'
|
---|
300 | end
|
---|
301 | object HeaderControl: THeaderControl
|
---|
302 | Left = 0
|
---|
303 | Top = 19
|
---|
304 | Width = 470
|
---|
305 | Height = 17
|
---|
306 | Sections = <
|
---|
307 | item
|
---|
308 | ImageIndex = -1
|
---|
309 | Text = 'Column 0'
|
---|
310 | Width = 0
|
---|
311 | end
|
---|
312 | item
|
---|
313 | ImageIndex = -1
|
---|
314 | Text = 'Stat/Ver'
|
---|
315 | Width = 65
|
---|
316 | end
|
---|
317 | item
|
---|
318 | ImageIndex = -1
|
---|
319 | MinWidth = 20
|
---|
320 | Text = 'Description'
|
---|
321 | Width = 65
|
---|
322 | end
|
---|
323 | item
|
---|
324 | ImageIndex = -1
|
---|
325 | MinWidth = 16
|
---|
326 | Text = 'Onset Date'
|
---|
327 | Width = 65
|
---|
328 | end
|
---|
329 | item
|
---|
330 | ImageIndex = -1
|
---|
331 | MinWidth = 16
|
---|
332 | Text = 'Last Updated'
|
---|
333 | Width = 80
|
---|
334 | end
|
---|
335 | item
|
---|
336 | ImageIndex = -1
|
---|
337 | Text = 'Column 5'
|
---|
338 | Width = 0
|
---|
339 | end
|
---|
340 | item
|
---|
341 | ImageIndex = -1
|
---|
342 | Text = 'Location'
|
---|
343 | Width = 65
|
---|
344 | end
|
---|
345 | item
|
---|
346 | ImageIndex = -1
|
---|
347 | Text = 'Provider'
|
---|
348 | Width = 65
|
---|
349 | end
|
---|
350 | item
|
---|
351 | ImageIndex = -1
|
---|
352 | Text = 'Service'
|
---|
353 | Width = 65
|
---|
354 | end
|
---|
355 | item
|
---|
356 | ImageIndex = -1
|
---|
357 | Text = 'Column 9'
|
---|
358 | Width = 0
|
---|
359 | end
|
---|
360 | item
|
---|
361 | ImageIndex = -1
|
---|
362 | Text = 'Column 10'
|
---|
363 | Width = 0
|
---|
364 | end
|
---|
365 | item
|
---|
366 | ImageIndex = -1
|
---|
367 | Text = 'Column 11'
|
---|
368 | Width = 0
|
---|
369 | end
|
---|
370 | item
|
---|
371 | ImageIndex = -1
|
---|
372 | Text = 'Column12'
|
---|
373 | Width = 0
|
---|
374 | end
|
---|
375 | item
|
---|
376 | ImageIndex = -1
|
---|
377 | Text = 'Column 13'
|
---|
378 | Width = 0
|
---|
379 | end
|
---|
380 | item
|
---|
381 | ImageIndex = -1
|
---|
382 | Text = 'Column 14'
|
---|
383 | Width = 0
|
---|
384 | end
|
---|
385 | item
|
---|
386 | ImageIndex = -1
|
---|
387 | Text = 'Inactive Flag'
|
---|
388 | Width = 0
|
---|
389 | end>
|
---|
390 | OnSectionClick = HeaderControlSectionClick
|
---|
391 | OnSectionResize = HeaderControlSectionResize
|
---|
392 | OnMouseDown = HeaderControlMouseDown
|
---|
393 | OnMouseUp = HeaderControlMouseUp
|
---|
394 | end
|
---|
395 | end
|
---|
396 | inherited DKLanguageController1: TDKLanguageController
|
---|
397 | LangData = {
|
---|
398 | 0B0066726D50726F626C656D73010200000001000000070043617074696F6E02
|
---|
399 | 000000080048656C7046696C6501540000000D0073687050616765426F74746F
|
---|
400 | 6D00000700737074486F727A00000700706E6C4C65667400000800706E6C5269
|
---|
401 | 67687400000A00706E6C427574746F6E7300000B0062624F7468657250726F62
|
---|
402 | 010100000003000000070043617074696F6E000800626243616E63656C010100
|
---|
403 | 000004000000070043617074696F6E000700706E6C56696577000007006C626C
|
---|
404 | 56696577010100000005000000070043617074696F6E0007006C737456696577
|
---|
405 | 010200000007000000070043617074696F6E0600000005004974656D73000900
|
---|
406 | 62624E657750726F62010100000008000000070043617074696F6E000A00706E
|
---|
407 | 6C50726F62456E7400000A006C626C50726F62456E7401010000000900000007
|
---|
408 | 0043617074696F6E000900656450726F62456E7401010000000A000000070043
|
---|
409 | 617074696F6E000B00706E6C50726F624C69737400000C0073707450726F6250
|
---|
410 | 616E656C00000B00706E6C50726F624361747300000B006C626C50726F624361
|
---|
411 | 747301010000000B000000070043617074696F6E000A006C7374436174506963
|
---|
412 | 6B01020000000D000000070043617074696F6E0C000000040048696E74000800
|
---|
413 | 706E6C50726F627300000B006C626C50726F626C656D7301010000000E000000
|
---|
414 | 070043617074696F6E000B006C737450726F625069636B010200000010000000
|
---|
415 | 070043617074696F6E0F000000040048696E74000B006C626C50726F624C6973
|
---|
416 | 74010100000011000000070043617074696F6E000A00706E6C50726F62446C67
|
---|
417 | 00000A00776750726F6244617461010100000012000000070043617074696F6E
|
---|
418 | 000D00486561646572436F6E74726F6C01100000001300000010005365637469
|
---|
419 | 6F6E735B305D2E546578741D000000110053656374696F6E735B31305D2E5465
|
---|
420 | 78741E000000110053656374696F6E735B31315D2E546578741F000000110053
|
---|
421 | 656374696F6E735B31325D2E5465787420000000110053656374696F6E735B31
|
---|
422 | 335D2E5465787421000000110053656374696F6E735B31345D2E546578742200
|
---|
423 | 0000110053656374696F6E735B31355D2E546578741400000010005365637469
|
---|
424 | 6F6E735B315D2E5465787415000000100053656374696F6E735B325D2E546578
|
---|
425 | 7416000000100053656374696F6E735B335D2E54657874170000001000536563
|
---|
426 | 74696F6E735B345D2E5465787418000000100053656374696F6E735B355D2E54
|
---|
427 | 65787419000000100053656374696F6E735B365D2E546578741A000000100053
|
---|
428 | 656374696F6E735B375D2E546578741B000000100053656374696F6E735B385D
|
---|
429 | 2E546578741C000000100053656374696F6E735B395D2E54657874000700706F
|
---|
430 | 7050726F6200000900706F704368616E67650101000000230000000700436170
|
---|
431 | 74696F6E000D00706F70496E6163746976617465010100000024000000070043
|
---|
432 | 617074696F6E000900706F705665726966790101000000250000000700436170
|
---|
433 | 74696F6E0003004E333600000B00706F70416E6E6F7461746501010000002600
|
---|
434 | 0000070043617074696F6E0003004E333700000900706F7052656D6F76650101
|
---|
435 | 00000027000000070043617074696F6E000A00706F70526573746F7265010100
|
---|
436 | 000028000000070043617074696F6E0002004E3300000E00706F705669657744
|
---|
437 | 657461696C73010100000029000000070043617074696F6E0011006D6E754F70
|
---|
438 | 74696D697A654669656C647301010000002A000000070043617074696F6E0008
|
---|
439 | 006D6E7550726F6273000007006D6E755669657701010000002B000000070043
|
---|
440 | 617074696F6E000C006D6E7556696577436861727401010000002C0000000700
|
---|
441 | 43617074696F6E000D006D6E754368617274436F76657201010000002D000000
|
---|
442 | 070043617074696F6E000D006D6E75436861727450726F627301010000002E00
|
---|
443 | 0000070043617074696F6E000C006D6E7543686172744D65647301010000002F
|
---|
444 | 000000070043617074696F6E000E006D6E7543686172744F7264657273010100
|
---|
445 | 000030000000070043617074696F6E000D006D6E7543686172744E6F74657301
|
---|
446 | 0100000031000000070043617074696F6E000D006D6E75436861727443736C74
|
---|
447 | 73010100000032000000070043617074696F6E000F006D6E7543686172745375
|
---|
448 | 7267657279010100000033000000070043617074696F6E000E006D6E75436861
|
---|
449 | 7274444353756D6D010100000034000000070043617074696F6E000C006D6E75
|
---|
450 | 43686172744C616273010100000035000000070043617074696F6E000F006D6E
|
---|
451 | 7543686172745265706F727473010100000036000000070043617074696F6E00
|
---|
452 | 12006D6E7556696577496E666F726D6174696F6E010100000037000000070043
|
---|
453 | 617074696F6E000B006D6E755669657744656D6F010100000038000000070043
|
---|
454 | 617074696F6E000D006D6E755669657756697369747301010000003900000007
|
---|
455 | 0043617074696F6E0012006D6E75566965775072696D61727943617265010100
|
---|
456 | 00003A000000070043617074696F6E0013006D6E75566965774D794865616C74
|
---|
457 | 686556657401010000003B000000070043617074696F6E000C006D6E75496E73
|
---|
458 | 7572616E636501010000003C000000070043617074696F6E000C006D6E755669
|
---|
459 | 6577466C61677301010000003D000000070043617074696F6E0011006D6E7556
|
---|
460 | 69657752656D6F74654461746101010000003E000000070043617074696F6E00
|
---|
461 | 10006D6E755669657752656D696E6465727301010000003F0000000700436170
|
---|
462 | 74696F6E000F006D6E7556696577506F7374696E677301010000004000000007
|
---|
463 | 0043617074696F6E0002005A3100000D006D6E75566965774163746976650101
|
---|
464 | 00000041000000070043617074696F6E000F006D6E7556696577496E61637469
|
---|
465 | 7665010100000042000000070043617074696F6E000B006D6E7556696577426F
|
---|
466 | 7468010100000043000000070043617074696F6E000E006D6E75566965775265
|
---|
467 | 6D6F766564010100000044000000070043617074696F6E000E006D6E75566965
|
---|
468 | 7746696C74657273010100000045000000070043617074696F6E000F006D6E75
|
---|
469 | 56696577436F6D6D656E7473010100000046000000070043617074696F6E0002
|
---|
470 | 004E3200000B006D6E7556696577536176650101000000470000000700436170
|
---|
471 | 74696F6E0015006D6E7556696577526573746F726544656661756C7401010000
|
---|
472 | 0048000000070043617074696F6E0006006D6E75416374010100000049000000
|
---|
473 | 070043617074696F6E0009006D6E754163744E657701010000004A0000000700
|
---|
474 | 43617074696F6E0002005A3300000C006D6E754163744368616E676501010000
|
---|
475 | 004B000000070043617074696F6E0010006D6E75416374496E61637469766174
|
---|
476 | 6501010000004C000000070043617074696F6E000C006D6E7541637456657269
|
---|
477 | 667901010000004D000000070043617074696F6E0002004E3100000E006D6E75
|
---|
478 | 416374416E6E6F7461746501010000004E000000070043617074696F6E000200
|
---|
479 | 5A3400000C006D6E7541637452656D6F766501010000004F0000000700436170
|
---|
480 | 74696F6E000D006D6E75416374526573746F7265010100000050000000070043
|
---|
481 | 617074696F6E0002004E3400000D006D6E7541637444657461696C7301010000
|
---|
482 | 0051000000070043617074696F6E00}
|
---|
483 | end
|
---|
484 | object popProb: TPopupMenu
|
---|
485 | Left = 282
|
---|
486 | Top = 313
|
---|
487 | object popChange: TMenuItem
|
---|
488 | Tag = 400
|
---|
489 | Caption = '&Change...'
|
---|
490 | Enabled = False
|
---|
491 | OnClick = lstProbActsClick
|
---|
492 | end
|
---|
493 | object popInactivate: TMenuItem
|
---|
494 | Tag = 200
|
---|
495 | Caption = '&Inactivate'
|
---|
496 | Enabled = False
|
---|
497 | OnClick = lstProbActsClick
|
---|
498 | end
|
---|
499 | object popVerify: TMenuItem
|
---|
500 | Tag = 250
|
---|
501 | Caption = '&Verify...'
|
---|
502 | Enabled = False
|
---|
503 | OnClick = lstProbActsClick
|
---|
504 | end
|
---|
505 | object N36: TMenuItem
|
---|
506 | Caption = '-'
|
---|
507 | Enabled = False
|
---|
508 | end
|
---|
509 | object popAnnotate: TMenuItem
|
---|
510 | Tag = 600
|
---|
511 | Caption = '&Annotate...'
|
---|
512 | Enabled = False
|
---|
513 | OnClick = lstProbActsClick
|
---|
514 | end
|
---|
515 | object N37: TMenuItem
|
---|
516 | Caption = '-'
|
---|
517 | Enabled = False
|
---|
518 | Visible = False
|
---|
519 | end
|
---|
520 | object popRemove: TMenuItem
|
---|
521 | Tag = 500
|
---|
522 | Caption = '&Remove...'
|
---|
523 | Enabled = False
|
---|
524 | OnClick = lstProbActsClick
|
---|
525 | end
|
---|
526 | object popRestore: TMenuItem
|
---|
527 | Tag = 550
|
---|
528 | Caption = 'Re&store'
|
---|
529 | Enabled = False
|
---|
530 | OnClick = lstProbActsClick
|
---|
531 | end
|
---|
532 | object N3: TMenuItem
|
---|
533 | Caption = '-'
|
---|
534 | end
|
---|
535 | object popViewDetails: TMenuItem
|
---|
536 | Tag = 300
|
---|
537 | Caption = 'View Details'
|
---|
538 | OnClick = lstProbActsClick
|
---|
539 | end
|
---|
540 | object mnuOptimizeFields: TMenuItem
|
---|
541 | Caption = 'Adjust Column Size'
|
---|
542 | Visible = False
|
---|
543 | OnClick = mnuOptimizeFieldsClick
|
---|
544 | end
|
---|
545 | end
|
---|
546 | object mnuProbs: TMainMenu
|
---|
547 | Left = 243
|
---|
548 | Top = 313
|
---|
549 | object mnuView: TMenuItem
|
---|
550 | Caption = '&View'
|
---|
551 | GroupIndex = 3
|
---|
552 | object mnuViewChart: TMenuItem
|
---|
553 | Caption = 'Chart &Tab'
|
---|
554 | object mnuChartCover: TMenuItem
|
---|
555 | Tag = 1
|
---|
556 | Caption = 'Cover &Sheet'
|
---|
557 | ShortCut = 16467
|
---|
558 | OnClick = mnuChartTabClick
|
---|
559 | end
|
---|
560 | object mnuChartProbs: TMenuItem
|
---|
561 | Tag = 2
|
---|
562 | Caption = '&Problem List'
|
---|
563 | ShortCut = 16464
|
---|
564 | OnClick = mnuChartTabClick
|
---|
565 | end
|
---|
566 | object mnuChartMeds: TMenuItem
|
---|
567 | Tag = 3
|
---|
568 | Caption = '&Medications'
|
---|
569 | ShortCut = 16461
|
---|
570 | OnClick = mnuChartTabClick
|
---|
571 | end
|
---|
572 | object mnuChartOrders: TMenuItem
|
---|
573 | Tag = 4
|
---|
574 | Caption = '&Orders'
|
---|
575 | ShortCut = 16463
|
---|
576 | OnClick = mnuChartTabClick
|
---|
577 | end
|
---|
578 | object mnuChartNotes: TMenuItem
|
---|
579 | Tag = 6
|
---|
580 | Caption = 'Progress &Notes'
|
---|
581 | ShortCut = 16462
|
---|
582 | OnClick = mnuChartTabClick
|
---|
583 | end
|
---|
584 | object mnuChartCslts: TMenuItem
|
---|
585 | Tag = 7
|
---|
586 | Caption = 'Consul&ts'
|
---|
587 | ShortCut = 16468
|
---|
588 | OnClick = mnuChartTabClick
|
---|
589 | end
|
---|
590 | object mnuChartSurgery: TMenuItem
|
---|
591 | Tag = 11
|
---|
592 | Caption = 'S&urgery'
|
---|
593 | ShortCut = 16469
|
---|
594 | OnClick = mnuChartTabClick
|
---|
595 | end
|
---|
596 | object mnuChartDCSumm: TMenuItem
|
---|
597 | Tag = 8
|
---|
598 | Caption = '&Discharge Summaries'
|
---|
599 | ShortCut = 16452
|
---|
600 | OnClick = mnuChartTabClick
|
---|
601 | end
|
---|
602 | object mnuChartLabs: TMenuItem
|
---|
603 | Tag = 9
|
---|
604 | Caption = '&Laboratory'
|
---|
605 | ShortCut = 16460
|
---|
606 | OnClick = mnuChartTabClick
|
---|
607 | end
|
---|
608 | object mnuChartReports: TMenuItem
|
---|
609 | Tag = 10
|
---|
610 | Caption = '&Reports'
|
---|
611 | ShortCut = 16466
|
---|
612 | OnClick = mnuChartTabClick
|
---|
613 | end
|
---|
614 | end
|
---|
615 | object mnuViewInformation: TMenuItem
|
---|
616 | Caption = 'Information'
|
---|
617 | OnClick = mnuViewInformationClick
|
---|
618 | object mnuViewDemo: TMenuItem
|
---|
619 | Tag = 1
|
---|
620 | Caption = 'De&mographics...'
|
---|
621 | OnClick = ViewInfo
|
---|
622 | end
|
---|
623 | object mnuViewVisits: TMenuItem
|
---|
624 | Tag = 2
|
---|
625 | Caption = 'Visits/Pr&ovider...'
|
---|
626 | OnClick = ViewInfo
|
---|
627 | end
|
---|
628 | object mnuViewPrimaryCare: TMenuItem
|
---|
629 | Tag = 3
|
---|
630 | Caption = 'Primary &Care...'
|
---|
631 | OnClick = ViewInfo
|
---|
632 | end
|
---|
633 | object mnuViewMyHealtheVet: TMenuItem
|
---|
634 | Tag = 4
|
---|
635 | Caption = 'MyHealthe&Vet...'
|
---|
636 | OnClick = ViewInfo
|
---|
637 | end
|
---|
638 | object mnuInsurance: TMenuItem
|
---|
639 | Tag = 5
|
---|
640 | Caption = '&Insurance...'
|
---|
641 | OnClick = ViewInfo
|
---|
642 | end
|
---|
643 | object mnuViewFlags: TMenuItem
|
---|
644 | Tag = 6
|
---|
645 | Caption = '&Flags...'
|
---|
646 | OnClick = ViewInfo
|
---|
647 | end
|
---|
648 | object mnuViewRemoteData: TMenuItem
|
---|
649 | Tag = 7
|
---|
650 | Caption = 'Remote &Data...'
|
---|
651 | OnClick = ViewInfo
|
---|
652 | end
|
---|
653 | object mnuViewReminders: TMenuItem
|
---|
654 | Tag = 8
|
---|
655 | Caption = '&Reminders...'
|
---|
656 | Enabled = False
|
---|
657 | OnClick = ViewInfo
|
---|
658 | end
|
---|
659 | object mnuViewPostings: TMenuItem
|
---|
660 | Tag = 9
|
---|
661 | Caption = '&Postings...'
|
---|
662 | OnClick = ViewInfo
|
---|
663 | end
|
---|
664 | end
|
---|
665 | object Z1: TMenuItem
|
---|
666 | Caption = '-'
|
---|
667 | end
|
---|
668 | object mnuViewActive: TMenuItem
|
---|
669 | Tag = 700
|
---|
670 | Caption = '&Active Problems'
|
---|
671 | OnClick = lstProbActsClick
|
---|
672 | end
|
---|
673 | object mnuViewInactive: TMenuItem
|
---|
674 | Tag = 800
|
---|
675 | Caption = '&Inactive Problems'
|
---|
676 | OnClick = lstProbActsClick
|
---|
677 | end
|
---|
678 | object mnuViewBoth: TMenuItem
|
---|
679 | Tag = 900
|
---|
680 | Caption = '&Both Active/Inactive Problems'
|
---|
681 | OnClick = lstProbActsClick
|
---|
682 | end
|
---|
683 | object mnuViewRemoved: TMenuItem
|
---|
684 | Tag = 950
|
---|
685 | Caption = '&Removed Problems'
|
---|
686 | OnClick = lstProbActsClick
|
---|
687 | end
|
---|
688 | object mnuViewFilters: TMenuItem
|
---|
689 | Tag = 975
|
---|
690 | Caption = 'Fi<ers...'
|
---|
691 | OnClick = lstProbActsClick
|
---|
692 | end
|
---|
693 | object mnuViewComments: TMenuItem
|
---|
694 | Caption = 'Show &Comments'
|
---|
695 | OnClick = mnuViewCommentsClick
|
---|
696 | end
|
---|
697 | object N2: TMenuItem
|
---|
698 | Caption = '-'
|
---|
699 | end
|
---|
700 | object mnuViewSave: TMenuItem
|
---|
701 | Caption = 'Sa&ve as Default View'
|
---|
702 | OnClick = mnuViewSaveClick
|
---|
703 | end
|
---|
704 | object mnuViewRestoreDefault: TMenuItem
|
---|
705 | Caption = 'Return to De&fault View'
|
---|
706 | OnClick = mnuViewRestoreDefaultClick
|
---|
707 | end
|
---|
708 | end
|
---|
709 | object mnuAct: TMenuItem
|
---|
710 | Caption = '&Action'
|
---|
711 | GroupIndex = 4
|
---|
712 | object mnuActNew: TMenuItem
|
---|
713 | Tag = 100
|
---|
714 | Caption = '&New Problem...'
|
---|
715 | OnClick = lstProbActsClick
|
---|
716 | end
|
---|
717 | object Z3: TMenuItem
|
---|
718 | Caption = '-'
|
---|
719 | end
|
---|
720 | object mnuActChange: TMenuItem
|
---|
721 | Tag = 400
|
---|
722 | Caption = '&Change...'
|
---|
723 | Enabled = False
|
---|
724 | OnClick = lstProbActsClick
|
---|
725 | end
|
---|
726 | object mnuActInactivate: TMenuItem
|
---|
727 | Tag = 200
|
---|
728 | Caption = '&Inactivate'
|
---|
729 | Enabled = False
|
---|
730 | OnClick = lstProbActsClick
|
---|
731 | end
|
---|
732 | object mnuActVerify: TMenuItem
|
---|
733 | Tag = 250
|
---|
734 | Caption = '&Verify...'
|
---|
735 | Enabled = False
|
---|
736 | OnClick = lstProbActsClick
|
---|
737 | end
|
---|
738 | object N1: TMenuItem
|
---|
739 | Caption = '-'
|
---|
740 | end
|
---|
741 | object mnuActAnnotate: TMenuItem
|
---|
742 | Tag = 600
|
---|
743 | Caption = '&Annotate...'
|
---|
744 | Enabled = False
|
---|
745 | OnClick = lstProbActsClick
|
---|
746 | end
|
---|
747 | object Z4: TMenuItem
|
---|
748 | Caption = '-'
|
---|
749 | Visible = False
|
---|
750 | end
|
---|
751 | object mnuActRemove: TMenuItem
|
---|
752 | Tag = 500
|
---|
753 | Caption = '&Remove'
|
---|
754 | Enabled = False
|
---|
755 | OnClick = lstProbActsClick
|
---|
756 | end
|
---|
757 | object mnuActRestore: TMenuItem
|
---|
758 | Tag = 550
|
---|
759 | Caption = 'Re&store'
|
---|
760 | Enabled = False
|
---|
761 | OnClick = lstProbActsClick
|
---|
762 | end
|
---|
763 | object N4: TMenuItem
|
---|
764 | Caption = '-'
|
---|
765 | end
|
---|
766 | object mnuActDetails: TMenuItem
|
---|
767 | Tag = 300
|
---|
768 | Caption = 'View &Details'
|
---|
769 | Enabled = False
|
---|
770 | OnClick = lstProbActsClick
|
---|
771 | end
|
---|
772 | end
|
---|
773 | end
|
---|
774 | end
|
---|