Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

Location:
cprs/trunk/CPRS-Chart/Encounter
Files:
42 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Encounter/fDiagnoses.dfm

    r456 r829  
    55  PixelsPerInch = 96
    66  TextHeight = 13
    7   object lblAdd2PL: TLabel [0]
    8     Left = 555
    9     Top = 255
    10     Width = 53
    11     Height = 26
    12     Caption = 'Add to Problem list'
    13     WordWrap = True
    14   end
    157  inherited lblSection: TLabel
    168    Width = 89
    179    Caption = 'Diagnoses Section'
     10    ExplicitWidth = 89
    1811  end
    1912  inherited btnOK: TBitBtn
    … …  
    2619    Width = 523
    2720    TabOrder = 1
     21    ExplicitWidth = 523
    2822    inherited lbGrid: TORListBox
    2923      Tag = 20
    3024      Width = 523
    3125      Pieces = '1,2,3'
     26      ExplicitWidth = 523
    3227    end
    3328    inherited hcGrid: THeaderControl
    … …  
    5247          Width = 110
    5348        end>
     49      ExplicitWidth = 523
    5450    end
    5551  end
    5652  inherited edtComment: TCaptionEdit
    5753    TabOrder = 3
     54  end
     55  object cmdDiagPrimary: TButton [8]
     56    Left = 536
     57    Top = 306
     58    Width = 75
     59    Height = 21
     60    Caption = 'Primary'
     61    Enabled = False
     62    TabOrder = 5
     63    OnClick = cmdDiagPrimaryClick
     64  end
     65  object ckbDiagProb: TCheckBox [9]
     66    Left = 535
     67    Top = 258
     68    Width = 76
     69    Height = 38
     70    Caption = 'Add to Problem list'
     71    TabOrder = 4
     72    WordWrap = True
     73    OnClick = ckbDiagProbClicked
    5874  end
    5975  inherited btnRemove: TButton
    … …  
    6480    TabOrder = 2
    6581    TabStop = True
     82    ExplicitLeft = 454
    6683  end
    6784  inherited pnlMain: TPanel
    … …  
    7289      IntegralHeight = True
    7390      Pieces = '2,3,4,5'
     91      ExplicitHeight = 196
    7492    end
    7593    inherited pnlLeft: TPanel
    … …  
    85103    end
    86104  end
    87   object cmdDiagPrimary: TButton
    88     Left = 536
    89     Top = 306
    90     Width = 75
    91     Height = 21
    92     Caption = 'Primary'
    93     Enabled = False
    94     TabOrder = 5
    95     OnClick = cmdDiagPrimaryClick
    96   end
    97   object ckbDiagProb: TCheckBox
    98     Left = 536
    99     Top = 262
    100     Width = 13
    101     Height = 13
    102     Caption = 'Add to Problem list'
    103     TabOrder = 4
    104     OnClick = ckbDiagProbClicked
     105  inherited amgrMain: TVA508AccessibilityManager
     106    Data = (
     107      (
     108        'Component = cmdDiagPrimary'
     109        'Status = stsDefault')
     110      (
     111        'Component = ckbDiagProb'
     112        'Status = stsDefault')
     113      (
     114        'Component = edtComment'
     115        'Label = lblComment'
     116        'Status = stsOK')
     117      (
     118        'Component = btnRemove'
     119        'Status = stsDefault')
     120      (
     121        'Component = btnSelectAll'
     122        'Status = stsDefault')
     123      (
     124        'Component = pnlMain'
     125        'Status = stsDefault')
     126      (
     127        'Component = lbxSection'
     128        'Label = lblList'
     129        'Status = stsOK')
     130      (
     131        'Component = pnlLeft'
     132        'Status = stsDefault')
     133      (
     134        'Component = lbSection'
     135        'Label = lblSection'
     136        'Status = stsOK')
     137      (
     138        'Component = btnOther'
     139        'Status = stsDefault')
     140      (
     141        'Component = pnlGrid'
     142        'Status = stsDefault')
     143      (
     144        'Component = lbGrid'
     145        'Status = stsDefault')
     146      (
     147        'Component = hcGrid'
     148        'Status = stsDefault')
     149      (
     150        'Component = btnOK'
     151        'Status = stsDefault')
     152      (
     153        'Component = btnCancel'
     154        'Status = stsDefault')
     155      (
     156        'Component = frmDiagnoses'
     157        'Status = stsDefault'))
    105158  end
    106159end

  • cprs/trunk/CPRS-Chart/Encounter/fDiagnoses.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, CheckLst, ORCtrls, ORNet, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   ComCtrls, fPCEBaseMain, UBAGlobals, UBAConst, UCore;
     8  ComCtrls, fPCEBaseMain, UBAGlobals, UBAConst, UCore, VA508AccessibilityManager;
    99
    1010type
    … …  
    1212    cmdDiagPrimary: TButton;
    1313    ckbDiagProb: TCheckBox;
    14     lblAdd2PL: TLabel;
    1514    procedure cmdDiagPrimaryClick(Sender: TObject);
    1615    procedure ckbDiagProbClicked(Sender: TObject);
    … …  
    4948
    5049uses
    51   fEncounterFrame, uConst, UBACore;
     50  fEncounterFrame, uConst, UBACore, VA508AccessibilityRouter;
    5251
    5352procedure TfrmDiagnoses.EnsurePrimaryDiag;
    … …  
    153152            PLItemCount := PLItemCount + 1;
    154153      OK := OK and (PLItemCount < lbGrid.SelCount);
    155       lblAdd2PL.Enabled := OK;
    156154      ckbDiagProb.Enabled := OK;
    157155      if(OK) then
    … …  
    182180begin
    183181  inherited;
     182  if lbxSection.width = 0 then Exit;
    184183  FSectionTabs[0] := -(lbxSection.width - LBCheckWidthSpace - (8*MainFontWidth) - ScrollBarWidth);
    185184  FSectionTabs[1] := -FSectionTabs[0]+2;
    … …  
    257256end;
    258257
     258initialization
     259  SpecifyFormIsNotADialog(TfrmDiagnoses);
     260
    259261end.

  • cprs/trunk/CPRS-Chart/Encounter/fEncVitals.dfm

    r456 r829  
    33  Top = 210
    44  Caption = 'Vitals'
    5   KeyPreview = True
    65  OnActivate = FormActivate
    7   OnDestroy = FormDestroy
    8   OnKeyDown = FormKeyDown
    9   OnResize = FormResize
     6  OnShow = FormShow
     7  ExplicitWidth = 632
     8  ExplicitHeight = 427
    109  PixelsPerInch = 96
    1110  TextHeight = 13
    … …  
    1514    Width = 624
    1615    Height = 368
    17     Hint = 'To sort, click on column headers|'
    1816    Align = alClient
    1917    Columns = <>
    … …  
    3533    Align = alBottom
    3634    BevelOuter = bvNone
    37     TabOrder = 5
     35    TabOrder = 4
     36    object btnEnterVitals: TButton
     37      Left = 8
     38      Top = 6
     39      Width = 75
     40      Height = 21
     41      Caption = 'Enter Vitals'
     42      TabOrder = 0
     43      OnClick = btnEnterVitalsClick
     44    end
     45    object btnOKkludge: TButton
     46      Left = 434
     47      Top = 6
     48      Width = 75
     49      Height = 21
     50      Caption = 'OK'
     51      TabOrder = 1
     52      OnClick = btnOKClick
     53    end
     54    object btnCancelkludge: TButton
     55      Left = 522
     56      Top = 6
     57      Width = 75
     58      Height = 21
     59      Caption = 'Cancel'
     60      TabOrder = 2
     61      OnClick = btnCancelClick
     62    end
    3863  end
    3964  inherited btnOK: TBitBtn
    40     Left = 444
    41     Top = 377
    42     TabOrder = 3
     65    Left = 208
     66    Top = 374
     67    Caption = 'OK No Show'
     68    TabOrder = 2
     69    Visible = False
     70    ExplicitLeft = 208
     71    ExplicitTop = 374
    4372  end
    4473  inherited btnCancel: TBitBtn
    45     Left = 524
    46     Top = 377
    47     TabOrder = 4
     74    Left = 289
     75    Top = 374
     76    Caption = 'Cancel No Show'
     77    TabOrder = 3
     78    Visible = False
     79    ExplicitLeft = 289
     80    ExplicitTop = 374
    4881  end
    49   object pnlmain: TPanel
     82  object pnlmain: TPanel [4]
    5083    Left = 28
    5184    Top = 24
    … …  
    443476    end
    444477  end
    445   object btnEnterVitals: TButton
    446     Left = 8
    447     Top = 377
    448     Width = 75
    449     Height = 21
    450     Caption = 'Enter Vitals'
    451     TabOrder = 2
    452     OnClick = btnEnterVitalsClick
     478  inherited amgrMain: TVA508AccessibilityManager
     479    Data = (
     480      (
     481        'Component = lvVitals'
     482        'Status = stsDefault')
     483      (
     484        'Component = pnlBottom'
     485        'Status = stsDefault')
     486      (
     487        'Component = btnEnterVitals'
     488        'Status = stsDefault')
     489      (
     490        'Component = btnOKkludge'
     491        'Status = stsDefault')
     492      (
     493        'Component = btnCancelkludge'
     494        'Status = stsDefault')
     495      (
     496        'Component = pnlmain'
     497        'Status = stsDefault')
     498      (
     499        'Component = lblDate'
     500        'Status = stsDefault')
     501      (
     502        'Component = lblDateBP'
     503        'Status = stsDefault')
     504      (
     505        'Component = lblDateTemp'
     506        'Status = stsDefault')
     507      (
     508        'Component = lblDateResp'
     509        'Status = stsDefault')
     510      (
     511        'Component = lblDatePulse'
     512        'Status = stsDefault')
     513      (
     514        'Component = lblDateHeight'
     515        'Status = stsDefault')
     516      (
     517        'Component = lblDateWeight'
     518        'Status = stsDefault')
     519      (
     520        'Component = lblLstMeas'
     521        'Status = stsDefault')
     522      (
     523        'Component = lbllastBP'
     524        'Status = stsDefault')
     525      (
     526        'Component = lblLastTemp'
     527        'Status = stsDefault')
     528      (
     529        'Component = lblLastResp'
     530        'Status = stsDefault')
     531      (
     532        'Component = lblLastPulse'
     533        'Status = stsDefault')
     534      (
     535        'Component = lblLastHeight'
     536        'Status = stsDefault')
     537      (
     538        'Component = lblLastWeight'
     539        'Status = stsDefault')
     540      (
     541        'Component = lblVital'
     542        'Status = stsDefault')
     543      (
     544        'Component = lblVitBP'
     545        'Status = stsDefault')
     546      (
     547        'Component = lnlVitTemp'
     548        'Status = stsDefault')
     549      (
     550        'Component = lblVitResp'
     551        'Status = stsDefault')
     552      (
     553        'Component = lblVitPulse'
     554        'Status = stsDefault')
     555      (
     556        'Component = lblVitHeight'
     557        'Status = stsDefault')
     558      (
     559        'Component = lblVitWeight'
     560        'Status = stsDefault')
     561      (
     562        'Component = lblVitPain'
     563        'Status = stsDefault')
     564      (
     565        'Component = lblLastPain'
     566        'Status = stsDefault')
     567      (
     568        'Component = lblDatePain'
     569        'Status = stsDefault')
     570      (
     571        'Component = txtMeasBP'
     572        'Status = stsDefault')
     573      (
     574        'Component = cboTemp'
     575        'Status = stsDefault')
     576      (
     577        'Component = txtMeasTemp'
     578        'Status = stsDefault')
     579      (
     580        'Component = txtMeasResp'
     581        'Status = stsDefault')
     582      (
     583        'Component = cboHeight'
     584        'Status = stsDefault')
     585      (
     586        'Component = txtMeasWt'
     587        'Status = stsDefault')
     588      (
     589        'Component = cboWeight'
     590        'Status = stsDefault')
     591      (
     592        'Component = txtMeasDate'
     593        'Status = stsDefault')
     594      (
     595        'Component = cboPain'
     596        'Status = stsDefault')
     597      (
     598        'Component = txtMeasPulse'
     599        'Status = stsDefault')
     600      (
     601        'Component = txtMeasHt'
     602        'Status = stsDefault')
     603      (
     604        'Component = btnOK'
     605        'Status = stsDefault')
     606      (
     607        'Component = btnCancel'
     608        'Status = stsDefault')
     609      (
     610        'Component = frmEncVitals'
     611        'Status = stsDefault'))
    453612  end
    454613end

  • cprs/trunk/CPRS-Chart/Encounter/fEncVitals.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, ORDtTm, StdCtrls, ORCtrls, ExtCtrls, Buttons, fAutoSz, ORFn,
    8   rvitals, ComCtrls, ORNet, uVitals
    9   , TRPCB // Vitals Lite 2004-05-21 ===========================================
    10   ;
    11 {== Vitals Lite 2004-05-21 ===================================================}
    12 type
    13   TGMV_GetInputPanel = function(
    14     var anApp: TApplication;
    15     aB: TRPCBroker;
    16     aP,         // Patient DFN
    17     aL,         // Hospitals IEN
    18     aSig,       // Application signature
    19     aTemplate   // Vitals Input template
    20         : String;
    21     aNow        // Input Date/Time
    22         :TDateTime):TCustomForm;
    23 {== Vitals Lite 2004-05-21 ===================================================}
     8  rvitals, ComCtrls, ORNet, uVitals, VAUtils, TRPCB, VA508AccessibilityManager;
    249
    2510type
    … …  
    6348    txtMeasHt: TCaptionEdit;
    6449    pnlBottom: TPanel;
     50    lvVitals: TCaptionListView;
    6551    btnEnterVitals: TButton;
    66     lvVitals: TCaptionListView;
     52    btnOKkludge: TButton;
     53    btnCancelkludge: TButton;
    6754    procedure SetVitPointer(Sender: TObject);
    6855    procedure txtMeasBPExit(Sender: TObject);
    … …  
    8774    procedure txtMeasHtExit(Sender: TObject);
    8875    procedure txtMeasWtExit(Sender: TObject);
    89     procedure FormKeyDown(Sender: TObject; var Key: Word;
    90       Shift: TShiftState);
    9176    procedure btnEnterVitalsClick(Sender: TObject); //vitals lite
    9277  private
    … …  
    120105     fEncounterFrame, uInit
    121106  //   , fGMV_InputTemp // Vitals Lite 2004-05-21
    122      ;
     107     , VA508AccessibilityRouter;
    123108
    124109const
    … …  
    418403
    419404{== Vitals Lite 2004-05-21 ===================================================}
    420   FreeLibrary(VitalsDLLHandle);
     405  if VitalsDLLHandle <> 0 then
     406  begin
     407    FreeLibrary(VitalsDLLHandle);
     408    VitalsDLLHandle := 0;
     409  end;
    421410{== Vitals Lite 2004-05-21 ===================================================}
    422411  inherited;
    … …  
    448437  GMV_LibName :='GMV_VitalsViewEnter.dll';
    449438  GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
    450   VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
     439  if VitalsDLLHandle = 0 then
     440    VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
    451441  if VitalsDLLHandle = 0 then // No Handle found
    452442    MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0)
    … …  
    555545  txtMeasWt.text    := '';
    556546  cboPain.text      := '';
    557 end;
    558 
    559 procedure TfrmEncVitals.FormKeyDown(Sender: TObject; var Key: Word;
    560   Shift: TShiftState);
    561 begin
    562   {capture return key press if on the vital screen}
    563   begin
    564     inherited;
    565     if (ActiveCtrl.tag in VitalDateTagSet)then
    566     begin
    567       if Key = VK_RETURN then
    568       begin
    569         Key := 0;
    570         if (ActiveCtrl.Tag = TAG_VITPAIN) then
    571           ChangeFocus(btnOK)
    572         else
    573         begin
    574           GetParentForm(Self).Perform(WM_NEXTDLGCTL,0,0);
    575           SetVitPointer(Sender);
    576         end;
    577       end;
    578     end;
    579   end;
    580547end;
    581548
    … …  
    636603  end
    637604  else
    638     MessageDLG('Can not find function "'+GMV_FName+'".',mtError,[mbok],0);
     605    MessageDLG('Unable to find function "'+GMV_FName+'".',mtError,[mbok],0);
    639606  @VLPtVitals := nil;
    640607  LoadVitalsList;
    … …  
    652619  if assigned(VLPtVitals) then
    653620  begin
    654     frmFrame.VitalsDLLActive := True;  // need this flag for CCOW (RV)
     621//    frmFrame.DLLActive := True;  // need this flag for CCOW (RV)
    655622    VitalsList := VLPtVitals(RPCBrokerV,Patient.DFN,U,false);
    656623    if assigned(VitalsList) then
    … …  
    660627    MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0);
    661628  @VLPtVitals := nil;
    662   frmFrame.VitalsDLLActive := False;  // need this flag for CCOW (RV)
     629//  frmFrame.DLLActive := False;  // need this flag for CCOW (RV)
    663630end;
    664631//End Vitals Lite
    665632
     633initialization
     634  SpecifyFormIsNotADialog(TfrmEncVitals);
     635
    666636end.

  • cprs/trunk/CPRS-Chart/Encounter/fEncounterFrame.dfm

    r456 r829  
    1 object frmEncounterFrame: TfrmEncounterFrame
     1inherited frmEncounterFrame: TfrmEncounterFrame
    22  Left = 290
    33  Top = 108
    4   Width = 640
    5   Height = 451
    64  Caption = 'Encounter Frame'
    7   Color = clBtnFace
    8   Font.Charset = DEFAULT_CHARSET
    9   Font.Color = clWindowText
    10   Font.Height = -11
    11   Font.Name = 'MS Sans Serif'
    12   Font.Style = []
     5  ClientHeight = 424
     6  ClientWidth = 632
    137  FormStyle = fsMDIForm
    14   KeyPreview = True
    158  OldCreateOrder = True
    169  Position = poScreenCenter
    … …  
    2013  OnCreate = FormCreate
    2114  OnDestroy = FormDestroy
    22   OnKeyDown = FormKeyDown
    2315  OnResize = FormResize
     16  OnShow = FormShow
     17  ExplicitLeft = 290
     18  ExplicitTop = 108
     19  ExplicitWidth = 640
     20  ExplicitHeight = 458
    2421  PixelsPerInch = 96
    2522  TextHeight = 13
    26   object Bevel1: TBevel
     23  object Bevel1: TBevel [0]
    2724    Left = 0
    2825    Top = 0
    … …  
    3128    Align = alTop
    3229  end
    33   object StatusBar1: TStatusBar
     30  object StatusBar1: TStatusBar [1]
    3431    Left = 0
    35     Top = 417
     32    Top = 424
    3633    Width = 632
    3734    Height = 0
    3835    Panels = <>
    39     SimplePanel = False
    4036  end
    41   object pnlPage: TPanel
     37  object pnlPage: TPanel [2]
    4238    Left = 0
    4339    Top = 24
    4440    Width = 632
    45     Height = 393
     41    Height = 400
    4642    Align = alClient
    4743    BevelOuter = bvNone
    … …  
    5450    TabOrder = 1
    5551  end
    56   object TabControl: TTabControl
     52  object TabControl: TTabControl [3]
    5753    Left = 0
    5854    Top = 2
    … …  
    6359    OnChange = TabControlChange
    6460    OnChanging = TabControlChanging
    65     OnExit = TabControlExit
     61    OnEnter = TabControlEnter
     62  end
     63  inherited amgrMain: TVA508AccessibilityManager
     64    Data = (
     65      (
     66        'Component = StatusBar1'
     67        'Status = stsDefault')
     68      (
     69        'Component = pnlPage'
     70        'Status = stsDefault')
     71      (
     72        'Component = TabControl'
     73        'Status = stsDefault')
     74      (
     75        'Component = frmEncounterFrame'
     76        'Status = stsDefault'))
    6677  end
    6778end

  • cprs/trunk/CPRS-Chart/Encounter/fEncounterFrame.pas

    r456 r829  
    77  Tabs, ComCtrls, ExtCtrls, Menus, StdCtrls, Buttons, fPCEBase,
    88  fVisitType, fDiagnoses, fProcedure, fImmunization, fSkinTest, fPatientEd,
    9   fHealthFactor, fExam, uPCE, rPCE, rTIU, ORCtrls, ORFn, fEncVitals,rvitals;
     9  fHealthFactor, fExam, uPCE, rPCE, rTIU, ORCtrls, ORFn, fEncVitals, rvitals, fBase508Form,
     10  VA508AccessibilityManager;
    1011
    1112const
    … …  
    5657
    5758type
    58   TfrmEncounterFrame = class(TForm)
     59  TfrmEncounterFrame = class(TfrmBase508Form)
    5960    StatusBar1: TStatusBar;
    6061    pnlPage: TPanel;
    … …  
    7273    procedure TabControlChanging(Sender: TObject;
    7374      var AllowChange: Boolean);
    74     procedure TabControlExit(Sender: TObject);
    7575    procedure FormKeyDown(Sender: TObject; var Key: Word;
    7676      Shift: TShiftState);
    … …  
    7878    procedure FormCanResize(Sender: TObject; var NewWidth,
    7979      NewHeight: Integer; var Resize: Boolean);
     80    procedure FormShow(Sender: TObject);
     81    procedure TabControlEnter(Sender: TObject);
    8082
    8183  private
    … …  
    8890                            //in the frame.  They must be available at compile time
    8991    FLastPage: TfrmPCEBase;
     92    FGiveMultiTabMessage: boolean;
    9093    procedure CreateChildForms(Sender: TObject; Location: integer);
    9194    procedure SynchPCEData;
    … …  
    124127  uCore,
    125128  fGAF, uConst,
    126   rCore, fPCEProvider, rMisc;
     129  rCore, fPCEProvider, rMisc, VA508AccessibilityRouter, VAUtils;
    127130
    128131{$R *.DFM}
    … …  
    549552  FAbort := TRUE;
    550553  SetFormFonts;
     554  FGiveMultiTabMessage := ScreenReaderSystemActive;
    551555end;
    552556
    … …  
    582586        if (Storemessage <> 'True') then
    583587        begin
    584           showmessage(storemessage);
     588          ShowMsg(storemessage);
    585589//        exit;
    586590        end;
    … …  
    680684  if (sender as tTabControl).tabindex = -1 then exit;
    681685
     686  if TabControl.CanFocus and Assigned(FLastPage) and not TabControl.Focused then
     687    TabControl.SetFocus;  //CQ: 14845
     688
    682689  for i := CT_FIRST to CT_LAST do
    683690  begin
    … …  
    688695        PageIDToForm(i).show;
    689696        SwitchToPage(PageIDToForm(i));
     697        Exit;
    690698      end;
    691699  end;
    … …  
    736744end;
    737745
    738 procedure TfrmEncounterFrame.TabControlExit(Sender: TObject);
    739 var
    740   i: integer;
    741 begin
    742   //Keep the focus on the active page
    743   if (sender as tTabControl).tabindex = -1 then exit;
    744 
    745   for i := CT_FIRST to CT_LAST do
    746   begin
    747     with Formlist do
    748       with sender as tTabControl do
    749         if Tabindex = IndexOf(PageIdToTab(i)) then
    750       begin
    751         PageIDToForm(i).FocusFirstControl;
    752       end;
     746procedure TfrmEncounterFrame.TabControlEnter(Sender: TObject);
     747begin
     748  if FGiveMultiTabMessage then // CQ#15483
     749  begin
     750    FGiveMultiTabMessage := FALSE;
     751    GetScreenReader.Speak('Multi tab form');
    753752  end;
    754753end;
    … …  
    759758  CanChange: boolean;
    760759begin
     760  inherited;
    761761  if (Key = VK_ESCAPE) then
    762762  begin
    … …  
    788788    end;
    789789  end;
    790   if FLastPage = frmEncVitals then
    791     frmEncVitals.FormKeyDown(Sender, Key, Shift);
    792790end;
    793791
    … …  
    836834end;
    837835
     836procedure TfrmEncounterFrame.FormShow(Sender: TObject);
     837begin
     838  inherited;
     839  if TabControl.CanFocus then
     840    TabControl.SetFocus;
     841end;
     842
    838843end.

  • cprs/trunk/CPRS-Chart/Encounter/fExam.dfm

    r456 r829  
    33  Top = 223
    44  Caption = 'Encounter Examinations'
     5  ExplicitLeft = 509
     6  ExplicitTop = 223
    57  PixelsPerInch = 96
    68  TextHeight = 13
    … …  
    1517    Width = 65
    1618    Caption = 'Exam Section'
     19    ExplicitWidth = 65
    1720  end
    1821  inherited btnOK: TBitBtn
    … …  
    4750    TabOrder = 3
    4851  end
     52  object cboExamResults: TORComboBox [9]
     53    Tag = 60
     54    Left = 490
     55    Top = 280
     56    Width = 121
     57    Height = 21
     58    Style = orcsDropDown
     59    AutoSelect = True
     60    Caption = 'Results'
     61    Color = clWindow
     62    DropDownCount = 8
     63    Enabled = False
     64    ItemHeight = 13
     65    ItemTipColor = clWindow
     66    ItemTipEnable = True
     67    ListItemsOnly = False
     68    LongList = False
     69    LookupPiece = 0
     70    MaxLength = 0
     71    Pieces = '2'
     72    Sorted = False
     73    SynonymChars = '<>'
     74    TabOrder = 4
     75    OnChange = cboExamResultsChange
     76    CharsNeedMatch = 1
     77  end
    4978  inherited btnRemove: TButton
    5079    TabOrder = 5
    … …  
    71100    end
    72101  end
    73   object cboExamResults: TORComboBox
    74     Tag = 60
    75     Left = 490
    76     Top = 280
    77     Width = 121
    78     Height = 21
    79     Style = orcsDropDown
    80     AutoSelect = True
    81     Caption = 'Results'
    82     Color = clWindow
    83     DropDownCount = 8
    84     Enabled = False
    85     ItemHeight = 13
    86     ItemTipColor = clWindow
    87     ItemTipEnable = True
    88     ListItemsOnly = False
    89     LongList = False
    90     MaxLength = 0
    91     Pieces = '2'
    92     Sorted = False
    93     SynonymChars = '<>'
    94     TabOrder = 4
    95     OnChange = cboExamResultsChange
     102  inherited amgrMain: TVA508AccessibilityManager
     103    Data = (
     104      (
     105        'Component = cboExamResults'
     106        'Label = lblExamResults'
     107        'Status = stsOK')
     108      (
     109        'Component = edtComment'
     110        'Label = lblComment'
     111        'Status = stsOK')
     112      (
     113        'Component = btnRemove'
     114        'Status = stsDefault')
     115      (
     116        'Component = btnSelectAll'
     117        'Status = stsDefault')
     118      (
     119        'Component = pnlMain'
     120        'Status = stsDefault')
     121      (
     122        'Component = lbxSection'
     123        'Label = lblList'
     124        'Status = stsOK')
     125      (
     126        'Component = pnlLeft'
     127        'Status = stsDefault')
     128      (
     129        'Component = lbSection'
     130        'Label = lblSection'
     131        'Status = stsOK')
     132      (
     133        'Component = btnOther'
     134        'Status = stsDefault')
     135      (
     136        'Component = pnlGrid'
     137        'Status = stsDefault')
     138      (
     139        'Component = lbGrid'
     140        'Status = stsDefault')
     141      (
     142        'Component = hcGrid'
     143        'Status = stsDefault')
     144      (
     145        'Component = btnOK'
     146        'Status = stsDefault')
     147      (
     148        'Component = btnCancel'
     149        'Status = stsDefault')
     150      (
     151        'Component = frmExams'
     152        'Status = stsDefault'))
    96153  end
    97154end

  • cprs/trunk/CPRS-Chart/Encounter/fExam.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   fPCELex, fPCEOther, ComCtrls, fPCEBaseMain;
     8  fPCELex, fPCEOther, ComCtrls, fPCEBaseMain, VA508AccessibilityManager;
    99
    1010type
    … …  
    2929
    3030uses
    31   fEncounterFrame;
     31  fEncounterFrame, VA508AccessibilityRouter;
    3232
    3333procedure TfrmExams.cboExamResultsChange(Sender: TObject);
    … …  
    114114end;
    115115
     116initialization
     117  SpecifyFormIsNotADialog(TfrmExams);
     118
    116119end.
    117120

  • cprs/trunk/CPRS-Chart/Encounter/fGAF.dfm

    r456 r829  
    55  Caption = 'frmGAF'
    66  OnActivate = FormActivate
     7  ExplicitLeft = 8
     8  ExplicitTop = 8
    79  PixelsPerInch = 96
    810  TextHeight = 13
    … …  
    3436    Height = 13
    3537    Align = alTop
     38    ExplicitWidth = 3
    3639  end
    3740  object Spacer2: TLabel [4]
    … …  
    4144    Height = 13
    4245    Align = alTop
     46    ExplicitWidth = 3
    4347  end
    4448  object lblGAF: TStaticText [5]
    … …  
    8892    Align = alTop
    8993    TabOrder = 0
     94    ExplicitLeft = 0
     95    ExplicitTop = 35
     96    ExplicitWidth = 624
    9097    inherited lbGrid: TORListBox
    9198      Width = 624
    … …  
    94101      Caption = 'Most recent Global Assessment of Functioning (GAF) scores'
    95102      Pieces = '1,2,3,4'
     103      ExplicitWidth = 624
    96104    end
    97105    inherited hcGrid: THeaderControl
    … …  
    122130          Width = 60
    123131        end>
     132      ExplicitWidth = 624
    124133    end
    125134  end
    126   object edtScore: TCaptionEdit
     135  object edtScore: TCaptionEdit [10]
    127136    Left = 226
    128137    Top = 171
    … …  
    134143    Caption = 'Score'
    135144  end
    136   object udScore: TUpDown
     145  object udScore: TUpDown [11]
    137146    Left = 259
    138147    Top = 171
    … …  
    140149    Height = 21
    141150    Associate = edtScore
    142     Min = 0
    143     Position = 0
    144151    TabOrder = 2
    145     Wrap = False
    146   end
    147   object dteGAF: TORDateBox
     152  end
     153  object dteGAF: TORDateBox [12]
    148154    Left = 226
    149155    Top = 202
    … …  
    156162    Caption = 'Date Determined:'
    157163  end
    158   object cboGAFProvider: TORComboBox
     164  object cboGAFProvider: TORComboBox [13]
    159165    Left = 226
    160166    Top = 233
    … …  
    179185    OnExit = cboGAFProviderExit
    180186    OnNeedData = cboGAFProviderNeedData
    181   end
    182   object btnURL: TButton
     187    CharsNeedMatch = 1
     188  end
     189  object btnURL: TButton [14]
    183190    Left = 3
    184191    Top = 376
    … …  
    192199    OnClick = btnURLClick
    193200  end
     201  inherited amgrMain: TVA508AccessibilityManager
     202    Data = (
     203      (
     204        'Component = lblGAF'
     205        'Status = stsDefault')
     206      (
     207        'Component = lblEntry'
     208        'Status = stsDefault')
     209      (
     210        'Component = edtScore'
     211        'Status = stsDefault')
     212      (
     213        'Component = udScore'
     214        'Status = stsDefault')
     215      (
     216        'Component = dteGAF'
     217        'Status = stsDefault')
     218      (
     219        'Component = cboGAFProvider'
     220        'Status = stsDefault')
     221      (
     222        'Component = btnURL'
     223        'Status = stsDefault')
     224      (
     225        'Component = pnlGrid'
     226        'Status = stsDefault')
     227      (
     228        'Component = lbGrid'
     229        'Status = stsDefault')
     230      (
     231        'Component = hcGrid'
     232        'Status = stsDefault')
     233      (
     234        'Component = btnOK'
     235        'Status = stsDefault')
     236      (
     237        'Component = btnCancel'
     238        'Status = stsDefault')
     239      (
     240        'Component = frmGAF'
     241        'Status = stsDefault'))
     242  end
    194243end

  • cprs/trunk/CPRS-Chart/Encounter/fGAF.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, Buttons, ExtCtrls, Grids, ORFn, ORNet, ORCtrls,
    8   ORDtTm, ComCtrls, fPCEBaseGrid, Menus;
     8  ORDtTm, ComCtrls, fPCEBaseGrid, Menus, VA508AccessibilityManager;
    99
    1010type
    … …  
    4747implementation
    4848
    49 uses rPCE, rCore, uCore, uPCE, fEncounterFrame;
     49uses rPCE, rCore, uCore, uPCE, fEncounterFrame, VA508AccessibilityRouter;
    5050
    5151{$R *.DFM}
    … …  
    202202  FTabName := CT_GAFNm;
    203203  btnURL.Visible := (User.WebAccess and (GAFURL <> ''));
    204 end;
     204  FormActivate(Sender);
     205end;
     206
     207initialization
     208  SpecifyFormIsNotADialog(TfrmGAF);
    205209
    206210end.

  • cprs/trunk/CPRS-Chart/Encounter/fHFSearch.dfm

    r456 r829  
    22  Left = 286
    33  Top = 248
    4   Width = 363
    5   Height = 417
    64  Caption = 'Other Health Factors'
     5  ClientHeight = 390
     6  ClientWidth = 355
    77  Position = poScreenCenter
    88  OnCreate = FormCreate
     9  ExplicitWidth = 363
     10  ExplicitHeight = 417
    911  PixelsPerInch = 96
    1012  TextHeight = 13
    11   object splMain: TSplitter
     13  object splMain: TSplitter [0]
    1214    Left = 0
    1315    Top = 131
    … …  
    1719    Align = alTop
    1820  end
    19   object lblCat: TLabel
     21  object lblCat: TLabel [1]
    2022    Left = 0
    2123    Top = 0
    … …  
    2426    Align = alTop
    2527    Caption = 'Category:'
     28    ExplicitWidth = 45
    2629  end
    27   object cbxSearch: TORComboBox
     30  object cbxSearch: TORComboBox [2]
    2831    Left = 0
    2932    Top = 13
    … …  
    4144    ListItemsOnly = True
    4245    LongList = False
     46    LookupPiece = 0
    4347    MaxLength = 0
    4448    Pieces = '2'
    … …  
    4953    OnChange = cbxSearchChange
    5054    OnDblClick = tvSearchDblClick
     55    CharsNeedMatch = 1
    5156  end
    52   object tvSearch: TORTreeView
     57  object tvSearch: TORTreeView [3]
    5358    Left = 0
    5459    Top = 134
    … …  
    5762    Align = alClient
    5863    HideSelection = False
     64    Images = dmodShared.imgTemplates
    5965    Indent = 23
    6066    ReadOnly = True
    61     StateImages = dmodShared.imgTemplates
    6267    TabOrder = 1
    6368    OnChange = tvSearchChange
    … …  
    6772    OnGetImageIndex = tvSearchGetImageIndex
    6873    OnGetSelectedIndex = tvSearchGetImageIndex
    69     Caption = 'Other Health Factors'
     74    Caption = 'Health Factors Category'
    7075    NodePiece = 2
     76    ExplicitTop = 137
    7177  end
    72   object pnlBottom: TPanel
     78  object pnlBottom: TPanel [4]
    7379    Left = 0
    7480    Top = 363
    … …  
    7884    BevelOuter = bvNone
    7985    TabOrder = 2
     86    DesignSize = (
     87      355
     88      27)
    8089    object btnOK: TButton
    8190      Left = 196
    … …  
    102111    end
    103112  end
     113  inherited amgrMain: TVA508AccessibilityManager
     114    Left = 176
     115    Data = (
     116      (
     117        'Component = cbxSearch'
     118        'Status = stsDefault')
     119      (
     120        'Component = tvSearch'
     121        'Status = stsDefault')
     122      (
     123        'Component = pnlBottom'
     124        'Status = stsDefault')
     125      (
     126        'Component = btnOK'
     127        'Status = stsDefault')
     128      (
     129        'Component = btnCancel'
     130        'Status = stsDefault')
     131      (
     132        'Component = frmHFSearch'
     133        'Status = stsDefault'))
     134  end
     135  object imgListHFtvSearch: TVA508ImageListLabeler
     136    Components = <
     137      item
     138        Component = tvSearch
     139      end>
     140    Labels = <>
     141    RemoteLabeler = dmodShared.imgLblHealthFactorLabels
     142    Left = 224
     143  end
    104144end

  • cprs/trunk/CPRS-Chart/Encounter/fHFSearch.pas

    r456 r829  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   fAutoSz, ORFn, StdCtrls, ComCtrls, ORCtrls, ExtCtrls;
     7  fAutoSz, ORFn, StdCtrls, ComCtrls, ORCtrls, ExtCtrls,
     8  VA508AccessibilityManager, VA508ImageListLabeler;
    89
    910type
    … …  
    1617    splMain: TSplitter;
    1718    lblCat: TLabel;
     19    imgListHFtvSearch: TVA508ImageListLabeler;
    1820    procedure FormCreate(Sender: TObject);
    1921    procedure btnOKClick(Sender: TObject);
    … …  
    115117  HFList: TStringList;
    116118  i: integer;
    117   Node :TORTreeNode;
     119  Node, Child :TORTreeNode;
    118120  CAT: string;
    119121
    … …  
    135137        begin
    136138          StringData := HFList[i];
    137           StateIndex := 2;
     139          ImageIndex := 2;
     140          SelectedIndex := 2;
    138141        end;
    139142      end;
    … …  
    151154          Node := TORTreeNode(Node.GetNextSibling);
    152155        end;
    153         TORTreeNode(tvSearch.Items.AddChild(Node, '')).StringData := Pieces(HFList[i],U,1,2);
     156        Child := TORTreeNode(tvSearch.Items.AddChild(Node, ''));
     157        Child.StringData := Pieces(HFList[i],U,1,2);
     158        Child.ImageIndex := -1;
     159        Child.StateIndex := -1;
    154160      end;
    155161    end;
    … …  
    181187  begin
    182188    if(Node.Expanded) then
    183       Node.StateIndex := 3
     189      Node.ImageIndex := 3
    184190    else
    185       Node.StateIndex := 2;
    186   end;
     191      Node.ImageIndex := 2;
     192  end
     193  else
     194    Node.ImageIndex := -1;
     195  Node.SelectedIndex := Node.ImageIndex;
    187196//  tvSearch.Invalidate;
    188197end;

  • cprs/trunk/CPRS-Chart/Encounter/fHealthFactor.dfm

    r456 r829  
    33  Top = 205
    44  Caption = 'Health Factor page'
     5  ExplicitLeft = 374
     6  ExplicitTop = 205
    57  PixelsPerInch = 96
    68  TextHeight = 13
    … …  
    1517    Width = 103
    1618    Caption = 'Health Factor Section'
     19    ExplicitWidth = 103
    1720  end
    1821  inherited btnOK: TBitBtn
    … …  
    4952    TabOrder = 3
    5053  end
    51   inherited btnRemove: TButton
    52     TabOrder = 5
    53   end
    54   inherited btnSelectAll: TButton
    55     TabOrder = 2
    56     TabStop = True
    57   end
    58   inherited pnlMain: TPanel
    59     TabOrder = 0
    60     inherited lbxSection: TORListBox
    61       Tag = 70
    62     end
    63     inherited pnlLeft: TPanel
    64       inherited lbSection: TORListBox
    65         Tag = 70
    66         TabOrder = 0
    67         Caption = 'Health Factor Section'
    68       end
    69       inherited btnOther: TButton
    70         Tag = 23
    71         Caption = 'Other Health Factor...'
    72         TabOrder = 1
    73       end
    74     end
    75   end
    76   object cboHealthLevel: TORComboBox
     54  object cboHealthLevel: TORComboBox [9]
    7755    Tag = 50
    7856    Left = 490
    … …  
    10078    CharsNeedMatch = 1
    10179  end
     80  inherited btnRemove: TButton
     81    TabOrder = 5
     82  end
     83  inherited btnSelectAll: TButton
     84    TabOrder = 2
     85    TabStop = True
     86  end
     87  inherited pnlMain: TPanel
     88    TabOrder = 0
     89    inherited lbxSection: TORListBox
     90      Tag = 70
     91      ExplicitLeft = 210
     92    end
     93    inherited pnlLeft: TPanel
     94      inherited lbSection: TORListBox
     95        Tag = 70
     96        TabOrder = 0
     97        Caption = 'Health Factor Section'
     98      end
     99      inherited btnOther: TButton
     100        Tag = 23
     101        Caption = 'Other Health Factor...'
     102        TabOrder = 1
     103      end
     104    end
     105  end
     106  inherited amgrMain: TVA508AccessibilityManager
     107    Data = (
     108      (
     109        'Component = cboHealthLevel'
     110        'Label = lblHealthLevel'
     111        'Status = stsOK')
     112      (
     113        'Component = edtComment'
     114        'Label = lblComment'
     115        'Status = stsOK')
     116      (
     117        'Component = btnRemove'
     118        'Status = stsDefault')
     119      (
     120        'Component = btnSelectAll'
     121        'Status = stsDefault')
     122      (
     123        'Component = pnlMain'
     124        'Status = stsDefault')
     125      (
     126        'Component = lbxSection'
     127        'Label = lblList'
     128        'Status = stsOK')
     129      (
     130        'Component = pnlLeft'
     131        'Status = stsDefault')
     132      (
     133        'Component = lbSection'
     134        'Label = lblSection'
     135        'Status = stsOK')
     136      (
     137        'Component = btnOther'
     138        'Status = stsDefault')
     139      (
     140        'Component = pnlGrid'
     141        'Status = stsDefault')
     142      (
     143        'Component = lbGrid'
     144        'Status = stsDefault')
     145      (
     146        'Component = hcGrid'
     147        'Status = stsDefault')
     148      (
     149        'Component = btnOK'
     150        'Status = stsDefault')
     151      (
     152        'Component = btnCancel'
     153        'Status = stsDefault')
     154      (
     155        'Component = frmHealthFactors'
     156        'Status = stsDefault'))
     157  end
    102158end

  • cprs/trunk/CPRS-Chart/Encounter/fHealthFactor.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   fPCELex, fPCEOther, ComCtrls, fPCEBaseMain;
     8  fPCELex, fPCEOther, ComCtrls, fPCEBaseMain, VA508AccessibilityManager;
    99
    1010type
    … …  
    3030
    3131uses
    32   fEncounterFrame;
     32  fEncounterFrame, VA508AccessibilityRouter;
    3333
    3434procedure tfrmHealthFactors.cboHealthLevelChange(Sender: TObject);
    … …  
    115115end;
    116116
     117initialization
     118  SpecifyFormIsNotADialog(TfrmHealthFactors);
     119
    117120end.

  • cprs/trunk/CPRS-Chart/Encounter/fImmunization.dfm

    r456 r829  
    33  Top = 169
    44  Caption = 'Encouner Immunization'
     5  ExplicitLeft = 373
     6  ExplicitTop = 169
    57  PixelsPerInch = 96
    68  TextHeight = 13
    … …  
    2224    Width = 100
    2325    Caption = 'Immunization Section'
     26    ExplicitWidth = 100
    2427  end
    2528  object lblContra: TLabel [6]
    … …  
    7578    TabOrder = 3
    7679  end
    77   inherited btnRemove: TButton
    78     TabOrder = 7
    79   end
    80   inherited btnSelectAll: TButton
    81     TabOrder = 2
    82     TabStop = True
    83   end
    84   inherited pnlMain: TPanel
    85     TabOrder = 0
    86     inherited lbxSection: TORListBox
    87       Tag = 40
    88     end
    89     inherited pnlLeft: TPanel
    90       inherited lbSection: TORListBox
    91         Tag = 40
    92         TabOrder = 0
    93         Caption = 'Immunization Section'
    94       end
    95       inherited btnOther: TButton
    96         Tag = 20
    97         Caption = 'Other Immunization...'
    98         TabOrder = 1
    99       end
    100     end
    101   end
    102   object cboImmReaction: TORComboBox
     80  object cboImmReaction: TORComboBox [11]
    10381    Tag = 20
    10482    Left = 490
    … …  
    11795    ListItemsOnly = False
    11896    LongList = False
     97    LookupPiece = 0
    11998    MaxLength = 0
    12099    Pieces = '2'
    … …  
    123102    TabOrder = 5
    124103    OnChange = cboImmReactionChange
    125   end
    126   object cboImmSeries: TORComboBox
     104    CharsNeedMatch = 1
     105  end
     106  object cboImmSeries: TORComboBox [12]
    127107    Tag = 10
    128108    Left = 490
    … …  
    141121    ListItemsOnly = False
    142122    LongList = False
     123    LookupPiece = 0
    143124    MaxLength = 0
    144125    Pieces = '2'
    … …  
    147128    TabOrder = 4
    148129    OnChange = cboImmSeriesChange
    149   end
    150   object ckbContra: TCheckBox
     130    CharsNeedMatch = 1
     131  end
     132  object ckbContra: TCheckBox [13]
    151133    Left = 490
    152134    Top = 319
    … …  
    157139    OnClick = ckbContraClick
    158140  end
     141  inherited btnRemove: TButton
     142    TabOrder = 7
     143  end
     144  inherited btnSelectAll: TButton
     145    TabOrder = 2
     146    TabStop = True
     147  end
     148  inherited pnlMain: TPanel
     149    TabOrder = 0
     150    inherited lbxSection: TORListBox
     151      Tag = 40
     152    end
     153    inherited pnlLeft: TPanel
     154      inherited lbSection: TORListBox
     155        Tag = 40
     156        TabOrder = 0
     157        Caption = 'Immunization Section'
     158      end
     159      inherited btnOther: TButton
     160        Tag = 20
     161        Caption = 'Other Immunization...'
     162        TabOrder = 1
     163      end
     164    end
     165  end
     166  inherited amgrMain: TVA508AccessibilityManager
     167    Data = (
     168      (
     169        'Component = cboImmReaction'
     170        'Label = lblReaction'
     171        'Status = stsOK')
     172      (
     173        'Component = cboImmSeries'
     174        'Label = lblSeries'
     175        'Status = stsOK')
     176      (
     177        'Component = ckbContra'
     178        'Status = stsDefault')
     179      (
     180        'Component = edtComment'
     181        'Label = lblComment'
     182        'Status = stsOK')
     183      (
     184        'Component = btnRemove'
     185        'Status = stsDefault')
     186      (
     187        'Component = btnSelectAll'
     188        'Status = stsDefault')
     189      (
     190        'Component = pnlMain'
     191        'Status = stsDefault')
     192      (
     193        'Component = lbxSection'
     194        'Label = lblList'
     195        'Status = stsOK')
     196      (
     197        'Component = pnlLeft'
     198        'Status = stsDefault')
     199      (
     200        'Component = lbSection'
     201        'Label = lblSection'
     202        'Status = stsOK')
     203      (
     204        'Component = btnOther'
     205        'Status = stsDefault')
     206      (
     207        'Component = pnlGrid'
     208        'Status = stsDefault')
     209      (
     210        'Component = lbGrid'
     211        'Status = stsDefault')
     212      (
     213        'Component = hcGrid'
     214        'Status = stsDefault')
     215      (
     216        'Component = btnOK'
     217        'Status = stsDefault')
     218      (
     219        'Component = btnCancel'
     220        'Status = stsDefault')
     221      (
     222        'Component = frmImmunizations'
     223        'Status = stsDefault'))
     224  end
    159225end

  • cprs/trunk/CPRS-Chart/Encounter/fImmunization.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   fPCELex, fPCEOther, ComCtrls, fPCEBaseMain;
     8  fPCELex, fPCEOther, ComCtrls, fPCEBaseMain, VA508AccessibilityManager;
    99
    1010type
    … …  
    3737
    3838uses
    39   fEncounterFrame;
     39  fEncounterFrame, VA508AccessibilityRouter;
    4040
    4141procedure TfrmImmunizations.cboImmSeriesChange(Sender: TObject);
    … …  
    178178end;
    179179
     180initialization
     181  SpecifyFormIsNotADialog(TfrmImmunizations);
     182
    180183end.
    181  

  • cprs/trunk/CPRS-Chart/Encounter/fPCEBase.dfm

    r456 r829  
    1 object frmPCEBase: TfrmPCEBase
     1inherited frmPCEBase: TfrmPCEBase
    22  Left = 194
    33  Top = 170
    4   AutoScroll = False
    54  Caption = 'Basic Page'
    65  ClientHeight = 400
    76  ClientWidth = 624
    8   Color = clBtnFace
    9   Font.Charset = DEFAULT_CHARSET
    10   Font.Color = clWindowText
    11   Font.Height = -11
    12   Font.Name = 'MS Sans Serif'
    13   Font.Style = []
    14   OldCreateOrder = True
    157  OnClose = FormClose
    168  OnCreate = FormCreate
    17   OnShow = FormShow
     9  ExplicitWidth = 320
     10  ExplicitHeight = 240
    1811  DesignSize = (
    1912    624
    … …  
    2114  PixelsPerInch = 96
    2215  TextHeight = 13
    23   object btnOK: TBitBtn
     16  object btnOK: TBitBtn [0]
    2417    Left = 467
    2518    Top = 376
    … …  
    2720    Height = 21
    2821    Anchors = [akRight, akBottom]
    29     Caption = 'OK'
     22    Caption = '&OK'
    3023    ModalResult = 1
    3124    TabOrder = 0
    … …  
    3326    NumGlyphs = 2
    3427  end
    35   object btnCancel: TBitBtn
     28  object btnCancel: TBitBtn [1]
    3629    Left = 547
    3730    Top = 376
    … …  
    3932    Height = 21
    4033    Anchors = [akRight, akBottom]
    41     Caption = 'Cancel'
     34    Caption = '&Cancel'
    4235    ModalResult = 2
    4336    TabOrder = 1
    … …  
    4538    NumGlyphs = 2
    4639  end
     40  inherited amgrMain: TVA508AccessibilityManager
     41    Data = (
     42      (
     43        'Component = btnOK'
     44        'Status = stsDefault')
     45      (
     46        'Component = btnCancel'
     47        'Status = stsDefault')
     48      (
     49        'Component = frmPCEBase'
     50        'Status = stsDefault'))
     51  end
    4752end

  • cprs/trunk/CPRS-Chart/Encounter/fPCEBase.pas

    r456 r829  
    1717  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, uConst,
    1818  StdCtrls, fAutoSz, Buttons, ORCtrls, ORFn, uPCE, ORDtTm, Checklst,
    19   ComCtrls;
     19  ComCtrls, VA508AccessibilityManager, fBase508Form;
    2020
    2121type
    … …  
    2727    procedure btnOKClick(Sender: TObject); virtual;
    2828    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    29     procedure FormShow(Sender: TObject);
    3029  private
    3130    FDisplayCount: Integer;                      // number of times page displayed
    … …  
    7170
    7271uses
    73   fEncounterFrame;
     72  fEncounterFrame, VA508AccessibilityRouter;
    7473
    7574
    … …  
    368367end;
    369368
    370 procedure TfrmPCEBase.FormShow(Sender: TObject);
    371 begin
    372   inherited;
    373   FocusFirstControl;
    374 end;
     369initialization
     370  SpecifyFormIsNotADialog(TfrmPCEBase);
     371
    375372
    376373end.

  • cprs/trunk/CPRS-Chart/Encounter/fPCEBaseGrid.dfm

    r456 r829  
    11inherited frmPCEBaseGrid: TfrmPCEBaseGrid
    2   Left = 200
    3   Top = 303
     2  Left = 128
     3  Top = 192
    44  Caption = 'frmPCEBaseGrid'
     5  ExplicitLeft = 128
     6  ExplicitTop = 192
    57  PixelsPerInch = 96
    68  TextHeight = 13
    7   object pnlGrid: TPanel
     9  object pnlGrid: TPanel [2]
    810    Left = 6
    911    Top = 238
    … …  
    1113    Height = 87
    1214    BevelOuter = bvNone
    13     Caption = 'pnlGrid'
    1415    TabOrder = 2
    1516    OnResize = pnlGridResize
    … …  
    3435      Width = 451
    3536      Height = 17
    36       DragReorder = False
    3737      Sections = <
    3838        item
    … …  
    4747    end
    4848  end
     49  inherited amgrMain: TVA508AccessibilityManager
     50    Data = (
     51      (
     52        'Component = pnlGrid'
     53        'Status = stsDefault')
     54      (
     55        'Component = lbGrid'
     56        'Status = stsDefault')
     57      (
     58        'Component = hcGrid'
     59        'Status = stsDefault')
     60      (
     61        'Component = btnOK'
     62        'Status = stsDefault')
     63      (
     64        'Component = btnCancel'
     65        'Status = stsDefault')
     66      (
     67        'Component = frmPCEBaseGrid'
     68        'Status = stsDefault'))
     69  end
    4970end

  • cprs/trunk/CPRS-Chart/Encounter/fPCEBaseGrid.pas

    r456 r829  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   fPCEBase, ComCtrls, StdCtrls, ORCtrls, ExtCtrls, Buttons, ORFn;
     7  fPCEBase, ComCtrls, StdCtrls, ORCtrls, ExtCtrls, Buttons, ORFn,
     8  VA508AccessibilityManager;
    89
    910type
    … …  
    3839implementation
    3940
     41uses
     42  VA2006Utils, VA508AccessibilityRouter;
     43
    4044{$R *.DFM}
    4145
    … …  
    4650begin
    4751  inherited;
    48   lbGrid.Color := ReadOnlyColor;
    49   lbGrid.ItemTipColor := ReadOnlyColor;
     52  FixHeaderControlDelphi2006Bug(hcGrid);
    5053  FSectionGap := 15;
    5154  SyncGridHeader(TRUE);
    … …  
    223226end;
    224227
     228initialization
     229  SpecifyFormIsNotADialog(TfrmPCEBaseGrid);
     230
    225231end.

  • cprs/trunk/CPRS-Chart/Encounter/fPCEBaseMain.dfm

    r456 r829  
    33  Top = 166
    44  Caption = 'frmPCEBaseMain'
    5   OnDestroy = FormDestroy
    6   OnResize = FormResize
     5  ExplicitWidth = 320
     6  ExplicitHeight = 240
    77  PixelsPerInch = 96
    88  TextHeight = 13
    … …  
    3737    Left = 464
    3838    TabOrder = 1
     39    ExplicitLeft = 464
    3940  end
    4041  inherited btnCancel: TBitBtn
    4142    Left = 544
    4243    TabOrder = 2
     44    ExplicitLeft = 544
    4345  end
    4446  inherited pnlGrid: TPanel
    4547    Width = 475
    4648    TabOrder = 0
     49    ExplicitWidth = 475
    4750    inherited lbGrid: TORListBox
    4851      Width = 475
    4952      MultiSelect = True
    5053      OnClick = lbGridSelect
     54      OnExit = lbGridExit
    5155      OnChange = lbGridSelect
    5256      CheckEntireLine = True
     57      ExplicitWidth = 475
    5358    end
    5459    inherited hcGrid: THeaderControl
    5560      Width = 475
    56     end
    57   end
    58   object edtComment: TCaptionEdit
     61      ExplicitWidth = 475
     62    end
     63  end
     64  object edtComment: TCaptionEdit [7]
    5965    Left = 6
    6066    Top = 343
    … …  
    6773    Caption = 'Comments'
    6874  end
    69   object btnRemove: TButton
     75  object btnRemove: TButton [8]
    7076    Left = 536
    7177    Top = 343
    … …  
    7682    OnClick = btnRemoveClick
    7783  end
    78   object btnSelectAll: TButton
     84  object btnSelectAll: TButton [9]
    7985    Left = 406
    8086    Top = 326
    … …  
    8692    OnClick = btnSelectAllClick
    8793  end
    88   object pnlMain: TPanel
     94  object pnlMain: TPanel [10]
    8995    Left = 6
    9096    Top = 20
    … …  
    97103      Left = 204
    98104      Top = 0
    99       Width = 3
    100105      Height = 204
    101       Cursor = crHSplit
    102106      OnMoved = splLeftMoved
    103107    end
    … …  
    115119      TabOrder = 1
    116120      OnClick = clbListClick
     121      OnExit = lbxSectionExit
    117122      OnMouseDown = clbListMouseDown
    118123      Caption = 'Section Name'
    … …  
    147152        TabOrder = 1
    148153        OnClick = lbSectionClick
     154        OnExit = lbSectionExit
    149155        Caption = 'Section'
    150156        ItemTipColor = clWindow
    … …  
    152158        Pieces = '3'
    153159        CheckEntireLine = True
     160        ExplicitLeft = -3
     161        ExplicitTop = -2
    154162      end
    155163      object btnOther: TButton
    … …  
    162170        TabOrder = 0
    163171        OnClick = btnOtherClick
     172        OnExit = btnOtherExit
    164173      end
    165174    end
    166175  end
     176  inherited amgrMain: TVA508AccessibilityManager
     177    Left = 24
     178    Top = 24
     179    Data = (
     180      (
     181        'Component = edtComment'
     182        'Label = lblComment'
     183        'Status = stsOK')
     184      (
     185        'Component = btnRemove'
     186        'Status = stsDefault')
     187      (
     188        'Component = btnSelectAll'
     189        'Status = stsDefault')
     190      (
     191        'Component = pnlMain'
     192        'Status = stsDefault')
     193      (
     194        'Component = lbxSection'
     195        'Label = lblList'
     196        'Status = stsOK')
     197      (
     198        'Component = pnlLeft'
     199        'Status = stsDefault')
     200      (
     201        'Component = lbSection'
     202        'Label = lblSection'
     203        'Status = stsOK')
     204      (
     205        'Component = btnOther'
     206        'Status = stsDefault')
     207      (
     208        'Component = pnlGrid'
     209        'Status = stsDefault')
     210      (
     211        'Component = lbGrid'
     212        'Status = stsDefault')
     213      (
     214        'Component = hcGrid'
     215        'Status = stsDefault')
     216      (
     217        'Component = btnOK'
     218        'Status = stsDefault')
     219      (
     220        'Component = btnCancel'
     221        'Status = stsDefault')
     222      (
     223        'Component = frmPCEBaseMain'
     224        'Status = stsDefault'))
     225  end
    167226end

  • cprs/trunk/CPRS-Chart/Encounter/fPCEBaseMain.pas

    r456 r829  
    11unit fPCEBaseMain;
     2{Warning: The tab order has been changed in the OnExit event of several controls.
     3 To change the tab order of lbSection, lbxSection, and btnOther you must do it programatically.}
    24
    35interface
    … …  
    68  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    79  fPCEBaseGrid, ComCtrls, StdCtrls, ORCtrls, ExtCtrls, Buttons, rPCE, uPCE,
    8   CheckLst, ORFn;
     10  CheckLst, ORFn, VA508AccessibilityManager;
    911
    1012type
    … …  
    4143    procedure splLeftMoved(Sender: TObject);
    4244    procedure edtCommentKeyPress(Sender: TObject; var Key: Char);
     45    procedure lbSectionExit(Sender: TObject);
     46    procedure btnOtherExit(Sender: TObject);
     47    procedure lbxSectionExit(Sender: TObject);
     48    procedure lbGridExit(Sender: TObject);
     49    procedure FormCreate(Sender: TObject);
    4350  private
    4451    FCommentItem: integer;
    4552    FCommentChanged: boolean;
    4653    FUpdateCount: integer;
     54    FSectionPopulated: boolean;
    4755    //FUpdatingGrid: boolean;  moved to 'protected' so frmDiagnoses can see it  (RV)
    4856  protected
    … …  
    7785implementation
    7886
    79 uses fPCELex, fPCEOther, fEncounterFrame, fHFSearch;
     87uses fPCELex, fPCEOther, fEncounterFrame, fHFSearch, VA508AccessibilityRouter,
     88  ORCtrlsVA508Compatibility, fBase508Form;
    8089
    8190{$R *.DFM}
     91
     92type
     93  TLBSectionManager = class(TORListBox508Manager)
     94  public
     95    function GetItemInstructions(Component: TWinControl): string; override;
     96    function GetState(Component: TWinControl): string; override;   
     97  end;
    8298
    8399procedure TfrmPCEBaseMain.lbSectionClick(Sender: TObject);
    … …  
    87103  FPCEListCodesProc(lbxSection.Items, lbSection.ItemIEN);
    88104  CheckOffEntries;
     105  FSectionPopulated := TRUE;
     106end;
     107
     108procedure TfrmPCEBaseMain.lbSectionExit(Sender: TObject);
     109begin
     110  inherited;
     111  if TabIsPressed then
     112    if lbxSection.CanFocus then
     113      lbxSection.SetFocus;
    89114end;
    90115
    … …  
    102127  try
    103128    SaveGridSelected;
    104     tmpList.Assign(lbGrid.Items);
     129    FastAssign(lbGrid.Items, tmpList);
    105130    for i := 0 to lbGrid.Items.Count-1 do
    106131    begin
    … …  
    109134      tmpList.Objects[i] := lbGrid.Items.Objects[i];
    110135    end;
    111     lbGrid.Items.Assign(tmpList);
     136  //FastAssign(tmpList,lbGrid.Items); //cq: 13228  Causin a/v errors.
     137    lbGrid.Items.Assign(tmpList);    //cq: 13228
    112138    RestoreGridSelected;
    113139    SyncGridData;
    … …  
    155181end;
    156182
     183procedure TfrmPCEBaseMain.btnOtherExit(Sender: TObject);
     184begin
     185  inherited;
     186  if TabIsPressed then begin
     187    if lbGrid.CanFocus then
     188      lbGrid.SetFocus
     189  end
     190  else if ShiftTabIsPressed then
     191    if lbxSection.CanFocus then
     192      lbxSection.SetFocus;
     193end;
     194
    157195procedure TfrmPCEBaseMain.edtCommentExit(Sender: TObject);
    158196begin
    … …  
    240278end;
    241279
     280procedure TfrmPCEBaseMain.lbGridExit(Sender: TObject);
     281begin
     282  inherited;
     283  if ShiftTabIsPressed then
     284    if btnOther.CanFocus then
     285      btnOther.SetFocus;
     286end;
     287
    242288procedure TfrmPCEBaseMain.lbGridSelect(Sender: TObject);
    243289begin
    … …  
    245291//  clbList.ItemIndex := -1;
    246292  UpdateControls;
     293end;
     294
     295procedure TfrmPCEBaseMain.FormCreate(Sender: TObject);
     296begin
     297  inherited FormCreate(Sender);
     298  lbxSection.HideSelection := TRUE;
     299  amgrMain.ComponentManager[lbSection] := TLBSectionManager.Create;
    247300end;
    248301
    … …  
    413466end;
    414467
     468procedure TfrmPCEBaseMain.lbxSectionExit(Sender: TObject);
     469begin
     470  inherited;
     471  if TabIsPressed then begin
     472    if btnOther.CanFocus then
     473      btnOther.SetFocus
     474  end
     475  else if ShiftTabIsPressed then
     476    if lbSection.CanFocus then
     477      lbSection.SetFocus;
     478end;
     479
    415480procedure TfrmPCEBaseMain.UpdateTabPos;
    416481begin
    … …  
    503568end;
    504569
     570{ TLBSectionManager }
     571
     572function TLBSectionManager.GetItemInstructions(Component: TWinControl): string;
     573var
     574  lb : TORListBox;
     575  idx: integer;
     576begin
     577  lb := TORListBox(Component);
     578  idx := lb.ItemIndex;
     579  if (idx >= 0) and lb.Selected[idx] then
     580    Result := 'Press space bar to populate ' +
     581        TfrmPCEBaseMain(Component.Owner).FTabName + ' section'
     582  else
     583    result := inherited GetItemInstructions(Component);
     584end;
     585
     586function TLBSectionManager.GetState(Component: TWinControl): string;
     587var
     588  frm: TfrmPCEBaseMain;
     589begin
     590  Result := '';
     591  frm := TfrmPCEBaseMain(Component.Owner);
     592  if frm.FSectionPopulated then
     593  begin
     594    frm.FSectionPopulated := FALSE;
     595    Result := frm.FTabName + ' section populated with ' +
     596        inttostr(frm.lbxSection.Count) + ' items';
     597  end;
     598end;
     599
     600initialization
     601  SpecifyFormIsNotADialog(TfrmPCEBaseMain);
     602
    505603end.

  • cprs/trunk/CPRS-Chart/Encounter/fPCEEdit.dfm

    r456 r829  
    1 object frmPCEEdit: TfrmPCEEdit
     1inherited frmPCEEdit: TfrmPCEEdit
    22  Left = 214
    33  Top = 107
    … …  
    66  ClientHeight = 128
    77  ClientWidth = 543
    8   Color = clBtnFace
    9   Font.Charset = DEFAULT_CHARSET
    10   Font.Color = clWindowText
    11   Font.Height = -11
    12   Font.Name = 'MS Sans Serif'
    13   Font.Style = []
    14   OldCreateOrder = False
    158  Position = poScreenCenter
    169  OnCreate = FormCreate
    … …  
    2013  PixelsPerInch = 96
    2114  TextHeight = 13
    22   object Label1: TStaticText
     15  object Label1: TStaticText [0]
    2316    Left = 0
    2417    Top = 0
    … …  
    3528    ParentFont = False
    3629    TabOrder = 5
     30    ExplicitWidth = 201
    3731  end
    38   object lblNew: TMemo
     32  object lblNew: TMemo [1]
    3933    Left = 136
    4034    Top = 32
    … …  
    4842    TabOrder = 3
    4943  end
    50   object lblNote: TMemo
     44  object lblNote: TMemo [2]
    5145    Left = 136
    5246    Top = 73
    … …  
    6054    TabOrder = 4
    6155  end
    62   object btnNew: TButton
     56  object btnNew: TButton [3]
    6357    Left = 8
    6458    Top = 28
    … …  
    6963    TabOrder = 0
    7064  end
    71   object btnNote: TButton
     65  object btnNote: TButton [4]
    7266    Left = 8
    7367    Top = 69
    … …  
    7872    TabOrder = 1
    7973  end
    80   object btnCancel: TButton
     74  object btnCancel: TButton [5]
    8175    Left = 465
    8276    Top = 104
    … …  
    8983    TabOrder = 2
    9084  end
     85  inherited amgrMain: TVA508AccessibilityManager
     86    Data = (
     87      (
     88        'Component = Label1'
     89        'Status = stsDefault')
     90      (
     91        'Component = lblNew'
     92        'Status = stsDefault')
     93      (
     94        'Component = lblNote'
     95        'Status = stsDefault')
     96      (
     97        'Component = btnNew'
     98        'Status = stsDefault')
     99      (
     100        'Component = btnNote'
     101        'Status = stsDefault')
     102      (
     103        'Component = btnCancel'
     104        'Status = stsDefault')
     105      (
     106        'Component = frmPCEEdit'
     107        'Status = stsDefault'))
     108  end
    91109end

  • cprs/trunk/CPRS-Chart/Encounter/fPCEEdit.pas

    r456 r829  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   StdCtrls, ORFn, uPCE;
     7  StdCtrls, ORFn, uPCE, fBase508Form, VA508AccessibilityManager;
    88
    99type
    10   TfrmPCEEdit = class(TForm)
     10  TfrmPCEEdit = class(TfrmBase508Form)
    1111    btnNew: TButton;
    1212    btnNote: TButton;

  • cprs/trunk/CPRS-Chart/Encounter/fPCELex.dfm

    r456 r829  
    55  BorderStyle = bsDialog
    66  Caption = 'Lookup Other Diagnosis'
     7  ClientHeight = 275
     8  ClientWidth = 429
    79  Position = poScreenCenter
    810  OnCreate = FormCreate
     11  ExplicitWidth = 320
     12  ExplicitHeight = 240
    913  PixelsPerInch = 96
    1014  TextHeight = 13
    11   object lblSearch: TLabel
     15  object lblSearch: TLabel [0]
    1216    Left = 6
    1317    Top = 16
    … …  
    1620    Caption = 'Search for Diagnosis'
    1721  end
    18   object lblSelect: TLabel
     22  object lblSelect: TLabel [1]
    1923    Left = 6
    2024    Top = 67
    … …  
    2428    Visible = False
    2529  end
    26   object txtSearch: TCaptionEdit
     30  object txtSearch: TCaptionEdit [2]
    2731    Left = 6
    2832    Top = 30
    … …  
    3337    Caption = 'Search for Diagnosis'
    3438  end
    35   object cmdSearch: TButton
     39  object cmdSearch: TButton [3]
    3640    Left = 346
    3741    Top = 30
    … …  
    4347    OnClick = cmdSearchClick
    4448  end
    45   object cmdOK: TButton
     49  object cmdOK: TButton [4]
    4650    Left = 263
    4751    Top = 245
    … …  
    5256    OnClick = cmdOKClick
    5357  end
    54   object cmdCancel: TButton
     58  object cmdCancel: TButton [5]
    5559    Left = 346
    5660    Top = 245
    … …  
    6266    OnClick = cmdCancelClick
    6367  end
    64   object lstSelect: TORListBox
     68  object lstSelect: TORListBox [6]
    6569    Left = 6
    6670    Top = 81
    … …  
    7882    Pieces = '2'
    7983  end
     84  inherited amgrMain: TVA508AccessibilityManager
     85    Data = (
     86      (
     87        'Component = txtSearch'
     88        'Status = stsDefault')
     89      (
     90        'Component = cmdSearch'
     91        'Status = stsDefault')
     92      (
     93        'Component = cmdOK'
     94        'Status = stsDefault')
     95      (
     96        'Component = cmdCancel'
     97        'Status = stsDefault')
     98      (
     99        'Component = lstSelect'
     100        'Status = stsDefault')
     101      (
     102        'Component = frmPCELex'
     103        'Status = stsDefault'))
     104  end
    80105end

  • cprs/trunk/CPRS-Chart/Encounter/fPCELex.pas

    r456 r829  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   fAutoSz, StdCtrls, ORFn, ORCtrls;
     7  fAutoSz, StdCtrls, ORFn, ORCtrls, VA508AccessibilityManager;
    88
    99type

  • cprs/trunk/CPRS-Chart/Encounter/fPCEOther.dfm

    r456 r829  
    1 object frmPCEOther: TfrmPCEOther
     1inherited frmPCEOther: TfrmPCEOther
    22  Left = 451
    33  Top = 201
    4   Width = 279
    5   Height = 340
    64  ActiveControl = cboOther
    75  Caption = 'OtherItems'
    8   Color = clBtnFace
    9   Font.Charset = DEFAULT_CHARSET
    10   Font.Color = clWindowText
    11   Font.Height = -11
    12   Font.Name = 'MS Sans Serif'
    13   Font.Style = []
    14   OldCreateOrder = True
     6  ClientHeight = 313
     7  ClientWidth = 271
    158  Position = poScreenCenter
    169  OnCreate = FormCreate
     10  ExplicitWidth = 279
     11  ExplicitHeight = 340
    1712  PixelsPerInch = 96
    1813  TextHeight = 13
    19   object cmdCancel: TButton
     14  object cmdCancel: TButton [0]
    2015    Left = 190
    2116    Top = 287
    … …  
    2722    OnClick = cmdCancelClick
    2823  end
    29   object cmdOK: TButton
     24  object cmdOK: TButton [1]
    3025    Left = 110
    3126    Top = 287
    … …  
    3732    OnClick = cmdOKClick
    3833  end
    39   object cboOther: TORComboBox
     34  object cboOther: TORComboBox [2]
    4035    Left = 8
    4136    Top = 8
    … …  
    5247    ListItemsOnly = False
    5348    LongList = False
     49    LookupPiece = 0
    5450    MaxLength = 0
    5551    Pieces = '2'
    … …  
    5955    OnChange = cboOtherChange
    6056    OnDblClick = cboOtherDblClick
     57    CharsNeedMatch = 1
     58  end
     59  inherited amgrMain: TVA508AccessibilityManager
     60    Data = (
     61      (
     62        'Component = cmdCancel'
     63        'Status = stsDefault')
     64      (
     65        'Component = cmdOK'
     66        'Status = stsDefault')
     67      (
     68        'Component = cboOther'
     69        'Status = stsDefault')
     70      (
     71        'Component = frmPCEOther'
     72        'Status = stsDefault'))
    6173  end
    6274end

  • cprs/trunk/CPRS-Chart/Encounter/fPCEOther.pas

    r456 r829  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   fAutoSz, ORFn, ORCtrls, StdCtrls;
     7  fAutoSz, ORFn, ORCtrls, StdCtrls, VA508AccessibilityManager;
    88
    99type

  • cprs/trunk/CPRS-Chart/Encounter/fPCEProvider.dfm

    r456 r829  
    1 object frmPCEProvider: TfrmPCEProvider
     1inherited frmPCEProvider: TfrmPCEProvider
    22  Left = 192
    33  Top = 104
    … …  
    77  ClientHeight = 254
    88  ClientWidth = 317
    9   Color = clBtnFace
    10   Font.Charset = DEFAULT_CHARSET
    11   Font.Color = clWindowText
    12   Font.Height = -11
    13   Font.Name = 'MS Sans Serif'
    14   Font.Style = []
    15   OldCreateOrder = False
    169  Position = poScreenCenter
    1710  OnCreate = FormCreate
    1811  PixelsPerInch = 96
    1912  TextHeight = 13
    20   object Spacer1: TLabel
     13  object Spacer1: TLabel [0]
    2114    Left = 0
    2215    Top = 0
    … …  
    2417    Height = 13
    2518    Align = alTop
     19    ExplicitWidth = 3
    2620  end
    27   object lblMsg: TMemo
     21  object lblMsg: TMemo [1]
    2822    Left = 0
    2923    Top = 13
    … …  
    4640    TabOrder = 4
    4741  end
    48   object cboPrimary: TORComboBox
     42  object cboPrimary: TORComboBox [2]
    4943    Left = 6
    5044    Top = 69
    … …  
    7367    CharsNeedMatch = 1
    7468  end
    75   object btnYes: TButton
     69  object btnYes: TButton [3]
    7670    Left = 158
    7771    Top = 40
    … …  
    8377    TabOrder = 1
    8478  end
    85   object btnNo: TButton
     79  object btnNo: TButton [4]
    8680    Left = 238
    8781    Top = 40
    … …  
    9387    TabOrder = 2
    9488  end
    95   object btnSelect: TButton
     89  object btnSelect: TButton [5]
    9690    Left = 6
    9791    Top = 40
    … …  
    10296    OnClick = btnSelectClick
    10397  end
     98  inherited amgrMain: TVA508AccessibilityManager
     99    Data = (
     100      (
     101        'Component = lblMsg'
     102        'Status = stsDefault')
     103      (
     104        'Component = cboPrimary'
     105        'Status = stsDefault')
     106      (
     107        'Component = btnYes'
     108        'Status = stsDefault')
     109      (
     110        'Component = btnNo'
     111        'Status = stsDefault')
     112      (
     113        'Component = btnSelect'
     114        'Status = stsDefault')
     115      (
     116        'Component = frmPCEProvider'
     117        'Status = stsDefault'))
     118  end
    104119end

  • cprs/trunk/CPRS-Chart/Encounter/fPCEProvider.pas

    r456 r829  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   StdCtrls, ORCtrls, ExtCtrls, uPCE, ORFn;
     7  StdCtrls, ORCtrls, ExtCtrls, uPCE, ORFn, fBase508Form,
     8  VA508AccessibilityManager;
    89
    910type
    10   TfrmPCEProvider = class(TForm)
     11  TfrmPCEProvider = class(TfrmBase508Form)
    1112    cboPrimary: TORComboBox;
    1213    lblMsg: TMemo;

  • cprs/trunk/CPRS-Chart/Encounter/fPatientEd.dfm

    r456 r829  
    33  Top = 267
    44  Caption = 'Patient Education'
     5  ExplicitLeft = 275
     6  ExplicitTop = 267
    57  PixelsPerInch = 96
    68  TextHeight = 13
    … …  
    1517    Width = 123
    1618    Caption = 'Patient Education Section'
     19    ExplicitWidth = 123
    1720  end
    1821  inherited btnOK: TBitBtn
    … …  
    4851    TabOrder = 3
    4952  end
     53  object cboPatUnderstanding: TORComboBox [9]
     54    Tag = 40
     55    Left = 490
     56    Top = 280
     57    Width = 121
     58    Height = 21
     59    Style = orcsDropDown
     60    AutoSelect = True
     61    Caption = 'Level Of Understanding'
     62    Color = clWindow
     63    DropDownCount = 8
     64    Enabled = False
     65    ItemHeight = 13
     66    ItemTipColor = clWindow
     67    ItemTipEnable = True
     68    ListItemsOnly = False
     69    LongList = False
     70    LookupPiece = 0
     71    MaxLength = 0
     72    Pieces = '2'
     73    Sorted = False
     74    SynonymChars = '<>'
     75    TabOrder = 4
     76    OnChange = cboPatUnderstandingChange
     77    CharsNeedMatch = 1
     78  end
    5079  inherited btnRemove: TButton
    5180    TabOrder = 5
    … …  
    73102    end
    74103  end
    75   object cboPatUnderstanding: TORComboBox
    76     Tag = 40
    77     Left = 490
    78     Top = 280
    79     Width = 121
    80     Height = 21
    81     Style = orcsDropDown
    82     AutoSelect = True
    83     Caption = 'Level Of Understanding'
    84     Color = clWindow
    85     DropDownCount = 8
    86     Enabled = False
    87     ItemHeight = 13
    88     ItemTipColor = clWindow
    89     ItemTipEnable = True
    90     ListItemsOnly = False
    91     LongList = False
    92     MaxLength = 0
    93     Pieces = '2'
    94     Sorted = False
    95     SynonymChars = '<>'
    96     TabOrder = 4
    97     OnChange = cboPatUnderstandingChange
     104  inherited amgrMain: TVA508AccessibilityManager
     105    Data = (
     106      (
     107        'Component = cboPatUnderstanding'
     108        'Status = stsDefault')
     109      (
     110        'Component = edtComment'
     111        'Label = lblComment'
     112        'Status = stsOK')
     113      (
     114        'Component = btnRemove'
     115        'Status = stsDefault')
     116      (
     117        'Component = btnSelectAll'
     118        'Status = stsDefault')
     119      (
     120        'Component = pnlMain'
     121        'Status = stsDefault')
     122      (
     123        'Component = lbxSection'
     124        'Label = lblList'
     125        'Status = stsOK')
     126      (
     127        'Component = pnlLeft'
     128        'Status = stsDefault')
     129      (
     130        'Component = lbSection'
     131        'Label = lblSection'
     132        'Status = stsOK')
     133      (
     134        'Component = btnOther'
     135        'Status = stsDefault')
     136      (
     137        'Component = pnlGrid'
     138        'Status = stsDefault')
     139      (
     140        'Component = lbGrid'
     141        'Status = stsDefault')
     142      (
     143        'Component = hcGrid'
     144        'Status = stsDefault')
     145      (
     146        'Component = btnOK'
     147        'Status = stsDefault')
     148      (
     149        'Component = btnCancel'
     150        'Status = stsDefault')
     151      (
     152        'Component = frmPatientEd'
     153        'Status = stsDefault'))
    98154  end
    99155end

  • cprs/trunk/CPRS-Chart/Encounter/fPatientEd.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   fPCELex, fPCEOther, ComCtrls, fPCEBaseMain;
     8  fPCELex, fPCEOther, ComCtrls, fPCEBaseMain, VA508AccessibilityManager;
    99
    1010type
    … …  
    2929
    3030uses
    31   fEncounterFrame;
     31  fEncounterFrame, VA508AccessibilityRouter;
    3232
    3333{///////////////////////////////////////////////////////////////////////////////
    … …  
    121121end;
    122122
     123initialization
     124  SpecifyFormIsNotADialog(TfrmPatientEd);
     125
    123126end.

  • cprs/trunk/CPRS-Chart/Encounter/fProcedure.dfm

    r456 r829  
    11inherited frmProcedures: TfrmProcedures
    2   Left = 295
    3   Top = 212
     2  Left = 548
     3  Top = 172
    44  Caption = 'Encounter Procedure'
     5  ExplicitWidth = 632
     6  ExplicitHeight = 427
    57  PixelsPerInch = 96
    68  TextHeight = 13
    … …  
    1517    Width = 88
    1618    Caption = 'Procedure Section'
     19    ExplicitWidth = 88
    1720  end
    1821  inherited lblList: TLabel
    1922    Left = 154
     23    ExplicitLeft = 154
    2024  end
    2125  inherited bvlMain: TBevel
    … …  
    2327    Width = 537
    2428    Height = 166
     29    ExplicitTop = 232
     30    ExplicitWidth = 537
     31    ExplicitHeight = 166
    2532  end
    2633  object lblMod: TLabel [5]
    … …  
    4552    Top = 344
    4653    TabOrder = 8
     54    ExplicitLeft = 544
     55    ExplicitTop = 344
    4756  end
    4857  inherited btnCancel: TBitBtn
    4958    Top = 371
    5059    TabOrder = 9
     60    ExplicitTop = 371
    5161  end
    5262  inherited pnlGrid: TPanel
    5363    Width = 523
    5464    TabOrder = 1
     65    ExplicitWidth = 523
    5566    inherited lbGrid: TORListBox
    5667      Tag = 30
    … …  
    5869      Caption = 'Selected Procedures'
    5970      Pieces = '1,2'
     71      ExplicitWidth = 523
    6072    end
    6173    inherited hcGrid: THeaderControl
    … …  
    7486          Width = 112
    7587        end>
     88      ExplicitWidth = 523
    7689    end
    7790  end
    … …  
    7992    TabOrder = 2
    8093  end
    81   inherited btnRemove: TButton
    82     Left = 454
    83     Top = 371
    84     TabOrder = 7
    85   end
    86   inherited btnSelectAll: TButton
    87     Left = 374
    88     Top = 371
    89     Height = 21
    90     TabOrder = 6
    91     TabStop = True
    92   end
    93   inherited pnlMain: TPanel
    94     TabOrder = 0
    95     inherited splLeft: TSplitter
    96       Left = 145
    97     end
    98     object splRight: TSplitter [1]
    99       Left = 349
    100       Top = 0
    101       Width = 3
    102       Height = 204
    103       Cursor = crHSplit
    104       Align = alRight
    105       OnMoved = splRightMoved
    106     end
    107     inherited lbxSection: TORListBox
    108       Tag = 30
    109       Left = 148
    110       Width = 201
    111       ItemHeight = 14
    112       Pieces = '2,3'
    113     end
    114     inherited pnlLeft: TPanel
    115       Width = 145
    116       inherited lbSection: TORListBox
    117         Tag = 30
    118         Width = 145
    119         TabOrder = 0
    120       end
    121       inherited btnOther: TButton
    122         Tag = 13
    123         Left = 3
    124         Caption = 'Other Procedure...'
    125         TabOrder = 1
    126       end
    127     end
    128     object lbMods: TORListBox
    129       Left = 352
    130       Top = 0
    131       Width = 260
    132       Height = 204
    133       Style = lbOwnerDrawFixed
    134       Align = alRight
    135       Font.Charset = DEFAULT_CHARSET
    136       Font.Color = clWindowText
    137       Font.Height = -11
    138       Font.Name = 'MS Sans Serif'
    139       Font.Style = []
    140       ItemHeight = 14
    141       ParentFont = False
    142       ParentShowHint = False
    143       ShowHint = True
    144       TabOrder = 2
    145       Caption = 'Modifiers'
    146       ItemTipColor = clWindow
    147       LongList = False
    148       Pieces = '2,3'
    149       TabPosInPixels = True
    150       CheckBoxes = True
    151       CheckEntireLine = True
    152       OnClickCheck = lbModsClickCheck
    153     end
    154   end
    155   object spnProcQty: TUpDown
     94  object spnProcQty: TUpDown [11]
    15695    Left = 348
    15796    Top = 371
    … …  
    162101    Position = 1
    163102    TabOrder = 5
    164     Wrap = False
    165   end
    166   object txtProcQty: TCaptionEdit
     103  end
     104  object txtProcQty: TCaptionEdit [12]
    167105    Left = 288
    168106    Top = 371
    … …  
    175113    Caption = 'Quantity'
    176114  end
    177   object cboProvider: TORComboBox
     115  object cboProvider: TORComboBox [13]
    178116    Left = 56
    179117    Top = 371
    … …  
    199137    OnChange = cboProviderChange
    200138    OnNeedData = cboProviderNeedData
     139    CharsNeedMatch = 1
     140  end
     141  inherited btnRemove: TButton
     142    Left = 454
     143    Top = 371
     144    TabOrder = 7
     145    ExplicitLeft = 454
     146    ExplicitTop = 371
     147  end
     148  inherited btnSelectAll: TButton
     149    Left = 374
     150    Top = 371
     151    Height = 21
     152    TabOrder = 6
     153    TabStop = True
     154    ExplicitLeft = 374
     155    ExplicitTop = 371
     156    ExplicitHeight = 21
     157  end
     158  inherited pnlMain: TPanel
     159    TabOrder = 0
     160    inherited splLeft: TSplitter
     161      Left = 145
     162      ExplicitLeft = 145
     163    end
     164    object splRight: TSplitter [1]
     165      Left = 349
     166      Top = 0
     167      Height = 204
     168      Align = alRight
     169      OnMoved = splRightMoved
     170    end
     171    inherited lbxSection: TORListBox
     172      Tag = 30
     173      Left = 148
     174      Width = 201
     175      ItemHeight = 14
     176      Pieces = '2,3'
     177      ExplicitLeft = 148
     178      ExplicitWidth = 201
     179    end
     180    inherited pnlLeft: TPanel
     181      Width = 145
     182      ExplicitWidth = 145
     183      inherited lbSection: TORListBox
     184        Tag = 30
     185        Width = 145
     186        TabOrder = 0
     187        ExplicitWidth = 145
     188      end
     189      inherited btnOther: TButton
     190        Tag = 13
     191        Left = 3
     192        Caption = 'Other Procedure...'
     193        TabOrder = 1
     194        ExplicitLeft = 3
     195      end
     196    end
     197    object lbMods: TORListBox
     198      Left = 352
     199      Top = 0
     200      Width = 260
     201      Height = 204
     202      Style = lbOwnerDrawFixed
     203      Align = alRight
     204      Font.Charset = DEFAULT_CHARSET
     205      Font.Color = clWindowText
     206      Font.Height = -11
     207      Font.Name = 'MS Sans Serif'
     208      Font.Style = []
     209      ItemHeight = 14
     210      ParentFont = False
     211      ParentShowHint = False
     212      ShowHint = True
     213      TabOrder = 2
     214      OnExit = lbModsExit
     215      Caption = 'Modifiers'
     216      ItemTipColor = clWindow
     217      LongList = False
     218      Pieces = '2,3'
     219      TabPosInPixels = True
     220      CheckBoxes = True
     221      CheckEntireLine = True
     222      OnClickCheck = lbModsClickCheck
     223    end
     224  end
     225  inherited amgrMain: TVA508AccessibilityManager
     226    Data = (
     227      (
     228        'Component = lbMods'
     229        'Label = lblMod'
     230        'Status = stsOK')
     231      (
     232        'Component = spnProcQty'
     233        'Status = stsDefault')
     234      (
     235        'Component = txtProcQty'
     236        'Status = stsDefault')
     237      (
     238        'Component = cboProvider'
     239        'Status = stsDefault')
     240      (
     241        'Component = edtComment'
     242        'Label = lblComment'
     243        'Status = stsOK')
     244      (
     245        'Component = btnRemove'
     246        'Status = stsDefault')
     247      (
     248        'Component = btnSelectAll'
     249        'Status = stsDefault')
     250      (
     251        'Component = pnlMain'
     252        'Status = stsDefault')
     253      (
     254        'Component = lbxSection'
     255        'Label = lblList'
     256        'Status = stsOK')
     257      (
     258        'Component = pnlLeft'
     259        'Status = stsDefault')
     260      (
     261        'Component = lbSection'
     262        'Label = lblSection'
     263        'Status = stsOK')
     264      (
     265        'Component = btnOther'
     266        'Status = stsDefault')
     267      (
     268        'Component = pnlGrid'
     269        'Status = stsDefault')
     270      (
     271        'Component = lbGrid'
     272        'Status = stsDefault')
     273      (
     274        'Component = hcGrid'
     275        'Status = stsDefault')
     276      (
     277        'Component = btnOK'
     278        'Status = stsDefault')
     279      (
     280        'Component = btnCancel'
     281        'Status = stsDefault')
     282      (
     283        'Component = frmProcedures'
     284        'Status = stsDefault'))
    201285  end
    202286end

  • cprs/trunk/CPRS-Chart/Encounter/fProcedure.pas

    r456 r829  
    11unit fProcedure;
     2{Warning: The tab order has been changed in the OnExit event of several controls.
     3 To change the tab order of lbSection, lbxSection, lbMods, and btnOther you must do it programatically.}
    24
    35interface
    … …  
    68  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    79  fPCEBase, StdCtrls, ComCtrls, CheckLst, ORCtrls, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   fPCELex, fPCEOther, fPCEBaseGrid, fPCEBaseMain;
     10  fPCELex, fPCEOther, fPCEBaseGrid, fPCEBaseMain, VA508AccessibilityManager;
    911
    1012type
    … …  
    3335      Direction, InsertAt: Integer);
    3436    procedure cboProviderChange(Sender: TObject);
     37    procedure lbxSectionExit(Sender: TObject);
     38    procedure lbModsExit(Sender: TObject);
     39    procedure btnOtherExit(Sender: TObject);
    3540  private
    3641    FCheckingCode: boolean;
    … …  
    3843    FLastCPTCodes: string;
    3944    FModsReadOnly: boolean;
     45    FProviderChanging: boolean;
    4046    FModsROChecked: string;
    4147    function MissingProvider: boolean;
    … …  
    5864
    5965uses
    60   fEncounterFrame, uConst, rCore;
     66  fEncounterFrame, uConst, rCore, VA508AccessibilityRouter;
    6167
    6268const
    … …  
    8894      if(lbGrid.Selected[i]) then
    8995        TPCEProc(lbGrid.Items.Objects[i]).Provider := cboProvider.ItemIEN;
    90     GridChanged;
     96    FProviderChanging := TRUE; // CQ 11707
     97    try
     98      GridChanged;
     99    finally
     100      FProviderChanging := FALSE;
     101    end;
    91102  end;
    92103end;
    … …  
    102113  FSectionTabCount := 1;
    103114  FormResize(Self);
     115  lbMods.HideSelection := TRUE;
    104116end;
    105117
    … …  
    170182          txtProcQty.Text := '';
    171183        end;
    172         if(SameProv) then
    173           cboProvider.SetExactByIEN(Prov, ExternalName(Prov, 200))
    174         else
    175           cboProvider.SetExactByIEN(uProviders.PCEProvider, uProviders.PCEProviderName);
    176           //cboProvider.ItemIndex := -1;     v22.8 - RV
     184        if not FProviderChanging then // CQ 11707
     185        begin
     186          if(SameProv) then
     187            cboProvider.SetExactByIEN(Prov, ExternalName(Prov, 200))
     188          else
     189            cboProvider.SetExactByIEN(uProviders.PCEProvider, uProviders.PCEProviderName);
     190            //cboProvider.ItemIndex := -1;     v22.8 - RV
     191        end;
    177192      end
    178193      else
    … …  
    418433end;
    419434
     435procedure TfrmProcedures.lbModsExit(Sender: TObject);
     436begin
     437  inherited;
     438  if TabIsPressed then
     439    if btnOther.CanFocus then
     440      btnOther.SetFocus;
     441end;
     442
    420443procedure TfrmProcedures.lbSectionClick(Sender: TObject);
    421444begin
    … …  
    434457    inherited;
    435458    Sync2Grid;
     459    lbxSection.Selected[Index] := True;
    436460    if(lbxSection.ItemIndex >= 0) and (lbxSection.ItemIndex = Index) and
    437461      (lbxSection.Checked[Index]) then
    438462    begin
    439       UpdateModifierList(lbxSection.Items, Index);
    440       lbxSection.Checked[Index] := TRUE;
     463      UpdateModifierList(lbxSection.Items, Index); // CQ#16439
     464      lbxSection.Checked[Index] := TRUE;   
    441465      for i := 0 to lbGrid.Items.Count-1 do
    442466      begin
    … …  
    456480            Modifiers := Piece(lbxSection.Items[lbxSection.ItemIndex], U, 4);
    457481            GridChanged;
     482            lbxSection.Selected[Index] := True; // CQ#15493
    458483            exit;
    459484          end;
    … …  
    466491end;
    467492
     493procedure TfrmProcedures.lbxSectionExit(Sender: TObject);
     494begin
     495  if TabIsPressed then begin
     496    if lbMods.CanFocus then
     497      lbMods.SetFocus;
     498  end
     499  else if ShiftTabIsPressed then
     500    if lbSection.CanFocus then
     501      lbSection.SetFocus;
     502end;
     503
    468504procedure TfrmProcedures.btnOtherClick(Sender: TObject);
    469505begin
    … …  
    471507  Sync2Grid;
    472508  ShowModifiers;
     509end;
     510
     511procedure TfrmProcedures.btnOtherExit(Sender: TObject);
     512begin
     513  if TabIsPressed then begin
     514    if lbGrid.CanFocus then
     515      lbGrid.SetFocus;
     516  end
     517  else if ShiftTabIsPressed then
     518    if lbMods.CanFocus then
     519      lbMods.SetFocus;   
    473520end;
    474521
    … …  
    537584end;
    538585
     586initialization
     587  SpecifyFormIsNotADialog(TfrmProcedures);
     588
    539589end.

  • cprs/trunk/CPRS-Chart/Encounter/fSkinTest.dfm

    r456 r829  
    33  Top = 163
    44  Caption = 'Encounter Skin Test form'
     5  ExplicitLeft = 213
     6  ExplicitTop = 163
    57  PixelsPerInch = 96
    68  TextHeight = 13
    … …  
    3840    Width = 84
    3941    Caption = 'Skin Test Section'
     42    ExplicitWidth = 84
    4043  end
    4144  inherited btnOK: TBitBtn
    … …  
    7679    TabOrder = 3
    7780  end
     81  object UpDnReading: TUpDown [12]
     82    Left = 531
     83    Top = 304
     84    Width = 15
     85    Height = 21
     86    Associate = EdtReading
     87    Max = 40
     88    TabOrder = 6
     89    OnChanging = UpDnReadingChanging
     90  end
     91  object EdtReading: TCaptionEdit [13]
     92    Left = 490
     93    Top = 304
     94    Width = 41
     95    Height = 21
     96    Enabled = False
     97    TabOrder = 5
     98    Text = '0'
     99    OnChange = EdtReadingChange
     100    Caption = 'Reading'
     101  end
     102  object edtDtRead: TCaptionEdit [14]
     103    Left = 104
     104    Top = 376
     105    Width = 97
     106    Height = 21
     107    TabOrder = 8
     108    Text = 'edtDtRead'
     109    Visible = False
     110    Caption = 'Date Read'
     111  end
     112  object edtDTGiven: TCaptionEdit [15]
     113    Left = 280
     114    Top = 376
     115    Width = 81
     116    Height = 21
     117    TabOrder = 9
     118    Text = 'edtDTGiven'
     119    Visible = False
     120    Caption = 'Date Given'
     121  end
     122  object cboSkinResults: TORComboBox [16]
     123    Tag = 30
     124    Left = 490
     125    Top = 260
     126    Width = 121
     127    Height = 21
     128    Style = orcsDropDown
     129    AutoSelect = True
     130    Caption = 'Results'
     131    Color = clWindow
     132    DropDownCount = 8
     133    Enabled = False
     134    ItemHeight = 13
     135    ItemTipColor = clWindow
     136    ItemTipEnable = True
     137    ListItemsOnly = False
     138    LongList = False
     139    LookupPiece = 0
     140    MaxLength = 0
     141    Pieces = '2'
     142    Sorted = False
     143    SynonymChars = '<>'
     144    TabOrder = 4
     145    OnChange = cboSkinResultsChange
     146    CharsNeedMatch = 1
     147  end
    78148  inherited btnRemove: TButton
    79149    TabOrder = 7
    … …  
    101171    end
    102172  end
    103   object UpDnReading: TUpDown
    104     Left = 531
    105     Top = 304
    106     Width = 15
    107     Height = 21
    108     Associate = EdtReading
    109     Min = 0
    110     Max = 40
    111     Position = 0
    112     TabOrder = 6
    113     Wrap = False
    114     OnChanging = UpDnReadingChanging
    115   end
    116   object EdtReading: TCaptionEdit
    117     Left = 490
    118     Top = 304
    119     Width = 41
    120     Height = 21
    121     Enabled = False
    122     TabOrder = 5
    123     Text = '0'
    124     OnChange = EdtReadingChange
    125     Caption = 'Reading'
    126   end
    127   object edtDtRead: TCaptionEdit
    128     Left = 104
    129     Top = 376
    130     Width = 97
    131     Height = 21
    132     TabOrder = 8
    133     Text = 'edtDtRead'
    134     Visible = False
    135     Caption = 'Date Read'
    136   end
    137   object edtDTGiven: TCaptionEdit
    138     Left = 280
    139     Top = 376
    140     Width = 81
    141     Height = 21
    142     TabOrder = 9
    143     Text = 'edtDTGiven'
    144     Visible = False
    145     Caption = 'Date Given'
    146   end
    147   object cboSkinResults: TORComboBox
    148     Tag = 30
    149     Left = 490
    150     Top = 260
    151     Width = 121
    152     Height = 21
    153     Style = orcsDropDown
    154     AutoSelect = True
    155     Caption = 'Results'
    156     Color = clWindow
    157     DropDownCount = 8
    158     Enabled = False
    159     ItemHeight = 13
    160     ItemTipColor = clWindow
    161     ItemTipEnable = True
    162     ListItemsOnly = False
    163     LongList = False
    164     MaxLength = 0
    165     Pieces = '2'
    166     Sorted = False
    167     SynonymChars = '<>'
    168     TabOrder = 4
    169     OnChange = cboSkinResultsChange
     173  inherited amgrMain: TVA508AccessibilityManager
     174    Data = (
     175      (
     176        'Component = UpDnReading'
     177        'Status = stsDefault')
     178      (
     179        'Component = EdtReading'
     180        'Label = lblReading'
     181        'Status = stsOK')
     182      (
     183        'Component = edtDtRead'
     184        'Label = lblDTRead'
     185        'Status = stsOK')
     186      (
     187        'Component = edtDTGiven'
     188        'Label = lblDTGiven'
     189        'Status = stsOK')
     190      (
     191        'Component = cboSkinResults'
     192        'Label = lblSkinResults'
     193        'Status = stsOK')
     194      (
     195        'Component = edtComment'
     196        'Label = lblComment'
     197        'Status = stsOK')
     198      (
     199        'Component = btnRemove'
     200        'Status = stsDefault')
     201      (
     202        'Component = btnSelectAll'
     203        'Status = stsDefault')
     204      (
     205        'Component = pnlMain'
     206        'Status = stsDefault')
     207      (
     208        'Component = lbxSection'
     209        'Label = lblList'
     210        'Status = stsOK')
     211      (
     212        'Component = pnlLeft'
     213        'Status = stsDefault')
     214      (
     215        'Component = lbSection'
     216        'Label = lblSection'
     217        'Status = stsOK')
     218      (
     219        'Component = btnOther'
     220        'Status = stsDefault')
     221      (
     222        'Component = pnlGrid'
     223        'Status = stsDefault')
     224      (
     225        'Component = lbGrid'
     226        'Status = stsDefault')
     227      (
     228        'Component = hcGrid'
     229        'Status = stsDefault')
     230      (
     231        'Component = btnOK'
     232        'Status = stsDefault')
     233      (
     234        'Component = btnCancel'
     235        'Status = stsDefault')
     236      (
     237        'Component = frmSkinTests'
     238        'Status = stsDefault'))
    170239  end
    171240end

  • cprs/trunk/CPRS-Chart/Encounter/fSkinTest.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, ORCtrls, StdCtrls, ComCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
    8   fPCELex, fPCEOther, rCore, fPCEBaseMain;
     8  fPCELex, fPCEOther, rCore, fPCEBaseMain, VA508AccessibilityManager;
    99
    1010type
    … …  
    4141
    4242uses
    43   fEncounterFrame;
     43  fEncounterFrame, VA508AccessibilityRouter;
    4444
    4545procedure TfrmSkinTests.cboSkinResultsChange(Sender: TObject);
    … …  
    137137      else
    138138      begin
    139         Showmessage('If the reading is over 9, the results are required to be positive.');
     139        Show508Message('If the reading is over 9, the results are required to be positive.');
    140140        cboSkinResults.SelectById('P');
    141141       end;
    … …  
    245245end;
    246246
     247initialization
     248  SpecifyFormIsNotADialog(TfrmSkinTests);
     249
    247250end.
    248251 

  • cprs/trunk/CPRS-Chart/Encounter/fVisitType.dfm

    r456 r829  
    11inherited frmVisitType: TfrmVisitType
    2   Left = 255
    3   Top = 186
     2  Left = 260
    43  Caption = 'Encounter VisitType'
    5   ClientWidth = 620
     4  ClientHeight = 438
     5  ClientWidth = 592
     6  Constraints.MinHeight = 465
     7  Constraints.MinWidth = 600
    68  OnCloseQuery = FormCloseQuery
    7   OnResize = FormResize
     9  ExplicitLeft = 260
     10  ExplicitWidth = 600
     11  ExplicitHeight = 472
    812  PixelsPerInch = 96
    913  TextHeight = 13
    10   object lblVType: TLabel [0]
    11     Left = 150
    12     Top = 6
    13     Width = 67
    14     Height = 13
    15     Caption = 'Section Name'
     14  inherited btnOK: TBitBtn
     15    Left = 436
     16    Top = 414
     17    TabOrder = 3
     18    ExplicitLeft = 474
     19    ExplicitTop = 459
    1620  end
    17   object lblSCDisplay: TLabel [1]
    18     Left = 6
    19     Top = 123
    20     Width = 186
    21     Height = 13
    22     Caption = 'Service Connection && Rated Disabilities'
    23   end
    24   object lblVTypeSection: TLabel [2]
    25     Left = 6
    26     Top = 6
    27     Width = 58
    28     Height = 13
    29     Caption = 'Type of Visit'
    30   end
    31   object lblCurrentProv: TLabel [3]
    32     Left = 277
    33     Top = 249
    34     Width = 165
    35     Height = 13
    36     Caption = 'Current providers for this encounter'
    37   end
    38   object lblProvider: TLabel [4]
    39     Left = 6
    40     Top = 249
    41     Width = 89
    42     Height = 13
    43     Caption = 'Available providers'
    44   end
    45   object lblMod: TLabel [5]
    46     Left = 358
    47     Top = 6
    48     Width = 42
    49     Height = 13
    50     Hint = 'Modifiers'
    51     Caption = 'Modifiers'
    52     ParentShowHint = False
    53     ShowHint = True
    54   end
    55   inherited btnOK: TBitBtn
    56     Left = 463
    57     Top = 377
    58     TabOrder = 8
    59   end
    60   inherited btnCancel: TBitBtn
    61     Left = 543
    62     Top = 377
    63     TabOrder = 9
    64   end
    65   object pnlMain: TPanel
    66     Left = 2
    67     Top = 19
    68     Width = 615
    69     Height = 92
     21  object pnlTop: TPanel [1]
     22    Left = 0
     23    Top = 0
     24    Width = 592
     25    Height = 105
     26    Align = alTop
    7027    BevelOuter = bvNone
    7128    TabOrder = 0
     29    ExplicitWidth = 630
    7230    object splLeft: TSplitter
    7331      Left = 145
    7432      Top = 0
    75       Width = 3
    76       Height = 92
    77       Cursor = crHSplit
    78       OnMoved = splLeftMoved
     33      Height = 105
     34      ExplicitLeft = 154
     35      ExplicitTop = 7
     36      ExplicitHeight = 145
    7937    end
    8038    object splRight: TSplitter
    81       Left = 352
    82       Top = 0
    83       Width = 3
    84       Height = 92
    85       Cursor = crHSplit
    86       Align = alRight
    87       OnMoved = splRightMoved
     39      Left = 361
     40      Top = 0
     41      Height = 105
     42      ExplicitLeft = 634
    8843    end
    8944    object pnlLeft: TPanel
    … …  
    9146      Top = 0
    9247      Width = 145
    93       Height = 92
     48      Height = 105
    9449      Align = alLeft
    9550      BevelOuter = bvNone
    9651      TabOrder = 0
     52      ExplicitHeight = 145
     53      object lblVTypeSection: TLabel
     54        Left = 0
     55        Top = 0
     56        Width = 145
     57        Height = 13
     58        Align = alTop
     59        Caption = 'Type of Visit'
     60        ExplicitWidth = 58
     61      end
    9762      object lstVTypeSection: TORListBox
    9863        Tag = 10
    9964        Left = 0
    100         Top = 0
     65        Top = 13
    10166        Width = 145
    10267        Height = 92
    103         Align = alTop
     68        Align = alClient
    10469        ItemHeight = 13
    10570        ParentShowHint = False
    … …  
    11479      end
    11580    end
    116     object lbxVisits: TORListBox
    117       Tag = 10
     81    object pnlModifiers: TPanel
     82      Left = 364
     83      Top = 0
     84      Width = 228
     85      Height = 105
     86      Align = alClient
     87      BevelOuter = bvNone
     88      TabOrder = 2
     89      ExplicitLeft = 431
     90      ExplicitWidth = 199
     91      ExplicitHeight = 145
     92      object lblMod: TLabel
     93        Left = 0
     94        Top = 0
     95        Width = 228
     96        Height = 13
     97        Hint = 'Modifiers'
     98        Align = alTop
     99        Caption = 'Modifiers'
     100        ParentShowHint = False
     101        ShowHint = True
     102        ExplicitWidth = 42
     103      end
     104      object lbMods: TORListBox
     105        Left = 0
     106        Top = 13
     107        Width = 228
     108        Height = 92
     109        Style = lbOwnerDrawFixed
     110        Align = alClient
     111        Font.Charset = DEFAULT_CHARSET
     112        Font.Color = clWindowText
     113        Font.Height = -11
     114        Font.Name = 'MS Sans Serif'
     115        Font.Style = []
     116        ItemHeight = 14
     117        ParentFont = False
     118        ParentShowHint = False
     119        ShowHint = True
     120        TabOrder = 0
     121        Caption = 'Modifiers'
     122        ItemTipColor = clWindow
     123        LongList = False
     124        Pieces = '2,3'
     125        TabPosInPixels = True
     126        CheckBoxes = True
     127        CheckEntireLine = True
     128        OnClickCheck = lbModsClickCheck
     129        ExplicitWidth = 199
     130        ExplicitHeight = 132
     131      end
     132    end
     133    object pnlSection: TPanel
    118134      Left = 148
    119135      Top = 0
    120       Width = 204
    121       Height = 92
    122       Style = lbOwnerDrawFixed
     136      Width = 213
     137      Height = 105
     138      Align = alLeft
     139      BevelOuter = bvNone
     140      Caption = 'pnlSection'
     141      TabOrder = 1
     142      object lblVType: TLabel
     143        Left = 0
     144        Top = 0
     145        Width = 213
     146        Height = 13
     147        Align = alTop
     148        Caption = 'Section Name'
     149        ExplicitWidth = 67
     150      end
     151      object lbxVisits: TORListBox
     152        Tag = 10
     153        Left = 0
     154        Top = 13
     155        Width = 213
     156        Height = 92
     157        Style = lbOwnerDrawFixed
     158        Align = alClient
     159        ItemHeight = 16
     160        ParentShowHint = False
     161        ShowHint = True
     162        TabOrder = 0
     163        OnClick = lbxVisitsClick
     164        Caption = 'Section Name'
     165        ItemTipColor = clWindow
     166        LongList = False
     167        Pieces = '3,4,5'
     168        TabPosInPixels = True
     169        CheckBoxes = True
     170        CheckEntireLine = True
     171        OnClickCheck = lbxVisitsClickCheck
     172        ExplicitLeft = -3
     173        ExplicitTop = 7
     174        ExplicitWidth = 281
     175      end
     176    end
     177  end
     178  object pnlMiddle: TPanel [2]
     179    Left = 0
     180    Top = 105
     181    Width = 592
     182    Height = 164
     183    Align = alTop
     184    BevelOuter = bvNone
     185    TabOrder = 1
     186    ExplicitTop = 145
     187    ExplicitWidth = 630
     188    inline fraVisitRelated: TfraVisitRelated
     189      Left = 384
     190      Top = 0
     191      Width = 208
     192      Height = 164
     193      Align = alRight
     194      TabOrder = 1
     195      ExplicitLeft = 384
     196      ExplicitWidth = 208
     197      ExplicitHeight = 164
     198      inherited gbVisitRelatedTo: TGroupBox
     199        Width = 208
     200        Height = 164
     201        ExplicitWidth = 208
     202        ExplicitHeight = 164
     203        inherited chkMSTYes: TCheckBox
     204          Top = 127
     205          ExplicitTop = 127
     206        end
     207        inherited chkMSTNo: TCheckBox
     208          Top = 127
     209          ExplicitTop = 127
     210        end
     211        inherited chkHNCYes: TCheckBox
     212          Top = 143
     213          ExplicitTop = 143
     214        end
     215        inherited chkHNCNo: TCheckBox
     216          Top = 142
     217          Width = 150
     218          Height = 18
     219          Caption = 'Head and/or Neck Cancer     No'
     220          ExplicitTop = 142
     221          ExplicitWidth = 150
     222          ExplicitHeight = 18
     223        end
     224      end
     225    end
     226    object pnlSC: TPanel
     227      Left = 0
     228      Top = 0
     229      Width = 384
     230      Height = 164
    123231      Align = alClient
    124       ItemHeight = 16
    125       ParentShowHint = False
    126       ShowHint = True
     232      BevelOuter = bvNone
     233      TabOrder = 0
     234      ExplicitWidth = 422
     235      object lblSCDisplay: TLabel
     236        Left = 0
     237        Top = 0
     238        Width = 384
     239        Height = 13
     240        Align = alTop
     241        Caption = 'Service Connection && Rated Disabilities'
     242        ExplicitWidth = 186
     243      end
     244      object memSCDisplay: TCaptionMemo
     245        Left = 0
     246        Top = 13
     247        Width = 384
     248        Height = 151
     249        Align = alClient
     250        Color = clBtnFace
     251        Lines.Strings = (
     252          '')
     253        ReadOnly = True
     254        ScrollBars = ssVertical
     255        TabOrder = 0
     256        OnEnter = memSCDisplayEnter
     257        Caption = 'Service Connection && Rated Disabilities'
     258      end
     259    end
     260  end
     261  object pnlBottom: TPanel [3]
     262    Left = 0
     263    Top = 269
     264    Width = 592
     265    Height = 141
     266    Align = alTop
     267    BevelOuter = bvNone
     268    TabOrder = 2
     269    ExplicitTop = 309
     270    ExplicitWidth = 630
     271    object btnAdd: TButton
     272      Left = 260
     273      Top = 35
     274      Width = 75
     275      Height = 21
     276      Caption = 'Add'
    127277      TabOrder = 1
    128       OnClick = lbxVisitsClick
    129       Caption = 'Section Name'
    130       ItemTipColor = clWindow
    131       LongList = False
    132       Pieces = '3,4,5'
    133       TabPosInPixels = True
    134       CheckBoxes = True
    135       CheckEntireLine = True
    136       OnClickCheck = lbxVisitsClickCheck
    137     end
    138     object lbMods: TORListBox
    139       Left = 355
    140       Top = 0
    141       Width = 260
    142       Height = 92
    143       Style = lbOwnerDrawFixed
     278      OnClick = btnAddClick
     279    end
     280    object btnDelete: TButton
     281      Left = 260
     282      Top = 72
     283      Width = 75
     284      Height = 21
     285      Caption = 'Remove'
     286      TabOrder = 2
     287      OnClick = btnDeleteClick
     288    end
     289    object btnPrimary: TButton
     290      Left = 260
     291      Top = 112
     292      Width = 75
     293      Height = 21
     294      Caption = 'Primary'
     295      TabOrder = 3
     296      OnClick = btnPrimaryClick
     297    end
     298    object pnlBottomLeft: TPanel
     299      Left = 0
     300      Top = 0
     301      Width = 240
     302      Height = 141
     303      Align = alLeft
     304      BevelOuter = bvNone
     305      TabOrder = 0
     306      object lblProvider: TLabel
     307        Left = 0
     308        Top = 0
     309        Width = 240
     310        Height = 13
     311        Align = alTop
     312        Caption = 'Available providers'
     313        ExplicitWidth = 89
     314      end
     315      object cboPtProvider: TORComboBox
     316        Left = 0
     317        Top = 13
     318        Width = 240
     319        Height = 128
     320        Style = orcsSimple
     321        Align = alClient
     322        AutoSelect = True
     323        Caption = 'Available providers'
     324        Color = clWindow
     325        DropDownCount = 8
     326        ItemHeight = 13
     327        ItemTipColor = clWindow
     328        ItemTipEnable = True
     329        ListItemsOnly = True
     330        LongList = True
     331        LookupPiece = 2
     332        MaxLength = 0
     333        Pieces = '2,3'
     334        Sorted = False
     335        SynonymChars = '<>'
     336        TabOrder = 0
     337        CheckEntireLine = True
     338        OnChange = cboPtProviderChange
     339        OnDblClick = cboPtProviderDblClick
     340        OnNeedData = cboPtProviderNeedData
     341        CharsNeedMatch = 1
     342        ExplicitWidth = 260
     343      end
     344    end
     345    object pnlBottomRight: TPanel
     346      Left = 352
     347      Top = 0
     348      Width = 240
     349      Height = 141
    144350      Align = alRight
    145       Font.Charset = DEFAULT_CHARSET
    146       Font.Color = clWindowText
    147       Font.Height = -11
    148       Font.Name = 'MS Sans Serif'
    149       Font.Style = []
    150       ItemHeight = 14
    151       ParentFont = False
    152       ParentShowHint = False
    153       ShowHint = True
    154       TabOrder = 2
    155       Caption = 'Modifiers'
    156       ItemTipColor = clWindow
    157       LongList = False
    158       Pieces = '2,3'
    159       TabPosInPixels = True
    160       CheckBoxes = True
    161       CheckEntireLine = True
    162       OnClickCheck = lbModsClickCheck
     351      BevelOuter = bvNone
     352      TabOrder = 4
     353      object lblCurrentProv: TLabel
     354        Left = 0
     355        Top = 0
     356        Width = 240
     357        Height = 13
     358        Align = alTop
     359        Caption = 'Current providers for this encounter'
     360        ExplicitWidth = 165
     361      end
     362      object lbProviders: TORListBox
     363        Left = 0
     364        Top = 13
     365        Width = 240
     366        Height = 128
     367        Align = alClient
     368        ItemHeight = 13
     369        ParentShowHint = False
     370        ShowHint = True
     371        TabOrder = 0
     372        OnDblClick = lbProvidersDblClick
     373        Caption = 'Current providers for this encounter'
     374        ItemTipColor = clWindow
     375        LongList = False
     376        Pieces = '2'
     377        OnChange = lbProvidersChange
     378        CheckEntireLine = True
     379        ExplicitTop = 11
     380        ExplicitWidth = 220
     381      end
    163382    end
    164383  end
    165   object memSCDisplay: TCaptionMemo
    166     Left = 6
    167     Top = 137
    168     Width = 411
    169     Height = 107
    170     Color = clBtnFace
    171     Lines.Strings = (
    172       '')
    173     ScrollBars = ssVertical
    174     TabOrder = 1
    175     Caption = 'Service Connection && Rated Disabilities'
     384  inherited btnCancel: TBitBtn
     385    Left = 517
     386    Top = 414
     387    TabOrder = 4
     388    ExplicitLeft = 555
     389    ExplicitTop = 459
    176390  end
    177   object lbProviders: TORListBox
    178     Left = 277
    179     Top = 265
    180     Width = 183
    181     Height = 126
    182     ItemHeight = 13
    183     ParentShowHint = False
    184     ShowHint = True
    185     TabOrder = 7
    186     OnDblClick = lbProvidersDblClick
    187     Caption = 'Current providers for this encounter'
    188     ItemTipColor = clWindow
    189     LongList = False
    190     Pieces = '2'
    191     OnChange = lbProvidersChange
    192     CheckEntireLine = True
    193   end
    194   object cboPtProvider: TORComboBox
    195     Left = 6
    196     Top = 265
    197     Width = 183
    198     Height = 126
    199     Style = orcsSimple
    200     AutoSelect = True
    201     Caption = 'Available providers'
    202     Color = clWindow
    203     DropDownCount = 8
    204     ItemHeight = 13
    205     ItemTipColor = clWindow
    206     ItemTipEnable = True
    207     ListItemsOnly = True
    208     LongList = True
    209     LookupPiece = 2
    210     MaxLength = 0
    211     Pieces = '2,3'
    212     Sorted = False
    213     SynonymChars = '<>'
    214     TabOrder = 3
    215     TabStop = True
    216     CheckEntireLine = True
    217     OnChange = cboPtProviderChange
    218     OnDblClick = cboPtProviderDblClick
    219     OnNeedData = cboPtProviderNeedData
    220   end
    221   object btnAdd: TButton
    222     Left = 196
    223     Top = 275
    224     Width = 75
    225     Height = 21
    226     Caption = 'Add'
    227     TabOrder = 4
    228     OnClick = btnAddClick
    229   end
    230   object btnDelete: TButton
    231     Left = 196
    232     Top = 307
    233     Width = 75
    234     Height = 21
    235     Caption = 'Remove'
    236     TabOrder = 5
    237     OnClick = btnDeleteClick
    238   end
    239   object btnPrimary: TButton
    240     Left = 196
    241     Top = 355
    242     Width = 75
    243     Height = 21
    244     Caption = 'Primary'
    245     TabOrder = 6
    246     OnClick = btnPrimaryClick
    247   end
    248   inline fraVisitRelated: TfraVisitRelated
    249     Left = 426
    250     Top = 112
    251     Width = 192
    252     Height = 137
    253     TabOrder = 2
     391  inherited amgrMain: TVA508AccessibilityManager
     392    Left = 8
     393    Top = 24
     394    Data = (
     395      (
     396        'Component = btnOK'
     397        'Status = stsDefault')
     398      (
     399        'Component = btnCancel'
     400        'Status = stsDefault')
     401      (
     402        'Component = frmVisitType'
     403        'Status = stsDefault')
     404      (
     405        'Component = pnlTop'
     406        'Status = stsDefault')
     407      (
     408        'Component = pnlLeft'
     409        'Status = stsDefault')
     410      (
     411        'Component = lstVTypeSection'
     412        'Label = lblVTypeSection'
     413        'Status = stsOK')
     414      (
     415        'Component = pnlMiddle'
     416        'Status = stsDefault')
     417      (
     418        'Component = fraVisitRelated'
     419        'Status = stsDefault')
     420      (
     421        'Component = fraVisitRelated.gbVisitRelatedTo'
     422        'Status = stsDefault')
     423      (
     424        'Component = fraVisitRelated.chkSCYes'
     425        'Status = stsDefault')
     426      (
     427        'Component = fraVisitRelated.chkAOYes'
     428        'Status = stsDefault')
     429      (
     430        'Component = fraVisitRelated.chkIRYes'
     431        'Status = stsDefault')
     432      (
     433        'Component = fraVisitRelated.chkECYes'
     434        'Status = stsDefault')
     435      (
     436        'Component = fraVisitRelated.chkMSTYes'
     437        'Status = stsDefault')
     438      (
     439        'Component = fraVisitRelated.chkMSTNo'
     440        'Status = stsDefault')
     441      (
     442        'Component = fraVisitRelated.chkECNo'
     443        'Status = stsDefault')
     444      (
     445        'Component = fraVisitRelated.chkIRNo'
     446        'Status = stsDefault')
     447      (
     448        'Component = fraVisitRelated.chkAONo'
     449        'Status = stsDefault')
     450      (
     451        'Component = fraVisitRelated.chkSCNo'
     452        'Status = stsDefault')
     453      (
     454        'Component = fraVisitRelated.chkHNCYes'
     455        'Status = stsDefault')
     456      (
     457        'Component = fraVisitRelated.chkHNCNo'
     458        'Status = stsDefault')
     459      (
     460        'Component = fraVisitRelated.chkCVYes'
     461        'Status = stsDefault')
     462      (
     463        'Component = fraVisitRelated.chkCVNo'
     464        'Status = stsDefault')
     465      (
     466        'Component = fraVisitRelated.chkSHDYes'
     467        'Status = stsDefault')
     468      (
     469        'Component = fraVisitRelated.chkSHDNo'
     470        'Status = stsDefault')
     471      (
     472        'Component = fraVisitRelated.lblSCNo'
     473        'Status = stsDefault')
     474      (
     475        'Component = fraVisitRelated.lblSCYes'
     476        'Status = stsDefault')
     477      (
     478        'Component = pnlSC'
     479        'Status = stsDefault')
     480      (
     481        'Component = memSCDisplay'
     482        'Label = lblSCDisplay'
     483        'Status = stsOK')
     484      (
     485        'Component = pnlBottom'
     486        'Status = stsDefault')
     487      (
     488        'Component = btnAdd'
     489        'Status = stsDefault')
     490      (
     491        'Component = btnDelete'
     492        'Status = stsDefault')
     493      (
     494        'Component = btnPrimary'
     495        'Status = stsDefault')
     496      (
     497        'Component = pnlBottomLeft'
     498        'Status = stsDefault')
     499      (
     500        'Component = cboPtProvider'
     501        'Label = lblProvider'
     502        'Status = stsOK')
     503      (
     504        'Component = pnlBottomRight'
     505        'Status = stsDefault')
     506      (
     507        'Component = lbProviders'
     508        'Label = lblCurrentProv'
     509        'Status = stsOK')
     510      (
     511        'Component = pnlModifiers'
     512        'Status = stsDefault')
     513      (
     514        'Component = lbMods'
     515        'Label = lblMod'
     516        'Status = stsOK')
     517      (
     518        'Component = pnlSection'
     519        'Status = stsDefault')
     520      (
     521        'Component = lbxVisits'
     522        'Label = lblVType'
     523        'Status = stsOK'))
    254524  end
    255525end

  • cprs/trunk/CPRS-Chart/Encounter/fVisitType.pas

    r456 r829  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, StdCtrls, CheckLst, ORCtrls, ExtCtrls, Buttons, uPCE, rPCE, ORFn, rCore,
    8   ComCtrls, mVisitRelated;
     8  ComCtrls, mVisitRelated, VA508AccessibilityManager;
    99
    1010type
    1111  TfrmVisitType = class(TfrmPCEBase)
    12     lblVType: TLabel;
     12    pnlTop: TPanel;
     13    splLeft: TSplitter;
     14    splRight: TSplitter;
     15    pnlLeft: TPanel;
     16    lstVTypeSection: TORListBox;
     17    pnlMiddle: TPanel;
     18    fraVisitRelated: TfraVisitRelated;
     19    pnlSC: TPanel;
    1320    lblSCDisplay: TLabel;
    14     lblVTypeSection: TLabel;
    1521    memSCDisplay: TCaptionMemo;
    16     lbProviders: TORListBox;
    17     lblCurrentProv: TLabel;
    18     cboPtProvider: TORComboBox;
    19     lblProvider: TLabel;
     22    pnlBottom: TPanel;
    2023    btnAdd: TButton;
    2124    btnDelete: TButton;
    2225    btnPrimary: TButton;
    23     fraVisitRelated: TfraVisitRelated;
    24     lstVTypeSection: TORListBox;
    25     lbxVisits: TORListBox;
     26    pnlBottomLeft: TPanel;
     27    lblProvider: TLabel;
     28    cboPtProvider: TORComboBox;
     29    pnlBottomRight: TPanel;
     30    lbProviders: TORListBox;
     31    lblCurrentProv: TLabel;
     32    lblVTypeSection: TLabel;
     33    pnlModifiers: TPanel;
    2634    lbMods: TORListBox;
    2735    lblMod: TLabel;
    28     pnlMain: TPanel;
    29     pnlLeft: TPanel;
    30     splLeft: TSplitter;
     36    pnlSection: TPanel;
     37    lbxVisits: TORListBox;
     38    lblVType: TLabel;
    3139    procedure lstVTypeSectionClick(Sender: TObject);
    3240    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    … …  
    4351    procedure FormResize(Sender: TObject);
    4452    procedure lbxVisitsClickCheck(Sender: TObject; Index: Integer);
    45     procedure splLeftMoved(Sender: TObject);
    46     procedure splRightMoved(Sender: TObject);
    4753    procedure lbModsClickCheck(Sender: TObject; Index: Integer);
    4854    procedure lbxVisitsClick(Sender: TObject);
     55    procedure memSCDisplayEnter(Sender: TObject);
    4956  protected
    5057    FSplitterMove: boolean;
    … …  
    7683
    7784uses
    78   fEncounterFrame, uCore, uConst;
     85  fEncounterFrame, uCore, uConst, VA508AccessibilityRouter;
    7986
    8087const
    … …  
    198205  RefreshProviders;
    199206  FLastMods := uEncPCEData.VisitType.Modifiers;
     207  fraVisitRelated.TabStop := FALSE;
    200208end;
    201209
    … …  
    325333  v, i: integer;
    326334  s: string;
     335  padding, size: integer;
     336  btnOffset: integer;
    327337begin
    328338  if FSplitterMove then
    329339    FSplitterMove := FALSE
    330340  else
    331     begin
    332       inherited;
    333       FSectionTabs[0] := -(lbxVisits.width - LBCheckWidthSpace - MainFontWidth - ScrollBarWidth);
    334       FSectionTabs[1] := -(lbxVisits.width - (6*MainFontWidth) - ScrollBarWidth);
    335       if(FSectionTabs[0] <= FSectionTabs[1]) then FSectionTabs[0] := FSectionTabs[1]+2;
    336       lbxVisits.TabPositions := SectionString;
    337       v := (lbMods.width - LBCheckWidthSpace - (4*MainFontWidth) - ScrollBarWidth);
    338       s := '';
    339       for i := 1 to 20 do
    340       begin
    341         if s <> '' then s := s + ',';
    342         s := s + inttostr(v);
    343         if(v<0) then
    344           dec(v,32)
    345         else
    346           inc(v,32);
    347       end;
    348       lbMods.TabPositions := s;
    349     end;
     341  begin
     342//      inherited;
     343    FSectionTabs[0] := -(lbxVisits.width - LBCheckWidthSpace - MainFontWidth - ScrollBarWidth);
     344    FSectionTabs[1] := -(lbxVisits.width - (6*MainFontWidth) - ScrollBarWidth);
     345    if(FSectionTabs[0] <= FSectionTabs[1]) then FSectionTabs[0] := FSectionTabs[1]+2;
     346    lbxVisits.TabPositions := SectionString;
     347    v := (lbMods.width - LBCheckWidthSpace - (4*MainFontWidth) - ScrollBarWidth);
     348    s := '';
     349    for i := 1 to 20 do
     350    begin
     351      if s <> '' then s := s + ',';
     352      s := s + inttostr(v);
     353      if(v<0) then
     354        dec(v,32)
     355      else
     356        inc(v,32);
     357    end;
     358    lbMods.TabPositions := s;
     359  end;
     360  btnOffset := btnAdd.Width div 7;
     361  padding := btnAdd.Width + (btnOffset * 2);
     362  size := (ClientWidth - padding) div 2;
     363  pnlBottomLeft.Width := size;
     364  pnlBottomRight.Width := size;
     365  btnAdd.Left := size + btnOffset;
     366  btnDelete.Left := size + btnOffset;
     367  btnPrimary.Left := size + btnOffset;
     368  btnOK.top := ClientHeight - btnOK.Height - 4;
     369  btnCancel.top := btnOK.Top;
     370  btnCancel.Left := ClientWidth - btnCancel.Width - 4;
     371  btnOK.Left := btnCancel.Left - btnOK.Width - 4;
     372  size := ClientHeight - btnOK.Height - pnlMiddle.Height - pnlBottom.Height - 8;
     373  pnlTop.Height := size;
    350374end;
    351375
    … …  
    479503end;
    480504
    481 procedure TfrmVisitType.splLeftMoved(Sender: TObject);
    482 begin
    483   inherited;
    484   lblVType.Left := lbxVisits.Left + pnlMain.Left;
    485   FSplitterMove := TRUE;
    486   FormResize(Sender);
    487 end;
    488 
    489 procedure TfrmVisitType.splRightMoved(Sender: TObject);
    490 begin
    491   inherited;
    492   lblMod.Left := lbMods.Left + pnlMain.Left;
    493   FSplitterMove := TRUE;
    494   FormResize(Sender);
    495 end;
    496 
    497505procedure TfrmVisitType.lbModsClickCheck(Sender: TObject; Index: Integer);
    498506var
    … …  
    527535end;
    528536
     537procedure TfrmVisitType.memSCDisplayEnter(Sender: TObject);
     538begin
     539  inherited;
     540  memSCDisplay.SelStart := 0;
     541end;
     542
    529543initialization
     544  SpecifyFormIsNotADialog(TfrmVisitType);
     545
    530546//frmVisitType.CreateProviderList;
    531547

  • cprs/trunk/CPRS-Chart/Encounter/mVisitRelated.dfm

    r456 r829  
    22  Left = 0
    33  Top = 0
    4   Width = 192
    5   Height = 136
     4  Width = 206
     5  Height = 172
    66  TabOrder = 0
    7   object bvlSCFrame: TBevel
     7  object gbVisitRelatedTo: TGroupBox
    88    Left = 0
    9     Top = 14
    10     Width = 191
    11     Height = 119
    12     Shape = bsFrame
    13   end
    14   object lblSCYes: TStaticText
    15     Left = 3
    169    Top = 0
    17     Width = 22
    18     Height = 13
    19     AutoSize = False
    20     Caption = 'Yes'
    21     TabOrder = 14
    22   end
    23   object lblSCNo: TStaticText
    24     Left = 26
    25     Top = 0
    26     Width = 18
    27     Height = 13
    28     AutoSize = False
    29     Caption = 'No'
    30     TabOrder = 15
    31   end
    32   object lblSCSelect: TStaticText
    33     Left = 44
    34     Top = 0
    35     Width = 131
    36     Height = 13
    37     Alignment = taCenter
    38     AutoSize = False
     10    Width = 206
     11    Height = 172
     12    Align = alClient
    3913    Caption = 'Visit Related To'
    40     TabOrder = 16
    41   end
    42   object chkSCYes: TCheckBox
    43     Tag = 1
    44     Left = 6
    45     Top = 17
    46     Width = 16
    47     Height = 17
    4814    TabOrder = 0
    49     OnClick = chkClick
    50   end
    51   object chkAOYes: TCheckBox
    52     Tag = 2
    53     Left = 6
    54     Top = 49
    55     Width = 16
    56     Height = 17
    57     TabOrder = 4
    58     OnClick = chkClick
    59   end
    60   object chkIRYes: TCheckBox
    61     Tag = 3
    62     Left = 6
    63     Top = 65
    64     Width = 16
    65     Height = 17
    66     TabOrder = 6
    67     OnClick = chkClick
    68   end
    69   object chkECYes: TCheckBox
    70     Tag = 4
    71     Left = 6
    72     Top = 81
    73     Width = 16
    74     Height = 17
    75     TabOrder = 8
    76     OnClick = chkClick
    77   end
    78   object chkMSTYes: TCheckBox
    79     Tag = 5
    80     Left = 6
    81     Top = 97
    82     Width = 16
    83     Height = 17
    84     TabOrder = 10
    85     OnClick = chkClick
    86   end
    87   object chkMSTNo: TCheckBox
    88     Tag = 15
    89     Left = 26
    90     Top = 97
    91     Width = 160
    92     Height = 17
    93     Caption = 'MST'
    94     TabOrder = 11
    95     OnClick = chkClick
    96   end
    97   object chkECNo: TCheckBox
    98     Tag = 14
    99     Left = 26
    100     Top = 81
    101     Width = 160
    102     Height = 17
    103     Caption = 'Environmental Contaminants'
    104     TabOrder = 9
    105     OnClick = chkClick
    106   end
    107   object chkIRNo: TCheckBox
    108     Tag = 13
    109     Left = 26
    110     Top = 65
    111     Width = 160
    112     Height = 17
    113     Caption = 'Ionizing Radiation Exposure'
    114     TabOrder = 7
    115     OnClick = chkClick
    116   end
    117   object chkAONo: TCheckBox
    118     Tag = 12
    119     Left = 26
    120     Top = 49
    121     Width = 160
    122     Height = 17
    123     Caption = 'Agent Orange Exposure'
    124     TabOrder = 5
    125     OnClick = chkClick
    126   end
    127   object chkSCNo: TCheckBox
    128     Tag = 11
    129     Left = 26
    130     Top = 17
    131     Width = 160
    132     Height = 17
    133     Caption = 'Service Connected Condition'
    134     TabOrder = 1
    135     OnClick = chkClick
    136   end
    137   object chkHNCYes: TCheckBox
    138     Tag = 6
    139     Left = 6
    140     Top = 113
    141     Width = 16
    142     Height = 17
    143     TabOrder = 12
    144     OnClick = chkClick
    145   end
    146   object chkHNCNo: TCheckBox
    147     Tag = 16
    148     Left = 26
    149     Top = 113
    150     Width = 160
    151     Height = 17
    152     Caption = 'Head and/or Neck Cancer'
    153     TabOrder = 13
    154     OnClick = chkClick
    155   end
    156   object chkCVYes: TCheckBox
    157     Tag = 7
    158     Left = 6
    159     Top = 33
    160     Width = 16
    161     Height = 17
    162     TabOrder = 2
    163     OnClick = chkClick
    164   end
    165   object chkCVNo: TCheckBox
    166     Tag = 17
    167     Left = 26
    168     Top = 33
    169     Width = 160
    170     Height = 17
    171     Caption = 'Combat Vet (Combat Related)'
    172     TabOrder = 3
    173     OnClick = chkClick
     15    object chkSCYes: TCheckBox
     16      Tag = 1
     17      Left = 7
     18      Top = 33
     19      Width = 14
     20      Height = 17
     21      Caption = 'Service Connected Condition     Yes'
     22      TabOrder = 0
     23      OnClick = chkClick
     24    end
     25    object chkAOYes: TCheckBox
     26      Tag = 2
     27      Left = 7
     28      Top = 65
     29      Width = 14
     30      Height = 17
     31      Caption = 'Agent Orange Exposure     Yes'
     32      TabOrder = 4
     33      OnClick = chkClick
     34    end
     35    object chkIRYes: TCheckBox
     36      Tag = 3
     37      Left = 7
     38      Top = 81
     39      Width = 14
     40      Height = 17
     41      Caption = 'Ionizing Radiation Exposure     Yes'
     42      TabOrder = 6
     43      OnClick = chkClick
     44    end
     45    object chkECYes: TCheckBox
     46      Tag = 4
     47      Left = 7
     48      Top = 97
     49      Width = 14
     50      Height = 17
     51      Caption = 'Southwest Asia Conditions     Yes'
     52      TabOrder = 8
     53      OnClick = chkClick
     54    end
     55    object chkMSTYes: TCheckBox
     56      Tag = 5
     57      Left = 7
     58      Top = 129
     59      Width = 14
     60      Height = 17
     61      Caption = 'MST     Yes'
     62      TabOrder = 12
     63      OnClick = chkClick
     64    end
     65    object chkMSTNo: TCheckBox
     66      Tag = 15
     67      Left = 27
     68      Top = 129
     69      Width = 40
     70      Height = 17
     71      Caption = 'MST     No'
     72      TabOrder = 13
     73      OnClick = chkClick
     74    end
     75    object chkECNo: TCheckBox
     76      Tag = 14
     77      Left = 27
     78      Top = 97
     79      Width = 148
     80      Height = 17
     81      Caption = 'Southwest Asia Conditions     No'
     82      TabOrder = 9
     83      OnClick = chkClick
     84    end
     85    object chkIRNo: TCheckBox
     86      Tag = 13
     87      Left = 27
     88      Top = 81
     89      Width = 154
     90      Height = 17
     91      Caption = 'Ionizing Radiation Exposure    No'
     92      TabOrder = 7
     93      OnClick = chkClick
     94    end
     95    object chkAONo: TCheckBox
     96      Tag = 12
     97      Left = 27
     98      Top = 65
     99      Width = 136
     100      Height = 17
     101      Caption = 'Agent Orange Exposure    No'
     102      TabOrder = 5
     103      OnClick = chkClick
     104    end
     105    object chkSCNo: TCheckBox
     106      Tag = 11
     107      Left = 27
     108      Top = 33
     109      Width = 158
     110      Height = 17
     111      Caption = 'Service Connected Condition    No'
     112      TabOrder = 1
     113      OnClick = chkClick
     114    end
     115    object chkHNCYes: TCheckBox
     116      Tag = 6
     117      Left = 7
     118      Top = 145
     119      Width = 14
     120      Height = 17
     121      Caption = 'Head and/or Neck Cancer    Yes'
     122      TabOrder = 14
     123      OnClick = chkClick
     124    end
     125    object chkHNCNo: TCheckBox
     126      Tag = 16
     127      Left = 27
     128      Top = 145
     129      Width = 144
     130      Height = 17
     131      Caption = 'Head and/or Neck Cancer    No'
     132      TabOrder = 15
     133      OnClick = chkClick
     134    end
     135    object chkCVYes: TCheckBox
     136      Tag = 7
     137      Left = 7
     138      Top = 49
     139      Width = 14
     140      Height = 17
     141      Caption = 'Combat Vet (Combat Related)     Yes'
     142      TabOrder = 2
     143      OnClick = chkClick
     144    end
     145    object chkCVNo: TCheckBox
     146      Tag = 17
     147      Left = 27
     148      Top = 49
     149      Width = 165
     150      Height = 17
     151      Caption = 'Combat Vet (Combat Related)    No'
     152      TabOrder = 3
     153      OnClick = chkClick
     154    end
     155    object chkSHDYes: TCheckBox
     156      Tag = 8
     157      Left = 7
     158      Top = 112
     159      Width = 14
     160      Height = 17
     161      Caption = 'Shipboard Hazard and Defense     Yes'
     162      TabOrder = 10
     163      OnClick = chkClick
     164    end
     165    object chkSHDNo: TCheckBox
     166      Tag = 18
     167      Left = 27
     168      Top = 112
     169      Width = 168
     170      Height = 17
     171      Caption = 'Shipboard Hazard and Defense     No'
     172      TabOrder = 11
     173      OnClick = chkClick
     174    end
     175    object lblSCNo: TStaticText
     176      Left = 27
     177      Top = 16
     178      Width = 18
     179      Height = 13
     180      AutoSize = False
     181      Caption = 'No'
     182      TabOrder = 17
     183    end
     184    object lblSCYes: TStaticText
     185      Left = 4
     186      Top = 16
     187      Width = 22
     188      Height = 13
     189      AutoSize = False
     190      Caption = 'Yes'
     191      TabOrder = 16
     192    end
    174193  end
    175194end

  • cprs/trunk/CPRS-Chart/Encounter/mVisitRelated.pas

    r456 r829  
    99type
    1010  TfraVisitRelated = class(TFrame)
    11     lblSCYes: TStaticText;
    12     lblSCNo: TStaticText;
    13     lblSCSelect: TStaticText;
    14     bvlSCFrame: TBevel;
     11    gbVisitRelatedTo: TGroupBox;
    1512    chkSCYes: TCheckBox;
    1613    chkAOYes: TCheckBox;
    … …  
    2724    chkCVYes: TCheckBox;
    2825    chkCVNo: TCheckBox;
     26    chkSHDYes: TCheckBox;
     27    chkSHDNo: TCheckBox;
     28    lblSCNo: TStaticText;
     29    lblSCYes: TStaticText;
    2930    procedure chkClick(Sender: TObject);
    3031  private
    … …  
    3334    procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
    3435    function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
     36
    3537  public
    3638    constructor Create(AOwner: TComponent); override;
    3739    procedure GetRelated(PCEData: TPCEData); overload;
    3840    procedure GetRelated(var ASCRelated, AAORelated, AIRRelated,
    39                                 AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
     41                                AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
    4042    procedure InitAllow(SCCond: TSCConditions);
    4143    procedure InitRelated(PCEData: TPCEData); overload;
    4244    procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
    43                                 AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload;
     45                                AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
     46
    4447  end;
    4548
    4649implementation
     50
     51uses VA508AccessibilityRouter;
    4752
    4853{$R *.DFM}
    … …  
    5661  TAG_HNCYES     = 6;
    5762  TAG_CVYES      = 7;
     63  TAG_SHDYES     = 8;
    5864  TAG_SCNO       = 11;
    5965  TAG_AONO       = 12;
    … …  
    6369  TAG_HNCNO      = 16;
    6470  TAG_CVNO       = 17;
     71  TAG_SHDNO      = 18;
     72
    6573
    6674procedure TfraVisitRelated.chkClick(Sender: TObject);
    … …  
    7482  inherited;
    7583  if Sender is TCheckBox then with TCheckBox(Sender) do case Tag of
    76     TAG_SCYES:  if Checked then chkSCNo.Checked   := False;
    77     TAG_AOYES:  if Checked then chkAONo.Checked   := False;
    78     TAG_IRYES:  if Checked then chkIRNo.Checked   := False;
    79     TAG_ECYES:  if Checked then chkECNo.Checked   := False;
    80     TAG_MSTYES: if Checked then chkMSTNo.Checked  := False;
    81     TAG_HNCYES: if Checked then chkHNCNo.Checked  := False;
    82     TAG_CVYES:  if Checked then chkCVNo.Checked   := False;
    83     TAG_SCNO:   if Checked then chkSCYes.Checked  := False;
    84     TAG_AONO:   if Checked then chkAOYes.Checked  := False;
    85     TAG_IRNO:   if Checked then chkIRYes.Checked  := False;
    86     TAG_ECNO:   if Checked then chkECYes.Checked  := False;
    87     TAG_MSTNO:  if Checked then chkMSTYes.Checked := False;
    88     TAG_HNCNO:  if Checked then chkHNCYes.Checked := False;
    89     TAG_CVNO:   if Checked then chkCVYes.Checked  := False;
     84    TAG_SCYES:   if Checked then chkSCNo.Checked    := False;
     85    TAG_AOYES:   if Checked then chkAONo.Checked    := False;
     86    TAG_IRYES:   if Checked then chkIRNo.Checked    := False;
     87    TAG_ECYES:   if Checked then chkECNo.Checked    := False;
     88    TAG_MSTYES:  if Checked then chkMSTNo.Checked   := False;
     89    TAG_HNCYES:  if Checked then chkHNCNo.Checked   := False;
     90    TAG_CVYES:   if Checked then chkCVNo.Checked    := False;
     91    TAG_SHDYES:  if Checked then chkSHDNo.Checked   := False;
     92    TAG_SCNO:    if Checked then chkSCYes.Checked   := False;
     93    TAG_AONO:    if Checked then chkAOYes.Checked   := False;
     94    TAG_IRNO:    if Checked then chkIRYes.Checked   := False;
     95    TAG_ECNO:    if Checked then chkECYes.Checked   := False;
     96    TAG_MSTNO:   if Checked then chkMSTYes.Checked  := False;
     97    TAG_HNCNO:   if Checked then chkHNCYes.Checked  := False;
     98    TAG_CVNO:    if Checked then chkCVYes.Checked   := False;
     99    TAG_SHDNO:   if Checked then chkSHDYes.Checked := False;
    90100  end;
    91101  if chkSCYes.Checked then
    … …  
    94104    DisableCheck(chkIRYes);
    95105    DisableCheck(chkECYes);
     106    DisableCheck(chkSHDYes);
    96107//    DisableCheck(chkMSTYes);
    97108    DisableCheck(chkAONo);
    98109    DisableCheck(chkIRNo);
    99110    DisableCheck(chkECNo);
     111    DisableCheck(chkSHDNo);
    100112//    DisableCheck(chkMSTNo);
    101113  end else
    … …  
    105117    SetCheckEnable(chkIRYes,  chkIRNo,  FSCCond.IRAllow);
    106118    SetCheckEnable(chkECYes,  chkECNo,  FSCCond.ECAllow);
     119    SetCheckEnable(chkSHDYEs, chkSHDNo, FSCCond.SHDAllow);
    107120  end;
    108121  SetCheckEnable(chkMSTYes, chkMSTNo, FSCCond.MSTAllow);
    109122  SetCheckEnable(chkHNCYes, chkHNCNo, FSCCond.HNCAllow);
    110   SetCheckEnable(chkCVYes, chkCVNo, FSCCond.CVAllow);
    111   if chkAOYes.Checked or chkIRYes.Checked or chkECYes.Checked then //or chkMSTYes.Checked then
    112   begin
    113     chkSCYes.Checked := False;
    114     chkSCNo.Checked := True;
     123  SetCheckEnable(chkCVYes, chkCVNo,   FSCCond.CVAllow);
     124
     125  if chkAOYes.Checked or chkIRYes.Checked or chkECYes.Checked or chkSHDYes.Checked then //or chkMSTYes.Checked then
     126  begin
     127    if FSCCond.SCAllow then
     128    begin
     129       chkSCYes.Checked := False;
     130       chkSCNo.Checked := True;
     131    end;
    115132  end;
    116133end;
    … …  
    118135constructor TfraVisitRelated.Create(AOwner: TComponent);
    119136begin
    120   inherited;
    121 
     137  inherited Create(AOwner);
     138  TabStop := FALSE;
    122139  lblSCYes.Height := 13;
    123140  lblSCNo.Height := 13;
    124 //  chkHNCYes.Visible := HNCOK;
    125 //  chkHNCNo.Visible := HNCOK;
    126 //  if not HNCOK then
    127 //  begin
    128 //    height := height - chkHNCYes.height + 1;
    129 //    bvlSCFrame.height := bvlSCFrame.height - chkHNCYes.height + 1;
    130 //  end;
    131141end;
    132142
    … …  
    147157  PCEData.HNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
    148158  PCEData.CVRelated  := GetCheckState(chkCVYes,  chkCVNo);
     159  PCEData.SHADRelated := GetCheckState(chkSHDYes, chkSHDNo);
    149160end;
    150161
    151162procedure TfraVisitRelated.GetRelated(var ASCRelated, AAORelated,
    152   AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer);
     163  AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
    153164begin
    154165  ASCRelated  := GetCheckState(chkSCYes,  chkSCNo);
    … …  
    159170  AHNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
    160171  ACVRelated  := GetCheckState(chkCVYes,  chkCVNo);
     172  ASHDRelated := GetCheckState(chkSHDYes, chkSHDNo);
    161173end;
    162174
    … …  
    173185    SetCheckEnable(chkHNCYes, chkHNCNo, HNCAllow);
    174186    SetCheckEnable(chkCVYes,  chkCVNo,  CVAllow);
     187    SetCheckEnable(chkSHDYes, chkSHDNo, SHDAllow);
    175188  end;
    176189end;
    … …  
    185198  SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated);
    186199  SetCheckState(chkCVYes,  chkCVNo,  PCEData.CVRelated);
     200  SetCheckState(chkSHDYes, chkSHDNo, PCEData.SHADRelated);
     201   //HDS00015356: GWOT Default, if Related no specified default to "Yes"
     202  // -1=Null, 0=No, 1 = Yes
     203  if FSCCond.CVAllow then
     204  begin
     205    if PCEData.CVRelated = SCC_NA then
     206       chkCVYes.Checked := True;
     207  end;
    187208end;
    188209
    189210procedure TfraVisitRelated.InitRelated(const ASCRelated, AAORelated, AIRRelated,
    190   AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer);
     211  AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
    191212begin
    192213  SetCheckState(chkSCYes,  chkSCNo,  ASCRelated);
    … …  
    197218  SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
    198219  SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
     220  SetCheckState(chkSHDYes, chkSHDNo, ASHDRelated);
     221   //HDS00015356: GWOT Default, if Related no specified default to "Yes"
     222   // -1=Null, 0=No, 1 = Yes
     223  if FSCCond.CVAllow then
     224  begin
     225    if ACVRelated = SCC_NA then
     226       chkCVYes.Checked := True;
     227  end;
    199228end;
    200229
    … …  
    226255end;
    227256
     257
     258initialization
     259  SpecifyFormIsNotADialog(TfraVisitRelated);
     260
    228261end.

  • cprs/trunk/CPRS-Chart/Encounter/rPCE.pas

    r456 r829  
    4242    HNCAllow: Boolean;        // prompt for Head or Neck Cancer
    4343    HNCDflt:  Boolean;        // default if prompting Head or Neck Cancer
    44     CVAllow: Boolean;        // prompt for Combat Veteran Related
    45     CVDflt:  Boolean;        // default if prompting Comabt Veteran
     44    CVAllow:  Boolean;        // prompt for Combat Veteran Related
     45    CVDflt:   Boolean;        // default if prompting Comabt Veteran
     46    SHDAllow: Boolean;        // prompt for Shipboard Hazard and Defense
     47    SHDDflt:  Boolean;        // default if prompting Shipboard Hazard and Defense
    4648  end;
    4749
    … …  
    149151                                             ANoteIEN: integer): string;
    150152function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean;
     153function IsUserAUSRProvider(AUser: Int64; ADate: TFMDateTime): boolean;
    151154function IsCancelOrNoShow(ANote: integer): boolean;
    152155function IsNonCountClinic(ALocation: integer): boolean;
    … …  
    242245  end;
    243246  CallV('ORWPCE LEX', [x, CodeSys, ADate]);
    244   Dest.Assign(RPCBrokerV.Results);
     247  FastAssign(RPCBrokerV.Results, Dest);
    245248end;
    246249
    … …  
    405408    uVTypeLastDate := EncDt;
    406409  end;
    407   Dest.Assign(uVTypeForLoc);
     410  FastAssign(uVTypeForLoc, Dest);
    408411end;
    409412
    … …  
    10721075    CVAllow  := Piece(Piece(x, ';', 7), U, 1) = '1';
    10731076    CVDflt   := Piece(Piece(x, ';', 7), U, 2) = '1';
     1077    SHDAllow := Piece(Piece(x, ';', 8), U, 1) = '1';
     1078    SHDDflt  := Piece(Piece(x, ';', 8), U, 2) = '1';
    10741079  end;
    10751080end;
    … …  
    10791084begin
    10801085  CallV('ORWPCE SCDIS', [Patient.DFN]);
    1081   Dest.Assign(RPCBrokerV.Results);
     1086  FastAssign(RPCBrokerV.Results, Dest);
    10821087end;
    10831088
    … …  
    10881093  else
    10891094    CallV('ORWPCE PCE4NOTE', [ANoteIEN]);
    1090   Dest.Assign(RPCBrokerV.Results);
     1095  FastAssign(RPCBrokerV.Results, Dest);
    10911096end;
    10921097
    … …  
    11551160        end;
    11561161      end;
    1157       uHasCPT.AddStrings(RPCBrokerV.Results);
     1162      FastAddStrings(RPCBrokerV.Results, uHasCPT);
    11581163    end;
    11591164  end;
    … …  
    12191224    begin
    12201225      if idx = 0 then
    1221         tCallV(TmpSL,RPC,[nil])
     1226      begin
     1227        if (typ = 1) or (typ = 2) then
     1228          tCallV(TmpSL,RPC,[uEncPCEData.VisitDateTime])
     1229        else
     1230          tCallV(TmpSL,RPC,[nil]);
     1231      end
    12221232      else
    12231233        tCallV(TmpSL,RPC,[idx]);
    … …  
    12441254      end;
    12451255    end;
    1246     Dest.Assign(TmpSL);
     1256    FastAssign(TmpSL, Dest);
    12471257  finally
    12481258    TmpSL.Free;
    … …  
    14541464end;
    14551465
     1466function IsUserAUSRProvider(AUser: Int64; ADate: TFMDateTime): boolean;
     1467begin
     1468  Result := (sCallV('TIU IS USER A USR PROVIDER', [AUser, ADate]) = '1');
     1469end;
     1470
    14561471//function HNCOK: boolean;
    14571472//begin

  • cprs/trunk/CPRS-Chart/Encounter/uPCE.pas

    r456 r829  
    11unit uPCE;
    2 
     2                                                                       
    33interface
    44
    … …  
    220220    FHNCRelated:   Integer;                        //
    221221    FCVRelated:    Integer;                        //
     222    FSHADRelated:   Integer;                        //
    222223    FVisitType:    TPCEProc;                       //
    223224    FProviders:    TPCEProviderList;
    … …  
    248249    procedure SetHNCRelated(Value: Integer);
    249250    procedure SetCVRelated(Value: Integer);
     251    procedure SetSHADRelated(Value: Integer);
    250252    procedure SetEncUseCurr(Value: Boolean);
    251253    function GetHasData: Boolean;
    … …  
    286288    function StrExams: string;
    287289    function StrVisitType(const ASCRelated, AAORelated, AIRRelated, AECRelated,
    288                                 AMSTRelated, AHNCRelated, ACVRelated: Integer): string; overload;
     290                                AMSTRelated, AHNCRelated, ACVRelated, ASHADRelated: Integer): string; overload;
    289291    function StrVisitType: string; overload;
    290292    function StandAlone: boolean;
    … …  
    311313    property HNCRelated:   Integer  read FHNCRelated  write SetHNCRelated;
    312314    property CVRelated:    Integer  read FCVRelated  write SetCVRelated;
     315    property SHADRelated:   Integer  read FSHADRelated write SetSHADRelated;
    313316    property VisitType:    TPCEProc read FVisitType   write SetVisitType;
    314317    property VisitString:  string   read GetVisitString;
    … …  
    596599      begin
    597600        Result := PCESetsOfCodes.Add(Hdr);
    598         PCESetsOfCodes.AddStrings(TempSL);
     601        FastAddStrings(TempSL, PCESetsOfCodes);
    599602      end;
    600603    finally
    … …  
    618621      HistLocations.Insert(0,'0');
    619622    end;
    620     List.AddStrings(HistLocations);
     623    FastAddStrings(HistLocations, List);
    621624  end
    622625  else
    … …  
    754757        begin
    755758          idx := PCESetsOfCodes.Add(Hdr);
    756           PCESetsOfCodes.AddStrings(TempSL);
     759          FastAddStrings(TempSL, PCESetsOfCodes);
    757760        end;
    758761      finally
    … …  
    16391642  FHNCRelated  := SCC_NA;
    16401643  FCVRelated   := SCC_NA;
     1644  FSHADRelated := SCC_NA;
    16411645  FSCChanged   := False;
    16421646end;
    … …  
    16951699  FHNCRelated := SCC_NA;
    16961700  FCVRelated  := SCC_NA;
     1701  FSHADRelated := SCC_NA;
    16971702
    16981703  ClearList(FDiagnoses);
    … …  
    20752080      if(FileCat = 'E') and (FHistoricalLocation <> '') then
    20762081        Add('VST^OL^' + FHistoricalLocation);     // Outside Location
    2077 
    2078       //Add('PRV^' + IntToStr(FEncProvider));       // Encounter Provider
    2079       //Add('PRV^' + IntToStr(UProvider.IEN));      // Encounter Provider
    2080       {with FProviders do for i := 0 to Count - 1 do with TPCEProvider(Items[i]) do
    2081         begin
    2082           PCEList.Add(DelimitedStr);
    2083         end;}
    2084       PCEList.AddStrings(FProviders);
    2085      
     2082      FastAddStrings(FProviders, PCEList);
     2083
    20862084      if FSCChanged then
    20872085      begin
    2088         if FSCRelated <> SCC_NA then  Add('VST^SC^'  + IntToStr(FSCRelated));
    2089         if FAORelated <> SCC_NA then  Add('VST^AO^'  + IntToStr(FAORelated));
    2090         if FIRRelated <> SCC_NA then  Add('VST^IR^'  + IntToStr(FIRRelated));
    2091         if FECRelated <> SCC_NA then  Add('VST^EC^'  + IntToStr(FECRelated));
    2092         if FMSTRelated <> SCC_NA then Add('VST^MST^' + IntToStr(FMSTRelated));
    2093 //        if HNCOK and (FHNCRelated <> SCC_NA) then
    2094         if FHNCRelated <> SCC_NA then Add('VST^HNC^' + IntToStr(FHNCRelated));
    2095         if FCVRelated <> SCC_NA then Add('VST^CV^' + IntToStr(FCVRelated));                                     
     2086        if FSCRelated  <> SCC_NA then  Add('VST^SC^'  + IntToStr(FSCRelated));
     2087        if FAORelated  <> SCC_NA then  Add('VST^AO^'  + IntToStr(FAORelated));
     2088        if FIRRelated  <> SCC_NA then  Add('VST^IR^'  + IntToStr(FIRRelated));
     2089        if FECRelated  <> SCC_NA then  Add('VST^EC^'  + IntToStr(FECRelated));
     2090        if FMSTRelated <> SCC_NA then  Add('VST^MST^' + IntToStr(FMSTRelated));
     2091        if FHNCRelated  <> SCC_NA then Add('VST^HNC^'+ IntToStr(FHNCRelated));
     2092        if FCVRelated   <> SCC_NA then Add('VST^CV^' + IntToStr(FCVRelated));
     2093        if FSHADRelated <> SCC_NA then Add('VST^SHD^'+ IntToStr(FSHADRelated));
    20962094      end;
    20972095     with FDiagnoses  do for i := 0 to Count - 1 do with TPCEDiag(Items[i]) do
    … …  
    22662264begin
    22672265  Result := -1;
    2268 //  with AList do for i := 0 to Count - 1 do with TPCEItem(Items[i]) do if Match(AnItem) and MatchProvider(AnItem)then
    22692266  with AList do for i := 0 to Count - 1 do with TPCEItem(Items[i]) do if Match(AnItem) and MatchProvider(AnItem)then
    2270 //  with AList do for i := 0 to Count - 1 do with TPCEItem(Items[i]) do if Match(AnItem) then
    22712267  begin
    22722268    Result := i;
    … …  
    22892285    begin
    22902286      PostItem := TPCEItem(Objects[j]);
    2291 //      if (PreItem.Match(PostItem) and (PreItem.MatchProvider(PostItem))) then MatchFound := True;
    22922287      if (PreItem.Match(PostItem) and (PreItem.MatchProvider(PostItem))) then MatchFound := True;
    2293 //      if (PreItem.Match(PostItem)) then MatchFound := True;
    22942288    end;
    22952289    if not MatchFound then
    … …  
    24232417      if CurImmunization.Reaction = '' then CurImmunization.Reaction := NoPCEValue;
    24242418
    2425 //      if (SrcImmunization.Provider <> CurImmunization.Provider) or
    24262419      if(SrcImmunization.Series <> CurImmunization.Series) or
    24272420        (SrcImmunization.Reaction <> CurImmunization.Reaction) or
    … …  
    24302423        (CurImmunization.Comment <> SrcImmunization.Comment)then 
    24312424      begin
    2432 //        CurImmunization.Provider        := SrcImmunization.Provider;
    24332425        CurImmunization.Series          := SrcImmunization.Series;
    24342426        CurImmunization.Reaction        := SrcImmunization.Reaction;
    … …  
    24652457      if CurSkinTest.Results = '' then CurSkinTest.Results := NoPCEValue;
    24662458      if SrcSkinTest.Results = '' then SrcSkinTest.Results := NoPCEValue;
    2467 //      if (SrcSkinTest.Provider <> CurSkinTest.Provider) or
     2459
    24682460      if(SrcSkinTest.Results <> CurSkinTest.Results) or
    24692461        (SrcSkinTest.Reading <> CurSkinTest.Reading) or
    2470         (CurSkinTest.Comment <> SrcSkinTest.Comment) then 
    2471       begin
    2472 //        CurSkinTest.Provider := SrcSkinTest.Provider;
     2462        (CurSkinTest.Comment <> SrcSkinTest.Comment) then
     2463      begin
     2464
    24732465        CurSkinTest.Results := SrcSkinTest.Results;
    24742466        CurSkinTest.Reading := SrcSkinTest.Reading;
    2475         CurSkinTest.Comment := SrcSkinTest.Comment; 
     2467        CurSkinTest.Comment := SrcSkinTest.Comment;
    24762468        CurSkinTest.FSend := True;
    24772469      end;
    … …  
    25022494      if CurPatientEd.level = '' then CurPatientEd.level := NoPCEValue;
    25032495      if SrcPatientEd.level = '' then SrcPatientEd.level := NoPCEValue;
    2504 //      if (SrcPatientEd.Provider <> CurPatientEd.Provider) or
    25052496      if(SrcPatientEd.Level <> CurPatientEd.Level) or
    25062497        (CurPatientEd.Comment <> SrcPatientEd.Comment) then
    25072498      begin
    2508 //        CurPatientEd.Provider := SrcPatientEd.Provider;
    25092499        CurPatientEd.Level  := SrcPatientEd.Level;
    25102500        CurPatientEd.Comment := SrcPatientEd.Comment; 
    … …  
    25392529      if CurHealthFactor.level = '' then CurHealthFactor.level := NoPCEValue;
    25402530      if SrcHealthFactor.level = '' then SrcHealthFactor.level := NoPCEValue;
    2541 //      if (SrcHealthFactor.Provider <> CurHealthFactor.Provider) or
    25422531      if(SrcHealthFactor.Level <> CurHealthFactor.Level) or
    25432532        (CurHealthFactor.Comment <> SrcHealthFactor.Comment) then 
    25442533      begin
    2545 //        CurHealthFactor.Provider := SrcHealthFactor.Provider;
    25462534        CurHealthFactor.Level  := SrcHealthFactor.Level;
    25472535        CurHealthFactor.Comment := SrcHealthFactor.Comment; 
    … …  
    25782566      if CurExam.Results = '' then CurExam.Results := NoPCEValue;
    25792567      if SrcExam.Results = '' then SrcExam.Results := NoPCEValue;
    2580 //      if (SrcExam.Provider <> CurExam.Provider) or
    25812568      if(SrcExam.Results <> CurExam.Results) or
    25822569        (CurExam.Comment <> SrcExam.Comment) then 
    25832570      begin
    2584 //        CurExam.Provider := SrcExam.Provider;
    25852571        CurExam.Results  := SrcExam.Results;
    25862572        CurExam.Comment := SrcExam.Comment; 
    … …  
    26832669end;
    26842670
     2671procedure TPCEData.SetSHADRelated(Value: Integer);
     2672begin
     2673  if (Value <> FSHADRelated) then
     2674  begin
     2675    FSHADRelated := Value;
     2676    FSCChanged   := True;
     2677  end;
     2678end;
     2679
    26852680procedure TPCEData.SetEncUseCurr(Value: Boolean);
    26862681begin
    … …  
    26942689    FStandAlone   := Encounter.StandAlone;
    26952690    FStandAloneLoaded := TRUE;
    2696     //FCPTRequired  := Encounter.StandAlone; 
    26972691    FEncInpatient := Encounter.Inpatient;
    2698     //if FEncInpatient then FCPTRequired := False;   
    2699     //SetDefaultProvider(FProviders, FEncLocation, FNoteIEN, PersonClassDate);
     2692
    27002693  end else
    27012694  begin
    … …  
    27062699    FProviders.PrimaryIdx := -1;
    27072700    FEncSvcCat    := 'A';
    2708     //FCPTRequired  := False;   
    27092701    FEncInpatient := False;
    27102702  end;
    27112703  //
    27122704  SetRPCEncLocation(FEncLocation);
    2713 //  SetRPCEncDateTime(FEncDateTime);
    27142705end;
    27152706
    … …  
    27982789
    27992790function TPCEData.StrVisitType(const ASCRelated, AAORelated, AIRRelated,
    2800   AECRelated, AMSTRelated, AHNCRelated, ACVRelated: Integer): string;
     2791  AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHADRelated: Integer): string;
    28012792{ returns as a string the type of encounter (according to CPT) & related contitions treated }
    28022793
    … …  
    28322823    end;
    28332824  Result := Trim(Result + StrVisitType(FSCRelated, FAORelated, FIRRelated,
    2834                                        FECRelated, FMSTRelated, FHNCRelated, FCVRelated));
     2825                                       FECRelated, FMSTRelated, FHNCRelated, FCVRelated, FSHADRelated));
    28352826end;
    28362827
    … …  
    29012892  Dest.FHNCRelated   := FHNCRelated;
    29022893  Dest.FCVRelated    := FCVRelated;
     2894  Dest.FSHADRelated  := FSHADRelated;
    29032895  FVisitType.CopyProc(Dest.VisitType);
    29042896  Dest.FProviders.Assign(FProviders);
    … …  
    29282920  if(not FutureEncounter(Self)) then
    29292921  begin
    2930 //    if(PromptForWorkload(FNoteIEN, FNoteTitle, FEncSvcCat, StandAlone) or CPTRequiredForNote(FNoteIEN)) then
    29312922    if(PromptForWorkload(FNoteIEN, FNoteTitle, FEncSvcCat, StandAlone)) then
    29322923    begin
    … …  
    29592950//        if HNCOK and (EC.HNCAllow and (HNCRelated = SCC_NA)) then NeedSC := TRUE;
    29602951        if(EC.HNCAllow and (HNCRelated = SCC_NA)) then NeedSC := TRUE;
    2961         if(EC.CVAllow and (CVRelated = SCC_NA)) then NeedSC := TRUE;
     2952        if(EC.CVAllow and (CVRelated = SCC_NA) and (SHADRelated = SCC_NA)) then NeedSC := TRUE;
    29622953        if(NeedSC) then
    29632954          Include(Result, ndSC);
    … …  
    32743265  if(Result) then Result := (FHNCRelated = SCC_NA);
    32753266  if(Result) then Result := (FCVRelated = SCC_NA);
     3267  if(Result) then Result := (FSHADRelated = SCC_NA);
    32763268  if(Result) then Result := (FDiagnoses.Count = 0);
    32773269  if(Result) then Result := (FProcedures.Count = 0);
Note: See TracChangeset for help on using the changeset viewer.