| [613] | 1 | XDRPREL1 ;SF-IRMFO.SEA/JLI - IDENTIFY PROBLEM ENTRIES WHICH ARE **NOT** POINTED TO ;
|
|---|
| 2 | ;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | ;;
|
|---|
| 5 | EN ;
|
|---|
| 6 | M ^TMP("XDRPREL1",$J,2)=^TMP("XDRDPREL",$J,2)
|
|---|
| 7 | S NODE=""
|
|---|
| 8 | F S NODE=$O(^TMP("XDRPREL1",$J,2,NODE)) Q:NODE="" D
|
|---|
| 9 | . M ^TMP("XDRPREL1",$J,"BB")=^TMP("XDRPREL1",$J,2,NODE)
|
|---|
| 10 | S XDRXFLG=1
|
|---|
| 11 | D EN^XDRMERG(2,$NA(^TMP("XDRPREL1",$J,"BB")))
|
|---|
| 12 | S NODE=""
|
|---|
| 13 | F S NODE=$O(^TMP("XDRPREL1",$J,2,NODE)) Q:NODE="" D
|
|---|
| 14 | . F J=0:0 S J=$O(^TMP("XDRPREL1",$J,2,NODE,J)) Q:J'>0 D
|
|---|
| 15 | . . I '$D(^TMP("XDRPREL1",$J,"BB",J)) K ^TMP("XDRPREL1",$J,2,NODE,J) Q
|
|---|
| 16 | . . S $P(^(NODE),U,2)=$P(^TMP("XDRPREL1",$J,2,NODE),U,2)+1
|
|---|
