| [453] | 1 | inherited frmOrdersTS: TfrmOrdersTS
 | 
|---|
 | 2 |   Left = 84
 | 
|---|
 | 3 |   Top = 77
 | 
|---|
 | 4 |   Width = 464
 | 
|---|
 | 5 |   Height = 385
 | 
|---|
 | 6 |   Caption = 'Release Orders'
 | 
|---|
 | 7 |   Constraints.MinHeight = 365
 | 
|---|
 | 8 |   Constraints.MinWidth = 310
 | 
|---|
 | 9 |   OnClose = FormClose
 | 
|---|
 | 10 |   OnCreate = FormCreate
 | 
|---|
 | 11 |   OnKeyDown = FormKeyDown
 | 
|---|
 | 12 |   PixelsPerInch = 96
 | 
|---|
 | 13 |   TextHeight = 13
 | 
|---|
 | 14 |   object pnlMiddle: TPanel [0]
 | 
|---|
 | 15 |     Left = 0
 | 
|---|
 | 16 |     Top = 78
 | 
|---|
 | 17 |     Width = 456
 | 
|---|
 | 18 |     Height = 56
 | 
|---|
 | 19 |     Align = alTop
 | 
|---|
 | 20 |     Constraints.MinHeight = 45
 | 
|---|
 | 21 |     TabOrder = 0
 | 
|---|
 | 22 |     object grpChoice: TGroupBox
 | 
|---|
 | 23 |       Left = 1
 | 
|---|
 | 24 |       Top = 1
 | 
|---|
 | 25 |       Width = 454
 | 
|---|
 | 26 |       Height = 54
 | 
|---|
 | 27 |       Align = alClient
 | 
|---|
 | 28 |       Constraints.MinHeight = 45
 | 
|---|
 | 29 |       TabOrder = 0
 | 
|---|
 | 30 |       DesignSize = (
 | 
|---|
 | 31 |         454
 | 
|---|
 | 32 |         54)
 | 
|---|
 | 33 |       object radReleaseNow: TRadioButton
 | 
|---|
 | 34 |         Left = 20
 | 
|---|
 | 35 |         Top = 13
 | 
|---|
 | 36 |         Width = 333
 | 
|---|
 | 37 |         Height = 17
 | 
|---|
 | 38 |         BiDiMode = bdRightToLeft
 | 
|---|
 | 39 |         Caption = '  &Release new orders immediately'
 | 
|---|
 | 40 |         Enabled = False
 | 
|---|
 | 41 |         ParentBiDiMode = False
 | 
|---|
 | 42 |         TabOrder = 0
 | 
|---|
 | 43 |         OnClick = radReleaseNowClick
 | 
|---|
 | 44 |       end
 | 
|---|
 | 45 |       object radDelayed: TRadioButton
 | 
|---|
 | 46 |         Left = 20
 | 
|---|
 | 47 |         Top = 29
 | 
|---|
 | 48 |         Width = 329
 | 
|---|
 | 49 |         Height = 21
 | 
|---|
 | 50 |         Caption = '  &Delay release of new order(s) until'
 | 
|---|
 | 51 |         TabOrder = 1
 | 
|---|
 | 52 |         OnClick = radDelayedClick
 | 
|---|
 | 53 |       end
 | 
|---|
 | 54 |       object cmdOK: TButton
 | 
|---|
 | 55 |         Left = 355
 | 
|---|
 | 56 |         Top = 9
 | 
|---|
 | 57 |         Width = 75
 | 
|---|
 | 58 |         Height = 20
 | 
|---|
 | 59 |         Anchors = [akRight, akBottom]
 | 
|---|
 | 60 |         Caption = 'OK'
 | 
|---|
 | 61 |         Default = True
 | 
|---|
 | 62 |         TabOrder = 2
 | 
|---|
 | 63 |         OnClick = cmdOKClick
 | 
|---|
 | 64 |       end
 | 
|---|
 | 65 |       object cmdCancel: TButton
 | 
|---|
 | 66 |         Left = 355
 | 
|---|
 | 67 |         Top = 31
 | 
|---|
 | 68 |         Width = 75
 | 
|---|
 | 69 |         Height = 20
 | 
|---|
 | 70 |         Anchors = [akRight, akBottom]
 | 
|---|
 | 71 |         Cancel = True
 | 
|---|
 | 72 |         Caption = 'Cancel'
 | 
|---|
 | 73 |         TabOrder = 3
 | 
|---|
 | 74 |         OnClick = cmdCancelClick
 | 
