ONCOCRA ;Hines OIFO/RTK-CREATE/USE SPECIAL CROSS-REFERENCES ;05/30/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
Q ;NOT A RUN ROUTINE
;TRIGGER mumps cross references for Followup attempts
SLC ;SET LAST FOLLOWUP CONTACT
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
;
KLC ;KILL LAST FOLLOW-UP CONTACT
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
EX ;EXIT
K XD0,LA,LC Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOCRA 605 printed Nov 22, 2024@17:34:45 Page 2
ONCOCRA ;Hines OIFO/RTK-CREATE/USE SPECIAL CROSS-REFERENCES ;05/30/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 ;NOT A RUN ROUTINE
QUIT
+4 ;TRIGGER mumps cross references for Followup attempts
SLC ;SET LAST FOLLOWUP CONTACT
+1 if X=2!(X=9)
QUIT
SET XD0=$ORDER(^ONCO(160,DA(1),"A","AC",0))
if XD0=""
QUIT
SET XD0=$ORDER(^(XD0,0))
SET LA=^ONCO(160,DA(1),"A",XD0,0)
SET LC=$PIECE(LA,U,3)
SET $PIECE(^ONCO(160,DA(1),1),U,6)=LC
GOTO EX
+2 ;
KLC ;KILL LAST FOLLOW-UP CONTACT
+1 if X=2!(X=9)
QUIT
SET XD0=$ORDER(^ONCO(160,DA(1),"A","AC",0))
if XD0=""
QUIT
SET XD0=$ORDER(^(XD0,0))
SET XD0=$ORDER(^(XD0,0))
if DA'=XD0
QUIT
SET $PIECE(^ONCO(160,DA(1),1),U,6)=""
GOTO EX
EX ;EXIT
+1 KILL XD0,LA,LC
QUIT
