| [613] | 1 | DIAC ;SFISC/YJK-FILE ACCESS CHECK ;3/18/99 12:59
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN Q:'$D(DIAC)!'$D(DIFILE)
|
|---|
| 6 | I '$D(^DIC(DIFILE,0))#2 S (DIAC,%)=0 Q
|
|---|
| 7 | I DUZ(0)="@" S (DIAC,%)=1 Q
|
|---|
| 8 | S A1=$S(DIAC="DD":2,DIAC="DEL":3,DIAC="LAYGO":4,DIAC="RD":5,DIAC="WR":6,DIAC="AUDIT":7,1:0) D:A1 CK
|
|---|
| 9 | K A1 S %=DIAC Q
|
|---|
| 10 | ;
|
|---|
| 11 | CK I $S($D(^VA(200,"AFOF")):1,1:$D(^DIC(3,"AFOF"))) D FOF Q
|
|---|
| 12 | I '$D(^DIC(DIFILE,0,DIAC)) S DIAC=1 Q
|
|---|
| 13 | S %=^(DIAC) I %="" S DIAC=1 Q
|
|---|
| 14 | F A1=1:1:$L(%) I DUZ(0)[$E(%,A1) S DIAC=1 Q
|
|---|
| 15 | I 'DIAC S DIAC=0
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | FOF S DIAC=0 I $S($D(^VA(200,DUZ,"FOF",DIFILE,0)):1,1:$D(^DIC(3,DUZ,"FOF",DIFILE,0))),$P(^(0),U,A1) S DIAC=1
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | ;;
|
|---|
