|
Last change
on this file since 1306 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
561 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | ECDEAL1 ;BIR/MAM,JPW-DeAllocate all Units for a User ;6 May 96
|
|---|
| 2 | ;;2.0; EVENT CAPTURE ;**13**;8 May 96
|
|---|
| 3 | USER ; 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.