|---|
 | 75 |       end
 | 
|---|
 | 76 |     end
 | 
|---|
 | 77 |   end
 | 
|---|
 | 78 |   object pnlTop: TPanel [1]
 | 
|---|
 | 79 |     Left = 0
 | 
|---|
 | 80 |     Top = 0
 | 
|---|
 | 81 |     Width = 456
 | 
|---|
 | 82 |     Height = 78
 | 
|---|
 | 83 |     Align = alTop
 | 
|---|
 | 84 |     Anchors = [akLeft, akTop, akRight, akBottom]
 | 
|---|
 | 85 |     AutoSize = True
 | 
|---|
 | 86 |     BorderStyle = bsSingle
 | 
|---|
 | 87 |     TabOrder = 1
 | 
|---|
 | 88 |     object lblPtInfo: TLabel
 | 
|---|
 | 89 |       Left = 1
 | 
|---|
 | 90 |       Top = 1
 | 
|---|
 | 91 |       Width = 450
 | 
|---|
 | 92 |       Height = 34
 | 
|---|
 | 93 |       Align = alTop
 | 
|---|
 | 94 |       Color = clBtnFace
 | 
|---|
 | 95 |       Constraints.MinHeight = 34
 | 
|---|
 | 96 |       ParentColor = False
 | 
|---|
 | 97 |       Layout = tlCenter
 | 
|---|
 | 98 |     end
 | 
|---|
 | 99 |     object pnldif: TPanel
 | 
|---|
 | 100 |       Left = 1
 | 
|---|
 | 101 |       Top = 35
 | 
|---|
 | 102 |       Width = 450
 | 
|---|
 | 103 |       Height = 38
 | 
|---|
 | 104 |       Align = alTop
 | 
|---|
 | 105 |       Anchors = [akLeft, akTop, akRight, akBottom]
 | 
|---|
 | 106 |       TabOrder = 0
 | 
|---|
 | 107 |       object Image1: TImage
 | 
|---|
 | 108 |         Left = 1
 | 
|---|
 | 109 |         Top = 1
 | 
|---|
 | 110 |         Width = 24
 | 
|---|
 | 111 |         Height = 36
 | 
|---|
 | 112 |         Align = alLeft
 | 
|---|
 | 113 |         AutoSize = True
 | 
|---|
 | 114 |         Enabled = False
 | 
|---|
 | 115 |         Picture.Data = {
 | 
|---|
 | 116 |           07544269746D61707E010000424D7E0100000000000076000000280000001800
 | 
|---|
 | 117 |           000016000000010004000000000008010000C40E0000C40E0000100000000000
 | 
|---|
 | 118 |           0000000000000000800000800000008080008000000080008000808000008080
 | 
|---|
 | 119 |           8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
 | 
|---|
 | 120 |           FF008000000000000000000000080777777777777777777777700F7777777777
 | 
|---|
 | 121 |           7777777777700F88888888888888888887700F88888888888888888887700F88
 | 
|---|
 | 122 |           888808888888888887700F88888800888888888887700F8888880B0888888888
 | 
|---|
 | 123 |           87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
 | 
|---|
 | 124 |           CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
 | 
|---|
 | 125 |           0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
 | 
|---|
 | 126 |           87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
 | 
|---|
 | 127 |           8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
 | 
|---|
 | 128 |           00000000000000000008}
 | 
|---|
 | 129 |         Transparent = True
 | 
|---|
 | 130 |       end
 | 
|---|
 | 131 |       object Label1: TLabel
 | 
|---|
 | 132 |         Left = 34
 | 
|---|
 | 133 |         Top = 4
 | 
|---|
 | 134 |         Width = 327
 | 
|---|
 | 135 |         Height = 13
 | 
|---|
 | 136 |         Caption = 
 | 
|---|
 | 137 |           'Use Admit: if patient is newly admitted to the hospital or nursi' +
 | 
|---|
 | 138 |           'ng home.'
 | 
|---|
 | 139 |       end
 | 
|---|
 | 140 |       object Label2: TLabel
 | 
|---|
 | 141 |         Left = 34
 | 
|---|
 | 142 |         Top = 21
 | 
|---|
 | 143 |         Width = 361
 | 
|---|
 | 144 |         Height = 13
 | 
|---|
 | 145 |         Caption = 
 | 
|---|
 | 146 |           'Use Transfer: if inpatient will move from one ward or treating t' +
 | 
|---|
 | 147 |           'eam to another.'
 | 
