19 lines
454 B
Mathematica
19 lines
454 B
Mathematica
XDRPTDOD ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF DEATH'S; ;8/28/96 10:35
|
|
;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
|
;;
|
|
;
|
|
; Calls: EN^XDRPTDOB
|
|
;
|
|
START ;
|
|
I XDRCD(XDRFL,XDRCD,.351,"I")']""!(XDRCD2(XDRFL,XDRCD2,.351,"I")']"") G END
|
|
D INIT
|
|
D EN^XDRPTDOB
|
|
END Q
|
|
;
|
|
INIT ;
|
|
K XDRDOB,XDRDOB2
|
|
S XDRDOB=XDRCD(XDRFL,XDRCD,.351,"I"),XDRDOB2=XDRCD2(XDRFL,XDRCD2,.351,"I")
|
|
S XDRDOB("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
|
|
S XDRDOB("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
|
|
Q
|