Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

Location:
cprs/branches/foia-cprs/CPRS-Chart/Consults
Files:
1 added
12 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.dfm

    r459 r460  
    107107        TabOrder = 3
    108108        OnNeedData = NewPersonNeedData
     109        CharsNeedMatch = 1
    109110      end
    110111      object cboUrgency: TORComboBox
    … …  
    129130        SynonymChars = '<>'
    130131        TabOrder = 2
     132        CharsNeedMatch = 1
    131133      end
    132134      object treService: TORTreeView
    … …  
    167169        OnKeyPause = cboServiceSelect
    168170        OnMouseClick = cboServiceSelect
     171        CharsNeedMatch = 1
    169172      end
    170173    end
    … …  
    352355          TabStop = True
    353356          OnNeedData = NewPersonNeedData
     357          CharsNeedMatch = 1
    354358        end
    355359      end

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.pas

    r459 r460  
    465465    FUrgency       := cboUrgency.ItemIEN ;
    466466    if (FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE) then
    467       FSigFind       := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],1,1);
     467      FSigFind       := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],2,1);
    468468    LimitEditWidth(memComments, 74);
    469469    FComments := memComments.Lines ;

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm

    r459 r460  
    11inherited frmConsults: TfrmConsults
    2   Left = 327
    3   Top = 169
    4   Width = 660
     2  Left = 247
     3  Top = 174
     4  Width = 723
    55  Height = 467
    66  HelpContext = 6000
    … …  
    1515  inherited shpPageBottom: TShape
    1616    Top = 416
    17     Width = 652
     17    Width = 715
    1818  end
    1919  inherited sptHorz: TSplitter
    … …  
    2525  inherited pnlRight: TPanel [2]
    2626    Left = 85
    27     Width = 567
     27    Width = 630
    2828    Height = 416
    2929    OnResize = pnlRightResize
    … …  
    3131      Left = 0
    3232      Top = 350
    33       Width = 567
     33      Width = 630
    3434      Height = 4
    3535      Cursor = crVSplit
    … …  
    3939      Left = 0
    4040      Top = 0
    41       Width = 567
     41      Width = 630
    4242      Height = 350
    4343      Align = alClient
    … …  
    4848        Left = 0
    4949        Top = 0
    50         Width = 567
     50        Width = 630
    5151        Height = 19
    5252        Align = alTop
    … …  
    6868        Left = 0
    6969        Top = 19
    70         Width = 567
     70        Width = 630
    7171        Height = 331
    7272        Align = alClient
    … …  
    9797      Left = 0
    9898      Top = 354
    99       Width = 567
     99      Width = 630
    100100      Height = 62
    101101      Align = alBottom
    … …  
    107107      Left = 0
    108108      Top = 0
    109       Width = 567
     109      Width = 630
    110110      Height = 350
    111111      Align = alClient
    … …  
    117117        Left = 0
    118118        Top = 67
    119         Width = 567
     119        Width = 630
    120120        Height = 283
    121121        Align = alClient
    … …  
    137137        Left = 0
    138138        Top = 0
    139         Width = 567
     139        Width = 630
    140140        Height = 67
    141141        Align = alTop
    … …  
    144144        OnResize = pnlFieldsResize
    145145        DesignSize = (
    146           567
     146          630
    147147          67)
    148148        object bvlNewTitle: TBevel
    … …  
    166166        end
    167167        object lblAuthor: TStaticText
    168           Left = 339
     168          Left = 402
    169169          Top = 6
    170170          Width = 152
    … …  
    189189        end
    190190        object lblCosigner: TStaticText
    191           Left = 244
     191          Left = 307
    192192          Top = 21
    193193          Width = 243
    … …  
    232232        end
    233233        object cmdChange: TButton
    234           Left = 493
     234          Left = 556
    235235          Top = 6
    236236          Width = 58
    … …  
    245245          Left = 48
    246246          Top = 40
    247           Width = 503
     247          Width = 566
    248248          Height = 21
    249249          Hint = 'Subject is limited to a maximum of 80 characters.'
    … …  
    435435        Height = 142
    436436        Align = alClient
    437         Color = clWhite
    438437        HideSelection = False
    439438        Indent = 15
    … …  
    675674        end
    676675      end
     676      object mnuViewInformation: TMenuItem
     677        Caption = 'Information'
     678        OnClick = mnuViewInformationClick
     679        object mnuViewDemo: TMenuItem
     680          Tag = 1
     681          Caption = 'De&mographics...'
     682          OnClick = ViewInfo
     683        end
     684        object mnuViewVisits: TMenuItem
     685          Tag = 2
     686          Caption = 'Visits/Pr&ovider...'
     687          OnClick = ViewInfo
     688        end
     689        object mnuViewPrimaryCare: TMenuItem
     690          Tag = 3
     691          Caption = 'Primary &Care...'
     692          OnClick = ViewInfo
     693        end
     694        object mnuViewMyHealtheVet: TMenuItem
     695          Tag = 4
     696          Caption = 'MyHealthe&Vet...'
     697          OnClick = ViewInfo
     698        end
     699        object mnuInsurance: TMenuItem
     700          Tag = 5
     701          Caption = '&Insurance...'
     702          OnClick = ViewInfo
     703        end
     704        object mnuViewFlags: TMenuItem
     705          Tag = 6
     706          Caption = '&Flags...'
     707          OnClick = ViewInfo
     708        end
     709        object mnuViewRemoteData: TMenuItem
     710          Tag = 7
     711          Caption = 'Remote &Data...'
     712          OnClick = ViewInfo
     713        end
     714        object mnuViewReminders: TMenuItem
     715          Tag = 8
     716          Caption = '&Reminders...'
     717          Enabled = False
     718          OnClick = ViewInfo
     719        end
     720        object mnuViewPostings: TMenuItem
     721          Tag = 9
     722          Caption = '&Postings...'
     723          OnClick = ViewInfo
     724        end
     725      end
    677726      object Z3: TMenuItem
    678727        Caption = '-'

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.pas

    r459 r460  
    162162    popNoteMemoInsTemplate: TMenuItem;
    163163    popNoteMemoEncounter: TMenuItem;
     164    mnuViewInformation: TMenuItem;
     165    mnuViewDemo: TMenuItem;
     166    mnuViewVisits: TMenuItem;
     167    mnuViewPrimaryCare: TMenuItem;
     168    mnuViewMyHealtheVet: TMenuItem;
     169    mnuInsurance: TMenuItem;
     170    mnuViewFlags: TMenuItem;
     171    mnuViewReminders: TMenuItem;
     172    mnuViewRemoteData: TMenuItem;
     173    mnuViewPostings: TMenuItem;
    164174    procedure mnuChartTabClick(Sender: TObject);
    165175    procedure lstConsultsClick(Sender: TObject);
    … …  
    267277    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
    268278      Y: Integer);
     279    procedure ViewInfo(Sender: TObject);
     280    procedure mnuViewInformationClick(Sender: TObject);
    269281  private
    270282    FEditingIndex: Integer;      // TIU index of document being currently edited
    … …  
    296308    procedure frmDrawerPnlEncounterButtonExit(Sender: TObject);
    297309    procedure frmDrawerEdtSearchExit(Sender: TObject);
    298     procedure DoAutoSave;
     310    procedure DoAutoSave(Suppress: integer = 1);
    299311    function GetTitleText(AnIndex: Integer): string;
    300312    //function MakeTitleText(IsAddendum: Boolean = False): string;
    … …  
    870882            lstNotesClick(Self);  // will make pnlWrite visible
    871883            if timAutoSave.Interval <> 0 then EnableAutosave := TRUE;
    872 
    873             if txtSubject.Visible then
    874               txtSubject.SetFocus
    875             else
    876               memResults.SetFocus;
     884            if txtSubject.Visible then txtSubject.SetFocus else memResults.SetFocus;
    877885          end
    878886        else  //  CreatedNote.ErrorText <> ''
    … …  
    947955    else HaveRequired := True;
    948956  // lock the consult request if there is a consult
    949   if FEditNote.PkgIEN > 0 then HaveRequired := LockConsultRequest(FEditNote.PkgIEN);
     957  if HaveRequired and (FEditNote.PkgIEN > 0) then
     958    HaveRequired := LockConsultRequest(FEditNote.PkgIEN);
    950959  if HaveRequired then
    951960  begin
    … …  
    15291538      CompleteConsult(IS_ID_CHILD, 0, UseClinProcTitles);
    15301539    end
    1531   else if NoteIEN = -1 then Exit;
     1540  else if NoteIEN = -1 then Exit
    15321541end;
    15331542
    … …  
    20032012procedure TfrmConsults.SaveSignItem(const ItemID, ESCode: string);
    20042013{ saves and optionally signs a progress note or addendum }
     2014const
     2015  SIG_COSIGN = 'COSIGNATURE';
     2016  SIG_SIGN   = 'SIGNATURE';
    20052017var
    20062018  AnIndex, IEN, i: Integer;
    20072019  Saved, ContinueSign: Boolean;  {*RAB* 8/26/99}
    2008   SignSts: TActionRec;
     2020  ActionSts, SignSts: TActionRec;
    20092021  APCEObject: TPCEData;
    20102022  OK: boolean;
    … …  
    20122024  tmpNode: TORTreeNode;
    20132025  ErrMsg: string;
     2026  ActionType, SignTitle: string;
    20142027begin
    20152028  AnIndex := -1;
    … …  
    20392052  if Length(ESCode) > 0 then
    20402053  begin
    2041 (*    if LacksClinProcFieldsForSignature(IEN, ErrMsg) then
    2042        begin
    2043          InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK);
    2044          ContinueSign := False;
    2045        end
    2046     else ContinueSign := True;
    2047     if not LastSaveClean(IEN) and
    2048       (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2) <> IDYES)
    2049        then ContinueSign := False;
    2050        //else ContinueSign := True;*)
    2051     if LacksClinProcFieldsForSignature(IEN, ErrMsg) then
     2054    if CosignDocument(IEN) then
     2055    begin
     2056      SignTitle := TX_COSIGN;
     2057      ActionType := SIG_COSIGN;
     2058    end else
     2059    begin
     2060      SignTitle := TX_SIGN;
     2061      ActionType := SIG_SIGN;
     2062    end;
     2063    ActOnDocument(ActionSts, IEN, ActionType);
     2064    if not ActionSts.Success then
     2065      begin
     2066        InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
     2067        ContinueSign := False;
     2068      end
     2069    else if LacksClinProcFieldsForSignature(IEN, ErrMsg) then
    20522070      begin
    20532071       InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK);
    … …  
    20632081       then ContinueSign := False
    20642082    else ContinueSign := True;
    2065 
    20662083    if ContinueSign then
    20672084    begin
    … …  
    27532770begin
    27542771  inherited;
    2755   DoAutoSave;
     2772  DoAutoSave(0);
    27562773  timAutoSave.Enabled := False;
    27572774  try
    27582775    SpellCheckForControl(memResults);
    27592776  finally
     2777    FChanged := True;
     2778    DoAutoSave(0);
    27602779    timAutoSave.Enabled := True;
    27612780  end;
    … …  
    27652784begin
    27662785  inherited;
    2767   DoAutoSave;
     2786  DoAutoSave(0);
    27682787  timAutoSave.Enabled := False;
    27692788  try
    27702789    GrammarCheckForControl(memResults);
    27712790  finally
     2791    FChanged := True;
     2792    DoAutoSave(0);
    27722793    timAutoSave.Enabled := True;
    27732794  end;
    … …  
    29853006  SigAction: integer;
    29863007  SavedDocID, SavedCsltID: string;
     3008  ARefDate: TFMDateTime;
    29873009begin
    29883010  inherited;
    … …  
    30173039    end;
    30183040
    3019   if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
    3020   Exclusions := GetCurrentSigners(lstNotes.ItemIEN);
    3021   SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_CONSULTS);
     3041  with lstNotes do
     3042    begin
     3043      if not LockConsultRequestAndNote(ItemIEN) then Exit;
     3044      Exclusions := GetCurrentSigners(ItemIEN);
     3045      ARefDate := StrToFloat(Piece(Items[ItemIndex], U, 3));
     3046      SelectAdditionalSigners(Font.Size, ItemIEN, SigAction, Exclusions, SignerList, CT_CONSULTS, ARefDate);
     3047    end;
    30223048  with SignerList do
    30233049    begin
    … …  
    35563582    begin
    35573583      if Title > 0 then CurTitle := Title else CurTitle := DocType;
    3558       if AskCosignerForTitle(CurTitle, Author) and (Cosigner <= 0) then Result := True;
     3584      if AskCosignerForTitle(CurTitle, Author, DateTime) and (Cosigner <= 0) then Result := True;
    35593585    end;
    35603586  end;
    … …  
    35723598          ErrMsg := TX_NO_AUTHOR;
    35733599        end;
    3574       if AskCosignerForTitle(Title, Author) and (Cosigner = 0) then
     3600      if AskCosignerForTitle(Title, Author, DateTime) and (Cosigner = 0) then
    35753601        begin
    35763602          Result := True;
    … …  
    36653691end;
    36663692
    3667 procedure TfrmConsults.DoAutoSave;
     3693procedure TfrmConsults.DoAutoSave(Suppress: integer = 1);
    36683694var
    36693695  ErrMsg: string;
    … …  
    36723698  begin
    36733699    StatusText('Autosaving note...');
    3674     //PutTextOnly(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex));
     3700    //PutTextOnly(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex));
    36753701    timAutoSave.Enabled := False;
    36763702    try
    3677       SetText(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex),1);
     3703      SetText(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex), Suppress);
    36783704    finally
    36793705      timAutoSave.Enabled := True;
    … …  
    46824708        (Screen.ActiveControl = txtSubject) or
    46834709        (Screen.ActiveControl = memResults) then
    4684       //frmFrame.pnlPatient.SetFocus  //COMMENTED OUT FOR CQ6498
    4685       memResults.SetFocus //ADDED THIS LINE FOR CQ6498
     4710      begin
     4711        //frmFrame.pnlPatient.SetFocus  //COMMENTED OUT FOR CQ6498
     4712        if memResults.CanFocus then
     4713          memResults.SetFocus //ADDED THIS LINE FOR CQ6498
     4714        else
     4715          memConsult.SetFocus;
     4716      end
    46864717    else
    46874718    if (Screen.ActiveControl = tvConsults) then
    … …  
    47294760  {Below is a fix for ClearQuest Defect HDS0000948, Kind of Kloogy I looked
    47304761  and looked for side effects and a better solution and this was the best!}
    4731   frmDrawers.Hide;
     4762  if (EditingIndex = -1) or (lstNotes.ItemIndex <> EditingIndex) then
     4763    frmDrawers.Hide;
    47324764  {This TStaticText I am looking for doesn't have a Name! So
    47334765   I have to loop through the panel's controls and disable the TStaticText.}
    … …  
    47684800end;
    47694801
     4802procedure TfrmConsults.ViewInfo(Sender: TObject);
     4803begin
     4804  inherited;
     4805  frmFrame.ViewInfo(Sender);
     4806end;
     4807
     4808procedure TfrmConsults.mnuViewInformationClick(Sender: TObject);
     4809begin
     4810  inherited;
     4811  mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled;
     4812  mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled;
     4813  mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled;
     4814  mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No');
     4815  mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No');
     4816  mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled;
     4817  mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled;
     4818  mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled;
     4819  mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled;
     4820end;
     4821
    47704822initialization
    47714823  uPCEEdit := TPCEData.Create;

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditConsult.dfm

    r459 r460  
    11object frmEditCslt: TfrmEditCslt
    22  Tag = 110
    3   Left = 119
    4   Top = 94
     3  Left = 409
     4  Top = 225
    55  Width = 569
    66  Height = 367
    … …  
    174174    SynonymChars = '<>'
    175175    TabOrder = 0
     176    CharsNeedMatch = 1
    176177  end
    177178  object cboUrgency: TORComboBox
    … …  
    197198    TabOrder = 1
    198199    OnChange = ControlChange
     200    CharsNeedMatch = 1
    199201  end
    200202  object radInpatient: TRadioButton
    … …  
    239241    TabOrder = 7
    240242    OnChange = ControlChange
     243    CharsNeedMatch = 1
    241244  end
    242245  object txtProvDiag: TCaptionEdit
    … …  
    246249    Height = 21
    247250    Anchors = [akLeft, akTop, akRight]
     251    MaxLength = 180
    248252    ParentShowHint = False
    249253    PopupMenu = mnuPopProvDx
    … …  
    277281    OnChange = ControlChange
    278282    OnNeedData = txtAttnNeedData
     283    CharsNeedMatch = 1
    279284  end
    280285  object cboCategory: TORComboBox
    … …  
    298303    TabOrder = 14
    299304    Visible = False
     305    CharsNeedMatch = 1
    300306  end
    301307  object cmdAccept: TButton

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditProc.dfm

    r459 r460  
    1818  Position = poScreenCenter
    1919  DesignSize = (
    20     545
    21     289)
     20    561
     21    308)
    2222  PixelsPerInch = 96
    2323  TextHeight = 13
    … …  
    166166    TabOrder = 2
    167167    OnChange = ControlChange
     168    CharsNeedMatch = 1
    168169  end
    169170  object radInpatient: TRadioButton
    … …  
    208209    TabOrder = 6
    209210    OnChange = ControlChange
     211    CharsNeedMatch = 1
    210212  end
    211213  object txtProvDiag: TCaptionEdit
    … …  
    215217    Height = 21
    216218    Anchors = [akLeft, akTop, akRight]
     219    MaxLength = 180
    217220    ParentShowHint = False
    218221    PopupMenu = mnuPopProvDx
    … …  
    246249    OnChange = ControlChange
    247250    OnNeedData = txtAttnNeedData
     251    CharsNeedMatch = 1
    248252  end
    249253  object cboProc: TORComboBox
    … …  
    277281    OnChange = cboProcSelect
    278282    OnNeedData = cboProcNeedData
     283    CharsNeedMatch = 1
    279284  end
    280285  object cboCategory: TORComboBox
    … …  
    299304    Visible = False
    300305    OnChange = ControlChange
     306    CharsNeedMatch = 1
    301307  end
    302308  object cboService: TORComboBox
    … …  
    329335    TabOrder = 1
    330336    OnChange = ControlChange
     337    CharsNeedMatch = 1
    331338  end
    332339  object memComment: TRichEdit

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm

    r459 r460  
    11inherited frmODCslt: TfrmODCslt
    22  Tag = 110
    3   Left = 377
    4   Top = 11
    5   Width = 536
    6   Height = 321
    7   HorzScrollBar.Range = 528
    8   HorzScrollBar.Visible = True
    9   VertScrollBar.Range = 294
    10   VertScrollBar.Visible = True
    11   AutoScroll = False
     3  Left = 430
     4  Top = 203
     5  Width = 606
     6  Height = 376
     7  HorzScrollBar.Range = 590
     8  VertScrollBar.Range = 340
    129  Caption = 'Order a Consult'
     10  Constraints.MinHeight = 376
     11  Constraints.MinWidth = 606
    1312  Font.Charset = ANSI_CHARSET
    1413  PixelsPerInch = 96
    … …  
    2322  object pnlReason: TPanel [1]
    2423    Left = 3
    25     Top = 117
    26     Width = 516
    27     Height = 132
    28     Anchors = [akLeft, akTop, akRight, akBottom]
     24    Top = 154
     25    Width = 585
     26    Height = 135
     27    Anchors = [akLeft, akTop, akRight]
    2928    BevelOuter = bvNone
    3029    TabOrder = 11
    … …  
    3231      Left = 0
    3332      Top = 0
    34       Width = 516
     33      Width = 585
    3534      Height = 13
    3635      Align = alTop
    … …  
    4039      Left = 0
    4140      Top = 13
    42       Width = 516
    43       Height = 119
     41      Width = 585
     42      Height = 122
    4443      Align = alClient
    4544      Font.Charset = ANSI_CHARSET
    … …  
    4847      Font.Name = 'Courier New'
    4948      Font.Style = []
     49      Constraints.MinHeight = 40
    5050      ParentFont = False
    5151      PopupMenu = popReason
    … …  
    6161  end
    6262  object lblUrgency: TStaticText [2]
    63     Left = 239
     63    Left = 309
    6464    Top = 2
    6565    Width = 44
    … …  
    7070  end
    7171  object lblPlace: TStaticText [3]
    72     Left = 384
     72    Left = 454
    7373    Top = 43
    7474    Width = 104
    … …  
    7979  end
    8080  object lblAttn: TStaticText [4]
    81     Left = 384
     81    Left = 454
    8282    Top = 2
    8383    Width = 46
    … …  
    8888  end
    8989  object lblProvDiag: TStaticText [5]
    90     Left = 239
     90    Left = 309
    9191    Top = 81
    9292    Width = 104
    … …  
    9898  inherited memOrder: TCaptionMemo
    9999    Left = 3
    100     Top = 255
    101     Width = 347
    102     Height = 36
    103     Anchors = [akLeft, akRight, akBottom]
     100    Top = 305
     101    Width = 417
     102    Height = 41
    104103    Lines.Strings = (
    105104      'The order text...'
    … …  
    110109  end
    111110  inherited cmdAccept: TButton
    112     Left = 357
    113     Top = 265
    114     Anchors = [akRight, akBottom]
     111    Left = 427
     112    Top = 315
    115113    TabOrder = 12
    116114  end
    117115  inherited cmdQuit: TButton
    118     Left = 453
    119     Top = 265
     116    Left = 531
     117    Top = 315
    120118    Width = 61
    121     Anchors = [akRight, akBottom]
    122119    TabOrder = 13
    123120  end
    124121  inherited pnlMessage: TPanel
    125     Left = 61
    126     Top = 245
    127     Width = 277
     122    Left = 13
     123    Top = 295
     124    Width = 377
    128125    Anchors = [akLeft, akRight, akBottom]
    129126    TabOrder = 14
    130127    inherited memMessage: TRichEdit
    131       Width = 227
     128      Width = 292
    132129    end
    133130  end
    … …  
    135132    Left = 0
    136133    Top = 16
    137     Width = 204
    138     Height = 73
     134    Width = 274
     135    Height = 113
    139136    Anchors = [akLeft, akTop, akRight]
    140137    Style = orcsSimple
    … …  
    156153    OnChange = ControlChange
    157154    OnClick = cboServiceSelect
     155    OnExit = cboServiceExit
    158156    OnKeyDown = cboServiceKeyDown
    159157    OnKeyUp = cboServiceKeyUp
    … …  
    161159  end
    162160  object cboUrgency: TORComboBox
    163     Left = 239
     161    Left = 309
    164162    Top = 16
    165163    Width = 133
    … …  
    187185  end
    188186  object cboPlace: TORComboBox
    189     Left = 384
     187    Left = 454
    190188    Top = 56
    191189    Width = 136
    … …  
    212210  end
    213211  object txtProvDiag: TCaptionEdit
    214     Left = 239
     212    Left = 309
    215213    Top = 94
    216214    Width = 231
    217215    Height = 21
    218216    Anchors = [akTop, akRight]
     217    MaxLength = 180
    219218    ParentShowHint = False
    220219    PopupMenu = mnuPopProvDx
    … …  
    225224  end
    226225  object txtAttn: TORComboBox
    227     Left = 384
     226    Left = 454
    228227    Top = 16
    229228    Width = 136
    … …  
    252251  object treService: TORTreeView
    253252    Left = 0
    254     Top = 37
    255     Width = 228
    256     Height = 201
     253    Top = 38
     254    Width = 298
     255    Height = 220
    257256    Anchors = [akLeft, akTop, akRight, akBottom]
    258257    Font.Charset = DEFAULT_CHARSET
    … …  
    299298  end
    300299  object pnlServiceTreeButton: TKeyClickPanel
    301     Left = 204
     300    Left = 274
    302301    Top = 14
    303     Width = 25
    304     Height = 24
     302    Width = 26
     303    Height = 26
    305304    Hint = 'View services/specialties hierarchically'
    306305    Anchors = [akTop, akRight]
    307306    BevelOuter = bvNone
     307    BevelWidth = 2
    308308    Caption = 'View services/specialties hierarchically'
     309    Font.Charset = ANSI_CHARSET
     310    Font.Color = clBtnFace
     311    Font.Height = -11
     312    Font.Name = 'MS Sans Serif'
     313    Font.Style = []
     314    ParentFont = False
    309315    TabOrder = 2
    310316    TabStop = True
    … …  
    313319    OnExit = pnlServiceTreeButtonExit
    314320    object btnServiceTree: TSpeedButton
    315       Left = 1
    316       Top = 1
    317       Width = 23
     321      Left = 2
     322      Top = 2
     323      Width = 22
    318324      Height = 22
    319325      Glyph.Data = {
    … …  
    360366        FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
    361367        FFFFFFFFFFFFFFFFFFFF}
     368      Margin = 0
    362369      OnClick = btnServiceTreeClick
    363370    end
    364371  end
    365372  object cmdLexSearch: TButton
    366     Left = 473
    367     Top = 96
     373    Left = 543
     374    Top = 94
    368375    Width = 49
    369     Height = 17
     376    Height = 21
    370377    Anchors = [akTop, akRight]
    371378    Caption = 'Lexicon'
    … …  
    374381  end
    375382  object gbInptOpt: TGroupBox
    376     Left = 239
     383    Left = 309
    377384    Top = 35
    378385    Width = 140
    … …  
    401408  end
    402409  object btnDiagnosis: TButton
    403     Left = 473
     410    Left = 543
    404411    Top = 95
    405     Width = 52
     412    Width = 49
    406413    Height = 20
    407414    Anchors = [akTop, akRight]
    … …  
    421428    OnPopup = popReasonPopup
    422429    Left = 411
    423     Top = 169
     430    Top = 188
    424431    object popReasonCut: TMenuItem
    425432      Caption = 'Cu&t'

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.pas

    r459 r460  
    8585    procedure btnDiagnosisClick(Sender: TObject);
    8686    procedure cmdQuitClick(Sender: TObject);
     87    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    8788
    8889  private
    … …  
    9798    procedure SetupReasonForRequest(OrderAction: integer);
    9899    procedure GetProvDxandValidateCode(AResponses: TResponses);
    99     function  ShowPrerequisites: boolean;
     100    function ShowPrerequisites: boolean;
    100101    procedure DoSetFontSize(FontSize: integer);
    101102    procedure SetUpQuickOrderDX;
    … …  
    106107    procedure Validate(var AnErrMsg: string); override;
    107108    function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings;
     109   
    108110  public
    109111    procedure SetupDialog(OrderAction: Integer; const ID: string); override;
    … …  
    123125uses
    124126    rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, fPreReq,
    125     ORClasses, clipbrd, uTemplates;
     127    ORClasses, clipbrd, uTemplates, fFrame, uODBase;
    126128
    127129var
    … …  
    131133  BADxUpdated: boolean;
    132134  quickCode: string;
    133  
     135
    134136
    135137
    … …  
    153155procedure TfrmODCslt.FormCreate(Sender: TObject);
    154156begin
     157  frmFrame.pnlVisit.Enabled := false;
    155158  AutoSizeDisabled := True;
    156159  inherited;
    … …  
    223226  cboService.Enabled := True;
    224227  cboService.Font.Color := clWindowText;
     228  cboService.Height := 25 + (7 * cboService.ItemHeight);
    225229  btnServiceTree.Enabled := True;
     230  pnlServiceTreeButton.Enabled := True;
    226231  ActiveControl := cboService;
    227232  SetProvDiagPromptingMode;
    … …  
    271276      cboService.Font.Color := clGrayText;
    272277      btnServiceTree.Enabled := False;
     278      pnlServiceTreeButton.Enabled := False;
    273279      if (OrderAction in [ORDER_COPY, ORDER_QUICK]) and (not ShowPrerequisites) then
    274280        begin
    … …  
    286292    begin
    287293      if QuickList.Count > 0 then BuildQuickTree(QuickList, '0', nil) ;
    288       //SvcList.Assign(LoadServiceList(CN_SVC_LIST_ORD))   ;
    289294      SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_ORD));           {RV}
    290295      AList.Assign(SvcList);
    … …  
    512517        cboService.Font.Color := clGrayText;
    513518        btnServiceTree.Enabled := False;
     519        pnlServiceTreeButton.Enabled := False;
    514520        Changing := False;
    515521      end;
    … …  
    645651 begin
    646652 inherited;
    647 
    648  //if NOT BILLING_AWARE then
    649     if treService.Selected <> nil then
    650        LastNode := treService.Selected.AbsoluteIndex;
     653 if treService.Selected <> nil then
     654    LastNode := treService.Selected.AbsoluteIndex;
    651655
    652656 if  BILLING_AWARE and CIDCOkToSave  then
    … …  
    657661       begin
    658662          uBACore.CompleteConsultOrderRec(uBAGlobals.BAOrderID,UBAGlobals.BAConsultDxList);
    659        //   if ProvDx.Reqd = 'R' then UBAGlobals.BAConsultOrdersRequireDx.Add(uBAGlobals.BAOrderID); //allow special handling of non cidc consults that require dx .
    660663          uBAGlobals.BAConsultDxList.Clear;
    661664       end;
    … …  
    743746          Font.Color := clGrayText;
    744747          btnServiceTree.Enabled := False;
     748          pnlServiceTreeButton.Enabled := False;
    745749          Changing := False;
    746750          with Responses do if QuickOrder > 0 then
    … …  
    945949  with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit;
    946950  if ProvDx.Reqd = 'R' then
    947     lblProvDiag.Caption := TX_PROVDX_REQD
     951  begin
     952    lblProvDiag.Caption := TX_PROVDX_REQD;
     953    if (BILLING_AWARE)  and (ProvDx.PromptMode[1] = '') then btnDiagnosis.Enabled := True;
     954  end
    948955  else
    949956    lblProvDiag.Caption := TX_PROVDX_OPT;
    … …  
    10661073                  Result := False;
    10671074                  AbortOrder := True;
    1068                   //cmdQuitClick(Self);
    1069                 end
     1075               end
    10701076              else Result := True;
    10711077            end;
    … …  
    10761082end;
    10771083
    1078 ////////// NOTE THIS FUNCTION IS NO LONGER ASSIGNED TO OnExit EVENT
    1079 ///////// Calling this with enter making a selection had serious errors
    1080 ///////// No ill effect can be seen for not calling it.
    10811084procedure TfrmODCslt.cboServiceExit(Sender: TObject);
    10821085begin
    … …  
    10861089  if cboService.ItemID = FLastServiceID then Exit;
    10871090  cboServiceSelect(cboService);
    1088   cboService.SetFocus;
     1091  // CQ #7490, following line commented out v26.24 (RV)
     1092  // CQ #9610 and 10074 - uncommented and "if" added v26.54 (RV)
     1093  if cboService.Enabled then cboService.SetFocus;
    10891094  PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
    10901095end;
    … …  
    11411146  TmpSL: TStringList;
    11421147  DocInfo: string;
    1143 
    1144 begin
     1148  x: string;
     1149  HasObjects: boolean;
     1150begin
     1151  Resolve := FALSE ;  // override value passed in - resolve on client - PSI-05-093
    11451152  DocInfo := '';
    11461153  TmpSL := TStringList.Create;
    … …  
    11481155    Result := GetDefaultReasonForRequest(Service + CSLT_PTR, Resolve);
    11491156    TmpSL.Assign(Result);
     1157    x := TmpSL.Text;
     1158    ExpandOrderObjects(x, HasObjects);
     1159    TmpSL.Text := x;
     1160    Responses.OrderContainsObjects := HasObjects;
    11501161    ExecuteTemplateOrBoilerPlate(TmpSL, cboService.ItemIEN , ltConsult, nil, 'Reason for Request: ' + cboService.DisplayText[cboService.ItemIndex], DocInfo);
     1162    if TmpSL.Text <> x then Responses.OrderContainsObjects := False;
    11511163    Result.Assign(TmpSL);
    11521164  finally
    … …  
    12841296  //Except when Enter or Space is pressed. VK_LBUTTON activates OnClick in TORComboBoxes
    12851297  FcboServiceKeyDownStopClick := false;
    1286   if (Key <> VK_RETURN) and (Key <> VK_SPACE) and (Key <> VK_LBUTTON) then
     1298  if (Key <> VK_RETURN) {and (Key <> VK_SPACE)} and (Key <> VK_LBUTTON) then  //comment on this line is fix for CQ6789
    12871299    FcboServiceKeyDownStopClick := True
    12881300  else
    … …  
    13331345     end;
    13341346  end;
     1347
    13351348  ProvDx.CodeInactive := False;
    13361349end;
    … …  
    13871400end;
    13881401
     1402procedure TfrmODCslt.FormClose(Sender: TObject; var Action: TCloseAction);
     1403begin
     1404  inherited;
     1405  frmFrame.pnlVisit.Enabled := true;
     1406end;
     1407
    13891408end.
    13901409

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm

    r459 r460  
    11inherited frmODProc: TfrmODProc
    22  Tag = 112
    3   Left = 262
    4   Top = 191
    5   Width = 531
    6   Height = 322
     3  Left = 208
     4  Top = 188
     5  Width = 543
     6  Height = 393
    77  HorzScrollBar.Range = 523
    8   HorzScrollBar.Visible = True
    98  VertScrollBar.Range = 295
    10   VertScrollBar.Visible = True
    11   AutoScroll = False
    129  Caption = 'Order a Procedure'
     10  Constraints.MinHeight = 393
     11  Constraints.MinWidth = 543
    1312  PixelsPerInch = 96
    1413  TextHeight = 13
    … …  
    3130    WordWrap = False
    3231  end
    33   object lblUrgency: TStaticText [2]
    34     Left = 237
     32  object lblReason: TLabel [2]
     33    Left = 4
     34    Top = 103
     35    Width = 95
     36    Height = 13
     37    Caption = 'Reason for Request'
     38  end
     39  object lblUrgency: TStaticText [3]
     40    Left = 249
    3541    Top = 4
    3642    Width = 44
    … …  
    4046    TabOrder = 15
    4147  end
    42   object lblPlace: TStaticText [3]
    43     Left = 384
     48  object lblPlace: TStaticText [4]
     49    Left = 396
    4450    Top = 43
    4551    Width = 104
    … …  
    4955    TabOrder = 16
    5056  end
    51   object lblAttn: TStaticText [4]
    52     Left = 384
     57  object lblAttn: TStaticText [5]
     58    Left = 396
    5359    Top = 4
    5460    Width = 46
    … …  
    5864    TabOrder = 17
    5965  end
    60   object lblProvDiag: TStaticText [5]
    61     Left = 237
     66  object lblProvDiag: TStaticText [6]
     67    Left = 249
    6268    Top = 81
    6369    Width = 104
    … …  
    6773    TabOrder = 18
    6874  end
    69   object pnlReason: TPanel [6]
     75  object pnlReason: TPanel [7]
    7076    Left = 0
    71     Top = 99
    72     Width = 521
    73     Height = 154
     77    Top = 120
     78    Width = 528
     79    Height = 192
    7480    Anchors = [akLeft, akTop, akRight, akBottom]
    7581    BevelOuter = bvNone
    7682    TabOrder = 9
    77     DesignSize = (
    78       521
    79       154)
    80     object lblReason: TLabel
    81       Left = 4
    82       Top = 9
    83       Width = 95
    84       Height = 13
    85       Caption = 'Reason for Request'
    86     end
    8783    object memReason: TCaptionRichEdit
    8884      Left = 0
    89       Top = 24
    90       Width = 521
    91       Height = 130
    92       Anchors = [akLeft, akTop, akRight, akBottom]
     85      Top = 0
     86      Width = 528
     87      Height = 192
     88      Align = alClient
    9389      Font.Charset = DEFAULT_CHARSET
    9490      Font.Color = clWindowText
    … …  
    9692      Font.Name = 'Courier New'
    9793      Font.Style = []
     94      Constraints.MinHeight = 40
    9895      ParentFont = False
    9996      PopupMenu = popReason
    … …  
    110107  end
    111108  inherited memOrder: TCaptionMemo
    112     Left = 4
    113     Top = 258
    114     Width = 361
    115     Height = 36
    116     Anchors = [akLeft, akRight, akBottom]
     109    Left = 0
     110    Top = 321
     111    Width = 380
     112    Height = 41
     113    Anchors = [akLeft, akRight]
    117114    Lines.Strings = (
    118115      'The order text...'
    … …  
    123120    TabOrder = 1
    124121  end
    125   object cboUrgency: TORComboBox [8]
    126     Left = 237
     122  object cboUrgency: TORComboBox [9]
     123    Left = 249
    127124    Top = 17
    128125    Width = 133
    … …  
    148145    CharsNeedMatch = 1
    149146  end
    150   object cboPlace: TORComboBox [9]
    151     Left = 384
     147  object cboPlace: TORComboBox [10]
     148    Left = 396
    152149    Top = 56
    153150    Width = 133
    … …  
    173170    CharsNeedMatch = 1
    174171  end
    175   object txtProvDiag: TCaptionEdit [10]
    176     Left = 237
     172  object txtAttn: TORComboBox [11]
     173    Left = 396
     174    Top = 17
     175    Width = 133
     176    Height = 21
     177    Anchors = [akTop, akRight]
     178    Style = orcsDropDown
     179    AutoSelect = True
     180    Caption = 'Attention'
     181    Color = clWindow
     182    DropDownCount = 8
     183    ItemHeight = 13
     184    ItemTipColor = clWindow
     185    ItemTipEnable = True
     186    ListItemsOnly = True
     187    LongList = True
     188    LookupPiece = 2
     189    MaxLength = 0
     190    Pieces = '2,3'
     191    Sorted = False
     192    SynonymChars = '<>'
     193    TabOrder = 3
     194    OnChange = ControlChange
     195    OnNeedData = txtAttnNeedData
     196    CharsNeedMatch = 1
     197  end
     198  object cboProc: TORComboBox [12]
     199    Left = 4
     200    Top = 17
     201    Width = 227
     202    Height = 21
     203    Anchors = [akLeft, akTop, akRight]
     204    Style = orcsDropDown
     205    AutoSelect = True
     206    Caption = 'Procedure'
     207    Color = clWindow
     208    DropDownCount = 8
     209    ItemHeight = 13
     210    ItemTipColor = clWindow
     211    ItemTipEnable = True
     212    ListItemsOnly = True
     213    LongList = True
     214    LookupPiece = 0
     215    MaxLength = 0
     216    Pieces = '2'
     217    Sorted = False
     218    SynonymChars = '<>'
     219    TabOrder = 0
     220    OnChange = cboProcSelect
     221    OnNeedData = cboProcNeedData
     222    CharsNeedMatch = 1
     223  end
     224  object cboCategory: TORComboBox [13]
     225    Left = 516
     226    Top = 10
     227    Width = 3
     228    Height = 21
     229    Style = orcsDropDown
     230    AutoSelect = True
     231    Color = clWindow
     232    DropDownCount = 8
     233    ItemHeight = 13
     234    ItemTipColor = clWindow
     235    ItemTipEnable = True
     236    ListItemsOnly = False
     237    LongList = False
     238    LookupPiece = 0
     239    MaxLength = 0
     240    Sorted = False
     241    SynonymChars = '<>'
     242    TabOrder = 13
     243    Visible = False
     244    OnChange = ControlChange
     245    CharsNeedMatch = 1
     246  end
     247  object cboService: TORComboBox [14]
     248    Left = 4
     249    Top = 58
     250    Width = 227
     251    Height = 21
     252    Anchors = [akLeft, akTop, akRight]
     253    Style = orcsDropDown
     254    AutoSelect = True
     255    Caption = 'Service to perform this procedure'
     256    Color = clWindow
     257    DropDownCount = 8
     258    Enabled = False
     259    ItemHeight = 13
     260    ItemTipColor = clWindow
     261    ItemTipEnable = True
     262    ListItemsOnly = False
     263    LongList = False
     264    LookupPiece = 0
     265    MaxLength = 0
     266    Pieces = '2'
     267    Sorted = False
     268    SynonymChars = '<>'
     269    TabOrder = 4
     270    OnChange = cboServiceChange
     271    CharsNeedMatch = 1
     272  end
     273  inherited cmdAccept: TButton
     274    Left = 387
     275    Top = 339
     276    Anchors = [akRight, akBottom]
     277    TabOrder = 10
     278  end
     279  inherited cmdQuit: TButton
     280    Left = 469
     281    Top = 339
     282    Width = 64
     283    Anchors = [akRight, akBottom]
     284    TabOrder = 11
     285  end
     286  inherited pnlMessage: TPanel
     287    Left = 50
     288    Top = 320
     289    Width = 316
     290    Anchors = [akLeft, akRight, akBottom]
     291    TabOrder = 12
     292    inherited memMessage: TRichEdit
     293      Width = 254
     294    end
     295  end
     296  object cmdLexSearch: TButton
     297    Left = 486
     298    Top = 93
     299    Width = 49
     300    Height = 21
     301    Anchors = [akTop, akRight]
     302    Caption = 'Lexicon'
     303    TabOrder = 8
     304    OnClick = cmdLexSearchClick
     305  end
     306  object gbInptOpt: TGroupBox
     307    Left = 249
     308    Top = 36
     309    Width = 140
     310    Height = 45
     311    Anchors = [akTop, akRight]
     312    Caption = 'Patient will be seen as an:'
     313    TabOrder = 5
     314    object radInpatient: TRadioButton
     315      Left = 3
     316      Top = 20
     317      Width = 61
     318      Height = 17
     319      Caption = '&Inpatient'
     320      TabOrder = 0
     321      OnClick = radInpatientClick
     322    end
     323    object radOutpatient: TRadioButton
     324      Left = 67
     325      Top = 20
     326      Width = 71
     327      Height = 17
     328      Caption = '&Outpatient'
     329      TabOrder = 1
     330      OnClick = radOutpatientClick
     331    end
     332  end
     333  object txtProvDiag: TCaptionEdit
     334    Left = 249
    177335    Top = 93
    178336    Width = 234
    179337    Height = 21
    180338    Anchors = [akTop, akRight]
     339    MaxLength = 180
    181340    ParentShowHint = False
    182341    PopupMenu = mnuPopProvDx
    … …  
    185344    OnChange = txtProvDiagChange
    186345    Caption = 'Provisional Diagnosis'
    187   end
    188   object txtAttn: TORComboBox [11]
    189     Left = 384
    190     Top = 17
    191     Width = 133
    192     Height = 21
    193     Anchors = [akTop, akRight]
    194     Style = orcsDropDown
    195     AutoSelect = True
    196     Caption = 'Attention'
    197     Color = clWindow
    198     DropDownCount = 8
    199     ItemHeight = 13
    200     ItemTipColor = clWindow
    201     ItemTipEnable = True
    202     ListItemsOnly = True
    203     LongList = True
    204     LookupPiece = 2
    205     MaxLength = 0
    206     Pieces = '2,3'
    207     Sorted = False
    208     SynonymChars = '<>'
    209     TabOrder = 3
    210     OnChange = ControlChange
    211     OnNeedData = txtAttnNeedData
    212     CharsNeedMatch = 1
    213   end
    214   object cboProc: TORComboBox [12]
    215     Left = 4
    216     Top = 17
    217     Width = 215
    218     Height = 21
    219     Anchors = [akLeft, akTop, akRight]
    220     Style = orcsDropDown
    221     AutoSelect = True
    222     Caption = 'Procedure'
    223     Color = clWindow
    224     DropDownCount = 8
    225     ItemHeight = 13
    226     ItemTipColor = clWindow
    227     ItemTipEnable = True
    228     ListItemsOnly = True
    229     LongList = True
    230     LookupPiece = 0
    231     MaxLength = 0
    232     Pieces = '2'
    233     Sorted = False
    234     SynonymChars = '<>'
    235     TabOrder = 0
    236     OnChange = cboProcSelect
    237     OnNeedData = cboProcNeedData
    238     CharsNeedMatch = 1
    239   end
    240   object cboCategory: TORComboBox [13]
    241     Left = 516
    242     Top = 10
    243     Width = 3
    244     Height = 21
    245     Style = orcsDropDown
    246     AutoSelect = True
    247     Color = clWindow
    248     DropDownCount = 8
    249     ItemHeight = 13
    250     ItemTipColor = clWindow
    251     ItemTipEnable = True
    252     ListItemsOnly = False
    253     LongList = False
    254     LookupPiece = 0
    255     MaxLength = 0
    256     Sorted = False
    257     SynonymChars = '<>'
    258     TabOrder = 13
    259     Visible = False
    260     OnChange = ControlChange
    261     CharsNeedMatch = 1
    262   end
    263   object cboService: TORComboBox [14]
    264     Left = 4
    265     Top = 58
    266     Width = 215
    267     Height = 21
    268     Anchors = [akLeft, akTop, akRight]
    269     Style = orcsDropDown
    270     AutoSelect = True
    271     Caption = 'Service to perform this procedure'
    272     Color = clWindow
    273     DropDownCount = 8
    274     Enabled = False
    275     ItemHeight = 13
    276     ItemTipColor = clWindow
    277     ItemTipEnable = True
    278     ListItemsOnly = False
    279     LongList = False
    280     LookupPiece = 0
    281     MaxLength = 0
    282     Pieces = '2'
    283     Sorted = False
    284     SynonymChars = '<>'
    285     TabOrder = 4
    286     OnChange = cboServiceChange
    287     CharsNeedMatch = 1
    288   end
    289   inherited cmdAccept: TButton
    290     Left = 369
    291     Top = 268
    292     Anchors = [akRight, akBottom]
    293     TabOrder = 10
    294   end
    295   inherited cmdQuit: TButton
    296     Left = 457
    297     Top = 268
    298     Width = 64
    299     Anchors = [akRight, akBottom]
    300     TabOrder = 11
    301   end
    302   inherited pnlMessage: TPanel
    303     Left = 50
    304     Top = 249
    305     Width = 304
    306     Anchors = [akLeft, akRight, akBottom]
    307     TabOrder = 12
    308     inherited memMessage: TRichEdit
    309       Width = 254
    310     end
    311   end
    312   object cmdLexSearch: TButton
    313     Left = 474
    314     Top = 93
    315     Width = 49
    316     Height = 21
    317     Anchors = [akTop, akRight]
    318     Caption = 'Lexicon'
    319     TabOrder = 8
    320     OnClick = cmdLexSearchClick
    321   end
    322   object gbInptOpt: TGroupBox
    323     Left = 237
    324     Top = 36
    325     Width = 140
    326     Height = 45
    327     Anchors = [akTop, akRight]
    328     Caption = 'Patient will be seen as an:'
    329     TabOrder = 5
    330     DesignSize = (
    331       140
    332       45)
    333     object radInpatient: TRadioButton
    334       Left = 3
    335       Top = 20
    336       Width = 61
    337       Height = 17
    338       Anchors = [akTop, akRight]
    339       Caption = '&Inpatient'
    340       TabOrder = 0
    341       OnClick = radInpatientClick
    342     end
    343     object radOutpatient: TRadioButton
    344       Left = 67
    345       Top = 20
    346       Width = 71
    347       Height = 17
    348       Anchors = [akTop, akRight]
    349       Caption = '&Outpatient'
    350       TabOrder = 1
    351       OnClick = radOutpatientClick
    352     end
    353346  end
    354347  object mnuPopProvDx: TPopupMenu

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.pas

    r459 r460  
    1212    cboUrgency: TORComboBox;
    1313    cboPlace: TORComboBox;
    14     txtProvDiag: TCaptionEdit;
    1514    txtAttn: TORComboBox;
    1615    lblProc: TLabel;
    … …  
    3433    pnlReason: TPanel;
    3534    memReason: TCaptionRichEdit;
    36     lblReason: TLabel;
    3735    gbInptOpt: TGroupBox;
    3836    radInpatient: TRadioButton;
    3937    radOutpatient: TRadioButton;
     38    txtProvDiag: TCaptionEdit;
     39    lblReason: TLabel;
    4040    procedure FormCreate(Sender: TObject);
    4141    procedure txtAttnNeedData(Sender: TObject; const StartFrom: String;
    … …  
    6363      Shift: TShiftState);
    6464    procedure memReasonKeyPress(Sender: TObject; var Key: Char);
     65    procedure FormResize(Sender: TObject);
     66    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    6567  private
    6668    FLastProcID: string;
    … …  
    8890uses
    8991    rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, ORClasses,
    90     clipbrd, fPreReq, uTemplates, uAccessibleRichEdit;
     92    clipbrd, fPreReq, uTemplates, uAccessibleRichEdit, fFrame, uODBase;
    9193
    9294var
    … …  
    109111procedure TfrmODProc.FormCreate(Sender: TObject);
    110112begin
     113  frmFrame.pnlVisit.Enabled := false;
    111114  AutoSizeDisabled := True;
    112115  inherited;
    … …  
    709712  TmpSL: TStringList;
    710713  DocInfo: string;
    711 begin
     714  x: string;
     715  HasObjects: boolean;
     716begin
     717  Resolve := FALSE ;  // override value passed in - resolve on client - PSI-05-093
    712718  DocInfo := '';
    713719  TmpSL := TStringList.Create;
    … …  
    715721    Result := GetDefaultReasonForRequest(Piece(cboProc.Items[cboProc.ItemIndex], U, 4), Resolve);
    716722    TmpSL.Assign(Result);
     723    x := TmpSL.Text;
     724    ExpandOrderObjects(x, HasObjects);
     725    TmpSL.Text := x;
     726    Responses.OrderContainsObjects := HasObjects;
    717727    ExecuteTemplateOrBoilerPlate(TmpSL, StrToIntDef(piece(piece(cboProc.Items[cboProc.ItemIndex],U,4),';',1),0),
    718728                   ltProcedure, nil, 'Reason for Request: ' + cboProc.DisplayText[cboProc.ItemIndex], DocInfo);
     729    if TmpSL.Text <> x then Responses.OrderContainsObjects := False;
    719730    Result.Assign(TmpSL);
    720731  finally
    … …  
    805816end;
    806817
     818procedure TfrmODProc.FormResize(Sender: TObject);
     819begin
     820  inherited;
     821  memOrder.Top := PnlReason.Top + PnlReason.Height + 5;
     822
     823end;
     824
     825procedure TfrmODProc.FormClose(Sender: TObject; var Action: TCloseAction);
     826begin
     827  inherited;
     828  frmFrame.pnlVisit.Enabled := true;
     829end;
     830
    807831end.
    808832

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fPreReq.dfm

    r459 r460  
    1212  Font.Name = 'MS Sans Serif'
    1313  Font.Style = []
    14   FormStyle = fsStayOnTop
    1514  OldCreateOrder = True
    1615  Position = poScreenCenter

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/rConsults.pas

    r459 r460  
    44
    55uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, uConsults, rTIU, uTIU;
     6
     7type
     8
     9  TUnresolvedConsults = record
     10    UnresolvedConsultsExist: boolean;
     11    ShowNagScreen: boolean;
     12  end;
    613
    714{Consult Titles }
    … …  
    3239function GetFormattedSF513(AConsult: Integer; ChartCopy: string): TStrings;
    3340function UnresolvedConsultsExist: boolean;
     41procedure GetUnresolvedConsultsInfo;
    3442
    3543{list box fillers}
    … …  
    97105  uClinProcClass: integer;
    98106  uClinProcTitles: TClinProcTitles;
     107  uUnresolvedConsults: TUnresolvedConsults;
    99108
    100109implementation
    … …  
    602611end;
    603612
     613procedure GetUnresolvedConsultsInfo;
     614var
     615  x: string;
     616begin
     617  x := sCallV('ORQQCN UNRESOLVED', [Patient.DFN]);
     618  with uUnresolvedConsults do
     619  begin
     620    UnresolvedConsultsExist := (Piece(x, U, 1) = '1');
     621    ShowNagScreen := (Piece(x, U, 2) = '1');
     622  end;
     623end;
     624
    604625function ConsultMessage(AnIEN: Integer): string;
    605626begin
Note: See TracChangeset for help on using the changeset viewer.