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

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r829 r1679  
    55  Height = 465
    66  Caption = 'Infusion Order'
    7   Constraints.MinHeight = 350
     7  Constraints.MinHeight = 360
    88  Constraints.MinWidth = 500
    99  ExplicitWidth = 668
    … …  
    2727  object lblComponent: TLabel [2]
    2828    Left = 214
    29     Top = 7
     29    Top = 6
    3030    Width = 85
    3131    Height = 13
    … …  
    3434  object lblAmount: TLabel [3]
    3535    Left = 328
    36     Top = 7
     36    Top = 6
    3737    Width = 84
    3838    Height = 13
    … …  
    5555  end
    5656  object Label1: TLabel [6]
    57     Left = 8
    58     Top = 344
    59     Width = 133
    60     Height = 13
    61     Caption = ' * Indicates a Required Field'
     57    Left = 10
     58    Top = 345
     59    Width = 44
     60    Height = 13
     61    Caption = 'Order Sig'
    6262  end
    6363  object lblRoute: TLabel [7]
    … …  
    131131    OnClick = lblTypeHelpClick
    132132  end
    133   object txtRate: TCaptionEdit [13]
     133  object lblAddFreq: TLabel [13]
     134    Left = 488
     135    Top = 6
     136    Width = 95
     137    Height = 13
     138    Caption = 'Additive Frequency*'
     139  end
     140  object lblPrevAddFreq: TLabel [14]
     141    Left = 557
     142    Top = 6
     143    Width = 77
     144    Height = 13
     145    Caption = 'Prev. Add. Freq.'
     146  end
     147  object txtRate: TCaptionEdit [15]
    134148    Left = 486
    135149    Top = 211
    … …  
    137151    Height = 21
    138152    AutoSelect = False
    139     TabOrder = 8
     153    TabOrder = 10
    140154    OnChange = txtRateChange
    141155    Caption = 'Infusion Rate'
    142156  end
    143   object cboPriority: TORComboBox [14]
     157  object cboPriority: TORComboBox [16]
    144158    Left = 8
    145159    Top = 252
    … …  
    161175    Sorted = False
    162176    SynonymChars = '<>'
    163     TabOrder = 10
     177    TabOrder = 12
    164178    OnChange = cboPriorityChange
    165179    OnExit = cboPriorityExit
     180    OnKeyUp = cboPriorityKeyUp
    166181    CharsNeedMatch = 1
    167182  end
    168   object grdSelected: TCaptionStringGrid [15]
    169     Left = 214
    170     Top = 21
     183  object grdSelected: TCaptionStringGrid [17]
     184    Left = 215
     185    Top = 18
    171186    Width = 437
    172187    Height = 76
    173     ColCount = 3
    174188    DefaultColWidth = 100
    175189    DefaultRowHeight = 19
     190    DefaultDrawing = False
    176191    FixedCols = 0
    177192    RowCount = 1
    … …  
    179194    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    180195    ScrollBars = ssVertical
    181     TabOrder = 1
     196    TabOrder = 2
    182197    OnDrawCell = grdSelectedDrawCell
    183198    OnKeyPress = grdSelectedKeyPress
    184199    OnMouseDown = grdSelectedMouseDown
    185     Caption = 'Selected Solution and Additives'
    186   end
    187   object cmdRemove: TButton [16]
     200  end
     201  object cmdRemove: TButton [18]
    188202    Left = 443
    189203    Top = 100
    … …  
    191205    Height = 18
    192206    Caption = 'Remove'
    193     TabOrder = 2
     207    TabOrder = 3
    194208    OnClick = cmdRemoveClick
    195209  end
    196   object memComments: TCaptionMemo [17]
     210  object memComments: TCaptionMemo [19]
    197211    Left = 214
    198212    Top = 121
    … …  
    202216      'memComments')
    203217    ScrollBars = ssVertical
    204     TabOrder = 13
     218    TabOrder = 4
    205219    OnChange = ControlChange
    206220    Caption = 'Comments'
    207221  end
    208   object txtSelected: TCaptionEdit [18]
     222  object txtSelected: TCaptionEdit [20]
    209223    Tag = -1
    210224    Left = 416
    … …  
    219233    OnChange = txtSelectedChange
    220234    OnExit = txtSelectedExit
     235    OnKeyDown = txtSelectedKeyDown
    221236    Caption = 'Volume'
    222237  end
    223   object cboSelected: TCaptionComboBox [19]
     238  object cboSelected: TCaptionComboBox [21]
    224239    Tag = -1
    225     Left = 460
     240    Left = 462
    226241    Top = 45
    227242    Width = 53
    … …  
    231246    ItemHeight = 13
    232247    ParentCtl3D = False
    233     TabOrder = 4
     248    TabOrder = 6
    234249    Visible = False
    235     OnChange = cboSelectedChange
    236     OnExit = cboSelectedExit
     250    OnCloseUp = cboSelectedCloseUp
     251    OnKeyDown = cboSelectedKeyDown
    237252    Caption = 'Volume/Strength'
    238253  end
    239254  inherited memOrder: TCaptionMemo
    240     Top = 359
     255    Top = 364
    241256    Width = 475
    242     TabStop = True
    243     TabOrder = 16
    244     ExplicitTop = 359
     257    TabOrder = 17
     258    ExplicitTop = 364
    245259    ExplicitWidth = 475
    246260  end
    247   object pnlXDuration: TPanel [21]
     261  object pnlXDuration: TPanel [23]
    248262    Left = 184
    249263    Top = 252
    … …  
    251265    Height = 21
    252266    BevelOuter = bvNone
    253     TabOrder = 11
     267    TabOrder = 13
    254268    OnEnter = pnlXDurationEnter
    255269    object txtXDuration: TCaptionEdit
    … …  
    261275      OnChange = txtXDurationChange
    262276      OnExit = txtXDurationExit
    263       Caption = 'Duration'
    264277    end
    265278    object cboDuration: TComboBox
    … …  
    269282      Height = 21
    270283      ItemHeight = 13
    271       TabOrder = 2
     284      TabOrder = 1
    272285      OnChange = cboDurationChange
    273286      OnEnter = cboDurationEnter
    274287    end
    275288  end
    276   object pnlCombo: TPanel [22]
     289  object pnlCombo: TPanel [24]
    277290    Left = 8
    278291    Top = 2
    … …  
    280293    Height = 185
    281294    BevelOuter = bvNone
    282     TabOrder = 25
     295    TabOrder = 26
    283296    object cboAdditive: TORComboBox
    284297      Left = 0
    … …  
    303316      SynonymChars = '<>'
    304317      TabPositions = '20'
    305       TabOrder = 0
     318      TabOrder = 1
    306319      OnExit = cboAdditiveExit
    307320      OnMouseClick = cboAdditiveMouseClick
    … …  
    321334        '   Additives   ')
    322335      TabIndex = 0
    323       TabStop = False
    324336      OnChange = tabFluidChange
    325337    end
    … …  
    346358      SynonymChars = '<>'
    347359      TabPositions = '20'
    348       TabOrder = 1
     360      TabOrder = 0
    349361      OnExit = cboSolutionExit
    350362      OnMouseClick = cboSolutionMouseClick
    … …  
    353365    end
    354366  end
    355   object cboRoute: TORComboBox [23]
     367  object cboRoute: TORComboBox [25]
    356368    Left = 8
    357369    Top = 211
    … …  
    372384    Sorted = False
    373385    SynonymChars = '<>'
    374     TabOrder = 3
     386    TabOrder = 5
    375387    OnChange = cboRouteChange
    376388    OnClick = cboRouteClick
    377389    OnExit = cboRouteExit
     390    OnKeyDown = cboRouteKeyDown
     391    OnKeyUp = cboRouteKeyUp
    378392    CharsNeedMatch = 1
    379393    UniqueAutoComplete = True
    380394  end
    381   object cboSchedule: TORComboBox [24]
     395  object cboSchedule: TORComboBox [26]
    382396    Left = 304
    383397    Top = 211
    … …  
    398412    Sorted = True
    399413    SynonymChars = '<>'
    400     TabOrder = 6
     414    TabOrder = 8
    401415    OnChange = cboScheduleChange
    402416    OnClick = cboScheduleClick
    403417    OnExit = cboScheduleExit
     418    OnKeyDown = cboScheduleKeyDown
     419    OnKeyUp = cboScheduleKeyUp
    404420    CharsNeedMatch = 1
    405421    UniqueAutoComplete = True
    406422  end
    407   object cboType: TComboBox [25]
     423  object cboType: TComboBox [27]
    408424    Left = 184
    409425    Top = 211
    … …  
    413429    ParentShowHint = False
    414430    ShowHint = True
    415     TabOrder = 5
     431    TabOrder = 7
    416432    OnChange = cboTypeChange
    417   end
    418   object chkPRN: TCheckBox [26]
     433    OnKeyDown = cboTypeKeyDown
     434  end
     435  object chkPRN: TCheckBox [28]
    419436    Left = 436
    420437    Top = 213
    … …  
    422439    Height = 21
    423440    Caption = 'PRN'
    424     TabOrder = 7
     441    TabOrder = 9
    425442    OnClick = chkPRNClick
    426443  end
    427   object chkDoseNow: TCheckBox [27]
     444  object chkDoseNow: TCheckBox [29]
    428445    Left = 8
    429446    Top = 279
    … …  
    433450    Caption = 'Give Additional Dose Now'
    434451    Constraints.MinWidth = 147
    435     TabOrder = 12
     452    TabOrder = 14
    436453    OnClick = chkDoseNowClick
    437454  end
    438   object cboInfusionTime: TComboBox [28]
     455  object cboInfusionTime: TComboBox [30]
    439456    Left = 576
    440457    Top = 211
    … …  
    442459    Height = 21
    443460    ItemHeight = 13
    444     TabOrder = 9
     461    TabOrder = 11
    445462    OnChange = cboInfusionTimeChange
    446463    OnEnter = cboInfusionTimeEnter
    447464  end
    448   object lblAdminTime: TVA508StaticText [29]
     465  object lblAdminTime: TVA508StaticText [31]
    449466    Name = 'lblAdminTime'
    450467    Left = 8
    … …  
    455472    ParentShowHint = False
    456473    ShowHint = True
    457     TabOrder = 14
     474    TabOrder = 15
    458475    TabStop = True
    459476    Visible = False
    460477    ShowAccelChar = True
    461478  end
    462   object lblFirstDose: TVA508StaticText [30]
     479  object lblFirstDose: TVA508StaticText [32]
    463480    Name = 'lblFirstDose'
    464481    Left = 8
    … …  
    467484    Height = 4
    468485    Alignment = taLeftJustify
    469     TabOrder = 15
     486    TabOrder = 16
    470487    TabStop = True
    471488    Visible = False
    472489    ShowAccelChar = True
    473490  end
     491  object cboAddFreq: TCaptionComboBox [33]
     492    Left = 488
     493    Top = 72
     494    Width = 145
     495    Height = 21
     496    ItemHeight = 13
     497    TabOrder = 25
     498    Visible = False
     499    OnCloseUp = cboAddFreqCloseUp
     500    OnKeyDown = cboAddFreqKeyDown
     501  end
    474502  inherited cmdAccept: TButton
    475503    Left = 495
    476     Top = 359
    477     TabOrder = 17
     504    Top = 364
     505    TabOrder = 18
    478506    ExplicitLeft = 495
    479     ExplicitTop = 359
     507    ExplicitTop = 364
    480508  end
    481509  inherited cmdQuit: TButton
    482510    Left = 495
    483     Top = 386
    484     TabOrder = 18
     511    Top = 391
     512    TabOrder = 19
    485513    ExplicitLeft = 495
    486     ExplicitTop = 386
     514    ExplicitTop = 391
    487515  end
    488516  inherited pnlMessage: TPanel
    489517    Left = 56
    490     Top = 349
    491     TabOrder = 19
     518    Top = 341
     519    TabOrder = 20
    492520    ExplicitLeft = 56
    493     ExplicitTop = 349
     521    ExplicitTop = 341
     522  end
     523  object lbl508Required: TVA508StaticText [37]
     524    Name = 'lbl508Required'
     525    Left = 6
     526    Top = 318
     527    Width = 135
     528    Height = 15
     529    Alignment = taLeftJustify
     530    Caption = ' * Indicates a Required Field'
     531    TabOrder = 1
     532    ShowAccelChar = True
    494533  end
    495534  inherited amgrMain: TVA508AccessibilityManager
    … …  
    497536      (
    498537        'Component = txtRate'
    499         'Status = stsDefault')
     538        'Label = lblInfusionRate'
     539        'Status = stsOK')
    500540      (
    501541        'Component = cboPriority'
    502         'Status = stsDefault')
     542        'Label = lblPriority'
     543        'Status = stsOK')
    503544      (
    504545        'Component = grdSelected'
    … …  
    521562      (
    522563        'Component = txtXDuration'
    523         'Status = stsDefault')
     564        'Label = lblLimit'
     565        'Status = stsOK')
    524566      (
    525567        'Component = pnlCombo'
    … …  
    536578      (
    537579        'Component = cboRoute'
    538         'Status = stsDefault')
     580        'Label = lblRoute'
     581        'Status = stsOK')
    539582      (
    540583        'Component = cboSchedule'
    541         'Status = stsDefault')
     584        'Label = lblSchedule'
     585        'Status = stsOK')
    542586      (
    543587        'Component = cboType'
    544         'Status = stsDefault')
     588        'Label = lblType'
     589        'Status = stsOK')
    545590      (
    546591        'Component = chkPRN'
    … …  
    551596      (
    552597        'Component = memOrder'
    553         'Status = stsDefault')
     598        'Label = Label1'
     599        'Status = stsOK')
    554600      (
    555601        'Component = cmdAccept'
    … …  
    569615      (
    570616        'Component = cboInfusionTime'
    571         'Status = stsDefault')
     617        'Text = Infusion Rate Time'
     618        'Status = stsOK')
    572619      (
    573620        'Component = cboDuration'
    574         'Status = stsDefault')
     621        'Text = Duration/Volume Units'
     622        'Status = stsOK')
    575623      (
    576624        'Component = lblAdminTime'
    … …  
    578626      (
    579627        'Component = lblFirstDose'
     628        'Status = stsDefault')
     629      (
     630        'Component = cboAddFreq'
     631        'Status = stsDefault')
     632      (
     633        'Component = lbl508Required'
    580634        'Status = stsDefault'))
    581635  end
     636  object VA508CompOrderSig: TVA508ComponentAccessibility
     637    Component = memOrder
     638    OnStateQuery = VA508CompOrderSigStateQuery
     639    Left = 24
     640    Top = 368
     641  end
     642  object VA508CompRoute: TVA508ComponentAccessibility
     643    Component = cboRoute
     644    OnInstructionsQuery = VA508CompRouteInstructionsQuery
     645    Left = 104
     646    Top = 240
     647  end
     648  object VA508CompType: TVA508ComponentAccessibility
     649    Component = cboType
     650    OnInstructionsQuery = VA508CompTypeInstructionsQuery
     651    Left = 224
     652    Top = 280
     653  end
     654  object VA508CompSchedule: TVA508ComponentAccessibility
     655    Component = cboSchedule
     656    OnInstructionsQuery = VA508CompScheduleInstructionsQuery
     657    Left = 384
     658    Top = 240
     659  end
     660  object VA508CompGrdSelected: TVA508ComponentAccessibility
     661    Component = grdSelected
     662    OnCaptionQuery = VA508CompGrdSelectedCaptionQuery
     663    Left = 288
     664    Top = 64
     665  end
    582666end
Note: See TracChangeset for help on using the changeset viewer.