source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOCRA.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 587 bytes
Line 
1ONCOCRA ;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
6SLC ;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 ;
9KLC ;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
11EX ;EXIT
12 K XD0,LA,LC Q
Note: See TracBrowser for help on using the repository browser.