source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUFILE3.m@ 1141

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

initial load of WorldVistAEHR

File size: 921 bytes
Line 
1XUFILE3 ;SF-ISC/STAFF - FILE ACCESS CONTROL FOR KERNEL V8 ;07/26/94 16:24
2 ;;8.0;KERNEL;;Jul 10, 1995
3 Q
4DISABLE ;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 ;
15ENABLE ;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
Note: See TracBrowser for help on using the repository browser.