XDRPTDOD ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF DEATH'S; ;8/28/96  10:35
 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
 ;;
 ;
 ; Calls: EN^XDRPTDOB
 ;
START ;
 I XDRCD(XDRFL,XDRCD,.351,"I")']""!(XDRCD2(XDRFL,XDRCD2,.351,"I")']"") G END
 D INIT
 D EN^XDRPTDOB
END Q
 ;
INIT ;
 K XDRDOB,XDRDOB2
 S XDRDOB=XDRCD(XDRFL,XDRCD,.351,"I"),XDRDOB2=XDRCD2(XDRFL,XDRCD2,.351,"I")
 S XDRDOB("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
 S XDRDOB("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
 Q