| [641] | 1 | XBTM3 ; IHS/ADC/GTH - TECH MANUAL : SECURITY KEYS ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | NEW A,B,C
|
|---|
| 5 | F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
|
|---|
| 6 | Q:$D(DUOUT)
|
|---|
| 7 | D ^DIWW
|
|---|
| 8 | F A="XAz","ZIBz" D SK(A) Q:$D(DUOUT)
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | SK(A) ; Print info on security keys for namespace A.
|
|---|
| 12 | F S A=$O(^DIC(19.1,"B",A)) Q:'($E(A,1,4)="XB") S B=$O(^(A,0)) D
|
|---|
| 13 | . S DIWF="WN"
|
|---|
| 14 | . D PR("|_|"_$P(^DIC(19.1,B,0),U)_"|_|")
|
|---|
| 15 | . Q:$D(DUOUT)
|
|---|
| 16 | . I '$O(^DIC(19,"AOL",A,0)) D PR(" --> KEY NOT USED <--") I 1
|
|---|
| 17 | . E S C=0 F S C=$O(^DIC(19,"AOL",A,C)) Q:'C D PR("Locks "_$P(^DIC(19,C,0),U)_", '"_$P(^DIC(19,C,0),U,2)_"'.")
|
|---|
| 18 | . Q:$D(DUOUT)
|
|---|
| 19 | . S DIWF="W"
|
|---|
| 20 | . D PR("DESCRIPTION: ")
|
|---|
| 21 | . Q:$D(DUOUT)
|
|---|
| 22 | . S C=0
|
|---|
| 23 | . F S C=$O(^DIC(19.1,B,1,C)) Q:'C D PR(^(C,0))
|
|---|
| 24 | . Q:$D(DUOUT)
|
|---|
| 25 | . D ^DIWW
|
|---|
| 26 | . W !
|
|---|
| 27 | .Q
|
|---|
| 28 | D ^DIWW
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | PR(X) NEW A,B,C D PR^XBTM(X) Q
|
|---|
| 32 | ;;|SETTAB("C")||TAB|
|
|---|
| 33 | ;;|SETTAB("C")||TAB|
|
|---|
| 34 | ;;###
|
|---|
