Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Orders/fODRad.dfm

    r456 r829  
    33  Left = 282
    44  Top = 225
    5   Width = 576
    6   Height = 361
     5  Width = 586
     6  Height = 404
    77  Caption = 'Order an Imaging Procedure'
    8   Constraints.MinHeight = 344
    9   Constraints.MinWidth = 576
     8  Constraints.MinHeight = 404
     9  Constraints.MinWidth = 586
     10  ExplicitLeft = 282
     11  ExplicitTop = 225
     12  ExplicitWidth = 586
     13  ExplicitHeight = 404
    1014  PixelsPerInch = 96
    1115  TextHeight = 13
    1216  inherited memOrder: TCaptionMemo
    1317    Left = 0
    14     Top = 283
    15     Width = 480
     18    Top = 326
     19    Width = 490
    1620    Anchors = [akLeft, akRight, akBottom]
    1721    TabOrder = 6
     22    ExplicitLeft = 0
     23    ExplicitTop = 326
     24    ExplicitWidth = 490
    1825  end
    1926  object FRadCommonCombo: TORListBox [1]
    20     Left = 443
    21     Top = 346
     27    Left = 419
     28    Top = 362
    2229    Width = 121
    2330    Height = 11
    … …  
    3441    Top = 0
    3542    Width = 215
    36     Height = 281
     43    Height = 321
    3744    Anchors = [akLeft, akTop, akBottom]
    3845    BevelOuter = bvNone
    … …  
    4047    object lblDrug: TLabel
    4148      Left = 0
    42       Top = 38
     49      Top = 34
    4350      Width = 89
    4451      Height = 13
    … …  
    5360    end
    5461    object lblImType: TLabel
    55       Left = 1
    56       Top = 1
     62      Left = 0
     63      Top = 0
    5764      Width = 64
    5865      Height = 13
    … …  
    6875    object cboImType: TORComboBox
    6976      Left = 0
    70       Top = 15
     77      Top = 13
    7178      Width = 212
    7279      Height = 21
    … …  
    109116    object cboProcedure: TORComboBox
    110117      Left = 0
    111       Top = 53
     118      Top = 47
    112119      Width = 212
    113       Height = 114
     120      Height = 122
    114121      Style = orcsSimple
    115122      AutoSelect = True
    … …  
    170177    end
    171178  end
    172   object pnlRight: TORAutoPanel [3]
    173     Left = 214
    174     Top = 85
    175     Width = 355
    176     Height = 195
    177     Anchors = [akLeft, akRight, akBottom]
    178     BevelOuter = bvNone
     179  inherited cmdAccept: TButton
     180    Left = 497
     181    Top = 326
     182    Anchors = [akRight, akBottom]
    179183    TabOrder = 3
    180     object lblRequestDate: TLabel
    181       Left = 4
    182       Top = 5
    183       Width = 78
    184       Height = 13
    185       Caption = 'Requested Date'
    186     end
    187     object lblUrgency: TLabel
    188       Left = 104
    189       Top = 5
    190       Width = 40
    191       Height = 13
    192       Caption = 'Urgency'
    193     end
    194     object lblTransport: TLabel
    195       Left = 204
    196       Top = 5
    197       Width = 45
    198       Height = 13
    199       Caption = 'Transport'
    200     end
    201     object lblCategory: TLabel
    202       Left = 4
    203       Top = 42
    204       Width = 42
    205       Height = 13
    206       Caption = 'Category'
    207     end
    208     object lblSubmit: TLabel
    209       Left = 154
    210       Top = 42
    211       Width = 48
    212       Height = 13
    213       Caption = 'Submit To'
    214     end
    215     object lblLastExam: TLabel
    216       Left = 4
    217       Top = 82
    218       Width = 134
    219       Height = 13
    220       Caption = 'Exams Over the Last 7 Days'
    221     end
    222     object lblAskSubmit: TLabel
    223       Left = 446
    224       Top = 103
    225       Width = 3
    226       Height = 13
    227       Visible = False
    228     end
    229     object lblPreOp: TLabel
    230       Left = 198
    231       Top = 156
    232       Width = 84
    233       Height = 13
    234       Caption = 'PreOp Scheduled'
    235     end
    236     object calPreOp: TORDateBox
    237       Left = 198
    238       Top = 170
    239       Width = 96
    240       Height = 21
    241       TabOrder = 8
    242       OnChange = calPreOpChange
    243       OnExit = calPreOpExit
    244       DateOnly = False
    245       RequireTime = False
    246       Caption = 'PreOp Scheduled'
    247     end
    248     object chkIsolation: TCheckBox
    249       Left = 198
    250       Top = 94
    251       Width = 97
    252       Height = 17
    253       Hint = 'Is patient on isolation procedures?'
    254       Caption = 'Isolation'
    255       ParentShowHint = False
    256       ShowHint = True
    257       TabOrder = 6
    258       OnClick = ControlChange
    259       OnExit = chkIsolationExit
    260     end
    261     object calRequestDate: TORDateBox
    262       Left = 4
    263       Top = 18
    264       Width = 92
    265       Height = 21
    266       TabOrder = 0
    267       Text = 'TODAY'
    268       OnChange = ControlChange
    269       DateOnly = False
    270       RequireTime = False
    271       Caption = 'Requested Date'
    272     end
    273     object cboUrgency: TORComboBox
    274       Left = 104
    275       Top = 18
    276       Width = 92
    277       Height = 21
    278       Style = orcsDropDown
    279       AutoSelect = True
    280       Caption = 'Urgency'
    281       Color = clWindow
    282       DropDownCount = 8
    283       ItemHeight = 13
    284       ItemTipColor = clWindow
    285       ItemTipEnable = True
    286       ListItemsOnly = True
    287       LongList = False
    288       LookupPiece = 0
    289       MaxLength = 0
    290       Pieces = '2'
    291       Sorted = False
    292       SynonymChars = '<>'
    293       TabOrder = 1
    294       OnChange = ControlChange
    295       CharsNeedMatch = 1
    296     end
    297     object cboTransport: TORComboBox
    298       Left = 204
    299       Top = 18
    300       Width = 92
    301       Height = 21
    302       Style = orcsDropDown
    303       AutoSelect = True
    304       Caption = 'Transport'
    305       Color = clWindow
    306       DropDownCount = 8
    307       ItemHeight = 13
    308       ItemTipColor = clWindow
    309       ItemTipEnable = True
    310       ListItemsOnly = True
    311       LongList = False
    312       LookupPiece = 0
    313       MaxLength = 0
    314       Pieces = '2'
    315       Sorted = False
    316       SynonymChars = '<>'
    317       TabOrder = 2
    318       OnChange = ControlChange
    319       CharsNeedMatch = 1
    320     end
    321     object cboCategory: TORComboBox
    322       Left = 4
    323       Top = 57
    324       Width = 140
    325       Height = 21
    326       Style = orcsDropDown
    327       AutoSelect = True
    328       Caption = 'Category'
    329       Color = clWindow
    330       DropDownCount = 8
    331       ItemHeight = 13
    332       ItemTipColor = clWindow
    333       ItemTipEnable = True
    334       ListItemsOnly = True
    335       LongList = False
    336       LookupPiece = 0
    337       MaxLength = 0
    338       Pieces = '2'
    339       Sorted = False
    340       SynonymChars = '<>'
    341       TabOrder = 3
    342       OnChange = cboCategoryChange
    343       CharsNeedMatch = 1
    344     end
    345     object chkPreOp: TCheckBox
    346       Left = 146
    347       Top = 233
    348       Width = 61
    349       Height = 17
    350       Caption = 'Pre-Op'
    351       TabOrder = 9
    352       Visible = False
    353       OnClick = ControlChange
    354     end
    355     object cboSubmit: TORComboBox
    356       Left = 154
    357       Top = 57
    358       Width = 142
    359       Height = 21
    360       Style = orcsDropDown
    361       AutoSelect = True
    362       Caption = 'Submit To'
    363       Color = clWindow
    364       DropDownCount = 8
    365       ItemHeight = 13
    366       ItemTipColor = clWindow
    367       ItemTipEnable = True
    368       ListItemsOnly = True
    369       LongList = False
    370       LookupPiece = 0
    371       MaxLength = 0
    372       Pieces = '2'
    373       Sorted = False
    374       SynonymChars = '<>'
    375       TabOrder = 4
    376       OnChange = ControlChange
    377       CharsNeedMatch = 1
    378     end
    379     object lstLastExam: TORListBox
    380       Left = 4
    381       Top = 95
    382       Width = 187
    383       Height = 98
    384       Color = clBtnFace
    385       ExtendedSelect = False
    386       ItemHeight = 13
    387       MultiSelect = True
    388       ParentShowHint = False
    389       ShowHint = True
    390       TabOrder = 5
    391       Caption = 'Exams Over the Last 7 Days'
    392       ItemTipColor = clWindow
    393       LongList = False
    394       Pieces = '2'
    395     end
    396     object grpPregnant: TGroupBox
    397       Left = 196
    398       Top = 112
    399       Width = 158
    400       Height = 41
    401       Caption = 'Pregnant'
    402       TabOrder = 7
    403       object radPregnant: TRadioButton
    404         Left = 2
    405         Top = 17
    406         Width = 39
    407         Height = 17
    408         Caption = 'Yes'
    409         TabOrder = 0
    410         OnClick = ControlChange
    411       end
    412       object radPregnantNo: TRadioButton
    413         Left = 47
    414         Top = 17
    415         Width = 35
    416         Height = 17
    417         Caption = 'No'
    418         TabOrder = 1
    419         OnClick = ControlChange
    420       end
    421       object radPregnantUnknown: TRadioButton
    422         Left = 87
    423         Top = 16
    424         Width = 66
    425         Height = 17
    426         Caption = 'Unknown'
    427         TabOrder = 2
    428         OnClick = ControlChange
    429       end
    430     end
    431   end
    432   object pnlHandR: TPanel [4]
     184    ExplicitLeft = 497
     185    ExplicitTop = 326
     186  end
     187  object pnlRightBase: TORAutoPanel [4]
    433188    Left = 215
    434189    Top = 0
    435     Width = 353
    436     Height = 84
     190    Width = 362
     191    Height = 322
    437192    Anchors = [akLeft, akTop, akRight, akBottom]
    438193    BevelOuter = bvNone
    439     TabOrder = 2
    440     DesignSize = (
    441       353
    442       84)
    443     object lblReason: TLabel
    444       Left = 3
     194    Caption = 'pnlRightBase'
     195    TabOrder = 1
     196    object pnlRight: TORAutoPanel
     197      Left = 0
     198      Top = 127
     199      Width = 362
     200      Height = 195
     201      Align = alBottom
     202      Anchors = [akLeft, akTop, akRight, akBottom]
     203      BevelOuter = bvNone
     204      TabOrder = 1
     205      object lblRequestDate: TLabel
     206        Left = 4
     207        Top = 5
     208        Width = 62
     209        Height = 13
     210        Caption = 'Date Desired'
     211      end
     212      object lblUrgency: TLabel
     213        Left = 104
     214        Top = 5
     215        Width = 40
     216        Height = 13
     217        Caption = 'Urgency'
     218      end
     219      object lblTransport: TLabel
     220        Left = 204
     221        Top = 5
     222        Width = 45
     223        Height = 13
     224        Caption = 'Transport'
     225      end
     226      object lblCategory: TLabel
     227        Left = 4
     228        Top = 42
     229        Width = 42
     230        Height = 13
     231        Caption = 'Category'
     232      end
     233      object lblSubmit: TLabel
     234        Left = 154
     235        Top = 42
     236        Width = 48
     237        Height = 13
     238        Caption = 'Submit To'
     239      end
     240      object lblLastExam: TLabel
     241        Left = 4
     242        Top = 82
     243        Width = 134
     244        Height = 13
     245        Caption = 'Exams Over the Last 7 Days'
     246      end
     247      object lblAskSubmit: TLabel
     248        Left = 446
     249        Top = 103
     250        Width = 3
     251        Height = 13
     252        Visible = False
     253      end
     254      object lblPreOp: TLabel
     255        Left = 198
     256        Top = 156
     257        Width = 84
     258        Height = 13
     259        Caption = 'PreOp Scheduled'
     260      end
     261      object calPreOp: TORDateBox
     262        Left = 198
     263        Top = 170
     264        Width = 96
     265        Height = 21
     266        TabOrder = 8
     267        OnChange = calPreOpChange
     268        OnExit = calPreOpExit
     269        DateOnly = False
     270        RequireTime = False
     271        Caption = 'PreOp Scheduled'
     272      end
     273      object chkIsolation: TCheckBox
     274        Left = 198
     275        Top = 94
     276        Width = 97
     277        Height = 17
     278        Hint = 'Is patient on isolation procedures?'
     279        Caption = 'Isolation'
     280        ParentShowHint = False
     281        ShowHint = True
     282        TabOrder = 6
     283        OnClick = ControlChange
     284        OnExit = chkIsolationExit
     285      end
     286      object calRequestDate: TORDateBox
     287        Left = 4
     288        Top = 18
     289        Width = 92
     290        Height = 21
     291        TabOrder = 0
     292        OnChange = ControlChange
     293        DateOnly = False
     294        RequireTime = False
     295        Caption = 'Date Desired'
     296      end
     297      object cboUrgency: TORComboBox
     298        Left = 104
     299        Top = 18
     300        Width = 92
     301        Height = 21
     302        Style = orcsDropDown
     303        AutoSelect = True
     304        Caption = 'Urgency'
     305        Color = clWindow
     306        DropDownCount = 8
     307        ItemHeight = 13
     308        ItemTipColor = clWindow
     309        ItemTipEnable = True
     310        ListItemsOnly = True
     311        LongList = False
     312        LookupPiece = 0
     313        MaxLength = 0
     314        Pieces = '2'
     315        Sorted = False
     316        SynonymChars = '<>'
     317        TabOrder = 1
     318        OnChange = ControlChange
     319        CharsNeedMatch = 1
     320      end
     321      object cboTransport: TORComboBox
     322        Left = 204
     323        Top = 18
     324        Width = 92
     325        Height = 21
     326        Style = orcsDropDown
     327        AutoSelect = True
     328        Caption = 'Transport'
     329        Color = clWindow
     330        DropDownCount = 8
     331        ItemHeight = 13
     332        ItemTipColor = clWindow
     333        ItemTipEnable = True
     334        ListItemsOnly = True
     335        LongList = False
     336        LookupPiece = 0
     337        MaxLength = 0
     338        Pieces = '2'
     339        Sorted = False
     340        SynonymChars = '<>'
     341        TabOrder = 2
     342        OnChange = ControlChange
     343        CharsNeedMatch = 1
     344      end
     345      object cboCategory: TORComboBox
     346        Left = 4
     347        Top = 57
     348        Width = 140
     349        Height = 21
     350        Style = orcsDropDown
     351        AutoSelect = True
     352        Caption = 'Category'
     353        Color = clWindow
     354        DropDownCount = 8
     355        ItemHeight = 13
     356        ItemTipColor = clWindow
     357        ItemTipEnable = True
     358        ListItemsOnly = True
     359        LongList = False
     360        LookupPiece = 0
     361        MaxLength = 0
     362        Pieces = '2'
     363        Sorted = False
     364        SynonymChars = '<>'
     365        TabOrder = 3
     366        OnChange = cboCategoryChange
     367        CharsNeedMatch = 1
     368      end
     369      object chkPreOp: TCheckBox
     370        Left = 146
     371        Top = 233
     372        Width = 61
     373        Height = 17
     374        Caption = 'Pre-Op'
     375        TabOrder = 9
     376        Visible = False
     377        OnClick = ControlChange
     378      end
     379      object cboSubmit: TORComboBox
     380        Left = 154
     381        Top = 57
     382        Width = 142
     383        Height = 21
     384        Style = orcsDropDown
     385        AutoSelect = True
     386        Caption = 'Submit To'
     387        Color = clWindow
     388        DropDownCount = 8
     389        ItemHeight = 13
     390        ItemTipColor = clWindow
     391        ItemTipEnable = True
     392        ListItemsOnly = True
     393        LongList = False
     394        LookupPiece = 0
     395        MaxLength = 0
     396        Pieces = '2'
     397        Sorted = False
     398        SynonymChars = '<>'
     399        TabOrder = 4
     400        OnChange = ControlChange
     401        CharsNeedMatch = 1
     402      end
     403      object lstLastExam: TORListBox
     404        Left = 4
     405        Top = 95
     406        Width = 187
     407        Height = 98
     408        Color = clBtnFace
     409        ExtendedSelect = False
     410        ItemHeight = 13
     411        MultiSelect = True
     412        ParentShowHint = False
     413        ShowHint = True
     414        TabOrder = 5
     415        Caption = 'Exams Over the Last 7 Days'
     416        ItemTipColor = clWindow
     417        LongList = False
     418        Pieces = '2'
     419      end
     420      object grpPregnant: TGroupBox
     421        Left = 196
     422        Top = 112
     423        Width = 158
     424        Height = 41
     425        Caption = 'Pregnant'
     426        TabOrder = 7
     427        object radPregnant: TRadioButton
     428          Left = 2
     429          Top = 17
     430          Width = 39
     431          Height = 17
     432          Caption = 'Yes'
     433          TabOrder = 0
     434          OnClick = ControlChange
     435        end
     436        object radPregnantNo: TRadioButton
     437          Left = 47
     438          Top = 17
     439          Width = 35
     440          Height = 17
     441          Caption = 'No'
     442          TabOrder = 1
     443          OnClick = ControlChange
     444        end
     445        object radPregnantUnknown: TRadioButton
     446          Left = 87
     447          Top = 16
     448          Width = 66
     449          Height = 17
     450          Caption = 'Unknown'
     451          TabOrder = 2
     452          OnClick = ControlChange
     453        end
     454      end
     455    end
     456    object pnlHandR: TPanel
     457      Left = 0
    445458      Top = 0
    446       Width = 125
    447       Height = 13
    448       Caption = 'History && Reason for Exam'
    449     end
    450     object memReason: TCaptionMemo
    451       Left = 3
    452       Top = 15
    453       Width = 346
    454       Height = 68
    455       Anchors = [akLeft, akTop, akRight, akBottom]
    456       ScrollBars = ssVertical
     459      Width = 362
     460      Height = 127
     461      Align = alClient
     462      BevelOuter = bvNone
    457463      TabOrder = 0
    458       OnChange = ControlChange
    459       OnExit = memReasonExit
    460       Caption = 'History && Reason for Exam'
    461     end
    462   end
    463   inherited cmdAccept: TButton
    464     Left = 487
    465     Top = 283
     464      object lblHistory: TLabel
     465        Left = 0
     466        Top = 34
     467        Width = 362
     468        Height = 13
     469        Align = alTop
     470        Caption = 'Clinical History (Optional)'
     471        ExplicitWidth = 116
     472      end
     473      object lblReason: TLabel
     474        Left = 0
     475        Top = 0
     476        Width = 362
     477        Height = 13
     478        Align = alTop
     479        Caption = 'Reason for Study (REQUIRED - 64 characters maximum)'
     480        ExplicitWidth = 268
     481      end
     482      object memHistory: TCaptionMemo
     483        Left = 0
     484        Top = 47
     485        Width = 362
     486        Height = 80
     487        Align = alClient
     488        ScrollBars = ssVertical
     489        TabOrder = 3
     490        OnChange = ControlChange
     491        OnExit = memHistoryExit
     492        Caption = 'Clinical History (Optional)'
     493      end
     494      object txtReason: TCaptionEdit
     495        Left = 0
     496        Top = 13
     497        Width = 362
     498        Height = 21
     499        Align = alTop
     500        MaxLength = 64
     501        TabOrder = 0
     502        OnChange = ControlChange
     503        Caption = 'Reason for Study (REQUIRED)'
     504      end
     505    end
     506  end
     507  inherited cmdQuit: TButton
     508    Left = 498
     509    Top = 353
    466510    Anchors = [akRight, akBottom]
    467511    TabOrder = 4
    468   end
    469   inherited cmdQuit: TButton
    470     Left = 488
    471     Top = 310
    472     Anchors = [akRight, akBottom]
    473     TabOrder = 5
     512    ExplicitLeft = 498
     513    ExplicitTop = 353
    474514  end
    475515  inherited pnlMessage: TPanel
    476     Left = 13
    477     Top = 262
     516    Left = 5
     517    Top = 318
    478518    Width = 408
    479519    Height = 55
    480     TabOrder = 1
     520    TabOrder = 2
     521    ExplicitLeft = 5
     522    ExplicitTop = 318
     523    ExplicitWidth = 408
     524    ExplicitHeight = 55
    481525    inherited imgMessage: TImage
    482526      Left = 10
    483527      Top = 9
     528      ExplicitLeft = 10
     529      ExplicitTop = 9
    484530    end
    485531    inherited memMessage: TRichEdit
    … …  
    487533      Width = 344
    488534      Height = 43
    489     end
     535      ExplicitLeft = 55
     536      ExplicitWidth = 344
     537      ExplicitHeight = 43
     538    end
     539  end
     540  inherited amgrMain: TVA508AccessibilityManager
     541    Data = (
     542      (
     543        'Component = FRadCommonCombo'
     544        'Status = stsDefault')
     545      (
     546        'Component = pnlLeft'
     547        'Status = stsDefault')
     548      (
     549        'Component = cboImType'
     550        'Status = stsDefault')
     551      (
     552        'Component = lstSelectMod'
     553        'Status = stsDefault')
     554      (
     555        'Component = cboProcedure'
     556        'Status = stsDefault')
     557      (
     558        'Component = cboAvailMod'
     559        'Status = stsDefault')
     560      (
     561        'Component = cmdRemove'
     562        'Status = stsDefault')
     563      (
     564        'Component = pnlRightBase'
     565        'Status = stsDefault')
     566      (
     567        'Component = pnlRight'
     568        'Status = stsDefault')
     569      (
     570        'Component = calPreOp'
     571        'Status = stsDefault')
     572      (
     573        'Component = chkIsolation'
     574        'Status = stsDefault')
     575      (
     576        'Component = calRequestDate'
     577        'Status = stsDefault')
     578      (
     579        'Component = cboUrgency'
     580        'Status = stsDefault')
     581      (
     582        'Component = cboTransport'
     583        'Status = stsDefault')
     584      (
     585        'Component = cboCategory'
     586        'Status = stsDefault')
     587      (
     588        'Component = chkPreOp'
     589        'Status = stsDefault')
     590      (
     591        'Component = cboSubmit'
     592        'Status = stsDefault')
     593      (
     594        'Component = lstLastExam'
     595        'Status = stsDefault')
     596      (
     597        'Component = grpPregnant'
     598        'Status = stsDefault')
     599      (
     600        'Component = radPregnant'
     601        'Status = stsDefault')
     602      (
     603        'Component = radPregnantNo'
     604        'Status = stsDefault')
     605      (
     606        'Component = radPregnantUnknown'
     607        'Status = stsDefault')
     608      (
     609        'Component = pnlHandR'
     610        'Status = stsDefault')
     611      (
     612        'Component = memHistory'
     613        'Status = stsDefault')
     614      (
     615        'Component = txtReason'
     616        'Status = stsDefault')
     617      (
     618        'Component = memOrder'
     619        'Status = stsDefault')
     620      (
     621        'Component = cmdAccept'
     622        'Status = stsDefault')
     623      (
     624        'Component = cmdQuit'
     625        'Status = stsDefault')
     626      (
     627        'Component = pnlMessage'
     628        'Status = stsDefault')
     629      (
     630        'Component = memMessage'
     631        'Status = stsDefault')
     632      (
     633        'Component = frmODRad'
     634        'Status = stsDefault'))
    490635  end
    491636end
Note: See TracChangeset for help on using the changeset viewer.