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

Upgrading to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/fPtSelOptns.pas

    r456 r830  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   ORDtTmRng, ORCtrls, StdCtrls, ExtCtrls, ORFn;
     7  ORDtTmRng, ORCtrls, StdCtrls, ExtCtrls, ORFn, fBase508Form,
     8  VA508AccessibilityManager;
    89
    910type
    … …  
    1112  TSetPtListTopProc = procedure(IEN: Int64) of object;
    1213
    13   TfrmPtSelOptns = class(TForm)
     14  TfrmPtSelOptns = class(TfrmBase508Form)
    1415    orapnlMain: TORAutoPanel;
    1516    bvlPtList: TORAutoPanel;
    … …  
    5556    procedure SetDefaultPtList(Dflt: string);
    5657    procedure UpdateDefault;
    57 
    58 
    59 
    60 
    6158    property LastTopList: string read FLastTopList write FLastTopList;
    6259    property SrcType: Integer read FSrcType write FSrcType;
    … …  
    7673
    7774var
    78    frmPtSelOptns: TfrmPtSelOptns;
     75  frmPtSelOptns: TfrmPtSelOptns;
    7976  //frmPtSelOptns: TfrmPtSelOptns;
    8077  clinDoSave, clinSaveToday: boolean;
    … …  
    8683
    8784uses
    88   rCore, fPtSelOptSave,fPtSel;
     85  rCore, fPtSelOptSave, fPtSel, VA508AccessibilityRouter;
    8986
    9087const
    … …  
    10097  TC_LS_SAVE = 'Save Patient List Settings';
    10198
    102 
    103 
    10499function TfrmPtSelOptns.IsLast5(x: string): Boolean;
    105100{ returns true if string matchs patterns: A9999 or 9999 (BS & BS5 xrefs for patient lookup) }
    … …  
    117112  Result := True;
    118113end;
     114
    119115function TfrmPtSelOptns.IsPatientName(x: string):Boolean;
    120116 { returns true if string matchs patient name pattern: all alphabetic," ",",","-","." only }
    … …  
    128124  Result := True;
    129125end;
     126
    130127function TfrmPtSelOptns.IsEnhanced(x: String) : boolean ;
    131128var
    … …  
    141138  if (frmPtSelOptns.radAll.Checked <> True)and (frmPtSelOptns.radDflt.Checked <> True) then Result := False;
    142139end;
     140
    143141function TfrmPtSelOptns.IsFullSSN(x: string): boolean;
    144142var
    … …  
    187185procedure TfrmPtSelOptns.radShowSrcClick(Sender: TObject);
    188186{ called by radTeams, radSpecialties, radWards - shows items for the list source }
     187begin
     188  cboList.Pieces := '2';
     189  FSrcType := TControl(Sender).Tag;
     190  FLastTopList := '';
     191  HideDateRange;
     192  FSetCaptionTop;
     193  with cboList do
     194  begin
     195    Clear;
     196    LongList := False;
     197    Sorted := True;
     198    case FSrcType of
     199    TAG_SRC_TEAM: ListTeamAll(Items);
     200    TAG_SRC_SPEC: ListSpecialtyAll(Items);
     201    TAG_SRC_WARD: ListWardAll(Items);
     202    end;
     203    Visible := True;
     204  end;
     205  cboList.Caption := TRadioButton(Sender).Caption;
     206end;
     207
     208procedure TfrmPtSelOptns.radLongSrcClick(Sender: TObject);
     209{ called by radProviders, radClinics - switches to long list & shows items for the list source }
    189210begin
    190211    //vwpt remove other radio button selections
    … …  
    221242  FSrcType := TControl(Sender).Tag;
    222243  FLastTopList := '';
    223   HideDateRange;
    224   FSetCaptionTop;
    225   with cboList do
    226   begin
    227     Clear;
    228     LongList := False;
    229     Sorted := True;
    230     case FSrcType of
    231     TAG_SRC_TEAM: ListTeamAll(Items);
    232     TAG_SRC_SPEC: ListSpecialtyAll(Items);
    233     TAG_SRC_WARD: ListWardAll(Items);
    234     end;
    235     Visible := True;
    236   end;
    237   cboList.Caption := TRadioButton(Sender).Caption;
    238  end; //else
    239 end;
    240 
    241 procedure TfrmPtSelOptns.radLongSrcClick(Sender: TObject);
    242 { called by radProviders, radClinics - switches to long list & shows items for the list source }
    243 begin
    244   //vwpt remove other radio button selections
    245  if fPtSel.radiogrp1index <> 0 then
    246  begin
    247       FSrcType := TControl(Sender).Tag;
    248       case FSrcType of
    249     TAG_SRC_PROV: begin
    250                     radProviders.Checked := False;
    251                     radProviders.Refresh;
    252                     radAll.Checked := True;
    253                     radAll.Refresh;
    254 
    255                   end;
    256     TAG_SRC_CLIN: begin
    257                     radClinics.Checked := False;
    258                     radClinics.Refresh;
    259                     radAll.Checked := True;
    260                     radAll.Refresh;
    261                   end;
    262     end;
    263   //frmPtSel.RadioGroup1.SetFocus;
    264   //frmPtSel.RadioGroup1.Refresh;
    265  end
    266  else
    267  begin
    268   //end vwpt
    269   cboList.Pieces := '2';
    270   FSrcType := TControl(Sender).Tag;
    271   FLastTopList := '';
    272244  FSetCaptionTop;
    273245  with cboList do
    … …  
    324296^SC("B","zz bhost/resident",2710) =
    325297^SC("B","zz bhost/sws",2946) =
    326 ^SC("B","zz c&P ortho/patel",3292) =
     298^SC("B","zz c&P ortho/patel",3292) = 
    327299^SC("B","zz mhc md/kelley",320) =
    328300^SC("B","zz/mhc/p",1076) =
    329 ^SC("B","zzMHC MD/THRASHER",1018) =
     301^SC("B","zzMHC MD/THRASHER",1018) = 
    330302^SC("B","zztest clinic",3090) =
    331303^SC("B","zzz-hbpc-phone-jung",1830) =
    … …  
    492464end;
    493465
     466initialization
     467  SpecifyFormIsNotADialog(TfrmPtSelOptns);
     468
    494469end.
Note: See TracChangeset for help on using the changeset viewer.