source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDMOD.m@ 1042

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DDMOD ;SFISC/MKO-DD MODIFICATION APIS ;1:45 PM 11 Dec 2001
2 ;;22.0;VA FileMan;**12,53,95**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5DELIX(DIFIL,DIFLD,DIXR,DIFLG,DIKDOUT,DIKDMSG) ;Delete traditional xref
6 G DELIXX^DIKD
7 ;
8DELIXN(DIFIL,DIXR,DIFLG,DIKDOUT,DIKDMSG) ;Delete new-style index
9 G DELIXNX^DIKD2
10 ;
11CREIXN(DIKCXREF,DIFLG,DIXR,DIKCOUT,DIKCMSG) ;Create new-style index
12 G CREIXNX^DIKCR
13 ;
14FILESEC(DIFIL,DISEC,DIMSGA) ;Set File Security Codes
15 ; DIFIL = File Number
16 ; .DISEC = Is the array for each security node
17 ; DIMSGA = If passed where the error message is placed
18 I (('$D(^DIC(+$G(DIFIL),0))#2)!(+$G(DIFIL)<2)) D Q
19 . D CLEAN^DILF
20 . I $G(DIMSGA)'="" D BLD^DIALOG(401,+$G(DIFIL),,DIMSGA,"F") Q
21 . D BLD^DIALOG(401,+$G(DIFIL))
22 I '$D(DISEC) Q
23 N I
24 ; DIC(DIFIL,0,"DD") 'Data Dictionary' Security
25 ; DIC(DIFIL,0,"RD") 'Read' Security
26 ; DIC(DIFIL,0,"WR") 'Write' Security
27 ; DIC(DIFIL,0,"DEL") 'Delete' Security
28 ; DIC(DIFIL,0,"LAYGO") 'Laygo' Security
29 ; DIC(DIFIL,0,"AUDIT") 'Audit Security
30 F I="DD","RD","WR","DEL","LAYGO","AUDIT" I $D(DISEC(I))#2 S ^DIC(DIFIL,0,I)=DISEC(I)
31 Q
Note: See TracBrowser for help on using the repository browser.