DDMOD ;SFISC/MKO-DD MODIFICATION APIS ;1:45 PM 11 Dec 2001
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
DELIX(DIFIL,DIFLD,DIXR,DIFLG,DIKDOUT,DIKDMSG) ;Delete traditional xref
DELIXN(DIFIL,DIXR,DIFLG,DIKDOUT,DIKDMSG) ;Delete new-style index
CREIXN(DIKCXREF,DIFLG,DIXR,DIKCOUT,DIKCMSG) ;Create new-style index
FILESEC(DIFIL,DISEC,DIMSGA) ;Set File Security Codes
; DIFIL = File Number
; .DISEC = Is the array for each security node
; DIMSGA = If passed where the error message is placed
I (('$D(^DIC(+$G(DIFIL),0))#2)!(+$G(DIFIL)<2)) D Q
. D CLEAN^DILF
. I $G(DIMSGA)'="" D BLD^DIALOG(401,+$G(DIFIL),,DIMSGA,"F") Q
. D BLD^DIALOG(401,+$G(DIFIL))
I '$D(DISEC) Q
; DIC(DIFIL,0,"DD") 'Data Dictionary' Security
; DIC(DIFIL,0,"RD") 'Read' Security
; DIC(DIFIL,0,"WR") 'Write' Security
; DIC(DIFIL,0,"DEL") 'Delete' Security
; DIC(DIFIL,0,"LAYGO") 'Laygo' Security
; DIC(DIFIL,0,"AUDIT") 'Audit Security
F I="DD","RD","WR","DEL","LAYGO","AUDIT" I $D(DISEC(I))#2 S ^DIC(DIFIL,0,I)=DISEC(I)