XDRPTLSD ;SF-IRMFO/IHS/OHPRD/JCM.JLI - COMPARE LAST SERVICE SEPARATION DATES ;1/31/97 15:14
;;7.3;TOOLKIT;**23**;Apr 25, 1995
;;
;; DATE OF LAST DISCHARGE ("SEPARATION DATE-SERVICE [LAST]"
;; FILE = 2
;; FIELD = .327
;; ROUTINE = XDRDLD
START ;
D INIT
D COMPARE
END D EOJ
Q
;
INIT ;
K XDRDLD,XDRDLD2
S XDRDLD=XDRCD(XDRFL,XDRCD,.327,"I"),XDRDLD2=XDRCD2(XDRFL,XDRCD2,.327,"I")
S XDRDLD("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
S XDRDLD("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
Q
;
COMPARE ;
S XDRD("TEST SCORE")=$$DATECOMP^XDRPTDOB(XDRDLD,XDRDLD2,XDRDLD("MATCH"),XDRDLD("NO MATCH"),.8,.6)
COMPAREX Q
;
EOJ ;
K XDRDLD,XDRDLD2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDRPTLSD 662 printed Oct 16, 2024@18:40:21 Page 2
XDRPTLSD ;SF-IRMFO/IHS/OHPRD/JCM.JLI - COMPARE LAST SERVICE SEPARATION DATES ;1/31/97 15:14
+1 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
+2 ;;
+3 ;; DATE OF LAST DISCHARGE ("SEPARATION DATE-SERVICE [LAST]"
+4 ;; FILE = 2
+5 ;; FIELD = .327
+6 ;; ROUTINE = XDRDLD
START ;
+1 DO INIT
+2 DO COMPARE
END DO EOJ
+1 QUIT
+2 ;
INIT ;
+1 KILL XDRDLD,XDRDLD2
+2 SET XDRDLD=XDRCD(XDRFL,XDRCD,.327,"I")
SET XDRDLD2=XDRCD2(XDRFL,XDRCD2,.327,"I")
+3 SET XDRDLD("MATCH")=$PIECE(XDRDTEST(XDRDTO),U,6)
+4 SET XDRDLD("NO MATCH")=$PIECE(XDRDTEST(XDRDTO),U,7)
+5 QUIT
+6 ;
COMPARE ;
+1 SET XDRD("TEST SCORE")=$$DATECOMP^XDRPTDOB(XDRDLD,XDRDLD2,XDRDLD("MATCH"),XDRDLD("NO MATCH"),.8,.6)
COMPAREX QUIT
+1 ;
EOJ ;
+1 KILL XDRDLD,XDRDLD2
+2 QUIT
