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
