source: WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECDEAL1.m@ 1073

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

initial load of WorldVistAEHR

File size: 561 bytes
Line 
1ECDEAL1 ;BIR/MAM,JPW-DeAllocate all Units for a User ;6 May 96
2 ;;2.0; EVENT CAPTURE ;**13**;8 May 96
3USER ; get user
4 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
5 S ECU=+Y,ECUN=$P(Y(0),"^")
6 W !!,"Removing access to all DSS Units for "_ECUN_"..."
7 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
8 K DA,DIK
9 W !!,"Press <RET> to continue " R X:DTIME
10 G USER
Note: See TracBrowser for help on using the repository browser.