XB1 ; IHS/ADC/GTH - XB MENUS AND DOCUMENTATION ; [ 12/29/2004 11:11 AM ]
;;3.0;IHS/VA UTILITIES;**8,9,10**;FEB 07, 1997
; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
;
; Each label represents a menu. The label must begin with
; "M" and be followed by 1 or more 1 digit numbers 1-9.
; Each digit represents the link # of the parent option.
; E.G. 'M1' is the label for submenu options for the main
; menu option with a link # of 1. 'M11' would be the label
; for subsubmenu options for the option in 'M1' with a link
; # of 1. Within a menu options are listed and selected
; positionally. The only purpose of the link # is to link
; options to their parent menu. Example:
;
; M1 ;;FILES/DICTIONARIES
; ;;Submenu example one;;1
; ;;Submenu example two;;2
; M11 ;;SUBMENU ONE
; ;;Submenu option;;^ROUTINEX
; M12 ;;SUBMENU TWO
; ;;Submenu option;;^ROUTINEY
;
; This label naming technique allows the menu tree to go
; to seven levels. No more than nine options on one menu
; may also be menus.
;
; For menu options the 2nd ";;" piece is the title, the 3rd
; ";;" piece must be a number if the option is a submenu, a
; valid routine or label^routine or executable code if the
; 3rd piece begins with a !. The code following the ! will
; be placed in a variable and the variable will be executed.
; A P in the 4th ";;" piece indicates pause after execution.
;
M ;;MAIN XB UTILITY MENU
;;Files/dictionaries;;1
;;Globals;;2
;;Routines;;3
;;Miscellaneous;;4
;;Developers;;5
;;Check ^XB options and patch level;;CHECK^XB;;P;;IHS/SET/GTH XB*3*9 10/29/2002
M1 ;;FILES/DICTIONARIES
;;List fields;;^XBFLD
;;List 0th nodes;;^XBLZRO;;P
;;Check regular xrefs;;^XBCFXREF;;P
;;Selective RE-INDEX;;^XBRXREF
;;Compare dictionary in two UCIs/Namespaces;;^XBFCMP;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Search for routines executed from dictionary;;^XBRSRCH
;;Fix 0th nodes;;^XBCFIX;;P
;;Count entries in file;;^XBCOUNT
;;FileMan;;P^DI
;;Delete dictionaries;;^XBKD
;;Clean dictionaries [caution];;^XBCDIC
;;List file attributes in various ways;;1;;IHS/SET/GTH XB*3*9 10/29/2002
;;Files Marked For Deletion;;!N L,DIC,BY,FLDS S L=0,DIC=1,(BY,FLDS)="[XB - FILES MARKED FOR DELETION]" D EN1^DIP;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Fields Marked For Deletion;;^XBLFMD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Print File IDs, Specifiers, and Conditionals;;^XBSIC;;P;;IHS/SET/GTH XB*3*9 10/29/2002
M11 ;;LIST FILE ATTRIBUTES IN VARIOUS WAYS;;IHS/SET/GTH XB*3*9 10/29/2002
;;List Files, inc. Number, Name, Global, opt Desc.;;^XBLFD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;List Fields for RIM Modeling;;^XBLFAM;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;List Fields for CodeSets (RTM) Modeling;;^XBLFSETS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
M2 ;;GLOBALS
;;List global;;!D LG^ZIBVSS
;;Directory of selected globals;;^ZIBGD;;P
;;Count unique values;;^XBCNODE
;;List high entry number;;^XBGLDFN;;P
;;Copy to another global in same UCI/Namespace;;^XBGC;;;;IHS/SET/GTH XB*3*9 10/29/2002
;;Copy global to another UCI/Namespace;;!D CG^ZIBVSS;;;;IHS/SET/GTH XB*3*9 10/29/2002
;;Search global for value;;!D GSE^ZIBVSS
;;Global edit;;!D GE^ZIBVSS
;;Change global value;;!D GCH^ZIBVSS
;;Global size/efficiency;;!D GSZE^ZIBVSS;;P
;;Global characteristics;;!D GCHR^ZIBVSS
;;Global delete;;!D GDEL^ZIBVSS
;;Global restore;;!D GR^ZIBVSS
;;Global save;;!D GS^ZIBVSS
;;Find control chrs in globals;;^ZIBGCHR
;;Compare Two Globals;;^XBGCMP
M3 ;;ROUTINES
;;List routines in various ways;;1
;;Compare routines in two UCIs/Namespaces;;!D RCMP^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Restore routines;;!D RR^ZIBVSS
;;Save routines;;!D RS^ZIBVSS
;;Routine size;;^XBRSIZ;;P
;;Delete routines;;!D RDEL^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Search routines for values (OR);;!D RSE^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Search routines for values (AND);;!D RSAND^ZIBVSS
;;Find routines by edit date;;!D NEWED^ZIBVSS;;P
;;Full screen editor;;!D REDIT^ZIBVSS
;;Routine change;;!D RCHANGE^ZIBVSS
;;Routine copy;;!D RCOPY^ZIBVSS
;;Directory of selected routines;;^ZIBRD;;P
;;Scan UCIs/Namespaces for routine;;^ZIBFR;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Run routine;;!R " Enter routine name: ",Y:30 Q:'$T S:Y'["^" Y="^"_Y S X=$P(Y,"^",2),X=$P(X,"(",1) X ^%ZOSF("TEST") W:'$T " huh? ",*7 I $T D @Y
M31 ;;LIST ROUTINES
;;List first one/two lines;;^%ZTP1;;P
;;List to first label;;^XBRPTL;;P
;;List routines;;!D RPRT^ZIBVSS;;P
;;List routines by edit date;;^XBRPRTBD
;;VA routine lister;;^%ZTPP;;P
;;List one routine with character counts;;^XBRLL;;P
;;%INDEX;;^%INDEX
;;Flow chart from entry point;;^XTFCE
;;Flow chart entire routine;;^XTFCR
;;List routines by patch number;;^XBPATSE;;P
M4 ;;MISCELLANEOUS
;;Error report;;!D ER^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;List ^UTILITY nodes for current job;;^XBLUTL;;P
;;Kill ^UTILITY nodes for current job;;^%ZIBCLU0
;;Cleanup utility globals in all UCIs;;EN^ZIBCLU
;;Cleanup utility globals in current UCI;;EN^%ZIBCLU0
;;Fix 'PT' nodes in all files;;^XBFIXPT
;;Convert non-DINUM data global to DINUM;;^XBDINUM
;;Check UCI routines against package file;;^ZIBCKPKG;;P
;;Display FileMan installation data;;^ZIBFMD;;P
;;Renamespace routines;;^ZIBRNSPC;;P
;;Number base changer;;^XTBASE
;;Print a Help Frame manual;;^XBHFMAN
;;List Local Variables, by Namespace;;MESSAGE^XBVL;;P
;;Print XB/ZIB Technical Manual;;^XBTM
;;Check Patient Globals;;^XBPATC;;P
M5 ;;DEVELOPERS
;;Generate ^DIR call;;^XBDR;;P
;;Standardize line 1 of routines;;^XBFIXL1
;;Set version line;;^XBVLINE
;;Set dictionary version numbers;;^XBDICV;;P
;;Set no delete;;^XBNODEL;;P
;;Set audit;;^XBSAUD;;P
;;Set authorities;;^XBSAUTH;;P
;;Analyze file for specifiers;;^XBCSPC
;;Delete namespaced OPTIONS, KEYS, etc.;;RUN^XBPKDEL;;P
;;List namespaced OPTIONS, KEYS, etc.;;LIST^XBPKDEL;;P
;;Build pre-init routine;;^XBBPI
;;Build integ routine;;^XBSUMBLD
;;List callable subroutines;;^XBLCALL;;P
;;Reset file data globals *** DANGER ***;;^XBFRESET
;;Edit FM print template headers;;^XBDH
;;List retired/replaced packages;;LIST^XBPKDEL1;;P;;XB*3*8
;;Delete retired/replaced packages;;DECERT^XBPKDEL1;;P;;XB*3*8
;;Edit File attribute for selected File(s);;^XBDDEDIT;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Move files into PACKAGE file FILE multiple;;^XBPKG;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Set dd audit;;^XBSDDAUD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;dd Field Numbering Conventions;;^XBFNC;;P;;IHS/SET/GTH XB*3*9 10/29/2002
;;Options and Security Keys;;^XBSECK;;P;;IHS/SET/GTH XB*3*9 10/29/2002
XB1 ; IHS/ADC/GTH - XB MENUS AND DOCUMENTATION ; [ 12/29/2004 11:11 AM ]
+1 ;;3.0;IHS/VA UTILITIES;**8,9,10**;FEB 07, 1997
+2 ; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
+3 ;
+4 ; Each label represents a menu. The label must begin with
+5 ; "M" and be followed by 1 or more 1 digit numbers 1-9.
+6 ; Each digit represents the link # of the parent option.
+7 ; E.G. 'M1' is the label for submenu options for the main
+8 ; menu option with a link # of 1. 'M11' would be the label
+9 ; for subsubmenu options for the option in 'M1' with a link
+10 ; # of 1. Within a menu options are listed and selected
+11 ; positionally. The only purpose of the link # is to link
+12 ; options to their parent menu. Example:
+13 ;
+14 ; M1 ;;FILES/DICTIONARIES
+15 ; ;;Submenu example one;;1
+16 ; ;;Submenu example two;;2
+17 ; M11 ;;SUBMENU ONE
+18 ; ;;Submenu option;;^ROUTINEX
+19 ; M12 ;;SUBMENU TWO
+20 ; ;;Submenu option;;^ROUTINEY
+21 ;
+22 ; This label naming technique allows the menu tree to go
+23 ; to seven levels. No more than nine options on one menu
+24 ; may also be menus.
+25 ;
+26 ; For menu options the 2nd ";;" piece is the title, the 3rd
+27 ; ";;" piece must be a number if the option is a submenu, a
+28 ; valid routine or label^routine or executable code if the
+29 ; 3rd piece begins with a !. The code following the ! will
+30 ; be placed in a variable and the variable will be executed.
+31 ; A P in the 4th ";;" piece indicates pause after execution.
+32 ;
M ;;MAIN XB UTILITY MENU
+1 ;;Files/dictionaries;;1
+2 ;;Globals;;2
+3 ;;Routines;;3
+4 ;;Miscellaneous;;4
+5 ;;Developers;;5
+6 ;;Check ^XB options and patch level;;CHECK^XB;;P;;IHS/SET/GTH XB*3*9 10/29/2002
M1 ;;FILES/DICTIONARIES
+1 ;;List fields;;^XBFLD
+2 ;;List 0th nodes;;^XBLZRO;;P
+3 ;;Check regular xrefs;;^XBCFXREF;;P
+4 ;;Selective RE-INDEX;;^XBRXREF
+5 ;;Compare dictionary in two UCIs/Namespaces;;^XBFCMP;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+6 ;;Search for routines executed from dictionary;;^XBRSRCH
+7 ;;Fix 0th nodes;;^XBCFIX;;P
+8 ;;Count entries in file;;^XBCOUNT
+9 ;;FileMan;;P^DI
+10 ;;Delete dictionaries;;^XBKD
+11 ;;Clean dictionaries [caution];;^XBCDIC
+12 ;;List file attributes in various ways;;1;;IHS/SET/GTH XB*3*9 10/29/2002
+13 ;;Files Marked For Deletion;;!N L,DIC,BY,FLDS S L=0,DIC=1,(BY,FLDS)="[XB - FILES MARKED FOR DELETION]" D EN1^DIP;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+14 ;;Fields Marked For Deletion;;^XBLFMD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+15 ;;Print File IDs, Specifiers, and Conditionals;;^XBSIC;;P;;IHS/SET/GTH XB*3*9 10/29/2002
M11 ;;LIST FILE ATTRIBUTES IN VARIOUS WAYS;;IHS/SET/GTH XB*3*9 10/29/2002
+1 ;;List Files, inc. Number, Name, Global, opt Desc.;;^XBLFD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+2 ;;List Fields for RIM Modeling;;^XBLFAM;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+3 ;;List Fields for CodeSets (RTM) Modeling;;^XBLFSETS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
M2 ;;GLOBALS
+1 ;;List global;;!D LG^ZIBVSS
+2 ;;Directory of selected globals;;^ZIBGD;;P
+3 ;;Count unique values;;^XBCNODE
+4 ;;List high entry number;;^XBGLDFN;;P
+5 ;;Copy to another global in same UCI/Namespace;;^XBGC;;;;IHS/SET/GTH XB*3*9 10/29/2002
+6 ;;Copy global to another UCI/Namespace;;!D CG^ZIBVSS;;;;IHS/SET/GTH XB*3*9 10/29/2002
+7 ;;Search global for value;;!D GSE^ZIBVSS
+8 ;;Global edit;;!D GE^ZIBVSS
+9 ;;Change global value;;!D GCH^ZIBVSS
+10 ;;Global size/efficiency;;!D GSZE^ZIBVSS;;P
+11 ;;Global characteristics;;!D GCHR^ZIBVSS
+12 ;;Global delete;;!D GDEL^ZIBVSS
+13 ;;Global restore;;!D GR^ZIBVSS
+14 ;;Global save;;!D GS^ZIBVSS
+15 ;;Find control chrs in globals;;^ZIBGCHR
+16 ;;Compare Two Globals;;^XBGCMP
M3 ;;ROUTINES
+1 ;;List routines in various ways;;1
+2 ;;Compare routines in two UCIs/Namespaces;;!D RCMP^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+3 ;;Restore routines;;!D RR^ZIBVSS
+4 ;;Save routines;;!D RS^ZIBVSS
+5 ;;Routine size;;^XBRSIZ;;P
+6 ;;Delete routines;;!D RDEL^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+7 ;;Search routines for values (OR);;!D RSE^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+8 ;;Search routines for values (AND);;!D RSAND^ZIBVSS
+9 ;;Find routines by edit date;;!D NEWED^ZIBVSS;;P
+10 ;;Full screen editor;;!D REDIT^ZIBVSS
+11 ;;Routine change;;!D RCHANGE^ZIBVSS
+12 ;;Routine copy;;!D RCOPY^ZIBVSS
+13 ;;Directory of selected routines;;^ZIBRD;;P
+14 ;;Scan UCIs/Namespaces for routine;;^ZIBFR;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+15 ;;Run routine;;!R " Enter routine name: ",Y:30 Q:'$T S:Y'["^" Y="^"_Y S X=$P(Y,"^",2),X=$P(X,"(",1) X ^%ZOSF("TEST") W:'$T " huh? ",*7 I $T D @Y
M31 ;;LIST ROUTINES
+1 ;;List first one/two lines;;^%ZTP1;;P
+2 ;;List to first label;;^XBRPTL;;P
+3 ;;List routines;;!D RPRT^ZIBVSS;;P
+4 ;;List routines by edit date;;^XBRPRTBD
+5 ;;VA routine lister;;^%ZTPP;;P
+6 ;;List one routine with character counts;;^XBRLL;;P
+7 ;;%INDEX;;^%INDEX
+8 ;;Flow chart from entry point;;^XTFCE
+9 ;;Flow chart entire routine;;^XTFCR
+10 ;;List routines by patch number;;^XBPATSE;;P
M4 ;;MISCELLANEOUS
+1 ;;Error report;;!D ER^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+2 ;;List ^UTILITY nodes for current job;;^XBLUTL;;P
+3 ;;Kill ^UTILITY nodes for current job;;^%ZIBCLU0
+4 ;;Cleanup utility globals in all UCIs;;EN^ZIBCLU
+5 ;;Cleanup utility globals in current UCI;;EN^%ZIBCLU0
+6 ;;Fix 'PT' nodes in all files;;^XBFIXPT
+7 ;;Convert non-DINUM data global to DINUM;;^XBDINUM
+8 ;;Check UCI routines against package file;;^ZIBCKPKG;;P
+9 ;;Display FileMan installation data;;^ZIBFMD;;P
+10 ;;Renamespace routines;;^ZIBRNSPC;;P
+11 ;;Number base changer;;^XTBASE
+12 ;;Print a Help Frame manual;;^XBHFMAN
+13 ;;List Local Variables, by Namespace;;MESSAGE^XBVL;;P
+14 ;;Print XB/ZIB Technical Manual;;^XBTM
+15 ;;Check Patient Globals;;^XBPATC;;P
M5 ;;DEVELOPERS
+1 ;;Generate ^DIR call;;^XBDR;;P
+2 ;;Standardize line 1 of routines;;^XBFIXL1
+3 ;;Set version line;;^XBVLINE
+4 ;;Set dictionary version numbers;;^XBDICV;;P
+5 ;;Set no delete;;^XBNODEL;;P
+6 ;;Set audit;;^XBSAUD;;P
+7 ;;Set authorities;;^XBSAUTH;;P
+8 ;;Analyze file for specifiers;;^XBCSPC
+9 ;;Delete namespaced OPTIONS, KEYS, etc.;;RUN^XBPKDEL;;P
+10 ;;List namespaced OPTIONS, KEYS, etc.;;LIST^XBPKDEL;;P
+11 ;;Build pre-init routine;;^XBBPI
+12 ;;Build integ routine;;^XBSUMBLD
+13 ;;List callable subroutines;;^XBLCALL;;P
+14 ;;Reset file data globals *** DANGER ***;;^XBFRESET
+15 ;;Edit FM print template headers;;^XBDH
+16 ;;List retired/replaced packages;;LIST^XBPKDEL1;;P;;XB*3*8
+17 ;;Delete retired/replaced packages;;DECERT^XBPKDEL1;;P;;XB*3*8
+18 ;;Edit File attribute for selected File(s);;^XBDDEDIT;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+19 ;;Move files into PACKAGE file FILE multiple;;^XBPKG;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+20 ;;Set dd audit;;^XBSDDAUD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+21 ;;dd Field Numbering Conventions;;^XBFNC;;P;;IHS/SET/GTH XB*3*9 10/29/2002
+22 ;;Options and Security Keys;;^XBSECK;;P;;IHS/SET/GTH XB*3*9 10/29/2002
