source: cprs/trunk/CPRS-Chart/fMedCopy.dfm@ 924

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

Upgrading to version 27
File size: 6.9 KB
Line 
1inherited frmMedCopy: TfrmMedCopy
2 Left = 157
3 Top = 62
4 Caption = 'Copy Medication Orders'
5 ClientHeight = 401
6 ClientWidth = 485
7 Constraints.MinHeight = 150
8 Constraints.MinWidth = 240
9 OldCreateOrder = True
10 OnCreate = FormCreate
11 ExplicitWidth = 493
12 ExplicitHeight = 428
13 PixelsPerInch = 96
14 TextHeight = 13
15 object pnlTop: TPanel [0]
16 Left = 0
17 Top = 0
18 Width = 485
19 Height = 80
20 Align = alTop
21 AutoSize = True
22 TabOrder = 0
23 object lblPtInfo: TVA508StaticText
24 Name = 'lblPtInfo'
25 Left = 1
26 Top = 1
27 Width = 464
28 Height = 40
29 Alignment = taLeftJustify
30 AutoSize = True
31 Constraints.MinHeight = 40
32 TabOrder = 1
33 ShowAccelChar = True
34 end
35 object pnlInpatient: TPanel
36 Left = 1
37 Top = 46
38 Width = 483
39 Height = 33
40 Align = alBottom
41 AutoSize = True
42 TabOrder = 0
43 object Image1: TImage
44 Left = 1
45 Top = 1
46 Width = 24
47 Height = 31
48 Align = alLeft
49 AutoSize = True
50 Enabled = False
51 Picture.Data = {
52 07544269746D61707E010000424D7E0100000000000076000000280000001800
53 000016000000010004000000000008010000C40E0000C40E0000100000000000
54 0000000000000000800000800000008080008000000080008000808000008080
55 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
56 FF008000000000000000000000080777777777777777777777700F7777777777
57 7777777777700F88888888888888888887700F88888888888888888887700F88
58 888808888888888887700F88888800888888888887700F8888880B0888888888
59 87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
60 CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
61 0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
62 87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
63 8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
64 00000000000000000008}
65 Transparent = True
66 end
67 object lblInstruction: TStaticText
68 Left = 30
69 Top = 1
70 Width = 337
71 Height = 17
72 Caption =
73 ' Use Admit: if patient is newly admitted to the hospital or nur' +
74 'sing home.'
75 TabOrder = 0
76 end
77 object lblInstruction2: TStaticText
78 Left = 30
79 Top = 15
80 Width = 371
81 Height = 17
82 Caption =
83 ' Use Transfer: if inpatient will move from one ward or treating' +
84 ' team to another.'
85 TabOrder = 1
86 end
87 end
88 end
89 object pnlMiddle: TPanel [1]
90 Left = 0
91 Top = 80
92 Width = 485
93 Height = 65
94 Align = alTop
95 TabOrder = 1
96 object gboxMain: TGroupBox
97 Left = 1
98 Top = 1
99 Width = 483
100 Height = 63
101 Align = alClient
102 TabOrder = 0
103 object radDelayed: TRadioButton
104 Left = 20
105 Top = 37
106 Width = 321
107 Height = 17
108 Caption = '&Delay release of copied orders until'
109 TabOrder = 1
110 OnClick = radDelayedClick
111 end
112 object radRelease: TRadioButton
113 Left = 20
114 Top = 16
115 Width = 319
116 Height = 17
117 Caption = '&Release copied orders immediately'
118 Checked = True
119 TabOrder = 0
120 TabStop = True
121 OnClick = radReleaseClick
122 end
123 object cmdOK: TButton
124 Left = 365
125 Top = 14
126 Width = 72
127 Height = 19
128 Caption = 'OK'
129 Constraints.MaxWidth = 73
130 Default = True
131 TabOrder = 2
132 OnClick = cmdOKClick
133 end
134 object cmdCancel: TButton
135 Left = 365
136 Top = 38
137 Width = 72
138 Height = 19
139 Cancel = True
140 Caption = 'Cancel'
141 Constraints.MaxWidth = 73
142 TabOrder = 3
143 OnClick = cmdCancelClick
144 end
145 end
146 end
147 object pnlBottom: TPanel [2]
148 Left = 0
149 Top = 145
150 Width = 485
151 Height = 256
152 Align = alClient
153 TabOrder = 2
154 inline fraEvntDelayList: TfraEvntDelayList
155 Left = 1
156 Top = 1
157 Width = 483
158 Height = 254
159 Align = alBottom
160 AutoScroll = True
161 TabOrder = 0
162 TabStop = True
163 Visible = False
164 ExplicitLeft = 1
165 ExplicitTop = 1
166 ExplicitWidth = 483
167 ExplicitHeight = 254
168 inherited pnlDate: TPanel
169 Left = 378
170 Height = 254
171 ExplicitLeft = 378
172 ExplicitHeight = 254
173 inherited lblEffective: TLabel
174 Left = 446
175 Width = 71
176 ExplicitLeft = 446
177 ExplicitWidth = 71
178 end
179 inherited orDateBox: TORDateBox
180 Left = 446
181 ExplicitLeft = 446
182 end
183 end
184 inherited pnlList: TPanel
185 Width = 378
186 Height = 254
187 ExplicitWidth = 378
188 ExplicitHeight = 254
189 inherited lblEvntDelayList: TLabel
190 Width = 376
191 ExplicitWidth = 80
192 end
193 inherited mlstEvents: TORListBox
194 Width = 376
195 Height = 218
196 OnDblClick = cmdOKClick
197 ExplicitWidth = 376
198 ExplicitHeight = 218
199 end
200 inherited edtSearch: TCaptionEdit
201 Width = 376
202 ExplicitWidth = 376
203 end
204 end
205 end
206 end
207 inherited amgrMain: TVA508AccessibilityManager
208 Data = (
209 (
210 'Component = pnlTop'
211 'Status = stsDefault')
212 (
213 'Component = pnlInpatient'
214 'Status = stsDefault')
215 (
216 'Component = lblInstruction'
217 'Status = stsDefault')
218 (
219 'Component = lblInstruction2'
220 'Status = stsDefault')
221 (
222 'Component = pnlMiddle'
223 'Status = stsDefault')
224 (
225 'Component = gboxMain'
226 'Status = stsDefault')
227 (
228 'Component = radDelayed'
229 'Status = stsDefault')
230 (
231 'Component = radRelease'
232 'Status = stsDefault')
233 (
234 'Component = cmdOK'
235 'Status = stsDefault')
236 (
237 'Component = cmdCancel'
238 'Status = stsDefault')
239 (
240 'Component = pnlBottom'
241 'Status = stsDefault')
242 (
243 'Component = fraEvntDelayList'
244 'Status = stsDefault')
245 (
246 'Component = fraEvntDelayList.pnlDate'
247 'Status = stsDefault')
248 (
249 'Component = fraEvntDelayList.orDateBox'
250 'Status = stsDefault')
251 (
252 'Component = fraEvntDelayList.pnlList'
253 'Status = stsDefault')
254 (
255 'Component = fraEvntDelayList.mlstEvents'
256 'Status = stsDefault')
257 (
258 'Component = fraEvntDelayList.edtSearch'
259 'Status = stsDefault')
260 (
261 'Component = frmMedCopy'
262 'Status = stsDefault'))
263 end
264end
Note: See TracBrowser for help on using the repository browser.