DPTDMMN.m

DPTDMMN ; IHS/TUCSON/JCM - COMPARES MOTHER'S MAIDEN NAME ;

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

 ;

 ; Calls: EN^DPTDN

START ;

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

 D INIT

 D EN^DPTDN

END Q

 ;

INIT ;

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

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

 S DPTDN=XDRCD(XDRFL,XDRCD,.2403,"I"),DPTDN2=XDRCD2(XDRFL,XDRCD2,.2403,"I")

 Q

DPTDMMN   ; IHS/TUCSON/JCM - COMPARES MOTHER'S MAIDEN NAME ;

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

 +2       ;

 +3       ; Calls: EN^DPTDN

START     ;

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

               GOTO END

 +2        DO INIT

 +3        DO EN^DPTDN

END        QUIT 

 +1       ;

INIT      ;

 +1        SET DPTDN("MATCH")=$PIECE(XDRDTEST(XDRDTO),U,6)

 +2        SET DPTDN("NO MATCH")=$PIECE(XDRDTEST(XDRDTO),U,7)

 +3        SET DPTDN=XDRCD(XDRFL,XDRCD,.2403,"I")

           SET DPTDN2=XDRCD2(XDRFL,XDRCD2,.2403,"I")

 +4        QUIT