DPTDOD.m

DPTDOD ; IHS/TUCSON/JCM - COMPARES DATE OF DEATH'S ;

 ;;1.0;PATIENT MERGE;;FEB 02, 1994

 ;

 ; Calls: EN^DPTDOB

 ;

START ;

 I $G(XDRCD(XDRFL,XDRCD,.351,"I"))']""!($G(XDRCD2(XDRFL,XDRCD2,.351,"I"))']"") G END

 D INIT

 D EN^DPTDOB

END Q

 ;

INIT ;

 K DPTDOB,DPTDOB2

 S DPTDOB=XDRCD(XDRFL,XDRCD,.351,"I"),DPTDOB2=XDRCD2(XDRFL,XDRCD2,.351,"I")

 S DPTDOB("MATCH")=$P(XDRDTEST(XDRDTO),U,6)

 S DPTDOB("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)

 Q

DPTDOD    ; IHS/TUCSON/JCM - COMPARES DATE OF DEATH'S ;

 +1       ;;1.0;PATIENT MERGE;;FEB 02, 1994

 +2       ;

 +3       ; Calls: EN^DPTDOB

 +4       ;

START     ;

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

               GOTO END

 +2        DO INIT

 +3        DO EN^DPTDOB

END        QUIT 

 +1       ;

INIT      ;

 +1        KILL DPTDOB,DPTDOB2

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

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

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

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

 +5        QUIT