Last change
on this file since 784 was 642, checked in by Sam Habiel, 15 years ago |
Modified directory structure; moved routines.
|
File size:
702 bytes
|
Line | |
---|
1 | XBSAUD ; IHS/ADC/GTH - SET AUDIT AT FILE LEVEL ; [ 02/07/97 3:02 PM ]
|
---|
2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
---|
3 | ;
|
---|
4 | ; This routine sets 'audit' on at the file level for
|
---|
5 | ; selected files
|
---|
6 | ;
|
---|
7 | START ;
|
---|
8 | W !!,"^XBSAUD - This routine sets 'audit' at the file level."
|
---|
9 | D ^XBDSET
|
---|
10 | Q:'$D(^UTILITY("XBDSET",$J))
|
---|
11 | NEW F,G,P
|
---|
12 | S Y=$$DIR^XBDIR("S^1:ON;2:OFF","Set 'audit' ON or OFF?","ON")
|
---|
13 | Q:$D(DUOUT)!$D(DTOUT)
|
---|
14 | S Y=Y-1
|
---|
15 | W !
|
---|
16 | F F=0:0 S F=$O(^UTILITY("XBDSET",$J,F)) Q:F'=+F D
|
---|
17 | . S G=^DIC(F,0,"GL")
|
---|
18 | . S P=$P(@(G_"0)"),"^",2)
|
---|
19 | . I Y S P=$P(P,"a",1)_$P(P,"a",2) I 1
|
---|
20 | . E S P=P_$S(P'["a":"a",1:"")
|
---|
21 | . S $P(@(G_"0)"),"^",2)=P
|
---|
22 | . W !,F," set ",$S(Y:"off",1:"on")
|
---|
23 | .Q
|
---|
24 | D EOJ
|
---|
25 | Q
|
---|
26 | ;
|
---|
27 | EOJ ;
|
---|
28 | KILL X,Y,^UTILITY("XBDSET",$J)
|
---|
29 | Q
|
---|
30 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.