source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIAC.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 689 bytes
Line 
1DIAC ;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 ;
5EN 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 ;
11CK 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 ;
18FOF 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 ;;
Note: See TracBrowser for help on using the repository browser.