28 lines
635 B
Mathematica
28 lines
635 B
Mathematica
XDRPTLSD ;SF-IRMFO/IHS/OHPRD/JCM.JLI - COMPARE LAST SERVICE SEPARATION DATES ;1/31/97 15:14
|
|
;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
|
;;
|
|
;; DATE OF LAST DISCHARGE ("SEPARATION DATE-SERVICE [LAST]"
|
|
;; FILE = 2
|
|
;; FIELD = .327
|
|
;; ROUTINE = XDRDLD
|
|
START ;
|
|
D INIT
|
|
D COMPARE
|
|
END D EOJ
|
|
Q
|
|
;
|
|
INIT ;
|
|
K XDRDLD,XDRDLD2
|
|
S XDRDLD=XDRCD(XDRFL,XDRCD,.327,"I"),XDRDLD2=XDRCD2(XDRFL,XDRCD2,.327,"I")
|
|
S XDRDLD("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
|
|
S XDRDLD("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
|
|
Q
|
|
;
|
|
COMPARE ;
|
|
S XDRD("TEST SCORE")=$$DATECOMP^XDRPTDOB(XDRDLD,XDRDLD2,XDRDLD("MATCH"),XDRDLD("NO MATCH"),.8,.6)
|
|
COMPAREX Q
|
|
;
|
|
EOJ ;
|
|
K XDRDLD,XDRDLD2
|
|
Q
|