Procedure

TCombatVet.UpdateData

Module

uCombatVet

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TCombatVet

Declaration

procedure UpdateData;

Calls Hierarchy


TCombatVet.UpdateData
 └TCombatVet.ClearProperties

Called-By Hierarchy


                              TCombatVet.UpdateData
                                TCombatVet.Create┘ 
                          TPatient.GetCombatVet┤   
                      TfrmEditCslt.InitDialog┤ │   
                        EditResubmitConsult┘ │ │   
     TfrmConsults.mnuActEditResubmitClick┘   │ │   
      TfrmConsults.cmdEditResubmitClick┘     │ │   
                  TfrmEditCslt.SetUpCombatVet┤ │   
                 TfrmEditCslt.InitDialog...┘ │ │   
                      TfrmEditProc.InitDialog┤ │   
                      EditResubmitProcedure┤ │ │   
  TfrmConsults.mnuActEditResubmitClick...┘ │ │ │   
                 TfrmEditProc.cboProcSelect┘ │ │   
               TfrmEditProc.InitDialog...┘   │ │   
                  TfrmEditProc.SetUpCombatVet┤ │   
                 TfrmEditProc.InitDialog...┘ │ │   
                       TfrmCombatVet.FormShow┤ │   
                       TfrmFrame.SetupPatient┤ │   
                  UpdatePatientInfoForAlert┤ │ │   
               TfrmFrame.mnuFileNextClick┘ │ │ │   
             TfrmFrame.mnuFileOpenClick┤   │ │ │   
                 TfrmFrame.UMInitiate┤ │   │ │ │   
        TfrmFrame.mnuFileNextClick...┤ │   │ │ │   
        TfrmFrame.mnuFileRefreshClick┤ │   │ │ │   
        TfrmOrders.CheckOrderStatus┤ │ │   │ │ │   
    TfrmOrders.mnuActChgEvntClick┤ │ │ │   │ │ │   
       TfrmOrders.mnuActHoldClick┤ │ │ │   │ │ │   
     TfrmOrders.mnuActUnholdClick┤ │ │ │   │ │ │   
      TfrmOrders.mnuActRenewClick┤ │ │ │   │ │ │   
     TfrmOrders.mnuActChangeClick┤ │ │ │   │ │ │   
       TfrmOrders.mnuActCopyClick┘ │ │ │   │ │ │   
             TfrmMeds.mnuActDCClick┤ │ │   │ │ │   
            TfrmMeds.CheckMedStatus┘ │ │   │ │ │   
         TfrmMeds.mnuActHoldClick┤   │ │   │ │ │   
        TfrmMeds.mnuActRenewClick┤   │ │   │ │ │   
       TfrmMeds.mnuActUnholdClick┤   │ │   │ │ │   
       TfrmMeds.mnuActChangeClick┤   │ │   │ │ │   
         TfrmMeds.mnuActCopyClick┤   │ │   │ │ │   
       TfrmMeds.mnuActRefillClick┘   │ │   │ │ │   
                   TfrmFrame.ViewInfo┘ │   │ │ │   
                TfrmDCSumm.ViewInfo┤   │   │ │ │   
              TfrmConsults.ViewInfo┤   │   │ │ │   
      TfrmFrame.pnlRemindersMouseUp┤   │   │ │ │   
       TfrmFrame.RemindersChanged┘ │   │   │ │ │   
           TfrmFrame.FormCreate┘   │   │   │ │ │   
             TfrmFrame.pnlCIRNClick┤   │   │ │ │   
       TfrmFrame.pnlVistaWebClick┤ │   │   │ │ │   
            TfrmFrame.FormKeyDown┘ │   │   │ │ │   
          TfrmFrame.pnlPatientClick┤   │   │ │ │   
            TfrmFrame.pnlVisitClick┤   │   │ │ │   
      TfrmFrame.pnlPrimaryCareClick┤   │   │ │ │   
        TfrmFrame.pnlRemindersClick┤   │   │ │ │   
         TfrmFrame.pnlPostingsClick┤   │   │ │ │   
             TfrmFrame.pnlFlagClick┤   │   │ │ │   
               TfrmFrame.laMHVClick┤   │   │ │ │   
              TfrmFrame.laVAA2Click┤   │   │ │ │   
                TfrmOrders.ViewInfo┤   │   │ │ │   
                  TfrmMeds.ViewInfo┤   │   │ │ │   
               TfrmSurgery.ViewInfo┤   │   │ │ │   
                 TfrmNotes.ViewInfo┤   │   │ │ │   
              TfrmProblems.ViewInfo┘   │   │ │ │   
      TfrmFrame.mnuFileNotifRemoveClick┤   │ │ │   
              TfrmFrame.NextButtonClick┘   │ │ │   
            TfrmFrame.SetUpNextButton┘     │ │ │   
      TfrmFrame.mnuFileOpenClick...┤       │ │ │   
               TfrmFrame.FormResize┘       │ │ │   
             TfrmFrame.ChangeFont┘         │ │ │   
     TfrmFrame.LoadSizesForUser┤           │ │ │   
