Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm

    r459 r460  
    11inherited frmODProc: TfrmODProc
    22  Tag = 112
    3   Left = 262
    4   Top = 191
    5   Width = 531
    6   Height = 322
     3  Left = 208
     4  Top = 188
     5  Width = 543
     6  Height = 393
    77  HorzScrollBar.Range = 523
    8   HorzScrollBar.Visible = True
    98  VertScrollBar.Range = 295
    10   VertScrollBar.Visible = True
    11   AutoScroll = False
    129  Caption = 'Order a Procedure'
     10  Constraints.MinHeight = 393
     11  Constraints.MinWidth = 543
    1312  PixelsPerInch = 96
    1413  TextHeight = 13
    … …  
    3130    WordWrap = False
    3231  end
    33   object lblUrgency: TStaticText [2]
    34     Left = 237
     32  object lblReason: TLabel [2]
     33    Left = 4
     34    Top = 103
     35    Width = 95
     36    Height = 13
     37    Caption = 'Reason for Request'
     38  end
     39  object lblUrgency: TStaticText [3]
     40    Left = 249
    3541    Top = 4
    3642    Width = 44
    … …  
    4046    TabOrder = 15
    4147  end
    42   object lblPlace: TStaticText [3]
    43     Left = 384
     48  object lblPlace: TStaticText [4]
     49    Left = 396
    4450    Top = 43
    4551    Width = 104
    … …  
    4955    TabOrder = 16
    5056  end
    51   object lblAttn: TStaticText [4]
    52     Left = 384
     57  object lblAttn: TStaticText [5]
     58    Left = 396
    5359    Top = 4
    5460    Width = 46
    … …  
    5864    TabOrder = 17
    5965  end
    60   object lblProvDiag: TStaticText [5]
    61     Left = 237
     66  object lblProvDiag: TStaticText [6]
     67    Left = 249
    6268    Top = 81
    6369    Width = 104
    … …  
    6773    TabOrder = 18
    6874  end
    69   object pnlReason: TPanel [6]
     75  object pnlReason: TPanel [7]
    7076    Left = 0
    71     Top = 99
    72     Width = 521
    73     Height = 154
     77    Top = 120
     78    Width = 528
     79    Height = 192
    7480    Anchors = [akLeft, akTop, akRight, akBottom]
    7581    BevelOuter = bvNone
    7682    TabOrder = 9
    77     DesignSize = (
    78       521
    79       154)
    80     object lblReason: TLabel
    81       Left = 4
    82       Top = 9
    83       Width = 95
    84       Height = 13
    85       Caption = 'Reason for Request'
    86     end
    8783    object memReason: TCaptionRichEdit
    8884      Left = 0
    89       Top = 24
    90       Width = 521
    91       Height = 130
    92       Anchors = [akLeft, akTop, akRight, akBottom]
     85      Top = 0
     86      Width = 528
     87      Height = 192
     88      Align = alClient
    9389      Font.Charset = DEFAULT_CHARSET
    9490      Font.Color = clWindowText
    … …  
    9692      Font.Name = 'Courier New'
    9793      Font.Style = []
     94      Constraints.MinHeight = 40
    9895      ParentFont = False
    9996      PopupMenu = popReason
    … …  
    110107  end
    111108  inherited memOrder: TCaptionMemo
    112     Left = 4
    113     Top = 258
    114     Width = 361
    115     Height = 36
    116     Anchors = [akLeft, akRight, akBottom]
     109    Left = 0
     110    Top = 321
     111    Width = 380
     112    Height = 41
     113    Anchors = [akLeft, akRight]
    117114    Lines.Strings = (
    118115      'The order text...'
    … …  
    123120    TabOrder = 1
    124121  end
    125   object cboUrgency: TORComboBox [8]
    126     Left = 237
     122  object cboUrgency: TORComboBox [9]
     123    Left = 249
    127124    Top = 17
    128125    Width = 133
    … …  
    148145    CharsNeedMatch = 1
    149146  end
    150   object cboPlace: TORComboBox [9]
    151     Left = 384
     147  object cboPlace: TORComboBox [10]
     148    Left = 396
    152149    Top = 56
    153150    Width = 133
    … …  
    173170    CharsNeedMatch = 1
    174171  end
    175   object txtProvDiag: TCaptionEdit [10]
    176     Left = 237
     172  object txtAttn: TORComboBox [11]
     173    Left = 396
     174    Top = 17
     175    Width = 133
     176    Height = 21
     177    Anchors = [akTop, akRight]
     178    Style = orcsDropDown
     179    AutoSelect = True
     180    Caption = 'Attention'
     181    Color = clWindow
     182    DropDownCount = 8
     183    ItemHeight = 13
     184    ItemTipColor = clWindow
     185    ItemTipEnable = True
     186    ListItemsOnly = True
     187    LongList = True
     188    LookupPiece = 2
     189    MaxLength = 0
     190    Pieces = '2,3'
     191    Sorted = False
     192    SynonymChars = '<>'
     193    TabOrder = 3
     194    OnChange = ControlChange
     195    OnNeedData = txtAttnNeedData
     196    CharsNeedMatch = 1
     197  end
     198  object cboProc: TORComboBox [12]
     199    Left = 4
     200    Top = 17
     201    Width = 227
     202    Height = 21
     203    Anchors = [akLeft, akTop, akRight]
     204    Style = orcsDropDown
     205    AutoSelect = True
     206    Caption = 'Procedure'
     207    Color = clWindow
     208    DropDownCount = 8
     209    ItemHeight = 13
     210    ItemTipColor = clWindow
     211    ItemTipEnable = True
     212    ListItemsOnly = True
     213    LongList = True
     214    LookupPiece = 0
     215    MaxLength = 0
     216    Pieces = '2'
     217    Sorted = False
     218    SynonymChars = '<>'
     219    TabOrder = 0
     220    OnChange = cboProcSelect
     221    OnNeedData = cboProcNeedData
     222    CharsNeedMatch = 1
     223  end
     224  object cboCategory: TORComboBox [13]
     225    Left = 516
     226    Top = 10
     227    Width = 3
     228    Height = 21
     229    Style = orcsDropDown
     230    AutoSelect = True
     231    Color = clWindow
     232    DropDownCount = 8
     233    ItemHeight = 13
     234    ItemTipColor = clWindow
     235    ItemTipEnable = True
     236    ListItemsOnly = False
     237    LongList = False
     238    LookupPiece = 0
     239    MaxLength = 0
     240    Sorted = False
     241    SynonymChars = '<>'
     242    TabOrder = 13
     243    Visible = False
     244    OnChange = ControlChange
     245    CharsNeedMatch = 1
     246  end
     247  object cboService: TORComboBox [14]
     248    Left = 4
     249    Top = 58
     250    Width = 227
     251    Height = 21
     252    Anchors = [akLeft, akTop, akRight]
     253    Style = orcsDropDown
     254    AutoSelect = True
     255    Caption = 'Service to perform this procedure'
     256    Color = clWindow
     257    DropDownCount = 8
     258    Enabled = False
     259    ItemHeight = 13
     260    ItemTipColor = clWindow
     261    ItemTipEnable = True
     262    ListItemsOnly = False
     263    LongList = False
     264    LookupPiece = 0
     265    MaxLength = 0
     266    Pieces = '2'
     267    Sorted = False
     268    SynonymChars = '<>'
     269    TabOrder = 4
     270    OnChange = cboServiceChange
     271    CharsNeedMatch = 1
     272  end
     273  inherited cmdAccept: TButton
     274    Left = 387
     275    Top = 339
     276    Anchors = [akRight, akBottom]
     277    TabOrder = 10
     278  end
     279  inherited cmdQuit: TButton
     280    Left = 469
     281    Top = 339
     282    Width = 64
     283    Anchors = [akRight, akBottom]
     284    TabOrder = 11
     285  end
     286  inherited pnlMessage: TPanel
     287    Left = 50
     288    Top = 320
     289    Width = 316
     290    Anchors = [akLeft, akRight, akBottom]
     291    TabOrder = 12
     292    inherited memMessage: TRichEdit
     293      Width = 254
     294    end
     295  end
     296  object cmdLexSearch: TButton
     297    Left = 486
     298    Top = 93
     299    Width = 49
     300    Height = 21
     301    Anchors = [akTop, akRight]
     302    Caption = 'Lexicon'
     303    TabOrder = 8
     304    OnClick = cmdLexSearchClick
     305  end
     306  object gbInptOpt: TGroupBox
     307    Left = 249
     308    Top = 36
     309    Width = 140
     310    Height = 45
     311    Anchors = [akTop, akRight]
     312    Caption = 'Patient will be seen as an:'
     313    TabOrder = 5
     314    object radInpatient: TRadioButton
     315      Left = 3
     316      Top = 20
     317      Width = 61
     318      Height = 17
     319      Caption = '&Inpatient'
     320      TabOrder = 0
     321      OnClick = radInpatientClick
     322    end
     323    object radOutpatient: TRadioButton
     324      Left = 67
     325      Top = 20
     326      Width = 71
     327      Height = 17
     328      Caption = '&Outpatient'
     329      TabOrder = 1
     330      OnClick = radOutpatientClick
     331    end
     332  end
     333  object txtProvDiag: TCaptionEdit
     334    Left = 249
    177335    Top = 93
    178336    Width = 234
    179337    Height = 21
    180338    Anchors = [akTop, akRight]
     339    MaxLength = 180
    181340    ParentShowHint = False
    182341    PopupMenu = mnuPopProvDx
    … …  
    185344    OnChange = txtProvDiagChange
    186345    Caption = 'Provisional Diagnosis'
    187   end
    188   object txtAttn: TORComboBox [11]
    189     Left = 384
    190     Top = 17
    191     Width = 133
    192     Height = 21
    193     Anchors = [akTop, akRight]
    194     Style = orcsDropDown
    195     AutoSelect = True
    196     Caption = 'Attention'
    197     Color = clWindow
    198     DropDownCount = 8
    199     ItemHeight = 13
    200     ItemTipColor = clWindow
    201     ItemTipEnable = True
    202     ListItemsOnly = True
    203     LongList = True
    204     LookupPiece = 2
    205     MaxLength = 0
    206     Pieces = '2,3'
    207     Sorted = False
    208     SynonymChars = '<>'
    209     TabOrder = 3
    210     OnChange = ControlChange
    211     OnNeedData = txtAttnNeedData
    212     CharsNeedMatch = 1
    213   end
    214   object cboProc: TORComboBox [12]
    215     Left = 4
    216     Top = 17
    217     Width = 215
    218     Height = 21
    219     Anchors = [akLeft, akTop, akRight]
    220     Style = orcsDropDown
    221     AutoSelect = True
    222     Caption = 'Procedure'
    223     Color = clWindow
    224     DropDownCount = 8
    225     ItemHeight = 13
    226     ItemTipColor = clWindow
    227     ItemTipEnable = True
    228     ListItemsOnly = True
    229     LongList = True
    230     LookupPiece = 0
    231     MaxLength = 0
    232     Pieces = '2'
    233     Sorted = False
    234     SynonymChars = '<>'
    235     TabOrder = 0
    236     OnChange = cboProcSelect
    237     OnNeedData = cboProcNeedData
    238     CharsNeedMatch = 1
    239   end
    240   object cboCategory: TORComboBox [13]
    241     Left = 516
    242     Top = 10
    243     Width = 3
    244     Height = 21
    245     Style = orcsDropDown
    246     AutoSelect = True
    247     Color = clWindow
    248     DropDownCount = 8
    249     ItemHeight = 13
    250     ItemTipColor = clWindow
    251     ItemTipEnable = True
    252     ListItemsOnly = False
    253     LongList = False
    254     LookupPiece = 0
    255     MaxLength = 0
    256     Sorted = False
    257     SynonymChars = '<>'
    258     TabOrder = 13
    259     Visible = False
    260     OnChange = ControlChange
    261     CharsNeedMatch = 1
    262   end
    263   object cboService: TORComboBox [14]
    264     Left = 4
    265     Top = 58
    266     Width = 215
    267     Height = 21
    268     Anchors = [akLeft, akTop, akRight]
    269     Style = orcsDropDown
    270     AutoSelect = True
    271     Caption = 'Service to perform this procedure'
    272     Color = clWindow
    273     DropDownCount = 8
    274     Enabled = False
    275     ItemHeight = 13
    276     ItemTipColor = clWindow
    277     ItemTipEnable = True
    278     ListItemsOnly = False
    279     LongList = False
    280     LookupPiece = 0
    281     MaxLength = 0
    282     Pieces = '2'
    283     Sorted = False
    284     SynonymChars = '<>'
    285     TabOrder = 4
    286     OnChange = cboServiceChange
    287     CharsNeedMatch = 1
    288   end
    289   inherited cmdAccept: TButton
    290     Left = 369
    291     Top = 268
    292     Anchors = [akRight, akBottom]
    293     TabOrder = 10
    294   end
    295   inherited cmdQuit: TButton
    296     Left = 457
    297     Top = 268
    298     Width = 64
    299     Anchors = [akRight, akBottom]
    300     TabOrder = 11
    301   end
    302   inherited pnlMessage: TPanel
    303     Left = 50
    304     Top = 249
    305     Width = 304
    306     Anchors = [akLeft, akRight, akBottom]
    307     TabOrder = 12
    308     inherited memMessage: TRichEdit
    309       Width = 254
    310     end
    311   end
    312   object cmdLexSearch: TButton
    313     Left = 474
    314     Top = 93
    315     Width = 49
    316     Height = 21
    317     Anchors = [akTop, akRight]
    318     Caption = 'Lexicon'
    319     TabOrder = 8
    320     OnClick = cmdLexSearchClick
    321   end
    322   object gbInptOpt: TGroupBox
    323     Left = 237
    324     Top = 36
    325     Width = 140
    326     Height = 45
    327     Anchors = [akTop, akRight]
    328     Caption = 'Patient will be seen as an:'
    329     TabOrder = 5
    330     DesignSize = (
    331       140
    332       45)
    333     object radInpatient: TRadioButton
    334       Left = 3
    335       Top = 20
    336       Width = 61
    337       Height = 17
    338       Anchors = [akTop, akRight]
    339       Caption = '&Inpatient'
    340       TabOrder = 0
    341       OnClick = radInpatientClick
    342     end
    343     object radOutpatient: TRadioButton
    344       Left = 67
    345       Top = 20
    346       Width = 71
    347       Height = 17
    348       Anchors = [akTop, akRight]
    349       Caption = '&Outpatient'
    350       TabOrder = 1
    351       OnClick = radOutpatientClick
    352     end
    353346  end
    354347  object mnuPopProvDx: TPopupMenu
Note: See TracChangeset for help on using the changeset viewer.