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 ---[H[J[2J[HXDRPTMMN 639 printed Dec 13, 2024@02:39:45 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
