ONCOU0 ; WISC/MLH - UTILITIES for File 160 (ONCOLOGY PATIENT) ;6/25/93 09:51
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
RXFU ; reindex FOLLOW-UP (#400)
N DA S DA(1)=0
W:'$D(ZTQUEUED) !!,"Re-indexing FOLLOW-UP"
FOR S DA(1)=$O(^ONCO(160,DA(1))) Q:'DA(1) D
. N DIK
. I '$D(ZTQUEUED) W:$R(100)=0 "."
. K ^ONCO(160,DA(1),"AA"),^("B"),DIK
. S DIK="^ONCO(160,"_DA(1)_",""F"",",DIK(1)=.01
. F DIK(1)=.01,1 D ENALL^DIK
. Q
;END FOR
;
W:'$D(ZTQUEUED) !,"Done!",!! Q
;
INAUTPSY ; initialize AUTOPSY (#22.9) to 1 if performed
N PI S PI=0 W:'$D(ZTQUEUED) !!,"Initializing AUTOPSY" F S PI=$O(^ONCO(160,PI)) Q:'PI L +^ONCO(160,PI):3 S:$P($G(^ONCO(160,PI,1)),U,9) $P(^(1),U,13)=1 L -^ONCO(160,PI):3 I '$D(ZTQUEUED) W:$R(100)=0 "."
W:'$D(ZTQUEUED) !,"Done!",!! Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOU0 797 printed Nov 22, 2024@17:36:07 Page 2
ONCOU0 ; WISC/MLH - UTILITIES for File 160 (ONCOLOGY PATIENT) ;6/25/93 09:51
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
RXFU ; reindex FOLLOW-UP (#400)
+1 NEW DA
SET DA(1)=0
+2 if '$DATA(ZTQUEUED)
WRITE !!,"Re-indexing FOLLOW-UP"
+3 FOR
SET DA(1)=$ORDER(^ONCO(160,DA(1)))
if 'DA(1)
QUIT
Begin DoDot:1
+4 NEW DIK
+5 IF '$DATA(ZTQUEUED)
if $RANDOM(100)=0
WRITE "."
+6 KILL ^ONCO(160,DA(1),"AA"),^("B"),DIK
+7 SET DIK="^ONCO(160,"_DA(1)_",""F"","
SET DIK(1)=.01
+8 FOR DIK(1)=.01,1
DO ENALL^DIK
+9 QUIT
End DoDot:1
+10 ;END FOR
+11 ;
+12 if '$DATA(ZTQUEUED)
WRITE !,"Done!",!!
QUIT
+13 ;
INAUTPSY ; initialize AUTOPSY (#22.9) to 1 if performed
+1 NEW PI
SET PI=0
if '$DATA(ZTQUEUED)
WRITE !!,"Initializing AUTOPSY"
FOR
SET PI=$ORDER(^ONCO(160,PI))
if 'PI
QUIT
LOCK +^ONCO(160,PI):3
if $PIECE($GET(^ONCO(160,PI,1)),U,9)
SET $PIECE(^(1),U,13)=1
LOCK -^ONCO(160,PI):3
IF '$DATA(ZTQUEUED)
if $RANDOM(100)=0
WRITE "."
+2 if '$DATA(ZTQUEUED)
WRITE !,"Done!",!!
QUIT
