source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNoteCslt.dfm@ 1722

Last change on this file since 1722 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 2.8 KB
Line 
1inherited frmNoteConsult: TfrmNoteConsult
2 Left = 162
3 Top = 178
4 Caption = 'Consult Request Selection'
5 ClientWidth = 547
6 Position = poScreenCenter
7 ExplicitWidth = 320
8 ExplicitHeight = 240
9 PixelsPerInch = 96
10 TextHeight = 13
11 object Label3: TLabel [0]
12 Left = 8
13 Top = 44
14 Width = 104
15 Height = 13
16 Caption = 'Consult Request Date'
17 end
18 object Label4: TLabel [1]
19 Left = 136
20 Top = 44
21 Width = 36
22 Height = 13
23 Caption = 'Service'
24 end
25 object Label5: TLabel [2]
26 Left = 268
27 Top = 46
28 Width = 49
29 Height = 13
30 Caption = 'Procedure'
31 end
32 object Label6: TLabel [3]
33 Left = 423
34 Top = 45
35 Width = 30
36 Height = 13
37 Caption = 'Status'
38 end
39 object Label7: TLabel [4]
40 Left = 488
41 Top = 44
42 Width = 38
43 Height = 13
44 Caption = '# Notes'
45 end
46 object Label1: TStaticText [5]
47 Left = 8
48 Top = 8
49 Width = 313
50 Height = 17
51 Caption =
52 'This progress note title must be associated with a consult reque' +
53 'st.'
54 Font.Charset = DEFAULT_CHARSET
55 Font.Color = clWindowText
56 Font.Height = -11
57 Font.Name = 'MS Sans Serif'
58 Font.Style = []
59 ParentFont = False
60 TabOrder = 3
61 end
62 object Label2: TStaticText [6]
63 Left = 8
64 Top = 22
65 Width = 335
66 Height = 17
67 Caption =
68 'Select one of the following or press cancel and choose a differe' +
69 'nt title.'
70 TabOrder = 4
71 end
72 object lstRequests: TORListBox [7]
73 Left = 8
74 Top = 58
75 Width = 531
76 Height = 171
77 ItemHeight = 13
78 Items.Strings = (
79 'a^b^c^d^e^f')
80 ParentShowHint = False
81 ShowHint = True
82 TabOrder = 0
83 OnClick = lstRequestsClick
84 Caption = 'Associated Consult Request'
85 ItemTipColor = clWindow
86 LongList = False
87 Pieces = '2,3,4,5,6'
88 TabPositions = '21,43,69,83'
89 end
90 object cmdOK: TButton [8]
91 Left = 378
92 Top = 242
93 Width = 72
94 Height = 21
95 Caption = 'OK'
96 Default = True
97 Enabled = False
98 TabOrder = 1
99 OnClick = cmdOKClick
100 end
101 object cmdCancel: TButton [9]
102 Left = 466
103 Top = 242
104 Width = 72
105 Height = 21
106 Cancel = True
107 Caption = 'Cancel'
108 TabOrder = 2
109 OnClick = cmdCancelClick
110 end
111 inherited amgrMain: TVA508AccessibilityManager
112 Data = (
113 (
114 'Component = Label1'
115 'Status = stsDefault')
116 (
117 'Component = Label2'
118 'Status = stsDefault')
119 (
120 'Component = lstRequests'
121 'Status = stsDefault')
122 (
123 'Component = cmdOK'
124 'Status = stsDefault')
125 (
126 'Component = cmdCancel'
127 'Status = stsDefault')
128 (
129 'Component = frmNoteConsult'
130 'Status = stsDefault'))
131 end
132end
Note: See TracBrowser for help on using the repository browser.