- 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 ;;###
