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/fODMeds.dfm

    r456 r829  
    11inherited frmODMeds: TfrmODMeds
    2   Left = 519
    3   Top = 204
     2  Left = 321
     3  Top = 183
    44  Width = 584
    5   Height = 515
     5  Height = 572
    66  HorzScrollBar.Range = 558
    77  VertScrollBar.Range = 399
    88  Caption = 'Medication Order'
    99  Constraints.MinHeight = 325
    10   OnKeyDown = FormKeyDown
    1110  OnShow = FormShow
     11  ExplicitWidth = 584
     12  ExplicitHeight = 572
    1213  DesignSize = (
    1314    576
    14     488)
     15    545)
    1516  PixelsPerInch = 96
    1617  TextHeight = 13
    … …  
    1920    Top = 34
    2021    Width = 580
    21     Height = 413
     22    Height = 470
    2223    Anchors = [akLeft, akTop, akRight, akBottom]
    2324    BevelOuter = bvNone
    24     Caption = 'pnlMeds'
    2525    TabOrder = 1
    2626    object sptSelect: TSplitter
    … …  
    6868      Top = 137
    6969      Width = 580
    70       Height = 276
     70      Height = 333
    7171      Align = alClient
    7272      BevelInner = bvLowered
    … …  
    9898  end
    9999  inherited memOrder: TCaptionMemo
    100     Top = 448
     100    Tag = 13
     101    Top = 505
    101102    Width = 502
     103    TabStop = True
    102104    Anchors = [akLeft, akRight, akBottom]
    103105    TabOrder = 4
     106    ExplicitTop = 505
     107    ExplicitWidth = 502
    104108  end
    105109  object txtMed: TEdit [2]
    … …  
    119123  object btnSelect: TButton [3]
    120124    Left = 515
    121     Top = 448
     125    Top = 505
    122126    Width = 72
    123127    Height = 21
    … …  
    129133    OnClick = btnSelectClick
    130134  end
    131   inherited cmdAccept: TButton
    132     Left = 514
    133     Top = 448
    134     Anchors = [akRight, akBottom]
    135     TabOrder = 6
    136     TabStop = False
    137     Visible = False
    138   end
    139   inherited cmdQuit: TButton
    140     Left = 514
    141     Top = 473
    142     Width = 51
    143     Anchors = [akRight, akBottom]
    144     TabOrder = 7
    145   end
    146   inherited pnlMessage: TPanel
    147     Left = 36
    148     Top = 156
    149     OnEnter = pnlMessageEnter
    150     inherited memMessage: TRichEdit
    151       OnKeyDown = memMessageKeyDown
    152     end
    153   end
    154   object pnlFields: TPanel
     135  object pnlFields: TPanel [4]
    155136    Left = 6
    156137    Top = 34
    157138    Width = 580
    158     Height = 413
     139    Height = 470
    159140    Anchors = [akLeft, akTop, akRight, akBottom]
    160141    BevelOuter = bvNone
    … …  
    167148      Top = 0
    168149      Width = 580
    169       Height = 184
     150      Height = 197
    170151      Align = alClient
    171152      Constraints.MinHeight = 80
    … …  
    173154      DesignSize = (
    174155        580
    175         184)
     156        197)
    176157      object lblRoute: TLabel
    177158        Left = 280
    … …  
    214195        Top = 36
    215196        Width = 580
    216         Height = 143
     197        Height = 156
    217198        Anchors = [akLeft, akTop, akRight, akBottom]
    218         ColCount = 6
     199        ColCount = 7
    219200        DefaultColWidth = 76
    220201        DefaultRowHeight = 21
    … …  
    237218          76
    238219          76
     220          76
    239221          76)
    240222      end
    … …  
    277259        Top = 36
    278260        Width = 279
    279         Height = 143
     261        Height = 155
    280262        Anchors = [akLeft, akTop, akRight, akBottom]
    281263        Style = orcsSimple
    … …  
    307289        Top = 36
    308290        Width = 113
    309         Height = 143
     291        Height = 156
    310292        Anchors = [akTop, akRight, akBottom]
    311293        Style = orcsSimple
    … …  
    337319        Top = 36
    338320        Width = 178
    339         Height = 143
     321        Height = 156
    340322        Anchors = [akTop, akRight, akBottom]
    341323        Style = orcsSimple
    … …  
    395377        TabOrder = 2
    396378        OnClick = btnXRemoveClick
     379      end
     380      object pnlXAdminTime: TPanel
     381        Left = 432
     382        Top = 149
     383        Width = 65
     384        Height = 17
     385        Caption = 'pnlXAdminTime'
     386        TabOrder = 9
     387        Visible = False
     388        OnClick = pnlXAdminTimeClick
    397389      end
    398390    end
    … …  
    521513        Anchors = [akLeft, akTop, akBottom]
    522514        Associate = txtXDuration
    523         Min = 0
    524515        Max = 999
    525         Position = 0
    526516        TabOrder = 1
    527         Wrap = False
    528       end
    529     end
    530     object pnlXSequence: TKeyClickPanel
    531       Left = 396
    532       Top = 122
    533       Width = 37
    534       Height = 21
    535       Caption = 'Then/And box'
    536       TabOrder = 5
    537       TabStop = True
    538       Visible = False
    539       OnClick = btnXSequenceClick
    540       OnEnter = pnlXSequenceEnter
    541       OnExit = pnlXSequenceExit
    542       object btnXSequence: TSpeedButton
    543         Left = 1
    544         Top = 1
    545         Width = 38
    546         Height = 19
    547         Hint = 'A duration must be defined if using "Then" as a sequence.'
    548         Caption = 'then'
    549         Glyph.Data = {
    550           AE000000424DAE0000000000000076000000280000000E000000070000000100
    551           0400000000003800000000000000000000001000000000000000000000000000
    552           8000008000000080800080000000800080008080000080808000C0C0C0000000
    553           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
    554           330033333333333333003330333333733300330003333F87330030000033FFFF
    555           F30033333333333333003333333333333300}
    556         Layout = blGlyphRight
    557         NumGlyphs = 2
    558         ParentShowHint = False
    559         ShowHint = True
    560         Spacing = 1
    561         OnClick = btnXSequenceClick
    562       end
    563       object SpeedButton1: TSpeedButton
    564         Left = 16
    565         Top = 16
    566         Width = 23
    567         Height = 22
    568517      end
    569518    end
    … …  
    626575    object pnlBottom: TPanel
    627576      Left = 0
    628       Top = 184
     577      Top = 197
    629578      Width = 580
    630       Height = 229
     579      Height = 273
    631580      Align = alBottom
    632       TabOrder = 6
     581      TabOrder = 5
    633582      DesignSize = (
    634583        580
    635         229)
     584        273)
    636585      object lblComment: TLabel
    637586        Left = 4
    … …  
    676625      object Image1: TImage
    677626        Left = 5
    678         Top = 177
     627        Top = 221
    679628        Width = 31
    680629        Height = 31
    681630        Anchors = [akLeft, akBottom]
    682631        Visible = False
     632        ExplicitTop = 177
    683633      end
    684634      object chkDoseNow: TCheckBox
    … …  
    688638        Height = 21
    689639        Caption = 'Give additional dose now'
    690         TabOrder = 9
     640        TabOrder = 8
    691641        OnClick = chkDoseNowClick
    692642      end
    … …  
    709659        Height = 17
    710660        Caption = '>> Quantity Dispensed: Multiples of 100 <<'
    711         TabOrder = 12
     661        TabOrder = 13
    712662      end
    713663      object txtSupply: TCaptionEdit
    … …  
    729679        Height = 21
    730680        Associate = txtSupply
    731         Min = 0
    732         Position = 0
    733681        TabOrder = 2
    734         Wrap = False
    735682      end
    736683      object txtQuantity: TCaptionEdit
    … …  
    751698        Width = 16
    752699        Height = 21
    753         Min = -32766
     700        Associate = txtQuantity
    754701        Max = 32766
    755         Position = 0
    756702        TabOrder = 4
    757         Wrap = False
    758         OnChangingEx = spnQuantityChangingEx
    759703      end
    760704      object txtRefills: TCaptionEdit
    … …  
    766710        TabOrder = 5
    767711        Text = '0'
    768         OnChange = ControlChange
     712        OnChange = txtRefillsChange
    769713        OnClick = txtRefillsClick
    770714        Caption = 'Refills'
    … …  
    776720        Height = 21
    777721        Associate = txtRefills
    778         Min = 0
    779722        Max = 11
    780         Position = 0
    781723        TabOrder = 6
    782         Wrap = False
    783724      end
    784725      object grpPickup: TGroupBox
    … …  
    839780        Sorted = False
    840781        SynonymChars = '<>'
    841         TabOrder = 10
     782        TabOrder = 9
    842783        OnChange = ControlChange
    843784        CharsNeedMatch = 1
    844       end
    845       object chkSC: TCheckBox
    846         Left = 3
    847         Top = 106
    848         Width = 175
    849         Height = 17
    850         Caption = 'for Service Connected condition'
    851         ParentShowHint = False
    852         ShowHint = True
    853         TabOrder = 8
    854         OnClick = chkSCClick
    855         OnEnter = chkSCEnter
    856       end
    857       object lblAdminTime: TStaticText
    858         Left = 262
    859         Top = 120
    860         Width = 4
    861         Height = 4
    862         TabOrder = 16
    863785      end
    864786      object stcPI: TStaticText
    … …  
    898820      object memDrugMsg: TMemo
    899821        Left = 37
    900         Top = 176
     822        Top = 220
    901823        Width = 533
    902824        Height = 51
    … …  
    908830        Visible = False
    909831      end
    910     end
     832      object lblAdminSch: TMemo
     833        Left = 344
     834        Top = 120
     835        Width = 68
     836        Height = 15
     837        Anchors = [akLeft, akTop, akRight]
     838        Color = clCream
     839        ParentShowHint = False
     840        ReadOnly = True
     841        ScrollBars = ssVertical
     842        ShowHint = True
     843        TabOrder = 10
     844        Visible = False
     845      end
     846      object lblAdminTime: TVA508StaticText
     847        Name = 'lblAdminTime'
     848        Left = 164
     849        Top = 116
     850        Width = 64
     851        Height = 15
     852        Alignment = taLeftJustify
     853        Caption = 'lblAdminTime'
     854        TabOrder = 11
     855        TabStop = True
     856        ShowAccelChar = True
     857      end
     858    end
     859    object cboXSequence: TORComboBox
     860      Left = 438
     861      Top = 122
     862      Width = 64
     863      Height = 21
     864      Style = orcsDropDown
     865      AutoSelect = True
     866      Caption = 'Sequence'
     867      Color = clWindow
     868      DropDownCount = 8
     869      Items.Strings = (
     870        'and'
     871        'then')
     872      ItemHeight = 13
     873      ItemTipColor = clWindow
     874      ItemTipEnable = True
     875      ListItemsOnly = False
     876      LongList = False
     877      LookupPiece = 0
     878      MaxLength = 0
     879      Sorted = False
     880      SynonymChars = '<>'
     881      TabOrder = 6
     882      Visible = False
     883      OnChange = cboXSequenceChange
     884      OnEnter = cboXSequenceEnter
     885      OnExit = cboXSequenceExit
     886      OnKeyDown = memMessageKeyDown
     887      CharsNeedMatch = 1
     888    end
     889  end
     890  inherited cmdAccept: TButton
     891    Left = 514
     892    Top = 505
     893    Anchors = [akRight, akBottom]
     894    TabOrder = 6
     895    TabStop = False
     896    Visible = False
     897    ExplicitLeft = 514
     898    ExplicitTop = 505
     899  end
     900  inherited cmdQuit: TButton
     901    Left = 514
     902    Top = 530
     903    Width = 51
     904    Anchors = [akRight, akBottom]
     905    TabOrder = 7
     906    ExplicitLeft = 514
     907    ExplicitTop = 530
     908    ExplicitWidth = 51
     909  end
     910  inherited pnlMessage: TPanel
     911    Left = 31
     912    Top = 200
     913    OnEnter = pnlMessageEnter
     914    ExplicitLeft = 31
     915    ExplicitTop = 200
     916    inherited imgMessage: TImage
     917      Left = 2
     918      ExplicitLeft = 2
     919    end
     920    inherited memMessage: TRichEdit
     921      OnKeyDown = memMessageKeyDown
     922    end
     923  end
     924  inherited amgrMain: TVA508AccessibilityManager
     925    Data = (
     926      (
     927        'Component = pnlMeds'
     928        'Status = stsDefault')
     929      (
     930        'Component = lstQuick'
     931        'Text = Quick Orders'
     932        'Status = stsOK')
     933      (
     934        'Component = lstAll'
     935        'Text = Medications'
     936        'Status = stsOK')
     937      (
     938        'Component = txtMed'
     939        'Text = Medication'
     940        'Status = stsOK')
     941      (
     942        'Component = btnSelect'
     943        'Status = stsDefault')
     944      (
     945        'Component = pnlFields'
     946        'Status = stsDefault')
     947      (
     948        'Component = pnlTop'
     949        'Status = stsDefault')
     950      (
     951        'Component = grdDoses'
     952        'Status = stsDefault')
     953      (
     954        'Component = lblGuideline'
     955        'Status = stsDefault')
     956      (
     957        'Component = tabDose'
     958        'Status = stsDefault')
     959      (
     960        'Component = cboDosage'
     961        'Status = stsDefault')
     962      (
     963        'Component = cboRoute'
     964        'Status = stsDefault')
     965      (
     966        'Component = cboSchedule'
     967        'Status = stsDefault')
     968      (
     969        'Component = chkPRN'
     970        'Status = stsDefault')
     971      (
     972        'Component = btnXInsert'
     973        'Status = stsDefault')
     974      (
     975        'Component = btnXRemove'
     976        'Status = stsDefault')
     977      (
     978        'Component = pnlXAdminTime'
     979        'Status = stsDefault')
     980      (
     981        'Component = cboXDosage'
     982        'Status = stsDefault')
     983      (
     984        'Component = cboXRoute'
     985        'Status = stsDefault')
     986      (
     987        'Component = pnlXDuration'
     988        'Status = stsDefault')
     989      (
     990        'Component = pnlXDurationButton'
     991        'Status = stsDefault')
     992      (
     993        'Component = txtXDuration'
     994        'Status = stsDefault')
     995      (
     996        'Component = spnXDuration'
     997        'Status = stsDefault')
     998      (
     999        'Component = pnlXSchedule'
     1000        'Status = stsDefault')
     1001      (
     1002        'Component = cboXSchedule'
     1003        'Status = stsDefault')
     1004      (
     1005        'Component = chkXPRN'
     1006        'Status = stsDefault')
     1007      (
     1008        'Component = pnlBottom'
     1009        'Status = stsDefault')
     1010      (
     1011        'Component = chkDoseNow'
     1012        'Status = stsDefault')
     1013      (
     1014        'Component = memComment'
     1015        'Status = stsDefault')
     1016      (
     1017        'Component = lblQtyMsg'
     1018        'Status = stsDefault')
     1019      (
     1020        'Component = txtSupply'
     1021        'Status = stsDefault')
     1022      (
     1023        'Component = spnSupply'
     1024        'Status = stsDefault')
     1025      (
     1026        'Component = txtQuantity'
     1027        'Status = stsDefault')
     1028      (
     1029        'Component = spnQuantity'
     1030        'Status = stsDefault')
     1031      (
     1032        'Component = txtRefills'
     1033        'Status = stsDefault')
     1034      (
     1035        'Component = spnRefills'
     1036        'Status = stsDefault')
     1037      (
     1038        'Component = grpPickup'
     1039        'Status = stsDefault')
     1040      (
     1041        'Component = radPickWindow'
     1042        'Status = stsDefault')
     1043      (
     1044        'Component = radPickMail'
     1045        'Status = stsDefault')
     1046      (
     1047        'Component = radPickClinic'
     1048        'Status = stsDefault')
     1049      (
     1050        'Component = cboPriority'
     1051        'Status = stsDefault')
     1052      (
     1053        'Component = stcPI'
     1054        'Status = stsDefault')
     1055      (
     1056        'Component = chkPtInstruct'
     1057        'Status = stsDefault')
     1058      (
     1059        'Component = memPI'
     1060        'Status = stsDefault')
     1061      (
     1062        'Component = memDrugMsg'
     1063        'Status = stsDefault')
     1064      (
     1065        'Component = memOrder'
     1066        'Status = stsDefault')
     1067      (
     1068        'Component = cmdAccept'
     1069        'Status = stsDefault')
     1070      (
     1071        'Component = cmdQuit'
     1072        'Status = stsDefault')
     1073      (
     1074        'Component = pnlMessage'
     1075        'Status = stsDefault')
     1076      (
     1077        'Component = memMessage'
     1078        'Status = stsDefault')
     1079      (
     1080        'Component = frmODMeds'
     1081        'Status = stsDefault')
     1082      (
     1083        'Component = cboXSequence'
     1084        'Status = stsDefault')
     1085      (
     1086        'Component = lblAdminSch'
     1087        'Status = stsDefault')
     1088      (
     1089        'Component = lblAdminTime'
     1090        'Status = stsDefault'))
    9111091  end
    9121092  object dlgStart: TORDateTimeDlg
    913     FMDateTime = 3001101
     1093    FMDateTime = 3001101.000000000000000000
    9141094    DateOnly = False
    9151095    RequireTime = True
    … …  
    9581138    end
    9591139  end
    960   object popXSequence: TPopupMenu
    961     AutoHotkeys = maManual
    962     Left = 448
    963     Top = 145
    964     object and1: TMenuItem
    965       Tag = 1
    966       Caption = 'and'
    967       OnClick = popXSequenceClick
    968     end
    969     object then1: TMenuItem
    970       Tag = 2
    971       Caption = 'then'
    972       OnClick = popXSequenceClick
    973     end
    974   end
    9751140end
Note: See TracChangeset for help on using the changeset viewer.