|---|
 | 148 |       end
 | 
|---|
 | 149 |     end
 | 
|---|
 | 150 |   end
 | 
|---|
 | 151 |   object Panel1: TPanel [2]
 | 
|---|
 | 152 |     Left = 0
 | 
|---|
 | 153 |     Top = 134
 | 
|---|
 | 154 |     Width = 456
 | 
|---|
 | 155 |     Height = 217
 | 
|---|
 | 156 |     Align = alClient
 | 
|---|
 | 157 |     TabOrder = 2
 | 
|---|
 | 158 |     inline fraEvntDelayList: TfraEvntDelayList
 | 
|---|
 | 159 |       Left = 1
 | 
|---|
 | 160 |       Top = 1
 | 
|---|
 | 161 |       Width = 454
 | 
|---|
 | 162 |       Height = 215
 | 
|---|
 | 163 |       Align = alClient
 | 
|---|
 | 164 |       AutoScroll = False
 | 
|---|
 | 165 |       TabOrder = 0
 | 
|---|
 | 166 |       Visible = False
 | 
|---|
 | 167 |       inherited pnlDate: TPanel
 | 
|---|
 | 168 |         Left = 349
 | 
|---|
 | 169 |         Height = 215
 | 
|---|
 | 170 |         inherited lblEffective: TLabel
 | 
|---|
 | 171 |           Left = 453
 | 
|---|
 | 172 |         end
 | 
|---|
 | 173 |         inherited orDateBox: TORDateBox
 | 
|---|
 | 174 |           Left = 453
 | 
|---|
 | 175 |         end
 | 
|---|
 | 176 |       end
 | 
|---|
 | 177 |       inherited pnlList: TPanel
 | 
|---|
 | 178 |         Width = 349
 | 
|---|
 | 179 |         Height = 215
 | 
|---|
 | 180 |         inherited lblEvntDelayList: TLabel
 | 
|---|
 | 181 |           Width = 347
 | 
|---|
 | 182 |         end
 | 
|---|
 | 183 |         inherited mlstEvents: TORListBox
 | 
|---|
 | 184 |           Width = 347
 | 
|---|
 | 185 |           Height = 179
 | 
|---|
 | 186 |           OnDblClick = cmdOKClick
 | 
|---|
 | 187 |         end
 | 
|---|
 | 188 |         inherited edtSearch: TCaptionEdit
 | 
|---|
 | 189 |           Width = 347
 | 
|---|
 | 190 |         end
 | 
|---|
 | 191 |       end
 | 
|---|
 | 192 |     end
 | 
|---|
 | 193 |   end
 | 
|---|
 | 194 |   inherited DKLanguageController1: TDKLanguageController
 | 
|---|
 | 195 |     LangData = {
 | 
|---|
 | 196 |       0B0066726D4F72646572735453010100000001000000070043617074696F6E01
 | 
|---|
 | 197 |       0E0000000900706E6C4D6964646C650000090067727043686F69636500000D00
 | 
|---|
 | 198 |       72616452656C656173654E6F77010100000002000000070043617074696F6E00
 | 
|---|
 | 199 |       0A0072616444656C61796564010100000003000000070043617074696F6E0005
 | 
|---|
 | 200 |       00636D644F4B010100000004000000070043617074696F6E000900636D644361
 | 
|---|
 | 201 |       6E63656C010100000005000000070043617074696F6E000600706E6C546F7000
 | 
|---|
 | 202 |       0009006C626C5074496E666F00000600706E6C64696600000600496D61676531
 | 
|---|
 | 203 |       000006004C6162656C31010100000006000000070043617074696F6E0006004C
 | 
|---|
 | 204 |       6162656C32010100000007000000070043617074696F6E00060050616E656C31
 | 
|---|
 | 205 |       0000100066726145766E7444656C61794C6973740001070000000700706E6C44
 | 
|---|
 | 206 |       61746500000C006C626C45666665637469766501010000000800000007004361
 | 
|---|
 | 207 |       7074696F6E0009006F7244617465426F7801020000000A000000070043617074
 | 
|---|
 | 208 |       696F6E09000000040054657874000700706E6C4C697374000010006C626C4576
 | 
|---|
 | 209 |       6E7444656C61794C69737401010000000B000000070043617074696F6E000A00
 | 
|---|
 | 210 |       6D6C73744576656E7473000009006564745365617263680000}
 | 
|---|
 | 211 |   end
 | 
|---|
 | 212 | end
 | 
|---|