XDRPTDOD.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XDRPTDOD   472     printed  Dec 13, 2024@02:39:44                                                                                                                                                                                                     Page 2

XDRPTDOD  ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF DEATH'S; ;8/28/96  10:35

 +1       ;;7.3;TOOLKIT;**23**;Apr 25, 1995

 +2       ;;

 +3       ;

 +4       ; Calls: EN^XDRPTDOB

 +5       ;

START     ;

 +1        IF XDRCD(XDRFL,XDRCD,.351,"I")']""!(XDRCD2(XDRFL,XDRCD2,.351,"I")']"")

               GOTO END

 +2        DO INIT

 +3        DO EN^XDRPTDOB

END        QUIT 

 +1       ;

INIT      ;

 +1        KILL XDRDOB,XDRDOB2

 +2        SET XDRDOB=XDRCD(XDRFL,XDRCD,.351,"I")

           SET XDRDOB2=XDRCD2(XDRFL,XDRCD2,.351,"I")

 +3        SET XDRDOB("MATCH")=$PIECE(XDRDTEST(XDRDTO),U,6)

 +4        SET XDRDOB("NO MATCH")=$PIECE(XDRDTEST(XDRDTO),U,7)

 +5        QUIT