14 lines
523 B
Mathematica
14 lines
523 B
Mathematica
PRSDXREF ;HISC/GWB-SET AND KILL CROSS REFERENCES ;6/13/92 09:15
|
|
;;4.0;PAID;;Sep 21, 1995
|
|
KILL ;Kill existing cross reference
|
|
D CHECK G:EXIT EXIT S XSAV=X
|
|
F XREF=0:0 S XREF=$O(^DD(450,FLDNUM,1,XREF)) Q:XREF'>0 S X=XSAV X:$D(^DD(450,FLDNUM,1,XREF,2))#2 ^(2)
|
|
G EXIT
|
|
SET ;Set new cross reference
|
|
D CHECK G:EXIT EXIT S XSAV=X
|
|
F XREF=0:0 S XREF=$O(^DD(450,FLDNUM,1,XREF)) Q:XREF'>0 S X=XSAV X:$D(^DD(450,FLDNUM,1,XREF,1))#2 ^(1)
|
|
EXIT K EXIT,XREF,XSAV
|
|
Q
|
|
CHECK S EXIT=$S('$D(X):1,'$D(FLDNUM):1,X="":1,FLDNUM'>0:1,1:0)
|
|
Q
|