| 1 | XUFILE1 ;SF/XAK - ASSIGN & DELETE FILE ACCESS ;1/25/93 11:42 ;12/2/91 1:17 PM
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | DELF ;
|
|---|
| 4 | S DIC=$S(DUZ(0)="@":"^DIC(",1:"^VA(200,DUZ,""FOF"","),DIC(0)="QEAM"
|
|---|
| 5 | S DIC("A")="Select FILE to delete all access from: " D ^DIC G KIL:Y<0 K DIC
|
|---|
| 6 | DF S %=2 W !,"Are you sure you want to delete all access to the "_$P(Y,U,2)_" file"
|
|---|
| 7 | D YN^DICN G KIL:%<0!(%=2)
|
|---|
| 8 | I '% W !!?5,"Answer YES to delete all access, or NO to leave things as they are.",! G DF
|
|---|
| 9 | S ZTRTN="DQ^XUFILE1",ZTSAVE("XUW")=+Y
|
|---|
| 10 | S ZTDESC="Delete all Access to the "_$P(Y,U,2)_" file.",ZTIO="",ZTDTH=$H
|
|---|
| 11 | D ^%ZTLOAD W !,"Request Queued" G KIL
|
|---|
| 12 | DQ F DA(1)=0:0 S DA(1)=$O(^VA(200,"AFOF",XUW,DA(1))) Q:DA(1)'>0 S DA=XUW,DIK="^VA(200,"_DA(1)_",""FOF""," D ^DIK
|
|---|
| 13 | G KIL
|
|---|
| 14 | DELI ;
|
|---|
| 15 | S DIC("A")="Select USER whose Access you want to remove: "
|
|---|
| 16 | S DIC("S")="I $O(^VA(200,Y,""FOF"",0))>0"
|
|---|
| 17 | S DIC=200,DIC(0)="QEAM" D ^DIC G KIL:Y<0 S DA(1)=+Y K DIC
|
|---|
| 18 | D1 S %=2 W !,"Are you sure you want to remove all of "_$P(Y,U,2)_"'s access"
|
|---|
| 19 | D YN^DICN G KIL:%<0!(%=2)
|
|---|
| 20 | I '% W !!?5,"Answer YES to delete all access, or NO to leave things as they are.",! G D1
|
|---|
| 21 | S ZTRTN="D2^XUFILE1",ZTSAVE("DA(")=""
|
|---|
| 22 | S ZTDESC="Delete all Access to Files for one user",ZTIO="",ZTDTH=$H
|
|---|
| 23 | D ^%ZTLOAD W !,"Request Queued" G KIL
|
|---|
| 24 | D2 S DIK="^VA(200,"_DA(1)_",""FOF"","
|
|---|
| 25 | F DA=0:0 S DA=$O(^VA(200,DA(1),"FOF",DA)) Q:DA'>0 D ^DIK
|
|---|
| 26 | KIL G KIL^XUFILE
|
|---|
| 27 | ;
|
|---|
| 28 | ACC D L^DICRW1 Q:X'>0!($D(DTOUT)) S L=0,BY="[XUFILE BY FILE NUMBER]",FR=X,TO=DIB(1),FLDS="[XUFILE ACCESS ABBREVIATED]",DIC="^VA(200," K DIB D EN1^DIP G KIL
|
|---|
