source: cprs/trunk/CPRS-Chart/Orders/fOCSession.dfm@ 1780

Last change on this file since 1780 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 6.0 KB
Line 
1inherited frmOCSession: TfrmOCSession
2 Left = 366
3 Top = 222
4 Width = 714
5 Height = 530
6 HorzScrollBar.Visible = True
7 VertScrollBar.Visible = True
8 AutoScroll = True
9 BorderIcons = []
10 Caption = 'Order Checks'
11 Constraints.MinHeight = 500
12 Constraints.MinWidth = 500
13 Position = poScreenCenter
14 ShowHint = True
15 OnClose = FormClose
16 OnCreate = FormCreate
17 OnMouseWheelDown = FormMouseWheelDown
18 OnShow = FormShow
19 ExplicitWidth = 714
20 ExplicitHeight = 530
21 PixelsPerInch = 96
22 TextHeight = 13
23 object pnlBottom: TPanel [0]
24 Left = 0
25 Top = 352
26 Width = 706
27 Height = 146
28 Anchors = [akLeft, akTop, akBottom]
29 BevelOuter = bvNone
30 TabOrder = 0
31 DesignSize = (
32 706
33 146)
34 object lblJustify: TLabel
35 Left = 9
36 Top = 58
37 Width = 234
38 Height = 13
39 Anchors = [akLeft]
40 Caption = 'Enter reason for overriding order checks:'
41 Font.Charset = DEFAULT_CHARSET
42 Font.Color = clWindowText
43 Font.Height = -11
44 Font.Name = 'MS Sans Serif'
45 Font.Style = [fsBold]
46 ParentFont = False
47 end
48 object memNote: TMemo
49 Left = 392
50 Top = 12
51 Width = 306
52 Height = 40
53 BorderStyle = bsNone
54 Color = clBtnFace
55 Lines.Strings = (
56 'NOTE: The override reason is for tracking purposes and '
57 'does not change or place new order(s).')
58 ReadOnly = True
59 TabOrder = 0
60 OnEnter = memNoteEnter
61 end
62 object txtJustify: TCaptionEdit
63 Left = 8
64 Top = 80
65 Width = 682
66 Height = 21
67 Anchors = [akLeft]
68 AutoSize = False
69 MaxLength = 80
70 TabOrder = 3
71 OnKeyDown = txtJustifyKeyDown
72 Caption = 'Enter justification for overriding critical order checks -'
73 end
74 object cmdCancelOrder: TButton
75 Left = 9
76 Top = 17
77 Width = 168
78 Height = 21
79 Caption = 'Cancel Checked Order(s)'
80 Font.Charset = DEFAULT_CHARSET
81 Font.Color = clWindowText
82 Font.Height = -11
83 Font.Name = 'MS Sans Serif'
84 Font.Style = [fsBold]
85 ParentFont = False
86 TabOrder = 1
87 OnClick = cmdCancelOrderClick
88 end
89 object cmdContinue: TButton
90 Left = 219
91 Top = 112
92 Width = 127
93 Height = 23
94 Anchors = [akLeft, akTop, akRight, akBottom]
95 Caption = 'Accept Order(s)'
96 Font.Charset = DEFAULT_CHARSET
97 Font.Color = clWindowText
98 Font.Height = -11
99 Font.Name = 'MS Sans Serif'
100 Font.Style = [fsBold]
101 ParentFont = False
102 TabOrder = 4
103 OnClick = cmdContinueClick
104 end
105 object btnReturn: TButton
106 Left = 352
107 Top = 112
108 Width = 122
109 Height = 23
110 Anchors = [akLeft, akTop, akRight, akBottom]
111 Cancel = True
112 Caption = 'Return to Orders'
113 Font.Charset = DEFAULT_CHARSET
114 Font.Color = clWindowText
115 Font.Height = -11
116 Font.Name = 'MS Sans Serif'
117 Font.Style = [fsBold]
118 ParentFont = False
119 TabOrder = 5
120 OnClick = btnReturnClick
121 end
122 object cmdMonograph: TButton
123 Left = 536
124 Top = 107
125 Width = 162
126 Height = 21
127 Anchors = [akRight, akBottom]
128 Caption = 'Drug Interaction Monograph'
129 TabOrder = 6
130 OnClick = cmdMonographClick
131 end
132 end
133 object pnlTop: TORAutoPanel [1]
134 Left = 0
135 Top = 0
136 Width = 706
137 Height = 346
138 Align = alTop
139 BevelEdges = []
140 BevelOuter = bvNone
141 TabOrder = 1
142 DesignSize = (
143 706
144 346)
145 object lblHover: TLabel
146 Left = 16
147 Top = 32
148 Width = 445
149 Height = 13
150 Caption =
151 'If the order check description is cut short, hover over the text' +
152 ' to view the complete description.'
153 end
154 object grdchecks: TCaptionStringGrid
155 Left = 16
156 Top = 64
157 Width = 682
158 Height = 279
159 Margins.Top = 0
160 Anchors = [akLeft, akBottom]
161 ColCount = 3
162 DefaultDrawing = False
163 FixedColor = clBtnShadow
164 FixedCols = 0
165 RowCount = 2
166 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowMoving, goTabs]
167 ScrollBars = ssVertical
168 TabOrder = 1
169 OnDrawCell = grdchecksDrawCell
170 OnEnter = grdchecksEnter
171 OnKeyDown = grdchecksKeyDown
172 OnMouseDown = grdchecksMouseDown
173 OnMouseMove = grdchecksMouseMove
174 OnMouseWheelDown = grdchecksMouseWheelDown
175 OnMouseWheelUp = grdchecksMouseWheelUp
176 OnSelectCell = grdchecksSelectCell
177 JustToTab = True
178 end
179 object lblInstr: TVA508StaticText
180 Name = 'lblInstr'
181 Left = 0
182 Top = 12
183 Width = 641
184 Height = 15
185 Margins.Bottom = 0
186 Alignment = taLeftJustify
187 AutoSize = True
188 Caption =
189 'To cancel an order select the order by checking the checkbox and' +
190 ' press the "Cancel Checked Order(s)" button.'
191 Font.Charset = DEFAULT_CHARSET
192 Font.Color = clWindowText
193 Font.Height = -11
194 Font.Name = 'MS Sans Serif'
195 Font.Style = [fsBold]
196 ParentFont = False
197 TabOrder = 0
198 TabStop = True
199 ShowAccelChar = True
200 end
201 end
202 inherited amgrMain: TVA508AccessibilityManager
203 Data = (
204 (
205 'Component = pnlBottom'
206 'Status = stsDefault')
207 (
208 'Component = txtJustify'
209 'Status = stsDefault')
210 (
211 'Component = cmdCancelOrder'
212 'Status = stsDefault')
213 (
214 'Component = cmdContinue'
215 'Status = stsDefault')
216 (
217 'Component = btnReturn'
218 'Status = stsDefault')
219 (
220 'Component = memNote'
221 'Status = stsDefault')
222 (
223 'Component = frmOCSession'
224 'Status = stsDefault')
225 (
226 'Component = cmdMonograph'
227 'Status = stsDefault')
228 (
229 'Component = grdchecks'
230 'Status = stsDefault')
231 (
232 'Component = pnlTop'
233 'Status = stsDefault'))
234 end
235end
Note: See TracBrowser for help on using the repository browser.