| [641] | 1 | XBTM4 ; IHS/ADC/GTH - TECH MANUAL : OPTIONS ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | NEW A,B,C,T,XB
|
|---|
| 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 | S T=$P(^DD(19,4,0),U,3)
|
|---|
| 9 | F %=1:1 Q:'$L($P(T,";",%)) S T($P($P(T,";",%),":"))=$P($P(T,";",%),":",2)
|
|---|
| 10 | S XB="XB"
|
|---|
| 11 | D OP("XAz")
|
|---|
| 12 | S XB="ZIB"
|
|---|
| 13 | D OP("ZIAz")
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | OP(A) ; Print info on options in namespace A.
|
|---|
| 17 | F S A=$O(^DIC(19,"B",A)) Q:'($E(A,1,$L(XB))=XB) S B=$O(^(A,0)) D
|
|---|
| 18 | . D PR("|_|"_$P(^DIC(19,B,0),U)_"|_|"_$S('$D(^DIC(19,"AD",B)):" ** no parents **",1:"")),^DIWW
|
|---|
| 19 | . Q:$D(DUOUT)
|
|---|
| 20 | . D PR("TYPE: "_T($P(^DIC(19,B,0),U,4))),^DIWW
|
|---|
| 21 | . Q:$D(DUOUT)
|
|---|
| 22 | . D PR("TEXT: "_$P(^DIC(19,B,0),U,2)),^DIWW
|
|---|
| 23 | . Q:$D(DUOUT)
|
|---|
| 24 | . I $L($P(^DIC(19,B,0),U,6)) D PR("LOCK: "_$P(^(0),U,6)),^DIWW
|
|---|
| 25 | . I $L($G(^DIC(19,B,20))) D PR("ENTRY ACTION: "_^DIC(19,B,20)),^DIWW
|
|---|
| 26 | . I $L($G(^DIC(19,B,15))) D PR("EXIT ACTION : "_^DIC(19,B,15)),^DIWW
|
|---|
| 27 | . D PR("DESCRIPTION : ")
|
|---|
| 28 | . Q:$D(DUOUT)
|
|---|
| 29 | . S C=0
|
|---|
| 30 | . F S C=$O(^DIC(19,B,1,C)) Q:'C D PR(^(C,0)) Q:$D(DUOUT)
|
|---|
| 31 | . Q:$D(DUOUT)
|
|---|
| 32 | . D ^DIWW
|
|---|
| 33 | . F C=30:1:36,50,51,60:1:69,69.1:.1:69.3,71:1:73,79:1:82 I $L($G(^DIC(19,B,C))) D PR($P(^DD(19,C,0),U)_": "_^DIC(19,B,C)),^DIWW Q:$D(DUOUT)
|
|---|
| 34 | . Q:$D(DUOUT)
|
|---|
| 35 | . W !
|
|---|
| 36 | .Q
|
|---|
| 37 | Q:$D(DUOUT)
|
|---|
| 38 | D ^DIWW
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | PR(X) NEW A,B,C,T,XB D PR^XBTM(X) Q
|
|---|
| 42 | ;;There are no options distributed with the package.
|
|---|
| 43 | ;;|SETTAB("C")||TAB|
|
|---|
| 44 | ;;There is one option associated with the Remote Patch
|
|---|
| 45 | ;;Installer (ZIBRPI), which is used to schedule the task.
|
|---|
| 46 | ;;That option is installed by ZIBRPI when the local facility
|
|---|
| 47 | ;;installs it.
|
|---|
| 48 | ;;|SETTAB("C")||TAB|
|
|---|
| 49 | ;;If you have Remote Error Reporting (ZIBRER) installed, there
|
|---|
| 50 | ;;will be options in that namespace.
|
|---|
| 51 | ;;|SETTAB("C")||TAB|
|
|---|
| 52 | ;;Any other XB or ZIB listed option
|
|---|
| 53 | ;;will have been created on your local machine.
|
|---|
| 54 | ;;|SETTAB("C")||TAB|
|
|---|
| 55 | ;;|SETTAB("C")||TAB|
|
|---|
| 56 | ;;###
|
|---|
