source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRPTLSD.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: 635 bytes
Line 
1XDRPTLSD ;SF-IRMFO/IHS/OHPRD/JCM.JLI - COMPARE LAST SERVICE SEPARATION DATES ;1/31/97 15:14
2 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
3 ;;
4 ;; DATE OF LAST DISCHARGE ("SEPARATION DATE-SERVICE [LAST]"
5 ;; FILE = 2
6 ;; FIELD = .327
7 ;; ROUTINE = XDRDLD
8START ;
9 D INIT
10 D COMPARE
11END D EOJ
12 Q
13 ;
14INIT ;
15 K XDRDLD,XDRDLD2
16 S XDRDLD=XDRCD(XDRFL,XDRCD,.327,"I"),XDRDLD2=XDRCD2(XDRFL,XDRCD2,.327,"I")
17 S XDRDLD("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
18 S XDRDLD("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
19 Q
20 ;
21COMPARE ;
22 S XDRD("TEST SCORE")=$$DATECOMP^XDRPTDOB(XDRDLD,XDRDLD2,XDRDLD("MATCH"),XDRDLD("NO MATCH"),.8,.6)
23COMPAREX Q
24 ;
25EOJ ;
26 K XDRDLD,XDRDLD2
27 Q
Note: See TracBrowser for help on using the repository browser.