XDRPTSX ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES THE SEX OF TWO PATIENTS; ;8/28/96  09:26
 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
 ;;
START ;
 D INIT
 D COMPARE
END D EOJ
 Q
 ;
INIT ;
 D EOJ
 S XDRDSX=XDRCD(XDRFL,XDRCD,.02,"I"),XDRDSX2=XDRCD2(XDRFL,XDRCD2,.02,"I")
 S XDRDSX("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
 S XDRDSX("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
 Q
 ;
COMPARE ;
 I XDRDSX']""!(XDRDSX2']"") G COMPAREX
 I XDRDSX=XDRDSX2 S XDRD("TEST SCORE")=XDRDSX("MATCH") G COMPAREX
 S XDRD("TEST SCORE")=XDRDSX("NO MATCH")
COMPAREX Q
 ;
EOJ ;
 K XDRDSX,XDRDSX2
 Q