|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
523 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PRSDXREF ;HISC/GWB-SET AND KILL CROSS REFERENCES ;6/13/92 09:15
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | KILL ;Kill existing cross reference
|
|---|
| 4 | D CHECK G:EXIT EXIT S XSAV=X
|
|---|
| 5 | 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)
|
|---|
| 6 | G EXIT
|
|---|
| 7 | SET ;Set new cross reference
|
|---|
| 8 | D CHECK G:EXIT EXIT S XSAV=X
|
|---|
| 9 | 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)
|
|---|
| 10 | EXIT K EXIT,XREF,XSAV
|
|---|
| 11 | Q
|
|---|
| 12 | CHECK S EXIT=$S('$D(X):1,'$D(FLDNUM):1,X="":1,FLDNUM'>0:1,1:0)
|
|---|
| 13 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
