source: IHS-VA_UTILITIES-XB/trunk/XBSAUD.m@ 973

Last change on this file since 973 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 702 bytes
Line 
1XBSAUD ; 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 ;
7START ;
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 ;
27EOJ ;
28 KILL X,Y,^UTILITY("XBDSET",$J)
29 Q
30 ;
Note: See TracBrowser for help on using the repository browser.