XDRPTMMN.m

XDRPTMMN ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES MOTHER'S MAIDEN NAME; ;1/16/97  12:55

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

 ;;

 ;

 ; Calls: EN^XDRPTN

START ;

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

 D INIT

 D EN^XDRPTN

END Q

 ;

INIT ;

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

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

 S XDRDN=XDRCD(XDRFL,XDRCD,.2403,"I"),XDRDN2=XDRCD2(XDRFL,XDRCD2,.2403,"I")

 S XDRDN=$P(XDRDN,"("),XDRDN2=$P(XDRDN2,"(") S XDRDN=$S(XDRDN[",":$P(XDRDN,",")_",",1:$P(XDRDN," ",$L(XDRDN," "))),XDRDN2=$S(XDRDN2[",":$P(XDRDN2,",")_",",1:$P(XDRDN2," ",$L(XDRDN2," ")))

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XDRPTMMN   639     printed  Mar 13, 2025@21:44:48                                                                                                                                                                                                     Page 2

XDRPTMMN  ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES MOTHER'S MAIDEN NAME; ;1/16/97  12:55

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

 +2       ;;

 +3       ;

 +4       ; Calls: EN^XDRPTN

START     ;

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

               GOTO END

 +2        DO INIT

 +3        DO EN^XDRPTN

END        QUIT 

 +1       ;

INIT      ;

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

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

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

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

 +4        SET XDRDN=$PIECE(XDRDN,"(")

           SET XDRDN2=$PIECE(XDRDN2,"(")

           SET XDRDN=$SELECT(XDRDN[",":$PIECE(XDRDN,",")_",",1:$PIECE(XDRDN," ",$LENGTH(XDRDN," ")))

           SET XDRDN2=$SELECT(XDRDN2[",":$PIECE(XDRDN2,",")_",",1:$PIECE(XDRDN2," ",$LENGTH(XDRDN2," ")))

 +5        QUIT