XDRPTLSD.m

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 ---XDRPTLSD   662     printed  Mar 13, 2025@21:44:47                                                                                                                                                                                                     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