| 1 | XDRPTMMN ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES MOTHER'S MAIDEN NAME; ;1/16/97 12:55
|
|---|
| 2 | ;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | ;
|
|---|
| 5 | ; Calls: EN^XDRPTN
|
|---|
| 6 | START ;
|
|---|
| 7 | I XDRCD(XDRFL,XDRCD,.2403,"I")']""!(XDRCD2(XDRFL,XDRCD2,.2403,"I")']"") G END
|
|---|
| 8 | D INIT
|
|---|
| 9 | D EN^XDRPTN
|
|---|
| 10 | END Q
|
|---|
| 11 | ;
|
|---|
| 12 | INIT ;
|
|---|
| 13 | S XDRDN("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
|
|---|
| 14 | S XDRDN("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
|
|---|
| 15 | S XDRDN=XDRCD(XDRFL,XDRCD,.2403,"I"),XDRDN2=XDRCD2(XDRFL,XDRCD2,.2403,"I")
|
|---|
| 16 | 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," ")))
|
|---|
| 17 | Q
|
|---|
