Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (9 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Consults/fEditConsult.dfm

    r829 r1679  
    11inherited frmEditCslt: TfrmEditCslt
    22  Tag = 110
    3   Left = 409
    4   Top = 225
    5   Width = 599
    6   Height = 375
     3  Left = 461
     4  Top = 191
     5  Width = 576
     6  Height = 479
    77  HorzScrollBar.Range = 561
    88  VertScrollBar.Range = 340
    99  Caption = 'Edit/Resubmit a Cancelled Consult'
    10   Constraints.MinHeight = 371
    11   Constraints.MinWidth = 573
     10  Constraints.MinHeight = 467
     11  Constraints.MinWidth = 576
    1212  OldCreateOrder = True
    1313  Position = poScreenCenter
    14   ExplicitLeft = 409
    15   ExplicitTop = 225
    16   ExplicitWidth = 599
    17   ExplicitHeight = 375
     14  ExplicitWidth = 576
     15  ExplicitHeight = 479
    1816  DesignSize = (
    19     591
    20     341)
     17    568
     18    448)
    2119  PixelsPerInch = 96
    2220  TextHeight = 13
    23   object lblService: TLabel [0]
    24     Left = 4
    25     Top = 4
    26     Width = 134
    27     Height = 13
    28     Caption = 'Consult to Service/Specialty'
    29   end
    30   object lblReason: TLabel [1]
    31     Left = 4
    32     Top = 166
    33     Width = 90
    34     Height = 13
    35     Caption = 'Reason for Consult'
    36   end
    37   object lblComment: TLabel [2]
    38     Left = 4
    39     Top = 105
    40     Width = 77
    41     Height = 13
    42     Caption = 'New Comments:'
    43   end
    44   object lblComments: TLabel [3]
    45     Left = 4
    46     Top = 51
    47     Width = 89
    48     Height = 13
    49     Caption = 'Display Comments:'
    50   end
    51   object lblUrgency: TStaticText [4]
    52     Left = 196
    53     Top = 4
    54     Width = 44
    55     Height = 17
    56     Caption = 'Urgency'
    57     TabOrder = 16
    58   end
    59   object lblPlace: TStaticText [5]
    60     Left = 376
    61     Top = 41
    62     Width = 104
    63     Height = 17
    64     Caption = 'Place of Consultation'
    65     TabOrder = 17
    66   end
    67   object lblAttn: TStaticText [6]
    68     Left = 376
    69     Top = 4
    70     Width = 46
    71     Height = 17
    72     Caption = 'Attention'
    73     TabOrder = 18
    74   end
    75   object lblProvDiag: TStaticText [7]
    76     Left = 195
    77     Top = 82
    78     Width = 104
    79     Height = 17
    80     Caption = 'Provisional Diagnosis'
    81     TabOrder = 19
    82   end
    83   object lblInpOutp: TStaticText [8]
    84     Left = 197
    85     Top = 47
    86     Width = 127
    87     Height = 17
    88     Caption = 'Patient will be seen as an:'
    89     TabOrder = 20
    90   end
    91   object memReason: TRichEdit [9]
    92     Left = 4
    93     Top = 179
    94     Width = 589
    95     Height = 137
    96     Anchors = [akLeft, akTop, akRight, akBottom]
     21  object pnlCombatVet: TPanel [0]
     22    Left = 0
     23    Top = 0
     24    Width = 568
     25    Height = 25
     26    Align = alTop
     27    BevelOuter = bvLowered
    9728    Font.Charset = DEFAULT_CHARSET
    9829    Font.Color = clWindowText
    9930    Font.Height = -11
    100     Font.Name = 'Courier New'
     31    Font.Name = 'MS Sans Serif'
    10132    Font.Style = []
    10233    ParentFont = False
    103     PopupMenu = popReason
    104     ScrollBars = ssBoth
    105     TabOrder = 11
    106     WantTabs = True
    107     OnChange = ControlChange
    108     OnExit = memReasonExit
    109     OnKeyDown = memCommentKeyDown
    110     OnKeyPress = memCommentKeyPress
    111     OnKeyUp = memCommentKeyUp
    112     ExplicitHeight = 136
    113   end
    114   object pnlMessage: TPanel [10]
    115     Left = 16
    116     Top = 294
    117     Width = 418
     34    TabOrder = 0
     35    object txtCombatVet: TVA508StaticText
     36      Name = 'txtCombatVet'
     37      Left = 1
     38      Top = 1
     39      Width = 566
     40      Height = 23
     41      Align = alClient
     42      Alignment = taCenter
     43      BevelOuter = bvNone
     44      Enabled = False
     45      TabOrder = 0
     46      ShowAccelChar = True
     47    end
     48  end
     49  object pnlMessage: TPanel [1]
     50    Left = 21
     51    Top = 404
     52    Width = 388
    11853    Height = 44
    11954    Anchors = [akLeft, akRight, akBottom]
    … …  
    12156    BorderStyle = bsSingle
    12257    Caption = 'pnlMessage'
    123     TabOrder = 15
     58    TabOrder = 4
    12459    Visible = False
    12560    object imgMessage: TImage
    … …  
    14681    end
    14782  end
    148   object cboService: TORComboBox [11]
    149     Left = 4
    150     Top = 19
    151     Width = 180
    152     Height = 21
    153     Style = orcsDropDown
    154     AutoSelect = True
    155     Caption = 'Consult to Service/Specialty'
    156     Color = clWindow
    157     DropDownCount = 8
    158     Enabled = False
    159     Font.Charset = DEFAULT_CHARSET
    160     Font.Color = clGrayText
    161     Font.Height = -11
    162     Font.Name = 'MS Sans Serif'
    163     Font.Style = []
    164     ItemHeight = 13
    165     ItemTipColor = clWindow
    166     ItemTipEnable = True
    167     ListItemsOnly = True
    168     LongList = False
    169     LookupPiece = 0
    170     MaxLength = 0
    171     ParentFont = False
    172     Pieces = '2'
    173     Sorted = True
    174     SynonymChars = '<>'
    175     TabOrder = 0
    176     CharsNeedMatch = 1
    177   end
    178   object cboUrgency: TORComboBox [12]
    179     Left = 196
    180     Top = 19
    181     Width = 170
    182     Height = 21
    183     Style = orcsDropDown
    184     AutoSelect = True
    185     Caption = 'Urgency'
    186     Color = clWindow
    187     DropDownCount = 8
    188     ItemHeight = 13
    189     ItemTipColor = clWindow
    190     ItemTipEnable = True
    191     ListItemsOnly = True
    192     LongList = False
    193     LookupPiece = 0
    194     MaxLength = 0
    195     Pieces = '2'
    196     Sorted = False
    197     SynonymChars = '<>'
    198     TabOrder = 1
    199     OnChange = ControlChange
    200     CharsNeedMatch = 1
    201   end
    202   object radInpatient: TRadioButton [13]
    203     Left = 197
    204     Top = 61
    205     Width = 61
    206     Height = 17
    207     Caption = '&Inpatient'
    208     TabOrder = 5
    209     OnClick = radInpatientClick
    210   end
    211   object radOutpatient: TRadioButton [14]
    212     Left = 269
    213     Top = 61
    214     Width = 73
    215     Height = 17
    216     Caption = '&Outpatient'
    217     TabOrder = 6
    218     OnClick = radOutpatientClick
    219   end
    220   object cboPlace: TORComboBox [15]
    221     Left = 376
    222     Top = 54
    223     Width = 216
    224     Height = 21
    225     Anchors = [akLeft, akTop, akRight]
    226     Style = orcsDropDown
    227     AutoSelect = True
    228     Caption = 'Place of Consultation'
    229     Color = clWindow
    230     DropDownCount = 8
    231     ItemHeight = 13
    232     ItemTipColor = clWindow
    233     ItemTipEnable = True
    234     ListItemsOnly = True
    235     LongList = False
    236     LookupPiece = 0
    237     MaxLength = 0
    238     Pieces = '2'
    239     Sorted = False
    240     SynonymChars = '<>'
    241     TabOrder = 7
    242     OnChange = ControlChange
    243     CharsNeedMatch = 1
    244   end
    245   object txtProvDiag: TCaptionEdit [16]
    246     Left = 195
    247     Top = 95
    248     Width = 346
    249     Height = 21
    250     Anchors = [akLeft, akTop, akRight]
    251     MaxLength = 180
    252     ParentShowHint = False
    253     PopupMenu = mnuPopProvDx
    254     ShowHint = True
    255     TabOrder = 8
    256     OnChange = ControlChange
    257     Caption = 'Provisional Diagnosis'
    258   end
    259   object txtAttn: TORComboBox [17]
    260     Left = 376
    261     Top = 19
    262     Width = 218
    263     Height = 21
    264     Anchors = [akLeft, akTop, akRight]
    265     Style = orcsDropDown
    266     AutoSelect = True
    267     Caption = 'Attention'
    268     Color = clWindow
    269     DropDownCount = 8
    270     ItemHeight = 13
    271     ItemTipColor = clWindow
    272     ItemTipEnable = True
    273     ListItemsOnly = True
    274     LongList = True
    275     LookupPiece = 2
    276     MaxLength = 0
    277     Pieces = '2,3'
    278     Sorted = False
    279     SynonymChars = '<>'
    280     TabOrder = 2
    281     OnChange = ControlChange
    282     OnNeedData = txtAttnNeedData
    283     CharsNeedMatch = 1
    284   end
    285   object cboCategory: TORComboBox [18]
    286     Left = 561
    287     Top = 103
    288     Width = 10
    289     Height = 21
    290     Style = orcsDropDown
    291     AutoSelect = True
    292     Color = clWindow
    293     DropDownCount = 8
    294     ItemHeight = 13
    295     ItemTipColor = clWindow
    296     ItemTipEnable = True
    297     ListItemsOnly = False
    298     LongList = False
    299     LookupPiece = 0
    300     MaxLength = 0
    301     Sorted = False
    302     SynonymChars = '<>'
    303     TabOrder = 14
    304     Visible = False
    305     CharsNeedMatch = 1
    306   end
    307   object cmdAccept: TButton [19]
    308     Left = 437
    309     Top = 319
     83  object cmdAccept: TButton [2]
     84    Left = 414
     85    Top = 425
    31086    Width = 72
    31187    Height = 21
    31288    Anchors = [akRight, akBottom]
    31389    Caption = 'Resubmit'
    314     TabOrder = 12
     90    TabOrder = 2
    31591    OnClick = cmdAcceptClick
    31692  end
    317   object cmdQuit: TButton [20]
    318     Left = 514
    319     Top = 319
     93  object cmdQuit: TButton [3]
     94    Left = 491
     95    Top = 425
    32096    Width = 72
    32197    Height = 21
    … …  
    32399    Cancel = True
    324100    Caption = 'Cancel'
    325     TabOrder = 13
     101    TabOrder = 3
    326102    OnClick = cmdQuitClick
    327103  end
    328   object memComment: TRichEdit [21]
    329     Left = 4
    330     Top = 121
    331     Width = 587
    332     Height = 41
    333     Anchors = [akLeft, akTop, akRight]
    334     PopupMenu = popReason
    335     TabOrder = 10
    336     WantTabs = True
    337     OnChange = ControlChange
    338     OnKeyDown = memCommentKeyDown
    339     OnKeyPress = memCommentKeyPress
    340     OnKeyUp = memCommentKeyUp
    341   end
    342   object btnCmtCancel: TButton [22]
    343     Left = 110
    344     Top = 49
    345     Width = 75
    346     Height = 21
    347     Caption = 'Cancellation'
    348     TabOrder = 3
    349     OnClick = btnCmtCancelClick
    350   end
    351   object btnCmtOther: TButton [23]
    352     Left = 110
    353     Top = 75
    354     Width = 75
    355     Height = 21
    356     Caption = 'Other'
    357     TabOrder = 4
    358     OnClick = btnCmtOtherClick
    359   end
    360   object cmdLexSearch: TButton [24]
    361     Left = 545
    362     Top = 95
    363     Width = 46
    364     Height = 21
    365     Anchors = [akTop, akRight]
    366     Caption = 'Lexicon'
    367     TabOrder = 9
    368     OnClick = cmdLexSearchClick
     104  object pnlMain: TPanel [4]
     105    Left = 0
     106    Top = 0
     107    Width = 569
     108    Height = 402
     109    Anchors = [akLeft, akTop, akRight, akBottom]
     110    BevelOuter = bvNone
     111    TabOrder = 1
     112    DesignSize = (
     113      569
     114      402)
     115    object lblService: TLabel
     116      Left = 4
     117      Top = 4
     118      Width = 134
     119      Height = 13
     120      Caption = 'Consult to Service/Specialty'
     121    end
     122    object lblReason: TLabel
     123      Left = 4
     124      Top = 227
     125      Width = 95
     126      Height = 13
     127      Caption = 'Reason for Request'
     128    end
     129    object lblComment: TLabel
     130      Left = 4
     131      Top = 169
     132      Width = 77
     133      Height = 13
     134      Caption = 'New Comments:'
     135    end
     136    object lblComments: TLabel
     137      Left = 8
     138      Top = 108
     139      Width = 89
     140      Height = 13
     141      Caption = 'Display Comments:'
     142    end
     143    object lblUrgency: TStaticText
     144      Left = 196
     145      Top = 4
     146      Width = 44
     147      Height = 17
     148      Caption = 'Urgency'
     149      TabOrder = 14
     150    end
     151    object lblPlace: TStaticText
     152      Left = 376
     153      Top = 93
     154      Width = 104
     155      Height = 17
     156      Caption = 'Place of Consultation'
     157      TabOrder = 15
     158    end
     159    object lblAttn: TStaticText
     160      Left = 376
     161      Top = 4
     162      Width = 46
     163      Height = 17
     164      Caption = 'Attention'
     165      TabOrder = 16
     166    end
     167    object lblProvDiag: TStaticText
     168      Left = 195
     169      Top = 134
     170      Width = 104
     171      Height = 17
     172      Caption = 'Provisional Diagnosis'
     173      TabOrder = 17
     174    end
     175    object lblInpOutp: TStaticText
     176      Left = 197
     177      Top = 99
     178      Width = 127
     179      Height = 17
     180      Caption = 'Patient will be seen as an:'
     181      TabOrder = 18
     182    end
     183    object memReason: TRichEdit
     184      Left = 4
     185      Top = 240
     186      Width = 559
     187      Height = 161
     188      Anchors = [akLeft, akTop, akRight, akBottom]
     189      Font.Charset = DEFAULT_CHARSET
     190      Font.Color = clWindowText
     191      Font.Height = -11
     192      Font.Name = 'Courier New'
     193      Font.Style = []
     194      ParentFont = False
     195      PopupMenu = popReason
     196      ScrollBars = ssBoth
     197      TabOrder = 12
     198      WantTabs = True
     199      OnChange = ControlChange
     200      OnExit = memReasonExit
     201      OnKeyDown = memCommentKeyDown
     202      OnKeyPress = memCommentKeyPress
     203      OnKeyUp = memCommentKeyUp
     204    end
     205    object cboService: TORComboBox
     206      Left = 4
     207      Top = 19
     208      Width = 180
     209      Height = 83
     210      Style = orcsSimple
     211      AutoSelect = True
     212      Caption = 'Consult to Service/Specialty'
     213      Color = clWindow
     214      DropDownCount = 8
     215      Enabled = False
     216      Font.Charset = DEFAULT_CHARSET
     217      Font.Color = clGrayText
     218      Font.Height = -11
     219      Font.Name = 'MS Sans Serif'
     220      Font.Style = []
     221      ItemHeight = 13
     222      ItemTipColor = clWindow
     223      ItemTipEnable = True
     224      ListItemsOnly = True
     225      LongList = False
     226      LookupPiece = 0
     227      MaxLength = 0
     228      ParentFont = False
     229      Pieces = '2'
     230      Sorted = True
     231      SynonymChars = '<>'
     232      TabOrder = 0
     233      CharsNeedMatch = 1
     234    end
     235    object cboUrgency: TORComboBox
     236      Left = 196
     237      Top = 19
     238      Width = 170
     239      Height = 21
     240      Style = orcsDropDown
     241      AutoSelect = True
     242      Caption = 'Urgency'
     243      Color = clWindow
     244      DropDownCount = 8
     245      ItemHeight = 13
     246      ItemTipColor = clWindow
     247      ItemTipEnable = True
     248      ListItemsOnly = True
     249      LongList = False
     250      LookupPiece = 0
     251      MaxLength = 0
     252      Pieces = '2'
     253      Sorted = False
     254      SynonymChars = '<>'
     255      TabOrder = 1
     256      OnChange = ControlChange
     257      CharsNeedMatch = 1
     258    end
     259    object radInpatient: TRadioButton
     260      Left = 197
     261      Top = 113
     262      Width = 61
     263      Height = 17
     264      Caption = '&Inpatient'
     265      TabOrder = 6
     266      OnClick = radInpatientClick
     267    end
     268    object radOutpatient: TRadioButton
     269      Left = 269
     270      Top = 113
     271      Width = 73
     272      Height = 17
     273      Caption = '&Outpatient'
     274      TabOrder = 7
     275      OnClick = radOutpatientClick
     276    end
     277    object cboPlace: TORComboBox
     278      Left = 376
     279      Top = 106
     280      Width = 188
     281      Height = 21
     282      Anchors = [akLeft, akTop, akRight]
     283      Style = orcsDropDown
     284      AutoSelect = True
     285      Caption = 'Place of Consultation'
     286      Color = clWindow
     287      DropDownCount = 8
     288      ItemHeight = 13
     289      ItemTipColor = clWindow
     290      ItemTipEnable = True
     291      ListItemsOnly = True
     292      LongList = False
     293      LookupPiece = 0
     294      MaxLength = 0
     295      Pieces = '2'
     296      Sorted = False
     297      SynonymChars = '<>'
     298      TabOrder = 8
     299      OnChange = ControlChange
     300      CharsNeedMatch = 1
     301    end
     302    object txtProvDiag: TCaptionEdit
     303      Left = 195
     304      Top = 147
     305      Width = 316
     306      Height = 21
     307      Anchors = [akLeft, akTop, akRight]
     308      MaxLength = 180
     309      ParentShowHint = False
     310      PopupMenu = mnuPopProvDx
     311      ShowHint = True
     312      TabOrder = 10
     313      OnChange = ControlChange
     314      Caption = 'Provisional Diagnosis'
     315    end
     316    object txtAttn: TORComboBox
     317      Left = 376
     318      Top = 19
     319      Width = 188
     320      Height = 21
     321      Anchors = [akLeft, akTop, akRight]
     322      Style = orcsDropDown
     323      AutoSelect = True
     324      Caption = 'Attention'
     325      Color = clWindow
     326      DropDownCount = 8
     327      ItemHeight = 13
     328      ItemTipColor = clWindow
     329      ItemTipEnable = True
     330      ListItemsOnly = True
     331      LongList = True
     332      LookupPiece = 2
     333      MaxLength = 0
     334      Pieces = '2,3'
     335      Sorted = False
     336      SynonymChars = '<>'
     337      TabOrder = 2
     338      OnChange = ControlChange
     339      OnNeedData = txtAttnNeedData
     340      CharsNeedMatch = 1
     341    end
     342    object cboCategory: TORComboBox
     343      Left = 559
     344      Top = 103
     345      Width = 10
     346      Height = 21
     347      Style = orcsDropDown
     348      AutoSelect = True
     349      Color = clWindow
     350      DropDownCount = 8
     351      ItemHeight = 13
     352      ItemTipColor = clWindow
     353      ItemTipEnable = True
     354      ListItemsOnly = False
     355      LongList = False
     356      LookupPiece = 0
     357      MaxLength = 0
     358      Sorted = False
     359      SynonymChars = '<>'
     360      TabOrder = 13
     361      Visible = False
     362      CharsNeedMatch = 1
     363    end
     364    object memComment: TRichEdit
     365      Left = 4
     366      Top = 185
     367      Width = 557
     368      Height = 41
     369      Anchors = [akLeft, akTop, akRight]
     370      PopupMenu = popReason
     371      TabOrder = 11
     372      WantTabs = True
     373      OnChange = ControlChange
     374      OnExit = memCommentExit
     375      OnKeyDown = memCommentKeyDown
     376      OnKeyPress = memCommentKeyPress
     377      OnKeyUp = memCommentKeyUp
     378    end
     379    object btnCmtCancel: TButton
     380      Left = 8
     381      Top = 127
     382      Width = 75
     383      Height = 21
     384      Caption = 'Cancellation'
     385      TabOrder = 4
     386      OnClick = btnCmtCancelClick
     387    end
     388    object btnCmtOther: TButton
     389      Left = 110
     390      Top = 127
     391      Width = 75
     392      Height = 21
     393      Caption = 'Other'
     394      TabOrder = 5
     395      OnClick = btnCmtOtherClick
     396    end
     397    object cmdLexSearch: TButton
     398      Left = 515
     399      Top = 147
     400      Width = 46
     401      Height = 21
     402      Anchors = [akTop, akRight]
     403      Caption = 'Lexicon'
     404      TabOrder = 9
     405      OnClick = cmdLexSearchClick
     406    end
     407    object lblEarliest: TStaticText
     408      Left = 197
     409      Top = 46
     410      Width = 121
     411      Height = 17
     412      Caption = 'Earliest appropriate date:'
     413      TabOrder = 19
     414    end
     415    object calEarliest: TORDateBox
     416      Left = 197
     417      Top = 62
     418      Width = 164
     419      Height = 21
     420      TabOrder = 3
     421      OnExit = calEarliestExit
     422      DateOnly = True
     423      RequireTime = False
     424    end
     425    object lblLatest: TStaticText
     426      Left = 376
     427      Top = 46
     428      Width = 116
     429      Height = 17
     430      Caption = 'Latest appropriate date:'
     431      TabOrder = 21
     432      Visible = False
     433    end
     434    object calLatest: TORDateBox
     435      Left = 378
     436      Top = 62
     437      Width = 188
     438      Height = 21
     439      Anchors = [akLeft, akTop, akRight]
     440      TabOrder = 22
     441      Visible = False
     442      OnExit = calLatestExit
     443      DateOnly = True
     444      RequireTime = False
     445    end
    369446  end
    370447  inherited amgrMain: TVA508AccessibilityManager
    371448    Data = (
    372449      (
     450        'Component = pnlMessage'
     451        'Status = stsDefault')
     452      (
     453        'Component = memMessage'
     454        'Status = stsDefault')
     455      (
     456        'Component = cmdAccept'
     457        'Status = stsDefault')
     458      (
     459        'Component = cmdQuit'
     460        'Status = stsDefault')
     461      (
     462        'Component = frmEditCslt'
     463        'Status = stsDefault')
     464      (
     465        'Component = pnlMain'
     466        'Status = stsDefault')
     467      (
    373468        'Component = lblUrgency'
    374469        'Status = stsDefault')
    … …  
    389484        'Status = stsDefault')
    390485      (
    391         'Component = pnlMessage'
    392         'Status = stsDefault')
    393       (
    394         'Component = memMessage'
    395         'Status = stsDefault')
    396       (
    397486        'Component = cboService'
    398487        'Status = stsDefault')
    … …  
    419508        'Status = stsDefault')
    420509      (
    421         'Component = cmdAccept'
    422         'Status = stsDefault')
    423       (
    424         'Component = cmdQuit'
    425         'Status = stsDefault')
    426       (
    427510        'Component = memComment'
    428511        'Status = stsDefault')
    … …  
    437520        'Status = stsDefault')
    438521      (
    439         'Component = frmEditCslt'
     522        'Component = lblEarliest'
     523        'Status = stsDefault')
     524      (
     525        'Component = calEarliest'
     526        'Status = stsDefault')
     527      (
     528        'Component = lblLatest'
     529        'Status = stsDefault')
     530      (
     531        'Component = calLatest'
     532        'Status = stsDefault')
     533      (
     534        'Component = pnlCombatVet'
     535        'Status = stsDefault')
     536      (
     537        'Component = txtCombatVet'
    440538        'Status = stsDefault'))
    441539  end
    442540  object mnuPopProvDx: TPopupMenu
    443541    Left = 353
    444     Top = 77
     542    Top = 129
    445543    object mnuPopProvDxDelete: TMenuItem
    446544      Caption = 'Delete diagnosis'
    … …  
    450548  object popReason: TPopupMenu
    451549    OnPopup = popReasonPopup
    452     Left = 411
    453     Top = 169
     550    Left = 523
     551    Top = 369
    454552    object popReasonCut: TMenuItem
    455553      Caption = 'Cu&t'
Note: See TracChangeset for help on using the changeset viewer.