source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.dfm@ 1806

Last change on this file since 1806 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258
File size: 6.4 KB
Line 
1object frmSignOrders: TfrmSignOrders
2 Left = 400
3 Top = 159
4 Width = 585
5 Height = 511
6 Caption = 'Sign Orders'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 KeyPreview = True
14 OldCreateOrder = True
15 Position = poScreenCenter
16 OnCreate = FormCreate
17 OnDestroy = FormDestroy
18 OnKeyDown = FormKeyDown
19 OnMouseDown = clstOrdersMouseDown
20 OnMouseMove = FormMouseMove
21 OnShow = FormShow
22 DesignSize = (
23 577
24 484)
25 PixelsPerInch = 96
26 TextHeight = 13
27 object lblESCode: TLabel
28 Left = 8
29 Top = 441
30 Width = 123
31 Height = 13
32 Anchors = [akLeft, akBottom]
33 Caption = 'Electronic Signature Code'
34 end
35 object laDiagnosis: TLabel
36 Left = 184
37 Top = 185
38 Width = 46
39 Height = 13
40 Caption = 'Diagnosis'
41 Visible = False
42 end
43 object Label2: TStaticText
44 Left = 8
45 Top = 147
46 Width = 171
47 Height = 17
48 Caption = 'The following orders will be signed -'
49 TabOrder = 3
50 TabStop = True
51 end
52 object cmdOK: TButton
53 Left = 417
54 Top = 455
55 Width = 72
56 Height = 21
57 Anchors = [akRight, akBottom]
58 Caption = 'OK'
59 Default = True
60 TabOrder = 1
61 OnClick = cmdOKClick
62 end
63 object cmdCancel: TButton
64 Left = 497
65 Top = 455
66 Width = 72
67 Height = 21
68 Anchors = [akRight, akBottom]
69 Cancel = True
70 Caption = 'Cancel'
71 TabOrder = 2
72 OnClick = cmdCancelClick
73 end
74 object txtESCode: TCaptionEdit
75 Left = 8
76 Top = 455
77 Width = 137
78 Height = 21
79 Anchors = [akLeft, akBottom]
80 PasswordChar = '*'
81 TabOrder = 0
82 Caption = 'Electronic Signature Code'
83 end
84 inline fraCoPay: TfraCoPayDesc
85 Left = 0
86 Top = 0
87 Width = 577
88 Height = 132
89 Align = alTop
90 ParentShowHint = False
91 ShowHint = True
92 TabOrder = 5
93 Visible = False
94 inherited pnlRight: TPanel
95 Left = 328
96 inherited lblCaption: TStaticText
97 Caption = 'Patient Orders Related To:'
98 end
99 inherited pnlMain: TPanel
100 inherited Panel7: TPanel
101 inherited lblHNC2: TORStaticText
102 OnEnter = fraCoPayLabel23Enter
103 OnExit = fraCoPayLabel23Exit
104 end
105 inherited lblHNC: TORStaticText
106 OnEnter = fraCoPayLabel23Enter
107 OnExit = fraCoPayLabel23Exit
108 end
109 end
110 inherited Panel8: TPanel
111 inherited Label12: TORStaticText
112 OnEnter = fraCoPayLabel23Enter
113 OnExit = fraCoPayLabel23Exit
114 end
115 inherited Label11: TORStaticText
116 OnEnter = fraCoPayLabel23Enter
117 OnExit = fraCoPayLabel23Exit
118 end
119 end
120 inherited Panel9: TPanel
121 inherited Label14: TORStaticText
122 OnEnter = fraCoPayLabel23Enter
123 OnExit = fraCoPayLabel23Exit
124 end
125 inherited Label13: TORStaticText
126 OnEnter = fraCoPayLabel23Enter
127 OnExit = fraCoPayLabel23Exit
128 end
129 end
130 inherited Panel10: TPanel
131 inherited Label16: TORStaticText
132 OnEnter = fraCoPayLabel23Enter
133 OnExit = fraCoPayLabel23Exit
134 end
135 inherited Label15: TORStaticText
136 OnEnter = fraCoPayLabel23Enter
137 OnExit = fraCoPayLabel23Exit
138 end
139 end
140 inherited Panel11: TPanel
141 inherited Label18: TORStaticText
142 OnEnter = fraCoPayLabel23Enter
143 OnExit = fraCoPayLabel23Exit
144 end
145 inherited Label17: TORStaticText
146 OnEnter = fraCoPayLabel23Enter
147 OnExit = fraCoPayLabel23Exit
148 end
149 end
150 inherited Panel12: TPanel
151 inherited Label24: TORStaticText
152 OnEnter = fraCoPayLabel23Enter
153 OnExit = fraCoPayLabel23Exit
154 end
155 inherited Label23: TORStaticText
156 OnEnter = fraCoPayLabel23Enter
157 OnExit = fraCoPayLabel23Exit
158 end
159 end
160 inherited Panel1: TPanel
161 inherited StaticText4: TORStaticText
162 OnEnter = fraCoPayLabel23Enter
163 OnExit = fraCoPayLabel23Exit
164 end
165 inherited StaticText1: TORStaticText
166 OnEnter = fraCoPayLabel23Enter
167 OnExit = fraCoPayLabel23Exit
168 end
169 end
170 end
171 end
172 inherited pnlSC: TPanel
173 Width = 328
174 inherited lblSCDisplay: TLabel
175 Width = 328
176 end
177 inherited memSCDisplay: TCaptionMemo
178 Width = 328
179 end
180 end
181 end
182 object clstOrders: TCaptionCheckListBox
183 Left = 8
184 Top = 162
185 Width = 564
186 Height = 277
187 OnClickCheck = clstOrdersClickCheck
188 Anchors = [akLeft, akTop, akRight, akBottom]
189 ItemHeight = 16
190 ParentShowHint = False
191 PopupMenu = poBACopyPaste
192 ShowHint = True
193 Style = lbOwnerDrawVariable
194 TabOrder = 4
195 OnClick = clstOrdersClick
196 OnDrawItem = clstOrdersDrawItem
197 OnKeyUp = clstOrdersKeyUp
198 OnMeasureItem = clstOrdersMeasureItem
199 OnMouseDown = clstOrdersMouseDown
200 OnMouseMove = clstOrdersMouseMove
201 Caption = 'The following orders will be signed -'
202 end
203 object gbdxLookup: TGroupBox
204 Left = 7
205 Top = 139
206 Width = 99
207 Height = 43
208 Caption = 'Lookup Diagnosis'
209 Font.Charset = DEFAULT_CHARSET
210 Font.Color = clBlack
211 Font.Height = -11
212 Font.Name = 'MS Sans Serif'
213 Font.Style = []
214 ParentFont = False
215 TabOrder = 8
216 TabStop = True
217 Visible = False
218 object buOrdersDiagnosis: TButton
219 Left = 7
220 Top = 16
221 Width = 86
222 Height = 21
223 Caption = '&Diagnosis'
224 Enabled = False
225 TabOrder = 0
226 OnClick = buOrdersDiagnosisClick
227 end
228 end
229 object poBACopyPaste: TPopupMenu
230 Left = 344
231 Top = 296
232 object Copy1: TMenuItem
233 Caption = '&Copy'
234 ShortCut = 16451
235 OnClick = Copy1Click
236 end
237 object Paste1: TMenuItem
238 Caption = '&Paste'
239 Enabled = False
240 ShortCut = 16470
241 OnClick = Paste1Click
242 end
243 object Diagnosis1: TMenuItem
244 Caption = '&Diagnosis...'
245 ShortCut = 32836
246 OnClick = buOrdersDiagnosisClick
247 end
248 object Exit1: TMenuItem
249 Caption = '&Exit'
250 ShortCut = 16453
251 OnClick = Exit1Click
252 end
253 end
254end
Note: See TracBrowser for help on using the repository browser.