source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/uCombatVet.pas@ 1722

Last change on this file since 1722 was 1693, checked in by healthsevak, 9 years ago

Committing the files for first time to this new branch

File size: 1.8 KB
Line 
1unit uCombatVet;
2
3interface
4
5type
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
31implementation
32
33uses ORNet, VAUtils, ORFn;
34
35{ TCombatVet }
36
37procedure TCombatVet.ClearProperties;
38begin
39 FServiceBranch := '';
40 FStatus := '';
41 FSeperationDate := '';
42 FExpirationDate := '';
43 FOIF_OEF := '';
44end;
45
46constructor TCombatVet.Create(DFN: String);
47begin
48 FDFN := DFN;
49 UpdateData;
50end;
51
52procedure TCombatVet.UpdateData;
53begin
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];
66end;
67
68end.
Note: See TracBrowser for help on using the repository browser.