20 lines
768 B
Mathematica
20 lines
768 B
Mathematica
ONCOU0 ; WISC/MLH - UTILITIES for File 160 (ONCOLOGY PATIENT) ;6/25/93 09:51
|
|
;;2.11;ONCOLOGY;**24**;Mar 07, 1995
|
|
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) S:$P($G(^ONCO(160,PI,1)),U,9) $P(^(1),U,13)=1 L -^ONCO(160,PI) I '$D(ZTQUEUED) W:$R(100)=0 "."
|
|
W:'$D(ZTQUEUED) !,"Done!",!! Q
|