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

    r830 r1679  
    11inherited frmARTAllergy: TfrmARTAllergy
    22  Tag = 1105
    3   Left = 339
    4   Top = 266
     3  Left = 274
     4  Top = 150
    55  Caption = 'Enter Allergy or Adverse Reaction'
    66  ClientHeight = 438
    77  ClientWidth = 553
    8   Position = poScreenCenter
     8  FormStyle = fsStayOnTop
     9  Position = poDesigned
    910  OnClose = FormClose
    1011  OnCloseQuery = FormCloseQuery
    1112  OnCreate = FormCreate
    1213  ExplicitWidth = 561
    13   ExplicitHeight = 472
     14  ExplicitHeight = 465
    1415  PixelsPerInch = 96
    1516  TextHeight = 13
    … …  
    7475          WordWrap = False
    7576        end
    76         object btnAgent: TSpeedButton
     77        object btnAgent1: TSpeedButton
    7778          Left = 175
    7879          Top = 62
    … …  
    8081          Height = 19
    8182          Caption = '...'
     83          Enabled = False
    8284          Font.Charset = DEFAULT_CHARSET
    8385          Font.Color = clWindowText
    … …  
    8688          Font.Style = [fsBold]
    8789          ParentFont = False
    88           OnClick = btnAgentClick
     90          OnClick = btnAgent1Click
    8991        end
    9092        object lblOriginator: TOROffsetLabel
    … …  
    111113        end
    112114        object Bevel1: TBevel
    113           Left = 7
    114           Top = 299
     115          Left = 3
     116          Top = 312
    115117          Width = 502
    116           Height = 36
     118          Height = 26
    117119        end
    118120        object lblSymptoms: TOROffsetLabel
    … …  
    188190          Height = 17
    189191          Caption = '&No Known Allergies'
    190           TabOrder = 0
     192          TabOrder = 1
    191193          OnClick = ckNoKnownAllergiesClick
    192194        end
    … …  
    197199          Height = 21
    198200          Caption = '&Active Allergies'
    199           TabOrder = 1
     201          TabOrder = 2
    200202          OnClick = btnCurrentClick
    201203        end
    … …  
    210212          ParentShowHint = False
    211213          ShowHint = True
    212           TabOrder = 2
     214          TabOrder = 3
    213215          OnClick = lstAllergyClick
    214216          ItemTipColor = clWindow
    … …  
    245247          Sorted = False
    246248          SynonymChars = '<>'
    247           TabOrder = 4
     249          TabOrder = 8
     250          TabStop = True
    248251          OnChange = ControlChange
    249252          OnNeedData = cboOriginatorNeedData
    … …  
    257260          Color = clBtnFace
    258261          Enabled = False
    259           TabOrder = 5
     262          TabOrder = 9
    260263          OnChange = ControlChange
    261264          DateOnly = False
    … …  
    264267        object ckChartMarked: TCheckBox
    265268          Left = 294
    266           Top = 307
     269          Top = 313
    267270          Width = 113
    268           Height = 17
     271          Height = 22
    269272          Caption = '&Marked On Chart'
    270273          Checked = True
    271274          State = cbChecked
    272           TabOrder = 18
     275          TabOrder = 22
    273276          Visible = False
    274277          OnClick = ControlChange
    … …  
    276279        object ckIDBand: TCheckBox
    277280          Left = 122
    278           Top = 307
     281          Top = 313
    279282          Width = 97
    280           Height = 17
     283          Height = 22
    281284          Caption = '&ID Band Marked'
    282           TabOrder = 17
     285          TabOrder = 21
    283286          OnClick = ControlChange
    284287        end
    … …  
    290293          Style = orcsSimple
    291294          AutoSelect = True
     295          Caption = 'Signs and Symptoms'
    292296          Color = clWindow
    293297          DropDownCount = 8
    … …  
    302306          Sorted = False
    303307          SynonymChars = '<>'
    304           TabOrder = 11
     308          TabOrder = 15
    305309          OnKeyDown = cboSymptomsKeyDown
    306310          OnMouseClick = cboSymptomsMouseClick
    … …  
    317321          ParentShowHint = False
    318322          ShowHint = True
    319           TabOrder = 12
     323          TabOrder = 16
     324          Caption = 'Selected Symptoms'
    320325          ItemTipColor = clWindow
    321326          LongList = False
    … …  
    323328          OnChange = lstSelectedSymptomsChange
    324329        end
    325         object btnDateTime: TButton
    326           Left = 154
    327           Top = 270
    328           Width = 62
    329           Height = 21
    330           Caption = '&Date/Time'
    331           TabOrder = 13
    332           OnClick = btnDateTimeClick
    333         end
    334330        object btnRemove: TButton
    335           Left = 223
    336           Top = 270
    337           Width = 57
     331          Left = 148
     332          Top = 290
     333          Width = 132
    338334          Height = 21
    339335          Caption = '&Remove'
    340           TabOrder = 14
     336          Enabled = False
     337          TabOrder = 18
    341338          OnClick = btnRemoveClick
    342339        end
    343340        object grpObsHist: TRadioGroup
    344341          Left = 362
    345           Top = 2
     342          Top = 0
    346343          Width = 147
    347344          Height = 38
    … …  
    354351          ParentShowHint = False
    355352          ShowHint = True
    356           TabOrder = 7
     353          TabOrder = 11
     354          TabStop = True
    357355          OnClick = grpObsHistClick
    358356        end
    … …  
    364362          Style = orcsDropDown
    365363          AutoSelect = True
     364          Caption = 'Severity'
    366365          Color = clWindow
    367366          DropDownCount = 8
    … …  
    376375          Sorted = False
    377376          SynonymChars = '<>'
    378           TabOrder = 9
     377          TabOrder = 13
    379378          OnChange = ControlChange
    380379          OnExit = ControlChange
    … …  
    386385          Width = 145
    387386          Height = 21
    388           TabOrder = 8
     387          TabOrder = 12
    389388          OnChange = ControlChange
     389          OnExit = calObservedDateExit
    390390          DateOnly = False
    391391          RequireTime = False
    … …  
    397397          Height = 21
    398398          Caption = 'View &Previous Observations'
    399           TabOrder = 6
     399          TabOrder = 10
    400400          OnClick = cmdPrevObsClick
    401401        end
    … …  
    405405          Width = 213
    406406          Height = 112
     407          Hint = 'Comments'
    407408          Font.Charset = DEFAULT_CHARSET
    408409          Font.Color = clWindowText
    … …  
    412413          ParentFont = False
    413414          ScrollBars = ssVertical
    414           TabOrder = 15
     415          TabOrder = 19
    415416          OnExit = memCommentsExit
    416417        end
    … …  
    421422          Height = 21
    422423          Caption = '&View Previous Comments'
    423           TabOrder = 16
     424          TabOrder = 20
    424425          OnClick = cmdPrevCmtsClick
    425426        end
    … …  
    431432          Style = orcsDropDown
    432433          AutoSelect = True
     434          Caption = 'Nature of Reaction'
    433435          Color = clWindow
    434436          DropDownCount = 8
    … …  
    443445          Sorted = False
    444446          SynonymChars = '<>'
    445           TabOrder = 3
     447          TabOrder = 5
    446448          OnChange = ControlChange
    447449          CharsNeedMatch = 1
    448450        end
    449451        object btnSevHelp: TORAlignButton
    450           Left = 489
     452          Left = 488
    451453          Top = 96
    452454          Width = 21
    453455          Height = 21
     456          Hint = 'Severity Help'
    454457          Caption = '&?'
    455458          Font.Charset = DEFAULT_CHARSET
    … …  
    459462          Font.Style = [fsBold]
    460463          ParentFont = False
    461           TabOrder = 10
     464          ParentShowHint = False
     465          ShowHint = True
     466          TabOrder = 14
    462467          OnClick = btnSevHelpClick
     468        end
     469        object origlbl508: TVA508StaticText
     470          Name = 'origlbl508'
     471          Left = 294
     472          Top = -5
     473          Width = 47
     474          Height = 15
     475          Alignment = taLeftJustify
     476          Caption = 'Originator'
     477          Enabled = False
     478          TabOrder = 6
     479          ShowAccelChar = True
     480        end
     481        object origdtlbl508: TVA508StaticText
     482          Name = 'origdtlbl508'
     483          Left = 295
     484          Top = 43
     485          Width = 28
     486          Height = 15
     487          Alignment = taLeftJustify
     488          Caption = 'origdt'
     489          Enabled = False
     490          TabOrder = 7
     491          ShowAccelChar = True
     492        end
     493        object SymptomDateBox: TORDateBox
     494          Left = 148
     495          Top = 265
     496          Width = 135
     497          Height = 21
     498          Hint = 'Enter date/time for selected symptom '
     499          Enabled = False
     500          TabOrder = 17
     501          Text = 'NOW'
     502          OnExit = SymptomDateBoxExit
     503          DateOnly = False
     504          RequireTime = False
     505        end
     506        object btnAgent: TButton
     507          Left = 175
     508          Top = 62
     509          Width = 19
     510          Height = 19
     511          Caption = '...'
     512          Font.Charset = DEFAULT_CHARSET
     513          Font.Color = clWindowText
     514          Font.Height = -11
     515          Font.Name = 'MS Sans Serif'
     516          Font.Style = [fsBold]
     517          ParentFont = False
     518          TabOrder = 4
     519          OnClick = btnAgent1Click
     520        end
     521        object NoAllergylbl508: TVA508StaticText
     522          Name = 'NoAllergylbl508'
     523          Left = 10
     524          Top = 8
     525          Width = 6
     526          Height = 6
     527          Alignment = taLeftJustify
     528          Enabled = False
     529          TabOrder = 0
     530          TabStop = True
     531          Visible = False
     532          ShowAccelChar = True
    463533        end
    464534      end
    … …  
    504574          Style = orcsDropDown
    505575          AutoSelect = True
     576          Caption = 'Verified By'
    506577          Color = clWindow
    507578          DropDownCount = 8
    … …  
    530601          DateOnly = False
    531602          RequireTime = False
     603          Caption = 'Date Verified'
    532604        end
    533605      end
    … …  
    581653          ScrollBars = ssVertical
    582654          TabOrder = 1
    583           OnExit = memCommentsExit
     655          OnExit = memErrCmtsExit
    584656        end
    585657      end
    … …  
    612684  end
    613685  inherited amgrMain: TVA508AccessibilityManager
     686    Left = 168
     687    Top = 56
    614688    Data = (
    615689      (
    … …  
    627701      (
    628702        'Component = tabGeneral'
    629         'Status = stsDefault')
     703        'Property = Caption'
     704        'Status = stsOK')
    630705      (
    631706        'Component = ckNoKnownAllergies'
    … …  
    636711      (
    637712        'Component = lstAllergy'
    638         'Status = stsDefault')
     713        'Text = Causative Agent'
     714        'Status = stsOK')
    639715      (
    640716        'Component = cboOriginator'
    … …  
    651727      (
    652728        'Component = cboSymptoms'
    653         'Status = stsDefault')
     729       
     730          'Text = Signs and Symptoms. Press enter to select the sign/sympto' +
     731          'm.'
     732        'Status = stsOK')
    654733      (
    655734        'Component = lstSelectedSymptoms'
    656         'Status = stsDefault')
    657       (
    658         'Component = btnDateTime'
    659         'Status = stsDefault')
     735        'Text = Selected Symptoms'
     736        'Status = stsOK')
    660737      (
    661738        'Component = btnRemove'
    … …  
    663740      (
    664741        'Component = grpObsHist'
    665         'Status = stsDefault')
     742        'Text = Observed or Historical Allergy Group Box'
     743        'Status = stsOK')
    666744      (
    667745        'Component = cboSeverity'
    … …  
    669747      (
    670748        'Component = calObservedDate'
    671         'Status = stsDefault')
     749        'Text = Reaction Date/Time'
     750        'Status = stsOK')
    672751      (
    673752        'Component = cmdPrevObs'
    … …  
    684763      (
    685764        'Component = btnSevHelp'
    686         'Status = stsDefault')
     765        'Text = Severity Help'
     766        'Status = stsOK')
    687767      (
    688768        'Component = tabVerify'
    689         'Status = stsDefault')
     769        'Property = Caption'
     770        'Status = stsOK')
    690771      (
    691772        'Component = ckVerified'
    … …  
    699780      (
    700781        'Component = tabEnteredInError'
    701         'Status = stsDefault')
     782        'Property = Caption'
     783        'Status = stsOK')
    702784      (
    703785        'Component = ckEnteredInError'
    … …  
    705787      (
    706788        'Component = memErrCmts'
    707         'Status = stsDefault')
     789        'Text = Comments (optional)'
     790        'Status = stsOK')
    708791      (
    709792        'Component = cboAllergyType'
    … …  
    711794      (
    712795        'Component = frmARTAllergy'
    713         'Status = stsDefault'))
     796        'Status = stsDefault')
     797      (
     798        'Component = origlbl508'
     799        'Status = stsDefault')
     800      (
     801        'Component = origdtlbl508'
     802        'Status = stsDefault')
     803      (
     804        'Component = SymptomDateBox'
     805        'Property = Hint'
     806        'Status = stsOK')
     807      (
     808        'Component = btnAgent'
     809        'Text = Causative Agent Reselect'
     810        'Status = stsOK')
     811      (
     812        'Component = NoAllergylbl508'
     813        'Text = No Known Allergies checkbox disabled'
     814        'Status = stsOK'))
    714815  end
    715   object dlgReactionDateTime: TORDateTimeDlg
    716     FMDateTime = 2981202.000000000000000000
    717     DateOnly = False
    718     RequireTime = False
    719     Left = 5
    720     Top = 400
     816  object VA508ComponentAccessibility1: TVA508ComponentAccessibility
     817    Component = memComments
     818    OnStateQuery = VA508ComponentAccessibility1StateQuery
     819    Left = 408
     820    Top = 216
     821  end
     822  object VA508ComponentAccessibility2: TVA508ComponentAccessibility
     823    Component = lstAllergy
     824    OnComponentNameQuery = VA508ComponentAccessibility2ComponentNameQuery
     825    OnCaptionQuery = VA508ComponentAccessibility2CaptionQuery
     826    OnValueQuery = VA508ComponentAccessibility2ValueQuery
     827    OnStateQuery = VA508ComponentAccessibility2StateQuery
     828    OnInstructionsQuery = VA508ComponentAccessibility2InstructionsQuery
     829    OnItemInstructionsQuery = VA508ComponentAccessibility2ItemInstructionsQuery
     830    OnItemQuery = VA508ComponentAccessibility2ItemQuery
     831    Left = 104
     832    Top = 104
     833  end
     834  object VA508ComponentAccessibility3: TVA508ComponentAccessibility
     835    Component = memErrCmts
     836    OnStateQuery = VA508ComponentAccessibility3StateQuery
     837    Left = 264
     838    Top = 216
    721839  end
    722840end
Note: See TracChangeset for help on using the changeset viewer.