| [613] | 1 | DDMOD ;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 | ;
|
|---|
| 5 | DELIX(DIFIL,DIFLD,DIXR,DIFLG,DIKDOUT,DIKDMSG) ;Delete traditional xref
|
|---|
| 6 | G DELIXX^DIKD
|
|---|
| 7 | ;
|
|---|
| 8 | DELIXN(DIFIL,DIXR,DIFLG,DIKDOUT,DIKDMSG) ;Delete new-style index
|
|---|
| 9 | G DELIXNX^DIKD2
|
|---|
| 10 | ;
|
|---|
| 11 | CREIXN(DIKCXREF,DIFLG,DIXR,DIKCOUT,DIKCMSG) ;Create new-style index
|
|---|
| 12 | G CREIXNX^DIKCR
|
|---|
| 13 | ;
|
|---|
| 14 | FILESEC(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
|
|---|
