XDRPTDOD.m

XDRPTDOD ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF DEATH'S; ;8/28/96  10:35 [ 04/02/2003   8:47 AM ]

 ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 ;;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

XDRPTDOD  ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF DEATH'S; ;8/28/96  10:35 [ 04/02/2003   8:47 AM ]

 +1       ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 +2       ;;7.3;TOOLKIT;**23**;Apr 25, 1995

 +3       ;;

 +4       ;

 +5       ; Calls: EN^XDRPTDOB

 +6       ;

START     ;

 +1        IF XDRCD(XDRFL,XDRCD,.351,"I")']""!(XDRCD2(XDRFL,XDRCD2,.351,"I")']"")

               GOTO END

 +2        DO INIT

 +3        DO EN^XDRPTDOB

END        QUIT 

 +1       ;

INIT      ;

 +1        KILL XDRDOB,XDRDOB2

 +2        SET XDRDOB=XDRCD(XDRFL,XDRCD,.351,"I")

           SET XDRDOB2=XDRCD2(XDRFL,XDRCD2,.351,"I")

 +3        SET XDRDOB("MATCH")=$PIECE(XDRDTEST(XDRDTO),U,6)

 +4        SET XDRDOB("NO MATCH")=$PIECE(XDRDTEST(XDRDTO),U,7)

 +5        QUIT