| 1 | XUFILE3 ;SF-ISC/STAFF - FILE ACCESS CONTROL FOR KERNEL V8 ;07/26/94 16:24
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | DISABLE ;Disable access
|
|---|
| 5 | S U="^" K DIC,DIE,DR
|
|---|
| 6 | Q:$D(^VA(200,"AFOF"))
|
|---|
| 7 | S ^DD(200,32,9)="^"
|
|---|
| 8 | S XU1="XUFI"
|
|---|
| 9 | F S XU1=$O(^DIC(19,"B",XU1)) Q:XU1'["XUFI" F DA=0:0 S DA=$O(^DIC(19,"B",XU1,DA)) Q:DA'>0 S DR="2///ACCESS DISABLED",DIE="^DIC(19," D ^DIE
|
|---|
| 10 | S XU1="XUFI" K DR
|
|---|
| 11 | F S XU1=$O(^DIE("B",XU1)) Q:XU1'["XUFI" F DA=0:0 S DA=$O(^DIE("B",XU1,DA)) Q:DA'>0 I $P(^DIE(DA,0),U,4)=200 S DR=".01///*"_$P(^(0),U),DIE="^DIE(" D ^DIE
|
|---|
| 12 | K DR,DIE
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | ENABLE ;Enable access
|
|---|
| 16 | S U="^",^DD(200,32,9)="#"
|
|---|
| 17 | S XU1="XUFI" K DR
|
|---|
| 18 | F S XU1=$O(^DIC(19,"B",XU1)) Q:XU1'["XUFI" F DA=0:0 S DA=$O(^DIC(19,"B",XU1,DA)) Q:DA'>0 S DR="2///@",DIE="^DIC(19," D ^DIE
|
|---|
| 19 | S XU1="*XUFI" K DR
|
|---|
| 20 | F S XU1=$O(^DIE("B",XU1)) Q:XU1'["*XUFI" F DA=0:0 S DA=$O(^DIE("B",XU1,DA)) Q:DA'>0 S DR=".01///"_$E($P(^DIE(DA,0),U),2,999),DIE="^DIE(" D ^DIE
|
|---|
| 21 | K DR,DIE
|
|---|
| 22 | Q
|
|---|
