Module

uCombatVet

Path

C:\CPRS\CPRS30\uCombatVet.pas

Last Modified

7/15/2014 3:26:44 PM

Classes

Name Comments
TCombatVet -

Procedures

Name Owner Declaration Scope Comments
ClearProperties TCombatVet procedure ClearProperties; Private TCombatVet
UpdateData TCombatVet procedure UpdateData; Public -


Module Source

1     unit uCombatVet;
2     
3     interface
4     
5     type
6       TCombatVet = Class(TObject)
7       private
8         FServiceBranch: String;
9         FOIF_OEF: String;
10        FExpirationDate: String;
11        FEligibilityDate: String;
12        FStatus: String;
13        FSeperationDate: String;
14        FDFN : String;
15        FLocation: String;
16        FIsEligible: Boolean;
17        procedure ClearProperties;
18      public
19        procedure UpdateData;
20        constructor Create(DFN : String);
21        property ServiceBranch : String read FServiceBranch write FServiceBranch;
22        property Status : String read FStatus write FStatus;
23        property ServiceSeparationDate : String read FSeperationDate write FSeperationDate;
24        property EligibilityDate : String read FEligibilityDate write FEligibilityDate;
25        property ExpirationDate : String read FExpirationDate write FExpirationDate;
26        property OEF_OIF : String read FOIF_OEF write FOIF_OEF;
27        property Location : String read FLocation write FLocation;
28        property IsEligible : Boolean read FIsEligible write FIsEligible;
29      End;
30    
31    implementation
32    
33    uses ORNet, VAUtils, ORFn;
34    
35    { TCombatVet }
36    
37    procedure TCombatVet.ClearProperties;
38    begin
39      FServiceBranch := '';
40      FStatus := '';
41      FSeperationDate := '';
42      FExpirationDate := '';
43      FOIF_OEF := '';
44    end;
45    
46    constructor TCombatVet.Create(DFN: String);
47    begin
48      FDFN := DFN;
49      UpdateData;
50    end;
51    
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;
67    
68    end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


                 uCombatVet
                    uCore┤ 
                rOrders┤ │ 
                  rCore┤ │ 
                   rTIU┤ │ 
              rConsults┤ │ 
                uOrders┤ │ 
                fODBase┤ │ 
                rODBase┤ │ 
             UBAGlobals┤ │ 
                UBACore┤ │ 
                 fFrame┤ │ 
               fTimeout┤ │ 
                rODMeds┤ │ 
                fOrders┤ │ 
                dShared┤ │ 
             uTemplates┤ │ 
             rTemplates┤ │ 
        uTemplateFields┤ │ 
         uDlgComponents┤ │ 
             uReminders┤ │ 
                   uPCE┤ │ 
      fBALocalDiagnoses┤ │ 
                fPCELex┤ │ 
                   rPCE┤ │ 
        fEncounterFrame┤ │ 
             fVisitType┤ │ 
             fDiagnoses┤ │ 
             fEncVitals┤ │ 
                uVitals┤ │ 
                 uProbs┤ │ 
                 rProbs┤ │ 
                fVitals┤ │ 
                 fCover┤ │ 
                 rCover┤ │ 
              fPtSelMsg┤ │ 
                 fPtSel┤ │ 
            fOrdersSign┤ │ 
         fPrintLocation┤ │ 
                  fMeds┤ │ 
                  rMeds┤ │ 
              fARTAllgy┤ │ 
             rODAllergy┤ │ 
                 fNotes┤ │ 
               uDocTree┤ │ 
         fConsult513Prt┤ │ 
               rReports┤ │ 
               fReports┤ │ 
                   rECS┤ │ 
                 fVisit┤ │ 
                 fEncnt┤ │ 
                 fProbs┤ │ 
               fProbEdt┤ │ 
               fProbLex┤ │ 
          fReportsPrint┤ │ 
                fGraphs┤ │ 
             fGraphData┤ │ 
         fGraphProfiles┤ │ 
           fGraphOthers┤ │ 
                  rLabs┤ │ 
              fConsults┤ │ 
           fPCEProvider┤ │ 
          fDeviceSelect┤ │ 
                fDCSumm┤ │ 
                rDCSumm┤ │ 
        fTemplateEditor┤ │ 
            uEventHooks┤ │ 
        fReminderDialog┤ │ 
                fMHTest┤ │ 
                  fLabs┤ │ 
         fLabTestGroups┤ │ 
              fLabPrint┤ │ 
                fPtDemo┤ │ 
                fPtCWAD┤ │ 
                fReview┤ │ 
        fClinicWardMeds┤ │ 
           fCSRemaining┤ │ 
             rReminders┤ │ 
               fOptions┤ │ 
    fBAOptionsDiagnoses┤ │ 
             uSignItems┤ │ 
              fODDietLT┤ │ 
                rODDiet┤ │ 
           fOrdersPrint┤ │ 
               fSurgery┤ │ 
               rSurgery┤ │ 
uVA508CPRSCompatibility┤ │ 
          fDefaultEvent┤ │ 
      fPatientFlagMulti┤ │ 
           fOrdersRenew┤ │ 
                fODDiet┤ │ 
              fOrdersDC┤ │ 
              fOrdersCV┤ │ 
              fODMedOut┤ │ 
             fODConsult┤ │ 
             fConsultBS┤ │ 
          fConsultsView┤ │ 
            fConsultAct┤ │ 
                fODProc┤ │ 
              fCsltNote┤ │ 
             fNoteProps┤ │ 
                fNoteBA┤ │ 
               fNotePrt┤ │ 
               fTIUView┤ │ 
           fDCSummProps┤ │ 
              fEditProc┤ │ 
           fEditConsult┤ │ 
           fConsMedRslt┤ │ 
          fNoteCPFields┤ │ 
             fCombatVet┤ │ 
                 fODRad┤ │ 
                 fODLab┤ │ 
                 rODLab┤ │ 
          fLabCollTimes┤ │ 
               fODBBank┤ │ 
                fODMeds┤ │ 
               fODMedIV┤ │ 
                fODAuto┤ │ 
         fOrdersRelease┤ │ 
                fOMHTML┤ │ 
              fODMedNVA┤ │ 
         fOrdersOnChart┤ │ 
     fOrdersEvntRelease┤ │ 
        fODReleaseEvent┤ │ 
             fOCSession┤ │ 
              fOrdersTS┤ │ 
             mEvntDelay┤ │ 
              fODActive┤ │ 
            fOrdersCopy┤ │ 
               fMedCopy┤ │ 
                   fGAF┤ │ 
         fRemCoverSheet┤ │ 
               fPCEEdit┤ │ 
  fOptionsReportsCustom┤ │ 
 fOptionsReportsDefault┤ │ 
                   fvit┤ │ 
               fODAllgy┘ │ 
              fPtSelDemog┘ 
              fPtSel...┘