Procedure

GetProvDxMode

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

procedure GetProvDxMode(var ProvDx: TProvisionalDiagnosis; SvcIEN: string);

Called-By Hierarchy


                                  GetProvDxMode
        TfrmEditCslt.SetProvDiagPromptingMode┤ 
                    TfrmEditCslt.InitDialog┘ │ 
                      EditResubmitConsult┘   │ 
   TfrmConsults.mnuActEditResubmitClick┘     │ 
    TfrmConsults.cmdEditResubmitClick┘       │ 
        TfrmEditProc.SetProvDiagPromptingMode┤ 
                    TfrmEditProc.InitDialog┘ │ 
                    EditResubmitProcedure┤   │ 
TfrmConsults.mnuActEditResubmitClick...┘ │   │ 
               TfrmEditProc.cboProcSelect┘   │ 
             TfrmEditProc.InitDialog...┘     │ 
          TfrmODProc.SetProvDiagPromptingMode┤ 
                      TfrmODProc.InitDialog┤ │ 
                    TfrmODProc.FormCreate┤ │ │ 
                 TfrmODProc.cboProcSelect┘ │ │ 
                     TfrmODProc.SetupDialog┤ │ 
                   TfrmODProc.cboProcSelect┤ │ 
             TfrmODProc.ReadServerVariables┘ │ 
                    TfrmODProc.FormCreate┤   │ 
                   TfrmODProc.SetupDialog┘   │ 
          TfrmODCslt.SetProvDiagPromptingMode┘ 
                      TfrmODCslt.InitDialog┤   
                    TfrmODCslt.FormCreate┘ │   
                     TfrmODCslt.SetupDialog┤   
                TfrmODCslt.treServiceChange┤   
             TfrmODCslt.treServiceKeyDown┘ │   
                TfrmODCslt.cboServiceSelect┤   
                TfrmODCslt.cboServiceExit┘ │   
             TfrmODCslt.ReadServerVariables┘   
                   TfrmODCslt.SetupDialog┘     

Called-By

Name Declaration Comments
TfrmEditCslt.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -
TfrmEditProc.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -
TfrmODProc.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -
TfrmODCslt.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -


Source

815   procedure GetProvDxMode(var ProvDx: TProvisionalDiagnosis; SvcIEN: string);
816   var
817     x: string;
818   begin
819     x := sCallV('ORQQCN PROVDX', [SvcIEN]);
820     ProvDx.Reqd := Piece(x, U, 1);
821     ProvDx.PromptMode := Piece(x, U, 2);
822   end;