XBTM4 ; IHS/ADC/GTH - TECH MANUAL : OPTIONS ; [ 02/07/97 3:02 PM ]
;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
;
NEW A,B,C,T,XB
F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
Q:$D(DUOUT)
D ^DIWW
S T=$P(^DD(19,4,0),U,3)
F %=1:1 Q:'$L($P(T,";",%)) S T($P($P(T,";",%),":"))=$P($P(T,";",%),":",2)
S XB="XB"
D OP("XAz")
S XB="ZIB"
D OP("ZIAz")
Q
;
OP(A) ; Print info on options in namespace A.
F S A=$O(^DIC(19,"B",A)) Q:'($E(A,1,$L(XB))=XB) S B=$O(^(A,0)) D
. D PR("|_|"_$P(^DIC(19,B,0),U)_"|_|"_$S('$D(^DIC(19,"AD",B)):" ** no parents **",1:"")),^DIWW
. Q:$D(DUOUT)
. D PR("TYPE: "_T($P(^DIC(19,B,0),U,4))),^DIWW
. Q:$D(DUOUT)
. D PR("TEXT: "_$P(^DIC(19,B,0),U,2)),^DIWW
. Q:$D(DUOUT)
. I $L($P(^DIC(19,B,0),U,6)) D PR("LOCK: "_$P(^(0),U,6)),^DIWW
. I $L($G(^DIC(19,B,20))) D PR("ENTRY ACTION: "_^DIC(19,B,20)),^DIWW
. I $L($G(^DIC(19,B,15))) D PR("EXIT ACTION : "_^DIC(19,B,15)),^DIWW
. D PR("DESCRIPTION : ")
. Q:$D(DUOUT)
. S C=0
. F S C=$O(^DIC(19,B,1,C)) Q:'C D PR(^(C,0)) Q:$D(DUOUT)
. Q:$D(DUOUT)
. D ^DIWW
. 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)
. Q:$D(DUOUT)
. W !
.Q
Q:$D(DUOUT)
D ^DIWW
Q
;
PR(X) NEW A,B,C,T,XB D PR^XBTM(X) Q
;;There are no options distributed with the package.
;;|SETTAB("C")||TAB|
;;There is one option associated with the Remote Patch
;;Installer (ZIBRPI), which is used to schedule the task.
;;That option is installed by ZIBRPI when the local facility
;;installs it.
;;|SETTAB("C")||TAB|
;;If you have Remote Error Reporting (ZIBRER) installed, there
;;will be options in that namespace.
;;|SETTAB("C")||TAB|
;;Any other XB or ZIB listed option
;;will have been created on your local machine.
;;|SETTAB("C")||TAB|
;;|SETTAB("C")||TAB|
;;###
XBTM4 ; IHS/ADC/GTH - TECH MANUAL : OPTIONS ; [ 02/07/97 3:02 PM ]
+1 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
+2 ;
+3 NEW A,B,C,T,XB
+4 FOR A=1:1
SET X=$PIECE($TEXT(PR+A),";;",2)
IF X="###"
QUIT
DO PR(X)
IF $DATA(DUOUT)
QUIT
+5 IF $DATA(DUOUT)
QUIT
+6 DO ^DIWW
+7 SET T=$PIECE(^DD(19,4,0),U,3)
+8 FOR %=1:1
IF '$LENGTH($PIECE(T,";",%))
QUIT
SET T($PIECE($PIECE(T,";",%),":"))=$PIECE($PIECE(T,";",%),":",2)
+9 SET XB="XB"
+10 DO OP("XAz")
+11 SET XB="ZIB"
+12 DO OP("ZIAz")
+13 QUIT
+14 ;
OP(A) ; Print info on options in namespace A.
+1 FOR
SET A=$ORDER(^DIC(19,"B",A))
IF '($EXTRACT(A,1,$LENGTH(XB))=XB)
QUIT
SET B=$ORDER(^(A,0))
Begin DoDot:1
+2 DO PR("|_|"_$PIECE(^DIC(19,B,0),U)_"|_|"_$SELECT('$DATA(^DIC(19,"AD",B)):" ** no parents **",1:""))
DO ^DIWW
+3 IF $DATA(DUOUT)
QUIT
+4 DO PR("TYPE: "_T($PIECE(^DIC(19,B,0),U,4)))
DO ^DIWW
+5 IF $DATA(DUOUT)
QUIT
+6 DO PR("TEXT: "_$PIECE(^DIC(19,B,0),U,2))
DO ^DIWW
+7 IF $DATA(DUOUT)
QUIT
+8 IF $LENGTH($PIECE(^DIC(19,B,0),U,6))
DO PR("LOCK: "_$PIECE(^(0),U,6))
DO ^DIWW
+9 IF $LENGTH($GET(^DIC(19,B,20)))
DO PR("ENTRY ACTION: "_^DIC(19,B,20))
DO ^DIWW
+10 IF $LENGTH($GET(^DIC(19,B,15)))
DO PR("EXIT ACTION : "_^DIC(19,B,15))
DO ^DIWW
+11 DO PR("DESCRIPTION : ")
+12 IF $DATA(DUOUT)
QUIT
+13 SET C=0
+14 FOR
SET C=$ORDER(^DIC(19,B,1,C))
IF 'C
QUIT
DO PR(^(C,0))
IF $DATA(DUOUT)
QUIT
+15 IF $DATA(DUOUT)
QUIT
+16 DO ^DIWW
+17 FOR C=30:1:36,50,51,60:1:69,69.1:.1:69.3,71:1:73,79:1:82
IF $LENGTH($GET(^DIC(19,B,C)))
DO PR($PIECE(^DD(19,C,0),U)_": "_^DIC(19,B,C))
DO ^DIWW
IF $DATA(DUOUT)
QUIT
+18 IF $DATA(DUOUT)
QUIT
+19 WRITE !
+20 QUIT
End DoDot:1
+21 IF $DATA(DUOUT)
QUIT
+22 DO ^DIWW
+23 QUIT
+24 ;
PR(X) NEW A,B,C,T,XB
DO PR^XBTM(X)
QUIT
+1 ;;There are no options distributed with the package.
+2 ;;|SETTAB("C")||TAB|
+3 ;;There is one option associated with the Remote Patch
+4 ;;Installer (ZIBRPI), which is used to schedule the task.
+5 ;;That option is installed by ZIBRPI when the local facility
+6 ;;installs it.
+7 ;;|SETTAB("C")||TAB|
+8 ;;If you have Remote Error Reporting (ZIBRER) installed, there
+9 ;;will be options in that namespace.
+10 ;;|SETTAB("C")||TAB|
+11 ;;Any other XB or ZIB listed option
+12 ;;will have been created on your local machine.
+13 ;;|SETTAB("C")||TAB|
+14 ;;|SETTAB("C")||TAB|
+15 ;;###
