| [641] | 1 | XBSDDAUD ;IHS/SET/GTH - SET DICTIONARY AUDIT(S) ; [ 10/29/2002 7:42 AM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;IHS/SET/GTH XB*3*9 10/29/2002 New Routine.
|
|---|
| 4 | ; This routine allows you to toggle the dictionary (dd) audit
|
|---|
| 5 | ; flag for selected files. The global location for dictionary
|
|---|
| 6 | ; audit is: ^DD(FILE,0,"DDA")
|
|---|
| 7 | ; If the valuey is "Y", dd audit is on. Any other value, or the
|
|---|
| 8 | ; absence of the node, means dd audit is off.
|
|---|
| 9 | ;
|
|---|
| 10 | START ;
|
|---|
| 11 | W !!,"^XBSDDAUD - This routine toggles the data dictionary audit flag(s)."
|
|---|
| 12 | D ^XBDSET
|
|---|
| 13 | Q:'$D(^UTILITY("XBDSET",$J))
|
|---|
| 14 | D DEV
|
|---|
| 15 | Q:POP
|
|---|
| 16 | D DISP
|
|---|
| 17 | Q:'$$DIR^XBDIR("Y","Proceed to toggling dd audit for file(s)","N")
|
|---|
| 18 | D SET
|
|---|
| 19 | KILL X,Y,^UTILITY("XBDSET",$J)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | DISP ; Display current dd audit values for file(s).
|
|---|
| 23 | NEW F,G,P
|
|---|
| 24 | W !,"File #",?15,"File Name",?50,"Global",?65,"dd Audit On/Off"
|
|---|
| 25 | F F=0:0 S F=$O(^UTILITY("XBDSET",$J,F)) Q:F'=+F D
|
|---|
| 26 | . S G=$G(^DIC(F,0,"GL"))
|
|---|
| 27 | . S P=$G(^DD(F,0,"DDA"))
|
|---|
| 28 | . W !,F,?15,$$FNAME^XBFUNC(F),?50,G,?65,$S(P="Y":"on",1:"off")
|
|---|
| 29 | .Q
|
|---|
| 30 | ;
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | DEV ; Select device for report.
|
|---|
| 34 | W !
|
|---|
| 35 | S %=$$PB
|
|---|
| 36 | I %=U!$D(DTOUT)!$D(DUOUT) Q
|
|---|
| 37 | I %="B" D VIEWR^XBLM("DISP^XBSDDAUD"),EN^XBVK("VALM") Q
|
|---|
| 38 | D ^%ZIS
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | PB() ;
|
|---|
| 42 | Q $$DIR^XBDIR("SO^P:PRINT Output;B:BROWSE Output on Screen","Do you want to ","PRINT","","","",2)
|
|---|
| 43 | ;
|
|---|
| 44 | SET ; Set DDA for the file(s).
|
|---|
| 45 | NEW F,G,P,Y
|
|---|
| 46 | S Y=$$DIR^XBDIR("S^1:ON;2:OFF","Set 'dd audit' ON or OFF?","OFF")
|
|---|
| 47 | Q:$D(DUOUT)!$D(DTOUT)
|
|---|
| 48 | S Y=$S(Y=1:"Y",1:"")
|
|---|
| 49 | W !
|
|---|
| 50 | F F=0:0 S F=$O(^UTILITY("XBDSET",$J,F)) Q:F'=+F D
|
|---|
| 51 | . Q:'$D(^DD(F))
|
|---|
| 52 | . S ^DD(F,0,"DDA")=Y
|
|---|
| 53 | . W !,F," set ",$S(Y="Y":"on",1:"off")
|
|---|
| 54 | .Q
|
|---|
| 55 | ;
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
