ECDEAL1 ;BIR/MAM,JPW-DeAllocate all Units for a User ;6 May 96
;;2.0; EVENT CAPTURE ;**13**;8 May 96
USER ; get user
W @IOF,!! K DIC S DIC=200,DIC("S")="I $D(^VA(200,Y,""EC"")),+$O(^VA(200,Y,""EC"",0))",DIC(0)="QEAMZ",DIC("A")="Remove Access to DSS Units for which User ? " D ^DIC K DIC I Y<0 S ECOUT=1 Q
S ECU=+Y,ECUN=$P(Y(0),"^")
W !!,"Removing access to all DSS Units for "_ECUN_"..."
S DA(1)=ECU,DA=0 F I=0:0 S DA=$O(^VA(200,DA(1),"EC",DA)) Q:'DA S DIK="^VA(200,"_DA(1)_",""EC""," D ^DIK
K DA,DIK
W !!,"Press <RET> to continue " R X:DTIME
G USER
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECDEAL1 571 printed Oct 16, 2024@17:57:46 Page 2
ECDEAL1 ;BIR/MAM,JPW-DeAllocate all Units for a User ;6 May 96
+1 ;;2.0; EVENT CAPTURE ;**13**;8 May 96
USER ; get user
+1 WRITE @IOF,!!
KILL DIC
SET DIC=200
SET DIC("S")="I $D(^VA(200,Y,""EC"")),+$O(^VA(200,Y,""EC"",0))"
SET DIC(0)="QEAMZ"
SET DIC("A")="Remove Access to DSS Units for which User ? "
DO ^DIC
KILL DIC
IF Y<0
SET ECOUT=1
QUIT
+2 SET ECU=+Y
SET ECUN=$PIECE(Y(0),"^")
+3 WRITE !!,"Removing access to all DSS Units for "_ECUN_"..."
+4 SET DA(1)=ECU
SET DA=0
FOR I=0:0
SET DA=$ORDER(^VA(200,DA(1),"EC",DA))
if 'DA
QUIT
SET DIK="^VA(200,"_DA(1)_",""EC"","
DO ^DIK
+5 KILL DA,DIK
+6 WRITE !!,"Press <RET> to continue "
READ X:DTIME
+7 GOTO USER
