source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRPTDOD.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 454 bytes
Line 
1XDRPTDOD ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF DEATH'S; ;8/28/96 10:35
2 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
3 ;;
4 ;
5 ; Calls: EN^XDRPTDOB
6 ;
7START ;
8 I XDRCD(XDRFL,XDRCD,.351,"I")']""!(XDRCD2(XDRFL,XDRCD2,.351,"I")']"") G END
9 D INIT
10 D EN^XDRPTDOB
11END Q
12 ;
13INIT ;
14 K XDRDOB,XDRDOB2
15 S XDRDOB=XDRCD(XDRFL,XDRCD,.351,"I"),XDRDOB2=XDRCD2(XDRFL,XDRCD2,.351,"I")
16 S XDRDOB("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
17 S XDRDOB("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
18 Q
Note: See TracBrowser for help on using the repository browser.