TfrmFrame.LoadUserPreferences┘ │           │ │ │   
       TfrmFrame.UMInitiate┘   │           │ │ │   
     TfrmFrame.mnuFontSizeClick┘           │ │ │   
              TfrmFrame.mnuFileOpenClick...┤ │ │   
           TfrmFrame.AllowCCOWContextChange┤ │ │   
            TfrmFrame.mnuFileNextClick...┤ │ │ │   
            TfrmFrame.mnuFileOpenClick...┤ │ │ │   
   TfrmFrame.mnuFileResumeContextSetClick┘ │ │ │   
                TfrmFrame.UpdateCCOWContext┤ │ │   
            TfrmFrame.mnuFileOpenClick...┤ │ │ │   
          TfrmFrame.ctxContextorCommitted┤ │ │ │   
           TfrmFrame.StartCCOWContextor┘ │ │ │ │   
                 TfrmFrame.FormCreate┘   │ │ │ │   
   TfrmFrame.mnuFileResumeContextGetClick┘ │ │ │   
     TfrmFrame.mnuFileResumeContextSetClick┘ │ │   
                        TfrmODProc.FormCreate┤ │   
                        TfrmODProc.FormResize┤ │   
                    TfrmODProc.SetUpCombatVet┤ │   
                      TfrmODProc.FormCreate┘ │ │   
                        TfrmODCslt.FormCreate┤ │   
               TfrmODCslt.AdjustMemReasonSize┤ │   
                      TfrmODCslt.FormResize┘ │ │   
                    TfrmODCslt.SetUpCombatVet┘ │   
                      TfrmODCslt.FormCreate┘   │   
                       TfrmPtSelDemog.ShowDemog┘   
                         TfrmPtSel.ShowIDInfo┘     
                  TfrmPtSel.cboPatientEnter┤       
                       ShowMatchingPatients┤       
               TfrmPtSel.cboPatientChange┘ │       
               TfrmPtSel.cboPatientKeyPause┤       
             TfrmPtSel.cboPatientMouseClick┘       

Calls

Name Declaration Comments
TCombatVet.ClearProperties procedure ClearProperties; -

Called-By

Name Declaration Comments
TCombatVet.Create constructor Create(DFN : String); -


Source

52    procedure TCombatVet.UpdateData;
53    begin
54      sCallV('OR GET COMBAT VET',[FDFN]);
55      FIsEligible := True;
56      if RPCBrokerV.Results[0] = 'NOTCV' then begin
57        FIsEligible := False;
58        ClearProperties;
59        Exit;
60      end;
61      FServiceBranch := Piece(RPCBrokerV.Results[0],U,2);
62      FStatus := Piece(RPCBrokerV.Results[1],U,2);
63      FSeperationDate := Piece(RPCBrokerV.Results[2],U,2);
64      FExpirationDate := Piece(RPCBrokerV.Results[3],U,2);
65      FOIF_OEF := RPCBrokerV.Results[4];
66    end;