|
Last change
on this file since 631 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
587 bytes
|
| Line | |
|---|
| 1 | ONCOCRA ;Hines OIFO/RTK-CREATE/USE SPECIAL CROSS-REFERENCES ;05/30/00
|
|---|
| 2 | ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | Q ;NOT A RUN ROUTINE
|
|---|
| 5 | ;TRIGGER mumps cross references for Followup attempts
|
|---|
| 6 | SLC ;SET LAST FOLLOWUP CONTACT
|
|---|
| 7 | Q:X=2!(X=9) S XD0=$O(^ONCO(160,DA(1),"A","AC",0)) Q:XD0="" S XD0=$O(^(XD0,0)) S LA=^ONCO(160,DA(1),"A",XD0,0),LC=$P(LA,U,3),$P(^ONCO(160,DA(1),1),U,6)=LC G EX
|
|---|
| 8 | ;
|
|---|
| 9 | KLC ;KILL LAST FOLLOW-UP CONTACT
|
|---|
| 10 | Q:X=2!(X=9) S XD0=$O(^ONCO(160,DA(1),"A","AC",0)) Q:XD0="" S XD0=$O(^(XD0,0)),XD0=$O(^(XD0,0)) Q:DA'=XD0 S $P(^ONCO(160,DA(1),1),U,6)="" G EX
|
|---|
| 11 | EX ;EXIT
|
|---|
| 12 | K XD0,LA,LC Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
