[459] | 1 | object frmReview: TfrmReview
|
---|
| 2 | Left = 212
|
---|
| 3 | Top = 139
|
---|
| 4 | AutoScroll = False
|
---|
| 5 | BorderIcons = [biMaximize]
|
---|
| 6 | Caption = 'Review / Sign Changes'
|
---|
| 7 | ClientHeight = 501
|
---|
| 8 | ClientWidth = 602
|
---|
| 9 | Color = clBtnFace
|
---|
| 10 | Font.Charset = DEFAULT_CHARSET
|
---|
| 11 | Font.Color = clWindowText
|
---|
| 12 | Font.Height = -11
|
---|
| 13 | Font.Name = 'MS Sans Serif'
|
---|
| 14 | Font.Style = []
|
---|
| 15 | KeyPreview = True
|
---|
| 16 | OldCreateOrder = True
|
---|
| 17 | Position = poScreenCenter
|
---|
| 18 | OnClose = FormClose
|
---|
| 19 | OnCreate = FormCreate
|
---|
| 20 | OnDestroy = FormDestroy
|
---|
| 21 | OnKeyDown = FormKeyDown
|
---|
| 22 | OnKeyUp = FormKeyUp
|
---|
| 23 | OnMouseDown = FormMouseDown
|
---|
| 24 | OnMouseMove = FormMouseMove
|
---|
| 25 | OnShow = FormShow
|
---|
| 26 | DesignSize = (
|
---|
| 27 | 602
|
---|
| 28 | 501)
|
---|
| 29 | PixelsPerInch = 96
|
---|
| 30 | TextHeight = 13
|
---|
| 31 | object laDiagnosis: TLabel
|
---|
| 32 | Left = 256
|
---|
| 33 | Top = 135
|
---|
| 34 | Width = 46
|
---|
| 35 | Height = 13
|
---|
| 36 | Caption = 'Diagnosis'
|
---|
| 37 | Visible = False
|
---|
| 38 | end
|
---|
| 39 | object lblSig: TStaticText
|
---|
| 40 | Left = 8
|
---|
| 41 | Top = 136
|
---|
| 42 | Width = 205
|
---|
| 43 | Height = 17
|
---|
| 44 | Caption = 'Signature will be Applied to Checked Items'
|
---|
| 45 | TabOrder = 5
|
---|
| 46 | TabStop = True
|
---|
| 47 | end
|
---|
| 48 | object pnlSignature: TPanel
|
---|
| 49 | Left = 8
|
---|
| 50 | Top = 427
|
---|
| 51 | Width = 373
|
---|
| 52 | Height = 65
|
---|
| 53 | Anchors = [akLeft, akBottom]
|
---|
| 54 | BevelOuter = bvNone
|
---|
| 55 | TabOrder = 0
|
---|
| 56 | object lblESCode: TLabel
|
---|
| 57 | Left = 0
|
---|
| 58 | Top = 0
|
---|
| 59 | Width = 123
|
---|
| 60 | Height = 13
|
---|
| 61 | Caption = 'Electronic Signature Code'
|
---|
| 62 | end
|
---|
| 63 | object txtESCode: TCaptionEdit
|
---|
| 64 | Left = 0
|
---|
| 65 | Top = 14
|
---|
| 66 | Width = 137
|
---|
| 67 | Height = 21
|
---|
| 68 | PasswordChar = '*'
|
---|
| 69 | TabOrder = 0
|
---|
| 70 | OnChange = txtESCodeChange
|
---|
| 71 | Caption = 'Electronic Signature Code'
|
---|
| 72 | end
|
---|
| 73 | end
|
---|
| 74 | object pnlOrderAction: TPanel
|
---|
| 75 | Left = 8
|
---|
| 76 | Top = 427
|
---|
| 77 | Width = 373
|
---|
| 78 | Height = 65
|
---|
| 79 | Anchors = [akLeft, akBottom]
|
---|
| 80 | BevelOuter = bvNone
|
---|
| 81 | TabOrder = 1
|
---|
| 82 | Visible = False
|
---|
| 83 | object Label1: TStaticText
|
---|
| 84 | Left = 0
|
---|
| 85 | Top = 0
|
---|
| 86 | Width = 111
|
---|
| 87 | Height = 17
|
---|
| 88 | Caption = 'For orders, select from:'
|
---|
| 89 | TabOrder = 4
|
---|
| 90 | end
|
---|
| 91 | object radSignChart: TRadioButton
|
---|
| 92 | Left = 0
|
---|
| 93 | Top = 16
|
---|
| 94 | Width = 101
|
---|
| 95 | Height = 17
|
---|
| 96 | Caption = '&Signed on Chart'
|
---|
| 97 | TabOrder = 0
|
---|
| 98 | OnClick = radReleaseClick
|
---|
| 99 | end
|
---|
| 100 | object radHoldSign: TRadioButton
|
---|
| 101 | Left = 0
|
---|
| 102 | Top = 36
|
---|
| 103 | Width = 101
|
---|
| 104 | Height = 17
|
---|
| 105 | Caption = '&Hold until Signed'
|
---|
| 106 | Checked = True
|
---|
| 107 | TabOrder = 1
|
---|
| 108 | TabStop = True
|
---|
| 109 | OnClick = radReleaseClick
|
---|
| 110 | end
|
---|
| 111 | object grpRelease: TGroupBox
|
---|
| 112 | Left = 120
|
---|
| 113 | Top = 16
|
---|
| 114 | Width = 241
|
---|
| 115 | Height = 42
|
---|
| 116 | TabOrder = 3
|
---|
| 117 | Visible = False
|
---|
| 118 | object radVerbal: TRadioButton
|
---|
| 119 | Left = 8
|
---|
| 120 | Top = 19
|
---|
| 121 | Width = 53
|
---|
| 122 | Height = 17
|
---|
| 123 | Caption = '&Verbal'
|
---|
| 124 | Enabled = False
|
---|
| 125 | TabOrder = 0
|
---|
| 126 | end
|
---|
| 127 | object radPhone: TRadioButton
|
---|
| 128 | Left = 80
|
---|
| 129 | Top = 19
|
---|
| 130 | Width = 77
|
---|
| 131 | Height = 17
|
---|
| 132 | Caption = '&Telephone'
|
---|
| 133 | Enabled = False
|
---|
| 134 | TabOrder = 1
|
---|
| 135 | end
|
---|
| 136 | object radPolicy: TRadioButton
|
---|
| 137 | Left = 168
|
---|
| 138 | Top = 19
|
---|
| 139 | Width = 49
|
---|
| 140 | Height = 17
|
---|
| 141 | Caption = '&Policy'
|
---|
| 142 | Enabled = False
|
---|
| 143 | TabOrder = 2
|
---|
| 144 | end
|
---|
| 145 | end
|
---|
| 146 | object radRelease: TRadioButton
|
---|
| 147 | Left = 128
|
---|
| 148 | Top = 16
|
---|
| 149 | Width = 113
|
---|
| 150 | Height = 17
|
---|
| 151 | Caption = '&Release to Service'
|
---|
| 152 | TabOrder = 2
|
---|
| 153 | Visible = False
|
---|
| 154 | OnClick = radReleaseClick
|
---|
| 155 | end
|
---|
| 156 | end
|
---|
| 157 | object cmdOK: TButton
|
---|
| 158 | Left = 442
|
---|
| 159 | Top = 475
|
---|
| 160 | Width = 72
|
---|
| 161 | Height = 21
|
---|
| 162 | Anchors = [akRight, akBottom]
|
---|
| 163 | Caption = 'OK'
|
---|
| 164 | Default = True
|
---|
| 165 | TabOrder = 2
|
---|
| 166 | OnClick = cmdOKClick
|
---|
| 167 | end
|
---|
| 168 | object cmdCancel: TButton
|
---|
| 169 | Left = 522
|
---|
| 170 | Top = 475
|
---|
| 171 | Width = 72
|
---|
| 172 | Height = 21
|
---|
| 173 | Anchors = [akRight, akBottom]
|
---|
| 174 | Cancel = True
|
---|
| 175 | Caption = 'Cancel'
|
---|
| 176 | TabOrder = 3
|
---|
| 177 | OnClick = cmdCancelClick
|
---|
| 178 | end
|
---|
| 179 | object lstReview: TCaptionCheckListBox
|
---|
| 180 | Left = 8
|
---|
| 181 | Top = 154
|
---|
| 182 | Width = 587
|
---|
| 183 | Height = 268
|
---|
| 184 | OnClickCheck = lstReviewClickCheck
|
---|
| 185 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 186 | ItemHeight = 15
|
---|
| 187 | ParentShowHint = False
|
---|
| 188 | PopupMenu = poBACopyPaste
|
---|
| 189 | ShowHint = True
|
---|
| 190 | Style = lbOwnerDrawVariable
|
---|
| 191 | TabOrder = 6
|
---|
| 192 | OnClick = lstReviewClick
|
---|
| 193 | OnDrawItem = lstReviewDrawItem
|
---|
| 194 | OnKeyUp = lstReviewKeyUp
|
---|
| 195 | OnMeasureItem = lstReviewMeasureItem
|
---|
| 196 | OnMouseDown = lstReviewMouseDown
|
---|
| 197 | OnMouseMove = lstReviewMouseMove
|
---|
| 198 | Caption = 'Signature will be Applied to Checked Items'
|
---|
| 199 | end
|
---|
| 200 | inline fraCoPay: TfraCoPayDesc
|
---|
| 201 | Left = 0
|
---|
| 202 | Top = 0
|
---|
| 203 | Width = 602
|
---|
| 204 | Height = 129
|
---|
| 205 | Align = alTop
|
---|
| 206 | ParentShowHint = False
|
---|
| 207 | ShowHint = True
|
---|
| 208 | TabOrder = 4
|
---|
| 209 | Visible = False
|
---|
| 210 | inherited pnlRight: TPanel
|
---|
| 211 | Left = 353
|
---|
| 212 | Height = 129
|
---|
| 213 | inherited lblCaption: TStaticText
|
---|
| 214 | Caption = 'Patient Orders Related To:'
|
---|
| 215 | end
|
---|
| 216 | inherited pnlMain: TPanel
|
---|
| 217 | Height = 112
|
---|
| 218 | inherited Panel7: TPanel
|
---|
| 219 | inherited lblHNC2: TORStaticText
|
---|
| 220 | OnEnter = fraCoPayLabel23Enter
|
---|
| 221 | OnExit = fraCoPayLabel23Exit
|
---|
| 222 | end
|
---|
| 223 | inherited lblHNC: TORStaticText
|
---|
| 224 | OnEnter = fraCoPayLabel23Enter
|
---|
| 225 | OnExit = fraCoPayLabel23Exit
|
---|
| 226 | end
|
---|
| 227 | end
|
---|
| 228 | inherited Panel8: TPanel
|
---|
| 229 | inherited Label12: TORStaticText
|
---|
| 230 | OnEnter = fraCoPayLabel23Enter
|
---|
| 231 | OnExit = fraCoPayLabel23Exit
|
---|
| 232 | end
|
---|
| 233 | inherited Label11: TORStaticText
|
---|
| 234 | OnEnter = fraCoPayLabel23Enter
|
---|
| 235 | OnExit = fraCoPayLabel23Exit
|
---|
| 236 | end
|
---|
| 237 | end
|
---|
| 238 | inherited Panel9: TPanel
|
---|
| 239 | inherited Label14: TORStaticText
|
---|
| 240 | OnEnter = fraCoPayLabel23Enter
|
---|
| 241 | OnExit = fraCoPayLabel23Exit
|
---|
| 242 | end
|
---|
| 243 | inherited Label13: TORStaticText
|
---|
| 244 | OnEnter = fraCoPayLabel23Enter
|
---|
| 245 | OnExit = fraCoPayLabel23Exit
|
---|
| 246 | end
|
---|
| 247 | end
|
---|
| 248 | inherited Panel10: TPanel
|
---|
| 249 | inherited Label16: TORStaticText
|
---|
| 250 | OnEnter = fraCoPayLabel23Enter
|
---|
| 251 | OnExit = fraCoPayLabel23Exit
|
---|
| 252 | end
|
---|
| 253 | inherited Label15: TORStaticText
|
---|
| 254 | OnEnter = fraCoPayLabel23Enter
|
---|
| 255 | OnExit = fraCoPayLabel23Exit
|
---|
| 256 | end
|
---|
| 257 | end
|
---|
| 258 | inherited Panel11: TPanel
|
---|
| 259 | inherited Label18: TORStaticText
|
---|
| 260 | OnEnter = fraCoPayLabel23Enter
|
---|
| 261 | OnExit = fraCoPayLabel23Exit
|
---|
| 262 | end
|
---|
| 263 | inherited Label17: TORStaticText
|
---|
| 264 | OnEnter = fraCoPayLabel23Enter
|
---|
| 265 | OnExit = fraCoPayLabel23Exit
|
---|
| 266 | end
|
---|
| 267 | end
|
---|
| 268 | inherited Panel12: TPanel
|
---|
| 269 | inherited Label24: TORStaticText
|
---|
| 270 | OnEnter = fraCoPayLabel23Enter
|
---|
| 271 | OnExit = fraCoPayLabel23Exit
|
---|
| 272 | end
|
---|
| 273 | inherited Label23: TORStaticText
|
---|
| 274 | OnEnter = fraCoPayLabel23Enter
|
---|
| 275 | OnExit = fraCoPayLabel23Exit
|
---|
| 276 | end
|
---|
| 277 | end
|
---|
| 278 | inherited Panel1: TPanel
|
---|
| 279 | inherited StaticText4: TORStaticText
|
---|
| 280 | OnEnter = fraCoPayLabel23Enter
|
---|
| 281 | OnExit = fraCoPayLabel23Exit
|
---|
| 282 | end
|
---|
| 283 | inherited StaticText1: TORStaticText
|
---|
| 284 | OnEnter = fraCoPayLabel23Enter
|
---|
| 285 | OnExit = fraCoPayLabel23Exit
|
---|
| 286 | end
|
---|
| 287 | end
|
---|
| 288 | end
|
---|
| 289 | end
|
---|
| 290 | inherited pnlSC: TPanel
|
---|
| 291 | Width = 353
|
---|
| 292 | Height = 129
|
---|
| 293 | inherited lblSCDisplay: TLabel
|
---|
| 294 | Width = 353
|
---|
| 295 | end
|
---|
| 296 | inherited memSCDisplay: TCaptionMemo
|
---|
| 297 | Width = 353
|
---|
| 298 | Height = 112
|
---|
| 299 | end
|
---|
| 300 | end
|
---|
| 301 | end
|
---|
| 302 | object gbxDxLookup: TGroupBox
|
---|
| 303 | Left = 8
|
---|
| 304 | Top = 136
|
---|
| 305 | Width = 101
|
---|
| 306 | Height = 48
|
---|
| 307 | Caption = 'Lookup Diagnosis'
|
---|
| 308 | TabOrder = 8
|
---|
| 309 | TabStop = True
|
---|
| 310 | Visible = False
|
---|
| 311 | object buDiagnosis: TButton
|
---|
| 312 | Left = 7
|
---|
| 313 | Top = 21
|
---|
| 314 | Width = 88
|
---|
| 315 | Height = 21
|
---|
| 316 | Caption = '&Diagnosis'
|
---|
| 317 | Enabled = False
|
---|
| 318 | TabOrder = 0
|
---|
| 319 | OnClick = buDiagnosisClick
|
---|
| 320 | end
|
---|
| 321 | end
|
---|
| 322 | object poBACopyPaste: TPopupMenu
|
---|
| 323 | Left = 384
|
---|
| 324 | Top = 280
|
---|
| 325 | object Copy1: TMenuItem
|
---|
| 326 | Caption = '&Copy'
|
---|
| 327 | Enabled = False
|
---|
| 328 | ShortCut = 16451
|
---|
| 329 | OnClick = Copy1Click
|
---|
| 330 | end
|
---|
| 331 | object Paste1: TMenuItem
|
---|
| 332 | Caption = '&Paste'
|
---|
| 333 | Enabled = False
|
---|
| 334 | ShortCut = 16470
|
---|
| 335 | OnClick = Paste1Click
|
---|
| 336 | end
|
---|
| 337 | object Diagnosis1: TMenuItem
|
---|
| 338 | Caption = '&Diagnosis...'
|
---|
| 339 | Enabled = False
|
---|
| 340 | ShortCut = 32836
|
---|
| 341 | OnClick = buDiagnosisClick
|
---|
| 342 | end
|
---|
| 343 | object Exit1: TMenuItem
|
---|
| 344 | Caption = '&Exit'
|
---|
| 345 | ShortCut = 16453
|
---|
| 346 | OnClick = Exit1Click
|
---|
| 347 | end
|
---|
| 348 | end
|
---|
| 349 | end
|
---|