|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 14 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
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.
