XDRPREL1 ;SF-IRMFO.SEA/JLI - IDENTIFY PROBLEM ENTRIES WHICH ARE **NOT** POINTED TO ;
 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
 ;;
 ;;
EN ;
 M ^TMP("XDRPREL1",$J,2)=^TMP("XDRDPREL",$J,2)
 S NODE=""
 F  S NODE=$O(^TMP("XDRPREL1",$J,2,NODE)) Q:NODE=""  D
 . M ^TMP("XDRPREL1",$J,"BB")=^TMP("XDRPREL1",$J,2,NODE)
 S XDRXFLG=1
 D EN^XDRMERG(2,$NA(^TMP("XDRPREL1",$J,"BB")))
 S NODE=""
 F  S NODE=$O(^TMP("XDRPREL1",$J,2,NODE)) Q:NODE=""  D
 . F J=0:0 S J=$O(^TMP("XDRPREL1",$J,2,NODE,J)) Q:J'>0  D
 . . I '$D(^TMP("XDRPREL1",$J,"BB",J)) K ^TMP("XDRPREL1",$J,2,NODE,J) Q
 . . S $P(^(NODE),U,2)=$P(^TMP("XDRPREL1",$J,2,NODE),U,2)+1